home *** CD-ROM | disk | FTP | other *** search
/ MACD 9 / MACD9.iso / PPC-Soft / Benoit / Install_Benoit < prev   
Encoding:
Text File  |  1997-12-11  |  6.9 KB  |  159 lines
  1. ;********************************************************************************
  2. ;      ____                        __   __
  3. ;     / __ \                      /_/ _/ /_
  4. ;    / /_/ /______ ______ ______ __  /  __/
  5. ;   / __  // ____// __  // __  // /  / /
  6. ;  / /_/ // __/_ / / / // /_/ // /_ / /_
  7. ; /_____//_____//_/ /_//_____//___//___/
  8. ;
  9. ; $VER: Benoit 0.35 (December-12-1997) 
  10. ; Installer by Robert C. Reiswig ©1997 
  11. ; Benoit ©1997 by phase5 digital products
  12. ;
  13. ; If you wish to use any part of this installer you must ask. May not be 
  14. ; integrated/placed into any other package! Changes, suggestions or problems:
  15. ; vgr@best.com
  16. ;********************************************************************************
  17. (set vernum1 (getversion "Benoit"))
  18. (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  19. (set Benoitver (cat ver1 "." rev1))
  20. (set where "ram:")
  21.  
  22. ;********************************************************************************
  23. ; Set Defaults Strings (English)
  24. ;********************************************************************************
  25. (if (= ver1 0) (set Benoitver ""))
  26. (set #about (cat "\nWelcome to Benoit " Benoitver "\nthe Fractal Image Renderer for CyberGraphX.\n\n\nPowerPC\n&\nMC68020/030/040/060 + FPU\n\n\n©1997 by phase5 digital products") )
  27. (set #needfpu "\n\nBenoit must have a FPU (Floating Point Unit) to work. The installer has not found a FPU _or_ you are running an older version of the installer that does not have the FPU check option.\n\nIf you have a FPU please press 'Proceed'.")
  28. (set #todo-prompt "\nWhat would you like to do?\n")
  29. (set #copybin " Install/Update Benoit Program") 
  30. (set #copycoords " Copy Coordinate files") 
  31. (set #guide1 " Install Benoit.guide")
  32. (set #whereb "Where would you like to install the selected options? A directory called 'Benoit' will be created there.")
  33. (set #askcpu "\nWhat CPU does the machine have that you are installing Benoit on? The installer has found:\n")
  34. (set #byebye (cat "\nBenoit Install Complete!\n\n" ))
  35.  
  36. ;*********************************************************************************
  37. ; German Strings
  38. ;*********************************************************************************
  39. (if (= @language "deutsch")
  40. (
  41.  (set #about (cat "\nWillkommen zu Benoit " Benoitver "\ndem Fraktalbildgenerator für CyberGraphX.\n\n\nPowerPC\n&\nMC68020/030/040/060 + FPU\n\n\n©1997 by phase5 digital products") )
  42.  (set #needfpu "\n\nBenoit benötigt eine FPU (Floating Point Unit). Der Installer hat keine FPU gefunden _oder_ Sie haben eine veraltete Version des Installers, die nicht testen kann, ob eine FPU vorhanden ist.\n\nFalls Sie eine FPU haben, drücken Sie bitte 'Weiter'.")
  43.  (set #todo-prompt "\nWas möchten Sie gerne machen?\n")
  44.  (set #copybin " Installieren/Updaten des Benoit-Programms")
  45.  (set #copycoords " Kopieren der Koordinaten-Dateien")
  46.  (set #guide1 " Installieren der Benoit.guide")
  47.  (set #whereb "Wo möchten Sie die ausgewählten Optionen installieren? Ein Verzeichnis namens 'Benoit' wird dort erzeugt.")
  48.  (set #askcpu "\nWelche CPU hat der Computer, auf dem Sie Benoit installieren möchten? Der Installer hat gefunden:\n")
  49.  (set #byebye (cat "\nBenoit-Installation abgeschlossen!\n\n" ))
  50. )
  51. )
  52.  
  53. ;*********************************************************************************
  54. ; Welcome Message
  55. ;*********************************************************************************
  56. (message #about)  (welcome)
  57. (set fpu (database "fpu")) (if (= fpu "NOFPU") (message #needfpu))
  58.  
  59. ;*********************************************************************************
  60. ; Ask what to do
  61. ;*********************************************************************************
  62. (set ToDo (askoptions (choices  #copybin #copycoords #guide1) 
  63.                       (prompt #todo-prompt)
  64.                       (help #todo-prompt)
  65.                       (default whattodo)
  66.           )
  67. ) 
  68.  
  69. ;********************************************************************
  70. ; Double Check on the CPU
  71. ;********************************************************************
  72. (if (OR (IN ToDo 0) (IN ToDo 1) )
  73.  ( 
  74.   (set cpu (database "cpu"))
  75.   (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  76.   (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  77.   (if (= cpu 68040) (set #cpu 0)) 
  78.  
  79.   (if (= @installer-version 0)
  80.     (if (> (exists ("libs:68060.library")) 0) (set #cpu 0) )
  81.     (if (= cpu 68060) (set #cpu 0))
  82.   )
  83.  
  84.   (if (> (exists ("libs:PPC.library")) 0) (set #cpu 1) )
  85.  
  86.   (set cpuPick (askchoice (choices "68020/68030/68040/68060 + FPU" "PowerPC - PPC")
  87.                           (prompt #askcpu)
  88.                           (help   #askcpu)
  89.                           (default #cpu)
  90.                )
  91.   )
  92.  
  93.  )
  94. ); END CheckCPU
  95.  
  96. ;*********************************************************************************
  97. ; Ask where to put Benoit                                                           
  98. ;*********************************************************************************
  99. (if (OR (IN ToDo 0) (IN ToDo 1))
  100.  (
  101.    (set where   (askdir (prompt #whereb)
  102.                         (help   #whereb)
  103.                         (default "RAM:")
  104.                 )
  105.    )
  106.  )
  107. )
  108.  
  109. ;********************************************************************
  110. ; Copy Benoit bin if wanted 
  111. ;********************************************************************
  112. (if (IN ToDo 0) 
  113.  (  
  114.   (if (< (exists (tackon where "Benoit")) 2) (makedir (tackon where "Benoit") (infos)) )
  115.   (set whereBenoit (tackon where "Benoit")) 
  116.  
  117.   (if (exists "Benoit")
  118.    (if (= (exists (tackon whereBenoit "Benoit.info")) 0)  
  119.      (copyfiles (source "Benoit") (dest whereBenoit) (optional "nofail") (infos))
  120.      (copyfiles (source "Benoit") (dest whereBenoit) (optional "nofail"))
  121.    )
  122.  
  123.   )
  124.   
  125.   (if (= cpuPick 1) (copyfiles (source "Benoit.elf") (dest whereBenoit) (optional "nofail") (infos)) )
  126.  )
  127. )
  128.  
  129. ;********************************************************************
  130. ; Copy Coords
  131. ;*******************************************************************
  132. (if (IN ToDo 1) 
  133.  (  
  134.   (if (< (exists (tackon where "Benoit")) 2) (makedir (tackon where "Benoit") (infos)) )
  135.   (if (< (exists (tackon where "Benoit/Coords")) 2) (makedir (tackon where "Benoit/Coords") (infos)) )
  136.  
  137.   (copyfiles (source "Coords") (dest (tackon where "Benoit/Coords")) (all) (infos) (optional "nofail") ) 
  138.  )
  139. )
  140.  
  141.  
  142. ;********************************************************************
  143. ; Copy Coords
  144. ;*******************************************************************
  145. (if (IN ToDo 2) 
  146.  (  
  147.   (copyfiles (source "Benoit.guide") (dest whereBenoit) (infos) (optional "nofail") ) 
  148.  )
  149. )
  150.  
  151. ;*********************************************************************************
  152. ; Exit                                                           
  153. ;*********************************************************************************
  154. (set @default-dest (tackon where "Benoit"))
  155. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  156. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  157. (run (cat "run " #mpath "/multiview Benoit.guide") )
  158. (exit #byebye)
  159.