paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Linux now also uses the DosExecute and ExecuteRedir procedures

Browse Source 
(merged from fixes branch)
This commit is contained in:
Jonas Maebe 2000-09-22 15:24:04 +00:00
parent 9eaa410ca7
commit dce21480a1
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/text/fpide.pas
View File

@ -800,7 +800,9 @@ end;
function TIDEApp.DoExecute(ProgramPath, Params, InFile,OutFile: string; ExecType: TExecType): boolean;
var CanRun: boolean;
{$ifndef linux}
PosExe: sw_integer;
{$endif linux}
begin
SaveCancelled:=false;
CanRun:=AutoSave;
@ -820,26 +822,26 @@ begin
if ExecType=exDosShell then
WriteShellMsg;
{$ifdef linux}
Shell(ProgramPath+' '+Params);
{$else}
{ DO NOT use COMSPEC for exe files as the
{ DO NOT use COMSPEC for exe files as the
ExitCode is lost in those cases PM }
{$ifndef linux}
posexe:=Pos('.EXE',UpCaseStr(ProgramPath));
{ if programpath was three char long => bug }
if (posexe>0) and (posexe=Length(ProgramPath)-3) then
begin
{$endif linux}
if (InFile='') and (OutFile='') then
DosExecute(ProgramPath,Params)
else
ExecuteRedir(ProgramPath,Params,InFile,OutFile,'stderr');
{$ifndef linux}
end
else if (InFile='') and (OutFile='') then
DosExecute(GetEnv('COMSPEC'),'/C '+ProgramPath+' '+Params)
else
ExecuteRedir(GetEnv('COMSPEC'),'/C '+ProgramPath+' '+Params,InFile,OutFile,'stderr');
{$endif}
{$endif linux}
if ExecType<>exNoSwap then
ShowIDEScreen;
@ -1080,7 +1082,11 @@ end;
END.
{
$Log$
Revision 1.2 2000-08-22 09:41:39 pierre
Revision 1.3 2000-09-22 15:24:04 jonas
* Linux now also uses the DosExecute and ExecuteRedir procedures
(merged from fixes branch)
Revision 1.2 2000/08/22 09:41:39 pierre
* first big merge from fixes branch
Revision 1.1.2.7 2000/08/21 12:10:19 jonas