; Installation script for AddInfo

(transcript "Installing AddInfo...")

(copylib
        (prompt "Install WhatIs library.")
        (help @copylib-help)
        (source "whatis/whatis.library")
        (dest "libs:")
        (confirm)
)

( if (= (exists "LIBS:ReqTools.library" (noreq)) 0)
    (message "You need to get a copy of ReqTools.library\n"
         "and copy it to your libs: directory")
)

(set name
        (askdir
                (prompt "Install AddInfo where?")
                (help @askdir-help)
                (default "SYS:Utilities")
        )
)

(copyfiles
        (source "AddInfo")
        (infos)
        (dest name)
)

(set prefsdest
        (askdir
                (prompt "Install AddInfo Prefs where?")
                (help @askdir-help)
                (default "SYS:Prefs")
        )
)

(copyfiles
	(source "AddInfoPrefs")
    (dest prefsdest)
    (infos)
)

(set prefs
        (askchoice
                (prompt "Install default config where?")
                (help @askchoice-help)
                (choices "ENV: and ENVARC:" "S" )
                (default 0)
        )
)

(if (= prefs 0)                           ; conditional test
    (
       (copyfiles
                (source "AddInfo.prefs")
                (dest "ENV:")
        )
       (copyfiles
                (source "AddInfo.prefs")
                (dest "ENVARC:")
        )
    )
   (copyfiles
            (source "AddInfo.prefs")
            (dest "S:")
    )
)                                     ; end of if

(set what
        (askbool
                (prompt "Copy FileTypes to S:")
                (help "It's up to YOU.")
                (choices "Yes" "No")
                (default 0)
        )
)

(if (= what 1)                           ; conditional test
   (copyfiles
            (source "FileTypes")
            (dest "S:")
    )
)

(set locale
        (askoptions
            (prompt "Install which language?")
            (help  @askoptions-help)
            (choices "English"
                     "Norsk"
                     )
            (default 1)
        )
)

(if (IN locale 1)
    (copyfiles
            (source "catalogs/Norsk/addinfo.catalog")
            (dest "Locale:Catalogs/Norsk")
    )
)

(set @default-dest name)

(exit)