home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / fish / disks / d1019.lha / Programs / DesignerDemo / DesignerDemo.lha / Install < prev    next >
Encoding:
Text File  |  1994-10-15  |  1.9 KB  |  105 lines
  1. ; This is the installer script for The Designer V1.0
  2.  
  3. (transcript "Designer installation...")
  4.  
  5. (set destdir
  6.     (askdir
  7.         (prompt "Where do you wish to put The Designer ?")
  8.         (help "Choose location for Designer and Producers.")
  9.         (default @default-dest)
  10.         (disk)
  11.     )
  12. )
  13.  
  14. (set @default-dest destdir)
  15.  
  16. (
  17. if (exists "DesignerV1_50_Disk1:" (noreq))
  18.     (
  19.     (set srcdir1 "DesignerV1_50_Disk1:")
  20.     (set srcdir2 "DesignerV1_50_Disk2:")
  21.     )
  22.     (
  23.     (set srcdir1 "")
  24.     (set srcdir2 "")
  25.     )
  26. )
  27.  
  28. (copyfiles
  29.     (prompt "Copying Designer to destination.")
  30.     (help @copyfiles-help)
  31.     (source srcdir1)
  32.     (dest destdir)
  33.     (choices "ReadMe" "Designer")
  34.     (infos)
  35.     (confirm)
  36. )
  37.  
  38. (copyfiles
  39.     (prompt "Copying demos to destination.")
  40.     (help @copyfiles-help)
  41.     (source srcdir1)
  42.     (dest destdir)
  43.     (pattern "#?Demo#?")
  44.     (infos)
  45.     (confirm)
  46. )
  47.  
  48. (
  49. if (= srcdir1 scrdir2)
  50.     (copyfiles
  51.         (prompt "Copying more demos to destination.")
  52.         (help @copyfiles-help)
  53.         (source srcdir2)
  54.         (dest destdir)    
  55.         (pattern "#?Demo#?")
  56.         (infos)
  57.         (confirm)
  58.     )
  59. )
  60.  
  61. (copyfiles
  62.     (prompt "Copying Designer.Guide to destination.")
  63.     (help @copyfiles-help)
  64.     (source srcdir2)
  65.     (dest destdir)
  66.     (pattern "Designer.Guide")
  67.     (infos)
  68.     (confirm)
  69. )
  70.  
  71. (copyfiles
  72.     (prompt "Copying Producers to destination.")
  73.     (help @copyfiles-help)
  74.     (source srcdir2)
  75.     (dest destdir)
  76.     (pattern "#?Producer")
  77.     (infos)
  78.     (confirm)
  79. )
  80.  
  81. (copyfiles
  82.     (prompt "Copying Developer files to destination.")
  83.     (help @copyfiles-help)
  84.     (source srcdir2)
  85.     (dest destdir)
  86.     (pattern "Developer")
  87.     (infos)
  88.     (confirm)
  89. )
  90.  
  91. (copylib
  92.     (prompt "Copying Producer Library to Libs:.")
  93.     (help @copylib-help)
  94.     (source ("%sproducer.library" srcdir2))
  95.     (dest "Libs:")
  96.     (confirm)
  97. )
  98.  
  99. (startup "Designer"
  100.     (prompt
  101.         "Do you wish to add the directory to your path in \"S:user-startup\" so that your system will be properly configured to use The Designer ?")
  102.     (help "This will make using The Designer far easier from the CLI.")
  103.     (command ("path \"%s\" add" destdir))
  104. )
  105.