home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / datatypes / macpict2-dtc / install < prev    next >
Text File  |  1997-07-29  |  2KB  |  105 lines
  1. ; Installer for MacPict datatype
  2. ; 1997-06-30 by Bengt Engdahl <thenut@algonet.se>
  3. ;
  4. ; $VER: MacPict datatype Install 1.1
  5. ;
  6.  
  7. (set mpaintinst "You have the MacPaint datatype installed.\nThe recognition have to be replaced with the supplied one. It will work as good as the old one. If you don't wan't this, press 'Abort' now.\n\n(The old will be placed in Storage)")
  8. (set wheredoc (cat "Choose where you want the documentation to be installed. No drawer will be created there."))
  9. (set whereclasses "Where do the (Graphic) DatatypeClasses belong?")
  10. (set ask0x0 "Choose which processor you have.")
  11.  
  12. (askchoice
  13.     (prompt ask0x0)
  14.     (help @askchoice-help)
  15.     (choices "68020+" "68000")
  16.     (default 0)
  17. )
  18.  
  19. (set default-dest
  20.     (askdir
  21.         (prompt wheredoc)
  22.         (help @askdir-help)
  23.         (default @default-dest)
  24.     )
  25. )
  26.  
  27. (set @default-dest default-dest)
  28.  
  29. (copyfiles
  30.     (source "docs/AFD-COPYRIGHT")
  31.     (dest @default-dest)
  32.     (infos)
  33. )
  34. (copyfiles
  35.     (source "docs/AFD-COPYRIGHT.se")
  36.     (dest @default-dest)
  37.     (infos)
  38. )
  39. (copyfiles
  40.     (source "docs/MacPict2-dtc.guide")
  41.     (dest @default-dest)
  42.     (infos)
  43. )
  44. (copyfiles
  45.     (source "docs/MacPict2-dtc.readme")
  46.     (dest @default-dest)
  47. )
  48.  
  49. (set classdir
  50.     (askdir
  51.         (prompt whereclasses)
  52.         (help @askdir-help)
  53.         (default "SYS:Classes/DataTypes")
  54.     )
  55. )
  56.  
  57. (if
  58.     (exists ("SYS:Devs/DataTypes/MacPaint"))
  59.     (
  60.         (message mpaintinst)
  61.         (copyfiles
  62.             (source "SYS:Devs/DataTypes/MacPaint")
  63.             (dest "SYS:Storage/DataTypes/")
  64.             (infos)
  65.         )
  66.         (delete "SYS:Devs/DataTypes/MacPaint" (infos))
  67.  
  68.     (copyfiles
  69.         (source "MacPaint/MacPaint")
  70.         (dest "SYS:Devs/DataTypes")
  71.         (newname "MacPaint")
  72.         (infos)
  73.     )
  74.     )
  75.     (
  76.         (set nonsens_vet_ej_hur_loesas annars_This_Is_Just_A_Dummy)
  77.     )
  78. )
  79.  
  80.  
  81. (if (= 0x0choice 0)
  82.     (
  83.         (copyfiles
  84.             (source "classes/datatypes/MacPict.DataType.020")
  85.             (dest classdir)
  86.             (newname "MacPict.dataType")
  87.         )
  88.     )
  89.     (
  90.         (copyfiles
  91.             (source "classes/datatypes/MacPict.DataType.000")
  92.             (dest classdir)
  93.             (newname "MacPict.dataType")
  94.         )
  95.     )
  96. )
  97. (copyfiles
  98.     (source "devs/datatypes/Macintosh PICT2")
  99.     (dest "SYS:Devs/DataTypes")
  100.     (newname "Macintosh PICT2")
  101.     (infos)
  102. )
  103.  
  104. (run "C:AddDataTypes Refresh")
  105.