home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / Words20.lha / Words / Install < prev    next >
Encoding:
Text File  |  1995-01-30  |  9.7 KB  |  316 lines
  1. ; $VER: Words 2 (25-01-95)
  2. ; Installer script ©1995 Dietmar Eilert
  3.  
  4. (delopts "oknodelete" "force" "askuser")
  5. (complete 0)
  6.  
  7. (onerror (
  8.  
  9.     (if (> @ioerr 0) 
  10.  
  11.         " Some error has occurred. Please inform a GoldED \n"
  12.         " support site (e.g. dietmar@tomate.mbp.oche.de)  \n"
  13.         " AFTER having tried a different Installer release\n"
  14.         " (1.24 is known to work fine).                   \n"
  15.     )
  16. ))
  17.  
  18. (if (exists "GOLDED:" (NOREQ))
  19.  
  20.     (
  21.         (set vernum (getversion "golded:golded"))
  22.  
  23.         (set ver (/ vernum 65536))
  24.         (set rev (- vernum (* ver 65536)))
  25.  
  26.         (set version (+ (* 10 ver) rev))
  27.  
  28.         (if (< version 20)
  29.  
  30.             (
  31.                 (message "\nSorry, GoldED 2 or better required")
  32.                 (exit (quiet))
  33.             )
  34.         )
  35.  
  36.         (complete 5)
  37.  
  38.         (message (cat "\n"
  39.  
  40.             "Words 2 (Spell Checking Package)             \n"
  41.             "                                             \n"
  42.             "©1992-1995 Heinz Knutzen                     \n"
  43.             "           Martin Schulz,                    \n"
  44.             "           Loren J. Rittle                   \n"
  45.             "           Dietmar Eilert                    \n"
  46.             "                                             \n"
  47.             "All Rights Reserved. Commercial distribution \n"
  48.             "not allowed. All files are the property of   \n"
  49.             "their authors. Parts of this package are NOT \n"
  50.             "freeware. Ask for permission first if you    \n"
  51.             "intend to distribute this software. Thanks.  \n"
  52.         ))
  53.  
  54.         (complete 10)
  55.  
  56.         (set action (askoptions
  57.  
  58.             (prompt "Select parts to be installed")
  59.  
  60.             (help @askoptions-help)
  61.  
  62.             (default 3)
  63.  
  64.             (choices
  65.  
  66.                 "install binaries"
  67.                 "install German dictionary"
  68.             )
  69.         ))
  70.  
  71.         (complete 15)
  72.  
  73.         (if (exists "GoldED:API/SpellIT")
  74.  
  75.             (delete "GoldED:API/SpellIT/Manuel" (infos))
  76.  
  77.             (makedir "GoldED:API/SpellIT" (infos))
  78.         )
  79.  
  80.         ; install ISpell & SpellIT
  81.  
  82.         (if (in action 0) (
  83.  
  84.             (set target (askdir
  85.  
  86.                 (prompt  "Where do you want to have ISpell installed ?")
  87.                 (help    "Please specify a valid command path")
  88.                 (default "c:")
  89.             ))
  90.  
  91.             (complete 20)
  92.  
  93.             (copyfiles
  94.  
  95.                 (source "ISpell/c/ispell")
  96.                 (dest    target)
  97.             )
  98.  
  99.             (complete 30)
  100.  
  101.             (if (not (exists "locale:" (noreq))) (
  102.  
  103.                 (if (not (exists "sys:locale")) (makedir "sys:locale"))
  104.  
  105.                 (makeassign "locale" "sys:locale")
  106.             ))
  107.  
  108.             (copyfiles
  109.  
  110.                 (source "SpellIT/locale")
  111.                 (dest "locale:")
  112.                 (all)
  113.             )
  114.  
  115.             (copyfiles
  116.  
  117.                 (source "SpellIT")
  118.                 (dest   "GoldED:API/SpellIT")
  119.                 (pattern "(Anleitung|Manual|Manuel|SpellIT|Licence|presets|#?.info)")
  120.             )
  121.  
  122.             (complete 35)
  123.  
  124.         ))
  125.  
  126.         ; install dictionary
  127.  
  128.         (complete 40)
  129.  
  130.         (if (in action 1) (
  131.  
  132.             (set partsA (askoptions
  133.  
  134.                 (prompt "Select German dictionaries to install (1/2)")
  135.  
  136.                 (help (cat "\n"
  137.  
  138.                     " The more dictionaries you select, the more\n"
  139.                     " memory ISpell will use. File sized listed \n"
  140.                     " do NOT equal memory requirements - memory \n"
  141.                     " requirements are about three times higher.\n"
  142.                 ))
  143.  
  144.                 (choices
  145.  
  146.                     "Substantive        (250 K)"
  147.                     "Verben             (120 K)"
  148.                     "Adjektive & Co     ( 10 K)"
  149.                     "Zusammensetzungen  (550 K)"
  150.                     "Geographie         ( 15 K)"
  151.                     "Namen              (  5 K)"
  152.                     "Abkuerzungen       (  1 K)"
  153.                     "Imperative         (  1 K)"
  154.                     "Latein             (  1 K)"
  155.                 )
  156.  
  157.                 (default 503)
  158.             ))
  159.  
  160.             (complete 45)
  161.  
  162.             (set partsB (askoptions
  163.  
  164.                 (prompt "Select German dictionaries to install (2/2)")
  165.  
  166.                 (help (cat "\n"
  167.  
  168.                     " The more dictionaries you select, the more\n"
  169.                     " memory ISpell will use. File sized listed \n"
  170.                     " do NOT equal memory requirements - memory \n"
  171.                     " requirements are about three times higher.\n"
  172.                 ))
  173.  
  174.                 (choices
  175.  
  176.                     "Informatik, EDV    ( 25 K)"
  177.                     "Elektronik         ( 10 K)"
  178.                     "Organisationen     (  1 K)"
  179.                     "Marken             (  1 K)"
  180.                     "Griechisch         (  1 K)"
  181.                     "Roemische Zahlen   (  1 K)"
  182.                     "Technik            (  2 K)"
  183.                     "Seltenes           ( 10 K)"
  184.                 )
  185.  
  186.                 (default 12)
  187.             ))
  188.  
  189.             (complete 50)
  190.  
  191.             (if (or (<> partsA 0) (<> partsB 0)) (
  192.  
  193.                 (working "\nCreating dictionary, sorting entries. May take a couple of minutes.\n")
  194.  
  195.                 (set cmd "bin/joinsorted >con://///AUTO as=words/all.words ")
  196.  
  197.                 (if (in partsA 0) (set cmd (cat cmd "words/data/worte.txt "      )))
  198.                 (if (in partsA 1) (set cmd (cat cmd "words/data/verben.txt "     )))
  199.                 (if (in partsA 2) (set cmd (cat cmd "words/data/klein.txt "      )))
  200.                 (if (in partsA 2) (set cmd (cat cmd "words/data/adjektive.txt "  )))
  201.                 (if (in partsA 3) (set cmd (cat cmd "words/data/zusammen.txt "   )))
  202.                 (if (in partsA 4) (set cmd (cat cmd "words/data/geographie.txt " )))
  203.                 (if (in partsA 4) (set cmd (cat cmd "words/data/geogra2.txt "    )))
  204.                 (if (in partsA 5) (set cmd (cat cmd "words/data/namen.txt "      )))
  205.                 (if (in partsA 5) (set cmd (cat cmd "words/data/vornamen.txt "   )))
  206.                 (if (in partsA 5) (set cmd (cat cmd "words/data/vornam2.txt "    )))
  207.                 (if (in partsA 6) (set cmd (cat cmd "words/data/abkuerz.txt "    )))
  208.                 (if (in partsA 6) (set cmd (cat cmd "words/data/abkuerz2.txt "   )))
  209.                 (if (in partsA 7) (set cmd (cat cmd "words/data/imperat.txt "    )))
  210.                 (if (in partsA 8) (set cmd (cat cmd "words/data/latein.txt "     )))
  211.  
  212.                 (if (in partsB 0) (set cmd (cat cmd "words/data/compeng.txt "    )))
  213.                 (if (in partsB 0) (set cmd (cat cmd "words/data/infoabk.txt "    )))
  214.                 (if (in partsB 0) (set cmd (cat cmd "words/data/informatik.txt " )))
  215.                 (if (in partsB 1) (set cmd (cat cmd "words/data/elektronik.txt " )))
  216.                 (if (in partsB 2) (set cmd (cat cmd "words/data/orgabk.txt "     )))
  217.                 (if (in partsB 3) (set cmd (cat cmd "words/data/marken.txt "     )))
  218.                 (if (in partsB 4) (set cmd (cat cmd "words/data/alphabeta.txt "  )))
  219.                 (if (in partsB 5) (set cmd (cat cmd "words/data/roemisch.txt "   )))
  220.                 (if (in partsB 6) (set cmd (cat cmd "words/data/technik.txt "    )))
  221.                 (if (in partsB 7) (set cmd (cat cmd "words/data/seltenes.txt "   )))
  222.  
  223.                 (run cmd)
  224.  
  225.                 ; removing stuff not supported by the Amiga version of ISpell
  226.  
  227.                 (complete 70)
  228.  
  229.                 (working "\nChecking dictionary. May take a couple of minutes.\n")
  230.  
  231.                 (run "bin/ifilter >con://///AUTO FILE=words/all.words NOTEX NOFLAGS")
  232.  
  233.                 (complete 75)
  234.  
  235.                 (if (exists "words/all.words" (noreq))
  236.  
  237.                     (
  238.                         (if (exists "s:deutsch.hash")
  239.  
  240.                             (set remove (askbool
  241.  
  242.                                 (prompt "\nOverwrite old hash file (s:deutsch.hash) ?")
  243.  
  244.                                 (help "You might want to backup your old file :-)")
  245.  
  246.                                 (choices
  247.  
  248.                                     "overwrite"
  249.                                     "exit"
  250.                                 )
  251.                             ))
  252.  
  253.                             (set remove 1);
  254.                         )
  255.  
  256.                         (if (= remove 1)
  257.  
  258.                             (
  259.                                 (working "\nCreating hash file supporting fast data access. May take a couple of minutes.\n")
  260.  
  261.                                 (run "ispell/c/buildhash >con:////buildhash/AUTO words/all.words s:deutsch.hash")
  262.  
  263.                                 (complete 90)
  264.  
  265.                                 (if (exists "s:deutsch.hash")
  266.  
  267.                                     (message "\nHash file (s:deutsch.hash) has been created successfully.")
  268.  
  269.                                     (
  270.  
  271.                                         (message "\nFatal error: hash file creation failed.\n")
  272.  
  273.                                         (delete "words/all.words")
  274.  
  275.                                         (exit (quiet))
  276.                                     )
  277.                                 )
  278.                             )
  279.                         )
  280.  
  281.                         (complete 95)
  282.  
  283.                         (delete "words/all.words")
  284.                     )
  285.  
  286.                     (
  287.                         (message "\nFatal error - dictionary creation failed.")
  288.  
  289.                         (exit (quiet))
  290.                     )
  291.                 )
  292.             ))
  293.         ))
  294.  
  295.         (complete 100)
  296.  
  297.         (message "\nInstallation done. Have fun :-)")
  298.  
  299.         (if (in action 0)
  300.  
  301.             (run (cat "gx FORCE MACRO=" (tackon (pathonly @icon) "auto.ged")))
  302.         )
  303.     )
  304.  
  305.     (message (cat "\n"
  306.  
  307.         " Please install GoldED Release 2 before\n"
  308.         " attempting to install this package.   \n"
  309.     ))
  310. )
  311.  
  312. (exit (quiet))
  313.  
  314. (welcome)
  315.  
  316.