home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d10xx / d1000 / polyfit.lha / PolyFit / Install_with_Installer < prev    next >
Text File  |  1994-04-03  |  2KB  |  90 lines
  1.  
  2. ;Install script for PolyFit. Copyright © 1994 Camiel Rouweler.
  3. ;$VER: Install_PolyFit 1.21 (26.2.94)
  4.  
  5. (welcome
  6.     "Welcome to the PolyFit installer\n"
  7. )
  8.  
  9. (message
  10.     "The installer will install the PolyFit executable file to your system and "
  11.     "if you wish also the example datafiles.\n"
  12.     "If your system supports localisation, you can also select to install "
  13.     "catalog files for your language (currently supported: english, dutch and "
  14.     "german)."
  15. )
  16.  
  17. (if (exists "Work:" (noreq))
  18.     (set @default-dir "Work:PolyFit") ;then clause
  19.     (set @default-dir "SYS:PolyFit")  ;else clause
  20. )
  21.  
  22.  
  23. (set destdir
  24.     (askdir
  25.         (prompt "select a directory where you want PolyFit installed to.")
  26.         (help @askdir-help)
  27.         (default @default-dir)
  28.         (newpath)
  29.     )
  30. )
  31.  
  32. (set @default-dest destdir)
  33.  
  34. (if (NOT (exists destdir (noreq)))
  35.     (makedir destdir
  36.         (prompt "I will now create the directory " destdir)
  37.         (help @makedir-help)
  38.         (infos)
  39.     )
  40. )
  41.  
  42. (copyfiles
  43.     (prompt "Select files to install" destdir)
  44.     (help
  45.             "PolyFit:\nThe executable file.\n\n"
  46.             "PolyFit.guide:\nDocumentation file.\n\n"
  47.             "General help:\n"
  48.             @copylib-help)
  49.     (source "")
  50.     (dest destdir)
  51.     (choices "PolyFit" "PolyFit.guide")
  52.     (infos)
  53.     (confirm)
  54. )
  55.  
  56. (copyfiles
  57.     (prompt "Select example files to install" destdir)
  58.     (help
  59.             "These example files illustrate the different fitting methods "
  60.             "of PolyFit.\n\n"
  61.             "General help:\n"
  62.             @copylib-help)
  63.     (source "")
  64.     (dest destdir)
  65.     (pattern "#?.pf")
  66.     (infos)
  67.     (confirm)
  68. )
  69.  
  70. (if (exists "Locale:Catalogs" (noreq))
  71.     (
  72.         (copyfiles
  73.             (prompt "Install catalog files?")
  74.             (help "PolyFit supports english and the languages listed here. "
  75.                     "If you want to use on of these languages, you will have to "
  76.                     "install it.\n\n"
  77.                     @copyfiles-help)
  78.             (source "Locale/Catalogs")
  79.             (dest "Locale:Catalogs")
  80.             (all)
  81.             (infos)
  82.             (confirm)
  83.         )
  84.     )
  85. )
  86.  
  87. (exit
  88.     "\n\nHave a nice day!"
  89. )
  90.