Inicio Explorar Axuda
Iniciar sesión
pascal
/
fpc
réplica de https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Ficheiros Incidencias 0 Wiki
Rama: svn/fixes_2_2_0_dos
Ramas Etiquetas
fpc
/
packages
/
base
/
libc
/
swaith.inc

swaith.inc 1.6 KB
Permalink Histórico Raw

12345678910111213141516171819202122232425262728293031323334 
  1. 

  2. 

  3. type
    4. 

  4.   Pidtype_t = ^idtype_t;
    5. 

  5.   idtype_t =  (P_ALL,P_PID,P_PGID);
    6. 

  6. 

  7. { // used to be three constants. Why borland decided to change this is a total mystery...
    8. 

  8.        Const
    9. 

  9.          P_ALL = 0;
    10. 

  10.          P_PID = 1;
    11. 

  11.          P_PGID = 2;
    12. 

  12. }
    13. 

  13. 

  14. const
    15. 

  15.   WAIT_ANY = -(1);
    16. 

  16.   WAIT_MYPGRP = 0;
    17. 

  17. 

  18. function wait(__stat_loc:PLongint):__pid_t;cdecl;external clib name 'wait';
    19. 

  19. function waitpid(__pid:__pid_t; __stat_loc:Plongint; __options:longint):__pid_t;cdecl;external clib name 'waitpid';
    20. 

  20. function waitid(__idtype:idtype_t; __id:__id_t; __infop:Psiginfo_t; __options:longint):longint;cdecl;external clib name 'waitid';
    21. 

  21. function wait3(__stat_loc: Plongint; __options:longint; __usage:Prusage):__pid_t;cdecl;external clib name 'wait3';
    22. 

  22. function wait4(__pid:__pid_t; __stat_loc: Plongint; __options:longint; __usage:Prusage):__pid_t;cdecl;external clib name 'wait4';
    23. 

  23. 

  24. 

  25. { ---------------------------------------------------------------------
    26. 

  26.     Borland compatibility types
    27. 

  27.   ---------------------------------------------------------------------}
    28. 

  28. 

  29. // Type
    30. 

  30. function wait(var __stat_loc: Longint):__pid_t;cdecl;external clib name 'wait';
    31. 

  31. function waitpid(__pid:__pid_t; var __stat_loc:longint; __options:longint):__pid_t;cdecl;external clib name 'waitpid';
    32. 

  32. function waitid(__idtype:idtype_t; __id:__id_t; var __infop: siginfo_t; __options:longint):longint;cdecl;external clib name 'waitid';
    33. 

  33. function wait3(var __stat_loc: longint; __options:longint; var __usage:rusage):__pid_t;cdecl;external clib name 'wait3';
    34. 

  34. function wait4(__pid:__pid_t; var __stat_loc: longint; __options:longint; var __usage: rusage):__pid_t;cdecl;external clib name 'wait4';
    35.