Changeset 27 for branches/Syntetizer/USyntetizer.pas

Timestamp:

Oct 29, 2009, 11:07:49 AM (15 years ago)

Author:

george

Message:

• Přidáno: Deklarace proměnných a volání procedur.

File:

• branches/Syntetizer/USyntetizer.pas (modified) (7 diffs)

branches/Syntetizer/USyntetizer.pas

@@ -11 +11 @@
   TSyntetizer = class;
 
-  TElement = class
+  ISyntetizable = interface
+    procedure Syntetize(Syntetizer: TSyntetizer);
+  end;
+
+  TElement = class(TInterfacedObject)
+  end;
+
+  TCompilerDirective = class(TElement)
+    Variable: string;
+    Value: string;
+    procedure Syntetize(Syntetizer: TSyntetizer);
+  end;
+
+  TCommand = class(TInterfacedObject, ISyntetizable)
     procedure Syntetize(Syntetizer: TSyntetizer); virtual;
   end;
 
-  TCommand = class(TElement)
-  end;
-
-  { TBeginEnd }
+  TProcedureParameter = class(TElement)
+    Value: string;
+  end;
+
+  { TProcedureCall }
+
+  TProcedureCall = class(TCommand)
+    Name: string;
+    Parameters: TList; // TList<TProcedureParameter>
+    constructor Create;
+    destructor Destroy; override;
+    procedure Syntetize(Syntetizer: TSyntetizer); override;
+  end;
 
   TBeginEnd = class(TCommand)
-    Commands: TList; // TList<TCommand>
+    Commands: TList; // TList<ICommand>
+    LastEnd: Boolean;
     procedure Syntetize(Syntetizer: TSyntetizer); override;
     constructor Create;
@@ -27 +50 @@
   end;
 
-  { TProgram }
-
-  TProgram = class(TElement)
+  TVariableDeclaration = class(TInterfacedObject, ISyntetizable)
+    Name: string;
+    VarType: string;
+    procedure Syntetize(Syntetizer: TSyntetizer);
+  end;
+
+  { TVariableSection }
+
+  TVariableSection = class(TInterfacedObject, ISyntetizable)
+    Variables: TList; // TList<TVariableDeclaration>
+    procedure Syntetize(Syntetizer: TSyntetizer);
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  TProgram = class(TInterfacedObject, ISyntetizable)
     Name: string;
     Code: TBeginend;
-    procedure Syntetize(Syntetizer: TSyntetizer); override;
-    constructor Create;
-    destructor Destroy; override;
-  end;
+    CompilerDirectives: TList; // TList<TCompilerDirective>
+    Variables: TVariableSection;
+    procedure Syntetize(Syntetizer: TSyntetizer);
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { TSyntetizer }
 
   TSyntetizer = class
-    BaseElement: TElement;
+  private
+    procedure AddLine(Line: string);
+  public
+    BaseElement: TProgram;
     Output: TStringList;
+    Indent: Integer;
     procedure Syntetize;
     constructor Create;
@@ -48 +92 @@
 
 { TSyntetizer }
+
+procedure TSyntetizer.AddLine(Line: string);
+var
+  I: Integer;
+begin
+  for I := 1 to Indent * 2 do
+    Line := ' ' + Line;
+  Output.Add(Line);
+end;
 
 procedure TSyntetizer.Syntetize;
@@ -66 +119 @@
 end;
 
-{ TElement }
-
-procedure TElement.Syntetize(Syntetizer: TSyntetizer);
-begin
-
-end;
-
 { TProgram }
 
 procedure TProgram.Syntetize(Syntetizer: TSyntetizer);
-begin
-  Syntetizer.Output.Add('program ' + Name + ';');
+var
+  I: Integer;
+begin
+  Syntetizer.AddLine('program ' + Name + ';');
+  for I := 0 to CompilerDirectives.Count - 1 do
+    TCompilerDirective(CompilerDirectives[I]).Syntetize(Syntetizer);
+  Variables.Syntetize(Syntetizer);
   Code.Syntetize(Syntetizer);
   inherited;
@@ -84 +135 @@
 constructor TProgram.Create;
 begin
+  CompilerDirectives := TList.Create;
+  Variables := TVariableSection.Create;
   Code := TBeginEnd.Create;
+  Code.LastEnd := True;
 end;
 
 destructor TProgram.Destroy;
-begin
+var
+  I: Integer;
+begin
+  Variables.Destroy;
+  for I := 0 to CompilerDirectives.Count - 1 do
+    TCompilerDirective(CompilerDirectives[I]).Destroy;
   Code.Destroy;
   inherited Destroy;
@@ -99 +158 @@
   I: Integer;
 begin
-  with Syntetizer.Output do begin
-    Add('begin');
+  with Syntetizer do begin
+    AddLine('begin');
+    Inc(Syntetizer.Indent);
     for I := 0 to Commands.Count - 1 do
       TCommand(Commands[I]).Syntetize(Syntetizer);
-    Add('end;');
+    Dec(Syntetizer.Indent);
+    if LastEnd then AddLine('end.') else AddLine('end;');
   end;
   inherited Syntetize(Syntetizer);
@@ -123 +184 @@
 end;
 
+{ TProcedureCall }
+
+constructor TProcedureCall.Create;
+begin
+  Parameters := TList.Create;
+end;
+
+destructor TProcedureCall.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to Parameters.Count - 1 do
+    TProcedureParameter(Parameters[I]).Destroy;
+  Parameters.Destroy;
+  inherited Destroy;
+end;
+
+procedure TProcedureCall.Syntetize(Syntetizer: TSyntetizer);
+var
+  ParameterString: string;
+  I: Integer;
+begin
+  for I := 0 to Parameters.Count - 1 do
+    ParameterString := ParameterString + TProcedureParameter(Parameters[I]).Value;
+  if Parameters.Count > 0 then
+    ParameterString := '(' + ParameterString + ')';
+  Syntetizer.AddLine(Name + ParameterString + ';');
+  inherited Syntetize(Syntetizer);
+end;
+
+{ TCompilerDirective }
+
+procedure TCompilerDirective.Syntetize(Syntetizer: TSyntetizer);
+begin
+  Syntetizer.AddLine('{$' + Variable + ' ' + Value + '}');
+end;
+
+{ TVariableDeclaration }
+
+procedure TVariableDeclaration.Syntetize(Syntetizer: TSyntetizer);
+begin
+  Syntetizer.AddLine(Name + ': ' + VarType + ';');
+  inherited;
+end;
+
+{ TCommand }
+
+procedure TCommand.Syntetize(Syntetizer: TSyntetizer);
+begin
+end;
+
+{ TVariableSection }
+
+procedure TVariableSection.Syntetize(Syntetizer: TSyntetizer);
+var
+  I: Integer;
+  SectionString: string;
+begin
+  Syntetizer.AddLine('var');
+  Inc(Syntetizer.Indent);
+  for I := 0 to Variables.Count - 1 do
+    TVariableDeclaration(Variables[I]).Syntetize(Syntetizer);
+  Dec(Syntetizer.Indent);
+end;
+
+constructor TVariableSection.Create;
+begin
+  Variables := TList.Create;
+end;
+
+destructor TVariableSection.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to Variables.Count - 1 do
+    TVariableDeclaration(Variables[I]).Destroy;
+  Variables.Destroy;
+  inherited Destroy;
+end;
+
 end.