; Installation script for AlphaSpell

(transcript "Installing the AlphaSpell GUI ...")

(copyfiles
    (prompt "Documentation")
    (help @copyfiles-help)
    (source "Doc/")
    (dest "Data:Docs/")
    (confirm)
    (all)
)

(copylib
    (prompt "Jürgen Kohrmeyer's rexxtricks.library")
    (help @copylib-help)
    (source "libs/rexxtricks.library")
    (dest "LIBS:")
    (confirm)
)

(copyfiles
    (prompt "ARexx scripts for various text editors")
    (help @copyfiles-help)
    (source "Rexx/")
    (dest "REXX:")
    (confirm)
    (all)
)

(set guipath
    (askdir
        (prompt
            "Where do you want the GUI file?"
        )
        (help @askdir-help)
        (default "GUI:")
    )
)

(run (cat "setenv ASpellGUI " (tackon guipath "ASpell.gui")))

(copyfiles
    (prompt "Copying ASpellGUI to ENVARC:")
    (help @copyfiles-help)
    (source "ENV:ASpellGUI")
    (dest "ENVARC:")
)

(copyfiles
    (prompt "Copying ASpell.gui")
    (help @copyfiles-help)
    (source "ASpell.gui")
    (dest guipath)
)

(exit)