možná se budete muset uchýlit k programování plsql v 10g, v duchu ukázky kódu níže. toto řešení je v určitém smyslu jistě hrubou silou, protože v podstatě píšete část analyzátoru deklarací funkcí/procedur pomocí velmi nízkoúrovňových primitiv. funkce regulárních výrazů však nejsou dostupné ani v 10g ...
podstata kódu je:
- iterujte řádky zdrojového kódu deklarací procedur/funkcí
- poznamenejte si název naposledy deklarované rutiny
- analyzujte všechny řádky obsahující klíčové slovo 'DEFAULT', získejte název argumentu a specifikaci výchozí hodnoty (toto není podrobně popsáno v ukázce kódu).
pozor na nástrahy:
- víceřádková deklarace
- Komentáře ve stylu C obsahující otevírací řetězce komentářů ve stylu C ( a la /* bla bla / bla bla **/ )
- řetězcové literály obsahující klíčová slova
doufám, že to každopádně pomůže, s pozdravem.
kód:
DECLARE
l_arg_and_more VARCHAR2(400);
l_current_unit VARCHAR2(400);
l_default_spec VARCHAR2(400);
l_offset_default BINARY_INTEGER;
l_offset_eoname BINARY_INTEGER;
BEGIN
FOR i IN (
select text
from all_source
where owner = '<name of owner>'
and name = '<object name>'
and type in ( 'PACKAGE', 'PROCEDURE', 'FUNCTION')
and text not like '--%'
order by line
) LOOP
IF i.text LIKE '%FUNCTION%' OR i.text LIKE '%PROCEDURE%' THEN
IF i.text LIKE '%FUNCTION%' THEN
l_current_unit := LTRIM(SUBSTR(i.text, INSTR(i.text, 'FUNCTION') + LENGTH('FUNCTION')), ' ');
l_offset_eoname := INSTR(l_current_unit, ' ');
IF l_offset_eoname = 0 OR l_offset_eoname > INSTR(l_current_unit, '(') THEN
l_offset_eoname := INSTR(l_current_unit, '(');
END IF;
IF l_offset_eoname <> 0 THEN
l_current_unit := SUBSTR(l_current_unit, 1, l_offset_eoname-1);
ELSE
l_current_unit := 'unidentified';
END IF;
END IF;
END IF;
--
IF i.text LIKE '%DEFAULT%' THEN
l_offset_default := INSTR (i.text, 'DEFAULT');
l_arg_and_more := SUBSTR(i.text, 1, l_offset_default - 1);
l_default_spec := SUBSTR(i.text, l_offset_default + LENGTH('DEFAULT') + 1);
--
-- process l_arg_and_more to get the arg name, l_default_spec for the default value
--
END IF;
END LOOP;
END;