Changeset 5 for branches/Void/UCompilator.pas

Timestamp:

Nov 9, 2009, 8:34:09 AM (15 years ago)

Author:

george

Message:

• Přidáno: Podpora pro proměnné.

Location:

branches/Void

Files:

• . (modified) (1 prop)
• UCompilator.pas (modified) (5 diffs)

branches/Void

@@ -5 +5 @@
 Example.void.bdsproj
 project1.exe
+*.dsk

@@ -5 +5 @@
 Example.void.bdsproj
 project1.exe
+*.dsk

branches/Void/UCompilator.pas

@@ -9 +9 @@
 
 type
+  TOnErrorEvent = procedure (Text: string; var Terminate: Boolean) of object;
 
-  { TCompilator }
+  TVariable = class
+    Name: string;
+    VarType: string;
+  end;
+
+  TCommand = class
+    Text: string;
+  end;
 
   TCompilator = class
+  private
+    FOnError: TOnErrorEvent;
+    Variables: TList;
+    Commands: TList;
+    procedure DoError(Text: string);
+    function FindVariableByName(AName: string): TVariable;
+  public
     Output: TStringList;
     procedure Compile(FileName: string);
@@ -19 +34 @@
     destructor Destroy; override;
     function Parse(var Text: string; Separator: string = ' '): string;
-    end;
+    property OnError: TOnErrorEvent read FOnError write FOnError;
+  end;
 
 implementation
 
 { TCompilator }
+
+procedure TCompilator.DoError(Text: string);
+var
+  Terminate: Boolean;
+begin
+  Terminate := False;
+  if Assigned(FOnError) then FOnError(Text, Terminate);
+  if Terminate then raise Exception.Create('Compilation terminated');
+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(FileName: string);
@@ -33 +68 @@
   SourceCode.LoadFromFile(FileName);
 
+  // Process source lines
+  for I := 0 to SourceCode.Count - 1 do begin
+    ProcessLine(SourceCode[I]);
+  end;
+
   // Prepare output
   Output.Clear;
   Output.Add('program ' + ExtractFileName(FileName) + ';');
   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 SourceCode.Count - 1 do begin
-    ProcessLine(SourceCode[I]);
-  end;
-  SourceCode.Destroy;
-
-  // Finalize output code
+  for I := 0 to Commands.Count - 1 do
+    with TCommand(Commands[I]) do
+      Output.Add(Text);
   Output.Add('end.');
   Output.SaveToFile(ExtractFileName(FileName) + '.dpr');
+  SourceCode.Destroy;
 end;
 
@@ -52 +97 @@
 var
   Command: string;
-begin
+  Variable: TVariable;
+  VariableName: string;
+  begin
   Command := Parse(Line);
   WriteLn(Command);
-  if Command = 'Write' then Output.Add('WriteLn(''' + Line + ''');')
-  else if Command = 'Assign' then begin
-    Output.Add('// Define' + Line)
-  end else if Command = 'Pause' then Output.Add('ReadLn;')
-  else if Command = 'Exit' then Output.Add('Exit;')
-  else begin
-    Output.Add('// Unknown command: ' + Command);
-  end;
+  if Command = 'Write' then
+  with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin
+    Text := 'WriteLn(''' + 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';
+      end;
+      Variables.Add(Variable);
+    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
+      Text := VariableName + ' := ''' + Parse(Line) + ''';';
+    end;
+  end else if Command = 'Pause' then with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin
+    Text := 'ReadLn;';
+  end else if Command = 'Exit' then with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin
+    Text := 'Exit;';
+  end else DoError('Unknown command: ' + Command);
 end;
 
@@ -68 +134 @@
 begin
   Output := TStringList.Create;
+  Variables := TList.Create;
+  Commands := TList.Create;
 end;
 
 destructor TCompilator.Destroy;
+var
+  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;
   inherited Destroy;
 end;

@@ -5 +5 @@
 Example.void.bdsproj
 project1.exe
+*.dsk