Changeset 71 for trunk/Compiler
- Timestamp:
- Aug 1, 2012, 6:20:01 AM (12 years ago)
- Location:
- trunk/Compiler
- Files:
-
- 5 added
- 3 deleted
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Compiler/Modules/Pascal/UModulePascal.pas
r70 r71 6 6 7 7 uses 8 Classes, SysUtils, UModularSystem ;8 Classes, SysUtils, UModularSystem, UAnalyzerPascal; 9 9 10 10 type … … 13 13 14 14 TModulePascal = class(TModule) 15 Analyzer: TAnalyzerPascal; 15 16 constructor Create; override; 16 17 destructor Destroy; override; … … 21 22 22 23 implementation 24 25 uses 26 UCompilerAPI; 23 27 24 28 { TModulePascal } … … 39 43 procedure TModulePascal.Install; 40 44 begin 45 with TCompilerAPI(API) do begin 46 Analyzer := TAnalyzerPascal.Create; 47 Analyzers.Add(Analyzer); 48 end; 41 49 inherited Install; 42 50 end; … … 45 53 begin 46 54 inherited Uninstall; 55 with TCompilerAPI(API) do begin 56 Analyzers.Remove(Analyzer); 57 end; 47 58 end; 48 59 -
trunk/Compiler/TranspascalCompiler.lpk
r70 r71 9 9 <PathDelim Value="\"/> 10 10 <SearchPaths> 11 <OtherUnitFiles Value="Analyze;Target;Target\Interpretter;Target\ASM8051;Target\Java;Target\GCC;Target\PHP;Target\Delphi;Target\Dynamic C;Target\XML;Target\NASM;Modules\Pascal "/>11 <OtherUnitFiles Value="Analyze;Target;Target\Interpretter;Target\ASM8051;Target\Java;Target\GCC;Target\PHP;Target\Delphi;Target\Dynamic C;Target\XML;Target\NASM;Modules\Pascal;Modules\GCC"/> 12 12 <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> 13 13 </SearchPaths> … … 25 25 </CompilerOptions> 26 26 <Version Minor="1"/> 27 <Files Count="2 1">27 <Files Count="22"> 28 28 <Item1> 29 29 <Filename Value="UCompiler.pas"/> … … 55 55 </Item7> 56 56 <Item8> 57 <Filename Value="Target\ UTargets.pas"/>58 <UnitName Value="U Targets"/>57 <Filename Value="Target\Dynamic C\UProducerDynamicc.pas"/> 58 <UnitName Value="UProducerDynamicC"/> 59 59 </Item8> 60 60 <Item9> 61 <Filename Value="Target\ Dynamic C\UProducerDynamicc.pas"/>62 <UnitName Value="UProducer DynamicC"/>61 <Filename Value="Target\ASM8051\UProducerASM8051.pas"/> 62 <UnitName Value="UProducerAsm8051"/> 63 63 </Item9> 64 64 <Item10> 65 <Filename Value="Target\ASM8051\U ProducerASM8051.pas"/>66 <UnitName Value="U ProducerAsm8051"/>65 <Filename Value="Target\ASM8051\UTargetASM8051.pas"/> 66 <UnitName Value="UTargetASM8051"/> 67 67 </Item10> 68 68 <Item11> 69 <Filename Value=" Target\ASM8051\UTargetASM8051.pas"/>70 <UnitName Value="UTarget ASM8051"/>69 <Filename Value="Modules\GCC\UTargetGCC.pas"/> 70 <UnitName Value="UTargetGCC"/> 71 71 </Item11> 72 72 <Item12> 73 <Filename Value=" Target\GCC\UTargetGCC.pas"/>74 <UnitName Value="U TargetGCC"/>73 <Filename Value="Modules\GCC\UProducerGCC.pas"/> 74 <UnitName Value="UProducerGCC"/> 75 75 </Item12> 76 76 <Item13> 77 <Filename Value="Target\ GCC\UProducerGCC.pas"/>78 <UnitName Value="UProducer GCC"/>77 <Filename Value="Target\Delphi\UProducerPascal.pas"/> 78 <UnitName Value="UProducerPascal"/> 79 79 </Item13> 80 80 <Item14> 81 <Filename Value="Target\Delphi\U ProducerPascal.pas"/>82 <UnitName Value="U ProducerPascal"/>81 <Filename Value="Target\Delphi\UTargetDelphi.pas"/> 82 <UnitName Value="UTargetDelphi"/> 83 83 </Item14> 84 84 <Item15> 85 <Filename Value="Target\ Delphi\UTargetDelphi.pas"/>86 <UnitName Value="UTarget Delphi"/>85 <Filename Value="Target\PHP\UTargetPHP.pas"/> 86 <UnitName Value="UTargetPHP"/> 87 87 </Item15> 88 88 <Item16> 89 <Filename Value="Target\ PHP\UTargetPHP.pas"/>90 <UnitName Value="UTarget PHP"/>89 <Filename Value="Target\Java\UTargetJava.pas"/> 90 <UnitName Value="UTargetJava"/> 91 91 </Item16> 92 92 <Item17> 93 <Filename Value="Target\ Java\UTargetJava.pas"/>94 <UnitName Value="UTarget Java"/>93 <Filename Value="Target\XML\UTargetXML.pas"/> 94 <UnitName Value="UTargetXML"/> 95 95 </Item17> 96 96 <Item18> 97 <Filename Value="Target\ XML\UTargetXML.pas"/>98 <UnitName Value="UTarget XML"/>97 <Filename Value="Target\Interpretter\UTargetInterpretter.pas"/> 98 <UnitName Value="UTargetInterpretter"/> 99 99 </Item18> 100 100 <Item19> 101 <Filename Value="Target\ Interpretter\UTargetInterpretter.pas"/>102 <UnitName Value="UTarget Interpretter"/>101 <Filename Value="Target\NASM\UTargetNASM.pas"/> 102 <UnitName Value="UTargetNASM"/> 103 103 </Item19> 104 104 <Item20> 105 <Filename Value=" Target\NASM\UTargetNASM.pas"/>106 <UnitName Value="U TargetNASM"/>105 <Filename Value="Modules\Pascal\UModulePascal.pas"/> 106 <UnitName Value="UModulePascal"/> 107 107 </Item20> 108 108 <Item21> 109 <Filename Value=" Modules\Pascal\UModulePascal.pas"/>110 <UnitName Value="U ModulePascal"/>109 <Filename Value="UCompilerAPI.pas"/> 110 <UnitName Value="UCompilerAPI"/> 111 111 </Item21> 112 <Item22> 113 <Filename Value="Modules\GCC\UModuleGCC.pas"/> 114 <UnitName Value="UModuleGCC"/> 115 </Item22> 112 116 </Files> 113 117 <Type Value="RunAndDesignTime"/> -
trunk/Compiler/TranspascalCompiler.pas
r70 r71 9 9 uses 10 10 UCompiler, USourceCode, UProducer, UAnalyzer, UTarget, UExecutor, 11 UAnalyzerPascal, U Targets, UProducerDynamicc, UProducerASM8051,12 UTarget ASM8051, UTargetGCC, UProducerGCC, UProducerPascal, UTargetDelphi,13 UTarget PHP, UTargetJava, UTargetXML, UTargetInterpretter, UTargetNASM,14 U ModulePascal, LazarusPackageIntf;11 UAnalyzerPascal, UProducerDynamicc, UProducerASM8051, UTargetASM8051, 12 UTargetGCC, UProducerGCC, UProducerPascal, UTargetDelphi, UTargetPHP, 13 UTargetJava, UTargetXML, UTargetInterpretter, UTargetNASM, UModulePascal, 14 UCompilerAPI, UModuleGCC, LazarusPackageIntf; 15 15 16 16 implementation -
trunk/Compiler/UCompiler.pas
r70 r71 6 6 7 7 uses 8 SysUtils, Variants, Classes, Contnrs, FileUtil, UModularSystem, 8 SysUtils, Variants, Classes, Contnrs, FileUtil, UModularSystem, UCompilerAPI, 9 9 Dialogs, USourceCode, UProducer, UAnalyzer, SpecializedList, UTarget; 10 10 … … 47 47 CompiledFolder: string; 48 48 49 API: TCompilerAPI; 49 50 TargetFolder: string; 50 Targets: TListTarget;51 Analyzers: TListAnalyzer;52 51 MainSource: string; 53 52 ModuleManager: TModuleManager; … … 69 68 70 69 uses 71 U Targets, UAnalyzerPascal;70 UAnalyzerPascal; 72 71 73 72 resourcestring … … 164 163 constructor TCompiler.Create; 165 164 begin 166 Targets := TListTarget.Create;165 API := TCompilerAPI.Create; 167 166 AbstractCode := TProgram.Create; 168 167 ErrorMessages := TListObject.Create; 169 168 CompiledFolder := 'Compiled'; 170 169 ModuleManager := TModuleManager.Create(nil); 170 ModuleManager.API := API; 171 171 end; 172 172 … … 179 179 destructor TCompiler.Destroy; 180 180 begin 181 ModuleManager.Free; 182 Analyzer.Free; 183 AbstractCode.Free; 184 Targets.Free; 185 ErrorMessages.Free; 181 FreeAndNil(ModuleManager); 182 FreeAndNil(AbstractCode); 183 FreeAndNil(ErrorMessages); 186 184 end; 187 185
Note:
See TracChangeset
for help on using the changeset viewer.