|
|
#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
|
