home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 88 / af088sub.adf / LControl / Lcontrol.LZX / LControl200 / install < prev    next >
Encoding:
Text File  |  1996-04-13  |  10.1 KB  |  395 lines
  1. ; Installationsskript für LControl 2.00
  2. ; $VER: LControl Install 2.00 (13. April 1996)
  3. ; (c) 1996 Michael Watzl
  4.  
  5. (set version 2)
  6. (set revision 00)
  7.  
  8. ; *********** Zuerst Strings sprachenabhängig initialisieren **
  9. (if (= @language "deutsch")
  10. ; //+   detusch
  11.     (
  12.         (set @abort-button "Installation abrrechen!")
  13.         (set @error-msg    "Fataler Fehler!")
  14.  
  15.         (set #welcome (cat
  16.             "Wilkommen zur Installation von " @app-name "\n\n"
  17.             "© 1993-1995 Jürgen Frank und Michael Watzl\n"
  18.             "All rights reserved."))
  19.         (set #versionerror (cat
  20.             "Tut mir leid!\n\n"
  21.             @app-name
  22.             " benötigt mindestens Amiga-OS 2.04!\n"))
  23.         (set #uncompress
  24.             "Entpacke ")
  25.         (set #cantuncompress
  26.             "Fehler beim Entpacken von ")
  27.         (set #install
  28.             "Installiere ")
  29.         (set #hardware
  30.             "Baupläne")
  31.         (set #whichdrawer (cat
  32.             "Wo soll " @app-name " installiert werden?"))
  33.         (set #whichdrawer_help (cat
  34.             "Ein Verzeichnis namens '" @app-name "' wird erzeugt."))
  35.         (set #asklibs
  36.             "Welche Libraries sollen installiert werden?")
  37.         (set #asklibs_help (cat
  38.             "LANC.library\n"
  39.             "Zum Steuern von LANC-Kameras über die Parallelporthardware (LControl).\n\n"
  40.             "SLANC.library\n"
  41.             "Zum Steuern von LANC-Kameras über die Serialporthardware (SControl).\n\n"
  42.             "EDIT.library\n"
  43.             "Zum Steuern von 5-Pin-Edit über die Parallelporthardware (PControl)."
  44.             "(Die Hardware von LControl und PControl sind nicht kompatibel!\n\n"
  45.             "DEBUG.library\n"
  46.             "Täuscht eine Kamera nur vor." ))
  47.         (set #main
  48.             "Hauptprogramm")
  49.         (set #main_help (cat
  50.             "Das Hauptprogramm heißt zwar LControl, doch mit der "
  51.             "entsprechenden library wird es zu PControl, SControl..."))
  52.         (set #icon
  53.             "Piktogramm" )
  54.         (set #project_help (cat
  55.             "Die Piktogramme versorgen das Hauptprogramm (LControl) mit den passenden Parametern."))
  56.         (set #docs
  57.             "Anleitung")
  58.         (set #docs_help
  59.             "Amiga-guide-Datei, DVI-File und LIZENZ-Informationen")
  60.         (set #docs_pattern
  61.             "(LControlD.guide|LControlD.DVI|LIZENZ)")
  62.         (set #guide
  63.             "LControlD.guide")
  64.         (set #dvi
  65.             "LControlD.dvi")
  66.         (set #bye (cat
  67.             "Viel Spaß mit " @app-name
  68.             " wünschen\n"
  69.             "Jürgen Frank und Michael Watzl"))
  70.  
  71.  
  72.  
  73.  
  74.     )
  75. ; //-
  76. ; //+   englisch
  77.     (
  78.         (set #welcome (cat
  79.             "Welcome to the Installation of " @app-name "\n\n"
  80.             "© 1993-1995 Jürgen Frank and Michael Watzl\n"
  81.             "All rights reserved."))
  82.         (set #versionerror (cat
  83.             "Sorry!! " @app-name " requires Amiga-OS 2.04 of better!\n"))
  84.         (set #uncompress
  85.             "Uncompress ")
  86.         (set #cantuncompress
  87.             "Error while uncompressing ")
  88.         (set #install
  89.             "Installing ")
  90.         (set #hardware
  91.             "schematics")
  92.         (set #whichdrawer (cat
  93.             "Where should " @app-name " be installed?"))
  94.         (set #whichdrawer_help (cat
  95.             "A new drawer named '" @app-name "' will be created."))
  96.         (set #asklibs
  97.             "Which libraries should be installed?")
  98.         (set #asklibs_help (cat
  99.             "LANC.library\n"
  100.             "controls LANC-players via the parallelport harware (LControl).\n\n"
  101.             "SLANC.library\n"
  102.             "controls LANC-players via the serialport hardware (SControl).\n\n"
  103.             "EDIT.library\n"
  104.             "controls 5-Pin-Edit-players via the parallelport hardware (PControl)."
  105.             "(The PControl-hardware and the LControl-hardware are not compatible!)\n\n"
  106.             "DEBUG.library\n"
  107.             "Fakes a camera" ))
  108.         (set #main
  109.             "main program")
  110.         (set #main_help (cat
  111.             "The main programm is named LControl. However together with "
  112.             "the correct library it becomes PControl, SControl..."))
  113.         (set #icon
  114.             "icon" )
  115.         (set #project_help (cat
  116.             "The icons start the main programm (LControl) with the correct parameters"))
  117.         (set #docs
  118.             "Documentation")
  119.         (set #docs_help
  120.             "Amigaguide file, DVI-file and some licence information.")
  121.         (set #docs_pattern
  122.             "(LControlE.guide|LControlE.DVI|LICENCE)")
  123.         (set #guide
  124.             "LControlE.guide")
  125.         (set #dvi
  126.             "LControlE.dvi")
  127.         (set #bye (cat
  128.             "Jürgen Frank and Michael Watzl\n"
  129.             "wish you a lot of fun with\n"
  130.             @app-name))
  131.     )
  132. ; //-
  133. )
  134.  
  135. (message #welcome)
  136. (complete 0)
  137.  
  138. ; ***********************************************
  139. ; Amiga-OS Versionscheck
  140. ; ***********************************************
  141. (if (< (/ (getversion) 65536) 37)
  142.     (abort #version_error)
  143. )
  144.  
  145. ; ***********************************************
  146. ; Zielverzeichnis erzeugen
  147. ; ***********************************************
  148. (set ziel
  149.     (askdir
  150.         (prompt #whichdrawer )
  151.         (default "Work:")
  152.         (help   #whichdrawer_help )
  153.     )
  154. )
  155. (set @default-dest ziel )
  156. (set ziel (tackon ziel @app-name ))
  157. (makedir ziel (infos))
  158.  
  159.  
  160. ; ***********************************************
  161. ; Libs & Hardware entpacken (wenn vorhanden)
  162. ; => was wird eigentlich installiert?
  163. ; ***********************************************
  164. ; nach dem entpacken der hw wird eine vorauswahl
  165. ; initialisiert (bitweise):
  166. ;   1. LANC
  167. ;   2. SLANC
  168. ;   3. EDIT
  169. ;   4. DEBUG
  170.  
  171. (set options %1000) ; default: DEBUG
  172.  
  173. ; libs entpacken
  174. (working (cat "\n\n" #uncompress "libraries"))
  175. (set rc (run "libs.run t:"))
  176. (if (<> rc 0)
  177.     (abort (cat #cantuncompress "libraries"))
  178. )
  179.  
  180. (set L  0)
  181. (set S  0)
  182. (set E  0)
  183. (set D  0)
  184.  
  185. (if (exists "hardware.run")
  186.     (
  187.         ; hardware entpacken
  188.         (working (cat "\n\n" #uncompress #hardware))
  189.         (set rc (run "hardware.run t:"))
  190.         (if (<> rc 0)
  191.             (abort (cat #cantuncompress #hardware))
  192.         )
  193.         (if (exists "T:hardware/LANC.iff")
  194.             (set options (bitor options %0001)) ; options |= LANC
  195.         )
  196.         (if (exists "T:hardware/SLANC.iff")
  197.             (set options (bitor options %0010)) ; options |= SLANC
  198.         )
  199.         (if (exists "T:hardware/EDIT.iff")
  200.             (set options (bitor options %0100)) ; options |= EDIT
  201.         )
  202.     )
  203. )
  204.  
  205. (set x (askoptions
  206.     (prompt #asklibs)
  207.     (help   #asklibs_help)
  208.     (choices    "LANC.library" "SLANC.library" "EDIT.library" "DEBUG.library")
  209.     (default options)
  210. ))
  211. (if (<> 0 (bitand x %1000))   ; DEBUG
  212.     ( (set D 1)
  213.     (copylib
  214.         (source "t:libs/DEBUG.library")
  215.         (dest   "libs:")
  216.     ))
  217.  
  218. )
  219. (if (<> 0 (bitand x %0100))   ; EDIT
  220.     ((set E 1)
  221.     (copylib
  222.         (source "T:libs/EDIT.library")
  223.         (dest   "libs:")
  224.     ))
  225. )
  226. (if (<> 0 (bitand x %0010))   ; SLANC
  227.     ((set S 1)
  228.     (copylib
  229.         (source "T:libs/SLANC.library")
  230.         (dest   "libs:")
  231.     ))
  232. )
  233. (if (<> 0 (bitand x %0001))   ; LANC
  234.     ((set L 1)
  235.     (copylib
  236.         (source "T:libs/LANC.library")
  237.         (dest   "libs:")
  238.     ))
  239. )
  240.  
  241. ;cleanup libs
  242. (run "delete t:libs#? all quiet")
  243.  
  244. ; *****************************************************
  245. ; Hauptprogramm entpacken und installieren
  246. ; *****************************************************
  247.  
  248. ; libs entpacken
  249. (working (cat "\n\n" #uncompress #main ))
  250. (set rc (run "LControl.run t:"))
  251. (if (<> rc 0)
  252.     (abort (cat #cantuncompress #main))
  253. )
  254.  
  255. (copyfiles
  256.     (prompt #main)
  257.     (help #main_help)
  258.     (source "T:")
  259.     (choices "LControl")
  260.     (dest ziel)
  261.     (confirm "expert")
  262. )
  263. (copyfiles
  264.     (prompt (cat "LControl-" #icon))
  265.     (help #project_help)
  266.     (source "T:")
  267.     (choices "LControl.info")
  268.     (dest ziel)
  269.     (confirm "expert")
  270.     (nogauge)
  271. )
  272. (complete 10)
  273.  
  274. ;cleanup
  275. (run "delete t:LControl#?")                        ; the main prg
  276.  
  277. (complete 20)
  278.  
  279. ; catalogs kopieren (wenn deutsch)
  280. (if (= @language "deutsch")(
  281.     (working (cat "\n\n" #uncompress "catalogs"))
  282.     (set rc (run "catalogs.run T:"))
  283.     (if (<> rc 0)
  284.         (abort (cat #cantuncompress "catalogs"))
  285.         (; else
  286.             (makedir (tackon ziel "catalogs"))
  287.             (copyfiles
  288.                 (source "t:catalogs")
  289.                 (dest (tackon ziel "catalogs"))
  290.                 (all)
  291.                 (nogauge)
  292.             )
  293.         )
  294.     )
  295.     ; cleanup
  296.     (run "delete T:catalogs#? all quiet")
  297. ))
  298. (complete 30)
  299.  
  300. (if (exists "hardware.run")(
  301.     (makedir (tackon ziel "Hardware"))
  302.     (copyfiles
  303.         (source "T:Hardware.info")
  304.         (dest ziel)
  305.         (nogauge)
  306.     )
  307.  
  308.     (copyfiles
  309.         (source "T:hardware")
  310.         (dest (tackon ziel "Hardware"))
  311.         (all)
  312.         (nogauge)
  313.     )
  314.  
  315.     ; cleanup hardware
  316.     (run "delete T:hardware#? all quiet")
  317. ))
  318. (complete 40)
  319.  
  320.  
  321. ; ***********************************************
  322. ; Install documentation
  323. ; ***********************************************
  324. (working "\n\n" #uncompress #docs)
  325. (set rc (run "docs.run T:"))
  326. (if (<> rc 0)
  327.     (abort (cat #cantuncompress #docs))
  328. )
  329. (makedir (tackon ziel #docs))
  330. (copyfiles
  331.     (source "T:docs.info")
  332.     (dest ziel)
  333.     (newname (cat #docs ".info"))
  334.     (nogauge)
  335. )
  336. (copyfiles
  337.     (source "T:docs")
  338.     (dest (tackon ziel #docs))
  339.     (pattern #docs_pattern)
  340.     (infos)
  341. )
  342. ;cleanup docs
  343. (run "delete t:docs#? all quiet")
  344. (complete 70)
  345.  
  346. ; tooltypes anpassen
  347. (set tt "sys:utilities/more")
  348. (if (exists( "sys:utilities/amigaguide" (noreq)))
  349.     (set tt "sys:utilities/amigaguide")
  350. )
  351. (if (exists( "sys:utilities/multiview" (noreq)))
  352.     (set tt "sys:utilities/multiview")
  353. )
  354.  
  355. (set docpath (tackon ziel #docs ))
  356.  
  357. (tooltype
  358.     (dest (tackon docpath #guide ))
  359.     (setdefaulttool tt)
  360.     (noposition)
  361. )
  362. (tooltype
  363.     (dest (tackon docpath #dvi ))
  364.     (noposition)
  365. )
  366. (complete 80)
  367.  
  368. ; *********************************************
  369. ; install ARex-Examples
  370. ; *********************************************
  371. (working "\n\n" #uncompress "ARexx")
  372. (set rc (run "arexx.run T:"))
  373. (if (<> rc 0)
  374.     (abort (cat #cantuncompress "ARexx"))
  375. )
  376. (makedir (tackon ziel "ARexx" ))
  377. (copyfiles
  378.     (source "T:ARexx.info")
  379.     (dest ziel)
  380.     (nogauge)
  381. )
  382. (copyfiles
  383.     (source "T:ARexx")
  384.     (dest (tackon ziel "ARexx"))
  385.     (all)
  386. )
  387. ;cleanup arexx
  388. (run "delete t:arexx#? all quiet")
  389. (complete 100)
  390.  
  391. (message #bye)
  392. (exit)
  393.  
  394.  
  395.