--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/relaxng/trunk/RNG__ComplexTypePattern.st	Tue Apr 08 19:47:42 2008 +0000
@@ -0,0 +1,166 @@
+"{ Package: 'stx:goodies/xmlsuite/relaxng' }"
+
+"{ NameSpace: RNG }"
+
+Pattern subclass:#ComplexTypePattern
+	instanceVariableNames:'name automaton isAttribute'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Relax NG-Patterns'
+!
+
+
+!ComplexTypePattern methodsFor:'accessing'!
+
+contentModelAutomaton
+
+    automaton ifNil:[
+        automaton := Automaton new initializeFor:self.
+    ].
+    ^automaton
+
+    "Created: / 01-05-2005 / 16:10:45 / janfrog"
+    "Modified: / 14-05-2005 / 22:30:23 / janfrog"
+!
+
+isForAttribute:aBoolean
+    isAttribute := aBoolean.
+
+    "Created: / 01-05-2005 / 12:40:46 / janfrog"
+!
+
+localName
+
+    ^(self name tokensBasedOn:$#) last
+
+    "Created: / 02-05-2005 / 16:56:58 / janfrog"
+!
+
+name
+    ^ name
+
+    "Created: / 30-04-2005 / 14:37:56 / janfrog"
+!
+
+name:aString
+
+    "aString must be expaned tag name, i.e a string in
+    form <namespace>#<localName>"
+
+    name := aString.
+
+    "Created: / 30-04-2005 / 14:38:04 / janfrog"
+!
+
+namespace
+
+    ^(self name includes:$#) 
+        ifTrue:[(self name readStream upTo:$#)]
+        ifFalse:[''].
+
+    "Created: / 02-05-2005 / 16:57:40 / janfrog"
+    "Modified: / 06-05-2005 / 12:22:27 / janfrog"
+!
+
+pcDataContentPattern
+
+    ^node pcDataContentPattern
+
+    "Created: / 02-05-2005 / 17:26:31 / janfrog"
+! !
+
+!ComplexTypePattern methodsFor:'initialization'!
+
+postParseFor:aSchema
+
+    "automaton := Automaton new initializeFor:self."
+
+    "Created: / 14-05-2005 / 21:20:41 / janfrog"
+    "Modified: / 16-05-2005 / 09:30:17 / masca"
+!
+
+setNamespace:ns localName:localName
+
+    "must convert ns and localName into expanded name form"
+
+    name := ns isNilOrEmptyCollection ifFalse:[ns , '#' , localName] ifTrue:[localName]
+
+    "Created: / 30-04-2005 / 14:49:05 / janfrog"
+    "Modified: / 14-05-2005 / 11:36:35 / janfrog"
+! !
+
+!ComplexTypePattern methodsFor:'printing'!
+
+nameForPrint
+
+    ^((self isForAttribute) ifTrue:['@'] ifFalse:[''])  ,self name
+
+    "Created: / 30-04-2005 / 17:41:33 / janfrog"
+    "Modified: / 01-05-2005 / 12:40:26 / janfrog"
+!
+
+printOn:aStream
+
+    aStream nextPutAll:self name.
+    aStream space; nextPut:$< ; space.
+    self node printChildrenOn:aStream.
+    aStream space; nextPut:$> ; space;
+        cr; cr; nextPutAll:'Content model automaton' ; cr.
+    self contentModelAutomaton printOn:aStream
+
+    "Created: / 30-04-2005 / 17:42:58 / janfrog"
+    "Modified: / 02-05-2005 / 14:28:17 / janfrog"
+! !
+
+!ComplexTypePattern methodsFor:'queries'!
+
+hasComplexContentModel
+
+    ^(self node children size > 2) or:
+        [(self node firstChild isPatternNode and:[self node firstChild pattern isPCDataPattern]) not]
+
+    "Created: / 16-05-2005 / 16:32:37 / masca"
+! !
+
+!ComplexTypePattern methodsFor:'testing'!
+
+hasBinding
+    ^self bindingInfo hasBinding
+
+    "Created: / 02-05-2005 / 16:55:23 / janfrog"
+!
+
+isComplexTypePattern
+    ^ true
+
+    "Created: / 14-05-2005 / 20:34:31 / janfrog"
+!
+
+isForAttribute
+    ^ isAttribute ? false
+
+    "Created: / 01-05-2005 / 12:40:42 / janfrog"
+! !
+
+!ComplexTypePattern methodsFor:'validation/binding'!
+
+newBinderContext
+
+    ^ValidatorContext for:self
+
+    "Created: / 02-05-2005 / 14:55:46 / janfrog"
+    "Modified: / 02-05-2005 / 16:17:58 / janfrog"
+!
+
+newValidatorContext
+
+    ^ValidatorContext for:self
+
+    "Created: / 01-05-2005 / 16:15:29 / janfrog"
+! !
+
+!ComplexTypePattern class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/relaxng/RNG__ComplexTypePattern.st,v 1.1.1.1 2005-11-01 22:07:12 vranyj1 Exp $'
+! !