<<scan_line>>

loop

exit when l_remaining is null or l_remaining = '';

l_comment_start := instr(l_remaining, '--');

-- q' always puts ' at l_text_start; just check the char immediately before it

l_eq_text_start := case

when l_text_start > 1 and substr(l_remaining, l_text_start - 1, 1) = 'q'

end;

-- Sentinel gc_max_plsql_source_len means "not present"; 32767 is beyond any VARCHAR2 position

l_pos := least(

case when l_comment_start > 0 then l_comment_start else gc_max_plsql_source_len end,

case when l_eq_text_start > 0 then l_eq_text_start else gc_max_plsql_source_len end

);

exit scan_line;

end if;

l_remaining := substr(l_remaining, l_pos);

-- l_remaining now starts exactly at the token; all branch offsets below are relative to 1

if l_pos = l_eq_text_start then

-- q-quoted string: l_remaining starts at 'q', delimiter is at position 3

l_eq_end_char := translate(substr(l_remaining, 3, 1), gc_open_chars, gc_close_chars);

l_end := instr(l_remaining, l_eq_end_char || '''', 4);

if l_end > 0 then

l_remaining := substr(l_remaining, l_end + 2);

else

l_line := l_line || l_remaining;

end loop;

if l_end > 0 then

l_remaining := substr(l_remaining, l_end + 1);

else

l_line := l_line || l_remaining;