Amiga ISO Collection/AmigaUtilCD2.iso/Misc/SIGMAT25.DMS/in.adf/INSTALL-SIGMAth

Text File | 1995-11-06 | 5.8 KB | 283 lines

; $VER: MaxonSIGMAth Install Version 2.5 (10.3.95)
; Script zum Installieren von MaxonSIGMAth
;

; ===================================================================
; die benötigten Zeichenketten
; ===================================================================

(set HiThere
    (cat
        "Willkommen zum Installationsprogramm von \"MaxonSIGMAth 2.5\" !\n\n"
        "Dieses Programm wird einige Dateien auf Ihre Datenträger kopieren. "
        "Dazu ist es unbedingt nötig, daß Sie Ihren Amiga von dem "
        "Datenträger gestartet (man sagt auch: gebootet) haben, von dem "
        "Sie auch starten werden, wenn Sie MaxonSIGMAth beutzen möchten.\n"
        "Falls dies nicht der Fall sein sollte, starten Sie Ihren Rechner "
        "bitte neu."
    )
)

(set SelectDestDir
        "Bitte wählen Sie das Zielverzeichnis"
)
(set SelectDestDirHelp
    (cat
        "Wählen Sie zunächst den Datenträger bzw. die Partition, "
        "auf den MaxonSIGMAth installiert werden soll. Falls Sie möchten, können "
        "Sie dann für MaxonSIGMAth eine eigene Schublade anlegen. Wie das geht, "
        "erfahren Sie weiter unten. Drücken Sie zum Schluß auf WEITER "
        "(englisch: PROCEED) um mit dem Kopieren der Programme zu "
        "beginnen.\n\n"
    )
)

(set TstAmiga    "Prüfe die Hardwarekonfiguration...")

(set InstallCoMsg
    (cat
        "Ihr Amiga erfüllt die Voraussetzungen, die nötig sind, um "
        "die Programmversion \"MaxonSIGMAth.CO\" laufen zu lassen. "
    )
)
(set InstallNormMsg
    (cat
        "Auf Ihrem Amiga wird die Programmversion für einen math. Coprozessor nicht "
        "arbeiten. Daher wird das Standardprogramm installiert."
    )
)

(set UnPack    "Entpacke einige Dateien...")

(set AskARexx "Sollen die ARexx-Beispielprogramme installiert werden?")
(set HelpAskARexx
    (cat
        "Falls Sie ARexx benutzen, können die Beispielprogramme "
        "eine Große Hilfe sein, um die Programmierung von SIGMAth zu "
        "erlernen. Darüberhinaus demonstrieren die Programme die "
        "graphischen Fähigkeiten von MaxonSIGMAth."
    )
)

(set InstallEnd
    (cat
        "SIGMAth ist jetzt installiert. Bitte lesen Sie vor der "
        "Benutzung des Programmes unbedingt die Datei "
        "\"Bitte_zuerst_lesen\". SIGMAth wurde in der letzten Zeit "
        "massiv erweitert und verbessert. \"Bitte_zuerst_lesen\" sagt "
        "Ihnen, was sich gegenüber der im Handbuch beschriebenen "
        "Programmversion geändert hat. "
    )
)

(set ChangeToolTypes "Bearbeite die Pictogramme.")


;====================================================================
;Das Programm
;====================================================================

;
; Dem Benutzer "Guten Tag" sagen.
;
(message HiThere)
(Welcome)

;
; Verzeichnis wählen, in das MaxonSIGMAth installiert werden soll
;
(set @default-dest
    (tackon @default-dest "MaxonSIGMAth")
)
(set
    @default-dest
    (askdir
        (disk)
        (prompt    SelectDestDir)
        (help        SelectDestDirHelp @askdir-help)
        (newpath)
        (default @default-dest)
    )
)
(makedir
    @default-dest
    (infos)
)

;
; Hardwarekonfiguration feststellen und die richtige
; Programmversion wählen
;
(makedir "ram:InstallTemp")
(working TstAmiga)
(run "SIGMAth:C/CheckCPU")
(if
    (exists "ram:InstallTemp/ProcessorFlag")
    (
        (set ArcString "ram:InstallTemp/lhx -E -I x SIGMAth:SIGMAthCO.LHA #? ram:InstallTemp/")
        (message InstallCoMsg)
    )
    (
        (set ArcString "ram:InstallTemp/lhx -E -I x SIGMAth:SIGMAth.LHA #? ram:InstallTemp/")
        (message InstallNormMsg)
    )
)

;
; Mit der Arbeit beginnen...
;
(copyfiles
    (prompt    "")
    (help        @copyfiles-help)
    (source    "SIGMAth:C/LHX")
    (dest        "ram:InstallTemp")
)
(copyfiles
    (prompt    "")
    (help        @copyfiles-help)
    (source    "SIGMAth:LIBS/arp.library")
    (dest        "ram:InstallTemp")
)
(set @execute-dir "ram:InstallTemp")
(working UnPack)
(run    ArcString)
(copyfiles
    (prompt    "")
    (help        @copyfiles-help)
    (source    "ram:InstallTemp/")
    (pattern    "SIG#?")
    (dest        @default-dest)
)
(run "delete ram:InstallTemp/SIG#?")
(copyfiles
    (prompt    "")
    (help        @copyfiles-help)
    (source    "SIGMAth:SIGMAthResc.RCT")
    (dest        @default-dest)
)
(copylib
    (prompt    "")
    (help        @copyfiles-help)
    (source    "SIGMAth:LIBS/rct.library")
    (dest        "LIBS:")
)

(if
    (=
        (askbool
            (prompt    AskARexx)
            (help        HelpAskARexx)
        )
        1
    )
    (copyfiles
        (prompt    "")
        (help        @copyfiles-help)
        (source    "SIGMAth:")
        (pattern    "ARexx#?")
        (dest        @default-dest)
    )
)
(copyfiles
    (prompt    "")
    (help        @copyfiles-help)
    (source    "SIGMAth:")
    (pattern    "Bitte#?")
    (dest        @default-dest)
)
(copyfiles
    (prompt    "")
    (help        @copyfiles-help)
    (source    "SIGMAth:")
    (pattern    "Beispiel#?")
    (dest        @default-dest)
)
(copyfiles
    (prompt    "")
    (help        @copyfiles-help)
    (source    "SIGMAth:")
    (pattern    "INHAL#?")
    (dest        @default-dest)
)
(copyfiles
    (prompt    "")
    (help        @copyfiles-help)
    (source    "SIGMAth:")
    (pattern    "Vektor#?")
    (dest        @default-dest)
)
(copyfiles
    (prompt    "")
    (help        @copyfiles-help)
    (source    "SIGMAth:")
    (pattern    "SIGMATH.est")
    (dest        @default-dest)
)

; Icons kopieren

(makedir
    (tackon @default-dest "Icons")
    (infos)
)
(copyfiles
    (prompt    "")
    (help        @copyfiles-help)
    (source    "SIGMAth:Icons")
    (pattern    "#?")
    (dest        (tackon @default-dest "Icons"))
)
(foreach (tackon @default-dest "Icons") ("#?")
    (tooltype
        (prompt    "")
        (help        "")
        (dest        (tackon (tackon @default-dest "Icons") (@each-name)))
        (setdefaulttool    (tackon @default-dest "SIGMAth"))
        (noposition)
        (swapcolors)
    )
)
(foreach (@default-dest) ("#?")
    (tooltype
        (prompt    "")
        (help        "")
        (dest        (tackon (@default-dest) (@each-name)))
        (noposition)
        (swapcolors)
    )
)


; Beispiele kopieren

(makedir
    (tackon @default-dest "Beispiele")
    (infos)
)
(copyfiles
    (prompt    "")
    (help        @copyfiles-help)
    (source    "SIGMAth:Beispiele")
    (pattern    "#?")
    (dest        (tackon @default-dest "Beispiele"))
)


(working UnPack)
(delete "ram:InstallTemp/lhx")
(delete "ram:InstallTemp/ProcessorFlag")
(set @execute-dir "ram:")
(run "delete ram:InstallTemp all")
(copyfiles
    (prompt    "")
    (help        @copyfiles-help)
    (source    "SIGMAth:more")
    (dest        @default-dest)
)

;
; Programm beenden
;
(exit InstallEnd)