home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 2 / amigaformatcd02.iso / pd / text / alphaspell_suite / alphaspell / install_aspell < prev    next >
Encoding:
Text File  |  1996-05-20  |  2.0 KB  |  107 lines
  1. ; Installation script for AlphaSpell
  2.  
  3. (transcript "Installing AlphaSpell ...")
  4.  
  5. (set cputype (+(database "CPU")) )
  6.  
  7. (if (< cputype 68020)
  8.     (set src "ASpell000")
  9.     (set src "ASpell020")
  10. )
  11.  
  12. (set aspath
  13.     (askdir
  14.         (prompt "Install AlphaSpell where?")
  15.         (help @askdir-help)
  16.         (default "C:")
  17.     )
  18. )
  19.  
  20. (copyfiles
  21.     (prompt "Copying AlphaSpell")
  22.     (help @copyfiles-help)
  23.     (source src)
  24.     (newname "AlphaSpell")
  25.     (dest aspath)
  26.     (confirm)
  27. )
  28.  
  29. (set destpath
  30.     (askdir
  31.         (prompt "Install AlphaSpell.guide where?")
  32.         (help @askdir-help)
  33.         (default "Data:Docs/")
  34.     )
  35. )
  36.  
  37. (copyfiles
  38.     (prompt "Copying AlphaSpell's Documentation")
  39.     (help @copyfiles-help)
  40.     (source "Doc/")
  41.     (dest destpath)
  42.     (confirm)
  43.     (all)
  44. )
  45.  
  46. (set destpath
  47.     (askdir
  48.         (prompt "Install keyconv where?")
  49.         (help @askdir-help)
  50.         (default "C:")
  51.     )
  52. )
  53.  
  54. (copyfiles
  55.     (prompt "Copying keyconv")
  56.     (help @copyfiles-help)
  57.     (source "keyconv")
  58.     (dest destpath)
  59.     (confirm)
  60. )
  61.  
  62. (set destpath
  63.     (askdir
  64.         (prompt "Install the Dictionaries where?")
  65.         (help @askdir-help)
  66.         (default "Work:")
  67.     )
  68. )
  69.  
  70. (copyfiles
  71.     (prompt "Copying AlphaSpell's Dictionaries")
  72.     (help @copyfiles-help)
  73.     (source "Dictionaries/")
  74.     (dest destpath)
  75.     (confirm)
  76.     (all)
  77. )
  78.  
  79. (set response
  80.     (askchoice
  81.         (prompt
  82.             "Add Environment Variables?"
  83.         )
  84.         (help @askchoice-help)
  85.         (choices "Yes" "No")
  86.     )
  87. )
  88.  
  89. (if (= response 0)
  90.     (
  91.         (run (cat "setenv DDIR " (tackon destpath " ")))
  92.         (run ("setenv Dict English.low English.mix User.low User.mix"))
  93.         (run (cat "setenv UDict " (tackon destpath "User.low") " " (tackon destpath "User.mix")))
  94.         (run "copy ENV:Dict ENVARC:")
  95.         (run "copy ENV:DDIR ENVARC:")
  96.         (run "copy ENV:UDict ENVARC:")
  97.     )
  98. )
  99.  
  100. (message
  101.     (cat "Installation complete.\n"
  102.         "AlphaSpell has been installed as " (tackon aspath "AlphaSpell.")
  103.     )
  104. )
  105.  
  106. (exit (quiet))
  107.