home *** CD-ROM | disk | FTP | other *** search
/ PC Press 1997 July / Sezamfile97_1.iso / msdos / clipper / ct3p.a01 / INSTALL.DAT < prev    next >
Text File  |  1993-12-15  |  10KB  |  339 lines
  1. /****************************************************************/
  2. /*  INSTALL.DAT                                                 */
  3. /*                                                              */
  4. /*  Copyright (c) 1992 Computer Associates International        */
  5. /*  All Rights Reserved                                         */
  6. /*                                                              */
  7. /*  Last revision:   11/30/93                                   */
  8. /****************************************************************/
  9.  
  10. @DefineProject
  11.    @Requires  @HardDisk
  12.    @Name      = "CA-Clipper Tools/ExoSpace"
  13.    @Version   = "3.0p"
  14.    @OutDrive  = C
  15.    @Subdir    = "\\CATOOLS"
  16. @EndProject
  17.  
  18. @DefineVars
  19.    @Integer @InDisk  = 0      /* change for proper input disk type */
  20.    @Integer @Fails   = 0
  21.    @Integer @Totsize = 0
  22.    @Integer @TotKB   = 0
  23.    @Integer @Asize   =  500
  24.    @Integer @Bsize   =  200
  25.    @Integer @Csize   =  200
  26.    @Integer @Dsize   = 1600
  27.  
  28. /* Maxsize is the sum of A, B, C, and Dsize.  Must be updated if any of those
  29.    are changed!!! */
  30.    @Integer @Maxsize = 2500
  31.    @Dir @Lib         = "\\LIB"
  32.    @Dir @Obj         = "\\OBJ"
  33.    @Dir @ExoBin      = "\\CLIPPER5\\BIN"
  34.    @Dir @samples     = "\\CTSOURCE\\SAMPLES"
  35.    @Dir @Ng            = "\\NG"
  36.    @Qstring @NewLine = "\n"
  37. @EndVars
  38.  
  39.  
  40. @Display
  41. @Cls
  42.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     CA-Clipper Tools/ExoSpace Installation
  43.   █ Computer        █
  44.   █  Associates     █     This program will install 
  45.   █   International █     CA-Clipper Tools/ExoSpace on your computer 
  46.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█     system and verify the integrity of the 
  47.        ▄▄▄▄▄▄▄▄▄          distribution disks. The basic steps in 
  48.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄       the installation procedure are as follows:
  49.  
  50.                           ■ Select target drive and directory
  51.                           ■ Select files you want to install
  52.                           ■ Install selected files
  53.  
  54.  
  55.      You will be prompted step by step through the procedure and, when
  56.      you are finished, CA-Clipper Tools/ExoSpace will be installed on 
  57.      your hard disk.  Press Esc at any time to stop the installation.
  58.  
  59.                                        @Pause
  60.  
  61. @EndDisplay
  62.  
  63.  
  64. DrivePick:
  65. @GetOutDrive
  66. @Suppress A
  67. @Suppress B
  68. @LocalWindow(11,36)
  69. @Cls
  70.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     CA-Clipper Tools/ExoSpace Installation
  71.   █ Computer        █
  72.   █  Associates     █     Select Target Drive:
  73.   █   International █
  74.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  75.        ▄▄▄▄▄▄▄▄▄
  76.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.    Use  and  to highlight a drive, and press ─┘ to select and continue.
  89.                             Press Esc to exit.
  90. @EndOutDrive
  91.  
  92.  
  93. @GetSubdir
  94. @LocalWindow(6,56)
  95. @Cls
  96.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     CA-Clipper Tools/ExoSpace Installation
  97.   █ Computer        █
  98.   █  Associates     █     Select Target Directory
  99.   █   International █
  100.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  101.        ▄▄▄▄▄▄▄▄▄
  102.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  103.  
  104.  
  105.  
  106.      Type a directory name, and press ─┘ to continue. Press Esc to exit.
  107.  
  108. @EndSubdir
  109.  
  110.  
  111. @GetSubdir @ExoBin
  112. @LocalWindow(6,56)
  113. @Cls
  114.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     CA-Clipper Tools/ExoSpace Installation
  115.   █ Computer        █
  116.   █  Associates     █     Select ExoSpace.EXE Directory
  117.   █   International █
  118.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  119.        ▄▄▄▄▄▄▄▄▄
  120.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  121.  
  122.  
  123.  
  124.      Type a directory name, and press ─┘ to continue. Press Esc to exit.
  125.  
  126. @EndSubdir
  127.  
  128. @GetOption
  129. @LocalWindow(7,38)
  130. @Cls
  131.  
  132. @Cls
  133.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  134.   █ Computer        █
  135.   █  Associates     █     Install the CA-Clipper Tools/ExoSpace files in 
  136.   █   International █     the following directories?
  137.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█     
  138.        ▄▄▄▄▄▄▄▄▄         
  139.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄         @Option 101 = "  Yes  " 
  140.                             @Option 102 = "  No   " 
  141. @Newline
  142.                          ExoSpace.EXE =>  @ExoBin
  143.                          Object Files =>  @Subdir\OBJ
  144.                          Libraries    =>  @Subdir\LIB
  145.                          Samples      =>  @Subdir\CTSOURCE\SAMPLES
  146.                          Norton guide =>  \NG
  147.  
  148.       Select 'Yes' to proceed with patch installation using directories 
  149.       shown above.  If you select 'No', you will be prompted for each
  150.       of the above directories.
  151. @EndOption
  152.  
  153. @Lib     = "@Subdir\\Lib"
  154. @Obj     = "@Subdir\\Obj"
  155. @Samples = "@Subdir\\CTSOURCE\\SAMPLES"
  156. @Ng      = "\\NG"
  157.  
  158. @If ( ( 102 [= @Option ) || ( ! @Exists( "@OutDrive:@ExoBin\\EXOSPACE.EXE" ) ) )
  159. GetExoBinPath:
  160.   @GetSubdir @ExoBin
  161.   @LocalWindow(9,48)
  162.   @Move(12,1)
  163.                 Enter the path to the ExoSpace.EXE directory, then
  164.                 press ─┘ to continue.  Press Esc to exit.  
  165.  
  166.   @EndSubdir
  167.  
  168.   @If ( ! @Exists( "@OutDrive:@ExoBin\\EXOSPACE.EXE" ) )
  169.     @Display
  170.     @Move( 12, ( 53 - @StrLen( "@OutDrive:@ExoBin" ) ) / 2, "@OutDrive:@ExoBin\\EXOSPACE.EXE (LINKER) NOT FOUND" )
  171.     @Move( 16, 10 )
  172.                                        @Pause
  173.     @EndDisplay
  174.     @Goto GetExoBinPath
  175.   @Endif
  176. @Endif
  177.  
  178.  
  179. @If ( ( 102 [= @Option ) || ( ! @Exists( "@OutDrive:@Lib\\CT.LIB" ) ) )
  180. GetLibPath:
  181.   @GetSubdir @Lib
  182.   @LocalWindow(9,48)
  183.   @Move(12,1)
  184.                 Enter the path to the CT.LIB directory, then
  185.                 press ─┘ to continue.  Press Esc to exit.  
  186.  
  187.   @EndSubdir
  188.  
  189.   @If ( ! @Exists( "@OutDrive:@Lib\\CT.LIB" ) )
  190.     @Display
  191.     @Move( 12, ( 53 - @StrLen( "@OutDrive:@Lib" ) ) / 2, "@OutDrive:@Lib\\CT.LIB (LIBRARY) NOT FOUND" )
  192.     @Move( 16, 10 )
  193.                                        @Pause
  194.     @EndDisplay
  195.     @Goto GetLibPath
  196.   @Endif
  197. @Endif
  198.  
  199.  
  200. @If ( ( 102 [= @Option ) || ( ! @Exists( "@OutDrive:@Obj\\CTUS.OBJ" ) ) )
  201. GetObjPath:
  202.   @GetSubdir @Obj
  203.   @LocalWindow(9,48)
  204.   @Move(12,1)
  205.                 Enter the path to the CTUS.OBJ directory, then
  206.                 press ─┘ to continue.  Press Esc to exit.  
  207.  
  208.   @EndSubdir
  209.  
  210.   @If ( ! @Exists( "@OutDrive:@Obj\\CTUS.OBJ" ) )
  211.     @Display
  212.     @Move( 12, ( 53 - @StrLen( "@OutDrive:@Obj" ) ) / 2, "@OutDrive:@Obj\\CTUS.OBJ (TERMINAL) NOT FOUND" )
  213.     @Move( 16, 10 )
  214.                                        @Pause
  215.     @EndDisplay
  216.     @Goto GetObjPath
  217.   @Endif
  218. @Endif
  219.  
  220. @If ( ! @Exists( "@OutDrive:@Samples\\NBDCHAT.PRG" ) )
  221. @GetOption
  222. @LocalWindow(9,38)
  223. @Cls
  224.  
  225. @Cls
  226.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  227.   █ Computer        █
  228.   █  Associates     █     The installer is not able to locate 
  229.   █   International █     CA-Clipper Tools Sample programs.  Do you want 
  230.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█     to upgrade your CA-Clipper Tools Samples?
  231.        ▄▄▄▄▄▄▄▄▄         
  232.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄         @Option 201 = "  Yes  " 
  233.                             @Option 202 = "  No   " 
  234. @Newline
  235. @Newline
  236. @Newline
  237.       Select 'Yes' to upgrade your CA-Clipper tools NBDCHAT.PRG sample
  238.       program.  You will be prompted to enter the path to the samples 
  239.       directory where the NBDCHAT.PRG sample program resides.  Select 
  240.       'No' to bypass the CA-Clipper Tools sample program upgrade 
  241.       portion of the install.
  242. @EndOption
  243. @Endif
  244.  
  245. @If ( ( ! 202 [= @Option ) && ( ( 102 [= @Option ) || ( ! @Exists( "@OutDrive:@Samples\\NBDCHAT.PRG" ) ) ) )
  246. GetSamPath:
  247.   @GetSubdir @Samples
  248.   @LocalWindow(9,48)
  249.   @Move(12,1)
  250.                 Enter the path to the NBDCHAT.PRG directory, then
  251.                 press ─┘ to continue.  Press Esc to exit.  
  252.  
  253.   @EndSubdir
  254.  
  255.   @If ( ! @Exists( "@OutDrive:@Samples\\NBDCHAT.PRG" ) )
  256.     @Display
  257.     @Move( 12, ( 46 - @StrLen( "@OutDrive:@Samples" ) ) / 2, "@OutDrive:@Samples\\NBDCHAT.PRG (SAMPLE PROGRAM) NOT FOUND" )
  258.     @Move( 16, 10 )
  259.                                        @Pause
  260.     @EndDisplay
  261.     @Goto GetSamPath
  262.   @Endif
  263. @Endif
  264.  
  265.  
  266. @If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Ng" ) ) )
  267. GetNgPath:
  268.   @GetSubdir @Ng
  269.   @LocalWindow(9,48)
  270.   @Move(12,1)
  271.                 Enter the path to the NG directory, then
  272.                 press ─┘ to continue.  Press Esc to exit.  
  273.   @EndSubdir
  274.  
  275.   @If ( ! @DirExists( "@OutDrive:@Ng" ) )
  276.     @Display
  277.     @Move( 12, ( 58 - @StrLen( "@Ng" ) ) / 2, "@OutDrive:@Ng DIRECTORY NOT FOUND" )
  278.     @Move( 16, 1 )
  279.                                        @Pause
  280.     @EndDisplay
  281.     @Goto GetNgPath
  282.   @Endif
  283. @EndIf
  284.  
  285. @Move( 0, 0, "Checking for a valid version of CA-Clipper Tools 3" )
  286. @If ( @SPAWN("CHECK @OutDrive:@LIB @OutDrive:@LIB > NUL") != 0 )
  287.    @Move( 1, 0, "Unable to locate a valid version of CA-Clipper Tools" )
  288.    @Abort()
  289. @Endif 
  290.  
  291. @DefineDisk
  292.         @Label = "Disk 1"
  293.  
  294.         @BeginLib OBJ.LIF
  295.                 @File *.* @Out @Outdrive:\@Obj\*.*
  296.         @EndLib
  297.  
  298.        @If ( @Exists( "@OutDrive:@Samples\\NBDCHAT.PRG" ) )
  299.                 @BeginLib Samples.LIF
  300.                         @File *.* @Out @Outdrive:\@Samples\*.*
  301.                 @EndLib
  302.        @Endif
  303.  
  304.  
  305. @EndDisk
  306.  
  307. @Finish
  308.   @Move( 1, 0, "Copying @StartUpDrive:\\README.CTP --> @OutDrive:@SubDir\\README.CTP" )
  309.   @Copy( "@StartupDrive:\\ReadMe.CTP", "@OutDrive:@SubDir\\ReadMe.CTP" )
  310.  
  311.   Loading ExoSpace Patch Information...
  312.   @SPAWN("@StartupDrive:PATCH @OutDrive:@ExoBin @StartupDrive:ex1a-e-h /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
  313.                                        @Pause
  314.  
  315.   Loading Norton Guide Patch Information...
  316.   @SPAWN("@StartupDrive:PATCH @OutDrive:@NG @StartupDrive:exng-10e /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
  317.                                        @Pause
  318.  
  319.  
  320.   @ChDrive(@OutDrive)
  321.   @ChDir("@SubDir")
  322.   @Cls
  323.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     CA-Clipper Tools/ExoSpace Installation
  324.   █ Computer        █
  325.   █  Associates     █     CA-Clipper Tools/ExoSpace has been successfully
  326.   █   International █     installed on your computer. Before using the 
  327.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█     product, view the README.CTP file located in the
  328.        ▄▄▄▄▄▄▄▄▄          @SubDir directory using your word processor or 
  329.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄       the DOS TYPE command. This file contains the 
  330.                           latest product information.
  331.  
  332.  
  333.  
  334. @Pause
  335. @EndFinish
  336.  
  337. /*---------------------* EOF INSTALL.DAT *--------------------*/
  338.  
  339.