perl 5.0 alpha 3
[p5sagit/p5-mst-13.2.git] / proto.h
diff --git a/proto.h b/proto.h
index 11d36ef..477266e 100644 (file)
--- a/proto.h
+++ b/proto.h
-OP *   CopDBadd P((OP *cur));
-OP *   add_label P((char *lbl, OP *cmd));
-OP *   addcond P((OP *cmd, OP *arg));
-OP *   addflags P((I32 i, I32 flags, OP *arg));
-OP *   addloop P((OP *cmd, OP *arg));
-OP *   append_elem P((I32 optype, OP *head, OP *tail));
-OP *   append_list P((I32 optype, OP *head, OP *tail));
-I32    apply P((I32 type, SV **mark, SV **sp));
-void   av_clear P((AV *ar));
-AV *   av_fake P((I32 size, SV **strp));
-SV **  av_fetch P((AV *ar, I32 key, I32 lval));
-void   av_fill P((AV *ar, I32 fill));
-void   av_free P((AV *ar));
-I32    av_len P((AV *ar));
-AV *   av_make P((I32 size, SV **strp));
-SV *   av_pop P((AV *ar));
-void   av_popnulls P((AV *ar));
-bool   av_push P((AV *ar, SV *val));
-SV *   av_shift P((AV *ar));
-SV **  av_store P((AV *ar, I32 key, SV *val));
-void   av_undef P((AV *ar));
-void   av_unshift P((AV *ar, I32 num));
-OP *   bind_match P((I32 type, OP *left, OP *pat));
-OP *   block_head P((OP *tail));
-I32    cando P((I32 bit, I32 effective, struct stat *statbufp));
-unsigned long  cast_ulong P((double f));
-void   checkcomma P((char *s, char *name, char *what));
-I32    chsize P((int fd, off_t length));
-OP *   convert P((I32 optype, I32 flags, OP *op));
-OP *   cop_to_arg P((OP *cmd));
-I32    copyopt P((OP *cmd, OP *which));
-void   cpy7bit P((char *d, char *s, I32 l));
-char * cpytill P((char *to, char *from, char *fromend, I32 delim, I32 *retlen));
-void   cryptfilter P((FILE *fil));
-void   cryptswitch P((void));
-void   deb P((char *pat, ...));
-void   deb_growlevel P((void));
-OP *   die P((const char* pat, ...));
-OP *   die_where P((char *message));
-void   do_accept P((SV *sv, GV *ngv, GV *ggv));
-bool   do_aexec P((SV *really, SV **mark, SV **sp));
-void   do_chop P((SV *astr, SV *sv));
-bool   do_close P((GV *gv, bool explicit));
-int    do_ctl P((I32 optype, GV *gv, I32 func, SV *argstr));
-bool   do_eof P((GV *gv));
-bool   do_exec P((char *cmd));
-void   do_execfree P((void));
-SV *   do_fttext P((OP *arg, SV *sv));
-I32    do_ipcctl P((I32 optype, SV **mark, SV **sp));
-I32    do_ipcget P((I32 optype, SV **mark, SV **sp));
-void   do_join P((SV *sv, SV *del, SV **mark, SV **sp));
-OP *   do_kv P((SV*,OP*,I32));
-I32    do_msgrcv P((SV **mark, SV **sp));
-I32    do_msgsnd P((SV **mark, SV **sp));
-bool   do_open P((GV *gv, char *name, I32 len));
-void   do_pipe P((SV *sv, GV *rgv, GV *wgv));
-bool   do_print P((SV *sv, FILE *fp));
-I32    do_repeatary P((SV*,OP*,I32));
-bool   do_seek P((GV *gv, long pos, int whence));
-I32    do_semop P((SV **mark, SV **sp));
-I32    do_shmio P((I32 optype, SV **mark, SV **sp));
-void   do_sprintf P((SV *sv, int len, SV **sarg));
-OP *   do_subr P((void));
-long   do_tell P((GV *gv));
-I32    do_trans P((SV *sv, OP *arg));
-void   do_vecset P((SV *sv));
-void   do_vop P((I32 optype, SV *sv, SV *left, SV *right));
-void   do_write P((struct Outrec *orec, GV *gv));
-void   dump_all P((void));
-void   dump_cop P((OP *cmd, OP *alt));
-void   dump_eval P((OP *root, OP *start));
-       dump_fds P((char *s));
-void   dump_flags P((char *b, U32 flags));
-void   dump_gv P((GV *gv));
-void   dump_op P((OP *arg));
-void   dump_pm P((PM *pm));
+OP*    CopDBadd P((OP* cur));
+OP*    add_label P((char* lbl, OP* cmd));
+OP*    addcond P((OP* cmd, OP* arg));
+OP*    addflags P((I32 i, I32 flags, OP* arg));
+OP*    addloop P((OP* cmd, OP* arg));
+OP*    append_elem P((I32 optype, OP* head, OP* tail));
+OP*    append_list P((I32 optype, LISTOP* first, LISTOP* last));
+I32    apply P((I32 type, SV** mark, SV** sp));
+void   av_clear P((AV* ar));
+AV*    av_fake P((I32 size, SV** strp));
+SV**   av_fetch P((AV* ar, I32 key, I32 lval));
+void   av_fill P((AV* ar, I32 fill));
+void   av_free P((AV* ar));
+I32    av_len P((AV* ar));
+AV*    av_make P((I32 size, SV** strp));
+SV*    av_pop P((AV* ar));
+void   av_popnulls P((AV* ar));
+bool   av_push P((AV* ar, SV* val));
+SV*    av_shift P((AV* ar));
+SV**   av_store P((AV* ar, I32 key, SV* val));
+void   av_undef P((AV* ar));
+void   av_unshift P((AV* ar, I32 num));
+OP*    bind_match P((I32 type, OP* left, OP* pat));
+OP*    block_head P((OP* o, OP** startp));
+void   calllist P((AV* list));
+I32    cando P((I32 bit, I32 effective, struct stat* statbufp));
+unsigned long  cast_ulong P((double f));
+void   checkcomma P((char* s, char* name, char* what));
+I32    chsize P((int fd, off_t length));
+OP*    convert P((I32 optype, I32 flags, OP* op));
+OP*    cop_to_arg P((OP* cmd));
+I32    copyopt P((OP* cmd, OP* which));
+void   cpy7bit P((char* d, char* s, I32 l));
+char*  cpytill P((char* to, char* from, char* fromend, I32 delim, I32* retlen));
+void   cryptfilter P((FILE* fil));
+void   cryptswitch P((void));
+void   deb P((va_alist));
+void   deb_growlevel P((void));
+OP*    die P((va_alist));
+OP*    die_where P((char* message));
+void   do_accept P((SV* sv, GV* ngv, GV* ggv));
+bool   do_aexec P((SV* really, SV** mark, SV** sp));
+void   do_chop P((SV* astr, SV* sv));
+bool   do_close P((GV* gv, bool explicit));
+int    do_ctl P((I32 optype, GV* gv, I32 func, SV* argstr));
+bool   do_eof P((GV* gv));
+bool   do_exec P((char* cmd));
+void   do_execfree P((void));
+SV*    do_fttext P((OP* arg, SV* sv));
+I32    do_ipcctl P((I32 optype, SV** mark, SV** sp));
+I32    do_ipcget P((I32 optype, SV** mark, SV** sp));
+void   do_join P((SV* sv, SV* del, SV** mark, SV** sp));
+OP*    do_kv P(());
+I32    do_msgrcv P((SV** mark, SV** sp));
+I32    do_msgsnd P((SV** mark, SV** sp));
+bool   do_open P((GV* gv, char* name, I32 len));
+void   do_pipe P((SV* sv, GV* rgv, GV* wgv));
+bool   do_print P((SV* sv, FILE* fp));
+bool   do_seek P((GV* gv, long pos, int whence));
+I32    do_semop P((SV** mark, SV** sp));
+I32    do_shmio P((I32 optype, SV** mark, SV** sp));
+void   do_sprintf P((SV* sv, int len, SV** sarg));
+OP*    do_subr P((void));
+long   do_tell P((GV* gv));
+I32    do_trans P((SV* sv, OP* arg));
+void   do_vecset P((SV* sv));
+void   do_vop P((I32 optype, SV* sv, SV* left, SV* right));
+void   do_write P((struct Outrec* orec, GV* gv));
+void   dump_all P((void));
+void   dump_cop P((OP* cmd, OP* alt));
+void   dump_eval P(());
+       dump_fds P((char* s));
+void   dump_flags P((char* b, U32 flags));
+void   dump_gv P((GV* gv));
+void   dump_op P((OP* arg));
+void   dump_pm P((PMOP* pm));
+void   dump_sub P((GV* gv));
        dup2 P((int oldfd, int newfd));
-void   fbm_compile P((SV *sv, I32 iflag));
-char * fbm_instr P((unsigned char *big, unsigned char *bigend, SV *littlestr));
-IO *   fetch_io P((OP* op, I32 num));
-GV *   fetch_gv P((OP* op, I32 num));
-OP *   flatten P((OP *arg));
-void   force_ident P((char *s));
-char * force_word P((char *s));
-OP *   forcelist P((OP *arg));
+void   fbm_compile P((SV* sv, I32 iflag));
+char*  fbm_instr P((unsigned char* big, unsigned char* bigend, SV* littlestr));
+IO*    fetch_io P((OP* op, I32 num));
+GV*    fetch_gv P((OP* op, I32 num));
+OP*    flatten P((OP* arg));
+void   force_ident P((char* s));
+char*  force_word P((char* s, int token));
+OP*    forcelist P((OP* arg));
 void   free_tmps P((void));
-OP *   gen_constant_list P((OP *op));
+OP*    gen_constant_list P((OP* op));
 I32    getgimme P((OP*op));
 void   gp_free P((GV* gv));
-GP *   gp_ref P((GP* gp));
-GV *   gv_AVadd P((GV *gv));
-GV *   gv_HVadd P((GV *gv));
-void   gv_check P((I32 min, I32 max));
-void   gv_efullname P((SV *sv, GV *gv));
-GV *   gv_fetchfile P((char *name));
-GV *   gv_fetchmethod P((HV* stash, char *name));
-GV *   gv_fetchpv P((char *name, I32 add));
-void   gv_fullname P((SV *sv, GV *gv));
-STRLEN         gv_len P((SV *sv));
-SV *   gv_str P((SV *sv));
-OP *   gv_to_op P((I32 atype, GV *gv));
-void   he_delayfree P((HE *hent));
-void   he_free P((HE *hent));
-void   hoistmust P((PM *pm));
-void   hv_clear P((HV *tb, I32 dodbm));
-void   hv_dbmclose P((HV *tb));
-bool   hv_dbmopen P((HV *tb, char *fname, int mode));
-bool   hv_dbmstore P((HV *tb, char *key, U32 klen, SV *sv));
-SV *   hv_delete P((HV *tb, char *key, U32 klen));
-SV **  hv_fetch P((HV *tb, char *key, U32 klen, I32 lval));
-void   hv_free P((HV *tb, I32 dodbm));
-I32    hv_iterinit P((HV *tb));
-char * hv_iterkey P((HE *entry, I32 *retlen));
-HE *   hv_iternext P((HV *tb));
-SV *   hv_iterval P((HV *tb, HE *entry));
-void   hv_magic P((SV *sv, GV *gv, I32 how));
-SV **  hv_store P((HV *tb, char *key, U32 klen, SV *val, U32 hash));
-void   hv_undef P((HV *tb, I32 dodbm));
-I32    ibcmp P((char *a, char *b, I32 len));
-I32    ingroup P((int testgid, I32 effective));
-char * instr P((char *big, char *little));
-OP *   invert P((OP *cmd));
-OP *   jmaybe P((OP *arg));
-I32    keyword P((char *d));
-void   leave_scope P((I32 base));
-OP *   linklist P((OP *op));
-OP *   list P((OP *o));
-OP *   listkids P((OP *o));
-OP *   localize P((OP *arg));
-I32    looks_like_number P((SV *sv));
-OP *   loopscope P((OP *o));
-I32    lop P((I32 f, char *s));
+GP*    gp_ref P((GP* gp));
+GV*    gv_AVadd P((GV* gv));
+GV*    gv_HVadd P((GV* gv));
+void   gv_check P((I32 min, I32 max));
+void   gv_efullname P((SV* sv, GV* gv));
+GV*    gv_fetchfile P((char* name));
+GV*    gv_fetchmethod P((HV* stash, char* name));
+GV*    gv_fetchpv P((char* name, I32 add));
+void   gv_fullname P((SV* sv, GV* gv));
+STRLEN gv_len P((SV* sv));
+SV*    gv_str P((SV* sv));
+OP*    gv_to_op P((I32 atype, GV* gv));
+void   he_delayfree P((HE* hent));
+void   he_free P((HE* hent));
+void   hoistmust P((PMOP* pm));
+void   hv_clear P((HV* tb, I32 dodbm));
+void   hv_dbmclose P((HV* tb));
+bool   hv_dbmopen P((HV* tb, char* fname, int mode));
+bool   hv_dbmstore P((HV* tb, char* key, U32 klen, SV* sv));
+SV*    hv_delete P((HV* tb, char* key, U32 klen));
+SV**   hv_fetch P((HV* tb, char* key, U32 klen, I32 lval));
+void   hv_free P((HV* tb, I32 dodbm));
+I32    hv_iterinit P((HV* tb));
+char*  hv_iterkey P((HE* entry, I32* retlen));
+HE*    hv_iternext P((HV* tb));
+SV*    hv_iterval P((HV* tb, HE* entry));
+void   hv_magic P((HV* hv, GV* gv, I32 how));
+SV**   hv_store P((HV* tb, char* key, U32 klen, SV* val, U32 hash));
+void   hv_undef P((HV* tb, I32 dodbm));
+I32    ibcmp P((char* a, char* b, I32 len));
+I32    ingroup P((int testgid, I32 effective));
+char*  instr P((char* big, char* little));
+OP*    invert P((OP* cmd));
+OP*    jmaybe P((OP* arg));
+I32    keyword P((char* d, I32 len));
+void   leave_scope P((I32 base));
+OP*    linklist P((OP* op));
+OP*    list P((OP* o));
+OP*    listkids P((OP* o));
+OP*    localize P((OP* arg, I32 lexical));
+I32    looks_like_number P((SV* sv));
+OP*    loopscope P((OP* o));
+I32    lop P((I32 f, char* s));
 int    magic_get       P((SV* sv, MAGIC* mg));
 int    magic_getarylen P((SV* sv, MAGIC* mg));
 int    magic_getglob   P((SV* sv, MAGIC* mg));
 int    magic_getuvar   P((SV* sv, MAGIC* mg));
+U32    magic_len       P((SV* sv, MAGIC* mg));
 int    magic_set       P((SV* sv, MAGIC* mg));
 int    magic_setarylen P((SV* sv, MAGIC* mg));
 int    magic_setbm     P((SV* sv, MAGIC* mg));
@@ -141,212 +143,221 @@ int     magic_setdbline P((SV* sv, MAGIC* mg));
 int    magic_setdbm    P((SV* sv, MAGIC* mg));
 int    magic_setenv    P((SV* sv, MAGIC* mg));
 int    magic_setglob   P((SV* sv, MAGIC* mg));
+int    magic_setmglob  P((SV* sv, MAGIC* mg));
 int    magic_setsig    P((SV* sv, MAGIC* mg));
 int    magic_setsubstr P((SV* sv, MAGIC* mg));
 int    magic_setuvar   P((SV* sv, MAGIC* mg));
 int    magic_setvec    P((SV* sv, MAGIC* mg));
-void   magicalize P((char *list));
-void   magicname P((char *sym, char *name, I32 namlen));
-       main P((int argc, char **argv, char **env));
-MALLOCPTRTYPE *        malloc P((MEM_SIZE nbytes));
-OP *   maybeforcelist P((I32 optype, OP *arg));
-char * mess P((char *pat, ...));
-int    mg_clear P((SV *sv));
-int    mg_free P((SV *sv, char type));
-int    mg_freeall P((SV *sv));
-int    mg_get P((SV *sv));
-U32    mg_len P((SV *sv));
-int    mg_set P((SV *sv));
-char * moreswitches P((char *s));
-void   mstats P((char *s));
-char * my_bcopy P((char *from, char *to, I32 len));
-char * my_bzero P((char *loc, I32 len));
-void   my_exit P((I32 status));
-I32    my_lstat P((OP *arg, SV *sv));
-I32    my_memcmp P((unsigned char *s1, unsigned char *s2, I32 len));
-I32    my_pclose P((FILE *ptr));
-FILE * my_pfiopen P((FILE *fil, VOID (*func)()));
-FILE * my_popen P((char *cmd, char *mode));
-void   my_setenv P((char *nam, char *val));
-I32    my_stat P((OP *arg, SV *sv));
-short  my_swap P((short s));
-void   my_unexec P((void));
-OP *   newANONLIST P((OP *op));
-OP *   newANONHASH P((OP *op));
-OP *   newASSIGNOP P((I32 flags, OP *left, OP *right));
-OP *   newBINOP P((I32 optype, I32 flags, OP *left, OP *right));
-OP *   newCONDOP P((I32 flags, OP *expr, OP *true, OP *false));
-void   newFORM P((OP *name, OP *block));
-OP *   newFOROP P((I32 flags, char *label, line_t forline, OP* scalar, OP* expr, OP*block, OP*cont));
-HV *   newHV P((U32 lookat));
-OP *   newLOGOP P((I32 optype, I32 flags, OP *left, OP *right));
-OP *   newLOOPOP P((I32 flags, I32 debuggable, OP *expr, OP *block, OP *cont));
-OP *   newMETHOD P((OP *ref, OP* name));
-OP *   newNAMEOP P((OP *o));
-OP *   newNULLLIST P((void));
-OP *   newOP P((I32 optype, I32 flags));
-OP *   newRANGE P((I32 flags, OP *left, OP *right));
-OP *   newSLICEOP P((I32 flags, OP *subscript, OP *list));
-OP *   newSTATEOP P((I32 flags, char *label, OP *o));
-void   newSUB P((OP *name, OP *block));
-OP *   newUNOP P((I32 optype, I32 flags, OP *child));
-AV *   newAV P((void));
-OP *   newAVREF P((OP *o));
-OP *   newBINOP P((I32 type, I32 flags, OP *first, OP *last));
-OP *   newCVREF P((OP *o));
-OP *   newGVOP P((I32 type, I32 flags, GV *gv));
-GV *   newGVgen P((void));
-OP *   newGVREF P((OP *o));
-OP *   newHVREF P((OP *o));
-HV *   newHV P((U32 lookat));
-IO *   newIO P((void));
-OP *   newLISTOP P((I32 type, I32 flags, first, last));
-OP *   newPMOP P((I32 type, I32 flags));
-OP *   newPVOP P((I32 type, I32 flags, PV *pv));
+void   magicalize P((char* list));
+void   magicname P((char* sym, char* name, I32 namlen));
+       main P((int argc, char** argv, char** env));
+#ifndef STANDARD_C
+MALLOCPTRTYPE* malloc P((MEM_SIZE nbytes));
+#endif
+OP*    maybeforcelist P((I32 optype, OP* arg));
+char*  mess P((char* pat, ...));
+int    mg_clear P((SV* sv));
+MAGIC* mg_find P((SV* sv, char type));
+int    mg_free P((SV* sv, char type));
+int    mg_freeall P((SV* sv));
+int    mg_get P((SV* sv));
+U32    mg_len P((SV* sv));
+int    mg_set P((SV* sv));
+char*  moreswitches P((char* s));
+void   mstats P((char* s));
+char*  my_bcopy P((char* from, char* to, I32 len));
+char*  my_bzero P((char* loc, I32 len));
+void   my_exit P((I32 status));
+I32    my_lstat P(());
+I32    my_memcmp P((unsigned char* s1, unsigned char* s2, I32 len));
+I32    my_pclose P((FILE* ptr));
+FILE*  my_pfiopen P((FILE* fil, VOID (*func)()));
+FILE*  my_popen P((char* cmd, char* mode));
+void   my_setenv P((char* nam, char* val));
+I32    my_stat P(());
+short  my_swap P((short s));
+void   my_unexec P((void));
+OP*    newANONLIST P((OP* op));
+OP*    newANONHASH P((OP* op));
+OP*    newASSIGNOP P((I32 flags, OP* left, OP* right));
+OP*    newBINOP P((I32 optype, I32 flags, OP* left, OP* right));
+OP*    newCONDOP P((I32 flags, OP* expr, OP* true, OP* false));
+void   newFORM P((I32 floor, OP* op, OP* block));
+OP*    newFOROP P((I32 flags, char* label, line_t forline, OP* scalar, OP* expr, OP*block, OP*cont));
+HV*    newHV P((U32 lookat));
+OP*    newLOGOP P((I32 optype, I32 flags, OP* left, OP* right));
+OP*    newLOOPOP P((I32 flags, I32 debuggable, OP* expr, OP* block));
+OP*    newMETHOD P((OP* ref, OP* name));
+OP*    newNAMEOP P((OP* o));
+OP*    newNULLLIST P((void));
+OP*    newOP P((I32 optype, I32 flags));
+OP*    newRANGE P((I32 flags, OP* left, OP* right));
+OP*    newSLICEOP P((I32 flags, OP* subscript, OP* list));
+OP*    newSTATEOP P((I32 flags, char* label, OP* o));
+void   newSUB P((I32 floor, OP* op, OP* block));
+OP*    newUNOP P((I32 optype, I32 flags, OP* child));
+AV*    newAV P((void));
+OP*    newAVREF P((OP* o));
+OP*    newBINOP P((I32 type, I32 flags, OP* first, OP* last));
+OP*    newCVREF P((OP* o));
+OP*    newGVOP P((I32 type, I32 flags, GV* gv));
+GV*    newGVgen P((void));
+OP*    newGVREF P((OP* o));
+OP*    newHVREF P((OP* o));
+HV*    newHV P((U32 lookat));
+IO*    newIO P((void));
+OP*    newLISTOP P((I32 type, I32 flags, OP* first, OP* last));
+OP*    newPMOP P((I32 type, I32 flags));
+OP*    newPVOP P((I32 type, I32 flags, char* pv));
 #ifdef LEAKTEST
-SV *   newSV P((I32 x, STRLEN len));
+SV*    newSV P((I32 x, STRLEN len));
 #else
-SV *   newSV P((STRLEN len));
+SV*    newSV P((STRLEN len));
 #endif
-OP *   newSVREF P((OP *o));
-OP *   newSVOP P((I32 type, I32 flags, SV *sv));
-SV *   newSViv P((I32 i));
-SV *   newSVnv P((double n));
-SV *   newSVpv P((char *s, STRLEN len));
-SV *   newSVsv P((SV *old));
-OP *   newUNOP P((I32 type, I32 flags, OP *first));
-FILE * nextargv P((GV *gv));
-char * ninstr P((char *big, char *bigend, char *little, char *lend));
-char * nsavestr P((char *sv, I32 len));
-void   op_behead P((OP *arg));
-OP *   op_fold_const P((OP *arg));
-void   op_free P((OP *arg));
-void   op_optimize P((OP *cmd, I32 fliporflop, I32 acmd));
-OP *   over P((GV *eachgv, OP *cmd));
-PADOFFSET      pad_alloc P((void));
-SV *   pad_sv P((PADOFFSET po));
+OP*    newSVREF P((OP* o));
+OP*    newSVOP P((I32 type, I32 flags, SV* sv));
+SV*    newSViv P((I32 i));
+SV*    newSVnv P((double n));
+SV*    newSVpv P((char* s, STRLEN len));
+SV*    newSVsv P((SV* old));
+OP*    newUNOP P((I32 type, I32 flags, OP* first));
+FILE*  nextargv P((GV* gv));
+char*  ninstr P((char* big, char* bigend, char* little, char* lend));
+char*  nsavestr P((char* sv, I32 len));
+void   op_behead P((OP* arg));
+OP*    op_fold_const P((OP* arg));
+void   op_free P((OP* arg));
+void   op_optimize P((OP* cmd, I32 fliporflop, I32 acmd));
+OP*    over P((GV* eachgv, OP* cmd));
+PADOFFSET      pad_alloc P((I32 optype, char tmptype));
+PADOFFSET      pad_allocmy P((char* name));
+PADOFFSET      pad_findmy P((char* name));
+void   pad_leavemy P((I32 fill));
+SV*    pad_sv P((PADOFFSET po));
 void   pad_free P((PADOFFSET po));
 void   pad_reset P((void));
 void   pad_swipe P((PADOFFSET po));
-OP *   parse_list P((SV *sv));
-void   peep P((OP *op));
-Interpreter *  perl_alloc P((void));
-I32    perl_callback P((char *subname, I32 sp, I32 gimme, I32 hasargs, I32 numargs));
-I32    perl_callv P((char *subname, I32 sp, I32 gimme, char **argv));
-void   perl_construct P((Interpreter *sv_interp));
-void   perl_destruct P((Interpreter *sv_interp));
-void   perl_free P((Interpreter *sv_interp));
-I32    perl_parse P((Interpreter *sv_interp, int argc, char **argv, char **env));
-I32    perl_run P((Interpreter *sv_interp));
-void   pidgone P((int pid, int status));
-OP *   pmruntime P((OP *pm, OP *expr));
-OP *   pop_return P((void));
-OP *   prepend_elem P((I32 optype, OP *head, OP *tail));
+OP*    parse_list P((SV* sv));
+void   peep P((OP* op));
+PerlInterpreter*       perl_alloc P((void));
+I32    perl_callback P((char* subname, I32 sp, I32 gimme, I32 hasargs, I32 numargs));
+I32    perl_callv P((char* subname, I32 sp, I32 gimme, char** argv));
+void   perl_construct P((PerlInterpreter* sv_interp));
+void   perl_destruct P((PerlInterpreter* sv_interp));
+void   perl_free P((PerlInterpreter* sv_interp));
+I32    perl_parse P((PerlInterpreter* sv_interp, int argc, char** argv, char** env));
+I32    perl_run P((PerlInterpreter* sv_interp));
+void   pidgone P((int pid, int status));
+OP*    pmruntime P((OP* pm, OP* expr, OP* repl));
+OP*    pop_return P((void));
+OP*    prepend_elem P((I32 optype, OP* head, OP* tail));
 void   push_return P((OP* op));
-void   pv_grow P((char **strptr, I32 *curlen, I32 newlen));
-OP *   rcatmaybe P((OP *arg));
-regexp *       regcomp P((char *exp, char *xend, I32 fold));
-OP *   ref P((OP *op, I32 type));
-OP *   refkids P((OP *op, I32 type));
-void   regdump P((regexp *r));
-I32    regexec P((regexp *prog, char *stringarg, char *strend, char *strbeg, I32 minend, SV *screamer, I32 safebase));
-void   regfree P((struct regexp *r));
-char * regnext P((char *p));
-char * regprop P((char *op));
+void   pv_grow P((char** strptr, I32* curlen, I32 newlen));
+OP*    rcatmaybe P((OP* arg));
+regexp*        regcomp P((char* exp, char* xend, I32 fold));
+OP*    ref P((OP* op, I32 type));
+OP*    refkids P((OP* op, I32 type));
+void   regdump P((regexp* r));
+I32    regexec P((regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, I32 safebase));
+void   regfree P((struct regexp* r));
+char*  regnext P((char* p));
+char*  regprop P((char* op));
 void   reinit_lexer P((void));
-void   repeatcpy P((char *to, char *from, I32 len, I32 count));
-char * rninstr P((char *big, char *bigend, char *little, char *lend));
-void   run_format P((struct Outrec *orec, FF *fcmd));
+void   repeatcpy P((char* to, char* from, I32 len, I32 count));
+char*  rninstr P((char* big, char* bigend, char* little, char* lend));
+void   run_format P((struct Outrec* orec, FF* fcmd));
 #ifndef safemalloc
-void   safefree P((char *where));
-char * safemalloc P((MEM_SIZE size));
-char * saferealloc P((char *where, unsigned long size));
+void   safefree P((char* where));
+char*  safemalloc P((MEM_SIZE size));
+char*  saferealloc P((char* where, unsigned long size));
 #endif
-void   safexfree P((char *where));
-char * safexmalloc P((I32 x, MEM_SIZE size));
-char * safexrealloc P((char *where, MEM_SIZE size));
-I32    same_dirent P((char *a, char *b));
+void   safexfree P((char* where));
+char*  safexmalloc P((I32 x, MEM_SIZE size));
+char*  safexrealloc P((char* where, MEM_SIZE size));
+I32    same_dirent P((char* a, char* b));
 void   savestack_grow P((void));
-void   save_aptr P((AV **aptr));
-AV *   save_ary P((GV *gv));
-HV *   save_hash P((GV *gv));
-void   save_hptr P((HV **hptr));
-void   save_I32 P((I32 *intp));
-void   save_int P((int *intp));
-void   save_item P((SV *item));
-void   save_lines P((AV *array, SV *sv));
-void   save_list P((SV **sarg, I32 maxsarg));
-void   save_nogv P((GV *gv));
-SV *   save_scalar P((GV *gv));
-void   save_sptr P((SV **sptr));
-SV *   save_svref P((SV **sptr));
-char * savestr P((char *sv));
-OP *   sawparens P((OP *o));
-OP *   scalar P((OP *o));
-OP *   scalarkids P((OP *op));
-OP *   scalarseq P((OP *o));
-OP *   scalarvoid P((OP *op));
-char * scan_formline P((char *s));
-unsigned long  scan_hex P((char *start, I32 len, I32 *retlen));
-char * scan_heredoc P((char *s));
-char * scan_inputsymbol P((char *s));
-char * scan_ident P((char *s, char *send, char *dest));
-char * scan_num P((char *s));
-unsigned long  scan_oct P((char *start, I32 len, I32 *retlen));
-char * scan_pat P((char *s));
-void   scan_prefix P((PM *pm, char *string, I32 len));
-char * scan_str P((char *start));
-char * scan_subst P((char *start));
-char * scan_trans P((char *start));
-OP *   scope P((OP *o));
-char * screaminstr P((SV *bigstr, SV *littlestr));
-I32    setenv_getix P((char *nam));
-char * skipspace P((char *s));
-AV *   sv_2av P((SV *sv, STASH **st, GV **gvp, I32 lref));
-CV *   sv_2cv P((SV *sv, STASH **st, GV **gvp, I32 lref));
-HV *   sv_2hv P((SV *sv, STASH **st, GV **gvp, I32 lref));
-I32    sv_2iv P((SV *sv));
-SV *   sv_2mortal P((SV *sv));
-double         sv_2nv P((SV *sv));
-char * sv_2pv P((SV *sv));
-char * sv_append_till P((SV *sv, char *from, char *fromend, I32 delim, char *keeplist));
-int    sv_backoff P((SV *sv));
-void   sv_catpv P((SV *sv, char *ptr));
-void   sv_catpvn P((SV *sv, char *ptr, STRLEN len));
-void   sv_catsv P((SV *dstr, SV *sstr));
-void   sv_chop P((SV *sv, char *ptr));
-void   sv_clear P((SV *sv));
-I32    sv_cmp P((SV *str1, SV *str2));
-void   sv_dec P((SV *sv));
-I32    sv_eq P((SV *str1, SV *str2));
-void   sv_free P((SV *sv));
-char * sv_gets P((SV *sv, FILE *fp, I32 append));
-char * sv_grow P((SV *sv, unsigned long newlen));
-void   sv_inc P((SV *sv));
-void   sv_insert P((SV *bigstr, STRLEN offset, STRLEN len, char *little, STRLEN littlelen));
-SV *   sv_interp P((SV *sv, SV *src, I32 sp));
-void   sv_intrpcompile P((SV *src));
-STRLEN         sv_len P((SV *sv));
-void   sv_magic P((SV *sv, SV *sv, char how, char *name, STRLEN namlen));
-SV *   sv_mortalcopy P((SV *oldstr));
-SV *   sv_ref P((SV *sv));
-void   sv_replace P((SV *sv, SV *nstr));
-void   sv_reset P((char *s, HV *stash));
-void   sv_setiv P((SV *sv, I32 num));
-void   sv_setnv P((SV *sv, double num));
-void   sv_setpv P((SV *sv, char *ptr));
-void   sv_setpvn P((SV *sv, char *ptr, STRLEN len));
-void   sv_setsv P((SV *dstr, SV *sstr));
-void   taint_env P((void));
-void   taint_proper P((char *f, char *s));
-I32    uni P((I32 f, char *s));
-I32    unlnk P((char *f));
-I32    userinit P((void));
-I32    wait4pid P((int pid, int *statusp, int flags));
-void   warn P((const char* pat, ...));
-I32    whichsig P((char *sig));
-void   while_io P((OP *cmd));
-OP *   wopt P((OP *cmd));
-int    yyerror P((char *s));
-int    yylex P((void));
-int    yyparse P((void));
+void   save_aptr P((AV** aptr));
+AV*    save_ary P((GV* gv));
+HV*    save_hash P((GV* gv));
+void   save_hptr P((HV** hptr));
+void   save_I32 P((I32* intp));
+void   save_int P((int* intp));
+void   save_item P((SV* item));
+void   save_lines P((AV* array, SV* sv));
+void   save_list P((SV** sarg, I32 maxsarg));
+void   save_nogv P((GV* gv));
+SV*    save_scalar P((GV* gv));
+void   save_sptr P((SV** sptr));
+SV*    save_svref P((SV** sptr));
+char*  savestr P((char* sv));
+OP*    sawparens P((OP* o));
+OP*    scalar P((OP* o));
+OP*    scalarkids P((OP* op));
+OP*    scalarseq P((OP* o));
+OP*    scalarvoid P((OP* op));
+char*  scan_formline P((char* s));
+unsigned long  scan_hex P((char* start, I32 len, I32* retlen));
+char*  scan_heredoc P((char* s));
+char*  scan_inputsymbol P((char* s));
+char*  scan_ident P((char* s, char* send, char* dest, I32 ck_uni));
+char*  scan_num P((char* s));
+unsigned long  scan_oct P((char* start, I32 len, I32* retlen));
+char*  scan_pat P((char* s));
+void   scan_prefix P((PMOP* pm, char* string, I32 len));
+char*  scan_str P((char* start));
+char*  scan_subst P((char* start));
+char*  scan_trans P((char* start));
+OP*    scope P((OP* o));
+char*  screaminstr P((SV* bigstr, SV* littlestr));
+I32    setenv_getix P((char* nam));
+char*  skipspace P((char* s));
+CV*    sv_2cv P((SV* sv, HV** st, GV** gvp, I32 lref));
+I32    sv_2iv P((SV* sv));
+SV*    sv_2mortal P((SV* sv));
+double sv_2nv P((SV* sv));
+char*  sv_2pv P((SV* sv));
+char*  sv_append_till P((SV* sv, char* from, char* fromend, I32 delim, char* keeplist));
+int    sv_backoff P((SV* sv));
+void   sv_catpv P((SV* sv, char* ptr));
+void   sv_catpvn P((SV* sv, char* ptr, STRLEN len));
+void   sv_catsv P((SV* dstr, SV* sstr));
+void   sv_chop P((SV* sv, char* ptr));
+void   sv_clear P((SV* sv));
+I32    sv_cmp P((SV* str1, SV* str2));
+void   sv_dec P((SV* sv));
+I32    sv_eq P((SV* str1, SV* str2));
+void   sv_free P((SV* sv));
+char*  sv_gets P((SV* sv, FILE* fp, I32 append));
+#ifndef DOSISH
+char*  sv_grow P((SV* sv, I32 newlen));
+#else
+char*  sv_grow P((SV* sv, unsigned long newlen));
+#endif
+void   sv_inc P((SV* sv));
+void   sv_insert P((SV* bigstr, STRLEN offset, STRLEN len, char* little, STRLEN littlelen));
+SV*    sv_interp P((SV* sv, SV* src, I32 sp));
+void   sv_intrpcompile P((SV* src));
+STRLEN sv_len P((SV* sv));
+void   sv_magic P((SV* sv, SV* obj, char how, char* name, STRLEN namlen));
+SV*    sv_mortalcopy P((SV* oldstr));
+SV*    sv_ref P((SV* sv));
+void   sv_replace P((SV* sv, SV* nstr));
+void   sv_reset P((char* s, HV* stash));
+void   sv_setiv P((SV* sv, I32 num));
+void   sv_setnv P((SV* sv, double num));
+void   sv_setpv P((SV* sv, char* ptr));
+void   sv_setpvn P((SV* sv, char* ptr, STRLEN len));
+void   sv_setsv P((SV* dstr, SV* sstr));
+void   taint_env P((void));
+void   taint_proper P((char* f, char* s));
+I32    uni P((I32 f, char* s));
+I32    unlnk P((char* f));
+I32    userinit P((void));
+I32    wait4pid P((int pid, int* statusp, int flags));
+void   warn P((va_alist));
+I32    whichsig P((char* sig));
+void   while_io P((OP* cmd));
+OP*    wopt P((OP* cmd));
+int    yyerror P((char* s));
+int    yylex P((void));
+int    yyparse P((void));