projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
Maintain UAF context across calls to sys$check_access in cando_by_name.
[p5sagit/p5-mst-13.2.git] / vms / vmsish.h
CommitLineData
a0d0e21e 1/* vmsish.h
2 *
3 * VMS-specific C header file for perl5.
4 *
2497a41f 5 * revised: 16-Sep-1998 by Charles Bailey bailey@newman.upenn.edu
562a7b0c 6 * Version: 5.5.2
2497a41f 7 *
e886094b 8 * Last revised: 10-Oct-2005 by John Malmberg (HP OpenVMS) wb8twy@qsl.net
2497a41f 9 * Add SYMLINK support, and updated Craig Berry's
10 * largefile support.
a0d0e21e 11 */
12
13#ifndef __vmsish_h_included
14#define __vmsish_h_included
15
16#include <descrip.h> /* for dirent struct definitions */
748a9306 17#include <libdef.h> /* status codes for various places */
18#include <rmsdef.h> /* at which errno and vaxc$errno are */
19#include <ssdef.h> /* explicitly set in the perl source code */
4fdae800 20#include <stsdef.h> /* bitmasks for exit status testing */
748a9306 21
4633a7c4 22/* Suppress compiler warnings from DECC for VMS-specific extensions:
e518068a 23 * ADDRCONSTEXT,NEEDCONSTEXT: initialization of data with non-constant values
24 * (e.g. pointer fields of descriptors)
25 */
bc10a425 26#if defined(__DECC) || defined(__DECCXX)
22d4bb9c 27# pragma message disable (ADDRCONSTEXT,NEEDCONSTEXT)
28#endif
e518068a 29
748a9306 30/* DEC's C compilers and gcc use incompatible definitions of _to(upp|low)er() */
31#ifdef _toupper
32# undef _toupper
33#endif
34#define _toupper(c) (((c) < 'a' || (c) > 'z') ? (c) : (c) & ~040)
35#ifdef _tolower
36# undef _tolower
37#endif
38#define _tolower(c) (((c) < 'A' || (c) > 'Z') ? (c) : (c) | 040)
4633a7c4 39/* DECC 1.3 has a funny definition of abs; it's fixed in DECC 4.0, so this
40 * can go away once DECC 1.3 isn't in use any more. */
22d4bb9c 41#if defined(__ALPHA) && (defined(__DECC) || defined(__DECCXX))
4633a7c4 42#undef abs
43#define abs(__x) __ABS(__x)
44#undef labs
45#define labs(__x) __LABS(__x)
46#endif /* __ALPHA && __DECC */
a0d0e21e 47
48/* Assorted things to look like Unix */
49#ifdef __GNUC__
50#ifndef _IOLBF /* gcc's stdio.h doesn't define this */
51#define _IOLBF 1
52#endif
748a9306 53#endif
a0d0e21e 54#include <processes.h> /* for vfork() */
55#include <unixio.h>
a0d0e21e 56#include <unixlib.h>
57#include <file.h> /* it's not <sys/file.h>, so don't use I_SYS_FILE */
bc10a425 58#if (defined(__DECC) && defined(__DECC_VER) && __DECC_VER > 20000000) || defined(__DECCXX)
59# include <unistd.h> /* DECC has this; gcc doesn't */
09b7f37c 60#endif
61
aa689395 62#ifdef NO_PERL_TYPEDEFS /* a2p; we don't want Perl's special routines */
63# define DONT_MASK_RTL_CALLS
64#endif
65
988c775c 66#include <namdef.h>
67
68/* Set the maximum filespec size here as it is larger for EFS file
69 * specifications.
70 */
71#ifndef __VAX
72#ifndef VMS_MAXRSS
73#ifdef NAML$C_MAXRSS
74#define VMS_MAXRSS (NAML$C_MAXRSS+1)
75#ifndef VMS_LONGNAME_SUPPORT
76#define VMS_LONGNAME_SUPPORT 1
77#endif /* VMS_LONGNAME_SUPPORT */
78#endif /* NAML$C_MAXRSS */
79#endif /* VMS_MAXRSS */
80#endif
81
82#ifndef VMS_MAXRSS
83#define VMS_MAXRSS (NAM$C_MAXRSS + 1)
84#endif
85
86#ifndef MAXPATHLEN
87#define MAXPATHLEN (VMS_MAXRSS - 1)
88#endif
89
90
562a7b0c 91/* Note that we do, in fact, have this */
92#define HAS_GETENV_SV
cc077a9f 93#define HAS_GETENV_LEN
562a7b0c 94
fd8cd3a3 95/* All this stiff is for the x2P programs. Hopefully they'll still work */
96#if defined(PERL_FOR_X2P)
97#ifndef aTHX_
98#define aTHX_
99#endif
100#ifndef pTHX_
101#define pTHX_
102#endif
103#ifndef pTHX
104#define pTHX
105#endif
106#endif
107
aa689395 108#ifndef DONT_MASK_RTL_CALLS
109# ifdef getenv
110# undef getenv
111# endif
562a7b0c 112 /* getenv used for regular logical names */
fd8cd3a3 113# define getenv(v) Perl_my_getenv(aTHX_ v,TRUE)
aa689395 114#endif
19c10e8f 115#ifdef getenv_len
116# undef getenv_len
117#endif
fd8cd3a3 118#define getenv_len(v,l) Perl_my_getenv_len(aTHX_ v,l,TRUE)
aa689395 119
4fdae800 120/* DECC introduces this routine in the RTL as of VMS 7.0; for now,
121 * we'll use ours, since it gives us the full VMS exit status. */
4fdae800 122#define waitpid my_waitpid
123
61bb5906 124/* Don't redeclare standard RTL routines in Perl's header files;
125 * VMS history or extensions makes some of the formal protoypes
126 * differ from the common Unix forms.
127 */
128#define DONT_DECLARE_STD 1
129
bf109933 130/* Our own contribution to PerlShr's global symbols . . . */
562a7b0c 131#define prime_env_iter Perl_prime_env_iter
fd8cd3a3 132#define vms_image_init Perl_vms_image_init
133#define my_tmpfile Perl_my_tmpfile
134#define vmstrnenv Perl_vmstrnenv
5c84aa53 135#if !defined(PERL_IMPLICIT_CONTEXT)
fd8cd3a3 136#define my_getenv_len Perl_my_getenv_len
137#define vmssetenv Perl_vmssetenv
4b19af01 138#define my_trnlnm Perl_my_trnlnm
562a7b0c 139#define my_setenv Perl_my_setenv
5c84aa53 140#define my_getenv Perl_my_getenv
4b19af01 141#define tounixspec Perl_tounixspec
142#define tounixspec_ts Perl_tounixspec_ts
360732b5 143#define tounixspec_utf8 Perl_tounixspec_utf8
144#define tounixspec_utf8_ts Perl_tounixspec_utf8_ts
4b19af01 145#define tovmsspec Perl_tovmsspec
146#define tovmsspec_ts Perl_tovmsspec_ts
360732b5 147#define tovmsspec_utf8 Perl_tovmsspec_utf8
148#define tovmsspec_utf8_ts Perl_tovmsspec_utf8_ts
4b19af01 149#define tounixpath Perl_tounixpath
150#define tounixpath_ts Perl_tounixpath_ts
360732b5 151#define tounixpath_utf8 Perl_tounixpath_utf8
152#define tounixpath_utf8_ts Perl_tounixpath_utf8_ts
153#define tovmspath Perl_tovmspath
4b19af01 154#define tovmspath_ts Perl_tovmspath_ts
360732b5 155#define tovmspath_utf8 Perl_tovmspath_utf8
156#define tovmspath_utf8_ts Perl_tovmspath_utf8_ts
4b19af01 157#define do_rmdir Perl_do_rmdir
158#define fileify_dirspec Perl_fileify_dirspec
159#define fileify_dirspec_ts Perl_fileify_dirspec_ts
360732b5 160#define fileify_dirspec_utf8 Perl_fileify_dirspec_utf8
161#define fileify_dirspec_utf8_ts Perl_fileify_dirspec_utf8_ts
4b19af01 162#define pathify_dirspec Perl_pathify_dirspec
163#define pathify_dirspec_ts Perl_pathify_dirspec_ts
360732b5 164#define pathify_dirspec_utf8 Perl_pathify_dirspec_utf8
165#define pathify_dirspec_utf8_ts Perl_pathify_dirspec_utf8_ts
4b19af01 166#define trim_unixpath Perl_trim_unixpath
167#define opendir Perl_opendir
168#define rmscopy Perl_rmscopy
fd8cd3a3 169#define my_mkdir Perl_my_mkdir
170#define vms_do_aexec Perl_vms_do_aexec
171#define vms_do_exec Perl_vms_do_exec
172#define my_waitpid Perl_my_waitpid
173#define my_crypt Perl_my_crypt
174#define kill_file Perl_kill_file
175#define my_utime Perl_my_utime
176#define my_chdir Perl_my_chdir
177#define do_aspawn Perl_do_aspawn
2497a41f 178#define seekdir Perl_seekdir
fd8cd3a3 179#define my_gmtime Perl_my_gmtime
180#define my_localtime Perl_my_localtime
2497a41f 181#define my_time Perl_my_time
fd8cd3a3 182#define do_spawn Perl_do_spawn
183#define flex_fstat Perl_flex_fstat
184#define flex_stat Perl_flex_stat
2497a41f 185#define flex_lstat Perl_flex_lstat
fd8cd3a3 186#define cando_by_name Perl_cando_by_name
187#define my_getpwnam Perl_my_getpwnam
188#define my_getpwuid Perl_my_getpwuid
189#define my_flush Perl_my_flush
190#define readdir Perl_readdir
a9852f7c 191#define readdir_r Perl_readdir_r
5c84aa53 192#else
fd8cd3a3 193#define my_getenv_len(a,b,c) Perl_my_getenv_len(aTHX_ a,b,c)
194#define vmssetenv(a,b,c) Perl_vmssetenv(aTHX_ a,b,c)
4b19af01 195#define my_trnlnm(a,b,c) Perl_my_trnlnm(aTHX_ a,b,c)
360732b5 196#define fileify_dirspec(a,b) Perl_fileify_dirspec(aTHX_ a,b)
197#define fileify_dirspec_ts(a,b) Perl_fileify_dirspec_ts(aTHX_ a,b)
5c84aa53 198#define my_setenv(a,b) Perl_my_setenv(aTHX_ a,b)
199#define my_getenv(a,b) Perl_my_getenv(aTHX_ a,b)
360732b5 200#define tounixspec(a,b) Perl_tounixspec_utf8(aTHX_ a,b,NULL)
201#define tounixspec_ts(a,b) Perl_tounixspec_utf8_ts(aTHX_ a,b,NULL)
202#define tounixspec_utf8(a,b,c) Perl_tounixspec_utf8(aTHX_ a,b,c)
203#define tounixspec_utf8_ts(a,b,c) Perl_tounixspec_utf8_ts(aTHX_ a,b,c)
204#define tovmsspec(a,b) Perl_tovmsspec_utf8(aTHX_ a,b,NULL)
205#define tovmsspec_ts(a,b) Perl_tovmsspec_utf8_ts(aTHX_ a,b)
206#define tovmsspec_utf8(a,b,c) Perl_tovmsspec_utf8(aTHX_ a,b,c)
207#define tovmsspec_utf8_ts(a,b,c) Perl_tovmsspec_utf8_ts(aTHX_ a,b,c)
208#define tounixpath(a,b) Perl_tounixpath_utf8(aTHX_ a,b,NULL)
209#define tounixpath_ts(a,b) Perl_tounixpath_utf8_ts(aTHX_ a,b,NULL)
210#define tounixpath_utf8(a,b,c) Perl_tounixpath_utf8(aTHX_ a,b,c)
211#define tounixpath_utf8_ts(a,b,c) Perl_tounixpath_utf8_ts(aTHX_ a,b,c)
212#define tovmspath(a,b) Perl_tovmspath_utf8(aTHX_ a,b,NULL)
213#define tovmspath_ts(a,b) Perl_tovmspath_utf8_ts(aTHX_ a,b,NULL)
214#define tovmspath_utf8(a,b,c) Perl_tovmspath_utf8(aTHX_ a,b,c)
215#define tovmspath_utf8_ts(a,b,c) Perl_tovmspath_utf8_ts(aTHX_ a,b,c)
4b19af01 216#define do_rmdir(a) Perl_do_rmdir(aTHX_ a)
217#define fileify_dirspec(a,b) Perl_fileify_dirspec(aTHX_ a,b)
218#define fileify_dirspec_ts(a,b) Perl_fileify_dirspec_ts(aTHX_ a,b)
360732b5 219#define fileify_dirspec_utf8(a,b,c) Perl_fileify_dirspec(aTHX_ a,b,utf8)
220#define fileify_dirspec_utf8_ts(a,b,c) Perl_fileify_dirspec_ts(aTHX_ a,b,utf8)
4b19af01 221#define pathify_dirspec Perl_pathify_dirspec
222#define pathify_dirspec_ts Perl_pathify_dirspec_ts
360732b5 223#define pathify_dirspec_utf8 Perl_pathify_dirspec_utf8
224#define pathify_dirspec_utf8_ts Perl_pathify_dirspec_utf8_ts
225#define rmsexpand(a,b,c,d) Perl_rmsexpand_utf8(aTHX_ a,b,c,d,NULL,NULL)
226#define rmsexpand_ts(a,b,c,d) Perl_rmsexpand_utf8_ts(aTHX_ a,b,c,d,NULL,NULL)
227#define rmsexpand_utf8(a,b,c,d,e,f) Perl_rmsexpand_utf8(aTHX_ a,b,c,d,e,f)
228#define rmsexpand_utf8_ts(a,b,c,d,e,f) Perl_rmsexpand_utf8_ts(aTHX_ a,b,c,d,e,f)
4b19af01 229#define trim_unixpath(a,b,c) Perl_trim_unixpath(aTHX_ a,b,c)
230#define opendir(a) Perl_opendir(aTHX_ a)
231#define rmscopy(a,b,c) Perl_rmscopy(aTHX_ a,b,c)
fd8cd3a3 232#define my_mkdir(a,b) Perl_my_mkdir(aTHX_ a,b)
233#define vms_do_aexec(a,b,c) Perl_vms_do_aexec(aTHX_ a,b,c)
234#define vms_do_exec(a) Perl_vms_do_exec(aTHX_ a)
235#define my_waitpid(a,b,c) Perl_my_waitpid(aTHX_ a,b,c)
236#define my_crypt(a,b) Perl_my_crypt(aTHX_ a,b)
237#define kill_file(a) Perl_kill_file(aTHX_ a)
238#define my_utime(a,b) Perl_my_utime(aTHX_ a,b)
239#define my_chdir(a) Perl_my_chdir(aTHX_ a)
240#define do_aspawn(a,b,c) Perl_do_aspawn(aTHX_ a,b,c)
241#define seekdir(a,b) Perl_seekdir(aTHX_ a,b)
242#define my_gmtime(a) Perl_my_gmtime(aTHX_ a)
243#define my_localtime(a) Perl_my_localtime(aTHX_ a)
244#define my_time(a) Perl_my_time(aTHX_ a)
245#define do_spawn(a) Perl_do_spawn(aTHX_ a)
246#define flex_fstat(a,b) Perl_flex_fstat(aTHX_ a,b)
247#define cando_by_name(a,b,c) Perl_cando_by_name(aTHX_ a,b,c)
248#define flex_stat(a,b) Perl_flex_stat(aTHX_ a,b)
249#define my_getpwnam(a) Perl_my_getpwnam(aTHX_ a)
250#define my_getpwuid(a) Perl_my_getpwuid(aTHX_ a)
251#define my_flush(a) Perl_my_flush(aTHX_ a)
252#define readdir(a) Perl_readdir(aTHX_ a)
a9852f7c 253#define readdir_r(a,b,c) Perl_readdir_r(aTHX_ a,b,c)
5c84aa53 254#endif
562a7b0c 255#define my_gconvert Perl_my_gconvert
2497a41f 256#define telldir Perl_telldir
562a7b0c 257#define closedir Perl_closedir
258#define vmsreaddirversions Perl_vmsreaddirversions
562a7b0c 259#define my_sigemptyset Perl_my_sigemptyset
260#define my_sigfillset Perl_my_sigfillset
261#define my_sigaddset Perl_my_sigaddset
262#define my_sigdelset Perl_my_sigdelset
263#define my_sigismember Perl_my_sigismember
264#define my_sigprocmask Perl_my_sigprocmask
562a7b0c 265#define my_vfork Perl_my_vfork
bc10a425 266#define my_fdopen Perl_my_fdopen
267#define my_fclose Perl_my_fclose
562a7b0c 268#define my_fwrite Perl_my_fwrite
9fa802f3 269#define my_getpwent() Perl_my_getpwent(aTHX)
270#define my_endpwent() Perl_my_endpwent(aTHX)
562a7b0c 271#define my_getlogin Perl_my_getlogin
2497a41f 272#define init_os_extras Perl_init_os_extras
360732b5 273#define vms_realpath(a, b, c) Perl_vms_realpath(aTHX_ a,b,c)
2497a41f 274#define vms_case_tolerant(a) Perl_vms_case_tolerant(a)
bf109933 275
276/* Delete if at all possible, changing protections if necessary. */
748a9306 277#define unlink kill_file
278
0414b1a0 279/*
280 * Intercept calls to fork, so we know whether subsequent calls to
281 * exec should be handled in VMSish or Unixish style.
282 */
283#define fork my_vfork
aa689395 284#ifndef DONT_MASK_RTL_CALLS /* #defined in vms.c so we see real vfork */
0414b1a0 285# ifdef vfork
286# undef vfork
287# endif
288# define vfork my_vfork
289#endif
290
674d6c38 291/*
292 * Toss in a shim to tmpfile which creates a plain temp file if the
293 * RMS tmp mechanism won't work (e.g. if someone is relying on ACLs
294 * from a specific directory to permit creation of files).
295 */
296#ifndef DONT_MASK_RTL_CALLS
fd8cd3a3 297# define tmpfile Perl_my_tmpfile
674d6c38 298#endif
299
300
0414b1a0 301/* BIG_TIME:
302 * This symbol is defined if Time_t is an unsigned type on this system.
303 */
304#define BIG_TIME
305
0414b1a0 306/* ACME_MESS:
307 * This symbol, if defined, indicates that error messages should be
308 * should be generated in a format that allows the use of the Acme
309 * GUI/editor's autofind feature.
310 */
311#undef ACME_MESS /**/
e518068a 312
44a8e56a 313/* ALTERNATE_SHEBANG:
314 * This symbol, if defined, contains a "magic" string which may be used
315 * as the first line of a Perl program designed to be executed directly
316 * by name, instead of the standard Unix #!. If ALTERNATE_SHEBANG
317 * begins with a character other then #, then Perl will only treat
318 * it as a command line if if finds the string "perl" in the first
319 * word; otherwise it's treated as the first line of code in the script.
320 * (IOW, Perl won't hand off to another interpreter via an alternate
321 * shebang sequence that might be legal Perl code.)
322 */
323#define ALTERNATE_SHEBANG "$"
324
a44ceb8e 325/* Lower case entry points for these are missing in some earlier RTLs
326 * so we borrow the defines and declares from errno.h and upcase them.
327 */
328#if defined(VMS_WE_ARE_CASE_SENSITIVE) && (__DECC_VER < 50500000)
329# define errno (*CMA$TIS_ERRNO_GET_ADDR())
330# define vaxc$errno (*CMA$TIS_VMSERRNO_GET_ADDR())
331 int *CMA$TIS_ERRNO_GET_ADDR (void); /* UNIX style error code */
332 int *CMA$TIS_VMSERRNO_GET_ADDR (void); /* VMS error (errno == EVMSERR) */
333#endif
334
748a9306 335/* Macros to set errno using the VAX thread-safe calls, if present */
336#if (defined(__DECC) || defined(__DECCXX)) && !defined(__ALPHA)
337# define set_errno(v) (cma$tis_errno_set_value(v))
774d564b 338 void cma$tis_errno_set_value(int __value); /* missing in some errno.h */
748a9306 339# define set_vaxc_errno(v) (vaxc$errno = (v))
340#else
341# define set_errno(v) (errno = (v))
342# define set_vaxc_errno(v) (vaxc$errno = (v))
343#endif
344
ff0cee69 345/* Support for 'vmsish' behaviors enabled with C<use vmsish> pragma */
346
347#define COMPLEX_STATUS 1 /* We track both "POSIX" and VMS values */
348
aa689395 349#define HINT_V_VMSISH 24
744a34f9 350#define HINT_M_VMSISH_STATUS 0x40000000 /* system, $? return VMS status */
a0ed51b3 351#define HINT_M_VMSISH_TIME 0x80000000 /* times are local, not UTC */
6b88bc9c 352#define NATIVE_HINTS (PL_hints >> HINT_V_VMSISH) /* used in op.c */
ff0cee69 353
6b88bc9c 354#define TEST_VMSISH(h) (PL_curcop->op_private & ((h) >> HINT_V_VMSISH))
ff0cee69 355#define VMSISH_STATUS TEST_VMSISH(HINT_M_VMSISH_STATUS)
ff0cee69 356#define VMSISH_TIME TEST_VMSISH(HINT_M_VMSISH_TIME)
357
96e176bf 358/* VMS-specific data storage */
359
360#define HAVE_INTERP_INTERN
361struct interp_intern {
362 int hushed;
7a7fd8e0 363 int posix_exit;
3ff49832 364 double inv_rand_max;
96e176bf 365};
366#define VMSISH_HUSHED (PL_sys_intern.hushed)
367#define MY_INV_RAND_MAX (PL_sys_intern.inv_rand_max)
7a7fd8e0 368#define MY_POSIX_EXIT (PL_sys_intern.posix_exit)
96e176bf 369
562a7b0c 370/* Flags for vmstrnenv() */
371#define PERL__TRNENV_SECURE 0x01
843027b0 372#define PERL__TRNENV_JOIN_SEARCHLIST 0x02
562a7b0c 373
748a9306 374/* Handy way to vet calls to VMS system services and RTL routines. */
bf109933 375#define _ckvmssts(call) STMT_START { register unsigned long int __ckvms_sts; \
748a9306 376 if (!((__ckvms_sts=(call))&1)) { \
377 set_errno(EVMSERR); set_vaxc_errno(__ckvms_sts); \
5c84aa53 378 Perl_croak(aTHX_ "Fatal VMS error (status=%d) at %s, line %d", \
bf109933 379 __ckvms_sts,__FILE__,__LINE__); } } STMT_END
a0d0e21e 380
0414b1a0 381/* Same thing, but don't call back to Perl's croak(); useful for errors
382 * occurring during startup, before Perl's state is initialized */
383#define _ckvmssts_noperl(call) STMT_START { register unsigned long int __ckvms_sts; \
384 if (!((__ckvms_sts=(call))&1)) { \
385 set_errno(EVMSERR); set_vaxc_errno(__ckvms_sts); \
a15cef0c 386 fprintf(stderr,"Fatal VMS error (status=%d) at %s, line %d", \
0414b1a0 387 __ckvms_sts,__FILE__,__LINE__); lib$signal(__ckvms_sts); } } STMT_END
388
a0d0e21e 389#ifdef VMS_DO_SOCKETS
390#include "sockadapt.h"
86774884 391#define PERL_SOCK_SYSREAD_IS_RECV
392#define PERL_SOCK_SYSWRITE_IS_SEND
a0d0e21e 393#endif
394
2497a41f 395#if __CRTL_VER < 70000000
c07a80fd 396#define BIT_BUCKET "_NLA0:"
2497a41f 397#else
398#define BIT_BUCKET "/dev/null"
399#endif
ac5a684e 400#define PERL_SYS_INIT(c,v) MALLOC_CHECK_TAINT2(*c,*v) vms_image_init((c),(v)); PERLIO_INIT; MALLOC_INIT
401#define PERL_SYS_TERM() HINTS_REFCNT_TERM; OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM
8cc95fdb 402#define dXSUB_SYS
a0d0e21e 403#define HAS_KILL
404#define HAS_WAIT
405
146174a9 406#define PERL_FS_VER_FMT "%d_%d_%d"
c93fa817 407/* Temporary; we need to add support for this to Configure.Com */
408#ifdef PERL_INC_VERSION_LIST
409# undef PERL_INC_VERSION_LIST
410#endif
146174a9 411
e518068a 412/* VMS:
413 * This symbol, if defined, indicates that the program is running under
414 * VMS. It's a symbol automagically defined by all VMS C compilers I've seen.
415 * Just in case, however . . . */
2fbb330f 416/* Note that code really should be using __VMS to comply with ANSI */
e518068a 417#ifndef VMS
418#define VMS /**/
419#endif
420
421/* HAS_IOCTL:
422 * This symbol, if defined, indicates that the ioctl() routine is
423 * available to set I/O characteristics
a0d0e21e 424 */
670137c2 425#if defined(__CRTL_VER) && __CRTL_VER >= 70000000
426#define HAS_IOCTL /**/
427#else
e518068a 428#undef HAS_IOCTL /**/
670137c2 429#endif
e518068a 430
431/* HAS_UTIME:
432 * This symbol, if defined, indicates that the routine utime() is
433 * available to update the access and modification times of files.
434 */
435#define HAS_UTIME /**/
a0d0e21e 436
e518068a 437/* HAS_GROUP
28e8609d 438 * This symbol, if defined, indicates that the getgrnam() and
439 * getgrgid() routines are available to get group entries.
440 * The getgrent() has a separate definition, HAS_GETGRENT.
e518068a 441 */
442#undef HAS_GROUP /**/
443
444/* HAS_PASSWD
28e8609d 445 * This symbol, if defined, indicates that the getpwnam() and
446 * getpwuid() routines are available to get password entries.
447 * The getpwent() has a separate definition, HAS_GETPWENT.
e518068a 448 */
449#define HAS_PASSWD /**/
450
451#define HAS_KILL
452#define HAS_WAIT
453
0414b1a0 454/* USEMYBINMODE
455 * This symbol, if defined, indicates that the program should
16fe6d59 456 * use the routine my_binmode(FILE *fp, char iotype, int mode) to insure
0414b1a0 457 * that a file is in "binary" mode -- that is, that no translation
458 * of bytes occurs on read or write operations.
459 */
562a7b0c 460#undef USEMYBINMODE
0414b1a0 461
61bb5906 462/* Stat_t:
463 * This symbol holds the type used to declare buffers for information
464 * returned by stat(). It's usually just struct stat. It may be necessary
465 * to include <sys/stat.h> and <sys/types.h> to get any typedef'ed
466 * information.
467 */
468/* VMS:
469 * We need this typedef to point to the new type even if DONT_MASK_RTL_CALLS
470 * is in effect, since Perl's thread.h embeds one of these structs in its
471 * thread data struct, and our struct mystat is a different size from the
472 * regular struct stat (cf. note above about having to pad struct to work
473 * around bug in compiler.)
474 * It's OK to pass one of these to the RTL's stat(), though, since the
475 * fields it fills are the same in each struct.
476 */
477#define Stat_t struct mystat
478
479/* USE_STAT_RDEV:
480* This symbol is defined if this system has a stat structure declaring
481* st_rdev
482* VMS: Field exists in POSIXish version of struct stat(), but is not used.
2497a41f 483*
484* No definition of what value an operating system or file system should
485* put in the st_rdev field has been found by me so far. Examination of
486* LINUX source code indicates that the value is both very platform and
487* file system specific, with many filesystems just putting 1 or 0 in it.
488* J. Malmberg.
61bb5906 489*/
490#undef USE_STAT_RDEV /**/
491
a0d0e21e 492/*
493 * fwrite1() should be a routine with the same calling sequence as fwrite(),
494 * but which outputs all of the bytes requested as a single stream (unlike
495 * fwrite() itself, which on some systems outputs several distinct records
496 * if the number_of_items parameter is >1).
497 */
498#define fwrite1 my_fwrite
499
bc10a425 500
501#ifndef DONT_MASK_RTL_CALLS
a15cef0c 502# define fwrite my_fwrite /* for PerlSIO_fwrite */
bc10a425 503# define fdopen my_fdopen
504# define fclose my_fclose
505#endif
506
507
d27fe803 508/* By default, flush data all the way to disk, not just to RMS buffers */
509#define Fflush(fp) my_flush(fp)
510
a0d0e21e 511/* Use our own rmdir() */
2497a41f 512#ifndef DONT_MASK_RTL_CALLS
a0d0e21e 513#define rmdir(name) do_rmdir(name)
2497a41f 514#endif
a0d0e21e 515
516/* Assorted fiddling with sigs . . . */
517# include <signal.h>
518#define ABORT() abort()
519
704c2eb3 520#ifdef I_UTIME
521#include <utime.h>
522#else
748a9306 523/* Used with our my_utime() routine in vms.c */
524struct utimbuf {
525 time_t actime;
526 time_t modtime;
527};
704c2eb3 528#endif
529#ifndef DONT_MASK_RTL_CALLS
748a9306 530#define utime my_utime
704c2eb3 531#endif
748a9306 532
0414b1a0 533/* This is what times() returns, but <times.h> calls it tbuffer_t on VMS
534 * prior to v7.0. We check the DECC manifest to see whether it's already
535 * done this for us, relying on the fact that perl.h #includes <time.h>
536 * before it #includes "vmsish.h".
537 */
a0d0e21e 538
0414b1a0 539#ifndef __TMS
540 struct tms {
541 clock_t tms_utime; /* user time */
542 clock_t tms_stime; /* system time - always 0 on VMS */
543 clock_t tms_cutime; /* user time, children */
544 clock_t tms_cstime; /* system time, children - always 0 on VMS */
545 };
5f05dabc 546#else
547 /* The new headers change the times() prototype to tms from tbuffer */
548# define tbuffer_t struct tms
0414b1a0 549#endif
a0d0e21e 550
61bb5906 551/* Substitute our own routines for gmtime(), localtime(), and time(),
552 * which allow us to implement the vmsish 'time' pragma, and work
553 * around absence of system-level UTC support on old versions of VMS.
e518068a 554 */
555#define gmtime(t) my_gmtime(t)
ff0cee69 556#define localtime(t) my_localtime(t)
557#define time(t) my_time(t)
61bb5906 558
559/* If we're using an older version of VMS whose Unix signal emulation
560 * isn't very POSIXish, then roll our own.
561 */
562#if __VMS_VER < 70000000 || __DECC_VER < 50200000
563# define HOMEGROWN_POSIX_SIGNALS
564#endif
565#ifdef HOMEGROWN_POSIX_SIGNALS
566# define sigemptyset(t) my_sigemptyset(t)
567# define sigfillset(t) my_sigfillset(t)
568# define sigaddset(t, u) my_sigaddset(t, u)
569# define sigdelset(t, u) my_sigdelset(t, u)
570# define sigismember(t, u) my_sigismember(t, u)
571# define sigprocmask(t, u, v) my_sigprocmask(t, u, v)
09b7f37c 572# ifndef _SIGSET_T
61bb5906 573 typedef int sigset_t;
09b7f37c 574# endif
61bb5906 575 /* The tools for sigprocmask() are there, just not the routine itself */
576# ifndef SIG_UNBLOCK
577# define SIG_UNBLOCK 1
578# endif
579# ifndef SIG_BLOCK
580# define SIG_BLOCK 2
581# endif
582# ifndef SIG_SETMASK
583# define SIG_SETMASK 3
584# endif
585# define sigaction sigvec
586# define sa_flags sv_onstack
587# define sa_handler sv_handler
588# define sa_mask sv_mask
589# define sigsuspend(set) sigpause(*set)
590# define sigpending(a) (not_here("sigpending"),0)
5c2d7af2 591#else
592/*
593 * The C RTL's sigaction fails to check for invalid signal numbers so we
594 * help it out a bit.
595 */
596# ifndef DONT_MASK_RTL_CALLS
8df869cb 597# define sigaction(a,b,c) Perl_my_sigaction(aTHX_ a,b,c)
5c2d7af2 598# endif
7b62b82b 599#endif
f2610a60 600#ifdef KILL_BY_SIGPRC
601# define kill Perl_my_kill
602#endif
603
e518068a 604
a0d0e21e 605/* VMS doesn't use a real sys_nerr, but we need this when scanning for error
606 * messages in text strings . . .
607 */
608
609#define sys_nerr EVMSERR /* EVMSERR is as high as we can go. */
610
611/* Look up new %ENV values on the fly */
612#define DYNAMIC_ENV_FETCH 1
aa689395 613 /* Special getenv function for retrieving %ENV elements. */
562a7b0c 614#define ENVgetenv(v) my_getenv(v,FALSE)
a6c40364 615#define ENVgetenv_len(v,l) my_getenv_len(v,l,FALSE)
aa689395 616
a0d0e21e 617
22d4bb9c 618/* Thin jacket around cuserid() to match Unix' calling sequence */
c07a80fd 619#define getlogin my_getlogin
620
bc10a425 621/* Ditto for sys$hash_password() . . . */
fd8cd3a3 622#define crypt(a,b) Perl_my_crypt(aTHX_ a,b)
c07a80fd 623
ee8c7f54 624/* Tweak arg to mkdir & chdir first, so we can tolerate trailing /. */
fd8cd3a3 625#define Mkdir(dir,mode) Perl_my_mkdir(aTHX_ (dir),(mode))
ee8c7f54 626#define Chdir(dir) my_chdir((dir))
8cc95fdb 627
a0d0e21e 628/* Use our own stat() clones, which handle Unix-style directory names */
629#define Stat(name,bufptr) flex_stat(name,bufptr)
fd8cd3a3 630#define Fstat(fd,bufptr) Perl_flex_fstat(aTHX_ fd,bufptr)
10d1eec1 631#ifndef DONT_MASK_RTL_CALLS
632#define lstat(name, bufptr) Perl_flex_lstat(name, bufptr)
633#endif
a0d0e21e 634
635/* Setup for the dirent routines:
636 * opendir(), closedir(), readdir(), seekdir(), telldir(), and
637 * vmsreaddirversions(), and preprocessor stuff on which these depend:
638 * Written by Rich $alz, <rsalz@bbn.com> in August, 1990.
2497a41f 639 *
a0d0e21e 640 */
2497a41f 641
657054d4 642/* Flags for the _dirdesc structure */
643#define PERL_VMSDIR_M_VERSIONS 0x02 /* Want VMS versions */
644#define PERL_VMSDIR_M_UNIXSPECS 0x04 /* Want UNIX specifications */
645
646
a0d0e21e 647 /* Data structure returned by READDIR(). */
ddcbaa1c 648struct dirent {
a0d0e21e 649 char d_name[256]; /* File name */
2497a41f 650 int d_namlen; /* Length of d_name */
a0d0e21e 651 int vms_verscount; /* Number of versions */
652 int vms_versions[20]; /* Version numbers */
653};
654
655 /* Handle returned by opendir(), used by the other routines. You
656 * are not supposed to care what's inside this structure. */
ddcbaa1c 657typedef struct _dirdesc {
a0d0e21e 658 long context;
657054d4 659 int flags;
a0d0e21e 660 unsigned long int count;
661 char *pattern;
ddcbaa1c 662 struct dirent entry;
a0d0e21e 663 struct dsc$descriptor_s pat;
a9852f7c 664 void *mutex;
ddcbaa1c 665} DIR;
a0d0e21e 666
2497a41f 667
a0d0e21e 668#define rewinddir(dirp) seekdir((dirp), 0)
669
748a9306 670/* used for our emulation of getpw* */
671struct passwd {
672 char *pw_name; /* Username */
673 char *pw_passwd;
674 Uid_t pw_uid; /* UIC member number */
675 Gid_t pw_gid; /* UIC group number */
676 char *pw_comment; /* Default device/directory (Unix-style) */
677 char *pw_gecos; /* Owner */
678 char *pw_dir; /* Default device/directory (VMS-style) */
679 char *pw_shell; /* Default CLI name (eg. DCL) */
680};
681#define pw_unixdir pw_comment /* Default device/directory (Unix-style) */
682#define getpwnam my_getpwnam
683#define getpwuid my_getpwuid
684#define getpwent my_getpwent
685#define endpwent my_endpwent
686#define setpwent my_endpwent
687
688/* Our own stat_t substitute, since we play with st_dev and st_ino -
689 * we want atomic types so Unix-bound code which compares these fields
c07a80fd 690 * for two files will work most of the time under VMS.
691 * N.B. 1. The st_ino hack assumes that sizeof(unsigned short[3]) ==
692 * sizeof(unsigned) + sizeof(unsigned short). We can't use a union type
693 * to map the unsigned int we want and the unsigned short[3] the CRTL
694 * returns into the same member, since gcc has different ideas than DECC
695 * and VAXC about sizing union types.
22d4bb9c 696 * N.B. 2. The routine cando() in vms.c assumes that &stat.st_ino is the
c07a80fd 697 * address of a FID.
748a9306 698 */
699/* First, grab the system types, so we don't clobber them later */
700#include <stat.h>
701/* Since we've got to match the size of the CRTL's stat_t, we need
702 * to mimic DECC's alignment settings.
2497a41f 703 *
704 * The simplest thing is to just put a wrapper around the stat structure
705 * supplied by the CRTL and use #defines to redirect references to the
706 * members to the real names.
748a9306 707 */
2497a41f 708
e0261ef8 709#if defined(__DECC) || defined(__DECCXX)
710# pragma __member_alignment __save
711# pragma member_alignment
712#endif
713
2497a41f 714typedef unsigned mydev_t;
715#ifndef _LARGEFILE
716typedef unsigned myino_t;
717#else
718typedef __ino64_t myino_t;
748a9306 719#endif
e0261ef8 720
748a9306 721struct mystat
722{
2497a41f 723 struct stat crtl_stat;
724 myino_t st_ino;
725#ifndef _LARGEFILE
726 unsigned rvn; /* FID (num,seq,rvn) + pad */
727#endif
728 mydev_t st_dev;
729 char st_devnam[256]; /* Cache the (short) VMS name */
748a9306 730};
e0261ef8 731
2497a41f 732#define st_mode crtl_stat.st_mode
733#define st_nlink crtl_stat.st_nlink
734#define st_uid crtl_stat.st_uid
735#define st_gid crtl_stat.st_gid
736#define st_rdev crtl_stat.st_rdev
737#define st_size crtl_stat.st_size
738#define st_atime crtl_stat.st_atime
739#define st_mtime crtl_stat.st_mtime
740#define st_ctime crtl_stat.st_ctime
741#define st_fab_rfm crtl_stat.st_fab_rfm
742#define st_fab_rat crtl_stat.st_fab_rat
743#define st_fab_fsz crtl_stat.st_fab_fsz
682e4b71 744#define st_fab_mrs crtl_stat.st_fab_mrs
745
746#ifdef _USE_STD_STAT
747#define VMS_INO_T_COMPARE(__a, __b) (__a != __b)
cfcfe586 748#define VMS_INO_T_COPY(__a, __b) __a = __b
682e4b71 749#else
750#define VMS_INO_T_COMPARE(__a, __b) memcmp(&__a, &__b, 6)
751#define VMS_INO_T_COPY(__a, __b) memcpy(&__a, &__b, 6)
752#endif
e0261ef8 753
e0261ef8 754#if defined(__DECC) || defined(__DECCXX)
755# pragma __member_alignment __restore
756#endif
757
a44ceb8e 758/*
759 * DEC C previous to 6.0 corrupts the behavior of the /prefix
760 * qualifier with the extern prefix pragma. This provisional
761 * hack circumvents this prefix pragma problem in previous
762 * precompilers.
763 */
764#if defined(__VMS_VER) && __VMS_VER >= 70000000
765# if defined(VMS_WE_ARE_CASE_SENSITIVE) && (__DECC_VER < 60000000)
766# pragma __extern_prefix save
767# pragma __extern_prefix "" /* set to empty to prevent prefixing */
768# define geteuid decc$__unix_geteuid
769# define getuid decc$__unix_getuid
770# define stat(__p1,__p2) decc$__utc_stat(__p1,__p2)
771# define fstat(__p1,__p2) decc$__utc_fstat(__p1,__p2)
772# pragma __extern_prefix restore
773# endif
774#endif
775
aa689395 776#ifndef DONT_MASK_RTL_CALLS /* defined for vms.c so we can see RTL calls */
777# ifdef stat
778# undef stat
779# endif
780# define stat mystat
781# define dev_t mydev_t
782# define ino_t myino_t
783#endif
748a9306 784/* Cons up a 'delete' bit for testing access */
785#define S_IDUSR (S_IWUSR | S_IXUSR)
786#define S_IDGRP (S_IWGRP | S_IXGRP)
787#define S_IDOTH (S_IWOTH | S_IXOTH)
a0d0e21e 788
a44ceb8e 789
a0d0e21e 790/* Prototypes for functions unique to vms.c. Don't include replacements
791 * for routines in the mainline source files excluded by #ifndef VMS;
792 * their prototypes are already in proto.h.
793 *
794 * In order to keep Gen_ShrFls.Pl happy, functions which are to be made
795 * available to images linked to PerlShr.Exe must be declared between the
796 * __VMS_PROTOTYPES__ and __VMS_SEPYTOTORP__ lines, and must be in the form
20ce7b12 797 * <data type><TAB>name<WHITESPACE>(<prototype args>);
a0d0e21e 798 */
94c456c4 799
44a8e56a 800#ifdef NO_PERL_TYPEDEFS
801 /* We don't have Perl typedefs available (e.g. when building a2p), so
802 we fake them here. N.B. There is *no* guarantee that the faked
803 prototypes will actually match the real routines. If you want to
804 call Perl routines, include perl.h to get the real typedefs. */
805# ifndef bool
806# define bool int
807# define __MY_BOOL_TYPE_FAKE
808# endif
809# ifndef I32
810# define I32 int
811# define __MY_I32_TYPE_FAKE
812# endif
813# ifndef SV
814# define SV void /* Since we only see SV * in prototypes */
815# define __MY_SV_TYPE_FAKE
816# endif
817#endif
818
20ce7b12 819void prime_env_iter (void);
2fbb330f 820void init_os_extras (void);
7a7fd8e0 821int Perl_vms_status_to_unix(int vms_status, int child_flag);
822int Perl_unix_status_to_vms(int unix_status);
c07a80fd 823/* prototype section start marker; `typedef' passes through cpp */
824typedef char __VMS_PROTOTYPES__;
fd8cd3a3 825int Perl_vmstrnenv (const char *, char *, unsigned long int, struct dsc$descriptor_s **, unsigned long int);
360732b5 826char * Perl_vms_realpath (pTHX_ const char *, char *, int *);
5c84aa53 827#if !defined(PERL_IMPLICIT_CONTEXT)
2497a41f 828int Perl_vms_case_tolerant(void);
5c84aa53 829char * Perl_my_getenv (const char *, bool);
4b19af01 830int Perl_my_trnlnm (const char *, char *, unsigned long int);
b8ffc8df 831char * Perl_tounixspec (const char *, char *);
832char * Perl_tounixspec_ts (const char *, char *);
360732b5 833char * Perl_tounixspec_utf8 (const char *, char *, int *);
834char * Perl_tounixspec_utf8_ts (const char *, char *, int *);
2fbb330f 835char * Perl_tovmsspec (const char *, char *);
836char * Perl_tovmsspec_ts (const char *, char *);
360732b5 837char * Perl_tovmsspec_utf8 (const char *, char *, int *);
838char * Perl_tovmsspec_utf8_ts (const char *, char *, int *);
b8ffc8df 839char * Perl_tounixpath (const char *, char *);
840char * Perl_tounixpath_ts (const char *, char *);
360732b5 841char * Perl_tounixpath_utf8 (const char *, char *, int *);
842char * Perl_tounixpath_utf8_ts (const char *, char *, int *);
b8ffc8df 843char * Perl_tovmspath (const char *, char *);
844char * Perl_tovmspath_ts (const char *, char *);
360732b5 845char * Perl_tovmspath_utf8 (const char *, char *, int *);
846char * Perl_tovmspath_utf8_ts (const char *, char *, int *);
b8ffc8df 847int Perl_do_rmdir (const char *);
848char * Perl_fileify_dirspec (const char *, char *);
849char * Perl_fileify_dirspec_ts (const char *, char *);
360732b5 850char * Perl_fileify_dirspec_utf8 (const char *, char *, int *);
851char * Perl_fileify_dirspec_utf8_ts (const char *, char *, int *);
b8ffc8df 852char * Perl_pathify_dirspec (const char *, char *);
853char * Perl_pathify_dirspec_ts (const char *, char *);
360732b5 854char * Perl_pathify_dirspec_utf8 (const char *, char *, int *);
855char * Perl_pathify_dirspec_utf8_ts (const char *, char *, int *);
2fbb330f 856char * Perl_rmsexpand (const char *, char *, const char *, unsigned);
857char * Perl_rmsexpand_ts (const char *, char *, const char *, unsigned);
360732b5 858char * Perl_rmsexpand_utf8 (const char *, char *, const char *, unsigned, int *, int *);
859char * Perl_rmsexpand_utf8_ts (const char *, char *, const char *, unsigned, int *, int *);
2fbb330f 860int Perl_trim_unixpath (char *, const char*, int);
ddcbaa1c 861DIR * Perl_opendir (const char *);
2fbb330f 862int Perl_rmscopy (const char *, const char *, int);
b8ffc8df 863int Perl_my_mkdir (const char *, Mode_t);
fd8cd3a3 864bool Perl_vms_do_aexec (SV *, SV **, SV **);
5c84aa53 865#else
866char * Perl_my_getenv (pTHX_ const char *, bool);
4b19af01 867int Perl_my_trnlnm (pTHX_ const char *, char *, unsigned long int);
b8ffc8df 868char * Perl_tounixspec (pTHX_ const char *, char *);
869char * Perl_tounixspec_ts (pTHX_ const char *, char *);
360732b5 870char * Perl_tounixspec_utf8 (pTHX_ const char *, char *, int *);
871char * Perl_tounixspec_utf8_ts (pTHX_ const char *, char *, int *);
2fbb330f 872char * Perl_tovmsspec (pTHX_ const char *, char *);
873char * Perl_tovmsspec_ts (pTHX_ const char *, char *);
360732b5 874char * Perl_tovmsspec_utf8 (pTHX_ const char *, char *, int *);
875char * Perl_tovmsspec_utf8_ts (pTHX_ const char *, char *, int *);
b8ffc8df 876char * Perl_tounixpath (pTHX_ const char *, char *);
877char * Perl_tounixpath_ts (pTHX_ const char *, char *);
360732b5 878char * Perl_tounixpath_utf8 (pTHX_ const char *, char *, int *);
879char * Perl_tounixpath_utf8_ts (pTHX_ const char *, char *, int *);
b8ffc8df 880char * Perl_tovmspath (pTHX_ const char *, char *);
881char * Perl_tovmspath_ts (pTHX_ const char *, char *);
360732b5 882char * Perl_tovmspath_utf8 (pTHX_ const char *, char *, int *);
883char * Perl_tovmspath_utf8_ts (pTHX_ const char *, char *, int *);
b8ffc8df 884int Perl_do_rmdir (pTHX_ const char *);
885char * Perl_fileify_dirspec (pTHX_ const char *, char *);
886char * Perl_fileify_dirspec_ts (pTHX_ const char *, char *);
360732b5 887char * Perl_fileify_dirspec_utf8 (pTHX_ const char *, char *, int *);
888char * Perl_fileify_dirspec_utf8_ts (pTHX_ const char *, char *, int *);
b8ffc8df 889char * Perl_pathify_dirspec (pTHX_ const char *, char *);
890char * Perl_pathify_dirspec_ts (pTHX_ const char *, char *);
360732b5 891char * Perl_pathify_dirspec_utf8 (pTHX_ const char *, char *, int *);
892char * Perl_pathify_dirspec_utf8_ts (pTHX_ const char *, char *, int *);
2fbb330f 893char * Perl_rmsexpand (pTHX_ const char *, char *, const char *, unsigned);
894char * Perl_rmsexpand_ts (pTHX_ const char *, char *, const char *, unsigned);
360732b5 895char * Perl_rmsexpand_utf8 (pTHX_ const char *, char *, const char *, unsigned, int *, int *);
896char * Perl_rmsexpand_utf8_ts (pTHX_ const char *, char *, const char *, unsigned, int *, int *);
2fbb330f 897int Perl_trim_unixpath (pTHX_ char *, const char*, int);
ddcbaa1c 898DIR * Perl_opendir (pTHX_ const char *);
2fbb330f 899int Perl_rmscopy (pTHX_ const char *, const char *, int);
b8ffc8df 900int Perl_my_mkdir (pTHX_ const char *, Mode_t);
fd8cd3a3 901bool Perl_vms_do_aexec (pTHX_ SV *, SV **, SV **);
902#endif
2497a41f 903int Perl_vms_case_tolerant(void);
fd8cd3a3 904char * Perl_my_getenv_len (pTHX_ const char *, unsigned long *, bool);
2c590a56 905int Perl_vmssetenv (pTHX_ const char *, const char *, struct dsc$descriptor_s **);
2fbb330f 906void Perl_vmssetuserlnm(pTHX_ const char *name, const char *eqv);
fd8cd3a3 907char * Perl_my_crypt (pTHX_ const char *, const char *);
908Pid_t Perl_my_waitpid (pTHX_ Pid_t, int *, int);
20ce7b12 909char * my_gconvert (double, int, int, char *);
b8ffc8df 910int Perl_kill_file (pTHX_ const char *);
911int Perl_my_chdir (pTHX_ const char *);
2fbb330f 912FILE * Perl_my_tmpfile (void);
5c2d7af2 913#ifndef HOMEGROWN_POSIX_SIGNALS
914int Perl_my_sigaction (pTHX_ int, const struct sigaction*, struct sigaction*);
915#endif
f2610a60 916#ifdef KILL_BY_SIGPRC
2e34cc90 917unsigned int Perl_sig_to_vmscondition (int);
f2610a60 918int Perl_my_kill (int, int);
2e34cc90 919void Perl_csighandler_init (void);
f2610a60 920#endif
94a11853 921int Perl_my_utime (pTHX_ const char *, const struct utimbuf *);
fd8cd3a3 922void Perl_vms_image_init (int *, char ***);
ddcbaa1c 923struct dirent * Perl_readdir (pTHX_ DIR *);
924int Perl_readdir_r(pTHX_ DIR *, struct dirent *, struct dirent **);
925long Perl_telldir (DIR *);
926void Perl_seekdir (pTHX_ DIR *, long);
927void Perl_closedir (DIR *);
928void vmsreaddirversions (DIR *, int);
fd8cd3a3 929struct tm * Perl_my_gmtime (pTHX_ const time_t *);
930struct tm * Perl_my_localtime (pTHX_ const time_t *);
931time_t Perl_my_time (pTHX_ time_t *);
61bb5906 932#ifdef HOMEGROWN_POSIX_SIGNALS
20ce7b12 933int my_sigemptyset (sigset_t *);
934int my_sigfillset (sigset_t *);
935int my_sigaddset (sigset_t *, int);
936int my_sigdelset (sigset_t *, int);
937int my_sigismember (sigset_t *, int);
938int my_sigprocmask (int, sigset_t *, sigset_t *);
5b411029 939#endif
03e3cfa3 940I32 Perl_cando_by_name (pTHX_ I32, bool, const char *);
fd8cd3a3 941int Perl_flex_fstat (pTHX_ int, Stat_t *);
2497a41f 942int Perl_flex_lstat (pTHX_ const char *, Stat_t *);
fd8cd3a3 943int Perl_flex_stat (pTHX_ const char *, Stat_t *);
2fbb330f 944int my_vfork (void);
945bool Perl_vms_do_exec (pTHX_ const char *);
fd8cd3a3 946unsigned long int Perl_do_aspawn (pTHX_ void *, void **, void **);
2fbb330f 947unsigned long int Perl_do_spawn (pTHX_ const char *);
0dac06c4 948FILE * my_fdopen (int, const char *);
bc10a425 949int my_fclose (FILE *);
a15cef0c 950int my_fwrite (const void *, size_t, size_t, FILE *);
fd8cd3a3 951int Perl_my_flush (pTHX_ FILE *);
2fbb330f 952struct passwd * Perl_my_getpwnam (pTHX_ const char *name);
fd8cd3a3 953struct passwd * Perl_my_getpwuid (pTHX_ Uid_t uid);
9fa802f3 954void Perl_my_endpwent (pTHX);
2fbb330f 955char * my_getlogin (void);
c07a80fd 956typedef char __VMS_SEPYTOTORP__;
957/* prototype section end marker; `typedef' passes through cpp */
a0d0e21e 958
44a8e56a 959#ifdef NO_PERL_TYPEDEFS /* We'll try not to scramble later files */
960# ifdef __MY_BOOL_TYPE_FAKE
961# undef bool
962# undef __MY_BOOL_TYPE_FAKE
963# endif
964# ifdef __MY_I32_TYPE_FAKE
965# undef I32
966# undef __MY_I32_TYPE_FAKE
967# endif
968# ifdef __MY_SV_TYPE_FAKE
969# undef SV
970# undef __MY_SV_TYPE_FAKE
971# endif
972#endif
973
a0d0e21e 974#ifndef VMS_DO_SOCKETS
748a9306 975/* This relies on tricks in perl.h to pick up that these manifest constants
976 * are undefined and set up conversion routines. It will then redefine
977 * these manifest constants, so the actual values will match config.h
978 */
979#undef HAS_HTONS
980#undef HAS_NTOHS
981#undef HAS_HTONL
982#undef HAS_NTOHL
a0d0e21e 983#endif
984
3b7650f4 985/* The C RTL manual says to undef the macro for DEC C 5.2 and lower. */
986#if defined(fileno) && defined(__DECC_VER) && __DECC_VER < 50300000
987# undef fileno
988#endif
989
22d4bb9c 990#define NO_ENVIRON_ARRAY
991
e886094b 992/* RMSEXPAND options */
993#define PERL_RMSEXPAND_M_VMS 0x02 /* Force output to VMS format */
994#define PERL_RMSEXPAND_M_LONG 0x04 /* Expand to long name format */
a1887106 995#define PERL_RMSEXPAND_M_VMS_IN 0x08 /* Assume input is VMS already */
e886094b 996#define PERL_RMSEXPAND_M_SYMLINK 0x20 /* Use symbolic link, not target */
997
a0d0e21e 998#endif /* __vmsish_h_included */
Unnamed repository; edit this file to name it for gitweb.