home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / catedit-1.1b.lha / CatEdit / Install < prev    next >
Encoding:
Text File  |  1994-04-01  |  3.1 KB  |  151 lines
  1. ; Installer installation script for CatEdit
  2. ;$VER:Install 38.5 (25.2.94)
  3.  
  4. (set @default-dest "")
  5.  
  6. (set catedit "CatEdit")
  7. (set catalogdir "Catalogs/")
  8. (set reqtoolslib "libs/reqtools.library")
  9.  
  10. ;================================================================================
  11. ; English strings
  12.  
  13. (set #bad-kick
  14.     (cat "You must have Kickstart 2.04 or higher installed to use CatEdit!")
  15. )
  16.  
  17. (set #welcome
  18.     (cat "\nCatEdit installation\n\n\n"
  19.              "This script installs CatEdit 1.1b\n"
  20.              "on your Amiga.\n\n\n\n"
  21.              "CatEdit © 1993-1994 Rafael D'Halleweyn\n"
  22.              "All rights reserved\n\n"
  23.              "(reqtools.library © Nico François)")
  24. )
  25.  
  26. (set #where-catedit
  27.     (cat "In wich drawer should CatEdit be installed?")
  28. )
  29.  
  30. (set #which-language
  31.     (cat "\nWhich languages should be installed?")
  32. )
  33. (set #which-language-help
  34.     (cat "\nThe Amiga can be operated in many different languages. "
  35.          "If you want CatEdit to use the same language as the Amiga "
  36.          "Workbench a catalog file must be copied to your harddisk "
  37.          " for each language supported.\n\n"
  38.          "To reduce the amount of space consumed by the language "
  39.          "files, you can select to have only the files of specific "
  40.          "languages copied.\n\n"
  41.          "Simply check the boxes of the languages you wich to have "
  42.          "available on your system.\n\n")
  43. )
  44.  
  45. (set #copying-reqtools
  46.     (cat "Copying reqtools.library to LIBS:...")
  47. )
  48. (set #copying-reqtools-help
  49.     (cat "CatEdit requires the reqtools.library in your LIBS: drawer\n\n")
  50. )
  51.  
  52. ;================================================================================
  53. ; make sure we are running under a 2.04 ROM
  54.  
  55. (if (< (/ (getversion) 65536) 37)
  56.     (
  57.         (abort #bad-kick)
  58.     )
  59. )
  60.  
  61. ;================================================================================
  62. ;
  63.  
  64. (complete 0)
  65.  
  66. (message #welcome)
  67.  
  68. (welcome)
  69. (set old_level @user-level)
  70.  
  71. (user 2)
  72. (set cateditdir
  73.     (askdir
  74.         (prompt #where-catedit)
  75.         (help @askdir-help)
  76.         (default "SYS:Tools")
  77.     )
  78. )
  79.  
  80. (user old_level)
  81. (copyfiles
  82.     (prompt cateditdir)
  83.     (source catedit)
  84.     (dest cateditdir)
  85.     (infos)
  86.     (noposition)
  87. )
  88.  
  89. (complete 70)
  90.  
  91. (if (exists "SYS:Locale")
  92.     (
  93.         (if (exists "LOCALE:")
  94.             (
  95.                 (user 2)
  96.                 (set lang
  97.                     (askoptions
  98.                         (prompt #which-language)
  99.                         (help #which-language-help @askoptions-help)
  100.                         (choices
  101.                             "Dansk"
  102.                             "Deutsch"
  103.                             "English"
  104.                             "Español"
  105.                             "Nederlands"
  106.                             "Svenska")
  107.                         (default default_lang)
  108.                     )
  109.                 )
  110.                 (user old_level)
  111.                 (set n 0)
  112.                 (while (set language
  113.                         (select n
  114.                             "dansk"
  115.                             "deutsch"
  116.                             "english"
  117.                             "español"
  118.                             "nederlands"
  119.                             "svenska"
  120.                             "")
  121.                         )
  122.                     (
  123.                         (if (IN lang n)
  124.                             (
  125.                                 (if (<> "english" language)
  126.                                     (
  127.                                         (makedir (cat "LOCALE:Catalogs/" language))
  128.                                         (copyfiles
  129.                                             (source (cat (cat catalogdir language) "/catedit.catalog"))
  130.                                             (dest (cat "LOCALE:Catalogs/" language)))
  131.                                     ))
  132.                             ))
  133.                         (set n (+ n 1))
  134.                     ))
  135.             ))
  136.     ))
  137.  
  138. (complete 90)
  139.  
  140. (user old_level)
  141. (copylib
  142.   (prompt "\n" #copying-reqtools)
  143.   (help #copying-reqtools-help @copylib-help)
  144.   (source reqtoolslib)
  145.   (dest "LIBS:")
  146.   (confirm)
  147. )
  148.  
  149. (complete 100)
  150. (exit)
  151.