Skip to content

Commit

Permalink
rollback
Browse files Browse the repository at this point in the history
git-svn-id: https://slps.svn.sourceforge.net/svnroot/slps@514 ab42f6e0-554d-0410-b580-99e487e6eeb2
  • Loading branch information
grammarware committed Mar 10, 2009
1 parent 376b4e3 commit 157339d
Showing 1 changed file with 3 additions and 14 deletions.
17 changes: 3 additions & 14 deletions shared/prolog/xsd2bgf.pro
Expand Up @@ -489,19 +489,9 @@ xFromSType(S,T,X)
children(name(xsd:enumeration),R,Es),
( \+ Es == [] ->
(
(
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)
)
maplist(attribute(value),Es,Vs),
maplist(xFromEnumeration,Vs,Xs),
X = ';'(Xs)
)
;
(
Expand All @@ -512,7 +502,6 @@ xFromSType(S,T,X)
!.

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


%
Expand Down

0 comments on commit 157339d

Please sign in to comment.