paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 14:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added build all

Browse Source 
git-svn-id: trunk@392 -
This commit is contained in:
lazarus 2001-11-06 15:47:32 +00:00
parent 8f6727e9b0
commit 96f6250917
5 changed files with 42 additions and 4657 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/compiler.pp
View File

@ -45,7 +45,7 @@ type
public public
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
function Compile(AProject: TProject; function Compile(AProject: TProject; BuildAll: boolean;
const DefaultFilename: string): TModalResult; const DefaultFilename: string): TModalResult;
function GetSourcePosition(const Line: string; var Filename:string; function GetSourcePosition(const Line: string; var Filename:string;
var CaretXY: TPoint; var MsgType: TErrorType): boolean; var CaretXY: TPoint; var MsgType: TErrorType): boolean;
@ -107,7 +107,7 @@ end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
{ TCompiler Compile } { TCompiler Compile }
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
function TCompiler.Compile(AProject: TProject; function TCompiler.Compile(AProject: TProject; BuildAll: boolean;
const DefaultFilename: string): TModalResult; const DefaultFilename: string): TModalResult;
const const
BufSize = 1024; BufSize = 1024;
@ -196,6 +196,8 @@ begin
exit; exit;
end; end;
{$ENDIF linux} {$ENDIF linux}
if BuildAll then
CmdLine := CmdLine+' -B';
CmdLine := CmdLine CmdLine := CmdLine
+ ' '+ AProject.CompilerOptions.MakeOptionsString(ProjectFilename) + ' '+ AProject.CompilerOptions.MakeOptionsString(ProjectFilename)
+ ' '+ ProjectFilename; + ' '+ ProjectFilename;
@ -328,6 +330,9 @@ end.
{ {
$Log$ $Log$
Revision 1.17 2001/11/06 15:47:31 lazarus
MG: added build all
Revision 1.16 2001/11/05 18:18:13 lazarus Revision 1.16 2001/11/05 18:18:13 lazarus
added popupmenu+arrows to notebooks, added target filename added popupmenu+arrows to notebooks, added target filename

3
ide/keymapping.pp
View File

@ -51,6 +51,7 @@ const
ecStepOver = ecStepInto + 1; ecStepOver = ecStepInto + 1;
ecRunToCursor = ecStepOver + 1; ecRunToCursor = ecStepOver + 1;
ecStopProgram = ecRunToCursor + 1; ecStopProgram = ecRunToCursor + 1;
ecBuildAll = ecStopProgram + 1;
ecJumpToEditor = ecUserFirst + 300; ecJumpToEditor = ecUserFirst + 300;
ecToggleFormUnit = ecUserFirst + 301; ecToggleFormUnit = ecUserFirst + 301;
@ -313,6 +314,7 @@ begin
ecOpen: Result:= 'open'; ecOpen: Result:= 'open';
ecClose: Result:= 'close'; ecClose: Result:= 'close';
ecBuild: Result:= 'build program/project'; ecBuild: Result:= 'build program/project';
ecBuildAll: Result:= 'build all files of program/project';
ecRun: Result:= 'run program'; ecRun: Result:= 'run program';
ecPause: Result:= 'pause program'; ecPause: Result:= 'pause program';
ecStepInto: Result:= 'step into'; ecStepInto: Result:= 'step into';
@ -907,6 +909,7 @@ begin
Add('Open',ecOpen,VK_O,[ssCtrl],VK_UNKNOWN,[]); Add('Open',ecOpen,VK_O,[ssCtrl],VK_UNKNOWN,[]);
Add('Close',ecClose,VK_F4,[ssCtrl],VK_UNKNOWN,[]); Add('Close',ecClose,VK_F4,[ssCtrl],VK_UNKNOWN,[]);
Add('Build project/program',ecBuild,VK_F9,[ssCtrl],VK_UNKNOWN,[]); Add('Build project/program',ecBuild,VK_F9,[ssCtrl],VK_UNKNOWN,[]);
Add('Build all files of project/program',ecBuildAll,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add('Run program',ecRun,VK_F9,[],VK_UNKNOWN,[]); Add('Run program',ecRun,VK_F9,[],VK_UNKNOWN,[]);
Add('Pause program',ecPause,VK_UNKNOWN,[],VK_UNKNOWN,[]); Add('Pause program',ecPause,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add('Step into',ecStepInto,VK_F7,[],VK_UNKNOWN,[]); Add('Step into',ecStepInto,VK_F7,[],VK_UNKNOWN,[]);

4676
ide/main.pp
View File

File diff suppressed because it is too large Load Diff

5
ide/project.pp
View File

@ -20,7 +20,7 @@
***************************************************************************/ ***************************************************************************/
} }
unit project; unit Project;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -1504,6 +1504,9 @@ end.
{ {
$Log$ $Log$
Revision 1.36 2001/11/06 15:47:32 lazarus
MG: added build all
Revision 1.35 2001/11/06 12:20:33 lazarus Revision 1.35 2001/11/06 12:20:33 lazarus
MG: added Run Parameter Options - not enabled yet MG: added Run Parameter Options - not enabled yet

6
ide/uniteditor.pp
View File

@ -2931,10 +2931,8 @@ initialization
{$I designer/bookmark.lrs} {$I designer/bookmark.lrs}
finalization finalization
if aWordCompletion<>nil then begin aWordCompletion.Free;
aWordCompletion.Free; aWordCompletion:=nil;
aWordCompletion:=nil;
end;
end. end.