diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 1999-08-28 23:02:11 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-29 11:10:33 +0000 |
| commit | e3afc8c460cec8a7ae996e94702d6f184cb6dcf6 (patch) | |
| tree | a3be55423863d0b8aa13316472ce65fd1007390f /perly.fixer | |
| parent | bf843f9eb51f4046aa473751ff0989b50b8f08fb (diff) | |
| download | perl-e3afc8c460cec8a7ae996e94702d6f184cb6dcf6.tar.gz | |
sub : attrlist
To: Mailing list Perl5 <perl5-porters@perl.org>
Message-Id: <199908290702.DAA32191@Orb.Nashua.NH.US>
p4raw-id: //depot/cfgperl@4043
Diffstat (limited to 'perly.fixer')
| -rwxr-xr-x | perly.fixer | 23 |
1 files changed, 21 insertions, 2 deletions
diff --git a/perly.fixer b/perly.fixer index afe1a383cf..daa558e84e 100755 --- a/perly.fixer +++ b/perly.fixer @@ -21,15 +21,34 @@ tmp=/tmp/f$$ if grep 'yaccpar 1.8 (Berkeley)' $input >/dev/null 2>&1; then cp $input $output + # Don't expect the diff to do everything -- do some by hand if test -f perly_c.diff; then patch -F3 $output <perly_c.diff + sed -e '/^[ ]*printf("yydebug:/s/printf(/PerlIO_printf(Perl_debug_log, /' \ + -e '/^#line /s/"y[.]tab[.]c"/"perly.c"/' \ + -e '/\[\] *= *[{]/s/^/static /' \ + -e '/^static static/s/^static //' \ + -e '/^#define.WORD/,/^#define.ARROW/d' \ + -e '/^int.yydebug/,/^#define.yystacksize/d' \ + < $output > $tmp && mv -f $tmp $output || exit 1 rm -rf $input + echo "If you need to debug perly.c, you need to fix up the #line" + echo "directives yourself." fi exit elif grep 'yaccpar 1.9 (Berkeley)' $input >/dev/null 2>&1; then if test -f perly.c.dif9; then patch -F3 $output <perly.c.dif9 + sed -e '/^[ ]*printf("yydebug:/s/printf(/PerlIO_printf(Perl_debug_log, /' \ + -e '/^#line /s/"y[.]tab[.]c"/"perly.c"/' \ + -e '/\[\] *= *[{]/s/^/static /' \ + -e '/^static static/s/^static //' \ + -e '/^#define.WORD/,/^#define.ARROW/d' \ + -e '/^int.yydebug/,/^#define.yystacksize/d' \ + < $output > $tmp && mv -f $tmp $output || exit 1 rm -rf $input + echo "If you need to debug perly.c, you need to fix up the #line" + echo "directives yourself." exit 0 else echo "Diffs from byacc-1.9 are not available." @@ -90,7 +109,7 @@ case "$plan" in # Also added are out of memory checks (makes porting the generated # code easier) For most systems, it can't hurt. -- TD "bsd43") - echo "Attempting to path perly.c to allow dynamic yacc stack allocation" + echo "Attempting to patch perly.c to allow dynamic yacc stack allocation" echo "Assuming bsd4.3 yaccpar" cat >$tmp <<'END' /YYSTYPE[ ]*yyv\[ *YYMAXDEPTH *\];/c\ @@ -145,7 +164,7 @@ END ####################################################### "isc") # Interactive Systems 2.2 version - echo "Attempting to path perly.c to allow dynamic yacc stack allocation" + echo "Attempting to patch perly.c to allow dynamic yacc stack allocation" echo "Assuming Interactive SysVr3 2.2 yaccpar" # Easier to simply put whole script here than to modify the # bsd script with sed. |