home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / Z3_FASTLANE_95.DMS / in.adf / scsi-install < prev   
Encoding:
Text File  |  1995-05-22  |  4.2 KB  |  168 lines
  1. ;(set INST
  2. ;
  3. ;  (askoptions
  4. ;    (prompt "\nBitte wählen Sie Ihre Installation")
  5. ;      (help @install-help)
  6. ;      (choices "Installation" "CDROM anmelden")
  7. ;      (default 1) 
  8. ;  )
  9. ;)
  10.  
  11. ;****** Installation
  12.  
  13. ;(if (= (BITAND INST 1) 1)
  14.   (
  15.     (askdisk
  16.       (prompt "SCSI Installationsdiskette einlegen")
  17.       (help @askdisk-help)
  18.       (dest "SCSI-TOOLS-Install")
  19.       (assigns) ;debug
  20.     )
  21.  
  22.     (set instsource "SCSI-TOOLS-Install:")
  23.  
  24. ;****** SCSI TOOLS kopieren
  25.  
  26.     (set @default-dest
  27.       (askdir
  28.         (prompt "Geben Sie den Pfad ein, in dem das SCSI-TOOLS Verzeichnis erzeugt werden soll")
  29.         (help @askdir-help)
  30.         (default @default-dest)
  31.       )
  32.     )
  33.  
  34.     (makeassign "INSTSCSI" @default-dest)
  35.  
  36.     (makedir "INSTSCSI:SCSI-TOOLS"
  37.       (prompt "Das Verzeichniss SCSI-TOOLS wird erzeugt")
  38.       (help @makedir-help)
  39.       (infos)
  40.       (confirm)
  41.     )
  42.  
  43.     (makeassign "INSTDRW" "INSTSCSI:SCSI-TOOLS")
  44.  
  45.     (set scsi1 (expandpath "INSTSCSI:SCSI-TOOLS"))
  46.  
  47.     (copyfiles
  48.       (source (tackon instsource "scsitools"))
  49.       (dest scsi1)
  50.       (all)
  51.         (infos)
  52.     )
  53.  
  54. ;****** HOTHELP Dateien kopieren
  55.  
  56.     (if (exists "libs:hothelp.library")
  57.       (transcript "HotHelp.Library already present")
  58.       (copyfiles
  59.         (source (tackon instsource "hh/libs"))
  60.         (dest "libs:")
  61.         (all)
  62.       )
  63.     )
  64.  
  65.     (if (exists "l:hothelphandler")
  66.       (transcript "HotHelpHandler already present")
  67.       (copyfiles
  68.         (source (tackon instsource "hh/l"))
  69.         (dest "l:")
  70.         (all)
  71.       )
  72.     )
  73.  
  74.     (if (exists "c:hotkeyhelp")
  75.       (transcript "HotKeyHelp already present")
  76.       (copyfiles
  77.         (source (tackon instsource "hh/c"))
  78.         (dest "c:")
  79.         (all)
  80.       )
  81.     )
  82.  
  83.     (if (exists "LOCALE:" (noreq))
  84.       (if (exists "Locale:catalogs/deutsch/hothelplib.catalog")
  85.         (transcript "HotHelp Catalogs already present")
  86.         (copyfiles
  87.           (source "SCSI-TOOLS-Install:hh")
  88.           (dest "locale:catalogs/deutsch")
  89.           (pattern "#?.Catalog")
  90.         )
  91.       )
  92.     )
  93.  
  94.     (if (exists "HOTHELP:" (noreq))
  95.       (
  96.         (transcript "HOTHELP already present\ncopy only Projekts")
  97.         (copyfiles
  98.           (source (cat instsource "hhtexte/projekte"))
  99.           (dest "HOTHELP:Projekte")
  100.           (all)
  101.         )
  102.       )
  103.       ( (set hhinst
  104.           (askdir
  105.             (prompt "In welchem Verzeichnis soll HOTHELP installiert werden?")
  106.             (help @askdir-help)
  107.             (default @default-dest)
  108.             (disk)
  109.           )
  110.         )
  111.  
  112.         (set hhinst (cat hhinst "HOTHELP"))
  113.  
  114.         (makedir hhinst
  115.           (prompt "Das Verzeichniss HOTHELP wird erzeugt")
  116.           (help @makedir-help)
  117.           (infos)
  118.           (confirm)
  119.         )
  120.         (makeassign "HOTHELP" hhinst)
  121.         (copyfiles
  122.           (source (cat instsource "hhtexte"))
  123.           (dest "HOTHELP:")
  124.           (all)
  125.         )
  126.         (startup "HOTHELP"
  127.           (prompt "Die für HotHelp notwendigen Änderungen am User-Startup werden durchgeführt")
  128.           (help @startup-help)
  129.           (command ("Assign HOTHELP: %s\nC:HotKeyHelp\n" hhinst))
  130.         )
  131.         (run "C:HotKeyHelp")
  132.       )
  133.     )
  134.  
  135. ;****** Set TOOLTYPES
  136.  
  137.     (set devname 0)
  138.     (if (> (getversion "b1230.device" (resident)) 1) (set devname "b1230.device"))
  139.     (if (> (getversion "1230scsi.device" (resident)) 1) (set devname "\"1230scsi.device\""))
  140.     (if (> (getversion "z3scsi.device" (resident)) 1) (set devname "z3scsi.device"))
  141.     (if (> (getversion "cybscsi.device" (resident)) 1) (set devname "cybscsi.device"))
  142.  
  143.     (if (= devname 0)
  144.       (set devname
  145.         (askchoice
  146.           (prompt "Es ist noch keine Hardware installiert!\nFür welchen Kontroller möchten Sie die Software einrichten?")
  147.           (help @askchoice-help)
  148.           (choices "Blizzard SCSI KIT" "CYBERSTORM SCSI KIT" "FASTLANE Z3")
  149.         )
  150.       )
  151.     )
  152.  
  153.     ( if (= devname 0) (set devname "\"1230scsi.device\""))
  154.     ( if (= devname 1) (set devname "cybscsi.device"))
  155.     ( if (= devname 2) (set devname "z3scsi.device"))
  156.  
  157.     (tooltype
  158.       (dest (tackon scsi1 "SCSIConfig2"))
  159.       (settooltype "Device" devname)
  160.     )
  161.     (tooltype
  162.       (dest (tackon scsi1 "UnitControl"))
  163.       (settooltype "DEVICE" devname)
  164.     )
  165.   )
  166. ;)
  167. (makeassign "INSTSCSI")
  168. (makeassign "INSTDRW")