home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / changeicon-1.0.lha / ChangeIcon / Install / Install.Script < prev   
Encoding:
Text File  |  1994-03-12  |  9.4 KB  |  285 lines
  1. ; $VER: InstallChangeIcon 1.0 (27-Feb-94)
  2.  
  3. ;-- Language specific string definitions --------------------------------------
  4.  
  5. ; DEUTSCH -----------------------------
  6. (procedure deutsch (
  7.     (set MSG_DESTINATION "Wohin soll ChangeIcon installiert werden?\n(Ein neuer Ordner mit dem Namen \"ChangeIcon\" wird erzeugt)")
  8.     (set MSG_COPYING "Kopiere %s nach %s.")
  9.     (set MSG_WHATCATS "Wähle die Sprache(n), für die Sprach-Dateien installiert werden sollen:")
  10.     (set MSG_WHATDOC "Anleitung für folgende Sprache installieren:")
  11.     (set MSG_NONE "keine")
  12.     (set MSG_WHEREDOC "Wohin soll die Anleitung?")
  13.     (set MSG_OVERWRITE "%s existiert bereits. Überschreiben?")
  14.     (set MSG_YES "Ja")
  15.     (set MSG_NO "Nein")
  16.     (set MSG_WHATISDOC "Anleitung für WhatIs installieren?")
  17.     (set MSG_ASKICONS "Beispielpiktogramme installieren?")
  18.     (set MSG_WHEREICONS "Wohin sollen die Piktogramme?")
  19.     (set catalogs %01)
  20.     (set docfile 0)
  21. ))
  22.  
  23. ; ENGLISH -----------------------------
  24. (procedure english (
  25.     (set MSG_DESTINATION "Where would you like ChangeIcon to be installed?\n(A new drawer named \"ChangeIcon\" will be created)")
  26.     (set MSG_COPYING "Copying %s to %s.")
  27.     (set MSG_WHATCATS "Select language(s) you want to have Catalog-files for:")
  28.     (set MSG_WHATDOC "Install the documentation for this language:")
  29.     (set MSG_NONE "none")
  30.     (set MSG_WHEREDOC "Where shall I put the documentation?")
  31.     (set MSG_OVERWRITE "%s already exists. Overwrite?")
  32.     (set MSG_YES "Yes")
  33.     (set MSG_NO "No")
  34.     (set MSG_WHATISDOC "Install WhatIs documentation?")
  35.     (set MSG_ASKICONS "Install sample icons?")
  36.     (set MSG_WHEREICONS "Where shall I put the icons?")
  37.     (set catalogs %00)
  38.     (set docfile 1)
  39. ))
  40.  
  41. ; FRANÇAIS ----------------------------
  42. (procedure français (
  43.     (set MSG_DESTINATION "Où désirez-vous installer ChangeIcon?\n(Un nouveau tiroir nommer \"ChangeIcon\" y sera crée)")
  44.     (set MSG_COPYING "Copie de %s vers %s.")
  45.     (set MSG_WHATCATS "Selectionnez le(s) langage(s) pour lesquels vous désirez des fichiers catalogues:")
  46.     (set MSG_WHATDOC "Installation de la documentation pour quel(s) langage(s):")
  47.     (set MSG_NONE "aucun")
  48.     (set MSG_WHEREDOC "Où dois-je mettre la documentation?")
  49.     (set MSG_OVERWRITE "%s existe déjà.\nDois-je l'écraser?")
  50.     (set MSG_YES "Oui")
  51.     (set MSG_NO "Non")
  52.     (set MSG_WHATISDOC "Installation de la documentation pour WhatIs?")
  53.     (set MSG_ASKICONS "Installation des icônes fournies?")
  54.     (set MSG_WHEREICONS "Où dois-je mettre les icônes?")
  55.     (set catalogs %10)
  56.     (set docfile 2)
  57. ))
  58.  
  59. ;------------------------------------------------------------------------------
  60.  
  61. (if (= @language "deutsch") (deutsch))
  62. (if (= @language "english") (english))
  63. (if (= @language "français") (français))
  64. (if (= @user-level 0) (set catalogs %11))
  65.  
  66. (set @default-dest
  67.     (tackon
  68.         (askdir
  69.             (prompt MSG_DESTINATION)
  70.             (help @askdir-help)
  71.             (default @default-dest)
  72.             (newpath))
  73.         "ChangeIcon"
  74.     )
  75. )
  76. (set docdir2 @default-dest)
  77. (set icondir (tackon @default-dest "Icons"))
  78.  
  79. (copyfiles  (prompt (MSG_COPYING "ChangeIcon" @default-dest))
  80.             (help @copyfiles-help)
  81.             (source "/ChangeIcon")
  82.             (dest @default-dest)
  83.             (infos)
  84.             (confirm))
  85.  
  86. (if (exists "LOCALE:" (noreq))
  87.     (
  88.         (set catalogs
  89.             (askoptions (prompt MSG_WHATCATS)
  90.                         (help @askoptions-help)
  91.                         (choices "deutsch" "français")
  92.                         (default catalogs))
  93.         )
  94.         (if (BITAND catalogs %01)
  95.             (copyfiles  (help @copyfiles-help)
  96.                         (source "/Catalogs/deutsch/changeicon.catalog")
  97.                         (dest "LOCALE:Catalogs/deutsch")
  98.                         (optional "nofail"))
  99.         )
  100.         (if (BITAND catalogs %10)
  101.             (copyfiles  (help @copyfiles-help)
  102.                         (source "/Catalogs/français/changeicon.catalog")
  103.                         (dest "LOCALE:Catalogs/français")
  104.                         (optional "nofail"))
  105.         )
  106.     )
  107. )
  108.  
  109. (set docfile
  110.     (askchoice  (prompt MSG_WHATDOC)
  111.                 (help @askchoice-help)
  112.                 (choices "deutsch" "english" "français" MSG_NONE)
  113.                 (default docfile))
  114. )
  115. (set docdir
  116.     (if (AND (= @user-level 2) (<> docfile 2))
  117.         (askdir (prompt MSG_WHEREDOC)
  118.                 (help @askdir-help)
  119.                 (default @default-dest))
  120.         (@default-dest)
  121.     )
  122. )
  123. (select docfile
  124.     (copyfiles  (help @copyfiles-help)
  125.                 (source "/Docs/Deutsch")
  126.                 (dest docdir)
  127.                 (newname "ChangeIcon.guide")
  128.                 (infos)
  129.                 (optional "nofail")
  130.     )
  131.     (copyfiles  (help @copyfiles-help)
  132.                 (source "/Docs/English")
  133.                 (dest docdir)
  134.                 (newname "ChangeIcon.guide")
  135.                 (infos)
  136.                 (optional "nofail")
  137.     )
  138.     (copyfiles  (help @copyfiles-help)
  139.                 (source "/Docs/Français")
  140.                 (dest docdir)
  141.                 (newname "ChangeIcon.guide")
  142.                 (infos)
  143.                 (optional "nofail")
  144.     )
  145.     ("")  ; "none"
  146. )
  147.  
  148. ; sorry, I cannot use CopyLib coz da whatis.library contains invalid
  149. ; version stuff...
  150. (if (exists "/Libs/whatis.library" (noreq))
  151.     (
  152.         (if (exists "LIBS:whatis.library" (noreq))
  153.             (
  154.                 (if (askbool    (prompt (MSG_OVERWRITE "LIBS:whatis.library"))
  155.                                 (help @askbool-help)
  156.                                 (default 0)
  157.                                 (choices MSG_YES MSG_NO))
  158.                     (
  159.                         (copyfiles  (help @copyfiles-help)
  160.                                     (source "/Libs/whatis.library")
  161.                                     (dest "LIBS:")
  162.                                     (optional "nofail"))
  163.                     )
  164.                 )
  165.             )(
  166.                 (copyfiles  (prompt (MSG_COPYING "\"whatis.library\"" "LIBS:"))
  167.                             (help @copyfiles-help)
  168.                             (source "/Libs/whatis.library")
  169.                             (dest "LIBS:")
  170.                             (confirm))
  171.             )
  172.         )
  173.     )
  174. )
  175.  
  176. (if (exists "/WhatIsLibrary.doc" (noreq))
  177.     (
  178.         (if (askbool    (prompt MSG_WHATISDOC)
  179.                         (help @askbool-help)
  180.                         (default 1)
  181.                         (choices MSG_YES MSG_NO))
  182.             (
  183.                 (set docdir2
  184.                     (if (= @user-level 2)
  185.                         (askdir (prompt MSG_WHEREDOC)
  186.                                 (help @askdir-help)
  187.                                 (default docdir2))
  188.                         (docdir2)
  189.                     )
  190.                 )
  191.                 (copyfiles  (help @copyfiles-help)
  192.                             (source "/WhatIsLibrary.doc")
  193.                             (dest docdir2)
  194.                             (infos))
  195.             )
  196.         )
  197.     )
  198. )
  199.  
  200. (if (exists "S:FileTypes" (noreq))
  201.     (
  202.         (if (askbool    (prompt (MSG_OVERWRITE "S:FileTypes"))
  203.                         (help @askbool-help)
  204.                         (default 0)
  205.                         (choices MSG_YES MSG_NO))
  206.             (
  207.                 (copyfiles  (help @copyfiles-help)
  208.                             (source "/S/FileTypes")
  209.                             (dest "S:")
  210.                             (optional "nofail"))
  211.             )
  212.         )
  213.     )(
  214.         (copyfiles  (prompt (MSG_COPYING "\"FileTypes\"" "S:"))
  215.                     (help @copyfiles-help)
  216.                     (source "/S/FileTypes")
  217.                     (dest "S:")
  218.                     (confirm))
  219.     )
  220. )
  221.  
  222. (if (exists "/Icons" (noreq))
  223.     (
  224.         (if (askbool    (prompt MSG_ASKICONS)
  225.                         (help @askbool-help)
  226.                         (default 1)
  227.                         (choices MSG_YES MSG_NO))
  228.             (
  229.                 (set icondir
  230.                     (if (= @user-level 2)
  231.                         (askdir (prompt MSG_WHEREICONS)
  232.                                 (help @askdir-help)
  233.                                 (default icondir)
  234.                                 (newpath))
  235.                         (icondir)
  236.                     )
  237.                 )
  238.                 (copyfiles  (help @copyfiles-help)
  239.                             (source "/Icons")
  240.                             (dest icondir)
  241.                             (pattern "#?")
  242.                             (infos)
  243.                             (optional "nofail"))
  244.             )
  245.         )
  246.     )
  247. )
  248.  
  249. (if (exists (tackon docdir2 "WhatIsLibrary.doc.info") (noreq))
  250.     (
  251.         (tooltype   (dest (tackon docdir2 "WhatIsLibrary.doc"))
  252.                     (setdefaulttool "MultiView")
  253.                     (noposition))
  254.     )
  255. )
  256. (if (exists (tackon docdir "ChangeIcon.guide.info") (noreq))
  257.     (
  258.         (tooltype   (dest (tackon docdir "ChangeIcon.guide"))
  259.                     (noposition))
  260.     )
  261. )
  262. (set icondir (expandpath icondir))
  263. (if (exists (tackon @default-dest "ChangeIcon.info") (noreq))
  264.     (
  265.         (tooltype   (dest (tackon @default-dest "ChangeIcon"))
  266.                     (settooltype "ICONDIR" icondir)
  267.                     (noposition))
  268.     )
  269. )
  270. (if (<> icondir "")
  271.     (
  272.         (if (= (substr icondir (- (strlen icondir) 1)) ":")
  273.                 (set icondir (cat icondir "disk"))
  274.         )
  275.         (if (exists (cat icondir ".info") (noreq))
  276.             (
  277.                 (tooltype   (dest icondir)
  278.                             (noposition))
  279.             )
  280.         )
  281.     )
  282. )
  283.  
  284. (exit)
  285.