21
21
#include <descrip.h>
23
23
#ifndef __STARLET_LOADED
24
/* Workaround for broken header files of older DECC distributions
25
* that are incompatible with the /NAMES=AS_IS qualifier. */
26
#define sys$assign SYS$ASSIGN
27
#define sys$bintim SYS$BINTIM
28
#define sys$close SYS$CLOSE
29
#define sys$connect SYS$CONNECT
30
#define sys$create SYS$CREATE
31
#define sys$dassgn SYS$DASSGN
32
#define sys$extend SYS$EXTEND
33
#define sys$getjpiw SYS$GETJPIW
34
#define sys$numtim SYS$NUMTIM
35
#define sys$open SYS$OPEN
36
#define sys$parse SYS$PARSE
37
#define sys$put SYS$PUT
38
#define sys$qio SYS$QIO
39
#define sys$qiow SYS$QIOW
40
#define sys$read SYS$READ
41
#define sys$rewind SYS$REWIND
42
#define sys$search SYS$SEARCH
43
#define sys$setdfprot SYS$SETDFPROT
44
#define sys$synch SYS$SYNCH
45
#define sys$wait SYS$WAIT
46
#define sys$write SYS$WRITE
24
47
#include <starlet.h>
48
#endif /* ndef __STARLET_LOADED */
26
49
#ifndef __SYIDEF_LOADED
27
50
#include <syidef.h>
60
83
# define FIB$W_FID fib$w_fid
61
84
# define FIB$L_ACCTL fib$l_acctl
62
85
# define FIB$W_EXCTL fib$w_exctl
86
# define FIB$W_NMCTL fib$w_nmctl
64
88
# define FIB$W_DID fib$r_did_overlay.fib$w_did
65
89
# define FIB$W_FID fib$r_fid_overlay.fib$w_fid
66
90
# define FIB$L_ACCTL fib$r_acctl_overlay.fib$l_acctl
67
91
# define FIB$W_EXCTL fib$r_exctl_overlay.fib$w_exctl
92
# define FIB$W_NMCTL fib$r_nmctl_overlay.fib$w_nmctl
69
94
#undef variant_union
97
/* 2005-02-10 SMS. Copied NAM[L] macros here from Zip. */
99
/* Define macros for use with either NAM or NAML. */
101
#ifdef NAML$C_MAXRSS /* NAML is available (ODS5 support...) */
103
# ifndef NAM_MAXRSS /* May have been defined before. */
104
# define NAM_MAXRSS NAML$C_MAXRSS
107
# define NAM_STRUCT NAML
109
# define FAB_OR_NAML(fab, nam) (nam)
110
# define FAB_OR_NAML_DNA naml$l_long_defname
111
# define FAB_OR_NAML_DNS naml$l_long_defname_size
112
# define FAB_OR_NAML_FNA naml$l_long_filename
113
# define FAB_OR_NAML_FNS naml$l_long_filename_size
115
# define CC_RMS_NAM cc$rms_naml
116
# define FAB_NAM fab$l_naml
118
# define NAM_ESA naml$l_long_expand
119
# define NAM_ESL naml$l_long_expand_size
120
# define NAM_ESS naml$l_long_expand_alloc
121
# define NAM_RSA naml$l_long_result
122
# define NAM_RSL naml$l_long_result_size
123
# define NAM_RSS naml$l_long_result_alloc
124
# define NAM_DID naml$w_did
125
# define NAM_DVI naml$t_dvi
126
# define NAM_FID naml$w_fid
127
# define NAM_FNB naml$l_fnb
128
# define NAM_NOP naml$b_nop
129
# define NAM_M_SYNCHK NAML$M_SYNCHK
130
# define NAM_B_DEV naml$l_long_dev_size
131
# define NAM_L_DEV naml$l_long_dev
132
# define NAM_B_DIR naml$l_long_dir_size
133
# define NAM_L_DIR naml$l_long_dir
134
# define NAM_B_NAME naml$l_long_name_size
135
# define NAM_L_NAME naml$l_long_name
136
# define NAM_B_TYPE naml$l_long_type_size
137
# define NAM_L_TYPE naml$l_long_type
138
# define NAM_B_VER naml$l_long_ver_size
139
# define NAM_L_VER naml$l_long_ver
141
#else /* !NAML$C_MAXRSS */ /* NAML is not available. Use NAM. */
143
# ifndef NAM_MAXRSS /* May have been defined before. */
144
# define NAM_MAXRSS NAM$C_MAXRSS
147
# define NAM_STRUCT NAM
149
# define FAB_OR_NAML(fab, nam) (fab)
150
# define FAB_OR_NAML_DNA fab$l_dna
151
# define FAB_OR_NAML_DNS fab$b_dns
152
# define FAB_OR_NAML_FNA fab$l_fna
153
# define FAB_OR_NAML_FNS fab$b_fns
155
# define CC_RMS_NAM cc$rms_nam
156
# define FAB_NAM fab$l_nam
157
# define NAM_ESA nam$l_esa
158
# define NAM_ESL nam$b_esl
159
# define NAM_ESS nam$b_ess
160
# define NAM_RSA nam$l_rsa
161
# define NAM_RSL nam$b_rsl
162
# define NAM_RSS nam$b_rss
163
# define NAM_DID nam$w_did
164
# define NAM_DVI nam$t_dvi
165
# define NAM_FID nam$w_fid
166
# define NAM_FNB nam$l_fnb
167
# define NAM_NOP nam$b_nop
168
# define NAM_M_SYNCHK NAM$M_SYNCHK
169
# define NAM_B_DEV nam$b_dev
170
# define NAM_L_DEV nam$l_dev
171
# define NAM_B_DIR nam$b_dir
172
# define NAM_L_DIR nam$l_dir
173
# define NAM_B_NAME nam$b_name
174
# define NAM_L_NAME nam$l_name
175
# define NAM_B_TYPE nam$b_type
176
# define NAM_L_TYPE nam$l_type
177
# define NAM_B_VER nam$b_ver
178
# define NAM_L_VER nam$l_ver
180
#endif /* ?NAML$C_MAXRSS */
72
183
struct EB_header /* Common header of extra block */