1 "{ Package: 'stx:goodies/xmlsuite/relaxng' }"

     2 

     3 "{ NameSpace: RNG }"

     4 

     5 DataTypeLibrary subclass:#XSDataTypeLibrary

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'Relax NG-XS Data types'

    10 !

    11 

    12 

    13 !XSDataTypeLibrary methodsFor:'accessing'!

    14 

    15 dataTypeClasses

    16 

    17     "to be removed in final version"

    18     ^self defaultDataTypeClasses

    19 

    20     "Created: / 12-05-2005 / 11:34:40 / masca"

    21 !

    22 

    23 defaultDataTypeClasses

    24 

    25     ^Set new

    26         add:XSBoolean;

    27         add:XSString;

    28         add:XSInteger;

    29         add:XSKey;

    30         add:XSKeyRef;

    31         add:XSToken;

    32         add:XSDateTime;

    33 

    34         yourself.

    35 

    36     "Created: / 28-04-2005 / 13:55:51 / janfrog"

    37     "Modified: / 29-04-2005 / 15:11:10 / janfrog"

    38     "Modified: / 13-05-2005 / 13:48:47 / masca"

    39 !

    40 

    41 namespace

    42     "Superclass says that I am responsible to implement this method"

    43 

    44     ^'http://www.w3.org/2001/XMLSchema-datatypes'

    45 

    46     "Created: / 28-04-2005 / 14:04:21 / janfrog"

    47 ! !

    48 

    49 !XSDataTypeLibrary class methodsFor:'documentation'!

    50 

    51 version

    52     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/relaxng/RNG__XSDataTypeLibrary.st,v 1.1.1.1 2005-11-01 22:07:16 vranyj1 Exp $'

    53 ! !