home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
291.lha
/
DTM_Host
/
htest.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-09-02
|
3KB
|
156 lines
/* htest.rexx */
/* Copyright © 1989 by Donald T. Meyer, Stormgate Software
* All Rights Reserved
*
* Donald T. Meyer
* Stormgate Software
* P.O. Box 383
* St. Peters, MO 63376
*
* BIX: donmeyer (almost daily)
* GEnie: D.MEYER (weekly)
* PLINK: Stormgate (weekly)
*/
if show( 'L', "REPORT_HOST" ) then
call report_host_test()
else
say "Unable to test the report host, it's not running!" '1010'x
if show( 'L', "DTM_HOST" ) then
call dtm_host_test()
else
say "Unable to test the DTM host, it's not running!"
say
say "All done testing the hosts!"
exit 0
/*-----------------------------------------------------------------*/
report_host_test: PROCEDURE
say "------ Testing the report host ------"
call setreport( 1, "GLOBAL" )
do i=1 to 15
call report( 1, "Stormgate " || i )
end
call setreport( 1, "GLOBAL", "Test Program" )
do i=1 to 15
call report( 1, "Mice are nice. " || i )
end
/* call setreport( 1, , "From CLI" ) */
do i=1 to 15
call report( 1, "Amiga " || i )
end
call endreport()
return
/*-----------------------------------------------------------------*/
dtm_host_test: PROCEDURE
say "------ Testing the dtm host ------"
say
call debug( "Doing the dtm_host test now. This message displayed,
via the debug() function!" )
say
say
/* SHORTEN() */
s = "Run with the big dogs, or stay on the porch."
say "Original string: " || s
say "After calling shorten( s, 5 ): " || shorten( s, 5 )
say
say
/* ENDSTRIP() */
s = "Amiga.cbm"
say "Original string: " || s
say "After calling endstrip( s, '.cbm' ): " || endstrip( s, ".cbm" )
say "After calling endstrip( s, '.ibm' ): " || endstrip( s, ".ibm" )
say
say
/* STRIP_TO_FILENAME() */
s = "DF0:Amiga.cbm"
say "Original string: " || s
say "After calling strip_to_filename( s ): " || strip_to_filename( s )
say
s = "DF0:Computers/Amiga.cbm"
say "Original string: " || s
say "After calling strip_to_filename( s ): " || strip_to_filename( s )
say
say
/* TABEXPAND() */
s = "one" || '09'x || "two" || '09'x || "three!"
s1 = "one<tab>two<tab>three!"
say "Original string: " || s1
say "After calling tabexpand( s ): " || tabexpand( s )
say "After calling tabexpand( s, 4 ): " || tabexpand( s, 4 )
say "After calling tabexpand( s, 12 ): " || tabexpand( s, 12 )
say
say
return
/*-----------------------------------------------------------------*/