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