;;
;;  $Filename: HDInstall $
;;  $Id: HDInstall,v 3.12 1993/09/17 16:38:10 $
;;  $Date: 1993/09/17 16:38:10 $
;;  $Revision: 3.12 $
;;

(set is_update 0)
(set @user-level 1)	; force to use average mode
(complete 0)

(set FW_dest
	(askdir
		(prompt "In welcher Disk/Schublade soll Final Writer erstellt werden?")
		(help "Das Installationsprogramm erstellt die Schublade "
			"\"FinalWriter_D\" in diesem Verzeichnis. Alle Dateien von "
			"\"Final Writer\" werden in dieses Verzeichnis gestellt. \n\n"
			"Tip für erfahrene Benutzer:\n"
			"\"Final Writer\" kann auch in ein anderes Verzeichnis "
			"verschoben werden, wenn die Unterverzeichnisse:\n"
			"FWFiles, FWFonts, FWLibs, FWThes und FWSpell\n"
			"ebenfalls an die neue Position des Programms verschoben "
			"werden.")
		(default @default-dest)
	)
)

; Check if this is an update
; the FWLibs directory is a tell-tale sign
; that FW is already installed here
(if (exists (tackon FW_dest "FWLibs"))
	(set is_update 1)
	(	(if (exists (tackon FW_dest "FinalWriter_D"))
			(set is_update 1)
			(makedir (tackon FW_dest "FinalWriter_D") (infos))
		)
		(set FW_dest (tackon FW_dest "FinalWriter_D"))
	)
)

(set @default-dest FW_dest)
(set disk_space (getdiskspace FW_dest))


; If first time install ask user if he wants a complete
; or a minimal installation. The minimal installation
; will not install the eps clip art or the extra fonts.
(if (NOT is_update)
	(
		(set install_all
			(askbool
				(prompt "Wünschen Sie eine \"Vollständige\" oder "
					"\"minimale\"  Installation von Final Writer? Die "
					"vollständige Installation erfordert ca. 9,5 MByte "
					"freien Speicherplatz auf der Disk, die Minimal- "
					"Installation ca. 2,5 MByte.")

				(help "Bei Auswahl von \"Vollständig\" werden alle "
						"Dateien des Diskettensatzes von Final Writer "
						"installiert. Dafür sind ca. 9,5 MByte freier "
						"Speicherplatz auf der Disk erforderlich. Bei "
						"Auswahl von \"Minimal\" werden die ARexx-"
						"Makros, EPS Clip Art und zusätzliche Schriftarten "
						"nicht installiert. Die Minimalinstallation erfordert "
						"ca. 2,5 MByte freien Speicherplatz auf der Disk.")

				(choices "Vollständig" "Minimal")

				(default 1)
			)
		)

		(if install_all
			(set disk_space_needed 9794048)	; 9.34 Megs
			(set disk_space_needed 2810183)	; 2.68 Megs
		)
	)
)


(if (AND (< disk_space disk_space_needed) (NOT is_update))
	(
		(set answer1
			(askbool
				(prompt "Auf dem Laufwerk ist möglicherweise nicht "
					"genügend Platz für die Installation von "
					"\"Final Writer\".  Dennoch fortsetzen?")
				(help "Final Writer benötigt für die vollständige "
					"Installation ca. 9,5 MByte freien Speicherplatz auf "
					"der Disk, für die Minimalinstallation ca. 2,5 "
					"MByte. Wenn Final Writer auf dieser Partition "
					"bereits installiert ist, können Sie die Installation "
					"fortsetzen. Andernfalls drücken Sie ABBRUCH "
					"oder NEIN und schaffen danach entweder Platz "
					"auf dieser Partition oder wählen eine andere "
					"Partition für die Installation aus.")
			)
		)
		(if (NOT answer1)
			(abort "Installation von Final Writer abgebrochen. Zu wenig "
				"Speicherplatz auf dem Datenträger \""
					(getdevice @default-dest)
					"\"."
			)
		)
	)
)

; Allow updating user to select what they want updated
(if is_update
	(set install_options
		(askoptions
			(prompt "Welche Komponenten sollen aktualisiert werden?")
			(help @askoptions-help)
			(choices
				"Final Writer - Programm"
				"ARexx-Makros"
				"Systemdatendateien"
				"Systembibliotheken"
				"Systemschriftarten"
				"Rechtschreibprüfung & Silbentrennung"
				"Thesaurus"
				"EPS Clip Art"
				"Zusätzliche Schriftarten")
			(default 9)
		)
	)
	
	; First time install
	(if install_all
		(set install_options 511)  ; hex 1FF - all nine options on
		(set install_options 125)	; hex 07D - Macros, EPS, and Extra fonts off
	)
)

; Copy the extraction utility over and remember where it is
(copyfiles
	(source "Disk 1:lhex")
	(dest FW_dest)
)
(set DeArcher (tackon FW_dest "lhex"))
(set error 0)

; Installing Files on Disk 1?
(if (IN install_options 0 1 2 3)
	(
		; Get Disk 1
		(askdisk
			(prompt "Bitte \"Diskette 1\" einlegen." )
			(help	"Diskette 1 enthält das Programm Final Writer, Makros, "
 					"Bibliotheken und die auf dem System zu installierenden "
					"Datendateien.")
			(dest "Disk 1" )
		)

		; Copy the More program to the hard drive
		; so everyone is guaranteed to have it.
		(if (NOT is_update)
			(copyfiles
				(source "Disk 1:More")
				(dest FW_dest)
			)
		)

		; If installing/updating the program
		(if (IN install_options 0)
			(
				; Make installer cd into FW_dest when it executes the run statement
				(set @execute-dir FW_dest)

				; copy the Final Writer program over if the program
				; icon doesn't exists copy it over too.
				( if (exists (tackon FW_dest "FinalWriter.info"))
					; This DOES NOT copy the icon, in case the user
					; has modified the tool-types
					(
						(working "Programm Final Writer wird von "
									"Diskette 1 installiert.")
						(set error
							(run
								("\"%s\" -f x \"Disk 1:FinalWriter.lha\" FinalWriter >NIL:" DeArcher)
							)
						)
					)
					; This DOES copy the icon
					(
						(working "Programm und Piktogramm Final "
									"Writer werden von Diskette 1 installiert." )
						(set error
							(run
								("\"%s\" -f x \"Disk 1:FinalWriter.lha\" >NIL:" DeArcher)
							)
						)
					)
				)
			)
		)

		(if error
			(abort ("Fehler bei Installation des Programms FinalWriter."))
		)

		(complete 4)

		; Installing FWMacros
		(if (IN install_options 1)
			(
				; If FWMacros doesn't exist, create it.
				(if (NOT (exists (tackon FW_dest "FWMacros")))
					(
					(makedir (tackon FW_dest "FWMacros") (infos))
					)
				)

				; Make installer cd into FWMacros when it executes the run statement
				(set @execute-dir (tackon FW_dest "FWMacros"))

				; Extract the macro files
				(working "ARexx-Makros werden von Diskette 1 installiert.")
				(set error
					(run
						("\"%s\" -f x \"Disk 1:FWMacros.lha\" >NIL:" DeArcher)
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der ARexx-Makros."))
				)
			)
		)

		(complete 7)

		; Installing FWFiles
		(if (IN install_options 2)
			(
				; If FWFiles doesn't exist, create it.
				(if (NOT (exists (tackon FW_dest "FWFiles")))
					(
					(makedir (tackon FW_dest "FWFiles") (infos))
					)
				)

				; Make installer cd into FWFiles when it executes the run statement
				(set @execute-dir (tackon FW_dest "FWFiles"))

				; Extract the files
				(working "Datendateien werden von Diskette 1 installiert.")
				(set error
					(run
						("\"%s\" -f x \"Disk 1:FWFiles.lha\" >NIL:" DeArcher)
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der Datendateien."))
				)
			)
		)

		(complete 11)

		; Installing FWLibs
		(if (IN install_options 3)
			(
				; If FWLibs doesn't exist, create it.
				(if (NOT (exists (tackon FW_dest "FWLibs")))
					(
					(makedir (tackon FW_dest "FWLibs"))
					)
				)

				; Make installer cd into FWLibs when it executes the run statement
				(set @execute-dir (tackon FW_dest "FWLibs"))

				(working "Bibliotheken werden von Diskette 1 installiert.")
				(set error
					(run
						("\"%s\" -f x \"Disk 1:FWLibs.lha\" >NIL:" DeArcher)
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der Bibliotheken."))
				)
			)
		)
	)
)

(complete 14)

; Installing System Data Files/Libraries/Fonts
(if (IN install_options 4 5)
	(
		; Get Disk 2
		(askdisk
			(prompt "Bitte \"Diskette 2\" einlegen.")
			(help	"Diskette 2 enthält die auf dem System zu installierenden "
					"Systemschriftarten sowie die Dateien für Rechtschreibprüfung und "
  					"Silbentrennung von Final Writer." )
			(dest "Disk 2")
		)

		; Installing FWFonts
		(if (IN install_options 4)
			(
				; If FWFonts doesn't exist, create it.
				(if (NOT (exists (tackon FW_dest "FWFonts")))
					(
					(makedir (tackon FW_dest "FWFonts") (infos))
					)
				)

				; Make installer cd into FWFonts when it executes the run statement
				(set @execute-dir (tackon FW_dest "FWFonts"))

				(working "Systemschriftarten werden von Diskette 2 installiert.")
				(set error
					(run
						("\"%s\" -f x \"Disk 2:FWFonts.lha\" >NIL:" DeArcher)
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der Systemschriftarten."))
				)
			)
		)

		(complete 19)

		; Instaling FWSpell
		(if (IN install_options 5)
			(
				; If FWSpell doesn't exist, create it.
				(if (NOT (exists (tackon FW_dest "FWSpell")))
					(
					(makedir (tackon FW_dest "FWSpell"))
					)
				)

				; Preserve the user dictionary as userdict.grm.save
				(if (exists (tackon FW_dest "FWSpell/userdict.grm"))
					(
						(set restore_UD 1)
						(copyfiles
							(source (tackon FW_dest "FWSpell/userdict.grm"))
							(dest (tackon FW_dest "FWSpell"))
							(newname "userdict.grm.save")
						)
					)
					(set restore_UD 0)
				)

				; Make installer cd into FWSpell when it executes the run statement
				(set @execute-dir (tackon FW_dest "FWSpell"))

				(working "Dateien für Rechtschreibprüfung & Silbentrennung werden "
							"von Diskette 2 installiert.")
				(set error
					(run
						("\"%s\" -f x \"Disk 2:FWSpell.lha\" >NIL:" DeArcher)
					)
				)

				(if restore_UD
					(
						(copyfiles
							(source (tackon FW_dest "FWSpell/userdict.grm.save"))
							(dest (tackon FW_dest "FWSpell"))
							(newname "userdict.grm")
						)
						(delete (tackon FW_dest "FWSpell/userdict.grm.save"))
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der Dateien für die "
						"Rechtschreibprüfung."))
				)
			)
		)
	)
)

(complete 29)

(if (IN install_options 6 7)
	(
		; Get Disk 3
		(askdisk
			(prompt "Bitte \"Diskette 3\" einlegen.")
			(help	"Diskette 3 enthält die auf dem System zu installierenden "
					"Thesaurusdateien von Final Writer und die EPS Clip Art.")
			(dest "Disk 3")
		)

		; Instaling FWThes
		(if (IN install_options 6)
			(
				; If FWThes doesn't exist, create it.
				(if (NOT (exists (tackon FW_dest "FWThes")))
					(
					(makedir (tackon FW_dest "FWThes"))
					)
				)

				; Make installer cd into FWThes when it executes the run statement
				(set @execute-dir (tackon FW_dest "FWThes"))

				(working "Thesaurusdateien werden von Diskette 3 installiert.")
				(set error
					(run
						("\"%s\" -f x \"Disk 3:FWThes.lha\" >NIL:" DeArcher)
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der Thesaurusdateien."))
				)
			)
		)

		(complete 32)

		; Installing EPS Clip Art <cc> <fed> <maps> <metro1>
		(if (IN install_options 7)
			(
				; If FWClipArt doesn't exist, create it.
				(if (NOT (exists (tackon FW_dest "FWClipArt")))
					(
					(makedir (tackon FW_dest "FWClipArt"))
					)
				)

				; Make installer cd into FWClipArt when it executes the run statement
				(set @execute-dir (tackon FW_dest "FWClipArt"))

				(working "EPS Clip Art wird von Diskette 3 installiert.")

				(set error
					(run
						("\"%s\" -f x \"Disk 3:cc.lha\" >NIL:" DeArcher)
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der EPS Clip Art."))
				)

				(complete 35)

				(set error
					(run
						("\"%s\" -f x \"Disk 3:fed.lha\" >NIL:" DeArcher)
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der EPS Clip Art."))
				)

				(complete 37)

				(set error
					(run
						("\"%s\" -f x \"Disk 3:maps.lha\" >NIL:" DeArcher)
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der EPS Clip Art."))
				)

				(complete 40)

				(set error
					(run
						("\"%s\" -f x \"Disk 3:metro1.lha\" >NIL:" DeArcher)
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der EPS Clip Art."))
				)
			)
		)
	)
)

(complete 43)

(if (IN install_options 7)
	(
		; ----------
		; Get Disk 4
		;
		(askdisk
			(prompt "Bitte \"Diskette 4\" einlegen.")
			(help	"Diskette 4 enthält die auf dem System zu installierende EPS Clip Art.")
			(dest "Disk 4")
		)

		; Installing EPS Clip Art <dms> <totem>

		; If FWClipArt doesn't exist, create it.
		(if (NOT (exists (tackon FW_dest "FWClipArt")))
			(
			(makedir (tackon FW_dest "FWClipArt"))
			)
		)

		; Make installer cd into FWClipArt when it executes the run statement
		(set @execute-dir (tackon FW_dest "FWClipArt"))

		(working "EPS Clip Art wird von Diskette 4 installiert.")
		(set error
			(run
				("\"%s\" -f x \"Disk 4:dms.lha\" >NIL:" DeArcher)
			)
		)

		; Abort if any errors
		(if error
			(abort ("Fehler bei Installation der EPS Clip Art."))
		)

		(complete 50)

		(set error
			(run
				("\"%s\" -f x \"Disk 4:totem.lha\" >NIL:" DeArcher)
			)
		)

		; Abort if any errors
		(if error
			(abort ("Fehler bei Installation der EPS Clip Art."))
		)
	)
)

(complete 57)

(if (IN install_options 7 8)
	(
		; ----------
		; Get Disk 5
		;
		(askdisk
			(prompt "Bitte \"Diskette 5\" einlegen.")
			(help	"Diskette 5 enthält die auf dem System zu installierende EPS Clip Art "
 					"sowie zusätzliche dekorative und Serif-Schriftarten.")
			(dest "Disk 5")
		)

		; Instaling EPS Clip Art
		(if (IN install_options 7)
			(
				; Make installer cd into FWClipArt/Metro when it executes the run statement
				(set @execute-dir (tackon FW_dest "FWClipArt/Metro"))

				(working "EPS Clip Art wird von Diskette 5 installiert.")
				(set error
					(run
						("\"%s\" -f x \"Disk 5:Metro2.lha\" >NIL:" DeArcher)
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der Dekorativen "
							"Schriftarten."))
				)
			)
		)

		(complete 62)

		; Instaling Decorative fonts
		(if (IN install_options 8)
			(
				; If FWFonts/SWOLFonts/Deco doesn't exist, create it.
				(if (NOT (exists (tackon FW_dest "FWFonts/SWOLFonts/Deco")))
					(
					(makedir (tackon FW_dest "FWFonts/SWOLFonts/Deco") (infos))
					)
				)

				; Make installer cd into Deco when it executes the run statement
				(set @execute-dir (tackon FW_dest "FWFonts/SWOLFonts/Deco"))

				(working "Dekorative Schriftarten werden von Diskette 5 installiert.")
				(set error
					(run
						("\"%s\" -f x \"Disk 5:Deco.lha\" >NIL:" DeArcher)
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der Dekorativen "
 							"Schriftarten."))
				)
			)
		)

		(complete 66)

		; Instaling Serif1 fonts
		(if (IN install_options 8)
			(
				; If FWFonts/SWOLFonts/Serif doesn't exist, create it.
				(if (NOT (exists (tackon FW_dest "FWFonts/SWOLFonts/Serif")))
					(
					(makedir (tackon FW_dest "FWFonts/SWOLFonts/Serif") (infos))
					)
				)

				; Make installer cd into Serif when it executes the run statement
				(set @execute-dir (tackon FW_dest "FWFonts/SWOLFonts/Serif"))

				(working "Serif-Schriftarten werden von Diskette 5 installiert.")
				(set error
					(run
						("\"%s\" -f x \"Disk 5:Serif1.lha\" >NIL:" DeArcher)
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der Serif1-Schriftarten."))
				)
			)
		)
	)
)

(complete 71)

(if (IN install_options 8)
	(
		; ----------
		; Get Disk 6
		;
		(askdisk
			(prompt "Bitte \"Diskette 6\" einlegen.")
			(help	"Diskette 6 enthält auf dem System zu installierende, zusätzliche "
					"Serif-Schriftarten.")
			(dest "Disk 6")
		)

		; Instaling Serif2 fonts
		(if (IN install_options 8)
			(
				; If FWFonts/SWOLFonts/Serif doesn't exist, create it.
				(if (NOT (exists (tackon FW_dest "FWFonts/SWOLFonts/Serif")))
					(
					(makedir (tackon FW_dest "FWFonts/SWOLFonts/Serif") (infos))
					)
				)

				; Make installer cd into Serif when it executes the run statement
				(set @execute-dir (tackon FW_dest "FWFonts/SWOLFonts/Serif"))

				(working "Serif-Schriftarten werden von Diskette 6 installiert.")
				(set error
					(run
						("\"%s\" -f x \"Disk 6:Serif2.lha\" >NIL:" DeArcher)
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der Serif2-Schriftarten."))
				)
			)
		)
	)
)

(complete 86)

(if (IN install_options 8)
	(
		; ----------
		; Get Disk 7
		;
		(askdisk
			(prompt "Bitte \"Diskette 7\" einlegen.")
			(help	"Diskette 7 enthält auf dem System zu installierende, zusätzliche "
					"serifenlose Schriftarten.")
			(dest "Disk 7")
		)

		; Instaling Sans serif fonts
		(if (IN install_options 8)
			(
				; If FWFonts/SWOLFonts/Sans doesn't exist, create it.
				(if (NOT (exists (tackon FW_dest "FWFonts/SWOLFonts/Sans")))
					(
					(makedir (tackon FW_dest "FWFonts/SWOLFonts/Sans") (infos))
					)
				)

				; Make installer cd into Sans when it executes the run statement
				(set @execute-dir (tackon FW_dest "FWFonts/SWOLFonts/Sans"))

				(working "Serifenlose Schriftarten werden von Diskette 7 installiert.")
				(set error
					(run
						("\"%s\" -f x \"Disk 7:Sans.lha\" >NIL:" DeArcher)
					)
				)

				; Abort if any errors
				(if error
					(abort ("Fehler bei Installation der Serifenlosen "
 							"Schriftarten."))
				)
			)
		)
	)
)

; If FWDocs doesn't exist, create it.
(if (NOT (exists (tackon FW_dest "FWDocs")))
	(
	(makedir (tackon FW_dest "FWDocs") (infos))
	)
)

; If FWTextClips doesn't exist, create it.
(if (NOT (exists (tackon FW_dest "FWTextClips")))
	(
	(makedir (tackon FW_dest "FWTextClips") (infos))
	)
)

(delete DeArcher)

(complete 100)

(exit)