home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional Developers Kit 1992 November / Disc01 / Disc01.mdf / install / noadd.cmd < prev    next >
Encoding:
Text File  |  1992-09-02  |  2.3 KB  |  59 lines
  1. /***********************************************************************
  2.    @ECHO OFF
  3.    ECHO OS/2 Procedures Language 2/REXX not installed.
  4.    ECHO Run Selective Installation from the Setup Folder to
  5.    ECHO install REXX support.
  6.    pause
  7.    exit
  8.  
  9.  ***********************************************************************
  10.  * NOINST                                                              *
  11.  *                                                                     *
  12.  * Purpose: Do absolutely nothing.                                     *
  13.  *                                                                     *
  14.  ***********************************************************************
  15.  *                (C) Copyright IBM Corporation 1992                   *
  16.  ***********************************************************************/
  17. parse upper arg Ctl.!BDr Ctl.!CDr .
  18. trace 'o'
  19. CurDir = directory()
  20. call directory Ctl.!CDr'INSTALL'
  21. call Rxfuncadd 'CADDINIT', 'RXCADD', 'CADDINIT'
  22. signal on syntax
  23. ver = 'CAddInit'()
  24. signal off syntax
  25. if abbrev(ver, 'ERROR:')
  26.   then call syntax
  27.  
  28. call 'CaddComplete' 0
  29. call 'CaDDExit'
  30. exit 0
  31.  
  32. Syntax:
  33. call beep 350, 150
  34. say
  35. say '┌────────────────────────────────────────────────────────────────────────┐'
  36. say '│  Dot not found in LIBPATH.  A dot will be automatically added to your  │'
  37. say '│  CONFIG.SYS LIBPATH entry.  The DOT is necessary for the installation  │'
  38. say '│  to find its DLL files in the current directory.                       │'
  39. say '└────────────────────────────────────────────────────────────────────────┘'
  40. '@echo off'
  41. 'call LIBADD . 'Ctl.!BDr'\CONFIG.SYS >nul 2>nul'
  42. Resp = rc
  43. if rc = 0
  44.   then do
  45.     call beep 350, 150
  46.     say
  47.     say '┌────────────────────────────────────────────────────────────────────────┐'
  48.     say '│                 REBOOT the system and try install again.               │'
  49.     say '└────────────────────────────────────────────────────────────────────────┘'
  50.   end
  51.   else do
  52.     call beep 350, 150
  53.     say
  54.     say '┌────────────────────────────────────────────────────────────────────────┐'
  55.     say '│   Unable to update CONFIG.SYS please do so manually then REBOOT.       │'
  56.     say '└────────────────────────────────────────────────────────────────────────┘'
  57.   end /* Do */
  58. exit 200
  59.