Forráskód Böngészése

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

git-svn-id: trunk@30553 -
nickysn 10 éve
szülő
commit
b0634d2cb3
2 módosított fájl, 82 hozzáadás és 82 törlés
  1. 2 2
      .gitattributes
  2. 80 80
      utils/h2pas/yylex.cod

+ 2 - 2
.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

+ 80 - 80
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*);
+