perly.fixer

   1 #!/bin/sh
   2
   3 # Fix up yacc output to allow dynamic allocation.  Since perly.c
   4 # is now provided with the perl source, this should not be necessary.
   5 #
   6 # However, if the user wishes to use byacc, or wishes to try another
   7 # compiler compiler (e.g. bison or yacc), this script will get run.
   8 #
   9 # Currently, only byacc version 1.8 is supported.
  10 #
  11 #  Hacks to make it work with Interactive's SysVr3 Version 2.2
  12 #   doughera@lafvax.lafayette.edu (Andy Dougherty)   3/23/91
  13 #
  14 # Additional information to make the BSD section work with SunOS 4.0.2
  15 #   tdinger@East.Sun.COM (Tom Dinger)   4/15/1991
  16
  17 input=$1
  18 output=$2
  19 tmp=/tmp/f$$
  20
  21 if grep 'yaccpar 1.8 (Berkeley)' $input >/dev/null 2>&1; then
  22     cp $input $output
  23     if test -f perly.c.diff; then
  24         patch -F3 $output <perly.c.diff
  25         rm -rf $input
  26     fi
  27     exit
  28 elif grep 'yaccpar      1.9 (Berkeley)' $input >/dev/null 2>&1; then
  29     if test -f perly.c.dif9; then
  30         patch -F3 $output <perly.c.dif9
  31         rm -rf $input
  32         exit 0
  33     else
  34         echo "Diffs from byacc-1.9 are not available."
  35         echo "If you wish to proceed anyway, do"
  36         echo "cp $input $output"
  37         echo "cp y.tab.h perly.h"
  38         echo "and re-run make. Otherwise, I will use the old perly.c"
  39         touch perly.c
  40         # Exit with error status to stop make.
  41         exit 1
  42     fi
  43 fi
  44
  45 plan="unknown"
  46
  47 # Below, we check for various yaccpar outputs.
  48
  49 #  Test for BSD 4.3 version.
  50 #  Also tests for the SunOS 4.0.2 version
  51 egrep 'YYSTYPE[         ]*yyv\[ *YYMAXDEPTH *\];
  52 short[  ]*yys\[ *YYMAXDEPTH *\] *;
  53 yyps *= *&yys\[ *-1 *\];
  54 yypv *= *&yyv\[ *-1 *\];
  55 if *\( *\+\+yyps *>=* *&yys\[ *YYMAXDEPTH *\] *\)' $input >$tmp 2>/dev/null
  56
  57 set `wc -l $tmp`
  58 if test "$1" = "5"; then
  59       plan="bsd43"
  60 fi
  61
  62 if test "$plan" = "unknown"; then
  63     #   Test for ISC 2.2 version (probably generic SysVr3).
  64 egrep 'YYSTYPE[         ]*yyv\[ *YYMAXDEPTH *\];
  65 int[    ]*yys\[ *YYMAXDEPTH *\] *;
  66 yyps *= *&yys\[ *-1 *\];
  67 yypv *= *&yyv\[ *-1 *\];
  68 if *\( *\+\+yy_ps *>= *&yys\[ *YYMAXDEPTH *\] *\)' $input >$tmp 2>/dev/null
  69
  70     set `wc -l $tmp`
  71     if test "$1" = "5"; then
  72         plan="isc"
  73     fi
  74 fi
  75
  76 case "$plan" in
  77     ##################################################################
  78     # The SunOS 4.0.2 version has the comparison fixed already.
  79     # Also added are out of memory checks (makes porting the generated
  80     # code easier) For most systems, it can't hurt. -- TD
  81     "bsd43")
  82         echo "Patching perly.c to allow dynamic yacc stack allocation"
  83         echo "Assuming bsd4.3 yaccpar"
  84         cat >$tmp <<'END'
  85 /YYSTYPE[       ]*yyv\[ *YYMAXDEPTH *\];/c\
  86 int yymaxdepth = YYMAXDEPTH;\
  87 YYSTYPE *yyv; /* where the values are stored */\
  88 short *yys;\
  89 short *maxyyps;
  90
  91 /short[         ]*yys\[ *YYMAXDEPTH *\] *;/d
  92
  93 /yyps *= *&yys\[ *-1 *\];/d
  94
  95 /yypv *= *&yyv\[ *-1 *\];/c\
  96 \       if (!yyv) {\
  97 \           yyv = (YYSTYPE*) safemalloc(yymaxdepth * sizeof(YYSTYPE));\
  98 \           yys = (short*) safemalloc(yymaxdepth * sizeof(short));\
  99 \           if ( !yyv || !yys ) {\
 100 \               yyerror( "out of memory" );\
 101 \               return(1);\
 102 \           }\
 103 \           maxyyps = &yys[yymaxdepth];\
 104 \       }\
 105 \       yyps = &yys[-1];\
 106 \       yypv = &yyv[-1];
 107
 108
 109 /if *( *\+\+yyps *>=* *&yys\[ *YYMAXDEPTH *\] *)/c\
 110 \               if( ++yyps >= maxyyps ) {\
 111 \                   int tv = yypv - yyv;\
 112 \                   int ts = yyps - yys;\
 113 \
 114 \                   yymaxdepth *= 2;\
 115 \                   yyv = (YYSTYPE*)realloc((char*)yyv,\
 116 \                     yymaxdepth*sizeof(YYSTYPE));\
 117 \                   yys = (short*)realloc((char*)yys,\
 118 \                     yymaxdepth*sizeof(short));\
 119 \                   if ( !yyv || !yys ) {\
 120 \                       yyerror( "yacc stack overflow" );\
 121 \                       return(1);\
 122 \                   }\
 123 \                   yyps = yys + ts;\
 124 \                   yypv = yyv + tv;\
 125 \                   maxyyps = &yys[yymaxdepth];\
 126 \               }
 127
 128 /yacc stack overflow.*}/d
 129 /yacc stack overflow/,/}/d
 130 END
 131         sed -f $tmp <$input >$output ;;
 132
 133     #######################################################
 134     "isc") # Interactive Systems 2.2  version
 135         echo "Patching perly.c to allow dynamic yacc stack allocation"
 136         echo "Assuming Interactive SysVr3 2.2 yaccpar"
 137         # Easier to simply put whole script here than to modify the
 138         # bsd script with sed.
 139         # Main changes:  yaccpar sometimes uses yy_ps and yy_pv
 140         # which are local register variables.
 141         #  if(++yyps > YYMAXDEPTH) had opening brace on next line.
 142         # I've kept that brace in along with a call to yyerror if
 143         # realloc fails. (Actually, I just don't know how to do
 144         # multi-line matches in sed.)
 145         cat > $tmp << 'END'
 146 /YYSTYPE[       ]*yyv\[ *YYMAXDEPTH *\];/c\
 147 int yymaxdepth = YYMAXDEPTH;\
 148 YYSTYPE *yyv; /* where the values are stored */\
 149 int *yys;\
 150 int *maxyyps;
 151
 152 /int[   ]*yys\[ *YYMAXDEPTH *\] *;/d
 153
 154 /yyps *= *&yys\[ *-1 *\];/d
 155
 156 /yypv *= *&yyv\[ *-1 *\];/c\
 157 \       if (!yyv) {\
 158 \           yyv = (YYSTYPE*) safemalloc(yymaxdepth * sizeof(YYSTYPE));\
 159 \           yys = (int*) safemalloc(yymaxdepth * sizeof(int));\
 160 \           maxyyps = &yys[yymaxdepth];\
 161 \       }\
 162 \       yyps = &yys[-1];\
 163 \       yypv = &yyv[-1];
 164
 165 /if *( *\+\+yy_ps *>= *&yys\[ *YYMAXDEPTH *\] *)/c\
 166 \               if( ++yy_ps >= maxyyps ) {\
 167 \                   int tv = yy_pv - yyv;\
 168 \                   int ts = yy_ps - yys;\
 169 \
 170 \                   yymaxdepth *= 2;\
 171 \                   yyv = (YYSTYPE*)realloc((char*)yyv,\
 172 \                     yymaxdepth*sizeof(YYSTYPE));\
 173 \                   yys = (int*)realloc((char*)yys,\
 174 \                     yymaxdepth*sizeof(int));\
 175 \                   yy_ps = yyps = yys + ts;\
 176 \                   yy_pv = yypv = yyv + tv;\
 177 \                   maxyyps = &yys[yymaxdepth];\
 178 \               }\
 179 \               if (yyv == NULL || yys == NULL)
 180 END
 181         sed -f $tmp < $input > $output ;;
 182
 183     ######################################################
 184     # Plan still unknown
 185     *) sed -e 's/Received token/ *** Received token/' $input >$output;
 186 esac
 187
 188 rm -rf $tmp $input