home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 25 / amigaformatcd25.iso / websites / f1_gp / ftp / f1gp-ed_locale.lha / F1GP-Ed_Catalogs / Install < prev    next >
Text File  |  1997-10-29  |  2KB  |  121 lines
  1. ; F1GP-Ed Catalog Installer script
  2. ; $VER: Install_F1GP-Ed_Catalogs 2.5 (29.10.97)
  3. ; written by Oliver Roberts
  4.  
  5. (set #OSVersion (/ (getversion) 65536))
  6.  
  7. (procedure P_install-locale
  8.     (copylib
  9.         (source (tackon (tackon "Catalogs" #locale) "F1GP-Ed.catalog"))
  10.         (dest (tackon @default-dest #locale))
  11.     )
  12. )
  13.  
  14. (welcome "")
  15.  
  16. (complete 0)
  17.  
  18. (set #which-catalogs
  19.     (askoptions
  20.         (prompt "The following catalogs are available for use with Workbench 2.1 (or higher) Locale - which ones would you like to install?")
  21.         (help @askoptions-help)
  22.         (choices "Deutsch (german)" "ÃeÓtina (czech)" "Nederlands (dutch)"
  23.         "Suomi (finnish)" "Italiano (italian)" "Svenska (swedish)"
  24.         "Français (french)" "Dansk (danish)" "Norsk (norwegian)" "Greek" "Polski (polish)")
  25.         (default 0)
  26.     )
  27. )
  28.  
  29. (set #locale-system 0)
  30. (set #locale-opts
  31.     (askchoice
  32.         (prompt "Where would you like to install the catalogs?")
  33.         (help @askchoice-help)
  34.         (choices "Same drawer as F1GP-Ed"
  35.              "System LOCALE: drawer")
  36.     )
  37. )
  38. (if (= #locale-opts 1)
  39.     (set #locale-system 1)
  40.     (
  41.         (set #destdir
  42.             (askdir
  43.                 (prompt "Select the drawer in which F1GP-Ed has been installed")
  44.                 (help @askdir-help)
  45.                 (default @default-dest)
  46.             )
  47.         )
  48.         (if (= 2 (exists (tackon #destdir "F1GP-Ed")))
  49.             (set #destdir (tackon #destdir "F1GP-Ed"))
  50.         )
  51.     )        
  52. )
  53.  
  54. (if #locale-system
  55.     (set @default-dest "LOCALE:Catalogs")
  56.     (set @default-dest (tackon #destdir "Catalogs"))
  57. )
  58.  
  59. (if (NOT (exists @default-dest))
  60.     (makedir @default-dest (infos))
  61. )
  62.  
  63. (set #locale "deutsch")
  64. (if (IN #which-catalogs 0)
  65.     (P_install-locale)
  66. )
  67.  
  68. (set #locale "ÃeÓtina")
  69. (if (IN #which-catalogs 1)
  70.     (P_install-locale)
  71. )
  72.  
  73. (set #locale "nederlands")
  74. (if (IN #which-catalogs 2)
  75.     (P_install-locale)
  76. )
  77.  
  78. (set #locale "suomi")
  79. (if (IN #which-catalogs 3)
  80.     (P_install-locale)
  81. )
  82.  
  83. (set #locale "italiano")
  84. (if (IN #which-catalogs 4)
  85.     (P_install-locale)
  86. )
  87.  
  88. (set #locale "svenska")
  89. (if (IN #which-catalogs 5)
  90.     (P_install-locale)
  91. )
  92.  
  93. (set #locale "français")
  94. (if (IN #which-catalogs 6)
  95.     (P_install-locale)
  96. )
  97.  
  98. (set #locale "dansk")
  99. (if (IN #which-catalogs 7)
  100.     (P_install-locale)
  101. )
  102.  
  103. (set #locale "norsk")
  104. (if (IN #which-catalogs 8)
  105.     (P_install-locale)
  106. )
  107.  
  108. (set #locale "greek")
  109. (if (IN #which-catalogs 9)
  110.     (P_install-locale)
  111. )
  112.  
  113. (set #locale "polski")
  114. (if (IN #which-catalogs 10)
  115.     (P_install-locale)
  116. )
  117.  
  118. (complete 100)
  119.  
  120. (exit)
  121.