code: purgatorio

ref: ee695eff4329234e20abb68ff3100d3b15929418
dir: /module/css.m/

#
# CSS parsing module
#
# CSS2.1 style sheets
#
# Copyright © 2001, 2005 Vita Nuova Holdings Limited.  All rights reserved.
#
CSS: module
{
	PATH:	con "/dis/lib/w3c/css.dis";

	Stylesheet: adt {
		charset:	string;
		imports:	list of ref Import;
		statements:	list of ref Statement;
	};

	Import: adt {
		name:	string;
		media:	list of string;
	};

	Statement: adt {
		pick{
		Media =>
			media:	list of string;
			rules:	list of ref Statement.Ruleset;
		Page =>
			pseudo:	string;
			decls:	list of ref Decl;
		Ruleset =>
			selectors:	list of Selector;
			decls:	list of ref Decl;
		}
	};

	Decl: adt {
		property:	string;
		values:	list of ref Value;
		important:	int;
	};

	Selector:	type list of (int, Simplesel);	# int is combinator from [ >+]
	Simplesel: type list of ref Select;

	Select: adt {
		name:	string;
		pick{
		Element or ID or Any or Class or Pseudo =>
		Attrib =>
			op:	string;	# "=" "~=" "|="
			value:	ref Value;	# optional Ident or String
		Pseudofn =>
			arg:	string;
		}
	};

	Value: adt {
		sep:	int;	# which operator of [ ,/] preceded this value in list
		pick{
		String or
		Number or
		Percentage or
		Url or
		Unicoderange =>
			value:	string;
		Hexcolour =>
			value:	string;	# as given
			rgb:	(int, int, int);	# converted
		RGB =>
			args:	cyclic list of ref Value;	# as given
			rgb:	(int, int, int);		# converted
		Ident =>
			name:	string;
		Unit =>
			value:	string;	# int or float
			units:	string;	# suffix giving units ("cm", "khz", and so on, always lower case)
		Function =>
			name:	string;
			args:		cyclic list of ref Value;
		}
	};

	init:	fn(diag: int);
	parse:	fn(s: string): (ref Stylesheet, string);
	parsedecl:	fn(s: string): (list of ref Decl, string);
#	unescape:	fn(s: string): string;
};