Amiga Format 58/af058sub.adf/yak56-57.lha/Yak_patch_1.56_1.57/Patch_Yak_1.56_to_1.57

Text File | 1994-01-12 | 6KB | 331 lines

; ************************************************
; *
; * This is the update script for Yak
; *
; * Gaël Marziou
; *
; ************************************************


; ********************************
; * Set up some global variables *
; ********************************

(set #old-version "1.56")
(set #new-version "1.57")

;=============================================================================
; English strings

(set default_lang 2)

(set default-guide 1)

(debug #old-version)
(set #welcome-message
    (cat
        "This script will upgrade Yak " #old-version " to Yak " #new-version
        "\nYou absolutely need Yak " #old-version
        "\nBefore Patching Yak executable, be sure you have stopped it."
    )
)

(set #where-is-old-version
    (cat
        "Where is located Yak " #old-version " ?\n"
        "Yak MUST be stopped"
    )
)

(set #couldnt-find "Sorry, couldn't find ")

(set #patching "Patching ")

(set #choose-guide
    (cat
        "\n\n Please indicate in which language is written the "
        "amigaguide documentation you have installed for Yak "
        #old-version "."
    )
)

(set #patch-guide
    (cat
        "\n\n Please indicate where is located the Yak documentation "
        "you want to patch."
    )
)

(set #patch-catalog "Please choose which catalog you want to patch")


;=============================================================================
; French strings


(if (= @language "français")
(

(set default_lang 4)

(set default-guide 2)

(set #welcome-message
    (cat
        "Ce script va mettre à jour Yak " #old-version " en Yak " #new-version
        "\nVous devez obligatoirement posséder Yak " #old-version
        "\nPensez à STOPPER Yak d'abord."
    )
)


(set #where-is-old-version
    (cat
            "Indiquez dans quel tiroir se trouve Yak " #old-version
            " afin que je puisse le mettre à jour\n"
            "Pensez à STOPPER Yak d'abord."
    )
)

(set #couldnt-find "Désolé, je n'ai pas trouvé ")

(set #patching "Mise à jour de ")

(set #choose-guide
    (cat
        "\n\n Choisissez la langue dans laquelle est écrite la documentation "
        "amigaguide de Yak que vous avez installée afin que je puisse la "
        "mettre à jour."
    )
)

(set #patch-guide
    (cat
        "\n\n Indiquez dans quel tiroir vous avez installé la documentation "
        "afin que je puisse la mettre à jour."
    )
)


(set #patch-catalog "Veuillez choisir le catalog que vous souhaitez mettre à jour")

)
)

;=============================================================================
; German strings by Ingolf Koch


(if (= @language "deutsch")
(

(set default_lang 1)

(set default-guide 0)

))

;=============================================================================
; Italian strings by Alex Galassi

(if (= @language "italiano")
(

(set default_lang 8)

(set default-guide 3)

))

;=============================================================================
; Swedish strings by Peter Eriksson

(if (= @language "svenska")
(
(set default_lang 32)

(set default-guide 1)

))


;=============================================================================
; Dutch strings by Patrick van Beem

(if (= @language "nederlands")
(

(set default_lang 16)

(set default-guide 1)

))

;===========================
; Beginning of installation
;===========================

(message #welcome-message)

; ASK WHERE IS OLD VERSION OF YAK

(set @default-dest
    (askdir
           (prompt #where-is-old-version)
           (help @askdir-help)
           (default "SYS:wbstartup")
    )
)

; In case of someone using RAM:

(if (= "Ram Disk:" (substr @default-dest 0 9))
    (
        (set temp (substr @default-dest 9))
        (set @default-dest
            (cat "RAM:" temp)
        )
    )
)


(if (= ":" (substr @default-dest (- (strlen @default-dest) 1)))
    (
        (set #old-yak (cat @default-dest "Yak"))
    )
    (
        (set #old-yak (cat @default-dest "/Yak" ))
    )
)


(if (= 0 (exists #old-yak ))
    (
        (abort (cat #couldnt-find #old-yak))
    )
)

; Start patching

(working (cat #patching #old-yak))
(run (cat "spatch -o" #old-yak " -pYak.pch " #old-yak))


; ASK WHICH GUIDE TO PATCH

(set guide
    (askchoice
        (prompt #choose-guide)
        (help #install-guide-help)
        (choices
             "Deutsch"
             "English"
             "Français"
             "Italiano"
        )
        (default default-guide)
    )
)


; ASK WHERE TO PATCH YAK.GUIDE

(set #guide-dir
    (askdir
           (prompt #patch-guide)
           (help @askdir-help)
           (default "SYS:")
   )
)

; In case of someone using RAM:

(if (= "Ram Disk:" (substr #guide-dir 0 9))
    (
        (set temp (substr #guide-dir 9))
        (set #guide-dir
            (cat "RAM:" temp)
        )
    )
)
(if (= ":" (substr #guide-dir (- (strlen #guide-dir) 1)))
    (
        (set #old-guide (cat #guide-dir "Yak.guide"))
    )
    (
        (set #old-guide (cat #guide-dir "/Yak.guide"))
    )
)

(if (= 0 (exists #old-guide))
    (
        (message (cat #couldnt-find #old-guide))
    )
)



; PATCH SELECTED GUIDE

(working  (cat #patching #old-guide))

(if (= 0 guide)
    (
         (run (cat "spatch -o" #old-guide " -pYakGuideD.pch " #old-guide))
    )
    (
        (if (= 2 guide)
            (
                 (run (cat "spatch -o" #old-guide " -pYakGuideF.pch " #old-guide))
            )
            (
                (if (= 3 guide)
                    (
                         (run (cat "spatch -o" #old-guide " -pYakGuideI.pch" #old-guide))
                    )
                    (
                         (run (cat "spatch -o" #old-guide " -pYakGuideE.pch " #old-guide))
                    )
                )
            )
        )
    )
)


(if (exists "LOCALE:")
      (
        (user 2)
        (set lang (askoptions (prompt #patch-catalog)
                              (help #locale-help)
                              (choices
                                         "Nederlands"
                              )
                     )
             )
        (set n 0)
        (while (set language (select n
                                        "nederlands"
                                        ""))
          (
            (if (IN lang n)
              (
                (if (<> 1 n)
                  (
                    (run
                        (cat
                           "spatch -oLOCALE:Catalogs/" language "/yak.catalog "
                           "-p" language ".pch "
                           "LOCALE:Catalogs/" language "/yak.catalog "
                        )
                    )
                  )
                )
              )
            )
            (set n (+ n 1))
          )
        ) ; end while
      ) ;end then
    )