0050-bc.sh - sbase - suckless unix tools
  HTML git clone git://git.suckless.org/sbase
   DIR Log
   DIR Files
   DIR Refs
   DIR README
   DIR 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