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

Timestamp:

Aug 9, 2010, 3:05:26 PM (14 years ago)

Author:

george

Message:

Added support for loop for-to-do.
System types and functions are not generated to output code.

File:

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

branches/DelphiToC/Visual/USourceTree.pas

@@ -27 +27 @@
     procedure AddNodeProgram(Node: TTreeNode; Code: TProgram);
     procedure AddNodeWhileDo(Node: TTreeNode; WhileDo: TWhileDo);
+    procedure AddNodeForToDo(Node: TTreeNode; ForToDo: TForToDo);
     procedure AddNodeCommand(Node: TTreeNode; Command: TCommand);
     procedure AddNodeExpression(Node: TTreeNode; Expression: TExpression);
@@ -58 +59 @@
   I: Integer;
 begin
-  NewNode := TreeView.Items.AddChild(Node, 'while-do');
+  NewNode := TreeView.Items.AddChild(Node, 'while');
   NewNode2 := TreeView.Items.AddChild(NewNode, 'condition');
   AddNodeExpression(NewNode2, WhileDo.Condition);
-  NewNode2 := TreeView.Items.AddChild(NewNode, 'command');
+  NewNode2 := TreeView.Items.AddChild(NewNode, 'do');
   AddNodeCommand(NewNode2, WhileDo.Command);
+end;
+
+procedure TSourceTree.AddNodeForToDo(Node: TTreeNode; ForToDo: TForToDo);
+var
+  NewNode: TTreeNode;
+  NewNode2: TTreeNode;
+  NewNode3: TTreeNode;
+  I: Integer;
+begin
+  with ForToDo do begin
+    NewNode := TreeView.Items.AddChild(Node, 'for');
+    NewNode2 := TreeView.Items.AddChild(NewNode, 'control');
+    NewNode3 := TreeView.Items.AddChild(NewNode2, ControlVariable.Name);
+    NewNode2 := TreeView.Items.AddChild(NewNode, 'from');
+    AddNodeExpression(NewNode2, Start);
+    NewNode2 := TreeView.Items.AddChild(NewNode, 'to');
+    AddNodeExpression(NewNode2, Stop);
+    NewNode2 := TreeView.Items.AddChild(NewNode, 'do');
+    AddNodeCommand(NewNode2, Command);
+  end;
 end;
 
@@ -101 +122 @@
 begin
   if Command is TBeginEnd then
-    AddNodeBeginEnd(Node, TBeginEnd(Command));
+    AddNodeBeginEnd(Node, TBeginEnd(Command))
+  else
   if Command is TWhileDo then
-    AddNodeWhileDo(Node, TWhileDo(Command));
+    AddNodeWhileDo(Node, TWhileDo(Command))
+  else
   if Command is TFunctionCall then
-    AddNodeMethodCall(Node, TFunctionCall(Command));
+    AddNodeMethodCall(Node, TFunctionCall(Command))
+  else
   if Command is TIfThenElse then
-    AddNodeIfThenElse(Node, TIfThenElse(Command));
+    AddNodeIfThenElse(Node, TIfThenElse(Command))
+  else
+  if Command is TForToDo then
+    AddNodeForToDo(Node, TForToDo(Command))
+  else
   if Command is TAssignment then
     AddNodeAssignment(Node, TAssignment(Command));
@@ -172 +200 @@
     NewNode := TreeView.Items.AddChild(Node, 'type');
     for I := 0 to Types.Count - 1 do
-    with TType(Types[I]) do begin
+    with TType(Types[I]) do
+    if not System then begin
       NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = ');
     end;
@@ -186 +215 @@
 begin
   for I := 0 to Methods.Count - 1 do
-  with TFunction(Methods[I]) do begin
+  with TFunction(Methods[I]) do
+  if not System then begin
     if HaveResult then
       NewNode := TreeView.Items.AddChild(Node, 'function ' + Name)