Changeset 20 for branches/DelphiToC/UMainForm.pas

Timestamp:

Sep 8, 2009, 2:01:55 PM (15 years ago)

Author:

george

Message:

• Přidáno: Analýza páru dalších programových konstrukcí.
• Přidáno: Pár jednoduchých testovacích příkladů pro překladač.

File:

• branches/DelphiToC/UMainForm.pas (modified) (2 diffs)

branches/DelphiToC/UMainForm.pas

@@ -65 +65 @@
   NewNode: TTreeNode;
   NewNode2: TTreeNode;
+  NewNode3: TTreeNode;
   ModuleNode: TTreeNode;
   I: Integer;
+  II: Integer;
   M: Integer;
 begin
@@ -82 +84 @@
         NewNode := AddChild(ModuleNode, 'Funkce');
         for I := 0 to Methods.Count - 1 do
-        with TFunction(Methods[I]) do
+        with TFunction(Methods[I]) do begin
           NewNode2 := AddChild(NewNode, Name);
+          with NewNode2 do begin
+            NewNode3 := AddChild(NewNode2, 'Parametery');
+            for II := 0 to Parameters.Count - 1 do
+              AddChild(NewNode3, TParameter(Parameters[II]).Name + ':' + TParameter(Parameters[II]).ValueType.Name);
+          end;
+        end;
         NewNode := AddChild(ModuleNode, 'Promìnné');
         for I := 0 to Variables.Count - 1 do
         with TVariable(Variables[I]) do
-          NewNode2 := AddChild(NewNode, Name);
+          NewNode2 := AddChild(NewNode, Name + ':' + ValueType.Name);
         NewNode := AddChild(ModuleNode, 'Konstanty');
         for I := 0 to Constants.Count - 1 do
         with TConstant(Constants[I]) do
-          NewNode2 := AddChild(NewNode, Name);
+          NewNode2 := AddChild(NewNode, Name + ':' + ValueType.Name + '=' + Value);
         NewNode := AddChild(ModuleNode, 'Program');
+        for I := 0 to Code.Commands.Count - 1 do begin
+          if TObject(Code.Commands[I]) is TBeginEnd then begin
+            NewNode2 := AddChild(NewNode, 'Begin-End');
+
+          end else
+          if TObject(Code.Commands[I]) is TWhileDo then begin
+            NewNode2 := AddChild(NewNode, 'While-Do');
+          end else
+          if TObject(Code.Commands[I]) is TAssignment then begin
+            NewNode2 := AddChild(NewNode, TAssignment(Code.Commands[I]).Target.Name + ' := exp');
+
+          end;
+        end;
+
       end;
     TopItem.Expand(True);