Monster Media 1993 #2/Image.iso/clipper/52cus.zip/INSTALL.DAT

Text File | 1993-08-06 | 12KB | 406 lines

/****************************************************************/
/*  INSTALL.DAT                                                 */
/*                                                              */
/*  Copyright (c) 1993 Computer Associates International        */
/*  All Rights Reserved                                         */
/*                                                              */
/*  Last revision:   07/30/93                                   */
/****************************************************************/

@DefineProject
   @Group     = "A"
   @Requires  @HardDisk
   @Name      = "CA-Clipper 5.2c"
   @Version   = "5.2c"
   @OutDrive  = C
   @Subdir    = "\\CLIPPER5"
@EndProject

@DefineVars
   @Integer @InDisk  = 0      /* change for proper input disk type */
   @Dir @Bin         = "@SubDir\\BIN"
   @Dir @Include     = "@SubDir\\INCLUDE"
   @Dir @Lib         = "@SubDir\\LIB"
   @Dir @Obj         = "@SubDir\\OBJ"
   @Dir @Dbu         = "@SubDir\\SOURCE\\DBU"
   @Dir @Rl          = "@SubDir\\SOURCE\\RL"
   @Dir @Sys         = "@SubDir\\SOURCE\\SYS"
   @Dir @Sample      = "@SubDir\\SOURCE\\SAMPLE"
   @Dir @Ng          = "\\NG"
   @Qstring @NewLine = "\n"
   @Qstring @Pkbkp     = "/O"
   @Qstring @Patchbkp  = "/NOBACKUP"

@EndVars

@Display
@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Patch
  █ Computer        █
  █  Associates     █     This program will upgrade the CA-Clipper
  █   International █     version 5.20, 5.2a or 5.2b files on your
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█     computer system to 5.2c. The basic steps in
       ▄▄▄▄▄▄▄▄▄          the procedure are as follows:
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄

                          ■ Specify backup options
                          ■ Specify target directories
                          ■ Install patch files to hard disk
                          ■ Execute patch files

                  Press Esc at any time to stop the installation.

                                       @Pause

@EndDisplay
@GetOption
@LocalWindow(9,38)
@Cls

@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  █ Computer        █
  █  Associates     █
  █   International █     Specify Patch option:
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄

                            @Option 10 = "No Backup"
                            @Option 11 = "Backup"

@Newline

      Select the Patch option which causes PATCH to make backup copies
      of any files affected by the updating process. If BACKUP directory
      does not exist, PATCH will create it.


         NOTE: If there is insufficient space for backup files,
               PATCH will NOT apply any patches.
@EndOption

DrivePick:
@GetOutDrive
@Suppress A
@Suppress B
@LocalWindow(11,36)
@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  █ Computer        █
  █  Associates     █     Select Clipper 5.2 Drive:
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄









     Use  and  to highlight the drive where CLIPPER 5.2 is installed,
     then press ─┘ to continue. Press Esc to exit.

@EndOutDrive

@GetSubdir
@LocalWindow(6,56)
@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  █ Computer        █
  █  Associates     █     Select Clipper 5.2 Directory:
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄




     Type the directory name where CLIPPER 5.2 is installed, then
     press ─┘ to continue. Press Esc to exit.

@EndSubdir

@GetOption
@LocalWindow(7,38)
@Cls

@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  █ Computer        █
  █  Associates     █     Patch files in the following directories?
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄         @Option 101 = "  Yes  "
                            @Option 102 = "  No   "
@Newline
                         Executables  =>  @Subdir\BIN
                         Libraries    =>  @Subdir\LIB
                         Header files =>  @SubDir\INCLUDE
                         Obj files    =>  @SubDir\OBJ
                         Dbu files    =>  @Subdir\SOURCE\DBU
                         RL files     =>  @Subdir\SOURCE\RL
                         Sys files    =>  @Subdir\SOURCE\SYS
                         Sample files =>  @Subdir\SOURCE\SAMPLE
                         Norton guide =>  \NG

      Select 'Yes' to proceed with patch installation using directories
      shown above.  If you select 'No', you will be prompted for each
      of the above directories.
@EndOption

@Bin = "@Subdir\\Bin"
@Lib = "@Subdir\\Lib"
@Include = "@Subdir\\Include"
@Obj = "@Subdir\\Obj"
@Dbu = "@Subdir\\Source\\Dbu"
@Rl = "@Subdir\\Source\\Rl"
@Sys = "@Subdir\\Source\\Sys"
@Sample = "@Subdir\\Source\\Sample"
@Ng = "\\NG"

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Bin" ) ) )
GetBinPath:
  @GetSubdir @Bin
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the BIN directory, then
                press ─┘ to continue.  Press Esc to exit.

  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Bin" ) )
    @Display
    @Move( 12, ( 60 - @StrLen( "@OutDrive:@Bin" ) ) / 2, "@OutDrive:@Bin DIRECTORY NOT FOUND" )
    @Move( 16, 10 )
                                       @Pause
    @EndDisplay
    @Goto GetBinPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Lib" ) ) )
GetLibPath:
  @GetSubdir @Lib
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the LIB directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Lib" ) )
    @Display
    @Move( 12, ( 60 - @StrLen( "@OutDrive:@Lib" ) ) / 2, "@OutDrive:@Lib DIRECTORY NOT FOUND" )
    @Move( 16, 10 )
                                       @Pause
    @EndDisplay
    @Goto GetLibPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Include" ) ) )
GetIncludePath:
  @GetSubdir @Include
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the INCLUDE directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Include" ) )
    @Display
    @Move( 12, ( 60 - @StrLen( "@OutDrive:@Include" ) ) / 2, "@OutDrive:@Include DIRECTORY NOT FOUND" )
    @Move( 16, 10 )
                                       @Pause
    @EndDisplay
    @Goto GetIncludePath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Obj" ) ) )
GetObjPath:
  @GetSubdir @Obj
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the OBJ directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Obj" ) )
    @Display
    @Move( 12, ( 60 - @StrLen( "@OutDrive:@Obj" ) ) / 2, "@OutDrive:@Obj DIRECTORY NOT FOUND" )
    @Move( 16, 10 )
                                       @Pause
    @EndDisplay
    @Goto GetObjPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Dbu" ) ) )
GetDbuPath:
  @GetSubdir @Dbu
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the DBU directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Dbu" ) )
    @Display
    @Move( 12, ( 60 - @StrLen( "@OutDrive:@Dbu" ) ) / 2, "@OutDrive:@Dbu DIRECTORY NOT FOUND" )
    @Move( 16, 10 )
                                       @Pause
    @EndDisplay
    @Goto GetDbuPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Rl" ) ) )
GetRlPath:
  @GetSubdir @Rl
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the RL directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Rl" ) )
    @Display
    @Move( 12, ( 60 - @StrLen( "@OutDrive:@Rl" ) ) / 2, "@OutDrive:@Rl DIRECTORY NOT FOUND" )
    @Move( 16, 10 )
                                       @Pause
    @EndDisplay
    @Goto GetRlPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Sys" ) ) )
GetSysPath:
  @GetSubdir @Sys
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the SYS directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Sys" ) )
    @Display
    @Move( 12, ( 60 - @StrLen( "@OutDrive:@Sys" ) ) / 2, "@OutDrive:@Sys DIRECTORY NOT FOUND" )
    @Move( 16, 10 )
                                       @Pause
    @EndDisplay
    @Goto GetSysPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Sample" ) ) )
GetSamplePath:
  @GetSubdir @Sample
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the SAMPLE directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Sample" ) )
    @Display
    @Move( 12, ( 60 - @StrLen( "@OutDrive:@Sample" ) ) / 2, "@OutDrive:@Sample DIRECTORY NOT FOUND" )
    @Move( 16, 10 )
                                       @Pause
    @EndDisplay
    @Goto GetSamplePath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Ng" ) ) )
GetNgPath:
  @GetSubdir @Ng
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the NG directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Ng" ) )
    @Display
    @Move( 12, ( 60 - @StrLen( "@OutDrive:@Ng" ) ) / 2, "@OutDrive:@Ng DIRECTORY NOT FOUND" )
    @Move( 16, 10 )
                                       @Pause
    @EndDisplay
    @Goto GetNgPath
  @Endif
@EndIf

  @DefineDisk
     @Label = "Update Disk"

     @BeginLib 52COBJ.LIF
       @FILE *.* @Out @OutDrive:@Obj
     @EndLib

     @BeginLib 52CRL.LIF
       @FILE *.* @Out @OutDrive:@Rl
     @EndLib

     @BeginLib 52CDBU.LIF
       @FILE *.* @Out @OutDrive:@Dbu
     @EndLib

     @BeginLib 52CSAMPL.LIF
       @FILE *.* @Out @OutDrive:@Sample
     @EndLib

     @BeginLib 52CSYS.LIF
       @FILE *.* @Out @OutDrive:@Sys
     @EndLib

  @EndDisk

@Finish
@Cls
@ChDrive(@StartUpDrive)

  @If (10 [= @Option)

     @SPAWN("PATCH @OutDrive:@Bin CLP52BIN @patchbkp")
                                       @Pause
     @SPAWN("PATCH @OutDrive:@Lib CLP52LIB @patchbkp")
                                       @Pause
     @SPAWN("PATCH @OutDrive:@Include CLP52INC @patchbkp")
                                       @Pause
     @SPAWN("PATCH @OutDrive:@Ng CLP52NG @patchbkp")
                                       @Pause
  @Endif

  @If (11 [= @Option)
     @SPAWN("PATCH @OutDrive:@Bin CLP52BIN")
                                            @Pause
     @SPAWN("PATCH @OutDrive:@Lib CLP52LIB")
                                       @Pause
     @SPAWN("PATCH @OutDrive:@Include CLP52INC")
                                       @Pause
     @SPAWN("PATCH @OutDrive:@Ng CLP52NG")
                                       @Pause
  @Endif

  @Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  █ Computer        █
  █  Associates     █     CA-Clipper 5.2c has been successfully installed
  █   International █     on your computer. Before using the product,
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█     view the README file located in the @SubDir
       ▄▄▄▄▄▄▄▄▄          directory using your word processor or the DOS
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄       TYPE command. This file contains the latest
                          product information.



@Pause
@EndFinish