Changeset 53 for branches/DelphiToC/Produce/UProducerTreeView.pas

Timestamp:

Aug 10, 2010, 10:14:57 AM (14 years ago)

Author:

george

Message:

Project renamed to Transpascal.
Added support for generatin cycle For-to-do.
Added support for parsing and generating structured types as record and array.
Emit procedure in TProducerPascal and TProducerC reworked.

File:

• branches/DelphiToC/Produce/UProducerTreeView.pas (modified) (7 diffs)

branches/DelphiToC/Produce/UProducerTreeView.pas

@@ -22 +22 @@
     procedure AddNodeTypeRecord(Node: TTreeNode; TypeRecord: TTypeRecord);
     procedure AddNodeTypeList(Node: TTreeNode; Types: TTypeList);
+    procedure AddNodeType(Node: TTreeNode; AType: TType);
     procedure AddNodeVariableList(Node: TTreeNode; Variables: TVariableList);
     procedure AddNodeConstantList(Node: TTreeNode; Constants: TConstantList);
@@ -56 +57 @@
   NewNode: TTreeNode;
   NewNode2: TTreeNode;
-  NewNode3: TTreeNode;
-  I: Integer;
 begin
   NewNode := TreeView.Items.AddChild(Node, 'while');
@@ -194 +193 @@
 var
   NewNode: TTreeNode;
-  NewNode2: TTreeNode;
-  NewNode3: TTreeNode;
   I: Integer;
 begin
@@ -202 +199 @@
     for I := 0 to Types.Count - 1 do
     with TType(Types[I]) do
-    if not System then begin
-      if TType(Types[I]) is TTypeRecord then begin
-        NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = record');
-        AddNodeTypeRecord(NewNode2, TTypeRecord(Types[I]));
-      end else if Assigned(UsedType) then
-        NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = ' + UsedType.Name)
-      else NewNode2 := TreeView.Items.AddChild(NewNode, Name);
-    end;
+    if not System then AddNodeType(NewNode, TType(Types[I]));
+  end;
+end;
+
+procedure TProducerTreeView.AddNodeType(Node: TTreeNode; AType: TType);
+var
+  NewNode: TTreeNode;
+  NewNode2: TTreeNode;
+begin
+  with AType do begin
+    if AType is TTypeRecord then begin
+      NewNode := TreeView.Items.AddChild(Node, Name + ' = record');
+      AddNodeTypeRecord(NewNode, TTypeRecord(AType));
+    end else
+    if AType is TTypeArray then begin
+      NewNode := TreeView.Items.AddChild(Node, Name + ' = array');
+      if Assigned(TTypeArray(AType).IndexType) then begin
+        NewNode2 := TreeView.Items.AddChild(NewNode, 'Index');
+        AddNodeType(NewNode2, TTypeArray(AType).IndexType);
+      end;
+      if Assigned(TTypeArray(AType).ItemType) then begin
+        NewNode2 := TreeView.Items.AddChild(NewNode, 'ItemType');
+        AddNodeType(NewNode2, TTypeArray(AType).ItemType);
+      end;
+    end else if Assigned(UsedType) then
+      NewNode := TreeView.Items.AddChild(Node, Name + ' = ' + UsedType.Name)
+    else NewNode := TreeView.Items.AddChild(Node, Name);
   end;
 end;
@@ -217 +233 @@
 var
   NewNode: TTreeNode;
-  NewNode2: TTreeNode;
   I: Integer;
 begin
@@ -253 +268 @@
   );
 var
-  NewNode: TTreeNode;
-  NewNode2: TTreeNode;
-  NewNode3: TTreeNode;
   I: Integer;
 begin
@@ -261 +273 @@
     for I := 0 to TypeRecord.Items.Count - 1 do
     with TType(TypeRecord.Items[I]) do
-    if not System then begin
-      if TType(TypeRecord.Items[I]) is TTypeRecord then begin
-        NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = record');
-        AddNodeTypeRecord(NewNode2, TTypeRecord(TypeRecord.Items[I]))
-      end else if Assigned(UsedType) then
-        NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = ' + UsedType.Name)
-      else NewNode2 := TreeView.Items.AddChild(NewNode, Name);
-    end;
+    if not System then
+      AddNodeType(Node, TType(TypeRecord.Items[I]));
   end;
 end;