home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / CMDLST11.LHA / CommandList / Install < prev   
Encoding:
Text File  |  1994-11-02  |  1.6 KB  |  88 lines
  1. ; Installation script for CommandList
  2.  
  3. (if (< (/ (getversion) 65536) 37)
  4.   (
  5.     (abort "You must have Kickstart 2.04 or higher installed to use CommandList!")
  6.   )
  7. )
  8.  
  9. (complete 0)
  10.  
  11. (set destdir
  12.    (askdir
  13.       (prompt "Where do you want to install CommandList?")
  14.       (help "")
  15.       (default "SYS:WBStartup")
  16.    )
  17. )
  18.  
  19. (set @default-dest destdir)
  20.  
  21. (copyfiles
  22.    (source "CommandList")
  23.    (dest destdir)
  24. )
  25.  
  26. (complete 33)
  27.  
  28. (set iconname (tackon destdir "CommandList.info"))
  29. (set ex (exists iconname (noreq)))
  30. (debug iconname)
  31.  
  32. (if (= ex 0)
  33.    (copyfiles
  34.       (source "CommandList.info")
  35.       (dest destdir)
  36.    )
  37. )
  38.  
  39. (complete 66)
  40.  
  41. (if (exists "SYS:Locale")
  42.   (
  43.     (if (exists "LOCALE:")
  44.       (
  45.          (set lang
  46.           (askoptions
  47.             (prompt "Which languages do you want to install?")
  48.             (help "")
  49.             (choices
  50.               "Deutsch"
  51.               "English"
  52.               "Svenska")
  53.             (default 0)
  54.           )
  55.          )
  56.  
  57.         (set n 0)
  58.         (while (set language
  59.             (select n
  60.               "deutsch"
  61.               "english"
  62.               "svenska"
  63.               "")
  64.             )
  65.           (
  66.             (if (IN lang n)
  67.               (
  68.                 (if (<> "english" language)
  69.                   (
  70.                     (makedir (tackon "LOCALE:Catalogs" language))
  71.                     (copyfiles
  72.                       (source (tackon (tackon "Catalogs" language) "CommandList.catalog"))
  73.                       (dest (tackon "LOCALE:Catalogs/" language)))
  74.                   )
  75.                 )
  76.               )
  77.             )
  78.             (set n (+ n 1))
  79.           )
  80.         )
  81.       )
  82.     )
  83.   )
  84. )
  85.  
  86. (complete 100)
  87. (exit)
  88.