Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : 52DCLIP.ZIP
Filename : INSTALL.DAT

/****************************************************************/
/* INSTALL.DAT */
/* */
/* Copyright (c) 1993 Computer Associates International */
/* All Rights Reserved */
/* */
/* Last revision: 04/21/94 */
/****************************************************************/

@DefineProject
@Group = "A"
@Requires @HardDisk
@Name = "CA-Clipper 5.2d / ExoSpace 1.0f"
@Version = "5.2d"
@OutDrive = C
@Subdir = "\\CLIPPER5"
@EndProject

@DefineVars
@Integer @InDisk = 0 /* change for proper input disk type */
@Integer @IsExo = 1 /* is ExoSpace installed */
@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"
@Dir @ExoBin = "@SubDir\\BIN"
@Dir @Error = "@SubDir\\SOURCE\\ERROR"
@Dir @Filesys = "@SubDir\\SOURCE\\FILESYS"
@Dir @Item = "@SubDir\\SOURCE\\ITEM"
@Dir @Sdx = "@SubDir\\SOURCE\\SDX"
@Dir @Vm = "@SubDir\\SOURCE\\VM"
@Qstring @NewLine = "\n"
@Qstring @Pkbkp = "/O"
@Qstring @InstName = @Name

@EndVars

@Display
@Cls
ÛßßßßßßßßßßßßßßßßßÛ @InstName Patch
Û Computer Û
Û Associates Û This program will upgrade the CA-Clipper
Û International Û version 5.20, 5.2a, 5.2b or 5.2c files on
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ your computer system to 5.2d. It will also
ÜÜÜÜÜÜÜÜÜ upgrade CA-Clipper/Exospace to version 1.0f
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ if ExoSpace is already installed on your
computer. The basic steps in the procedure
are as follows:

þ 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
ÛßßßßßßßßßßßßßßßßßÛ @InstName Installation
Û Computer Û
Û Associates Û
Û International Û Exit Patch and Perform a backup?
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ
ÜÜÜÜÜÜÜÜÜ
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

@Option 10 = "Exit"
@Option 11 = "Continue"

@Newline

You should backup your current versions of CA-Clipper 5.2 and
ExoSpace (if it's installed) and remove any prior versions of
CA-Clipper 5.2 from your CA-Clipper 5.2 directory structure
before applying the CA-Clipper 5.2d upgrade patch. If you
have not backed up and removed any prior versions (as per the
instructions contained in the 52DUS.TXT file) yet, you should
exit this installation, perform a backup and restart the patch
process.

@EndOption

@If ( 10 [= @Option )
@Exitÿ()
@Endif


DrivePick:
@GetOutDrive
@Suppress A
@Suppress B
@LocalWindow(11,36)
@Cls
ÛßßßßßßßßßßßßßßßßßÛ @InstName Installation
Û Computer Û
Û Associates Û Select Target 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(7,56)
@Cls
ÛßßßßßßßßßßßßßßßßßÛ @InstName 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(8,40)
@Cls

@Cls
ÛßßßßßßßßßßßßßßßßßÛ @InstName Installation
Û Computer Û
Û Associates Û
Û International Û Do you have ExoSpace installed?
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ
ÜÜÜÜÜÜÜÜÜ
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

@Option 50 = " Yes "
@Option 51 = " No "



@Newline

Select 'Yes' if you have CA-Clipper/ExoSpace installed. You will be
prompted for the directory name where EXOSPACE.EXE is installed.
You should NOT press 'Yes' if you do not have ExoSpace installed on
your computer.

@EndOption

@If ( 51 [= @Option )
@IsExo = 0
@InstName = "CA-Clipper 5.2d"
@Endif

@If ( @IsExo != 0 )
@GetSubdir @ExoBin
@LocalWindow(7,56)
@Cls
ÛßßßßßßßßßßßßßßßßßÛ @InstName Installation
Û Computer Û
Û Associates Û Select ExoSpace.EXE Directory
Û International Û
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ
ÜÜÜÜÜÜÜÜÜ
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ






Type a directory name, and press ÄÙ to continue. Press Esc to exit.

@EndSubdir
@Endif

@GetOption
@LocalWindow(7,40)
@Cls

@Cls
ÛßßßßßßßßßßßßßßßßßÛ @InstName Installation
Û Computer Û
Û Associates Û Patch files in the following directories?
Û International Û
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ
ÜÜÜÜÜÜÜÜÜ
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
@Option 101 = " Yes "
@Option 102 = " No "
@Move(9,1)
Executables => @Subdir\BIN
Libraries => @Subdir\LIB
Header files => @SubDir\INCLUDE
Obj files => @SubDir\OBJ
Norton guide => \NG
@If ( @IsExo != 0 )
@Move(14,1)
ExoSpace.EXE => @ExoBin
@Endif


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"
@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, ( 58 - @StrLen( "@Bin" ) ) / 2, "@OutDrive:@Bin DIRECTORY NOT FOUND" )
@Move( 16, 1 )
@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, ( 58 - @StrLen( "@Lib" ) ) / 2, "@OutDrive:@Lib DIRECTORY NOT FOUND" )
@Move( 16, 1 )
@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, ( 58 - @StrLen( "@Include" ) ) / 2, "@OutDrive:@Include DIRECTORY NOT FOUND" )
@Move( 16, 1 )
@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, ( 58 - @StrLen( "@Obj" ) ) / 2, "@OutDrive:@Obj DIRECTORY NOT FOUND" )
@Move( 16, 1 )
@Pause
@EndDisplay
@Goto GetObjPath
@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, ( 58 - @StrLen( "@Ng" ) ) / 2, "@OutDrive:@Ng DIRECTORY NOT FOUND" )
@Move( 16, 1 )
@Pause
@EndDisplay
@Goto GetNgPath
@Endif
@EndIf

@If ( @IsExo != 0 )
@If ( ( 102 [= @Option ) || ( ! @Exists( "@OutDrive:@ExoBin\\EXOSPACE.EXE" ) ) )
GetExoBinPath:
@GetSubdir @ExoBin
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the ExoSpace.EXE directory, then
press ÄÙ to continue. Press Esc to exit.

@EndSubdir

@If ( ! @Exists( "@OutDrive:@ExoBin\\EXOSPACE.EXE" ) )
@Display
@Move( 12, ( 53 - @StrLen( "@OutDrive:@ExoBin" ) ) / 2, "@OutDrive:@ExoBin\\EXOSPACE.EXE (LINKER) NOT FOUND" )
@Move( 16, 10 )
@Pause
@EndDisplay
@Goto GetExoBinPath
@Endif
@Endif
@Endif

@GetOption
@LocalWindow(6,40)
@Cls

@Cls
ÛßßßßßßßßßßßßßßßßßÛ @InstName Installation
Û Computer Û
Û Associates Û Patch files in the following directories?
Û International Û
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ
ÜÜÜÜÜÜÜÜÜ
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
@Option 201 = " Yes "
@Option 202 = " No "
@Move(8,1)
Dbu files => @Subdir\SOURCE\DBU
RL files => @Subdir\SOURCE\RL
Sys files => @Subdir\SOURCE\SYS
Sample files => @Subdir\SOURCE\SAMPLE
Error API sample => @Subdir\SOURCE\ERROR
Filesys API sample => @Subdir\SOURCE\FILESYS
Item API sample => @Subdir\SOURCE\ITEM
SDX API sample => @Subdir\SOURCE\SDX
VM API sample => @Subdir\SOURCE\VM

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

@Dbu = "@Subdir\\Source\\Dbu"
@Rl = "@Subdir\\Source\\Rl"
@Sys = "@Subdir\\Source\\Sys"
@Sample = "@Subdir\\Source\\Sample"
@Error = "@Subdir\\Source\\Error"
@Filesys = "@Subdir\\Source\\Filesys"
@Item = "@Subdir\\Source\\Item"
@Sdx = "@Subdir\\Source\\Sdx"
@Vm = "@Subdir\\Source\\Vm"

@If ( ( 202 [= @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, ( 58 - @StrLen( "@Dbu" ) ) / 2, "@OutDrive:@Dbu DIRECTORY NOT FOUND" )
@Move( 16, 1 )
@Pause
@EndDisplay
@Goto GetDbuPath
@Endif
@Endif

@If ( ( 202 [= @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, ( 58 - @StrLen( "@Rl" ) ) / 2, "@OutDrive:@Rl DIRECTORY NOT FOUND" )
@Move( 16, 1 )
@Pause
@EndDisplay
@Goto GetRlPath
@Endif
@Endif

@If ( ( 202 [= @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, ( 58 - @StrLen( "@Sys" ) ) / 2, "@OutDrive:@Sys DIRECTORY NOT FOUND" )
@Move( 16, 1 )
@Pause
@EndDisplay
@Goto GetSysPath
@Endif
@Endif

@If ( ( 202 [= @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, ( 58 - @StrLen( "@Sample" ) ) / 2, "@OutDrive:@Sample DIRECTORY NOT FOUND" )
@Move( 16, 1 )
@Pause
@EndDisplay
@Goto GetSamplePath
@Endif
@Endif

@If ( 202 [= @Option )
@Goto GetErrorPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@OutDrive:@Error" ) ) )
MakeErrorDir:
@MkDir( "@OutDrive:@Error" )
@If ( ! @DirExists( "@OutDrive:@Error" ) )
@Display
@Move( 12, ( 53 - @StrLen( "@Error" ) ) / 2, "CAN NOT CREATE @OutDrive:@Error DIRECTORY" )
@Move( 16, 1 )
@Pause
@EndDisplay

GetErrorPath:
@GetSubdir @Error
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the ERROR directory, then
press ÄÙ to continue. Press Esc to exit.

@EndSubdir
@Goto MakeErrorDir
@Endif
@Endif

@If ( 202 [= @Option )
@Goto GetFilesysPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@OutDrive:@Filesys" ) ) )
MakeFilesysDir:
@MkDir( "@OutDrive:@Filesys" )
@If ( ! @DirExists( "@OutDrive:@Filesys" ) )
@Display
@Move( 12, ( 53 - @StrLen( "@Filesys" ) ) / 2, "CAN NOT CREATE @OutDrive:@Filesys DIRECTORY" )
@Move( 16, 1 )
@Pause
@EndDisplay

GetFilesysPath:
@GetSubdir @Filesys
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the FILESYS directory, then
press ÄÙ to continue. Press Esc to exit.

@EndSubdir
@Goto MakeFilesysDir
@Endif
@Endif

@If ( 202 [= @Option )
@Goto GetItemPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@OutDrive:@Item" ) ) )
MakeItemDir:
@MkDir( "@OutDrive:@Item" )
@If ( ! @DirExists( "@OutDrive:@Item" ) )
@Display
@Move( 12, ( 53 - @StrLen( "@Item" ) ) / 2, "CAN NOT CREATE @OutDrive:@Item DIRECTORY" )
@Move( 16, 1 )
@Pause
@EndDisplay

GetItemPath:
@GetSubdir @Item
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the ITEM directory, then
press ÄÙ to continue. Press Esc to exit.

@EndSubdir
@Goto MakeItemDir
@Endif
@Endif

@If ( 202 [= @Option )
@Goto GetSdxPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@OutDrive:@Sdx" ) ) )
MakeSdxDir:
@MkDir( "@OutDrive:@Sdx" )
@If ( ! @DirExists( "@OutDrive:@Sdx" ) )
@Display
@Move( 12, ( 53 - @StrLen( "@Sdx" ) ) / 2, "CAN NOT CREATE @OutDrive:@Sdx DIRECTORY" )
@Move( 16, 1 )
@Pause
@EndDisplay

GetSdxPath:
@GetSubdir @Sdx
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the SDX directory, then
press ÄÙ to continue. Press Esc to exit.

@EndSubdir
@Goto MakeSdxDir
@Endif
@Endif

@If ( 202 [= @Option )
@Goto GetVmPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@OutDrive:@Vm" ) ) )
MakeVmDir:
@MkDir( "@OutDrive:@Vm" )
@If ( ! @DirExists( "@OutDrive:@Vm" ) )
@Display
@Move( 12, ( 53 - @StrLen( "@Vm" ) ) / 2, "CAN NOT CREATE @OutDrive:@Vm DIRECTORY" )
@Move( 16, 1 )
@Pause
@EndDisplay

GetVmPath:
@GetSubdir @Vm
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the VM directory, then
press ÄÙ to continue. Press Esc to exit.

@EndSubdir
@Goto MakeVmDir
@Endif
@Endif

@DefineDisk
@Label = "Update Disk"

@BeginLib 52DINC.LIF
@FILE *.* @Out @OutDrive:@Include
@EndLib

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

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

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

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

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

@BeginLib 52DERROR.LIF
@FILE *.* @Out @OutDrive:@Error
@EndLib

@BeginLib 52DFISYS.LIF
@FILE *.* @Out @OutDrive:@Filesys
@EndLib

@BeginLib 52DITEM.LIF
@FILE *.* @Out @OutDrive:@Item
@EndLib

@BeginLib 52DSDX.LIF
@FILE *.* @Out @OutDrive:@Sdx
@EndLib

@BeginLib 52DVM.LIF
@FILE *.* @Out @OutDrive:@Vm
@EndLib

@EndDisk

@Finish
@Cls

@SPAWN("PATCH @OutDrive:@Bin CLP52BIN /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
@Pause

@SPAWN("PATCH @OutDrive:@Lib CLP52LIB /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
@Pause

@SPAWN("PATCH @OutDrive:@Ng CLP52NG /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
@Pause

@If ( @IsExo != 0 )

@SPAWN("PATCH @OutDrive:@ExoBin EXO10F /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
@Pause

@SPAWN("PATCH @OutDrive:@Ng EXNG-10F /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
@Pause

@Endif

@ChDrive(@StartUpDrive)
@ChDir("@StartupDir")

@Cls
ÛßßßßßßßßßßßßßßßßßÛ @InstName Installation
Û Computer Û
Û Associates Û CA-Clipper 5.2d has been installed on your
Û International Û computer. Before using the product, view the
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ 52DUS.TXT file using your word processor or
ÜÜÜÜÜÜÜÜÜ the DOS TYPE command. This file contains the
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ latest product information as well as
instructions on how to re-compile DBU, RL,
PE and the pre-linked libraries.



IMPORTANT:
In order to ensure that the CA-Clipper 5.2d / ExoSpace 1.0f patch
has been successfully installed, you should compare the date and
time stamps of the updated files against the file list in the
52DUS.TXT file. If you have encountered a problem that you are
unable to correct, call your CA-Clipper Level-I Technical Support
representative.

@Pause
@EndFinish