home *** CD-ROM | disk | FTP | other *** search
- ; Installer script for Interplay
-
- (set dirname
- (askdir
- (prompt "Where would you like Interplay to be installed?\n(No drawer will be made)")
- (help @askdir-help)
- (default "c:")
- )
- )
-
- (set @default-dest dirname)
-
- (copyfiles
- (prompt "Copying Interplay to desired place.")
- (help @copyfiles-help)
- (source "Interplay")
- (dest dirname)
- (infos)
- (confirm)
- )
-
- (set guidename
- (askdir
- (prompt "Where would you like the documentation to be installed?")
- (help @askdir-help)
- (default dirname)
- )
- )
-
- (copyfiles
- (prompt "Copying Interplay.Guide to desired place.")
- (help @copyfiles-help)
- (source "Interplay.Guide")
- (dest guidename)
- (infos)
- (confirm)
- )
-
- (copyfiles
- (prompt "Copying Arexx.Guide to desired place.")
- (help @copyfiles-help)
- (source "Arexx.Guide")
- (dest guidename)
- (infos)
- (confirm)
- )
-
- (if
- (exists "env:iplay.prefs")
- (message "A previous version of Interplay installed. Will NOT install new prefs files.")
- (
- (copyfiles
- (prompt "Copying preferences files to Env:")
- (help @copyfiles-help)
- (source "env/")
- (dest "ENV:")
- (all)
- (confirm)
- )
- (copyfiles
- (prompt "Copying preferences files to Envarc:")
- (help @copyfiles-help)
- (source "env/")
- (dest "ENVARC:")
- (all)
- (confirm)
- )
- )
- )
-
-
- (if
- (exists "s:interplay.list")
- (message "Interplay list allready exists. Will NOT copy a new one.")
- (copyfiles
- (prompt "Copying Interplay.list to s:")
- (help @copyfiles-help)
- (source "s/Interplay.list")
- (dest "s:")
- (confirm)
- )
- )
-