home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 115 / af115sub.adf / yahzee.lzx / yahzee / install < prev    next >
Text File  |  1984-10-11  |  5KB  |  142 lines
  1. ;;; Installation script for yahzee
  2. ;;;
  3. ;;; Copyright (C) 1994-1998 Håkan L. Younes (lorens@hem.passagen.se)
  4.  
  5. ;;; Strings
  6.  
  7. (set #how-install
  8.      (cat "Do you want to install the whole program or just update the "
  9.           "language catalogs?"))
  10.  
  11. (set #how-install-help
  12.      (cat "Choose \"Install whole program\" if you are installing from "
  13.           "scratch or if you are updating an old version.\n"
  14.           "\nChoose \"Update languages\" if you want to install new "
  15.           "language catalogs."))
  16.  
  17. (set #how-install-1 "Install whole program")
  18. (set #how-install-2 "Update languages")
  19.  
  20. (set #where-install
  21.      "Choose location where you want to install Yahzee.")
  22.  
  23. (set #which-icons
  24.      "Which icons do you want to install with Yahzee?")
  25.  
  26. (set #which-icons-help
  27.      (cat "Choose \"MagicWB icons\" if you have MagicWB installed, "
  28.           "otherwise choose \"Standard icons\"."))
  29.  
  30. (set #which-icons-2 "MagicWB icons")
  31. (set #which-icons-1 "Standard icons")
  32.  
  33. (set #where-languages
  34.      "Where do you want to install the language catalogs?")
  35.  
  36. (set #where-languages-help
  37.      (cat "This lets you choose if you want the language catalogs to be "
  38.           "copied to the same location as the rest of the program, or if "
  39.           "you want to have them in the global Catalog dir."))
  40.  
  41. (set #which-languages
  42.      "Which languages do you want Yahzee to support?")
  43.  
  44. (set #which-languages-help
  45.      (cat "Check all languages you want Yahzee to support.\n"
  46.           "\nIf a language is already installed and you don't check it, "
  47.           "it will be removed."))
  48.  
  49. ;;; Procedures
  50.  
  51. (procedure install-program
  52.   (set @default-dest prog-dest)
  53.   (copylib (source (tackon sourcedir "Yahzee"))
  54.            (dest prog-dest))
  55.   (copylib (source (tackon sourcedir "Yahzee.guide"))
  56.            (dest prog-dest)))
  57.  
  58. (procedure install-icons
  59.   (set which-icons (askchoice (prompt #which-icons)
  60.                               (help #which-icons-help)
  61.                               (choices #which-icons-1 #which-icons-2)))
  62.   (if (= which-icons 1)
  63.       (set icon-srcdir (tackon icon-srcdir "misc")))
  64.   (copyfiles (source icon-srcdir)
  65.              (dest prog-dest)
  66.              (choices "yahzee.info" "yahzee.guide.info"))
  67.   (tooltype (dest (tackon prog-dest "yahzee"))
  68.             (noposition))
  69.   (tooltype (dest (tackon prog-dest "yahzee.guide"))
  70.             (noposition)))
  71.  
  72. (procedure install-locales
  73.   (set where-languages (askchoice (prompt #where-languages)
  74.                                   (help #where-languages-help)
  75.                                   (choices locale-dest
  76.                                            locale-sysdest)))
  77.   (if (= where-languages 1)
  78.       (set locale-dest locale-sysdest))
  79.   (set which-languages (askoptions (prompt #which-languages)
  80.                                    (help #which-languages-help)
  81.                                    (choices "Dansk"
  82.                                             "Deutsch"
  83.                                             "Nederlands"
  84.                                             "Suomi"
  85.                                             "Svenska")))
  86.   (set locale "dansk")
  87.   (if (IN which-languages 0)
  88.       (install-locale)
  89.       (remove-locale))
  90.   (set locale "deutsch")
  91.   (if (IN which-languages 1)
  92.       (install-locale)
  93.       (remove-locale))
  94.   (set locale "nederlands")
  95.   (if (IN which-languages 2)
  96.       (install-locale)
  97.       (remove-locale))
  98.   (set locale "suomi")
  99.   (if (IN which-languages 3)
  100.       (install-locale)
  101.       (remove-locale))
  102.   (set locale "svenska")
  103.   (if (IN which-languages 4)
  104.       (install-locale)
  105.       (remove-locale)))
  106.  
  107. (procedure install-locale
  108.   (makedir locale-dest)
  109.   (makedir (tackon locale-dest locale))
  110.   (copylib (source (tackon (tackon locale-srcdir locale) "yahzee.catalog"))
  111.            (dest (tackon locale-dest locale))))
  112.  
  113. (procedure remove-locale
  114.   (delete (tackon (tackon locale-dest locale) "yahzee.catalog"))
  115.   (if (NOT (= locale-dest locale-sysdest))
  116.       ((delete (tackon locale-dest locale))
  117.        (delete locale-dest))))
  118.  
  119.  
  120. ;;; Main program
  121.  
  122. (set sourcedir (pathonly @icon))
  123. (set icon-srcdir sourcedir)
  124. (set locale-srcdir (tackon sourcedir "catalogs"))
  125. (set locale-sysdest "LOCALE:catalogs")
  126.  
  127. (set prog-dest (askdir (prompt #where-install)
  128.                        (help @askdir-help)
  129.                        (default @default-dest)))
  130.  
  131. (set how-install (askchoice (prompt #how-install)
  132.                             (help #how-install-help)
  133.                             (choices #how-install-1 #how-install-2)))
  134.  
  135. (if (= how-install 0)
  136.     ((install-program)
  137.      (install-icons))
  138.     (set @default-dest ""))
  139.  
  140. (set locale-dest (tackon prog-dest "catalogs"))
  141. (install-locales)
  142.