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

parse version ver
say center(' Testing 'ver' ',72,'=')

parse source os .
select
  when os = 'OS/2' | os = 'WIN32' | os = 'DOS' then do
     rcname = 'rc.exe'
     true = 'true.exe'
     files = 'dir'( '/b *.rexx' )
     one = '1.exe'
     end
  when os = 'AMIGA' | os = 'AROS' then do
     rcname = 'rc'
     true = 'true'
     files = 'list'( '#?.rexx lformat "%N" nohead' )
     end
  otherwise do
     rcname = 'rc'
     true = 'true'
     files = 'ls'( '*.rexx' )
     one = 'true'
     end
end

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

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

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

if ls = 'ls' then files = 'ls'( '*.rexx' )
else files = 'dir'( '/b *.rexx' )

do while files \= ''
   parse var files file files
   say center(' 'file' ',72,'=')
   interpret "junk = '"file"'()"
   end

exit


SunOS_warning:

