Changeset 8 for branches/Void/UCompilator.pas

Timestamp:

Nov 9, 2009, 9:47:57 AM (15 years ago)

Author:

george

Message:

• Upraveno: Zobecněno uchování definic parametrických povelů v bloku BeginEnd pro potřeby generování do různých jazyků.

File:

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

branches/Void/UCompilator.pas

@@ -62 +62 @@
   VariableName: string;
 begin
-  with Model do begin
+  with Model, BeginEnd do begin
   Command := Parse(Line);
   if Command = 'Write' then
   with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin
-    Text := 'WriteLn(''' + Line + ''');';
+    Name := 'WriteLn';
+    Parameters.Add(Parse(Line));
   end else if Command = 'Define' then begin
     VariableName := Parse(Line);
@@ -84 +85 @@
     if not Assigned(Variable) then DoError('Undefined variable ' + VariableName)
     else begin
-      Text := VariableName + ' := ''' + Parse(Line) + ''';';
+      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
-    Text := 'ReadLn;';
+    Name := 'ReadLn';
   end else if Command = 'Exit' then with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin
-    Text := 'Exit;';
+    Name := 'Exit';
   end else DoError('Unknown command ' + Command);