Changeset 19 for branches/DelphiToC/UPascalSource.pas

Timestamp:

Apr 9, 2009, 2:08:56 PM (16 years ago)

Author:

george

Message:

• Přidáno: Nástřel parsování funkcí.
• Přidáno: Zobrazení stromu struktury programu.
• Opraveno: Zobrazení chybových hlášení.

File:

• branches/DelphiToC/UPascalSource.pas (modified) (6 diffs)

branches/DelphiToC/UPascalSource.pas

@@ -17 +17 @@
   TNodeType = (ntNone, ntVariable, ntFunction, ntConstant, ntOperator);
 
-  TValue = array of Byte;
+  TValue = Variant; //array of Byte;
 
   TCommonBlock = class;
@@ -28 +28 @@
   TOperationList = class;
   TFunction = class;
+  TVariable = class;
+  TConstant = class;
 
   TDevice = class
     Family: string;
     Memory: array[TMemoryType] of Integer;
+  end;
+
+  TContext = class
+
+  end;
+
+  TCommandList = class;
+
+  TCommand = class
+
+  end;
+
+  TBeginEnd = class(TCommand)
+    Commands: TCommandList;
+  end;
+
+  TWhileDo = class(TCommand)
+    Condition: TExpression;
+    Command: TCommand;
+  end;
+
+  WithDo = class(TCommand)
+    Context: TContext;
+    Command: TCommand;
+  end;
+
+  RepeatUntil = class(TCommand)
+    Block: TCommandList;
+    Condition: TExpression;
+  end;
+
+  ForToDo = class(TCommand)
+    ControlVariable: TVariable;
+    Start: TExpression;
+    Stop: TExpression;
+    Command: TCommand;
+  end;
+
+  IfThenElse = class(TCommand)
+    Condition: TExpression;
+    Command: TCommand;
+    ElseCommand: TCommand;
+  end;
+
+  TCaseOfEndBranche = class
+    Constant: TConstant;
+    Command: TCommand;
+  end;
+
+  CaseOfEnd = class(TCommand)
+    Expression: TExpression;
+    Branches: TList; // TList<TCaseOfEndBranche>
+    ElseCommand: TCommand;
+  end;
+
+  TryFinally = class(TCommand)
+    Block: TCommandList;
+    FinallyBlock: TCommandList;
+  end;
+
+  TryExcept = class(TCommand)
+    Block: TCommandList;
+    ExceptBlock: TCommandList;
+  end;
+
+
+
+  TCommandList = class(TList)
+
   end;
 
@@ -54 +125 @@
   end;
 
+  TTypeRecordItem = class
+    Name: string;
+    DataType: TType;
+  end;
+
+  TTypeRecord = class
+    Items: TList; // TList<TTypeRecordItem>
+  end;
+
+  TTypeArray = class
+    //Range: TTypeRange;
+    ItemType: TType;
+  end;
+
   TTypeList = class(TList)
     Parent: TCommonBlock;
@@ -100 +185 @@
   end;
 
-
   TOperation = class
     Instruction: TInstruction;
@@ -125 +209 @@
     Parent: TCommonBlock;
     function Search(Name: string): TFunction;
+    destructor Destroy; override;
   end;
 
@@ -331 +416 @@
 { TFunctionList }
 
+destructor TFunctionList.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do
+    TFunction(Items[I]).Free;
+  inherited;
+end;
+
 function TFunctionList.Search(Name: string): TFunction;
 var