Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
token is terminal, not epsilon
git-svn-id: https://slps.svn.sourceforge.net/svnroot/slps@511 ab42f6e0-554d-0410-b580-99e487e6eeb2
  • Loading branch information
grammarware committed Mar 3, 2009
1 parent 6835336 commit bc978ac
Showing 1 changed file with 14 additions and 3 deletions.
17 changes: 14 additions & 3 deletions shared/prolog/xsd2bgf.pro
Expand Up @@ -489,9 +489,19 @@ xFromSType(S,T,X)
children(name(xsd:enumeration),R,Es),
( \+ Es == [] ->
(
maplist(attribute(value),Es,Vs),
maplist(xFromEnumeration,Vs,Xs),
X = ';'(Xs)
(
attribute(base,R,QN),
qname(QN,_,token),
maplist(attribute(value),Es,Vs),
maplist(xFromTokenEnumeration,Vs,Xs),
X = ';'(Xs)
)
;
(
maplist(attribute(value),Es,Vs),
maplist(xFromEnumeration,Vs,Xs),
X = ';'(Xs)
)
)
;
(
Expand All @@ -502,6 +512,7 @@ xFromSType(S,T,X)
!.

xFromEnumeration(V,s(V,true)).
xFromTokenEnumeration(V,t(V)).


%
Expand Down

0 comments on commit bc978ac

Please sign in to comment.