implement Lex; include "common.m"; # local copies from CUsys: Sys;CU: CharonUtils;S: String;T: StringIntTab;C: Ctype;J: Script;ctype: array of byte; EOF : con -2;EOB : con -1; tagnames = array[] of {	" ",	"!",	"a", 	"abbr",	"acronym",	"address",	"applet", 	"area",	"b",	"base",	"basefont",	"bdo",	"big",	"blink",	"blockquote",	"body",	"bq",	"br",	"button",	"caption",	"center",	"cite",	"code",	"col",	"colgroup",	"dd",	"del",	"dfn",	"dir",	"div",	"dl",	"dt",	"em",	"fieldset",	"font",	"form",	"frame",	"frameset",	"h1",	"h2",	"h3",	"h4",	"h5",	"h6",	"head",	"hr",	"html",	"i",	"iframe",	"image",	"img",	"input",	"ins",	"isindex",	"kbd",	"label",	"legend",	"li",	"link",	"map",	"menu",	"meta",	"nobr",	"noframes",	"noscript",	"object",	"ol",	"optgroup",	"option",	"p",	"param",	"pre",	"q",	"s",	"samp",	"script",	"select",	"small",	"span",	"strike",	"strong",	"style",	"sub",	"sup",	"table",	"tbody",	"td",	"textarea",	"tfoot",	"th",	"thead",	"title",	"tr",	"tt",	"u",	"ul",	"var",	"xmp"}; tagtable : array of T->StringInt;	# initialized from tagnames attrnames = array[] of {	"abbr",	"accept",	"accept-charset",	"accesskey",	"action",	"align",	"alink",	"alt",	"archive",	"axis",	"background",	"bgcolor",	"border",	"cellpadding",	"cellspacing",	"char",	"charoff",	"charset",	"checked",	"cite",	"class",	"classid",	"clear",	"code",	"codebase",	"codetype",	"color",	"cols",	"colspan",	"compact",	"content",	"coords",	"data",	"datafld",	"dataformatas",	"datapagesize",	"datasrc",	"datetime",	"declare",	"defer",	"dir",	"disabled",	"enctype",	"event",	"face",	"for",	"frame",	"frameborder",	"headers",	"height",	"href",	"hreflang",	"hspace",	"http-equiv",	"id",	"ismap",	"label",	"lang",	"language",	"link",	"longdesc",	"lowsrc",	"marginheight",	"marginwidth",	"maxlength",	"media",	"method",	"multiple",	"name",	"nohref",	"noresize",	"noshade",	"nowrap",	"object",	"onabort",	"onblur",	"onchange",	"onclick",	"ondblclick",	"onerror",	"onfocus",	"onkeydown",	"onkeypress",	"onkeyup",	"onload",	"onmousedown",	"onmousemove",	"onmouseout",	"onmouseover",	"onmouseup",	"onreset",	"onresize",	"onselect",	"onsubmit",	"onunload",	"profile",	"prompt",	"readonly",	"rel",	"rev",	"rows",	"rowspan",	"rules",	"scheme",	"scope",	"scrolling",	"selected",	"shape",	"size",	"span",	"src",	"standby",	"start",	"style",	"summary",	"tabindex",	"target",	"text",	"title",	"type",	"usemap",	"valign",	"value",	"valuetype",	"version",	"vlink",	"vspace",	"width"}; attrtable : array of T->StringInt;	# initialized from attrnames chartab:= array[] of { T->StringInt	("AElig",	'Æ'),	("Aacute",	'Á'),	("Acirc",	'Â'),	("Agrave",	'À'),	("Alpha",	'Α'),	("Aring",	'Å'),	("Atilde",	'Ã'),	("Auml",	'Ä'),	("Beta",	'Β'),	("Ccedil",	'Ç'),	("Chi",	'Χ'),	("Dagger",	'‡'),	("Delta",	'Δ'),	("ETH",	'Ð'),	("Eacute",	'É'),	("Ecirc",	'Ê'),	("Egrave",	'È'),	("Epsilon",	'Ε'),	("Eta",	'Η'),	("Euml",	'Ë'),	("Gamma",	'Γ'),	("Iacute",	'Í'),	("Icirc",	'Î'),	("Igrave",	'Ì'),	("Iota",	'Ι'),	("Iuml",	'Ï'),	("Kappa",	'Κ'),	("Lambda",	'Λ'),	("Mu",	'Μ'),	("Ntilde",	'Ñ'),	("Nu",	'Ν'),	("OElig",	'Œ'),	("Oacute",	'Ó'),	("Ocirc",	'Ô'),	("Ograve",	'Ò'),	("Omega",	'Ω'),	("Omicron",	'Ο'),	("Oslash",	'Ø'),	("Otilde",	'Õ'),	("Ouml",	'Ö'),	("Phi",	'Φ'),	("Pi",	'Π'),	("Prime",	'″'),	("Psi",	'Ψ'),	("Rho",	'Ρ'),	("Scaron",	'Š'),	("Sigma",	'Σ'),	("THORN",	'Þ'),	("Tau",	'Τ'),	("Theta",	'Θ'),	("Uacute",	'Ú'),	("Ucirc",	'Û'),	("Ugrave",	'Ù'),	("Upsilon",	'Υ'),	("Uuml",	'Ü'),	("Xi",	'Ξ'),	("Yacute",	'Ý'),	("Yuml",	'Ÿ'),	("Zeta",	'Ζ'),	("aacute",	'á'),	("acirc",	'â'),	("acute",	'´'),	("aelig",	'æ'),	("agrave",	'à'),	("alefsym",	'ℵ'),	("alpha",	'α'),	("amp",	'&'),	("and",	'∧'),	("ang",	'∠'),	("aring",	'å'),	("asymp",	'≈'),	("atilde",	'ã'),	("auml",	'ä'),	("bdquo",	'„'),	("beta",	'β'),	("brvbar",	'¦'),	("bull",	'•'),	("cap",	'∩'),	("ccedil",	'ç'),	("cdots", '⋯'),	("cedil",	'¸'),	("cent",	'¢'),	("chi",	'χ'),	("circ",	'ˆ'),	("clubs",	'♣'),	("cong",	'≅'),	("copy",	'©'),	("crarr",	'↵'),	("cup",	'∪'),	("curren",	'¤'),	("dArr",	'⇓'),	("dagger",	'†'),	("darr",	'↓'),	("ddots", '⋱'),	("deg",	'°'),	("delta",	'δ'),	("diams",	'♦'),	("divide",	'÷'),	("eacute",	'é'),	("ecirc",	'ê'),	("egrave",	'è'),	("emdash", '—'),	("empty",	'∅'),	("emsp",	' '),	("endash", '–'),	("ensp",	' '),	("epsilon",	'ε'),	("equiv",	'≡'),	("eta",	'η'),	("eth",	'ð'),	("euml",	'ë'),	("euro",	'€'),	("exist",	'∃'),	("fnof",	'ƒ'),	("forall",	'∀'),	("frac12",	'½'),	("frac14",	'¼'),	("frac34",	'¾'),	("frasl",	'⁄'),	("gamma",	'γ'),	("ge",	'≥'),	("gt",	'>'),	("hArr",	'⇔'),	("harr",	'↔'),	("hearts",	'♥'),	("hellip",	'…'),	("iacute",	'í'),	("icirc",	'î'),	("iexcl",	'¡'),	("igrave",	'ì'),	("image",	'ℑ'),	("infin",	'∞'),	("int",	'∫'),	("iota",	'ι'),	("iquest",	'¿'),	("isin",	'∈'),	("iuml",	'ï'),	("kappa",	'κ'),	("lArr",	'⇐'),	("lambda",	'λ'),	("lang",	'〈'),	("laquo",	'«'),	("larr",	'←'),	("lceil",	'⌈'),	("ldots", '…'),	("ldquo",	'“'),	("le",	'≤'),	("lfloor",	'⌊'),	("lowast",	'∗'),	("loz",	'◊'),	("lrm",	'‎'),	("lsaquo",	'‹'),	("lsquo",	'‘'),	("lt",	'<'),	("macr",	'¯'),	("mdash",	'—'),	("micro",	'µ'),	("middot",	'·'),	("minus",	'−'),	("mu",	'μ'),	("nabla",	'∇'),	("nbsp",	' '),	("ndash",	'–'),	("ne",	'≠'),	("ni",	'∋'),	("not",	'¬'),	("notin",	'∉'),	("nsub",	'⊄'),	("ntilde",	'ñ'),	("nu",	'ν'),	("oacute",	'ó'),	("ocirc",	'ô'),	("oelig",	'œ'),	("ograve",	'ò'),	("oline",	'‾'),	("omega",	'ω'),	("omicron",	'ο'),	("oplus",	'⊕'),	("or",	'∨'),	("ordf",	'ª'),	("ordm",	'º'),	("oslash",	'ø'),	("otilde",	'õ'),	("otimes",	'⊗'),	("ouml",	'ö'),	("para",	'¶'),	("part",	'∂'),	("permil",	'‰'),	("perp",	'⊥'),	("phi",	'φ'),	("pi",	'π'),	("piv",	'ϖ'),	("plusmn",	'±'),	("pound",	'£'),	("prime",	'′'),	("prod",	'∏'),	("prop",	'∝'),	("psi",	'ψ'),	("quad", ' '),	("quot",	'"'),	("quot", '"'),	("rArr",	'⇒'),	("radic",	'√'),	("rang",	'〉'),	("raquo",	'»'),	("rarr",	'→'),	("rceil",	'⌉'),	("rdquo",	'”'),	("real",	'ℜ'),	("reg",	'®'),	("rfloor",	'⌋'),	("rho",	'ρ'),	("rlm",	'‏'),	("rsaquo",	'›'),	("rsquo",	'’'),	("sbquo",	'‚'),	("scaron",	'š'),	("sdot",	'⋅'),	("sect",	'§'),	("shy",	'­'),	("sigma",	'σ'),	("sigmaf",	'ς'),	("sim",	'∼'),	("sp", ' '),	("spades",	'♠'),	("sub",	'⊂'),	("sube",	'⊆'),	("sum",	'∑'),	("sup",	'⊃'),	("sup1",	'¹'),	("sup2",	'²'),	("sup3",	'³'),	("supe",	'⊇'),	("szlig",	'ß'),	("tau",	'τ'),	("there4",	'∴'),	("theta",	'θ'),	("thetasym",	'ϑ'),	("thinsp",	' '),	("thorn",	'þ'),	("tilde",	'˜'),	("times",	'×'),	("trade",	'™'),	("uArr",	'⇑'),	("uacute",	'ú'),	("uarr",	'↑'),	("ucirc",	'û'),

Lines 1–500 of 1340. Load more