home *** CD-ROM | disk | FTP | other *** search
- ; **
- ; ** MagnifiCAD installation scipt.
- ; **
- ; ** v1.1, (C)1995-96 Anders Granli.
- ; **
- ; ** 23.01.95
-
- (welcome "Welcome to the MagnifiCAD installation")
-
-
- (message ("\nWelcome to MagnifiCAD!\n\nYou need about 650KB of free space on your\n hard drive for this installation.") )
-
- ; **
- ; ** Check kickstart version
- ; **
-
- (set version (/ (getversion) 65536))
-
- (if(< version 37)
- (Exit "\nYou need at least Workbench 2.0\nto run MagnifiCAD.\n" )
- )
-
- (if (< version 39)
- (set cont
- (askbool
- (prompt (cat "\nYou have kickstart 2.0.\n\n "
- "MagnifiCAD will work under 2.0,\n "
- "but may have some slight problems.\n "
- "Proceed to Install?\n " ))
- (help (cat "\nIf you don't have Kickstart 3.0 or\n"
- "higher, some things just won't work." ))
- )
- )
- )
-
- ; **
- ; ** Check processor
- ; **
-
- (
- (set proc (database "cpu"))
- )
-
- ; **
- ; ** Ask where to install the program
- ; **
-
- (set @default-dest "Work:")
-
- (set Destination
- (askdir
- (prompt (cat "\nSelect the drawer where you would like\n"
- "the drawer containing\nMagnifiCAD to be installed.\n") )
- (help (cat "\nA drawer named MagnifiCAD will be created in the\n"
- "drawer you select, and the program and all the files\n"
- "will be copied into this new drawer.") )
- (default @default-dest)
- )
- )
-
- ;(if(<>(exists Destination) 2)
- ; (makedir Destination (infos)))
-
- (set @default-dest Destination)
-
- (complete 10)
-
- (set @default-dest
- (tackon Destination "MagnifiCAD")
- )
-
- (makedir @default-dest
- (prompt "Creating MagnifiCAD drawer.")
- (infos)
- )
-
- (complete 20)
-
- ; **
- ; ** Assign
- ; **
-
- (makeassign "MagnifiCAD" @default-dest)
- (complete 30)
-
- ; **
- ; ** Fonts
- ; **
-
- (set installfont
- (askbool
- (prompt (cat "\nMagnifiCAD needs the newtopaz.font\n\n "
- "Shall I install the font in your FONTS: drawer?" ))
- (help "This copies the font to FONTS:")
- )
- )
-
- (if installfont
- (copyfiles
- (prompt "Copying newtopaz.font to Fonts: directory")
- (help @copyfiles-help)
- (source "Fonts")
- (all)
- (dest "Fonts:")
- (fonts)
- )
- )
- (complete 50)
-
- ; **
- ; ** Install program
- ; **
-
- (if (< proc 68020)
- (copyfiles
- (prompt "Copying MagnifiCAD program...\n\n(68000 version)")
- (source "magnifiCAD.000")
- (dest "MagnifiCAD:")
- (newname "magnifiCAD")
- (infos)
- (help @copyfiles-help)
- )
- (copyfiles
- (prompt "Copying MagnifiCAD program...\n\n(68020 version)")
- (source "magnifiCAD")
- (dest "MagnifiCAD:")
- (infos)
- (help @copyfiles-help)
- )
- )
-
- (copyfiles
- (prompt "Copying MagnifiCAD files to DEST:")
- (help @copyfiles-help)
- (choices "ReadMe"
- "Drawings"
- "Symbols"
- "Prefs"
- "Docs"
- )
- (infos)
- (source "")
- (dest "MagnifiCAD:")
- )
-
- (copyfiles
- (choices "Icons")
- (source "")
- (dest "MagnifiCAD:")
- )
-
-
- (copyfiles
- (choices "Registration")
- (infos)
- (source "")
- (dest "MagnifiCAD:Docs")
- )
- (complete 80)
-
- (copyfiles
- (prompt "Copying Drawings & Symbols")
- (source "Drawings/")
- (pattern "#?")
- (dest "MagnifiCAD:Drawings/")
- (infos)
- )
-
- (copyfiles
- (source "Symbols/")
- (all)
- (dest "MagnifiCAD:Symbols/")
- (infos)
- )
-
- (copyfiles
- (source "Prefs/")
- (pattern "#?")
- (dest "MagnifiCAD:Prefs")
- (infos)
- )
-
- (copyfiles
- (source "Docs/")
- (pattern "#?")
- (dest "MagnifiCAD:Docs")
- (infos)
- )
-
- (copyfiles
- (source "Icons/")
- (pattern "#?")
- (dest "MagnifiCAD:Icons")
- )
- (complete 90)
-
- ; AREXX
- ;(set rexxdir
- ; (askdir
- ; (prompt "Where shall I put the ARexx scripts?")
- ; (default "REXX:")
- ; (newpath)
- ; )
- ;)
-
- ;(copyfiles
- ; (prompt "Copying ARexx scripts...")
- ; (pattern "#?.rexx")
- ; (source "ARexx/")
- ; (dest rexxdir)
- ;)
-
- (complete 100)
-