Small fixes

lwasylow · lwasylow · commit a32e09da846c · 2026-03-15T01:31:11.000Z
diff --git a/source/core/annotations/ut_annotation_parser.pkb b/source/core/annotations/ut_annotation_parser.pkb
@@ -152,15 +152,10 @@ create or replace package body ut_annotation_parser as
           l_proc_comments := l_line || chr(10);
         end if;
         l_i := l_i + 1;
-
       -- Whitespace-only line: allowed between comment block and proc decl
-      -- -----------------------------------------------------------------
       elsif l_in_comment_block and trim(replace(l_line, chr(9))) is null then
         l_i := l_i + 1;
-
-      -- -----------------------------------------------------------------
       -- procedure/function declaration following a comment block
-      -- -----------------------------------------------------------------
       elsif l_in_comment_block
             and regexp_like(l_line, '^\s*(procedure|function)\s+', 'i')
       then
@@ -184,16 +179,12 @@ create or replace package body ut_annotation_parser as
           l_i := l_i + 1;
         end loop;
         l_i := l_i + 1;  -- step past the ';' line itself
-
-      -- -----------------------------------------------------------------
       -- Any other line: reset comment block accumulator
-      -- -----------------------------------------------------------------
       else
         l_in_comment_block := false;
-        l_proc_comments    := null;
+        l_proc_comments := null;
         l_i := l_i + 1;
       end if;
-
     end loop;
   end add_procedure_annotations;
 
diff --git a/source/core/ut_utils.pkb b/source/core/ut_utils.pkb
@@ -675,6 +675,9 @@ create or replace package body ut_utils is
     l_end             binary_integer;
     l_token_count     binary_integer;
     l_has_ml_comment  boolean := false;
+
+    l_open_chars  varchar2(4):= chr(91) || chr(123) || chr(40) || chr(60);  -- [{(
+    l_close_chars varchar2(4):= chr(93) || chr(125) || chr(41) || chr(62);  -- ]})>    
   begin
 
     -- Guard: empty source
@@ -766,10 +769,9 @@ create or replace package body ut_utils is
           and (l_comment_start = 0 or l_eq_text_start < l_comment_start)
           and (l_text_start    = 0 or l_eq_text_start < l_text_start)
         then
-          l_eq_end_char := translate(
-            substr(l_remaining, l_eq_text_start + 2, 1),
-            '[{(<', ']})>'
-          );
+
+
+          l_eq_end_char := translate(substr(l_remaining, l_eq_text_start + 2, 1),l_open_chars,l_close_chars);        
           l_end := instr(l_remaining, l_eq_end_char || '''', l_eq_text_start + 3);
           if l_end > 0 then
             l_line      := l_line || substr(l_remaining, 1, l_end + 1);
