Changeset 78 for branches/Transpascal/Compiler/Analyze/UParser.pas

Timestamp:

Oct 22, 2010, 11:34:06 AM (14 years ago)

Author:

george

Message:

• Modified: Parsing type restructured.
• Added: Partial subrange typ parsing.

File:

• branches/Transpascal/Compiler/Analyze/UParser.pas (modified) (4 diffs)

branches/Transpascal/Compiler/Analyze/UParser.pas

@@ -58 +58 @@
     function IsIdentificator(Text: string): boolean;
     function IsKeyword(Text: string): boolean;
+    function IsString(Text: string): Boolean;
     function IsOperator(Text: string): boolean;
-    function ReadCode: string;
+    function ReadToken: string;
     function NextToken: string;
     function NextTokenType: TTokenType;
@@ -97 +98 @@
     // Recovery: try to find nearest same code
     while (NextToken <> Code) and (NextTokenType <> ttEndOfFile) do
-      ReadCode;
-  end;
-  ReadCode;
+      ReadToken;
+  end;
+  ReadToken;
 end;
 
@@ -141 +142 @@
     if Keywords[I] = Text then
       Result := True;
+end;
+
+function TBaseParser.IsString(Text: string): Boolean;
+begin
+
 end;
 
@@ -364 +370 @@
 end;
 
-function TBaseParser.ReadCode: string;
+function TBaseParser.ReadToken: string;
 begin
   if TokenIndex < Tokens.Count then begin