Changeset 20 for branches/DelphiToC/UPascalSource.pas

Timestamp:

Sep 8, 2009, 2:01:55 PM (15 years ago)

Author:

george

Message:

• Přidáno: Analýza páru dalších programových konstrukcí.
• Přidáno: Pár jednoduchých testovacích příkladů pro překladač.

File:

• branches/DelphiToC/UPascalSource.pas (modified) (16 diffs)

branches/DelphiToC/UPascalSource.pas

@@ -43 +43 @@
 
   TCommand = class
-
+    Parent: TObject;
+
+  end;
+
+  TAssignment = class(TCommand)
+    Target: TVariable;
+    Source: TExpression;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  TMethodCall = class(TCommand)
+    Method: TMethod;
   end;
 
   TBeginEnd = class(TCommand)
     Commands: TCommandList;
+    procedure Clear;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -53 +68 @@
     Condition: TExpression;
     Command: TCommand;
-  end;
-
-  WithDo = class(TCommand)
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  TWithDo = class(TCommand)
     Context: TContext;
     Command: TCommand;
   end;
 
-  RepeatUntil = class(TCommand)
+  TRepeatUntil = class(TCommand)
     Block: TCommandList;
     Condition: TExpression;
   end;
 
-  ForToDo = class(TCommand)
+  TForToDo = class(TCommand)
     ControlVariable: TVariable;
     Start: TExpression;
@@ -72 +89 @@
   end;
 
-  IfThenElse = class(TCommand)
+  TIfThenElse = class(TCommand)
     Condition: TExpression;
     Command: TCommand;
@@ -83 +100 @@
   end;
 
-  CaseOfEnd = class(TCommand)
+  TCaseOfEnd = class(TCommand)
     Expression: TExpression;
     Branches: TList; // TList<TCaseOfEndBranche>
@@ -89 +106 @@
   end;
 
-  TryFinally = class(TCommand)
+  TTryFinally = class(TCommand)
     Block: TCommandList;
     FinallyBlock: TCommandList;
   end;
 
-  TryExcept = class(TCommand)
+  TTryExcept = class(TCommand)
     Block: TCommandList;
     ExceptBlock: TCommandList;
   end;
-
-
 
   TCommandList = class(TList)
@@ -112 +127 @@
     Variables: TVariableList;
     Methods: TFunctionList;
-    Operations: TOperationList;
+    Code: TBeginEnd;
     constructor Create; virtual;
     destructor Destroy; override;
-    procedure CheckReferences;
+//    procedure CheckReferences;
   end;
 
@@ -166 +181 @@
     Parent: TCommonBlock;
     function Search(Name: string): TVariable;
+    destructor Destroy; override;
+  end;
+
+  TParameter = class
+    Name: string;
+    ValueType: TType;
+    DafaultValue: TValue;
+  end;
+
+  TParameterList = class(TList)
+    Parent: TFunction;
+    function Search(Name: string): TParameter;
     destructor Destroy; override;
   end;
@@ -200 +227 @@
   TFunction = class(TCommonBlock)
   public
-    Parameters: TList; // TList<TParameter>
+    Parameters: TList; // TList<TVariable>
     ResultType: TType;
     constructor Create; override;
@@ -246 +273 @@
 begin
   inherited;
-  Parameters := TList.Create;
-  ResultType := TType.Create;
+  Parameters := TParameterList.Create;
+  TParameterList(Parameters).Parent := Self;
+  //ResultType := TType.Create;
 end;
 
@@ -253 +281 @@
 begin
   Parameters.Free;
-  ResultType.Free;
+//  ResultType.Free;
   inherited;
 end;
@@ -310 +338 @@
   Constants.Clear;
   Methods.Clear;
-  Operations.Clear;
+  Code.Clear;
 end;
 
@@ -325 +353 @@
 end;
 
+(*
 procedure TCommonBlock.CheckReferences;
 var
@@ -335 +364 @@
   end;
 end;
+*)
 
 constructor TCommonBlock.Create;
@@ -346 +376 @@
   Methods := TFunctionList.Create;
   Methods.Parent := Self;
-  Operations := TOperationList.Create;
+  Code := TBeginEnd.Create;
 end;
 
@@ -355 +385 @@
   Variables.Destroy;
   Methods.Destroy;
-  Operations.Destroy;
+  Code.Destroy;
   inherited;
 end;
@@ -483 +513 @@
 end;
 
+{ TParameterList }
+
+destructor TParameterList.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do
+    TParameter(Items[I]).Free;
+  inherited;
+end;
+
+function TParameterList.Search(Name: string): TParameter;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TParameter(Items[I]).Name <> Name) do Inc(I);
+  if I < Count then Result := Items[I] else Result := nil;
+end;
+
+{ TBeginEnd }
+
+procedure TBeginEnd.Clear;
+begin
+
+end;
+
+constructor TBeginEnd.Create;
+begin
+  Commands := TCommandList.Create;
+end;
+
+destructor TBeginEnd.Destroy;
+begin
+  Commands.Free;
+  inherited;
+end;
+
+{ TAssignment }
+
+constructor TAssignment.Create;
+begin
+//  Source := TExpression.Create;
+end;
+
+destructor TAssignment.Destroy;
+begin
+  Source.Free;
+  inherited;
+end;
+
+{ TWhileDo }
+
+constructor TWhileDo.Create;
+begin
+  Condition := TExpression.Create;
+  Command := TCommand.Create;
+end;
+
+destructor TWhileDo.Destroy;
+begin
+  Condition.Free;
+  Command.Free;
+  inherited;
+end;
+
 end.