home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / kingfisher-distribution / install-kingfisher < prev    next >
Text File  |  1997-05-18  |  16KB  |  430 lines
  1. ; Installer Script for KingFisher Release 2
  2. ; Copyright © 1994,1995,1996,1997 Udo Schuermann
  3. ; All rights reserved
  4. ; $VER: Install-KingFisher 2.26 (18.5.97)
  5. ;
  6. ;
  7. ; Installer and Installer project icon
  8. ; (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  9. ; Reproduced and distributed under license from Commodore.
  10. ; 
  11. ; INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  12. ; NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  13. ; OR RESPONSIBILITY IS ASSUMED.
  14.  
  15.  
  16. ; set language=national language
  17. (procedure install-language (
  18.   (set catDest ("KFDEST:Catalogs/%s" language))
  19.   (if (not (exists catDest))
  20.     (makedir catDest (safe)))
  21.   (set src (tackon filepath ("Catalogs/%s/KingFisher.catalog" language)))
  22.   (if (not (exists src))
  23.     (set src ("%s.gz" src)))
  24.   (copyfiles (source src) (dest catDest))
  25.   (if (= (".gz" (substr src (- (strlen src) 3))))
  26.      (run ("stack 50000\nram:gunzip >NIL: <NIL: -r \"%s\"" (tackon catDest "KingFisher.catalog.gz"))))
  27.   (set copied (+ copied (getsize (tackon catDest "KingFisher.catalog"))))
  28.   (if (> copied total) (set total copied))
  29.   (complete (/ (* copied 100) total))
  30. ))
  31.  
  32. ; call w/in foreach loop:
  33. ; always:overwrite?; workinfo=general description; @each-name=name
  34. (procedure condcopy (
  35.   (set cond-copied 0)
  36.   (set doit 1)
  37.   (set fname (tackon "KFDEST:" @each-name))
  38.   (if (= always 0)
  39.     (if (exists fname)
  40.        (set doit 0)))
  41.   (if doit (
  42.     (working ("\nInstalling KingFisher Release 2\n\n%s\n\n%s" workinfo @each-name))
  43.     (copyfiles (source (tackon filepath @each-name)) (dest "KFDEST:"))
  44.     (if (= (".gz" (substr @each-name (- (strlen @each-name) 3)))) (
  45.        (set fname (substr @each-name 0 (- (strlen @each-name) 3)))
  46.        (working ("\nInstalling KingFisher Release 2\n\n%s\n\n%s" workinfo fname))
  47.        (run ("stack 50000\nram:gunzip >NIL: <NIL: -f \"%s\"" (tackon "KFDEST:" @each-name)))))
  48.     (set cond-copied 1)))
  49.   (set copied (+ copied (getsize (tackon "KFDEST:" fname))))
  50.   (if (> copied total) (set total copied))
  51.   (complete (/ (* copied 100) total))
  52. ))
  53.  
  54. ; view only once; from current 'filepath'
  55. (procedure viewreadme (
  56.   (if (= ViewInfo 1) (
  57.     (if (> (run ("run SYS:Utilities/MultiView %sReadme" filepath)) 0)
  58.     (if (> (run ("run SYS:Utilities/AmigaGuide %sReadme" filepath)) 0)
  59.       (run ("run more %sReadme" filepath))))))
  60.   (set ViewInfo 0)
  61. ))
  62.  
  63. ; Main Entry Point
  64. (set dosver (/ (getversion "dos.library" (resident)) 65536))
  65. (set usr @user-level)
  66. (user 1)
  67. (if (< dosver 37)
  68.   (message
  69.     "KingFisher Release 2 requires at least Kickstart 2.04 (V37) but your "
  70.     "system's Kickstart (ROM software) is too old to support KingFisher!\n\n"
  71.     "It is suggested that you abort the installation and upgrade your "
  72.     "system. KingFisher Release 2 will not function on your computer until "
  73.     "you perform the necessary upgrade."))
  74.  
  75. (set parts 0)
  76. (set defopts 0)
  77. (if (or (exists "KingFisher") (exists "KingFisher.gz"))
  78.   (set defopts (bitor defopts %00001011)))
  79. (if (exists "Catalogs")
  80.   (set defopts (bitor defopts %00000100)))
  81. (if (or (exists "1000Fish.kfdb") (exists "1000Fish.kfdb.gz"))
  82.   (set defopts (bitor defopts %00010000)))
  83. (if (or (exists "Example1.format") (exists "Example1.format.gz"))
  84.   (set defopts (bitor defopts %00100000)))
  85. (foreach "" "gad.#?.image(%|.gz)"
  86.   (set defopts (bitor defopts %01000000)))
  87. (if (exists "Developer")
  88.   (set defopts (bitor defopts %10000000)))
  89.  
  90. (set opts
  91.   (askoptions
  92.     (help (cat
  93.     "INSTALLABLE COMPONENTS:\n"
  94.     "KingFisher 2 -- Except for a database, all you need to run KingFisher.\n\n"
  95.     "Online Documentation -- AmigaGuide® formatted hypertext documentation.\n\n"
  96.     "RexxFisher -- Access KingFisher's databases from any program with ARexx.\n\n"
  97.     "Language Catalogs -- Operate KingFisher in a language other than English.\n\n"
  98.     "Miscellaneous Files -- Search results and alternate display / print / export format files.\n\n"
  99.     "Button Images -- Example imags to replace some or all of KingFisher's 28 interface buttons.\n\n"
  100.     "Developer Kit -- Source code and examples to get you started programming with the KingFisher Database Server's API directly.\n\n"
  101.     "AMINET ARCHIVES:\n"
  102.     "KingFisher226.lha -- The main KingFisher archive; get a new version of this to update your installation.\n\n"
  103.     "KingFisher2db.lha -- The '1100+ Fish Disks' database distribution for KingFisher to get you started.\n\n"
  104.     "KingFisher2ex.lha -- KingFisher 2 extras, including the Developer Kit, example files, ARexx example files, search and custom formats, etc."))
  105.  
  106.     (default defopts)
  107.     (prompt (cat
  108.     "The following portions are available for installation. Items not "
  109.     "initially checked are unavailable in this distribution. Press HELP "
  110.     "for additional information."))
  111.     (choices
  112.     "KingFisher Release 2 . .  (~210K)"
  113.     "Online Documentation . .  (~260K)"
  114.     "Language Catalogs  . . (each ~8K)"
  115.     "RexxFisher + Examples  . . (~42K)"
  116.     "1000+ Fish Database  . . (~2200K)"
  117.     "Miscellaneous files  . .  (~100K)"
  118.         "Button images  . . . . . . (~15K)"
  119.     "Developer Kit  . . . . .  (~330K)"
  120.     )))
  121.  
  122. (if (and (or (in opts 0) (in opts 1) (in opts 3)) (not (or (exists "KingFisher") (exists "KingFisher.gz")))) (
  123.   (set opts (bitxor opts %1011))
  124.   (message
  125.     "The KingFisher / KFServer / RexxFisher software is not available in this distribution.\n\nIf "
  126.     "you downloaded the distribution from a BBS or Aminet, you need to also download the file "
  127.     "'KingFisher226.lha'.")))
  128.  
  129. (if (and (in opts 2) (not (exists "Catalogs"))) (
  130.   (set opts (bitxor opts %100))
  131.   (message
  132.     "No language catalogs are available in this distribution.\n\nIf you downloaded the distribution "
  133.     "from a BBS or Aminet, you also need to download the file 'KingFisher2.lha'.")))
  134.  
  135. (if (and (in opts 4) (not (or (exists "1000Fish.kfdb") (exists "1000Fish.kfdb.gz")))) (
  136.   (set opts (bitxor opts %10000))
  137.   (message
  138.     "The '1000 Fish Database' is not available in this distribution.\n\nIf you downloaded the "
  139.     "distribution from a BBS or Aminet, you also need to download the file 'KingFisher2db.lha'.")))
  140.  
  141. (if (and (in opts 5) (not (or (exists "Example1.format") (exists "Example1.format.gz")))) (
  142.   (set opts (bitxor opts %100000))
  143.   (message
  144.     "The miscellaneous example files and button images are not part of this distribution.\n\nIf "
  145.     "you downloaded the distribution from a BBS or Aminet, you also need to download the file "
  146.     "'KingFisher2ex.lha'.")))
  147.  
  148. (set foo 0)
  149. (foreach "" "gad.#?.image(%|.gz)"
  150.   (set foo 1))
  151. (if (and (in opts 6) (= foo 0)) (
  152.   (set opts (bitxor opts %1000000))
  153.   (message
  154.     "Button images to demonstrate the replacement of KingFisher's own buttons are not included "
  155.     "in this distribution.\n\nIf you downloaded the distribution from a BBS or Aminet, you also "
  156.     "need to download the file 'KingFisher2ex.lha'.")))
  157.  
  158. (if (and (in opts 7) (not (exists "Developer"))) (
  159.   (set opts (bitxor opts %10000000))
  160.   (message
  161.     "The Developer Kit is not available in this distribution.\n\nYou need to either download "
  162.     "the file 'KingFisher2ex.lha' or request the developer kit from the author, either as "
  163.     "part of a paid upgrade on disk or free via email.\n\nPlease see the doocumentation for "
  164.     "ordering information!")))
  165.  
  166. (if (= opts 0) (
  167.   (complete 100)
  168.   (message "Looks like the Installer has nothing to do...")
  169.   (exit)))
  170.  
  171. (user usr)
  172.  
  173. (if (in opts 1)
  174.   (if (< dosver 39)
  175.      (set WrapIt
  176.        (askbool
  177.       (prompt (cat
  178.         "»»---> ATTENTION - READ THIS! <---««\n\n"
  179.         "The KingFisher2.guide documentation that ships with "
  180.         "KingFisher Release 2 is formatted with long lines to "
  181.         "provide Kickstart 3.x users with more readable, and "
  182.         "better formatted documentation.\n"
  183.         "THIS FORMAT CAUSES SERIOUS TROUBLE for AmigaGuide "
  184.         "under Kickstart 2.x wherefore a special 'WrapGuide' "
  185.         "tool is supplied to fix the .guide file for use with "
  186.         ("your installed version of AmigaDOS V%ld\n\n" dosver)
  187.         "You are STRONGLY URGED to have Installer apply "
  188.         "the WrapGuide operation to the documentation!!"))
  189.       (choices "WRAPGUIDE" "Skip it")
  190.       (default "WRAPGUIDE")
  191.       (help @askbool-help)))
  192.      (set WrapIt
  193.        (askbool
  194.       (prompt (cat
  195.         "The KingFisher2.guide documentation that ships with "
  196.         "KingFisher Release 2 is formatted with long lines to "
  197.         "provide Kickstart 3.x users with more readable, "
  198.         "paragraph oriented documentation.\n\n"
  199.         "If you have pressing reasons to convert this file "
  200.         "to a version that will not cause trouble with Kickstart "
  201.         "2.x, then you may choose to have the Installer apply "
  202.         "the supplied 'WrapGuide' tool to the file.\n\n"
  203.         "For best performance under your installed version of "
  204.         ("AmigaDOS %ld, it is RECOMMENDED TO SKIP THIS STEP!" dosver)))
  205.       (choices "WrapGuide" "SKIP IT")
  206.       (default "SKIP IT")
  207.       (help @askbool-help)))))
  208.  
  209. (set defcats 0)
  210. (if (exists "Locale:Languages/Dansk.language")
  211.   (set defcats (bitor defcats 1)))
  212. (if (exists "Locale:Languages/Deutsch.language")
  213.   (set defcats (bitor defcats 2)))
  214. (if (exists "Locale:Languages/Español.language")
  215.   (set defcats (bitor defcats 4)))
  216. (if (exists "Locale:Languages/Nederlands.language")
  217.   (set defcats (bitor defcats 8)))
  218. (if (exists "Locale:Languages/Suomi.language")
  219.   (set defcats (bitor defcats 16)))
  220. (if (exists "Locale:Languages/Svenska.language")
  221.   (set defcats (bitor defcats 32)))
  222.  
  223. (set catalogs 0)
  224. (if (and (in opts 2) (<> defcats 0)) (
  225.   (set catalogs
  226.     (askoptions
  227.       (help @askoptions-help)
  228.       (default defcats)
  229.       (prompt (cat
  230.     "Choose any combination of the language catalogs listed below. Those "
  231.     "initially checked are your choices when you installed AmigaOS:")
  232.       (choices
  233.     "Dansk"
  234.     "Deutsch"
  235.     "Español"
  236.     "Français"
  237.     "Nederlands"
  238.     "Suomi"
  239.     "Svenska"
  240.       ))))
  241.    (set CATCOUNT 0)
  242.    (if (in catalogs 0) (set CATCOUNT (+ CATCOUNT 1)))
  243.    (if (in catalogs 1) (set CATCOUNT (+ CATCOUNT 1)))
  244.    (if (in catalogs 2) (set CATCOUNT (+ CATCOUNT 1)))
  245.    (if (in catalogs 3) (set CATCOUNT (+ CATCOUNT 1)))
  246.    (if (in catalogs 4) (set CATCOUNT (+ CATCOUNT 1)))
  247.    (if (in catalogs 5) (set CATCOUNT (+ CATCOUNT 1)))
  248.    (if (in catalogs 6) (set CATCOUNT (+ CATCOUNT 1)))))
  249.  
  250. (set MINSPC 0)
  251. (if (in opts 0) (set MINSPC (+ MINSPC 210)))
  252. (if (in opts 1) (set MINSPC (+ MINSPC 260)))
  253. (if (in opts 2) (set MINSPC (+ MINSPC (* CATCOUNT 8))))
  254. (if (in opts 3) (set MINSPC (+ MINSPC 42)))
  255. (if (in opts 4) (set MINSPC (+ MINSPC 2200)))
  256. (if (in opts 5) (set MINSPC (+ MINSPC 100)))
  257. (if (in opts 6) (set MINSPC (+ MINSPC 15)))
  258. (if (in opts 7) (set MINSPC (+ MINSPC 330)))
  259.  
  260. (set DISKFREE 0)
  261. (while (< DISKFREE MINSPC) (
  262.   (set DESTIN (tackon
  263.     (askdir
  264.       (prompt (cat
  265.     "Where do you wish to install KingFisher Release 2?\n"
  266.     "(A drawer named 'KingFisher2' will be created there.)"))
  267.       (help @askdir-help)
  268.       (default "SYS:"))
  269.     "KingFisher2"))
  270.   (set @default-dest DESTIN)
  271.   (set @execute-dir DESTIN)
  272.   (set DISKFREE (/ (getdiskspace ("%s:" (getdevice DESTIN))) 1024))
  273.   (if (< DISKFREE MINSPC)
  274.     ((if (= @user-level 0) (user 1))
  275.      (if (askbool
  276.     (prompt (cat
  277.         ("\nPlease note:\n\nThe selected volume reports only %ldK of " DISKFREE)
  278.         ("diskspace, whereas you should have at least %ldK free!\n\n" MINSPC)
  279.         "Are you sure you wish to proceed with installation to this volume?"))
  280.     (choices "Yes, proceed" "No, try another")
  281.     (default "No, try another")
  282.     (help @askbool-help))
  283.     (set DISKFREE MINSPC))))))
  284.  
  285. (user 1)
  286. (message ("KingFisher Release 2 will be installed to the directory\n\n%s" DESTIN))
  287. (user usr)
  288.  
  289. (if (not (exists DESTIN))
  290.     (makedir DESTIN (infos) (safe)))
  291.  
  292. (makeassign "KFINST")
  293. (makeassign "KFDEST")
  294. (makeassign "KF2-Inst-1")
  295. (makeassign "KF2-Inst-2")
  296.  
  297. (if (or (exists "KingFisher") (exists "KingFisher.gz"))
  298.   (makeassign "KF2-Inst-1" "" (safe)))
  299. (if (or (exists "1000Fish.index") (exists "1000Fish.index.gz"))
  300.   (makeassign "KF2-Inst-2" "" (safe)))
  301. (makeassign "KFINST" "" (safe))
  302. (makeassign "KFDEST" DESTIN (safe))
  303.  
  304. (copyfiles (source "KFINST:gunzip") (dest "ram:"))
  305. (if WrapIt (copyfiles (source "KFINST:WrapGuide") (dest "ram:")))
  306.  
  307. (complete 0)
  308.  
  309. (set total (* MINSPC 1024))
  310. (set copied 0)
  311. (set ViewInfo 1)
  312.  
  313. (set filepath "KF2-Inst-1:")
  314.  
  315. ; don't show unregistered info if keyfile present
  316. (foreach "KF2-Inst-1:" ".KingFisher.key(%|.gz)"
  317.   (set ViewInfo 0))
  318. (if (exists "KFDEST:.KingFisher.key")
  319.   (set ViewInfo 0))
  320.  
  321. (if (in opts 0) (
  322.   (set workinfo "KingFisher Database Software")
  323.   (set always 1)
  324.   (foreach "KF2-Inst-1:" "(KingFisher|KFServer)(%|.gz)"
  325.     (condcopy))
  326.   (set always 0)
  327.   (foreach "KF2-Inst-1:" "(KingFisher.info|KFServer.prefs)(%|.gz)"
  328.     (condcopy))
  329.   (foreach "KF2-Inst-1:" ".KingFisher.key(%|.gz)"
  330.     (condcopy))))
  331.  
  332. (if (in opts 1) (
  333.   (set workinfo "AmigaGuide® Online Documentation")
  334.   (set always 1)
  335.   (foreach "KF2-Inst-1:" "KingFisher2.guide(%|.gz)"
  336.     (condcopy)
  337.     (if cond-copied (
  338.       (if (or (<= dosver 38) WrapIt)
  339.         ((working "\nWord-wrapping KingFisher2.guide\nfor use with AmigaGuide V34")
  340.          (run ("stack 50000\nram:WrapGuide %s 65" "KFDEST:KingFisher2.guide")))))))
  341.   (foreach "KF2-Inst-1:" "KingFisher2.guide.info(%|.gz)"
  342.     (condcopy)
  343.     (if cond-copied (
  344.       ((if (>= dosver 39)
  345.         ((working "Adjusting KingFisher2.guide icon for MultiView")
  346.          (tooltype
  347.            (dest "KFDEST:KingFisher2.guide")
  348.            (setdefaulttool "MultiView"))))))))
  349.   (foreach "KF2-Inst-1:" "History(%|.gz)"
  350.     (condcopy))
  351.   (foreach "KF2-Inst-1:" "#?IFF(%|.gz)"
  352.     (condcopy))))
  353.  
  354. (if (in opts 2) (
  355.   (working ("\nInstalling KingFisher Release 2\n\nLanguage Catalogs"))
  356.   (if (not (exists "KFDEST:Catalogs"))
  357.       (makedir "KFDEST:Catalogs" (safe)))
  358.   (if (in catalogs 0)    ((set language "Dansk")        (install-language)))
  359.   (if (in catalogs 1)    ((set language "Deutsch")    (install-language)))
  360.   (if (in catalogs 2)    ((set language "Español")    (install-language)))
  361.   (if (in catalogs 3)   ((set language "Français")      (install-language)))
  362.   (if (in catalogs 4)    ((set language "Nederlands")    (install-language)))
  363.   (if (in catalogs 5)    ((set language "Suomi")        (install-language)))
  364.   (if (in catalogs 6)    ((set language "Svenska")    (install-language)))))
  365.  
  366. (if (in opts 3) (
  367.   (set workinfo "RexxFisher and Examples")
  368.   (set always 1)
  369.   (foreach "KF2-Inst-1:" "RexxFisher(%|.gz)"
  370.     (condcopy))
  371.   (set always 0)
  372.   (foreach "KF2-Inst-1:" "#?.kfrx(%|.gz)"
  373.     (condcopy))))
  374.  
  375. (if (in opts 5) (
  376.   (set workinfo "Miscellaneous Example Files")
  377.   (set always 0)
  378.   (foreach "KF2-Inst-1:" "Example#?.format(%|.gz)"
  379.     (condcopy))
  380.   (foreach "KF2-Inst-1:" "#?.search(%|.gz)"
  381.     (condcopy))
  382.   (foreach "KF2-Inst-1:" "(%|.)Product-Info(%|.gz)"
  383.     (condcopy))))
  384.  
  385. (if (in opts 6) (
  386.   (set workinfo "Demonstration Button Images")
  387.   (set always 0)
  388.   (foreach "KF2-Inst-1:" "gad.#?.image(%|.gz)"
  389.     (condcopy))))
  390.  
  391. (if (in opts 7) (
  392.   (set workinfo "KingFisher Developer Kit")
  393.   (copyfiles (source "KF2-Inst-1:Developer") (dest "KFDEST:Developer") (all))
  394.   (run ("stack 50000\nram:gunzip >NIL: <NIL: -rf Developer"))))
  395.  
  396. (if (in opts 4) (
  397.   (set workinfo "1000 Fish Database")
  398.   (set always 0)
  399.   (foreach "KF2-Inst-1:" "1000Fish.kfdb(%|.gz)"
  400.     (condcopy))
  401.   (set filepath "KF2-Inst-2:")
  402.   (askdisk
  403.     (prompt "\nPlease insert the disk labeled\n\n\"KingFisher Disk 2\"")
  404.     (dest "KF2-Inst-2")
  405.     (help (cat
  406.     "The requested disk contains the '1000 Fish Database' which is installed "
  407.     "as the default database. KingFisher may not function as desired if you "
  408.     "do not install this database.\n\nIf you do not want this database you "
  409.     "may terminate the Installation process. Bewarned that some cleanup "
  410.     "procedures will be omitted in that case, but this is nothing serious."))
  411.     (assigns))
  412.   (working "\nContinuing installation...")
  413.   (viewreadme)
  414.   (foreach "KF2-Inst-2:" "1000Fish#?.(data|index)(%|.gz)"
  415.     (condcopy))))
  416.  
  417. (viewreadme)
  418.  
  419. (complete 100)
  420.  
  421. (delete "ram:gunzip")
  422. (delete "ram:WrapGuide")
  423.  
  424. (makeassign "KFDEST")
  425. (makeassign "KFINST")
  426. (makeassign "KF2-Inst-1")
  427. (makeassign "KF2-Inst-2")
  428.  
  429. (exit)
  430.