Commit | Line | Data |
---|---|---|
4633a7c4 | 1 | #include <signal.h> |
2d766320 IZ |
2 | #include <io.h> |
3 | /* #include <sys/select.h> */ | |
4633a7c4 LW |
4 | |
5 | /* HAS_IOCTL: | |
6 | * This symbol, if defined, indicates that the ioctl() routine is | |
7 | * available to set I/O characteristics | |
8 | */ | |
9 | #define HAS_IOCTL /**/ | |
10 | ||
11 | /* HAS_UTIME: | |
12 | * This symbol, if defined, indicates that the routine utime() is | |
13 | * available to update the access and modification times of files. | |
14 | */ | |
15 | #define HAS_UTIME /**/ | |
16 | ||
17 | #define HAS_KILL | |
18 | #define HAS_WAIT | |
4ea6d94f | 19 | #define HAS_DLERROR |
367f3c24 | 20 | #define HAS_WAITPID_RUNTIME (_emx_env & 0x200) |
4ea6d94f | 21 | |
f72c975a IZ |
22 | /* HAS_PASSWD |
23 | * This symbol, if defined, indicates that the getpwnam() and | |
24 | * getpwuid() routines are available to get password entries. | |
25 | * The getpwent() has a separate definition, HAS_GETPWENT. | |
26 | */ | |
27 | #define HAS_PASSWD | |
28 | ||
29 | /* HAS_GROUP | |
30 | * This symbol, if defined, indicates that the getgrnam() and | |
31 | * getgrgid() routines are available to get group entries. | |
32 | * The getgrent() has a separate definition, HAS_GETGRENT. | |
33 | */ | |
34 | #define HAS_GROUP | |
35 | #define HAS_GETGRENT /* fake */ | |
36 | #define HAS_SETGRENT /* fake */ | |
37 | #define HAS_ENDGRENT /* fake */ | |
38 | ||
4ea6d94f | 39 | /* USEMYBINMODE |
40 | * This symbol, if defined, indicates that the program should | |
16fe6d59 | 41 | * use the routine my_binmode(FILE *fp, char iotype, int mode) to insure |
4ea6d94f | 42 | * that a file is in "binary" mode -- that is, that no translation |
43 | * of bytes occurs on read or write operations. | |
44 | */ | |
45 | #undef USEMYBINMODE | |
46 | ||
61bb5906 CB |
47 | /* Stat_t: |
48 | * This symbol holds the type used to declare buffers for information | |
49 | * returned by stat(). It's usually just struct stat. It may be necessary | |
50 | * to include <sys/stat.h> and <sys/types.h> to get any typedef'ed | |
51 | * information. | |
52 | */ | |
53 | #define Stat_t struct stat | |
54 | ||
4ea6d94f | 55 | /* USE_STAT_RDEV: |
56 | * This symbol is defined if this system has a stat structure declaring | |
57 | * st_rdev | |
58 | */ | |
59 | #define USE_STAT_RDEV /**/ | |
60 | ||
61 | /* ACME_MESS: | |
62 | * This symbol, if defined, indicates that error messages should be | |
63 | * should be generated in a format that allows the use of the Acme | |
64 | * GUI/editor's autofind feature. | |
65 | */ | |
66 | #undef ACME_MESS /**/ | |
4633a7c4 | 67 | |
44a8e56a | 68 | /* ALTERNATE_SHEBANG: |
69 | * This symbol, if defined, contains a "magic" string which may be used | |
70 | * as the first line of a Perl program designed to be executed directly | |
71 | * by name, instead of the standard Unix #!. If ALTERNATE_SHEBANG | |
72 | * begins with a character other then #, then Perl will only treat | |
73 | * it as a command line if if finds the string "perl" in the first | |
74 | * word; otherwise it's treated as the first line of code in the script. | |
75 | * (IOW, Perl won't hand off to another interpreter via an alternate | |
76 | * shebang sequence that might be legal Perl code.) | |
77 | */ | |
aa689395 | 78 | #define ALTERNATE_SHEBANG "extproc " |
44a8e56a | 79 | |
4633a7c4 LW |
80 | #ifndef SIGABRT |
81 | # define SIGABRT SIGILL | |
82 | #endif | |
83 | #ifndef SIGILL | |
84 | # define SIGILL 6 /* blech */ | |
85 | #endif | |
7766f137 | 86 | #define ABORT() kill(PerlProc_getpid(),SIGABRT); |
4633a7c4 | 87 | |
760ac839 | 88 | #define BIT_BUCKET "/dev/nul" /* Will this work? */ |
c07a80fd | 89 | |
202975e6 IZ |
90 | /* Apparently TCPIPV4 defines may be included even with only IAK present */ |
91 | ||
92 | #if !defined(NO_TCPIPV4) && !defined(TCPIPV4) | |
93 | # define TCPIPV4 | |
94 | # define TCPIPV4_FORCED /* Just in case */ | |
95 | #endif | |
96 | ||
4a6a15c8 IZ |
97 | #if defined(I_SYS_UN) && !defined(TCPIPV4) |
98 | /* It is not working without TCPIPV4 defined. */ | |
99 | # undef I_SYS_UN | |
100 | #endif | |
dd96f567 | 101 | |
4d1ff10f | 102 | #ifdef USE_5005THREADS |
dd96f567 | 103 | |
23da6c43 GS |
104 | #define do_spawn(a) os2_do_spawn(aTHX_ (a)) |
105 | #define do_aspawn(a,b,c) os2_do_aspawn(aTHX_ (a),(b),(c)) | |
106 | ||
dd96f567 IZ |
107 | #define OS2_ERROR_ALREADY_POSTED 299 /* Avoid os2.h */ |
108 | ||
109 | extern int rc; | |
110 | ||
111 | #define MUTEX_INIT(m) \ | |
112 | STMT_START { \ | |
113 | int rc; \ | |
114 | if ((rc = _rmutex_create(m,0))) \ | |
23da6c43 | 115 | Perl_croak_nocontext("panic: MUTEX_INIT: rc=%i", rc); \ |
dd96f567 IZ |
116 | } STMT_END |
117 | #define MUTEX_LOCK(m) \ | |
118 | STMT_START { \ | |
119 | int rc; \ | |
120 | if ((rc = _rmutex_request(m,_FMR_IGNINT))) \ | |
23da6c43 | 121 | Perl_croak_nocontext("panic: MUTEX_LOCK: rc=%i", rc); \ |
dd96f567 IZ |
122 | } STMT_END |
123 | #define MUTEX_UNLOCK(m) \ | |
124 | STMT_START { \ | |
125 | int rc; \ | |
126 | if ((rc = _rmutex_release(m))) \ | |
23da6c43 | 127 | Perl_croak_nocontext("panic: MUTEX_UNLOCK: rc=%i", rc); \ |
dd96f567 IZ |
128 | } STMT_END |
129 | #define MUTEX_DESTROY(m) \ | |
130 | STMT_START { \ | |
131 | int rc; \ | |
132 | if ((rc = _rmutex_close(m))) \ | |
23da6c43 | 133 | Perl_croak_nocontext("panic: MUTEX_DESTROY: rc=%i", rc); \ |
dd96f567 IZ |
134 | } STMT_END |
135 | ||
136 | #define COND_INIT(c) \ | |
137 | STMT_START { \ | |
138 | int rc; \ | |
139 | if ((rc = DosCreateEventSem(NULL,c,0,0))) \ | |
23da6c43 | 140 | Perl_croak_nocontext("panic: COND_INIT: rc=%i", rc); \ |
dd96f567 IZ |
141 | } STMT_END |
142 | #define COND_SIGNAL(c) \ | |
143 | STMT_START { \ | |
144 | int rc; \ | |
23da6c43 GS |
145 | if ((rc = DosPostEventSem(*(c))) && rc != OS2_ERROR_ALREADY_POSTED)\ |
146 | Perl_croak_nocontext("panic: COND_SIGNAL, rc=%ld", rc); \ | |
dd96f567 IZ |
147 | } STMT_END |
148 | #define COND_BROADCAST(c) \ | |
149 | STMT_START { \ | |
150 | int rc; \ | |
151 | if ((rc = DosPostEventSem(*(c))) && rc != OS2_ERROR_ALREADY_POSTED)\ | |
23da6c43 | 152 | Perl_croak_nocontext("panic: COND_BROADCAST, rc=%i", rc); \ |
dd96f567 IZ |
153 | } STMT_END |
154 | /* #define COND_WAIT(c, m) \ | |
155 | STMT_START { \ | |
156 | if (WaitForSingleObject(*(c),INFINITE) == WAIT_FAILED) \ | |
23da6c43 | 157 | Perl_croak_nocontext("panic: COND_WAIT"); \ |
dd96f567 IZ |
158 | } STMT_END |
159 | */ | |
160 | #define COND_WAIT(c, m) os2_cond_wait(c,m) | |
161 | ||
162 | #define COND_WAIT_win32(c, m) \ | |
163 | STMT_START { \ | |
164 | int rc; \ | |
23da6c43 GS |
165 | if ((rc = SignalObjectAndWait(*(m),*(c),INFINITE,FALSE))) \ |
166 | Perl_croak_nocontext("panic: COND_WAIT"); \ | |
dd96f567 IZ |
167 | else \ |
168 | MUTEX_LOCK(m); \ | |
169 | } STMT_END | |
170 | #define COND_DESTROY(c) \ | |
171 | STMT_START { \ | |
172 | int rc; \ | |
173 | if ((rc = DosCloseEventSem(*(c)))) \ | |
23da6c43 | 174 | Perl_croak_nocontext("panic: COND_DESTROY, rc=%i", rc); \ |
dd96f567 | 175 | } STMT_END |
6b88bc9c | 176 | /*#define THR ((struct thread *) TlsGetValue(PL_thr_key)) |
dd96f567 IZ |
177 | */ |
178 | ||
90866323 IZ |
179 | #ifdef USE_SLOW_THREAD_SPECIFIC |
180 | # define pthread_getspecific(k) (*_threadstore()) | |
181 | # define pthread_setspecific(k,v) (*_threadstore()=v,0) | |
182 | # define pthread_key_create(keyp,flag) (*keyp=_gettid(),0) | |
23da6c43 | 183 | #else /* USE_SLOW_THREAD_SPECIFIC */ |
90866323 IZ |
184 | # define pthread_getspecific(k) (*(k)) |
185 | # define pthread_setspecific(k,v) (*(k)=(v),0) | |
23da6c43 GS |
186 | # define pthread_key_create(keyp,flag) \ |
187 | ( DosAllocThreadLocalMemory(1,(U32*)keyp) \ | |
188 | ? Perl_croak_nocontext("LocalMemory"),1 \ | |
189 | : 0 \ | |
190 | ) | |
191 | #endif /* USE_SLOW_THREAD_SPECIFIC */ | |
90866323 | 192 | #define pthread_key_delete(keyp) |
dd96f567 | 193 | #define pthread_self() _gettid() |
27139dc0 | 194 | #define YIELD DosSleep(0) |
dd96f567 IZ |
195 | |
196 | #ifdef PTHREADS_INCLUDED /* For ./x2p stuff. */ | |
197 | int pthread_join(pthread_t tid, void **status); | |
198 | int pthread_detach(pthread_t tid); | |
199 | int pthread_create(pthread_t *tid, const pthread_attr_t *attr, | |
200 | void *(*start_routine)(void*), void *arg); | |
23da6c43 | 201 | #endif /* PTHREAD_INCLUDED */ |
dd96f567 IZ |
202 | |
203 | #define THREADS_ELSEWHERE | |
204 | ||
4d1ff10f | 205 | #else /* USE_5005THREADS */ |
23da6c43 GS |
206 | |
207 | #define do_spawn(a) os2_do_spawn(a) | |
208 | #define do_aspawn(a,b,c) os2_do_aspawn((a),(b),(c)) | |
209 | ||
4d1ff10f | 210 | #endif /* USE_5005THREADS */ |
4a6a15c8 | 211 | |
aa689395 | 212 | void Perl_OS2_init(char **); |
764df951 IZ |
213 | void Perl_OS2_init3(char **envp, void **excH, int flags); |
214 | void Perl_OS2_term(void **excH, int exitstatus, int flags); | |
aa689395 | 215 | |
764df951 | 216 | /* The code without INIT3 hideously puts env inside: */ |
365eb7b5 | 217 | |
764df951 | 218 | /* These ones should be in the same block as PERL_SYS_TERM() */ |
ed344e4f | 219 | #ifdef PERL_CORE |
764df951 IZ |
220 | |
221 | # define PERL_SYS_INIT3(argcp, argvp, envp) \ | |
222 | { void *xreg[2]; \ | |
ed344e4f IZ |
223 | _response(argcp, argvp); \ |
224 | _wildcard(argcp, argvp); \ | |
764df951 IZ |
225 | Perl_OS2_init3(*envp, xreg, 0) |
226 | ||
227 | # define PERL_SYS_INIT(argcp, argvp) { \ | |
228 | { void *xreg[2]; \ | |
eacfb5f1 | 229 | _response(argcp, argvp); \ |
c0c09dfd | 230 | _wildcard(argcp, argvp); \ |
764df951 IZ |
231 | Perl_OS2_init3(NULL, xreg, 0) |
232 | ||
ed344e4f | 233 | #else /* Compiling embedded Perl or Perl extension */ |
764df951 IZ |
234 | |
235 | # define PERL_SYS_INIT3(argcp, argvp, envp) \ | |
236 | { void *xreg[2]; \ | |
237 | Perl_OS2_init3(*envp, xreg, 0) | |
238 | # define PERL_SYS_INIT(argcp, argvp) { \ | |
239 | { void *xreg[2]; \ | |
240 | Perl_OS2_init3(NULL, xreg, 0) | |
ed344e4f IZ |
241 | #endif |
242 | ||
764df951 IZ |
243 | #define FORCE_EMX_DEINIT_EXIT 1 |
244 | #define FORCE_EMX_DEINIT_CRT_TERM 2 | |
245 | #define FORCE_EMX_DEINIT_RUN_ATEXIT 4 | |
246 | ||
247 | #define PERL_SYS_TERM2(xreg,flags) \ | |
248 | Perl_OS2_term(xreg, 0, flags); \ | |
249 | MALLOC_TERM | |
250 | ||
251 | #define PERL_SYS_TERM1(xreg) \ | |
252 | Perl_OS2_term(xreg, 0, FORCE_EMX_DEINIT_RUN_ATEXIT) | |
253 | ||
254 | /* This one should come in pair with PERL_SYS_INIT() and in the same block */ | |
255 | #define PERL_SYS_TERM() \ | |
256 | PERL_SYS_TERM1(xreg); \ | |
257 | } | |
258 | ||
ed344e4f | 259 | #ifndef __EMX__ |
aab1f907 IZ |
260 | # define PERL_CALLCONV _System |
261 | #endif | |
ed344e4f | 262 | |
4ea6d94f | 263 | /* #define PERL_SYS_TERM() STMT_START { \ |
264 | if (Perl_HAB_set) WinTerminate(Perl_hab); } STMT_END */ | |
265 | ||
8cc95fdb | 266 | #define dXSUB_SYS OS2_XS_init() |
eacfb5f1 | 267 | |
4ea6d94f | 268 | #ifdef PERL_IS_AOUT |
4a6a15c8 | 269 | /* # define HAS_FORK */ |
760ac839 LW |
270 | /* # define HIDEMYMALLOC */ |
271 | /* # define PERL_SBRK_VIA_MALLOC */ /* gets off-page sbrk... */ | |
272 | #else /* !PERL_IS_AOUT */ | |
273 | # ifndef PERL_FOR_X2P | |
4a6a15c8 IZ |
274 | # ifdef EMX_BAD_SBRK |
275 | # define USE_PERL_SBRK | |
276 | # endif | |
277 | # else | |
278 | # define PerlIO FILE | |
760ac839 LW |
279 | # endif |
280 | # define SYSTEM_ALLOC(a) sys_alloc(a) | |
281 | ||
282 | void *sys_alloc(int size); | |
283 | ||
284 | #endif /* !PERL_IS_AOUT */ | |
4a6a15c8 IZ |
285 | #if !defined(PERL_CORE) && !defined(PerlIO) /* a2p */ |
286 | # define PerlIO FILE | |
287 | #endif | |
4ea6d94f | 288 | |
23da6c43 GS |
289 | /* os2ish is used from a2p/a2p.h without pTHX/pTHX_ first being |
290 | * defined. Hack around this to get us to compile. | |
291 | */ | |
292 | #ifdef PTHX_UNUSED | |
293 | # ifndef pTHX | |
294 | # define pTHX | |
295 | # endif | |
296 | # ifndef pTHX_ | |
297 | # define pTHX_ | |
298 | # endif | |
299 | #endif | |
300 | ||
c0c09dfd | 301 | #define TMPPATH1 "plXXXXXX" |
302 | extern char *tmppath; | |
23da6c43 | 303 | PerlIO *my_syspopen(pTHX_ char *cmd, char *mode); |
4a6a15c8 IZ |
304 | /* Cannot prototype with I32 at this point. */ |
305 | int my_syspclose(PerlIO *f); | |
55497cff | 306 | FILE *my_tmpfile (void); |
307 | char *my_tmpnam (char *); | |
5ba48348 JH |
308 | int my_mkdir (__const__ char *, long); |
309 | int my_rmdir (__const__ char *); | |
f72c975a IZ |
310 | struct passwd *my_getpwent (void); |
311 | void my_setpwent (void); | |
312 | void my_endpwent (void); | |
313 | ||
314 | struct group *getgrent (void); | |
315 | void setgrent (void); | |
316 | void endgrent (void); | |
317 | ||
318 | struct passwd *my_getpwuid (uid_t); | |
319 | struct passwd *my_getpwnam (__const__ char *); | |
55497cff | 320 | |
bddf7535 GS |
321 | #undef L_tmpnam |
322 | #define L_tmpnam MAXPATHLEN | |
323 | ||
55497cff | 324 | #define tmpfile my_tmpfile |
325 | #define tmpnam my_tmpnam | |
3ed26a2c | 326 | #define isatty _isterm |
44a8e56a | 327 | #define rand random |
328 | #define srand srandom | |
e75931a7 YST |
329 | #define strtoll _strtoll |
330 | #define strtoull _strtoull | |
eacfb5f1 | 331 | |
4633a7c4 LW |
332 | /* |
333 | * fwrite1() should be a routine with the same calling sequence as fwrite(), | |
334 | * but which outputs all of the bytes requested as a single stream (unlike | |
335 | * fwrite() itself, which on some systems outputs several distinct records | |
336 | * if the number_of_items parameter is >1). | |
337 | */ | |
338 | #define fwrite1 fwrite | |
339 | ||
340 | #define my_getenv(var) getenv(var) | |
367f3c24 | 341 | #define flock my_flock |
5ba48348 JH |
342 | #define rmdir my_rmdir |
343 | #define mkdir my_mkdir | |
f72c975a IZ |
344 | #define setpwent my_setpwent |
345 | #define getpwent my_getpwent | |
346 | #define endpwent my_endpwent | |
347 | #define getpwuid my_getpwuid | |
348 | #define getpwnam my_getpwnam | |
4633a7c4 | 349 | |
df3ef7a9 IZ |
350 | void *emx_calloc (size_t, size_t); |
351 | void emx_free (void *); | |
352 | void *emx_malloc (size_t); | |
353 | void *emx_realloc (void *, size_t); | |
354 | ||
4633a7c4 LW |
355 | /*****************************************************************************/ |
356 | ||
357 | #include <stdlib.h> /* before the following definitions */ | |
358 | #include <unistd.h> /* before the following definitions */ | |
359 | ||
360 | #define chdir _chdir2 | |
361 | #define getcwd _getcwd2 | |
362 | ||
363 | /* This guy is needed for quick stdstd */ | |
364 | ||
365 | #if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE) && defined(STDIO_CNT_LVALUE) | |
4633a7c4 LW |
366 | /* Perl uses ungetc only with successful return */ |
367 | # define ungetc(c,fp) \ | |
368 | (FILE_ptr(fp) > FILE_base(fp) && c == (int)*(FILE_ptr(fp) - 1) \ | |
369 | ? (--FILE_ptr(fp), ++FILE_cnt(fp), (int)c) : ungetc(c,fp)) | |
370 | #endif | |
371 | ||
46e87256 YST |
372 | /* ctermid is missing from emx0.9d */ |
373 | char *ctermid(char *s); | |
374 | ||
4633a7c4 LW |
375 | #define OP_BINARY O_BINARY |
376 | ||
377 | #define OS2_STAT_HACK 1 | |
378 | #if OS2_STAT_HACK | |
379 | ||
380 | #define Stat(fname,bufptr) os2_stat((fname),(bufptr)) | |
381 | #define Fstat(fd,bufptr) fstat((fd),(bufptr)) | |
365eb7b5 | 382 | #define Fflush(fp) fflush(fp) |
8cc95fdb | 383 | #define Mkdir(path,mode) mkdir((path),(mode)) |
4633a7c4 LW |
384 | |
385 | #undef S_IFBLK | |
386 | #undef S_ISBLK | |
387 | #define S_IFBLK 0120000 | |
388 | #define S_ISBLK(mode) (((mode) & S_IFMT) == S_IFBLK) | |
389 | ||
390 | #else | |
391 | ||
392 | #define Stat(fname,bufptr) stat((fname),(bufptr)) | |
393 | #define Fstat(fd,bufptr) fstat((fd),(bufptr)) | |
365eb7b5 | 394 | #define Fflush(fp) fflush(fp) |
8cc95fdb | 395 | #define Mkdir(path,mode) mkdir((path),(mode)) |
4633a7c4 LW |
396 | |
397 | #endif | |
365eb7b5 | 398 | |
44a8e56a | 399 | /* With SD386 it is impossible to debug register variables. */ |
400 | #if !defined(PERL_IS_AOUT) && defined(DEBUGGING) && !defined(register) | |
401 | # define register | |
402 | #endif | |
403 | ||
365eb7b5 | 404 | /* Our private OS/2 specific data. */ |
405 | ||
406 | typedef struct OS2_Perl_data { | |
407 | unsigned long flags; | |
408 | unsigned long phab; | |
409 | int (*xs_init)(); | |
4ea6d94f | 410 | unsigned long rc; |
411 | unsigned long severity; | |
4bfbfac5 IZ |
412 | unsigned long phmq; /* Handle to message queue */ |
413 | unsigned long phmq_refcnt; | |
414 | unsigned long phmq_servers; | |
415 | unsigned long initial_mode; /* VIO etc. mode we were started in */ | |
365eb7b5 | 416 | } OS2_Perl_data_t; |
417 | ||
418 | extern OS2_Perl_data_t OS2_Perl_data; | |
419 | ||
4ea6d94f | 420 | #define Perl_hab ((HAB)OS2_Perl_data.phab) |
421 | #define Perl_rc (OS2_Perl_data.rc) | |
422 | #define Perl_severity (OS2_Perl_data.severity) | |
423 | #define errno_isOS2 12345678 | |
ed344e4f | 424 | #define errno_isOS2_set 12345679 |
4ea6d94f | 425 | #define OS2_Perl_flags (OS2_Perl_data.flags) |
365eb7b5 | 426 | #define Perl_HAB_set_f 1 |
4ea6d94f | 427 | #define Perl_HAB_set (OS2_Perl_flags & Perl_HAB_set_f) |
428 | #define set_Perl_HAB_f (OS2_Perl_flags |= Perl_HAB_set_f) | |
429 | #define set_Perl_HAB(h) (set_Perl_HAB_f, Perl_hab = h) | |
4bfbfac5 IZ |
430 | #define _obtain_Perl_HAB (init_PMWIN_entries(), \ |
431 | Perl_hab = (*PMWIN_entries.Initialize)(0), \ | |
432 | set_Perl_HAB_f, Perl_hab) | |
433 | #define perl_hab_GET() (Perl_HAB_set ? Perl_hab : _obtain_Perl_HAB) | |
434 | #define Acquire_hab() perl_hab_GET() | |
435 | #define Perl_hmq ((HMQ)OS2_Perl_data.phmq) | |
436 | #define Perl_hmq_refcnt (OS2_Perl_data.phmq_refcnt) | |
437 | #define Perl_hmq_servers (OS2_Perl_data.phmq_servers) | |
438 | #define Perl_os2_initial_mode (OS2_Perl_data.initial_mode) | |
439 | ||
440 | unsigned long Perl_hab_GET(); | |
441 | unsigned long Perl_Register_MQ(int serve); | |
442 | void Perl_Deregister_MQ(int serve); | |
443 | int Perl_Serve_Messages(int force); | |
444 | /* Cannot prototype with I32 at this point. */ | |
445 | int Perl_Process_Messages(int force, long *cntp); | |
23da6c43 | 446 | char *os2_execname(pTHX); |
4bfbfac5 IZ |
447 | |
448 | struct _QMSG; | |
449 | struct PMWIN_entries_t { | |
450 | unsigned long (*Initialize)( unsigned long fsOptions ); | |
451 | unsigned long (*CreateMsgQueue)(unsigned long hab, long cmsg); | |
452 | int (*DestroyMsgQueue)(unsigned long hmq); | |
453 | int (*PeekMsg)(unsigned long hab, struct _QMSG *pqmsg, | |
454 | unsigned long hwndFilter, unsigned long msgFilterFirst, | |
455 | unsigned long msgFilterLast, unsigned long fl); | |
456 | int (*GetMsg)(unsigned long hab, struct _QMSG *pqmsg, | |
457 | unsigned long hwndFilter, unsigned long msgFilterFirst, | |
458 | unsigned long msgFilterLast); | |
459 | void * (*DispatchMsg)(unsigned long hab, struct _QMSG *pqmsg); | |
5ba48348 JH |
460 | unsigned long (*GetLastError)(unsigned long hab); |
461 | unsigned long (*CancelShutdown)(unsigned long hmq, unsigned long fCancelAlways); | |
4bfbfac5 IZ |
462 | }; |
463 | extern struct PMWIN_entries_t PMWIN_entries; | |
464 | void init_PMWIN_entries(void); | |
465 | ||
ed344e4f IZ |
466 | #define perl_hmq_GET(serve) Perl_Register_MQ(serve) |
467 | #define perl_hmq_UNSET(serve) Perl_Deregister_MQ(serve) | |
4bfbfac5 | 468 | |
23da6c43 | 469 | #define OS2_XS_init() (*OS2_Perl_data.xs_init)(aTHX) |
ed344e4f IZ |
470 | |
471 | #if _EMX_CRT_REV_ >= 60 | |
472 | # define os2_setsyserrno(rc) (Perl_rc = rc, errno = errno_isOS2_set, \ | |
473 | _setsyserrno(rc)) | |
474 | #else | |
475 | # define os2_setsyserrno(rc) (Perl_rc = rc, errno = errno_isOS2) | |
476 | #endif | |
477 | ||
4ea6d94f | 478 | /* The expressions below return true on error. */ |
4a6a15c8 | 479 | /* INCL_DOSERRORS needed. rc should be declared outside. */ |
4ea6d94f | 480 | #define CheckOSError(expr) (!(rc = (expr)) ? 0 : (FillOSError(rc), 1)) |
481 | /* INCL_WINERRORS needed. */ | |
482 | #define SaveWinError(expr) ((expr) ? : (FillWinError, 0)) | |
483 | #define CheckWinError(expr) ((expr) ? 0: (FillWinError, 1)) | |
ed344e4f | 484 | #define FillOSError(rc) (os2_setsyserrno(rc), \ |
4ea6d94f | 485 | Perl_severity = SEVERITY_ERROR) |
5ba48348 JH |
486 | |
487 | /* At this moment init_PMWIN_entries() should be a nop (WinInitialize should | |
488 | be called already, right?), so we do not risk stepping over our own error */ | |
489 | #define FillWinError ( init_PMWIN_entries(), \ | |
490 | Perl_rc=(*PMWIN_entries.GetLastError)(perl_hab_GET()),\ | |
491 | Perl_severity = ERRORIDSEV(Perl_rc), \ | |
492 | Perl_rc = ERRORIDERROR(Perl_rc), \ | |
493 | os2_setsyserrno(Perl_rc)) | |
4ea6d94f | 494 | |
760ac839 | 495 | #define STATIC_FILE_LENGTH 127 |
ff68c719 | 496 | |
35bc1fdc IZ |
497 | /* This should match loadOrdinals[] array in os2.c */ |
498 | enum entries_ordinals { | |
499 | ORD_DosQueryExtLibpath, | |
500 | ORD_DosSetExtLibpath, | |
501 | ORD_DosVerifyPidTid, | |
502 | ORD_SETHOSTENT, | |
503 | ORD_SETNETENT, | |
504 | ORD_SETPROTOENT, | |
505 | ORD_SETSERVENT, | |
506 | ORD_GETHOSTENT, | |
507 | ORD_GETNETENT, | |
508 | ORD_GETPROTOENT, | |
509 | ORD_GETSERVENT, | |
510 | ORD_ENDHOSTENT, | |
511 | ORD_ENDNETENT, | |
512 | ORD_ENDPROTOENT, | |
513 | ORD_ENDSERVENT, | |
514 | ORD_WinInitialize, | |
515 | ORD_WinCreateMsgQueue, | |
516 | ORD_WinDestroyMsgQueue, | |
517 | ORD_WinPeekMsg, | |
518 | ORD_WinGetMsg, | |
519 | ORD_WinDispatchMsg, | |
520 | ORD_WinGetLastError, | |
521 | ORD_WinCancelShutdown, | |
522 | ORD_RexxStart, | |
523 | ORD_RexxVariablePool, | |
524 | ORD_RexxRegisterFunctionExe, | |
525 | ORD_RexxDeregisterFunction, | |
526 | ORD_DOSSMSETTITLE, | |
527 | ORD_PRF32QUERYPROFILESIZE, | |
528 | ORD_PRF32OPENPROFILE, | |
529 | ORD_PRF32CLOSEPROFILE, | |
530 | ORD_PRF32QUERYPROFILE, | |
531 | ORD_PRF32RESET, | |
532 | ORD_PRF32QUERYPROFILEDATA, | |
533 | ORD_PRF32WRITEPROFILEDATA, | |
534 | ||
535 | ORD_WinChangeSwitchEntry, | |
536 | ORD_WinQuerySwitchEntry, | |
537 | ORD_WinQuerySwitchHandle, | |
538 | ORD_WinQuerySwitchList, | |
539 | ORD_WinSwitchToProgram, | |
540 | ORD_WinBeginEnumWindows, | |
541 | ORD_WinEndEnumWindows, | |
542 | ORD_WinEnumDlgItem, | |
543 | ORD_WinGetNextWindow, | |
544 | ORD_WinIsChild, | |
545 | ORD_WinQueryActiveWindow, | |
546 | ORD_WinQueryClassName, | |
547 | ORD_WinQueryFocus, | |
548 | ORD_WinQueryWindow, | |
549 | ORD_WinQueryWindowPos, | |
550 | ORD_WinQueryWindowProcess, | |
551 | ORD_WinQueryWindowText, | |
552 | ORD_WinQueryWindowTextLength, | |
553 | ORD_WinSetFocus, | |
554 | ORD_WinSetWindowPos, | |
555 | ORD_WinSetWindowText, | |
556 | ORD_WinShowWindow, | |
557 | ORD_WinIsWindow, | |
558 | ORD_WinWindowFromId, | |
559 | ORD_WinWindowFromPoint, | |
560 | ORD_WinPostMsg, | |
561 | ORD_NENTRIES | |
562 | }; | |
563 | ||
564 | /* RET: return type, AT: argument signature in (), ARGS: should be in () */ | |
565 | #define CallORD(ret,o,at,args) (((ret (*)at) loadByOrdinal(o, 1))args) | |
566 | #define DeclFuncByORD(ret,name,o,at,args) \ | |
567 | ret name at { return CallORD(ret,o,at,args); } | |
568 | #define DeclVoidFuncByORD(name,o,at,args) \ | |
569 | void name at { CallORD(void,o,at,args); } | |
570 | ||
571 | /* These functions return false on error, and save the error info in $^E */ | |
572 | #define DeclOSFuncByORD(ret,name,o,at,args) \ | |
573 | ret name at { unsigned long rc; return !CheckOSError(CallORD(ret,o,at,args)); } | |
574 | #define DeclWinFuncByORD(ret,name,o,at,args) \ | |
575 | ret name at { return SaveWinError(CallORD(ret,o,at,args)); } | |
576 | ||
577 | #define AssignFuncPByORD(p,o) (*(Perl_PFN*)&(p) = (loadByOrdinal(o, 1))) | |
578 | ||
760ac839 LW |
579 | #define PERLLIB_MANGLE(s, n) perllib_mangle((s), (n)) |
580 | char *perllib_mangle(char *, unsigned int); | |
4ea6d94f | 581 | |
35bc1fdc IZ |
582 | typedef int (*Perl_PFN)(); |
583 | Perl_PFN loadByOrdinal(enum entries_ordinals ord, int fail); | |
584 | extern const Perl_PFN * const pExtFCN; | |
4ea6d94f | 585 | char *os2error(int rc); |
2d766320 IZ |
586 | int os2_stat(const char *name, struct stat *st); |
587 | int setpriority(int which, int pid, int val); | |
588 | int getpriority(int which /* ignored */, int pid); | |
589 | ||
590 | #ifdef PERL_CORE | |
591 | int os2_do_spawn(pTHX_ char *cmd); | |
592 | int os2_do_aspawn(pTHX_ SV *really, void **vmark, void **vsp); | |
593 | #endif | |
4ea6d94f | 594 | |
ee964dfe IZ |
595 | #ifndef LOG_DAEMON |
596 | ||
597 | /* Replacement for syslog.h */ | |
598 | # define LOG_EMERG 0 /* system is unusable */ | |
599 | # define LOG_ALERT 1 /* action must be taken immediately */ | |
600 | # define LOG_CRIT 2 /* critical conditions */ | |
601 | # define LOG_ERR 3 /* error conditions */ | |
602 | # define LOG_WARNING 4 /* warning conditions */ | |
603 | # define LOG_NOTICE 5 /* normal but significant condition */ | |
604 | # define LOG_INFO 6 /* informational */ | |
605 | # define LOG_DEBUG 7 /* debug-level messages */ | |
606 | ||
607 | # define LOG_PRIMASK 0x007 /* mask to extract priority part (internal) */ | |
608 | /* extract priority */ | |
609 | # define LOG_PRI(p) ((p) & LOG_PRIMASK) | |
610 | # define LOG_MAKEPRI(fac, pri) (((fac) << 3) | (pri)) | |
611 | ||
612 | /* facility codes */ | |
613 | # define LOG_KERN (0<<3) /* kernel messages */ | |
614 | # define LOG_USER (1<<3) /* random user-level messages */ | |
615 | # define LOG_MAIL (2<<3) /* mail system */ | |
616 | # define LOG_DAEMON (3<<3) /* system daemons */ | |
617 | # define LOG_AUTH (4<<3) /* security/authorization messages */ | |
618 | # define LOG_SYSLOG (5<<3) /* messages generated internally by syslogd */ | |
619 | # define LOG_LPR (6<<3) /* line printer subsystem */ | |
620 | # define LOG_NEWS (7<<3) /* network news subsystem */ | |
621 | # define LOG_UUCP (8<<3) /* UUCP subsystem */ | |
622 | # define LOG_CRON (15<<3) /* clock daemon */ | |
623 | /* other codes through 15 reserved for system use */ | |
624 | # define LOG_LOCAL0 (16<<3) /* reserved for local use */ | |
625 | # define LOG_LOCAL1 (17<<3) /* reserved for local use */ | |
626 | # define LOG_LOCAL2 (18<<3) /* reserved for local use */ | |
627 | # define LOG_LOCAL3 (19<<3) /* reserved for local use */ | |
628 | # define LOG_LOCAL4 (20<<3) /* reserved for local use */ | |
629 | # define LOG_LOCAL5 (21<<3) /* reserved for local use */ | |
630 | # define LOG_LOCAL6 (22<<3) /* reserved for local use */ | |
631 | # define LOG_LOCAL7 (23<<3) /* reserved for local use */ | |
632 | ||
633 | # define LOG_NFACILITIES 24 /* current number of facilities */ | |
634 | # define LOG_FACMASK 0x03f8 /* mask to extract facility part */ | |
635 | /* facility of pri */ | |
636 | # define LOG_FAC(p) (((p) & LOG_FACMASK) >> 3) | |
637 | ||
638 | /* | |
639 | * arguments to setlogmask. | |
640 | */ | |
641 | # define LOG_MASK(pri) (1 << (pri)) /* mask for one priority */ | |
642 | # define LOG_UPTO(pri) ((1 << ((pri)+1)) - 1) /* all priorities through pri */ | |
643 | ||
644 | /* | |
645 | * Option flags for openlog. | |
646 | * | |
647 | * LOG_ODELAY no longer does anything. | |
648 | * LOG_NDELAY is the inverse of what it used to be. | |
649 | */ | |
650 | # define LOG_PID 0x01 /* log the pid with each message */ | |
651 | # define LOG_CONS 0x02 /* log on the console if errors in sending */ | |
652 | # define LOG_ODELAY 0x04 /* delay open until first syslog() (default) */ | |
653 | # define LOG_NDELAY 0x08 /* don't delay open */ | |
654 | # define LOG_NOWAIT 0x10 /* don't wait for console forks: DEPRECATED */ | |
655 | # define LOG_PERROR 0x20 /* log to stderr as well */ | |
656 | ||
657 | #endif | |
658 | ||
4ea6d94f | 659 | /* ************************************************************ */ |
660 | #define Dos32QuerySysState DosQuerySysState | |
661 | #define QuerySysState(flags, pid, buf, bufsz) \ | |
662 | Dos32QuerySysState(flags, 0, pid, 0, buf, bufsz) | |
663 | ||
664 | #define QSS_PROCESS 1 | |
df3ef7a9 IZ |
665 | #define QSS_MODULE 4 |
666 | #define QSS_SEMAPHORES 2 | |
4ea6d94f | 667 | #define QSS_FILE 8 /* Buggy until fixpack18 */ |
668 | #define QSS_SHARED 16 | |
669 | ||
ed344e4f | 670 | #ifdef _OS2_H |
4ea6d94f | 671 | |
672 | APIRET APIENTRY Dos32QuerySysState(ULONG func,ULONG arg1,ULONG pid, | |
673 | ULONG _res_,PVOID buf,ULONG bufsz); | |
674 | typedef struct { | |
675 | ULONG threadcnt; | |
676 | ULONG proccnt; | |
677 | ULONG modulecnt; | |
678 | } QGLOBAL, *PQGLOBAL; | |
679 | ||
680 | typedef struct { | |
681 | ULONG rectype; | |
682 | USHORT threadid; | |
683 | USHORT slotid; | |
684 | ULONG sleepid; | |
685 | ULONG priority; | |
686 | ULONG systime; | |
687 | ULONG usertime; | |
688 | UCHAR state; | |
689 | UCHAR _reserved1_; /* padding to ULONG */ | |
690 | USHORT _reserved2_; /* padding to ULONG */ | |
691 | } QTHREAD, *PQTHREAD; | |
692 | ||
693 | typedef struct { | |
694 | USHORT sfn; | |
695 | USHORT refcnt; | |
696 | USHORT flags1; | |
697 | USHORT flags2; | |
698 | USHORT accmode1; | |
699 | USHORT accmode2; | |
700 | ULONG filesize; | |
701 | USHORT volhnd; | |
702 | USHORT attrib; | |
703 | USHORT _reserved_; | |
704 | } QFDS, *PQFDS; | |
705 | ||
706 | typedef struct qfile { | |
707 | ULONG rectype; | |
708 | struct qfile *next; | |
709 | ULONG opencnt; | |
710 | PQFDS filedata; | |
711 | char name[1]; | |
712 | } QFILE, *PQFILE; | |
713 | ||
714 | typedef struct { | |
715 | ULONG rectype; | |
716 | PQTHREAD threads; | |
717 | USHORT pid; | |
718 | USHORT ppid; | |
719 | ULONG type; | |
720 | ULONG state; | |
721 | ULONG sessid; | |
722 | USHORT hndmod; | |
723 | USHORT threadcnt; | |
724 | ULONG privsem32cnt; | |
725 | ULONG _reserved2_; | |
726 | USHORT sem16cnt; | |
727 | USHORT dllcnt; | |
728 | USHORT shrmemcnt; | |
729 | USHORT fdscnt; | |
730 | PUSHORT sem16s; | |
731 | PUSHORT dlls; | |
732 | PUSHORT shrmems; | |
733 | PUSHORT fds; | |
734 | } QPROCESS, *PQPROCESS; | |
735 | ||
736 | typedef struct sema { | |
737 | struct sema *next; | |
738 | USHORT refcnt; | |
739 | UCHAR sysflags; | |
740 | UCHAR sysproccnt; | |
741 | ULONG _reserved1_; | |
742 | USHORT index; | |
743 | CHAR name[1]; | |
744 | } QSEMA, *PQSEMA; | |
745 | ||
746 | typedef struct { | |
747 | ULONG rectype; | |
748 | ULONG _reserved1_; | |
749 | USHORT _reserved2_; | |
750 | USHORT syssemidx; | |
751 | ULONG index; | |
752 | QSEMA sema; | |
753 | } QSEMSTRUC, *PQSEMSTRUC; | |
754 | ||
755 | typedef struct { | |
756 | USHORT pid; | |
757 | USHORT opencnt; | |
758 | } QSEMOWNER32, *PQSEMOWNER32; | |
759 | ||
760 | typedef struct { | |
761 | PQSEMOWNER32 own; | |
762 | PCHAR name; | |
763 | PVOID semrecs; /* array of associated sema's */ | |
764 | USHORT flags; | |
765 | USHORT semreccnt; | |
766 | USHORT waitcnt; | |
767 | USHORT _reserved_; /* padding to ULONG */ | |
768 | } QSEMSMUX32, *PQSEMSMUX32; | |
769 | ||
770 | typedef struct { | |
771 | PQSEMOWNER32 own; | |
772 | PCHAR name; | |
773 | PQSEMSMUX32 mux; | |
774 | USHORT flags; | |
775 | USHORT postcnt; | |
776 | } QSEMEV32, *PQSEMEV32; | |
777 | ||
778 | typedef struct { | |
779 | PQSEMOWNER32 own; | |
780 | PCHAR name; | |
781 | PQSEMSMUX32 mux; | |
782 | USHORT flags; | |
783 | USHORT refcnt; | |
784 | USHORT thrdnum; | |
785 | USHORT _reserved_; /* padding to ULONG */ | |
786 | } QSEMMUX32, *PQSEMMUX32; | |
787 | ||
788 | typedef struct semstr32 { | |
789 | struct semstr *next; | |
790 | QSEMEV32 evsem; | |
791 | QSEMMUX32 muxsem; | |
792 | QSEMSMUX32 smuxsem; | |
793 | } QSEMSTRUC32, *PQSEMSTRUC32; | |
794 | ||
795 | typedef struct shrmem { | |
796 | struct shrmem *next; | |
797 | USHORT hndshr; | |
798 | USHORT selshr; | |
799 | USHORT refcnt; | |
800 | CHAR name[1]; | |
801 | } QSHRMEM, *PQSHRMEM; | |
802 | ||
803 | typedef struct module { | |
804 | struct module *next; | |
805 | USHORT hndmod; | |
806 | USHORT type; | |
807 | ULONG refcnt; | |
808 | ULONG segcnt; | |
809 | PVOID _reserved_; | |
810 | PCHAR name; | |
811 | USHORT modref[1]; | |
812 | } QMODULE, *PQMODULE; | |
813 | ||
814 | typedef struct { | |
815 | PQGLOBAL gbldata; | |
816 | PQPROCESS procdata; | |
817 | PQSEMSTRUC semadata; | |
818 | PQSEMSTRUC32 sem32data; | |
819 | PQSHRMEM shrmemdata; | |
820 | PQMODULE moddata; | |
821 | PVOID _reserved2_; | |
822 | PQFILE filedata; | |
823 | } QTOPLEVEL, *PQTOPLEVEL; | |
824 | /* ************************************************************ */ | |
825 | ||
826 | PQTOPLEVEL get_sysinfo(ULONG pid, ULONG flags); | |
827 | ||
ed344e4f | 828 | #endif /* _OS2_H */ |
5ae7bdf7 | 829 |