Changeset 44 for branches/DelphiToC/Visual/USourceTree.pas

Timestamp:

Aug 9, 2010, 10:22:30 AM (14 years ago)

Author:

george

Message:

Reworked tokenizer code with state machine instead of direct sequence analyze.
Parser classes with class methods rewrited back to single class TPaascalParser which inherit from TBasePascal.

File:

• branches/DelphiToC/Visual/USourceTree.pas (modified) (2 diffs)

branches/DelphiToC/Visual/USourceTree.pas

@@ -23 +23 @@
     procedure AddNodeConstantList(Node: TTreeNode; Constants: TConstantList);
     procedure AddNodeModule(Node: TTreeNode; Module: TModule);
+    procedure AddNodeUses(Node: TTreeNode; UsedModuleList: TUsedModuleList);
     procedure AddNodeProgram(Node: TTreeNode; Code: TProgram);
     procedure AddNodeWhileDo(Node: TTreeNode; WhileDo: TWhileDo);
@@ -207 +208 @@
   end;
   NewNode := TreeView.Items.AddChild(Node, TypeName + ' ' + Module.Name);
-  for I := 0 to Module.Constants.Count - 1 do begin
-    AddNodeMethodList(NewNode, Module.Methods);
-    AddNodeConstantList(NewNode, Module.Constants);
-    AddNodeVariableList(NewNode, Module.Variables);
-    AddNodeTypeList(NewNode, Module.Types);
-    AddNodeBeginEnd(NewNode, Module.Code);
+  AddNodeUses(NewNode, Module.UsedModules);
+  AddNodeMethodList(NewNode, Module.Methods);
+  AddNodeConstantList(NewNode, Module.Constants);
+  AddNodeVariableList(NewNode, Module.Variables);
+  AddNodeTypeList(NewNode, Module.Types);
+  AddNodeBeginEnd(NewNode, Module.Code);
+end;
+
+procedure TSourceTree.AddNodeUses(Node: TTreeNode;
+  UsedModuleList: TUsedModuleList);
+var
+  NewNode: TTreeNode;
+  I: Integer;
+begin
+  NewNode := TreeView.Items.AddChild(Node, 'uses');
+  for I := 0 to UsedModuleList.Count - 1 do begin
+    TreeView.Items.AddChild(NewNode, TUsedModule(UsedModuleList[I]).Name);
   end;
 end;