; Installation script for AlphaSpell

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

(if (= @language "deutsch")
    (copyfiles
        (prompt "Deutsches Katalog")
        (help @copyfiles-help)
        (source "Catalogs/ASpell.deutsch")
        (dest "SYS:Catalogs/")
        (confirm)
        (all)
    )
)

(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)
)

(set options
    (askoptions
        (prompt "Which text editors do you want to install scripts for? The stars indicates how well the AlphaSpell GUI works with each editor.")
        (help @askoptions-help)
        (choices "AmokEd *" "Annotate **" "BlacksEditor ***" "DME *" "Ed ****" "Emacs ****" "FrexxEd ****" "GoldEd ****" "SkoEd *" "Textra **" "TJM DME ****" "TKEd" "TurboText ****" "XDME ****")
        (default 0)
    )
)

(if (bitand options $01)
    (copyfiles
        (prompt "Copying ARexx script")
        (help @copyfiles-help)
        (source "Rexx/AmokEd/")
        (dest "REXX:")
        (confirm)
        (all)
    )
)

(if (bitand options $02)
    (copyfiles
        (prompt "Copying ARexx script")
        (help @copyfiles-help)
        (source "Rexx/Annotate/")
        (dest "REXX:")
        (confirm)
        (all)
    )
)

(if (bitand options $04)
    (copyfiles
        (prompt "Copying ARexx script")
        (help @copyfiles-help)
        (source "Rexx/BlacksEditor/")
        (dest "REXX:")
        (confirm)
        (all)
    )
)

(if (bitand options $08)
    (copyfiles
        (prompt "Copying ARexx script")
        (help @copyfiles-help)
        (source "Rexx/DME/")
        (dest "REXX:")
        (confirm)
        (all)
    )
)

(if (bitand options $10)
    (copyfiles
        (prompt "Copying ARexx script")
        (help @copyfiles-help)
        (source "Rexx/Ed/")
        (dest "REXX:")
        (confirm)
        (all)
    )
)

(if (bitand options $20)
    (copyfiles
        (prompt "Copying ARexx script")
        (help @copyfiles-help)
        (source "Rexx/Emacs/")
        (dest "REXX:")
        (confirm)
        (all)
    )
)

(if (bitand options $40)
    (copyfiles
        (prompt "Copying ARexx script")
        (help @copyfiles-help)
        (source "Rexx/FrexxEd/")
        (dest "REXX:")
        (confirm)
        (all)
    )
)

(if (bitand options $80)
    (copyfiles
        (prompt "Copying ARexx script")
        (help @copyfiles-help)
        (source "Rexx/GoldEd/")
        (dest "REXX:")
        (confirm)
        (all)
    )
)

(if (bitand options $100)
    (copyfiles
        (prompt "Copying ARexx script")
        (help @copyfiles-help)
        (source "Rexx/SkoEd/")
        (dest "REXX:")
        (confirm)
        (all)
    )
)

(if (bitand options $200)
    (copyfiles
        (prompt "Copying ARexx script")
        (help @copyfiles-help)
        (source "Rexx/Textra/")
        (dest "REXX:")
        (confirm)
        (all)
    )
)

(if (bitand options $400)
    (copyfiles
        (prompt "Copying ARexx script")
        (help @copyfiles-help)
        (source "Rexx/TJM_DME/")
        (dest "REXX:")
        (confirm)
        (all)
    )
)

(if (bitand options $800)
    (copyfiles
        (prompt "Copying ARexx script")
        (help @copyfiles-help)
        (source "Rexx/TKEd/")
        (dest "REXX:")
        (confirm)
        (all)
    )
)

(if (bitand options $1000)
    (copyfiles
        (prompt "Copying ARexx script")
        (help @copyfiles-help)
        (source "Rexx/TurboText/")
        (dest "REXX:")
        (confirm)
        (all)
    )
)

(if (bitand options $2000)
    (copyfiles
        (prompt "Copying ARexx script")
        (help @copyfiles-help)
        (source "Rexx/XDME/")
        (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)