This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl5.000 patch.0o: [address] a few more Configure and build nits.
[perl5.git] / vms / vmsish.h
CommitLineData
a0d0e21e
LW
1/* vmsish.h
2 *
3 * VMS-specific C header file for perl5.
4 *
5 * Last revised: 09-Oct-1994 by Charles Bailey bailey@genetics.upenn.edu
6 */
7
8#ifndef __vmsish_h_included
9#define __vmsish_h_included
10
11#include <descrip.h> /* for dirent struct definitions */
12
13/* Assorted things to look like Unix */
14#ifdef __GNUC__
15#ifndef _IOLBF /* gcc's stdio.h doesn't define this */
16#define _IOLBF 1
17#endif
18#else
19#include <processes.h> /* for vfork() */
20#include <unixio.h>
21#endif
22#include <unixlib.h>
23#include <file.h> /* it's not <sys/file.h>, so don't use I_SYS_FILE */
24#define unlink remove
25
26#ifdef VMS_DO_SOCKETS
27#include "sockadapt.h"
28#endif
29
30/*
31 * The following symbols are defined (or undefined) according to the RTL
32 * support VMS provides for the corresponding functions. These don't
33 * appear in config.h, so they're dealt with here.
34 */
35#define HAS_KILL
36#define HAS_WAIT
37
38/* The VMS C RTL has vfork() but not fork(). Both actually work in a way
39 * that's somewhere between Unix vfork() and VMS lib$spawn(), so it's
40 * probably not a good idea to use them much. That said, we'll try to
41 * use vfork() in either case.
42 */
43#define fork vfork
44
45/*
46 * fwrite1() should be a routine with the same calling sequence as fwrite(),
47 * but which outputs all of the bytes requested as a single stream (unlike
48 * fwrite() itself, which on some systems outputs several distinct records
49 * if the number_of_items parameter is >1).
50 */
51#define fwrite1 my_fwrite
52
53/* Use our own rmdir() */
54#define rmdir(name) do_rmdir(name)
55
56/* Assorted fiddling with sigs . . . */
57# include <signal.h>
58#define ABORT() abort()
59
60/* This is what times() returns, but <times.h> calls it tbuffer_t on VMS */
61
62struct tms {
63 clock_t tms_utime; /* user time */
64 clock_t tms_stime; /* system time - always 0 on VMS */
65 clock_t tms_cutime; /* user time, children */
66 clock_t tms_cstime; /* system time, children - always 0 on VMS */
67};
68
69/* VMS doesn't use a real sys_nerr, but we need this when scanning for error
70 * messages in text strings . . .
71 */
72
73#define sys_nerr EVMSERR /* EVMSERR is as high as we can go. */
74
75/* Look up new %ENV values on the fly */
76#define DYNAMIC_ENV_FETCH 1
77#define ENV_HV_NAME "%EnV%VmS%"
78
79/* Use our own stat() clones, which handle Unix-style directory names */
80#define Stat(name,bufptr) flex_stat(name,bufptr)
81#define Fstat(fd,bufptr) flex_fstat(fd,bufptr)
82
83/* Setup for the dirent routines:
84 * opendir(), closedir(), readdir(), seekdir(), telldir(), and
85 * vmsreaddirversions(), and preprocessor stuff on which these depend:
86 * Written by Rich $alz, <rsalz@bbn.com> in August, 1990.
87 * This code has no copyright.
88 */
89 /* Data structure returned by READDIR(). */
90struct dirent {
91 char d_name[256]; /* File name */
92 int d_namlen; /* Length of d_name */
93 int vms_verscount; /* Number of versions */
94 int vms_versions[20]; /* Version numbers */
95};
96
97 /* Handle returned by opendir(), used by the other routines. You
98 * are not supposed to care what's inside this structure. */
99typedef struct _dirdesc {
100 long context;
101 int vms_wantversions;
102 unsigned long int count;
103 char *pattern;
104 struct dirent entry;
105 struct dsc$descriptor_s pat;
106} DIR;
107
108#define rewinddir(dirp) seekdir((dirp), 0)
109
110
111/* Prototypes for functions unique to vms.c. Don't include replacements
112 * for routines in the mainline source files excluded by #ifndef VMS;
113 * their prototypes are already in proto.h.
114 *
115 * In order to keep Gen_ShrFls.Pl happy, functions which are to be made
116 * available to images linked to PerlShr.Exe must be declared between the
117 * __VMS_PROTOTYPES__ and __VMS_SEPYTOTORP__ lines, and must be in the form
118 * <data type><TAB>name<WHITESPACE>_((<prototype args>));
119 */
120typedef char __VMS_PROTOTYPES__; /* prototype section start marker */
121char * my_getenv _((char *));
122#ifndef HAS_WAITPID /* Not a real waitpid - use only with popen from vms.c! */
123unsigned long int waitpid _((unsigned long int, int *, int));
124#endif
125char * my_gconvert _((double, int, int, char *));
126int do_rmdir _((char *));
127int kill_file _((char *));
128char * fileify_dirspec _((char *, char *));
129char * fileify_dirspec_ts _((char *, char *));
130char * pathify_dirspec _((char *, char *));
131char * pathify_dirspec_ts _((char *, char *));
132char * tounixspec _((char *, char *));
133char * tounixspec_ts _((char *, char *));
134char * tovmsspec _((char *, char *));
135char * tovmsspec_ts _((char *, char *));
136char * tounixpath _((char *, char *));
137char * tounixpath_ts _((char *, char *));
138char * tovmspath _((char *, char *));
139char * tovmspath_ts _((char *, char *));
140void getredirection _(());
141DIR * opendir _((char *));
142struct dirent * readdir _((DIR *));
143long telldir _((DIR *));
144void seekdir _((DIR *, long));
145void closedir _((DIR *));
146void vmsreaddirversions _((DIR *, int));
147void getredirection _((int *, char ***));
148int flex_fstat _((int, stat_t *));
149int flex_stat _((char *, stat_t *));
150int trim_unixpath _((char *, char*));
151struct sv; /* forward declaration for vms_do_aexec and do_aspawn */
152 /* real declaration is in sv.h */
153#define bool char /* This must match handy.h */
154bool vms_do_aexec _((struct sv *, struct sv **, struct sv **));
155bool vms_do_exec _((char *));
156unsigned long int do_aspawn _((struct sv *, struct sv **, struct sv **));
157unsigned long int do_spawn _((char *));
158int my_fwrite _((void *, size_t, size_t, FILE *));
159typedef char __VMS_SEPYTOTORP__; /* prototype section end marker */
160
161#ifndef VMS_DO_SOCKETS
162/***** The following four #defines are temporary, and should be removed,
163 * along with the corresponding routines in vms.c, when TCP/IP support
164 * is integrated into the VMS port of perl5. (The temporary hacks are
165 * here for now so pack can handle type N elements.)
166 * - C. Bailey 26-Aug-1994
167 *****/
168unsigned short int tmp_shortflip _((unsigned short int));
169unsigned long int tmp_longflip _((unsigned long int));
170#define htons(us) tmp_shortflip(us)
171#define ntohs(us) tmp_shortflip(us)
172#define htonl(ul) tmp_longflip(ul)
173#define ntohl(ul) tmp_longflip(ul)
174#endif
175
176#endif /* __vmsish_h_included */