1 files changed, 41 insertions, 0 deletions
diff --git a/module/html.m b/module/html.m
new file mode 100644
index 00000000..170cd8bd
--- /dev/null
+++ b/module/html.m
@@ -0,0 +1,41 @@
+HTML: module
+{
+	PATH:		con "/dis/lib/html.dis";
+
+	Lex: adt
+	{
+		tag:		int;
+		text:		string;	# text in Data, attribute text in tag
+		attr:		list of Attr;
+	};
+
+	Attr: adt
+	{
+		name:	string;
+		value:	string;
+	};
+
+	# sorted in lexical order; used as array indices
+	Notfound,
+	Ta, Taddress, Tapplet, Tarea, Tatt_footer, Tb,
+		Tbase, Tbasefont, Tbig, Tblink, Tblockquote, Tbody,
+		Tbq, Tbr, Tcaption, Tcenter, Tcite, Tcode, Tcol, Tcolgroup,
+		Tdd, Tdfn, Tdir, Tdiv, Tdl, Tdt, Tem,
+		Tfont, Tform, Tframe, Tframeset,
+		Th1, Th2, Th3, Th4, Th5, Th6, Thead, Thr, Thtml, Ti, Timg,
+		Tinput, Tisindex, Titem, Tkbd, Tli, Tlink, Tmap, Tmenu,
+		Tmeta, Tnobr, Tnoframes, Tol, Toption, Tp, Tparam, Tpre,
+		Tq, Tsamp, Tscript, Tselect, Tsmall, Tstrike, Tstrong,
+		Tstyle, Tsub, Tsup, Tt, Ttable, Ttbody, Ttd, Ttextarea, Ttextflow, Ttfoot, Tth,
+		Tthead, Ttitle, Ttr, Ttt, Tu, Tul, Tvar
+			: con iota;
+	RBRA: con 1000;
+	Data: con 2000;
+	Latin1, UTF8: con iota;	# charsets
+
+	lex:		fn(b: array of byte, charset: int, keepnls: int): array of ref Lex;
+	attrvalue:	fn(attr: list of Attr, name: string): (int, string);
+	globalattr:	fn(html: array of ref Lex, tag: int, attr: string): (int, string);
+	isbreak:	fn(h: array of ref Lex, i: int): int;
+	lex2string:	fn(l: ref Lex): string;
+};