usr.bin/sed/TEST/math.sed

   1 #
   2 #       from: @(#)math.sed      8.1 (Berkeley) 6/6/93
   3 #       $NetBSD$
   4 #
   5 # Addition and multiplication in sed.
   6 # ++ for a limited time only do (expr) too!!!
   7 #
   8 # Kevin S Braunsdorf, PUCC UNIX Group, ksb@cc.purdue.edu.
   9 #
  10 # Ex:
  11 #       echo "4+7*3" | sed -f %f
  12
  13 # make sure the expression is well formed
  14 s/[     ]//g
  15 /[+*\/-]$/{
  16         a\
  17         poorly formed expression, operator on the end
  18         q
  19 }
  20 /^[+*\/]/{
  21         a\
  22         poorly formed expression, leading operator
  23         q
  24 }
  25
  26 # fill hold space with done token
  27 x
  28 s/^.*/done/
  29 x
  30
  31 # main loop, process operators (*, + and () )
  32 : loop
  33 /^\+/{
  34         s///
  35         b loop
  36 }
  37 /^\(.*\)(\([^)]*\))\(.*\)$/{
  38         H
  39         s//\2/
  40         x
  41         s/^\(.*\)\n\(.*\)(\([^()]*\))\(.*\)$/()\2@\4@\1/
  42         x
  43         b loop
  44 }
  45 /^[0-9]*\*/b mul
  46 /^\([0-9]*\)\+\([0-9+*]*\*[0-9]*\)$/{
  47         s//\2+\1/
  48         b loop
  49 }
  50 /^[0-9]*\+/{
  51         s/$/=/
  52         b add
  53 }
  54 x
  55 /^done$/{
  56         x
  57         p
  58         d
  59 }
  60 /^()/{
  61         s///
  62         x
  63         G
  64         s/\(.*\)\n\([^@]*\)@\([^@]*\)@\(.*\)/\2\1\3/
  65         x
  66         s/[^@]*@[^@]*@\(.*\)/\1/
  67         x
  68         b loop
  69 }
  70 i\
  71 help, stack problem
  72 p
  73 x
  74 p
  75 q
  76
  77 # turn mul into add until 1*x -> x
  78 : mul
  79 /^0*1\*/{
  80         s///
  81         b loop
  82 }
  83 /^\([0-9]*\)0\*/{
  84         s/^\([0-9]*\)0\*\([0-9]*\)/\1*\20/
  85         b mul
  86 }
  87 s/^\([0-9]*\)1\*/\10*/
  88 s/^\([0-9]*\)2\*/\11*/
  89 s/^\([0-9]*\)3\*/\12*/
  90 s/^\([0-9]*\)4\*/\13*/
  91 s/^\([0-9]*\)5\*/\14*/
  92 s/^\([0-9]*\)6\*/\15*/
  93 s/^\([0-9]*\)7\*/\16*/
  94 s/^\([0-9]*\)8\*/\17*/
  95 s/^\([0-9]*\)9\*/\18*/
  96 s/\*\([0-9*]*\)/*\1+\1/
  97 b mul
  98
  99 # get rid of a plus term until 0+x -> x
 100 : add
 101 /^\+\([0-9+*]*\)=/{
 102         s//\1/
 103         b loop
 104 }
 105 /^\([0-9*]*\)\+=/{
 106         s//\1/
 107         b loop
 108 }
 109 /^\([0-9]*\)\+\([0-9*+]*\)\+=/{
 110         s//\2+\1/
 111         b loop
 112 }
 113 /^\([0-9]*\)0\+\([0-9]*\)\([0-9]\)=/{
 114         s//\1+\2=\3/
 115         b add
 116 }
 117 /^\([0-9]*\)\([0-9]\)\+\([0-9]*\)0=/{
 118         s//\1+\3=\2/
 119         b add
 120 }
 121 /^\([0-9]*\)0\+\([0-9*+]*\)\+\([0-9]*\)\([0-9]\)=/{
 122         s//\1+\2+\3=\4/
 123         b add
 124 }
 125 /^\([0-9]*\)\([0-9]\)\+\([0-9*+]*\)\+\([0-9]*\)0=/{
 126         s//\1+\3+\4=\2/
 127         b add
 128 }
 129 s/^\([0-9]*\)1\+/\10+/
 130 s/^\([0-9]*\)2\+/\11+/
 131 s/^\([0-9]*\)3\+/\12+/
 132 s/^\([0-9]*\)4\+/\13+/
 133 s/^\([0-9]*\)5\+/\14+/
 134 s/^\([0-9]*\)6\+/\15+/
 135 s/^\([0-9]*\)7\+/\16+/
 136 s/^\([0-9]*\)8\+/\17+/
 137 s/^\([0-9]*\)9\+/\18+/
 138
 139 s/9=\([0-9]*\)$/_=\1/
 140 s/8=\([0-9]*\)$/9=\1/
 141 s/7=\([0-9]*\)$/8=\1/
 142 s/6=\([0-9]*\)$/7=\1/
 143 s/5=\([0-9]*\)$/6=\1/
 144 s/4=\([0-9]*\)$/5=\1/
 145 s/3=\([0-9]*\)$/4=\1/
 146 s/2=\([0-9]*\)$/3=\1/
 147 s/1=\([0-9]*\)$/2=\1/
 148 /_/{
 149         s//_0/
 150         : inc
 151         s/9_/_0/
 152         s/8_/9/
 153         s/7_/8/
 154         s/6_/7/
 155         s/5_/6/
 156         s/4_/5/
 157         s/3_/4/
 158         s/2_/3/
 159         s/1_/2/
 160         s/0_/1/
 161         s/\+_/+1/
 162         /_/b inc
 163 }
 164 b add