home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / disks / misc / ziptools / install < prev    next >
Encoding:
Text File  |  1996-09-17  |  14.7 KB  |  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.