introducing atomic steps

git-svn-id: https://slps.svn.sourceforge.net/svnroot/slps@603 ab42f6e0-554d-0410-b580-99e487e6eeb2
grammarware · Apr 22, 2009 · 89d431e · 89d431e
1 parent 8cd3cd4
commit 89d431e
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 1 deletion.
diff --git a/shared/prolog/readXbgf.pro b/shared/prolog/readXbgf.pro
@@ -289,6 +289,13 @@ xml2xbgf(T,sequence(Ts2))
     !,
     maplist(once(xml2xbgf),Ts1,Ts2).
 
+xml2xbgf(T,sequence(Ts2))
+ :-
+    self(name(xbgf:atomic),T),
+    children(element,T,Ts1),
+    !,
+    maplist(once(xml2xbgf),Ts1,Ts2).
+
 xml2xbgf(T,abridge(P2))
  :-
     self(name(xbgf:abridge),T),

diff --git a/shared/xsd/xbgf.xsd b/shared/xsd/xbgf.xsd
@@ -23,7 +23,21 @@
       </xsd:documentation>
     </xsd:annotation>
     <xsd:complexType>
-      <xsd:group ref="xbgf:transformation" minOccurs="0" maxOccurs="unbounded"/>
+      <xsd:choice minOccurs="0" maxOccurs="unbounded">
+        <xsd:group ref="xbgf:transformation"/>
+        <xsd:element ref="xbgf:atomic"/>
+      </xsd:choice>
+    </xsd:complexType>
+  </xsd:element>
+
+  <xsd:element name="atomic">
+    <xsd:annotation>
+      <xsd:documentation>
+        Multiple transformations that must be for some reason perceived as one step.
+      </xsd:documentation>
+    </xsd:annotation>
+    <xsd:complexType>
+      <xsd:group ref="xbgf:transformation" maxOccurs="unbounded"/>
     </xsd:complexType>
   </xsd:element>