Changeset 16 for branches/Void/UVoidParser.pas

Timestamp:

Nov 10, 2009, 10:27:21 AM (15 years ago)

Author:

george

Message:

• Upraveno: Rozdělení jednotek pro generování výstupů do samostatných souborů.
• Přidáno: Generátor kódu pro procesor Z80.
• Přidáno: Parsování celých čísel.

File:

• branches/Void/UVoidParser.pas (modified) (3 diffs)

branches/Void/UVoidParser.pas

@@ -70 +70 @@
           ((Character >= 'a') and (Character <= 'z')) then begin
           TokenValue := Character;
+          TokenType := ttIdentifier;
           ParseState := psIdentifier;
+        end else
+        if ((Character >= '0') and (Character <= '9')) then begin
+          TokenType := ttNumber;;
+          TokenValue := Character;
+          ParseState := psNumber;
         end else
         if Character = '{' then begin
@@ -78 +84 @@
           TokenValue := Character;
           ParseState := psSpecialSymbol;
+        end;
+      end;
+      psNumber: begin
+        if (Character >= '0') and (Character <= '9') then
+        TokenValue := TokenValue + Character else
+        begin
+          ParseState := psNone;
+          Source.Position := Source.Position - 1;
+          Dec(Position.X);
+          Break;
         end;
       end;
@@ -146 +162 @@
         if Character = '''' then begin
           TokenValue := TokenValue + Character;
+          ParseState := psString;
         end else begin
           TokenType := ttString;