home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / moos / demos / rexx_icon.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-25  |  2KB  |  92 lines
  1. /*
  2.  * rexx_[SUB].library
  3.  *
  4.  * Test file...
  5.  */
  6.  
  7. OPTIONS RESULTS
  8. lib = 'rexxMOOS.library'; IF ~SHOW('L',lib) THEN CALL ADDLIB(lib,100,-30)
  9.  
  10.                                                                               
  11. /*
  12.  *    DeleteDiskObj()
  13.  *    GetDiskObj()
  14.  *    PutDiskObj()
  15.  *    SetDiskObj()
  16.  */
  17. DROP ico.
  18. src = "SYS:disk"
  19. CALL print(4,'#',"GetDiskObj(iconpath,options)")
  20. CALL print(20,'-','GetDiskObj("'src'",''ico.'')')
  21. IF GetDiskObj(src,'ico.') > 0 THEN DO
  22.     SAY "ico.Type    ==" ico.Type
  23.     SAY "ico.PosX    ==" ico.PosX
  24.     SAY "ico.PosY    ==" ico.PosY
  25.     SAY "ico.Stack   ==" ico.Stack
  26.     SAY "ico.DefTool ==" ico.DefTool
  27.     DO n = 0 FOR ico.count
  28.         SAY "ico." || RIGHT(n,5," ") "==" ico.n
  29.     END
  30. END
  31.  
  32. dst = "RAM:test"
  33. ADDRESS COMMAND 'Echo "" TO' dst
  34. CALL print(4,'#',"PutDiskObj(destination,source,options)")
  35. CALL print(20,'-','PutDiskObj("'dst'","'src'")')
  36. SAY PutDiskObj(dst,src)
  37. ADDRESS COMMAND 'Delete >NIL:' dst
  38.  
  39. DROP ico.
  40. CALL print(20,'-','GetDiskObj("'dst'",''ico.'')')
  41. IF GetDiskObj(dst,'ico.') > 0 THEN DO
  42.     SAY "ico.Type    ==" ico.Type
  43.     SAY "ico.PosX    ==" ico.PosX
  44.     SAY "ico.PosY    ==" ico.PosY
  45.     SAY "ico.Stack   ==" ico.Stack
  46.     SAY "ico.DefTool ==" ico.DefTool
  47.     DO n = 0 FOR ico.count
  48.         SAY "ico." || RIGHT(n,5," ") "==" ico.n
  49.     END
  50. END
  51.  
  52. opt = 'PosX 10 PosY 10'
  53. CALL print(4,'#',"SetDiskObj(iconpath,options)")
  54. CALL print(20,'-','SetDiskObj("'dst'",'''opt''')')
  55. SAY SetDiskObj(dst,opt)
  56.  
  57. CALL print(4,'#',"DeleteDiskObj(iconpath)")
  58. CALL print(20,'-','DeleteDiskObj("'dst'")')
  59. SAY DeleteDiskObj(dst)
  60.  
  61.                                                                               
  62. /*
  63.  *    BumpRevision()
  64.  */
  65. CALL print(4,'#',"BumpRevision(oldname)")
  66.  
  67. old = "foo.bar"
  68. CALL print(20,'-','BumpRevision("'old'")')
  69. old = BumpRevision(old)
  70. SAY old
  71.  
  72. CALL print(20,'-','BumpRevision("'old'")')
  73. old = BumpRevision(old)
  74. SAY old
  75.  
  76. CALL print(20,'-','BumpRevision("'old'")')
  77. old = BumpRevision(old)
  78. SAY old
  79.  
  80.                                                                               
  81.  
  82. ADDRESS COMMAND 'Wait' 2
  83.  
  84. SAY
  85. EXIT 0
  86.  
  87. print: PROCEDURE
  88.     PARSE ARG pos,char,str
  89.     IF char = '#' THEN SAY '0a0a'x
  90.     SAY COPIES(char,pos) || OVERLAY(" "str" ",COPIES(char,78 - pos))
  91.     RETURN
  92.