fpc/rtl/linux/unixfunc.inc

{
   $Id$
   This file is part of the Free Pascal run time library.
   Copyright (c) 1999-2000 by Michael Van Canneyt,
     member of the Free Pascal development team.

   See the file COPYING.FPC, included in this distribution,
   for details about the copyright.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY;without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

**********************************************************************}

Function AssignPipe(var pipe_in,pipe_out:cint):cint; [public, alias : 'FPC_SYSC_ASSIGNPIPE'];

{
  Sets up a pair of file variables, which act as a pipe. The first one can
  be read from, the second one can be written to.
  If the operation was unsuccesful, linuxerror is set.
}
var
  pip  : tpipe;
begin
  {$ifdef FPC_USE_LIBC}
  assignpipe:=pipe(pip);
  {$else}
  assignPipe:=do_SysCall(SysCall_nr_pipe,TSysParam(@pip));
  {$endif}
  pipe_in:=pip[0];
  pipe_out:=pip[1];
end;

Function PClose(Var F:text) :cint;
var
  pl  : ^cint;
  res : cint;
begin
  fpclose(Textrec(F).Handle);
{ closed our side, Now wait for the other - this appears to be needed ?? }
  pl:=@(textrec(f).userdata[2]);
  fpwaitpid(pl^,@res,0);
  pclose:=res shr 8;
end;

Function PClose(Var F:file) : cint;
var
  pl : ^cint;
  res : cint;
begin
  fpclose(filerec(F).Handle);
{ closed our side, Now wait for the other - this appears to be needed ?? }
  pl:=@(filerec(f).userdata[2]);
  fpwaitpid(pl^,@res,0);
  pclose:=res shr 8;
end;


{
  $Log$
  Revision 1.1  2005-02-13 20:01:38  peter
    * include file cleanup

  Revision 1.27  2004/04/28 20:48:20  peter
    * ordinal-pointer conversions fixed

  Revision 1.26  2004/04/23 19:16:24  marco
   * flock -> fpflock because of conflicting structure name

  Revision 1.25  2004/01/02 22:46:29  marco
   * fix from Marc W.

  Revision 1.24  2003/12/31 20:23:31  marco
   * small fixes for exporting statfs(pchar,..)

  Revision 1.23  2003/12/30 15:43:20  marco
   * linux now compiles with FPC_USE_LIBC

  Revision 1.22  2003/12/30 12:36:56  marco
   * FPC_USE_LIBC

  Revision 1.21  2003/11/19 11:46:55  marco
   * changes due to the previous *BSD changes. Mainly moving constants from
     unix to systypes.inc (which acts as unxtypes.inc)

  Revision 1.20  2003/11/17 10:21:47  marco
   * small fixes for changing unit unix again

  Revision 1.19  2003/11/17 10:05:51  marco
   * threads for FreeBSD. Not working tho

  Revision 1.18  2003/11/13 17:40:12  marco
   * small fixes

  Revision 1.17  2003/11/13 13:36:23  marco
   * Linuxerror removed

  Revision 1.16  2003/11/09 13:48:55  marco
   * small fix

  Revision 1.15  2003/10/30 16:42:25  marco
   * Killing off old syscall convention anywhere except for oldlinux

  Revision 1.14  2003/10/17 22:11:28  olle
    * changed i386 to cpui386

  Revision 1.13  2003/09/20 12:45:34  marco
   * Small fix. Cycle works

  Revision 1.12  2003/09/16 21:46:27  marco
   * small fixes, checking things on linux

  Revision 1.11  2003/09/15 21:07:32  marco
   * second round of linux fixes. oldlinux now works

  Revision 1.10  2003/09/14 20:15:01  marco
   * Unix reform stage two. Remove all calls from Unix that exist in Baseunix.

  Revision 1.9  2003/07/08 21:23:24  peter
    * sparc fixes

  Revision 1.8  2002/12/18 16:43:26  marco
   * new unix rtl, linux part.....

  Revision 1.7  2002/09/07 16:01:20  peter
    * old logs removed and tabs fixed

  Revision 1.6  2002/03/05 20:04:25  michael
  + Patch from Sebastian for FCNTL call

}