home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_300 / 326_01 / scdbl30.inf < prev   
INI File  |  1992-03-08  |  3KB  |  120 lines
  1. ;; This is the installation script for the SoftC Database Library.
  2.  
  3. Do SetupINSTALIT
  4.  
  5. QueAllFiles
  6. [Number1] := QueSize
  7.  
  8. Dialog
  9.     Welcome to the SoftC installation program.  This program will copy
  10.     the files needed to install the SoftC Database Library on your
  11.     system.  You will need approximately [Number1] bytes of available
  12.     disk space to install the entire package including help file(s),
  13.     and the sample code. Space requirements for the Windows DLL and the
  14.     library source code (if they are provided) is included.
  15. EndDialog
  16.  
  17. DetermineInstallationDrive RequireFixed
  18.  
  19. [Number1] := 5
  20.  
  21. [DIR1] := [InstallationDirectory]
  22.  
  23. [YesOrNo1] := Y
  24. [YesOrNo2] := Y
  25. [YesOrNo3] := Y
  26. [YesOrNo4] := N
  27.  
  28. [Point1]
  29.  
  30. GetMenuChoice Highlight [Number1]
  31.     SoftC Database Library Directory:        [DIR1]
  32.     ; Press <ENTER> to change the directory
  33.     ; for the SoftC Database Library files.
  34.     Install Help Files:                      [YesOrNo1]
  35.     ; Press <ENTER> to toggle the help file installation.
  36.     Install Windows DLL:                     [YesOrNo2]
  37.     ; Press <ENTER> to toggle the help file installation.
  38.     Install Source Files:                    [YesOrNo3]
  39.     ; Press <ENTER> to toggle the source file installation.
  40.     Automatically Overwrite Existing Files:  [YesOrNo4]
  41.     ; Press <ENTER> to toggle the overwrite inquiry.
  42.     Begin Installation
  43.     ; Press <ENTER> to begin installation.
  44. EndGetMenuChoice
  45.  
  46. InCase Choice is
  47.     =1: Do ChangeSoftC      ;; change SoftC directory
  48.             [Number1] := 1
  49.     =2: [YesOrNo5] := [YesOrNo1]
  50.             Do ToggleYN               ;; install help?
  51.             [YesOrNo1] := [YesOrNo5]
  52.             [Number1] := 2
  53.     =3: [YesOrNo5] := [YesOrNo2]
  54.             Do ToggleYN         ;; install Windows DLL?
  55.             [YesOrNo2] := [YesOrNo5]
  56.             [Number1] := 3
  57.     =4: [YesOrNo5] := [YesOrNo3]
  58.             Do ToggleYN         ;; install source?
  59.             [YesOrNo3] := [YesOrNo5]
  60.             [Number1] := 4
  61.     =5: [YesOrNo5] := [YesOrNo4]
  62.             Do ToggleYN         ;; ask before overwriting?
  63.             [YesOrNo4] := [YesOrNo5]
  64.             [Number1] := 5
  65.     =6: Do Install  ;; begin installation
  66. EndInCase
  67.  
  68. GoTo [Point1]
  69.  
  70. Procedure ChangeSoftC
  71.     Dialog [Dir1] 50
  72.     .cEnter directory where the SoftC Database Library is to be installed.
  73.     EndDialog
  74. EndProcedure
  75.  
  76. Procedure ToggleYN
  77.     If [YesOrNo5] = N
  78.         [YesOrNo5] := Y
  79.     Else
  80.         [YesOrNo5] := N
  81.     EndIf
  82. EndProcedure
  83.  
  84. Procedure Install
  85.     If [YesOrNo1] = N
  86.         UnQueFileGroup 3    ;; help files
  87.     EndIf
  88.     If [YesOrNo2] = N
  89.         UnQueFileGroup 80       ;; Windows DLL
  90.     EndIf
  91.     If [YesOrNo3] = N
  92.         UnQueFileGroup 100      ;; source code, batch files, etc.
  93.     EndIf
  94.     If [YesOrNo4] = Y
  95.         SetReplacementInquiry Off ;; don't ask before overwriting
  96.     EndIf
  97.     GetQuedFiles
  98.     Dialog PressAKey
  99.         .cPlease check the README.1ST file found in
  100.         .c[DIR1]\HELP
  101.         .cfor last-minute information that
  102.         .cmay not be included in the manual.
  103.     EndDialog
  104.     SoLong
  105. EndProcedure
  106.  
  107.  
  108. Procedure SetupINSTALIT
  109.     SetBackgroundCharTo B0
  110.     SetShadowAttrTo DarkGrayOnBlack
  111.     SetScreenAttrTo WhiteOnBlue
  112.     SetTopLineAttrTo RedOnWhite
  113.     SetTopLineTo " Installing the SoftC Database Library "
  114.     SetBottomLineAttrTo CyanOnWhite
  115.     SetBottomLineTo " Use <CtrlX> to quit. "
  116.     SetExitMessageTo  Thank you for choosing the SoftC Database Library!
  117. EndProcedure
  118.  
  119. EndScript
  120.