Changeset 7 for branches/Void/UCompilator.pas

Timestamp:

Nov 9, 2009, 9:21:28 AM (15 years ago)

Author:

george

Message:

• Upraveno: Oddělení modelu a generátoru kódu.

File:

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

branches/Void/UCompilator.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, UOutputGenerator, UModel;
 
 type
   TOnErrorEvent = procedure (Text: string; var Terminate: Boolean; Position: TPoint) of object;
 
-  TVariable = class
-    Name: string;
-    VarType: string;
-  end;
-
-  TCommand = class
-    Text: string;
-  end;
-
   TCompilator = class
   private
     FOnError: TOnErrorEvent;
-    Variables: TList;
-    Commands: TList;
     ParsePosition: TPoint;
     procedure DoError(Text: string);
-    function FindVariableByName(AName: string): TVariable;
   public
+    Model: TModel;
     SourceCode: TStringList;
-    Output: TStringList;
+    Generator: TOutputGenerator;
     procedure Compile;
-    procedure Clear;
     procedure ProcessLine(Line: string);
     constructor Create;
@@ -53 +41 @@
 end;
 
-function TCompilator.FindVariableByName(AName: string): TVariable;
-var
-  I: Integer;
-begin
-  I := 0;
-  while (I < Variables.Count) and (TVariable(Variables[I]).Name <> AName) do
-    Inc(I);
-  if I < Variables.Count then Result := Variables[I] else Result := nil;
-end;
-
 procedure TCompilator.Compile;
 var
   I: Integer;
 begin
-  Clear;
+  Model.Clear;
 
   // Process source lines
@@ -75 +53 @@
   end;
 
-  // Prepare output
-  Output.Clear;
-  Output.Add('program Test;');
-  Output.Add('{$APPTYPE CONSOLE}');
-
-  // var section
-  if Variables.Count > 0 then Output.Add('var');
-  for I := 0 to Variables.Count - 1 do
-    with TVariable(Variables[I]) do
-      Output.Add('  ' + Name + ': ' + VarType + ';');
-
-  // Code block
-  Output.Add('begin');
-  for I := 0 to Commands.Count - 1 do
-    with TCommand(Commands[I]) do
-      Output.Add(Text);
-  Output.Add('end.');
-end;
-
-procedure TCompilator.Clear;
-var
-  I: Integer;
-begin
-  for I := 0 to Variables.Count - 1 do
-    TVariable(Variables[I]).Destroy;
-  Variables.Clear;
-  for I := 0 to Commands.Count - 1 do
-    TCommand(Commands[I]).Destroy;
-  Commands.Clear;
-  Output.Clear;
+  Generator.Generate(Model);
 end;
 
@@ -113 +62 @@
   VariableName: string;
 begin
+  with Model do begin
   Command := Parse(Line);
   if Command = 'Write' then
@@ -141 +91 @@
     Text := 'Exit;';
   end else DoError('Unknown command ' + Command);
+
+  end;
 end;
 
@@ -146 +98 @@
 begin
   SourceCode := TStringList.Create;
-  Output := TStringList.Create;
-  Variables := TList.Create;
-  Commands := TList.Create;
+  Model := TModel.Create;
 end;
 
@@ -155 +105 @@
   I: Integer;
 begin
-  Output.Destroy;
-  for I := 0 to Variables.Count - 1 do
-    TVariable(Variables[I]).Destroy;
-  Variables.Destroy;
-  for I := 0 to Commands.Count - 1 do
-    TCommand(Commands[I]).Destroy;
-  Commands.Destroy;
   SourceCode.Destroy;
+  Model.Destroy;
   inherited Destroy;
 end;