home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 6 / Sonderheft_6-96.iso / demo-versionen / picmanager / install_hd < prev    next >
Text File  |  1996-11-03  |  6KB  |  288 lines
  1. ; $VER: Install_PMPro V1.2 (15.1.96)
  2. ; J. Schaefer / Andreas R. Kleinert
  3.  
  4. (set @app-name "Picture Manager Professional")
  5.  
  6. (set OS_VER (/ (getversion) 65536) )
  7.  
  8. (if(< OS_VER 37)
  9.   (abort "Sie benoetigen mindestens Kickstart/OS V2.04 mit WB 2.1!")
  10. )
  11.  
  12. ; in jedem Fall
  13.  
  14. (makedir "ENV:SuperView-Library")
  15. (makedir "ENVARC:SuperView-Library")
  16.  
  17.  
  18. ; Pfad erfragen
  19.  
  20. (set PMPROPath (askdir
  21.                   (prompt "Wohin soll installiert werden ?"
  22.                           "\n(Eine Schublade PicManager wird darin erzeugt)")
  23.                   (help @askdir-help)
  24.                   (newpath)
  25.                   (default "Work:")
  26.                 )
  27. )
  28.  
  29. ; Pfad setzen
  30.  
  31. (set @default-dest PMProPath)
  32.  
  33.  
  34. ; Ueberpruefen, ob versucht wird, in die Ram-Disk zu isntallieren
  35.  
  36. (if(= (getdevice PMProPath) "RAM")
  37.     (abort "Es würde keinen Sinn machen, in die RAM-Disk zu installieren!")
  38. )
  39.  
  40.  
  41. ; freien HD-Speicher ueberpruefen
  42.  
  43. (set dskspace (getdiskspace PMProPath))
  44.  
  45. (if(<> dskspace -1)
  46.  (if(< dskspace 4000000)
  47.      (abort "Im Datenpfad sind weniger als 4 MB frei ("dskspace") !")
  48.  )
  49. )
  50.  
  51. (set dskspace (getdiskspace "SYS:"))
  52.  
  53. (if(<> dskspace -1)
  54.  (if(< dskspace 500000)
  55.      (abort "Im der Systempartition (Workbench) sind weniger als 500kB frei ("dskspace") !")
  56.  )
  57. )  
  58.  
  59.  
  60. ; Verzeichnis PicManager anlegen
  61.  
  62. (makedir (tackon PMProPath "PicManager"))
  63.  
  64.  
  65. ; alte Files loeschen, falls welche vorhanden sind
  66.  
  67. (delete (tackon PMProPath "PicManager/Autostart.prefs"       ) force)
  68. (delete (tackon PMProPath "PicManager/Autostart.prefs.info"  ) force)
  69.  
  70. (delete (tackon PMProPath "PicManager/PV.config"             ) force)
  71. (delete (tackon PMProPath "PicManager/PV.config.info"        ) force)
  72.  
  73. (delete (tackon PMProPath "PicManager/PhotoView"             ) force)
  74. (delete (tackon PMProPath "PicManager/PhotoView.info"        ) force)
  75.  
  76. (delete (tackon PMProPath "PicManager/PicManager.guide"      ) force)
  77. (delete (tackon PMProPath "PicManager/PicManager.guide.info" ) force)
  78.  
  79. (delete (tackon PMProPath "PicManager/Graphics.log"          ) force)
  80. (delete (tackon PMProPath "PicManager/Graphics.log.info"     ) force)
  81.  
  82.  
  83. ; evtl. vorhandene SuperView Installation umbenennen
  84. ; (Treiber, Objekte und Operatoren und Library in .bak)
  85.  
  86. (run ("delete libs:svobjects.bak all quiet"))
  87. (run ("rename libs:svobjects libs:svobjects.bak"))
  88. (run ("delete libs:svoperators.bak all quiet"))
  89. (run ("rename libs:svoperators libs:svoperators.bak"))
  90. (run ("delete libs:svdrivers.bak all quiet"))
  91. (run ("rename libs:svdrivers libs:svdrivers.bak"))
  92. (run ("rename libs:superview.library libs:superview.library.bak"))
  93. (run ("rename libs:superviewsupport.library libs:superviewsupport.library.bak"))
  94.  
  95. ; ...................Diskette 1
  96.  
  97.  
  98. (if(= (exists("PM_1")) TRUE)
  99.   (
  100.    (set call1 (cat "PM_1 \"" (tackon PMProPath "PicManager/\"")))
  101.    (run call1)
  102.  
  103.   )
  104.   (
  105.    (abort "Auf Ihrer Installationsdiskette fehlt die Datei PM_1")
  106.   )
  107. )
  108.  
  109. (if(= (exists("PM_2")) TRUE)
  110.   (
  111.    (set call2 (cat "PM_2 \"" (tackon PMProPath "PicManager/\"")))
  112.    (run call2)
  113.   )
  114.   (
  115.    (abort "Auf Ihrer Installationsdiskette fehlt die Datei PM_2")
  116.   )
  117. )
  118.  
  119. ; Piktogramm kopieren
  120.  
  121. (copyfiles
  122.   (source "PicManager.inf")
  123.   (dest PMProPath)
  124.   (newname "PicManager.info")
  125.   (files)
  126. ) 
  127.  
  128.  
  129.  
  130. ; ........................Diskette 2
  131.  
  132.  
  133. (if(= (exists("Examples")) TRUE)
  134.   (
  135.    (set call3 (cat "Examples \"" (tackon PMProPath "PicManager/\"")))
  136.    (run call3)
  137.   )
  138.   (
  139.    (abort "Auf Ihrer Installationsdiskette fehlt die Datei Examples")
  140.   )
  141. )
  142.  
  143. (if(= (exists("Help_Docs")) TRUE)
  144.   (
  145.    (set call4 (cat "Help_Docs \"" (tackon PMProPath "PicManager/\"")))
  146.    (run call4)
  147.   )
  148.   (
  149.    (abort "Auf Ihrer Installationsdiskette fehlt die Datei Help_Docs")
  150.   )
  151. )
  152.  
  153. (if(= (exists("Library")) TRUE)
  154.   (
  155.    (set call5 (cat "Library " "SYS:" ))
  156.    (run call5)
  157.   )
  158.   (
  159.    (abort "Auf Ihrer Installationsdiskette fehlt die Datei Library")
  160.   )
  161. )
  162.  
  163. (if(= (exists("Drivers")) TRUE)
  164.   (
  165.    (set call6 (cat "Drivers " "RAM:T/"))
  166.    (run call6)
  167.   )
  168.   (
  169.    (abort "Auf Ihrer Installationsdiskette fehlt die Datei Drivers")
  170.   )
  171. )
  172.  
  173. ; Welche Anzeigemodule installieren
  174.  
  175. (set install 255)
  176. (set install (askoptions
  177.               (prompt "Welchen Grafikkartentreiber möchten sie installieren?")
  178.               (choices "PicassoII" "Retina Z2/Z3" "Merlin" "CyberGraphX" "EGS" "OpalVision")
  179.               (default 0)
  180.               (help (cat "Falls sie eine der angegebenen Grafikarten besitzen,\n"
  181.                          "wählen sie bitte das entsprechende Modul aus\n"
  182.                          "Falls sie keine Grafikkarte besitzen, wählen sie\n"
  183.                          "bitte keines der Module aus!"
  184.                     )
  185.               )
  186.              )
  187. )
  188.  
  189. ; PICASSO II
  190. ; ----------
  191. (if (IN install 0)
  192. (
  193.  (copyfiles
  194.    (source "RAM:T/PicassoII.svdriver")
  195.    (dest "sys:libs/svdrivers")
  196.  )
  197.  (copyfiles
  198.    (source "RAM:T/PicassoII.controlpad")
  199.    (dest "envarc:superview-library")
  200.  )
  201.  (copyfiles
  202.    (source "RAM:T/PicassoII.controlpad")
  203.    (dest (tackon PMProPath "PicManager/Env"))
  204.  )
  205. ))
  206.  
  207. ; RETINA
  208. ; ------
  209. (if (IN install 1)
  210. (
  211.  (copyfiles
  212.    (source "RAM:T/Retina.svdriver")
  213.    (dest "sys:libs/svdrivers")
  214.  )
  215.  (copyfiles
  216.    (source "RAM:T/Retina.controlpad")
  217.    (dest "envarc:superview-library")
  218.  )
  219.  (copyfiles
  220.    (source "RAM:T/Retina.controlpad")
  221.    (dest (tackon PMProPath "PicManager/Env"))
  222.  )
  223. ))  
  224.  
  225. ; MERLIN
  226. ; ------
  227. (if (IN install 2)
  228. (
  229.  (copyfiles
  230.    (source "RAM:T/MERLIN.svdriver")
  231.    (dest "sys:libs/svdrivers")
  232.  )
  233. ))  
  234.  
  235.  
  236. ; CYBERGRAPHX
  237. ; -----------
  238. (if (IN install 3)
  239. (
  240.  (copyfiles
  241.    (source "RAM:T/CyberGraphics.svdriver")
  242.    (dest "sys:libs/svdrivers")
  243.  )
  244.  (copyfiles
  245.    (source "RAM:T/CyberGraphics.controlpad")
  246.    (dest "envarc:superview-library")
  247.  )
  248.  (copyfiles
  249.    (source "RAM:T/CyberGraphics.controlpad")
  250.    (dest (tackon PMProPath "PicManager/Env"))
  251.  )
  252. ))  
  253.  
  254. ; EGS
  255. ; ---
  256. (if (IN install 4)
  257. (
  258.  (copyfiles
  259.    (source "RAM:T/EGS7.svdriver")
  260.    (dest "sys:libs/svdrivers")
  261.  )
  262. ))  
  263.  
  264. ; OPAL
  265. ; ----
  266. (if (IN install 5)
  267. (
  268.  (copyfiles
  269.    (source "RAM:T/OPAL.svdriver")
  270.    (dest "sys:libs/svdrivers")
  271.  )
  272. ))  
  273.  
  274.  
  275. ; Pfad um Schublade PicManager erweitern und Assign in User-Startup einfügen
  276.  
  277. (set PMProPath (tackon PMProPath "PicManager"))
  278. (set @default-dest PMProPath)  
  279.  
  280. (startup "Picture Manager Professional"
  281.   (prompt "Modifiziere S:User-Startup für PIC_MANAGER:-Assign-Eintrag")
  282.   (help @startup-help)
  283.   (command "Assign PIC_MANAGER: \""PMProPath"\"\n")
  284.   (command "Assign VMEM: PIC_MANAGER:Temp\n")
  285. )
  286.  
  287. (exit "Picture Manager Professional ist nun installiert.\nBitte starten Sie Ihren Rechner jetzt neu!")
  288.