Changeset 68 for trunk/Compiler/USourceCode.pas

Timestamp:

Jul 30, 2012, 3:52:56 PM (12 years ago)

Author:

chronos

Message:

• Added: Addon modules support.
• Modified: Restored usage of URegistry unit.

File:

• trunk/Compiler/USourceCode.pas (modified) (16 diffs)

trunk/Compiler/USourceCode.pas

@@ -31 +31 @@
   TVariable = class;
   TConstant = class;
-  TModule = class;
+  TSourceModule = class;
   TProgram = class;
 
@@ -149 +149 @@
     Name: string;
     Parent: TCommonBlock;
-    ParentModule: TModule;
+    ParentModule: TSourceModule;
     Constants: TConstantList;
     Types: TTypeList;
@@ -322 +322 @@
     Name: string;
     Location: string;
-    Module: TModule;
+    Module: TSourceModule;
     Exported: Boolean;
   end;
@@ -330 +330 @@
 
   TUsedModuleList = class(TListUsedModule)
-    ParentModule: TModule;
-  end;
-
-  { TModule }
-
-  TModule = class
+    ParentModule: TSourceModule;
+  end;
+
+  { TSourceModule }
+
+  TSourceModule = class
   public
     ParentProgram: TProgram;
@@ -342 +342 @@
     UsedModules: TUsedModuleList;
     Body: TCommonBlock;
+    Internal: Boolean;
     function SearchVariable(Name: string; Outside: Boolean): TVariable; virtual;
     function SearchConstant(Name: string; Outside: Boolean): TConstant; virtual;
@@ -352 +353 @@
   { TModuleProgram }
 
-  TModuleProgram = class(TModule)
+  TModuleProgram = class(TSourceModule)
     constructor Create;
     destructor Destroy; override;
@@ -359 +360 @@
   { TModuleUnit }
 
-  TModuleUnit = class(TModule)
+  TModuleUnit = class(TSourceModule)
     InititializeSection: TCommonBlock;
     FinalalizeSection: TCommonBlock;
@@ -366 +367 @@
   end;
 
-  TModulePackage = class(TModule)
-
-  end;
-
-  TModuleLibrary = class(TModule)
+  TModulePackage = class(TSourceModule)
+
+  end;
+
+  TModuleLibrary = class(TSourceModule)
   end;
 
@@ -379 +380 @@
 
   TModuleList = class(TListModule)
-    function Search(Name: string): TModule;
+    function Search(Name: string): TSourceModule;
   end;
 
@@ -387 +388 @@
     Device: TDevice;
     Modules: TModuleList;
-    MainModule: TModule;
+    MainModule: TSourceModule;
     procedure Clear;
     constructor Create;
@@ -470 +471 @@
 end;
 
-{ TModule }
-
-constructor TModule.Create;
+{ TSourceModule }
+
+constructor TSourceModule.Create;
 begin
   inherited;
@@ -481 +482 @@
 end;
 
-destructor TModule.Destroy;
+destructor TSourceModule.Destroy;
 begin
   Body.Free;
@@ -790 +791 @@
 { TModuleList }
 
-function TModuleList.Search(Name: string): TModule;
+function TModuleList.Search(Name: string): TSourceModule;
 var
   I: Integer;
 begin
   I := 0;
-  while (I < Count) and (LowerCase(TModule(Items[I]).Name) <> LowerCase(Name)) do Inc(I);
-  if I < Count then Result := TModule(Items[I])
+  while (I < Count) and (LowerCase(TSourceModule(Items[I]).Name) <> LowerCase(Name)) do Inc(I);
+  if I < Count then Result := TSourceModule(Items[I])
     else Result := nil;
 end;
@@ -802 +803 @@
 { TModuleProgram }
 
-function TModule.SearchVariable(Name: string; Outside: Boolean): TVariable;
+function TSourceModule.SearchVariable(Name: string; Outside: Boolean): TVariable;
 var
   I: Integer;
@@ -817 +818 @@
 end;
 
-function TModule.SearchConstant(Name: string; Outside: Boolean): TConstant;
-begin
-
-end;
-
-function TModule.SearchType(AName: string; Outside: Boolean): TType;
+function TSourceModule.SearchConstant(Name: string; Outside: Boolean): TConstant;
+begin
+
+end;
+
+function TSourceModule.SearchType(AName: string; Outside: Boolean): TType;
 var
   I: Integer;
@@ -840 +841 @@
 end;
 
-function TModule.SearchFunction(Name: string; Outside: Boolean): TFunction;
+function TSourceModule.SearchFunction(Name: string; Outside: Boolean): TFunction;
 var
   I: Integer;