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

Timestamp:

Aug 5, 2010, 3:13:03 PM (14 years ago)

Author:

george

Message:

Enhanced C code generation.

File:

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

branches/DelphiToC/Visual/USourceTree.pas

@@ -14 +14 @@
   TSourceTree = class
   private
+    procedure AddNodeAssignment(Node: TTreeNode; Assignment: TAssignment);
     procedure AddNodeBeginEnd(Node: TTreeNode; BeginEnd: TBeginEnd);
+    procedure AddNodeIfThenElse(Node: TTreeNode; IfThenElse: TIfThenElse);
+    procedure AddNodeMethodCall(Node: TTreeNode; Method: TMethodCall);
     procedure AddNodeMethodList(Node: TTreeNode; Methods: TFunctionList);
     procedure AddNodeTypeList(Node: TTreeNode; Types: TTypeList);
@@ -60 +63 @@
 end;
 
+procedure TSourceTree.AddNodeIfThenElse(Node: TTreeNode; IfThenElse: TIfThenElse);
+var
+  NewNode: TTreeNode;
+  NewNode2: TTreeNode;
+  NewNode3: TTreeNode;
+  I: Integer;
+begin
+  NewNode := TreeView.Items.AddChild(Node, 'if');
+  NewNode2 := TreeView.Items.AddChild(NewNode, 'condition');
+  AddNodeExpression(NewNode2, IfThenElse.Condition);
+  NewNode2 := TreeView.Items.AddChild(NewNode, 'then');
+  AddNodeCommand(NewNode2, IfThenElse.Command);
+  if Assigned(IfThenElse.ElseCommand) then begin
+    NewNode2 := TreeView.Items.AddChild(NewNode, 'else');
+    AddNodeCommand(NewNode2, IfThenElse.ElseCommand);
+  end;
+end;
+
+procedure TSourceTree.AddNodeMethodCall(Node: TTreeNode; Method: TMethodCall);
+var
+  NewNode: TTreeNode;
+begin
+  NewNode := TreeView.Items.AddChild(Node, Method.Method.Name);
+end;
+
+procedure TSourceTree.AddNodeAssignment(Node: TTreeNode; Assignment: TAssignment);
+var
+  NewNode: TTreeNode;
+begin
+  NewNode := TreeView.Items.AddChild(Node, Assignment.Target.Name + ' := ');
+  AddNodeExpression(NewNode, Assignment.Source);
+end;
+
 procedure TSourceTree.AddNodeCommand(Node: TTreeNode; Command: TCommand);
 begin
@@ -66 +102 @@
   if Command is TWhileDo then
     AddNodeWhileDo(Node, TWhileDo(Command));
+  if Command is TMethodCall then
+    AddNodeMethodCall(Node, TMethodCall(Command));
+  if Command is TIfThenElse then
+    AddNodeIfThenElse(Node, TIfThenElse(Command));
+  if Command is TAssignment then
+    AddNodeAssignment(Node, TAssignment(Command));
 end;
 
 procedure TSourceTree.AddNodeExpression(Node: TTreeNode; Expression: TExpression
   );
-begin
-
+var
+  NewNode: TTreeNode;
+begin
+  case Expression.NodeType of
+    ntConstant: NewNode := TreeView.Items.AddChild(Node, Expression.Value);
+    ntVariable: NewNode := TreeView.Items.AddChild(Node, Expression.Variable.Name);
+    ntFunction: NewNode := TreeView.Items.AddChild(Node, Expression.Method.Name);
+    ntOperator: begin
+      NewNode := TreeView.Items.AddChild(Node, Expression.OperatorName);
+      AddNodeExpression(NewNode, TExpression(Expression.SubItems.First));
+      AddNodeExpression(NewNode, TExpression(Expression.SubItems.Last));
+    end;
+    ntNone: ;
+  end;
 end;