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


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

include	defs

# insub - determine if argument is STDIN substitution

   integer function insub (arg, file)
   character arg (ARB), file (ARB)

   if (arg (1) == LESS & arg (2) != EOS) {
      insub = YES
      call scopy (arg, 2, file, 1)
      }
   else
      insub = NO

   return
   end