home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rox.zip / testspin.cmd < prev    next >
OS/2 REXX Batch file  |  1993-09-23  |  1KB  |  64 lines
  1. /*------------------------------------------------------------------
  2.  * spintest.cmd :
  3.  *------------------------------------------------------------------
  4.  * 08-31-93 originally by Patrick J. Mueller
  5.  *------------------------------------------------------------------*/
  6.  
  7. "@cls"
  8. parse arg class roxName .
  9.  
  10. if (class = "") then
  11.    class = "list"
  12.  
  13. if (roxName = "") then
  14.    roxName = class
  15.  
  16. say "testing '"class"' class"
  17.  
  18. if RxFuncQuery("RoxLoadFuncs") then
  19.    do
  20.    rc = RxFuncAdd("RoxLoadFuncs","Rox","RoxLoadFuncs")
  21.    rc = RoxLoadFuncs()
  22.    end
  23.  
  24. rc = time("r")
  25.  
  26. rc = RoxLoad(class".rox")
  27. rc = RoxLoad("spinner.rox")
  28.  
  29. coll1 = RoxCreate(class)
  30.  
  31. items = 10
  32.  
  33. say "adding" items "items to collection"
  34.  
  35. spinner = RoxCreate("spinner")
  36.  
  37. g = .spin(spinner)
  38. say
  39. do i = 1 to items
  40.    g = .suspend(spinner)
  41.    say "adding" i
  42.    g = .resume(spinner)
  43.  
  44.    g = .add(coll1,i)
  45. end
  46. say
  47. g = .stop(spinner)
  48.  
  49. say "printing coll1"
  50.  
  51. g = .spin(spinner)
  52. printColl = .do(coll1,"!item","!coll=!coll !item","!coll=''","return space(!coll)")
  53. g = .stop(spinner)
  54. say printColl
  55.  
  56. rc = RoxDestroy(coll1)
  57.  
  58. rc = RoxDestroy(spinner)
  59.  
  60. elapsed = time("e")
  61.  
  62. say
  63. say "Total processing time:" elapsed "seconds".
  64.