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