home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Game Guide / AmigaGameGuide_CD.iso / Amiga / Tools / Browser / IBrowse2.2-020+ / Install-IBrowse < prev    next >
Text File  |  1977-12-31  |  18KB  |  482 lines

  1. ; $VER: Install-IBrowse 2.2.1 (22.3.2000)
  2.  
  3. (set @app-name "IBrowse")    ; Application name
  4. (set cpu (database "cpu") )
  5. (set fpu (database "fpu") )
  6. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  7. (if (and (<> cpu "68000") (<> cpu "68010") )
  8.   (set cpu-install 1) )
  9. (if (and (<> "NOFPU" fpu) (= cpu-install 1) )
  10.   (set cpu-install 2) )
  11. (if (and (<> "NOFPU" fpu) (= "68040" cpu) )
  12.   (set cpu-install 3) )
  13. (if (exists "libs:68060.library")
  14.   (set cpu-install 4) )
  15. (if (exists "Anims")
  16.   (set disk-install 0)
  17.   (set disk-install 1) )
  18.  
  19.  
  20. (set #welcome "Welcome to the IBrowse installation utility. IBrowse is a fast, multithreaded web browser.\n\nIBrowse is (c) 1995-2000 Omnipresence Intl.\nDistributed by Hisoft Systems.")
  21. (set #languages-prompt "Please select which languages of IBrowse you want to install")
  22. (set #destdir-prompt "Please select where you want to install IBrowse. A drawer named 'IBrowse' will be created in this directory")
  23. (set #cpu-prompt "Select which version of IBrowse you would like to install")
  24. (set #cpu-help "You should choose the configuration that suits your computer. The installation has guessed what you need, but you may change it as long as you have a computer that can handle it. If you own an 68040 without fpu, select 68020+. If you own a 68030 (with/without fpu), select 020+ (with/without fpu).")
  25. (set #string "This option requires you to enter a value (or leave it blank) You can find additional information in the manual about the verious elements in the preferences")
  26. (set #dir "This option requires you to choose a directory. Choose one that suits your needs.")
  27. (set #ask-configure "You can configure some important parts of")
  28. (set #old-prefs "If you have an old version of IBrowse installed here, your old preferences are left. They will be renamed so that you don't loose any old settings. If you select skip, no files will be changed or copied")
  29. (set #old-hotlist "If you have an old version of IBrowse installed here, your old hotlist is left. It will be renamed so that you don't loose any links. If you select skip, no files will be changed or copied")
  30. (set #anim-help "You may choose which anim you want to install. They use different amounts of memory and you should choose the one that you find suitable for your system")
  31. (set #languages-help "Choose which languages you want IBrowse to be able to use. Languages in (parenthesises) are not currently included in this archive")
  32. (set #destdir-help "Choose where you want IBrowse to be stored. A drawer will be copied to this location. You will find all files in this drawer. Nothing is copied to other locations on your harddrive")
  33. (set #welcome "\n\nThis is the installation for IBrowse.\nIBrowse is a fast web-browser for the Amiga that supports many HTML4.0 features as well as many Netscape specific things.\n\n IBrowse is © 1995-2000 Omnipresence Intl.\n IBrowse is distributed by Hisoft")
  34. (set #need39 "\n\nSorry, but you need KS3.0 or later to run IBrowse")
  35. (set #ask-mui38 "\n\nIBrowse uses some new features in MUI3.8\nYou need to install this version for IBrowse to operate properly.")
  36. (set #newstring-prompt "IBrowse uses NewString.mcc (c) 1995-1997 Rüdiger Sopp. Where do you have MUI installed?")
  37. (set #newstring-help "NewString.mcc must be installed to make IBrowse work correctly" )
  38. (set #help-manual "The included manual is online HTML documentation. If you don't install it now, you can install it at a later time or view it from the distribution archive.")
  39. (set #ask-manual "Do you want to install the included online HTML documentation.")
  40.  
  41. (procedure install-misc
  42.   (set info-dir (tackon ibdir "info") )
  43.   (if (not (exists info-dir) )
  44.     (makedir info-dir) )
  45.   (copyfiles (source "info") (dest info-dir) (all) )
  46.  
  47.   (set image-dir (tackon ibdir "images") )
  48.   (if (not (exists image-dir) )
  49.     (makedir image-dir) )
  50.   (copyfiles (source "images") (dest image-dir) (all) )
  51.  
  52.   (copyfiles (source "icons/IBrowse.info") (dest ibdir) )
  53.  
  54.   (set protocols-dir (tackon ibdir "protocols") )
  55.   (if (not (exists protocols-dir) )
  56.     (makedir protocols-dir) )
  57.   (copyfiles (source "protocols") (dest protocols-dir) (all) )
  58.  
  59.   (set ibcc-dir (tackon ibdir "ibcc") )
  60.   (if (not (exists ibcc-dir) )
  61.     (makedir ibcc-dir) )
  62.   (copyfiles (source "ibcc" ) (dest ibcc-dir) (all) )
  63.  
  64.   (set cache-dir (tackon ibdir "Cache") )
  65.   (if (not (exists cache-dir) )
  66.     (makedir cache-dir) ) )
  67.  
  68. (procedure install-codecs
  69.   (set codecs-dir (tackon ibdir "codecs") )
  70.   (if (not (exists codecs-dir) )
  71.     (makedir codecs-dir) )
  72.  
  73.   (if (= cpu-install 1)
  74.     (copyfiles (source "codecs68020" ) (dest codecs-dir) (all) )
  75.     ( (if (= cpu-install 2)
  76.         (set codecssrc-dir "codecs68020fpu") )
  77.       (if (= cpu-install 3)
  78.         (set codecssrc-dir "codecs68040fpu") )
  79.       (if (= cpu-install 4)
  80.         (set codecssrc-dir "codecs68060fpu") )
  81.       (run (cat "spatch \"-o" (tackon codecs-dir "gif.codec") "\" -p" (tackon codecssrc-dir "gif.codec.spatch") " codecs68020/gif.codec" ) )
  82.       (run (cat "spatch \"-o" (tackon codecs-dir "jpeg.codec") "\" -p" (tackon codecssrc-dir "jpeg.codec.spatch") " codecs68020/jpeg.codec" ) )
  83.       (run (cat "spatch \"-o" (tackon codecs-dir "png.codec") "\" -p" (tackon codecssrc-dir "png.codec.spatch") " codecs68020/png.codec" ) )
  84.       (run (cat "spatch \"-o" (tackon codecs-dir "xbm.codec") "\" -p" (tackon codecssrc-dir "xbm.codec.spatch") " codecs68020/xbm.codec" ) )
  85.       (run (cat "spatch \"-o" (tackon codecs-dir "imagedecode.module") "\" -p" (tackon codecssrc-dir "imagedecode.module.spatch") " codecs68020/imagedecode.module" ) ) ) ) )
  86.  
  87. (procedure install-javascript
  88.   (if (= cpu-install 1)
  89.     (copyfiles (source "javascript/javascript.library.020" ) (dest ibdir) (newname "javascript.library" ) )
  90.     ( (if (= cpu-install 2)
  91.         (run (cat "spatch \"-o" (tackon ibdir "javascript.library") "\" -pjavascript/javascript.library.020-020fpu javascript/javascript.library.020" ) ) )
  92.       (if (= cpu-install 3)
  93.         (run (cat "spatch \"-o" (tackon ibdir "javascript.library") "\" -pjavascript/javascript.library.020-040fpu javascript/javascript.library.020" ) ) )
  94.       (if (= cpu-install 4)
  95.         (run (cat "spatch \"-o" (tackon ibdir "javascript.library") "\" -pjavascript/javascript.library.020-060fpu javascript/javascript.library.020" ) ) ) ) ) )
  96.  
  97. (procedure install-anims
  98.   (set result (askchoice
  99.     (choices "24bit TrueColor" "8bit 256 colors" "6bit 64 colors" "5bit 32 colors" "5bit 32 colors (non moving)")
  100.       (prompt "Which transfer animation do you want to install?")
  101.         (help #anim-help)
  102.         (default 1) ) )
  103.   (if (= result 0)
  104.     (copyfiles (source "Anims/TransferAnimation.24") (dest image-dir) (newname "TransferAnimation") ) )
  105.   (if (= result 1)
  106.     (copyfiles (source "Anims/TransferAnimation") (dest image-dir) (newname "TransferAnimation") ) )
  107.   (if (= result 2)
  108.     (copyfiles (source "Anims/TransferAnimation.6") (dest image-dir) (newname "TransferAnimation") ) )
  109.   (if (= result 3)
  110.     (copyfiles (source "Anims/TransferAnimation.5") (dest image-dir) (newname "TransferAnimation") ) )
  111.   (if (= result 4)
  112.     (copyfiles (source "Anims/TransferAnimationNM") (dest image-dir) (newname "TransferAnimation") ) )
  113.  
  114.   (if (< result 4)
  115.     (copyfiles (source "Anims/TransferAnimation.info") (dest image-dir) )
  116.     (copyfiles (source "Anims/TransferAnimationNM.info") (dest image-dir) (newname "TransferAnimation.info") ) )
  117. )
  118.   
  119. (procedure copy-catalog
  120.   (set dest-lang (tackon (tackon ibdir "catalogs") language) )
  121.   (if (not (exists dest-lang))
  122.     (makedir dest-lang) )
  123.   (copyfiles
  124.     (source (cat (tackon "Catalogs" language) "/IBrowse.catalog") )
  125.     (dest dest-lang) ) )
  126.  
  127. (procedure install-catalogs
  128.   (set languages
  129.     (askoptions
  130.       (choices "Català" "Czech" "Dansk" "(Deutsch)" "English (built in)" "Español" "Français" "(Greek)" "Italiano" "Magyar" "(Nederlands)" "(Norsk)" "(Polski)" "Português" "Português-brasil" "Russian" "Slovensko" "Srpski" "Suomi" "Svenska")
  131.         (prompt #languages-prompt)
  132.         (help #languages-help)
  133.         (default 16) ) )
  134.  
  135.   (if (bitand languages 524271)
  136.     ( (set catdir (tackon ibdir "catalogs"))
  137.       (if (not (exists catdir))
  138.         (makedir catdir) )
  139.  
  140.       (if (bitand languages 1)
  141.         ( (set language "Català")
  142.           (copy-catalog) ) )
  143.       (if (bitand languages 2)
  144.         ( (set language "Czech")
  145.           (copy-catalog) ) )
  146.       (if (bitand languages 4)
  147.         ( (set language "Dansk")
  148.           (copy-catalog) ) )
  149. ;      (if (bitand languages 8)
  150. ;        ( (set language "Deutsch")
  151. ;          (copy-catalog) ) )
  152.       (if (bitand languages 32)
  153.         ( (set language "Español")
  154.           (copy-catalog) ) )
  155.       (if (bitand languages 64)
  156.         ( (set language "Français")
  157.           (copy-catalog) ) )
  158. ;      (if (bitand languages 128)
  159. ;        ( (set language "Greek")
  160. ;          (copy-catalog) ) )
  161.       (if (bitand languages 256)
  162.         ( (set language "Italiano")
  163.           (copy-catalog) ) )
  164.       (if (bitand languages 512)
  165.         ( (set language "Magyar")
  166.           (copy-catalog) ) )
  167. ;      (if (bitand languages 1024)
  168. ;        ( (set language "Nederlands")
  169. ;          (copy-catalog) ) )
  170. ;      (if (bitand languages 2048)
  171. ;        ( (set language "Norsk")
  172. ;          (copy-catalog) ) )
  173. ;      (if (bitand languages 4096)
  174. ;        ( (set language "Polski")
  175. ;          (copy-catalog) ) )
  176.       (if (bitand languages 8192)
  177.         ( (set language "Português")
  178.           (copy-catalog) ) )
  179.       (if (bitand languages 16384)
  180.         ( (set language "Português-brasil")
  181.           (copy-catalog) ) )
  182.       (if (bitand languages 32768)
  183.         ( (set language "Russian")
  184.           (copy-catalog) ) )
  185.       (if (bitand languages 65536)
  186.         ( (set language "Slovensko")
  187.           (copy-catalog) ) )
  188.       (if (bitand languages 131072)
  189.         ( (set language "Srpski")
  190.           (copy-catalog) ) )
  191.       (if (bitand languages 262144)
  192.         ( (set language "Svenska")
  193.           (copy-catalog) ) ) ) ) )
  194.  
  195. (procedure install-manual
  196.   (set manual-dir (tackon ibdir "helpfiles") )
  197.   (if (not (exists manual-dir) )
  198.     (makedir manual-dir) )
  199.   (copyfiles (source "helpfiles") (dest manual-dir) (all) )
  200.   (copyfiles
  201.     (source "ib2.html" )
  202.     (dest ibdir) )
  203.   (copyfiles
  204.     (source "ib2.html.info" )
  205.     (dest ibdir) ) )
  206.  
  207. (procedure install-dummymanual
  208.   (copyfiles
  209.     (source "ib2_dummy.html" )
  210.     (dest ibdir)
  211.     (newname "ib2.html" ) )
  212.   (copyfiles
  213.     (source "ib2.html.info" )
  214.     (dest ibdir) ) )
  215.  
  216. (if (not v39)
  217.    (abort #need39)
  218. )
  219.  
  220. (message #welcome)
  221.  
  222. (set ibdir
  223.   (askdir
  224.     (prompt #destdir-prompt)
  225.     (help #destdir-help)
  226.     (default "Work:") ) )
  227.  
  228. (complete 5)
  229.  
  230. (if (= disk-install 1) 
  231.   ( (working "Dearchiving distribution archive...")
  232.     (run "t:lhex >nil: -fw=t: x IBrowse2Install1:IBrowse2Archive1.lha" ) ) )
  233.  
  234. (set ibrowse-dir (tackon ibdir "IBrowse") )
  235. (if (not (exists ibrowse-dir) )
  236.   ( (makedir ibrowse-dir) )
  237.   ( (set ibrowse-version (/ (getversion (tackon ibdir "IBrowse/IBrowse") ) 65536 ) )
  238.     (if (< ibrowse-version 20)
  239.       ( (run (cat "c:rename \"" (tackon ibdir "IBrowse") "\" \"" (tackon ibdir "IBrowseV1") "\"") )
  240.         (makedir ibrowse-dir) ) ) ) )
  241.  
  242. (if (not (exists (tackon ibrowse-dir "IBrowse.info") ) )
  243.   (copyfiles (source "icons/IBrowseDrw.info") (dest ibdir) (newname "IBrowse.info") ) )
  244.  
  245. (complete 10)
  246.  
  247. (set ibdir (tackon ibdir "IBrowse"))
  248.  
  249. (set @default-dest ibdir)
  250.  
  251. (install-catalogs)
  252.  
  253. (complete 15)
  254.  
  255. (set cpu-install
  256.   (askchoice
  257.     (choices "(68000)" "68020" "68020/FPU" "68040/FPU" "68060/FPU")
  258.       (prompt #cpu-prompt)
  259.         (help #cpu-help)
  260.         (default cpu-install) ) )
  261.  
  262. (complete 20)
  263.  
  264. (install-misc)
  265.  
  266. (complete 25)
  267.  
  268. (set instmanual (askbool (help #help-manual) (prompt #ask-manual) ) )
  269.  
  270. (if (= instmanual 1)
  271.    (install-manual)
  272.    (install-dummymanual) )
  273.  
  274. (complete 30)
  275.  
  276. (copyfiles (source "IBrowse") (dest ibdir) )
  277.  
  278. (complete 40)
  279.  
  280. (copyfiles (source "IBCacheBrowser.mcc") (dest ibdir) )
  281.  
  282. (complete 45)
  283.  
  284. (copyfiles (source "History.txt") (dest ibdir) )
  285. (copyfiles (source "History.html") (dest ibdir) )
  286.  
  287. (complete 50)
  288.  
  289. (if (= disk-install 1) 
  290.   ( (askdisk
  291.         (prompt "\n\n\nPlease insert disk 2") (help "")
  292.         (dest "IBrowse2Install2") )
  293.     (run "delete >nil: #? all")
  294.     (working "Dearchiving distribution archive...")
  295.     (run "t:lhex >nil: -fw=t: x IBrowse2Install2:IBrowse2Archive2.lha" ) ) )
  296.  
  297. (install-codecs)
  298.  
  299. (complete 60)
  300.  
  301. (install-javascript)
  302.  
  303. (complete 65)
  304.  
  305. (install-anims)
  306.  
  307.  
  308. (if (= disk-install 1) 
  309.   ( (set mui38 (>= (getversion "libs:muimaster.library" ) 1048736) )
  310.     (if (not mui38)
  311.       ( (set str "\n\n\nIBrowse needs MUI3.8 or later to function properly. You may skip this part and install MUI3.8 manually from the 3rd disk instead, but it is recomended that you let this installer install MUI3.8 aswell\n")
  312.         (set muiver (/ (getversion "libs:muimaster.library" ) 65536) )
  313.  
  314.             (if (= muiver  0) (set muiverstr "" )
  315.             (if (< muiver  6) (set muiverstr "1.x")
  316.             (if (= muiver  6) (set muiverstr "1.4")
  317.             (if (= muiver  7) (set muiverstr "2.0")
  318.             (if (= muiver  8) (set muiverstr "2.1")
  319.             (if (= muiver  9) (set muiverstr "2.2")
  320.             (if (= muiver 10) (set muiverstr "2.3")
  321.             (if (= muiver 11) (set muiverstr "3.0")
  322.             (if (= muiver 12) (set muiverstr "3.1")
  323.             (if (= muiver 13) (set muiverstr "3.2")
  324.             (if (= muiver 14) (set muiverstr "3.3")
  325.             (if (= muiver 15) (set muiverstr "3.4")
  326.             (if (= muiver 16) (set muiverstr "3.5")
  327.             (if (= muiver 17) (set muiverstr "3.6")
  328.             (if (= muiver 18) (set muiverstr "3.7")
  329.             (if (= muiver 19) (set muiverstr "3.8")
  330.             (if (= muiver 20) (set muiverstr "3.9")
  331.             (if (> muiver 20) (set muiverstr "" )
  332.             ))))))))))))))))))
  333.  
  334.         (if (<> muiver 0)
  335.           (set str (cat str "You have MUI " muiverstr " currently installed." ) )
  336.           (set str "You have no version of MUI installed.") )
  337.         (if (askbool
  338.           (prompt str)
  339.             (help #ask-mui38)
  340.             (choices "Proceed" "Skip this part") )
  341.           ( (askdisk
  342.             (prompt "\n\n\nPlease insert disk 3") (help "")
  343.             (dest "IBrowse2Install3") )
  344.             (set @execute-dir "IBrowse2Install3:")
  345.             (if (= @user-level 1)
  346.               (run (cat "Installer433 Install-MUI APPNAME \"MUI 3.8\" MINUSER NOVICE DEFUSER AVERAGE LOGFILE t:install.log") )
  347.               (run (cat "Installer433 Install-MUI APPNAME \"MUI 3.8\" MINUSER NOVICE DEFUSER EXPERT LOGFILE t:install.log") ) ) ) ) ) ) ) )
  348.  
  349. (complete 75)
  350.  
  351. ( (if (= (exists "mui:libs/mui/Newstring.mcc" (noreq)) 1)
  352.       ( (set newstring-version (getversion "mui:libs/mui/Newstring.mcc") ) )
  353.       ( (set newstring-version 0 ) ) )
  354.  
  355.     (if (< newstring-version 1048586)
  356.       ( (set newstring-dir
  357.           (askdir
  358.             (prompt #newstring-prompt)
  359.               (help #newstring-help)
  360.               (default "mui:") ) )
  361.         (set newstring-dir (tackon newstring-dir "libs/mui") )
  362.         (copyfiles (source "mui/Newstring.mcc" ) (dest newstring-dir) )
  363.         (copyfiles (source "mui/Newstring.mcp" ) (dest newstring-dir) ) ) ) )
  364.  
  365. (complete 85)
  366.  
  367. (message "IBrowse 2.2 uses NList.mcc. They will now be installed if you don't have them")
  368.         
  369. (copylib (prompt #prompt_copy "\n\nNList.mcc" )
  370.          (help @copylib-help)
  371.          (confirm "average")
  372.          (source "mui/NList.mcc")
  373.          (dest "MUI:Libs/MUI")
  374.          (optional "oknodelete" "force")
  375. )
  376.  
  377. (complete 86)
  378.  
  379. (copylib (prompt #prompt_copy "\n\nNListview.mcc" )
  380.          (help @copylib-help)
  381.          (confirm "average")
  382.          (source "mui/NListview.mcc")
  383.          (dest "MUI:Libs/MUI")
  384.          (optional "oknodelete" "force")
  385. )
  386.  
  387. (complete 88)
  388.  
  389. (copylib (prompt #prompt_copy "\n\nNListviews.mcp" )
  390.          (help @copylib-help)
  391.          (confirm "average")
  392.          (source "mui/NListviews.mcp")
  393.          (dest "MUI:Libs/MUI")
  394.          (optional "oknodelete" "force")
  395. )
  396.  
  397. (complete 89)
  398.  
  399. (copylib (prompt #prompt_copy "\n\nNFloattext.mcc" )
  400.          (help @copylib-help)
  401.          (confirm "average")
  402.          (source "mui/NFloattext.mcc")
  403.          (dest "MUI:Libs/MUI")
  404.          (optional "oknodelete" "force")
  405. )
  406.  
  407. (complete 91)
  408.  
  409. (copylib (prompt #prompt_copy "\n\nListtreeN.mcc" )
  410.          (help @copylib-help)
  411.          (confirm "average")
  412.          (source "mui/ListtreeN.mcc")
  413.          (dest "MUI:Libs/MUI")
  414.          (optional "oknodelete" "force")
  415. )
  416.  
  417. (complete 92)
  418.  
  419. (copylib (prompt #prompt_copy "\n\nListtreeN.mcp" )
  420.          (help @copylib-help)
  421.          (confirm "average")
  422.          (source "mui/ListtreeN.mcp")
  423.          (dest "MUI:Libs/MUI")
  424.          (optional "oknodelete" "force")
  425. )
  426.  
  427. (complete 94)
  428.  
  429. (copylib (prompt #prompt_copy "\n\HotkeyString.mcc" )
  430.          (help @copylib-help)
  431.          (confirm "average")
  432.          (source "mui/HotkeyString.mcc")
  433.          (dest "MUI:Libs/MUI")
  434.          (optional "oknodelete" "force")
  435. )
  436.  
  437. (complete 95)
  438.  
  439. (message "The Cache Browser in IBrowse 2.2 uses a few custom mui classe. They will now be installed if you don't have them")
  440.         
  441. (copylib (prompt #prompt_copy "\n\TextHistory.mcc" )
  442.          (help @copylib-help)
  443.          (confirm "average")
  444.          (source "mui/TextHistory.mcc")
  445.          (dest "MUI:Libs/MUI")
  446.          (optional "oknodelete" "force")
  447. )
  448.  
  449. (complete 97)
  450.  
  451. (copylib (prompt #prompt_copy "\n\StringHistory.mcc" )
  452.          (help @copylib-help)
  453.          (confirm "average")
  454.          (source "mui/StringHistory.mcc")
  455.          (dest "MUI:Libs/MUI")
  456.          (optional "oknodelete" "force")
  457. )
  458.  
  459. (complete 98)
  460. (copyfiles (source "IBrowse.prefs") (dest ibdir) )
  461.  
  462.  
  463. (if (exists "sys:utilities/multiview")
  464.   (set multiview "sys:utilities/multiview")
  465. )
  466.  
  467. (if (exists "sys:tools/multiview")
  468.   (set multiview "sys:tools/multiview")
  469. )
  470.  
  471. (if (exists "sys:system/multiview")
  472.   (set multiview "sys:system/multiview")
  473. )
  474.  
  475. (if (= multiview 0)
  476.   (message "Unable to find MultiView. Please read the file ReadMe.txt when you have finished this installation" )
  477. )
  478.  
  479. (run (cat multiview " ReadMe.txt") )
  480.  
  481. (complete 99)
  482.