home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl_blb.zip / os2 / 5.00455 / CORE / os2ish.h < prev    next >
C/C++ Source or Header  |  1997-11-26  |  13KB  |  493 lines
  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. #define HAS_DLERROR
  18. #define HAS_WAITPID_RUNTIME (_emx_env & 0x200)
  19.  
  20. /* USEMYBINMODE
  21.  *    This symbol, if defined, indicates that the program should
  22.  *    use the routine my_binmode(FILE *fp, char iotype) to insure
  23.  *    that a file is in "binary" mode -- that is, that no translation
  24.  *    of bytes occurs on read or write operations.
  25.  */
  26. #undef USEMYBINMODE
  27.  
  28. /* USE_STAT_RDEV:
  29.  *    This symbol is defined if this system has a stat structure declaring
  30.  *    st_rdev
  31.  */
  32. #define USE_STAT_RDEV     /**/
  33.  
  34. /* ACME_MESS:
  35.  *    This symbol, if defined, indicates that error messages should be 
  36.  *    should be generated in a format that allows the use of the Acme
  37.  *    GUI/editor's autofind feature.
  38.  */
  39. #undef ACME_MESS    /**/
  40.  
  41. /* ALTERNATE_SHEBANG:
  42.  *    This symbol, if defined, contains a "magic" string which may be used
  43.  *    as the first line of a Perl program designed to be executed directly
  44.  *    by name, instead of the standard Unix #!.  If ALTERNATE_SHEBANG
  45.  *    begins with a character other then #, then Perl will only treat
  46.  *    it as a command line if if finds the string "perl" in the first
  47.  *    word; otherwise it's treated as the first line of code in the script.
  48.  *    (IOW, Perl won't hand off to another interpreter via an alternate
  49.  *    shebang sequence that might be legal Perl code.)
  50.  */
  51. #define ALTERNATE_SHEBANG "extproc "
  52.  
  53. #ifndef SIGABRT
  54. #    define SIGABRT SIGILL
  55. #endif
  56. #ifndef SIGILL
  57. #    define SIGILL 6         /* blech */
  58. #endif
  59. #define ABORT() kill(getpid(),SIGABRT);
  60.  
  61. #define BIT_BUCKET "/dev/nul"  /* Will this work? */
  62.  
  63. #if defined(I_SYS_UN) && !defined(TCPIPV4)
  64. /* It is not working without TCPIPV4 defined. */
  65. # undef I_SYS_UN
  66. #endif 
  67.  
  68. #ifdef USE_THREADS
  69.  
  70. #define OS2_ERROR_ALREADY_POSTED 299    /* Avoid os2.h */
  71.  
  72. extern int rc;
  73.  
  74. #define MUTEX_INIT(m) \
  75.     STMT_START {                        \
  76.     int rc;                            \
  77.     if ((rc = _rmutex_create(m,0)))                \
  78.         croak("panic: MUTEX_INIT: rc=%i", rc);        \
  79.     } STMT_END
  80. #define MUTEX_LOCK(m) \
  81.     STMT_START {                        \
  82.     int rc;                            \
  83.     if ((rc = _rmutex_request(m,_FMR_IGNINT)))        \
  84.         croak("panic: MUTEX_LOCK: rc=%i", rc);        \
  85.     } STMT_END
  86. #define MUTEX_UNLOCK(m) \
  87.     STMT_START {                        \
  88.     int rc;                            \
  89.     if ((rc = _rmutex_release(m)))                \
  90.         croak("panic: MUTEX_UNLOCK: rc=%i", rc);        \
  91.     } STMT_END
  92. #define MUTEX_DESTROY(m) \
  93.     STMT_START {                        \
  94.     int rc;                            \
  95.     if ((rc = _rmutex_close(m)))                \
  96.         croak("panic: MUTEX_DESTROY: rc=%i", rc);        \
  97.     } STMT_END
  98.  
  99. #define COND_INIT(c) \
  100.     STMT_START {                        \
  101.     int rc;                            \
  102.     if ((rc = DosCreateEventSem(NULL,c,0,0)))        \
  103.         croak("panic: COND_INIT: rc=%i", rc);        \
  104.     } STMT_END
  105. #define COND_SIGNAL(c) \
  106.     STMT_START {                        \
  107.     int rc;                            \
  108.     if ((rc = DosPostEventSem(*(c))) && rc != OS2_ERROR_ALREADY_POSTED)        \
  109.         croak("panic: COND_SIGNAL, rc=%ld", rc);        \
  110.     } STMT_END
  111. #define COND_BROADCAST(c) \
  112.     STMT_START {                        \
  113.     int rc;                            \
  114.     if ((rc = DosPostEventSem(*(c))) && rc != OS2_ERROR_ALREADY_POSTED)\
  115.         croak("panic: COND_BROADCAST, rc=%i", rc);        \
  116.     } STMT_END
  117. /* #define COND_WAIT(c, m) \
  118.     STMT_START {                        \
  119.     if (WaitForSingleObject(*(c),INFINITE) == WAIT_FAILED)    \
  120.         croak("panic: COND_WAIT");                \
  121.     } STMT_END
  122. */
  123. #define COND_WAIT(c, m) os2_cond_wait(c,m)
  124.  
  125. #define COND_WAIT_win32(c, m) \
  126.     STMT_START {                        \
  127.     int rc;                            \
  128.     if ((rc = SignalObjectAndWait(*(m),*(c),INFINITE,FALSE)))\
  129.         croak("panic: COND_WAIT");                \
  130.     else                            \
  131.         MUTEX_LOCK(m);                    \
  132.     } STMT_END
  133. #define COND_DESTROY(c) \
  134.     STMT_START {                        \
  135.     int rc;                            \
  136.     if ((rc = DosCloseEventSem(*(c))))            \
  137.         croak("panic: COND_DESTROY, rc=%i", rc);        \
  138.     } STMT_END
  139. /*#define THR ((struct thread *) TlsGetValue(thr_key))
  140. #define dTHR struct thread *thr = THR
  141. */
  142.  
  143. #define pthread_getspecific(k)        (*_threadstore())
  144. #define pthread_setspecific(k,v)    (*_threadstore()=v,0)
  145. #define pthread_self()            _gettid()
  146. #define pthread_key_create(keyp,flag)    (*keyp=_gettid(),0)
  147. #define sched_yield()    DosSleep(0)
  148.  
  149. #ifdef PTHREADS_INCLUDED        /* For ./x2p stuff. */
  150. int pthread_join(pthread_t tid, void **status);
  151. int pthread_detach(pthread_t tid);
  152. int pthread_create(pthread_t *tid, const pthread_attr_t *attr,
  153.            void *(*start_routine)(void*), void *arg);
  154. #endif 
  155.  
  156. #define THREADS_ELSEWHERE
  157.  
  158. #endif 
  159.  
  160. void Perl_OS2_init(char **);
  161.  
  162. /* XXX This code hideously puts env inside: */
  163.  
  164. #define PERL_SYS_INIT(argcp, argvp) STMT_START {    \
  165.     _response(argcp, argvp);            \
  166.     _wildcard(argcp, argvp);            \
  167.     Perl_OS2_init(env);    } STMT_END
  168.  
  169. #define PERL_SYS_TERM()        MALLOC_TERM
  170.  
  171. /* #define PERL_SYS_TERM() STMT_START {    \
  172.     if (Perl_HAB_set) WinTerminate(Perl_hab);    } STMT_END */
  173.  
  174. #define dXSUB_SYS OS2_XS_init()
  175.  
  176. #ifdef PERL_IS_AOUT
  177. /* #  define HAS_FORK */
  178. /* #  define HIDEMYMALLOC */
  179. /* #  define PERL_SBRK_VIA_MALLOC */ /* gets off-page sbrk... */
  180. #else /* !PERL_IS_AOUT */
  181. #  ifndef PERL_FOR_X2P
  182. #    ifdef EMX_BAD_SBRK
  183. #      define USE_PERL_SBRK
  184. #    endif 
  185. #  else
  186. #    define PerlIO FILE
  187. #  endif 
  188. #  define SYSTEM_ALLOC(a) sys_alloc(a)
  189.  
  190. void *sys_alloc(int size);
  191.  
  192. #endif /* !PERL_IS_AOUT */
  193. #if !defined(PERL_CORE) && !defined(PerlIO) /* a2p */
  194. #  define PerlIO FILE
  195. #endif 
  196.  
  197. #define TMPPATH tmppath
  198. #define TMPPATH1 "plXXXXXX"
  199. extern char *tmppath;
  200. PerlIO *my_syspopen(char *cmd, char *mode);
  201. /* Cannot prototype with I32 at this point. */
  202. int my_syspclose(PerlIO *f);
  203. FILE *my_tmpfile (void);
  204. char *my_tmpnam (char *);
  205.  
  206. #define tmpfile    my_tmpfile
  207. #define tmpnam    my_tmpnam
  208. #define isatty    _isterm
  209. #define rand    random
  210. #define srand    srandom
  211.  
  212. /*
  213.  * fwrite1() should be a routine with the same calling sequence as fwrite(),
  214.  * but which outputs all of the bytes requested as a single stream (unlike
  215.  * fwrite() itself, which on some systems outputs several distinct records
  216.  * if the number_of_items parameter is >1).
  217.  */
  218. #define fwrite1 fwrite
  219.  
  220. #define my_getenv(var) getenv(var)
  221. #define flock    my_flock
  222.  
  223. void *emx_calloc (size_t, size_t);
  224. void emx_free (void *);
  225. void *emx_malloc (size_t);
  226. void *emx_realloc (void *, size_t);
  227.  
  228. /*****************************************************************************/
  229.  
  230. #include <stdlib.h>    /* before the following definitions */
  231. #include <unistd.h>    /* before the following definitions */
  232.  
  233. #define chdir    _chdir2
  234. #define getcwd    _getcwd2
  235.  
  236. /* This guy is needed for quick stdstd  */
  237.  
  238. #if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE) && defined(STDIO_CNT_LVALUE)
  239.     /* Perl uses ungetc only with successful return */
  240. #  define ungetc(c,fp) \
  241.     (FILE_ptr(fp) > FILE_base(fp) && c == (int)*(FILE_ptr(fp) - 1) \
  242.      ? (--FILE_ptr(fp), ++FILE_cnt(fp), (int)c) : ungetc(c,fp))
  243. #endif
  244.  
  245. #define OP_BINARY O_BINARY
  246.  
  247. #define OS2_STAT_HACK 1
  248. #if OS2_STAT_HACK
  249.  
  250. #define Stat(fname,bufptr) os2_stat((fname),(bufptr))
  251. #define Fstat(fd,bufptr)   fstat((fd),(bufptr))
  252. #define Fflush(fp)         fflush(fp)
  253. #define Mkdir(path,mode)   mkdir((path),(mode))
  254.  
  255. #undef S_IFBLK
  256. #undef S_ISBLK
  257. #define S_IFBLK        0120000
  258. #define S_ISBLK(mode)    (((mode) & S_IFMT) == S_IFBLK)
  259.  
  260. #else
  261.  
  262. #define Stat(fname,bufptr) stat((fname),(bufptr))
  263. #define Fstat(fd,bufptr)   fstat((fd),(bufptr))
  264. #define Fflush(fp)         fflush(fp)
  265. #define Mkdir(path,mode)   mkdir((path),(mode))
  266.  
  267. #endif
  268.  
  269. /* With SD386 it is impossible to debug register variables. */
  270. #if !defined(PERL_IS_AOUT) && defined(DEBUGGING) && !defined(register)
  271. #  define register
  272. #endif
  273.  
  274. /* Our private OS/2 specific data. */
  275.  
  276. typedef struct OS2_Perl_data {
  277.   unsigned long flags;
  278.   unsigned long phab;
  279.   int (*xs_init)();
  280.   unsigned long rc;
  281.   unsigned long severity;
  282. } OS2_Perl_data_t;
  283.  
  284. extern OS2_Perl_data_t OS2_Perl_data;
  285.  
  286. #define Perl_hab        ((HAB)OS2_Perl_data.phab)
  287. #define Perl_rc            (OS2_Perl_data.rc)
  288. #define Perl_severity        (OS2_Perl_data.severity)
  289. #define errno_isOS2        12345678
  290. #define OS2_Perl_flags    (OS2_Perl_data.flags)
  291. #define Perl_HAB_set_f    1
  292. #define Perl_HAB_set    (OS2_Perl_flags & Perl_HAB_set_f)
  293. #define set_Perl_HAB_f    (OS2_Perl_flags |= Perl_HAB_set_f)
  294. #define set_Perl_HAB(h) (set_Perl_HAB_f, Perl_hab = h)
  295. #define OS2_XS_init() (*OS2_Perl_data.xs_init)()
  296. /* The expressions below return true on error. */
  297. /* INCL_DOSERRORS needed. rc should be declared outside. */
  298. #define CheckOSError(expr) (!(rc = (expr)) ? 0 : (FillOSError(rc), 1))
  299. /* INCL_WINERRORS needed. */
  300. #define SaveWinError(expr) ((expr) ? : (FillWinError, 0))
  301. #define CheckWinError(expr) ((expr) ? 0: (FillWinError, 1))
  302. #define FillOSError(rc) (Perl_rc = rc,                    \
  303.             errno = errno_isOS2,                \
  304.             Perl_severity = SEVERITY_ERROR) 
  305. #define FillWinError (Perl_rc = WinGetLastError(Perl_hab),        \
  306.             errno = errno_isOS2,                \
  307.             Perl_severity = ERRORIDSEV(Perl_rc),        \
  308.             Perl_rc = ERRORIDERROR(Perl_rc)) 
  309. #define Acquire_hab() if (!Perl_HAB_set) {                \
  310.        Perl_hab = WinInitialize(0);                    \
  311.        if (!Perl_hab) die("WinInitialize failed");            \
  312.        set_Perl_HAB_f;                        \
  313.     }
  314.  
  315. #define STATIC_FILE_LENGTH 127
  316.  
  317. #define PERLLIB_MANGLE(s, n) perllib_mangle((s), (n))
  318. char *perllib_mangle(char *, unsigned int);
  319.  
  320. char *os2error(int rc);
  321.  
  322. /* ************************************************************ */
  323. #define Dos32QuerySysState DosQuerySysState
  324. #define QuerySysState(flags, pid, buf, bufsz) \
  325.     Dos32QuerySysState(flags, 0,  pid, 0, buf, bufsz)
  326.  
  327. #define QSS_PROCESS    1
  328. #define QSS_MODULE    4
  329. #define QSS_SEMAPHORES    2
  330. #define QSS_FILE    8        /* Buggy until fixpack18 */
  331. #define QSS_SHARED    16
  332.  
  333. #ifdef _OS2EMX_H
  334.  
  335. APIRET APIENTRY Dos32QuerySysState(ULONG func,ULONG arg1,ULONG pid,
  336.             ULONG _res_,PVOID buf,ULONG bufsz);
  337. typedef struct {
  338.     ULONG    threadcnt;
  339.     ULONG    proccnt;
  340.     ULONG    modulecnt;
  341. } QGLOBAL, *PQGLOBAL;
  342.  
  343. typedef struct {
  344.     ULONG    rectype;
  345.     USHORT    threadid;
  346.     USHORT    slotid;
  347.     ULONG    sleepid;
  348.     ULONG    priority;
  349.     ULONG    systime;
  350.     ULONG    usertime;
  351.     UCHAR    state;
  352.     UCHAR    _reserved1_;    /* padding to ULONG */
  353.     USHORT    _reserved2_;    /* padding to ULONG */
  354. } QTHREAD, *PQTHREAD;
  355.  
  356. typedef struct {
  357.     USHORT    sfn;
  358.     USHORT    refcnt;
  359.     USHORT    flags1;
  360.     USHORT    flags2;
  361.     USHORT    accmode1;
  362.     USHORT    accmode2;
  363.     ULONG    filesize;
  364.     USHORT  volhnd;
  365.     USHORT    attrib;
  366.     USHORT    _reserved_;
  367. } QFDS, *PQFDS;
  368.  
  369. typedef struct qfile {
  370.     ULONG        rectype;
  371.     struct qfile    *next;
  372.     ULONG        opencnt;
  373.     PQFDS        filedata;
  374.     char        name[1];
  375. } QFILE, *PQFILE;
  376.  
  377. typedef struct {
  378.     ULONG    rectype;
  379.     PQTHREAD threads;
  380.     USHORT    pid;
  381.     USHORT    ppid;
  382.     ULONG    type;
  383.     ULONG    state;
  384.     ULONG    sessid;
  385.     USHORT    hndmod;
  386.     USHORT    threadcnt;
  387.     ULONG    privsem32cnt;
  388.     ULONG    _reserved2_;
  389.     USHORT    sem16cnt;
  390.     USHORT    dllcnt;
  391.     USHORT    shrmemcnt;
  392.     USHORT    fdscnt;
  393.     PUSHORT    sem16s;
  394.     PUSHORT    dlls;
  395.     PUSHORT    shrmems;
  396.     PUSHORT    fds;
  397. } QPROCESS, *PQPROCESS;
  398.  
  399. typedef struct sema {
  400.     struct sema *next;
  401.     USHORT    refcnt;
  402.     UCHAR    sysflags;
  403.     UCHAR    sysproccnt;
  404.     ULONG    _reserved1_;
  405.     USHORT    index;
  406.     CHAR    name[1];
  407. } QSEMA, *PQSEMA;
  408.  
  409. typedef struct {
  410.     ULONG    rectype;
  411.     ULONG    _reserved1_;
  412.     USHORT    _reserved2_;
  413.     USHORT    syssemidx;
  414.     ULONG    index;
  415.     QSEMA    sema;
  416. } QSEMSTRUC, *PQSEMSTRUC;
  417.  
  418. typedef struct {
  419.     USHORT    pid;
  420.     USHORT    opencnt;
  421. } QSEMOWNER32, *PQSEMOWNER32;
  422.  
  423. typedef struct {
  424.     PQSEMOWNER32    own;
  425.     PCHAR        name;
  426.     PVOID        semrecs; /* array of associated sema's */
  427.     USHORT        flags;
  428.     USHORT        semreccnt;
  429.     USHORT        waitcnt;
  430.     USHORT        _reserved_;    /* padding to ULONG */
  431. } QSEMSMUX32, *PQSEMSMUX32;
  432.  
  433. typedef struct {
  434.     PQSEMOWNER32    own;
  435.     PCHAR        name;
  436.     PQSEMSMUX32    mux;
  437.     USHORT        flags;
  438.     USHORT        postcnt;
  439. } QSEMEV32, *PQSEMEV32;
  440.  
  441. typedef struct {
  442.     PQSEMOWNER32    own;
  443.     PCHAR        name;
  444.     PQSEMSMUX32    mux;
  445.     USHORT        flags;
  446.     USHORT        refcnt;
  447.     USHORT        thrdnum;
  448.     USHORT        _reserved_;    /* padding to ULONG */
  449. } QSEMMUX32, *PQSEMMUX32;
  450.  
  451. typedef struct semstr32 {
  452.     struct semstr *next;
  453.     QSEMEV32 evsem;
  454.     QSEMMUX32  muxsem;
  455.     QSEMSMUX32 smuxsem;
  456. } QSEMSTRUC32, *PQSEMSTRUC32;
  457.  
  458. typedef struct shrmem {
  459.     struct shrmem *next;
  460.     USHORT    hndshr;
  461.     USHORT    selshr;
  462.     USHORT    refcnt;
  463.     CHAR    name[1];
  464. } QSHRMEM, *PQSHRMEM;
  465.  
  466. typedef struct module {
  467.     struct module *next;
  468.     USHORT    hndmod;
  469.     USHORT    type;
  470.     ULONG    refcnt;
  471.     ULONG    segcnt;
  472.     PVOID    _reserved_;
  473.     PCHAR    name;
  474.     USHORT    modref[1];
  475. } QMODULE, *PQMODULE;
  476.  
  477. typedef struct {
  478.     PQGLOBAL    gbldata;
  479.     PQPROCESS    procdata;
  480.     PQSEMSTRUC    semadata;
  481.     PQSEMSTRUC32    sem32data;
  482.     PQSHRMEM    shrmemdata;
  483.     PQMODULE    moddata;
  484.     PVOID        _reserved2_;
  485.     PQFILE        filedata;
  486. } QTOPLEVEL, *PQTOPLEVEL;
  487. /* ************************************************************ */
  488.  
  489. PQTOPLEVEL get_sysinfo(ULONG pid, ULONG flags);
  490.  
  491. #endif /* _OS2EMX_H */
  492.  
  493.