diff options
| author | Ilya Zakharevich <ilya@math.ohio-state.edu> | 1996-10-09 22:29:44 -0400 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-10-09 22:29:44 -0400 |
| commit | 4a6a15c8dfc6909e46278e040ac777dc6d869de7 (patch) | |
| tree | aa2df61a7f5ce92d6be70bba1e9958005485c151 | |
| parent | 3bbf9c2bc59c6ee82df03650eca03d8d1d6f9de3 (diff) | |
| download | perl-4a6a15c8dfc6909e46278e040ac777dc6d869de7.tar.gz | |
perl 5.003_07: os2/os2ish.h
Date: Wed, 9 Oct 1996 22:29:44 -0400 (EDT)
From: Ilya Zakharevich <ilya@math.ohio-state.edu>
sys/un.h is not very useful without Merlin toolkit.
updates for fork()ing.
| -rw-r--r-- | os2/os2ish.h | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/os2/os2ish.h b/os2/os2ish.h index 7d5e8538ea..6510a1f145 100644 --- a/os2/os2ish.h +++ b/os2/os2ish.h @@ -53,6 +53,11 @@ */ #define SH_PATH_INI SH_PATH /**/ +#if defined(I_SYS_UN) && !defined(TCPIPV4) +/* It is not working without TCPIPV4 defined. */ +# undef I_SYS_UN +#endif + void Perl_OS2_init(); #define PERL_SYS_INIT(argcp, argvp) STMT_START { \ @@ -68,22 +73,32 @@ void Perl_OS2_init(); #define dXSUB_SYS int fake = OS2_XS_init() #ifdef PERL_IS_AOUT -# define HAS_FORK +/* # define HAS_FORK */ /* # define HIDEMYMALLOC */ /* # define PERL_SBRK_VIA_MALLOC */ /* gets off-page sbrk... */ #else /* !PERL_IS_AOUT */ # ifndef PERL_FOR_X2P -# define USE_PERL_SBRK +# ifdef EMX_BAD_SBRK +# define USE_PERL_SBRK +# endif +# else +# define PerlIO FILE # endif # define SYSTEM_ALLOC(a) sys_alloc(a) void *sys_alloc(int size); #endif /* !PERL_IS_AOUT */ +#if !defined(PERL_CORE) && !defined(PerlIO) /* a2p */ +# define PerlIO FILE +#endif #define TMPPATH tmppath #define TMPPATH1 "plXXXXXX" extern char *tmppath; +PerlIO *my_syspopen(char *cmd, char *mode); +/* Cannot prototype with I32 at this point. */ +int my_syspclose(PerlIO *f); /* * fwrite1() should be a routine with the same calling sequence as fwrite(), @@ -158,7 +173,7 @@ extern OS2_Perl_data_t OS2_Perl_data; #define set_Perl_HAB(h) (set_Perl_HAB_f, Perl_hab = h) #define OS2_XS_init() (*OS2_Perl_data.xs_init)() /* The expressions below return true on error. */ -/* INCL_DOSERRORS needed. */ +/* INCL_DOSERRORS needed. rc should be declared outside. */ #define CheckOSError(expr) (!(rc = (expr)) ? 0 : (FillOSError(rc), 1)) /* INCL_WINERRORS needed. */ #define SaveWinError(expr) ((expr) ? : (FillWinError, 0)) |