contrib/libf2c/libI77/fmt.h

   1 struct syl
   2 {       int op;
   3         int p1;
   4         union { int i[2]; char *s;} p2;
   5         };
   6 #define RET1 1
   7 #define REVERT 2
   8 #define GOTO 3
   9 #define X 4
  10 #define SLASH 5
  11 #define STACK 6
  12 #define I 7
  13 #define ED 8
  14 #define NED 9
  15 #define IM 10
  16 #define APOS 11
  17 #define H 12
  18 #define TL 13
  19 #define TR 14
  20 #define T 15
  21 #define COLON 16
  22 #define S 17
  23 #define SP 18
  24 #define SS 19
  25 #define P 20
  26 #define BN 21
  27 #define BZ 22
  28 #define F 23
  29 #define E 24
  30 #define EE 25
  31 #define D 26
  32 #define G 27
  33 #define GE 28
  34 #define L 29
  35 #define A 30
  36 #define AW 31
  37 #define O 32
  38 #define NONL 33
  39 #define OM 34
  40 #define Z 35
  41 #define ZM 36
  42 extern int f__pc,f__parenlvl,f__revloc;
  43 typedef union
  44 {       real pf;
  45         doublereal pd;
  46 } ufloat;
  47 typedef union
  48 {       short is;
  49 #ifndef KR_headers
  50         signed
  51 #endif
  52                 char ic;
  53         integer il;
  54 #ifdef Allow_TYQUAD
  55         longint ili;
  56 #endif
  57 } Uint;
  58 #ifdef KR_headers
  59 extern int (*f__doed)(),(*f__doned)();
  60 extern int (*f__dorevert)();
  61 extern int rd_ed(),rd_ned();
  62 extern int w_ed(),w_ned();
  63 #else
  64 #ifdef __cplusplus
  65 extern "C" {
  66 #endif
  67 extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*);
  68 extern int (*f__dorevert)(void);
  69 extern void fmt_bg(void);
  70 extern int pars_f(char*);
  71 extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*);
  72 extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*);
  73 extern int wrt_E(ufloat*, int, int, int, ftnlen);
  74 extern int wrt_F(ufloat*, int, int, ftnlen);
  75 extern int wrt_L(Uint*, int, ftnlen);
  76 #ifdef __cplusplus
  77         }
  78 #endif
  79 #endif
  80 extern flag f__cblank,f__cplus,f__workdone, f__nonl;
  81 extern char *f__fmtbuf;
  82 extern int f__fmtlen;
  83 extern int f__scale;
  84 #define GET(x) if((x=(*f__getn)())<0) return(x)
  85 #define VAL(x) (x!='\n'?x:' ')
  86 #define PUT(x) (*f__putn)(x)
  87 extern int f__cursor;
  88
  89 #undef TYQUAD
  90 #ifndef Allow_TYQUAD
  91 #undef longint
  92 #define longint long
  93 #else
  94 #define TYQUAD 14
  95 #endif
  96
  97 #ifdef KR_headers
  98 extern char *f__icvt();
  99 #else
 100 extern char *f__icvt(longint, int*, int*, int);
 101 #endif