home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 10 / Fresh_Fish_10_2352.bin / fishdisks / d1076.lha / Programs / Man / Install < prev    next >
Text File  |  1995-03-29  |  4KB  |  144 lines
  1. ;  *** Man installation scipt ***
  2.  
  3. (set #install-msg
  4. (cat "\n\nMan installation script.\n"
  5.      "This script installs the MAN commodity on your Amiga.\n\n"
  6.      "Read the documentation for\n"
  7.      "more information on the distribution\n"
  8.      "and commercial usage of Man.\n\n"
  9.      "Man © 1993-1995 Markus Hillenbrand\n"
  10.      "All rights reserved."
  11. ))
  12.  
  13. (set #bad-kick         "You must be using Kickstart 2.04 to install using this script!")
  14. (set #copying-reqtools "Copying reqtools.library to Libs:...")
  15.  
  16. (message #install-msg)
  17. (welcome "Welcome to the Man installation!")
  18.  
  19. (if (< (/ (getversion) 65536) 37)
  20. (
  21.     (abort #bad-kick)
  22. ))    
  23.  
  24. (if (exists "S:Man.cfg")
  25. (
  26.     (delete "S:Man.cfg")
  27. ))
  28.  
  29. (set reqtoolslib "libs20/reqtools.library")
  30. (set catalogdir  "catalogs/")
  31.  
  32. (copylib
  33.         (prompt "\n" #copying-reqtools)
  34.         (help @copylib-help)
  35.         (source reqtoolslib)
  36.         (dest "Libs:")
  37.         (confirm)
  38. ) 
  39.  
  40. (if (exists "SYS:WBStartUp/Man") (copylib   (prompt "\nInstalling Man-Commodity\n")
  41.                                   (help @copylib-help)
  42.                          (source "Man")
  43.                              (dest "SYS:WBStartUp")
  44.                              (confirm))
  45.                  (copyfiles (prompt "\nInstalling Man-Commodity\n")
  46.                                             (help @copyfile-help)
  47.                                             (source "MAN")
  48.                                             (dest "SYS:WBStartUp")
  49.                                             (infos)
  50.                                             (noposition)
  51.                                             (confirm))
  52. )
  53.  
  54. (set #which-language "\nWhich languages should be installed?\n(English is default.)") 
  55. (set old_level @user-level)
  56. (set default_lang 1)
  57.  
  58. (if (exists "SYS:Locale")
  59. (
  60.     (if (exists "LOCALE:")
  61.         (
  62.         (user 1)
  63.         (set lang (askoptions (prompt #which-language)
  64.                               (help   #which-language-help)
  65.                               (choices    "Deutsch"
  66.                                           "Svenska")
  67.                               (default default_lang)
  68.                   )
  69.         )
  70.         (user old_level)
  71.         (set n 0)
  72.         (while (set language (select n "deutsch"
  73.                                        "svenska"
  74.                                        ""))
  75.            (
  76.            (if (IN lang n)
  77.                (
  78.                (if (<> 2 n)
  79.                    (
  80.                    (makedir (cat "LOCALE:Catalogs/" language))
  81.                    (copyfiles (source (cat catalogdir language))
  82.                               (dest (cat "LOCALE:Catalogs/" language))
  83.                               (all)
  84.                    )
  85.                ))
  86.               ))
  87.            (set n (+ n 1))
  88.         ))
  89.      ))
  90. ))
  91.  
  92. (set #which-manpages "\nWhich man pages should be installed?") 
  93. (set #which-manhelp  "Specify the useful man pages")
  94. (set old_level @user-level)
  95. (set manpagedir "Pages/")
  96.  
  97. (
  98.    ;get destination dir for ManPages
  99.    (set mydest
  100.         (askdir
  101.                (prompt "Select the directory where you want to put the man pages:")
  102.                (help   "The directory where you store the man pages should be on a "
  103.                        "hard drive. A directory will NOT be created!!\n\n"
  104.                )
  105.                (default "Work:")
  106.                (disk)
  107.         )
  108.    )
  109.  
  110.    (user 1)
  111.    (set lang (askoptions (prompt #which-manpages)
  112.                          (help          #which-manhelp)
  113.                          (choices  "Man"
  114.                                    "Dir"
  115.                                    "DT2IFF"
  116.                                    "List"
  117.                                    "Which"
  118.                                    "Why")
  119.              )
  120.         )
  121.         (user old_level)
  122.         (set n 0)
  123.         (while (set manpage (select n "Man.man"
  124.                                       "Dir.man"
  125.                                       "DT2IFF.man"
  126.                                       "List.man"
  127.                                       "Which.man"
  128.                                       "Why.man"
  129.                                       ""))
  130.         (
  131.         (if (IN lang n)
  132.             (
  133.             (if (<> 200 n)
  134.                 (
  135.                 (copyfiles (source (cat manpagedir manpage))
  136.                            (dest mydest)
  137.                            (all)
  138.                            )
  139.                 ))
  140.             ))
  141.         (set n (+ n 1))
  142.     ))
  143. )
  144.