Changeset 143 for branches/easy compiler/USourceCode.pas

Timestamp:

Jan 16, 2018, 3:40:08 PM (7 years ago)

Author:

chronos

Message:

• Modified: Better line indentation in generator.

File:

• branches/easy compiler/USourceCode.pas (modified) (7 diffs)

branches/easy compiler/USourceCode.pas

@@ -36 +36 @@
 
   TSourceTypes = class(TObjectList)
+    Parent: TSourceTypes;
     function AddNew(Name: string; ClassType: TSourceValueClass): TSourceType;
     function Search(Name: string): TSourceType;
@@ -50 +51 @@
 
   TSourceVariables = class(TObjectList)
+    Parent: TSourceVariables;
     function AddNew(Name: string; ValueType: TSourceType): TSourceVariable;
     function Search(Name: string): TSourceVariable;
@@ -107 +109 @@
 
   TSourceConstants = class(TObjectList)
+    Parent: TSourceConstants;
     function AddNewString(Value: string; Name: string = ''): TSourceConstant;
     function AddNewInteger(Value: Integer; Name: string = ''): TSourceConstant;
@@ -141 +144 @@
     procedure InitFunctions;
   public
+    Functions: TSourceFunctions;
     Types: TSourceTypes;
     Variables: TSourceVariables;
     Constants: TSourceConstants;
-    Functions: TSourceFunctions;
     Main: TSourceBeginEnd;
     constructor Create;
@@ -186 +189 @@
     Break;
   end;
+  if not Assigned(Result) and Assigned(Parent) then
+    Result := Parent.Search(Name);
 end;
 
@@ -278 +283 @@
     Break;
   end;
+  if not Assigned(Result) and Assigned(Parent) then
+    Result := Parent.Search(Name);
 end;
 
@@ -312 +319 @@
     Break;
   end;
+  if not Assigned(Result) and Assigned(Parent) then
+    Result := Parent.Search(Name);
 end;