Refactor annotation patterns in ut_annotation_parser and remove unused constants

lwasylow · lwasylow · commit aa3bfe7e54c8 · 2026-03-18T22:14:45.000Z
diff --git a/source/core/annotations/ut_annotation_manager.pkb b/source/core/annotations/ut_annotation_manager.pkb
@@ -174,7 +174,6 @@ create or replace package body ut_annotation_manager as
     end if;
   end;
 
-
   procedure validate_annotation_cache(
     a_object_owner   varchar2,
     a_object_type    varchar2,
@@ -238,7 +237,6 @@ create or replace package body ut_annotation_manager as
       l_sql_lines   dbms_preprocessor.source_lines_t := dbms_preprocessor.source_lines_t();
       l_sql_lines_clob ut_varchar2_list := ut_varchar2_list();
       l_result      sys_refcursor;
-      l_replaced    boolean := false;
     begin
       if a_parts > 0 then
         for i in 1..a_parts loop
diff --git a/source/core/annotations/ut_annotation_parser.pkb b/source/core/annotations/ut_annotation_parser.pkb
@@ -22,12 +22,10 @@ create or replace package body ut_annotation_parser as
   type tt_comment_list is table of varchar2(32767) index by binary_integer;
 
   gc_annotation_qualifier        constant varchar2(1) := '%';
-  gc_annot_comment_pattern       constant varchar2(30) := '^( |'||chr(09)||')*-- *('||gc_annotation_qualifier||'.*?)$'; -- chr(09) is a tab character
   gc_comment_replacer_patter     constant varchar2(50) := '{COMMENT#%N%}';
   gc_comment_replacer_regex_ptrn constant varchar2(25) := '{COMMENT#(\d+)}';
   gc_regexp_identifier           constant varchar2(50) := '[[:alpha:]][[:alnum:]$#_]*';
-  gc_annotation_block_pattern    constant varchar2(200) := '(({COMMENT#.+}'||chr(10)||')+)( |'||chr(09)||')*(procedure|function)\s+(' ||
-                                                           gc_regexp_identifier || ')';
+
   gc_annotation_pattern          constant varchar2(50) := gc_annotation_qualifier || gc_regexp_identifier || '[ '||chr(9)||']*(\(.*?\)\s*?$)?';
 
 
