1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
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
rc = 'rc.exe'
true = 'true.exe'
ls = 'dir /b'
end
otherwise do
rc = 'rc'
true = 'true'
ls = 'ls'
end
end
if stream(rc,'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 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:
|
