sbase

suckless unix tools
git clone git://git.suckless.org/sbase
Log | Files | Refs | README | LICENSE

0050-bc.sh (309B)

      1 #!/bin/sh
      2 
      3 tmp=$$.tmp
      4 
      5 trap 'rm -f $tmp' EXIT
      6 trap 'exit $?' HUP INT TERM
      7 
      8 cat <<'EOF' > $tmp
      9 par=1
     10 inc=4
     11 EOF
     12 
     13 $EXEC ../bc -sp ../dc <<'EOF' | diff -u - $tmp
     14 define alpha(par, inc) {
     15 	auto cnt
     16 
     17 	par = par + 1
     18 	cnt = par + inc
     19 	return (cnt)
     20 }
     21 
     22 par = 1
     23 inc = alpha(par, 2)
     24 print "par=",par
     25 print "inc=",inc
     26 EOF