2
$Id: unxfunc.inc,v 1.3 2005/03/25 22:53:39 jonas Exp $
3
This file is part of the Free Component Library (FCL)
4
Copyright (c) 1999-2000 by Peter Vreman
6
Darwin temporary pclose/assignpipe implementation
8
See the file COPYING.FPC, included in this distribution,
9
for details about the copyright.
11
This program is distributed in the hope that it will be useful,
12
but WITHOUT ANY WARRANTY; without even the implied warranty of
13
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
15
**********************************************************************}
19
Function PClose(Var F:file) : cint;
24
fpclose(filerec(F).Handle);
25
{ closed our side, Now wait for the other - this appears to be needed ?? }
26
pl:=@(filerec(f).userdata[2]);
27
pclose := WaitProcess(pl^);
30
Function PClose(Var F:text) :cint;
35
fpclose(Textrec(F).Handle);
36
{ closed our side, Now wait for the other - this appears to be needed ?? }
37
pl:=@(textrec(f).userdata[2]);
38
pclose:= WaitProcess(pl^);
42
// can't have oldfpccall here, linux doesn't need it.
43
Function AssignPipe(var pipe_in,pipe_out:cint):cint; [public, alias : 'FPC_SYSC_ASSIGNPIPE'];
45
Sets up a pair of file variables, which act as a pipe. The first one can
46
be read from, the second one can be written to.
47
If the operation was unsuccesful, linuxerror is set.
51
fdis : array[0..1] of cint;
64
Revision 1.3 2005/03/25 22:53:39 jonas
65
* fixed several warnings and notes about unused variables (mainly) or
66
uninitialised use of variables/function results (a few)
68
Revision 1.2 2005/02/14 17:13:22 peter
71
Revision 1.1 2005/02/13 21:47:56 peter
72
* include file cleanup part 2
74
Revision 1.1 2005/02/13 20:01:37 peter
75
* include file cleanup