Changeset 33 for branches/Syntetizer/USyntetizer.pas

Timestamp:

Aug 4, 2010, 1:53:01 PM (14 years ago)

Author:

george

Message:

• Upraveno: Rozšířen pascal syntetizer.

File:

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

branches/Syntetizer/USyntetizer.pas

@@ -26 +26 @@
   TCommand = class(TInterfacedObject, ISyntetizable)
     procedure Syntetize(Syntetizer: TSyntetizer); virtual;
-  end;
-
-  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;
 
@@ -56 +42 @@
   end;
 
-  { TVariableSection }
-
   TVariableSection = class(TInterfacedObject, ISyntetizable)
     Variables: TList; // TList<TVariableDeclaration>
@@ -65 +49 @@
   end;
 
+  TProcedure = class(TInterfacedObject, ISyntetizable)
+    Name: string;
+    Parameters: TList;
+    Code: TBeginEnd;
+    constructor Create;
+    destructor Destroy; override;
+    procedure Syntetize(Syntetizer: TSyntetizer);
+  end;
+
+  TProcedureList = class(TInterfacedObject, ISyntetizable)
+    Procedures: TList; // TList<TProcedure>
+    procedure Syntetize(Syntetizer: TSyntetizer);
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  TProcedureParameter = class(TInterfacedObject)
+    Name: string;
+    VarType: string;
+  end;
+
+  TProcedureParameterValue = class(TInterfacedObject)
+    Value: string;
+  end;
+
+  TProcedureCall = class(TCommand)
+    Name: string;
+    Parameters: TList; // TList<TProcedureParameter>
+    constructor Create;
+    destructor Destroy; override;
+    procedure Syntetize(Syntetizer: TSyntetizer); override;
+  end;
+
   TProgram = class(TInterfacedObject, ISyntetizable)
     Name: string;
     Code: TBeginend;
     CompilerDirectives: TList; // TList<TCompilerDirective>
+    Procedures: TProcedureList; // TList<TProcedure>
     Variables: TVariableSection;
     procedure Syntetize(Syntetizer: TSyntetizer);
@@ -74 +92 @@
     destructor Destroy; override;
   end;
-
-  { TSyntetizer }
 
   TSyntetizer = class
@@ -126 +142 @@
 begin
   Syntetizer.AddLine('program ' + Name + ';');
+  Syntetizer.AddLine('');
   for I := 0 to CompilerDirectives.Count - 1 do
     TCompilerDirective(CompilerDirectives[I]).Syntetize(Syntetizer);
+  Syntetizer.AddLine('');
+  Procedures.Syntetize(Syntetizer);
   Variables.Syntetize(Syntetizer);
   Code.Syntetize(Syntetizer);
@@ -137 +156 @@
   CompilerDirectives := TList.Create;
   Variables := TVariableSection.Create;
+  Procedures := TProcedureList.Create;
   Code := TBeginEnd.Create;
   Code.LastEnd := True;
@@ -145 +165 @@
   I: Integer;
 begin
+  Procedures.Destroy;
   Variables.Destroy;
   for I := 0 to CompilerDirectives.Count - 1 do
@@ -207 +228 @@
 begin
   for I := 0 to Parameters.Count - 1 do
-    ParameterString := ParameterString + TProcedureParameter(Parameters[I]).Value;
+    ParameterString := ParameterString + TProcedureParameterValue(Parameters[I]).Value;
   if Parameters.Count > 0 then
     ParameterString := '(' + ParameterString + ')';
@@ -264 +285 @@
 end;
 
+{ TProcedure }
+
+constructor TProcedure.Create;
+begin
+  Parameters := TList.Create;
+  Code := TBeginEnd.Create;
+end;
+
+destructor TProcedure.Destroy;
+var
+  I: Integer;
+begin
+  Code.Destroy;
+  //for I := 0 to Parameters.Count - 1 do
+  //  TParameter(Parameters[I]).Destroy;
+  Parameters.Destroy;
+  inherited Destroy;
+end;
+
+procedure TProcedure.Syntetize(Syntetizer: TSyntetizer);
+var
+  I: Integer;
+  ParameterString: string;
+begin
+  with Syntetizer do begin
+    for I := 0 to Parameters.Count - 1 do
+    with TProcedureParameter(Parameters[I]) do begin
+      ParameterString := ParameterString + Name + ': ' + VarType;
+
+    end;
+    if Parameters.Count > 0 then
+      ParameterString := '(' + ParameterString + ')';
+    AddLine('procedure ' + Name + ParameterString + ';');
+    Code.Syntetize(Syntetizer);
+    AddLine('');
+  end;
+end;
+
+{ TProcedureList }
+
+procedure TProcedureList.Syntetize(Syntetizer: TSyntetizer);
+var
+  I: Integer;
+begin
+  for I := 0 to Procedures.Count - 1 do
+    TProcedure(Procedures[I]).Syntetize(Syntetizer);
+end;
+
+constructor TProcedureList.Create;
+begin
+  Procedures := TList.Create;
+end;
+
+destructor TProcedureList.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to Procedures.Count - 1 do
+    TProcedure(Procedures[I]).Destroy;
+  Procedures.Destroy;
+  inherited Destroy;
+end;
+
 end.