File:  [Public] / Amaya / amaya / Template.S
Revision 1.3: download - view: text, annotated - select for diffs
Thu Jul 21 14:59:58 2005 UTC (18 years, 11 months ago) by tollenae
Branches: MAIN
CVS tags: HEAD
Fix read-only free_struct and free_content elements

            { A. Tollenaere	July 2005 }

	{ Templates schema. Only implements }
	{ protected areas yet }
	
STRUCTURE Template;

DEFPRES TemplateP;

ATTR
   { No global attributes for protected areas }

   { generic attributes for internal use }
   Unknown_attribute = TEXT;	{ to store an unknown attribute }
   Ghost_restruct = TEXT;	{ to help structure transformation }

CONST

  C_Empty = ' ';

STRUCT

  Template { No attribute for the root } =
	CASE OF
		free_struct = ANY ;
		free_content = ANY ;
	END; 
	
EXCEPT

    Unknown_attribute: Invisible;
    free_struct: NoCreate;
		free_content: NoCreate;

END

Webmaster