contrib/bc/tests/bc/scripts/globals.bc

   1 #! /usr/bin/bc -gq
   2
   3 if (!global_stacks()) {
   4         sqrt(-1)
   5 }
   6
   7 define i(x) {
   8         ibase=x
   9         return ibase
  10 }
  11
  12 define o(x) {
  13         obase=x
  14         return obase
  15 }
  16
  17 define r(x) {
  18         scale=x
  19         return scale
  20 }
  21
  22 i(11)
  23 ibase
  24 o(12)
  25 obase
  26 r(15)
  27 scale