home *** CD-ROM | disk | FTP | other *** search
/ Dream 41 / Amiga_Dream_41.iso / Amiga / Disque / Zip / ziptools.lha / ZipTools / Install < prev    next >
Text File  |  1996-09-17  |  15KB  |  425 lines
  1. ; ZipTools 1.0 install script...
  2. ; here it goes...
  3.  
  4. ( if (= @language "english")
  5.  (
  6.   (set lng ("english"))
  7.   (set #run-error "Couldn't run program")
  8.   (set #font-prompt "Font for manual must be in fonts:")
  9.   (set #newdest-prompt "Select destination for ZipTools 2.0")
  10.   (set #newdest-help "Drawer will be created there")
  11.   (set #deleteold-prompt "Delete old installation?")
  12.   (set #startagain "Start installation again and select another destination")
  13.   (set #enterdevmanual "Enter device manually")
  14.   (set #choosedev1-prompt "Choose your SCSI device:")
  15.   (set #choosedev2-prompt "\nChoose your SCSI device:\n")
  16.   (set #choosedev-help (cat "\n"
  17.                             "Please choose your SCSI device driver from the available options; "
  18.                             "if it is not shown, choose \"Enter device manually\", to allow "
  19.                             "you to type it in."
  20.                        )
  21.   )
  22.   (set #enterdevname-prompt "\nEnter the name of your SCSI device:\n")
  23.   (set #enterdevname-help (cat "\n"
  24.                                "You should type in the name of your SCSI device driver, if you are "
  25.                                "unsure of this refer to your SCSI controller manual. Some common device "
  26.                                "names are squirrelscsi.device (Squirrel SCSI Interfaces), scsi.device "
  27.                                "(Commodore supplied SCSI), 1230scsi.device, gvpscsi.device (GVP SCSI Interfaces) etc."
  28.                           )
  29.   )
  30.   (set #nothingentered "\nYou MUST enter your SCSI device driver name!")
  31.   (set #getunit-prompt "\nWhich SCSI ID is your Zip drive on?")
  32.   (set #getunit-help (cat "\n"
  33.                           "Select the SCSI ID your Zip drive is connected to, by default this is 5"
  34.                      )
  35.   )
  36.  )
  37. )
  38. ( if (= @language "german")
  39.  (
  40.   (set lng ("german"))
  41.   (set #run-error "Konnte nicht Programm starten")
  42.   (set #font-prompt "Zeichensatz fⁿr die Dokumentation mu▀ in fonts: kopiert werden")
  43.   (set #newdest-prompt "Schublade fⁿr ZipTools 2.0 eingeben")
  44.   (set #newdest-help "Schublade ZipTools wird hier erzeugt")
  45.   (set #deleteold-prompt "L÷schen alte Installation?")
  46.   (set #startagain "Starten Sie die Installation nochmal")
  47.   (set #enterdevmanual "Device eingeben")
  48.   (set #choosedev1-prompt "Ihr SCSI device:")
  49.   (set #choosedev2-prompt "\nIhr SCSI device:\n")
  50.   (set #choosedev-help (cat "\n"
  51.                             "Bitte selektieren Sie SCSI device driver wen er hier ernnent wird; "
  52.                             "sonst selektieren Sie \"Device eingeben\". Sie mⁿ▀en ihn dann richtig "
  53.                             "schreiben."
  54.                        )
  55.   )
  56.   (set #enterdevname-prompt "\nDevice eingeben:\n")
  57.   (set #enterdevname-help (cat "\n"
  58.                                "Sie sollten hier den richtigen Namen von SCSI device eingeben. "
  59.                                "Der Name steht im Manual fⁿr Ihr SCSI controller. Bekannte Namen sind "
  60.                                "squirrelscsi.device (Squirrel SCSI Interfaces), scsi.device "
  61.                                "(von Commodore), 1230scsi.device (Blizzard), gvpscsi.device (GVP SCSI Interfaces) etc."
  62.                           )
  63.   )
  64.   (set #nothingentered "\nSie mⁿ▀en den Namen unbedingt eingeben!")
  65.   (set #getunit-prompt "\nWelche ID nummer hat Ihr Zip Laufwerk?")
  66.   (set #getunit-help (cat "\n"
  67.                           "Selektieren sie ID nummer Ihres Lufwerks. Normalerweise ist es 5"
  68.                      )
  69.   )
  70.  )
  71. )
  72.  
  73. ( if (= @language "czech")
  74.  (
  75.   (set lng ("czech"))
  76.   (set #run-error "Nemohu spustit program")
  77.   (set #font-prompt "╟esk² font pro manußl musφ b²t v adresßΩi fonts:")
  78.   (set #newdest-prompt "Zvolte mφsto urτenφ pro program ZipTools 2.0")
  79.   (set #newdest-help "Bude zde vytvoΩen adresßΩ")
  80.   (set #deleteold-prompt "Vymazat starou instalaci?")
  81.   (set #startagain "Spus∩te instalaci znovu a zvolte jin² adresßΩ")
  82.   (set #enterdevmanual "Zadejte device ruτnδ")
  83.   (set #choosedev1-prompt "Zvolte Vßε SCSI device:")
  84.   (set #choosedev2-prompt "\nZvolte Vßε SCSI device:\n")
  85.   (set #choosedev-help (cat "\n"
  86.                             "Zvolte prosφm  Vßε SCSI device ze zobrazen²ch mo∙n²ch; "
  87.                             "pokud nenφ zobrazen, zvolte \"Zadejte device ruτnδ\",  "
  88.                             "aby bylo mo∙nΘ zadat jmΘno z klßvesnice."
  89.                        )
  90.   )
  91.   (set #enterdevname-prompt "\nZadejte Vßε SCSI device:\n")
  92.   (set #enterdevname-help (cat "\n"
  93.                                "Zde musφte zadat SCSI device driver, pokud si s jeho jmΘnem nejste jisti, "
  94.                                "podφvejte se do manußlu k Vaεemu SCSI kontrolleru. Nδkterß znßmß jmΘna jsou: "
  95.                                "names are squirrelscsi.device (Squirrel SCSI Interfaces), scsi.device "
  96.                                "(od Commodoru), gvpscsi.device (GVP SCSI Interfaces), 1230scsi.device (Blizzard) etc."
  97.                           )
  98.   )
  99.   (set #nothingentered "\nMUS═TE zadat Vßε SCSI device driver!")
  100.   (set #getunit-prompt "\nJakΘ SCSI ID mß Vaεe Zip jednotka?")
  101.   (set #getunit-help (cat "\n"
  102.                           "Zvolte SCSI ID Vaεφ Zip jednotky podle nastavenφ. Normßlnδ je to ID 5"
  103.                      )
  104.   )
  105.  )
  106. )
  107.  
  108.  
  109. (
  110. (set scr (pathonly @icon))
  111.  
  112. (set newdest (askdir (
  113.                        (prompt #newdest-prompt)
  114.                        (help #newdest-help)
  115.                        (default @default-dest)
  116.                      )
  117.               )
  118. )
  119.  
  120. (if ( exists (tackon newdest "ZipTools"))
  121.     (
  122.       (set b ( askbool (prompt #deleteold-prompt)
  123.                        (help " ")
  124.              )
  125.       )
  126.       (if (= b 1)
  127.           (
  128.             (set cmd ("c:delete "))
  129.             (set cmd (cat cmd newdest))
  130.             (set cmd (tackon cmd "ZipTools"))
  131.             (set cmd (cat cmd " force all"))
  132.             (set Fail (run cmd))
  133.             (if Fail
  134.                (
  135.                  (abort #run-error)
  136.                )
  137.              )
  138.             (set cmd ("c:delete "))
  139.             (set cmd (cat cmd newdest))
  140.             (set cmd (tackon cmd "ZipTools.info"))
  141.             (set cmd (cat cmd " force all"))
  142.             (set Fail (run cmd))
  143.           )
  144.           ( exit #startagain )
  145.       )
  146.     )
  147. )
  148.  
  149. (makedir (tackon newdest "ZipTools")
  150.          (prompt "")
  151.          (infos)
  152.          (help "")
  153. )
  154. (complete 20)
  155.  
  156. (set s (tackon scr "bin"))
  157. (set s (tackon s lng))
  158. (set s (tackon s "ZipTools"))
  159. (copyfiles (source s)
  160.            (dest (tackon newdest "ZipTools"))
  161. )
  162. (complete 30)
  163.  
  164. (set s (tackon scr "docs"))
  165. (set s (tackon s lng))
  166. (set s (tackon s "Manual"))
  167. (copyfiles (source s)
  168.            (dest (tackon newdest "ZipTools"))
  169. )
  170.  
  171. (set s (tackon scr "docs"))
  172. (set s (tackon s lng))
  173. (set s (tackon s "Control1"))
  174. (copyfiles (source s)
  175.            (dest (tackon newdest "ZipTools"))
  176. )
  177.  
  178. (set cmd "c:copy ")
  179. (set cmd (cat cmd scr))
  180. (set cmd (tackon cmd "icons/#?.info to "))
  181. (set cmd (cat cmd newdest))
  182. (set cmd (tackon cmd "ZipTools all"))
  183. (set Fail (run cmd))
  184. (if Fail
  185.    (
  186.     (abort #run-error)
  187.    )
  188. )
  189. (complete 40)
  190.  
  191. (set cmd (tackon scr "devs/dosdrivers/IDH0"))
  192. (set cmd2 "sys:devs/dosdrivers")
  193. (copyfiles (source cmd)
  194.            (dest cmd2)
  195.            (infos)
  196. )
  197. (complete 45)
  198.  
  199. (set scsidevice "")
  200. (while (= scsidevice "")
  201.   (
  202.     (set cmd (tackon scr "GSID"))
  203.     (set Fail (run cmd))
  204.     (if Fail
  205.       (
  206.         (abort #run-error)
  207.       )
  208.     )
  209.     (set dev0 #enterdevmanual)
  210.     (if (exists ("ENV:scsidev1")) (set dev1 (getenv "scsidev1")))
  211.     (if (exists ("ENV:scsidev2")) (set dev2 (getenv "scsidev2")))
  212.     (if (exists ("ENV:scsidev3")) (set dev3 (getenv "scsidev3")))
  213.     (if (exists ("ENV:scsidev4")) (set dev4 (getenv "scsidev4")))
  214.     (if (exists ("ENV:scsidev5")) (set dev5 (getenv "scsidev5")))
  215.     (if (exists ("ENV:scsidev6")) (set dev6 (getenv "scsidev6")))
  216.     (if (exists ("ENV:scsidev7")) (set dev7 (getenv "scsidev7")))
  217.     (if (exists ("ENV:scsidev8")) (set dev8 (getenv "scsidev8")))
  218.     (if (exists ("ENV:scsidev9")) (set dev9 (getenv "scsidev9")))
  219.     (if (exists ("ENV:scsidev10")) (set dev10 (getenv "scsidev10")))
  220.     (if (exists ("ENV:scsidev11")) (set dev11 (getenv "scsidev11")))
  221.     (if (exists ("ENV:scsidev12")) (set dev12 (getenv "scsidev12")))
  222.     (if (exists ("ENV:scsidev13")) (set dev13 (getenv "scsidev13")))
  223.     (if (exists ("ENV:scsidev14")) (set dev14 (getenv "scsidev14")))
  224.     (if (exists ("ENV:scsidev15")) (set dev15 (getenv "scsidev15")))
  225.     (if (exists ("ENV:scsidev16")) (set dev16 (getenv "scsidev16")))
  226.     (if (exists ("ENV:scsidev17")) (set dev17 (getenv "scsidev17")))
  227.     (if (exists ("ENV:scsidev18")) (set dev18 (getenv "scsidev18")))
  228.     (if (exists ("ENV:scsidev19")) (set dev19 (getenv "scsidev19")))
  229.     (if (exists ("ENV:scsidev20")) (set dev20 (getenv "scsidev20")))
  230.     (if (exists ("ENV:scsidev21")) (set dev21 (getenv "scsidev21")))
  231.     (run "Delete \"ENV:scsidev#?\" QUIET FORCE" (safe))
  232.     (if dev1
  233.       (
  234.         (set ask-device
  235.           (
  236.             (askchoice (if dev18 (prompt #choosedev1-prompt)
  237.                                  (prompt #choosedev2-prompt)
  238.                        )
  239.                        (help #choosedev-help)
  240.                        (if dev1 (choices dev0 dev1))
  241.                        (if dev2 (choices dev0 dev1 dev2))
  242.                        (if dev3 (choices dev0 dev1 dev2 dev3))
  243.                        (if dev4 (choices dev0 dev1 dev2 dev3 dev4))
  244.                        (if dev5 (choices dev0 dev1 dev2 dev3 dev4 dev5))
  245.                        (if dev6 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6))
  246.                        (if dev7 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7))
  247.                        (if dev8 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8))
  248.                        (if dev9 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9))
  249.                        (if dev10 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10))
  250.                        (if dev11 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11))
  251.                        (if dev12 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12))
  252.                        (if dev13 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13))
  253.                        (if dev14 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14))
  254.                        (if dev15 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15))
  255.                        (if dev16 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16))
  256.                        (if dev17 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17))
  257.                        (if dev18 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17 dev18))
  258.                        (if dev19 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17 dev18 dev19))
  259.                        (if dev20 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17 dev18 dev19 dev20))
  260.                        (if dev21 (choices dev0 dev1 dev2 dev3 dev4 dev5 dev6 dev7 dev8 dev9 dev10 dev11 dev12 dev13 dev14 dev15 dev16 dev17 dev18 dev19 dev20 dev21))
  261.                        (default 0)
  262.             )
  263.           )
  264.         )
  265.  
  266.       (if ask-device
  267.         (
  268.           (if (= 1 ask-device) (set scsidevice dev1))
  269.           (if (= 2 ask-device) (set scsidevice dev2))
  270.           (if (= 3 ask-device) (set scsidevice dev3))
  271.           (if (= 4 ask-device) (set scsidevice dev4))
  272.           (if (= 5 ask-device) (set scsidevice dev5))
  273.           (if (= 6 ask-device) (set scsidevice dev6))
  274.           (if (= 7 ask-device) (set scsidevice dev7))
  275.           (if (= 8 ask-device) (set scsidevice dev8))
  276.           (if (= 9 ask-device) (set scsidevice dev9))
  277.           (if (= 10 ask-device) (set scsidevice dev10))
  278.           (if (= 11 ask-device) (set scsidevice dev11))
  279.           (if (= 12 ask-device) (set scsidevice dev12))
  280.           (if (= 13 ask-device) (set scsidevice dev13))
  281.           (if (= 14 ask-device) (set scsidevice dev14))
  282.           (if (= 15 ask-device) (set scsidevice dev15))
  283.           (if (= 16 ask-device) (set scsidevice dev16))
  284.           (if (= 17 ask-device) (set scsidevice dev17))
  285.           (if (= 18 ask-device) (set scsidevice dev18))
  286.           (if (= 19 ask-device) (set scsidevice dev19))
  287.           (if (= 20 ask-device) (set scsidevice dev20))
  288.           (if (= 21 ask-device) (set scsidevice dev21))
  289.         )
  290.         (
  291.           (set scsidevice (askstring (prompt #enterdevname-prompt)
  292.                                      (help #enterdevname-help)
  293.                                      (default "")
  294.                            )
  295.           )
  296.         )
  297.       )
  298.     (if (= scsidevice "")
  299.           (message #nothingentered)
  300.     )
  301.     )
  302.     (
  303.      (set scsidevice "scsi.device")
  304.     )
  305.    )
  306.   )
  307. )
  308. (complete 50)
  309.  
  310. (set scsiunit
  311.   (+ 5
  312.     (askchoice (prompt #getunit-prompt)
  313.                (help #getunit-help)
  314.                (choices "ID 5"
  315.                         "ID 6"
  316.                )
  317.                (default 0)
  318.     )
  319.   )
  320. )
  321. (complete 60)
  322.  
  323. (set cmd (tackon newdest "ZipTools/Control1"))
  324. (tooltype (prompt "")
  325.           (help "")
  326.           (noposition)
  327.           (dest cmd)
  328. )
  329.  
  330. (set cmd (tackon newdest "ZipTools/Manual"))
  331. (tooltype (prompt "")
  332.           (help "")
  333.           (noposition)
  334.           (dest cmd)
  335. )
  336.  
  337. (if (= scsiunit 5)
  338.     (set unit "5")
  339.     (set unit "6")
  340. )
  341.  
  342. (set cmd (tackon newdest "ZipTools/ZipTools"))
  343. (tooltype (prompt "")
  344.           (help "")
  345.           (noposition)
  346.           (dest cmd)
  347.           (settooltype ("DEVICE") (scsidevice))
  348. )
  349.  
  350. (tooltype (prompt "")
  351.           (help "")
  352.           (dest cmd)
  353.           (settooltype ("UNIT") (unit))
  354. )
  355.  
  356. (set cmd "sys:devs/dosdrivers/IDH0")
  357. (tooltype (prompt "")
  358.           (help "")
  359.           (noposition)
  360.           (dest cmd)
  361.           (settooltype ("DEVICE") (scsidevice))
  362. )
  363.  
  364. (tooltype (prompt "")
  365.           (help "")
  366.           (dest cmd)
  367.           (settooltype ("UNIT") (unit))
  368. )
  369.  
  370. (complete 90)
  371.  
  372. (if (= @language "czech")
  373.  (
  374.   (copyfiles (source (tackon scr "fonts/"))
  375.              (dest "fonts:")
  376.              (prompt #font-prompt)
  377.              (help " ")
  378.              (pattern "#?_e#?")
  379.              (confirm)
  380.   )
  381.  )
  382.  (
  383.   (copyfiles (source (tackon scr "fonts/"))
  384.              (dest "fonts:")
  385.              (prompt #font-prompt)
  386.              (help " ")
  387.              (pattern "~(#?_e#?)")
  388.              (confirm)
  389.   )
  390.  )
  391. )
  392.  
  393. (set cmd ("c:assign libs: "))
  394. (set cmd (cat cmd scr))
  395. (set cmd (tackon cmd "libs add"))
  396. (set Fail (run cmd))
  397. (if Fail
  398.    (
  399.      (abort #run-error)
  400.    )
  401. )
  402. (set cmd (tackon scr "WBStarter "))
  403. (set cmd (cat cmd newdest))
  404. (set cmd (tackon cmd "ZipTools/ZipTools"))
  405. (set Fail (run cmd))
  406. (if Fail
  407.   (
  408.     (abort #run-error)
  409.   )
  410. )
  411.  
  412. (set cmd ("c:assign libs: "))
  413. (set cmd (cat cmd scr))
  414. (set cmd (tackon cmd "libs remove"))
  415. (set Fail (run cmd))
  416. (if Fail
  417.   (
  418.     (abort #run-error)
  419.   )
  420. )
  421. (complete 100)
  422.  
  423. ( exit )
  424. )
  425.