home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / fish / disks / d1010.lha / Programs / IntuiDex / IntuiDex-Install < prev    next >
Encoding:
Text File  |  1994-07-28  |  3.9 KB  |  112 lines
  1. ;======================================================================
  2. ;
  3. ; IntuiDex general installer -- $VER: Install 1
  4. ;
  5. ;======================================================================
  6.  
  7. ; strings
  8. (set #IntuiDex-install
  9.     (cat "\nInstall IntuiDex\n"
  10.          "\nThank you for using IntuiDex.  IntuiDex"
  11.          "\nInstallation procedures will automatically copy"
  12.          "\nall necessary files into their own area that you"
  13.          "\nspecify.  An addition to your S:user-startup file"
  14.          "\nwill also be necessary in order for IntuiDex"
  15.          "\n to work properly."
  16.          "\n\n Do you wish to continue?"))
  17.  
  18. (set #IntuiDex-install-help
  19.     (cat "  Install IntuiDex Help\n"
  20.          "\nIf you select 'Yep!' IntuiDex will be installed"
  21.          "\nnormally.  If you wish not to install IntuiDex, click"
  22.          "\non the 'Ack, No!' button.\n"
  23.          "\nIntuiDex will operate from the distribution disk, if"
  24.          "\nyou are installing the registered user version, but"
  25.          "\nwill operate much more quickly if it is installed"
  26.          "\non a hard disk drive.\n"
  27.          "\nOnce installed on a hard disk, IntuiDex has to be"
  28.          "\ntold where to find its support files.  An ASSIGN"
  29.          "\nstatement is appended to the end of your"
  30.          "\ns:User-Startup file which accomplishes this task."
  31.          "\n" ))
  32.  
  33. (set #where
  34.     (cat "IntuiDex can be installed in any directory you like"
  35.          "\nWhere would you like IntuiDex installed?"))
  36.  
  37. (set #where-help
  38.     (cat "Where To Install IntuiDex\n"
  39.          "\nIntuiDex may be installed into any hard disk"
  40.          "\npartition that you desire, but it is probably best"
  41.          "\nnot to install it into your SYS: (boot disk)"
  42.          "\npartition to keep clutter down.\n"
  43.          "\nIt is recommended that IntuiDex be installed where"
  44.          "\never the rest of your applications programs are"
  45.          "\nlocated.  Application programs include things like"
  46.          "\nword processors, graphics software, and DTP software.\n"
  47.          "\nThis installation procedure will ensure that an"
  48.          "\nASSIGN is made to where ever you decide to install"
  49.          "\nIntuiDex, so that it will work properly no matter"
  50.          "\nwhere it is installled."))
  51.  
  52. (set #assign-help
  53.     (cat "Why Change s:User-Startup\n"
  54.          "\nIntuiDex requires several support files in order"
  55.          "\nto operate properly.  If the ASSIGN is not added"
  56.          "\nto the s:user-startup file, IntuiDex will not know"
  57.          "\nwhere to find these files, and may not work as"
  58.          "\nexpected."))
  59.  
  60.  
  61. ; Install program
  62. (set inputdir (pathonly @icon))
  63. (set @default-dest "SYS:")
  64.  
  65. (if (askbool (prompt #IntuiDex-install)
  66.              (help #IntuiDex-install-help)
  67.              (choices "Yep!" "Ack, No!")
  68.              (default 1))
  69.  
  70.     ((set outputdir
  71.         (askdir (prompt #where)
  72.                 (help #where-help)
  73.                 (default @default-dest)))
  74. ;        (makedir (tackon @default-dest "AAi")  (infos))
  75.  
  76.  
  77.         (set @default-dest outputdir)
  78.         (copyfiles (source inputdir)
  79.                    (dest outputdir)
  80.                    (pattern "IntuiDex#?")
  81.                    (files)
  82.                    (infos))
  83.  
  84.         (copyfiles (source inputdir)
  85.                    (dest outputdir)
  86.                    (pattern "Index#?")
  87.                    (files)
  88.                    (infos))
  89.  
  90.         (copyfiles (source inputdir)
  91.                    (dest outputdir)
  92.                    (pattern "Demo#?")
  93.                    (files)
  94.                    (infos))
  95.  
  96.  
  97.         (tooltype (dest (tackon outputdir "IntuiDex"))
  98.                   (noposition)))
  99.         (set @default-dest ""))
  100.  
  101.         (startup "IntuiDex"
  102.             (prompt
  103.                 "Some instructions need to be added to the \"S:user-startup\" "
  104.                 "so that your system will be properly configured to use IntuiDex.")
  105.         (help #assign-help)
  106.         (command
  107.                 "ASSIGN IntuiDex: \"" outputdir "\"\n")
  108.  
  109.        (makeassign "IntuiDex" outputdir )
  110.  
  111.         )
  112.