perl5.002beta3
[perl.git] / os2 / os2ish.h
1 #include <signal.h>
2
3 /* HAS_IOCTL:
4  *      This symbol, if defined, indicates that the ioctl() routine is
5  *      available to set I/O characteristics
6  */
7 #define HAS_IOCTL               /**/
8  
9 /* HAS_UTIME:
10  *      This symbol, if defined, indicates that the routine utime() is
11  *      available to update the access and modification times of files.
12  */
13 #define HAS_UTIME               /**/
14
15 #define HAS_KILL
16 #define HAS_WAIT
17
18 #ifndef SIGABRT
19 #    define SIGABRT SIGILL
20 #endif
21 #ifndef SIGILL
22 #    define SIGILL 6         /* blech */
23 #endif
24 #define ABORT() kill(getpid(),SIGABRT);
25
26 #define BIT_BUCKET "/dev/null"  /* Will this work? */
27
28 #define PERL_SYS_INIT(argcp, argvp) do {        \
29     _response(argcp, argvp);                    \
30     _wildcard(argcp, argvp); } while (0)
31
32
33 /*
34  * fwrite1() should be a routine with the same calling sequence as fwrite(),
35  * but which outputs all of the bytes requested as a single stream (unlike
36  * fwrite() itself, which on some systems outputs several distinct records
37  * if the number_of_items parameter is >1).
38  */
39 #define fwrite1 fwrite
40
41 #define my_getenv(var) getenv(var)
42
43 /*****************************************************************************/
44
45 #include <stdlib.h>     /* before the following definitions */
46 #include <unistd.h>     /* before the following definitions */
47
48 #define chdir   _chdir2
49 #define getcwd  _getcwd2
50
51 /* This guy is needed for quick stdstd  */
52
53 #if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE) && defined(STDIO_CNT_LVALUE)
54 #  define _filbuf _fill
55         /* Perl uses ungetc only with successful return */
56 #  define ungetc(c,fp) \
57         (FILE_ptr(fp) > FILE_base(fp) && c == (int)*(FILE_ptr(fp) - 1) \
58          ? (--FILE_ptr(fp), ++FILE_cnt(fp), (int)c) : ungetc(c,fp))
59 #endif
60
61 #define OP_BINARY O_BINARY
62
63 #define OS2_STAT_HACK 1
64 #if OS2_STAT_HACK
65
66 #define Stat(fname,bufptr) os2_stat((fname),(bufptr))
67 #define Fstat(fd,bufptr)   fstat((fd),(bufptr))
68
69 #undef S_IFBLK
70 #undef S_ISBLK
71 #define S_IFBLK         0120000
72 #define S_ISBLK(mode)   (((mode) & S_IFMT) == S_IFBLK)
73
74 #else
75
76 #define Stat(fname,bufptr) stat((fname),(bufptr))
77 #define Fstat(fd,bufptr)   fstat((fd),(bufptr))
78
79 #endif