-/* $Header: dump.c,v 3.0 89/10/18 15:11:16 lwall Locked $
+/* $RCSfile: dump.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 10:58:44 $
*
- * Copyright (c) 1989, Larry Wall
+ * Copyright (c) 1991, Larry Wall
*
- * You may distribute under the terms of the GNU General Public License
- * as specified in the README file that comes with the perl 3.0 kit.
+ * You may distribute under the terms of either the GNU General Public
+ * License or the Artistic License, as specified in the README file.
*
* $Log: dump.c,v $
- * Revision 3.0 89/10/18 15:11:16 lwall
- * 3.0 baseline
+ * Revision 4.0.1.1 91/06/07 10:58:44 lwall
+ * patch4: new copyright notice
+ *
+ * Revision 4.0 91/03/20 01:08:25 lwall
+ * 4.0 baseline.
*
*/
register int i;
register STAB *stab;
register HENT *entry;
+ STR *str = str_mortal(&str_undef);
dump_cmd(main_root,Nullcmd);
for (i = 0; i <= 127; i++) {
for (entry = defstash->tbl_array[i]; entry; entry = entry->hent_next) {
stab = (STAB*)entry->hent_val;
if (stab_sub(stab)) {
- dump("\nSUB %s = ", stab_name(stab));
+ stab_fullname(str,stab);
+ dump("\nSUB %s = ", str->str_ptr);
dump_cmd(stab_sub(stab)->cmd,Nullcmd);
}
}
}
switch (arg[i].arg_type & A_MASK) {
case A_NULL:
+ if (arg->arg_type == O_TRANS) {
+ short *tbl = (short*)arg[2].arg_ptr.arg_cval;
+ int i;
+
+ for (i = 0; i < 256; i++) {
+ if (tbl[i] >= 0)
+ dump(" %d -> %d\n", i, tbl[i]);
+ else if (tbl[i] == -2)
+ dump(" %d -> DELETE\n", i);
+ }
+ }
break;
case A_LEXPR:
case A_EXPR:
dump_flags(b,flags)
char *b;
-unsigned flags;
+unsigned int flags;
{
*b = '\0';
if (flags & AF_ARYOK)
(void)strcat(b,"UP,");
if (flags & AF_COMMON)
(void)strcat(b,"COMMON,");
- if (flags & AF_UNUSED)
- (void)strcat(b,"UNUSED,");
+ if (flags & AF_DEPR)
+ (void)strcat(b,"DEPR,");
if (flags & AF_LISTISH)
(void)strcat(b,"LISTISH,");
if (flags & AF_LOCAL)
dump_stab(stab)
register STAB *stab;
{
+ STR *str;
+
if (!stab) {
fprintf(stderr,"{}\n");
return;
}
+ str = str_mortal(&str_undef);
dumplvl++;
fprintf(stderr,"{\n");
- dump("STAB_NAME = %s\n",stab_name(stab));
+ stab_fullname(str,stab);
+ dump("STAB_NAME = %s\n", str->str_ptr);
dumplvl--;
dump("}\n");
}