home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 124 / af124a.adf / af124a.lzx / SwazInfo / Install < prev    next >
Text File  |  1999-03-29  |  5KB  |  237 lines
  1. (complete 0)
  2. (set @default-dest "SYS:WBStartup")
  3.  
  4. ;********************************************************************
  5.  
  6. (set #warn-kickstart-text
  7. (cat    "\nBAD VERSION OF KICKSTART\n\n"
  8.     "SwazInfo requires KickStart 2.0 (V37) or higher. It will not work on earlier versions.\n"
  9.     "You currently are running KickStart V%ld.\n\n"
  10.     "Continue with installation?"
  11. ))
  12.  
  13. ;********************************************************************
  14.  
  15. (set #path-text
  16. (cat "\nSelect directory to install to"
  17. ))
  18.  
  19. (set #path-help
  20. (cat "\nThis section lets you choose where to install SwazInfo "
  21.      "on your hard disk. This should normally go in the Workbench "
  22.      "Startup drawer - SYS:WBStartup.\n\n"
  23.      @askdir-help
  24. ))
  25.  
  26. ;********************************************************************
  27.  
  28. (set #lang-install-text
  29. (cat "Installing locale catalogs"
  30. ))
  31.  
  32. (set #lang-which-text
  33. (cat "Which languages should be installed?"
  34. ))
  35.  
  36. (set #lang-which-help
  37. (cat "Check the boxes of the languages you wish to have available with BlankerServer."
  38.      "\n\n" @askoptions-help
  39. ))
  40.  
  41. ;********************************************************************
  42.  
  43. (set #libs-working-text
  44. (cat "Installing required libraries"
  45. ))
  46.  
  47. (set #libs-mxlib-text
  48. (cat "Installing matrix.library"
  49. ))
  50.  
  51. (set #libs-mxlib-help
  52. (cat "Matrix.library is written by David Swasbrook. It contains the GUI and file handling routines, plus many"
  53.      " many more smaller routines."
  54.      "\n\n" @copylib-help
  55. ))
  56.  
  57. ;********************************************************************
  58.  
  59. (set #main-copy-text
  60. (cat "Installing BlankerServer executable"
  61. ))
  62.  
  63. ;********************************************************************
  64.  
  65. (set #icon-install-text
  66. (cat "Installing icons..."
  67. ))
  68.  
  69. ;********************************************************************
  70.  
  71. (set #doc-dir-choose
  72. (cat "\nWhich parts of documentation do you wish to install?"
  73. ))
  74.  
  75. (set #doc-dir-choose-help
  76. (cat "\nSelect which of the following files are to be installed:\n\n"
  77.      "  SwazInfo.cd    - catalog translation file\n"
  78.      "  SwazInfo.guide - documentation\n"
  79.      "  SwazInfo.i     - programming include\n\n"
  80.      @askdir-help
  81. ))
  82.  
  83. (set #install-docs
  84. (cat "\nInstall documentation?"
  85.      "\n\n"
  86.      "This consists of the following files:\n\n"
  87.      "AmigaGuide documentation\n"
  88.      "Locale catalog translation file\n"
  89.      "Include to interface to SwazInfo\n"
  90. ))
  91.  
  92. (set #install-docs-help
  93. (cat "\nYou may need help or wish to write a locale translation for SwazInfo at a later date...\n\n"
  94.      @askbool-help
  95. ))
  96.  
  97. ;********************************************************************
  98.  
  99. (set #goodbye
  100. (cat "\nPlease remember that SwazInfo is SHAREWARE.\n\n"
  101.      "If you use this program you should register by sending $10 US ($20 NZ) to:\n\n"
  102. ))
  103.  
  104. (set #my-address
  105. (cat    "David Swasbrook,\n"
  106.     "PO Box 54134,\n"
  107.     "Bucklands Beach,\n"
  108.     "Auckland,\n"
  109.     "NEW ZEALAND.\n"
  110. ))
  111.  
  112. ;********************************************************************
  113.  
  114.  
  115. ;********************************************************************
  116. ;**** END OF TEXT
  117. ;********************************************************************
  118.  
  119. ;********************************
  120. ;**** CHECK THE KICKSTART VERSION
  121. ;****
  122.  
  123. (set ver (/ (getversion) 65536) )
  124. (if (< ver 37) (
  125.     (set warning (#warn-kickstart-text ver) ) (message warning)
  126. ))
  127.  
  128.  
  129. ;******************************
  130. ;**** CHECK THE DESTINATION DIR
  131. ;****
  132. (complete 15)
  133.  
  134. (set target
  135. (askdir (prompt #path-text) (help #path-help) (default @default-dest) (newpath)
  136. ))
  137. (set @default-dest target)
  138.  
  139.  
  140. ;******************************
  141. ;**** LIBS
  142. ;****
  143. (complete 30) (working #libs-working-text)
  144. (complete 31) (copylib (prompt #libs-mxlib-text) (help #libs-mxlib-help) (source "matrix.library") (dest "LIBS:") (confirm)
  145. )
  146.  
  147. ;******************************
  148. ;**** MAIN
  149. ;****
  150. (complete 40) (working #main-copy-text)
  151.  
  152. (copyfiles
  153.     (prompt "Copying to " #target )
  154.     (help @copyfiles-help)
  155.     (source "")
  156.     (dest (cat target) )
  157.     (choices "SwazInfo")
  158.     (infos)
  159. )
  160.  
  161. ;******************************
  162. ;**** LOCALE
  163. ;****
  164. (set def-lang 0)
  165.  
  166. (complete 60) (working #lang-install-text)
  167.  
  168. (set lang
  169. (askoptions
  170.     (prompt #lang-which-text)
  171.     (help #lang-which-help)
  172.     (choices "Dansk" "Deutsch" "Français" )
  173.     (default def-lang)
  174. ))
  175.  
  176. (complete 63)
  177.  
  178. (set n 0)
  179.  
  180. (while (set language (select n "dansk" "deutsch" "français" "" ) )
  181. (
  182.     (if (IN lang n)
  183.         (copyfiles
  184.             (source (cat "locale/" language ".catalog" ))
  185.             (dest (cat "LOCALE:catalogs/" language "/matrix" ))
  186.             (newname "swazinfo.catalog")
  187.         )
  188.     )
  189.     (set n (+ n 1))
  190. ))
  191.  
  192. ;********************************
  193. ;**** APP ICONS
  194. ;****
  195.  
  196. (complete 70) (working #icon-install-text)
  197. (copyfiles    (source "MagicIcons")
  198.         (choices "SwazInfoApp.info" "SwazInfoX.info" "SwazInfoY.info" )
  199.         (dest "env:matrix/swazinfo")
  200. )
  201.  
  202. (complete 75)
  203.  
  204. (copyfiles    (source "MagicIcons")
  205.         (choices "SwazInfoApp.info" "SwazInfoX.info" "SwazInfoY.info" )
  206.         (dest "envarc:matrix/swazinfo")
  207. )
  208.  
  209. ;********************************
  210. ;**** DOCUMENTATION
  211. ;****
  212.  
  213. (complete 80)
  214.  
  215. (set docs (askbool (prompt #install-docs)
  216.         (help #install-docs-help)
  217.         (choices "YES" "NO")
  218.       )
  219. )
  220.  
  221. (complete 90)
  222.  
  223. (if (= docs 1)
  224.     (copyfiles
  225.        (prompt #doc-dir-choose)
  226.        (help #doc-dir-choose-help)
  227.        (source "docs" )
  228.        (dest "Sys:SwazInfo")
  229.        (infos)
  230.        (confirm)
  231.        (all)
  232.     )
  233. )
  234.  
  235. (complete 100) (message #goodbye #my-address)
  236.  
  237.