diff --git a/.gitattributes b/.gitattributes index c0d413ac3c..20e1a4a31a 100644 --- a/.gitattributes +++ b/.gitattributes @@ -15442,8 +15442,8 @@ utils/h2pas/h2pyacclib.pas svneol=native#text/plain utils/h2pas/scan.l svneol=native#text/plain utils/h2pas/scan.pas svneol=native#text/plain utils/h2pas/testit.h -text -utils/h2pas/yylex.cod -text -utils/h2pas/yyparse.cod -text +utils/h2pas/yylex.cod svneol=native#text/plain +utils/h2pas/yyparse.cod svneol=native#text/plain utils/importtl/Makefile svneol=native#text/plain utils/importtl/Makefile.fpc svneol=native#text/plain utils/importtl/Makefile.fpc.fpcmake svneol=native#text/plain diff --git a/utils/h2pas/yylex.cod b/utils/h2pas/yylex.cod index 1fa8b57b45..118b5e69f6 100644 --- a/utils/h2pas/yylex.cod +++ b/utils/h2pas/yylex.cod @@ -1,80 +1,80 @@ - -(* lexical analyzer template (TP Lex V3.0), V1.0 3-2-91 AG *) - -(* global definitions: *) -%% - -function yylex : Integer; - -procedure yyaction ( yyruleno : Integer ); - (* local definitions: *) -%% -begin - (* actions: *) - case yyruleno of -%% - end; -end(*yyaction*); - -(* DFA table: *) -%% - -var yyn : Integer; - -label start, scan, action; - -begin - -start: - - (* initialize: *) - - yynew; - -scan: - - (* mark positions and matches: *) - - for yyn := yykl[yystate] to yykh[yystate] do yymark(yyk[yyn]); - for yyn := yymh[yystate] downto yyml[yystate] do yymatch(yym[yyn]); - - if yytl[yystate]>yyth[yystate] then goto action; (* dead state *) - - (* get next character: *) - - yyscan; - - (* determine action: *) - - yyn := yytl[yystate]; - while (yyn<=yyth[yystate]) and not (yyactchar in yyt[yyn].cc) do inc(yyn); - if yyn>yyth[yystate] then goto action; - (* no transition on yyactchar in this state *) - - (* switch to new state: *) - - yystate := yyt[yyn].s; - - goto scan; - -action: - - (* execute action: *) - - if yyfind(yyrule) then - begin - yyaction(yyrule); - if yyreject then goto action; - end - else if not yydefault and yywrap() then - begin - yyclear; - return(0); - end; - - if not yydone then goto start; - - yylex := yyretval; - -end(*yylex*); - + +(* lexical analyzer template (TP Lex V3.0), V1.0 3-2-91 AG *) + +(* global definitions: *) +%% + +function yylex : Integer; + +procedure yyaction ( yyruleno : Integer ); + (* local definitions: *) +%% +begin + (* actions: *) + case yyruleno of +%% + end; +end(*yyaction*); + +(* DFA table: *) +%% + +var yyn : Integer; + +label start, scan, action; + +begin + +start: + + (* initialize: *) + + yynew; + +scan: + + (* mark positions and matches: *) + + for yyn := yykl[yystate] to yykh[yystate] do yymark(yyk[yyn]); + for yyn := yymh[yystate] downto yyml[yystate] do yymatch(yym[yyn]); + + if yytl[yystate]>yyth[yystate] then goto action; (* dead state *) + + (* get next character: *) + + yyscan; + + (* determine action: *) + + yyn := yytl[yystate]; + while (yyn<=yyth[yystate]) and not (yyactchar in yyt[yyn].cc) do inc(yyn); + if yyn>yyth[yystate] then goto action; + (* no transition on yyactchar in this state *) + + (* switch to new state: *) + + yystate := yyt[yyn].s; + + goto scan; + +action: + + (* execute action: *) + + if yyfind(yyrule) then + begin + yyaction(yyrule); + if yyreject then goto action; + end + else if not yydefault and yywrap() then + begin + yyclear; + return(0); + end; + + if not yydone then goto start; + + yylex := yyretval; + +end(*yylex*); +