[perl5.git] / perlproc.h

#ifndef H_PERLPROC
#define H_PERLPROC 1

#ifdef PERL_OBJECT
#else
#define PerlProc_abort() abort()
#define PerlProc_exit(s) exit((s))
#define PerlProc__exit(s) _exit((s))
#define PerlProc_execl(c, w, x, y, z) execl((c), (w), (x), (y), (z))
#define PerlProc_execv(c, a) execv((c), (a))
#define PerlProc_execvp(c, a) execvp((c), (a))
#define PerlProc_kill(i, a) kill((i), (a))
#define PerlProc_killpg(i, a) killpg((i), (a))
#define PerlProc_popen(c, m) my_popen((c), (m))
#define PerlProc_pclose(f) my_pclose((f))
#define PerlProc_pipe(fd) pipe((fd))
#define PerlProc_setjmp(b, n) Sigsetjmp((b), (n))
#define PerlProc_longjmp(b, n) Siglongjmp((b), (n))
#define PerlProc_signal(n, h) signal((n), (h))
#endif	/* PERL_OBJECT */

#endif /* Include guard */
Commit	Line	Data
3028581b GS	1	#ifndef H_PERLPROC
	2	#define H_PERLPROC 1
	3
	4	#ifdef PERL_OBJECT
	5	#else
	6	#define PerlProc_abort() abort()
	7	#define PerlProc_exit(s) exit((s))
	8	#define PerlProc__exit(s) _exit((s))
	9	#define PerlProc_execl(c, w, x, y, z) execl((c), (w), (x), (y), (z))
	10	#define PerlProc_execv(c, a) execv((c), (a))
	11	#define PerlProc_execvp(c, a) execvp((c), (a))
	12	#define PerlProc_kill(i, a) kill((i), (a))
	13	#define PerlProc_killpg(i, a) killpg((i), (a))
	14	#define PerlProc_popen(c, m) my_popen((c), (m))
	15	#define PerlProc_pclose(f) my_pclose((f))
	16	#define PerlProc_pipe(fd) pipe((fd))
	17	#define PerlProc_setjmp(b, n) Sigsetjmp((b), (n))
	18	#define PerlProc_longjmp(b, n) Siglongjmp((b), (n))
	19	#define PerlProc_signal(n, h) signal((n), (h))
	20	#endif /* PERL_OBJECT */
	21
	22	#endif /* Include guard */