Changeset 11 for branches/Void/UModel.pas

Timestamp:

Nov 9, 2009, 4:15:39 PM (15 years ago)

Author:

george

Message:

• Přidáno: Parsování pascalovského bloku var a begin-end.

File:

• branches/Void/UModel.pas (modified) (8 diffs)

branches/Void/UModel.pas

@@ -36 +36 @@
   end;
 
-  { TModel }
-
-  TModel = class
-  private
+  TModule = class
   public
     Variables: TList;
     Procedures: TList;
     BeginEnd: TBeginEnd;
+    constructor Create;
+    destructor Destroy; override;
+    procedure Clear;
+    function FindProcedureByName(AName: string): TProcedure;
     function FindVariableByName(AName: string): TVariable;
-    function FindProcedureByName(AName: string): TProcedure;
     procedure Init;
+  end;
+
+  { TModel }
+
+  TModel = class
+  private
+  public
+    Module: TModule;
     procedure Clear;
     constructor Create;
@@ -56 +64 @@
 { TModel }
 
+procedure TModel.Clear;
+begin
+  Module.Clear;
+end;
+
 constructor TModel.Create;
+begin
+  Module := TModule.Create;
+end;
+
+destructor TModel.Destroy;
+begin
+  Module.Destroy;
+  inherited Destroy;
+end;
+
+{ TBeginEnd }
+
+constructor TBeginEnd.Create;
+begin
+  Commands := TList.Create;
+end;
+
+destructor TBeginEnd.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to Commands.Count - 1 do
+    TCommand(Commands[I]).Destroy;
+  Commands.Destroy;
+  inherited Destroy;
+end;
+
+procedure TBeginEnd.Clear;
+var
+  I: Integer;
+begin
+  for I := 0 to Commands.Count - 1 do
+    TCommand(Commands[I]).Destroy;
+  Commands.Clear;
+end;
+
+{ TCommand }
+
+constructor TCommand.Create;
+begin
+  Parameters := TStringList.Create;
+end;
+
+destructor TCommand.Destroy;
+begin
+  Parameters.Destroy;
+  inherited Destroy;
+end;
+
+constructor TProcedure.Create;
+begin
+  BeginEnd := TBeginEnd.Create;
+  Parameters := TStringList.Create;
+end;
+
+destructor TProcedure.Destroy;
+begin
+  Parameters.Destroy;
+  BeginEnd.Destroy;
+  inherited Destroy;
+end;
+
+{ TModule }
+
+constructor TModule.Create;
 begin
   Variables := TList.Create;
@@ -63 +141 @@
 end;
 
-destructor TModel.Destroy;
+destructor TModule.Destroy;
 var
   I: Integer;
@@ -77 +155 @@
 end;
 
-function TModel.FindVariableByName(AName: string): TVariable;
+function TModule.FindVariableByName(AName: string): TVariable;
 var
   I: Integer;
@@ -87 +165 @@
 end;
 
-function TModel.FindProcedureByName(AName: string): TProcedure;
+function TModule.FindProcedureByName(AName: string): TProcedure;
 var
   I: Integer;
@@ -97 +175 @@
 end;
 
-procedure TModel.Init;
+
+procedure TModule.Init;
 begin
   with TProcedure(Procedures[Procedures.Add(TProcedure.Create)]) do begin
@@ -110 +189 @@
 end;
 
-procedure TModel.Clear;
+procedure TModule.Clear;
 var
   I: Integer;
@@ -121 +200 @@
 end;
 
-
-{ TBeginEnd }
-
-constructor TBeginEnd.Create;
-begin
-  Commands := TList.Create;
-end;
-
-destructor TBeginEnd.Destroy;
-var
-  I: Integer;
-begin
-  for I := 0 to Commands.Count - 1 do
-    TCommand(Commands[I]).Destroy;
-  Commands.Destroy;
-  inherited Destroy;
-end;
-
-procedure TBeginEnd.Clear;
-var
-  I: Integer;
-begin
-  for I := 0 to Commands.Count - 1 do
-    TCommand(Commands[I]).Destroy;
-  Commands.Clear;
-end;
-
-{ TCommand }
-
-constructor TCommand.Create;
-begin
-  Parameters := TStringList.Create;
-end;
-
-destructor TCommand.Destroy;
-begin
-  Parameters.Destroy;
-  inherited Destroy;
-end;
-
-constructor TProcedure.Create;
-begin
-  BeginEnd := TBeginEnd.Create;
-  Parameters := TStringList.Create;
-end;
-
-destructor TProcedure.Destroy;
-begin
-  Parameters.Destroy;
-  BeginEnd.Destroy;
-  inherited Destroy;
-end;
-
 end.