summaryrefslogtreecommitdiff
path: root/amiga/dist/Install
diff options
context:
space:
mode:
authorVincent Sanders <vince@kyllikki.org>2016-05-05 22:28:51 +0100
committerVincent Sanders <vince@kyllikki.org>2016-05-15 13:44:34 +0100
commitd21447d096a320a08b3efb2b8768fad0dcdcfd64 (patch)
tree1a83814b7c9e94b2f13c473261f23dd3a17dee64 /amiga/dist/Install
parent2cbb337756d9af5bda4d594964d446439f602551 (diff)
downloadnetsurf-d21447d096a320a08b3efb2b8768fad0dcdcfd64.tar.gz
netsurf-d21447d096a320a08b3efb2b8768fad0dcdcfd64.tar.bz2
move frontends into sub directory
Diffstat (limited to 'amiga/dist/Install')
-rwxr-xr-xamiga/dist/Install397
1 files changed, 0 insertions, 397 deletions
diff --git a/amiga/dist/Install b/amiga/dist/Install
deleted file mode 100755
index e8d9d0ed7..000000000
--- a/amiga/dist/Install
+++ /dev/null
@@ -1,397 +0,0 @@
-; Installation script for NetSurf
-
-(procedure p_append #filename #text
- (set #file-path (tackon "ENVARC:launch-handler/URL" #protocol))
- (set #def-file-path (tackon "ENVARC:launch-handler/URL/defaults" #protocol))
-
- (if (exists #file-path)
- (
- (set #inc #file-path)
- )
- ;else
- (
- (set #inc #def-file-path)
- )
- )
-
- (textfile
- (dest #file-path)
- (include #inc)
- (append #text)
- )
-)
-
-(procedure p_chk_launch-handler #protocol
- (if (exists (tackon "ENVARC:launch-handler/URL" #protocol))
- (
- (run "C:Search >T:NS_Install.tmp " (tackon "ENVARC:launch-handler/URL" #protocol) " NetSurf" (safe))
- )
- ;else
- (
- (run "C:Search >T:NS_Install.tmp " (tackon "ENVARC:launch-handler/URL/defaults" #protocol) " NetSurf" (safe))
- )
- )
-
- (set #has_entry (getsize "T:NS_Install.tmp"))
-)
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Script execution starts here ;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(set osver (getversion "libs:version.library"))
-(set osver (/ osver 65536))
-
-(if (= @app-name "NetSurfAutoInstall") (set #AutoInstall 1))
-(set @app-name "NetSurf")
-
-(set #netsurf-readme "NetSurf.readme")
-(if (= (exists #netsurf-readme) 0)
- (
- (set #netsurf-readme "NetSurf_os3.readme")
- (if (OR (>= osver 50) (< osver 44))
- (abort "This archive is for AmigaOS 3.5 or 3.9 ONLY.")
- )
- )
- ;else
- (
- (if (< osver 50)
- (abort "This archive is for AmigaOS 4.0 and higher ONLY.")
- )
- )
-)
-
-(if (<> #AutoInstall 1) (welcome))
-
-; (hopefully temporary) workaround for a bug in Installer:
-(if (= @language "dutch") (set @askdir-help ""))
-
-(complete 0)
-
-(set @default-dest (getenv "AppPaths/NetSurf"))
-
-; If env-var did not exist, this is a first time install.
-; For novice users we must take care to put the files somewhere sensible.
-(if (= @default-dest "")
- (
- ; Workaround for Installer bug picking TEXTCLIP: as a sensible location
- (if (= @default-dest "TextClip:") (set @default-dest "SYS:Internet"))
-
- (if (= @user-level 0)
- (
- (makedir (tackon @default-dest "NetSurf") (infos))
- (set @default-dest (tackon @default-dest "NetSurf"))
- )
- )
- )
-)
-
-(set @default-dest
- (askdir
- (prompt "Where would you like to install NetSurf?\n"
- "(a drawer WILL NOT be created)")
- (help @askdir-help)
- (default @default-dest)
- )
-)
-
-(complete 5)
-
-(working "Checking existing installation...")
-(set #icon-exists (exists (tackon @default-dest "NetSurf.info")))
-
-(complete 10)
-
-(set #user (getenv "user"))
-(if (= #user "") (set #user "Default"))
-
-(set #user-dir (tackon (tackon @default-dest "Users") #user))
-(set #user-options (tackon #user-dir "Choices"))
-(set #options-exist (exists #user-options))
-(set #searchengines-exist (exists (tackon @default-dest "Resources/SearchEngines")))
-(set #user-hotlist (tackon #user-dir "Hotlist"))
-(set #hotlist-exist (exists #user-hotlist))
-(set #old-hotlist (tackon @default-dest "Resources/Hotlist"))
-(set #old-hotlist-exist (exists #old-hotlist))
-(set #aiss-theme "")
-
-(if (= #options-exist 0)
- (
- (if (exists "TBimages:" (noreq))
- (set #aiss-theme "AISS")
- )
-
- (set #themename
- (askchoice
- (prompt "Please select theme")
- (help "AISS theme requires AISS (and def_pointers for 32-bit "
- "pointers), and will only be shown as an option if "
- "AISS is installed.\n\n"
- @askchoice-help)
- (choices "Default" #aiss-theme)
- (default 0)
- )
- )
-
- (select #themename
- (set #themeshort "Default")
- (set #themeshort "AISS")
- )
-
- (set #theme (tackon "PROGDIR:Resources/Themes/" #themeshort))
- )
-)
-
-(complete 15)
-
-(if (>= osver 53)
- (
- (if (= #AutoInstall 1)
- (
- (set #addlaunchhandler 0)
- )
- ;else
- (
- (set #addlaunchhandler
- (askbool
- (prompt "Add NetSurf to launch-handler? (recommended)")
- (help "launch-handler is part of OS4.1 which opens URLs "
- " by launching a web browser.\n\n"
- "The installation will update the configuration of "
- "OS4.1 to allow URLs to be opened by NetSurf.")
- (default 1)
- )
- )
- )
- )
- )
- ;else
- (
- (set #addlaunchhandler 0)
- )
-)
-
-(complete 20)
-
-(set #runfixfonts
- (askbool
- (prompt "Installer will run FixFonts after NetSurf is installed. "
- "Unless you have a *very* good reason you should not skip this step.")
- (help "FixFonts corrects inconsistencies in the Amiga FONTS: structure. "
- "Running it will prevent NetSurf hitting problems when the fonts are scanned.")
- (default 1)
- (choices "Run FixFonts" "Skip")
- )
-)
-
-(complete 25)
-
-(working "Installing NetSurf")
-
-(if (= #AutoInstall 0)
- (
- (copyfiles
- (prompt "Copying NetSurf...")
- (help @copyfiles-help)
- (source "NetSurf")
- (dest @default-dest)
- (newname "NetSurf")
- (optional "askuser" "force" "oknodelete")
- (confirm "expert")
- )
- )
-;else
- (
- (run "CopyStore NetSurf" @default-dest)
- )
-)
-
-(complete 40)
-
-(if #searchengines-exist
- (rename (tackon @default-dest "Resources/SearchEngines") (tackon @default-dest "Resources/SearchEngines.backup"))
-)
-
-(run "c:filenote Rexx/CloseTabs.nsrx \"Close other tabs\"")
-(run "c:filenote Rexx/ViewSource.nsrx \"View source\"")
-
-(complete 50)
-
-(copyfiles
- (prompt "Copying files")
- (source "")
- (choices "Resources" "Rexx" "NetSurf.guide" #netsurf-readme)
- (help @copyfiles-help)
- (dest @default-dest)
- (infos)
- (optional "nofail")
-; (all)
-)
-
-(complete 65)
-
-(copyfiles
- (prompt "Copying additional documentation")
- (source "")
- (pattern "(COPYING|ChangeLog)")
- (help @copyfiles-help)
- (dest @default-dest)
- (infos)
- (optional "nofail")
-)
-
-(complete 70)
-
-(if #themeshort
- (
- (set #theme-icon
- (tackon "Resources/Themes"
- (tackon #themeshort "NetSurf.info")
- )
- )
-
- (if (exists #theme-icon)
- (
- (copyfiles
- (prompt "Copying theme icon")
- (help @copyfiles-help)
- (source #theme-icon)
- (dest @default-dest)
- )
- )
- )
-
- (makedir #user-dir)
-
- (textfile
- (prompt "Setting default options")
- (help @textfile-help)
- (dest #user-options)
- (append "theme:" #theme "\n")
- (append "pubscreen_name:Workbench\n")
- )
-
- (if (= #hotlist-exist 0)
- (if (= #old-hotlist-exist 1)
- (
- (copyfiles
- (prompt "Migrating NetSurf 2.x Hotlist")
- (help @copyfiles-help)
- (source #old-hotlist)
- (dest #user-dir)
- (optional "askuser" "force" "oknodelete")
- )
- )
- )
- )
- )
-)
-
-(complete 75)
-
-(if (= (exists "ENVARC:Sys/def_css.info") 0)
- (copyfiles
- (prompt "Copying default CSS icon")
- (source "Resources/default.css.info")
- (newname "def_css.info")
- (help @copyfiles-help)
- (dest "ENVARC:Sys")
- (optional "nofail")
- )
-)
-
-(complete 80)
-
-(if (>= osver 53)
- (if (= (exists "Rexx:NetSurf") 0)
- (
- (textfile
- (prompt "Creating NetSurf launch helper")
- (help @textfile-help)
- (dest "Rexx:NetSurf")
- (append "/*\n"
-" * Copyright 2013 Chris Young <chris@unsatisfactorysoftware.co.uk>\n"
-" *\n"
-" * This file is part of NetSurf, http://www.netsurf-browser.org/\n"
-" *\n"
-" * NetSurf is free software; you can redistribute it and/or modify\n"
-" * it under the terms of the GNU General Public License as published by\n"
-" * the Free Software Foundation; version 2 of the License.\n"
-" *\n"
-" * NetSurf is distributed in the hope that it will be useful,\n"
-" * but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
-" * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n"
-" * GNU General Public License for more details.\n"
-" *\n"
-" * You should have received a copy of the GNU General Public License\n"
-" * along with this program. If not, see <http://www.gnu.org/licenses/>.\n"
-" */\n"
-"\n"
-"/* This is a convenience script for launching NetSurf from the Shell.\n"
-" * If NetSurf is already running it will open the supplied URL in a new tab.\n"
-" * This can be used in URL Prefs in place of directly calling APPDIR:NetSurf.\n"
-" */\n"
-"\n"
-"options results\n"
-"parse arg url\n"
-"\n"
-"if show('P', 'NETSURF') then do\n"
-" address NETSURF 'OPEN' url 'NEWTAB'\n"
-" address NETSURF 'TOFRONT'\n"
-"end\n"
-"else do\n"
-" address command 'APPDIR:NetSurf URL' url\n"
-"end\n")
- )
- (protect "Rexx:NetSurf" "+se")
- )
- )
-)
-
-(complete 85)
-
-(if (= #addlaunchhandler 1)
- (
- (working "Adding NetSurf to launch-handler config")
- (if (= (p_chk_launch-handler "FILE.LH") 0)
- (p_append "FILE.LH" "ClientName=\"NETSURF\" ClientPath=\"Rexx:NetSurf\" CMDFORMAT=\"*\"file:///%s*\"\"")
- )
-
- (if (= (p_chk_launch-handler "HTTP.LH") 0)
- (p_append "HTTP.LH" "ClientName=\"NETSURF\" ClientPath=\"Rexx:NetSurf\" CMDFORMAT=\"*\"http://%s*\"\"")
- )
-
- (if (= (p_chk_launch-handler "HTTPS.LH") 0)
- (p_append "HTTPS.LH" "ClientName=\"NETSURF\" ClientPath=\"Rexx:NetSurf\" CMDFORMAT=\"*\"https://%s*\"\"")
- )
-
- (if (= (p_chk_launch-handler "WWW.LH") 0)
- (p_append "WWW.LH" "ClientName=\"NETSURF\" ClientPath=\"Rexx:NetSurf\" CMDFORMAT=\"*\"http://www.%s*\"\"")
- )
-
-; (if (= (p_chk_launch-handler "FTP.LH") 0)
-; (p_append "FTP.LH" "ClientName=\"NETSURF\" ClientPath=\"Rexx:NetSurf\" CMDFORMAT=\"*\"ftp://%s*\"\"")
-; )
- )
-)
-
-(complete 90)
-
-(working "Running FixFonts")
-
-(if #runfixfonts
- (
- (run "SYS:System/FixFonts")
- )
-)
-
-(complete 100)
-
-(if (= #AutoInstall 1)
- (
- (exit (quiet))
- )
- (
- (exit)
- )
-)