home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / dosprefs-2.0.lha / DOSPrefs-2.0 / Install-DOSPrefs < prev    next >
Encoding:
Text File  |  1993-07-16  |  3.0 KB  |  150 lines
  1. ;
  2. ;    $VER: Install-DOSPrefs 1.0 (16.07.93)
  3. ;
  4. ;    Install script for DOSPrefs
  5. ;    © Copyright 1993 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 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.         "english"
  92.         "deutsch"
  93.       )
  94.     )
  95.   )
  96.    
  97.   (set n 1)
  98.   (while (set language (select n
  99.            "english"
  100.            "deutsch"
  101.            ""
  102.          ))
  103.   (
  104.     (if (IN languages n)
  105.     (
  106.       (copyfiles
  107.         (prompt copying-catalogs)
  108.         (help @copylib-help)
  109.         (source (cat "catalogs/" language "/DOSPrefs.catalog"))
  110.         (dest (cat "Locale:catalogs/" language))
  111.         (optional force askuser)
  112.       )
  113.     ))
  114.     (set n (+ n 1))
  115.   ))
  116. )
  117. (
  118.   (set languages 0)
  119. ))
  120.  
  121. (if (AND (exists "LIBS:amigaguide.library") (exists "HELP:"))
  122. (
  123.   (if(askbool
  124.        (prompt install-help)
  125.        (help install-help-help)
  126.        (default 1)
  127.      )
  128.   (
  129.     (set n 0)
  130.     (while (set language (select n
  131.              "english"
  132.              "deutsch"
  133.              ""
  134.            ))
  135.     (
  136.       (if (IN languages n)
  137.       (
  138.         (copyfiles
  139.           (prompt copying-help)
  140.           (help @copylib-help)
  141.           (source (cat "help/" language "/DOSPrefs.guide"))
  142.           (dest (cat "HELP:" language))
  143.           (optional force askuser)
  144.         )
  145.       ))
  146.       (set n (+ n 1))
  147.     ))
  148.   ))
  149. ))
  150.