; $VER: DXSF Install 5.0 (05.12.94)
;script to install Fast Deluxe Stripper

(set #CPPDEKOMP (cat "\nEntpacke die DXSF-Tools\n\n"))
(set @CPPSIZE	0)
(complete 0)

(set #prp-sampleinstall
(cat	"\nSoll die Configdatei von S: in ENVARC: kopiert werden? ABSOLUT NOTWENDIG!\n"))
(set #yes-samples "Ja")
(set #no-samples "Nein")

(Procedure Inst_LhaFiles
	(set @TMP (tackon "DXSF:" @FName.lha))
	(set @Dest_File (tackon @default-dest @Dest))

	(if (= (substr destdir (- (strlen destdir) 1) 1) ':')
         (run ("\"DXSF:c/lhx\" -E -N x \"DXSF:DATA/DXSFTools.lha\" \"%s\"" destdir))
         (run ("\"DXSF:c/lhx\" -E -N x \"DXSF:DATA/DXSFTools.lha\" \"%s/\"" destdir))
     )
)

(Procedure Inst_LhaFilesB
	(set @TMP (tackon "DXSF:" @FName.lha))
	(set @Dest_File (tackon @default-dest @Dest))

	(if (= (substr destdir (- (strlen destdir) 1) 1) ':')
         (run ("\"DXSF:c/lhx\" -E -N x \"DXSF:DATA/Externals.lha\" \"%s\"" destdir))
         (run ("\"DXSF:c/lhx\" -E -N x \"DXSF:DATA/Externals.lha\" \"%s/\"" destdir))
     )
)

(Procedure Inst_LhaFilesC
	(set @TMP (tackon "DXSF:" @FName.lha))
	(set @Dest_File (tackon @default-dest @Dest))

	(if (= (substr destdir (- (strlen destdir) 1) 1) ':')
         (run ("\"DXSF:c/lhx\" -E -N x \"DXSF:DATA/Anleitung.lha\" \"%s\"" destdir))
         (run ("\"DXSF:c/lhx\" -E -N x \"DXSF:DATA/Anleitung.lha\" \"%s/\"" destdir))
     )
)

(Procedure Inst_LhaFilesD
	(set @TMP (tackon "DXSF:" @FName.lha))
	(set @Dest_File (tackon @default-dest @Dest))

	(if (= (substr destdir (- (strlen destdir) 1) 1) ':')
         (run ("\"DXSF:c/lhx\" -E -N x \"DXSF:DATA/TextStr.lha\" s:"))
         (run ("\"DXSF:c/lhx\" -E -N x \"DXSF:DATA/Textstr.lha\" s:"))
     )
)

(Procedure Inst_LhaFilesE
	(set @TMP (tackon "DXSF:" @FName.lha))
	(set @Dest_File (tackon @default-dest @Dest))

    (if (= (substr destdir (- (strlen destdir) 1) 1) ':')
         (run ("\"DXSF:c/lhx\" -E -N x \"DXSF:DATA/Stripplisten.lha\" \"%s\"" destdir))
         (run ("\"DXSF:c/lhx\" -E -N x \"DXSF:DATA/Stripplisten.lha\" \"%s/\"" destdir))
     )
)

    (set EVALDISK "DXSF:")
    (set keyfile FALSE)

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

;(run save("DXSF:data/pic"))

(set #General
  (cat "\n\nInstallation beendet!"
))

;Get directory to install DXSF in.
(set destdir
	(askdir
		(prompt "In welche Schublade soll DXSF installiert werden?")
		(help @askdir-help)
		(default (tackon @default-dest ""))
	)
)

(set vernum (getversion))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536) ) )

(complete 10)

(working "Entpacke Anleitung ...")

(
	(set @Working #CPPDEKOMP)				; Anleitung kopieren
	(set @Dest destdir)
	(set @Source "DXSF:")
	(set @FName.lha ("Anleitung.lha"))
	(set @Size @CPPSIZE)
	(Inst_LhaFilesC)
)

(complete 20)

(working "Entpacke Stripplisten ...")

(
	(set @Working #CPPDEKOMP)				; Stripplisten kopieren
	(set @Dest destdir)
	(set @Source "DXSF:")
	(set @FName.lha ("Stripplisten.lha"))
	(set @Size @CPPSIZE)
	(Inst_LhaFilesE)
)

(working "Entpacke TextStripp.Config ...")

(
	(set @Working #CPPDEKOMP)				; TextStrippConfig kopieren
	(set @Dest "S:")
	(set @Source "DXSF:")
	(set @FName.lha ("Textstr.lha"))
	(set @Size @CPPSIZE)
	(Inst_LhaFilesD)
)

(complete 40)

(working "Entpacke DXSFTools ...")

(
	(set @Working #CPPDEKOMP)				; DXSFTools kopieren
	(set @Dest destdir)
	(set @Source "DXSF:")
	(set @FName.lha ("DXSFTools.lha"))
	(set @Size @CPPSIZE)
	(Inst_LhaFiles)
)

(complete 80)

     (if (<> (exists "locale:catalogs/deutsch" (noreq)) 0)
         (copyfiles (prompt "Kopiere Sprachdateien...")
                (help (cat "Die Sprachdateien werden kopiert.\n\n" @copyfiles-help))
                (source "DXSF:locale/catalogs")
                (dest "locale:catalogs")
                (all))
     )


(message ("\nDXSF ist installiert in \"%s\"" destdir))

(set destdir
	(askdir
		(prompt "In welche Schublade soll die Externen Programme installiert werden?")
		(help @askdir-help)
		(default (tackon @default-dest ""))
	)
)

(working "Entpacke externe Programme ...")

(
	(set @Working #CPPDEKOMP)				; Externals kopieren
	(set @Dest destdir)
	(set @Source "DXSF:")
	(set @FName.lha ("C/Externals.lha"))
	(set @Size @CPPSIZE)
	(Inst_LhaFilesB)
)

(set samples 1)
(set samples
	(askchoice
		(prompt #prp-sampleinstall)
		(help #hlp-sampleinstall)
		(choices #no-samples #yes-samples)
		(default samples)
	)
)

(if (<> samples 0)
	(
		(run ("c:copy >NIL: s:DXL.cfg envarc:dxsf.prefs"))
        (run ("c:copy >NIL: envarc:dxsf.prefs env:dxsf.prefs"))
	)
)

;Correct @default-dest so that final information is correct.
(set @default-dest destdir)

(message #General)

(complete 100)

(exit)