paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 10:20:21 +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}
{$define implemented}
{$endif}
{$ifdef OS2}
{$define shell_implemented}
{$endif}
{$ifdef Win32}
{$define implemented}
{$endif}
@ -214,6 +217,14 @@ begin
end;
{$endif}
{$ifdef os2}
Function FdClose (Handle : Longint) : boolean;
begin
{ Do we need this ?? }
FdClose:=true;
end;
{$endif}
{$ifdef TP}
Function FdClose (Handle : Longint) : boolean;
begin
@ -612,10 +623,29 @@ end;
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;
begin
ExecuteRedir:=false;
end;
{$ENDIF SHELL_IMPLEMENTED}
function ChangeRedirOut(Const Redir : String; AppendToFile : Boolean) : Boolean;
begin
@ -757,7 +787,10 @@ finalization
End.
{
$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
Revision 1.5 2001/02/03 00:13:34 peter