various win32 odds and ends
[p5sagit/p5-mst-13.2.git] / perlproc.h
CommitLineData
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))
f55ee38a 30#define PerlProc_waitpid(p, s, f) piProc->Waitpid((p), (s), (f))
0824fdcb 31#define PerlProc_setjmp(b, n) Sigsetjmp((b), (n))
32#define PerlProc_longjmp(b, n) Siglongjmp((b), (n))
33#define PerlProc_signal(n, h) piProc->Signal((n), (h))
34#ifdef WIN32
35#define PerlProc_GetSysMsg(s,l,e) piProc->GetSysMsg((s), (l), (e))
36#define PerlProc_FreeBuf(s) piProc->FreeBuf((s))
37#define PerlProc_Cmd(s) piProc->DoCmd((s))
38#define do_spawn(s) piProc->Spawn((s))
39#define do_spawnvp(m, c, a) piProc->Spawnvp((m), (c), (a))
40#define PerlProc_aspawn(m, c, a) piProc->ASpawn((m), (c), (a))
41#endif
3028581b 42#else
43#define PerlProc_abort() abort()
44#define PerlProc_exit(s) exit((s))
45#define PerlProc__exit(s) _exit((s))
46#define PerlProc_execl(c, w, x, y, z) execl((c), (w), (x), (y), (z))
47#define PerlProc_execv(c, a) execv((c), (a))
48#define PerlProc_execvp(c, a) execvp((c), (a))
0824fdcb 49#define PerlProc_getuid() getuid()
50#define PerlProc_geteuid() geteuid()
51#define PerlProc_getgid() getgid()
52#define PerlProc_getegid() getegid()
53#define PerlProc_getlogin() getlogin()
3028581b 54#define PerlProc_kill(i, a) kill((i), (a))
55#define PerlProc_killpg(i, a) killpg((i), (a))
0824fdcb 56#define PerlProc_pause() Pause()
3028581b 57#define PerlProc_popen(c, m) my_popen((c), (m))
58#define PerlProc_pclose(f) my_pclose((f))
59#define PerlProc_pipe(fd) pipe((fd))
0824fdcb 60#define PerlProc_setuid(u) setuid((u))
61#define PerlProc_setgid(g) setgid((g))
62#define PerlProc_sleep(t) sleep((t))
63#define PerlProc_times(t) times((t))
64#define PerlProc_wait(t) wait((t))
f55ee38a 65#define PerlProc_waitpid(p, s, f) waitpid((p), (s), (f))
3028581b 66#define PerlProc_setjmp(b, n) Sigsetjmp((b), (n))
67#define PerlProc_longjmp(b, n) Siglongjmp((b), (n))
68#define PerlProc_signal(n, h) signal((n), (h))
69#endif /* PERL_OBJECT */
70
71#endif /* Include guard */