diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1988-01-27 22:18:25 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1988-01-27 22:18:25 +0000 |
| commit | a559c25918b1466cdb50c9f978a86f01be0bac10 (patch) | |
| tree | ffbe6c7bc07144d291a61555d002e7969110f248 /stab.c | |
| parent | a1cc2bdc08f9aa1504f32e5b0b782c2b3cffd124 (diff) | |
| download | perl-a559c25918b1466cdb50c9f978a86f01be0bac10.tar.gz | |
perl 1.0 patch 8: perl needed an eval operator and a symbolic debugger
I didn't add an eval operator to the original perl because
I hadn't thought of any good uses for it. Recently I thought
of some. Along with creating the eval operator, this patch
introduces a symbolic debugger for perl scripts, which makes
use of eval to interpret some debugging commands. Having eval
also lets me emulate awk's FOO=bar command line behavior with
a line such as the one a2p now inserts at the beginning of
translated scripts.
Diffstat (limited to 'stab.c')
| -rw-r--r-- | stab.c | 11 |
1 files changed, 7 insertions, 4 deletions
@@ -1,6 +1,9 @@ -/* $Header: stab.c,v 1.0 87/12/18 13:06:14 root Exp $ +/* $Header: stab.c,v 1.0.1.1 88/01/28 10:35:17 root Exp $ * * $Log: stab.c,v $ + * Revision 1.0.1.1 88/01/28 10:35:17 root + * patch8: changed some stabents to support eval operator. + * * Revision 1.0 87/12/18 13:06:14 root * Initial revision * @@ -169,12 +172,12 @@ STR *str; case '^': safefree(curoutstab->stab_io->top_name); curoutstab->stab_io->top_name = str_get(str); - curoutstab->stab_io->top_stab = stabent(str_get(str),FALSE); + curoutstab->stab_io->top_stab = stabent(str_get(str),TRUE); break; case '~': safefree(curoutstab->stab_io->fmt_name); curoutstab->stab_io->fmt_name = str_get(str); - curoutstab->stab_io->fmt_stab = stabent(str_get(str),FALSE); + curoutstab->stab_io->fmt_stab = stabent(str_get(str),TRUE); break; case '=': curoutstab->stab_io->page_len = (long)str_gnum(str); @@ -274,7 +277,7 @@ int sig; ARRAY *savearray; STR *str; - stab = stabent(str_get(hfetch(sigstab->stab_hash,sig_name[sig])),FALSE); + stab = stabent(str_get(hfetch(sigstab->stab_hash,sig_name[sig])),TRUE); savearray = defstab->stab_array; defstab->stab_array = anew(); str = str_new(0); |