home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / eeedit22.zip / enhanced.zip / rebuild.cmd < prev    next >
OS/2 REXX Batch file  |  2001-04-15  |  3KB  |  77 lines
  1. /* THIS IS NOT THE INSTALLATION UTILITY!    */
  2. /*                                          */
  3. /* Run only to repair desktop objects       */
  4. /* if the Enhanced E's are                  */
  5. /* installed                                */
  6. /*                                          */
  7. /*                                          */
  8. /* Desktop Object Repair                    */
  9. /* Rebuilds Enhanced E Desktop object       */
  10. /* Run this from the editor's directory     */
  11. /*                                          */
  12.  
  13. /* Prerequisites for the desktop object     */
  14. /* and this cmd file                        */
  15. crlf    ='0d0a'x
  16. exe     ='ee*.exe'
  17. Title   ='Enhanced E Editors'
  18.  
  19. /* Load RexxUtil DLL                        */
  20. call RxFuncAdd 'SysLoadFuncs' , RexxUtil, 'SysLoadFuncs'
  21. call SysLoadFuncs
  22. Call SysCls
  23.  
  24. say crlf crlf
  25. say 'This program is repairs the desktop objects for the'
  26. say 'Enhanced E Editors. It is not the installation utility.'
  27. say 'If you have not installed the Enhanced E with the'
  28. say '[Install.exe] program the installation will likely fail.'||crlf
  29. say 'Be sure you are running this from the '||Title||' directory.'||crlf crlf
  30.  
  31. say 'Press [Y] to continue or [Enter] to quit'||crlf
  32. pull approval
  33. if approval <> 'Y' then exit
  34. say ''
  35.  
  36. /* Are we in the right program directory?   */
  37. say 'Locating '||exe||'...'||crlf
  38. TestFor=directory()||'\'||exe
  39. CALL SysFileTree TestFor,'List','FO'
  40. if List.0 = 0 then do
  41.    say 'Please run this program from the same directory as the '||exe||' files'||crlf
  42.    say 'Exiting...'||crlf
  43.    exit
  44. end
  45.  
  46. /* Create the desktop objects            */
  47. EETitle    ='Enhanced E Editor'
  48. EESetup    ='OBJECTID=<EE>;'||,
  49.            'EXENAME=' || Directory() || '\EE.EXE;'||,
  50.            'STARTUPDIR=' || Directory()';'||,
  51.            'ASSOCTYPE=Plain Text,OS/2 Command File,DOS Command File,,;'||,
  52.            'ASSOCFILTER=*.DOC,*.TXT,,;'||,
  53.            'PROGTYPE=PM;'
  54.  
  55. EEETitle    ='Enhanced EE Editor'
  56. EEESetup    ='OBJECTID=<EEE>;'||,
  57.            'EXENAME=' || Directory() || '\EEE.EXE;'||,
  58.            'STARTUPDIR=' || Directory()';'||,
  59.            'ASSOCTYPE=Plain Text,OS/2 Command File,DOS Command File,,;'||,
  60.            'ASSOCFILTER=*.DOC,*.TXT,,;'||,
  61.            'PROGTYPE=PM;'
  62.  
  63. call SysCreateObject "WPProgram", EETitle, "<WP_DESKTOP>", EESetup, 'Update'
  64. /* Check if the WPS object was created   */
  65. if rc = 0 then
  66.    say 'Object creation for 'EETitle ' failed!  rc='rc
  67. else
  68.    say 'Object created for' EETitle '.'
  69.  
  70.  
  71. call SysCreateObject "WPProgram", EEETitle, "<WP_DESKTOP>", EEESetup, 'Update'
  72. /* Check if the WPS object was created   */
  73. if rc = 0 then
  74.    say 'Object creation for 'EEETitle ' failed!  rc='rc||crlf
  75. else
  76.    say 'Object created for' EEETitle '.'||crlf
  77.