home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rox.zip / testthrd.cmd < prev    next >
OS/2 REXX Batch file  |  1994-04-09  |  2KB  |  75 lines
  1. /*------------------------------------------------------------------
  2.  * test1.cmd :
  3.  *------------------------------------------------------------------
  4.  * 08-20-93 originally by Patrick J. Mueller
  5.  *------------------------------------------------------------------*/
  6.  
  7. parse arg class roxName .
  8.  
  9. if (class = "") then
  10.    class = "list"
  11.  
  12. if (roxName = "") then
  13.    roxName = class
  14.  
  15. say "testing '"class"' class"
  16.  
  17. if RxFuncQuery("RoxLoadFuncs") then
  18.    do
  19.    rc = RxFuncAdd("RoxLoadFuncs","Rox","RoxLoadFuncs")
  20.    rc = RoxLoadFuncs()
  21.    end
  22.  
  23. rc = time("r")
  24.  
  25. rc = RoxLoad(class".rox")
  26. rc = RoxLoadDLL("roxsem")
  27.  
  28. coll1 = RoxCreate(class)
  29. coll2 = RoxCreate(class)
  30. sem1  = RoxCreate("EventSem")
  31. sem2  = RoxCreate("EventSem")
  32.  
  33. items = 10
  34.  
  35. do i = 1 to items
  36.    say "adding to coll1:" i
  37.    g = .add(coll1,i)
  38. end
  39. say
  40.  
  41. do i = 1 to items
  42.    say "adding to coll2:" i * i
  43.    g = .add(coll2,i*i)
  44. end
  45. say
  46.  
  47. say "testing in coll1 for 3"
  48. if (0 = .includes(coll1,3)) then
  49.    say "error finding 3 in coll1"
  50.  
  51. say "testing in coll2 for 9"
  52. if (0 = .includes(coll2,9)) then
  53.    say "error finding 9 in coll2"
  54.  
  55. say
  56.  
  57. say "printing colllections"
  58.  
  59. g = .reset(sem1)
  60. g = .reset(sem2)
  61.  
  62. g = RoxSendThread("do",coll1,"!item","say !item",,"g = .post("sem1")")
  63. g = RoxSendThread("do",coll2,"!item","say !item",,"g = .post("sem2")")
  64.  
  65. g = .wait(sem1)
  66. g = .wait(sem2)
  67.  
  68. rc = RoxDestroy(coll1)
  69. rc = RoxDestroy(coll2)
  70.  
  71. elapsed = time("e")
  72.  
  73. say
  74. say "Total processing time:" elapsed "seconds".
  75.