home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database / CLIPR503.W96 / INSTALL.DAT < prev    next >
Text File  |  1995-06-26  |  14KB  |  485 lines
  1. /****************************************************************/
  2. /*  INSTALL.DAT                                                 */
  3. /*                                                              */
  4. /*  Copyright (c) 1992 Computer Associates International        */
  5. /*  All Rights Reserved                                         */
  6. /*                                                              */
  7. /*  Last revision:   06/28/94                                   */
  8. /****************************************************************/
  9.  
  10. @DefineProject
  11.    @Group     = "A"
  12.    @Requires  @HardDisk
  13.    @Name      = "CA-Clipper 5.3"
  14.    @Version   = "5.3"
  15.    @OutDrive  = C
  16.    @Subdir    = "\\CLIP53"
  17.    @Immediate = 1
  18.    @Terse
  19. @EndProject
  20.  
  21. @DefineVars
  22.    @Integer @InDisk  = 0      /* change for proper input disk type */
  23.    @Integer @Fails   = 0
  24.    @Integer @Totsize = 0
  25.    @Integer @TotKB   = 0
  26.    @Integer @Asize   = 5978
  27.    @Integer @Bsize   =  347
  28.    @Integer @Csize   =  292
  29.    @Integer @Dsize   = 2322
  30.  
  31.    @Integer @DBUsize =  242
  32.    @Integer @PEsize  =   13
  33.    @Integer @RLsize  =   92
  34.  
  35. /* Maxsize is the sum of A, B, C, and D size.  Must be updated if any of those
  36.    are changed!!! */
  37.    @Integer @Maxsize = 8939
  38.    @Dir @Bin         = "\\BIN"
  39.    @Dir @Include     = "\\INCLUDE"
  40.    @Dir @Lib         = "\\LIB"
  41.    @Dir @Obj         = "\\OBJ"
  42.    @Dir @Dbu         = "\\SOURCE\\DBU"
  43.    @Dir @Pe          = "\\SOURCE\\PE"
  44.    @Dir @Rl          = "\\SOURCE\\RL"
  45.    @Dir @Sample      = "\\SOURCE\\SAMPLE"
  46.    @Dir @Sys         = "\\SOURCE\\SYS"
  47.    @Dir @Ng          = "\\NG"
  48.    @Dir @Rtl         = "\\RTL"
  49.    @Qstring @NewLine = "\n"
  50.    @Qstring @Qs1     = " System Files            "
  51.    @Qstring @Qs2     = " Utilities Source Code   "
  52.    @Qstring @Qs3     = " Sample Programs         "
  53.    @Qstring @Qs4     = " On-line Documentation   "
  54.    @Qstring @Qs10     = "Database Utility - DBU"
  55.    @Qstring @Qs11     = "Program Editor - PE"
  56.    @Qstring @Qs12     = "Report and Label Utility - RL"
  57.    @Qstring @Yes      = "=> "
  58. @EndVars
  59.  
  60. @Display
  61. @Cls
  62.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  63.   █ Computer        █
  64.   █  Associates     █     This program will install @Name on your
  65.   █   International █     computer system and verify the integrity
  66.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█     of the distribution disks. The basic steps
  67.        ▄▄▄▄▄▄▄▄▄          in the installation procedure are as follows:
  68.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  69.                           ■ Select target drive and directory
  70.                           ■ Select files you want to install
  71.                           ■ Install selected files
  72.                           ■ Update AUTOEXEC.BAT and CONFIG.SYS
  73.  
  74.  
  75.      You will be prompted step by step through the procedure and, when
  76.      you are finished, @Name will be installed on your hard disk.
  77.      Press Esc at any time to stop the installation.
  78.  
  79.                                        @Pause
  80.  
  81. @EndDisplay
  82.  
  83. DrivePick:
  84. @GetOutDrive
  85. @Suppress A
  86. @Suppress B
  87. @LocalWindow(11,36)
  88. @Cls
  89.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  90.   █ Computer        █
  91.   █  Associates     █     Select Target Drive:
  92.   █   International █
  93.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  94.        ▄▄▄▄▄▄▄▄▄
  95.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.    Use  and  to highlight a drive, and press ─┘ to select and continue.
  108.                             Press Esc to exit.
  109. @EndOutDrive
  110.  
  111. @GetSubdir
  112. @LocalWindow(6,56)
  113. @Cls
  114.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  115.   █ Computer        █
  116.   █  Associates     █     Select Target Directory
  117.   █   International █
  118.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  119.        ▄▄▄▄▄▄▄▄▄
  120.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  121.  
  122.  
  123.     ┌──────────────────────────────────────────────────────────────────┐
  124.     │ WARNING!  The installation will overwrite the files in the       │
  125.     │ target directory.  If another release of CA-Clipper is installed │
  126.     │ in the target directory that is displayed, you may want to       │
  127.     │ install CA-Clipper 5.3 into a different directory to prevent     │
  128.     │ losing files.  Please note that \CLIPPER53 is not a valid        │
  129.     │ directory name, as it will be truncated to \CLIPPER5.            │
  130.     └──────────────────────────────────────────────────────────────────┘
  131.  
  132.      Type a directory name (limit 8 characters), and press ─┘ to
  133.      continue. Press Esc to exit.
  134.  
  135. @EndSubdir
  136.  
  137. GroupPick:
  138. @Totsize = (0)
  139. @GetGroups
  140.    @LocalWindow(7,40)
  141.    @SetGroup(A)
  142.    @SetGroup(B)
  143.    @SetGroup(C)
  144.    @SetGroup(D)
  145.    @CheckBox
  146.    @Cls
  147.                           @Name Installation
  148.  
  149.                           Select Groups to Install:
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.       ■ System Files are the basic files necessary to compile, link
  157.         and debug programs.
  158.       ■ Utilities are additional utilities to aid you in application
  159.         development.  If you choose to install the utilities, you will
  160.         be given the option to select which utilities to install.
  161.       ■ Sample Programs are the source code files for the sample
  162.         programs and replaceable system files.
  163.       ■ On-line Documentation consists of the files required to access
  164.         the on-line documentation.
  165.  
  166.     Use  and  to highlight a group, and press Space to change its status.
  167.                    Press ─┘ to continue or Esc to exit.
  168.    @Set A = "@Qs1  @Asize KB"
  169.    @Set B = "@Qs2  @Bsize KB"
  170.    @Set C = "@Qs3  @Csize KB"
  171.    @Set D = "@Qs4  @Dsize KB"
  172. @EndGroups
  173.  
  174. @If ('B' [= @Group)
  175.    @GetOption
  176.    @CheckBox
  177.    @SetOption(10)
  178.    @SetOption(11)
  179.    @SetOption(12)
  180.    @LocalWindow(7,40)
  181.    @Cls
  182.                           @Name Installation
  183.  
  184.                         Install the Following Utilities:
  185.  
  186.  
  187.  
  188.  
  189.    @Option 10 = "Database Utility - DBU             @DBUSize KB  "
  190.    @Option 11 = "Program Editor - PE                @PESize KB   "
  191.    @Option 12 = "Report and Label Utility - RL      @RLSize KB   "
  192.  
  193. @Newline
  194.           The Utilities Group contains additional utilities that are
  195.           available to aid you in application development.  The files
  196.           will be installed to the following directories:
  197.  
  198.           Executables  =>  @Subdir\BIN
  199.           DBU source   =>  @Subdir\SOURCE\DBU
  200.           RL source    =>  @Subdir\SOURCE\RL
  201.           PE source    =>  @Subdir\SOURCE\PE
  202.  
  203.     Use  and  to highlight a group, and press Space to change its status.
  204.                    Press ─┘ to continue or Esc to exit.
  205.    @EndOption
  206. @EndIf
  207.  
  208. /* Calculate installation disk space size */
  209.  
  210. @If ('A' [= @Group)
  211.    @Totsize = (@Totsize + @Asize)
  212. @EndIf
  213.  
  214. @If ('B' [= @Group)
  215.    @If (10 [= @Option)
  216.      @Totsize = (@Totsize + @DBUsize)
  217.    @Endif
  218.    @If (11 [= @Option)
  219.      @Totsize = (@Totsize + @PEsize)
  220.    @Endif
  221.    @If (12 [= @Option)
  222.      @Totsize = (@Totsize + @RLsize)
  223.    @Endif
  224. @EndIf
  225.  
  226. @If ('C' [= @Group)
  227.    @Totsize = (@Totsize + @Csize)
  228. @EndIf
  229.  
  230. @If ('D' [= @Group)
  231.    @Totsize = (@Totsize + @Dsize)
  232. @EndIf
  233.  
  234. @TotKB = (@Totsize * 1024)
  235.  
  236. @If (@TotKB > @DiskFree @OutDrive)
  237.    @GetOption
  238.    @ClearOption(1)
  239.    @ClearOption(2)
  240.    @ClearOption(3)
  241.    @ClearOption(4)
  242.  
  243.    @LocalWindow(7,42)
  244.    @Cls
  245.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  246.   █ Computer        █
  247.   █  Associates     █     Select an Action:
  248.   █   International █
  249.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  250.        ▄▄▄▄▄▄▄▄▄
  251.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  252.  
  253.                         @Option 1 = "Select a different drive"
  254.                         @Option 2 = "Select different file groups"
  255.                         @Option 3 = "Continue with installation"
  256.                         @Option 4 = "Exit to DOS"
  257.  
  258. @NewLine
  259.        ┌───────────────────────────────────────────────────────────────┐
  260.        │   WARNING! There is not enough disk space to complete this    │
  261.        │   installation.                                               │
  262.        └───────────────────────────────────────────────────────────────┘
  263.  
  264.        The installation requires @TotKB bytes and DRIVE @OutDrive has only
  265.        @DiskFree @OutDrive bytes available.
  266.  
  267.  
  268.    Use  and  to highlight an option, and press ─┘ to select and continue.
  269.                              Press Esc to exit.
  270.    @EndOption
  271.  
  272.    @If (1 [= @Option)
  273.       @Goto DrivePick
  274.    @EndIf
  275.    @If (2 [= @Option)
  276.       @Goto GroupPick
  277.    @EndIf
  278.    @If (4 [= @Option)
  279.       @Display
  280.          @Cls
  281.          @Abort
  282.       @EndDisplay
  283.    @EndIf
  284. @EndIf
  285.  
  286. @Display
  287. @Cls
  288.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  289.   █ Computer        █
  290.   █  Associates     █     The groups denoted with '=>' will be installed
  291.   █   International █
  292.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█  @If ('A' [= @Group)   @Yes @Qs1 @Else       @Qs1 @Endif
  293.        ▄▄▄▄▄▄▄▄▄       @If ('B' [= @Group)   @Yes @Qs2 @Else       @Qs2 @Endif
  294.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄    @If (10 [= @Option)   @Yes     @Qs10 @Else           @Qs10 @Endif
  295.                        @If (11 [= @Option)   @Yes     @Qs11 @Else           @Qs11 @Endif
  296.                        @If (12 [= @Option)   @Yes     @Qs12 @Else           @Qs12 @Endif
  297.                        @If ('C' [= @Group)   @Yes @Qs3 @Else       @Qs3 @Endif
  298.                        @If ('D' [= @Group)   @Yes @Qs4 @Else       @Qs4 @Endif
  299.  
  300.                           @Totsize KB is required for the installation.
  301.  
  302.  
  303.  
  304.                                      @pause
  305. @EndDisplay
  306.  
  307. /*
  308. @If ('A' [= @Group)
  309.   @Display
  310.   @Cls
  311.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  312.   █ Computer        █
  313.   █  Associates     █     Checking files.  Please wait ...
  314.   █   International █
  315.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  316.        ▄▄▄▄▄▄▄▄▄
  317.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  318.  
  319.  
  320.   @MkDir("@Outdrive:\\@SubDir\\@Bin")
  321.   @If (@System("@StartupDrive:\\product @Outdrive:\\@SubDir\\@Bin")==0)
  322.   @Endif
  323.   @EndDisplay
  324.  
  325.   @If (!@Exists("@Outdrive:\\@SubDir\\@Bin\\clipper.53"))
  326.   @Display
  327.   @LocalWindow(7,46)
  328.   @Cls
  329.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  330.   █ Computer        █
  331.   █  Associates     █     Invalid version.
  332.   █   International █
  333.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  334.        ▄▄▄▄▄▄▄▄▄
  335.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  336.  
  337.   @NewLine
  338.          ┌───────────────────────────────────────────────────────────┐
  339.          │   ERROR! This release of CA-Clipper is only for use in    │
  340.          │   the U.S. and Canada.  Please contact your dealer for    │
  341.          │   the correct international release of CA-Clipper.        │
  342.          └───────────────────────────────────────────────────────────┘
  343.  
  344.                             @Pause
  345.  
  346.    @EndDisplay
  347.    @Abort
  348.    @EndIf
  349. @EndIf
  350. */
  351.  
  352. @If ('A' [= @Group)
  353.    @GetOption
  354.    @LocalWindow(7,38)
  355.    @Cls
  356.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  357.   █ Computer        █
  358.   █  Associates     █     Allow changes to AUTOEXEC.BAT?
  359.   █   International █
  360.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  361.        ▄▄▄▄▄▄▄▄▄
  362.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  363.  
  364.                         @Option 101 = "  Yes  "
  365.                         @Option 102 = "  No   "
  366.    @Newline
  367.       For CA-Clipper to work correctly, the DOS environment variables
  368.       LIB, INCLUDE, and OBJ must be set.  It is recommended that
  369.       you allow the install to make the necessary changes to your
  370.       AUTOEXEC.BAT file. If you choose not to allow changes, the
  371.       proposed changes will be written to AUTOEXEC.NEW.
  372.  
  373.    @EndOption
  374. @EndIf
  375.  
  376. @If ('A' [= @Group)
  377.    @GetOption
  378.    @LocalWindow(7,38)
  379.    @Cls
  380.   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  381.   █ Computer        █
  382.   █  Associates     █     Allow changes to CONFIG.SYS?
  383.   █   International █
  384.   █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  385.        ▄▄▄▄▄▄▄▄▄
  386.     ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  387.  
  388.                         @Option 201 = "  Yes  "
  389.                         @Option 202 = "  No   "
  390. @Newline
  391.       For CA-Clipper to work correctly, the FILES and BUFFERS settings
  392.       must be adjusted.  It is recommended that you allow the install
  393.       to make the necessary changes to your CONFIG.SYS file. If you
  394.       choose not to allow changes, the proposed changes will be written
  395.       to CONFIG.NEW.
  396.  
  397.    @EndOption
  398. @EndIf
  399.  
  400. @If (@DiskSize (@InDrive)     < 400000)
  401.    @Indisk = 360
  402. @ElseIf (@DiskSize (@InDrive) < 750000)
  403.    @Indisk = 720
  404. @ElseIf (@DiskSize (@InDrive) < 1300000)
  405.    @Indisk = 1200
  406. @ElseIf (@DiskSize (@InDrive) < 1500000)
  407.    @Indisk = 1440
  408. @Else
  409.    @Indisk = 0
  410. @EndIf
  411.  
  412. @If (@InDisk == 720)
  413.    @DefineDisk
  414.       @Label = "Installation Disk 5"
  415.    @EndDisk
  416.  
  417.    @DefineDisk
  418.       @Label = "Installation Disk 6"
  419.    @EndDisk
  420.  
  421.    @DefineDisk
  422.       @Label = "Installation Disk 7"
  423.    @EndDisk
  424.  
  425.    @DefineDisk
  426.       @Label = "Installation Disk 8"
  427.    @EndDisk
  428.  
  429. @ElseIf (@InDisk == 1200)
  430.    @DefineDisk
  431.       @Label = "Installation Disk 5"
  432.    @EndDisk
  433.  
  434.    @DefineDisk
  435.       @Label = "Installation Disk 6"
  436.    @EndDisk
  437.  
  438.    @DefineDisk
  439.       @Label = "Installation Disk 7"
  440.    @EndDisk
  441.  
  442. @ElseIf (@InDisk == 1440)
  443.    @DefineDisk
  444.       @Label = "Installation Disk 5"
  445.       @File README.TXT @Out @Outdrive:\\@Subdir\\*.*
  446.  
  447. /*
  448.       @If (('A' [= @Group) ||
  449.            ('B' [= @Group) ||
  450.            ('C' [= @Group) ||
  451.            ('D' [= @Group))
  452.  
  453.       @Else
  454.            @Abort
  455.       @EndIf
  456. */
  457.   @EndDisk
  458.  
  459.  @If ('A' [= @Group)
  460.    @MoveCStr(1,0,," Installing @Name - Please Wait . . .")
  461.    @MoveCStr(11,28,,"Decompressing Files . . .")
  462.  
  463.    @MkDir("@Outdrive:\\@SubDir\\@Bin")
  464.    @Spawn("@InDrive:\\RUNPROG 2 5 0 @Outdrive:\\@Subdir\\@Bin\\ @InDrive:\\")
  465.  
  466.    @MkDir("@Outdrive:\\@SubDir\\@Obj")
  467.    @Spawn("@InDrive:\\RUNPROG 2 5 3 @Outdrive:\\@Subdir\\@Obj\\ @InDrive:\\")
  468.  
  469.    @MkDir("@Outdrive:\\@SubDir\\@Include")
  470.    @Spawn("@InDrive:\\RUNPROG 2 5 1 @Outdrive:\\@Subdir\\@Include\\ @InDrive:\\")
  471. /*
  472.    @MkDir("@Outdrive:\\@SubDir\\@Lib")
  473.    @Spawn("@InDrive:\\RUNPROG 2 5 2 @Outdrive:\\@Subdir\\@Lib\\ @InDrive:\\")
  474. */
  475.  @EndIf
  476.  
  477. @EndIf
  478.  
  479.  @Display
  480.   @Cls
  481.  @EndDisplay
  482.  
  483.  
  484.  @Chain("Installation Disk 6")
  485.