home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 January / PCO0197.ISO / filesbbs / os2 / wptool19.arj / GETSET.CMD < prev    next >
Encoding:
Text File  |  1996-09-27  |  2.2 KB  |  95 lines
  1. /* This is a REXX program 
  2.  
  3. A sample REXX file to query settings for objects using the functions
  4. in WPTOOLS.DLL.
  5.  
  6. */
  7.  
  8.  
  9. arg tCmdLine
  10.  
  11. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  12. rc = SysLoadFuncs()
  13.  
  14. call RxFuncAdd 'WPToolsLoadFuncs', 'WPTOOLS', 'WPToolsLoadFuncs' 
  15. rc = WPToolsLoadFuncs()
  16.  
  17. szObjectName = ""
  18. szParms = ""
  19. do i = 1 to words(tCmdLine)
  20.   tWord = word(tCmdLine, i)
  21.   select
  22.     when tWord = '/S' | tWord = '-S' then do
  23.       szParms = '/S'
  24.       iterate
  25.     end
  26.     otherwise do
  27.       if szObjectName != "" then do
  28.          say 'Invalid argument: ' tWord
  29.          exit
  30.       end
  31.       szObjectName = tWord
  32.       iterate
  33.       end
  34.    end
  35. end
  36.  
  37. if szObjectName = "" then do
  38.    say 'USAGE: GETSET OBJECTID|PATHNAME [/S]'
  39.    say ''
  40.    say 'Use OBJECTID without < and >'
  41.    say '/S - Also look in subdirs'
  42.    exit
  43. end
  44.  
  45. call SysFileTree szObjectName, 'rgFiles', 'O'
  46. if rgFiles.0 > 0 then do
  47.   do i = 1 to rgFiles.0
  48.       call GetSettings rgFiles.i, szParms
  49.   end
  50.   if szParms = '/S' Then Do
  51.     szObjectName = szObjectName || '\*.*'
  52.     call SysFileTree szObjectName, 'rgFiles', 'OS'
  53.     if rgFiles.0 > 0 then do
  54.       do i = 1 to rgFiles.0
  55.         call GetSettings rgFiles.i, szParms
  56.       end
  57.     end
  58.   end
  59.   exit
  60. end
  61.  
  62.  
  63. szObjectName = '<' || szObjectName || '>'
  64. call GetSettings szObjectName, szParms
  65.  
  66. Exit
  67.  
  68. /***********************************************************************
  69. * GetSettings
  70. ***********************************************************************/
  71. GetSettings:
  72. iRetco = WPToolsQueryObject(ARG(1), "szClass", "szTitle", "szSetupString", "szLocation") 
  73. if iRetco Then do
  74.      say '"'szClass'", "'szTitle'", "'szSetupString'", "'szLocation'"'
  75.   end 
  76. else
  77.   say 'Unable to return object settings for ' ARG(1)
  78.  
  79. if ARG(2) = '/S' Then Do
  80.  
  81. iRetco = WPToolsFolderContent(ARG(1), "list.")
  82. if iRetco = 0 Then Do
  83.    Say 'WPToolsFolderContent for 'ARG(1)' returned 0'
  84.    return
  85. End
  86.  
  87. do iObject = 1 to list.0
  88.   iRetco=WPToolsQueryObject(list.iObject, "szClass", "szTitle", "szSetupString", "szLocation") 
  89.   if iRetco Then do
  90.      say '"'szClass'", "'szTitle'", "'szSetupString'", "'szLocation'"'
  91.   end 
  92. end
  93. End
  94. return
  95.