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


1
2
3
4
5
6
7
8
9
10
11
12

include	defs

# getpat - convert str into pattern

   integer function getpat (str, pat)
   character str (ARB), pat (ARB)

   integer makpat

   return (makpat (str, 1, EOS, pat))

   end