; INSTALL NEW PRINTER

; Start string definitions
(set #Welcome-Pirate
(cat "\nBenvenuti al New Printer Installer\n\n"
      "Copyright (C) 1993 Digita International\n\n"
      "Non può essere rivenduto separatamente."
))

(set #InsertDiskMsg
(cat "Inserire il disco etichettato\n\n"
))

(set #InsertAmigaDiskMsg
(cat "Inserire il disco Amiga Workbench etichettato\n\n"
))

(set #diskhelp
(cat "\n    Se si sa che il disco corretto è nell'unità, ma non si "
		"è ancora in grado di procedere, significa che il nome del disco "
		"è sbagliato.\n"
		"    Accertarsi che il nome del disco non sia preceduto da "
		" 'copia_di_', o non vi siano spazi prima o dopo il nome del disco.\n\n\n"
))

(set #WwDiskName
(cat "Wordworth"
))

(set #WwSystemDiskName
(cat "WwSystem"
))

(set #WwSystemMiscFiles
(cat #WwSystemDiskName ":MiscFiles"
))

(set #AmigaDriverDiskName
(cat "Storage3.0"
))

(set #AmigaDriverSource
(cat #AmigaDriverDiskName ":printers"
))


(set FontDest "FONTS:")
(set DriverDest "DEVS:Printers")

(set @default-dest "")


; Get Users Printer Choice
(askdisk
	(prompt #InsertDiskMsg #WwSystemDiskName)
	(help #diskhelp)
	(dest #WwSystemDiskName)
)
(run "WwSystem:select WwSystem:WwPrinterList")
(set ChosenDriver (getenv "wwDriver"))

(complete 20)
; copy appropriate driver to destination
; Is it a driver we supply?
; If yes, get driver from Wordworth disk set,
; else get from Workbench Storage disks
; Ignore if a Postscript printer

(if (NOT (= ChosenDriver "NoDriver"))
	(
		(if (NOT (= ChosenDriver "PostScript"))
			(
				; Get drivers from Wordworth disks
				(set SourcePath #WwSystemMiscFiles)

				(if (NOT (= ChosenDriver "CanonBJ130"))
					(if (NOT (= ChosenDriver "CanonEpson"))
						(
							; All other drivers from Workbench disks
							(set SourcePath #AmigaDriverSource)
						)
					)
				)
			) ;end compound if
		) ; end if not postscript
	) ;end compund if
)

(complete 50)
; copy driver if not Postscript, not NoDriver and not already exists
(if (NOT (= ChosenDriver "NoDriver"))
	(
		(if (NOT (exists (tackon DriverDest ChosenDriver)))
			(
				(if (= SourcePath #AmigaDriverSource)
					(askdisk
						(prompt #InsertAmigaDiskMsg #AmigaDriverDiskName)
						(help #diskhelp)
						(dest #AmigaDriverDiskName)
					)
				)

				(copyfiles
					(source SourcePath)
					(dest "T:")
					(pattern ChosenDriver)
					(nogauge)
				)
			 )
		)
	)
)

(complete 70)
; Now copy fonts to T:
(makedir "T:WwFonts")

(if (= (expandpath FontDest) "Wordworth:Fonts")
	(askdisk
		(prompt #InsertDiskMsg #WwDiskName)
		(help #diskhelp)
		(dest #WwDiskName)
	)
)
		
(if (exists "ram:script")
	(
		(execute "ram:script")
		
		;Lets copy fonts in T: to system fonts drawer
		(copyfiles
			(source "T:WwFonts")
			(dest FontDest)
			(all)
		)
	)
)

(if (exists (tackon "T:" ChosenDriver))
	(copyfiles
		(source "T:")
		(dest DriverDest)
		(pattern ChosenDriver)
	)
)
		


;clean up ram disk
(delete "RAM:script")
(run "delete T:#? all")

(complete 100)

(exit)