:-[hml].

go:-hml_load('editor-model.xttml'), showall.

showall:-
	write('Attributes:'),nl,fail.
showall:-
	att(Id,Name,Abbrev,TypeId,Value,Class),
	write(att(Id,Name,Abbrev,TypeId,Value,Class)), nl ,fail.
showall:-
	write('Types:'),nl,fail.
showall:-
	type(Id,Name,Base,Len,Scale,Domain,Vals),
	write(type(Id,Name,Base,Len,Scale,Domain,Vals)),nl,fail.
showall:-
	write('Schemas:'),nl,fail.
showall:-
    schema(XttId,Independent,Dependent),
    write(schema(XttId,Independent,Dependent)),nl,fail.
showall:-
	write('Rules:'),nl,fail.
showall:-
	rule(XttId, Id, Condition, Decision, XttNext),
	write(rule(XttId, Id, Condition, Decision, XttNext)),nl,fail.
showall.

:-go.