home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / DCN-PM41.DMS / in.adf / Install_HD < prev    next >
Encoding:
Text File  |  1996-12-12  |  6.5 KB  |  291 lines
  1. ; $VER: Install_PMPro V1.1 (19.10.95)
  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. (askdisk 
  98.   (prompt "Bitte PMPRO_DISK1 einlegen:")
  99.   (help @askdisk-help)
  100.   (dest "PMPRO_DISK1")
  101.   (assigns)
  102. )
  103.  
  104.  
  105. (if(= (exists("PMPRO_DISK1:PMPro.lha")) TRUE)
  106.   (
  107.    (set call1 (cat "lha x PMPRO_DISK1:PMPro.lha " (tackon PMProPath "PicManager/")))
  108.    (run call1)
  109.  
  110.   )
  111.   (
  112.    (abort "Auf Ihrer Installationsdiskette fehlt die Datei PM_1")
  113.   )
  114. )
  115.  
  116.  
  117. ; Piktogramm kopieren
  118.  
  119. (copyfiles
  120.   (source "PMPro_DISK1:PicManager.inf")
  121.   (dest PMProPath)
  122.   (newname "PicManager.info")
  123.   (files)
  124. ) 
  125.  
  126.  
  127.  
  128. ; ........................Diskette 2
  129.  
  130. (askdisk 
  131.   (prompt "Bitte PMPRO_DISK2 einlegen:")
  132.   (help @askdisk-help)
  133.   (dest "PMPRO_DISK2")
  134.   (assigns)
  135. )
  136.  
  137. (if(= (exists("PMPRO_DISK2:Examples.lha")) TRUE)
  138.   (
  139.    (set call3 (cat "lha x PMPRO_DISK2:Examples " (tackon PMProPath "PicManager/")))
  140.    (run call3)
  141.   )
  142.   (
  143.    (abort "Auf Ihrer Installationsdiskette fehlt die Datei Examples")
  144.   )
  145. )
  146.  
  147. (if(= (exists("PMPRO_DISK2:Help_Docs.lha")) TRUE)
  148.   (
  149.    (set call4 (cat "lha x PMPRO_DISK2:Help_Docs " (tackon PMProPath "PicManager/")))
  150.    (run call4)
  151.   )
  152.   (
  153.    (abort "Auf Ihrer Installationsdiskette fehlt die Datei Help_Docs")
  154.   )
  155. )
  156.  
  157. (if(= (exists("PMPRO_DISK2:Library.lha")) TRUE)
  158.   (
  159.    (set call5 (cat "lha x PMPRO_DISK2:Library " "SYS:" ))
  160.    (run call5)
  161.   )
  162.   (
  163.    (abort "Auf Ihrer Installationsdiskette fehlt die Datei Library")
  164.   )
  165. )
  166.  
  167. (if(= (exists("PMPRO_DISK2:Drivers.lha")) TRUE)
  168.   (
  169.    (set call6 (cat "lha x PMPRO_DISK2:Drivers " "RAM:T/"))
  170.    (run call6)
  171.   )
  172.   (
  173.    (abort "Auf Ihrer Installationsdiskette fehlt die Datei Drivers")
  174.   )
  175. )
  176.  
  177. ; Welche Anzeigemodule installieren
  178.  
  179. (set install 255)
  180. (set install (askoptions
  181.               (prompt "Welchen Grafikkartentreiber möchten sie installieren?")
  182.               (choices "PicassoII" "Retina Z2/Z3" "Merlin" "CyberGraphX" "EGS" "OpalVision")
  183.               (default 0)
  184.               (help (cat "Falls sie eine der angegebenen Grafikarten besitzen,\n"
  185.                          "wählen sie bitte das entsprechende Modul aus\n"
  186.                          "Falls sie keine Grafikkarte besitzen, wählen sie\n"
  187.                          "bitte keines der Module aus!"
  188.                     )
  189.               )
  190.              )
  191. )
  192.  
  193. ; PICASSO II
  194. ; ----------
  195. (if (IN install 0)
  196. (
  197.  (copyfiles
  198.    (source "RAM:T/PicassoII.svdriver")
  199.    (dest "sys:libs/svdrivers")
  200.  )
  201.  (copyfiles
  202.    (source "RAM:T/PicassoII.controlpad")
  203.    (dest "envarc:superview-library")
  204.  )
  205.  (copyfiles
  206.    (source "RAM:T/PicassoII.controlpad")
  207.    (dest (tackon PMProPath "PicManager/Env"))
  208.  )
  209. ))
  210.  
  211. ; RETINA
  212. ; ------
  213. (if (IN install 1)
  214. (
  215.  (copyfiles
  216.    (source "RAM:T/Retina.svdriver")
  217.    (dest "sys:libs/svdrivers")
  218.  )
  219.  (copyfiles
  220.    (source "RAM:T/Retina.controlpad")
  221.    (dest "envarc:superview-library")
  222.  )
  223.  (copyfiles
  224.    (source "RAM:T/Retina.controlpad")
  225.    (dest (tackon PMProPath "PicManager/Env"))
  226.  )
  227. ))  
  228.  
  229. ; MERLIN
  230. ; ------
  231. (if (IN install 2)
  232. (
  233.  (copyfiles
  234.    (source "RAM:T/Merlin.svdriver")
  235.    (dest "sys:libs/svdrivers")
  236.  )
  237. ))  
  238.  
  239.  
  240. ; CYBERGRAPHX
  241. ; -----------
  242. (if (IN install 3)
  243. (
  244.  (copyfiles
  245.    (source "RAM:T/CyberGraphics.svdriver")
  246.    (dest "sys:libs/svdrivers")
  247.  )
  248.  (copyfiles
  249.    (source "RAM:T/CyberGraphics.controlpad")
  250.    (dest "envarc:superview-library")
  251.  )
  252.  (copyfiles
  253.    (source "RAM:T/CyberGraphics.controlpad")
  254.    (dest (tackon PMProPath "PicManager/Env"))
  255.  )
  256. ))  
  257.  
  258. ; EGS
  259. ; ---
  260. (if (IN install 4)
  261. (
  262.  (copyfiles
  263.    (source "RAM:T/EGS7.svdriver")
  264.    (dest "sys:libs/svdrivers")
  265.  )
  266. ))  
  267.  
  268. ; OPAL
  269. ; ----
  270. (if (IN install 5)
  271. (
  272.  (copyfiles
  273.    (source "RAM:T/OPAL.svdriver")
  274.    (dest "sys:libs/svdrivers")
  275.  )
  276. ))  
  277.  
  278.  
  279. ; Pfad um Schublade PicManager erweitern und Assign in User-Startup einfügen
  280.  
  281. (set PMProPath (tackon PMProPath "PicManager"))
  282. (set @default-dest PMProPath)  
  283.  
  284. (startup "Picture Manager Professional"
  285.   (prompt "Modifiziere S:User-Startup für PIC_MANAGER:-Assign-Eintrag")
  286.   (help @startup-help)
  287.   (command "Assign PIC_MANAGER: "PMProPath"\n")
  288. )
  289.  
  290. (exit "Picture Manager Professional ist nun installiert.\nBitte starten Sie Ihren Rechner jetzt neu!")
  291.