home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / wpsdscr.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1995-09-16  |  754b  |  33 lines
  1. /* rexx */
  2.  
  3. parse arg args
  4. dllpath=word(args,1)
  5. if dllpath='' then do
  6.     say 'Usage: install.cmd <dll-path>'
  7.     say '  where <dll-path> is the directory contained '
  8.     say '  in LIBPATH statement in your CONFIG.SYS'
  9.     exit(1)
  10. end
  11.  
  12. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  13. call SysLoadFuncs
  14. 'copy RepClass.exe '||dllpath
  15. cls.1="DSCRFileList"
  16. cls.2="DSCRDataFile"
  17. dll.1="dscrlst"
  18. dll.2="dscrdf"
  19. do i=1 to 2
  20.   'copy '||dll.i||'.dll '||dllpath
  21.   rc=SysRegisterObjectClass(cls.i,dll.i) 
  22.   if rc=1 then
  23.          say 'Install successfully completed for the class 'cls.i
  24.   else do
  25.     say 'Error registering class 'cls.i
  26.     exit(1)
  27.   end            
  28. end
  29.  
  30. 'repClass WPFolder DSCRFileList'
  31. 'repClass WPDataFile DSCRDataFile' 
  32.  
  33.