home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 2 / amigaformatcd02.iso / pd / text / alphaspell_suite / aspellgui / install < prev    next >
Encoding:
Text File  |  1996-05-20  |  4.3 KB  |  223 lines
  1. ; Installation script for AlphaSpell
  2.  
  3. (transcript "Installing the AlphaSpell GUI ...")
  4.  
  5. (if (= @language "deutsch")
  6.     (copyfiles
  7.         (prompt "Deutsches Katalog")
  8.         (help @copyfiles-help)
  9.         (source "Catalogs/ASpell.deutsch")
  10.         (dest "SYS:Catalogs/")
  11.         (confirm)
  12.         (all)
  13.     )
  14. )
  15.  
  16. (copyfiles
  17.     (prompt "Documentation")
  18.     (help @copyfiles-help)
  19.     (source "Doc/")
  20.     (dest "Data:Docs/")
  21.     (confirm)
  22.     (all)
  23. )
  24.  
  25. (copylib
  26.     (prompt "Jürgen Kohrmeyer's rexxtricks.library")
  27.     (help @copylib-help)
  28.     (source "libs/rexxtricks.library")
  29.     (dest "LIBS:")
  30.     (confirm)
  31. )
  32.  
  33. (set options
  34.     (askoptions
  35.         (prompt "Which text editors do you want to install scripts for? The stars indicates how well the AlphaSpell GUI works with each editor.")
  36.         (help @askoptions-help)
  37.         (choices "AmokEd *" "Annotate **" "BlacksEditor ***" "DME *" "Ed ****" "Emacs ****" "FrexxEd ****" "GoldEd ****" "SkoEd *" "Textra **" "TJM DME ****" "TKEd" "TurboText ****" "XDME ****")
  38.         (default 0)
  39.     )
  40. )
  41.  
  42. (if (bitand options $01)
  43.     (copyfiles
  44.         (prompt "Copying ARexx script")
  45.         (help @copyfiles-help)
  46.         (source "Rexx/AmokEd/")
  47.         (dest "REXX:")
  48.         (confirm)
  49.         (all)
  50.     )
  51. )
  52.  
  53. (if (bitand options $02)
  54.     (copyfiles
  55.         (prompt "Copying ARexx script")
  56.         (help @copyfiles-help)
  57.         (source "Rexx/Annotate/")
  58.         (dest "REXX:")
  59.         (confirm)
  60.         (all)
  61.     )
  62. )
  63.  
  64. (if (bitand options $04)
  65.     (copyfiles
  66.         (prompt "Copying ARexx script")
  67.         (help @copyfiles-help)
  68.         (source "Rexx/BlacksEditor/")
  69.         (dest "REXX:")
  70.         (confirm)
  71.         (all)
  72.     )
  73. )
  74.  
  75. (if (bitand options $08)
  76.     (copyfiles
  77.         (prompt "Copying ARexx script")
  78.         (help @copyfiles-help)
  79.         (source "Rexx/DME/")
  80.         (dest "REXX:")
  81.         (confirm)
  82.         (all)
  83.     )
  84. )
  85.  
  86. (if (bitand options $10)
  87.     (copyfiles
  88.         (prompt "Copying ARexx script")
  89.         (help @copyfiles-help)
  90.         (source "Rexx/Ed/")
  91.         (dest "REXX:")
  92.         (confirm)
  93.         (all)
  94.     )
  95. )
  96.  
  97. (if (bitand options $20)
  98.     (copyfiles
  99.         (prompt "Copying ARexx script")
  100.         (help @copyfiles-help)
  101.         (source "Rexx/Emacs/")
  102.         (dest "REXX:")
  103.         (confirm)
  104.         (all)
  105.     )
  106. )
  107.  
  108. (if (bitand options $40)
  109.     (copyfiles
  110.         (prompt "Copying ARexx script")
  111.         (help @copyfiles-help)
  112.         (source "Rexx/FrexxEd/")
  113.         (dest "REXX:")
  114.         (confirm)
  115.         (all)
  116.     )
  117. )
  118.  
  119. (if (bitand options $80)
  120.     (copyfiles
  121.         (prompt "Copying ARexx script")
  122.         (help @copyfiles-help)
  123.         (source "Rexx/GoldEd/")
  124.         (dest "REXX:")
  125.         (confirm)
  126.         (all)
  127.     )
  128. )
  129.  
  130. (if (bitand options $100)
  131.     (copyfiles
  132.         (prompt "Copying ARexx script")
  133.         (help @copyfiles-help)
  134.         (source "Rexx/SkoEd/")
  135.         (dest "REXX:")
  136.         (confirm)
  137.         (all)
  138.     )
  139. )
  140.  
  141. (if (bitand options $200)
  142.     (copyfiles
  143.         (prompt "Copying ARexx script")
  144.         (help @copyfiles-help)
  145.         (source "Rexx/Textra/")
  146.         (dest "REXX:")
  147.         (confirm)
  148.         (all)
  149.     )
  150. )
  151.  
  152. (if (bitand options $400)
  153.     (copyfiles
  154.         (prompt "Copying ARexx script")
  155.         (help @copyfiles-help)
  156.         (source "Rexx/TJM_DME/")
  157.         (dest "REXX:")
  158.         (confirm)
  159.         (all)
  160.     )
  161. )
  162.  
  163. (if (bitand options $800)
  164.     (copyfiles
  165.         (prompt "Copying ARexx script")
  166.         (help @copyfiles-help)
  167.         (source "Rexx/TKEd/")
  168.         (dest "REXX:")
  169.         (confirm)
  170.         (all)
  171.     )
  172. )
  173.  
  174. (if (bitand options $1000)
  175.     (copyfiles
  176.         (prompt "Copying ARexx script")
  177.         (help @copyfiles-help)
  178.         (source "Rexx/TurboText/")
  179.         (dest "REXX:")
  180.         (confirm)
  181.         (all)
  182.     )
  183. )
  184.  
  185. (if (bitand options $2000)
  186.     (copyfiles
  187.         (prompt "Copying ARexx script")
  188.         (help @copyfiles-help)
  189.         (source "Rexx/XDME/")
  190.         (dest "REXX:")
  191.         (confirm)
  192.         (all)
  193.     )
  194. )
  195.  
  196. (set guipath
  197.     (askdir
  198.         (prompt
  199.             "Where do you want the GUI file?"
  200.         )
  201.         (help @askdir-help)
  202.         (default "GUI:")
  203.     )
  204. )
  205.  
  206. (run (cat "setenv ASpellGUI " (tackon guipath "ASpell.gui")))
  207.  
  208. (copyfiles
  209.     (prompt "Copying ASpellGUI to ENVARC:")
  210.     (help @copyfiles-help)
  211.     (source "ENV:ASpellGUI")
  212.     (dest "ENVARC:")
  213. )
  214.  
  215. (copyfiles
  216.     (prompt "Copying ASpell.gui")
  217.     (help @copyfiles-help)
  218.     (source "ASpell.gui")
  219.     (dest guipath)
  220. )
  221.  
  222. (exit)
  223.