X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=etc%2Feffect.dtd;h=9df3aeca8d8549618ee7fe475f1e6c148d0532c4;hb=25b98cffb1adb46fe80496cd01b336dac0f5f168;hp=7333af61b6abf11b733e757d0503826e477f2ab0;hpb=49f32e0a26f86e0d271da642c0ee3c16e08ef7d5;p=libfirm

diff --git a/etc/effect.dtd b/etc/effect.dtd
index 7333af61b..9df3aeca8 100644
--- a/etc/effect.dtd
+++ b/etc/effect.dtd
@@ -1,24 +1,39 @@
-<!-- effect.dtd - DTD to model effects of external procedures inside firm. -->
-<!-- $Id$ -->
+<!--
+* Project:     libFIRM
+* File name:   effect.dtd
+* Purpose:     DTD to model effects of external procedures inside firm.
+* Author:      Florian Liekweg
+* Modified by: Boris Boesler
+* Created:     Y.X.2004
+* CVS-ID:      $Id$
+* Copyright:   (c) 1999-2004 Universität Karlsruhe
+* Licence:     This file is protected by GPL -  GNU GENERAL PUBLIC LICENSE.
+-->
 
 <!-- upload this file to http://www/~firm/ after making changes -->
 
 <!-- content model for all nodes -->
 <!-- allow nodes/entity accesses to reference other nodes/an entity -->
-<!ENTITY	% firm.id			"id ID #REQUIRED">
+<!ENTITY	% firm.id		"id ID #REQUIRED">
 
-<!-- allow a node to specify a type -->
+<!-- allow a node to specify a type --> <!-- rename to firm.typeref -->
 <!ENTITY	% firm.type		"type CDATA #REQUIRED">
 
 <!-- allow a node to specify a field -->
 <!ENTITY	% firm.entity		"entity CDATA #REQUIRED">
 
+<!-- allow a node to specify a typeid --> <!-- wird das jemals gebraucht? -->
+<!ENTITY	% typeid		"typeid CDATA #REQUIRED">
+
+<!-- allow an eneity to specify an owner -->
+<!ENTITY	% firm.owner		"owner CDATA #REQUIRED">
+
 <!-- the root element -->
 <!ELEMENT	effects (type*, entity*, effect*)>
 <!ATTLIST  	effects
 			module		CDATA		#IMPLIED>
 
-<!-- an entity reference -->
+<!-- a type reference -->
 <!ELEMENT	type	EMPTY>
 <!ATTLIST	type
 			%firm.id;
@@ -29,25 +44,28 @@
 <!ATTLIST	entity
 			%firm.id;
 			%firm.type;
-			%firm.entity;>
+			%firm.entity;
+			%firm.owner;>
 
 <!-- a single effect -->
 <!ELEMENT  	effect (arg*, (load|store|alloc|call|join|unknown)*, raise?, ret)>
 <!ATTLIST  	effect
-			procname	CDATA		#REQUIRED>
+			procname	CDATA		#REQUIRED <!-- warum keine firm.entity? -->
+			%firm.owner;>
 
 <!-- procedure argument -->
 <!ELEMENT	arg			EMPTY>
 <!ATTLIST 	arg
 			%firm.id;
-			number		CDATA		#REQUIRED>
+			number		CDATA		#REQUIRED
+		    %firm.type;>
 
 <!-- reference another value -->
 <!ELEMENT	valref		EMPTY>
 <!ATTLIST	valref
 			refid		IDREF		#REQUIRED>
 
-<!-- load effect -->
+<!-- select element for use with store, load and call -->
 <!-- for static entities, use a 'select' without a child element -->
 <!ELEMENT	select		(valref?)>
 <!ATTLIST	select		%firm.entity;>
@@ -58,14 +76,15 @@
 			%firm.id;>
 
 <!-- store effect -->
-<!ELEMENT	store		(select,valref)>
+<!ELEMENT	store		((valref|select),valref)>
 
 <!-- alloc effect -->
 <!ELEMENT	alloc		EMPTY>
-<!ATTLIST	alloc		%firm.id;%firm.type;>
+<!ATTLIST	alloc		%firm.id;
+		                %firm.type;>
 
 <!-- call effect -->
-<!ELEMENT	call		(select,(valref)*)>
+<!ELEMENT	call		((select|valref),(valref)*)>
 <!ATTLIST	call		%firm.id;>
 
 <!-- unknown value -->
@@ -81,11 +100,29 @@
 <!ATTLIST	raise		%firm.type;>
 
 <!-- ret effect -->
-<!ELEMENT	ret			(valref?)>
+<!ELEMENT	ret		(valref?)>
 
 <!--
 
  $Log$
+ Revision 1.12  2004/11/24 14:53:10  liekweg
+ Annotated after writing Tech Report
+
+ Revision 1.11  2004/11/02 14:30:56  liekweg
+ Re-allow multi-input join
+
+ Revision 1.10  2004/10/29 18:52:32  liekweg
+ Allow only two values for join
+
+ Revision 1.9  2004/10/29 18:38:36  liekweg
+ ** Allow store ::= ((valref|select),valref)
+
+ Revision 1.8  2004/10/25 13:51:32  boesler
+ minor changes like owner
+
+ Revision 1.7  2004/10/21 15:32:21  boesler
+ minor changes
+
  Revision 1.6  2004/10/11 09:55:19  liekweg
  Renamed 'return' to 'ret' -flo