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


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

include	defs

# addset - put c in string (j) if it fits, increment j

   integer function addset (c, str, j, maxsiz)
   integer j, maxsiz
   character c, str (maxsiz)

   if (j > maxsiz)
      addset = NO
   else {
      str(j) = c
      j = j + 1
      addset = YES
      }

   return
   end