home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 15 / AACD15.ISO / AACD / Commercial / CGXV3_Elbox / CGXV3_Update < prev    next >
Text File  |  2000-10-25  |  16KB  |  322 lines
  1. ;*****************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /  ELBOX Update      / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /  V3
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ;                                                   /_/
  10. ; S3           : Generic ViRGE 86C325 & ViRGE/DX 82C375 Driver
  11. ;          
  12. ; CyberGraphX V3 ©1997-2000 Vision Factory Development
  13. ; CyberGraphX V3 Update Installer ©1995,1996,1997,1998,1999,2000 by Robert C. Reiswig 
  14. ; Mediator ©2000 by Elbox
  15. ; $VER: V0.78 (Oct-25-2000)
  16. ; 
  17. ; If you wish to use any part of this installer you must ask. May not be 
  18. ; integrated/placed into any other package! You may NOT change this in an way!
  19. ; You man NOT take or use the ENV definitions and use them without direct
  20. ; permission from me! Changes, suggestions or problems: rob@cgx.vgr.com
  21. ;********************************************************************************
  22.  
  23.  
  24.  
  25. ;********************************************************************************
  26. ; Cyber Release & Boards
  27. ;********************************************************************************
  28. (set @user-level 2)
  29. (set #cyberver "V3 41.2")
  30. (set NoBoard 0)
  31. (set whereback "SYS:Storage")
  32. (message (cat "CyberGraphX " #cyberver "\n~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  33.               "Generic PCI\n\nViRGE (86C325) / ViRGE/DX (86C375)\n\ndrivers for the Elbox Mediator"
  34.          )
  35. )
  36.  
  37. (welcome)
  38. ;********************************************************************************
  39. ; Read All System information
  40. ;********************************************************************************
  41. (set cpu (database "cpu")) (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
  42. (set vblank (database "vblank")) (set graphmem (database "graphics-mem"))
  43. (set totmem (database "total-mem")) (set osver (/ (getversion "LIBS:version.library") 65536))
  44. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  45. (set fastmem (- totmem graphmem))
  46. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  47. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  48. ( if (= osver 41) ( (set workbench "3.2")) )))))
  49. (set pick 0)
  50.  
  51. ;********************************************************************************
  52. ;English Strings
  53. ;********************************************************************************
  54. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  55.               "by:\n\nVision Factory Development"
  56.           
  57.          )
  58. )
  59. (set #nobackup "\n\nThis installer will copy the correct new V3 Libs and Monitor to the correct places. It will not do any backup currently.\n\nThis will not install V3 for the first time, it just _updates_ a V3 system.")
  60. (set #askzorro "\nWhat type of machine is CyberGraphX V3 installed on?\n")
  61. (set #askcpu "\nWhat CPU does the machine have that you are updating CyberGraphX V3 on? The installer has found:\n")
  62. (set #wherelibs "Where are your CyberGraphX V3 libraries located? The default is 'SYS:Libs'")
  63. (set #whatboard (cat "Please Select the Graphics Board you wish to update CyberGraphX Monitor File for:"))
  64. (set #todo-prompt "\nDo you wish to install:\n")
  65. (set #cgxmode-todo " CGXMode - Create & Change Screen Modes")
  66. (set #wheremode "Where do you wish to copy the CGXMode Program?")
  67. (set #whereshowcgxconfig "Where do you wish to copy the ShowCGXconfig Program?")
  68. (set #showcgxconfig " ShowCGXconfig - CGX Info Program")
  69. ;*********** NEW English Strings:  Monday 01-Dec-97 *************************
  70. (set #nocgxmode "\n\nOne of the graphic card(s) you selected does not currently support the use of CGXMode.\n\nA2410 or AGA(PPC)\n\nCGXMode can be use with all of the other CyberGraphX supported cards!")
  71. ;*********** NEW English Strings:  Wednesday 21-Jan-98 **********************
  72. (set #updatep4flash "\nTo use CyberGraphX with the Picasso IV you should be running version 2.0 or greater of the Picasso IV FlashROM.\n\nThe installer has found a version lower then 2.0.\n\nForm more information and newer FlashROMs you can contact:\nYour Dealer\nVillage Tronic\nVillage Tronic Web site\n")
  73. ;*********** NEW English Strings:  Wednesday 11-Mar-98 **********************
  74. (set #noppc1 "\n\nYou selected the PPC option for one of your CPUs. The installer did not find the 'libs:PPC.library'.\n\nCyberGraphX may not work correctly.\n\n Do you wish to reselect the CPU type?")
  75. (set #noppcaga "\nYou selected the 'AGA (PPC Only)' option when picking what graphics card (display device) to use with CyberGraphX. The installer did not find the 'libs:PPC.library'.\n\n The AGACGX driver needs a PPC card installed to work correctly.\n\nDo you wish to Abort the install now?.")
  76. (set #agaquit "\nCyberGraphX install/update exiting.")
  77.  
  78. ;*********** NEW English Strings: Monday 28-Aug-00 14:57:13 **********************
  79. (set #cgxv4 (cat "\nCheck out CyberGraphX V4 at:\nhttp://www.vgr.com/v4\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  80.                  "\n- Includes -\nCustom drivers for each PCI Elbox Card\nHardware blitter support\nCGXVideo support\nCGX Prefs Program\nLatest CGXMode\nCGXMode monitor database\nFully compatible with CGX V3\n68040 version of the CGX library")
  81. )
  82.  
  83.  
  84. ;********************************************************************************
  85. ;German Strings by the King!
  86. ;********************************************************************************
  87. (if (= @language "deutsch")
  88. (
  89.  (set #nobackup "\n\nDieses Installationsskript kopiert die neuen V3 Bibliotheken und Monitore in die entsprechenden Verzeichnisse. Es wird keine Sicherung vorgenommen.\n\nEs ist keine V3 Erstinstallation, das V3 System wird nur _erneuert_ .")
  90.  (set #askzorro "\nWelche Erweiterungsslots besitzt der Computer, auf dem Sie CyberGraphX V3 installieren ?\n")
  91.  (set #askcpu "\nWelchen Prozessor besitzt der Computer, auf dem Sie CyberGraphX V3 installieren wollen ? Der installer hat folgendes gefunden:\n")
  92.  (set #wherelibs "Wo befinden sich die CyberGraphX V3 Bibliotheken ? Standard ist 'SYS:Libs'")
  93.  (set #whatboard (cat "Bitte wählen Sie die Grafikkarte, deren CyberGraphX Monitordatei erneuern wollen:"))
  94.  (set #todo-prompt "\nWelches der folgenden Programme wollen Sie installieren: ?\n")
  95.  (set #cgxmode-todo " CGXMode - Erstellen & Ändern von Bildschirmmodis")
  96.  (set #wheremode "Wohin wollen Sie das CGXMode Programm kopiert haben?")
  97.  (set #whereshowcgxconfig "Wohin wollen Sie das ShowCGXconfig Programm kopiert haben?")
  98.  (set #showcgxconfig " ShowCGXconfig - CyberGraphX Informationsprogramm")
  99.  ;*********** NEW German Strings:  Monday 01-Dec-97 *************************
  100.  (set #nocgxmode "\n\nEine/Mehrere Grafikkarte(n), die Sie ausgewählt haben, wird/werden von CGXMode momentan nicht unterstützt.\n\nA2410 oder AGA(PPC)\n\nCGXMode kann mit allen anderen Karten, die CyberGraphX unterstützt, jedoch benutzt werden!")
  101.  ;*********** NEW English Strings:  Wednesday 21-Jan-98 **********************
  102.  (set #updatep4flash "\nUm CyberGraphX3 mit der PicassoIV zu benutzen, sollten sie auf jeden Fall die Version 2.0 oder größer des PicassoIV FlashROMs installieren.\n\nDas Installationsskript entdeckte eine ältere Version.\n\nFür weitere Informationen und eine neuere FlashROM Version kontaktieren Sie bitte:\nIhren Händler\nVillageTronic\ndie VillageTronic WWW Seite\n")
  103. )
  104. )
  105.  
  106. ;********************************************************************************
  107. ; French Strings by Gregory Eycken <geycken@geocities.com>
  108. ;********************************************************************************
  109. (if (= @language "français")
  110. (
  111.  (set #nobackup "\n\nCe script d'installation va copier les nouvelles bibliothèques et les nouveaux moniteurs de CyberGraphX V3 aux endroits adéquats. Il n'effectuera aucun archivage.\n\nCe script n'est pas prévu pour installer CyberGraphX V3 pour la première fois, il ne peut faire que la _mise à jour_ d'un système CyberGraphX V3 existant.")
  112.  (set #askzorro "\nSur quel type d'ordinateur CyberGraphX V3 est-il installé?\n")
  113.  (set #askcpu "\nQuel est le processeur de l'ordinateur sur lequel vous voulez mettre à jour CyberGraphX V3? L'installeur a trouvé :\n")
  114.  (set #wherelibs "Où sont installées les bibliothèques de CyberGraphX V3? Par défaut, c'est 'SYS:Libs'.")
  115.  (set #whatboard (cat "Veuillez sélectionner la carte graphique dont vous voulez mettre le fichier moniteur à jour :"))
  116.  (set #todo-prompt "\nDésirez-vous installer :\n")
  117.  (set #cgxmode-todo " CGXMode - Créer et modifier les modes d'écran")
  118.  (set #wheremode "Où désirez-vous installer le programme CGXMode?")
  119.  (set #whereshowcgxconfig "Où désirez-vous installer le programme ShowCGXconfig?")
  120.  (set #showcgxconfig " ShowCGXconfig - Programme d'informations CyberGraphX")
  121. )
  122. )
  123.  
  124. ;********************************************************************************
  125. ; Start Update
  126. ;********************************************************************************
  127. ;(message #by)
  128. (message #nobackup)
  129.  
  130.  
  131. ;*******************************************************************
  132. ; ASK what board to update
  133. ;*******************************************************************
  134. (set BGuess 0) (set AGA 0)
  135.  
  136. (if (> (exists ("devs:monitors/MediatorViRGE")) 0)  (set BGuess (+ BGuess 1)) )
  137.  
  138.  
  139.   (set board (askoptions (choices  " MediatorViRGE"  
  140.                           (prompt #whatboard)
  141.                       (help #whatboard)
  142.                           (default BGuess)
  143.                          )
  144.              )     
  145.   )
  146.  
  147.  
  148. ;********************************************************************
  149. ; Double Check on the CPU
  150. ;********************************************************************
  151. (procedure askaboutcpu
  152.  
  153. (set cpu (database "cpu"))
  154. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  155. (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  156. (if (= cpu 68040) (set #cpu 1)) (if (= cpu 68060) (set #cpu 1)) 
  157. (if (= @installer-version 0)
  158.   (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 1) )
  159.   (if (= cpu 68060) (set #cpu 1))
  160. )
  161. (if (> (exists ("libs:PPC.library")) 0) (set #cpu 2) )
  162.  
  163. (set cpuPick (askchoice (choices "68020 or 68030" "68040 or 68060")
  164.             (prompt #askcpu)
  165.                     (help   #askcpu)
  166.                   (default #cpu)
  167.       )
  168. )
  169.  
  170. (if (= cpuPick 0) ((set cpuadd ".020") (set cpuadd-1 ".020")) ) 
  171. (if (= cpuPick 1) ((set cpuadd ".040") (set cpuadd-1 ".040")) )
  172.  
  173. )
  174.  
  175. ;(askaboutcpu)
  176. (set cpuadd ".020") (set cpuadd-1 ".020")
  177.  
  178. ;*******************************************************************
  179. ;  ASK where cybergfx libs are
  180. ;*******************************************************************
  181. (set wherelibs   (askdir (prompt #wherelibs)
  182.              (help   #wherelibs)
  183.                   (default "SYS:Libs")
  184.          )
  185. )
  186.  
  187. ;*******************************************************************
  188. ;  Copy libs if there
  189. ;*******************************************************************
  190. (if (exists (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd-1)) )
  191.   (copyfiles (source (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd-1))) (dest wherelibs) (newname "cgxsystem.library") (optional "nofail") ) 
  192. )
  193.  
  194. (if (exists (tackon "cgxmpeglib" (cat "cgxmpeg.library" cpuadd)) )
  195.   (copyfiles (source (tackon "cgxmpeglib" (cat "cgxmpeg.library" cpuadd))) (dest wherelibs) (newname "cgxmpeg.library") (optional "nofail") ) 
  196. )
  197.  
  198.  
  199. (if (AND (exists "cgxbootpiclib/cgxbootpic.library") (= 0 (exists "libs:cgxbootpic.library")) )
  200.   (copyfiles (source "cgxbootpiclib/cgxbootpic.library") (dest wherelibs) (optional "nofail") ) 
  201. )
  202.  
  203. ;*******************************************************************
  204. ;  Installer monitor file and handle extra libs 
  205. ;*******************************************************************
  206.   (if (IN board 0)
  207.    (
  208.      (set zadd "")
  209.  
  210.      (if (exists (tackon "S3Drivers" (cat "MediatorViRGE" zadd)))
  211.       (if (= (exists (tackon "devs:monitors" "MediatorViRGE.info")) 0)      
  212.        (copyfiles (source (tackon "S3Drivers" (cat "MediatorViRGE" zadd))) (dest "devs:monitors") (infos) (optional "nofail") ) 
  213.        (copyfiles (source (tackon "S3Drivers" (cat "MediatorViRGE" zadd))) (dest "devs:monitors") (optional "nofail") ) 
  214.       )      
  215.      )
  216.  
  217.      (if (exists (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd)) )
  218.        (copyfiles (source (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd))) (dest wherelibs) (newname "cgxvideo.library") (optional "nofail") ) 
  219.      )
  220.  
  221.      (if (exists (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" "")) )
  222.        (copyfiles (source (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" ""))) (dest wherelibs) (newname "cgx3dvirgin.library") (optional "nofail") ) 
  223.      )
  224.  
  225.    )
  226.   )
  227.  
  228.  
  229.  
  230. ;*********************************************************************************
  231. ;* Ask user to install CGXMode 
  232. ;*********************************************************************************
  233. (set toolpick 3)
  234.  
  235. (if (OR (IN board 8) (IN board 10)) ;**Check&Msg for non CGXMode Drivers.
  236.  ( 
  237.   (message #nocgxmode)
  238.   (set toolpick 2)
  239.  )
  240. )
  241.  
  242. (set ToDo (askoptions (choices #cgxmode-todo #showcgxconfig)
  243.                       (prompt #todo-prompt)
  244.                       (help #todo-prompt)
  245.                       (default toolpick)
  246.           )
  247. ) 
  248.  
  249. (if (IN ToDo 0) 
  250.   ( 
  251.     (set wheremode   (askdir (prompt #wheremode)
  252.                              (help   #wheremode)
  253.                          (default "SYS:Prefs")
  254.              )
  255.     )
  256.  
  257.     (if (exists "CGXMode/CGXMode")
  258.      (if (= (exists (tackon wheremode "CGXMode.info")) 0)
  259.       (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (infos) (optional "nofail")) 
  260.       (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (optional "nofail"))          
  261.      )
  262.     )
  263.  
  264.     ;(if (IN board 0)  (set TTBOARD "MediatorViRGE") ) 
  265.  
  266.     ;(if (> board 0)
  267.     ;  (tooltype    (dest (tackon wheremode "CGXMode")) (settooltype "BOARD" TTBOARD) ) 
  268.     ;)
  269.  
  270.     (if (= @language "deutsch")
  271.      (
  272.        (if (= (exists "Locale:Catalogs") 0) (makedir "sys:Locale/Catalogs") )
  273.        (if (= (exists (tackon "Locale:Catalogs" "deutsch")) 0) (makedir (tackon "sys:Locale/Catalogs" "deutsch")) )
  274.        (if (exists "CGXMode/catalogs/deutsch/cgxmode.catalog")
  275.          (copyfiles (source "CGXMode/catalogs/deutsch/cgxmode.catalog") (dest "sys:Locale/Catalogs/deutsch") )
  276.        )
  277.      )
  278.     )
  279.  
  280.   )
  281. )
  282.  
  283.  
  284. (if (IN ToDo 1) 
  285.   ( 
  286.     (set whereshowcgxconfig   (askdir (prompt #whereshowcgxconfig)
  287.                              (help   #whereshowcgxconfig)
  288.                          (default "SYS:Tools")
  289.              )
  290.     )
  291.  
  292.     (if (exists "tools/showcgxconfig")
  293.      (if (= (exists (tackon whereshowcgxconfig "CGXMode.info")) 0)
  294.       (copyfiles (source "tools/showcgxconfig")  (dest whereshowcgxconfig) (infos) (optional "nofail")) 
  295.       (copyfiles (source "tools/showcgxconfig")  (dest whereshowcgxconfig) (optional "nofail"))          
  296.      )
  297.     )
  298.  
  299.   )
  300. )
  301.  
  302.  
  303.  
  304.  
  305.  
  306. ;*******************************************************************
  307. ;  END
  308. ;*******************************************************************
  309. (message #cgxv4)
  310.  
  311. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  312. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  313.  
  314. (run (cat "run " #mpath "/multiview ReadMe.txt") )
  315.  
  316. (set @default-dest "sys:")
  317.  
  318. (set #done "Update Complete!")
  319. (if (= @language "deutsch") (set #done "Update fertig!") )
  320.  
  321. (exit #done)
  322.