home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Hardware / CgxUpd422 / CGXV42_Update < prev    next >
Text File  |  1999-11-15  |  17KB  |  276 lines
  1. ;*****************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /      Update        / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  / V4.2
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ; S3           : CyberVision64/3D, CyberVision64
  10. ; Cirrus Logic : Picasso II, Picasso II+, Picasso IV, Spectrum 
  11. ;                 Piccolo, Piccolo SD64, Inferno
  12. ; Symbios (NCR): Retina BLT Z3,  DraCoAltais
  13. ; Texas Inst.  : CyberVisionPPC (Permedia), BlizzardVisionPPC (Permedia) 
  14. ;          
  15. ; CyberGraphX V4 ©1998, 1999 Vision Factory Development
  16. ; CyberGraphX V4 Installer ©1995,1996,1997,1998,1999 by Robert C. Reiswig 
  17. ; $VER: V4.2a (November-10-1999)
  18. ; 
  19. ; If you wish to use any part of this installer you must ask. May not be 
  20. ; integrated/placed into any other package! You may NOT change this in an way!
  21. ; You man NOT take or use the ENV definitions and use them without direct
  22. ; permission from me! Changes, suggestions or problems: vgr@best.com
  23. ;********************************************************************************
  24.  
  25. ;********************************************************************************
  26. ; Cyber Release & Boards
  27. ;********************************************************************************
  28. (set @user-level 2)
  29. (set #cyberver "V4 42.2")
  30. (set NoBoard 0)
  31. (set whereback "SYS:Storage")
  32.  
  33. ;(message (cat "CyberGraphX " #cyberver "\n~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  34. ;              "CyberVisionPPC & BlizzardVisionPPC\n\nCyberVision64/3D & CyberVision64\n\n"
  35. ;              "Picasso II(+) & Picasso IV & Inferno\n\n"
  36. ;              "Piccolo & Piccolo SD64 & Spectrum 28/24\n\nRetina BLT Z3 & DraCoAltais"
  37. ;         )
  38. ;)
  39.  
  40. (welcome)
  41. ;********************************************************************************
  42. ; Read All System information
  43. ;********************************************************************************
  44. (set vblank (database "vblank")) (set graphmem (database "graphics-mem"))
  45. (set totmem (database "total-mem")) (set osver (/ (getversion "LIBS:version.library") 65536))
  46. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  47. (set fastmem (- totmem graphmem))
  48. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  49. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  50. ( if (= osver 41) ( (set workbench "3.2")) )))))
  51. (set cgx_root "")  
  52. (if (= 2 (exists "CGraphX4" (noreq)))  (set cgx_root "CGraphX4"))
  53. (if (= 2 (exists "CGraphX41" (noreq)))  (set cgx_root "CGraphX41"))
  54. (if (= 2 (exists "CGraphX42" (noreq)))  (set cgx_root "CGraphX42"))
  55. (set diskname "CyberGraphX_4")
  56. (if (exists (tackon cgx_root "tools/spatch")) (set spatchbin (tackon cgx_root "tools/spatch")) )
  57. (if (exists (tackon cgx_root "spatch")) (set spatchbin (tackon cgx_root "spatch")) )
  58. (set tempdir "ram:CGX_V4_Temp1") (makedir tempdir)
  59. ;;(set cgx_root (tackon (cat diskname ":") cgx_root))
  60. (set cd_root "CGraphX4")
  61.  
  62. (set pick 0)
  63.  
  64. ;********************************************************************************
  65. ;English Strings
  66. ;********************************************************************************
  67. (set #askzorro "\nWhat type of machine is CyberGraphX V4 installed on?\n")
  68. (set #askcpu "\nWhat CPU does the machine have that you are updating CyberGraphX V4 on? The installer has found:\n")
  69. (set #wherelibs "Where are your CyberGraphX V4 libraries located? The default is 'SYS:Libs'")
  70. (set #todo-prompt "\nDo you wish to install:\n")
  71. (set #cgxmode-todo " CGXMode - Create & Change Screen Modes")
  72. (set #wheremode "Where do you wish to copy the CGXMode Program?")
  73. (set #whereshowcgxconfig "Where do you wish to copy the ShowCGXconfig Program?")
  74. (set #showcgxconfig " ShowCGXconfig - CGX Info Program")
  75.  
  76. ;*********** NEW English Strings:  Monday 01-Dec-97 *************************
  77. (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!")
  78.  
  79. ;*********** NEW English Strings:  Wednesday 21-Jan-98 **********************
  80. (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")
  81.  
  82. ;*********** NEW English Strings:  Wednesday 11-Mar-98 **********************
  83. (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?")
  84. (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?.")
  85. (set #agaquit "\nCyberGraphX install/update exiting.")
  86.  
  87. ;*********** NEW English Strings:  Thursday 22-Oct-98 **********************
  88. (set #needcd "\n\n\nPlease place your CyberGraphX V4 CDROM into your CDROM drive to continue.")
  89. (set #nobackup "\n\nThis installer will copy the correct new V4 Libs and Monitor to the correct places. It will also upgrade a _working_ V3 system to a V4 system. It does not do any back up currently.\n\nThis will not install V4 for the first time, it just _updates_ or _upgrades_ a CGX V3/V4 system.")
  90. (set #whatboard (cat "Please Select the Graphics Board you wish to update CyberGraphX Monitor File for. (*=Not Supported)"))
  91. (set #guide " CGX Docs - AmigaGuide file")
  92. (set #commy " CyberGraphX - Settings Tool")
  93. (set #wheredocs "Where do you wish to install the CGX AmigaGuide file?")
  94. (set #wherecomm "Where do you wish to install the CGX Settings Tool?")
  95. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  96.               "©1998-1999 by:\n\nVision Factory Development"
  97.           
  98.          )
  99. )
  100.  
  101. ;*********** NEW English Strings:  Sunday 21-Feb-99 14:35:46 **********************
  102. (set #workingpatching "\nCurrently patching the file:\n\n")
  103. (set #spatcherror1 "\n\nspatch has returned an error. Please read the error message in the 'spatch' window.\n\nspatch does not return the type of error back to the installer so you must read its error.\n\n The installer will let you continue but the CGX V4 install my not be complete, your base files may be bad.")
  104.  
  105. ;*********** NEW English Strings:  Wednesday 10-Nov-99 22:29:41 **********************
  106. (set #libupdate "\n\nThis is an intermediate CGX V4 release.\n\nThis will update the cgxsystem.library to V42.2 if needed. You will need the CGX V4 CDROM like the V4.1 update did. A full CGX V4.2 update will follow in the future.")
  107.  
  108. ;********************************************************************************
  109. ;German Strings by the King!
  110. ;********************************************************************************
  111. (if (= @language "deutsch")
  112. (
  113.  (set #nobackup "\n\nDieses Installationsskript kopiert die neuen V4 Bibliotheken und Monitore in die entsprechenden Verzeichnisse. Es wird keine Sicherung vorgenommen.\n\nEs ist keine V4 Erstinstallation, das V4 System wird nur _erneuert_ . Ein V2->V4 Update ist aber bereits in Arbeit.")
  114.  (set #askzorro "\nWelche Erweiterungsslots besitzt der Computer, auf dem Sie CyberGraphX V4 installieren ?\n")
  115.  (set #askcpu "\nWelchen Prozessor besitzt der Computer, auf dem Sie CyberGraphX V4 installieren wollen ? Der installer hat folgendes gefunden:\n")
  116.  (set #wherelibs "Wo befinden sich die CyberGraphX V4 Bibliotheken ? Standard ist 'SYS:Libs'")
  117.  (set #whatboard (cat "Bitte wählen Sie die Grafikkarte, deren CyberGraphX Monitordatei erneuern wollen:"))
  118.  (set #todo-prompt "\nWelches der folgenden Programme wollen Sie installieren: ?\n")
  119.  (set #cgxmode-todo " CGXMode - Erstellen & Ändern von Bildschirmmodis")
  120.  (set #wheremode "Wohin wollen Sie das CGXMode Programm kopiert haben?")
  121.  (set #whereshowcgxconfig "Wohin wollen Sie das ShowCGXconfig Programm kopiert haben?")
  122.  (set #showcgxconfig " ShowCGXconfig - CyberGraphX Informationsprogramm")
  123.  
  124. ;*********** NEW German Strings:  Monday 01-Dec-97 *************************
  125.  (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!")
  126.  
  127. ;*********** NEW German Strings:  Wednesday 11-Mar-98 **********************
  128.  (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?")
  129.  (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?.")
  130.  (set #agaquit "\nCyberGraphX Installation/Erneuerung endet.")
  131.  
  132. ;*********** NEW German Strings:  Wednesday 21-Jan-98 **********************
  133.  (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")
  134.  
  135. ;*********** NEW German Strings:  Thursday 22-Oct-98 **********************
  136.  (set #needcd "\n\n\nBitte legen Sie die CyberGraphX V4 CDROM in das CDROM Laufwerk ein, um fortzufahren.")
  137.  (set #nobackup "\n\nDieses Installationsskript kopiert die neuen V4 Bibliotheken and Monitortreiber in die entsprechenden Verzeichnisse. Es erneuert ebenso ein _vorhandenes_ V3 System auf V4. Es wird keine Sicherung der alten Dateien vorgenommen.\n\nDieses Skript kann nicht zur Erstinstallation verwendet werden, es _erneuert_ lediglich ein CGX V3/V4 System.")
  138.  (set #whatboard (cat "Bitte wählen Sie die Grafikkarte, deren CyberGraphX Monitortreiber Sie erneuern wollen. (*=Nicht unterstützt)"))
  139.  (set #guide " CGX Dokumentation - AmigaGuide Datei")
  140.  (set #commy " CyberGraphX - Einstellungs-Commodity")
  141.  (set #wheredocs "Wohin wollen Sie die CyberGraphX4 AmigaGuide Dokumentation installieren ?") 
  142.  (set #wherecomm "Wohin wollen Sie das CyberGraphX Commodity installieren ?")
  143.  (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  144.               "©1998-1999 by:\n\nVision Factory Development"
  145.           )
  146.  )
  147.  
  148. ;*********** NEW German Strings:  Sunday 21-Feb-99 14:35:46 **********************
  149. (set #workingpatching "\nMomentan bearbeitete Datei:\n\n")
  150. (set #spatcherror1 "\n\nspatch lieferte einen Fehler. Bitte lesen Sie die Fehlermeldung im 'spatch' Fenster.\n\nspatch lieferte keinen konkreten Fehlertyp.\n\n Das Installationsskript von CGX V4 kann fortgesetzt werden, aber die Installation ist dann möglicherweise unvollständig.")
  151.  
  152. ;*********** NEW German Strings:  Wednesday 10-Nov-99 22:29:41 **********************
  153. (set #libupdate "\n\nDies ist ein Teil des CGX V4.2 Updates.\n\nEs erneuert die cgxsystem.library auf Version 42.2. Es wird die CGX V4 CDROM benötigt wie auch schon beim V4.1 Update. Ein vollständiges CGX V4.2 Update wird in absehbarer Zeit folgen.")
  154.  
  155. )
  156. )
  157.  
  158. ;********************************************************************************
  159. ; French Strings by Gregory Eycken <geycken@geocities.com>
  160. ;********************************************************************************
  161. (if (= @language "français")
  162. (
  163.  (set #nobackup "\n\nCe script d'installation va copier les nouvelles bibliothèques et les nouveaux moniteurs de CyberGraphX V4 aux endroits adéquats. Il n'effectuera aucun archivage.\n\nCe script n'est pas prévu pour installer CyberGraphX V4 pour la première fois, il ne peut faire que la _mise à jour_ d'un système CyberGraphX V4 existant.\nUne mise à jour V2->V4 est à l'étude.")
  164.  (set #askzorro "\nSur quel type d'ordinateur CyberGraphX V4 est-il installé?\n")
  165.  (set #askcpu "\nQuel est le processeur de l'ordinateur sur lequel vous voulez mettre à jour CyberGraphX V4? L'installeur a trouvé :\n")
  166.  (set #wherelibs "Où sont installées les bibliothèques de CyberGraphX V4? Par défaut, c'est 'SYS:Libs'.")
  167.  (set #whatboard (cat "Veuillez sélectionner la carte graphique dont vous voulez mettre le fichier moniteur à jour :"))
  168.  (set #todo-prompt "\nDésirez-vous installer :\n")
  169.  (set #cgxmode-todo " CGXMode - Créer et modifier les modes d'écran")
  170.  (set #wheremode "Où désirez-vous installer le programme CGXMode?")
  171.  (set #whereshowcgxconfig "Où désirez-vous installer le programme ShowCGXconfig?")
  172.  (set #showcgxconfig " ShowCGXconfig - Programme d'informations CyberGraphX")
  173. )
  174. )
  175.  
  176. ;********************************************************************************
  177. ; Start Update
  178. ;********************************************************************************
  179. (askdisk (dest diskname) (prompt #needcd) (help #needcd) )
  180. (message #by)
  181. ;(message #nobackup)
  182. (message #libupdate)
  183.  
  184.  
  185. ;********************************************************************
  186. ; Double Check on the CPU
  187. ;********************************************************************
  188. (procedure askaboutcpu
  189.  
  190. (set cpu (database "cpu"))
  191. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  192. (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  193. (if (= cpu 68040) (set #cpu 1)) (if (= cpu 68060) (set #cpu 1)) 
  194. (if (= @installer-version 0)
  195.   (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 1) )
  196.   (if (= cpu 68060) (set #cpu 1))
  197. )
  198. ;;(if (> (exists ("libs:PPC.library")) 0) (set #cpu 2) )
  199.  
  200. (set cpuPick (askchoice (choices "68020 or 68030" "68040 or 68060") ; "PPC with 68040 or 68060")
  201.             (prompt #askcpu)
  202.                     (help   #askcpu)
  203.                   (default #cpu)
  204.       )
  205. )
  206.  
  207. (if (= cpuPick 0) ((set cpuadd ".020") (set cpuadd-1 ".020")) ) 
  208. (if (= cpuPick 1) ((set cpuadd ".040") (set cpuadd-1 ".040")) )
  209. ;;(if (= cpuPick 2) ((set cpuadd ".040") (set cpuadd-1 ".ppc")) )
  210.  
  211. ); END askaboutcpu
  212.  
  213. (askaboutcpu)
  214.  
  215. ;*******************************************************************
  216. ;  ASK where cybergfx libs are
  217. ;*******************************************************************
  218. (set wherelibs   (askdir (prompt #wherelibs)
  219.              (help   #wherelibs)
  220.                   (default "SYS:Libs")
  221.          )
  222. )
  223.  
  224. ;*******************************************************************
  225. ;  Spatch Crap PROCEDURE
  226. ;*******************************************************************
  227. (procedure spatch
  228.  (set todo (cat spatchbin " \"-p" pch_file "\" " "\"-o" (tackon tempdir pch_out) "\"" " \"" pch_in "\""))
  229.  (working (cat #workingpatching pch_file)) 
  230.  (set err (run todo))
  231.  (if (> err 0) (message #spatcherror1) )
  232. )
  233.  
  234. ;*******************************************************************
  235. ;  Copy libs PROCEDURE
  236. ;*******************************************************************
  237. (procedure copy_lib
  238.   (set pch_file (tackon cgx_root (tackon Libs_Dir (cat Libs_Name CPU_name ".pch"))))
  239.    (if (exists pch_file)
  240.      ( 
  241.       (if (= Libs_Dir "") (set Libs_Dir "cgxsystemlib")) ; Add cgxsystemlib for CDROM dir incase .pch is in a <rootdir>
  242.       (set pch_in  (tackon (tackon (cat diskname ":") cd_root) (cat (tackon Libs_Dir Libs_Name) CPU_name)) )
  243.       (set pch_out (tackon tempdir (cat Libs_Name CPU_name)))  (spatch)
  244.       (set file_dir tempdir)
  245.      )
  246.  
  247.      (set file_dir (tackon cgx_root Libs_Dir))
  248.    )
  249.   (if (exists (tackon file_dir (cat Libs_Name CPU_name)))
  250.     (copylib (source (tackon file_dir (cat Libs_Name CPU_name))) (dest wherelibs) (newname Libs_Name) (optional "nofail") ) 
  251.   )
  252. )
  253.  
  254. ;*******************************************************************
  255. ;  Copy libs if there
  256. ;*******************************************************************
  257. (set Libs_Dir "")
  258. (if (= 2 (exists "cgxsystemlib" (noreq)))  (set Libs_Dir "cgxsystemlib"))
  259. (set Libs_Name "cgxsystem.library") (set CPU_name cpuadd-1) (copy_lib)
  260.  
  261. ;*******************************************************************
  262. ;  END
  263. ;*******************************************************************
  264. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  265. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  266.  
  267. (run (cat "run " #mpath "/multiview " (tackon cgx_root "Changes.txt")) )
  268. (run (cat "run delete " tempdir " all"))
  269.  
  270. (set @default-dest "sys:")
  271.  
  272. (set #done "Update Complete!")
  273. (if (= @language "deutsch") (set #done "Update fertig!") )
  274.  
  275. (exit #done)
  276.