able/windows-nt
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
windows-nt/Source/XPSP1/NT/com/rpc/ndr20/cvtpvt.h

248 lines
6.4 KiB
C
Raw Normal View History

Add source files
2020-09-26 03:20:57 -05:00
/* file: cvt__private.h */
/*
**
** COPYRIGHT (c) 1989, 1990 BY
** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS.
** ALL RIGHTS RESERVED.
**
** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
** TRANSFERRED.
**
** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
** CORPORATION.
**
** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
**
*/
/*
**++
** Facility:
**
** CVT Run-Time Library
**
** Abstract:
**
** This module contains the private include file for the cvt_* routines.
**
** Authors:
**
** Math RTL
**
** Creation Date: December 5, 1989.
**
** Modification History:
**
** 1-001 Original created. MRTL 5-Dec-1989.
** 1-002 Add GEM FORTRAN stuff. TS 27-Mar-1990.
**
**--
*/
#ifndef CVT__PRIVATE
#define CVT__PRIVATE
#define F77_BINDING
#ifndef VMS
#define VMS_BINDING
#endif
#include "descrip.h"
#define C_TAB '\t'
#define C_BLANK ' '
#define C_PLUS '+'
#define C_MINUS '-'
#define C_ASTERISK '*'
#define C_UNDERSCORE '_'
#define C_DECIMAL_POINT '.'
#define C_DOT '.'
#define C_ZERO '0'
#define C_ONE '1'
#define C_TWO '2'
#define C_THREE '3'
#define C_FOUR '4'
#define C_FIVE '5'
#define C_SIX '6'
#define C_SEVEN '7'
#define C_EIGHT '8'
#define C_NINE '9'
#define C_A 'A'
#define C_B 'B'
#define C_C 'C'
#define C_D 'D'
#define C_E 'E'
#define C_F 'F'
#define C_L 'L'
#define C_R 'R'
#define C_S 'S'
#define C_T 'T'
#define C_U 'U'
#define C_W 'W'
#define C_a 'a'
#define C_b 'b'
#define C_c 'c'
#define C_d 'd'
#define C_e 'e'
#define C_f 'f'
#define C_t 't'
#define RAISE(i) \
{ \
RpcRaiseException(i); \
}
/*
UNPACKED REAL:
[0]: excess 2147483648 (2 ^ 31) binary exponent
[1]: mantissa: msb ------>
[2]: -------------------->
[3]: -------------------->
[4]: ----------------> lsb
[5]: 28 unused bits, invalid bit, infinity bit, zero bit, negative bit
All fraction bits are explicit and are normalized s.t. 0.5 <= fraction < 1.0
*/
typedef struct dsc_descriptor_s DESC_S;
typedef unsigned long UNPACKED_REAL[6];
typedef UNPACKED_REAL *UNPACKED_REAL_PTR;
#define U_R_EXP 0
#define U_R_FLAGS 5
#define U_R_NEGATIVE 1
#define U_R_ZERO 2
#define U_R_INFINITY 4
#define U_R_INVALID 8
#define U_R_UNUSUAL (U_R_ZERO | U_R_INFINITY | U_R_INVALID)
#define U_R_BIAS 2147483648L
extern unsigned long vax_c[];
#define VAX_F_INVALID &vax_c[0]
#define VAX_D_INVALID &vax_c[0]
#define VAX_G_INVALID &vax_c[0]
#define VAX_H_INVALID &vax_c[0]
#define VAX_F_ZERO &vax_c[4]
#define VAX_D_ZERO &vax_c[4]
#define VAX_G_ZERO &vax_c[4]
#define VAX_H_ZERO &vax_c[4]
#define VAX_F_POS_HUGE &vax_c[8]
#define VAX_D_POS_HUGE &vax_c[8]
#define VAX_G_POS_HUGE &vax_c[8]
#define VAX_H_POS_HUGE &vax_c[8]
#define VAX_F_NEG_HUGE &vax_c[12]
#define VAX_D_NEG_HUGE &vax_c[12]
#define VAX_G_NEG_HUGE &vax_c[12]
#define VAX_H_NEG_HUGE &vax_c[12]
extern unsigned long ieee_s[];
#define IEEE_S_INVALID ((options & CVT_C_BIG_ENDIAN) ? \
&ieee_s[1] : &ieee_s[0])
#define IEEE_S_POS_ZERO ((options & CVT_C_BIG_ENDIAN) ? \
&ieee_s[3] : &ieee_s[2])
#define IEEE_S_NEG_ZERO ((options & CVT_C_BIG_ENDIAN) ? \
&ieee_s[5] : &ieee_s[4])
#define IEEE_S_POS_HUGE ((options & CVT_C_BIG_ENDIAN) ? \
&ieee_s[7] : &ieee_s[6])
#define IEEE_S_NEG_HUGE ((options & CVT_C_BIG_ENDIAN) ? \
&ieee_s[9] : &ieee_s[8])
#define IEEE_S_POS_INFINITY ((options & CVT_C_BIG_ENDIAN) ? \
&ieee_s[11] : &ieee_s[10])
#define IEEE_S_NEG_INFINITY ((options & CVT_C_BIG_ENDIAN) ? \
&ieee_s[13] : &ieee_s[12])
extern unsigned long ieee_t[];
#define IEEE_T_INVALID ((options & CVT_C_BIG_ENDIAN) ? \
&ieee_t[2] : &ieee_t[0])
#define IEEE_T_POS_ZERO ((options & CVT_C_BIG_ENDIAN) ? \
&ieee_t[6] : &ieee_t[4])
#define IEEE_T_NEG_ZERO ((options & CVT_C_BIG_ENDIAN) ? \
&ieee_t[10] : &ieee_t[8])
#define IEEE_T_POS_HUGE ((options & CVT_C_BIG_ENDIAN) ? \
&ieee_t[14] : &ieee_t[12])
#define IEEE_T_NEG_HUGE ((options & CVT_C_BIG_ENDIAN) ? \
&ieee_t[18] : &ieee_t[16])
#define IEEE_T_POS_INFINITY ((options & CVT_C_BIG_ENDIAN) ? \
&ieee_t[22] : &ieee_t[20])
#define IEEE_T_NEG_INFINITY ((options & CVT_C_BIG_ENDIAN) ? \
&ieee_t[26] : &ieee_t[24])
extern unsigned long ibm_s[];
#define IBM_S_INVALID &ibm_s[0]
#define IBM_S_POS_ZERO &ibm_s[1]
#define IBM_S_NEG_ZERO &ibm_s[2]
#define IBM_S_POS_HUGE &ibm_s[3]
#define IBM_S_NEG_HUGE &ibm_s[4]
#define IBM_S_POS_INFINITY &ibm_s[5]
#define IBM_S_NEG_INFINITY &ibm_s[6]
extern unsigned long ibm_l[];
#define IBM_L_INVALID &ibm_l[0]
#define IBM_L_POS_ZERO &ibm_l[2]
#define IBM_L_NEG_ZERO &ibm_l[4]
#define IBM_L_POS_HUGE &ibm_l[6]
#define IBM_L_NEG_HUGE &ibm_l[8]
#define IBM_L_POS_INFINITY &ibm_l[10]
#define IBM_L_NEG_INFINITY &ibm_l[12]
extern unsigned long cray[];
#define CRAY_INVALID &cray[0]
#define CRAY_POS_ZERO &cray[2]
#define CRAY_NEG_ZERO &cray[4]
#define CRAY_POS_HUGE &cray[6]
#define CRAY_NEG_HUGE &cray[8]
#define CRAY_POS_INFINITY &cray[10]
#define CRAY_NEG_INFINITY &cray[12]
extern unsigned long int_c[];
#define INT_INVALID ((options & CVT_C_BIG_ENDIAN) ? \
&int_c[1] : &int_c[0])
#define INT_ZERO ((options & CVT_C_BIG_ENDIAN) ? \
&int_c[3] : &int_c[2])
#define INT_POS_HUGE ((options & CVT_C_BIG_ENDIAN) ? \
&int_c[5] : &int_c[4])
#define INT_NEG_HUGE ((options & CVT_C_BIG_ENDIAN) ? \
&int_c[7] : &int_c[6])
#define INT_POS_INFINITY ((options & CVT_C_BIG_ENDIAN) ? \
&int_c[9] : &int_c[8])
#define INT_NEG_INFINITY ((options & CVT_C_BIG_ENDIAN) ? \
&int_c[11] : &int_c[10])
#endif
Reference in a new issue Copy permalink