--- messaging/manakai/lib/Message/Markup/Atom.dis	2006/08/18 12:26:54	1.11
+++ messaging/manakai/lib/Message/Markup/Atom.dis	2006/12/30 04:42:55	1.21
@@ -43,7 +43,7 @@
   @DISCore:author: DISCore|Wakaba
   @License: license|Perl+MPL
   @Date:
-    $Date: 2006/08/18 12:26:54 $
+    $Date: 2006/12/30 04:42:55 $
 
   @Require:
     @@Module:
@@ -52,10 +52,6 @@
       @@@QName: MDOM|TreeCore
       @@@WithFor: ManakaiDOM|ManakaiDOMLatest
     @@Module:
-      @@@WithFor: ManakaiDOM|ManakaiDOM
-    @@Module:
-      @@@WithFor: ManakaiDOM|ManakaiDOMLatest
-    @@Module:
       @@@QName: DISlib|DISMarkup
       @@@WithFor: ManakaiDOM|all
   @DefaultFor: ManakaiDOM|ManakaiDOMLatest
@@ -77,6 +73,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 +117,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:
@@ -252,10 +252,7 @@
     @@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
       @@@ContentType: DISCore|TFPQNames
@@ -270,8 +267,6 @@
       @@@@: s|ElementType
       @@@ForCheck: s|ForML
 
-    @@f:implements: AtomFeature10
-
 ElementTypeBinding:
   @Name: IFClsDef
   @ElementType: 
@@ -291,17 +286,12 @@
     @@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
       @@@ContentType: DISCore|TFPQNames
       @@@ForCheck: ManakaiDOM|ForClass ManakaiDOM|ManakaiDOMLatest
 
-    @@f:implements: AtomFeature10
-
 ElementTypeBinding:
   @Name: IFClsConstructDef
   @ElementType: 
@@ -324,10 +314,7 @@
     @@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
       @@@ContentType: DISCore|TFPQNames
@@ -341,7 +328,6 @@
       @@@@: mv|ElementContentModel
       @@@ForCheck: mv|ForCM
 
-    @@f:implements: AtomFeature10
 
 ElementTypeBinding:
   @Name: IFQName
@@ -568,6 +554,17 @@
     @@enDesc:
       The Atom DOM, version 1.0.
 
+FeatureDef:
+  @featureQName: fe|AtomThreading
+  @QName: AtomThreadingFeature
+  @FeatureVerDef:
+    @@QName: AtomThreadingFeature10
+    @@Version: 1.0
+    @@f:instanceOf: AtomThreadingFeature
+    @@f:requires: fe|AtomFeature10
+    @@enDesc:
+      The Atom Threading Extension DOM, version 1.0.
+
 ## -- Modules
 
 ModuleSetDef:
@@ -582,6 +579,7 @@
 
   @mv:targetNamespace: atom|
   @mv:defaultNamespacePrefix: atom
+  @mv:systemIdentifierBaseURI: \
 
 ModuleDef:
   @QName: AtomFeed
@@ -661,6 +659,21 @@
   @DISCore:resourceType: mv|XMLDTDQNameModule
 
   @mv:contains: Atom
+
+ResourceDef:
+  @QName: Atom10
+  @enLN: Atom 1.0
+  @mv:id: atom10
+  @For: =ManakaiDOM|ManakaiDOMLatest
+  @DISCore:resourceType: mv|XMLDTDDriver
+
+  @mv:refers: Atom
+
+  @mv:refers: AtomQName
+  @mv:refers: AtomDatatypes
+  @mv:refers: AtomProperties
+  @mv:refers: AtomEntry
+  @mv:refers: AtomFeed
  
 ElementTypeBinding:
   @Name: ModuleSetDef
@@ -684,36 +697,34 @@
   @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',
                      });
 
@@ -723,7 +734,7 @@
     @@PerlDef:
       require Message::Markup::Atom;
       my $impl = $Message::DOM::ImplementationRegistry
-                   ->get_implementation ({
+                   ->get_dom_implementation ({
                        Core => '3.0',
                        <Q::fe|Atom> => '1.0',
                      });
@@ -734,7 +745,7 @@
     @@PerlDef:
       require Message::Markup::Atom;
       my $impl = $Message::DOM::ImplementationRegistry
-                   ->get_implementation ({
+                   ->get_dom_implementation ({
                        XML => '3.0',
                        <Q::fe|Atom> => '1.0',
                      });
@@ -770,7 +781,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.
 
@@ -953,7 +964,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.
 
@@ -1496,118 +1507,137 @@
         <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
   @enFN: common attributes
   @mv:attributeTypeGroupName: common
+
+  @mv:refers: Atom
   
   @ATDef:
     @@mv:attributeTypeName: xml|base
@@ -1712,6 +1742,7 @@
   @IFISA: Element
   @ClsISA: te|ManakaiDOMElement
    
+  @f:implements: AtomFeature10
   @s:elementType: AnyAtomElement||ManakaiDOM|all
 
   @enDesc:
@@ -1737,7 +1768,6 @@
     @@PerlDef:
       for my $interface (
         <IFName::AtomElement>,
-        <IFName::AtomElement||ManakaiDOM|ManakaiDOM>,
         <IFName::Element>,
         <IFName::Node>,
         <IFName::f|GetFeature>,
@@ -1781,6 +1811,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
@@ -1922,6 +1953,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
@@ -2078,6 +2110,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
@@ -2185,6 +2218,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
@@ -2793,6 +2827,8 @@
                                 (<Q::atom|>, 'updated');
           $updatede-><AS::AtomDateConstruct.value> (scalar time);
           $r-><M::Node.appendChild> ($updatede);
+
+          $self-><M::Node.appendChild> ($r);
         }__;
 
     @@Test:
@@ -2859,6 +2895,9 @@
         $test->assert_num_not_equals
                  (actual_value => $updated-><AG::AtomDateConstruct.value>,
                   expected_value => 0);
+
+        $test->id ('parent');
+        $test->assert_equals ($ent-><AG::Node.parentNode>, $feed);
     @@Test:
       @@@QName: AtomFeedElement.addNewEntry.2.test
       @@@enDesc:
@@ -2903,6 +2942,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
@@ -3080,7 +3120,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>
@@ -3100,7 +3142,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>
@@ -3436,6 +3480,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
   
   @cm: atomUriCM
@@ -3450,6 +3495,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm: atomUriCM
@@ -3464,8 +3510,11 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   # no common attribs
   @cm: TextCM
+
+  @mv:refers: Atom
 ##AtomNameElement
 
 IFClsETDef:
@@ -3477,8 +3526,11 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   # no common attribs
   @cm: atomUriCM
+
+  @mv:refers: Atom
 ##AtomUriElement
 
 IFClsETDef:
@@ -3490,8 +3542,11 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   # no common attribs
   @cm: atomEmailAddressCM
+
+  @mv:refers: Atom
 ##AtomEmailElement
 
 IFClsETDef:
@@ -3503,6 +3558,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm: atomUriCM
@@ -3517,6 +3573,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
@@ -3526,7 +3583,7 @@
     The <XE::atom|content> element either contains or links to
     the content of the entry.
 
-  @Attr:
+  @ATTR:
     @@Name: type
     @@enDesc:
       The type of the element.
@@ -3591,7 +3648,7 @@
         $el-><AS::AtomContentElement.type> (null);
         $test->assert_null ($el-><AG::AtomContentElement.type>);
 
-  @Attr:
+  @ATTR:
     @@Name: src
     @@enDesc:
       The source of the remote content of the element.
@@ -3770,6 +3827,8 @@
 
   @IFISA: AtomPersonConstruct
   @ClsISA: ManakaiAtomPersonConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: PersonAG
   @mv:elementContentModel: PersonCM
 
@@ -3787,6 +3846,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm: undefinedContent
@@ -3904,6 +3964,8 @@
 
   @IFISA: AtomPersonConstruct
   @ClsISA: ManakaiAtomPersonConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: PersonAG
   @mv:elementContentModel: PersonCM
 
@@ -3922,6 +3984,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
@@ -4008,6 +4071,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm: undefinedContent
@@ -4143,6 +4207,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>.
@@ -4154,6 +4230,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:
@@ -4167,6 +4252,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:
@@ -4275,6 +4428,8 @@
 
   @IFISA: AtomDateConstruct
   @ClsISA: ManakaiAtomDateConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: DateAG
   @mv:elementContentModel: DateCM
 
@@ -4295,6 +4450,8 @@
 
   @IFISA: AtomTextConstruct
   @ClsISA: ManakaiAtomTextConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: TextAG
   @mv:elementContentModel: TextCM
 
@@ -4330,6 +4487,7 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @f:implements: AtomFeature10
   @mv:refers: atomCommonAttributes
 
   @cm:
@@ -4544,6 +4702,8 @@
 
   @IFISA: AtomTextConstruct
   @ClsISA: ManakaiAtomTextConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: TextAG
   @mv:elementContentModel: TextCM
 
@@ -4560,6 +4720,8 @@
 
   @IFISA: AtomTextConstruct
   @ClsISA: ManakaiAtomTextConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: TextAG
   @mv:elementContentModel: TextCM
 
@@ -4576,6 +4738,8 @@
 
   @IFISA: AtomTextConstruct
   @ClsISA: ManakaiAtomTextConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: TextAG
   @mv:elementContentModel: TextCM
 
@@ -4592,6 +4756,8 @@
 
   @IFISA: AtomDateConstruct
   @ClsISA: ManakaiAtomDateConstruct
+
+  @f:implements: AtomFeature10
   @mv:refers: DateAG
   @mv:elementContentModel: DateCM
 
@@ -4714,3 +4880,445 @@
   @cm: dxm|ANY||ManakaiDOM|all
   @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||ManakaiDOM|all
+    @@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
+    }