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

branches/Void/UOutputGenerator.pas

@@ -11 +11 @@
   TOutputGenerator = class
   private
+  public
+    Model: TModel;
     IndentCount: Integer;
-    Model: TModel;
+    Output: TStringList;
     function Indent: string;
-  public
-    Output: TStringList;
     procedure Generate(Model: TModel); virtual;
     constructor Create;
     destructor Destroy; override;
-  end;
-
-  { TPascalGenerator }
-
-  TPascalGenerator = class(TOutputGenerator)
-  private
-    function GenerateVariableValue(Value: TVariableValue): string;
-  public
-    procedure Generate(Model: TModel); override;
-    procedure GenerateModule(Module: TModule);
-  end;
-
-  { TCGenerator }
-
-  TCGenerator = class(TOutputGenerator)
-  private
-    function ConvertType(Name: string): string;
-    function GenerateVariableValue(Value: TVariableValue): string;
-  public
-    procedure Generate(Model: TModel); override;
-    procedure GenerateModule(Module: TModule);
   end;
 
@@ -67 +46 @@
 end;
 
-{ TPascalGenerator }
-
-function TPascalGenerator.GenerateVariableValue(Value: TVariableValue): string;
-begin
-  case Value.ValueType of
-    vtVariable: if Assigned(Value.VariableDef) then Result := Value.VariableDef.Name
-      else Result := '';
-    vtFloat: Result := FloatToStr(Value.FloatConstant);
-    vtNumber: Result := IntToStr(Value.NumberConstant);
-    vtString: Result := '''' + Value.StringConstant + '''';
-    vtChar: Result := '''' + Value.CharConstant + '''';
-  end;
-end;
-
-procedure TPascalGenerator.Generate(Model: TModel);
-begin
-  inherited;
-  GenerateModule(Model.Module);
-end;
-
-procedure TPascalGenerator.GenerateModule(Module: TModule);
-var
-  I, P: Integer;
-  ParameterText: string;
-  Row: string;
-begin
-  with Module do begin
-    // Prepare output
-    Output.Clear;
-    Output.Add('program Test;');
-    Output.Add('{$APPTYPE CONSOLE}');
-
-    // var section
-    if Variables.Count > 0 then Output.Add('var');
-    Inc(IndentCount);
-    for I := 0 to Variables.Count - 1 do
-      with TVariable(Variables[I]) do
-        Output.Add(Indent + Name + ': ' + VarType.Name + ';');
-    Dec(IndentCount);
-
-    // Code block
-    Output.Add('begin');
-    Inc(IndentCount);
-    for I := 0 to BeginEnd.Commands.Count - 1 do
-      with TCommand(BeginEnd.Commands[I]) do begin
-        if Name = 'Assignment' then Output.Add(Indent +
-          TVariableValue(Parameters[0]).VariableDef.Name + ' := ' +
-          GenerateVariableValue(TVariableValue(Parameters[1])) + ';')
-        else begin
-        Row := Name;
-        if Parameters.Count > 0 then begin
-          ParameterText := '';
-          for P := 0 to Parameters.Count - 1 do
-            ParameterText := ParameterText + GenerateVariableValue(Parameters[P]) + ', ';
-          Row := Row + '(' + Copy(ParameterText, 1, Length(ParameterText) - 2) + ')';
-        end;
-        Output.Add(Indent + Row + ';');
-        end;
-      end;
-    Dec(IndentCount);
-    Output.Add('end.');
-  end;
-end;
-
-{ TCGenerator }
-
-function TCGenerator.ConvertType(Name: string): string;
-begin
-  if Name = 'String' then Result := 'char*'
-  else if Name = 'Byte' then Result := 'unsigned char'
-  else if Name = 'ShortInt' then Result := 'signed char'
-  else if Name = 'Word' then Result := 'unsigned int'
-  else if Name = 'Integer' then Result := 'int'
-  else if Name = 'Real' then Result := 'float'
-  else if Name = 'Double' then Result := 'double'
-  else if Name = 'Char' then Result := 'char'
-  else Result := Name;
-end;
-
-function TCGenerator.GenerateVariableValue(Value: TVariableValue): string;
-begin
-  case Value.ValueType of
-    vtVariable: if Assigned(Value.VariableDef) then Result := Value.VariableDef.Name
-      else Result := '';
-    vtFloat: Result := FloatToStr(Value.FloatConstant);
-    vtNumber: Result := IntToStr(Value.NumberConstant);
-    vtString: Result := '"' + Value.StringConstant + '"';
-    vtChar: Result := '''' + Value.CharConstant + '''';
-  end;
-end;
-
-procedure TCGenerator.Generate(Model: TModel);
-begin
-  inherited;
-  IndentCount := 0;
-  GenerateModule(Model.Module);
-end;
-
-procedure TCGenerator.GenerateModule(Module: TModule);
-var
-  I, P: Integer;
-  Row: string;
-  ParameterText: string;
-begin
-  with Module do begin
-    // Prepare output
-    Output.Clear;
-
-    Output.Add('int main()');
-    Output.Add('{');
-    Inc(IndentCount);
-
-    // Variable section
-    for I := 0 to Variables.Count - 1 do
-      with TVariable(Variables[I]) do
-        Output.Add(Indent + ConvertType(VarType.Name) + ' ' + Name + ';');
-    if Variables.Count > 0 then Output.Add('');
-
-    // Code block
-    for I := 0 to BeginEnd.Commands.Count - 1 do
-      with TCommand(BeginEnd.Commands[I]) do begin
-        if Name = 'Assignment' then Output.Add(Indent +
-          TVariableValue(Parameters[0]).VariableDef.Name + ' = ' +
-          GenerateVariableValue(TVariableValue(Parameters[1])) + ';')
-        else begin
-          if Name = 'WriteLn' then Row := 'printf'
-          else if Name = 'ReadLn' then Row := 'scanf'
-          else if Name = 'Exit' then Row := 'exit';
-          Row := Row + '(';
-          if Parameters.Count > 0 then begin
-            ParameterText := '';
-            for P := 0 to Parameters.Count - 1 do
-              ParameterText := ParameterText + GenerateVariableValue(Parameters[P]) + ', ';
-            Row := Row + Copy(ParameterText, 1, Length(ParameterText) - 2);
-          end;
-          Output.Add(Indent + Row + ');');
-        end;
-      end;
-    Dec(IndentCount);
-    Output.Add('}');
-  end;
-end;
-
 end.