--- messaging/manakai/lib/Message/Markup/Atom.dis	2006/09/10 11:19:24	1.13
+++ messaging/manakai/lib/Message/Markup/Atom.dis	2006/12/30 13:25:34	1.24
@@ -43,22 +43,15 @@
   @DISCore:author: DISCore|Wakaba
   @License: license|Perl+MPL
   @Date:
-    $Date: 2006/09/10 11:19:24 $
+    $Date: 2006/12/30 13:25:34 $
 
   @Require:
     @@Module:
       @@@QName: Markup|common
     @@Module:
       @@@QName: MDOM|TreeCore
-      @@@WithFor: ManakaiDOM|ManakaiDOMLatest
-    @@Module:
-      @@@WithFor: ManakaiDOM|ManakaiDOM
-    @@Module:
-      @@@WithFor: ManakaiDOM|ManakaiDOMLatest
     @@Module:
       @@@QName: DISlib|DISMarkup
-      @@@WithFor: ManakaiDOM|all
-  @DefaultFor: ManakaiDOM|ManakaiDOMLatest
 
 Namespace:
   @atom:
@@ -77,6 +70,8 @@
     http://suika.fam.cx/~wakaba/archive/2004/dom/xdt#
   @DOMMain:
     http://suika.fam.cx/~wakaba/archive/2004/dom/main#
+  @domperl:
+    http://suika.fam.cx/~wakaba/archive/2006/dom/perl/
   @dx:
     http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#
   @dxm:
@@ -119,6 +114,8 @@
     http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/Element/
   @test:
     http://suika.fam.cx/~wakaba/archive/2004/dis/Test#
+  @thr:
+    http://purl.org/syndication/thread/1.0
   @tx:
     http://suika.fam.cx/~wakaba/archive/2005/manakai/DOM/XML/
   @urigen:
@@ -140,7 +137,6 @@
     dis:ResourceDef
   @ShadowContent:
     @@DISCore:resourceType: DISLang|Method
-    @@ForCheck: !=ManakaiDOM|ManakaiDOM
 
 ElementTypeBinding:
   @Name: Param
@@ -162,7 +158,6 @@
     dis:ResourceDef
   @ShadowContent:
     @@DISCore:resourceType: DISLang|Attribute
-    @@ForCheck: !=ManakaiDOM|ManakaiDOM
 
 ElementTypeBinding:
   @Name: ATTR
@@ -178,7 +173,6 @@
     @@DISCore:resourceType:
       @@@@: mv|AttributeType
       @@@ForCheck: s|ForML
-    @@ForCheck: !=ManakaiDOM|ManakaiDOM
 
 ElementTypeBinding:
   @Name: Get
@@ -243,7 +237,6 @@
     @@resourceFor: ManakaiDOM|ForIF
     @@resourceFor: ManakaiDOM|ForClass
     @@resourceFor: s|ForML
-    @@For: ManakaiDOM|ManakaiDOM
 
     @@DISCore:resourceType:
       @@@@: DISLang|Interface
@@ -252,14 +245,11 @@
     @@DISCore:resourceType:
       @@@@: DISLang|Class
       @@@ForCheck: ManakaiDOM|ForClass
+
     @@Implement:
-      @@@@: ||ManakaiDOM|ManakaiDOM||ManakaiDOM|ForIF
-      @@@ContentType: DISCore|TFPQNames
-      @@@ForCheck: ManakaiDOM|ForClass ManakaiDOM|ManakaiDOM
-    @@Implement:
-      @@@@: ||ManakaiDOM|ManakaiDOMLatest||ManakaiDOM|ForIF
+      @@@@: ||+||ManakaiDOM|ForIF
       @@@ContentType: DISCore|TFPQNames
-      @@@ForCheck: ManakaiDOM|ForClass ManakaiDOM|ManakaiDOMLatest
+      @@@ForCheck: ManakaiDOM|ForClass
 
     @@s:elementType:
       @@@@: ||+||s|ForML
@@ -270,8 +260,6 @@
       @@@@: s|ElementType
       @@@ForCheck: s|ForML
 
-    @@f:implements: AtomFeature10
-
 ElementTypeBinding:
   @Name: IFClsDef
   @ElementType: 
@@ -282,7 +270,6 @@
       @@@ForCheck: !ManakaiDOM|ForIF !ManakaiDOM|ForClass !s|ForML
     @@resourceFor: ManakaiDOM|ForIF
     @@resourceFor: ManakaiDOM|ForClass
-    @@For: ManakaiDOM|ManakaiDOM
 
     @@DISCore:resourceType:
       @@@@: DISLang|Interface
@@ -291,16 +278,11 @@
     @@DISCore:resourceType:
       @@@@: DISLang|Class
       @@@ForCheck: ManakaiDOM|ForClass
+
     @@Implement:
-      @@@@: ||ManakaiDOM|ManakaiDOM||ManakaiDOM|ForIF
-      @@@ContentType: DISCore|TFPQNames
-      @@@ForCheck: ManakaiDOM|ForClass ManakaiDOM|ManakaiDOM
-    @@Implement:
-      @@@@: ||ManakaiDOM|ManakaiDOMLatest||ManakaiDOM|ForIF
+      @@@@: ||+||ManakaiDOM|ForIF
       @@@ContentType: DISCore|TFPQNames
-      @@@ForCheck: ManakaiDOM|ForClass ManakaiDOM|ManakaiDOMLatest
-
-    @@f:implements: AtomFeature10
+      @@@ForCheck: ManakaiDOM|ForClass
 
 ElementTypeBinding:
   @Name: IFClsConstructDef
@@ -315,7 +297,6 @@
     @@resourceFor: ManakaiDOM|ForClass
     @@resourceFor: mv|ForCM
     @@resourceFor: mv|ForAG
-    @@For: ManakaiDOM|ManakaiDOM
 
     @@DISCore:resourceType:
       @@@@: DISLang|Interface
@@ -324,14 +305,11 @@
     @@DISCore:resourceType:
       @@@@: DISLang|Class
       @@@ForCheck: ManakaiDOM|ForClass
+
     @@Implement:
-      @@@@: ||ManakaiDOM|ManakaiDOM||ManakaiDOM|ForIF
-      @@@ContentType: DISCore|TFPQNames
-      @@@ForCheck: ManakaiDOM|ForClass ManakaiDOM|ManakaiDOM
-    @@Implement:
-      @@@@: ||ManakaiDOM|ManakaiDOMLatest||ManakaiDOM|ForIF
+      @@@@: ||+||ManakaiDOM|ForIF
       @@@ContentType: DISCore|TFPQNames
-      @@@ForCheck: ManakaiDOM|ForClass ManakaiDOM|ManakaiDOMLatest
+      @@@ForCheck: ManakaiDOM|ForClass
 
     @@DISCore:resourceType:
       @@@@: mv|AttributeTypeGroup
@@ -341,7 +319,6 @@
       @@@@: mv|ElementContentModel
       @@@ForCheck: mv|ForCM
 
-    @@f:implements: AtomFeature10
 
 ElementTypeBinding:
   @Name: IFQName
@@ -449,51 +426,42 @@
 ResourceDef:
   @QName: Document
   @AliasFor: td|Document
-  @For: ManakaiDOM|DOM
 
 ResourceDef:
   @QName: Element
   @AliasFor: te|Element
-  @For: ManakaiDOM|DOM
 
 ResourceDef:
   @QName: Attr
   @AliasFor: te|Attr
-  @For: ManakaiDOM|DOM
 
 ResourceDef:
   @QName: DOMString
   @AliasFor: DOMMain|DOMString
-  @For: ManakaiDOM|DOM
 
 ResourceDef:
   @QName: DOMURI
   @AliasFor: ManakaiDOM|ManakaiDOMURI
-  @For: ManakaiDOM|DOM3
 
 ResourceDef:
   @QName: DOMTimeStamp
   @AliasFor: DOMMain|DOMTimeStamp
-  @For: ManakaiDOM|DOM2
 
 ResourceDef:
   @QName: boolean
-  @AliasFor: idl|boolean||ManakaiDOM|all
+  @AliasFor: idl|boolean
 
 ResourceDef:
   @QName: Node
   @AliasFor: tc|Node
-  @For: ManakaiDOM|ManakaiDOM
 
 ResourceDef:
   @QName: NodeList
   @AliasFor: tc|NodeList
-  @For: ManakaiDOM|ManakaiDOM
 
 ResourceDef:
   @QName: StaticNodeList
   @AliasFor: tc|StaticNodeList
-  @For: ManakaiDOM|ManakaiDOM
 
 ElementTypeBinding:
   @Name: enDesc
@@ -519,7 +487,7 @@
     @@Value:
       @@@@: 1
       @@@ContentType: DISCore|Boolean
-    @@Type: idl|boolean||ManakaiDOM|all
+    @@Type: idl|boolean
 
 ElementTypeBinding:
   @Name: FalseCase
@@ -531,7 +499,7 @@
     @@Value:
       @@@@: 0
       @@@ContentType: DISCore|Boolean
-    @@Type: idl|boolean||ManakaiDOM|all
+    @@Type: idl|boolean
 
 ## -- Features
 
@@ -541,7 +509,6 @@
     dis:ResourceDef
   @ShadowContent:
     @@DISCore:resourceType: f|Feature
-    @@For: =ManakaiDOM|all
 
 ElementTypeBinding:
   @Name: FeatureVerDef
@@ -562,12 +529,23 @@
   @QName: AtomFeature
   @FeatureVerDef:
     @@QName: AtomFeature10
-    @@Version: 1.0
+    @@f:version: 1.0
     @@f:instanceOf: AtomFeature
     @@f:requires: tx|XMLFeature30
     @@enDesc:
       The Atom DOM, version 1.0.
 
+FeatureDef:
+  @featureQName: fe|AtomThreading
+  @QName: AtomThreadingFeature
+  @FeatureVerDef:
+    @@QName: AtomThreadingFeature10
+    @@f:version: 1.0
+    @@f:instanceOf: AtomThreadingFeature
+    @@f:requires: fe|AtomFeature10
+    @@enDesc:
+      The Atom Threading Extension DOM, version 1.0.
+
 ## -- Modules
 
 ModuleSetDef:
@@ -658,7 +636,6 @@
   @QName: AtomQName
   @enLN: Qualified Names
   @mv:id: qname
-  @For: =ManakaiDOM|ManakaiDOMLatest
   @DISCore:resourceType: mv|XMLDTDQNameModule
 
   @mv:contains: Atom
@@ -667,7 +644,6 @@
   @QName: Atom10
   @enLN: Atom 1.0
   @mv:id: atom10
-  @For: =ManakaiDOM|ManakaiDOMLatest
   @DISCore:resourceType: mv|XMLDTDDriver
 
   @mv:refers: Atom
@@ -684,7 +660,6 @@
     dis:ResourceDef
   @ShadowContent:
     @@DISCore:resourceType: mv|XMLDTDModuleSet
-    @@For: =ManakaiDOM|ManakaiDOMLatest
 
 ElementTypeBinding:
   @Name: ModuleDef
@@ -692,7 +667,6 @@
     dis:ResourceDef
   @ShadowContent:
     @@DISCore:resourceType: mv|XMLDTDModule
-    @@For: =ManakaiDOM|ManakaiDOMLatest
 
 ## -- Implementation
 
@@ -700,36 +674,33 @@
   @IFQName: AtomImplementation
   @ClsQName: ManakaiAtomImplementation
 
-  @IFISA: c|DOMImplementation
-  @ClsISA: c|ManakaiDOMImplementation
+  @domperl:implementedByObjectsOf: c|DOMImplementation
+  @domperl:classImplementedByObjectsOf: c|ManakaiDOMImplementation
 
   @enDesc:
     The <IF::AtomImplementation> interface provides convenience
     methods to create Atom documents.
 
-  @f:provides: AtomFeature10
+  @f:implements: AtomFeature10
 
   @Test:
     @@QName: AtomImplementation.interface.test
     @@PerlDef:
       for my $interface (
         <IFName::AtomImplementation>,
-        <IFName::AtomImplementation||ManakaiDOM|ManakaiDOM>,
         <IFName::c|DOMImplementation>,
-        <IFName::urigen|URIImplementation>,
-        <IFName::f|MinimumImplementation>,
         <IFName::f|GetFeature>,
       ) {
         $test->id ($interface);
         $test->assert_true
-                 (<Class::ManakaiAtomImplementation>->isa ($interface));
+                 (<Class::c|ManakaiDOMImplementation>->isa ($interface));
       }
   @Test:
     @@QName: ImplementationRegistry.AtomImplementation.1.test
     @@PerlDef:
       require Message::Markup::Atom;
       my $impl = $Message::DOM::ImplementationRegistry
-                   ->get_implementation ({
+                   ->get_dom_implementation ({
                        <Q::fe|Atom> => '1.0',
                      });
 
@@ -739,7 +710,7 @@
     @@PerlDef:
       require Message::Markup::Atom;
       my $impl = $Message::DOM::ImplementationRegistry
-                   ->get_implementation ({
+                   ->get_dom_implementation ({
                        Core => '3.0',
                        <Q::fe|Atom> => '1.0',
                      });
@@ -750,7 +721,7 @@
     @@PerlDef:
       require Message::Markup::Atom;
       my $impl = $Message::DOM::ImplementationRegistry
-                   ->get_implementation ({
+                   ->get_dom_implementation ({
                        XML => '3.0',
                        <Q::fe|Atom> => '1.0',
                      });
@@ -786,7 +757,7 @@
           The implementation <kwd:MUST> treate <DOM::null>
           as if an empty string is specified.
     @@Return:
-      @@@Type: AtomFeedDocument
+      @@@Type: AtomDocument
       @@@enDesc:
         The newly created Atom Feed Document.
 
@@ -969,7 +940,7 @@
           The implementation <kwd:MUST> treate <DOM::null>
           as if an empty string is specified.
     @@Return:
-      @@@Type: AtomEntryDocument
+      @@@Type: AtomDocument
       @@@enDesc:
         The newly created Atom Entry Document.
 
@@ -1512,113 +1483,130 @@
         <QUOTE::reflecting Date child element> attribute should
         be provided for published and created?
       }
-##AtomImplementation
 
-IFClsDef:
-  @IFQName: AtomDocument
-  @ClsQName: ManakaiAtomDocument
+  @CODE:
+    @@QName: getReflectAttrNonNegativeIntegerValue
+    @@enDesc:
+      {P:: If a DOM attribute is defined to <DFN::reflect the 
+           non-negative integer value of the <VAR::attr-name> attribute>
+           of the node <VAR::E>, the getter of the attribute <kwd:MUST>
+           return the value defined by the algorithm:
+
+        {OLI:: If the <VAR::E> contains an attribute node <VAR::A> whose name
+               is <VAR::attr-name>:
+
+          = If the <A::Node.nodeValue> of the <VAR::A> is
+            one or more sequence of digits (<CHAR::DIGIT ZERO>, 
+            <CHAR::DIGIT ONE>, ..., <CHAR::DIGIT NINE>) optionally
+            preceding by a <CHAR::PLUS SIGN>, then
+            the attribute getter <kwd:MUST> return a value
+            by interpreting the <A::Node.nodeValue> of the <VAR::A>
+            as a decimal number.
 
-  @IFISA: Document
-  @ClsISA: td|ManakaiDOMDocument
+        }
 
-  @s:rootElementType: AnyAtomElement||ManakaiDOM|all
+        = If a default value is explicitly defined
+          where this algorithm is referenced, it <kwd:MUST>
+          return the default value.
 
-  @enDesc:
-    If the <Feature::fe|Atom> feature version <FeatureVer::1.0>
-    is supported, a <IF::Document> object whose <A::Document.documentElement>'s
-    <A::Node.namespaceURI>, if any, is <URI^^DISCore|QName::atom|> at least
-    at the time of creation <kwd:MUST> also
-    implement the <IF::AtomDocument> interface.  Other
-    <IF:Document> objects <kwd:MAY> also implement
-    the <IF::AtomDocument> interface.
+        = Otherwise, it <kwd:MUST> return a binding-specific
+          default value, if it is defined by the specification
+          of the binding, or <DOM::-1>.
 
-  @Test:
-    @@QName: createDocument.AtomDocument.test
-    @@PerlDef:
-      my $impl;
-      __CODE{tc|createImplForTest:: $impl => $impl}__;
-    
-      my $doc = $impl-><M::c|DOMImplementation.createDocument>
-                         (<Q::atom|>, 'unknown');
+      }
 
-      $test->id ('interface');
-      $test->assert_isa ($doc, <IFName::AtomDocument>);
-##AtomDocument
+        {NOTE::
+          In Atom Threading Extension <SRC::RFC 4685>,
+          the <CHAR::PLUS SIGN> and leading <CHAR::DIGIT ZERO>s
+          are prohibitted.
+        }
+    @@PerlDef:
+      __DEEP{
+        E: {
+          $r = $node-><M::Element.getAttributeNS> ($namespaceURI, $localName);
+          if (defined $r) {
+            if ($r =~ /\A\+?([0-9]+)\z/) {
+              $r = 0+$1;
+              last E;
+            }
+          }
 
-IFClsDef:
-  @IFQName: AtomFeedDocument
-  @ClsQName: ManakaiFeedEntryDocument
+          $r = $defaultValue;
+          $r = -1 unless defined $r;
+        } # E
+      }__;
 
-  @IFISA: AtomDocument
-  @ClsISA: ManakaiAtomDocument
+  @CODE:
+    @@QName: setReflectAttrNonNegativeIntegerValue
+    @@enDesc:
+      {P:: If a DOM attribute is defined to <DFN::reflect the
+           non-negative integer value
+           of the <VAR::attr-name> attribute> of the node <VAR::E>,
+           the setter of the attribute <kwd:MUST> modify the node as
+           defined by the algorithm:
 
-  @s:rootElementType:
-    @@@: atom|feed
-    @@DISCore:stopISARecursive: 1
+        = If the given value is <DOM::-1> or one of binding-specific
+          default values, if any, as defined by the specification
+          of the binding, it <kwd:MUST>
+          remove the <VAR::attr-name> attribute node, if any,
+          from the list of attribute nodes of <VAR::E>.
 
-  @enDesc:
-    The <IF::AtomFeedDocument> interface provides convenience
-    methods and attributes for an Atom
-    Feed Document, i.e. representation of an Atom feed.
+        = Otherwise, it <kwd:MUST> set the <VAR::attr-name>
+          attribute node value to a string representation
+          of the given value as if 
+          the <M::Element.setAttributeNS> method were invoked.
+          The string representation <kwd:MUST> be a decimal
+          number consist of one or more sequence of digits
+          (<CHAR::DIGIT ZERO>, <CHAR::DIGIT ONE>, ..., <CHAR::DIGIT NINE>)
+          <EM::without> any leading <CHAR::DIGIT ZERO>.
+          The <CHAR::PLUS SIGN> <kwd:MUST> be omitted.
 
-    If the <Feature::fe|Atom> feature version <FeatureVer::1.0>
-    is supported, a <IF::Document> object whose <A::Document.documentElement>'s
-    element type, if any, is <XE::atom|feed> at least at 
-    the time of creation <kwd:MUST> also
-    implement the <IF::AtomFeedDocument> interface.  Other
-    <IF::Document> objects <kwd:MAY> also implement
-    the <IF::AtomFeedDocument> interface.
+      }
 
-  @Test:
-    @@QName: createDocument.AtomFeedDocument.test
+        {NOTE::
+          It might throw an exception.
+        }
     @@PerlDef:
-      my $impl;
-      __CODE{tc|createImplForTest:: $impl => $impl}__;
-    
-      my $doc = $impl-><M::c|DOMImplementation.createDocument>
-                         (<Q::atom|>, 'feed');
-
-      $test->id ('interface');
-      $test->assert_isa ($doc, <IFName::AtomFeedDocument>);
-##AtomFeedDocument
+      __DEEP{
+        if (defined $given and $given >= 0) {
+          $node-><M::Element.setAttributeNS>
+                   ($namespaceURI, $localName, 0+$given);
+        } else {
+          $node-><M::Element.removeAttributeNS> ($namespaceURI, $localName);
+        }
+      }__;
+##AtomImplementation
 
 IFClsDef:
-  @IFQName: AtomEntryDocument
-  @ClsQName: ManakaiAtomEntryDocument
+  @IFQName: AtomDocument
+  @ClsQName: ManakaiAtomDocument
 
-  @IFISA: AtomDocument
-  @ClsISA: ManakaiAtomDocument
+  @domperl:implementedByObjectsOf: Document
+  @domperl:classImplementedByObjectsOf: td|ManakaiDOMDocument
 
-  @s:rootElementType:
-    @@@: atom|entry
-    @@DISCore:stopISARecursive: 1
+  @f:implements: AtomFeature10
 
   @enDesc:
-    The <IF::AtomEntryDocument> interface provides convenience
-    methods and attributes for an Atom
-    Entry Document, i.e. exactly one Atom entry, outside
-    of the context of an Atom feed.
-
     If the <Feature::fe|Atom> feature version <FeatureVer::1.0>
     is supported, a <IF::Document> object whose <A::Document.documentElement>'s
-    element type, if any, is <XE::atom|entry> at least at
-    the time of the creation <kwd:MUST> also
-    implement the <IF::AtomEntryDocument> interface.  Other
-    <IF::Document> objects <kwd:MAY> also implement
-    the <IF::AtomEntryDocument> interface.
+    <A::Node.namespaceURI>, if any, is <URI^^DISCore|QName::atom|> at least
+    at the time of creation <kwd:MUST> also
+    implement the <IF::AtomDocument> interface.  Other
+    <IF:Document> objects <kwd:MAY> also implement
+    the <IF::AtomDocument> interface.
 
   @Test:
-    @@QName: createDocument.AtomEntryDocument.test
+    @@QName: createDocument.AtomDocument.test
     @@PerlDef:
       my $impl;
       __CODE{tc|createImplForTest:: $impl => $impl}__;
     
       my $doc = $impl-><M::c|DOMImplementation.createDocument>
-                         (<Q::atom|>, 'entry');
+                         (<Q::atom|>, 'unknown');
 
       $test->id ('interface');
-      $test->assert_isa ($doc, <IFName::AtomEntryDocument>);
-##AtomEntryDocument
+      $test->assert_isa ($doc, <IFName::AtomDocument>);
+##AtomDocument
 
 AGDef:
   @QName: atomCommonAttributes
@@ -1663,7 +1651,7 @@
 STCDef:
   @QName: atomUriCM
   @mv:elementContentModelName: URI
-  @cm: (dxm|PCDATA||ManakaiDOM|all)*
+  @cm: (dxm|PCDATA)*
 
 STDef:
   @QName: atomEmailAddress
@@ -1673,7 +1661,7 @@
 STCDef:
   @QName: atomEmailAddressCM
   @mv:elementContentModelName: EmailAddress
-  @cm: (dxm|PCDATA||ManakaiDOM|all)*
+  @cm: (dxm|PCDATA)*
 
 ElementTypeBinding:
   @Name: AGDef
@@ -1681,7 +1669,6 @@
     dis:ResourceDef
   @ShadowContent:
     @@DISCore:resourceType: mv|AttributeTypeGroup
-    @@For: =ManakaiDOM|ManakaiDOMLatest
 
 ElementTypeBinding:
   @Name: ATDef
@@ -1689,7 +1676,6 @@
     dis:ResourceDef
   @ShadowContent:
     @@DISCore:resourceType: mv|AttributeType
-    @@For: =ManakaiDOM|ManakaiDOMLatest
 
 ElementTypeBinding:
   @Name: ECDef
@@ -1697,7 +1683,6 @@
     dis:ResourceDef
   @ShadowContent:
     @@DISCore:resourceType: mv|ElementTypeClass
-    @@For: =ManakaiDOM|ManakaiDOMLatest
 
 ElementTypeBinding:
   @Name: EMDef
@@ -1705,7 +1690,6 @@
     dis:ResourceDef
   @ShadowContent:
     @@DISCore:resourceType: mv|ElementTypeClassMix
-    @@For: =ManakaiDOM|ManakaiDOMLatest
 
 ElementTypeBinding:
   @Name: STDef
@@ -1713,7 +1697,6 @@
     dis:ResourceDef
   @ShadowContent:
     @@DISCore:resourceType: mv|XMLDTDDatatypeEntity
-    @@For: =ManakaiDOM|ManakaiDOMLatest
 
 ElementTypeBinding:
   @Name: STCDef
@@ -1721,7 +1704,6 @@
     dis:ResourceDef
   @ShadowContent:
     @@DISCore:resourceType: mv|ElementContentModel
-    @@For: =ManakaiDOM|ManakaiDOMLatest
 
 IFClsDef:
   @IFQName: AtomElement
@@ -1730,7 +1712,8 @@
   @IFISA: Element
   @ClsISA: te|ManakaiDOMElement
    
-  @s:elementType: AnyAtomElement||ManakaiDOM|all
+  @f:implements: AtomFeature10
+  @s:elementType: AnyAtomElement
 
   @enDesc:
     The <IF::AtomElement> interface provides convenience
@@ -1755,7 +1738,6 @@
     @@PerlDef:
       for my $interface (
         <IFName::AtomElement>,
-        <IFName::AtomElement||ManakaiDOM|ManakaiDOM>,
         <IFName::Element>,
         <IFName::Node>,
         <IFName::f|GetFeature>,
@@ -1799,15 +1781,16 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
-    dxm|ANY||ManakaiDOM|all
+    dxm|ANY
   @enImplNote:
     @@ddid:cm
     @@@:
       {TODO::
-        (dxm|PCDATA||ManakaiDOM|all | html|div)*
+        (dxm|PCDATA | html|div)*
       }
 
   @enDesc:
@@ -1940,6 +1923,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
@@ -2096,10 +2080,11 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
-    (dxm|PCDATA||ManakaiDOM|all)*
+    (dxm|PCDATA)*
   @enImplNote:
     @@ddid: cm
     @@@:
@@ -2203,6 +2188,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
@@ -2926,6 +2912,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
@@ -3103,7 +3090,9 @@
         $test->assert_num_equals (actual_value => 0+@$list, expected_value => 0);
 
         $test->id ('parent');
+        my $parent;
         for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) {
+          $parent = $_;
           $_-><M::Node.appendChild>
                 ($doc-><M::Document.createElementNS> (<Q::atom|>, 'author'));
           $_-><M::Node.appendChild>
@@ -3123,7 +3112,9 @@
         my $el = $doc-><M::Document.createElementNS> (<Q::atom|>, 'entry');
 
         $test->id ('parent');
+        my $parent;
         for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) {
+          $parent = $_;
           $_-><M::Node.appendChild>
                 ($doc-><M::Document.createElementNS> (<Q::atom|>, 'author'));
           $_-><M::Node.appendChild>
@@ -3459,6 +3450,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
   
   @cm: atomUriCM
@@ -3473,6 +3465,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm: atomUriCM
@@ -3487,6 +3480,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   # no common attribs
   @cm: TextCM
 
@@ -3502,6 +3496,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   # no common attribs
   @cm: atomUriCM
 
@@ -3517,6 +3512,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   # no common attribs
   @cm: atomEmailAddressCM
 
@@ -3532,6 +3528,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm: atomUriCM
@@ -3546,10 +3543,11 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
-    dxm|ANY||ManakaiDOM|all
+    dxm|ANY
 
   @enDesc:
     The <XE::atom|content> element either contains or links to
@@ -3799,6 +3797,8 @@
 
   @IFISA: AtomPersonConstruct
   @ClsISA: ManakaiAtomPersonConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: PersonAG
   @mv:elementContentModel: PersonCM
 
@@ -3816,6 +3816,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm: undefinedContent
@@ -3933,6 +3934,8 @@
 
   @IFISA: AtomPersonConstruct
   @ClsISA: ManakaiAtomPersonConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: PersonAG
   @mv:elementContentModel: PersonCM
 
@@ -3951,10 +3954,11 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
-    (dxm|PCDATA||ManakaiDOM|all)*
+    (dxm|PCDATA)*
 
   @enDesc:
     The <XE::atom|generator> element identifies the agent used
@@ -4037,6 +4041,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm: undefinedContent
@@ -4172,6 +4177,18 @@
       of the <XA::type> attribute> of the node.
     @@Type: DOMString
     @@Get:
+      @@@enDesc:
+        {P:: If the feature <Feature^^DISCore|QName::AtomThreadingFeature10>
+             is supported, the attribute getter <kwd:MUST> return
+             the string <CODE::application/atom+xml> when both of the
+             following conditions are met:
+
+           - The attribute getter would otherwise return <DOM::null>.
+
+           - The <A::AtomLinkElement.rel> attribute contains
+             a string value of <URI^^DISCore|QName::rel|replies>.
+
+        }
       @@@nullCase:
         @@@@enDesc:
           If the algorithm returns <DOM::null>.
@@ -4183,6 +4200,15 @@
           $r => $r,
           $defaultValue => {null},
         }__;
+
+        unless (defined $r) {
+          __DEEP{
+            my $rel = $self-><AG::AtomLinkElement.rel>;
+            if (defined $rel and $rel eq <Q::rel|replies>) {
+              $r = q<application/atom+xml>;
+            }
+          }__;
+        }
     @@Set:
       @@@nullCase:
         @@@@enDesc:
@@ -4196,6 +4222,74 @@
           $given => $given,
         }__;
 
+    @@Test:
+      @@@QName: AtomLinkElement.type.!rel.test
+      @@@PerlDef:
+        my $doc;
+        __CODE{tc|createEmptyDocumentForTest:: $doc => $doc}__;
+
+        my $el = $doc-><M::Document.createElementNS> (<Q::atom|>, 'link');
+
+        $test->id ('implied');
+        my $type0 = $el-><AG::AtomLinkElement.type>;
+        $test->assert_null ($type0);
+
+        $test->id ('explicit');
+        $el-><AS::AtomLinkElement.type> ('application/atom+xml');
+        my $type1 = $el-><AG::AtomLinkElement.type>;
+        $test->assert_equals ($type1, q<application/atom+xml>);
+
+        $test->id ('different');
+        $el-><AS::AtomLinkElement.type> ('application/xhtml+xml');
+        my $type2 = $el-><AG::AtomLinkElement.type>;
+        $test->assert_equals ($type2, q<application/xhtml+xml>);
+    @@Test:
+      @@@QName: AtomLinkElement.type.rel!=replies.test
+      @@@PerlDef:
+        my $doc;
+        __CODE{tc|createEmptyDocumentForTest:: $doc => $doc}__;
+
+        my $el = $doc-><M::Document.createElementNS> (<Q::atom|>, 'link');
+
+        $el-><AS::AtomLinkElement.rel> (<Q::rel|alternate>);
+
+        $test->id ('implied');
+        my $type0 = $el-><AG::AtomLinkElement.type>;
+        $test->assert_null ($type0);
+
+        $test->id ('explicit');
+        $el-><AS::AtomLinkElement.type> ('application/atom+xml');
+        my $type1 = $el-><AG::AtomLinkElement.type>;
+        $test->assert_equals ($type1, q<application/atom+xml>);
+
+        $test->id ('different');
+        $el-><AS::AtomLinkElement.type> ('application/xhtml+xml');
+        my $type2 = $el-><AG::AtomLinkElement.type>;
+        $test->assert_equals ($type2, q<application/xhtml+xml>);
+    @@Test:
+      @@@QName: AtomLinkElement.type.rel=replies.test
+      @@@PerlDef:
+        my $doc;
+        __CODE{tc|createEmptyDocumentForTest:: $doc => $doc}__;
+
+        my $el = $doc-><M::Document.createElementNS> (<Q::atom|>, 'link');
+
+        $el-><AS::AtomLinkElement.rel> (<Q::rel|replies>);
+
+        $test->id ('implied');
+        my $type0 = $el-><AG::AtomLinkElement.type>;
+        $test->assert_equals ($type0, q<application/atom+xml>);
+
+        $test->id ('explicit');
+        $el-><AS::AtomLinkElement.type> ('application/atom+xml');
+        my $type1 = $el-><AG::AtomLinkElement.type>;
+        $test->assert_equals ($type1, q<application/atom+xml>);
+
+        $test->id ('different');
+        $el-><AS::AtomLinkElement.type> ('application/xhtml+xml');
+        my $type2 = $el-><AG::AtomLinkElement.type>;
+        $test->assert_equals ($type2, q<application/xhtml+xml>);
+
   @ATTR:
     @@Name: hreflang
     @@enDesc:
@@ -4304,6 +4398,8 @@
 
   @IFISA: AtomDateConstruct
   @ClsISA: ManakaiAtomDateConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: DateAG
   @mv:elementContentModel: DateCM
 
@@ -4324,6 +4420,8 @@
 
   @IFISA: AtomTextConstruct
   @ClsISA: ManakaiAtomTextConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: TextAG
   @mv:elementContentModel: TextCM
 
@@ -4359,6 +4457,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
@@ -4573,6 +4672,8 @@
 
   @IFISA: AtomTextConstruct
   @ClsISA: ManakaiAtomTextConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: TextAG
   @mv:elementContentModel: TextCM
 
@@ -4589,6 +4690,8 @@
 
   @IFISA: AtomTextConstruct
   @ClsISA: ManakaiAtomTextConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: TextAG
   @mv:elementContentModel: TextCM
 
@@ -4605,6 +4708,8 @@
 
   @IFISA: AtomTextConstruct
   @ClsISA: ManakaiAtomTextConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: TextAG
   @mv:elementContentModel: TextCM
 
@@ -4621,6 +4726,8 @@
 
   @IFISA: AtomDateConstruct
   @ClsISA: ManakaiAtomDateConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: DateAG
   @mv:elementContentModel: DateCM
 
@@ -4697,7 +4804,6 @@
 ResourceDef:
   @QName: CFG
   @AliasFor: c|DOMConfiguration
-  @For: ManakaiDOM|DOM3
 
 ElementTypeBinding:
   @Name: boolCParam
@@ -4706,13 +4812,9 @@
   @ShadowContent:
     @@DISCore:resourceType:
       @@@@: c|DOMConfigurationParameter
-      @@@For: ManakaiDOM|DOM
     @@DISCore:resourceType:
       @@@@: DISCore|Property
-      @@@For: =ManakaiDOM|all
-    @@For: ManakaiDOM|DOM3
-    @@For: =ManakaiDOM|all
-    @@Type: idl|boolean||ManakaiDOM|all
+    @@Type: idl|boolean
 
 ECDef:
   @QName: simpleExtensionElements
@@ -4738,8 +4840,449 @@
 ResourceDef:
   @QName: undefinedContent
   @mv:elementContentModelName: undefined
-  @For: =ManakaiDOM|ManakaiDOMLatest
   @DISCore:resourceType: mv|ElementContentModel
-  @cm: dxm|ANY||ManakaiDOM|all
+  @cm: dxm|ANY
   @enImplNote:
     (text | anyForeignElement)*
+
+## -- Atom Threading Extension [RFC 4685]
+
+IFClsDef:
+  @IFQName: AtomEntryElementThread
+  @ClsQName: ManakaiAtomEntryElementThread
+
+  @ClsISA: ManakaiAtomEntryElement
+
+  @f:implements: AtomThreadingFeature10
+
+  @enDesc:
+    If the feature <Feature^^DISCore|QName::AtomThreadingFeature10>
+    is supported, any <IF::Element> whose element type
+    is <XE::atom|entry> <kwd:MUST> implement the <IF::AtomEntryElementThread>
+    interface in addition to other appropriate interfaces.
+
+  @Test:
+    @@QName: AtomEntryElementThread.1.test
+    @@PerlDef:
+      my $doc;
+      __CODE{tc|createEmptyDocumentForTest:: $doc => $doc}__;
+
+      my $el = $doc->create_element_ns (<Q::atom|>, 'entry');
+
+      $test->id ('interface');
+      $test->assert_isa ($el, <IFName::AtomEntryElementThread>);
+
+      $test->id ('feature');
+      $test->assert_true ($el->is_supported (<Q::fe|AtomThreading> => '1.0'));
+
+  @Attr:
+    @@Name: threadInReplyToElements
+    @@enDesc:
+      A static list of <XE::thr|in-reply-to> child elements of the node.
+    @@Type: StaticNodeList
+    @@Get:
+      @@@enDesc:
+        It <kwd:MUST> <I::return a <XE::thr|in-reply-to> child element list>
+        of the node.
+      @@@PerlDef:
+        __CODE{returnChildElementList::
+          $node => $self,
+          $namespaceURI => {<Q::thr|>},
+          $localName => 'in-reply-to',
+          $r => $r,
+        }__;
+##AtomEntryElementThread
+
+IFClsETDef:
+  @IFQName: AtomThreadInReplyToElement
+  @ETQName: thr|in-reply-to
+  @ETRQName: thr|in-reply-to
+  @ClsQName: ManakaiAtomThreadInReplyToElement
+
+  @IFISA: AtomDateConstruct
+  @ClsISA: ManakaiAtomDateConstruct
+
+  @f:implements: AtomThreadingFeature10
+  @mv:refers: atomCommonAttributes
+
+  @cm: undefinedContent
+
+  @enDesc:
+    The <XE::thr|in-reply-to> element is used to indicate
+    that an entry is a response to another resource.
+
+    If the entry is a response to multiple resources,
+    additional <XE::thr|in-reply-to> element <kwd:MAY>
+    be used.
+
+    RFC 4685 assigns no significance to the order in which
+    multiple <XE::thr|in-reply-to> element appear within
+    an entry.
+
+  @Test:
+    @@QName: AtomThreadInReplyToElement.1.test
+    @@PerlDef:
+      my $doc;
+      __CODE{tc|createEmptyDocumentForTest:: $doc => $doc}__;
+
+      my $el = $doc->create_element_ns (<Q::thr|>, 'in-reply-to');
+
+      $test->id ('interface');
+      $test->assert_isa ($el, <IFName::AtomThreadInReplyToElement>);
+
+      $test->id ('feature');
+      $test->assert_true ($el->is_supported (<Q::fe|AtomThreading> => '1.0'));
+
+  @ATTR:
+    @@Name: ref
+    @@enDesc:
+      The <XA::ref> attribute of the element.
+
+      It <kwd:MUST> <I::reflect the URI value
+      of the <XA::ref> attribute> of the node.
+
+      The <XA::ref> attribute specifies the persistent,
+      universally unique identifier of the resource being
+      responded to.  The value <kwd:MUST> conform to
+      the same construction and comparison rules as the
+      value of the <XE::atom|id> element.  Though the IRI
+      might use a dereferenceable scheme, processors <kwd:MUST-NOT>
+      assume that it can be dereferenced.
+
+      The <XE::thr|in-reply-to> element <kwd:MUST> contain
+      a <XA::ref> attribute identifying the resource that
+      is being respnoded to.
+
+      If the resource being responded to does not have a persistent,
+      universally unique identifier, the publisher <kwd:MUST> assign an
+      identifier that satisfies all the considerations in Section 4.2.6 of
+      RFC 4287 for use as the value of the <XA::ref> attribute.
+      In that case, if a representation of the resource can be retrieved
+      from an IRI that can be used as a valid atom:id value, then this IRI
+      <kwd:SHOULD> be used as the value of both the <XA::ref> and
+      <XA::href> attributes.
+    @@Type: DOMString
+    @@actualType: DOMURI
+    @@Get:
+      @@@nullCase:
+        @@@@enDesc:
+          If the algorithm returns <DOM::null>.
+      @@@PerlDef:
+        __CODE{getReflectAttrURIValue::
+          $node => $self,
+          $namespaceURI => {null},
+          $localName => 'ref',
+          $r => $r,
+          $defaultValue => {null},
+        }__;
+    @@Set:
+      @@@nullCase:
+        @@@@enDesc:
+          Removes the attribute.
+      @@@NodeReadOnlyError:
+      @@@PerlDef:
+        __CODE{setReflectAttrURIValue::
+          $node => $self,
+          $namespaceURI => {null},
+          $localName => 'ref',
+          $given => $given,
+        }__;
+	
+  @ATTR:
+    @@Name: source
+    @@enDesc:
+      The <XA::source> attribute of the element.
+
+      It <kwd:MUST> <I::reflect the URI value
+      of the <XA::source> attribute> of the node.
+
+      The <XA::source> attribute <kwd:MAY> be used to specify the IRI
+      of an Atom Feed or Entry Document containing an 
+      <XE::atom|entry> with an <XE::atom|id> value equal to the
+      value of the <XA::ref> attribute.  The IRI specified <kwd:MUST>
+      be dereferenceable.
+    @@Type: DOMString
+    @@actualType: DOMURI
+    @@Get:
+      @@@nullCase:
+        @@@@enDesc:
+          If the algorithm returns <DOM::null>.
+      @@@PerlDef:
+        __CODE{getReflectAttrURIValue::
+          $node => $self,
+          $namespaceURI => {null},
+          $localName => 'source',
+          $r => $r,
+          $defaultValue => {null},
+        }__;
+    @@Set:
+      @@@nullCase:
+        @@@@enDesc:
+          Removes the attribute.
+      @@@NodeReadOnlyError:
+      @@@PerlDef:
+        __CODE{setReflectAttrURIValue::
+          $node => $self,
+          $namespaceURI => {null},
+          $localName => 'source',
+          $given => $given,
+        }__;
+	
+  @ATTR:
+    @@Name: href
+    @@enDesc:
+      The <XA::href> attribute of the element.
+
+      It <kwd:MUST> <I::reflect the URI value
+      of the <XA::href> attribute> of the node.
+
+      The <XA::href> attribute specifies an IRI that may be used
+      to retrieve a representation of the resource being
+      responded to.  The IRI specified <kwd:MUST> be
+      dereferenceable.
+    @@Type: DOMString
+    @@actualType: DOMURI
+    @@Get:
+      @@@nullCase:
+        @@@@enDesc:
+          If the algorithm returns <DOM::null>.
+      @@@PerlDef:
+        __CODE{getReflectAttrURIValue::
+          $node => $self,
+          $namespaceURI => {null},
+          $localName => 'href',
+          $r => $r,
+          $defaultValue => {null},
+        }__;
+    @@Set:
+      @@@nullCase:
+        @@@@enDesc:
+          Removes the attribute.
+      @@@NodeReadOnlyError:
+      @@@PerlDef:
+        __CODE{setReflectAttrURIValue::
+          $node => $self,
+          $namespaceURI => {null},
+          $localName => 'href',
+          $given => $given,
+        }__;
+  
+  @ATTR:
+    @@Name: type
+    @@enDesc:
+      The <XA::type> attribute of the element.
+
+      It <kwd:MUST> <I::reflect the string value
+      of the <XA::type> attribute> of the node.
+
+      The <XA::type> attribute <kwd:MAY> be used to provide
+      a hint to the client about the media type of the
+      resource identified by the <XA::href> attribute.
+      The <XA::type> attribute is only meaningful if a
+      corresponding <XA::href> attribute is also provided.
+    @@Type: DOMString
+    @@Get:
+      @@@nullCase:
+        @@@@enDesc:
+          If the algorithm returns <DOM::null>.
+      @@@PerlDef:
+        __CODE{getReflectAttrStringValue::
+          $node => $self,
+          $namespaceURI => {null},
+          $localName => 'type',
+          $r => $r,
+          $defaultValue => {null},
+        }__;
+    @@Set:
+      @@@nullCase:
+        @@@@enDesc:
+          Removes the attribute.
+      @@@NodeReadOnlyError:
+      @@@PerlDef:
+        __CODE{setReflectAttrStringValue::
+          $node => $self,
+          $namespaceURI => {null},
+          $localName => 'type',
+          $given => $given,
+        }__;
+##AtomThreadInReplyToElement
+
+IFClsDef:
+  @IFQName: AtomLinkElementThread
+  @ClsQName: ManakaiAtomLinkElementThread
+
+  @ClsISA: ManakaiAtomLinkElement
+
+  @f:implements: AtomThreadingFeature10
+
+  @enDesc:
+    An <XE::atom|link> element with a <XA::rel> attribute value of
+    <XML::replies> may be used to reference a resource where responses
+    to an entry may be found.  If the <XA::type> attribute of the 
+    <XE::atom|link> is omitted, its value is assumed to be 
+    <XML::application/atom+xml>.
+
+    A <XML::replies> link appearing as a child of the <XE::atom|feed>
+    or <XE::atom|source> element indicates that the referenced
+    resource likely contains responses to any of that 
+    feed's entries.  A <XML::replies> 
+    link appearing as a child of an <XE::atom|entry> element
+    indicates that the linked resource likely contains responses
+    specific to that entry.
+
+    If the feature <Feature^^DISCore|QName::AtomThreadingFeature10>
+    is supported, any <IF::Element> whose element type
+    is <XE::atom|link> <kwd:MUST> implement the <IF::AtomLinkElementThread>
+    interface in addition to other appropriate interfaces.
+
+  @Test:
+    @@QName: AtomLinkElementThread.1.test
+    @@PerlDef:
+      my $doc;
+      __CODE{tc|createEmptyDocumentForTest:: $doc => $doc}__;
+
+      my $el = $doc->create_element_ns (<Q::atom|>, 'link');
+
+      $test->id ('interface');
+      $test->assert_isa ($el, <IFName::AtomLinkElementThread>);
+
+      $test->id ('feature');
+      $test->assert_true ($el->is_supported (<Q::fe|AtomThreading> => '1.0'));
+
+  @ATTR:
+    @@Name: threadCount
+    @@enDesc:
+      The <XA::thr|count> attribute of the element.
+
+      It <kwd:MUST> <I::reflect the non-negative integer value
+      of the <XA::thr|count> attribute> of the node.
+
+      An <XE::atom|link> element using the <XML::replies>
+      <XA::rel> attribute value <kwd:MAY> contain 
+      a <XA::thr|count> attribute whose value is a
+      non-negative integer that provides a hint to clients
+      as to the total number of replies contained by the
+      linked resource.  The value is advisory and
+      may not accurately reflect the actual number of replies.
+    @@Type: idl|long
+    @@Get:
+      @@@PerlDef:
+        __CODE{getReflectAttrNonNegativeIntegerValue::
+          $node => $self,
+          $namespaceURI => {<Q::thr|>},
+          $localName => 'count',
+          $r => $r,
+          $defaultValue => {null},
+        }__;
+    @@Set:
+      @@@NodeReadOnlyError:
+      @@@PerlDef:
+        __CODE{setReflectAttrNonNegativeIntegerValue::
+          $node => $self,
+          $namespaceURI => {<Q::thr|>},
+          $localName => 'count',
+          $given => $given,
+        }__;
+
+    @@Test:
+      @@@QName: AtomLinkElementThread.threadCount.1.test
+      @@@PerlDef:
+        my $doc;
+        __CODE{tc|createEmptyDocumentForTest:: $doc => $doc}__;
+
+        my $link = $doc->create_element_ns (<Q::atom|>, 'link');
+
+        $test->id ('default');
+        $test->assert_num_equals
+                 (expected_value => -1,
+                  actual_value =>
+                    $link-><AG::AtomLinkElementThread.threadCount>);
+
+        $test->id ('zero');
+        $link-><AS::AtomLinkElementThread.threadCount> (0);
+        $test->assert_num_equals
+                 (expected_value => 0,
+                  actual_value =>
+                    $link-><AG::AtomLinkElementThread.threadCount>);
+        $test->id ('zero.attr');
+        $test->assert_equals ($link->get_attribute_ns (<Q::thr|>, 'count'), '0');
+
+        $test->id ('one');
+        $link-><AS::AtomLinkElementThread.threadCount> (1);
+        $test->assert_num_equals
+                 (expected_value => 1,
+                  actual_value =>
+                    $link-><AG::AtomLinkElementThread.threadCount>);
+        $test->id ('one.attr');
+        $test->assert_equals ($link->get_attribute_ns (<Q::thr|>, 'count'), '1');
+
+        $test->id ('10000');
+        $link-><AS::AtomLinkElementThread.threadCount> (10000);
+        $test->assert_num_equals
+                 (expected_value => 10000,
+                  actual_value =>
+                    $link-><AG::AtomLinkElementThread.threadCount>);
+        $test->id ('10000.attr');
+        $test->assert_equals ($link->get_attribute_ns (<Q::thr|>, 'count'),
+                              '10000');
+
+        $test->id ('+10000');
+        $link->set_attribute_ns (<Q::thr|>, 'thr:count', '+10000');
+        $test->assert_num_equals
+                 (expected_value => 10000,
+                  actual_value =>
+                    $link-><AG::AtomLinkElementThread.threadCount>);
+
+        $test->id ('010000');
+        $link->set_attribute_ns (<Q::thr|>, 'thr:count', '010000');
+        $test->assert_num_equals
+                 (expected_value => 10000,
+                  actual_value =>
+                    $link-><AG::AtomLinkElementThread.threadCount>);
+
+        $test->id ('-100');
+        $link-><AS::AtomLinkElementThread.threadCount> (-100);
+        $test->assert_num_equals
+                 (expected_value => -1,
+                  actual_value =>
+                    $link-><AG::AtomLinkElementThread.threadCount>);
+        $test->id ('-100.attr');
+        $test->assert_false ($link->has_attribute_ns (<Q::thr|>, 'count'));
+
+        $test->id ('120a');
+        $link->set_attribute_ns (<Q::thr|>, 'thr:count', '120a');
+        $test->assert_num_equals
+                 (expected_value => -1,
+                  actual_value =>
+                    $link-><AG::AtomLinkElementThread.threadCount>);
+
+        $test->id ('-1');
+        $link-><AS::AtomLinkElementThread.threadCount> (-1);
+        $test->assert_num_equals
+                 (expected_value => -1,
+                  actual_value =>
+                    $link-><AG::AtomLinkElementThread.threadCount>);
+        $test->id ('-1.attr');
+        $test->assert_false ($link->has_attribute_ns (<Q::thr|>, 'count'));
+
+  @enImplNote:
+    @@ddid: updated
+    @@@:
+      {TODO::
+        <XA::thr|updated> attribute
+      }
+##AtomLinkElementThread
+
+enImplNote:
+  @@ddid: total
+  @@@:
+    {TODO::
+      <XE::thr|total>
+    }
+
+enImplNote:
+  @@ddid: threaddtd
+  @@@:
+    {TODO::
+      DTD impl for threading
+    }