text: /* 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 const 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 const 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 const 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 const 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 const 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 const 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 const 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
  