; $VER: DXSF Install 5.09 (17.10.95)
;script to install Fast Deluxe Stripper

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

(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)

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

(set #General
  (cat "\n\nInstallation beendet!\nBitte lesen Sie sich in der Guide die\nInstallationhinweise durch!"
))

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

(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))
     )

;(if (<> (exists "envarc:dxsf.prefs" (noreq)) 0)
  (run ("\"DXSF:c/makeconfig\" \"%s\"" destdir))
;)

(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 "DXSF"))
        )
)

(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)
)


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

(message #General)

(complete 100)

(exit)