w32tex
About: TeX Live provides a comprehensive TeX system including all the major TeX-related programs, macro packages, and fonts that are free software. Windows sources.
  Fossies Dox: w32tex-src.tar.xz  ("unofficial" and yet experimental doxygen-generated source code documentation)  

fmt.h
Go to the documentation of this file.
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
43 typedef union
44 { real pf;
46 } ufloat;
47 typedef union
48 { short is;
49 #ifndef KR_headers
50  signed
51 #endif
52  char ic;
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 extern int signbit_f2c();
64 #else
65 #ifdef __cplusplus
66 extern "C" {
67 #define Cextern extern "C"
68 #else
69 #define Cextern extern
70 #endif
71 extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*);
72 extern int (*f__dorevert)(void);
73 extern void fmt_bg(void);
74 extern int pars_f(char*);
75 extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*);
76 extern int signbit_f2c(double*);
77 extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*);
78 extern int wrt_E(ufloat*, int, int, int, ftnlen);
79 extern int wrt_F(ufloat*, int, int, ftnlen);
80 extern int wrt_L(Uint*, int, ftnlen);
81 #ifdef __cplusplus
82  }
83 #endif
84 #endif
86 extern char *f__fmtbuf;
87 extern int f__scale;
88 #define GET(x) if((x=(*f__getn)())<0) return(x)
89 #define VAL(x) (x!='\n'?x:' ')
90 #define PUT(x) (*f__putn)(x)
91 
92 #undef TYQUAD
93 #ifndef Allow_TYQUAD
94 #undef longint
95 #define longint long
96 #else
97 #define TYQUAD 14
98 #endif
99 
100 #ifdef KR_headers
101 extern char *f__icvt();
102 #else
103 Cextern char *f__icvt(longint, int*, int*, int);
104 #endif
double real
Definition: dvips.h:66
double doublereal
Definition: f2c.h:15
long int ftnlen
Definition: f2c.h:54
long int flag
Definition: f2c.h:53
flag f__cplus
Definition: fmt.h:85
flag f__cblank
Definition: err.c:23
void fmt_bg(void)
Definition: fmt.c:518
#define Cextern
Definition: fmt.h:69
int pars_f(char *)
Definition: fmt.c:368
int(* f__dorevert)(void)
Definition: err.c:35
int signbit_f2c(double *)
Definition: signbit.c:11
int f__scale
Definition: err.c:43
int wrt_L(Uint *, int, ftnlen)
Definition: wrtfmt.c:228
int rd_ed(struct syl *, char *, ftnlen)
int w_ned(struct syl *)
Definition: wrtfmt.c:350
int f__pc
Definition: fmt.c:24
int wrt_E(ufloat *, int, int, int, ftnlen)
Definition: wref.c:25
char * f__fmtbuf
Definition: err.c:24
int f__parenlvl
Definition: fmt.h:42
int(* f__doed)(struct syl *, char *, ftnlen)
Definition: err.c:34
int(*)(*) f__doned(struct syl *)
Definition: fmt.h:71
int wrt_F(ufloat *, int, int, ftnlen)
Definition: wref.c:207
char * f__icvt(long, int *, int *, int)
Definition: fmtlib.c:19
int f__revloc
Definition: fmt.h:42
flag f__nonl
Definition: fmt.h:85
flag f__workdone
Definition: fmt.h:85
int w_ed(struct syl *, char *, ftnlen)
int rd_ned(struct syl *)
Definition: rdfmt.c:526
static void
Definition: fpif.c:118
int64_t longint
Definition: obcommon.h:61
int integer
Definition: pbmtopk.c:38
Definition: fmt.h:2
int p1
Definition: fmt.h:3
int op
Definition: fmt.h:2
int i[2]
Definition: fmt.h:4
union syl::@301 p2
char * s
Definition: fmt.h:4
return() int(((double) *(font_tbl[cur_fnt].wtbl+(int)(*(font_tbl[cur_fnt].char_wi+(int)(ch - font_tbl[cur_fnt].char_f)% 256)))/(double)(1L<< 20)) *(double) font_tbl[cur_fnt].scale)
Definition: fmt.h:48
short is
Definition: fmt.h:48
integer il
Definition: fmt.h:53
signed char ic
Definition: fmt.h:52
Definition: fmt.h:44
real pf
Definition: fmt.h:44
doublereal pd
Definition: fmt.h:45