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

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