From 7c474c848ee97bf0c72e5e216c36aaf6b6a3be91 Mon Sep 17 00:00:00 2001
From: John Mark Bell <jmb@netsurf-browser.org>
Date: Wed, 30 Jul 2003 13:06:22 +0000
Subject: [project @ 2003-07-30 13:06:22 by jmb] Add support for Acorn URI
 Protocol and URI files (Rob Jackson)

svn path=/import/netsurf/; revision=242
---
 !NetSurf/!Boot         | 17 +++++++++++++++++
 !NetSurf/!Boot,feb     | 17 +++++++++++++++++
 !NetSurf/!Run,feb      |  9 +++++----
 !NetSurf/URILaunch,feb |  1 +
 4 files changed, 40 insertions(+), 4 deletions(-)
 create mode 100644 !NetSurf/!Boot
 create mode 100644 !NetSurf/!Boot,feb
 create mode 100644 !NetSurf/URILaunch,feb

(limited to '!NetSurf')

diff --git a/!NetSurf/!Boot b/!NetSurf/!Boot
new file mode 100644
index 000000000..e2e7e6ce1
--- /dev/null
+++ b/!NetSurf/!Boot
@@ -0,0 +1,17 @@
+Set NetSurf$Dir <Obey$Dir>
+
+IconSprites <NetSurf$Dir>.!Sprites
+Set File$Type_F79 CSS
+
+| Acorn URI protocol
+Set NetSurf$start_uri_handler "no"
+RMEnsure AcornURI 0.10 Set NetSurf$start_uri_handler "yes"
+RMEnsure AcornURI 0.10 RMLoad System:310.Modules.Network.URI
+If "<NetSurf$start_uri_handler>" = "yes" Then Desktop
+
+If "<Alias$Open_URI_http>" = "" Then Set Alias$Open_URI_http <NetSurf$Dir>.URILaunch
+If "<Alias$Open_URI_https>" = "" Then Set Alias$Open_URI_https <NetSurf$Dir>.URILaunch
+If "<Alias$Open_URI_file>" = "" Then Set Alias$Open_URI_file <NetSurf$Dir>.URILaunch
+
+| Claim URI files
+If "<Alias$@RunType_F91>" = "" Then Set Alias$@RunType_F91 <NetSurf$Dir>.URILaunch
diff --git a/!NetSurf/!Boot,feb b/!NetSurf/!Boot,feb
new file mode 100644
index 000000000..e2e7e6ce1
--- /dev/null
+++ b/!NetSurf/!Boot,feb
@@ -0,0 +1,17 @@
+Set NetSurf$Dir <Obey$Dir>
+
+IconSprites <NetSurf$Dir>.!Sprites
+Set File$Type_F79 CSS
+
+| Acorn URI protocol
+Set NetSurf$start_uri_handler "no"
+RMEnsure AcornURI 0.10 Set NetSurf$start_uri_handler "yes"
+RMEnsure AcornURI 0.10 RMLoad System:310.Modules.Network.URI
+If "<NetSurf$start_uri_handler>" = "yes" Then Desktop
+
+If "<Alias$Open_URI_http>" = "" Then Set Alias$Open_URI_http <NetSurf$Dir>.URILaunch
+If "<Alias$Open_URI_https>" = "" Then Set Alias$Open_URI_https <NetSurf$Dir>.URILaunch
+If "<Alias$Open_URI_file>" = "" Then Set Alias$Open_URI_file <NetSurf$Dir>.URILaunch
+
+| Claim URI files
+If "<Alias$@RunType_F91>" = "" Then Set Alias$@RunType_F91 <NetSurf$Dir>.URILaunch
diff --git a/!NetSurf/!Run,feb b/!NetSurf/!Run,feb
index 4adcb819d..fddf59b0c 100644
--- a/!NetSurf/!Run,feb
+++ b/!NetSurf/!Run,feb
@@ -1,15 +1,16 @@
 |rafs_flush
 
-Set NetSurf$Dir <Obey$Dir>
-
-IconSprites <NetSurf$Dir>.!Sprites
-Set File$Type_F79 CSS
+If "<NetSurf$Dir>" = "" Then Obey <Obey$Dir>.!Boot
 
 RMensure WindowManager 3.80 Error 0 NetSurf requires the Nested Window Manager.
 RMEnsure UtilityModule 3.70 RMensure CallASWI 0.00 RMload <NetSurf$Dir>.CallASWI
 RMEnsure SharedUnixLibrary 1.00 RMLoad System:Modules.SharedULib
 
+
 | drag the 'next' slot in the task manager to something huge and ridiculous,
 | and/or increase the number below
 Wimpslot -min 2000k
+
+Set NetSurf$running "yes"
 <NetSurf$Dir>.!RunImage 2><NetSurf$Dir>.stderr
+UnSet NetSurf$running
diff --git a/!NetSurf/URILaunch,feb b/!NetSurf/URILaunch,feb
new file mode 100644
index 000000000..f0d485ce4
--- /dev/null
+++ b/!NetSurf/URILaunch,feb
@@ -0,0 +1 @@
+If "<NetSurf$running>" <> "yes" Then Run <NetSurf$Dir>.!Run
\ No newline at end of file
-- 
cgit v1.2.1