Magazyn Amiga 12/MA_Cover_12.iso/libs/msqllib/install_script

Text File | 1998-11-17 | 4.9 KB | 289 lines

; $VER: Install msql.library V5 (17.11.98)
;
;    Installer script for msql.library
;

    (set UserLevel.old @user-level)

; Initialize messages.

    (set #SelDDoc "\nSelect the drawer where you want the msql documentation will be install.\n")
    (set #SelDINC "\nSelect the drawer where you want the include files will be install.\n")
    (set #SelDFD "\nSelect the drawer where you want the fd files will be install.\n")
    (set #SelDADOC "\nSelect the drawer where you want the msql autodoc (text & AG) will be install.\n")
    (set #SelBDoc "\nDo you want to install the documentation (not the autodoc)?\n")
    (set #SelBADOC "\nDo you want to install the autodoc ?\n")
    (set #SelBDev "\nDo you want to install the developper (SAS/C \ AZTEC/C \ MAXON \ STROM/C) material?\n")
    (set #SelBDevG "\nDo you want to install the GeekGadget (GCC) developper material?\n")
    (set #SelBDevE "\nDo you want to install the AmigaE developper material?\n")
    (set #SelDLib "\nSelect the drawer where you want the msql.library will be install.\n")
    (set #SelDGCC "\nSelect the drawer where you want the GeekGadget developper material will be install.\n")
    (set #SelDE "\nSelect the drawer where you want the AmigaE developper material will be install.\n")
    (set #SelDmUSD "\nSelect the drawer where you want mUSD will be install.\n")
    (set #SelmUSDAS "\nRun mUSD at startup?\n")
    (set #SelLine1 "Following line will be add to your user-startup file:\nRun >NIL: <NIL: ")

(procedure InstallLibs
(
          (copylib (source "libs/msql.library")
                 (dest LIBDest)
                 (prompt))
))

(procedure InstallDoc
(
          (copyfiles (source "msql.guide")
                 (dest DOCDest)
                 (all))
))

(procedure InstallInc
(
          (copyfiles (source "include/")
                 (dest INCDest)
                 (all))
))

(procedure InstallFd
(
          (copyfiles (source "fd/")
                 (dest FDDest)
                 (all))
))

(procedure InstallADoc
(
          (copyfiles (source "doc/")
                 (dest ADOCDest)
                 (all))
))

(procedure InstallmUSD
(
          (copyfiles (source "tools/")
                 (dest mUSDDest)
                 (all))
))

(procedure InstallmUSDS
(
    (set #SelAss (cat (cat #SelLine1 (tackon mUSDDest "mUSD")) " \n"))
    (startup "mUSD"
            (help @startup-help)
            (command
                (cat "run >NIL: <NIL: "
                    (tackon mUSDDest "mUSD")
                )
            )
            (prompt #SelAss)
    )
))

(procedure InstallGCC
(
          (copyfiles (source "gcc/")
                 (dest GCCDest)
                 (all))
))

(procedure InstallE
(
          (copyfiles (source "e/")
                 (dest EDest)
                 (all))
))

; Welcome the user.

    (complete 0)
    (welcome)


; Prepare Install

    (set LIBSource "libs/")

; Libs dest.

    (set LIBDest
      (tackon
        (askdir
          (prompt #SelDLIB)
          (help @askdir-help)
          (default "Libs:")
        )
        ""
      )
    )

; mUSD dest.

    (set mUSDDest
      (tackon
        (askdir
          (prompt #SelDmUSD)
          (help @askdir-help)
          (default "c:")
        )
        ""
      )
    )

; Install mUSD at startup ?

    (set mUSDbool
      (askbool
        (prompt #SelmUSDAS)
        (help @askbool_help)
        (default 0)
      ))

; Install doc ?

    (set docbool
      (askbool
        (prompt #SelBDoc)
        (help @askbool_help)
        (default 1)
      ))

; where ?

    (set DOCSource "msql.guide")

    (if docbool
    (set DOCDest
      (tackon
        (askdir
          (prompt #SelDDoc)
          (help @askdir-help)
          (default "help:")
        )
        ""
      )
    ))

; Install dev material ?

    (set devbool
      (askbool
        (prompt #SelBDev)
        (help @askbool_help)
        (default 0)
      ))

; where ?


    (if devbool
    (set INCDest
      (tackon
        (askdir
          (prompt #SelDINC)
          (help @askdir-help)
          (default "include:")
        )
        ""
      )
    ))

    (if devbool
    (set FDDest
      (tackon
        (askdir
          (prompt #SelDFD)
          (help @askdir-help)
          (default "fd:")
        )
        ""
      )
    ))

; Install Geek dev material ?

    (set gdevbool
      (askbool
           (prompt #SelBDevG)
        (help @askbool_help)
        (default 0)
      ))

    (if gdevbool
    (set GCCDest
      (tackon
        (askdir
          (prompt #SelDGCC)
          (help @askdir-help)
          (default "gg:")
        )
        ""
      )
    ))

; Install E dev material ?

    (set edevbool
      (askbool
           (prompt #SelBDevE)
        (help @askbool_help)
        (default 0)
      )
    )

    (if edevbool
    (set EDest
      (tackon
        (askdir
          (prompt #SelDE)
          (help @askdir-help)
          (default "")
        )
        ""
      )
    ))

; Install Autodoc ?

    (set adbool
      (askbool
           (prompt #SelBADOC)
        (help @askbool_help)
        (default 0)
      )
    )

    (if adbool
    (set ADOCDest
      (tackon
        (askdir
          (prompt #SelDADOC)
          (help @askdir-help)
          (default "autodoc:")
        )
        ""
      )
    ))


; Install all

    (InstallLibs)
    (InstallmUSD)
    (complete 25)
    (if mUSDbool) (InstallmUSDS)
    (if docbool (InstallDoc))
    (complete 50)
    (if devbool (InstallInc))
    (if devbool (InstallFd))
    (complete 75)
    (if adbool (InstallADoc))
    (if gdevbool (InstallGCC))
    (if edevbool (InstallE))
    (complete 100)

; exit

    (set @default-dest "")
    (exit)