libf2c/libI77/fmt.h

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