; This is the installation script for QED
; $VER: QED_Install 0.17 (02.03.95)


(set old_level @user-level)
(set catalogdir "Catalogs/")
(set osversion (/ (getversion) 65536))

(set #mycopylib-help
	(cat 	"This file is required for a successful installation of QED. If you "
			"already have a copy of the library, this is maybe a newer Version"
			@copylib-help
	)
)

(set #copy-midilib    "Copying midi.library to LIBS:")

(set #copy-patternlib "Copying pattern.library to LIBS:")


(trap 4
	(cat "An error has occured")
)


;========================================================================

(
	(if (< (/ (getversion) 65536) 37)
		(abort "QED requires at least Kickstart 2.04")
	)
)


(
	(set @default-dest
		(askdir
			(prompt "Where shall I install QED ?")
			(default "sys:")
			(help "The installer script will create\n"
                  "a directory QED for you !")
		)
	)

	(copylib
		(prompt "\n" #copy-midilib)
		(help #mycopylib-help)
		(source "libs/midi.library")
		(dest "LIBS:")
		(confirm)
	)

	(copylib
		(prompt "\n" #copy-patternlib)
		(help #mycopylib-help)
		(source "libs/pattern.library")
		(dest "LIBS:")
		(confirm)
	)


	(set @defdir 		(tackon @default-dest "QED"))
	(set @ArpDir 		(tackon @defdir "Arp"))
	(set @DrumsDir 		(tackon @defdir "Drums"))
	(set @ChangeDir 	(tackon @defdir "ChangeMaps"))
	(set @FX1Dir 		(tackon @defdir "FX1"))
	(set @FX2Dir 		(tackon @defdir "FX2"))
	(set @PartmapDir 	(tackon @defdir "PartMaps"))
	(set @PartsDir 		(tackon @defdir "Parts"))
	(set @PerfmapDir 	(tackon @defdir "PerfMaps"))
	(set @PerfDir 		(tackon @defdir "Perf"))
	(set @PerfLibDir 	(tackon @defdir "PerfLib"))
	(set @PicDir		(tackon @defdir "Pics"))
	(set @SystemDir 	(tackon @defdir "System"))


	(makedir @defdir 		)	
	(makedir @ArpDir 		)
	(makedir @DrumsDir 		)
	(makedir @ChangeDir		)
	(makedir @FX1Dir 		)	
	(makedir @FX2Dir 		)	
	(makedir @PartmapDir 	)	
	(makedir @PartsDir 		)	
	(makedir @PerfmapDir 	)	
	(makedir @PerfDir 		)	
	(makedir @PerfLibDir	)
	(makedir @PicDir		)	
	(makedir @SystemDir		)	
	
	(makedir "EnvArc:QED" )

	(copyfiles (source "QED")					(dest @defdir) )	

	(copyfiles (source "icons/prog/QED.info")	(dest @defdir )	)
	(copyfiles (source "icons/drawer/QED.info")	(dest (tackon  @defdir "/") ))

	(copyfiles (source "docs/qed.guide")				(dest  @defdir ))
	(copyfiles (source "docs/qed.guide.info")		(dest  @defdir ))

	(copyfiles (source "docs/pics")					(dest  @PicDir ) (all) )
	

	(makeassign "QED" @defdir)

	
	(set command1 (cat "Assign QED: " @defdir))
	(startup "Quasar Editor" 
		(prompt "Add line to S:User-Startup ?")
		(help "No help available")
		(command command1))
	
)