Changeset 44
- Timestamp:
- Mar 4, 2012, 9:43:53 AM (13 years ago)
- Location:
- trunk
- Files:
-
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Compiler/Target/ASM8051/UProducerASM8051.pas
r41 r44 108 108 begin 109 109 AssemblyCode := TObjectList.Create; 110 Name := 'ASM 8051';111 110 {$IFDEF Windows} 112 111 CompilerPath := 'c:\ASM8051\ASM51.EXE'; -
trunk/Compiler/Target/Delphi/UProducerPascal.pas
r41 r44 55 55 begin 56 56 inherited; 57 Name := 'Delphi';58 57 {$IFDEF Windows} 59 58 CompilerPath := 'c:\Program Files\Embarcadero\RAD Studio\9.0\bin\DCC32.EXE'; 59 {$ENDIF} 60 {$IFDEF Linux} 61 CompilerPath := ''; 60 62 {$ENDIF} 61 63 end; -
trunk/Compiler/Target/Dynamic C/UProducerDynamicc.pas
r41 r44 49 49 constructor TProducerDynamicC.Create; 50 50 begin 51 Name := 'Dynamic C';52 51 {$IFDEF Windows} 53 52 CompilerPath := 'c:\Program Files\Dynamic C Rabbit 9.62\Dcrab_9.62.exe'; -
trunk/Compiler/Target/GCC/UProducerGCC.pas
r41 r44 56 56 TextSource := TStringList.Create; 57 57 IndentationLength := 2; 58 Name := 'GCC C';59 58 {$IFDEF Windows} 60 59 CompilerPath := 'c:\Program Files\MinGW\bin\gcc.exe -o %1:s'; -
trunk/Compiler/TranspascalCompiler.lpk
r42 r44 9 9 <PathDelim Value="\"/> 10 10 <SearchPaths> 11 <OtherUnitFiles Value=" Target;Target\Interpretter;Target\ASM8051;Target\Java;Target\GCC;Target\PHP;Target\Delphi;Target\Dynamic C;Target\XML"/>11 <OtherUnitFiles Value="Analyze;Target;Target\Interpretter;Target\ASM8051;Target\Java;Target\GCC;Target\PHP;Target\Delphi;Target\Dynamic C;Target\XML"/> 12 12 <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> 13 13 </SearchPaths> -
trunk/Compiler/UAnalyzer.pas
r41 r44 47 47 procedure GetNextToken; 48 48 public 49 SysName: string; 49 50 Name: string; 50 51 ProgramCode: TProgram; … … 82 83 83 84 // TListAnalyzer = TGObjectList<Integer, TAnalyzer> 84 TListAnalyzer = class(TListObject); 85 TListAnalyzer = class(TListObject) 86 end; 85 87 86 88 resourcestring -
trunk/Compiler/UCompiler.pas
r41 r44 48 48 49 49 uses 50 UTargets ;50 UTargets, UAnalyzerPascal; 51 51 52 52 resourcestring … … 63 63 constructor TCompiler.Create; 64 64 begin 65 Analyzer := TAnalyzerPascal.Create; 65 66 Targets := TListTarget.Create; 66 67 SourceFiles := TListString.Create; … … 148 149 TargetFileName: string; 149 150 begin 151 if Assigned(Target.Producer) then 150 152 try 151 153 ProducedCode := TStringList.Create; … … 155 157 Target.Producer.AssignToStringList(ProducedCode); 156 158 TargetFileName := TargetFolder + DirectorySeparator + 157 CompiledFolder + DirectorySeparator + Target. Producer.Name +159 CompiledFolder + DirectorySeparator + Target.Name + 158 160 DirectorySeparator + TModule(Modules[I]).TargetFile; 159 161 ForceDirectoriesUTF8(ExtractFileDir(TargetFileName)); -
trunk/Compiler/UProducer.pas
r41 r44 13 13 14 14 TProducer = class 15 Name: string;16 15 TextSource: TStringList; 17 16 IndentationLength: Integer; -
trunk/IDE/Forms/UMainForm.pas
r43 r44 143 143 LastOpenedFiles: TLastOpenedList; 144 144 procedure CompilerDebugLog(Text: string); 145 procedure MenuItemAnalyzerClick(Sender: TObject); 146 procedure MenuItemProducerClick(Sender: TObject); 145 procedure MenuItemTargetClick(Sender: TObject); 147 146 procedure OpenRecentClick(Sender: TObject); 148 147 procedure DockInit; … … 152 151 procedure UpdateMenu; 153 152 public 154 SelectedAnalyzerIndex: Integer;155 SelectedProducerIndex: Integer;156 153 ReopenLastOpenedFile: Boolean; 157 154 LogParsing: Boolean; … … 315 312 AProgramPause.Enabled := Project.Active and (BrainFuckInterpreter.State = rsRunning); 316 313 AProgramStop.Enabled := Project.Active and (BrainFuckInterpreter.State <> rsStopped);*) 317 ABuild.Enabled := Project.Active; 314 ABuild.Enabled := Project.Active and Assigned(Compiler.Target) and 315 Assigned(Compiler.Target.Producer); 318 316 UpdateMenu; 319 317 CodeForm.UpdateInterface; … … 401 399 OpenKey(Key, True); 402 400 ReopenLastOpenedFile := ReadBoolWithDefault('ReopenLastOpenedFile', True); 403 SelectedProducerIndex := ReadIntegerWithDefault('ProducerType', 0); 404 SelectedAnalyzerIndex := ReadIntegerWithDefault('AnalyzerType', 0); 401 Compiler.Target := Compiler.Targets.SearchBySysName(ReadStringWithDefault('TargetName', '')); 405 402 LogParsing := ReadBoolWithDefault('LogParsing', False); 406 403 if ValueExists('LanguageCode') then … … 423 420 OpenKey(Key, True); 424 421 WriteBool('ReopenLastOpenedFile', ReopenLastOpenedFile); 425 WriteInteger('ProducerType', SelectedProducerIndex); 426 WriteInteger('AnalyzerType', SelectedAnalyzerIndex); 422 if Assigned(Compiler.Target) then 423 WriteString('TargetName', Compiler.Target.SysName) 424 else DeleteValue('TargetName'); 427 425 WriteBool('LogParsing', LogParsing); 428 426 if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then … … 448 446 end; 449 447 450 procedure TMainForm.MenuItem AnalyzerClick(Sender: TObject);448 procedure TMainForm.MenuItemTargetClick(Sender: TObject); 451 449 begin 452 450 with TMenuItem(Sender) do begin 453 SelectedAnalyzerIndex := MenuIndex; 454 UpdateMenu; 455 end; 456 end; 457 458 procedure TMainForm.MenuItemProducerClick(Sender: TObject); 459 begin 460 with TMenuItem(Sender) do begin 461 SelectedProducerIndex := MenuIndex; 462 UpdateMenu; 451 Compiler.Target := TTarget(Compiler.Targets[MenuIndex]); 452 UpdateInterface; 463 453 end; 464 454 end; … … 473 463 NewMenuItem := TMenuItem.Create(MenuItemProducer); 474 464 NewMenuItem.Caption := TTarget(Compiler.Targets[I]).Name; 475 NewMenuItem.OnClick := MenuItemProducerClick; 476 if I = SelectedProducerIndex then NewMenuItem.Checked := True; 465 NewMenuItem.OnClick := MenuItemTargetClick; 466 if Assigned(Compiler.Target) and 467 (TTarget(Compiler.Targets[I]).SysName = Compiler.Target.SysName) then NewMenuItem.Checked := True; 477 468 MenuItemProducer.Add(NewMenuItem); 478 469 end; -
trunk/IDE/Languages/Transpascal.cs.po
r43 r44 105 105 msgctxt "tformtargets.caption" 106 106 msgid "Targets" 107 msgstr " "107 msgstr "Cíle" 108 108 109 109 #: tformtargets.listview1.columns[0].caption … … 135 135 #: tmainform.apause.caption 136 136 msgid "Pause" 137 msgstr " "137 msgstr "Pozastavit" 138 138 139 139 #: tmainform.aprojectclose.caption … … 175 175 #: tmainform.areset.caption 176 176 msgid "Reset" 177 msgstr " "177 msgstr "Vynulovat" 178 178 179 179 #: tmainform.arun.caption … … 184 184 #: tmainform.aruntocursor.caption 185 185 msgid "Run to cursor" 186 msgstr " "186 msgstr "Spustit po ukazatel" 187 187 188 188 #: tmainform.astepin.caption 189 189 msgid "Step in" 190 msgstr " "190 msgstr "Vejít do" 191 191 192 192 #: tmainform.astepout.caption 193 193 msgid "Step out" 194 msgstr " "194 msgstr "Vyjít ven" 195 195 196 196 #: tmainform.astepover.caption 197 197 msgid "Step over" 198 msgstr " "198 msgstr "Přejít přes" 199 199 200 200 #: tmainform.astop.caption 201 201 msgid "Stop" 202 msgstr " "202 msgstr "Zastavit" 203 203 204 204 #: tmainform.aviewcodetree.caption … … 238 238 msgctxt "tmainform.aviewtargets.caption" 239 239 msgid "Targets" 240 msgstr " "240 msgstr "Cíle" 241 241 242 242 #: tmainform.caption … … 282 282 283 283 #: tmainform.menuitemproducer.caption 284 #, fuzzy285 284 #| msgid "Producer" 286 285 msgid "Target" 287 msgstr " Tvůrce"286 msgstr "Cíl" 288 287 289 288 #: tmainform.tabsheetbreakpoints.caption
Note:
See TracChangeset
for help on using the changeset viewer.