home *** CD-ROM | disk | FTP | other *** search
/ Mega Top 1 / os2_top1.zip / os2_top1 / APPS / PROG / REXX / REXXTRA / RXEXTRAS.CMD < prev    next >
OS/2 REXX Batch file  |  1993-10-02  |  4KB  |  180 lines
  1. /* RxExtras - test for all functions in RxExtras.DLL */
  2. Address CMD
  3. /* rcy =  RxFuncDrop('RxExtra') */
  4.  
  5. If RxFuncQuery('RxExtra') <> 0 Then
  6.     rcy = RxFuncAdd('RxExtra', 'RxExtras', 'RxExtra')
  7.  
  8. Call RxExtra "Drop" /* Drop everything */
  9. rcy = RxFuncAdd('RxExtra', 'RxExtras', 'RxExtra')
  10. Say 'Using version 'RxExtra("Load")' of RxExtras'
  11.  
  12. Say
  13. Say "Testing RxBootDrive and RxRead..."
  14. Call RxRead 'stem.', RxBootDrive()":"'\CONFIG.SYS'
  15. Say "Your Config.Sys file should now appear"
  16. "@PAUSE"
  17. Do i = 1 to stem.0
  18.    Say stem.i
  19. end /* do */
  20. "@PAUSE"
  21.  
  22. Say
  23. Say "Testing RxBootDrive by itself"
  24. Say 'Your bootdrive is 'RxBootDrive()":"
  25. "@PAUSE"
  26.  
  27. temp.0 = 5
  28. temp.1 = "This is a test file"
  29. temp.2 = "With this ring, I thee bed"
  30. temp.3 = "The worlds smallest handcuff"
  31. temp.4 = "How to win fiends and affluent people"
  32. temp.5 = "### The last line ###"
  33.  
  34. Say
  35. Say "Testing RxWrite by writing 5 lines to \TEMP.DAT"
  36. Call RxWrite "temp.", "\temp.dat"
  37. Say "Here is \TEMP.DAT"
  38. "@type \temp.dat | more"
  39. "@PAUSE"
  40. "@DEL \temp.dat"
  41.  
  42. Say
  43. Say "Testing RxVolumeLabel"
  44. Say "Label of C is "RxVolumeLabel("C")
  45. "@PAUSE"
  46.  
  47. Say
  48. Drop stem.
  49. Drop temp.
  50. temp.1 = 1
  51. temp.testing = "Testing is on" 
  52. temp.2 = 3
  53. temp.testing.1 = "Life be in it"
  54. Say "Testing RxVarDump - dumping all 'local' variables"
  55. Call RxVarDump 'vars.'
  56. Do i = 1 to vars.0
  57.   Say 'Variable Name:"'vars.i.name'" has the value: "'vars.i.value'"'
  58. End
  59. Drop vars.
  60. "@PAUSE"
  61.  
  62. Say
  63. Say "Testing RxStemCopy"
  64. Say "Copy all variables from temp. to temp2."
  65. Say "See RxVarDump above for temp. variables"
  66.  
  67. Call RxStemCopy "temp.", "temp2."
  68.  
  69. Say "Now we have..."
  70. Call RxVarDump 'vars.'
  71. Do i = 1 to vars.0
  72.   Say 'Variable Name:"'vars.i.name'" has the value: "'vars.i.value'"'
  73. End
  74. Drop vars.
  75. "@PAUSE"
  76.  
  77. Say
  78. Say "Testing RxSort"
  79. temp.0 = 16
  80. temp.1 = "This is a list"
  81. temp.2 = "a List should be sorted"
  82. temp.3 = "upper and Lowercase"
  83. temp.4 = "$trange"
  84. temp.5 = "#unny"
  85. temp.6 = "@nd unusual"
  86. temp.7 = "12345"
  87. temp.8 = "123456"
  88. temp.9 = "One isthe 9"
  89. temp.10 = "Ten green bottles 10"
  90. temp.11 = "Legs 11"
  91. temp.12 = "And then some 12"
  92. temp.13 = "Hollow weeing 13"
  93. temp.14 = "Only 14"
  94. temp.15 = "15"
  95. temp.16 = "The last line!"
  96. Say
  97. Say "The unsorted list is..."
  98. Say Copies('-', 50)
  99. Do i = 1 to temp.0
  100.     Say temp.i
  101. end /* do */
  102. Say Copies('-', 50)
  103. "@PAUSE"
  104. Say
  105. Say "Sorting in descending order gives..."
  106. Call RxSort 'temp.', 'Descending'
  107. Say Copies('-', 50)
  108. Do i = 1 to temp.0
  109.     Say temp.i
  110. end /* do */
  111. Say Copies('-', 50)
  112. "@PAUSE"
  113. Say
  114. Say "Sorting in ascending order gives..."
  115. Call RxSort 'temp.', 'Asc'
  116. Say Copies('-', 50)
  117. Do i = 1 to temp.0
  118.     Say temp.i
  119. end /* do */
  120. Say Copies('-', 50)
  121. "@PAUSE"
  122.  
  123. Say
  124. Say "Testing RxSwitchTo"
  125. Say "Switching to the desktop, hit Ctrl-Alt-Shift-O to see developers"
  126. /* RxSwitchTo works by matching as much of the string as you give it
  127.  * to the first session.
  128.  * i.e. Call RxSwitchTo "System C"
  129.  * Will switch to the system clock.
  130.  */
  131. Call RxSwitchTo "OS"
  132. If POS("Switch", result) <> 0 Then Do /* probably 2.1 */
  133.   Call RxSwitchTo "Desktop"
  134. End
  135. "@PAUSE"
  136.  
  137. Say
  138. Say "Testing RxQuerySwitchListo"
  139. Say "The programs running should now appear."
  140. Call RxQuerySwitchList "temp."
  141. Do i = 1 to temp.0
  142.    Say temp.i
  143. End /* do */
  144. "@PAUSE"
  145.  
  146. Say
  147. Say "Testing RxQueryDriveType for Drive C:"
  148. Say RxQueryDriveType("C:")
  149. "@PAUSE"
  150.  
  151. BD = RxBootDrive()
  152. PathToSearch = BD":\OS2;"BD":\OS2\INSTALL"
  153. Say
  154. Say "Testing RxSearchPath looking for DATABASE.TXT in \OS2 and \OS2\INSTALL"
  155. Say RxSearchPath(PathToSearch, 'DATABASE.TXT')
  156. "@PAUSE"
  157.  
  158. Say
  159. Say "Testing Global variables"
  160. Call RxSetGlobal "SETTINGS.TX1", "This is shared memory!"
  161. Say "The text 'This is shared memory!' should now appear..."
  162. Say RxGetGlobal('settings.tx1')
  163. "@PAUSE"
  164.  
  165. Say
  166. Say "Testing RxLineCount"
  167. LC = RxLineCount(RxBootDrive()':\config.sys')
  168. Say 'There are 'LC' lines in the your CONFIG.SYS file'
  169. "@PAUSE"
  170.  
  171. Say
  172. Say "Testing RxGetEXEName"
  173. Say "The command line for this program was '"RxGetEXEName()"'"
  174. "@PAUSE"
  175.  
  176. Say "All testing is now over..."
  177. "@PAUSE"
  178.  
  179. Call RxExtra "Drop"
  180.