home *** CD-ROM | disk | FTP | other *** search
/ Dream 44 / Amiga_Dream_44.iso / Amiga / workbench / pilotes / gfx / cgxv41_r68.lha / CGXV3_Update next >
Text File  |  1997-06-04  |  15KB  |  329 lines
  1. ;*****************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /      Update        / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /  V3
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ;                                                   /_/
  10. ; S3          : CyberVision64/3D, CyberVision64
  11. ; Cirrus Logic: PicassoII(+), Spectrum, Piccolo, Piccolo SD64, Inferno
  12. ;          
  13. ; CyberGraphX V3 BETA Update Installer ⌐1996,1997 by Robert C. Reiswig 
  14. ; $VER: V0.56 (June-03-1997)
  15. ; 
  16. ;--------------------------------------------------------------------------------
  17. ; You may not use any part of this installer without asking!
  18. ; Installer suggestions, problems or changes: vgr@best.com
  19. ;********************************************************************************
  20.  
  21. ;********************************************************************************
  22. ; Cyber Release & Boards
  23. ;********************************************************************************
  24. (set @user-level 2)
  25. (set #cyberver "V3 41.2")
  26. (set NoBoard 0)
  27. (set whereback "SYS:Storage")
  28. (message (cat "\nCyberGraphX " #cyberver "\n~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  29.               "\nCyberVision64/3D & CyberVision64\n\nPicasso II(+)\n\nSpectrum\n\nPiccolo & Piccolo SD64\n\nInferno"
  30.          )
  31. )
  32.  
  33. (welcome)
  34. ;********************************************************************************
  35. ; Read All System information
  36. ;********************************************************************************
  37. (set cpu (database "cpu")) (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
  38. (set vblank (database "vblank")) (set graphmem (database "graphics-mem"))
  39. (set totmem (database "total-mem")) (set osver (/ (getversion "LIBS:version.library") 65536))
  40. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  41. (set fastmem (- totmem graphmem))
  42. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  43. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  44. ( if (= osver 41) ( (set workbench "3.2")) )))))
  45. (set pick 0)
  46.  
  47. ;********************************************************************************
  48. ;English Strings
  49. ;********************************************************************************
  50. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  51.               "by:\n\nVision Factory Development"
  52.           
  53.          )
  54. )
  55. (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. A V2->V3 updater is in the works.")
  56. (set #askzorro "\nWhat type of machine is CyberGraphX V3 installed on?\n")
  57. (set #askcpu "\nWhat CPU does the machine have that you are updating CyberGraphX V3 on? The installer has found:\n")
  58. (set #wherelibs "Where are your CyberGraphX V3 libraries located? The default is 'SYS:Libs'")
  59. (set #whatboard (cat "\nPlease Select the Graphics Board you wish to update CyberGraphX Monitor File for:\n"))
  60. (set #todo-prompt "\nDo you wish to install:\n")
  61. (set #cgxmode-todo " CGXMode - Create & Change Screen Modes")
  62. (set #wheremode "Where do you wish to copy the CGXMode Program?")
  63. (set #whereshowcgxconfig "Where do you wish to copy the ShowCGXconfig Program?")
  64. (set #showcgxconfig " ShowCGXconfig - CGX Info Program")
  65.  
  66. ;********************************************************************************
  67. ;German Strings
  68. ;********************************************************************************
  69. (if (= @language "deutsch")
  70. (
  71.  (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_ . Ein V2->V3 Update ist aber bereits in Arbeit.")
  72.  (set #askzorro "\nWelche Erweiterungsslots besitzt der Computer, auf dem Sie CyberGraphX V3 installieren ?\n")
  73.  (set #askcpu "\nWelchen Prozessor besitzt der Computer, auf dem Sie CyberGraphX V3 installieren wollen ? Der installer hat folgendes gefunden:\n")
  74.  (set #wherelibs "Wo befinden sich die CyberGraphX V3 Bibliotheken ? Standard ist 'SYS:Libs'")
  75.  (set #whatboard (cat "\nBitte wΣhlen Sie die Grafikkarte, deren CyberGraphX Monitordatei erneuern wollen:\n"))
  76.  (set #todo-prompt "\nWelches der folgenden Programme wollen Sie installieren: ?\n")
  77.  (set #cgxmode-todo " CGXMode - Erstellen & ─ndern von Bildschirmmodis")
  78.  (set #wheremode "Wohin wollen Sie das CGXMode Programm kopiert haben?")
  79.  (set #whereshowcgxconfig "Wohin wollen Sie das ShowCGXconfig Programm kopiert haben?")
  80.  (set #showcgxconfig " ShowCGXconfig - CyberGraphX Informationsprogramm")
  81. )
  82. )
  83.  
  84. ;********************************************************************************
  85. ; Start Update
  86. ;********************************************************************************
  87. ;(message #by)
  88. (message #nobackup)
  89.  
  90.  
  91. ;********************************************************************
  92. ; Double Check on the CPU
  93. ;********************************************************************
  94. (set cpu (database "cpu"))
  95. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  96. (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  97. (if (= cpu 68040) (set #cpu 1)) (if (= cpu 68060) (set #cpu 1)) 
  98. (if (= @installer-version 0)
  99.   (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 1) )
  100.   (if (= cpu 68060) (set #cpu 1))
  101. )
  102.  
  103. (set cpuPick (askchoice (choices "68020 or 68030" "68040 or 68060")
  104.             (prompt #askcpu)
  105.                     (help   #askcpu)
  106.                   (default #cpu)
  107.       )
  108. )
  109.  
  110. (if (= cpuPick 0) (set cpuadd ".020")) (if (= cpuPick 1) (set cpuadd ".040"))
  111.  
  112. ;*******************************************************************
  113. ;  ASK where cybergfx libs are
  114. ;*******************************************************************
  115. (set wherelibs   (askdir (prompt #wherelibs)
  116.              (help   #wherelibs)
  117.                   (default "SYS:Libs")
  118.          )
  119. )
  120.  
  121. ;*******************************************************************
  122. ;  Copy libs if there
  123. ;*******************************************************************
  124. (if (exists (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd)) )
  125.   (copyfiles (source (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd))) (dest wherelibs) (newname "cgxsystem.library") (optional "nofail") ) 
  126. )
  127.  
  128. (if (exists (tackon "cgxmpeglib" (cat "cgxmpeg.library" cpuadd)) )
  129.   (copyfiles (source (tackon "cgxmpeglib" (cat "cgxmpeg.library" cpuadd))) (dest wherelibs) (newname "cgxmpeg.library") (optional "nofail") ) 
  130. )
  131.  
  132.  
  133. (if (exists (tackon "cgxbootpiclib" (cat "cgxbootpic.library" cpuadd)) )
  134.   (copyfiles (source (tackon "cgxbootpiclib" (cat "cgxbootpic.library" cpuadd))) (dest wherelibs) (newname "cgxbootpic.library") (optional "nofail") ) 
  135.  
  136.   (if (exists "cgxbootpiclib/cgxbootpic.library")
  137.     (copyfiles (source "cgxbootpiclib/cgxbootpic.library") (dest wherelibs) (optional "nofail") ) 
  138.   )
  139.  
  140. )
  141.  
  142. ;*******************************************************************
  143. ;  ASK what board to update
  144. ;*******************************************************************
  145. (set BGuess 0)
  146.  
  147. (if (> (exists ("devs:monitors/CVision3D")) 0)  (set BGuess (+ BGuess 1)) )
  148. (if (> (exists ("devs:monitors/CVision64")) 0)  (set BGuess (+ BGuess 2)) )
  149. (if (> (exists ("devs:monitors/PicassoII")) 0)  (set BGuess (+ BGuess 4)) )
  150. (if (> (exists ("devs:monitors/Spectrum")) 0)   (set BGuess (+ BGuess 8)) )
  151. (if (> (exists ("devs:monitors/Piccolo")) 0)    (set BGuess (+ BGuess 16)) )
  152. (if (> (exists ("devs:monitors/PiccoSD64")) 0)  (set BGuess (+ BGuess 32)) )
  153. (if (> (exists ("devs:monitors/Inferno")) 0)    (set BGuess (+ BGuess 64)) )
  154.  
  155.  
  156.  
  157.  
  158.   (set board (askoptions (choices  " CyberVision64/3D" " CyberVision64" " PicassoII(+)" " Spectrum"
  159.                                    " Piccolo" " Piccolo SD64" " Inferno"
  160.                           (prompt #whatboard)
  161.                       (help #whatboard)
  162.                           (default BGuess)
  163.                          )
  164.              )     
  165.   )
  166.  
  167.  
  168.   (if (IN board 0)
  169.    (
  170.      (set error (run "tools/ChkCV3DZorro"))
  171.      (if (> error 0) (set guessZ 1) (set guessZ 0) )
  172.   
  173.      (set pickZ (askchoice (choices "zorro2 - Amiga 2000/zorro2 Expansion Box" "zorro3 - Amiga 3000(T)/4000(T)")
  174.                        (prompt #askzorro)
  175.                        (help   #askzorro)
  176.                            (default guessZ)
  177.                 )
  178.      )
  179.   
  180.      (if (= pickZ 0) (set zadd ".Z2"))   (if (= pickZ 1) (set zadd ".Z3")) 
  181.  
  182.      (if (exists (tackon "S3Drivers" (cat "CVision3D" zadd)))
  183.       (if (= (exists (tackon "devs:monitors" "CVision3D.info")) 0)      
  184.        (copyfiles (source (tackon "S3Drivers" (cat "CVision3D" zadd))) (dest "devs:monitors") (newname "CVision3D") (infos) (optional "nofail") ) 
  185.        (copyfiles (source (tackon "S3Drivers" (cat "CVision3D" zadd))) (dest "devs:monitors") (newname "CVision3D") (optional "nofail") ) 
  186.       )      
  187.      )
  188.  
  189.      (if (exists (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd)) )
  190.        (copyfiles (source (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd))) (dest wherelibs) (newname "cgxvideo.library") (optional "nofail") ) 
  191.      )
  192.  
  193.      (if (exists (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" cpuadd)) )
  194.        (copyfiles (source (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" cpuadd))) (dest wherelibs) (newname "cgx3dvirgin.library") (optional "nofail") ) 
  195.      )
  196.  
  197.    )
  198.   )
  199.  
  200.  
  201.   (if (AND (exists (tackon "S3Drivers" "CVision64")) (IN board 1) )
  202.    (if (= (exists (tackon "devs:monitors" "CVision64.info")) 0)  
  203.     (copyfiles (source (tackon "S3Drivers" "CVision64")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  204.     (copyfiles (source (tackon "S3Drivers" "CVision64")) (dest "devs:monitors") (optional "nofail") ) 
  205.    )
  206.   )
  207.  
  208.   (if (AND (exists (tackon "CLDrivers" "PicassoII")) (IN board 2) )
  209.    (if (= (exists (tackon "devs:monitors" "PicassoII.info")) 0)  
  210.     (copyfiles (source (tackon "CLDrivers" "PicassoII")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  211.     (copyfiles (source (tackon "CLDrivers" "PicassoII")) (dest "devs:monitors") (optional "nofail") ) 
  212.    )
  213.   )
  214.  
  215.   (if (AND (exists (tackon "CLDrivers" "Spectrum")) (IN board 3) )
  216.    (if (= (exists (tackon "devs:monitors" "Spectrum.info")) 0)  
  217.     (copyfiles (source (tackon "CLDrivers" "Spectrum")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  218.     (copyfiles (source (tackon "CLDrivers" "Spectrum")) (dest "devs:monitors") (optional "nofail") ) 
  219.    )
  220.   )
  221.  
  222.   (if (AND (exists (tackon "CLDrivers" "Piccolo")) (IN board 4) )
  223.    (if (= (exists (tackon "devs:monitors" "Piccolo.info")) 0)  
  224.     (copyfiles (source (tackon "CLDrivers" "Piccolo")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  225.     (copyfiles (source (tackon "CLDrivers" "Piccolo")) (dest "devs:monitors") (optional "nofail") ) 
  226.    )
  227.   )
  228.  
  229.   (if (AND (exists (tackon "CLDrivers" "PiccoSD64")) (IN board 5) )
  230.    (if (= (exists (tackon "devs:monitors" "PiccoSD64.info")) 0)  
  231.     (copyfiles (source (tackon "CLDrivers" "PiccoSD64")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  232.     (copyfiles (source (tackon "CLDrivers" "PiccoSD64")) (dest "devs:monitors") (optional "nofail") ) 
  233.    )
  234.   )
  235.  
  236.   (if (AND (exists (tackon "CLDrivers" "Inferno")) (IN board 6) )
  237.    (if (= (exists (tackon "devs:monitors" "Infereno.info")) 0)  
  238.     (copyfiles (source (tackon "CLDrivers" "Infereno")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  239.     (copyfiles (source (tackon "CLDrivers" "Infereno")) (dest "devs:monitors") (optional "nofail") ) 
  240.    )
  241.   )
  242.  
  243.  
  244. ;*********************************************************************************
  245. ;* Ask user to install CGXMode 
  246. ;*********************************************************************************
  247. (set ToDo (askoptions (choices #cgxmode-todo #showcgxconfig)
  248.                       (prompt #todo-prompt)
  249.                       (help #todo-prompt)
  250.                       (default 3)
  251.           )
  252. ) 
  253.  
  254. (if (IN ToDo 0) 
  255.   ( 
  256.     (set wheremode   (askdir (prompt #wheremode)
  257.                              (help   #wheremode)
  258.                          (default "SYS:Prefs")
  259.              )
  260.     )
  261.  
  262.     (if (exists "CGXMode/CGXMode")
  263.      (if (= (exists (tackon wheremode "CGXMode.info")) 0)
  264.       (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (infos) (optional "nofail")) 
  265.       (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (optional "nofail"))          
  266.      )
  267.     )
  268.  
  269.     (if (IN board 6) (set TTBOARD "Inferno") ) 
  270.     (if (IN board 5) (set TTBOARD "PiccoSD64") ) 
  271.     (if (IN board 4) (set TTBOARD "Piccolo") ) 
  272.     (if (IN board 3) (set TTBOARD "Spectrum") ) 
  273.     (if (IN board 2) (set TTBOARD "PicassoII") ) 
  274.     (if (IN board 1) (set TTBOARD "CVision64") )    
  275.     (if (IN board 0) (set TTBOARD "CVision3D") ) 
  276.  
  277.  
  278.     (if (> board 0)
  279.       (tooltype    (dest (tackon wheremode "CGXMode")) (settooltype "BOARD" TTBOARD) ) 
  280.     )
  281.  
  282.     (if (= @language "deutsch")
  283.      (
  284.        (if (= (exists "Locale:Catalogs") 0) (makedir "sys:Locale/Catalogs") )
  285.        (if (= (exists (tackon "Locale:Catalogs" "deutsch")) 0) (makedir (tackon "sys:Locale/Catalogs" "deutsch")) )
  286.        (if (exists "CGXMode/catalogs/deutsch/cgxmode.catalog")
  287.          (copyfiles (source "CGXMode/catalogs/deutsch/cgxmode.catalog") (dest "sys:Locale/Catalogs/deutsch") )
  288.        )
  289.      )
  290.     )
  291.  
  292.   )
  293. )
  294.  
  295.  
  296. (if (IN ToDo 1) 
  297.   ( 
  298.     (set whereshowcgxconfig   (askdir (prompt #whereshowcgxconfig)
  299.                              (help   #whereshowcgxconfig)
  300.                          (default "SYS:Tools")
  301.              )
  302.     )
  303.  
  304.     (if (exists "tools/showcgxconfig")
  305.      (if (= (exists (tackon whereshowcgxconfig "CGXMode.info")) 0)
  306.       (copyfiles (source "tools/showcgxconfig")  (dest whereshowcgxconfig) (infos) (optional "nofail")) 
  307.       (copyfiles (source "tools/showcgxconfig")  (dest whereshowcgxconfig) (optional "nofail"))          
  308.      )
  309.     )
  310.  
  311.   )
  312. )
  313.  
  314.  
  315. ;*******************************************************************
  316. ;  END
  317. ;*******************************************************************
  318. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  319. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  320.  
  321. (run (cat "run " #mpath "/multiview Changes.txt") )
  322.  
  323. (set @default-dest "sys:")
  324.  
  325. (set #done "Update Complete!")
  326. (if (= @language "deutsch") (set #done "Update fertig!") )
  327.  
  328. (exit #done)
  329.