paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 01:12:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* dummy implementation for OS/2

Browse Source
This commit is contained in:
Tomas Hajny 2002-02-24 20:07:23 +00:00
parent 4b825af235
commit 3cae6d109b
1 changed files with 34 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
tests/utils/redir.pp
View File

@ -31,6 +31,9 @@ Interface
{$ifdef Go32v2} {$ifdef Go32v2}
{$define implemented} {$define implemented}
{$endif} {$endif}
{$ifdef OS2}
{$define shell_implemented}
{$endif}
{$ifdef Win32} {$ifdef Win32}
{$define implemented} {$define implemented}
{$endif} {$endif}
@ -214,6 +217,14 @@ begin
end; end;
{$endif} {$endif}
{$ifdef os2}
Function FdClose (Handle : Longint) : boolean;
begin
{ Do we need this ?? }
FdClose:=true;
end;
{$endif}
{$ifdef TP} {$ifdef TP}
Function FdClose (Handle : Longint) : boolean; Function FdClose (Handle : Longint) : boolean;
begin begin
@ -612,10 +623,29 @@ end;
Fake Fake
*****************************************************************************} *****************************************************************************}
{$IFDEF SHELL_IMPLEMENTED}
function ExecuteRedir (Const ProgName, ComLine, RedirStdIn, RedirStdOut, RedirStdErr: String): boolean;
var
CmdLine2: string;
begin
CmdLine2 := ComLine;
if RedirStdIn <> '' then CmdLine2 := CmdLine2 + ' < ' + RedirStdIn;
if RedirStdOut <> '' then CmdLine2 := CmdLine2 + ' > ' + RedirStdOut;
if RedirStdErr <> '' then
begin
if RedirStdErr = RedirStdOut
then CmdLine2 := CmdLine2 + ' 2>&1'
else CmdLine2 := CmdLine2 + ' 2> ' + RedirStdErr;
end;
DosExecute (ProgName, CmdLine2);
ExecuteRedir := true;
end;
{$ELSE SHELL_IMPLEMENTED}
function ExecuteRedir (Const ProgName, ComLine, RedirStdIn, RedirStdOut, RedirStdErr : String) : boolean; function ExecuteRedir (Const ProgName, ComLine, RedirStdIn, RedirStdOut, RedirStdErr : String) : boolean;
begin begin
ExecuteRedir:=false; ExecuteRedir:=false;
end; end;
{$ENDIF SHELL_IMPLEMENTED}
function ChangeRedirOut(Const Redir : String; AppendToFile : Boolean) : Boolean; function ChangeRedirOut(Const Redir : String; AppendToFile : Boolean) : Boolean;
begin begin
@ -757,7 +787,10 @@ finalization
End. End.
{ {
$Log$ $Log$
Revision 1.6 2001-07-01 20:13:50 peter Revision 1.7 2002-02-24 20:07:23 hajny
* dummy implementation for OS/2
Revision 1.6 2001/07/01 20:13:50 peter
* udpated for dos * udpated for dos
Revision 1.5 2001/02/03 00:13:34 peter Revision 1.5 2001/02/03 00:13:34 peter