home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 3
/
Merciful_Release_3.bin
/
software
/
f
/
flmv2.31regestered.lha
/
FLM2.31
/
Benchmark
/
light_buf1.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-08-06
|
1KB
|
86 lines
/*
********************************
*** FLM benchmark script #1 ***
********************************
*/
initiation=run "/FLM"
konfig="FLM:Benchmark/light_buf.config"
zeichenfolge1='Das ist der 1. FLM Geschwindigkeits Test.'
zeichenfolge2='This is the 1. FLM speed test.'
Options Results
IF ~show('P','FLM') THEN DO
ADDRESS COMMAND initiation
ADDRESS COMMAND "SYS:RexxC/WaitForPort FLM"
END
say "Testing benchmark script #1 !!!"
address FLM
LOAD konfig
VERSION
say RESULT
t1=Time(Seconds)
do m=1 to 3 /* für jeden Suchmodus */
IF m=1 THEN SETMODE "=="
IF m=2 THEN SETMODE "IN"
IF m=3 THEN SETMODE "#?"
do k=1 to 5 /* Pseudo-Endlosschleife */
setlanguage deutsch
do i=1 to words(zeichenfolge1) /* tue solange Wörter im String */
wort = word(zeichenfolge1,i) /* 1., 2., 3. ... Wort */
lookword wort
found /* gefunden ? */
if result = 0 then
do
wordanz
anz=RESULT
do j=1 to anz
takeword j
end
end
else
do
takefound
end
end
setlanguage englisch
do i=1 to words(zeichenfolge2) /* do as long as there are words in string */
wort = word(zeichenfolge2,i) /* 1., 2., 3. ... word */
lookword wort
found /* Found ? */
if result = 0 then
do
wordanz
anz=RESULT
do j=1 to anz
takeword j
end
end
else
do
takefound
end
end
end
end
t2=Time(Seconds)
say t2-t1 "seconds were needed."
exit /* Script beenden*/