home *** CD-ROM | disk | FTP | other *** search
- /***********************************************************************
- * NOINST *
- * *
- * Purpose: Do absolutely nothing. *
- * *
- ***********************************************************************
- * (C) Copyright IBM Corporation 1994 *
- ***********************************************************************/
- parse upper arg Ctl.!BDr Ctl.!CDr .
- trace 'o'
- CurDir = directory()
- call directory Ctl.!CDr'INSTALL'
- call Rxfuncadd 'CADDINIT', 'RXCADD', 'CADDINIT'
- signal on syntax
- ver = 'CAddInit'()
- signal off syntax
- if abbrev(ver, 'ERROR:')
- then call syntax
-
- call 'CaddComplete' 0
- call 'CaDDExit'
- exit 0
-
- Syntax:
- call beep 350, 150
- say
- say '┌────────────────────────────────────────────────────────────────────────┐'
- say '│ Dot not found in LIBPATH. A dot will be automatically added to your │'
- say '│ CONFIG.SYS LIBPATH entry. The DOT is necessary for the installation │'
- say '│ to find its DLL files in the current directory. │'
- say '└────────────────────────────────────────────────────────────────────────┘'
- '@echo off'
- 'call LIBADD . 'Ctl.!BDr'\CONFIG.SYS >nul 2>nul'
- Resp = rc
- if rc = 0
- then do
- call beep 350, 150
- say
- say '┌────────────────────────────────────────────────────────────────────────┐'
- say '│ REBOOT the system and try install again. │'
- say '└────────────────────────────────────────────────────────────────────────┘'
- end
- else do
- call beep 350, 150
- say
- say '┌────────────────────────────────────────────────────────────────────────┐'
- say '│ Unable to update CONFIG.SYS please do so manually then REBOOT. │'
- say '└────────────────────────────────────────────────────────────────────────┘'
- end /* Do */
- exit 200
-