proto.h

   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));
  62 OP*     do_kv P((void));
  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));
 135 OP*     list P((OP* o));
 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));
 167 #ifndef STANDARD_C
 168 Malloc_t        malloc P((MEM_SIZE nbytes));
 169 #endif
 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));
 181 #ifdef MSTATS
 182 void    mstats P((char* s));
 183 #endif
 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));
 216 AV*     newAV P((void));
 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));
 224 HV*     newHV P((void));
 225 IO*     newIO P((void));
 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));
 230 #ifdef LEAKTEST
 231 SV*     newSV P((I32 x, STRLEN len));
 232 #else
 233 SV*     newSV P((STRLEN len));
 234 #endif
 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));
 290 #ifndef safemalloc
 291 void    safefree P((char* where));
 292 char*   safemalloc P((MEM_SIZE size));
 293 #ifndef MSDOS
 294 char*   saferealloc P((char* where, MEM_SIZE size));
 295 #else
 296 char*   saferealloc P((char* where, unsigned long size));
 297 #endif
 298 #endif
 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));
 367 #ifndef DOSISH
 368 char*   sv_grow P((SV* sv, I32 newlen));
 369 #else
 370 char*   sv_grow P((SV* sv, unsigned long newlen));
 371 #endif
 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));
 406 int     yylex P((void));
 407 int     yyparse P((void));
 408 int     yywarn P((char* s));