parse arg type .
options FIND_BIF
parse value uname() with sysname . version .
if sysname=='SunOS' & version<5 then do   /* works until SunOS 10.x */
   'csh -c "limit descriptors" >LIFO'
   descr = 0 
   if queued()>=1 then 
      parse pull . descr .
   if descr > 128 then do
      say 'The limit of open file descriptors per process is set to a value'
      say 'greater than 128. For SunOS versions less than 5.x, this will not'
      say 'work, due to a bug in the operating system. In order to fix this'
      say 'execute something like:'
      say ''
      say '   limit descriptors 128            /* for c-shell users */'
      say '   ulimit -n 128                    /* for bash users */'
      say ''
      say 'Do this in the shell before you start the trip test.'
      say 'If you fail to correct this problem, the trip test is doomed to'
      say 'crash at several locations.'
      end
   end

if  stream('rc','c','query exists') = '' then do
    say 'You must compile rc.c first'
    exit 1
    end

files = 'ls'( '../trip/*.rexx')

do while files \= ''
   parse var files file files
/*   parse var file '../trip/' file */
   say center(' 'file' ',72,'=')
   interpret "junk = '"file"'()" 
/*   if files\='' & type='' then
      junk = '../trip/testing'( 'norecurse' )  */
   end

exit


SunOS_warning:
   
