Source code of Windows XP (NT5)
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
/* 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
|
