paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 23:28:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set svn mime type=text/plain and eol style=native to the *.cod files in the h2pas directory

Browse Source 
git-svn-id: trunk@30553 -
This commit is contained in:
nickysn 2015-04-12 14:42:06 +00:00
parent 94e57aa463
commit b0634d2cb3
2 changed files with 82 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitattributes vendored
View File

@ -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

160
utils/h2pas/yylex.cod
View File

@ -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*);