;============================================================================;
;=  $VER: 2.0 Future Drive Accelerator Installscript by Martin Tauchmann    =;
;============================================================================;

;C:WBStarter Devel:FDA_link/FDA_Demo/Install-FDA.deutsch

(set #Ver ("2.2"))

;================================= ENGLISH ==================================;

(set #bad-kick "You must be using Kickstart 2.04+ to use FDA!")

(set #install-start
	(cat
		"\nWelcome to Future Drive Accelerator V"#Ver" installation utility.\n\n"
		"Written and performed by Martin Tauchmann\n\n"
		"The newest fdaupdate.lha can be found at http://MartinTauchmann.home.pages.de"
	)
)

(set #where-FDA "Where would you like to install FDA and FDAView?\nI will not create a directory.\nAn installation to the \"SYS:WBStartup\" Drawer, is later possible.")

(set #where-FDA-help
	(cat
		"This is the destination directory of FDA and FDAView."
		" SYS:System is a good place"
	)
)

(set #install-select
	(cat
		"Please select the different parts of FDA that you"
		" would like to install:"
	)
)

(set #install-select-help
	(cat
		   "Future Drive Accelerator :\n"
		   "\n"
		   "ca. 32 KB\n"
		   "\n"
		   "\n"
		   "Future Drive Accelerator Guide, HTMl, DVI, PS, texi :\n"
		   " with Statistic-Program"
		   "\n"
		   "ca. 270 KB\n"
		   "\n"
		   "\n"
		   "Future Drive Accelerator Preferences :\n"
		   "\n"
		   "ca. 40 KB\n"
		   "\n"
		   "\n"
		   "Future Drive Accelerator Viewer :\n"
		   "\n"
		   "ca. 22 KB\n"
	)
)

(set #item-FDA "FDA Program")
(set #item-doc "Future Drive Accelerator Documentation")
(set #item-FDAprefs "Future Drive Accelerator Preferences")
(set #item-FDAView "Future Drive Accelerator Viewer")


(set #which-CPU
	(cat
		"Choose the FDA Processor-Version you would like installed.\n"
		"This Amiga is running with a MC " (DATABASE "cpu")
	)
)

(set #where-doc "Where would you like to install the Guide and the Statistics? I create a Directory `FDAdoc´")

(set #where-FDAprefs "Where would you like to install FDA Preferences editor?")

(set #where-FDAprefs-help
	(cat
		"This is the destination directory of FDA Preferences editor."
		" Normally ALL preferences editors are in SYS:Prefs !"
	)
)


(set #doc-select-Lang
	(cat
		"Choose the language of the documentation"
		" you would like installed.\n"
	)
)

(set #doc-select
	(cat
		"Choose the format of the documentation"
		" you would like installed.\n"
	)
)


(set #doc-select-help
	(cat
		"Guide :\n"
		"Need MultiView or AmigaGuide.\n"
		"\n"
		"DVI (TeX) : (only in extra-archive)\n"
		"Need ShowDVI from example: PasTeX.\n"
		"\n"
		"PostScript : (only in extra-archive)\n"
		"Need HWG-Post or Ghostscript to read it online,\n"
		"or an PostScript Printer.\n"
		"\n"
		"HTML :\n"
		"Need an WWW-Browser exaples: AmiWeb, Visage, IBrowse, Lynx.\n"
		"\n"
		"TeXinfo : (only in extra-archive)\n"
		"Need texinfo from GeekGadget, only neccesery for translations.\n"
	)
)


(set #installType-select
	"How should Future Drive Accelerator started at booting?"
)
(set #installType-select-help
	(cat
		"Startup-Sequence:\n"
		"You are able to to it self.\n"
		"=>Started at earlierst.\n"
		"\n"
		"User-Startup:\n"
		"will be automatically do nearly on all systems.\n"
		"=>Started at second earlierst.\n"
		"\n"
		"WBStartup:\n"
		"Can`t go anything wrong.\n"
		"=>Will only be started if the booting is finished.\n"
		"=>An HardLink spares diskspace.\n"
		"=>The file seems to be exists double.\n"
	)
)
(set #install-end1
	"Type in `S:Startup-Seuence` after SetPatch, StackAttack, SaferPatches, PoolMem.\n\n"
)
(set #install-end2
	"\n"
)

(set #install-Pref-Cancel
	"Please configure Future Drive Accelerator, before you are using it."
)

(set #install-EndMsg
	"Please install the fastest `CopyMemQuick` replacement, istead of the `MCP-CopyMemQuick` replacement.\nRead the Chapter `Speed up` in the Documentation."
)


(set #patch1_1 (cat "\n\nNow, patching file `"))	     ;Dateiname wird eingefügt
(set #patch1_2 (cat "`\nto the MC68000 Version."))

(set #ErrorMsg1_1 (cat "\n\nError while patching file `"))	   ;Dateiname wird eingefügt
(set #ErrorMsg1_2 (cat "`\n."
		       "\n\n\ncase 1 file not located,\n"
		       "case 2 its alright the "))		;Neue Version wird eingefügt



;===[ German Documentation ]=================================================

(if (= @language "deutsch")
 (
(set #bad-kick "Man benötigt Kickstart 2.04 oder höher, um FDA benutzen zu können!")

(set #install-start
	(cat
		"\nWillkommen zur Future Drive Accelerator V"#Ver" Installation.\n\n"
		"Geschrieben von Martin Tauchmann\n\n"
		"Das neuste fdaupdate.lha ist bei http://MartinTauchmann.home.pages.de ausfindig zu machen."
	)
)

(set #where-FDA "Wohin möchtest Du FDA und FDAView installieren?\nIch werde kein Verzeichniss erstellen.\nEine installation in das \"SYS:WBStartup\" Verzeichniss ist noch später möglich.")

(set #where-FDA-help
	(cat
		"Dies ist das Zielverzeichnis vom FDA und FDAView."
		" SYS:System ist ein guter Platz."
	)
)

(set #install-select
	(cat
		"Bitte wähle die einzelnen Teile des FDA aus, die"
		" Du installieren möchtest:"
	)
)

(set #install-select-help
	(cat
		   "Future Drive Accelerator :\n"
		   "\n"
		   "ca. 32 KB\n"
		   "\n"
		   "\n"
		   "Future Drive Accelerator Guide, HTMl, DVI, PS, texi :\n"
		   " mit Statistik-Programm"
		   "\n"
		   "ca. 270 KB\n"
		   "\n"
		   "\n"
		   "Future Drive Accelerator Preferences :\n"
		   "\n"
		   "ca. 40 KB\n"
		   "\n"
		   "\n"
		   "Future Drive Accelerator Viewer :\n"
		   "\n"
		   "ca. 22 KB\n"
	)
)

(set #item-FDA "FDA Programm")
(set #item-doc "Future Drive Accelerator Dokumentation")
(set #item-FDAprefs "Future Drive Accelerator Preferences")
(set #item-FDAView "Future Drive Accelerator Viewer")

(set #which-CPU
	(cat
		"Wähle die FDA Prozessor-Version aus, die Du gerne installieren möchtest.\n"
		"Dieser Amiga läuft mit einem MC " (DATABASE "cpu")
	)
)

(set #where-doc "Wohin möchtest Du die Dokumentation und die Statistiken installieren? Ich erstelle ein Verzeichniss `FDAdoc´")

(set #where-FDAprefs "Wohin möchtest Du den FDA Voreinsteller installieren?")

(set #where-FDAprefs-help
	(cat
		"Dies ist das Zielverzeichnis des FDA Voreinstellers."
		" Normalerweise sind alle Voreinstellungsprogramme im SYS:Prefs."
	)
)


(set #doc-select-Lang
	(cat
		"Bitte wähle ein Spache der Dokumentation aus, die"
		" Du installieren möchtest:"
	)
)

(set #doc-select
	(cat
		"Bitte wähle das Format der Dokumentation aus, die"
		" Du installieren möchtest:"
	)
)

(set #doc-select-help
	(cat
		"Guide :\n"
		"Brauch MultiView oder AmigaGuide.\n"
		"\n"
		"DVI (TeX) : (nur im Extra-Archive)\n"
		"Brauch ShowDVI von z.B. PasTeX.\n"
		"\n"
		"PostScript : (nur im Extra-Archive)\n"
		"Brauch HWG-Post oder Ghostscript zum online lesen,\n"
		"oder einen PostScript Drucker.\n"
		"\n"
		"HTML :\n"
		"Brauch einen WWW-Browser z.B. AmiWeb, Visage, IBrowse, Lynx.\n"
		"\n"
		"TeXinfo : (nur im Extra-Archive)\n"
		"Brauch texinfo von GeekGadget, nur zum Übersetzen nötig.\n"
	)
)


(set #installType-select
	"Wie soll Future Drive Accelerator beim booten gestartet werden?"
)
(set #installType-select-help
	(cat
		"Startup-Sequence:\n"
		"Darf manuell gemacht werden.\n"
		"=>Wird am frühesten gestartet.\n"
		"\n"
		"User-Startup:\n"
		"Wird bei fast allen Systemen automatisch gemacht.\n"
		"=>Wird am zweit frühesten gestartet.\n"
		"\n"
		"WBStartup:\n"
		"Kann nichts schief gehen.\n"
		"=>Wird erst bei Beedigung des booten gestartet.\n"
		"=>Ein HardLink spart Speicherplatz.\n"
		"=>Die Datei ist scheinbar doppelt vorhanden.\n"
	)
)

(set #install-end1
	"Nun darfst Du in die `S:Startup-Seuence` nach SetPatch, StackAttack, SaferPatches, PoolMem.\n\n"
)
(set #install-end2
	"eintippen.\n\n"
)

(set #install-Pref-Cancel
	"Bitte erst Future Drive Accelerator einstellen vor der Benutzung."
)

(set #install-EndMsg
	"Bitte intallieren Sie den schnellsten `CopyMemQuick` Ersatz, statt dem `MCP-CopyMemQuick` Ersatz.\nLesen Sie das Kapitel `Speed up` in der Dokumentation."
)


(set #patch1_1 (cat "\n\nJetzt wird die Datei `"))	       ;Dateiname wird eingefügt
(set #patch1_2 (cat "`\nfür den MC68000 prepariert."))

(set #ErrorMsg1_1 (cat "\n\nDas Patchen der Datei `"))	       ;Dateiname wird eingefügt
(set #ErrorMsg1_2 (cat "`\n ist fehlgeschlagen !!!"
		       "\n\n\nEntweder wurde das File nicht gefunden,\n"
		       "oder es ist bereits die "))	    ;Neue Version wird eingefügt


 )
)

;============================== ENGLISH & GERMAN ?============================;

(set #doc-help
	(cat
		"english documentation:\n"
		" o `fda_DviPS.lha` DVI (TeX) and PostScript (GhostScript) formarts,\n"
		" o `fda.lha` AmigaGuide and HTML formats.\n\n"
		"german documentation:\n"
		" o `fda_d_DviPS.lha` DVI (TeX) and PostScript (GhostScript) formarts,\n"
		" o `fda_d_GuidHTML.lha` AmigaGuide and HTML formats."
	)
)



;-------------------------------------------------
; Vergleiche Versionen, und patche die Datei
; Verzeichnis, Datei
;-------------------------------------------------
(procedure Update #dir #dat #oldfileFullPath #patchPath #gpatchFullPath
 (set #dat2 (tackon #dir #dat))

 (working (cat #patch1_1 #dat #patch1_2))
 (set #patch (run (cat #gpatchFullPath" "#oldfileFullPath" "#patchPath #dat".patch \""#dat2"\" NOVERSION") (safe)))
 (if (> #patch 0) (message (cat #ErrorMsg1_1 #dat #ErrorMsg1_2 #dat " Version." ) (ALL))
 )
)
;============================== PROGRAM-START================================

(SET @default-dest "SYS:System/")
(SET #FDA-dest @default-dest)
(SET #FDAprefs-dest "SYS:Prefs/")


; Check Kickstart (>= v2.0) Version.

(if (< (/ (getversion) 65536) 37)
	(abort #bad-kick)
)

(message #install-start (ALL))
(welcome)

;============================ REAL INSTALLATION =============================



(COMPLETE 0)

     (SET parts
	  (ASKOPTIONS
	     (PROMPT	#install-select)
	     (HELP	#install-select-help "\n\n" @askoptions-help)
	     (CHOICES
			#item-FDA
			#item-FDAView
			#item-doc
			#item-FDAprefs
	     )
	     (DEFAULT %1011)
	  )
      )


(IF (OR (IN parts 0) (IN parts 1) (IN parts 2) (IN parts 3) )
  (
			(SET #usercpu 1)

			(IF (= (DATABASE "cpu") "68020")
			  (
				(SET #usercpu 1)
			  )
			  (
				(IF (= (DATABASE "cpu") "68010")
				  (
					(SET #usercpu 0)
				  )
				  (
					(IF (= (DATABASE "cpu") "68000")
					  (
						(SET #usercpu 0)
					  )
					)
				  )
				)
			  )
			)


   (IF (= @user-level 2)
     (
	     (SET #usercpu
		  (ASKCHOICE
		     (PROMPT #which-CPU)
		     (CHOICES "MC 68000+"
			      "MC 68020+"
		     )
		     (HELP @askchoice-help
		     )
		     (DEFAULT #usercpu)
		  )
	      )
     )
   )

  )
)

(IF (IN parts 0)
  (

	(SET #FDA-dest (ASKDIR (PROMPT #where-FDA)
			   (DEFAULT @default-dest)
			   (HELP #where-FDA-help "\n\n" @askdir-help)
			)
	)
	(SET @default-dest #FDA-dest)


   (DELETE (TACKON #FDA-dest "FDAV1.2") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
   (DELETE (TACKON #FDA-dest "FDAV1.4") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
   (DELETE (TACKON #FDA-dest "FDAV1.8") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))

   (IF (= #usercpu 0)
     (
	(COPYFILES (SOURCE "FDA.info")
		   (DEST #FDA-dest)
		   (PROMPT "Copying MC 68000+ Version")
		   (SAFE)
	)

	(Update #FDA-dest "FDA" "FDA" "MC68000/" "MC68000/GPatch")
     )
     (
	   (IF (= #usercpu 1)
	     (
		(COPYFILES (SOURCE "FDA")
			   (DEST #FDA-dest)
			   (PROMPT "Copying MC 68020+ Version")
			   (SAFE)
			   (INFOS)
		)
	     )
	   )
     )
   )

	(TOOLTYPE (DEST (TACKON #FDA-dest "FDA"))
		  (NOPOSITION)
		  (safe)
	)

  )
)

(COMPLETE 25)

(SET #vernum (GETVERSION (resident)))
(SET #vernum (/ #vernum 65536))

(IF (IN parts 1)
  (
	(IF (< #vernum 36)
	  (
		(MESSAGE "You don't have OS2.0.\nFDAView only work with OS2.0 or higher." (ALL))
	  )
	)

   (DELETE (TACKON #FDA-dest "FDAViewV1.2") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
   (DELETE (TACKON #FDA-dest "FDAViewV1.4") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
   (DELETE (TACKON #FDA-dest "FDAViewV1.8") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))

   (IF (= #usercpu 0)
     (
	(COPYFILES (SOURCE "FDAView.info")
		   (DEST #FDA-dest)
		   (PROMPT "Copying MC 68000+ Version")
		   (SAFE)
	)

	(Update #FDA-dest "FDAView" "FDAView" "MC68000/" "MC68000/GPatch")
     )
     (
	    (COPYFILES	(SOURCE "FDAView")
			(DEST #FDA-dest)
			(PROMPT "Copying MC 68020+ Version")
			(SAFE)
			(INFOS)
	    )
     )
   )

	(TOOLTYPE (DEST (TACKON #FDA-dest "FDAView"))
		  (NOPOSITION)
		  (safe)
	)

  )
)

(COMPLETE 50)


(IF (IN parts 2)
  (
	(SET #doc-dest (ASKDIR (PROMPT #where-doc)
			   (DEFAULT @default-dest)
			   (HELP @askdir-help)
			)
	)

	(DELETE (TACKON #doc-dest "FDA.guide#?") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))

	(DELETE (TACKON #doc-dest "DSG") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS) (ALL)))

	(COPYFILES (SOURCE "FDAdoc.info")
		(DEST #doc-dest)
	)

	(TOOLTYPE (DEST (TACKON #doc-dest "FDAdoc.info"))
		  (NOPOSITION)
		  (safe)
	)

	(SET #doc-dest (TACKON #doc-dest "FDAdoc"))
	(SET @default-dest #doc-dest)

	(COPYFILES (SOURCE "FDAdoc/FDA-Benchmarks.guide")
	       (DEST #doc-dest)
	       (INFOS)
	)

	(COPYFILES (SOURCE "FDAdoc/FDA-News.readme")
	       (DEST #doc-dest )
	       (INFOS)
	)

	(COPYFILES (SOURCE "FDAdoc")
	       (DEST #doc-dest)
	       (pattern "Benchmark-#?")
	       (INFOS)
	)

	(COPYFILES (SOURCE "FDAdoc/DSG.info")
	       (DEST #doc-dest)
	)

	(COPYFILES (SOURCE "FDAdoc/DSG")
	       (choices "DSG"
			"DSG.guide"
	       )
	       (DEST (tackon #doc-dest "DSG") )
	       (INFOS)
	)

	(COPYFILES (SOURCE "FDAdoc/DSG/PPC604_233MHz_060_50MHz_96MB")
	       (DEST (tackon #doc-dest "DSG/PPC604_233MHz_060_50MHz_96MB") )
	       (pattern "#?")
	)

	(COPYFILES (SOURCE "FDAdoc/DSG/BlizzardIV030_50Mhz_16MB")
	       (DEST (tackon #doc-dest "DSG/BlizzardIV030_50Mhz_16MB") )
	       (pattern "#?")
	)

	(COPYFILES (SOURCE "FDAdoc/DSG/TurboJet030_14MHz_2MB")
	       (DEST (tackon #doc-dest "DSG/TurboJet030_14MHz_2MB") )
	       (pattern "#?")
	)

	(SET #bguiExpand 0)
	(IF (= #usercpu 1)
			(IF (>= #vernum 39)
					(SET #bguiExpand 1)
			)
	)


	(IF (= #bguiExpand 1)
		(
			(IF (= (getsize "Libs:bgui.library") 123588)
				(DELETE "Libs:bgui.library" (OPTIONAL "FORCE") (DELOPTS (SAFE) ))
			)
			(copylib
				(prompt		"Installing the bgui.library Enhanced (68020 & 3.0 compatible)...")
				(help		@copylib-help)
				(source		"FDAdoc/DSG/bgui.library")
				(dest		"Libs:")
				(optional	force askuser)
				(confirm)
				(safe)
			)
		)
		(
			(set #vernum1 (getversion "Libs:bgui.library"))

;			(message #vernum1)
;			(set #ver1 (/ #vernum1 65536))
;			(set #rev1 (- #vernum1 (* #ver1 65536) ) )

			(IF (< #vernum1 2686986)
				(Update "libs:" "bgui.library" "FDAdoc/DSG/bgui.library" "FDAdoc/DSG/" "MC68000/GPatch")
			)


		)
	)

(COMPLETE 55)

	(SET #docLanguage 0)

	(IF (= @language "english")
	  (
		(SET #docLanguage 0)
	  )
	  (
		(IF (= @language "deutsch")
		  (
			(SET #docLanguage 1)
		  )
		)
	  )
	)

	(SET #docLanguage
	     (ASKCHOICE
		(PROMPT #doc-select-lang)
		(HELP	#doc-help "\n\n" @askoptions-help)
		(CHOICES
			"english"
			"deutsch"
		)
		(DEFAULT #docLanguage)
	     )
	)

	(IF (= #docLanguage 0)
		(set #docLangExt "")
	)

	(IF (= #docLanguage 1)
		(set #docLangExt "_d")
	)



	(SET #docParts
	     (ASKOPTIONS
		(PROMPT #doc-select)
		(HELP	#doc-select-help "\n\n" @askoptions-help)
		(CHOICES
			"Guide"
			"DVI (TeX)"
			"PostScript"
			"HTML (WWW)"
			"TeXinfo"
		)
		(DEFAULT %01001)
	     )
	)

	(set #docPath "FDAdoc")

;	(set #test ("FDA%s.%s" #docLangExt "guide") )
;	(debug "The value of 'test' is" #test)
;	(message #test)


	(IF (IN #docParts 0)
	  (
		(set #docFileName ("FDA%s.%s" #docLangExt "guide") )
		(SET #doc (TACKON #docPath #docFileName))

		(IF (= (EXISTS #doc) 1)
			(
				(COPYFILES (SOURCE #doc)
				       (DEST #doc-dest)
				)

				(IF (< #vernum 39)
					(
						(SET #cmd (cat "MC68000/AGuideConv " (TACKON #doc-dest #docFileName)) )
;						(MESSAGE #cmd)
						(set #rc (RUN #cmd (SAFE)))
					)
				)

				(COPYFILES (SOURCE (CAT #doc ".info" ))
					   (DEST #doc-dest)
					   (SAFE)
				)

				(TOOLTYPE (DEST (TACKON #doc-dest #docFileName))
					  (NOPOSITION)
					  (safe)
				)
			)
			(
				(message "Please extract the extra archive fda_d_GuidHTML.lha also in the same directory." (ALL))
			)
		)



	  )
	)

(COMPLETE 60)

	(IF (IN #docParts 1)
	  (
		(set #docFileName ("FDA%s.%s" #docLangExt "dvi") )
		(SET #doc (TACKON #docPath #docFileName))
		(IF (= (EXISTS #doc) 1)
			(
				(COPYFILES (SOURCE #doc)
				       (DEST #doc-dest)
				       (INFOS)
				)
				(TOOLTYPE (DEST (TACKON #doc-dest #docFileName))
					  (NOPOSITION)
					  (safe)
				)
			)
			(
				(message "Please extract the extra archive fda_DviPS.lha or fda_d_DviPS.lha also in the same directory." (ALL))
			)
		)
	  )
	)

(COMPLETE 65)

	(IF (IN #docParts 2)
	  (
		(set #docFileName ("FDA%s.%s" #docLangExt "ps") )
		(SET #doc (TACKON #docPath #docFileName))
		(IF (= (EXISTS #doc) 1)
			(
				(COPYFILES (SOURCE #doc)
				       (DEST #doc-dest)
				       (INFOS)
				)
				(TOOLTYPE (DEST (TACKON #doc-dest #docFileName))
					  (NOPOSITION)
					  (safe)
				)
			)
			(
				(message "Please extract the extra archive fda_DviPS.lha or fda_d_DviPS.lha also in the same directory." (ALL))
			)
		)
	  )
	)

(COMPLETE 70)

	(IF (IN #docParts 3)
	  (
		(IF (= (EXISTS ("FDAdoc/FDA%s_toc.%s" #docLangExt "html")) 1)
			(
				(COPYFILES (SOURCE "FDAdoc")
				       (DEST #doc-dest)
				       (pattern ("FDA%s??.%s" #docLangExt "html"))
				       (INFOS)
				)
				(COPYFILES (SOURCE "FDAdoc")
				       (DEST #doc-dest)
				       (pattern ("FDA%s???.%s" #docLangExt "html"))
				       (INFOS)
				)
				(COPYFILES (SOURCE "FDAdoc")
				       (DEST #doc-dest)
				       (pattern ("FDA%s_toc.%s" #docLangExt "html"))
				       (INFOS)
				)
				(COPYFILES (SOURCE "FDAdoc")
				       (DEST #doc-dest)
				       (pattern ("FDA%s_foot.%s" #docLangExt "html"))
				       (INFOS)
				)
				(TOOLTYPE (DEST (TACKON #doc-dest ("FDA%s_toc.%s" #docLangExt "html")))
					  (NOPOSITION)
					  (safe)
				)
				(COPYFILES (SOURCE "FDAdoc")
				       (DEST #doc-dest)
				       (pattern "FDA#?.png")
				)
			)
			(
				(message "Please extract the extra archive fda_d_GuidHTML.lha also in the same directory." (ALL))
			)
		)
	  )
	)

(COMPLETE 75)

	(IF (IN #docParts 4)
	  (
		(SET #doc-dest-Translator (TACKON #doc-dest "Translator"))

		(set #docFileName ("Translator/FDA%s.%s" #docLangExt "tex") )
		(SET #doc (TACKON #docPath #docFileName))

		(IF (= (EXISTS #doc) 1)
			(
				(COPYFILES (SOURCE #doc)
				       (DEST #doc-dest-Translator)
				       (INFOS)
				)
				(TOOLTYPE (DEST (TACKON #doc-dest-Translator #docFileName))
					  (NOPOSITION)
					  (safe)
				)
				(COPYFILES (SOURCE "FDAdoc/Translator")
				       (DEST #doc-dest-Translator)
				       (pattern "FDA#?.txt")
				)
				(DELETE (TACKON #doc-dest "Translator.info") (OPTIONAL "FORCE") (DELOPTS (SAFE) ))
			)
			(
				(message "Please extract the extra archive fda_DviPS.lha or fda_d_DviPS.lha also in the same directory." (ALL))
			)
		)
	  )
	)


   )
)

(COMPLETE 80)

(IF (IN parts 3)
  (
	(IF (< #vernum 36)
	  (
		(MESSAGE "You don't have OS2.0.\nFDAPref only work with OS2.0 or higher." (ALL))
	  )
	)
	(SET @default-dest "SYS:Prefs/")
	(SET #FDAprefs-dest (ASKDIR (PROMPT #where-FDAprefs)
			   (DEFAULT @default-dest)
			   (HELP #where-FDAprefs-help "\n\n" @askdir-help)
		   )
	)
	(SET @default-dest #FDAprefs-dest)

   (DELETE (TACKON #FDAprefs-dest "FDAPref1.2") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
   (DELETE (TACKON #FDAprefs-dest "FDAPref1.4") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
   (DELETE (TACKON #FDAprefs-dest "FDAPref1.8") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))

   (IF (= #usercpu 0)
     (
	(COPYFILES (SOURCE "FDAPref.info")
		   (DEST #FDAprefs-dest)
		   (PROMPT "Copying MC 68000+ Version")
		   (SAFE)
	)

	(Update #FDAprefs-dest "FDAPref" "FDAPref" "MC68000/" "MC68000/GPatch")
     )
     (
	    (COPYFILES	(SOURCE "FDAPref")
			(DEST #FDAprefs-dest)
			(PROMPT "Copying MC 68020+ Version")
			(SAFE)
			(INFOS)
	    )
     )
   )

	(TOOLTYPE (DEST (TACKON #FDAprefs-dest "FDAPref"))
		  (NOPOSITION)
		  (safe)
	)

	(SET #cmd ("MC68000/DoIconLite %s CTT=\"MAINPROGPATH=%s/\" num=5 QUIET" (TACKON #FDAprefs-dest "FDAPref" ) #FDA-dest ) )
	(set #rc (RUN #cmd (SAFE)))


   )
)


(COMPLETE 98)



	(SET #installType 2)
	(IF (= @user-level 2)
		(
		   (SET #installType 0)
		)
	)
	(
		(IF (= @user-level 1)
			(
			   (SET #installType 1)
			)
		)
	)


	(IF (< #installType 2)
	     (SET #installType
		  (ASKCHOICE
		     (PROMPT	#installType-select)
		     (HELP	#installType-select-help "\n\n" @askoptions-help)
		     (CHOICES
				"S:Startup-Sequence (only informations)"
				"S:User-Startup"
				"SYS:WBStartup"
		     )
		     (DEFAULT #installType)
		  )
	      )
	)

	(IF (= #installType 0)
		(message #install-end1
			"RUN <>NIL: "#FDA-dest"FDA QUIET\n"
			#install-end2
		)
	)

	(IF (= #installType 1)
		(
			(SET #cmd ("RUN <>NIL: %sFDA QUIET" #FDA-dest) )
			(startup "FDA"
				(prompt "Adding to the \"S:user-startup\":\n\n"
					"RUN <>NIL: "#FDA-dest"FDA QUIET\n"
				)
				(help "No help for this function")
				(COMMAND #cmd)
			)
		)
	)

	(IF (= #installType 2)
		(
			(SET #cmd ("c:MakeLink SYS:WBStartup/%s %s%s" "FDA" #FDA-dest "FDA") )
;			(message "wbstartup:\n\n"
;				#cmd
;			)
			(DELETE "SYS:WBStartup/FDA" (OPTIONAL "FORCE") (DELOPTS (SAFE) ))
			(set #rc (RUN #cmd (SAFE)))
			(if (> #rc 0)
				(
					(message "Link installing in \"SYS:WBStartup\" fails.\nNow copy a duplicate" (ALL))
					(COPYFILES (SOURCE (TACKON #FDA-dest "FDA"))
						   (DEST "SYS:WBStartup")
						   (safe)
					)
				)
			)
			(COPYFILES (SOURCE "FDA.info")
				   (DEST "SYS:WBStartup")
				   (safe)
			)
			(TOOLTYPE (DEST "SYS:WBStartup/FDA")
				  (NOPOSITION)
				  (safe)
			)
			(set #rc (RUN "MC68000/DoIconLite SYS:WBStartup/FDA TTT=2 QUIET" (SAFE)))
			(SET #cmd ("MC68000/DoIconLite %s CTT=\"MAINPROGPATH=Sys:WBStartup/\" num=5 QUIET" (TACKON #FDAprefs-dest "FDAPref") ) )
			(set #rc (RUN #cmd (SAFE)))
		)
	)


(COMPLETE 99)

(working "Running FDAPref")
(set #rc (RUN (cat (TACKON #FDAprefs-dest "FDAPref") " EDIT MAINPROGPATH=\""#FDA-dest "\"" ) ))
(if (= #rc 10)
 (
	(message #install-Pref-Cancel (ALL))
 )
 (
	(set #rc (RUN (cat "RUN <>NIL: " (TACKON #FDA-dest "FDA") " QUIET") ))
	(RUN "Wait 1")
	(set #rc (RUN (CAT "RUN <>NIL: " (TACKON #FDA-dest "FDAView")  ) ))
 )
)


(message #install-EndMsg (ALL))

(COMPLETE 100)

(SET @default-dest #FDA-dest)


(IF (= (exists "FDAdoc/FDA-News.readme") 1)
	(set #rc (RUN "RUN SYS:Utilities/MultiView FDAdoc/FDA-News.readme"))
)

(exit)