home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 58
/
af058sub.adf
/
yak56-57.lha
/
Yak_patch_1.56_1.57
/
Patch_Yak_1.56_to_1.57
< prev
next >
Wrap
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
)