@@ -27,10 +27,10 @@ create or replace package body ut_annotations as
2727 --c_nonannotat_comment_pattern constant varchar2(30) := '^( |'||chr(09)||')*--+ *[^'||gc_annotation_qualifier||']*?$';
2828 c_comment_replacer_patter constant varchar2(50) := '{COMMENT#%N%}';
2929 c_comment_replacer_regex_ptrn constant varchar2(25) := '{COMMENT#(\d+)}';
30- c_rgexp_identifier constant varchar2(50) := '[a-z][a-z0-9#_$]*';
30+ c_regexp_identifier constant varchar2(50) := '[a-z][a-z0-9#_$]*';
3131 c_annotation_block_pattern constant varchar2(200) := '(({COMMENT#.+}'||chr(10)||')+)( |'||chr(09)||')*(procedure|function)\s+(' ||
32- c_rgexp_identifier || ')';
33- c_annotation_pattern constant varchar2(50) := gc_annotation_qualifier || c_rgexp_identifier || '[ '||chr(9)||']*(\(.*?\)\s*?$)?';
32+ c_regexp_identifier || ')';
33+ c_annotation_pattern constant varchar2(50) := gc_annotation_qualifier || c_regexp_identifier || '[ '||chr(9)||']*(\(.*?\)\s*?$)?';
3434
3535
3636 function delete_multiline_comments(a_source in clob) return clob is
@@ -75,7 +75,7 @@ create or replace package body ut_annotations as
7575
7676 -- get the annotation name and it's parameters if present
7777 l_annotation_name := lower(regexp_substr(l_annotation_str
78- ,'%(' || c_rgexp_identifier || ')'
78+ ,'%(' || c_regexp_identifier || ')'
7979 ,modifier => 'i'
8080 ,subexpression => 1));
8181 l_annotation_params_str := trim(regexp_substr(l_annotation_str, '\((.*?)\)$', subexpression => 1));
@@ -94,7 +94,7 @@ create or replace package body ut_annotations as
9494 ,subexpression => 1);
9595
9696 l_param_item.key := regexp_substr(srcstr => l_param_str
97- ,pattern => '(' || c_rgexp_identifier || ')\s*='
97+ ,pattern => '(' || c_regexp_identifier || ')\s*='
9898 ,modifier => 'i'
9999 ,subexpression => 1);
100100 l_param_item.val := trim(regexp_substr(l_param_str, '(.+?=)?(.*$)', subexpression => 2));
0 commit comments