Sfoglia il codice sorgente

* properties set

git-svn-id: trunk@12791 -
florian 16 anni fa
parent
commit
234a182bdc
2 ha cambiato i file con 82 aggiunte e 82 eliminazioni
  1. 2 2
      .gitattributes
  2. 80 80
      utils/tply/yylex.cod

+ 2 - 2
.gitattributes

@@ -10053,5 +10053,5 @@ utils/tply/yaccmsgs.pas svneol=native#text/plain
 utils/tply/yaccpars.pas svneol=native#text/plain
 utils/tply/yaccsem.pas svneol=native#text/plain
 utils/tply/yacctabl.pas svneol=native#text/plain
-utils/tply/yylex.cod -text
-utils/tply/yyparse.cod -text
+utils/tply/yylex.cod svneol=native#text/plain
+utils/tply/yyparse.cod svneol=native#text/plain

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