This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
applied patch, moved #define mkfifo ... from perl.h to POSIX.xs
[perl5.git] / perl.h
CommitLineData
a0d0e21e 1/* perl.h
a687059c 2 *
9607fc9c 3 * Copyright (c) 1987-1997, Larry Wall
a687059c 4 *
352d5a3a
LW
5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
8d063cd8 7 *
8d063cd8 8 */
85e6fe83
LW
9#ifndef H_PERL
10#define H_PERL 1
a0d0e21e 11#define OVERLOAD
8d063cd8 12
760ac839
LW
13#ifdef PERL_FOR_X2P
14/*
15 * This file is being used for x2p stuff.
16 * Above symbol is defined via -D in 'x2p/Makefile.SH'
17 * Decouple x2p stuff from some of perls more extreme eccentricities.
18 */
760ac839 19#undef EMBED
55497cff
PP
20#undef NO_EMBED
21#define NO_EMBED
22#undef MULTIPLICITY
760ac839
LW
23#undef USE_STDIO
24#define USE_STDIO
25#endif /* PERL_FOR_X2P */
26
76e3520e 27#ifdef PERL_OBJECT
3dfd1da1
GS
28
29/* PERL_OBJECT explained - DickH and DougL @ ActiveState.com
30
31Defining PERL_OBJECT turns on creation of a C++ object that
32contains all writable core perl global variables and functions.
33Stated another way, all necessary global variables and functions
34are members of a big C++ object. This object's class is CPerlObj.
35This allows a Perl Host to have multiple, independent perl
36interpreters in the same process space. This is very important on
37Win32 systems as the overhead of process creation is quite high --
38this could be even higher than the script compile and execute time
39for small scripts.
40
41The perl executable implementation on Win32 is composed of perl.exe
42(the Perl Host) and perlX.dll. (the Perl Core). This allows the
43same Perl Core to easily be embedded in other applications that use
44the perl interpreter.
45
46+-----------+
47| Perl Host |
48+-----------+
49 ^
50 |
51 v
52+-----------+ +-----------+
53| Perl Core |<->| Extension |
54+-----------+ +-----------+ ...
55
56Defining PERL_OBJECT has the following effects:
57
58PERL CORE
591. CPerlObj is defined (this is the PERL_OBJECT)
602. all static functions that needed to access either global
61variables or functions needed are made member functions
623. all writable static variables are made member variables
634. all global variables and functions are defined as:
64 #define var CPerlObj::Perl_var
65 #define func CPerlObj::Perl_func
66 * these are in objpp.h
67This necessitated renaming some local variables and functions that
68had the same name as a global variable or function. This was
69probably a _good_ thing anyway.
70
71
72EXTENSIONS
731. Access to global variables and perl functions is through a
74pointer to the PERL_OBJECT. This pointer type is CPerlObj*. This is
75made transparent to extension developers by the following macros:
76 #define var pPerl->Perl_var
77 #define func pPerl->Perl_func
78 * these are done in ObjXSub.h
79This requires that the extension be compiled as C++, which means
80that the code must be ANSI C and not K&R C. For K&R extensions,
81please see the C API notes located in Win32/GenCAPI.pl. This script
82creates a PerlCAPI.lib that provides a K & R compatible C interface
83to the PERL_OBJECT.
842. Local variables and functions cannot have the same name as perl's
85variables or functions since the macros will redefine these. Look for
86this if you get some strange error message and it does not look like
87the code that you had written. This often happens with variables that
88are local to a function.
89
90PERL HOST
911. The perl host is linked with perlX.lib to get perl_alloc. This
92function will return a pointer to CPerlObj (the PERL_OBJECT). It
0f4eea8f
DL
93takes pointers to the various PerlXXX_YYY interfaces (see iperlsys.h
94for more information on this).
3dfd1da1
GS
952. The perl host calls the same functions as normally would be
96called in setting up and running a perl script, except that the
97functions are now member functions of the PERL_OBJECT.
98
99*/
100
101
76e3520e
GS
102class CPerlObj;
103
104#define STATIC
105#define CPERLscope(x) CPerlObj::x
106#define CPERLproto CPerlObj *
e3b8966e 107#define _CPERLproto ,CPERLproto
76e3520e
GS
108#define CPERLarg CPerlObj *pPerl
109#define CPERLarg_ CPERLarg,
e3b8966e 110#define _CPERLarg ,CPERLarg
1d583055
GS
111#define PERL_OBJECT_THIS this
112#define _PERL_OBJECT_THIS ,this
113#define PERL_OBJECT_THIS_ this,
76e3520e
GS
114#define CALLRUNOPS (this->*runops)
115
116#else /* !PERL_OBJECT */
117
118#define STATIC static
119#define CPERLscope(x) x
120#define CPERLproto
e3b8966e 121#define _CPERLproto
565764a8 122#define CPERLarg void
76e3520e 123#define CPERLarg_
e3b8966e 124#define _CPERLarg
1d583055
GS
125#define PERL_OBJECT_THIS
126#define _PERL_OBJECT_THIS
127#define PERL_OBJECT_THIS_
76e3520e
GS
128#define CALLRUNOPS runops
129
130#endif /* PERL_OBJECT */
131
71be2cbc
PP
132#define VOIDUSED 1
133#include "config.h"
134
135#include "embed.h"
136
326b05e3
GS
137#undef START_EXTERN_C
138#undef END_EXTERN_C
139#undef EXTERN_C
32f822de
GS
140#ifdef __cplusplus
141# define START_EXTERN_C extern "C" {
142# define END_EXTERN_C }
143# define EXTERN_C extern "C"
144#else
145# define START_EXTERN_C
146# define END_EXTERN_C
147# define EXTERN_C
148#endif
149
462e5cf6
MB
150#ifdef OP_IN_REGISTER
151# ifdef __GNUC__
152# define stringify_immed(s) #s
153# define stringify(s) stringify_immed(s)
d1ca3daa
GA
154#ifdef EMBED
155register struct op *Perl_op asm(stringify(OP_IN_REGISTER));
156#else
462e5cf6 157register struct op *op asm(stringify(OP_IN_REGISTER));
d1ca3daa 158#endif
462e5cf6
MB
159# endif
160#endif
161
728e2803
PP
162/*
163 * STMT_START { statements; } STMT_END;
164 * can be used as a single statement, as in
165 * if (x) STMT_START { ... } STMT_END; else ...
166 *
167 * Trying to select a version that gives no warnings...
168 */
169#if !(defined(STMT_START) && defined(STMT_END))
169d69b2 170# if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(__cplusplus)
728e2803
PP
171# define STMT_START (void)( /* gcc supports ``({ STATEMENTS; })'' */
172# define STMT_END )
173# else
174 /* Now which other defined()s do we need here ??? */
175# if (VOIDFLAGS) && (defined(sun) || defined(__sun__))
176# define STMT_START if (1)
177# define STMT_END else (void)0
178# else
179# define STMT_START do
180# define STMT_END while (0)
181# endif
182# endif
183#endif
184
462e5cf6
MB
185#define NOOP (void)0
186
61bb5906 187#define WITH_THR(s) STMT_START { dTHR; s; } STMT_END
ea0efc06 188
55497cff
PP
189/*
190 * SOFT_CAST can be used for args to prototyped functions to retain some
191 * type checking; it only casts if the compiler does not know prototypes.
192 */
193#if defined(CAN_PROTOTYPE) && defined(DEBUGGING_COMPILE)
194#define SOFT_CAST(type)
195#else
196#define SOFT_CAST(type) (type)
197#endif
79072805 198
6ee623d5 199#ifndef BYTEORDER /* Should never happen -- byteorder is in config.h */
79072805
LW
200# define BYTEORDER 0x1234
201#endif
202
203/* Overall memory policy? */
204#ifndef CONSERVATIVE
205# define LIBERAL 1
206#endif
207
208/*
209 * The following contortions are brought to you on behalf of all the
210 * standards, semi-standards, de facto standards, not-so-de-facto standards
211 * of the world, as well as all the other botches anyone ever thought of.
212 * The basic theory is that if we work hard enough here, the rest of the
213 * code can be a lot prettier. Well, so much for theory. Sorry, Henry...
214 */
ac58e20f 215
ee0007ab 216/* define this once if either system, instead of cluttering up the src */
68dc0745 217#if defined(MSDOS) || defined(atarist) || defined(WIN32)
ee0007ab
LW
218#define DOSISH 1
219#endif
220
a0d0e21e 221#if defined(__STDC__) || defined(vax11c) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus)
352d5a3a
LW
222# define STANDARD_C 1
223#endif
224
09b7f37c 225#if defined(__cplusplus) || defined(WIN32) || defined(__sgi) || defined(OS2) || defined(__DGUX)
68dc0745
PP
226# define DONT_DECLARE_STD 1
227#endif
228
352d5a3a 229#if defined(HASVOLATILE) || defined(STANDARD_C)
79072805
LW
230# ifdef __cplusplus
231# define VOL // to temporarily suppress warnings
232# else
233# define VOL volatile
234# endif
663a0e37 235#else
79072805 236# define VOL
663a0e37
LW
237#endif
238
bbce6d69
PP
239#define TAINT (tainted = TRUE)
240#define TAINT_NOT (tainted = FALSE)
241#define TAINT_IF(c) if (c) { tainted = TRUE; }
242#define TAINT_ENV() if (tainting) { taint_env(); }
243#define TAINT_PROPER(s) if (tainting) { taint_proper(no_security, s); }
a687059c 244
a6e633de
PP
245/* XXX All process group stuff is handled in pp_sys.c. Should these
246 defines move there? If so, I could simplify this a lot. --AD 9/96.
247*/
248/* Process group stuff changed from traditional BSD to POSIX.
249 perlfunc.pod documents the traditional BSD-style syntax, so we'll
250 try to preserve that, if possible.
251*/
252#ifdef HAS_SETPGID
253# define BSD_SETPGRP(pid, pgrp) setpgid((pid), (pgrp))
c07a80fd 254#else
a6e633de
PP
255# if defined(HAS_SETPGRP) && defined(USE_BSD_SETPGRP)
256# define BSD_SETPGRP(pid, pgrp) setpgrp((pid), (pgrp))
257# else
258# ifdef HAS_SETPGRP2 /* DG/UX */
259# define BSD_SETPGRP(pid, pgrp) setpgrp2((pid), (pgrp))
260# endif
261# endif
262#endif
263#if defined(BSD_SETPGRP) && !defined(HAS_SETPGRP)
264# define HAS_SETPGRP /* Well, effectively it does . . . */
265#endif
266
267/* getpgid isn't POSIX, but at least Solaris and Linux have it, and it makes
268 our life easier :-) so we'll try it.
269*/
270#ifdef HAS_GETPGID
271# define BSD_GETPGRP(pid) getpgid((pid))
272#else
273# if defined(HAS_GETPGRP) && defined(USE_BSD_GETPGRP)
274# define BSD_GETPGRP(pid) getpgrp((pid))
275# else
276# ifdef HAS_GETPGRP2 /* DG/UX */
277# define BSD_GETPGRP(pid) getpgrp2((pid))
278# endif
279# endif
280#endif
281#if defined(BSD_GETPGRP) && !defined(HAS_GETPGRP)
282# define HAS_GETPGRP /* Well, effectively it does . . . */
283#endif
284
285/* These are not exact synonyms, since setpgrp() and getpgrp() may
286 have different behaviors, but perl.h used to define USE_BSDPGRP
287 (prior to 5.003_05) so some extension might depend on it.
288*/
289#if defined(USE_BSD_SETPGRP) || defined(USE_BSD_GETPGRP)
290# ifndef USE_BSDPGRP
291# define USE_BSDPGRP
292# endif
663a0e37
LW
293#endif
294
760ac839
LW
295#ifndef _TYPES_ /* If types.h defines this it's easy. */
296# ifndef major /* Does everyone's types.h define this? */
297# include <sys/types.h>
c07a80fd 298# endif
663a0e37
LW
299#endif
300
760ac839
LW
301#ifdef __cplusplus
302# ifndef I_STDARG
303# define I_STDARG 1
304# endif
305#endif
306
307#ifdef I_STDARG
308# include <stdarg.h>
309#else
310# ifdef I_VARARGS
311# include <varargs.h>
312# endif
313#endif
314
0f4eea8f 315#include "iperlsys.h"
0c30d9ec 316
4633a7c4 317#ifdef USE_NEXT_CTYPE
0c30d9ec
PP
318
319#if NX_CURRENT_COMPILER_RELEASE >= 400
320#include <objc/NXCType.h>
321#else /* NX_CURRENT_COMPILER_RELEASE < 400 */
a0d0e21e 322#include <appkit/NXCType.h>
0c30d9ec
PP
323#endif /* NX_CURRENT_COMPILER_RELEASE >= 400 */
324
325#else /* !USE_NEXT_CTYPE */
fe14fcc3 326#include <ctype.h>
0c30d9ec 327#endif /* USE_NEXT_CTYPE */
a0d0e21e
LW
328
329#ifdef METHOD /* Defined by OSF/1 v3.0 by ctype.h */
330#undef METHOD
a0d0e21e
LW
331#endif
332
4633a7c4 333#ifdef I_LOCALE
36477c24 334# include <locale.h>
4633a7c4
LW
335#endif
336
36477c24
PP
337#if !defined(NO_LOCALE) && defined(HAS_SETLOCALE)
338# define USE_LOCALE
339# if !defined(NO_LOCALE_COLLATE) && defined(LC_COLLATE) \
340 && defined(HAS_STRXFRM)
341# define USE_LOCALE_COLLATE
342# endif
343# if !defined(NO_LOCALE_CTYPE) && defined(LC_CTYPE)
344# define USE_LOCALE_CTYPE
345# endif
346# if !defined(NO_LOCALE_NUMERIC) && defined(LC_NUMERIC)
347# define USE_LOCALE_NUMERIC
348# endif
349#endif /* !NO_LOCALE && HAS_SETLOCALE */
a0d0e21e 350
fe14fcc3 351#include <setjmp.h>
79072805 352
a0d0e21e 353#ifdef I_SYS_PARAM
79072805
LW
354# ifdef PARAM_NEEDS_TYPES
355# include <sys/types.h>
356# endif
357# include <sys/param.h>
352d5a3a 358#endif
79072805
LW
359
360
361/* Use all the "standard" definitions? */
a0d0e21e 362#if defined(STANDARD_C) && defined(I_STDLIB)
79072805 363# include <stdlib.h>
ff68c719 364#endif
03a14243 365
c31fac66
GS
366#define MEM_SIZE Size_t
367
55497cff
PP
368/* This comes after <stdlib.h> so we don't try to change the standard
369 * library prototypes; we'll use our own in proto.h instead. */
03a14243 370
4633a7c4 371#ifdef MYMALLOC
55497cff 372
4633a7c4 373# ifdef HIDEMYMALLOC
55497cff
PP
374# define malloc Mymalloc
375# define calloc Mycalloc
429a5e67 376# define realloc Myrealloc
55497cff 377# define free Myfree
c31fac66
GS
378Malloc_t Mymalloc _((MEM_SIZE nbytes));
379Malloc_t Mycalloc _((MEM_SIZE elements, MEM_SIZE size));
380Malloc_t Myrealloc _((Malloc_t where, MEM_SIZE nbytes));
381Free_t Myfree _((Malloc_t where));
55497cff
PP
382# endif
383# ifdef EMBEDMYMALLOC
384# define malloc Perl_malloc
385# define calloc Perl_calloc
386# define realloc Perl_realloc
429a5e67
DS
387/* VMS' external symbols are case-insensitive, and there's already a */
388/* perl_free in perl.h */
389#ifdef VMS
390# define free Perl_myfree
391#else
55497cff 392# define free Perl_free
429a5e67 393#endif
c31fac66
GS
394Malloc_t Perl_malloc _((MEM_SIZE nbytes));
395Malloc_t Perl_calloc _((MEM_SIZE elements, MEM_SIZE size));
396Malloc_t Perl_realloc _((Malloc_t where, MEM_SIZE nbytes));
429a5e67
DS
397#ifdef VMS
398Free_t Perl_myfree _((Malloc_t where));
399#else
c31fac66 400Free_t Perl_free _((Malloc_t where));
429a5e67 401#endif
4633a7c4 402# endif
55497cff
PP
403
404# undef safemalloc
405# undef safecalloc
406# undef saferealloc
407# undef safefree
408# define safemalloc malloc
409# define safecalloc calloc
4633a7c4 410# define saferealloc realloc
55497cff
PP
411# define safefree free
412
413#endif /* MYMALLOC */
4633a7c4 414
ff68c719
PP
415#if defined(STANDARD_C) && defined(I_STDDEF)
416# include <stddef.h>
71be2cbc 417# define STRUCT_OFFSET(s,m) offsetof(s,m)
ff68c719 418#else
71be2cbc 419# define STRUCT_OFFSET(s,m) (Size_t)(&(((s *)0)->m))
ff68c719
PP
420#endif
421
a0d0e21e
LW
422#if defined(I_STRING) || defined(__cplusplus)
423# include <string.h>
424#else
425# include <strings.h>
426#endif
427
428#if !defined(HAS_STRCHR) && defined(HAS_INDEX) && !defined(strchr)
429#define strchr index
430#define strrchr rindex
431#endif
432
16d20bd9
AD
433#ifdef I_MEMORY
434# include <memory.h>
435#endif
436
fe14fcc3 437#ifdef HAS_MEMCPY
85e6fe83 438# if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
fe14fcc3 439# ifndef memcpy
a0d0e21e 440 extern char * memcpy _((char*, char*, int));
ee0007ab
LW
441# endif
442# endif
443#else
444# ifndef memcpy
445# ifdef HAS_BCOPY
446# define memcpy(d,s,l) bcopy(s,d,l)
447# else
448# define memcpy(d,s,l) my_bcopy(s,d,l)
449# endif
450# endif
451#endif /* HAS_MEMCPY */
fe14fcc3 452
ee0007ab 453#ifdef HAS_MEMSET
85e6fe83 454# if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
ee0007ab 455# ifndef memset
a0d0e21e 456 extern char *memset _((char*, int, int));
ee0007ab
LW
457# endif
458# endif
ee0007ab 459#else
fc36a67e 460# define memset(d,c,l) my_memset(d,c,l)
ee0007ab
LW
461#endif /* HAS_MEMSET */
462
85e6fe83 463#if !defined(HAS_MEMMOVE) && !defined(memmove)
2304df62 464# if defined(HAS_BCOPY) && defined(HAS_SAFE_BCOPY)
79072805
LW
465# define memmove(d,s,l) bcopy(s,d,l)
466# else
2304df62 467# if defined(HAS_MEMCPY) && defined(HAS_SAFE_MEMCPY)
79072805 468# define memmove(d,s,l) memcpy(d,s,l)
ee0007ab 469# else
79072805 470# define memmove(d,s,l) my_bcopy(s,d,l)
ee0007ab 471# endif
352d5a3a 472# endif
d9d8d8de 473#endif
ee0007ab 474
36477c24
PP
475#if defined(mips) && defined(ultrix) && !defined(__STDC__)
476# undef HAS_MEMCMP
477#endif
478
479#if defined(HAS_MEMCMP) && defined(HAS_SANE_MEMCMP)
85e6fe83 480# if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
ee0007ab 481# ifndef memcmp
a0d0e21e 482 extern int memcmp _((char*, char*, int));
ee0007ab
LW
483# endif
484# endif
36477c24
PP
485# ifdef BUGGY_MSC
486 # pragma function(memcmp)
487# endif
ee0007ab
LW
488#else
489# ifndef memcmp
ecfc5424 490# define memcmp my_memcmp
352d5a3a 491# endif
36477c24 492#endif /* HAS_MEMCMP && HAS_SANE_MEMCMP */
8d063cd8 493
fc36a67e 494#ifndef memzero
c635e13b
PP
495# ifdef HAS_MEMSET
496# define memzero(d,l) memset(d,0,l)
79072805 497# else
c635e13b
PP
498# ifdef HAS_BZERO
499# define memzero(d,l) bzero(d,l)
79072805 500# else
fc36a67e 501# define memzero(d,l) my_bzero(d,l)
79072805
LW
502# endif
503# endif
d9d8d8de 504#endif
378cc40b 505
36477c24
PP
506#ifndef HAS_BCMP
507# ifndef bcmp
508# define bcmp(s1,s2,l) memcmp(s1,s2,l)
79072805 509# endif
36477c24 510#endif /* !HAS_BCMP */
378cc40b 511
ae986130 512#ifdef I_NETINET_IN
79072805 513# include <netinet/in.h>
ae986130
LW
514#endif
515
84902520
TB
516#if defined(SF_APPEND) && defined(USE_SFIO) && defined(I_SFIO)
517/* <sfio.h> defines SF_APPEND and <sys/stat.h> might define SF_APPEND
518 * (the neo-BSD seem to do this). */
519# undef SF_APPEND
520#endif
521
1aef975c 522#ifdef I_SYS_STAT
84902520 523# include <sys/stat.h>
1aef975c 524#endif
79072805 525
a0d0e21e
LW
526/* The stat macros for Amdahl UTS, Unisoft System V/88 (and derivatives
527 like UTekV) are broken, sometimes giving false positives. Undefine
528 them here and let the code below set them to proper values.
529
530 The ghs macro stands for GreenHills Software C-1.8.5 which
531 is the C compiler for sysV88 and the various derivatives.
532 This header file bug is corrected in gcc-2.5.8 and later versions.
533 --Kaveh Ghazi (ghazi@noc.rutgers.edu) 10/3/94. */
534
535#if defined(uts) || (defined(m88k) && defined(ghs))
79072805
LW
536# undef S_ISDIR
537# undef S_ISCHR
538# undef S_ISBLK
539# undef S_ISREG
540# undef S_ISFIFO
541# undef S_ISLNK
ee0007ab 542#endif
135863df 543
663a0e37
LW
544#ifdef I_TIME
545# include <time.h>
ffed7fef 546#endif
663a0e37 547
fe14fcc3 548#ifdef I_SYS_TIME
85e6fe83 549# ifdef I_SYS_TIME_KERNEL
663a0e37
LW
550# define KERNEL
551# endif
552# include <sys/time.h>
85e6fe83 553# ifdef I_SYS_TIME_KERNEL
663a0e37
LW
554# undef KERNEL
555# endif
a687059c 556#endif
135863df 557
55497cff 558#if defined(HAS_TIMES) && defined(I_SYS_TIMES)
85e6fe83 559# include <sys/times.h>
d9d8d8de 560#endif
8d063cd8 561
fe14fcc3 562#if defined(HAS_STRERROR) && (!defined(HAS_MKDIR) || !defined(HAS_RMDIR))
79072805 563# undef HAS_STRERROR
663a0e37
LW
564#endif
565
566#include <errno.h>
ed6116ce 567#ifdef HAS_SOCKET
85e6fe83 568# ifdef I_NET_ERRNO
ed6116ce
LW
569# include <net/errno.h>
570# endif
571#endif
f86702cc
PP
572
573#ifdef VMS
574# define SETERRNO(errcode,vmserrcode) \
575 STMT_START { \
576 set_errno(errcode); \
577 set_vaxc_errno(vmserrcode); \
578 } STMT_END
748a9306 579#else
f86702cc 580# define SETERRNO(errcode,vmserrcode) errno = (errcode)
748a9306 581#endif
ed6116ce 582
38a03e6e
MB
583#ifdef USE_THREADS
584# define ERRSV (thr->errsv)
585# define ERRHV (thr->errhv)
940cb80d
MB
586# define DEFSV THREADSV(0)
587# define SAVE_DEFSV save_threadsv(0)
38a03e6e
MB
588#else
589# define ERRSV GvSV(errgv)
590# define ERRHV GvHV(errgv)
54b9620d
MB
591# define DEFSV GvSV(defgv)
592# define SAVE_DEFSV SAVESPTR(GvSV(defgv))
38a03e6e
MB
593#endif /* USE_THREADS */
594
55497cff 595#ifndef errno
79072805 596 extern int errno; /* ANSI allows errno to be an lvalue expr */
d9d8d8de 597#endif
663a0e37 598
2304df62 599#ifdef HAS_STRERROR
a0d0e21e
LW
600# ifdef VMS
601 char *strerror _((int,...));
602# else
68dc0745 603#ifndef DONT_DECLARE_STD
a0d0e21e 604 char *strerror _((int));
68dc0745 605#endif
a0d0e21e 606# endif
2304df62
AD
607# ifndef Strerror
608# define Strerror strerror
609# endif
610#else
611# ifdef HAS_SYS_ERRLIST
79072805
LW
612 extern int sys_nerr;
613 extern char *sys_errlist[];
2304df62
AD
614# ifndef Strerror
615# define Strerror(e) \
79072805 616 ((e) < 0 || (e) >= sys_nerr ? "(unknown)" : sys_errlist[e])
2304df62 617# endif
79072805 618# endif
35c8bce7 619#endif
663a0e37 620
2304df62 621#ifdef I_SYS_IOCTL
79072805
LW
622# ifndef _IOCTL_
623# include <sys/ioctl.h>
624# endif
a687059c
LW
625#endif
626
ee0007ab 627#if defined(mc300) || defined(mc500) || defined(mc700) || defined(mc6000)
79072805
LW
628# ifdef HAS_SOCKETPAIR
629# undef HAS_SOCKETPAIR
630# endif
2304df62
AD
631# ifdef I_NDBM
632# undef I_NDBM
79072805 633# endif
a687059c
LW
634#endif
635
a687059c 636#if INTSIZE == 2
79072805
LW
637# define htoni htons
638# define ntohi ntohs
a687059c 639#else
79072805
LW
640# define htoni htonl
641# define ntohi ntohl
a687059c
LW
642#endif
643
a0d0e21e 644/* Configure already sets Direntry_t */
35c8bce7 645#if defined(I_DIRENT)
663a0e37 646# include <dirent.h>
a0d0e21e
LW
647# if defined(NeXT) && defined(I_SYS_DIR) /* NeXT needs dirent + sys/dir.h */
648# include <sys/dir.h>
649# endif
ae986130 650#else
fe14fcc3 651# ifdef I_SYS_NDIR
79a0689e 652# include <sys/ndir.h>
663a0e37 653# else
fe14fcc3 654# ifdef I_SYS_DIR
79a0689e
LW
655# ifdef hp9000s500
656# include <ndir.h> /* may be wrong in the future */
657# else
658# include <sys/dir.h>
659# endif
663a0e37
LW
660# endif
661# endif
4633a7c4 662#endif
a687059c 663
352d5a3a
LW
664#ifdef FPUTS_BOTCH
665/* work around botch in SunOS 4.0.1 and 4.0.2 */
666# ifndef fputs
79072805 667# define fputs(sv,fp) fprintf(fp,"%s",sv)
352d5a3a
LW
668# endif
669#endif
670
c623bd54
LW
671/*
672 * The following gobbledygook brought to you on behalf of __STDC__.
673 * (I could just use #ifndef __STDC__, but this is more bulletproof
674 * in the face of half-implementations.)
675 */
676
677#ifndef S_IFMT
678# ifdef _S_IFMT
679# define S_IFMT _S_IFMT
680# else
681# define S_IFMT 0170000
682# endif
683#endif
684
685#ifndef S_ISDIR
686# define S_ISDIR(m) ((m & S_IFMT) == S_IFDIR)
687#endif
688
689#ifndef S_ISCHR
690# define S_ISCHR(m) ((m & S_IFMT) == S_IFCHR)
691#endif
692
693#ifndef S_ISBLK
fe14fcc3
LW
694# ifdef S_IFBLK
695# define S_ISBLK(m) ((m & S_IFMT) == S_IFBLK)
696# else
697# define S_ISBLK(m) (0)
698# endif
c623bd54
LW
699#endif
700
701#ifndef S_ISREG
702# define S_ISREG(m) ((m & S_IFMT) == S_IFREG)
703#endif
704
705#ifndef S_ISFIFO
fe14fcc3
LW
706# ifdef S_IFIFO
707# define S_ISFIFO(m) ((m & S_IFMT) == S_IFIFO)
708# else
709# define S_ISFIFO(m) (0)
710# endif
c623bd54
LW
711#endif
712
713#ifndef S_ISLNK
714# ifdef _S_ISLNK
715# define S_ISLNK(m) _S_ISLNK(m)
716# else
717# ifdef _S_IFLNK
718# define S_ISLNK(m) ((m & S_IFMT) == _S_IFLNK)
719# else
720# ifdef S_IFLNK
721# define S_ISLNK(m) ((m & S_IFMT) == S_IFLNK)
722# else
723# define S_ISLNK(m) (0)
724# endif
725# endif
726# endif
727#endif
728
729#ifndef S_ISSOCK
730# ifdef _S_ISSOCK
731# define S_ISSOCK(m) _S_ISSOCK(m)
732# else
733# ifdef _S_IFSOCK
734# define S_ISSOCK(m) ((m & S_IFMT) == _S_IFSOCK)
735# else
736# ifdef S_IFSOCK
737# define S_ISSOCK(m) ((m & S_IFMT) == S_IFSOCK)
738# else
739# define S_ISSOCK(m) (0)
740# endif
741# endif
742# endif
743#endif
744
745#ifndef S_IRUSR
746# ifdef S_IREAD
747# define S_IRUSR S_IREAD
748# define S_IWUSR S_IWRITE
749# define S_IXUSR S_IEXEC
750# else
751# define S_IRUSR 0400
752# define S_IWUSR 0200
753# define S_IXUSR 0100
754# endif
755# define S_IRGRP (S_IRUSR>>3)
756# define S_IWGRP (S_IWUSR>>3)
757# define S_IXGRP (S_IXUSR>>3)
758# define S_IROTH (S_IRUSR>>6)
759# define S_IWOTH (S_IWUSR>>6)
760# define S_IXOTH (S_IXUSR>>6)
761#endif
762
763#ifndef S_ISUID
764# define S_ISUID 04000
765#endif
766
767#ifndef S_ISGID
768# define S_ISGID 02000
769#endif
770
79072805
LW
771#ifdef ff_next
772# undef ff_next
352d5a3a
LW
773#endif
774
a0d0e21e 775#if defined(cray) || defined(gould) || defined(i860) || defined(pyr)
45d8adaa
LW
776# define SLOPPYDIVIDE
777#endif
778
748a9306
LW
779#ifdef UV
780#undef UV
781#endif
782
27d4fb96
PP
783/* XXX QUAD stuff is not currently supported on most systems.
784 Specifically, perl internals don't support long long. Among
785 the many problems is that some compilers support long long,
786 but the underlying library functions (such as sprintf) don't.
787 Some things do work (such as quad pack/unpack on convex);
788 also some systems use long long for the fpos_t typedef. That
789 seems to work too.
790
791 The IV type is supposed to be long enough to hold any integral
792 value or a pointer.
793 --Andy Dougherty August 1996
794*/
795
f86702cc
PP
796#ifdef cray
797# define Quad_t int
798#else
799# ifdef convex
800# define Quad_t long long
45d8adaa 801# else
6ee623d5 802# if LONGSIZE == 8
ecfc5424 803# define Quad_t long
45d8adaa
LW
804# endif
805# endif
f86702cc
PP
806#endif
807
6ee623d5
GS
808/* XXX Experimental set-up for long long. Just add -DUSE_LONG_LONG
809 to your ccflags. --Andy Dougherty 4/1998
810*/
811#ifdef USE_LONG_LONG
812# if defined(HAS_LONG_LONG) && LONGLONGSIZE == 8
813# define Quad_t long long
814# endif
815#endif
816
f86702cc
PP
817#ifdef Quad_t
818# define HAS_QUAD
748a9306
LW
819 typedef Quad_t IV;
820 typedef unsigned Quad_t UV;
27d4fb96
PP
821# define IV_MAX PERL_QUAD_MAX
822# define IV_MIN PERL_QUAD_MIN
823# define UV_MAX PERL_UQUAD_MAX
824# define UV_MIN PERL_UQUAD_MIN
79072805 825#else
748a9306
LW
826 typedef long IV;
827 typedef unsigned long UV;
27d4fb96
PP
828# define IV_MAX PERL_LONG_MAX
829# define IV_MIN PERL_LONG_MIN
830# define UV_MAX PERL_ULONG_MAX
831# define UV_MIN PERL_ULONG_MIN
79072805
LW
832#endif
833
760ac839
LW
834/* Previously these definitions used hardcoded figures.
835 * It is hoped these formula are more portable, although
836 * no data one way or another is presently known to me.
837 * The "PERL_" names are used because these calculated constants
838 * do not meet the ANSI requirements for LONG_MAX, etc., which
839 * need to be constants acceptable to #if - kja
840 * define PERL_LONG_MAX 2147483647L
841 * define PERL_LONG_MIN (-LONG_MAX - 1)
842 * define PERL ULONG_MAX 4294967295L
843 */
844
845#ifdef I_LIMITS /* Needed for cast_xxx() functions below. */
846# include <limits.h>
847#else
848#ifdef I_VALUES
849# include <values.h>
850#endif
851#endif
852
99abf803
PP
853/*
854 * Try to figure out max and min values for the integral types. THE CORRECT
855 * SOLUTION TO THIS MESS: ADAPT enquire.c FROM GCC INTO CONFIGURE. The
856 * following hacks are used if neither limits.h or values.h provide them:
857 * U<TYPE>_MAX: for types >= int: ~(unsigned TYPE)0
858 * for types < int: (unsigned TYPE)~(unsigned)0
859 * The argument to ~ must be unsigned so that later signed->unsigned
860 * conversion can't modify the value's bit pattern (e.g. -0 -> +0),
861 * and it must not be smaller than int because ~ does integral promotion.
862 * <type>_MAX: (<type>) (U<type>_MAX >> 1)
863 * <type>_MIN: -<type>_MAX - <is_twos_complement_architecture: (3 & -1) == 3>.
864 * The latter is a hack which happens to work on some machines but
865 * does *not* catch any random system, or things like integer types
866 * with NaN if that is possible.
867 *
868 * All of the types are explicitly cast to prevent accidental loss of
869 * numeric range, and in the hope that they will be less likely to confuse
870 * over-eager optimizers.
871 *
872 */
27d4fb96 873
99abf803
PP
874#define PERL_UCHAR_MIN ((unsigned char)0)
875
876#ifdef UCHAR_MAX
877# define PERL_UCHAR_MAX ((unsigned char)UCHAR_MAX)
27d4fb96 878#else
99abf803
PP
879# ifdef MAXUCHAR
880# define PERL_UCHAR_MAX ((unsigned char)MAXUCHAR)
27d4fb96 881# else
99abf803 882# define PERL_UCHAR_MAX ((unsigned char)~(unsigned)0)
27d4fb96
PP
883# endif
884#endif
99abf803
PP
885
886/*
887 * CHAR_MIN and CHAR_MAX are not included here, as the (char) type may be
888 * ambiguous. It may be equivalent to (signed char) or (unsigned char)
889 * depending on local options. Until Configure detects this (or at least
890 * detects whether the "signed" keyword is available) the CHAR ranges
891 * will not be included. UCHAR functions normally.
892 * - kja
893 */
27d4fb96 894
99abf803
PP
895#define PERL_USHORT_MIN ((unsigned short)0)
896
897#ifdef USHORT_MAX
898# define PERL_USHORT_MAX ((unsigned short)USHORT_MAX)
27d4fb96 899#else
99abf803
PP
900# ifdef MAXUSHORT
901# define PERL_USHORT_MAX ((unsigned short)MAXUSHORT)
27d4fb96 902# else
ef2f54b0
CB
903# ifdef USHRT_MAX
904# define PERL_USHORT_MAX ((unsigned short)USHRT_MAX)
905# else
906# define PERL_USHORT_MAX ((unsigned short)~(unsigned)0)
907# endif
27d4fb96
PP
908# endif
909#endif
910
27d4fb96 911#ifdef SHORT_MAX
99abf803 912# define PERL_SHORT_MAX ((short)SHORT_MAX)
27d4fb96
PP
913#else
914# ifdef MAXSHORT /* Often used in <values.h> */
99abf803 915# define PERL_SHORT_MAX ((short)MAXSHORT)
27d4fb96 916# else
ef2f54b0
CB
917# ifdef SHRT_MAX
918# define PERL_SHORT_MAX ((short)SHRT_MAX)
919# else
920# define PERL_SHORT_MAX ((short) (PERL_USHORT_MAX >> 1))
921# endif
27d4fb96
PP
922# endif
923#endif
924
925#ifdef SHORT_MIN
99abf803 926# define PERL_SHORT_MIN ((short)SHORT_MIN)
27d4fb96
PP
927#else
928# ifdef MINSHORT
99abf803 929# define PERL_SHORT_MIN ((short)MINSHORT)
27d4fb96 930# else
ef2f54b0
CB
931# ifdef SHRT_MIN
932# define PERL_SHORT_MIN ((short)SHRT_MIN)
933# else
934# define PERL_SHORT_MIN (-PERL_SHORT_MAX - ((3 & -1) == 3))
935# endif
27d4fb96
PP
936# endif
937#endif
938
99abf803
PP
939#ifdef UINT_MAX
940# define PERL_UINT_MAX ((unsigned int)UINT_MAX)
27d4fb96 941#else
99abf803
PP
942# ifdef MAXUINT
943# define PERL_UINT_MAX ((unsigned int)MAXUINT)
27d4fb96 944# else
99abf803 945# define PERL_UINT_MAX (~(unsigned int)0)
27d4fb96
PP
946# endif
947#endif
948
99abf803 949#define PERL_UINT_MIN ((unsigned int)0)
27d4fb96
PP
950
951#ifdef INT_MAX
99abf803 952# define PERL_INT_MAX ((int)INT_MAX)
27d4fb96
PP
953#else
954# ifdef MAXINT /* Often used in <values.h> */
99abf803 955# define PERL_INT_MAX ((int)MAXINT)
27d4fb96 956# else
99abf803 957# define PERL_INT_MAX ((int)(PERL_UINT_MAX >> 1))
27d4fb96
PP
958# endif
959#endif
960
961#ifdef INT_MIN
99abf803 962# define PERL_INT_MIN ((int)INT_MIN)
27d4fb96
PP
963#else
964# ifdef MININT
99abf803 965# define PERL_INT_MIN ((int)MININT)
27d4fb96
PP
966# else
967# define PERL_INT_MIN (-PERL_INT_MAX - ((3 & -1) == 3))
968# endif
969#endif
970
99abf803
PP
971#ifdef ULONG_MAX
972# define PERL_ULONG_MAX ((unsigned long)ULONG_MAX)
27d4fb96 973#else
99abf803
PP
974# ifdef MAXULONG
975# define PERL_ULONG_MAX ((unsigned long)MAXULONG)
27d4fb96 976# else
99abf803 977# define PERL_ULONG_MAX (~(unsigned long)0)
27d4fb96
PP
978# endif
979#endif
980
99abf803 981#define PERL_ULONG_MIN ((unsigned long)0L)
27d4fb96 982
760ac839 983#ifdef LONG_MAX
99abf803 984# define PERL_LONG_MAX ((long)LONG_MAX)
760ac839
LW
985#else
986# ifdef MAXLONG /* Often used in <values.h> */
99abf803 987# define PERL_LONG_MAX ((long)MAXLONG)
760ac839 988# else
99abf803 989# define PERL_LONG_MAX ((long) (PERL_ULONG_MAX >> 1))
760ac839
LW
990# endif
991#endif
992
993#ifdef LONG_MIN
99abf803 994# define PERL_LONG_MIN ((long)LONG_MIN)
760ac839
LW
995#else
996# ifdef MINLONG
99abf803 997# define PERL_LONG_MIN ((long)MINLONG)
760ac839 998# else
27d4fb96 999# define PERL_LONG_MIN (-PERL_LONG_MAX - ((3 & -1) == 3))
760ac839
LW
1000# endif
1001#endif
1002
99abf803
PP
1003#ifdef HAS_QUAD
1004
1005# ifdef UQUAD_MAX
1006# define PERL_UQUAD_MAX ((UV)UQUAD_MAX)
760ac839 1007# else
99abf803 1008# define PERL_UQUAD_MAX (~(UV)0)
760ac839 1009# endif
760ac839 1010
99abf803 1011# define PERL_UQUAD_MIN ((UV)0)
27d4fb96 1012
27d4fb96 1013# ifdef QUAD_MAX
99abf803 1014# define PERL_QUAD_MAX ((IV)QUAD_MAX)
27d4fb96 1015# else
99abf803 1016# define PERL_QUAD_MAX ((IV) (PERL_UQUAD_MAX >> 1))
27d4fb96
PP
1017# endif
1018
1019# ifdef QUAD_MIN
99abf803 1020# define PERL_QUAD_MIN ((IV)QUAD_MIN)
27d4fb96 1021# else
a6e633de 1022# define PERL_QUAD_MIN (-PERL_QUAD_MAX - ((3 & -1) == 3))
27d4fb96
PP
1023# endif
1024
79072805
LW
1025#endif
1026
ee0007ab 1027typedef MEM_SIZE STRLEN;
450a55e4 1028
79072805
LW
1029typedef struct op OP;
1030typedef struct cop COP;
1031typedef struct unop UNOP;
1032typedef struct binop BINOP;
1033typedef struct listop LISTOP;
1034typedef struct logop LOGOP;
1035typedef struct condop CONDOP;
1036typedef struct pmop PMOP;
1037typedef struct svop SVOP;
1038typedef struct gvop GVOP;
1039typedef struct pvop PVOP;
79072805
LW
1040typedef struct loop LOOP;
1041
1042typedef struct Outrec Outrec;
93a17b20 1043typedef struct interpreter PerlInterpreter;
3e3baf6d
TB
1044#ifndef __BORLANDC__
1045typedef struct ff FF; /* XXX not defined anywhere, should go? */
1046#endif
79072805
LW
1047typedef struct sv SV;
1048typedef struct av AV;
1049typedef struct hv HV;
1050typedef struct cv CV;
378cc40b 1051typedef struct regexp REGEXP;
79072805 1052typedef struct gp GP;
0c30d9ec 1053typedef struct gv GV;
8990e307 1054typedef struct io IO;
c09156bb 1055typedef struct context PERL_CONTEXT;
79072805
LW
1056typedef struct block BLOCK;
1057
1058typedef struct magic MAGIC;
ed6116ce 1059typedef struct xrv XRV;
79072805
LW
1060typedef struct xpv XPV;
1061typedef struct xpviv XPVIV;
ff68c719 1062typedef struct xpvuv XPVUV;
79072805
LW
1063typedef struct xpvnv XPVNV;
1064typedef struct xpvmg XPVMG;
1065typedef struct xpvlv XPVLV;
1066typedef struct xpvav XPVAV;
1067typedef struct xpvhv XPVHV;
1068typedef struct xpvgv XPVGV;
1069typedef struct xpvcv XPVCV;
1070typedef struct xpvbm XPVBM;
1071typedef struct xpvfm XPVFM;
8990e307 1072typedef struct xpvio XPVIO;
79072805
LW
1073typedef struct mgvtbl MGVTBL;
1074typedef union any ANY;
8d063cd8 1075
378cc40b 1076#include "handy.h"
a0d0e21e 1077
873ef191
GS
1078#ifdef PERL_OBJECT
1079typedef I32 (*filter_t) _((CPerlObj*, int, SV *, int));
1080#else
16d20bd9 1081typedef I32 (*filter_t) _((int, SV *, int));
873ef191
GS
1082#endif
1083
16d20bd9
AD
1084#define FILTER_READ(idx, sv, len) filter_read(idx, sv, len)
1085#define FILTER_DATA(idx) (AvARRAY(rsfp_filters)[idx])
93965878 1086#define FILTER_ISREADER(idx) (idx >= AvFILLp(rsfp_filters))
16d20bd9 1087
748a9306 1088#ifdef DOSISH
4633a7c4
LW
1089# if defined(OS2)
1090# include "os2ish.h"
1091# else
748a9306 1092# include "dosish.h"
4633a7c4 1093# endif
a0d0e21e 1094#else
748a9306
LW
1095# if defined(VMS)
1096# include "vmsish.h"
1097# else
0c30d9ec
PP
1098# if defined(PLAN9)
1099# include "./plan9/plan9ish.h"
1100# else
1101# include "unixish.h"
1102# endif
748a9306 1103# endif
32f822de
GS
1104#endif
1105
ac4c12e7
GS
1106#ifndef FUNC_NAME_TO_PTR
1107#define FUNC_NAME_TO_PTR(name) name
1108#endif
1109
32f822de 1110/*
dd96f567
IZ
1111 * USE_THREADS needs to be after unixish.h as <pthread.h> includes
1112 * <sys/signal.h> which defines NSIG - which will stop inclusion of <signal.h>
32f822de
GS
1113 * this results in many functions being undeclared which bothers C++
1114 * May make sense to have threads after "*ish.h" anyway
1115 */
1116
1117#ifdef USE_THREADS
1118# ifdef FAKE_THREADS
1119# include "fakethr.h"
1120# else
1121# ifdef WIN32
1122# include <win32thread.h>
1123# else
dd96f567
IZ
1124# ifdef OS2
1125# include "os2thread.h"
1126# else
1127# include <pthread.h>
c6ee37c5 1128typedef pthread_t perl_os_thread;
32f822de
GS
1129typedef pthread_mutex_t perl_mutex;
1130typedef pthread_cond_t perl_cond;
1131typedef pthread_key_t perl_key;
dd96f567 1132# endif /* OS2 */
32f822de
GS
1133# endif /* WIN32 */
1134# endif /* FAKE_THREADS */
1135#endif /* USE_THREADS */
1136
1137
3fc1aec6 1138
68dc0745
PP
1139#ifdef VMS
1140# define STATUS_NATIVE statusvalue_vms
1141# define STATUS_NATIVE_EXPORT \
1142 ((I32)statusvalue_vms == -1 ? 44 : statusvalue_vms)
1143# define STATUS_NATIVE_SET(n) \
1144 STMT_START { \
1145 statusvalue_vms = (n); \
1146 if ((I32)statusvalue_vms == -1) \
1147 statusvalue = -1; \
1148 else if (statusvalue_vms & STS$M_SUCCESS) \
1149 statusvalue = 0; \
1150 else if ((statusvalue_vms & STS$M_SEVERITY) == 0) \
1151 statusvalue = 1 << 8; \
1152 else \
1153 statusvalue = (statusvalue_vms & STS$M_SEVERITY) << 8; \
1154 } STMT_END
1155# define STATUS_POSIX statusvalue
1156# ifdef VMSISH_STATUS
1157# define STATUS_CURRENT (VMSISH_STATUS ? STATUS_NATIVE : STATUS_POSIX)
1158# else
1159# define STATUS_CURRENT STATUS_POSIX
1160# endif
1161# define STATUS_POSIX_SET(n) \
1162 STMT_START { \
1163 statusvalue = (n); \
1164 if (statusvalue != -1) { \
1165 statusvalue &= 0xFFFF; \
1166 statusvalue_vms = statusvalue ? 44 : 1; \
1167 } \
1168 else statusvalue_vms = -1; \
1169 } STMT_END
1170# define STATUS_ALL_SUCCESS (statusvalue = 0, statusvalue_vms = 1)
1171# define STATUS_ALL_FAILURE (statusvalue = 1, statusvalue_vms = 44)
1172#else
1173# define STATUS_NATIVE STATUS_POSIX
1174# define STATUS_NATIVE_EXPORT STATUS_POSIX
1175# define STATUS_NATIVE_SET STATUS_POSIX_SET
1176# define STATUS_POSIX statusvalue
1177# define STATUS_POSIX_SET(n) \
1178 STMT_START { \
1179 statusvalue = (n); \
1180 if (statusvalue != -1) \
1181 statusvalue &= 0xFFFF; \
1182 } STMT_END
1183# define STATUS_CURRENT STATUS_POSIX
1184# define STATUS_ALL_SUCCESS (statusvalue = 0)
1185# define STATUS_ALL_FAILURE (statusvalue = 1)
1186#endif
1187
3fc1aec6
PP
1188/* Some unistd.h's give a prototype for pause() even though
1189 HAS_PAUSE ends up undefined. This causes the #define
1190 below to be rejected by the compmiler. Sigh.
1191*/
1192#ifdef HAS_PAUSE
1193#define Pause pause
1194#else
1195#define Pause() sleep((32767<<16)+32767)
748a9306
LW
1196#endif
1197
1198#ifndef IOCPARM_LEN
1199# ifdef IOCPARM_MASK
1200 /* on BSDish systes we're safe */
1201# define IOCPARM_LEN(x) (((x) >> 16) & IOCPARM_MASK)
1202# else
1203 /* otherwise guess at what's safe */
1204# define IOCPARM_LEN(x) 256
1205# endif
a0d0e21e
LW
1206#endif
1207
0f4eea8f
DL
1208#ifdef UNION_ANY_DEFINITION
1209UNION_ANY_DEFINITION;
1210#else
79072805
LW
1211union any {
1212 void* any_ptr;
1213 I32 any_i32;
a0d0e21e 1214 IV any_iv;
85e6fe83 1215 long any_long;
565764a8 1216 void (CPERLscope(*any_dptr)) _((void*));
79072805 1217};
0f4eea8f 1218#endif
79072805 1219
11343788 1220#ifdef USE_THREADS
52e1cb5e 1221#define ARGSproto struct perl_thread *thr
11343788
MB
1222#else
1223#define ARGSproto void
1224#endif /* USE_THREADS */
1225
5aabfad6
PP
1226/* Work around some cygwin32 problems with importing global symbols */
1227#if defined(CYGWIN32) && defined(DLLIMPORT)
1228# include "cw32imp.h"
1229#endif
1230
378cc40b 1231#include "regexp.h"
79072805 1232#include "sv.h"
378cc40b 1233#include "util.h"
8d063cd8 1234#include "form.h"
79072805
LW
1235#include "gv.h"
1236#include "cv.h"
1237#include "opcode.h"
1238#include "op.h"
1239#include "cop.h"
1240#include "av.h"
1241#include "hv.h"
1242#include "mg.h"
1243#include "scope.h"
d613ef02
GS
1244#include "bytecode.h"
1245#include "byterun.h"
8d063cd8 1246
7fae4e64
GS
1247/* Current curly descriptor */
1248typedef struct curcur CURCUR;
1249struct curcur {
1250 int parenfloor; /* how far back to strip paren data */
1251 int cur; /* how many instances of scan we've matched */
1252 int min; /* the minimal number of scans to match */
1253 int max; /* the maximal number of scans to match */
1254 int minmod; /* whether to work our way up or down */
1255 regnode * scan; /* the thing to match */
1256 regnode * next; /* what has to match after it */
1257 char * lastloc; /* where we started matching this scan */
1258 CURCUR * oldcc; /* current curly before we started this one */
1259};
1260
1261typedef struct _sublex_info SUBLEXINFO;
1262struct _sublex_info {
1263 I32 super_state; /* lexer state to save */
1264 I32 sub_inwhat; /* "lex_inwhat" to use */
1265 OP *sub_op; /* "lex_op" to use */
1266};
1267
76e3520e
GS
1268#ifdef PERL_OBJECT
1269struct magic_state {
1270 SV* mgs_sv;
1271 U32 mgs_flags;
1272};
1273typedef struct magic_state MGS;
1274
1275typedef struct {
1276 I32 len_min;
1277 I32 len_delta;
1278 I32 pos_min;
1279 I32 pos_delta;
1280 SV *last_found;
1281 I32 last_end; /* min value, <0 unless valid. */
1282 I32 last_start_min;
1283 I32 last_start_max;
1284 SV **longest; /* Either &l_fixed, or &l_float. */
1285 SV *longest_fixed;
1286 I32 offset_fixed;
1287 SV *longest_float;
1288 I32 offset_float_min;
1289 I32 offset_float_max;
1290 I32 flags;
1291} scan_data_t;
1292
1293typedef I32 CHECKPOINT;
1294#endif /* PERL_OBJECT */
1295
4633a7c4
LW
1296/* work around some libPW problems */
1297#ifdef DOINIT
1298EXT char Error[1];
1299#endif
1300
450a55e4 1301#if defined(iAPX286) || defined(M_I286) || defined(I80286)
a687059c
LW
1302# define I286
1303#endif
1304
fe14fcc3
LW
1305#if defined(htonl) && !defined(HAS_HTONL)
1306#define HAS_HTONL
ae986130 1307#endif
fe14fcc3
LW
1308#if defined(htons) && !defined(HAS_HTONS)
1309#define HAS_HTONS
ae986130 1310#endif
fe14fcc3
LW
1311#if defined(ntohl) && !defined(HAS_NTOHL)
1312#define HAS_NTOHL
ae986130 1313#endif
fe14fcc3
LW
1314#if defined(ntohs) && !defined(HAS_NTOHS)
1315#define HAS_NTOHS
ae986130 1316#endif
fe14fcc3 1317#ifndef HAS_HTONL
d9d8d8de 1318#if (BYTEORDER & 0xffff) != 0x4321
fe14fcc3
LW
1319#define HAS_HTONS
1320#define HAS_HTONL
1321#define HAS_NTOHS
1322#define HAS_NTOHL
a687059c
LW
1323#define MYSWAP
1324#define htons my_swap
1325#define htonl my_htonl
1326#define ntohs my_swap
1327#define ntohl my_ntohl
1328#endif
1329#else
d9d8d8de 1330#if (BYTEORDER & 0xffff) == 0x4321
fe14fcc3
LW
1331#undef HAS_HTONS
1332#undef HAS_HTONL
1333#undef HAS_NTOHS
1334#undef HAS_NTOHL
a687059c
LW
1335#endif
1336#endif
1337
988174c1
LW
1338/*
1339 * Little-endian byte order functions - 'v' for 'VAX', or 'reVerse'.
1340 * -DWS
1341 */
1342#if BYTEORDER != 0x1234
1343# define HAS_VTOHL
1344# define HAS_VTOHS
1345# define HAS_HTOVL
1346# define HAS_HTOVS
1347# if BYTEORDER == 0x4321
1348# define vtohl(x) ((((x)&0xFF)<<24) \
1349 +(((x)>>24)&0xFF) \
1350 +(((x)&0x0000FF00)<<8) \
1351 +(((x)&0x00FF0000)>>8) )
1352# define vtohs(x) ((((x)&0xFF)<<8) + (((x)>>8)&0xFF))
1353# define htovl(x) vtohl(x)
1354# define htovs(x) vtohs(x)
1355# endif
1356 /* otherwise default to functions in util.c */
1357#endif
1358
0f85fab0 1359#ifdef CASTNEGFLOAT
79072805 1360#define U_S(what) ((U16)(what))
0f85fab0 1361#define U_I(what) ((unsigned int)(what))
79072805 1362#define U_L(what) ((U32)(what))
0f85fab0 1363#else
32f822de 1364EXTERN_C U32 cast_ulong _((double));
232e078e
AD
1365#define U_S(what) ((U16)cast_ulong((double)(what)))
1366#define U_I(what) ((unsigned int)cast_ulong((double)(what)))
1367#define U_L(what) (cast_ulong((double)(what)))
ee0007ab
LW
1368#endif
1369
ed6116ce
LW
1370#ifdef CASTI32
1371#define I_32(what) ((I32)(what))
a0d0e21e 1372#define I_V(what) ((IV)(what))
5d94fbed 1373#define U_V(what) ((UV)(what))
ed6116ce 1374#else
32f822de 1375START_EXTERN_C
a0d0e21e 1376I32 cast_i32 _((double));
a0d0e21e 1377IV cast_iv _((double));
5d94fbed 1378UV cast_uv _((double));
32f822de 1379END_EXTERN_C
a6e633de
PP
1380#define I_32(what) (cast_i32((double)(what)))
1381#define I_V(what) (cast_iv((double)(what)))
5d94fbed 1382#define U_V(what) (cast_uv((double)(what)))
ed6116ce
LW
1383#endif
1384
79072805
LW
1385struct Outrec {
1386 I32 o_lines;
d9d8d8de 1387 char *o_str;
79072805 1388 U32 o_len;
8d063cd8
LW
1389};
1390
352d5a3a
LW
1391#ifndef MAXSYSFD
1392# define MAXSYSFD 2
1393#endif
ee0007ab 1394
f82b3d41
PP
1395#ifndef TMPPATH
1396# define TMPPATH "/tmp/perl-eXXXXXX"
a0d0e21e 1397#endif
79072805
LW
1398
1399#ifndef __cplusplus
a0d0e21e
LW
1400Uid_t getuid _((void));
1401Uid_t geteuid _((void));
1402Gid_t getgid _((void));
1403Gid_t getegid _((void));
79072805 1404#endif
8d063cd8
LW
1405
1406#ifdef DEBUGGING
0c30d9ec 1407#ifndef Perl_debug_log
760ac839 1408#define Perl_debug_log PerlIO_stderr()
0c30d9ec 1409#endif
d96024cf 1410#define YYDEBUG 1
79072805
LW
1411#define DEB(a) a
1412#define DEBUG(a) if (debug) a
1413#define DEBUG_p(a) if (debug & 1) a
1414#define DEBUG_s(a) if (debug & 2) a
1415#define DEBUG_l(a) if (debug & 4) a
1416#define DEBUG_t(a) if (debug & 8) a
1417#define DEBUG_o(a) if (debug & 16) a
1418#define DEBUG_c(a) if (debug & 32) a
1419#define DEBUG_P(a) if (debug & 64) a
0c30d9ec 1420#define DEBUG_m(a) if (curinterp && debug & 128) a
79072805
LW
1421#define DEBUG_f(a) if (debug & 256) a
1422#define DEBUG_r(a) if (debug & 512) a
1423#define DEBUG_x(a) if (debug & 1024) a
1424#define DEBUG_u(a) if (debug & 2048) a
1425#define DEBUG_L(a) if (debug & 4096) a
1426#define DEBUG_H(a) if (debug & 8192) a
1427#define DEBUG_X(a) if (debug & 16384) a
8990e307 1428#define DEBUG_D(a) if (debug & 32768) a
79072805
LW
1429#else
1430#define DEB(a)
1431#define DEBUG(a)
1432#define DEBUG_p(a)
1433#define DEBUG_s(a)
1434#define DEBUG_l(a)
1435#define DEBUG_t(a)
1436#define DEBUG_o(a)
1437#define DEBUG_c(a)
1438#define DEBUG_P(a)
1439#define DEBUG_m(a)
1440#define DEBUG_f(a)
1441#define DEBUG_r(a)
1442#define DEBUG_x(a)
1443#define DEBUG_u(a)
1444#define DEBUG_L(a)
1445#define DEBUG_H(a)
1446#define DEBUG_X(a)
8990e307 1447#define DEBUG_D(a)
8d063cd8 1448#endif
fe14fcc3 1449#define YYMAXDEPTH 300
8d063cd8 1450
a6e633de 1451#ifndef assert /* <assert.h> might have been included somehow */
79072805
LW
1452#define assert(what) DEB( { \
1453 if (!(what)) { \
463ee0b2 1454 croak("Assertion failed: file \"%s\", line %d", \
79072805 1455 __FILE__, __LINE__); \
6ad3d225 1456 PerlProc_exit(1); \
79072805 1457 }})
a6e633de 1458#endif
8d063cd8 1459
450a55e4 1460struct ufuncs {
a0d0e21e
LW
1461 I32 (*uf_val)_((IV, SV*));
1462 I32 (*uf_set)_((IV, SV*));
1463 IV uf_index;
450a55e4
LW
1464};
1465
fe14fcc3 1466/* Fix these up for __STDC__ */
68dc0745 1467#ifndef DONT_DECLARE_STD
a0d0e21e
LW
1468char *mktemp _((char*));
1469double atof _((const char*));
1470#endif
79072805 1471
352d5a3a 1472#ifndef STANDARD_C
fe14fcc3 1473/* All of these are in stdlib.h or time.h for ANSI C */
85e6fe83 1474Time_t time();
8d063cd8 1475struct tm *gmtime(), *localtime();
93a17b20 1476char *strchr(), *strrchr();
378cc40b 1477char *strcpy(), *strcat();
352d5a3a 1478#endif /* ! STANDARD_C */
8d063cd8 1479
79072805
LW
1480
1481#ifdef I_MATH
1482# include <math.h>
1483#else
32f822de 1484START_EXTERN_C
a0d0e21e 1485 double exp _((double));
a0d0e21e 1486 double log _((double));
c635e13b 1487 double log10 _((double));
a0d0e21e 1488 double sqrt _((double));
c635e13b
PP
1489 double frexp _((double,int*));
1490 double ldexp _((double,int));
a0d0e21e
LW
1491 double modf _((double,double*));
1492 double sin _((double));
1493 double cos _((double));
1494 double atan2 _((double,double));
1495 double pow _((double,double));
32f822de 1496END_EXTERN_C
79072805
LW
1497#endif
1498
a0d0e21e 1499#ifndef __cplusplus
26618a56 1500# ifdef __NeXT__ /* or whatever catches all NeXTs */
3fc1aec6 1501char *crypt (); /* Maybe more hosts will need the unprototyped version */
26618a56
GS
1502# else
1503# if !defined(WIN32) || !defined(HAVE_DES_FCRYPT)
a0d0e21e 1504char *crypt _((const char*, const char*));
26618a56
GS
1505# endif /* !WIN32 && !HAVE_CRYPT_SOURCE */
1506# endif /* !__NeXT__ */
1507# ifndef DONT_DECLARE_STD
1508# ifndef getenv
a0d0e21e 1509char *getenv _((const char*));
26618a56 1510# endif /* !getenv */
a0d0e21e 1511Off_t lseek _((int,Off_t,int));
26618a56 1512# endif /* !DONT_DECLARE_STD */
a0d0e21e 1513char *getlogin _((void));
26618a56 1514#endif /* !__cplusplus */
79072805 1515
16d20bd9 1516#ifdef UNLINK_ALL_VERSIONS /* Currently only makes sense for VMS */
378cc40b 1517#define UNLINK unlnk
a0d0e21e 1518I32 unlnk _((char*));
8d063cd8
LW
1519#else
1520#define UNLINK unlink
1521#endif
a687059c 1522
fe14fcc3 1523#ifndef HAS_SETREUID
85e6fe83
LW
1524# ifdef HAS_SETRESUID
1525# define setreuid(r,e) setresuid(r,e,(Uid_t)-1)
1526# define HAS_SETREUID
1527# endif
a687059c 1528#endif
fe14fcc3 1529#ifndef HAS_SETREGID
85e6fe83
LW
1530# ifdef HAS_SETRESGID
1531# define setregid(r,e) setresgid(r,e,(Gid_t)-1)
1532# define HAS_SETREGID
1533# endif
a687059c 1534#endif
ee0007ab 1535
ff68c719
PP
1536typedef Signal_t (*Sighandler_t) _((int));
1537
1538#ifdef HAS_SIGACTION
1539typedef struct sigaction Sigsave_t;
1540#else
1541typedef Sighandler_t Sigsave_t;
1542#endif
1543
ee0007ab
LW
1544#define SCAN_DEF 0
1545#define SCAN_TR 1
1546#define SCAN_REPL 2
79072805
LW
1547
1548#ifdef DEBUGGING
4633a7c4 1549# ifndef register
a0d0e21e
LW
1550# define register
1551# endif
1552# define PAD_SV(po) pad_sv(po)
2ddcc7aa 1553# define RUNOPS_DEFAULT runops_debug
79072805 1554#else
a0d0e21e 1555# define PAD_SV(po) curpad[po]
2ddcc7aa 1556# define RUNOPS_DEFAULT runops_standard
79072805
LW
1557#endif
1558
18f739ee
IZ
1559#ifdef MYMALLOC
1560# define MALLOC_INIT MUTEX_INIT(&malloc_mutex)
1561# define MALLOC_TERM MUTEX_DESTROY(&malloc_mutex)
1562#else
1563# define MALLOC_INIT
1564# define MALLOC_TERM
1565#endif
1566
b6d9d515 1567
44a0ac01
MB
1568/*
1569 * These need prototyping here because <proto.h> isn't
1570 * included until after runops is initialised.
1571 */
1572
76e3520e 1573#ifndef PERL_OBJECT
49f531da 1574typedef int runops_proc_t _((void));
44a0ac01
MB
1575int runops_standard _((void));
1576#ifdef DEBUGGING
1577int runops_debug _((void));
1578#endif
76e3520e 1579#endif /* PERL_OBJECT */
44a0ac01 1580
940cb80d 1581/* _ (for $_) must be first in the following list (DEFSV requires it) */
54b9620d 1582#define THREADSV_NAMES "_123456789&`'+/.,\\\";^-%=|~:\001\005!@"
a863c7d1 1583
0c30d9ec
PP
1584/* VMS doesn't use environ array and NeXT has problems with crt0.o globals */
1585#if !defined(VMS) && !(defined(NeXT) && defined(__DYNAMIC__))
16de4a3e
RS
1586#if !defined(DONT_DECLARE_STD) \
1587 || (defined(__svr4__) && defined(__GNUC__) && defined(sun)) \
1588 || defined(__sgi) || defined(__DGUX)
79072805 1589extern char ** environ; /* environment variables supplied via exec */
a0d0e21e 1590#endif
0c30d9ec
PP
1591#else
1592# if defined(NeXT) && defined(__DYNAMIC__)
1593
1594# include <mach-o/dyld.h>
1595EXT char *** environ_pointer;
1596# define environ (*environ_pointer)
1597# endif
1598#endif /* environ processing */
1599
79072805
LW
1600
1601/* for tmp use in stupid debuggers */
1602EXT int * di;
1603EXT short * ds;
1604EXT char * dc;
1605
1606/* handy constants */
3e3baf6d 1607EXTCONST char warn_uninit[]
a0d0e21e 1608 INIT("Use of uninitialized value");
3e3baf6d 1609EXTCONST char warn_nosemi[]
463ee0b2 1610 INIT("Semicolon seems to be missing");
3e3baf6d 1611EXTCONST char warn_reserved[]
463ee0b2 1612 INIT("Unquoted string \"%s\" may clash with future reserved word");
3e3baf6d 1613EXTCONST char warn_nl[]
93a17b20 1614 INIT("Unsuccessful %s on filename containing newline");
3e3baf6d 1615EXTCONST char no_wrongref[]
a0d0e21e 1616 INIT("Can't use %s ref as %s ref");
3e3baf6d 1617EXTCONST char no_symref[]
748a9306 1618 INIT("Can't use string (\"%.32s\") as %s ref while \"strict refs\" in use");
3e3baf6d 1619EXTCONST char no_usym[]
8990e307 1620 INIT("Can't use an undefined value as %s reference");
3e3baf6d 1621EXTCONST char no_aelem[]
93a17b20 1622 INIT("Modification of non-creatable array value attempted, subscript %d");
3e3baf6d 1623EXTCONST char no_helem[]
93a17b20 1624 INIT("Modification of non-creatable hash value attempted, subscript \"%s\"");
3e3baf6d 1625EXTCONST char no_modify[]
93a17b20 1626 INIT("Modification of a read-only value attempted");
3e3baf6d 1627EXTCONST char no_mem[]
93a17b20 1628 INIT("Out of memory!\n");
3e3baf6d 1629EXTCONST char no_security[]
463ee0b2 1630 INIT("Insecure dependency in %s%s");
3e3baf6d 1631EXTCONST char no_sock_func[]
93a17b20 1632 INIT("Unsupported socket function \"%s\" called");
3e3baf6d 1633EXTCONST char no_dir_func[]
93a17b20 1634 INIT("Unsupported directory function \"%s\" called");
3e3baf6d 1635EXTCONST char no_func[]
93a17b20 1636 INIT("The %s function is unimplemented");
3e3baf6d 1637EXTCONST char no_myglob[]
748a9306 1638 INIT("\"my\" variable %s can't be in a package");
93a17b20 1639
79072805 1640#ifdef DOINIT
8e07c86e
AD
1641EXT char *sig_name[] = { SIG_NAME };
1642EXT int sig_num[] = { SIG_NUM };
0c30d9ec
PP
1643EXT SV * psig_ptr[sizeof(sig_num)/sizeof(*sig_num)];
1644EXT SV * psig_name[sizeof(sig_num)/sizeof(*sig_num)];
79072805
LW
1645#else
1646EXT char *sig_name[];
8e07c86e 1647EXT int sig_num[];
0c30d9ec
PP
1648EXT SV * psig_ptr[];
1649EXT SV * psig_name[];
79072805
LW
1650#endif
1651
bbce6d69
PP
1652/* fast case folding tables */
1653
79072805 1654#ifdef DOINIT
36477c24 1655EXTCONST unsigned char fold[] = {
79072805
LW
1656 0, 1, 2, 3, 4, 5, 6, 7,
1657 8, 9, 10, 11, 12, 13, 14, 15,
1658 16, 17, 18, 19, 20, 21, 22, 23,
1659 24, 25, 26, 27, 28, 29, 30, 31,
1660 32, 33, 34, 35, 36, 37, 38, 39,
1661 40, 41, 42, 43, 44, 45, 46, 47,
1662 48, 49, 50, 51, 52, 53, 54, 55,
1663 56, 57, 58, 59, 60, 61, 62, 63,
1664 64, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
1665 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
1666 'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
1667 'x', 'y', 'z', 91, 92, 93, 94, 95,
1668 96, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
1669 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
1670 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
1671 'X', 'Y', 'Z', 123, 124, 125, 126, 127,
1672 128, 129, 130, 131, 132, 133, 134, 135,
1673 136, 137, 138, 139, 140, 141, 142, 143,
1674 144, 145, 146, 147, 148, 149, 150, 151,
1675 152, 153, 154, 155, 156, 157, 158, 159,
1676 160, 161, 162, 163, 164, 165, 166, 167,
1677 168, 169, 170, 171, 172, 173, 174, 175,
1678 176, 177, 178, 179, 180, 181, 182, 183,
1679 184, 185, 186, 187, 188, 189, 190, 191,
1680 192, 193, 194, 195, 196, 197, 198, 199,
1681 200, 201, 202, 203, 204, 205, 206, 207,
1682 208, 209, 210, 211, 212, 213, 214, 215,
1683 216, 217, 218, 219, 220, 221, 222, 223,
1684 224, 225, 226, 227, 228, 229, 230, 231,
1685 232, 233, 234, 235, 236, 237, 238, 239,
1686 240, 241, 242, 243, 244, 245, 246, 247,
1687 248, 249, 250, 251, 252, 253, 254, 255
1688};
1689#else
71be2cbc 1690EXTCONST unsigned char fold[];
79072805
LW
1691#endif
1692
1693#ifdef DOINIT
bbce6d69 1694EXT unsigned char fold_locale[] = {
79072805
LW
1695 0, 1, 2, 3, 4, 5, 6, 7,
1696 8, 9, 10, 11, 12, 13, 14, 15,
1697 16, 17, 18, 19, 20, 21, 22, 23,
1698 24, 25, 26, 27, 28, 29, 30, 31,
1699 32, 33, 34, 35, 36, 37, 38, 39,
1700 40, 41, 42, 43, 44, 45, 46, 47,
1701 48, 49, 50, 51, 52, 53, 54, 55,
1702 56, 57, 58, 59, 60, 61, 62, 63,
1703 64, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
1704 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
1705 'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
1706 'x', 'y', 'z', 91, 92, 93, 94, 95,
1707 96, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
1708 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
1709 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
1710 'X', 'Y', 'Z', 123, 124, 125, 126, 127,
1711 128, 129, 130, 131, 132, 133, 134, 135,
1712 136, 137, 138, 139, 140, 141, 142, 143,
1713 144, 145, 146, 147, 148, 149, 150, 151,
1714 152, 153, 154, 155, 156, 157, 158, 159,
1715 160, 161, 162, 163, 164, 165, 166, 167,
1716 168, 169, 170, 171, 172, 173, 174, 175,
1717 176, 177, 178, 179, 180, 181, 182, 183,
1718 184, 185, 186, 187, 188, 189, 190, 191,
1719 192, 193, 194, 195, 196, 197, 198, 199,
1720 200, 201, 202, 203, 204, 205, 206, 207,
1721 208, 209, 210, 211, 212, 213, 214, 215,
1722 216, 217, 218, 219, 220, 221, 222, 223,
1723 224, 225, 226, 227, 228, 229, 230, 231,
1724 232, 233, 234, 235, 236, 237, 238, 239,
1725 240, 241, 242, 243, 244, 245, 246, 247,
1726 248, 249, 250, 251, 252, 253, 254, 255
1727};
1728#else
bbce6d69 1729EXT unsigned char fold_locale[];
79072805
LW
1730#endif
1731
1732#ifdef DOINIT
71be2cbc 1733EXTCONST unsigned char freq[] = { /* letter frequencies for mixed English/C */
79072805
LW
1734 1, 2, 84, 151, 154, 155, 156, 157,
1735 165, 246, 250, 3, 158, 7, 18, 29,
1736 40, 51, 62, 73, 85, 96, 107, 118,
1737 129, 140, 147, 148, 149, 150, 152, 153,
1738 255, 182, 224, 205, 174, 176, 180, 217,
1739 233, 232, 236, 187, 235, 228, 234, 226,
1740 222, 219, 211, 195, 188, 193, 185, 184,
1741 191, 183, 201, 229, 181, 220, 194, 162,
1742 163, 208, 186, 202, 200, 218, 198, 179,
1743 178, 214, 166, 170, 207, 199, 209, 206,
1744 204, 160, 212, 216, 215, 192, 175, 173,
1745 243, 172, 161, 190, 203, 189, 164, 230,
1746 167, 248, 227, 244, 242, 255, 241, 231,
1747 240, 253, 169, 210, 245, 237, 249, 247,
1748 239, 168, 252, 251, 254, 238, 223, 221,
1749 213, 225, 177, 197, 171, 196, 159, 4,
1750 5, 6, 8, 9, 10, 11, 12, 13,
1751 14, 15, 16, 17, 19, 20, 21, 22,
1752 23, 24, 25, 26, 27, 28, 30, 31,
1753 32, 33, 34, 35, 36, 37, 38, 39,
1754 41, 42, 43, 44, 45, 46, 47, 48,
1755 49, 50, 52, 53, 54, 55, 56, 57,
1756 58, 59, 60, 61, 63, 64, 65, 66,
1757 67, 68, 69, 70, 71, 72, 74, 75,
1758 76, 77, 78, 79, 80, 81, 82, 83,
1759 86, 87, 88, 89, 90, 91, 92, 93,
1760 94, 95, 97, 98, 99, 100, 101, 102,
1761 103, 104, 105, 106, 108, 109, 110, 111,
1762 112, 113, 114, 115, 116, 117, 119, 120,
1763 121, 122, 123, 124, 125, 126, 127, 128,
1764 130, 131, 132, 133, 134, 135, 136, 137,
1765 138, 139, 141, 142, 143, 144, 145, 146
1766};
1767#else
71be2cbc 1768EXTCONST unsigned char freq[];
79072805
LW
1769#endif
1770
8990e307
LW
1771#ifdef DEBUGGING
1772#ifdef DOINIT
71be2cbc 1773EXTCONST char* block_type[] = {
8990e307
LW
1774 "NULL",
1775 "SUB",
1776 "EVAL",
1777 "LOOP",
1778 "SUBST",
1779 "BLOCK",
1780};
1781#else
71be2cbc 1782EXTCONST char* block_type[];
8990e307
LW
1783#endif
1784#endif
1785
79072805
LW
1786/*****************************************************************************/
1787/* This lexer/parser stuff is currently global since yacc is hard to reenter */
1788/*****************************************************************************/
8990e307 1789/* XXX This needs to be revisited, since BEGIN makes yacc re-enter... */
79072805 1790
a0d0e21e
LW
1791#include "perly.h"
1792
fb73857a
PP
1793#define LEX_NOTPARSING 11 /* borrowed from toke.c */
1794
79072805
LW
1795typedef enum {
1796 XOPERATOR,
1797 XTERM,
79072805 1798 XREF,
8990e307 1799 XSTATE,
a0d0e21e
LW
1800 XBLOCK,
1801 XTERMBLOCK
79072805
LW
1802} expectation;
1803
85e6fe83
LW
1804
1805 /* Note: the lowest 8 bits are reserved for
1806 stuffing into op->op_private */
1807#define HINT_INTEGER 0x00000001
1808#define HINT_STRICT_REFS 0x00000002
1809
1810#define HINT_BLOCK_SCOPE 0x00000100
1811#define HINT_STRICT_SUBS 0x00000200
1812#define HINT_STRICT_VARS 0x00000400
bbce6d69 1813#define HINT_LOCALE 0x00000800
85e6fe83 1814
d4cce5f1
NIS
1815/* Various states of an input record separator SV (rs, nrs) */
1816#define RsSNARF(sv) (! SvOK(sv))
1817#define RsSIMPLE(sv) (SvOK(sv) && SvCUR(sv))
1818#define RsPARA(sv) (SvOK(sv) && ! SvCUR(sv))
5b2b9c68 1819#define RsRECORD(sv) (SvROK(sv) && (SvIV(SvRV(sv)) > 0))
79072805 1820
22239a37
NIS
1821/* Set up PERLVAR macros for populating structs */
1822#define PERLVAR(var,type) type var;
1823#define PERLVARI(var,type,init) type var;
3fe35a81 1824#define PERLVARIC(var,type,init) type var;
22239a37 1825
58a50f62
GS
1826/* Interpreter exitlist entry */
1827typedef struct exitlistentry {
1828#ifdef PERL_OBJECT
1829 void (*fn) _((CPerlObj*, void*));
1830#else
1831 void (*fn) _((void*));
1832#endif
1833 void *ptr;
1834} PerlExitListEntry;
1835
76e3520e
GS
1836#ifdef PERL_OBJECT
1837extern "C" CPerlObj* perl_alloc _((IPerlMem*, IPerlEnv*, IPerlStdIO*, IPerlLIO*, IPerlDir*, IPerlSock*, IPerlProc*));
1838
1839typedef int (CPerlObj::*runops_proc_t) _((void));
1840#undef EXT
1841#define EXT
1842#undef EXTCONST
1843#define EXTCONST
1844#undef INIT
1845#define INIT(x)
1846
1847class CPerlObj {
1848public:
1849 CPerlObj(IPerlMem*, IPerlEnv*, IPerlStdIO*, IPerlLIO*, IPerlDir*, IPerlSock*, IPerlProc*);
1850 void Init(void);
1851 void* operator new(size_t nSize, IPerlMem *pvtbl);
1852#endif /* PERL_OBJECT */
1853
22239a37
NIS
1854#ifdef PERL_GLOBAL_STRUCT
1855struct perl_vars {
1856#include "perlvars.h"
1857};
1858
1859#ifdef PERL_CORE
1860EXT struct perl_vars Perl_Vars;
1861EXT struct perl_vars *Perl_VarsPtr INIT(&Perl_Vars);
1862#else
1863#if !defined(__GNUC__) || !defined(WIN32)
1864EXT
1865#endif
1866struct perl_vars *Perl_VarsPtr;
1867#define Perl_Vars (*((Perl_VarsPtr) ? Perl_VarsPtr : (Perl_VarsPtr = Perl_GetVars())))
1868#endif
1869#endif /* PERL_GLOBAL_STRUCT */
1870
8990e307 1871#ifdef MULTIPLICITY
d4cce5f1
NIS
1872/* If we have multiple interpreters define a struct
1873 holding variables which must be per-interpreter
1874 If we don't have threads anything that would have
1875 be per-thread is per-interpreter.
1876*/
1877
79072805 1878struct interpreter {
d4cce5f1
NIS
1879#ifndef USE_THREADS
1880#include "thrdvar.h"
1881#endif
1882#include "intrpvar.h"
49f531da 1883};
d4cce5f1 1884
79072805 1885#else
49f531da
NIS
1886struct interpreter {
1887 char broiled;
1888};
79072805
LW
1889#endif
1890
d4cce5f1
NIS
1891#ifdef USE_THREADS
1892/* If we have threads define a struct with all the variables
1893 * that have to be per-thread
49f531da 1894 */
8023c3ce 1895
79072805 1896
49f531da 1897struct perl_thread {
49f531da 1898#include "thrdvar.h"
79072805 1899};
d4cce5f1 1900
22fae026
TM
1901typedef struct perl_thread *Thread;
1902
1903#else
1904typedef void *Thread;
22239a37
NIS
1905#endif
1906
1907/* Done with PERLVAR macros for now ... */
d4cce5f1
NIS
1908#undef PERLVAR
1909#undef PERLVARI
3fe35a81 1910#undef PERLVARIC
79072805 1911
22239a37 1912#include "thread.h"
79072805 1913#include "pp.h"
79072805
LW
1914#include "proto.h"
1915
a0d0e21e
LW
1916#ifdef EMBED
1917#define Perl_sv_setptrobj(rv,ptr,name) Perl_sv_setref_iv(rv,name,(IV)ptr)
1918#define Perl_sv_setptrref(rv,ptr) Perl_sv_setref_iv(rv,Nullch,(IV)ptr)
1919#else
1920#define sv_setptrobj(rv,ptr,name) sv_setref_iv(rv,name,(IV)ptr)
1921#define sv_setptrref(rv,ptr) sv_setref_iv(rv,Nullch,(IV)ptr)
1922#endif
1923
d4cce5f1
NIS
1924/* The following must follow proto.h as #defines mess up syntax */
1925
1926#include "embedvar.h"
1927
1928/* Now include all the 'global' variables
1929 * If we don't have threads or multiple interpreters
1930 * these include variables that would have been their struct-s
1931 */
1932
1933#define PERLVAR(var,type) EXT type var;
1934#define PERLVARI(var,type,init) EXT type var INIT(init);
3fe35a81 1935#define PERLVARIC(var,type,init) EXTCONST type var INIT(init);
d4cce5f1 1936
22239a37 1937#ifndef PERL_GLOBAL_STRUCT
d4cce5f1 1938#include "perlvars.h"
22239a37 1939#endif
d4cce5f1
NIS
1940
1941#ifndef MULTIPLICITY
d4cce5f1
NIS
1942
1943#ifndef USE_THREADS
1944#include "thrdvar.h"
1945#endif
1946
22239a37
NIS
1947#include "intrpvar.h"
1948#endif
1949
76e3520e 1950#ifdef PERL_OBJECT
76e3520e
GS
1951};
1952
1953#include "objpp.h"
1954#ifdef DOINIT
1955#include "INTERN.h"
1956#else
1957#include "EXTERN.h"
1958#endif
1959#endif /* PERL_OBJECT */
1960
22239a37 1961
d4cce5f1
NIS
1962#undef PERLVAR
1963#undef PERLVARI
0f3f18a6 1964#undef PERLVARIC
79072805 1965
a835ef8a
NIS
1966#if defined(HASATTRIBUTE) && defined(WIN32)
1967/*
1968 * This provides a layer of functions and macros to ensure extensions will
1969 * get to use the same RTL functions as the core.
1970 * It has to go here or #define of printf messes up __attribute__
1971 * stuff in proto.h
1972 */
76e3520e 1973#ifndef PERL_OBJECT
a835ef8a 1974# include <win32iop.h>
76e3520e 1975#endif /* PERL_OBJECT */
a835ef8a
NIS
1976#endif /* WIN32 */
1977
79072805 1978#ifdef DOINIT
bbce6d69 1979
4633a7c4 1980EXT MGVTBL vtbl_sv = {magic_get,
463ee0b2
LW
1981 magic_set,
1982 magic_len,
1983 0, 0};
fb73857a
PP
1984EXT MGVTBL vtbl_env = {0, magic_set_all_env,
1985 0, magic_clear_all_env,
66b1d557 1986 0};
4633a7c4 1987EXT MGVTBL vtbl_envelem = {0, magic_setenv,
85e6fe83
LW
1988 0, magic_clearenv,
1989 0};
4633a7c4 1990EXT MGVTBL vtbl_sig = {0, 0, 0, 0, 0};
0c30d9ec
PP
1991EXT MGVTBL vtbl_sigelem = {magic_getsig,
1992 magic_setsig,
1993 0, magic_clearsig,
1994 0};
93965878 1995EXT MGVTBL vtbl_pack = {0, 0, magic_sizepack, magic_wipepack,
a0d0e21e 1996 0};
4633a7c4 1997EXT MGVTBL vtbl_packelem = {magic_getpack,
463ee0b2
LW
1998 magic_setpack,
1999 0, magic_clearpack,
2000 0};
4633a7c4 2001EXT MGVTBL vtbl_dbline = {0, magic_setdbline,
463ee0b2 2002 0, 0, 0};
4633a7c4 2003EXT MGVTBL vtbl_isa = {0, magic_setisa,
fb73857a
PP
2004 0, magic_setisa,
2005 0};
4633a7c4 2006EXT MGVTBL vtbl_isaelem = {0, magic_setisa,
463ee0b2 2007 0, 0, 0};
4633a7c4 2008EXT MGVTBL vtbl_arylen = {magic_getarylen,
463ee0b2
LW
2009 magic_setarylen,
2010 0, 0, 0};
4633a7c4 2011EXT MGVTBL vtbl_glob = {magic_getglob,
463ee0b2
LW
2012 magic_setglob,
2013 0, 0, 0};
4633a7c4 2014EXT MGVTBL vtbl_mglob = {0, magic_setmglob,
463ee0b2 2015 0, 0, 0};
6ff81951
GS
2016EXT MGVTBL vtbl_nkeys = {magic_getnkeys,
2017 magic_setnkeys,
99abf803 2018 0, 0, 0};
4633a7c4 2019EXT MGVTBL vtbl_taint = {magic_gettaint,magic_settaint,
463ee0b2 2020 0, 0, 0};
6ff81951 2021EXT MGVTBL vtbl_substr = {magic_getsubstr, magic_setsubstr,
463ee0b2 2022 0, 0, 0};
6ff81951
GS
2023EXT MGVTBL vtbl_vec = {magic_getvec,
2024 magic_setvec,
463ee0b2 2025 0, 0, 0};
4633a7c4 2026EXT MGVTBL vtbl_pos = {magic_getpos,
a0d0e21e
LW
2027 magic_setpos,
2028 0, 0, 0};
4633a7c4 2029EXT MGVTBL vtbl_bm = {0, magic_setbm,
463ee0b2 2030 0, 0, 0};
55497cff
PP
2031EXT MGVTBL vtbl_fm = {0, magic_setfm,
2032 0, 0, 0};
4633a7c4 2033EXT MGVTBL vtbl_uvar = {magic_getuvar,
463ee0b2
LW
2034 magic_setuvar,
2035 0, 0, 0};
f93b4edd
MB
2036#ifdef USE_THREADS
2037EXT MGVTBL vtbl_mutex = {0, 0, 0, 0, magic_mutexfree};
2038#endif /* USE_THREADS */
68dc0745
PP
2039EXT MGVTBL vtbl_defelem = {magic_getdefelem,magic_setdefelem,
2040 0, 0, magic_freedefelem};
a0d0e21e 2041
227a8b4b 2042EXT MGVTBL vtbl_regexp = {0,0,0,0, magic_freeregexp};
c277df42 2043
36477c24 2044#ifdef USE_LOCALE_COLLATE
bbce6d69
PP
2045EXT MGVTBL vtbl_collxfrm = {0,
2046 magic_setcollxfrm,
2047 0, 0, 0};
2048#endif
a0d0e21e
LW
2049
2050#ifdef OVERLOAD
4633a7c4 2051EXT MGVTBL vtbl_amagic = {0, magic_setamagic,
748a9306 2052 0, 0, magic_setamagic};
4633a7c4 2053EXT MGVTBL vtbl_amagicelem = {0, magic_setamagic,
748a9306 2054 0, 0, magic_setamagic};
a0d0e21e
LW
2055#endif /* OVERLOAD */
2056
bbce6d69
PP
2057#else /* !DOINIT */
2058
79072805
LW
2059EXT MGVTBL vtbl_sv;
2060EXT MGVTBL vtbl_env;
2061EXT MGVTBL vtbl_envelem;
2062EXT MGVTBL vtbl_sig;
2063EXT MGVTBL vtbl_sigelem;
463ee0b2
LW
2064EXT MGVTBL vtbl_pack;
2065EXT MGVTBL vtbl_packelem;
79072805 2066EXT MGVTBL vtbl_dbline;
463ee0b2
LW
2067EXT MGVTBL vtbl_isa;
2068EXT MGVTBL vtbl_isaelem;
79072805
LW
2069EXT MGVTBL vtbl_arylen;
2070EXT MGVTBL vtbl_glob;
93a17b20 2071EXT MGVTBL vtbl_mglob;
99abf803 2072EXT MGVTBL vtbl_nkeys;
463ee0b2 2073EXT MGVTBL vtbl_taint;
79072805
LW
2074EXT MGVTBL vtbl_substr;
2075EXT MGVTBL vtbl_vec;
a0d0e21e 2076EXT MGVTBL vtbl_pos;
79072805 2077EXT MGVTBL vtbl_bm;
55497cff 2078EXT MGVTBL vtbl_fm;
79072805 2079EXT MGVTBL vtbl_uvar;
a0d0e21e 2080
f93b4edd
MB
2081#ifdef USE_THREADS
2082EXT MGVTBL vtbl_mutex;
2083#endif /* USE_THREADS */
2084
68dc0745 2085EXT MGVTBL vtbl_defelem;
c277df42 2086EXT MGVTBL vtbl_regexp;
a0d0e21e 2087
36477c24 2088#ifdef USE_LOCALE_COLLATE
bbce6d69
PP
2089EXT MGVTBL vtbl_collxfrm;
2090#endif
a0d0e21e
LW
2091
2092#ifdef OVERLOAD
2093EXT MGVTBL vtbl_amagic;
2094EXT MGVTBL vtbl_amagicelem;
2095#endif /* OVERLOAD */
2096
bbce6d69 2097#endif /* !DOINIT */
85e6fe83 2098
a0d0e21e 2099#ifdef OVERLOAD
c0315cdf 2100
a6006777 2101#define NofAMmeth 58
a0d0e21e 2102#ifdef DOINIT
a6006777
PP
2103EXTCONST char * AMG_names[NofAMmeth] = {
2104 "fallback", "abs", /* "fallback" should be the first. */
2105 "bool", "nomethod",
2106 "\"\"", "0+",
2107 "+", "+=",
2108 "-", "-=",
2109 "*", "*=",
2110 "/", "/=",
2111 "%", "%=",
2112 "**", "**=",
2113 "<<", "<<=",
2114 ">>", ">>=",
2115 "&", "&=",
2116 "|", "|=",
2117 "^", "^=",
2118 "<", "<=",
2119 ">", ">=",
2120 "==", "!=",
2121 "<=>", "cmp",
2122 "lt", "le",
2123 "gt", "ge",
2124 "eq", "ne",
2125 "!", "~",
2126 "++", "--",
2127 "atan2", "cos",
2128 "sin", "exp",
2129 "log", "sqrt",
2130 "x", "x=",
2131 ".", ".=",
2132 "=", "neg"
a0d0e21e
LW
2133};
2134#else
a6006777 2135EXTCONST char * AMG_names[NofAMmeth];
a0d0e21e
LW
2136#endif /* def INITAMAGIC */
2137
a6006777 2138struct am_table {
a0d0e21e
LW
2139 long was_ok_sub;
2140 long was_ok_am;
a6006777
PP
2141 U32 flags;
2142 CV* table[NofAMmeth];
a0d0e21e
LW
2143 long fallback;
2144};
a6006777
PP
2145struct am_table_short {
2146 long was_ok_sub;
2147 long was_ok_am;
2148 U32 flags;
2149};
a0d0e21e 2150typedef struct am_table AMT;
a6006777 2151typedef struct am_table_short AMTS;
a0d0e21e
LW
2152
2153#define AMGfallNEVER 1
2154#define AMGfallNO 2
2155#define AMGfallYES 3
2156
a6006777
PP
2157#define AMTf_AMAGIC 1
2158#define AMT_AMAGIC(amt) ((amt)->flags & AMTf_AMAGIC)
2159#define AMT_AMAGIC_on(amt) ((amt)->flags |= AMTf_AMAGIC)
2160#define AMT_AMAGIC_off(amt) ((amt)->flags &= ~AMTf_AMAGIC)
2161
a0d0e21e
LW
2162enum {
2163 fallback_amg, abs_amg,
2164 bool__amg, nomethod_amg,
2165 string_amg, numer_amg,
2166 add_amg, add_ass_amg,
2167 subtr_amg, subtr_ass_amg,
2168 mult_amg, mult_ass_amg,
2169 div_amg, div_ass_amg,
76e3520e 2170 modulo_amg, modulo_ass_amg,
a0d0e21e
LW
2171 pow_amg, pow_ass_amg,
2172 lshift_amg, lshift_ass_amg,
2173 rshift_amg, rshift_ass_amg,
748a9306
LW
2174 band_amg, band_ass_amg,
2175 bor_amg, bor_ass_amg,
2176 bxor_amg, bxor_ass_amg,
a0d0e21e
LW
2177 lt_amg, le_amg,
2178 gt_amg, ge_amg,
2179 eq_amg, ne_amg,
2180 ncmp_amg, scmp_amg,
2181 slt_amg, sle_amg,
2182 sgt_amg, sge_amg,
2183 seq_amg, sne_amg,
a0d0e21e
LW
2184 not_amg, compl_amg,
2185 inc_amg, dec_amg,
2186 atan2_amg, cos_amg,
2187 sin_amg, exp_amg,
2188 log_amg, sqrt_amg,
2189 repeat_amg, repeat_ass_amg,
748a9306
LW
2190 concat_amg, concat_ass_amg,
2191 copy_amg, neg_amg
a0d0e21e 2192};
c0315cdf
JH
2193
2194/*
2195 * some compilers like to redefine cos et alia as faster
2196 * (and less accurate?) versions called F_cos et cetera (Quidquid
2197 * latine dictum sit, altum viditur.) This trick collides with
2198 * the Perl overloading (amg). The following #defines fool both.
2199 */
2200
2201#ifdef _FASTMATH
2202# ifdef atan2
2203# define F_atan2_amg atan2_amg
2204# endif
2205# ifdef cos
2206# define F_cos_amg cos_amg
2207# endif
2208# ifdef exp
2209# define F_exp_amg exp_amg
2210# endif
2211# ifdef log
2212# define F_log_amg log_amg
2213# endif
2214# ifdef pow
2215# define F_pow_amg pow_amg
2216# endif
2217# ifdef sin
2218# define F_sin_amg sin_amg
2219# endif
2220# ifdef sqrt
2221# define F_sqrt_amg sqrt_amg
2222# endif
2223#endif /* _FASTMATH */
2224
a0d0e21e
LW
2225#endif /* OVERLOAD */
2226
491527d0 2227#define PERLDB_ALL 0x3f /* No _NONAME, _GOTO */
84902520
TB
2228#define PERLDBf_SUB 0x01 /* Debug sub enter/exit. */
2229#define PERLDBf_LINE 0x02 /* Keep line #. */
2230#define PERLDBf_NOOPT 0x04 /* Switch off optimizations. */
2231#define PERLDBf_INTER 0x08 /* Preserve more data for
2232 later inspections. */
2233#define PERLDBf_SUBLINE 0x10 /* Keep subr source lines. */
2234#define PERLDBf_SINGLE 0x20 /* Start with single-step on. */
491527d0
GS
2235#define PERLDBf_NONAME 0x40 /* For _SUB: no name of the subr. */
2236#define PERLDBf_GOTO 0x80 /* Report goto: call DB::goto. */
84902520
TB
2237
2238#define PERLDB_SUB (perldb && (perldb & PERLDBf_SUB))
2239#define PERLDB_LINE (perldb && (perldb & PERLDBf_LINE))
2240#define PERLDB_NOOPT (perldb && (perldb & PERLDBf_NOOPT))
2241#define PERLDB_INTER (perldb && (perldb & PERLDBf_INTER))
2242#define PERLDB_SUBLINE (perldb && (perldb & PERLDBf_SUBLINE))
2243#define PERLDB_SINGLE (perldb && (perldb & PERLDBf_SINGLE))
491527d0
GS
2244#define PERLDB_SUB_NN (perldb && (perldb & (PERLDBf_NONAME)))
2245#define PERLDB_GOTO (perldb && (perldb & PERLDBf_GOTO))
84902520 2246
bbce6d69 2247
36477c24 2248#ifdef USE_LOCALE_NUMERIC
bbce6d69 2249
36477c24
PP
2250#define SET_NUMERIC_STANDARD() \
2251 STMT_START { \
2252 if (! numeric_standard) \
2253 perl_set_numeric_standard(); \
2254 } STMT_END
2255
2256#define SET_NUMERIC_LOCAL() \
2257 STMT_START { \
2258 if (! numeric_local) \
2259 perl_set_numeric_local(); \
2260 } STMT_END
bbce6d69 2261
36477c24 2262#else /* !USE_LOCALE_NUMERIC */
bbce6d69 2263
36477c24
PP
2264#define SET_NUMERIC_STANDARD() /**/
2265#define SET_NUMERIC_LOCAL() /**/
bbce6d69 2266
36477c24 2267#endif /* !USE_LOCALE_NUMERIC */
a0d0e21e 2268
e5c9fcd0 2269#if !defined(PERLIO_IS_STDIO) && defined(HASATTRIBUTE)
760ac839
LW
2270/*
2271 * Now we have __attribute__ out of the way
2272 * Remap printf
2273 */
2274#define printf PerlIO_stdoutf
2275#endif
2276
a868473f
NIS
2277#ifndef PERL_SCRIPT_MODE
2278#define PERL_SCRIPT_MODE "r"
2279#endif
2280
fba3b22e
MB
2281/*
2282 * nice_chunk and nice_chunk size need to be set
2283 * and queried under the protection of sv_mutex
2284 */
2285#define offer_nice_chunk(chunk, chunk_size) do { \
940cb80d 2286 LOCK_SV_MUTEX; \
fba3b22e
MB
2287 if (!nice_chunk) { \
2288 nice_chunk = (char*)(chunk); \
2289 nice_chunk_size = (chunk_size); \
2290 } \
fc80cf79
GS
2291 else { \
2292 Safefree(chunk); \
2293 } \
940cb80d 2294 UNLOCK_SV_MUTEX; \
fba3b22e
MB
2295 } while (0)
2296
bd89102f
AD
2297#ifdef HAS_SEM
2298# include <sys/ipc.h>
2299# include <sys/sem.h>
2300# ifndef HAS_UNION_SEMUN /* Provide the union semun. */
2301 union semun {
2302 int val;
2303 struct semid_ds *buf;
2304 unsigned short *array;
2305 };
2306# endif
2307# ifdef USE_SEMCTL_SEMUN
2308# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun)
2309# else
2310# ifdef USE_SEMCTL_SEMID_DS
2311# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun.buf)
2312# endif
2313# endif
2314# ifndef Semctl /* Place our bets on the semun horse. */
2315# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun)
2316# endif
2317#endif
49f531da 2318
85e6fe83 2319#endif /* Include guard */