From 46439007cf417cbd9ac8049bb4122c890097a0fa Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Fri, 22 Dec 2006 20:52:35 +0000
Subject: 20060303-partial

---
 module/url.m | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 module/url.m

(limited to 'module/url.m')

diff --git a/module/url.m b/module/url.m
new file mode 100644
index 00000000..fa537076
--- /dev/null
+++ b/module/url.m
@@ -0,0 +1,34 @@
+Url: module
+{
+	PATH : con "/dis/lib/url.dis";
+
+	# scheme ids
+	NOSCHEME, HTTP, HTTPS, FTP, FILE, GOPHER, MAILTO, NEWS,
+		NNTP, TELNET, WAIS, PROSPERO, JAVASCRIPT, UNKNOWN: con iota;
+
+	# general url syntax:
+	#    <scheme>://<user>:<passwd>@<host>:<port>/<path>?<query>#<fragment>
+	#
+	# relative urls might omit some prefix of the above
+	ParsedUrl: adt
+	{
+		scheme:	int;
+		utf8:		int;		# strings not in us-ascii
+		user:		string;
+		passwd:	string;
+		host:		string;
+		port:		string;
+		pstart:	string;	# what precedes <path>: either "/" or ""
+		path:		string;
+		query:	string;
+		frag:		string;
+
+		makeabsolute: fn(url: self ref ParsedUrl, base: ref ParsedUrl);
+		tostring: fn(url: self ref ParsedUrl) : string;
+	};
+
+	schemes: array of string;
+
+	init: fn();	# call before anything else
+	makeurl: fn(s: string) : ref ParsedUrl;
+};
-- 
cgit v1.2.3