1 OP* CopDBadd P((OP* cur));
2 OP* add_label P((char* lbl, OP* cmd));
3 OP* addcond P((OP* cmd, OP* arg));
4 OP* addflags P((I32 i, I32 flags, OP* arg));
5 OP* addloop P((OP* cmd, OP* arg));
6 OP* append_elem P((I32 optype, OP* head, OP* tail));
7 OP* append_list P((I32 optype, LISTOP* first, LISTOP* last));
8 I32 apply P((I32 type, SV** mark, SV** sp));
9 void av_clear P((AV* ar));
10 AV* av_fake P((I32 size, SV** svp));
11 SV** av_fetch P((AV* ar, I32 key, I32 lval));
12 void av_fill P((AV* ar, I32 fill));
13 I32 av_len P((AV* ar));
14 AV* av_make P((I32 size, SV** svp));
15 SV* av_pop P((AV* ar));
16 void av_popnulls P((AV* ar));
17 bool av_push P((AV* ar, SV* val));
18 SV* av_shift P((AV* ar));
19 SV** av_store P((AV* ar, I32 key, SV* val));
20 void av_undef P((AV* ar));
21 void av_unshift P((AV* ar, I32 num));
22 OP* bind_match P((I32 type, OP* left, OP* pat));
23 OP* block_head P((OP* o, OP** startp));
24 int boot_DB_File P((int ix, int sp, int items));
25 /* int boot_DynamicLoader P((void)); */
26 int boot_NDBM_File P((int ix, int sp, int items));
27 int boot_GDBM_File P((int ix, int sp, int items));
28 int boot_SDBM_File P((int ix, int sp, int items));
29 int boot_ODBM_File P((int ix, int sp, int items));
30 int boot_DBZ_File P((int ix, int sp, int items));
31 int boot_POSIX P((int ix, int sp, int items));
32 void calllist P((AV* list));
33 I32 cando P((I32 bit, I32 effective, struct stat* statbufp));
34 U32 cast_ulong P((double f));
35 static void checkcomma P((char* s, char* name, char* what));
36 I32 chsize P((int fd, Off_t length));
37 OP* convert P((I32 optype, I32 flags, OP* op));
38 OP* cop_to_arg P((OP* cmd));
39 I32 copyopt P((OP* cmd, OP* which));
40 void cpy7bit P((char* d, char* s, I32 l));
41 char* cpytill P((char* to, char* from, char* fromend, I32 delim, I32* retlen));
42 void croak P((char* pat,...));
43 void cryptfilter P((FILE* fil));
44 void cryptswitch P((void));
45 void cv_undef P((CV* cv));
46 void deb P((char* pat,...));
47 void deb_growlevel P((void));
48 OP* die P((char* pat,...));
49 OP* die_where P((char* message));
50 void do_accept P((SV* sv, GV* ngv, GV* ggv));
51 bool do_aexec P((SV* really, SV** mark, SV** sp));
52 void do_chop P((SV* asv, SV* sv));
53 bool do_close P((GV* gv, bool explicit));
54 int do_ctl P((I32 optype, GV* gv, I32 func, SV* argsv));
55 bool do_eof P((GV* gv));
56 bool do_exec P((char* cmd));
57 void do_execfree P((void));
58 SV* do_fttext P((OP* arg, SV* sv));
59 I32 do_ipcctl P((I32 optype, SV** mark, SV** sp));
60 I32 do_ipcget P((I32 optype, SV** mark, SV** sp));
61 void do_join P((SV* sv, SV* del, SV** mark, SV** sp));
63 I32 do_msgrcv P((SV** mark, SV** sp));
64 I32 do_msgsnd P((SV** mark, SV** sp));
65 bool do_open P((GV* gv, char* name, I32 len));
66 void do_pipe P((SV* sv, GV* rgv, GV* wgv));
67 bool do_print P((SV* sv, FILE* fp));
68 bool do_seek P((GV* gv, long pos, int whence));
69 I32 do_semop P((SV** mark, SV** sp));
70 I32 do_shmio P((I32 optype, SV** mark, SV** sp));
71 void do_sprintf P((SV* sv, int len, SV** sarg));
72 OP* do_subr P((void));
73 long do_tell P((GV* gv));
74 I32 do_trans P((SV* sv, OP* arg));
75 void do_vecset P((SV* sv));
76 void do_vop P((I32 optype, SV* sv, SV* left, SV* right));
77 void do_write P((struct Outrec* orec, GV* gv));
78 void dump_all P((void));
79 void dump_cop P((OP* cmd, OP* alt));
80 void dump_eval P((void));
81 int dump_fds P((char* s));
82 void dump_flags P((char* b, U32 flags));
83 void dump_form P((GV* gv));
84 void dump_gv P((GV* gv));
85 void dump_op P((OP* arg));
86 void dump_pm P((PMOP* pm));
87 void dump_packsubs P((HV* stash));
88 void dump_sub P((GV* gv));
89 void fbm_compile P((SV* sv, I32 iflag));
90 char* fbm_instr P((unsigned char* big, unsigned char* bigend, SV* littlesv));
91 HV* fetch_stash P((SV* sv, I32 create));
92 OP* flatten P((OP* arg));
93 static void force_ident P((char* s));
94 static char* force_word P((char* start, int token, int check_keyword, int allow_tick));
95 OP* forcelist P((OP* arg));
96 void free_tmps P((void));
97 OP* gen_constant_list P((OP* op));
98 I32 getgimme P((OP*op));
99 void gp_free P((GV* gv));
100 GP* gp_ref P((GP* gp));
101 GV* gv_AVadd P((GV* gv));
102 GV* gv_HVadd P((GV* gv));
103 void gv_check P((HV* stash));
104 void gv_efullname P((SV* sv, GV* gv));
105 GV* gv_fetchfile P((char* name));
106 GV* gv_fetchmethod P((HV* stash, char* name));
107 GV* gv_fetchpv P((char* name, I32 add, I32 svtype));
108 void gv_fullname P((SV* sv, GV* gv));
109 STRLEN gv_len P((SV* sv));
110 SV* gv_str P((SV* sv));
111 OP* gv_to_op P((I32 atype, GV* gv));
112 void he_delayfree P((HE* hent));
113 void he_free P((HE* hent));
114 void hoistmust P((PMOP* pm));
115 void hv_clear P((HV* tb));
116 SV* hv_delete P((HV* tb, char* key, U32 klen));
117 SV** hv_fetch P((HV* tb, char* key, U32 klen, I32 lval));
118 I32 hv_iterinit P((HV* tb));
119 char* hv_iterkey P((HE* entry, I32* retlen));
120 HE* hv_iternext P((HV* tb));
121 SV* hv_iterval P((HV* tb, HE* entry));
122 void hv_magic P((HV* hv, GV* gv, I32 how));
123 SV** hv_store P((HV* tb, char* key, U32 klen, SV* val, U32 hash));
124 void hv_undef P((HV* tb));
125 I32 ibcmp P((char* a, char* b, I32 len));
126 I32 ingroup P((int testgid, I32 effective));
127 char* instr P((char* big, char* little));
128 OP* invert P((OP* cmd));
129 OP* jmaybe P((OP* arg));
130 I32 keyword P((char* d, I32 len));
131 void leave_scope P((I32 base));
132 void lex_end P((void));
133 void lex_start P((SV *line));
134 OP* linklist P((OP* op));
136 OP* listkids P((OP* o));
137 OP* localize P((OP* arg, I32 lexical));
138 I32 looks_like_number P((SV* sv));
139 OP* loopscope P((OP* o));
140 I32 lop P((I32 f, char* s));
141 int magic_clearenv P((SV* sv, MAGIC* mg));
142 int magic_clearpack P((SV* sv, MAGIC* mg));
143 int magic_get P((SV* sv, MAGIC* mg));
144 int magic_getarylen P((SV* sv, MAGIC* mg));
145 int magic_getpack P((SV* sv, MAGIC* mg));
146 int magic_getglob P((SV* sv, MAGIC* mg));
147 int magic_gettaint P((SV* sv, MAGIC* mg));
148 int magic_getuvar P((SV* sv, MAGIC* mg));
149 U32 magic_len P((SV* sv, MAGIC* mg));
150 int magic_set P((SV* sv, MAGIC* mg));
151 int magic_setarylen P((SV* sv, MAGIC* mg));
152 int magic_setbm P((SV* sv, MAGIC* mg));
153 int magic_setpack P((SV* sv, MAGIC* mg));
154 int magic_setdbline P((SV* sv, MAGIC* mg));
155 int magic_setenv P((SV* sv, MAGIC* mg));
156 int magic_setisa P((SV* sv, MAGIC* mg));
157 int magic_setglob P((SV* sv, MAGIC* mg));
158 int magic_setmglob P((SV* sv, MAGIC* mg));
159 int magic_setsig P((SV* sv, MAGIC* mg));
160 int magic_setsubstr P((SV* sv, MAGIC* mg));
161 int magic_settaint P((SV* sv, MAGIC* mg));
162 int magic_setuvar P((SV* sv, MAGIC* mg));
163 int magic_setvec P((SV* sv, MAGIC* mg));
164 void magicalize P((char* list));
165 void magicname P((char* sym, char* name, I32 namlen));
166 int main P((int argc, char** argv, char** env));
168 Malloc_t malloc P((MEM_SIZE nbytes));
170 OP* maybeforcelist P((I32 optype, OP* arg));
171 char* mess P((char* pat, va_list* args));
172 int mg_clear P((SV* sv));
173 MAGIC* mg_find P((SV* sv, char type));
174 int mg_free P((SV* sv));
175 int mg_get P((SV* sv));
176 U32 mg_len P((SV* sv));
177 void mg_magical P((SV* sv));
178 int mg_set P((SV* sv));
179 OP* mod P((OP* op, I32 type));
180 char* moreswitches P((char* s));
182 void mstats P((char* s));
184 char* my_bcopy P((char* from, char* to, I32 len));
185 char* my_bzero P((char* loc, I32 len));
186 void my_exit P((I32 status));
187 I32 my_lstat P((void));
188 I32 my_memcmp P((unsigned char* s1, unsigned char* s2, I32 len));
189 I32 my_pclose P((FILE* ptr));
190 FILE* my_pfiopen P((FILE* fil, VOID (*func)()));
191 FILE* my_popen P((char* cmd, char* mode));
192 void my_setenv P((char* nam, char* val));
193 I32 my_stat P((void));
194 short my_swap P((short s));
195 void my_unexec P((void));
196 OP* newANONLIST P((OP* op));
197 OP* newANONHASH P((OP* op));
198 OP* newASSIGNOP P((I32 flags, OP* left, OP* right));
199 OP* newBINOP P((I32 optype, I32 flags, OP* left, OP* right));
200 OP* newCONDOP P((I32 flags, OP* expr, OP* true, OP* false));
201 void newFORM P((I32 floor, OP* op, OP* block));
202 OP* newFOROP P((I32 flags, char* label, line_t forline, OP* scalar, OP* expr, OP*block, OP*cont));
203 OP* newLOGOP P((I32 optype, I32 flags, OP* left, OP* right));
204 OP* newLOOPEX P((I32 type, OP* label));
205 OP* newLOOPOP P((I32 flags, I32 debuggable, OP* expr, OP* block));
206 OP* newMETHOD P((OP* ref, OP* name));
207 OP* newNAMEOP P((OP* o));
208 OP* newNULLLIST P((void));
209 OP* newOP P((I32 optype, I32 flags));
210 OP* newRANGE P((I32 flags, OP* left, OP* right));
211 OP* newSLICEOP P((I32 flags, OP* subscript, OP* list));
212 OP* newSTATEOP P((I32 flags, char* label, OP* o));
213 void newSUB P((I32 floor, OP* op, OP* block));
214 OP* newUNOP P((I32 optype, I32 flags, OP* child));
215 void newXSUB P((char *name, I32 ix, I32 (*subaddr)(int,int,int), char *filename));
217 OP* newAVREF P((OP* o));
218 OP* newBINOP P((I32 type, I32 flags, OP* first, OP* last));
219 OP* newCVREF P((OP* o));
220 OP* newGVOP P((I32 type, I32 flags, GV* gv));
221 GV* newGVgen P((void));
222 OP* newGVREF P((OP* o));
223 OP* newHVREF P((OP* o));
226 OP* newLISTOP P((I32 type, I32 flags, OP* first, OP* last));
227 OP* newPMOP P((I32 type, I32 flags));
228 OP* newPVOP P((I32 type, I32 flags, char* pv));
229 SV* newRV P((SV* ref));
231 SV* newSV P((I32 x, STRLEN len));
233 SV* newSV P((STRLEN len));
235 OP* newSVREF P((OP* o));
236 OP* newSVOP P((I32 type, I32 flags, SV* sv));
237 SV* newSViv P((I32 i));
238 SV* newSVnv P((double n));
239 SV* newSVpv P((char* s, STRLEN len));
240 SV* newSVsv P((SV* old));
241 OP* newUNOP P((I32 type, I32 flags, OP* first));
242 OP * newWHILEOP P((I32 flags, I32 debuggable, LOOP* loop, OP* expr, OP* block, OP* cont));
243 FILE* nextargv P((GV* gv));
244 char* ninstr P((char* big, char* bigend, char* little, char* lend));
245 char* nsavestr P((char* sv, I32 len));
246 void op_behead P((OP* arg));
247 OP* op_fold_const P((OP* arg));
248 void op_free P((OP* arg));
249 void op_optimize P((OP* cmd, I32 fliporflop, I32 acmd));
250 OP* over P((GV* eachgv, OP* cmd));
251 PADOFFSET pad_alloc P((I32 optype, U32 tmptype));
252 PADOFFSET pad_allocmy P((char* name));
253 PADOFFSET pad_findmy P((char* name));
254 OP* oopsAV P((OP* o));
255 OP* oopsHV P((OP* o));
256 void pad_leavemy P((I32 fill));
257 SV* pad_sv P((PADOFFSET po));
258 void pad_free P((PADOFFSET po));
259 void pad_reset P((void));
260 void pad_swipe P((PADOFFSET po));
261 OP* parse_list P((SV* sv));
262 void peep P((OP* op));
263 PerlInterpreter* perl_alloc P((void));
264 I32 perl_callargv P((char* subname, I32 sp, I32 gimme, char** argv));
265 I32 perl_callpv P((char* subname, I32 sp, I32 gimme, I32 hasargs, I32 numargs));
266 I32 perl_callsv P((SV* sv, I32 sp, I32 gimme, I32 hasargs, I32 numargs));
267 void perl_construct P((PerlInterpreter* sv_interp));
268 void perl_destruct P((PerlInterpreter* sv_interp));
269 void perl_free P((PerlInterpreter* sv_interp));
270 void perl_init_ext P((void));
271 I32 perl_parse P((PerlInterpreter* sv_interp, int argc, char** argv, char** env));
272 I32 perl_run P((PerlInterpreter* sv_interp));
273 void pidgone P((int pid, int status));
274 OP* pmruntime P((OP* pm, OP* expr, OP* repl));
275 OP* pop_return P((void));
276 OP* prepend_elem P((I32 optype, OP* head, OP* tail));
277 void push_return P((OP* op));
278 OP* rcatmaybe P((OP* arg));
279 regexp* regcomp P((char* exp, char* xend, I32 fold));
280 OP* ref P((OP* op, I32 type));
281 OP* refkids P((OP* op, I32 type));
282 void regdump P((regexp* r));
283 I32 regexec P((regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, I32 safebase));
284 void regfree P((struct regexp* r));
285 char* regnext P((char* p));
286 char* regprop P((char* op));
287 void repeatcpy P((char* to, char* from, I32 len, I32 count));
288 char* rninstr P((char* big, char* bigend, char* little, char* lend));
289 void run_format P((struct Outrec* orec, FF* fcmd));
291 void safefree P((char* where));
292 char* safemalloc P((MEM_SIZE size));
294 char* saferealloc P((char* where, MEM_SIZE size));
296 char* saferealloc P((char* where, unsigned long size));
299 void safexfree P((char* where));
300 char* safexmalloc P((I32 x, MEM_SIZE size));
301 char* safexrealloc P((char* where, MEM_SIZE size));
302 I32 same_dirent P((char* a, char* b));
303 void savestack_grow P((void));
304 void save_aptr P((AV** aptr));
305 AV* save_ary P((GV* gv));
306 void save_clearsv P((SV** svp));
307 void save_delete P((HV* hv, char* key, I32 klen));
308 void save_freesv P((SV* sv));
309 void save_freeop P((OP* op));
310 void save_freepv P((char* pv));
311 HV* save_hash P((GV* gv));
312 void save_hptr P((HV** hptr));
313 void save_I32 P((I32* intp));
314 void save_int P((int* intp));
315 void save_item P((SV* item));
316 void save_list P((SV** sarg, I32 maxsarg));
317 void save_nogv P((GV* gv));
318 SV* save_scalar P((GV* gv));
319 void save_sptr P((SV** sptr));
320 SV* save_svref P((SV** sptr));
321 char* savestr P((char* sv));
322 OP* sawparens P((OP* o));
323 OP* scalar P((OP* o));
324 OP* scalarkids P((OP* op));
325 OP* scalarseq P((OP* o));
326 OP* scalarvoid P((OP* op));
327 static char* scan_formline P((char* s));
328 unsigned long scan_hex P((char* start, I32 len, I32* retlen));
329 static char* scan_heredoc P((char* s));
330 static char* scan_inputsymbol P((char* s));
331 static char* scan_ident P((char* s, char* send, char* dest, I32 ck_uni));
332 char* scan_num P((char* s));
333 unsigned long scan_oct P((char* start, I32 len, I32* retlen));
334 static char* scan_pat P((char* s));
335 void scan_prefix P((PMOP* pm, char* string, I32 len));
336 static char* scan_str P((char* start));
337 static char* scan_subst P((char* start));
338 static char* scan_trans P((char* start));
339 static char* scan_word P((char* s, char* dest, int allow_package, STRLEN *slp));
340 OP* scope P((OP* o));
341 char* screaminstr P((SV* bigsv, SV* littlesv));
342 I32 setenv_getix P((char* nam));
343 VOIDRET sighandler P((I32 sig));
344 static char* skipspace P((char* s));
345 int start_subparse P((void));
346 bool sv_2bool P((SV* sv));
347 CV* sv_2cv P((SV* sv, HV** st, GV** gvp, I32 lref));
348 I32 sv_2iv P((SV* sv));
349 SV* sv_2mortal P((SV* sv));
350 double sv_2nv P((SV* sv));
351 char* sv_2pv P((SV* sv, STRLEN* lp));
352 int sv_backoff P((SV* sv));
353 void sv_catpv P((SV* sv, char* ptr));
354 void sv_catpvn P((SV* sv, char* ptr, STRLEN len));
355 void sv_catsv P((SV* dsv, SV* ssv));
356 void sv_chop P((SV* sv, char* ptr));
357 void sv_clean_all P((void));
358 void sv_clean_magic P((void));
359 void sv_clean_refs P((void));
360 void sv_clear P((SV* sv));
361 I32 sv_cmp P((SV* sv1, SV* sv2));
362 void sv_dec P((SV* sv));
363 void sv_dump P((SV* sv));
364 I32 sv_eq P((SV* sv1, SV* sv2));
365 void sv_free P((SV* sv));
366 char* sv_gets P((SV* sv, FILE* fp, I32 append));
368 char* sv_grow P((SV* sv, I32 newlen));
370 char* sv_grow P((SV* sv, unsigned long newlen));
372 void sv_inc P((SV* sv));
373 void sv_insert P((SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen));
374 SV* sv_interp P((SV* sv, SV* src, I32 sp));
375 void sv_intrpcompile P((SV* src));
376 int sv_isa P((SV* sv, char* name));
377 int sv_isobject P((SV* sv));
378 STRLEN sv_len P((SV* sv));
379 void sv_magic P((SV* sv, SV* obj, char how, char* name, I32 namlen));
380 SV* sv_mortalcopy P((SV* oldsv));
381 SV* sv_newmortal P((void));
382 SV* sv_newref P((SV* sv));
383 void sv_replace P((SV* sv, SV* nsv));
384 void sv_report_used P((void));
385 void sv_reset P((char* s, HV* stash));
386 void sv_setiv P((SV* sv, I32 num));
387 void sv_setnv P((SV* sv, double num));
388 void sv_setpv P((SV* sv, char* ptr));
389 void sv_setpvn P((SV* sv, char* ptr, STRLEN len));
390 void sv_setsv P((SV* dsv, SV* ssv));
391 int sv_unmagic P((SV* sv, char type));
392 void sv_unref P((SV* sv));
393 void sv_usepvn P((SV* sv, char* ptr, STRLEN len));
394 void taint_env P((void));
395 void taint_not P((char *s));
396 void taint_proper P((char* f, char* s));
397 I32 uni P((I32 f, char* s));
398 I32 unlnk P((char* f));
399 I32 userinit P((void));
400 I32 wait4pid P((int pid, int* statusp, int flags));
401 void warn P((char* pat,...));
402 I32 whichsig P((char* sig));
403 void while_io P((OP* cmd));
404 OP* wopt P((OP* cmd));
405 int yyerror P((char* s));
407 int yyparse P((void));
408 int yywarn P((char* s));