home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / utilities / graphics / cad / magnificad / install < prev    next >
Encoding:
Text File  |  1995-06-15  |  3.5 KB  |  146 lines
  1. ; ** 
  2. ; **  MagnifiCAD installation scipt 
  3. ; **
  4. ; **  v1.0
  5. ; **
  6.  
  7. (welcome "Welcome to the MagnifiCAD installation")
  8.  
  9.  
  10. ; **
  11. ; ** Check kickstart version
  12. ; **
  13.  
  14. (set version (/ (getversion) 65536))
  15.  
  16. (if(< version 37)
  17. (Exit "\nYou need at least Workbench 2.0\nto run MagnifiCAD.\n" ) 
  18. )
  19.  
  20. (if (< version 39)
  21.    (set cont 
  22.       (askbool 
  23.          (prompt (cat "\nYou have kickstart 2.0.\n\n "
  24.             "MagnifiCAD will work under 2.0,\n "
  25.             "but may have some slight problems.\n "
  26.             "Proceed to Install?\n " ))
  27.       )
  28.    )
  29. )
  30.  
  31. ; ** 
  32. ; ** Check processor
  33. ; ** 
  34.  
  35. (
  36.    (set proc (database "cpu"))
  37.    (if (< proc 68020)
  38.       (Exit "\nYou need at least a 68020 processor\n to run this version of MagnifiCAD.\n")
  39.    )
  40. )
  41.  
  42. ; ** 
  43. ; ** Ask where to install the program
  44. ; **
  45.  
  46. (set @default-dest "Work:")
  47.  
  48. (set Destination
  49.    (askdir
  50.       (prompt (cat "\nSelect the drawer where you would like\n"
  51.               "MagnifiCAD to be installed.\n") )
  52.       (help   (cat "\nA drawer named MagnifiCAD will be created in the\n"
  53.               "drawer you select, and the program and all the files\n"
  54.               "will be copied into this new drawer.") ) 
  55.       (default @default-dest)
  56.    )
  57. )
  58.  
  59. ;(if(<>(exists Destination) 2)
  60. ;   (makedir Destination (infos)))
  61.  
  62. (set @default-dest Destination)
  63.  
  64. (complete 10)
  65.  
  66. (set @default-dest (tackon Destination "MagnifiCAD"))
  67.  
  68. (makedir @default-dest (prompt "Creating MagnifiCAD drawer.") (infos))
  69.  
  70. (complete 20)
  71.  
  72. ; ** 
  73. ; ** Assign
  74. ; **
  75.     
  76. (
  77.     (makeassign "MagnifiCAD" @default-dest)
  78.     (complete 30)
  79. )
  80.  
  81. ; **
  82. ; ** Fonts
  83. ; **
  84.  
  85. (
  86.    (copyfiles
  87.       (prompt "Copying newtopaz.font to Fonts: directory")
  88.       (help @copyfiles-help)
  89.       (source "Fonts")
  90.       (all)
  91.       (dest "Fonts:")
  92.       (fonts)
  93.    )
  94.    (complete 50)      
  95. )
  96.  
  97. ; **
  98. ; **  Install program
  99. ; **
  100.  
  101. (
  102.     (copyfiles
  103.         (prompt "Copying MagnifiCAD files to DEST:")
  104.         (help @copyfiles-help)
  105.         (choices "ReadMe"
  106.                  "MagnifiCAD"
  107.                  "Drawings"
  108.                  "Symbols"
  109.                  "Prefs"
  110.                  "Docs"
  111.                  "Icons"
  112.         )
  113.         (infos)
  114.         (source "")
  115.         (dest "MagnifiCAD:")
  116.     )
  117.     (complete 80)
  118. )
  119.  
  120. (copyfiles (source "Drawings/YanoHouse_Plan.cd2") (dest "MagnifiCAD:Drawings") (infos))
  121. (copyfiles (source "Drawings/YanoHouse_Section.cd2") (dest "MagnifiCAD:Drawings") (infos))
  122. (copyfiles (source "Drawings/Test.dxf") (dest "MagnifiCAD:Drawings") (infos))
  123.  
  124. (copyfiles (source "Symbols/wc.symbol") (dest "MagnifiCAD:Symbols") (infos))
  125.  
  126. (copyfiles (source "Prefs/Default.mcadprefs") (dest "MagnifiCAD:Prefs") (infos))
  127. (copyfiles (source "Prefs/Text.mcadprefs") (dest "MagnifiCAD:Prefs") (infos))
  128.  
  129. (copyfiles (source "Docs/MagnifiCAD_Help.guide") (dest "MagnifiCAD:Docs") (infos))
  130. (copyfiles (source "Docs/MagnifiCAD_Manual") (dest "MagnifiCAD:Docs") (infos))
  131. (copyfiles (source "Docs/MagnifiCAD_Manual.txt") (dest "MagnifiCAD:Docs") (infos))
  132.  
  133. (copyfiles (source "Icons/Prefs.info") (dest "MagnifiCAD:Icons") )
  134. (copyfiles (source "Icons/Project.info") (dest "MagnifiCAD:Icons") )
  135. (copyfiles (source "Icons/Symbol.info") (dest "MagnifiCAD:Icons") )
  136. (copyfiles (source "Icons/MagnifiCAD_dockicon.info") (dest "MagnifiCAD:Icons") )
  137.  
  138. (complete 90)
  139.  
  140. (startup "MagnifiCAD" (command ("assign MagnifiCAD: %s" @default-dest ))
  141.                       (help "\nThis adds a line to your s:User-Startup file,\nassigning the MagnifiCAD drawer")
  142.                       (prompt "\nFinished installing files.\nAdd MagnifiCAD: assign\nto s:User-Startup?")
  143. )
  144.  
  145. (complete 100)
  146.