ACCEPT should be handled similar to PROMPT, that is processed correctly.
Code: Select all
prompt 123
accept myvar
declare
i integer;
begin
null;
end;
You can add support by adding ACCEPT everywhere PROMPT is implemented:
Code: Select all
OraParser.pas
=============
const
...
lxACCEPT = lxOraFirst;
lxALTER = lxACCEPT+1;
initialization
...
OraKeywordLexems.Add('ACCEPT', lxACCEPT );
OraScriptProcessor.pas
==================
procedure TCustomOraScriptProcessor.CheckLexem(
...
// lxAccept added at line 107, 2018_02_09_Holger
lxEXIT, lxPAUSE, lxAccept, lxPROMPT, lxQUIT, lxREMARK, lxREM, lxUNDEFINE:
StatementType := ST_IGNORED;