home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 9
/
FreshFishVol9-CD2.bin
/
bbs
/
util
/
changeicon-1.0.lha
/
ChangeIcon
/
Install
/
Install.Script
< prev
Wrap
Text File
|
1994-03-12
|
10KB
|
285 lines
; $VER: InstallChangeIcon 1.0 (27-Feb-94)
;-- Language specific string definitions --------------------------------------
; DEUTSCH -----------------------------
(procedure deutsch (
(set MSG_DESTINATION "Wohin soll ChangeIcon installiert werden?\n(Ein neuer Ordner mit dem Namen \"ChangeIcon\" wird erzeugt)")
(set MSG_COPYING "Kopiere %s nach %s.")
(set MSG_WHATCATS "Wähle die Sprache(n), für die Sprach-Dateien installiert werden sollen:")
(set MSG_WHATDOC "Anleitung für folgende Sprache installieren:")
(set MSG_NONE "keine")
(set MSG_WHEREDOC "Wohin soll die Anleitung?")
(set MSG_OVERWRITE "%s existiert bereits. Überschreiben?")
(set MSG_YES "Ja")
(set MSG_NO "Nein")
(set MSG_WHATISDOC "Anleitung für WhatIs installieren?")
(set MSG_ASKICONS "Beispielpiktogramme installieren?")
(set MSG_WHEREICONS "Wohin sollen die Piktogramme?")
(set catalogs %01)
(set docfile 0)
))
; ENGLISH -----------------------------
(procedure english (
(set MSG_DESTINATION "Where would you like ChangeIcon to be installed?\n(A new drawer named \"ChangeIcon\" will be created)")
(set MSG_COPYING "Copying %s to %s.")
(set MSG_WHATCATS "Select language(s) you want to have Catalog-files for:")
(set MSG_WHATDOC "Install the documentation for this language:")
(set MSG_NONE "none")
(set MSG_WHEREDOC "Where shall I put the documentation?")
(set MSG_OVERWRITE "%s already exists. Overwrite?")
(set MSG_YES "Yes")
(set MSG_NO "No")
(set MSG_WHATISDOC "Install WhatIs documentation?")
(set MSG_ASKICONS "Install sample icons?")
(set MSG_WHEREICONS "Where shall I put the icons?")
(set catalogs %00)
(set docfile 1)
))
; FRANÇAIS ----------------------------
(procedure français (
(set MSG_DESTINATION "Où désirez-vous installer ChangeIcon?\n(Un nouveau tiroir nommer \"ChangeIcon\" y sera crée)")
(set MSG_COPYING "Copie de %s vers %s.")
(set MSG_WHATCATS "Selectionnez le(s) langage(s) pour lesquels vous désirez des fichiers catalogues:")
(set MSG_WHATDOC "Installation de la documentation pour quel(s) langage(s):")
(set MSG_NONE "aucun")
(set MSG_WHEREDOC "Où dois-je mettre la documentation?")
(set MSG_OVERWRITE "%s existe déjà.\nDois-je l'écraser?")
(set MSG_YES "Oui")
(set MSG_NO "Non")
(set MSG_WHATISDOC "Installation de la documentation pour WhatIs?")
(set MSG_ASKICONS "Installation des icônes fournies?")
(set MSG_WHEREICONS "Où dois-je mettre les icônes?")
(set catalogs %10)
(set docfile 2)
))
;------------------------------------------------------------------------------
(if (= @language "deutsch") (deutsch))
(if (= @language "english") (english))
(if (= @language "français") (français))
(if (= @user-level 0) (set catalogs %11))
(set @default-dest
(tackon
(askdir
(prompt MSG_DESTINATION)
(help @askdir-help)
(default @default-dest)
(newpath))
"ChangeIcon"
)
)
(set docdir2 @default-dest)
(set icondir (tackon @default-dest "Icons"))
(copyfiles (prompt (MSG_COPYING "ChangeIcon" @default-dest))
(help @copyfiles-help)
(source "/ChangeIcon")
(dest @default-dest)
(infos)
(confirm))
(if (exists "LOCALE:" (noreq))
(
(set catalogs
(askoptions (prompt MSG_WHATCATS)
(help @askoptions-help)
(choices "deutsch" "français")
(default catalogs))
)
(if (BITAND catalogs %01)
(copyfiles (help @copyfiles-help)
(source "/Catalogs/deutsch/changeicon.catalog")
(dest "LOCALE:Catalogs/deutsch")
(optional "nofail"))
)
(if (BITAND catalogs %10)
(copyfiles (help @copyfiles-help)
(source "/Catalogs/français/changeicon.catalog")
(dest "LOCALE:Catalogs/français")
(optional "nofail"))
)
)
)
(set docfile
(askchoice (prompt MSG_WHATDOC)
(help @askchoice-help)
(choices "deutsch" "english" "français" MSG_NONE)
(default docfile))
)
(set docdir
(if (AND (= @user-level 2) (<> docfile 2))
(askdir (prompt MSG_WHEREDOC)
(help @askdir-help)
(default @default-dest))
(@default-dest)
)
)
(select docfile
(copyfiles (help @copyfiles-help)
(source "/Docs/Deutsch")
(dest docdir)
(newname "ChangeIcon.guide")
(infos)
(optional "nofail")
)
(copyfiles (help @copyfiles-help)
(source "/Docs/English")
(dest docdir)
(newname "ChangeIcon.guide")
(infos)
(optional "nofail")
)
(copyfiles (help @copyfiles-help)
(source "/Docs/Français")
(dest docdir)
(newname "ChangeIcon.guide")
(infos)
(optional "nofail")
)
("") ; "none"
)
; sorry, I cannot use CopyLib coz da whatis.library contains invalid
; version stuff...
(if (exists "/Libs/whatis.library" (noreq))
(
(if (exists "LIBS:whatis.library" (noreq))
(
(if (askbool (prompt (MSG_OVERWRITE "LIBS:whatis.library"))
(help @askbool-help)
(default 0)
(choices MSG_YES MSG_NO))
(
(copyfiles (help @copyfiles-help)
(source "/Libs/whatis.library")
(dest "LIBS:")
(optional "nofail"))
)
)
)(
(copyfiles (prompt (MSG_COPYING "\"whatis.library\"" "LIBS:"))
(help @copyfiles-help)
(source "/Libs/whatis.library")
(dest "LIBS:")
(confirm))
)
)
)
)
(if (exists "/WhatIsLibrary.doc" (noreq))
(
(if (askbool (prompt MSG_WHATISDOC)
(help @askbool-help)
(default 1)
(choices MSG_YES MSG_NO))
(
(set docdir2
(if (= @user-level 2)
(askdir (prompt MSG_WHEREDOC)
(help @askdir-help)
(default docdir2))
(docdir2)
)
)
(copyfiles (help @copyfiles-help)
(source "/WhatIsLibrary.doc")
(dest docdir2)
(infos))
)
)
)
)
(if (exists "S:FileTypes" (noreq))
(
(if (askbool (prompt (MSG_OVERWRITE "S:FileTypes"))
(help @askbool-help)
(default 0)
(choices MSG_YES MSG_NO))
(
(copyfiles (help @copyfiles-help)
(source "/S/FileTypes")
(dest "S:")
(optional "nofail"))
)
)
)(
(copyfiles (prompt (MSG_COPYING "\"FileTypes\"" "S:"))
(help @copyfiles-help)
(source "/S/FileTypes")
(dest "S:")
(confirm))
)
)
(if (exists "/Icons" (noreq))
(
(if (askbool (prompt MSG_ASKICONS)
(help @askbool-help)
(default 1)
(choices MSG_YES MSG_NO))
(
(set icondir
(if (= @user-level 2)
(askdir (prompt MSG_WHEREICONS)
(help @askdir-help)
(default icondir)