Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
fmt.h
Go to the documentation of this file.00001 struct syl
00002 { int op,p1,p2,p3;
00003 };
00004 #define RET1 1
00005 #define REVERT 2
00006 #define GOTO 3
00007 #define X 4
00008 #define SLASH 5
00009 #define STACK 6
00010 #define I 7
00011 #define ED 8
00012 #define NED 9
00013 #define IM 10
00014 #define APOS 11
00015 #define H 12
00016 #define TL 13
00017 #define TR 14
00018 #define T 15
00019 #define COLON 16
00020 #define S 17
00021 #define SP 18
00022 #define SS 19
00023 #define P 20
00024 #define BN 21
00025 #define BZ 22
00026 #define F 23
00027 #define E 24
00028 #define EE 25
00029 #define D 26
00030 #define G 27
00031 #define GE 28
00032 #define L 29
00033 #define A 30
00034 #define AW 31
00035 #define O 32
00036 #define NONL 33
00037 #define OM 34
00038 #define Z 35
00039 #define ZM 36
00040 extern struct syl f__syl[];
00041 extern int f__pc,f__parenlvl,f__revloc;
00042 typedef union
00043 { real pf;
00044 doublereal pd;
00045 } ufloat;
00046 typedef union
00047 { short is;
00048 #ifndef KR_headers
00049 signed
00050 #endif
00051 char ic;
00052 integer il;
00053 #ifdef Allow_TYQUAD
00054 longint ili;
00055 #endif
00056 } Uint;
00057 #ifdef KR_headers
00058 extern int (*f__doed)(),(*f__doned)();
00059 extern int (*f__dorevert)();
00060 extern int rd_ed(),rd_ned();
00061 extern int w_ed(),w_ned();
00062 #else
00063 #ifdef __cplusplus
00064 extern "C" {
00065 #endif
00066 extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*);
00067 extern int (*f__dorevert)(void);
00068 extern void fmt_bg(void);
00069 extern int pars_f(char*);
00070 extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*);
00071 extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*);
00072 extern int wrt_E(ufloat*, int, int, int, ftnlen);
00073 extern int wrt_F(ufloat*, int, int, ftnlen);
00074 extern int wrt_L(Uint*, int, ftnlen);
00075 #ifdef __cplusplus
00076 }
00077 #endif
00078 #endif
00079 extern flag f__cblank,f__cplus,f__workdone, f__nonl;
00080 extern char *f__fmtbuf;
00081 extern int f__scale;
00082 #define GET(x) if((x=(*f__getn)())<0) return(x)
00083 #define VAL(x) (x!='\n'?x:' ')
00084 #define PUT(x) (*f__putn)(x)
00085 extern int f__cursor;
00086
00087 #undef TYQUAD
00088 #ifndef Allow_TYQUAD
00089 #undef longint
00090 #define longint long
00091 #else
00092 #define TYQUAD 14
00093 #endif
00094
00095 #ifdef KR_headers
00096 extern char *f__icvt();
00097 #else
00098 extern char *f__icvt(longint, int*, int*, int);
00099 #endif
