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
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
|
#ifndef DESCRIP_H_DEFINED
/*
* DESCRIP.H - V3.0-003 - Argument Descriptor Formats
* (Based on the VAX Procedure Calling and Condition Handling Standard, Revision 9.4 [13 March 1984];
* see the "Introduction to VMS System Routines" manual for further information.)
*/
/*
* Descriptor Prototype - each class of descriptor consists of at least the following fields:
*/
struct dsc_descriptor
{
unsigned short dsc_w_length; /* specific to descriptor class; typically a 16-bit (unsigned) length */
unsigned char dsc_b_dtype; /* data type code */
unsigned char dsc_b_class; /* descriptor class code */
char *dsc_a_pointer; /* address of first byte of data element */
};
/*
* Fixed-Length Descriptor:
*/
struct dsc_descriptor_s
{
unsigned short dsc_w_length; /* length of data item in bytes,
or if dsc_b_dtype is DSC_K_DTYPE_V, bits,
or if dsc_b_dtype is DSC_K_DTYPE_P, digits (4 bits each) */
unsigned char dsc_b_dtype; /* data type code */
unsigned char dsc_b_class; /* descriptor class code = DSC_K_CLASS_S */
char *dsc_a_pointer; /* address of first byte of data storage */
};
/*
* Dynamic String Descriptor:
*/
struct dsc_descriptor_d
{
unsigned short dsc_w_length; /* length of data item in bytes,
or if dsc_b_dtype is DSC_K_DTYPE_V, bits,
or if dsc_b_dtype is DSC_K_DTYPE_P, digits (4 bits each) */
unsigned char dsc_b_dtype; /* data type code */
unsigned char dsc_b_class; /* descriptor class code = DSC_K_CLASS_D */
char *dsc_a_pointer; /* address of first byte of data storage */
};
/*
* Array Descriptor:
*/
struct dsc_descriptor_a
{
unsigned short dsc_w_length; /* length of an array element in bytes,
or if dsc_b_dtype is DSC_K_DTYPE_V, bits,
or if dsc_b_dtype is DSC_K_DTYPE_P, digits (4 bits each) */
unsigned char dsc_b_dtype; /* data type code */
unsigned char dsc_b_class; /* descriptor class code = DSC_K_CLASS_A */
char *dsc_a_pointer; /* address of first actual byte of data storage */
char dsc_b_scale; /* signed power-of-two or -ten multiplier, as specified by
dsc_v_fl_binscale, to convert from internal to external form */
unsigned char dsc_b_digits; /* if nonzero, number of decimal digits in internal representation */
#ifdef vms
struct
{
unsigned : 3; /* reserved; must be zero */
unsigned dsc_v_fl_binscale : 1; /* if set, dsc_b_scale is a power-of-two, otherwise, -ten */
unsigned dsc_v_fl_redim : 1; /* if set, indicates the array can be redimensioned */
unsigned dsc_v_fl_column : 1; /* if set, indicates column-major order (FORTRAN) */
unsigned dsc_v_fl_coeff : 1; /* if set, indicates the multipliers block is present */
unsigned dsc_v_fl_bounds : 1; /* if set, indicates the bounds block is present */
} dsc_b_aflags; /* array flag bits */
#else
unsigned char dsc_b_aflags;
#endif
unsigned char dsc_b_dimct; /* number of dimensions */
unsigned long dsc_l_arsize; /* total size of array in bytes,
or if dsc_b_dtype is DSC_K_DTYPE_P, digits (4 bits each) */
/*
* One or two optional blocks of information may follow contiguously at this point;
* the first block contains information about the dimension multipliers (if present,
* dsc_b_aflags.dsc_v_fl_coeff is set), the second block contains information about
* the dimension bounds (if present, dsc_b_aflags.dsc_v_fl_bounds is set). If the
* bounds information is present, the multipliers information must also be present.
*
* The multipliers block has the following format:
* char *dsc_a_a0; Address of the element whose subscripts are all zero
* long dsc_l_m [DIMCT]; Addressing coefficients (multipliers)
*
* The bounds block has the following format:
* struct
* {
* long dsc_l_l; Lower bound
* long dsc_l_u; Upper bound
* } dsc_bounds [DIMCT];
*
* (DIMCT represents the value contained in dsc_b_dimct.)
*/
};
/*
* Procedure Descriptor:
*/
struct dsc_descriptor_p
{
unsigned short dsc_w_length; /* length associated with the function value */
unsigned char dsc_b_dtype; /* function value data type code */
unsigned char dsc_b_class; /* descriptor class code = DSC_K_CLASS_P */
int (*dsc_a_pointer)(); /* address of function entry mask */
};
/*
* Decimal String Descriptor:
*/
struct dsc_descriptor_sd
{
unsigned short dsc_w_length; /* length of data item in bytes,
or if dsc_b_dtype is DSC_K_DTYPE_V, bits,
or if dsc_b_dtype is DSC_K_DTYPE_P, digits (4 bits each) */
unsigned char dsc_b_dtype; /* data type code */
unsigned char dsc_b_class; /* descriptor class code = DSC_K_CLASS_SD */
char *dsc_a_pointer; /* address of first byte of data storage */
char dsc_b_scale; /* signed power-of-two or -ten multiplier, as specified by
dsc_v_fl_binscale, to convert from internal to external form */
unsigned char dsc_b_digits; /* if nonzero, number of decimal digits in internal representation */
struct
{
unsigned : 3; /* reserved; must be zero */
unsigned dsc_v_fl_binscale : 1; /* if set, dsc_b_scale is a power-of-two, otherwise, -ten */
unsigned : 4; /* reserved; must be zero */
} dsc_b_sflags; /* scalar flag bits */
unsigned : 8; /* reserved; must be zero */
};
/*
* Noncontiguous Array Descriptor:
*/
struct dsc_descriptor_nca
{
unsigned short dsc_w_length; /* length of an array element in bytes,
or if dsc_b_dtype is DSC_K_DTYPE_V, bits,
or if dsc_b_dtype is DSC_K_DTYPE_P, digits (4 bits each) */
unsigned char dsc_b_dtype; /* data type code */
unsigned char dsc_b_class; /* descriptor class code = DSC_K_CLASS_NCA */
char *dsc_a_pointer; /* address of first actual byte of data storage */
char dsc_b_scale; /* signed power-of-two or -ten multiplier, as specified by
dsc_v_fl_binscale, to convert from internal to external form */
unsigned char dsc_b_digits; /* if nonzero, number of decimal digits in internal representation */
struct
{
unsigned : 3; /* reserved; must be zero */
unsigned dsc_v_fl_binscale : 1; /* if set, dsc_b_scale is a power-of-two, otherwise, -ten */
unsigned dsc_v_fl_redim : 1; /* must be zero */
unsigned : 3; /* reserved; must be zero */
} dsc_b_aflags; /* array flag bits */
unsigned char dsc_b_dimct; /* number of dimensions */
unsigned long dsc_l_arsize; /* if elements are actually contiguous, total size of array in bytes,
or if dsc_b_dtype is DSC_K_DTYPE_P, digits (4 bits each) */
/*
* Two blocks of information must follow contiguously at this point; the first block
* contains information about the difference between the addresses of two adjacent
* elements in each dimension (the stride). The second block contains information
* about the dimension bounds.
*
* The strides block has the following format:
* char *dsc_a_a0; Address of the element whose subscripts are all zero
* unsigned long dsc_l_s [DIMCT]; Strides
*
* The bounds block has the following format:
* struct
* {
* long dsc_l_l; Lower bound
* long dsc_l_u; Upper bound
* } dsc_bounds [DIMCT];
*
* (DIMCT represents the value contained in dsc_b_dimct.)
*/
};
/*
* The Varying String Descriptor and Varying String Array Descriptor are used with strings
* of the following form:
*
* struct
* {
* unsigned short CURLEN; The current length of BODY in bytes
* char BODY [MAXSTRLEN]; A fixed-length area containing the string
* };
*
* where MAXSTRLEN is the value contained in the dsc_w_maxstrlen field in the descriptor.
*/
/*
* Varying String Descriptor:
*/
struct dsc_descriptor_vs
{
unsigned short dsc_w_maxstrlen; /* maximum length of the BODY field of the varying string in bytes */
unsigned char dsc_b_dtype; /* data type code = DSC_K_DTYPE_VT */
unsigned char dsc_b_class; /* descriptor class code = DSC_K_CLASS_VS */
char *dsc_a_pointer; /* address of the CURLEN field of the varying string */
};
/*
* Varying String Array Descriptor:
*/
struct dsc_descriptor_vsa
{
unsigned short dsc_w_maxstrlen; /* maximum length of the BODY field of an array element in bytes */
unsigned char dsc_b_dtype; /* data type code = DSC_K_DTYPE_VT */
unsigned char dsc_b_class; /* descriptor class code = DSC_K_CLASS_VSA */
char *dsc_a_pointer; /* address of first actual byte of data storage */
char dsc_b_scale; /* signed power-of-two or -ten multiplier, as specified by
dsc_v_fl_binscale, to convert from internal to external form */
unsigned char dsc_b_digits; /* if nonzero, number of decimal digits in internal representation */
struct
{
unsigned : 3; /* reserved; must be zero */
unsigned dsc_v_fl_binscale : 1; /* if set, dsc_b_scale is a power-of-two, otherwise, -ten */
unsigned dsc_v_fl_redim : 1; /* must be zero */
unsigned : 3; /* reserved; must be zero */
} dsc_b_aflags; /* array flag bits */
unsigned char dsc_b_dimct; /* number of dimensions */
unsigned long dsc_l_arsize; /* if elements are actually contiguous, total size of array in bytes */
/*
* Two blocks of information must follow contiguously at this point; the first block
* contains information about the difference between the addresses of two adjacent
* elements in each dimension (the stride). The second block contains information
* about the dimension bounds.
*
* The strides block has the following format:
* char *dsc_a_a0; Address of the element whose subscripts are all zero
* unsigned long dsc_l_s [DIMCT]; Strides
*
* The bounds block has the following format:
* struct
* {
* long dsc_l_l; Lower bound
* long dsc_l_u; Upper bound
* } dsc_bounds [DIMCT];
*
* (DIMCT represents the value contained in dsc_b_dimct.)
*/
};
/*
* Unaligned Bit String Descriptor:
*/
struct dsc_descriptor_ubs
{
unsigned short dsc_w_length; /* length of data item in bits */
unsigned char dsc_b_dtype; /* data type code = DSC_K_DTYPE_VU */
unsigned char dsc_b_class; /* descriptor class code = DSC_K_CLASS_UBS */
char *dsc_a_base; /* address to which dsc_l_pos is relative */
long dsc_l_pos; /* bit position relative to dsc_a_base of first bit in string */
};
/*
* Unaligned Bit Array Descriptor:
*/
struct dsc_descriptor_uba
{
unsigned short dsc_w_length; /* length of data item in bits */
unsigned char dsc_b_dtype; /* data type code = DSC_K_DTYPE_VU */
unsigned char dsc_b_class; /* descriptor class code = DSC_K_CLASS_UBA */
char *dsc_a_base; /* address to which effective bit offset is relative */
char dsc_b_scale; /* reserved; must be zero */
unsigned char dsc_b_digits; /* reserved; must be zero */
struct
{
unsigned : 3; /* reserved; must be zero */
unsigned dsc_v_fl_binscale : 1; /* must be zero */
unsigned dsc_v_fl_redim : 1; /* must be zero */
unsigned : 3; /* reserved; must be zero */
} dsc_b_aflags; /* array flag bits */
unsigned char dsc_b_dimct; /* number of dimensions */
unsigned long dsc_l_arsize; /* total size of array in bits */
/*
* Three blocks of information must follow contiguously at this point; the first block
* contains information about the difference between the bit addresses of two adjacent
* elements in each dimension (the stride). The second block contains information
* about the dimension bounds. The third block is the relative bit position with
* respect to dsc_a_base of the first actual bit of the array.
*
* The strides block has the following format:
* long dsc_l_v0; Bit offset of the element whose subscripts are all zero,
* with respect to dsc_a_base
* unsigned long dsc_l_s [DIMCT]; Strides
*
* The bounds block has the following format:
* struct
* {
* long dsc_l_l; Lower bound
* long dsc_l_u; Upper bound
* } dsc_bounds [DIMCT];
*
* The last block has the following format:
* long dsc_l_pos;
*
* (DIMCT represents the value contained in dsc_b_dimct.)
*/
};
/*
* String with Bounds Descriptor:
*/
struct dsc_descriptor_sb
{
unsigned short dsc_w_length; /* length of string in bytes */
unsigned char dsc_b_dtype; /* data type code = DSC_K_DTYPE_T */
unsigned char dsc_b_class; /* descriptor class code = DSC_K_CLASS_SB */
char *dsc_a_pointer; /* address of first byte of data storage */
long dsc_l_sb_l1; /* lower bound */
long dsc_l_sb_u1; /* upper bound */
};
/*
* Unaligned Bit String with Bounds Descriptor:
*/
struct dsc_descriptor_ubsb
{
unsigned short dsc_w_length; /* length of data item in bits */
unsigned char dsc_b_dtype; /* data type code = DSC_K_DTYPE_VU */
unsigned char dsc_b_class; /* descriptor class code = DSC_K_CLASS_UBSB */
char *dsc_a_base; /* address to which dsc_l_pos is relative */
long dsc_l_pos; /* bit position relative to dsc_a_base of first bit in string */
long dsc_l_ubsb_l1; /* lower bound */
long dsc_l_ubsb_u1; /* upper bound */
};
/*
* Codes for dsc_b_dtype:
*/
/*
* Atomic data types:
*/
#define DSC_K_DTYPE_Z 0 /* unspecified */
#define DSC_K_DTYPE_BU 2 /* byte (unsigned); 8-bit unsigned quantity */
#define DSC_K_DTYPE_WU 3 /* word (unsigned); 16-bit unsigned quantity */
#define DSC_K_DTYPE_LU 4 /* longword (unsigned); 32-bit unsigned quantity */
#define DSC_K_DTYPE_QU 5 /* quadword (unsigned); 64-bit unsigned quantity */
#define DSC_K_DTYPE_OU 25 /* octaword (unsigned); 128-bit unsigned quantity */
#define DSC_K_DTYPE_B 6 /* byte integer (signed); 8-bit signed 2's-complement integer */
#define DSC_K_DTYPE_W 7 /* word integer (signed); 16-bit signed 2's-complement integer */
#define DSC_K_DTYPE_L 8 /* longword integer (signed); 32-bit signed 2's-complement integer */
#define DSC_K_DTYPE_Q 9 /* quadword integer (signed); 64-bit signed 2's-complement integer */
#define DSC_K_DTYPE_O 26 /* octaword integer (signed); 128-bit signed 2's-complement integer */
#define DSC_K_DTYPE_F 10 /* F_floating; 32-bit single-precision floating point */
#define DSC_K_DTYPE_D 11 /* D_floating; 64-bit double-precision floating point */
#define DSC_K_DTYPE_G 27 /* G_floating; 64-bit double-precision floating point */
#define DSC_K_DTYPE_H 28 /* H_floating; 128-bit quadruple-precision floating point */
#define DSC_K_DTYPE_FC 12 /* F_floating complex */
#define DSC_K_DTYPE_DC 13 /* D_floating complex */
#define DSC_K_DTYPE_GC 29 /* G_floating complex */
#define DSC_K_DTYPE_HC 30 /* H_floating complex */
#define DSC_K_DTYPE_CIT 31 /* COBOL Intermediate Temporary */
/*
* String data types:
*/
#define DSC_K_DTYPE_T 14 /* character string; a single 8-bit character or a sequence of characters */
#define DSC_K_DTYPE_VT 37 /* varying character string; 16-bit count, followed by a string */
#define DSC_K_DTYPE_NU 15 /* numeric string, unsigned */
#define DSC_K_DTYPE_NL 16 /* numeric string, left separate sign */
#define DSC_K_DTYPE_NLO 17 /* numeric string, left overpunched sign */
#define DSC_K_DTYPE_NR 18 /* numeric string, right separate sign */
#define DSC_K_DTYPE_NRO 19 /* numeric string, right overpunched sign */
#define DSC_K_DTYPE_NZ 20 /* numeric string, zoned sign */
#define DSC_K_DTYPE_P 21 /* packed decimal string */
#define DSC_K_DTYPE_V 1 /* aligned bit string */
#define DSC_K_DTYPE_VU 34 /* unaligned bit string */
/*
* Miscellaneous data types:
*/
#define DSC_K_DTYPE_ZI 22 /* sequence of instructions */
#define DSC_K_DTYPE_ZEM 23 /* procedure entry mask */
#define DSC_K_DTYPE_DSC 24 /* descriptor */
#define DSC_K_DTYPE_BPV 32 /* bound procedure value */
#define DSC_K_DTYPE_BLV 33 /* bound label value */
#define DSC_K_DTYPE_ADT 35 /* absolute date and time */
/*
* Reserved data type codes:
* codes 38-191 are reserved to DIGITAL;
* codes 160-191 are reserved to DIGITAL facilities for facility-specific purposes;
* codes 192-255 are reserved for DIGITAL's Computer Special Systems Group
* and for customers for their own use.
*/
/*
* Codes for dsc_b_class:
*/
#define DSC_K_CLASS_S 1 /* fixed-length descriptor */
#define DSC_K_CLASS_D 2 /* dynamic string descriptor */
/* DSC_K_CLASS_V ** variable buffer descriptor; reserved for use by DIGITAL */
#define DSC_K_CLASS_A 4 /* array descriptor */
#define DSC_K_CLASS_P 5 /* procedure descriptor */
/* DSC_K_CLASS_PI ** procedure incarnation descriptor; obsolete */
/* DSC_K_CLASS_J ** label descriptor; reserved for use by the VMS Debugger */
/* DSC_K_CLASS_JI ** label incarnation descriptor; obsolete */
#define DSC_K_CLASS_SD 9 /* decimal string descriptor */
#define DSC_K_CLASS_NCA 10 /* noncontiguous array descriptor */
#define DSC_K_CLASS_VS 11 /* varying string descriptor */
#define DSC_K_CLASS_VSA 12 /* varying string array descriptor */
#define DSC_K_CLASS_UBS 13 /* unaligned bit string descriptor */
#define DSC_K_CLASS_UBA 14 /* unaligned bit array descriptor */
#define DSC_K_CLASS_SB 15 /* string with bounds descriptor */
#define DSC_K_CLASS_UBSB 16 /* unaligned bit string with bounds descriptor */
/*
* Reserved descriptor class codes:
* codes 15-191 are reserved to DIGITAL;
* codes 160-191 are reserved to DIGITAL facilities for facility-specific purposes;
* codes 192-255 are reserved for DIGITAL's Computer Special Systems Group
* and for customers for their own use.
*/
/*
* A simple macro to construct a string descriptor:
*/
#define DESCRIPTOR(name,string) struct dsc_descriptor_s name = { sizeof(string)-1, DSC_K_DTYPE_T, DSC_K_CLASS_S, string }
#define DSC_DESCRIPTOR(name,string) struct dsc_descriptor_s name = { sizeof(string)-1, DSC_K_DTYPE_T, DSC_K_CLASS_S, string }
#define DESCRIP_H_DEFINED
#endif
|
