netsurf/!NetSurf/!Boot,feb
John Mark Bell fe1e4efac2 [project @ 2003-12-27 04:50:02 by jmb]
Add rudimentary ANT URL protocol support

svn path=/import/netsurf/; revision=458
2003-12-27 04:50:02 +00:00

22 lines
989 B
Plaintext

Set NetSurf$Dir <Obey$Dir>
IconSprites <NetSurf$Dir>.!Sprites
Set File$Type_F79 CSS
| Acorn URI protocol
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
| ANT URI protocol
| Not yet ;)
|If "" = "<Alias$URLOpen_http>" Then Set Alias$URLOpen_http <NetSurf$Dir>.URILaunch %%*0
|If "" = "<Alias$URLOpen_https>" Then Set Alias$URLOpen_https <NetSurf$Dir>.URILaunch %%*0
|If "" = "<Alias$URLOpen_file>" Then Set Alias$URLOpen_file <NetSurf$Dir>.URILaunch %%*0
| Claim HTML and URI files
| Not Yet ;)
|If "" = "<Alias$@RunType_FAF>" Then Set Alias$@RunType_FAF <NetSurf$Dir>.URILaunch
|If "" = "<Alias$@RunType_B28>" Then Set Alias$@RunType_B28 <NetSurf$Dir>.URILaunch
|If "" = "<FTPc$Dir>" Then If "<Alias$@RunType_F91>" = "" Then Set Alias$@RunType_F91 <NetSurf$Dir>.URILaunch