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)  

primtab0.c
Go to the documentation of this file.
1 /* Generated by oblink */
2 
3 #include "primtab.h"
4 #include <stdio.h>
5 #ifdef HAVE_UNISTD_H
6 #include <unistd.h>
7 #endif
8 
10 
12  value *sp = bp;
13  FPINIT;
14  res_V(xmain_exit(arg_I(0)));
15  return sp;
16 }
17 
18 value *NEW(value *bp);
19 
21 
23 
25 
27  value *sp = bp;
28  FPINIT;
29  res_C(toupper(arg_C(0)));
30  return sp;
31 }
32 
33 value *COPY(value *bp);
34 
36 
38 
40 
42 
44 
46  value *sp = bp;
47  FPINIT;
48  res_V(load_lib(arg_X(0)));
49  return sp;
50 }
51 
53 
55 
57  value *sp = bp;
58  FPINIT;
59  res_V(gc_debug(arg_X(0)));
60  return sp;
61 }
62 
63 type_I gc_heap_size(void);
64 
66  value *sp = bp;
67  FPINIT;
69  return sp;
70 }
71 
73  value *sp = bp;
74  FPINIT;
75  res_Q(fopen(arg_X(0), arg_X(2)));
76  return sp;
77 }
78 
80  value *sp = bp;
81  FPINIT;
82  res_Q(fdopen(arg_I(0), arg_X(1)));
83  return sp;
84 }
85 
87  value *sp = bp;
88  FPINIT;
89  res_V(fclose(arg_Q(0)));
90  return sp;
91 }
92 
94  value *sp = bp;
95  FPINIT;
96  res_V(fflush(arg_Q(0)));
97  return sp;
98 }
99 
101 
103  value *sp = bp;
104  FPINIT;
105  res_I(obgetc(arg_Q(0)));
106  return sp;
107 }
108 
110  value *sp = bp;
111  FPINIT;
112  res_V(ungetc(arg_C(0), arg_Q(1)));
113  return sp;
114 }
115 
117  value *sp = bp;
118  FPINIT;
119  res_V(fputc(arg_C(0), arg_Q(1)));
120  return sp;
121 }
122 
124  value *sp = bp;
125  FPINIT;
126  res_V(fseek(arg_Q(0), arg_I(2), arg_I(3)));
127  return sp;
128 }
129 
131  value *sp = bp;
132  FPINIT;
133  res_I(ftell(arg_Q(0)));
134  return sp;
135 }
136 
138  value *sp = bp;
139  FPINIT;
140  res_I(fread(arg_X(0), arg_I(2), arg_I(3), arg_Q(4)));
141  return sp;
142 }
143 
145  value *sp = bp;
146  FPINIT;
147  res_V(fwrite(arg_X(0), arg_I(2), arg_I(3), arg_Q(4)));
148  return sp;
149 }
150 
152 
154  value *sp = bp;
155  FPINIT;
156  res_V(FmtInt(arg_Q(0), arg_I(2), arg_I(3)));
157  return sp;
158 }
159 
161 
163  value *sp = bp;
164  FPINIT;
165  res_V(FmtLong(arg_Q(0), arg_L(2), arg_I(4)));
166  return sp;
167 }
168 
170 
172  value *sp = bp;
173  FPINIT;
174  res_V(FmtReal(arg_Q(0), arg_F(2)));
175  return sp;
176 }
177 
179 
181  value *sp = bp;
182  FPINIT;
183  res_V(FmtLongReal(arg_Q(0), arg_D(2)));
184  return sp;
185 }
186 
188 
190  value *sp = bp;
191  FPINIT;
192  res_V(FmtFixed(arg_Q(0), arg_D(2), arg_I(4), arg_I(5)));
193  return sp;
194 }
195 
197 
199  value *sp = bp;
200  FPINIT;
201  res_V(FmtString(arg_Q(0), arg_X(2), arg_I(4)));
202  return sp;
203 }
204 
206 
208  value *sp = bp;
209  FPINIT;
210  res_V(InitFiles(arg_P(0), arg_P(1), arg_P(2)));
211  return sp;
212 }
213 
214 value *GetArg(value *bp);
215 
216 value *GetEnv(value *bp);
217 
218 type_I GetArgc(void);
219 
221  value *sp = bp;
222  FPINIT;
223  res_I(GetArgc());
224  return sp;
225 }
226 
228  value *sp = bp;
229  FPINIT;
230  res_I(unlink(arg_X(0)));
231  return sp;
232 }
233 
234 #ifndef DYNLINK
235 struct primdef primtab[] = {
236  { "P_xmain_exit", P_xmain_exit },
237  { "NEW", NEW },
238  { "NEWFLEX", NEWFLEX },
239  { "COMPARE", COMPARE },
240  { "P_toupper", P_toupper },
241  { "COPY", COPY },
242  { "FLEXASSIGN", FLEXASSIGN },
243  { "EASSERT", EASSERT },
244  { "sys_move", sys_move },
245  { "sys_liberror", sys_liberror },
246  { "P_load_lib", P_load_lib },
247  { "gc_collect", gc_collect },
248  { "P_gc_debug", P_gc_debug },
249  { "P_gc_heap_size", P_gc_heap_size },
250  { "P_fopen", P_fopen },
251  { "P_fdopen", P_fdopen },
252  { "P_fclose", P_fclose },
253  { "P_fflush", P_fflush },
254  { "P_obgetc", P_obgetc },
255  { "P_ungetc", P_ungetc },
256  { "P_fputc", P_fputc },
257  { "P_fseek", P_fseek },
258  { "P_ftell", P_ftell },
259  { "P_fread", P_fread },
260  { "P_fwrite", P_fwrite },
261  { "P_FmtInt", P_FmtInt },
262  { "P_FmtLong", P_FmtLong },
263  { "P_FmtReal", P_FmtReal },
264  { "P_FmtLongReal", P_FmtLongReal },
265  { "P_FmtFixed", P_FmtFixed },
266  { "P_FmtString", P_FmtString },
267  { "P_InitFiles", P_InitFiles },
268  { "GetArg", GetArg },
269  { "GetEnv", GetEnv },
270  { "P_GetArgc", P_GetArgc },
271  { "P_unlink", P_unlink },
272  { NULL, NULL }
273 };
274 #endif
bp
Definition: action.c:1035
#define fopen
Definition: xxstdio.h:21
#define fread
Definition: xxstdio.h:25
#define fflush
Definition: xxstdio.h:24
#define fseek
Definition: xxstdio.h:30
#define ftell
Definition: xxstdio.h:31
#define NULL
Definition: ftobjs.h:61
#define unlink(file)
Definition: config.h:413
#define fclose
Definition: debug.h:100
Code related to b fwrite(a, sizeof(char), b, stdout) @d C_printf(c
#define FPINIT
Definition: obx.h:358
type_I gc_heap_size(void)
Definition: gc.c:1313
value * P_fopen(value *bp)
Definition: primtab0.c:72
value * EASSERT(value *bp)
Definition: Builtin.c:153
value * P_fwrite(value *bp)
Definition: primtab0.c:144
type_I GetArgc(void)
Definition: Args.c:25
struct primdef primtab[]
Definition: primtab0.c:235
type_V FmtFixed(type_Q, type_D, type_I, type_I)
value * FLEXASSIGN(value *bp)
Definition: Builtin.c:124
value * sys_liberror(value *bp)
Definition: Builtin.c:147
type_V FmtReal(type_Q, type_F)
value * P_GetArgc(value *bp)
Definition: primtab0.c:220
value * NEWFLEX(value *bp)
Definition: Builtin.c:52
value * P_FmtFixed(value *bp)
Definition: primtab0.c:189
value * P_fdopen(value *bp)
Definition: primtab0.c:79
value * P_FmtLongReal(value *bp)
Definition: primtab0.c:180
type_V FmtLong(type_Q, type_L, type_I)
value * P_FmtString(value *bp)
Definition: primtab0.c:198
value * P_fseek(value *bp)
Definition: primtab0.c:123
value * gc_collect(value *bp)
Definition: gc.c:1249
value * P_fread(value *bp)
Definition: primtab0.c:137
value * P_unlink(value *bp)
Definition: primtab0.c:227
value * P_ftell(value *bp)
Definition: primtab0.c:130
value * P_ungetc(value *bp)
Definition: primtab0.c:109
value * P_FmtInt(value *bp)
Definition: primtab0.c:153
type_C toupper(type_C)
value * P_gc_heap_size(value *bp)
Definition: primtab0.c:65
type_V xmain_exit(type_I)
Definition: xmain.c:492
value * P_gc_debug(value *bp)
Definition: primtab0.c:56
value * P_load_lib(value *bp)
Definition: primtab0.c:45
value * P_xmain_exit(value *bp)
Definition: primtab0.c:11
type_V InitFiles(type_P, type_P, type_P)
value * P_toupper(value *bp)
Definition: primtab0.c:26
type_I obgetc(type_Q)
value * P_fflush(value *bp)
Definition: primtab0.c:93
value * COPY(value *bp)
Definition: Builtin.c:118
value * P_FmtReal(value *bp)
Definition: primtab0.c:171
type_V gc_debug(type_X)
type_V FmtLongReal(type_Q, type_D)
value * P_fputc(value *bp)
Definition: primtab0.c:116
type_V FmtString(type_Q, type_X, type_I)
value * sys_move(value *bp)
Definition: Builtin.c:142
value * NEW(value *bp)
Definition: Builtin.c:10
value * GetEnv(value *bp)
Definition: Args.c:15
value * P_InitFiles(value *bp)
Definition: primtab0.c:207
value * GetArg(value *bp)
Definition: Args.c:5
value * P_fclose(value *bp)
Definition: primtab0.c:86
type_V FmtInt(type_Q, type_I, type_I)
value * COMPARE(value *bp)
Definition: Builtin.c:107
value * P_obgetc(value *bp)
Definition: primtab0.c:102
type_V load_lib(type_X)
value * P_FmtLong(value *bp)
Definition: primtab0.c:162
void * type_P
Definition: primtab.h:38
#define arg_P(j)
Definition: primtab.h:46
#define res_I(v)
Definition: primtab.h:53
#define arg_C(j)
Definition: primtab.h:42
#define arg_Q(j)
Definition: primtab.h:50
#define arg_F(j)
Definition: primtab.h:45
double type_D
Definition: primtab.h:37
#define res_V(v)
Definition: primtab.h:60
#define res_C(v)
Definition: primtab.h:55
int type_C
Definition: primtab.h:34
float type_F
Definition: primtab.h:36
#define arg_D(j)
Definition: primtab.h:48
#define res_Q(v)
Definition: primtab.h:59
int type_I
Definition: primtab.h:34
#define arg_I(j)
Definition: primtab.h:43
longint type_L
Definition: primtab.h:35
#define arg_L(j)
Definition: primtab.h:47
void * type_Q
Definition: primtab.h:38
void type_V
Definition: primtab.h:39
#define arg_X(j)
Definition: primtab.h:49
void * type_X
Definition: primtab.h:38
FILE * fdopen(int, const char *)
Definition: obx.h:160
#define ungetc(c, f)
Definition: t1stdio.h:106
#define sp
Definition: stack.c:11
Definition: obx.h:51