perlproc.h

   1 #ifndef H_PERLPROC
   2 #define H_PERLPROC 1
   3
   4 #ifdef PERL_OBJECT
   5
   6 #include "ipproc.h"
   7
   8 #define PerlProc_abort() piProc->Abort()
   9 #define PerlProc_exit(s) piProc->Exit((s))
  10 #define PerlProc__exit(s) piProc->_Exit((s))
  11 #define PerlProc_execl(c, w, x, y, z) piProc->Execl((c), (w), (x), (y), (z))
  12 #define PerlProc_execv(c, a) piProc->Execv((c), (a))
  13 #define PerlProc_execvp(c, a) piProc->Execvp((c), (a))
  14 #define PerlProc_getuid() piProc->Getuid()
  15 #define PerlProc_geteuid() piProc->Geteuid()
  16 #define PerlProc_getgid() piProc->Getgid()
  17 #define PerlProc_getegid() piProc->Getegid()
  18 #define PerlProc_getlogin() piProc->Getlogin()
  19 #define PerlProc_kill(i, a) piProc->Kill((i), (a))
  20 #define PerlProc_killpg(i, a) piProc->Killpg((i), (a))
  21 #define PerlProc_pause() piProc->PauseProc()
  22 #define PerlProc_popen(c, m) piProc->Popen((c), (m))
  23 #define PerlProc_pclose(f) piProc->Pclose((f))
  24 #define PerlProc_pipe(fd) piProc->Pipe((fd))
  25 #define PerlProc_setuid(u) piProc->Setuid((u))
  26 #define PerlProc_setgid(g) piProc->Setgid((g))
  27 #define PerlProc_sleep(t) piProc->Sleep((t))
  28 #define PerlProc_times(t) piProc->Times((t))
  29 #define PerlProc_wait(t) piProc->Wait((t))
  30 #define PerlProc_setjmp(b, n) Sigsetjmp((b), (n))
  31 #define PerlProc_longjmp(b, n) Siglongjmp((b), (n))
  32 #define PerlProc_signal(n, h) piProc->Signal((n), (h))
  33 #ifdef WIN32
  34 #define PerlProc_GetSysMsg(s,l,e) piProc->GetSysMsg((s), (l), (e))
  35 #define PerlProc_FreeBuf(s) piProc->FreeBuf((s))
  36 #define PerlProc_Cmd(s) piProc->DoCmd((s))
  37 #define do_spawn(s) piProc->Spawn((s))
  38 #define do_spawnvp(m, c, a) piProc->Spawnvp((m), (c), (a))
  39 #define PerlProc_aspawn(m, c, a) piProc->ASpawn((m), (c), (a))
  40 #endif
  41 #else
  42 #define PerlProc_abort() abort()
  43 #define PerlProc_exit(s) exit((s))
  44 #define PerlProc__exit(s) _exit((s))
  45 #define PerlProc_execl(c, w, x, y, z) execl((c), (w), (x), (y), (z))
  46 #define PerlProc_execv(c, a) execv((c), (a))
  47 #define PerlProc_execvp(c, a) execvp((c), (a))
  48 #define PerlProc_getuid() getuid()
  49 #define PerlProc_geteuid() geteuid()
  50 #define PerlProc_getgid() getgid()
  51 #define PerlProc_getegid() getegid()
  52 #define PerlProc_getlogin() getlogin()
  53 #define PerlProc_kill(i, a) kill((i), (a))
  54 #define PerlProc_killpg(i, a) killpg((i), (a))
  55 #define PerlProc_pause() Pause()
  56 #define PerlProc_popen(c, m) my_popen((c), (m))
  57 #define PerlProc_pclose(f) my_pclose((f))
  58 #define PerlProc_pipe(fd) pipe((fd))
  59 #define PerlProc_setuid(u) setuid((u))
  60 #define PerlProc_setgid(g) setgid((g))
  61 #define PerlProc_sleep(t) sleep((t))
  62 #define PerlProc_times(t) times((t))
  63 #define PerlProc_wait(t) wait((t))
  64 #define PerlProc_setjmp(b, n) Sigsetjmp((b), (n))
  65 #define PerlProc_longjmp(b, n) Siglongjmp((b), (n))
  66 #define PerlProc_signal(n, h) signal((n), (h))
  67 #endif  /* PERL_OBJECT */
  68
  69 #endif /* Include guard */