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

* native os/2 implementation without using shell redirection

Browse Source 
git-svn-id: trunk@28815 -
This commit is contained in:
Tomas Hajny 2014-10-13 16:41:46 +00:00
parent ff583bde6c
commit f33c59376a
1 changed files with 77 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
tests/utils/redir.pp
View File

@ -30,7 +30,7 @@ Interface
{$define implemented} {$define implemented}
{$endif} {$endif}
{$ifdef OS2} {$ifdef OS2}
{$define shell_implemented} {$define implemented}
{$endif} {$endif}
{$ifdef windows} {$ifdef windows}
{$define implemented} {$define implemented}
@ -104,6 +104,11 @@ Uses
{$ifdef windows} {$ifdef windows}
windows, windows,
{$endif windows} {$endif windows}
{$IFDEF OS2}
{$IFNDEF EMX}
DosCalls,
{$ENDIF EMX}
{$ENDIF OS2}
{$ifdef unix} {$ifdef unix}
baseunix, baseunix,
unix, unix,
@ -328,13 +333,78 @@ begin
end; end;
{$endif} {$endif}
{$ifdef os2} {$IFDEF OS2}
Function fpclose (Handle : Longint) : boolean; {$IFDEF EMX}
begin {$ASMMODE INTEL}
{ Do we need this ?? } function fpDup (FH: longint): longint; assembler;
fpclose:=true; asm
mov ebx, eax
mov ah, 45h
call syscall
jnc @fpdup_end
mov eax, -1
@fpdup_end:
end; end;
{$endif}
function fpDup2 (FH, NH: longint): longint; assembler;
asm
cmp eax, edx
jnz @fpdup2_go
mov eax, 0
jmp @fpdup2_end
@fpdup2_go:
push ebx
mov ebx, eax
mov ecx, edx
mov ah, 46h
call syscall
pop ebx
jnc @fpdup2_end
mov eax, -1
@fpdup2_end:
end;
function fpClose (Handle: longint): boolean; assembler;
asm
push ebx
mov ebx, eax
mov ah, 3Eh
call syscall
pop ebx
mov eax, 1
jnc @fpclose_end
dec eax
end;
{$ASMMODE DEFAULT}
{$ELSE EMX}
function fpDup (FH: longint): longint;
var
NH: THandle;
begin
NH := THandle (-1);
if DosDupHandle (THandle (FH), NH) = 0 then
fpDup := longint (NH)
else
fpDup := -1;
end;
function fpDup2 (FH, NH: longint): longint;
begin
if FH = NH then
fpDup2 := 0
else
if DosDupHandle (THandle (FH), THandle (NH)) <> 0 then
fpDup2 := -1;
end;
function fpClose (Handle: longint): boolean;
begin
fpClose := DosClose (THandle (Handle)) = 0;
end;
{$ENDIF EMX}
{$ENDIF OS2}
{$I-} {$I-}