home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / dosprefs-2.2.lha / DOSPrefs / Install-DOSPrefs < prev    next >
Text File  |  1994-07-13  |  3KB  |  157 lines
  1. ;
  2. ;    $VER: Install-DOSPrefs 2.2 (13.07.94)
  3. ;
  4. ;    Install script for DOSPrefs
  5. ;    © Copyright 1993-94 by Norbert Püschel
  6. ;    All Rights Reserved
  7. ;    
  8.  
  9. ; strings
  10.  
  11. (set intro
  12. (cat "\n Welcome to the installation of DOSPrefs !\n\n"
  13.      "© Copyright 1993-94 by Norbert Püschel\n"
  14.      "All Rights Reserved"
  15. ))
  16.  
  17. (set bad-kick
  18. (cat "\n\n\nYou must be using at least Kickstart 2.04 (Version 37.175) !"
  19. ))
  20.  
  21. (set copying-DOSPrefs
  22. (cat "Copying the DOSPrefs program ..."
  23. ))
  24.  
  25. (set copying-catalogs
  26. (cat "Copying the catalog files for DOSPrefs ..."
  27. ))
  28.  
  29. (set which-languages
  30. (cat "\nWhich languages should be installed ?"
  31. ))
  32.  
  33. (set which-languages-help
  34. (cat "The Amiga, and the DOSPrefs commodity, normally use the "
  35.      "english language. As you have Workbench(tm) 2.1 or better, "
  36.      "you can make the Amiga use other languages.\n"
  37.      "If you want DOSPrefs to use the same languages as the Amiga Workbench "
  38.      "then a catalog file must be copied to your system disk for each "
  39.      "language supported.\n"
  40.      "Simply check the boxes of the languages you wish to have available "
  41.      "on your system.\n\n\n\n\n"
  42.      @askoptions-help
  43. ))
  44.  
  45. (set copying-help
  46. (cat "Copying online help for DOSPrefs ..."
  47. ))
  48.  
  49. (set install-help
  50. (cat "\n\n\n\n\n\nDo you want to install the online help ?"
  51. ))
  52.  
  53. (set install-help-help
  54. (cat "You have the AmigaGuide(tm) online help system installed.\n" 
  55.      "DOSPrefs supports it, but it needs help files to do so.\n"
  56. ))
  57.  
  58. ; Kickstart version test
  59.  
  60. (if (< (/ (getversion) 65536) 37)
  61. (
  62.  (abort bad-kick)
  63. ))
  64.  
  65. ; here we go
  66.  
  67. (welcome intro)
  68.  
  69. ; install Program
  70.  
  71. (set @default-dest "SYS:WBStartup")
  72.  
  73. (copyfiles
  74.   (prompt copying-DOSPrefs)
  75.   (help @copylib-help)
  76.   (source "DOSPrefs")
  77.   (dest "SYS:WBStartup")
  78.   (infos)
  79.   (optional force askuser)
  80. )
  81.  
  82. ; install catalogs
  83.  
  84. (if (exists "Locale:catalogs")
  85. (
  86.   (set languages 
  87.     (askoptions 
  88.       (prompt which-languages)
  89.       (help   which-languages-help)
  90.       (choices
  91.         "dansk"
  92.         "deutsch"
  93.         "english"
  94.         "français"
  95.         "italiano"
  96.       )
  97.     )
  98.   )
  99.    
  100.   (set n 1)
  101.   (while (set language (select n
  102.            "english"
  103.            "dansk"
  104.            "deutsch"
  105.            "français"
  106.            "italiano"
  107.            ""
  108.          ))
  109.   (
  110.     (if (IN languages n)
  111.     (
  112.       (copyfiles
  113.         (prompt copying-catalogs)
  114.         (help @copylib-help)
  115.         (source (cat "catalogs/" language "/DOSPrefs.catalog"))
  116.         (dest (cat "Locale:catalogs/" language))
  117.         (optional force askuser)
  118.       )
  119.     ))
  120.     (set n (+ n 1))
  121.   ))
  122. )
  123. (
  124.   (set languages 0)
  125. ))
  126.  
  127. (if (AND (exists "LIBS:amigaguide.library") (exists "HELP:"))
  128. (
  129.   (if(askbool
  130.        (prompt install-help)
  131.        (help install-help-help)
  132.        (default 1)
  133.      )
  134.   (
  135.     (set n 0)
  136.     (while (set language (select n
  137.              "english"
  138.              "deutsch"
  139.              "italiano"
  140.              ""
  141.            ))
  142.     (
  143.       (if (IN languages n)
  144.       (
  145.         (copyfiles
  146.           (prompt copying-help)
  147.           (help @copylib-help)
  148.           (source (cat "help/" language "/DOSPrefs.guide"))
  149.           (dest (cat "HELP:" language))
  150.           (optional force askuser)
  151.         )
  152.       ))
  153.       (set n (+ n 1))
  154.     ))
  155.   ))
  156. ))
  157.