Changeset 41
- Timestamp:
- Feb 19, 2012, 5:26:03 PM (13 years ago)
- Location:
- trunk
- Files:
-
- 3 added
- 2 deleted
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.lfm
r39 r41 951 951 Action = AViewCompilers 952 952 end 953 object MenuItem19: TMenuItem954 Action = AViewInterpretter955 end956 953 end 957 954 object MenuItem10: TMenuItem … … 1079 1076 OnExecute = AProgramStopExecute 1080 1077 ShortCut = 16497 1081 end1082 object AViewInterpretter: TAction1083 Category = 'View'1084 Caption = 'Interpretter'1085 OnExecute = AViewInterpretterExecute1086 1078 end 1087 1079 object AProgramStepInto: TAction -
trunk/Forms/UFormMain.lrt
r38 r41 25 25 TMAINFORM.APROGRAMPAUSE.CAPTION=Pause 26 26 TMAINFORM.APROGRAMSTOP.CAPTION=Stop 27 TMAINFORM.AVIEWINTERPRETTER.CAPTION=Interpretter28 27 TMAINFORM.APROGRAMSTEPINTO.CAPTION=Step into 29 28 TMAINFORM.APROGRAMSTEPOVER.CAPTION=Step over -
trunk/Forms/UFormMain.pas
r40 r41 34 34 AProgramStepOver: TAction; 35 35 AProgramStepInto: TAction; 36 AViewInterpretter: TAction;37 36 AProgramPause: TAction; 38 37 AProgramStop: TAction; … … 61 60 MenuItem17: TMenuItem; 62 61 MenuItem18: TMenuItem; 63 MenuItem19: TMenuItem;64 62 MenuItem2: TMenuItem; 65 63 MenuItem20: TMenuItem; … … 198 196 199 197 uses 200 UFormCPU, UApplicationInfo, UFormOptions, UFormMessages, 198 UFormCPU, UApplicationInfo, UFormOptions, UFormMessages, UTargetJava, 201 199 UTargetDelphi, UTargetPHP, UTargetC, UFormTargets, UFormOutput, UFormInput, 202 200 UFormMemory; … … 394 392 AProgramStop.Enabled := (tcStop in CurrentTarget.Capabilities) and 395 393 (ProjectFileName <> '') and (CurrentTarget.State <> rsStopped); 396 AProgramCompile.Enabled := (tcCompile in CurrentTarget.Capabilities); 394 AProgramCompile.Enabled := (tcCompile in CurrentTarget.Capabilities) and 395 (ProjectFileName <> ''); 397 396 AProgramStepInto.Enabled := (tcStepInto in CurrentTarget.Capabilities) and 398 397 (ProjectFileName <> '') and ((CurrentTarget.State = rsPaused) or (CurrentTarget.State = rsStopped)); … … 437 436 Targets.Add(TTargetPHP.Create); 438 437 Targets.Add(TTargetC.Create); 438 Targets.Add(TTargetJava.Create); 439 439 UpdateTargetList; 440 440 LastOpenedList := TLastOpenedList.Create; … … 577 577 Optimization := coNormal; 578 578 SourceCode := MemoSource.Text; 579 ProgramName := ExtractFileNameOnly(ProjectFileName); 579 ProjectFileName := Self.ProjectFileName; 580 ProgramName := ExtractFileNameOnly(Self.ProjectFileName); 580 581 CurrentTarget.Messages.AddMessage('Compiling...'); 581 582 Compile; -
trunk/Languages/LazFuckIDE.cs.po
r40 r41 312 312 msgstr "PÅekladaÄe" 313 313 314 #: tmainform.aviewinterpretter.caption315 msgctxt "tmainform.aviewinterpretter.caption"316 msgid "Interpretter"317 msgstr "Interpretr"318 319 314 #: tmainform.caption 320 315 msgid "LazFuck" … … 470 465 #: uformmain.snewproject 471 466 msgid "New project" 472 msgstr " "467 msgstr "NovÃœ projekt" 473 468 474 469 #: uformmain.snumbergeneration … … 484 479 #: uformmain.sprogramstarted 485 480 msgid "Program started" 486 msgstr " "481 msgstr "Program spuÅ¡tÄn" 487 482 488 483 #: uformmain.sprogramstopped 489 484 msgid "Program stopped" 490 msgstr " "485 msgstr "Program zastaven" 491 486 492 487 #: uformtargets.scompileroptions -
trunk/Languages/LazFuckIDE.po
r40 r41 301 301 msgstr "" 302 302 303 #: tmainform.aviewinterpretter.caption304 msgctxt "tmainform.aviewinterpretter.caption"305 msgid "Interpretter"306 msgstr ""307 308 303 #: tmainform.caption 309 304 msgid "LazFuck" -
trunk/LazFuckIDE.lpi
r40 r41 90 90 </Item5> 91 91 </RequiredPackages> 92 <Units Count="1 5">92 <Units Count="16"> 93 93 <Unit0> 94 94 <Filename Value="LazFuckIDE.lpr"/> … … 185 185 <UnitName Value="UFormMessages"/> 186 186 </Unit14> 187 <Unit15> 188 <Filename Value="Target\UTargetJava.pas"/> 189 <IsPartOfProject Value="True"/> 190 <UnitName Value="UTargetJava"/> 191 </Unit15> 187 192 </Units> 188 193 </ProjectOptions> -
trunk/LazFuckIDE.lpr
r40 r41 10 10 Interfaces, // this includes the LCL widgetset 11 11 Forms, UApplicationInfo, UTarget, UTargetC, UTargetDelphi, 12 UTargetInterpretter, UTargetPHP, U FormCPU, UFormMain,12 UTargetInterpretter, UTargetPHP, UTargetJava, UFormCPU, UFormMain, 13 13 UFormOptions, CoolTranslator, Common, 14 14 TemplateGenerics, UFormTargets, UFormOutput, UFormInput, UFormMemory, -
trunk/Target/UTarget.pas
r40 r41 79 79 procedure SetSourceCode(AValue: string); virtual; 80 80 function GetTargetCode: string; virtual; 81 procedure AddLine(Text: string );81 procedure AddLine(Text: string = ''); 82 82 function LongFileName(FileName: string): string; 83 83 function GetExecutionPosition: Integer; virtual; … … 88 88 Optimization: TCompilerOptimization; 89 89 CompilerPath: string; 90 ExecutorPath: string; 90 91 SourceExtension: string; 91 92 CompiledExtension: string; … … 101 102 procedure Compile; virtual; 102 103 procedure CompileToFile; virtual; 104 procedure RunFromFile; virtual; 103 105 procedure Run; virtual; 104 106 procedure Pause; virtual; … … 309 311 end; 310 312 311 procedure TTarget.AddLine(Text: string );313 procedure TTarget.AddLine(Text: string = ''); 312 314 begin 313 315 FTargetCode := FTargetCode + DupeString(' ', Indent) + Text + LineEnding; … … 384 386 Process.Free; 385 387 end else raise Exception.Create(Format(SCompilerNotFound, [CompilerPath])); 386 388 end; 389 390 procedure TTarget.RunFromFile; 391 var 392 Process: TProcess; 393 CompiledFile: string; 394 begin 387 395 CompiledFile := ExtractFilePath(ProjectFileName) + 388 396 'compiled' + DirectorySeparator + Name + DirectorySeparator + … … 391 399 try 392 400 Process := TProcess.Create(nil); 393 Process.CommandLine := LongFileName( CompiledFile);401 Process.CommandLine := LongFileName(ExecutorPath) + ' ' + LongFileName(CompiledFile); 394 402 Process.Options := [poWaitOnExit]; 395 403 Process.Execute; -
trunk/Target/UTargetC.pas
r35 r41 107 107 Dec(Indent); 108 108 AddLine('}'); 109 110 CompileToFile; 109 111 end; 110 112 … … 140 142 procedure TTargetC.Run; 141 143 begin 142 CompileToFile;143 144 inherited; 145 RunFromFile; 144 146 end; 145 147 -
trunk/Target/UTargetDelphi.pas
r35 r41 101 101 Dec(Indent); 102 102 AddLine('end.'); 103 104 CompileToFile; 103 105 end; 104 106 105 107 procedure TTargetDelphi.Run; 106 108 begin 107 CompileToFile;108 109 inherited Run; 110 RunFromFile; 109 111 end; 110 112 -
trunk/Target/UTargetPHP.pas
r35 r41 95 95 AddLine(''); 96 96 AddLine('?>'); 97 98 CompileToFile; 97 99 end; 98 100 99 101 procedure TTargetPHP.Run; 100 102 begin 101 CompileToFile;102 103 inherited Run; 104 RunFromFile; 103 105 end; 104 106
Note:
See TracChangeset
for help on using the changeset viewer.