unix/boot/spp/rpp/ratlibr/clower.r


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

include	defs

# clower - change letter to lower case

   character function clower(c)
   character c

   character k

   if (c >= BIGA & c <= BIGZ) {
      k = LETA - BIGA	# avoid integer overflow in byte machines
      clower = c + k
      }
   else
      clower = c

   return
   end