Changeset 16 for branches/Void/UCompilator.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/UCompilator.pas (modified) (3 diffs)

branches/Void/UCompilator.pas

@@ -54 +54 @@
         if Parser.TokenType <> ttWhiteSpace then DoError('Expect white space');
         Parser.ParseNextToken;
-        if Parser.TokenType <> ttString then DoError('Expect string');
+        if Parser.TokenType <> ttIdentifier then DoError('Expect program name')
+          else Module.Name := Parser.TokenValue;
         Parser.ParseNextToken;
         if (Parser.TokenType <> ttSymbol) and (Parser.TokenValue <> ';') then DoError('Expect ;');
@@ -184 +185 @@
           if Assigned(Variable) then begin
             Parser.ParseNextToken;
-            if Parser.TokenType <> ttWhiteSpace then DoError('Expected white space');
-            Parser.ParseNextToken;
+            if Parser.TokenType = ttWhiteSpace then Parser.ParseNextToken;
             if (Parser.TokenType <> ttSymbol) and (Parser.TokenValue = ':=') then
               DoError('Expected :=');
             Parser.ParseNextToken;
-            if Parser.TokenType <> ttWhiteSpace then DoError('Expected white space');
-            Parser.ParseNextToken;
+            if Parser.TokenType = ttWhiteSpace then Parser.ParseNextToken;
             Value := Parser.TokenValue;
             if Parser.TokenType = ttIdentifier then begin
@@ -222 +221 @@
                 end;
               end;
-            end else DoError('Expected variable or string')
+            end else if Parser.TokenType = ttNumber then begin
+              with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin
+                Name := 'Assignment';
+                with TVariableValue(Parameters[Parameters.Add(TVariableValue.Create)]) do begin
+                  ValueType := vtVariable;
+                  VariableDef := Variable;
+                end;
+                with TVariableValue(Parameters[Parameters.Add(TVariableValue.Create)]) do begin
+                  ValueType := vtNumber;
+                  NumberConstant := StrToInt(Parser.TokenValue);
+                end;
+              end;
+            end else DoError('Expected variable or string or number')
           end else DoError('Unknown command ' + CommandName);
         end;