home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / fish / 801-810 / ff806 / xsearch / install_xsearch < prev    next >
Text File  |  1993-01-24  |  4KB  |  116 lines
  1. ; Installation Routine for XSearch
  2.  
  3. (message "\n\nWelcome to the AMIGA XSearch Installation. "
  4.          "This Installer installs XSearch on your AMIGA.\n\n"
  5.          "XSearch 1.1\n"
  6.          "© and programming 1992 by\n"
  7.          "Stefan Plöchinger\n"
  8.          "Kleiststraße 27\n"
  9.          "DW- 8012 Ottobrunn\n\n"
  10.          "All rights reserved."
  11. )
  12.  
  13. (set x_language
  14.         (askchoice
  15.                 (prompt "Select the language XSearch ought to communicate "
  16.                         "with you:")
  17.                 (help "XSearch is available in two different languages. "
  18.                       "If you select `Deutsch', the German version will be "
  19.                       "installed, if you select `English', the English one. "
  20.                       "The documents are also installed in this language. "
  21.                 )
  22.                 (choices "Deutsch" "English")
  23.                 (default 1)
  24.  
  25.         )
  26. )
  27.  
  28. (set x_source
  29.         (askdir
  30.                 (prompt "Please indicate out of what directory XSearch "
  31.                         "ought to be installed (Must be the XSearch "
  32.                         "directory containing `Deutsch' and `English'):")
  33.                 (help @askdir-help)
  34.                 (default @default-dest)
  35.         )
  36. )
  37.  
  38. (set x_locate
  39.         (askdir
  40.                 (prompt "Please indicate in which directory XSearch "
  41.                         "ought to be installed:")
  42.                 (help @askdir-help)
  43.                 (default @default-dest)
  44.         )
  45. )
  46.  
  47. (set x_locate_diskspace (getdiskspace x_locate))
  48.  
  49. (if x_language
  50.         (
  51.                 (set x_Space 205862)
  52.         )
  53.         (
  54.                 (set x_Space 217431)
  55.         )
  56. )
  57.  
  58. (if (< x_locate_diskspace x_Space)
  59.         (
  60.                 (abort "You do not have enough space on your drive "
  61.                        "to install XSearch.\n"
  62.                        "XSearch requires "x_Space" bytes of free space "
  63.                        "to install, you only have "x_locate_diskspace"."
  64.                 )
  65.         )
  66. )
  67.  
  68. (set @default-dest x_locate)
  69.  
  70. (if x_language
  71.         (
  72.                 (set x_source (tackon x_source "English"))
  73.                 (copyfiles
  74.                         (source (tackon x_source "XSearch"))
  75.                         (dest x_locate)
  76.                         (infos)
  77.                 )
  78.                 (copyfiles
  79.                         (source (tackon x_source "XSearch.doc"))
  80.                         (dest x_locate)
  81.                         (infos)
  82.                 )
  83.                 (set x_FinalLetter "c")
  84.         )
  85.         (
  86.                 (set x_source (tackon x_source "Deutsch"))
  87.                 (copyfiles
  88.                         (source (tackon x_source "XSearch"))
  89.                         (dest x_locate)
  90.                         (infos)
  91.                 )
  92.                 (copyfiles
  93.                         (source (tackon x_source "XSearch.dok"))
  94.                         (dest x_locate)
  95.                         (infos)
  96.                 )
  97.                 (set x_FinalLetter "k")
  98.         )
  99. )
  100.  
  101. (message "All files have been installed now. \n"
  102.          "Finally, a few notes about the XSearch preferences: "
  103.          "XSearch has its own Preferences program, included in "
  104.          "XSearch itself. Remember that its settings (and the settings "
  105.          "of a part of XSearch, the Options Module) aren't "
  106.          "stored now on your partition or in your directory. XSearch "
  107.          "will give you an error message concerning this when having "
  108.          "started XSearch."
  109.          "\nDon't worry about this `trouble'. You can solve it by "
  110.          "following some instructions in XSearch.do"x_FinalLetter". Simply "
  111.          "read the manual!"
  112.          "\nBesides, a double-click on XSearch.do"x_FinalLetter" perhaps "
  113.          "won't work. You might have to change the default tool (see in your "
  114.          "AMIGA DOS manual)."
  115. )
  116.