| Commit | Line | Data |
|---|
| 3028581b |
1 | #ifndef H_PERLPROC |
| 2 | #define H_PERLPROC 1 |
| 3 | |
| 4 | #ifdef PERL_OBJECT |
| 0824fdcb |
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 |
| 3028581b |
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)) |
| 0824fdcb |
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() |
| 3028581b |
53 | #define PerlProc_kill(i, a) kill((i), (a)) |
| 54 | #define PerlProc_killpg(i, a) killpg((i), (a)) |
| 0824fdcb |
55 | #define PerlProc_pause() Pause() |
| 3028581b |
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)) |
| 0824fdcb |
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)) |
| 3028581b |
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 */ |
projects / p5sagit/p5-mst-13.2.git / blame