perly.fixer

   1 #!/bin/sh
   2
   3 #  Hacks to make it work with Interactive's SysVr3 Version 2.2
   4 #   doughera@lafvax.lafayette.edu (Andy Dougherty)   3/23/91
   5 #
   6 # Additional information to make the BSD section work with SunOS 4.0.2
   7 #   tdinger@East.Sun.COM (Tom Dinger)   4/15/1991
   8
   9 input=$1
  10 output=$2
  11 tmp=/tmp/f$$
  12
  13 plan="unknown"
  14
  15 #  Test for BSD 4.3 version.
  16 #  Also tests for the SunOS 4.0.2 version
  17 egrep 'YYSTYPE[         ]*yyv\[ *YYMAXDEPTH *\];
  18 short[  ]*yys\[ *YYMAXDEPTH *\] *;
  19 yyps *= *&yys\[ *-1 *\];
  20 yypv *= *&yyv\[ *-1 *\];
  21 if *\( *\+\+yyps *>=* *&yys\[ *YYMAXDEPTH *\] *\)' $input >$tmp
  22
  23 set `wc -l $tmp`
  24 if test "$1" = "5"; then
  25       plan="bsd43"
  26 fi
  27
  28 if test "$plan" = "unknown"; then
  29     #   Test for ISC 2.2 version.
  30 egrep 'YYSTYPE[         ]*yyv\[ *YYMAXDEPTH *\];
  31 int[    ]*yys\[ *YYMAXDEPTH *\] *;
  32 yyps *= *&yys\[ *-1 *\];
  33 yypv *= *&yyv\[ *-1 *\];
  34 if *\( *\+\+yy_ps *>= *&yys\[ *YYMAXDEPTH *\] *\)' $input >$tmp
  35
  36     set `wc -l $tmp`
  37     if test "$1" = "5"; then
  38         plan="isc"
  39     fi
  40 fi
  41
  42 case "$plan" in
  43     ##################################################################
  44     # The SunOS 4.0.2 version has the comparison fixed already.
  45     # Also added are out of memory checks (makes porting the generated
  46     # code easier) For most systems, it can't hurt. -- TD
  47     "bsd43")
  48         echo "Patching perly.c to allow dynamic yacc stack allocation"
  49         echo "Assuming bsd4.3 yaccpar"
  50         cat >$tmp <<'END'
  51 /YYSTYPE[       ]*yyv\[ *YYMAXDEPTH *\];/c\
  52 int yymaxdepth = YYMAXDEPTH;\
  53 YYSTYPE *yyv; /* where the values are stored */\
  54 short *yys;\
  55 short *maxyyps;
  56
  57 /short[         ]*yys\[ *YYMAXDEPTH *\] *;/d
  58
  59 /yyps *= *&yys\[ *-1 *\];/d
  60
  61 /yypv *= *&yyv\[ *-1 *\];/c\
  62 \       if (!yyv) {\
  63 \           yyv = (YYSTYPE*) malloc(yymaxdepth * sizeof(YYSTYPE));\
  64 \           yys = (short*) malloc(yymaxdepth * sizeof(short));\
  65 \           if ( !yyv || !yys ) {\
  66 \               yyerror( "out of memory" );\
  67 \               return(1);\
  68 \           }\
  69 \           maxyyps = &yys[yymaxdepth];\
  70 \       }\
  71 \       yyps = &yys[-1];\
  72 \       yypv = &yyv[-1];
  73
  74
  75 /if *( *\+\+yyps *>=* *&yys\[ *YYMAXDEPTH *\] *)/c\
  76 \               if( ++yyps >= maxyyps ) {\
  77 \                   int tv = yypv - yyv;\
  78 \                   int ts = yyps - yys;\
  79 \
  80 \                   yymaxdepth *= 2;\
  81 \                   yyv = (YYSTYPE*)realloc((char*)yyv,\
  82 \                     yymaxdepth*sizeof(YYSTYPE));\
  83 \                   yys = (short*)realloc((char*)yys,\
  84 \                     yymaxdepth*sizeof(short));\
  85 \                   if ( !yyv || !yys ) {\
  86 \                       yyerror( "yacc stack overflow" );\
  87 \                       return(1);\
  88 \                   }\
  89 \                   yyps = yys + ts;\
  90 \                   yypv = yyv + tv;\
  91 \                   maxyyps = &yys[yymaxdepth];\
  92 \               }
  93
  94 /yacc stack overflow.*}/d
  95 /yacc stack overflow/,/}/d
  96 END
  97         sed -f $tmp <$input >$output ;;
  98
  99     #######################################################
 100     "isc") # Interactive Systems 2.2  version
 101         echo "Patching perly.c to allow dynamic yacc stack allocation"
 102         echo "Assuming Interactive SysVr3 2.2 yaccpar"
 103         # Easier to simply put whole script here than to modify the
 104         # bsd script with sed.
 105         # Main changes:  yaccpar sometimes uses yy_ps and yy_pv
 106         # which are local register variables.
 107         #  if(++yyps > YYMAXDEPTH) had opening brace on next line.
 108         # I've kept that brace in along with a call to yyerror if
 109         # realloc fails. (Actually, I just don't know how to do
 110         # multi-line matches in sed.)
 111         cat > $tmp << 'END'
 112 /YYSTYPE[       ]*yyv\[ *YYMAXDEPTH *\];/c\
 113 int yymaxdepth = YYMAXDEPTH;\
 114 YYSTYPE *yyv; /* where the values are stored */\
 115 int *yys;\
 116 int *maxyyps;
 117
 118 /int[   ]*yys\[ *YYMAXDEPTH *\] *;/d
 119
 120 /yyps *= *&yys\[ *-1 *\];/d
 121
 122 /yypv *= *&yyv\[ *-1 *\];/c\
 123 \       if (!yyv) {\
 124 \           yyv = (YYSTYPE*) malloc(yymaxdepth * sizeof(YYSTYPE));\
 125 \           yys = (int*) malloc(yymaxdepth * sizeof(int));\
 126 \           maxyyps = &yys[yymaxdepth];\
 127 \       }\
 128 \       yyps = &yys[-1];\
 129 \       yypv = &yyv[-1];
 130
 131 /if *( *\+\+yy_ps *>= *&yys\[ *YYMAXDEPTH *\] *)/c\
 132 \               if( ++yy_ps >= maxyyps ) {\
 133 \                   int tv = yy_pv - yyv;\
 134 \                   int ts = yy_ps - yys;\
 135 \
 136 \                   yymaxdepth *= 2;\
 137 \                   yyv = (YYSTYPE*)realloc((char*)yyv,\
 138 \                     yymaxdepth*sizeof(YYSTYPE));\
 139 \                   yys = (int*)realloc((char*)yys,\
 140 \                     yymaxdepth*sizeof(int));\
 141 \                   yy_ps = yyps = yys + ts;\
 142 \                   yy_pv = yypv = yyv + tv;\
 143 \                   maxyyps = &yys[yymaxdepth];\
 144 \               }\
 145 \               if (yyv == NULL || yys == NULL)
 146 END
 147         sed -f $tmp < $input > $output ;;
 148
 149     ######################################################
 150     # Plan still unknown
 151     *) sed -e 's/Received token/ *** Received token/' $input >$output;
 152 esac
 153
 154 rm -rf $tmp $input