home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 351.lha / FAM_v1.1 / sources / FAMtest.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1990-02-21  |  4.5 KB  |  363 lines
  1. /* test the FAM host */
  2.  
  3. if 0 == showlist('P', 'FAM') then do
  4.     address command
  5.     /* 'lmk tags' */
  6.     'lmk FAM'
  7.     'lmk FAMgrep'
  8.     'date >.:xyzzy/NNN0020'
  9.     'run cpr FAM FAM xyzzy DibbsFamGrep .arc.zoo.lhz #-#-#'
  10.     say waiting...
  11.     'waitforport FAM'
  12.     'waitforport FAM'
  13.     'waitforport FAM'
  14.     'waitforport FAM'
  15.     'waitforport FAM'
  16.     'waitforport FAM'
  17.     'waitforport FAM'
  18.     'waitforport FAM'
  19.     'waitforport FAM'
  20.     end
  21.  
  22. address 'FAM'
  23. options results
  24. signal on halt
  25.  
  26. say 'VERSION'
  27. ''version
  28. call answer
  29.  
  30. say 'GETDIRNAME'
  31. ''getdirname
  32. call answer
  33.  
  34. say 'GETBINEXTENS'
  35. ''getbinextens
  36. call answer
  37.  
  38. say 'GETBUFENDLINE'
  39. ''getbufendline
  40. call answer
  41.  
  42. say 'GETNAMECOUNT'
  43. ''getnamecount
  44. call answer
  45.  
  46. say 'OPEN'
  47. ''open
  48. call answer
  49.  
  50. say 'GETNAMECOUNT'
  51. ''getnamecount
  52. call answer
  53.  
  54. say 'OPEN'
  55. ''open
  56. call answer
  57.  
  58. say 'GETNAMECOUNT'
  59. ''getnamecount
  60. call answer
  61.  
  62. say 'GETIOERR'
  63. ''getioerr
  64. call answer
  65.  
  66. say 'RESCAN'
  67. 'RESCAN'
  68. call answer
  69.  
  70. say 'CLEAR'
  71. 'CLEAR'
  72. call answer
  73.  
  74. say 'RESCAN1 FAM'
  75. 'rescan1 FAM'
  76. call answer
  77.  
  78. say 'RESCAN1 NNN0007'
  79. 'rescan1 NNN0007'
  80. call answer
  81.  
  82. say 'delete NNN0020'
  83. address 'COMMAND' 'delete .:xyzzy/NNN0020'
  84. call answer
  85.  
  86. say 'RESCAN1 NNN0007'
  87. 'rescan1 NNN0007'
  88. call answer
  89.  
  90. say 'GETNAMECOUNT'
  91. ''getnamecount
  92. call answer
  93.  
  94. say 'RESCAN1 NNN0020'
  95. 'rescan1 NNN0020'
  96. call answer
  97.  
  98. say 'GETNAMECOUNT'
  99. ''getnamecount
  100. call answer
  101.  
  102. say 'GETNAMES'
  103. 'getnames'
  104. call answer
  105.  
  106. say 'GETNAMES %'
  107. 'getnames %'
  108. call answer
  109.  
  110. say 'GETINFO NNN'
  111. 'GETINFO NNN'
  112. call answer
  113.  
  114. say 'GETINFO NNN0005'
  115. 'GETINFO NNN0005'
  116. call answer
  117.  
  118. say 'GETINFO B001.arc'
  119. 'GETINFO B001.arc'
  120. call answer
  121.  
  122. say 'GETINFO B001.zoo'
  123. 'GETINFO B001.zoo'
  124. call answer
  125.  
  126. say 'GETINFO B001.lhz'
  127. 'GETINFO B001.lhz'
  128. call answer
  129.  
  130. say 'GETINFO B001.txt'
  131. 'GETINFO B001.txt'
  132. call answer
  133.  
  134. say 'GETINFO W01'
  135. 'GETINFO W01'
  136. call answer
  137.  
  138. say 'GETINFO AA0000000010'
  139. 'GETINFO AA0000000010'
  140. call answer
  141.  
  142. say 'NEWFILE AA'
  143. 'NEWFILE AA'
  144. call answer
  145.  
  146. say 'GETNAMECOUNT'
  147. ''getnamecount
  148. call answer
  149.  
  150. say 'NEWFILE NNN'
  151. 'NEWFILE NNN'
  152. call answer
  153.  
  154. say 'NEWFILE N'
  155. 'NEWFILE N'
  156. call answer
  157.  
  158. say 'GETNAMECOUNT'
  159. ''getnamecount
  160. call answer
  161.  
  162. say 'NEWFILE ZZZ'
  163. 'NEWFILE ZZZ'
  164. call answer
  165.  
  166. say 'GETNAMECOUNT'
  167. ''getnamecount
  168. call answer
  169.  
  170. say 'NEWFILE NNN'
  171. 'NEWFILE NNN'
  172. call answer
  173.  
  174. say 'GETINFO ' || stuff
  175. 'GETINFO ' || stuff
  176. call answer
  177.  
  178. say 'GETNAMECOUNT'
  179. ''getnamecount
  180. call answer
  181.  
  182. say 'RESCAN'
  183. 'RESCAN'
  184. call answer
  185.  
  186. say 'GETNAMECOUNT'
  187. ''getnamecount
  188. call answer
  189.  
  190. say 'GETNAMES'
  191. ''getnames
  192. call answer
  193.  
  194. say 'NEWFILE W'
  195. 'NEWFILE W'
  196. call answer
  197.  
  198. say 'GETNAMECOUNT'
  199. ''getnamecount
  200. call answer
  201.  
  202. say 'NEWFILE W'
  203. 'NEWFILE W'
  204. call answer
  205.  
  206. say 'GETNAMECOUNT'
  207. ''getnamecount
  208. call answer
  209.  
  210. say 'NEWFILE W'
  211. 'NEWFILE W'
  212. call answer
  213.  
  214. say 'GETNAMECOUNT'
  215. ''getnamecount
  216. call answer
  217.  
  218. say 'GETINFO tags'
  219. 'GETINFO tags'
  220. call answer
  221.  
  222. say 'NEWFILE NNN'
  223. 'NEWFILE NNN'
  224. call answer
  225.  
  226. holdit = stuff
  227.  
  228. say 'GETINFO' holdit
  229. 'GETINFO' holdit
  230. call answer
  231.  
  232. say 'LOCKFILE - L' holdit
  233. 'LOCKFILE - L' holdit
  234. call answer
  235.  
  236. address COMMAND 'echo >.:xyzzy/' || holdit
  237. say 'RESCAN1' holdit
  238. 'RESCAN1' holdit
  239. call answer
  240.  
  241. say 'GETINFO' holdit
  242. 'GETINFO' holdit
  243. call answer
  244.  
  245. say 'LOCKFILE - L' holdit
  246. 'LOCKFILE - L' holdit
  247. call answer
  248.  
  249. say 'GETINFO' holdit
  250. 'GETINFO' holdit
  251. call answer
  252.  
  253. say 'LOCKFILE - L' holdit
  254. 'LOCKFILE - L' holdit
  255. call answer
  256.  
  257. say 'LOCKFILE L -' holdit
  258. 'LOCKFILE L -' holdit
  259. call answer
  260.  
  261. say 'GETINFO' holdit
  262. 'GETINFO' holdit
  263. call answer
  264.  
  265. say 'LOCKFILE L -' holdit
  266. 'LOCKFILE L -' holdit
  267. call answer
  268.  
  269. say 'GREP 0'
  270. 'GREP 0'
  271. call answer
  272.  
  273. say 'GREP 2 akjdsf lakdjf wekr'
  274. 'GREP 2 akjdsf lakdjf wekr'
  275. call answer
  276.  
  277. say 'GREP 0 U NAME JETSON'
  278. 'GREP 0 U NAME JETSON'
  279. call answer
  280.  
  281. say 'GREP;0 U NAME JETSON'
  282. 'GREP;0 U NAME JETSON'
  283. call answer
  284.  
  285. say 'GREP 0 W NAME JETSON'
  286. 'GREP 0 W NAME JETSON'
  287. call answer
  288.  
  289. say 'GREP 0 U NAME GEORGE'
  290. 'GREP 0 U NAME GEORGE'
  291. call answer
  292.  
  293. say 'GREP 0 U NAME JET'
  294. 'GREP 0 U NAME JET'
  295. call answer
  296.  
  297. say 'GREP 0 U NAME ROCKET'
  298. 'GREP 0 U NAME ROCKET'
  299. call answer
  300.  
  301. say 'GREP 0 U USERS ALTERNATE'
  302. 'GREP 0 U USERS ALTERNATE'
  303. call answer
  304.  
  305. say 'GREP 0 U NOFIND ALTERNATE'
  306. 'GREP 0 U NOFIND ALTERNATE'
  307. call answer
  308.  
  309. say 'GREP 0 U GAMMA THREE'
  310. 'GREP 0 U GAMMA THREE'
  311. call answer
  312.  
  313. say 'CLOSE'
  314. ''close
  315. call answer
  316.  
  317. say 'GETNAMECOUNT'
  318. ''getnamecount
  319. call answer
  320.  
  321. say 'CLOSE'
  322. ''close
  323. call answer
  324.  
  325. say 'GETNAMECOUNT'
  326. ''getnamecount
  327. call answer
  328.  
  329.  
  330. say 'OPEN 0 0'
  331. ''open 0 0
  332. call answer
  333.  
  334. say 'OPEN 0 0'
  335. ''open 0 0
  336. call answer
  337.  
  338. say 'EXPUNGE NOW'
  339. ''EXPUNGE NOW
  340. call answer
  341.  
  342. say
  343. address command status
  344. say
  345. say showlist('P')
  346. exit 0
  347.  
  348. answer:
  349. say 'RC =' RC
  350. say 'RESULT = >'result'<'
  351. stuff = result
  352. say
  353. call delay 50
  354. return 0
  355.  
  356. halt:
  357. say "HALT ENCOUNTERED!!!"
  358. address 'FAM'
  359. expunge now
  360. exit 0
  361.  
  362.  
  363.