home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -in_the_mag- / graphics / metaview / metaview.install < prev    next >
Text File  |  1998-05-13  |  15KB  |  556 lines

  1. ;$VER: MetaView Install 2.4 (15.2.1998)
  2. ;Copyright ©1996/97/98 Henk Jonas
  3.  
  4. (set @app-name "MetaView V2.4")
  5. (set @sourcedir (pathonly @icon))
  6. (set #wbversion (getversion "libs:version.library"))
  7. (set #wbversion (/ #wbversion 65536))
  8.  
  9. (if (< #wbversion 37)
  10.   (abort "\n\nAmigaDOS 2.0 or better is needed this software.")
  11. )
  12.  
  13. (message "Henk Jonas\n"
  14.          "present:\n\n"
  15.          "MetaView\n\n"
  16.          "This programm show and convert gfx-metafiles,\n"
  17.          "use the amigametaformat.library\n"
  18.          "and is Shareware.")
  19. (set #user-level @user-level)
  20. (user 2)
  21. (set @parentdir
  22.   (askdir
  23.     (prompt "Please choice the destination for MetaView.\n"
  24.             "I will create a drawer with name MetaView there,\n"
  25.             "if it not exist.")
  26.     (help @askdir-help)
  27.     (default "RAM:")
  28.     (disk)
  29.   )
  30. )
  31. (user #user-level)
  32.  
  33. (set @default-dest (tackon @parentdir "MetaView"))
  34.  
  35. (makedir @default-dest
  36.   (prompt "I create the drawer 'MetaView'.")
  37.   (help @makedir-help)
  38.   (infos)
  39. )
  40.  
  41. (complete 5)
  42.  
  43. (copylib 
  44.   (prompt "Now i install the 'amigametaformat.library'.")
  45.   (source (tackon @sourcedir "libs/amigametaformat.library"))
  46.   (dest  "libs:")
  47.   (optional "nofail" "force" "askuser")
  48.   (help "This library are needed for this programm.\n"
  49.         "It is very importent to install this!")
  50. )
  51.  
  52. (complete 10)
  53.  
  54. (set #driver
  55.   (askoptions
  56.     (prompt "Now i install the different Outputdrivers for the 'amigametaformat.library'.")
  57.     (choices "Strip" "AMF" "CGM" "EPS" "GEM" "WordWorth" "DR2D" "HPGL" "AI" "JMF" "WMF")
  58.     (help "the options:\n"
  59.           "* Strip     : the driver for all renderings, like screen, ILBM, printer etc.\n"
  60.           "* AMF       : are for output as Amiga Metafile Format.\n"
  61.           "* CGM       : are for output as Computer Graphics Metafile.\n"
  62.           "* EPS       : are for output as Encapsulated PostScript.\n"
  63.           "* GEM       : are for output as GEM Metafile.\n"
  64.           "* WordWorth : create ARexx scripts, for use in WordWorth.\n"
  65.           "* DR2D      : are for output as DR2D (for PageStream, DrawStudio...)\n"
  66.           "* HPGL      : are for output as HPGL (for Plotters)\n"
  67.           "* AI        : are for output as AdobeIllustrator\n"
  68.           "* JMF       : are for output as JavaMetaFile (for www-publishing)\n"
  69.           "* WMF       : are for output as WindowsMetaFile\n")
  70.   )
  71. )
  72.  
  73. (complete 20)
  74.  
  75. (makedir "libs:AMF")
  76.  
  77. (if (IN #driver 0)
  78.   (copylib 
  79.     (prompt "Now i install the stripdriver for 'amigametaformat.library'.")
  80.     (source (tackon @sourcedir "libs/AMF/amigametaformat-strip.driver"))
  81.     (dest  "libs:AMF/")
  82.     (optional "nofail" "force" "askuser")
  83.     (help "strip for all renderings on screen, printer and ILBM-output\n")
  84.   )
  85. )
  86.  
  87. (complete 21)
  88.  
  89. (if (IN #driver 1)
  90.   (copylib 
  91.     (prompt "Now i install the filedriver for 'amigametaformat.library'.")
  92.     (source (tackon @sourcedir "libs/AMF/amigametaformat-file.driver"))
  93.     (dest  "libs:AMF/")
  94.     (optional "nofail" "force" "askuser")
  95.     (help "file for saving as Amiga Meta Format Metafile\n")
  96.   )
  97. )
  98.  
  99. (complete 22)
  100.  
  101. (if (IN #driver 2)
  102.   (copylib 
  103.     (prompt "Now i install the CGMdriver for 'amigametaformat.library'.")
  104.     (source (tackon @sourcedir "libs/AMF/amigametaformat-cgm.driver"))
  105.     (dest  "libs:AMF/")
  106.     (optional "nofail" "force" "askuser")
  107.     (help "CGM for saving as Computer Graphics Metafile\n")
  108.   )
  109. )
  110.  
  111. (complete 23)
  112.  
  113. (if (IN #driver 3)
  114.   (copylib 
  115.     (prompt "Now i install the EPSdriver for 'amigametaformat.library'.")
  116.     (source (tackon @sourcedir "libs/AMF/amigametaformat-eps.driver"))
  117.     (dest  "libs:AMF/")
  118.     (optional "nofail" "force" "askuser")
  119.     (help "EPS for saving as Encapsulated PostScript\n")
  120.   )
  121. )
  122.  
  123. (complete 24)
  124.  
  125. (if (IN #driver 4)
  126.   (copylib 
  127.     (prompt "Now i install the GEMdriver for 'amigametaformat.library'.")
  128.     (source (tackon @sourcedir "libs/AMF/amigametaformat-gem.driver"))
  129.     (dest  "libs:AMF/")
  130.     (optional "nofail" "force" "askuser")
  131.     (help "GEM for saving as GEM Metafile\n")
  132.   )
  133. )
  134.  
  135. (complete 25)
  136.  
  137. (if (IN #driver 5)
  138.   (copylib 
  139.     (prompt "Now i install the WordWorth-ARexx-driver for 'amigametaformat.library'.")
  140.     (source (tackon @sourcedir "libs/AMF/amigametaformat-ww.driver"))
  141.     (dest  "libs:AMF/")
  142.     (optional "nofail" "force" "askuser")
  143.     (help "WordWorth-ARexx-driver for creating WordWorth-ARexx-script\n")
  144.   )
  145. )
  146.  
  147. (complete 26)
  148.  
  149. (if (IN #driver 6)
  150.   (copylib 
  151.     (prompt "Now i install the DR2D-driver for 'amigametaformat.library'.")
  152.     (source (tackon @sourcedir "libs/AMF/amigametaformat-dr2d.driver"))
  153.     (dest  "libs:AMF/")
  154.     (optional "nofail" "force" "askuser")
  155.     (help "DR2D-driver for creating DR2D-Output\n")
  156.   )
  157. )
  158.  
  159. (complete 27)
  160.  
  161. (if (IN #driver 7)
  162.   (copylib 
  163.     (prompt "Now i install the HPGL-driver for 'amigametaformat.library'.")
  164.     (source (tackon @sourcedir "libs/AMF/amigametaformat-hpgl.driver"))
  165.     (dest  "libs:AMF/")
  166.     (optional "nofail" "force" "askuser")
  167.     (help "HPGL-driver for creating HPGL-Output\n")
  168.   )
  169. )
  170.  
  171. (complete 28)
  172.  
  173. (if (IN #driver 8)
  174.   (copylib 
  175.     (prompt "Now i install the AI-driver for 'amigametaformat.library'.")
  176.     (source (tackon @sourcedir "libs/AMF/amigametaformat-ai.driver"))
  177.     (dest  "libs:AMF/")
  178.     (optional "nofail" "force" "askuser")
  179.     (help "AI-driver for creating AI-Output\n")
  180.   )
  181. )
  182.  
  183. (complete 29)
  184.  
  185. (if (IN #driver 9)
  186.   (copylib 
  187.     (prompt "Now i install the JMF-driver for 'amigametaformat.library'.")
  188.     (source (tackon @sourcedir "libs/AMF/amigametaformat-jmf.driver"))
  189.     (dest  "libs:AMF/")
  190.     (optional "nofail" "force" "askuser")
  191.     (help "JMF-driver for creating JMF-Output\n")
  192.   )
  193. )
  194.  
  195. (complete 30)
  196.  
  197. (if (IN #driver 10)
  198.   (copylib 
  199.     (prompt "Now i install the WMF-driver for 'amigametaformat.library'.")
  200.     (source (tackon @sourcedir "libs/AMF/amigametaformat-wmf.driver"))
  201.     (dest  "libs:AMF/")
  202.     (optional "nofail" "force" "askuser")
  203.     (help "WMF-driver for creating WMF-Output\n")
  204.   )
  205. )
  206.  
  207. (complete 40)
  208.  
  209. (copyfiles
  210.   (prompt "copy programm")
  211.   (source (tackon @sourcedir "MetaView"))
  212.   (dest @default-dest)
  213.   (infos)
  214.   (help "Now, i want copy the programm.")
  215. )
  216.  
  217. (complete 50)
  218.  
  219. (copyfiles
  220.   (prompt "copy MetaView.doc")
  221.   (source (tackon @sourcedir "MetaView.doc"))
  222.   (dest @default-dest)
  223.   (infos)
  224.   (help "Now, i want copy the MetaView.doc.")
  225. )
  226.  
  227. (complete 60)
  228.  
  229. (user 2)
  230. (set #language
  231.   (askoptions
  232.     (prompt "Now i copy the guide for MetaView.\n"
  233.             "What is your favorite language?")
  234.     (choices "English" "Deutsch" "Español" "Polski" "Ceská")
  235.     (help @askoptions-help)
  236.   )
  237. )
  238. (user #user-level)
  239.  
  240. (complete 61)
  241.  
  242. (if (IN #language 0)
  243.   (copyfiles
  244.     (prompt "copy english MetaView.guide")
  245.     (source (tackon @sourcedir "MetaView.guide"))
  246.     (dest @default-dest)
  247.     (infos)
  248.     (help "Now, i want copy the english MetaView.guide.")
  249.   )
  250. )
  251.  
  252. (complete 62)
  253.  
  254. (if (IN #language 1)
  255.   (copyfiles
  256.     (prompt "copy german MetaView.guide")
  257.     (source (tackon @sourcedir "translations/MetaView_deutsch.guide"))
  258.     (dest @default-dest)
  259.     (infos)
  260.     (help "Now, i want copy the german MetaView.guide.")
  261.   )
  262. )
  263.  
  264. (complete 63)
  265.  
  266. (if (IN #language 2)
  267.   (copyfiles
  268.     (prompt "copy spanish MetaView.guide")
  269.     (source (tackon @sourcedir "translations/MetaView_espanol.guide"))
  270.     (dest @default-dest)
  271.     (infos)
  272.     (help "Now, i want copy the spanish MetaView.guide.")
  273.   )
  274. )
  275.  
  276. (complete 64)
  277.  
  278. (if (IN #language 3)
  279.   (copyfiles
  280.     (prompt "copy polish MetaView.guide")
  281.     (source (tackon @sourcedir "translations/MetaView_polski.guide"))
  282.     (dest @default-dest)
  283.     (infos)
  284.     (help "Now, i want copy the polish MetaView.guide.")
  285.   )
  286. )
  287.  
  288. (complete 65)
  289.  
  290. (if (IN #language 4)
  291.   (copyfiles
  292.     (prompt "copy czech MetaView.guide")
  293.     (source (tackon @sourcedir "translations/MetaView_ceska.guide"))
  294.     (dest @default-dest)
  295.     (infos)
  296.     (help "Now, i want copy the czech MetaView.guide.")
  297.   )
  298. )
  299.  
  300. (complete 70)
  301.  
  302. (copyfiles
  303.   (prompt "copy amigametaformat.readme")
  304.   (source (tackon @sourcedir "libs/amigametaformat.readme"))
  305.   (dest @default-dest)
  306.   (infos)
  307.   (help "Now, i want copy the amigametaformat.readme.")
  308. )
  309.  
  310. (complete 80)
  311.  
  312. (copyfiles
  313.   (prompt "copy ARexx-Examples")
  314.   (source (tackon @sourcedir "ARexx-Examples"))
  315.   (dest (tackon @default-dest "ARexx-Examples"))
  316.   (files)
  317.   (all)
  318.   (infos)
  319.   (help "Now, i want copy some ARexx-Examples.")
  320. )
  321.  
  322. (user 2)
  323. (if (= 1 (askbool
  324.             (prompt "Do you have DrawStudio installed,\n"
  325.                     "and want to im- and export gfx\n"
  326.                     "with MetaView?")
  327.             (choices "Yes" "No")
  328.             (help "I want install to ARexx scripts for import and export\n"
  329.                   "graphics in DrawStudio with MetaView")
  330.          )
  331.     )
  332.     (
  333.        (set #dspath
  334.           (askdir
  335.             (prompt "Please choose the DrawStudio ARexx scripts drawer.")
  336.             (help "I want install to ARexx scripts for import and export\n"
  337.                   "graphics in DrawStudio with MetaView")
  338.             (default "Rexx:")
  339.             (disk)
  340.           )
  341.        )
  342.        (copyfiles
  343.          (prompt "copy DrawStudio import script")
  344.          (source (tackon @sourcedir "ARexx-Examples/DrawStudio_Import.dsrx"))
  345.          (dest #dspath)
  346.        )
  347.        (copyfiles
  348.          (prompt "copy DrawStudio export script")
  349.          (source (tackon @sourcedir "ARexx-Examples/DrawStudio_Export.dsrx"))
  350.          (dest #dspath)
  351.        )
  352.     )
  353. )
  354.  
  355. (if (= 1 (askbool
  356.             (prompt "Do you have PageStream 3.x installed,\n"
  357.                     "and want to import gfx with MetaView?")
  358.             (choices "Yes" "No")
  359.             (help "I want install to ARexx scripts for import\n"
  360.                   "graphics in PageStream with MetaView")
  361.          )
  362.     )
  363.     (
  364.        (set #pspath
  365.           (askdir
  366.             (prompt "Please choose the PageStream ARexx scripts drawer.")
  367.             (help "I want install to ARexx scripts for import\n"
  368.                   "graphics in PageStream with MetaView")
  369.             (default "Rexx:")
  370.             (disk)
  371.           )
  372.        )
  373.        (copyfiles
  374.          (prompt "copy PageStream import script")
  375.          (source (tackon @sourcedir "ARexx-Examples/PageStream_Import.rexx"))
  376.          (dest #pspath)
  377.        )
  378.     )
  379. )
  380.  
  381. (if (= 1 (askbool
  382.             (prompt "Do you have WordWorth installed,\n"
  383.                     "and want to import gfx with MetaView?")
  384.             (choices "Yes" "No")
  385.             (help "I want install to ARexx scripts for import\n"
  386.                   "graphics in WordWorth with MetaView")
  387.          )
  388.     )
  389.     (
  390.        (set #wwpath
  391.           (askdir
  392.             (prompt "Please choose the WordWorth ARexx scripts drawer.")
  393.             (help "I want install to ARexx scripts for import\n"
  394.                   "graphics in WordWorth with MetaView")
  395.             (default "Rexx:")
  396.             (disk)
  397.           )
  398.        )
  399.        (copyfiles
  400.          (prompt "copy WordWorth import script")
  401.          (source (tackon @sourcedir "ARexx-Examples/WordWorth_Import_gfx.rexx"))
  402.          (dest #wwpath)
  403.        )
  404.     )
  405. )
  406.  
  407. (if (= 1 (askbool
  408.             (prompt "Do you have FinalWriter installed,\n"
  409.                     "and want to import gfx with MetaView?")
  410.             (choices "Yes" "No")
  411.             (help "I want install to ARexx scripts for import\n"
  412.                   "graphics in FinalWriter with MetaView")
  413.          )
  414.     )
  415.     (
  416.        (set #fwpath
  417.           (askdir
  418.             (prompt "Please choose the FinalWriter ARexx scripts drawer.")
  419.             (help "I want install to ARexx scripts for import\n"
  420.                   "graphics in FinalWriter with MetaView")
  421.             (default "Rexx:")
  422.             (disk)
  423.           )
  424.        )
  425.        (copyfiles
  426.          (prompt "copy FinalWriter import script")
  427.          (source (tackon @sourcedir "ARexx-Examples/FinalWriter_Import.rexx"))
  428.          (dest #fwpath)
  429.        )
  430.     )
  431. )
  432. (user #user-level)
  433.  
  434.  
  435. (if (= 1 (askbool
  436.             (prompt "Should i copy the example files?")
  437.             (choices "Copy" "Skip")
  438.             (help @askbool-help)
  439.             (default 1)
  440.          )
  441.     )
  442.     (copyfiles
  443.       (prompt "copy Examples")
  444.       (source (tackon @sourcedir "Examples"))
  445.       (dest (tackon @default-dest "Examples"))
  446.       (files)
  447.       (all)
  448.       (infos)
  449.       (help "Now, i want copy some Examples.")
  450.     )
  451. )
  452.  
  453. (complete 85)
  454.  
  455. (set #osvernum (getversion))
  456. (set #osver (/ #osvernum 65536))
  457. (set #osrev (- #osvernum (* #osver 65536) ) )
  458. (set #oldpatchvernum (getversion "c:SetPatch"))
  459. (set #newpatchvernum (getversion (tackon @sourcedir "SetPatch43_6/SetPatch")))
  460.  
  461. (if (AND (> #osver 39) (< #oldpatchvernum #newpatchvernum))
  462.   (if (= 1 (askbool
  463.               (prompt "I want copy a new SetPatch (43.6) to your 'c:' directory.\n"
  464.                       "This Software are published from Amiga Technologie and\n"
  465.                       "fix also a bug on 'mathieeesingbas.library' in Kick 3.1.\n"
  466.                       "The old 'c:SetPatch' will renamed to 'c:SetPatch.old'.")
  467.               (choices "Copy" "Skip")
  468.               (help "Press 'Copy' for install the new SetPatch and 'Skip' for not install.\n"
  469.                     "I think you should install this Patch.\n"
  470.                     "But if you get a GURU on MetaView-startup you must!")
  471.               (default 1)
  472.            )
  473.       )
  474.       (
  475.         (rename "c:SetPatch" "c:SetPatch.old")
  476.         (copylib
  477.           (prompt "copy new SetPatch")
  478.           (source (tackon @sourcedir "SetPatch43_6/SetPatch"))
  479.           (dest  "c:")
  480.           (optional "nofail" "force" "askuser")
  481.           (help @copylib-help)
  482.         )
  483.       )
  484.   )
  485. )
  486.  
  487. (if (> #osver 38)
  488.   (copylib
  489.      (prompt "copy tabs.gadget")
  490.      (source (tackon @sourcedir "libs/gadgets/tabs.gadget"))
  491.      (dest  "libs:gadgets/")
  492.      (optional "nofail" "force" "askuser")
  493.      (help @copylib-help)
  494.   )
  495. )
  496.  
  497. (complete 90)
  498.  
  499. (if (= 1 (exists ("envarc:MetaView.path")))
  500.   (if (= 1 (askbool
  501.               (prompt "Should i update the MetaView.path environment variable?")
  502.               (choices "Update" "Skip")
  503.               (help "The ARexxScripts and the MetaView.datatype will use the variable for locate the executable.")
  504.               (default 1)
  505.            )
  506.       )
  507.     (
  508.       (textfile
  509.         (prompt "Create ENVARC: variable with path of MetaView")
  510.         (dest "envarc:MetaView.path")
  511.         (append (tackon @default-dest "Metaview"))
  512.         (help "The ARexxScripts and the Metaview.datatype will use the variable for locate the executable.")
  513.       )
  514.       (textfile
  515.         (prompt "Create ENV: variable with path of MetaView")
  516.         (dest "env:MetaView.path")
  517.         (append (tackon @default-dest "Metaview"))
  518.         (help "The ARexxScripts and the Metaview.datatype will use the variable for locate the executable.")
  519.       )
  520.     )
  521.   )
  522. )
  523.  
  524. (complete 95)
  525.  
  526. (user 2)
  527. (if (= 1 (exists (tackon @sourcedir "keyfile.metaview")))
  528.     (copyfiles
  529.       (prompt "copy keyfile")
  530.       (source (tackon @sourcedir "keyfile.metaview"))
  531.       (dest @default-dest)
  532.       (infos)
  533.       (help "Now i copy the keyfile.")
  534.     )
  535. )
  536. (if (= 0 (exists (tackon @default-dest "keyfile.metaview")))
  537.     (message
  538.        "Don`t forget to register!\n\n"
  539.        "Please send $20 or 30,- DM to me:\n\n"
  540.        "Henk Jonas\n"
  541.        "Zionskirchstr. 28\n"
  542.        "10119 Berlin\n"
  543.        "Germany"
  544.        (help "Look at MetaView.readme, MetaView.doc "
  545.              "or MetaView.guide for register")
  546.     )
  547. )
  548. (if (= 1 (exists (tackon @default-dest "keyfile.metaview")))
  549.     (message
  550.       "Thank you for register MetaView!"
  551.     )
  552. )
  553.  
  554. (complete 100)
  555.  
  556.