home *** CD-ROM | disk | FTP | other *** search
- ;$VER: MetaView Install 2.0 (8.2.1997)
- ;Copyright ©1996/97 Henk Jonas
-
- (set @app-name "MetaView V2.0")
- (set @sourcedir (pathonly @icon))
- (set #wbversion (getversion "libs:version.library"))
- (set #wbversion (/ #wbversion 65536))
-
- (if (< #wbversion 37)
- (abort "\n\nAmigaDOS 2.0 or better is needed this software.")
- )
-
- (message "Henk Jonas\npresent:\n\nMetaView\n\nThis programm show and convert gfx-metafiles,\nuse the amigametaformat.library\nand is Shareware.")
- (set user-level @user-level)
- (user 2)
- (set @parentdir
- (askdir
- (prompt "Please choice the destination for MetaView.\nI will create a drawer with name MetaView there.")
- (help @askdir-help)
- (default "RAM:")
- (disk)
- )
- )
- (user user-level)
-
- (set @default-dest (tackon @parentdir "MetaView"))
-
- (makedir @default-dest
- (prompt "Die Schublade 'MetaView' wird erzeugt.")
- (help @makedir-help)
- (infos)
- )
-
- (complete 5)
-
- (copylib
- (prompt "Now i install the 'amigametaformat.library'.")
- (source (tackon @sourcedir "libs/amigametaformat.library"))
- (dest "libs:")
- (optional "nofail" "force" "askuser")
- (help "This library are needed for this programm.\nIt is very importent to install this!")
- )
-
- (complete 15)
-
- (set driver
- (askoptions
- (prompt "Now i install the different Outputdrivers for the 'amigametaformat.library'.")
- (choices "Window" "Region" "AMF" "CGM" "EPS" "GEM" "WordWorth" "DR2D" "HPGL")
- (help "the options:\n"
- "* Window : are for output in windows, it`s very importent.\n"
- "* Region : are for all other drawingoutput like printer or IFF-ILBM files, it`s also very importent.\n"
- "* AMF : are for output as Amiga Metafile Format.\n"
- "* CGM : are for output as Computer Graphics Metafile.\n"
- "* EPS : are for output as Encapsulated PostScript.\n"
- "* GEM : are for output as GEM Metafile.\n"
- "* WordWorth : create ARexx scripts, for use in WordWorth.\n"
- "* DR2D : are for output as DR2D (for PageStream, DrawStudio...)\n"
- "* HPGL : are for output as HPGL (for Plotters)\n")
- )
- )
-
- (complete 20)
-
- (makedir "libs:AMF")
-
- (if (IN driver 0)
- (copylib
- (prompt "Now i install the windowdriver for 'amigametaformat.library'.")
- (source (tackon @sourcedir "libs/AMF/amigametaformat-window.driver"))
- (dest "libs:AMF/")
- (optional "nofail" "force" "askuser")
- (help "windowdriver for drawing in windows\n")
- )
- )
-
- (complete 25)
-
- (if (IN driver 1)
- (copylib
- (prompt "Now i install the regiondriver for 'amigametaformat.library'.")
- (source (tackon @sourcedir "libs/AMF/amigametaformat-region.driver"))
- (dest "libs:AMF/")
- (optional "nofail" "force" "askuser")
- (help "regiondriver for printing and saving as ILBM files\n")
- )
- )
-
- (complete 30)
-
- (if (IN driver 2)
- (copylib
- (prompt "Now i install the filedriver for 'amigametaformat.library'.")
- (source (tackon @sourcedir "libs/AMF/amigametaformat-file.driver"))
- (dest "libs:AMF/")
- (optional "nofail" "force" "askuser")
- (help "file for saving as Amiga Meta Format Metafile\n")
- )
- )
-
- (complete 35)
-
- (if (IN driver 3)
- (copylib
- (prompt "Now i install the CGMdriver for 'amigametaformat.library'.")
- (source (tackon @sourcedir "libs/AMF/amigametaformat-cgm.driver"))
- (dest "libs:AMF/")
- (optional "nofail" "force" "askuser")
- (help "CGM for saving as Computer Graphics Metafile\n")
- )
- )
-
- (complete 40)
-
- (if (IN driver 4)
- (copylib
- (prompt "Now i install the EPSdriver for 'amigametaformat.library'.")
- (source (tackon @sourcedir "libs/AMF/amigametaformat-eps.driver"))
- (dest "libs:AMF/")
- (optional "nofail" "force" "askuser")
- (help "EPS for saving as Encapsulated PostScript\n")
- )
- )
-
- (complete 45)
-
- (if (IN driver 5)
- (copylib
- (prompt "Now i install the GEMdriver for 'amigametaformat.library'.")
- (source (tackon @sourcedir "libs/AMF/amigametaformat-gem.driver"))
- (dest "libs:AMF/")
- (optional "nofail" "force" "askuser")
- (help "GEM for saving as GEM Metafile\n")
- )
- )
-
- (complete 50)
-
- (if (IN driver 6)
- (copylib
- (prompt "Now i install the WordWorth-ARexx-driver for 'amigametaformat.library'.")
- (source (tackon @sourcedir "libs/AMF/amigametaformat-ww.driver"))
- (dest "libs:AMF/")
- (optional "nofail" "force" "askuser")
- (help "WordWorth-ARexx-driver for creating WordWorth-ARexx-script\n")
- )
- )
-
- (complete 55)
-
- (if (IN driver 7)
- (copylib
- (prompt "Now i install the DR2D-driver for 'amigametaformat.library'.")
- (source (tackon @sourcedir "libs/AMF/amigametaformat-dr2d.driver"))
- (dest "libs:AMF/")
- (optional "nofail" "force" "askuser")
- (help "DR2D-driver for creating DR2D-Output\n")
- )
- )
-
- (complete 60)
-
- (if (IN driver 8)
- (copylib
- (prompt "Now i install the HPGL-driver for 'amigametaformat.library'.")
- (source (tackon @sourcedir "libs/AMF/amigametaformat-hpgl.driver"))
- (dest "libs:AMF/")
- (optional "nofail" "force" "askuser")
- (help "HPGL-driver for creating HPGL-Output\n")
- )
- )
-
- (complete 65)
-
- (copyfiles
- (prompt "copy programm")
- (source (tackon @sourcedir "MetaView"))
- (dest @default-dest)
- (infos)
- (help "Now i copy the programm.")
- )
-
- (complete 70)
-
- (copyfiles
- (prompt "copy MetaView.readme")
- (source (tackon @sourcedir "MetaView.readme"))
- (dest @default-dest)
- (infos)
- (help "Now i copy the MetaView.readme.")
- )
-
- (complete 75)
-
- (copyfiles
- (prompt "copy MetaView.guide")
- (source (tackon @sourcedir "MetaView.guide"))
- (dest @default-dest)
- (infos)
- (help "Now i copy the MetaView.guide.")
- )
-
- (complete 80)
-
- (copyfiles
- (prompt "copy amigametaformat.readme")
- (source (tackon @sourcedir "libs/amigametaformat.readme"))
- (dest @default-dest)
- (infos)
- (help "Now i copy the amigametformat.readme.")
- )
-
- (complete 85)
-
- (copyfiles
- (prompt "copy ARexx-Examples")
- (source (tackon @sourcedir "ARexx-Examples"))
- (dest (tackon @default-dest "ARexx-Examples"))
- (files)
- (all)
- (infos)
- (help "Now i copy some ARexx-Examples.")
- )
-
- (complete 90)
-
- (copyfiles
- (prompt "copy Examples")
- (source (tackon @sourcedir "Examples"))
- (dest (tackon @default-dest "Examples"))
- (files)
- (all)
- (infos)
- (help "Now i copy some Examples.")
- )
-
- (complete 95)
-
- (user 2)
- (if (exists (tackon @sourcedir "keyfile.metaview"))
- (copyfiles
- (prompt "copy keyfile")
- (source (tackon @sourcedir "keyfile.metaview"))
- (dest @default-dest)
- (infos)
- (help "Now i copy the keyfile.")
- )
- (message
- ("Don`t forget to register!")
- (help "Look at .readme or .guide for register")
- )
- )
-
- (complete 100)
-
-