Changeset 13 for branches/Void/UModel.pas

Timestamp:

Nov 10, 2009, 7:14:14 AM (15 years ago)

Author:

george

Message:

• Přidáno: Odsazování řádků při generování výstupu.
• Přidáno: Definování a modelování definic datových typů.

File:

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

branches/Void/UModel.pas

@@ -9 +9 @@
 
 type
+  TType = class
+    Name: string;
+    BaseType: TType;
+  end;
+
   TVariable = class
     Name: string;
-    VarType: string;
+    VarType: TType;
   end;
 
@@ -36 +41 @@
   end;
 
+  { TModule }
+
   TModule = class
   public
+    Types: TList;
     Variables: TList;
     Procedures: TList;
@@ -44 +52 @@
     destructor Destroy; override;
     procedure Clear;
+    function FindTypeByName(AName: string): TType;
     function FindProcedureByName(AName: string): TProcedure;
     function FindVariableByName(AName: string): TVariable;
@@ -136 +145 @@
 constructor TModule.Create;
 begin
+  Types := TList.Create;
   Variables := TList.Create;
   BeginEnd := TBeginEnd.Create;
@@ -145 +155 @@
   I: Integer;
 begin
+  for I := 0 to Types.Count - 1 do
+    TType(Types[I]).Destroy;
+  Types.Destroy;
   for I := 0 to Variables.Count - 1 do
     TVariable(Variables[I]).Destroy;
@@ -178 +191 @@
 procedure TModule.Init;
 begin
+  // System types
+  with TType(Types[Types.Add(TType.Create)]) do begin
+    Name := 'Integer';
+  end;
+  with TType(Types[Types.Add(TType.Create)]) do begin
+    Name := 'String';
+  end;
+  with TType(Types[Types.Add(TType.Create)]) do begin
+    Name := 'Char';
+  end;
+  with TType(Types[Types.Add(TType.Create)]) do begin
+    Name := 'Byte';
+  end;
+  with TType(Types[Types.Add(TType.Create)]) do begin
+    Name := 'Word';
+  end;
+
+  // System procedures
   with TProcedure(Procedures[Procedures.Add(TProcedure.Create)]) do begin
     Name := 'WriteLn';
   end;
-   with TProcedure(Procedures[Procedures.Add(TProcedure.Create)]) do begin
+  with TProcedure(Procedures[Procedures.Add(TProcedure.Create)]) do begin
     Name := 'Exit';
   end;
@@ -200 +231 @@
 end;
 
+function TModule.FindTypeByName(AName: string): TType;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Types.Count) and (TType(Types[I]).Name <> AName) do
+    Inc(I);
+  if I < Types.Count then Result := Types[I] else Result := nil;
+end;
+
 end.