The CDPD Public Domain Collection for CDTV 3/CDPDIII.bin/fish/871-880/ff874/dfa/install-dfa

Text File | 1993-05-23 | 11KB | 498 lines

; $VER: DFA 1.22 (20.05.93)
; Script to install DFA V 1.2

(complete 0)

(set @default-dest "SYS:WBStartup")

(set dest2 (askdir  (prompt "Select the location to install the DFA executable")
       (default @default-dest)
          (help "Choose a destination partition or directory "
                 "to contain the DFA executable.  The install "
                  "program copies the DFA executable 'DFA' "
                  "to the location you choose. "
          )
       )
)

(set answer1
    (askchoice
        (prompt "Choose on which machine DFA is used")
            (choices    "Amiga with MC68000"
                        "Amiga with MC68020 and better"
            )
            (help    "Selecting the 'MC68020 and better' option will install "
                    "the special version of DFA, which does NOT run on"
                    "'vanilla' Amigas"
            )

            (default 0)

    )
)

(if (= answer1 0)
(
    ;install DFA 68000

    (message "DFA will be installed in " dest2 )

    (set error
        (trap 4
            (copyfiles (source "DFA/DFA") (dest dest2)  (infos))
        )
    )

    (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
)
)

(if (= answer1 1)
(
    ;install DFA 68000
    (message "DFA (for 68020 and better) will be installed in " dest2 )

    (set error
        (trap 4
            (copyfiles (source "DFA_020/DFA") (dest dest2)  (infos))
        )
    )
    (if (> error 0)
        (message ("Dos Error %ld detected" @ioerr))
    )
)
)

(complete 15)

(if ((NOT (= (getassign "Locale") "")))
(
    (set language
        (askoptions
            (prompt "Which languages do you want to get installed?")
            (choices    "Dansk"
                        "German"
                        "Italian"
                        "Nederlands"
                        "Suomi"
                        "Svenska"
            )
            (help    "You may choose none, one or more languages. "
                    "If you don't have an operation system that "
                    "supports locale, please select no language "
                    "at all. "
                    "Locale support is given in Workbench 2.1 "
                    "and better. "
            )
        )
    )

    (if (IN language 0)
    (
        (copyfiles (source "Locale/catalogs/dansk/DFA.catalog")
            (dest "Locale:catalogs/dansk") )
    )
    )

    (complete 17)

    (if (IN language 1)
    (
        (copyfiles (source "Locale/catalogs/deutsch/DFA.catalog")
            (dest "Locale:catalogs/deutsch") )

    )
    )

    (complete 19)

    (if (IN language 2)
    (
        (copyfiles (source "Locale/catalogs/italiano/DFA.catalog")
            (dest "Locale:catalogs/italiano") )

    )
    )

    (complete 20)

    (if (IN language 3)
    (
        (copyfiles (source "Locale/catalogs/nederlands/DFA.catalog")
            (dest "Locale:catalogs/nederlands") )
    )
    )

    (complete 21)

    (if (IN language 4)
    (
        (copyfiles (source "Locale/catalogs/suomi/DFA.catalog")
            (dest "Locale:catalogs/suomi") )

        (copyfiles (source "Locale/Languages/suomi.language")
            (dest "Locale:Languages") )
    )
    )

    (complete 24)

    (if (IN language 5)
    (
        (copyfiles (source "Locale/catalogs/svenska/DFA.catalog")
            (dest "Locale:catalogs/svenska") )
    )
    )
)
)

(complete 25)

(set installrexx
    (askchoice
        (prompt    "Do you want to install the example ARexx scripts?")
        (choices    "Yes"
                    "No"
        )
        (help    "The sample ARexx scripts can give you an idea "
                "how to use DFA in connection to ARexx and e.g. "
                "the Cygnus Ed (by ADSG). "
        )

        (default 1)
    )
)

(if (= installrexx 0)
(
    ; Install ARexx scripts
    (set rexxdest
        (askdir
            (prompt "Select the directory where to install the ARexx scripts")
            (default "Rexx:")
            (help    "If you want to *use* the Arexx scripts at once, "
                    "select an directory that is already within your "
                    "Arexx search path."
            )
        )
    )

    (set error
        (trap 4
            (copyfiles (source "rexx") (dest rexxdest) (all) )
        )
    )

    (if (> error 0)
        (message ("Dos Error %ld detected" @ioerr))
    )
)
)

(complete 35)

(if (exists "s/DFA.key")
(
    (copyfiles (source "s/DFA.key") (dest "s:") (infos))
)
)

(complete 40)

(set installadrfile
    (askchoice
        (prompt    "Do you want to install the default address file (into s:) ?")
        (choices    "Yes"
                    "No"
        )
        (help    "The default address file is named 'adr.file' and "
                "will be copied into the 's:' drawer. "
                "It contains the author's address which could be "
                "useful in some cases (Bug reports etc.) "
                "However, if you do already have such a file within "
                "your 's:' drawer you may not want to overwrite it. "
        )
        (default 0)
    )
)

(if (= installadrfile 0)
(
    (message "Default address file (adr.file) will be installed in 's:' ")

    (set error
        (trap 4
            (copyfiles (source "s/adr.file") (dest "s:") (infos) )
        )
    )

    (if (> error 0)
        (message ("Dos Error %ld detected" @ioerr))
    )
)
)

(set doclanguage
    (askchoice
        (prompt "Choose which documentation you want to be installed")
        (choices    "English documentation"
                    "German documentation"
        )
        (help    "You may either select the English or the German "
                "documentation. "
        )
        (default 0)
    )
)

(if (= doclanguage 0)
(
    ; english

    (set docparts
        (askoptions
            (prompt    "Choose the kind of documentation you would "
                    "like to get installed"
            )
            (choices    "ASCII documentation "
                        "AmigaGuide documentation "
                        "TeX documentation (.DVI file) "
            )
            (help    "The ASCII documentation can be read by "
                    "usual ASCII text readers. "
                    ""
                    "The AmigaGuide documentation will only "
                    "be usefull, if you have an amigaguide "
                    "reader like 'Amigaguide' or 'Multiview' "
                    "The AmigaGuide file will be used from within "
                    "the program as well, if it is present. "
                    ""
                    "The DVI file makes only sense if you have "
                    "a TeX package or at least parts of it installed. "
            )
        )
    )

    (if (IN docparts 0)
    (
        ; ASCII docs
        (set docdest
            (askdir
                (prompt "Select the location to install the ASCII documentation")
                (help    "Choose a destination partition or directory "
                        "to contain the ASCII documentation. "
                        "The install program will copy the ASCII documentation "
                        "to this directory."
                )
                (default "Work:")
            )
        )

        (working "Extracting ASCII documentation from archive")

        (if (OR (NOT (= (substr docdest (- (strlen docdest) 1 ) 1 ) ":" ))
                (NOT (= (substr docdest (- (strlen docdest) 1 ) 1 ) "/" )))
        (
            ; Destination ends not in ":" or "/", append "/"
            (set docdest (cat docdest "/"))
        )
        )

        (run "c/lha e Documentation/Documentation.lha dfa_english.doc %s" docdest)
        (run "c/lha e Documentation/Documentation.lha dfa_english.doc.info %s" docdest)

        (complete 60)

    )
    )

    (if (IN docparts 1)
    (
        ; AMIGAGUIDE docs
        (set docdest
            (askdir
                (prompt "Select the location to install the Amigaguide documentation")
                (help    "Choose a destination partition or directory "
                        "to contain the Amigaguide documentation. "
                        "The install program will copy the Amigaguide documentation "
                        "to this directory."
                )
                (default "Work:")
            )
        )

        (working "Extracting Amigaguide documentation from archive")

        (if (OR (NOT (= (substr docdest (- (strlen docdest) 1 ) 1 ) ":" ))
                (NOT (= (substr docdest (- (strlen docdest) 1 ) 1 ) "/" )))
        (
            ; Destination ends not in ":" or "/", append "/"
            (set docdest (cat docdest "/"))
        )
        )

        (run "c/lha e Documentation/Documentation.lha dfa_english.guide %s" docdest)
        (run "c/lha e Documentation/Documentation.lha dfa_english.guide.info %s" docdest)

        (complete 80)

    )
    )

    (if (IN docparts 2)
    (
        ; DVI docs
        (set docdest
            (askdir
                (prompt "Select the location to install the TeX documentation")
                (help    "Choose a destination partition or directory "
                        "to contain the TeX documentation. "
                        "The install program will copy the TeX documentation "
                        "to this directory."
                )
                (default "Work:")
            )
        )

        (working "Extracting TeX documentation from archive")

        (if (OR (NOT (= (substr docdest (- (strlen docdest) 1 ) 1 ) ":" ))
                (NOT (= (substr docdest (- (strlen docdest) 1 ) 1 ) "/" )))
        (
            ; Destination ends not in ":" or "/", append "/"
            (set docdest (cat docdest "/"))
        )
        )

        (run "c/lha e Documentation/Documentation.lha dfa_english.dvi %s" docdest)
        (run "c/lha e Documentation/Documentation.lha dfa_english.dvi.info %s" docdest)
    )
    )

)
(
    ; german doc wanted
    (set docparts
        (askoptions
            (prompt    "Choose the kind of documentation you would "
                    "like to get installed"
            )
            (choices    "ASCII documentation "
                        "AmigaGuide documentation "
                        "TeX documentation (.DVI file) "
            )
            (help    "The ASCII documentation can be read by "
                    "usual ASCII text readers. "
                    ""
                    "The AmigaGuide documentation will only "
                    "be usefull, if you have an amigaguide "
                    "reader like 'Amigaguide' or 'Multiview' "
                    "The AmigaGuide file will be used from within "
                    "the program as well, if it is present. "
                    ""
                    "The DVI file makes only sense if you have "
                    "a TeX package or at least parts of it installed. "
            )
        )
    )

    (if (IN docparts 0)
    (
        ; ASCII docs
        (set docdest
            (askdir
                (prompt "Select the location to install the ASCII documentation")
                (help    "Choose a destination partition or directory "
                        "to contain the ASCII documentation. "
                        "The install program will copy the ASCII documentation "
                        "to this directory."
                )
                (default "Work:")
            )
        )

        (working "Extracting ASCII documentation from archive")

        (if (OR (NOT (= (substr docdest (- (strlen docdest) 1 ) 1 ) ":" ))
                (NOT (= (substr docdest (- (strlen docdest) 1 ) 1 ) "/" )))
        (
            ; Destination ends not in ":" or "/", append "/"
            (set docdest (cat docdest "/"))
        )
        )

        (run "c/lha e Anleitung/Anleitung.lha dfa.dok %s" docdest)
        (run "c/lha e Anleitung/Anleitung.lha dfa.dok.info %s" docdest)

        (complete 60)
    )
    )

    (if (IN docparts 1)
    (
        ; AMIGAGUIDE docs
        (set docdest
            (askdir
                (prompt "Select the location to install the Amigaguide documentation")
                (help    "Choose a destination partition or directory "
                        "to contain the Amigaguide documentation. "
                        "The install program will copy the Amigaguide documentation "
                        "to this directory."
                )
                (default "Work:")
            )
        )

        (working "Extracting Amigaguide documentation from archive")

        (if (OR (NOT (= (substr docdest (- (strlen docdest) 1 ) 1 ) ":" ))
                (NOT (= (substr docdest (- (strlen docdest) 1 ) 1 ) "/" )))
        (
            ; Destination ends not in ":" or "/", append "/"
            (set docdest (cat docdest "/"))
        )
        )

        (run "c/lha e Anleitung/Anleitung.lha dfa.guide %s" docdest)
        (run "c/lha e Anleitung/Anleitung.lha dfa.guide.info %s" docdest)

        (complete 80)
    )
    )

    (if (IN docparts 2)
    (
        ; DVI docs
        (set docdest
            (askdir
                (prompt "Select the location to install the TeX documentation")
                (help    "Choose a destination partition or directory "
                        "to contain the TeX documentation. "
                        "The install program will copy the TeX documentation "
                        "to this directory."
                )
                (default "Work:")
            )
        )

        (working "Extracting TeX documentation from archive")

        (if (OR (NOT (= (substr docdest (- (strlen docdest) 1 ) 1 ) ":" ))
                (NOT (= (substr docdest (- (strlen docdest) 1 ) 1 ) "/" )))
        (
            ; Destination ends not in ":" or "/", append "/"
            (set docdest (cat docdest "/"))
        )
        )

        (run "c/lha e Anleitung/Anleitung.lha dfa.dvi %s" docdest)
        (run "c/lha e Anleitung/Anleitung.lha dfa.dvi.info %s" docdest)

    )
    )
)
)

(complete 100)