Changeset 9 for branches/Void/UCompilator.pas

Timestamp:

Nov 9, 2009, 10:15:36 AM (15 years ago)

Author:

george

Message:

• Přidáno: Definování systémových procedůr.

File:

• branches/Void/UCompilator.pas (modified) (2 diffs)

branches/Void/UCompilator.pas

@@ -10 +10 @@
 type
   TOnErrorEvent = procedure (Text: string; var Terminate: Boolean; Position: TPoint) of object;
+
+  { TCompilator }
 
   TCompilator = class
@@ -58 +60 @@
 procedure TCompilator.ProcessLine(Line: string);
 var
-  Command: string;
+  CommandName: string;
+  Command: TProcedure;
   Variable: TVariable;
   VariableName: string;
 begin
   with Model, BeginEnd do begin
-  Command := Parse(Line);
-  if Command = 'Write' then
-  with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin
-    Name := 'WriteLn';
-    Parameters.Add(Parse(Line));
-  end else if Command = 'Define' then begin
-    VariableName := Parse(Line);
-    Variable := FindVariableByName(VariableName);
-    if Assigned(Variable) then DoError('Variable ' + VariableName + ' redefined')
-    else begin
-      Variable := TVariable.Create;
-      with Variable do begin
-        Name := VariableName;
-        VarType := 'string';
+    CommandName := Parse(Line);
+    if CommandName = 'Define' then begin
+      VariableName := Parse(Line);
+      Variable := FindVariableByName(VariableName);
+      if Assigned(Variable) then DoError('Variable ' + VariableName + ' redefined')
+      else begin
+        Variable := TVariable.Create;
+        with Variable do begin
+          Name := VariableName;
+          VarType := 'string';
+        end;
+        Variables.Add(Variable);
       end;
-      Variables.Add(Variable);
+    end else if CommandName = 'Assign' then with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin
+      VariableName := Parse(Line);
+      Variable := FindVariableByName(VariableName);
+      if not Assigned(Variable) then DoError('Undefined variable ' + VariableName)
+      else begin
+        Name := 'Assignment';
+        Parameters.Add(VariableName);
+        Parameters.Add(Parse(Line));
+      end;
+    end else begin
+      Command := FindProcedureByName(CommandName);
+      if Assigned(Command) then begin
+        with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin
+          Name := CommandName;
+
+        end;
+      end else DoError('Unknown command ' + CommandName);
     end;
-  end else if Command = 'Assign' then with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin
-    VariableName := Parse(Line);
-    Variable := FindVariableByName(VariableName);
-    if not Assigned(Variable) then DoError('Undefined variable ' + VariableName)
-    else begin
-      Name := 'Assignment';
-      Parameters.Add(VariableName);
-      Parameters.Add(Parse(Line));
-    end;
-  end else if Command = 'Pause' then with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin
-    Name := 'ReadLn';
-  end else if Command = 'Exit' then with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin
-    Name := 'Exit';
-  end else DoError('Unknown command ' + Command);
-
   end;
 end;