home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / install / custepm.cmd < prev    next >
Encoding:
Text File  |  1994-03-01  |  2.5 KB  |  64 lines
  1. /***********************************************************************/
  2. /* CUSTEPM Installation Tool                                           */
  3. /*                                                                     */
  4. /* Handles all installation tasks for CUSTEPM.  Locked files are not   */
  5. /* handled.                                                            */
  6. /*                                                                     */
  7. /***********************************************************************/
  8. /*                 (C) Copyright IBM Corporation 1994                  */
  9. /***********************************************************************/
  10.  
  11. parse upper arg BDr CDr .
  12. trace 'o'
  13.  
  14. call Initialize
  15.  
  16. 'cls'
  17. say
  18. say '┌────────────────────────────────────────────────────────────────────────────┐'
  19. say '│                        The Developer Connection                            │'
  20. say '│                        Customized Version of EPM                           |'
  21. say '│                  (C) Copyright IBM Corporation 1994                        │'
  22. say '├────────────────────────────────────────────────────────────────────────────┤'
  23. say '│                                                                            │'
  24. say '│                                                                            │'
  25. say '│                 Type [Q] to Quit or [ENTER] to continue.                   │'
  26. say '│                                                                            │'
  27. say '└────────────────────────────────────────────────────────────────────────────┘'
  28. answer = translate(linein(STDIN))
  29. if answer = 'Q'
  30.   then do
  31.       call 'MessageBox' 'CUSTEPM', 'Installation ended by user.'
  32.     exit 0
  33.   end  /* Do */
  34.  
  35.  
  36. /* Use PACKINST.CMD to install all packages. */
  37.  
  38.  
  39. say '┌────────────────────────────────────────────────────────────────────────────┐'
  40. say '│          Copying CUSTEPM files to the OS2\APPS directory.                  │'
  41. say '└────────────────────────────────────────────────────────────────────────────┘'
  42. '@XCOPY 'CDr'EDITORS\CUSTEPM 'BDr'\OS2\APPS\*.* /s /e >nul 2>nul'
  43.  
  44. call 'CaddComplete' 0
  45. call 'CaddExit'
  46. exit
  47.  
  48. Initialize:
  49. CurDir = directory()
  50. call directory CDr'INSTALL'
  51. call Rxfuncadd 'CADDINIT', 'RXCADD', 'CADDINIT'
  52. signal on syntax
  53. ver = 'CAddInit'()
  54. signal off syntax
  55. if abbrev(ver, 'ERROR:')
  56.   then call syntax
  57. return 0
  58.  
  59. MyExit:
  60. call beep 300, 150
  61. call 'MessageBox' 'CUSTEPM', 'Installation failed. You may be running another EPM editor!'
  62. call 'CaDDExit'
  63. exit 0
  64.