;;
;; Install_Istar - Istar installation script for Installer
;;
;; Copyright  Andrew Basden, November 1996
;;
;;     Installer and Installer project icon
;;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
;;     Reproduced and distributed under license from Commodore.
;;
;;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
;;     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
;;     OR RESPONSIBILITY IS ASSUMED.
;;

(set @path
	(askdir 
 		(default "work:")
 		(prompt "Where do you want to install Istar (a new Istar diretory will be created here) ?")
		(help @makedir-help)
	)
)

(set @dest (tackon @path "Istar"))

(if (NOT (exists @dest)))
  (makedir @dest 
  	(infos)
  )

(set @dest1 (tackon @dest "KBs"))

(if (NOT (exists @dest1)))
  (makedir @dest1 
  	(infos)
  )

(set @dest2 (tackon @dest "Docs"))

(if (NOT (exists @dest2)))
  (makedir @dest2 
  	(infos)
  )

(copyfiles
	(prompt "Copy the Istar program and Prefs files?")
	(help "This will copy the Istar program")
	(source "")
	(dest @dest)
        (pattern "Istar#?")
	(files)
        (infos)
	(confirm)
)

(copyfiles
	(prompt "Copy the Documentation files?")
	(help "This will copy the Docs drawer.  You should do this.")
	(source "docs")
	(dest @dest2)
        (pattern "#?")
	(files)
        (infos)
	(confirm)
)

(copyfiles
	(prompt "Copy the sample knowledge bases?")
	(help "This will copy example KBs")
	(source "KBs")
	(dest @dest1)
        (pattern "#?")
	(files)
        (infos)
	(confirm)
)

(copylib
	(prompt "Install iff library?")
	(help "IFF library reads ILBM but is not essential to Istar.")
	(source "iff.library")
	(dest "libs:")
	(confirm)
)


(set @kbt-assign (cat "assign KBTools: " @dest "\nassign IstarSys: " @dest))
(startup "Istar"
	(prompt "KBTools assigns needs to be added to the \"S:user-startup\".")
	(help "Not strictly necessary, but avoids annoying requester.")
	(command @kbt-assign)

)

