/[suikacvs]/messaging/manakai/lib/Message/DOM/XMLParser.dis
Suika

Diff of /messaging/manakai/lib/Message/DOM/XMLParser.dis

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by wakaba, Fri Feb 10 08:10:26 2006 UTC revision 1.17 by wakaba, Sat Feb 11 05:05:46 2006 UTC
# Line 297  ClsDef: Line 297  ClsDef:
297          $self->{param_entity} = {};          $self->{param_entity} = {};
298          $self->{attr} = {};          $self->{attr} = {};
299            # $self->{attr}->{$element_type_name}->{$attr_name} = $attr_def            # $self->{attr}->{$element_type_name}->{$attr_name} = $attr_def
300          $self->{has_error} = false;  
301            ## Well-formedness constraint Entity Declared takes effect?            ## Well-formedness constraint Entity Declared takes effect?
302    
303          __DEEP{          __DEEP{
# Line 306  ClsDef: Line 306  ClsDef:
306            $self->{doc} = $r;            $self->{doc} = $r;
307            CORE::delete $self->{docx};            CORE::delete $self->{docx};
308            CORE::delete $self->{dtdef};            CORE::delete $self->{dtdef};
309              CORE::delete $self->{dtdecl};
310            $self->{cfg} = $r-><AG::Document.domConfig>;            $self->{cfg} = $r-><AG::Document.domConfig>;
311            local $r->{<H::mn:node>}            local $r->{<H::mn:node>}
312                    ->{<H::cfg|entity-reference-read-only>} = false;                    ->{<H::cfg|entity-reference-read-only>} = false;
# Line 421  ClsDef: Line 422  ClsDef:
422                  unless ($continue) {                  unless ($continue) {
423                    __EXCEPTION{DOMLS|PARSE_ERR}__;                    __EXCEPTION{DOMLS|PARSE_ERR}__;
424                  }                  }
                 $self->{has_error} = true;  
425                  $self->{entity}->[-1]->{column}++;                  $self->{entity}->[-1]->{column}++;
426                } elsif ($r == 0x0085 or $r == 0x2028) {                } elsif ($r == 0x0085 or $r == 0x2028) {
427                  if ($self->{entity}->[-1]->{no_xml11_eol}) {                  if ($self->{entity}->[-1]->{no_xml11_eol}) {
# Line 650  ClsDef: Line 650  ClsDef:
650        }        }
651                
652        ~ (#EOF) { }        ~ (#EOF) { }
   
       lang:Perl {  
         if ($self->{has_error}) {  
           __EXCEPTION{DOMLS|PARSE_ERR::  
           }__;  
         }  
       }  
653      } // DocumentEntity      } // DocumentEntity
654    
655      /*      /*
# Line 752  ClsDef: Line 745  ClsDef:
745              unless ($continue) {              unless ($continue) {
746                __EXCEPTION{DOMLS|PARSE_ERR}__;                __EXCEPTION{DOMLS|PARSE_ERR}__;
747              }              }
             $self->{has_error} = true;  
748            }            }
749            $self->{doc}-><AS::Document.xmlVersion> ($ver);            $self->{doc}-><AS::Document.xmlVersion> ($ver);
750            $self->{xml_version} = $ver;            $self->{xml_version} = $ver;
# Line 813  ClsDef: Line 805  ClsDef:
805              unless ($continue) {              unless ($continue) {
806                __EXCEPTION{DOMLS|PARSE_ERR}__;                __EXCEPTION{DOMLS|PARSE_ERR}__;
807              }              }
             $self->{has_error} = true;  
808            }            }
809            $self->{doc}-><AS::Document.xmlEncoding> ($ver);            $self->{doc}-><AS::Document.xmlEncoding> ($ver);
810          }          }
# Line 873  ClsDef: Line 864  ClsDef:
864              unless ($continue) {              unless ($continue) {
865                __EXCEPTION{DOMLS|PARSE_ERR}__;                __EXCEPTION{DOMLS|PARSE_ERR}__;
866              }              }
             $self->{has_error} = true;  
867            }            }
868            if ($ver eq 'yes') {            if ($ver eq 'yes') {
869              $self->{doc}-><AS::Document.xmlStandalone> (true);              $self->{doc}-><AS::Document.xmlStandalone> (true);
# Line 975  ClsDef: Line 965  ClsDef:
965                __EXCEPTION{DOMLS|PARSE_ERR::                __EXCEPTION{DOMLS|PARSE_ERR::
966                }__;                }__;
967              }              }
             $self->{has_error} = true;  
968            }            }
969            ## TODO: Namespace well-formedness            ## TODO: Namespace well-formedness
970            $pi = $doc-><M::Document.createProcessingInstruction>            $pi = $doc-><M::Document.createProcessingInstruction>
# Line 1039  ClsDef: Line 1028  ClsDef:
1028                __EXCEPTION{DOMLS|PARSE_ERR::                __EXCEPTION{DOMLS|PARSE_ERR::
1029                }__;                }__;
1030              }              }
             $self->{has_error} = true;  
1031            }            }
1032            ## TODO: Namespace well-formedness            ## TODO: Namespace well-formedness
1033            $pi = $doc-><M::Document.createProcessingInstruction>            $pi = $doc-><M::Document.createProcessingInstruction>
# Line 1376  ClsDef: Line 1364  ClsDef:
1364                unless ($continue) {                unless ($continue) {
1365                  __EXCEPTION{DOMLS|PARSE_ERR}__;                  __EXCEPTION{DOMLS|PARSE_ERR}__;
1366                }                }
               $self->{has_error} = true;  
1367              }              }
1368            }            }
1369          }          }
# Line 1403  ClsDef: Line 1390  ClsDef:
1390                  }                  }
1391                  $node = shift @{$nodes};                  $node = shift @{$nodes};
1392                }                }
               $self->{has_error} = true;  
1393              }              }
1394            }            }
1395            return;            return;
# Line 1570  ClsDef: Line 1556  ClsDef:
1556              unless ($continue) {              unless ($continue) {
1557                __EXCEPTION{DOMLS|PARSE_ERR}__;                __EXCEPTION{DOMLS|PARSE_ERR}__;
1558              }              }
             $self->{has_error} = true;  
1559            }            }
1560                        
1561            $vals = $attrs->{$atqname} = {            $vals = $attrs->{$atqname} = {
# Line 1799  ClsDef: Line 1784  ClsDef:
1784              unless ($continue) {              unless ($continue) {
1785                __EXCEPTION{DOMLS|PARSE_ERR}__;                __EXCEPTION{DOMLS|PARSE_ERR}__;
1786              }              }
             $self->{has_error} = true;  
1787            }            }
1788            my $ncr = $doc-><M::Document.createTextNode> (chr $num);            my $ncr = $doc-><M::Document.createTextNode> (chr $num);
1789            $parent-><M::Node.appendChild> ($ncr);            $parent-><M::Node.appendChild> ($ncr);
# Line 1839  ClsDef: Line 1823  ClsDef:
1823              unless ($continue) {              unless ($continue) {
1824                __EXCEPTION{DOMLS|PARSE_ERR}__;                __EXCEPTION{DOMLS|PARSE_ERR}__;
1825              }              }
             $self->{has_error} = true;  
1826            }            }
1827            my $ncr = $doc-><M::Document.createTextNode>            my $ncr = $doc-><M::Document.createTextNode>
1828                              (my $char = chr $num);                              (my $char = chr $num);
# Line 1886  ClsDef: Line 1869  ClsDef:
1869              unless ($continue) {              unless ($continue) {
1870                __EXCEPTION{DOMLS|PARSE_ERR}__;                __EXCEPTION{DOMLS|PARSE_ERR}__;
1871              }              }
             $self->{has_error} = true;  
1872            }            }
1873            my $ncr = $self->{doc}-><M::Document.createTextNode>            my $ncr = $self->{doc}-><M::Document.createTextNode>
1874                              (my $char = chr $num);                              (my $char = chr $num);
# Line 1929  ClsDef: Line 1911  ClsDef:
1911              unless ($continue) {              unless ($continue) {
1912                __EXCEPTION{DOMLS|PARSE_ERR}__;                __EXCEPTION{DOMLS|PARSE_ERR}__;
1913              }              }
             $self->{has_error} = true;  
1914            }            }
1915            push @{$vals}, chr $num;            push @{$vals}, chr $num;
1916          }          }
# Line 1969  ClsDef: Line 1950  ClsDef:
1950              unless ($continue) {              unless ($continue) {
1951                __EXCEPTION{DOMLS|PARSE_ERR}__;                __EXCEPTION{DOMLS|PARSE_ERR}__;
1952              }              }
             $self->{has_error} = true;  
1953            }            }
1954            my $ncr = $doc-><M::Document.createTextNode>            my $ncr = $doc-><M::Document.createTextNode>
1955                        (chr $num);                        (chr $num);
# Line 2010  ClsDef: Line 1990  ClsDef:
1990              unless ($continue) {              unless ($continue) {
1991                __EXCEPTION{DOMLS|PARSE_ERR}__;                __EXCEPTION{DOMLS|PARSE_ERR}__;
1992              }              }
             $self->{has_error} = true;  
1993            }            }
1994            my $ncr = $doc-><M::Document.createTextNode>            my $ncr = $doc-><M::Document.createTextNode>
1995                        (my $char = chr $num);                        (my $char = chr $num);
# Line 2057  ClsDef: Line 2036  ClsDef:
2036              unless ($continue) {              unless ($continue) {
2037                __EXCEPTION{DOMLS|PARSE_ERR}__;                __EXCEPTION{DOMLS|PARSE_ERR}__;
2038              }              }
             $self->{has_error} = true;  
2039            }            }
2040            my $ncr = $self->{doc}-><M::Document.createTextNode>            my $ncr = $self->{doc}-><M::Document.createTextNode>
2041                        (my $char = chr $num);                        (my $char = chr $num);
# Line 2099  ClsDef: Line 2077  ClsDef:
2077              unless ($continue) {              unless ($continue) {
2078                __EXCEPTION{DOMLS|PARSE_ERR}__;                __EXCEPTION{DOMLS|PARSE_ERR}__;
2079              }              }
             $self->{has_error} = true;  
2080            }            }
2081            push @{$vals}, chr $num;            push @{$vals}, chr $num;
2082          }          }
# Line 2359  ClsDef: Line 2336  ClsDef:
2336                
2337        ~ (S) { }        ~ (S) { }
2338                
       my $node;  
2339        // Document type name        // Document type name
2340        my $name;        my $name;
2341        ~ (Name) {        ~ (Name) {
# Line 2367  ClsDef: Line 2343  ClsDef:
2343            $name = $v;            $name = $v;
2344          }          }
2345        }        }
2346    
2347          my $node;
2348          my $decl;
2349        lang:Perl {        lang:Perl {
2350          $self->{docx} = $self->{doc}          $self->{docx} = $self->{doc}
2351                               -><M::Node.getFeature> (<Q::fe:XDoctype>, '3.0');                               -><M::Node.getFeature> (<Q::fe:XDoctype>, '3.0');
2352          $node = $self->{docx}-><M::DocumentXDoctype.createDocumentTypeDefinition>          $node = $self->{docx}-><M::DocumentXDoctype.createDocumentTypeDefinition>
2353                                   ($name);                                   ($name);
2354            $decl = $self->{dtdecl} = $node-><M::Node.getFeature>
2355                                               (<Q::fe:XDoctypeDeclaration>, '3.0');
2356        }        }
2357    
2358        ~? (S) {        ~? (S) {
2359          ~? (Name == 'PUBLIC') {          ~? (Name == 'PUBLIC') {
2360            ~ (S) { }            ~ (S) { }
2361        
2362            &PubidLiteral ($doc => $doc);            &PubidLiteral ($decl => $decl);
2363        
2364            ~ (S) { }            ~ (S) { }
2365        
2366            &SystemLiteral ($doc => $doc);            &SystemLiteral ($decl => $decl);
2367        
2368            ~? (S) { }            ~? (S) { }
2369          } (Name == 'SYSTEM') {          } (Name == 'SYSTEM') {
2370            ~ (S) { }            ~ (S) { }
2371        
2372            &SystemLiteral ($doc => $doc);            &SystemLiteral ($decl => $decl);
2373        
2374            ~? (S) { }            ~? (S) { }
2375          }          }
2376        }        }
2377          
2378        lang:Perl {        lang:Perl {
2379          $self->{dtdef} = $node;          $self->{dtdef} = $node;
2380          $doc-><M::Node.appendChild> ($node);          $doc-><M::Node.appendChild> ($node);
# Line 2420  ClsDef: Line 2401  ClsDef:
2401        // ~ (MDC) { }        // ~ (MDC) { }
2402      } // _DocumentTypeDeclaration_      } // _DocumentTypeDeclaration_
2403    
2404      rule PubidLiteral ($doc) {      /*
2405          Public Identifier Literal
2406        */
2407        rule PubidLiteral ($decl) {
2408          my $pubid;
2409          my $pubid_token;
2410        ~ (LIT) {        ~ (LIT) {
2411          ?lexmode SystemLiteral;          ?lexmode SystemLiteral;
2412    
2413          ~? (STRING) {          ~? (STRING) {
2414            // TODO: Charrange check & normalization is required            lang:Perl ($v => $token.value) {
2415                $pubid = $v;
2416                $pubid_token = $token;
2417              }
2418          }          }
2419    
2420          ~ (LIT) {          ~ (LIT) {
# Line 2438  ClsDef: Line 2426  ClsDef:
2426          ?lexmode SystemLiteralA;          ?lexmode SystemLiteralA;
2427    
2428          ~? (STRING) {          ~? (STRING) {
2429            // TODO: Charrange check & normalization is required            lang:Perl ($v => $token.value) {
2430                $pubid = $v;
2431                $pubid_token = $token;
2432              }
2433          }          }
2434    
2435          ~ (LITA) {          ~ (LITA) {
# Line 2448  ClsDef: Line 2438  ClsDef:
2438            ?lexmode MarkupDeclaration;            ?lexmode MarkupDeclaration;
2439          }          }
2440        }        }
2441    
2442          if-true ($pubid_token) {
2443            lang:Perl : has-error {
2444              if ($pubid =~ m{[^\x20\x0D\x0Aa-zA-Z0-9'()+,./:=?;!*#\@\$_%-]}s) {
2445                my $location;
2446                __CODE{xp|get-location-from-token::
2447                  $token => {$pubid_token},
2448                  $result => {$location},
2449                }__;
2450                                      ## Should this be other (new) error type?
2451                my $continue = __DOMCore:ERROR{xp|wf-syntax-error::
2452                  xp|error-token => {$token},
2453                  c|location => {$location},
2454                }__;
2455                unless ($continue) {
2456                  __EXCEPTION{DOMLS|PARSE_ERR::
2457                 }__;
2458                }
2459              }
2460    
2461              ## NOTE: U+0009 is syntactically illegal.
2462              $pubid =~ s/[\x09\x0A\x0D\x20]+//gs;
2463              $pubid =~ s/\A\x20//s;
2464              $pubid =~ s/\x20\z//s;
2465                     ## NOTE: Bare attribute name is written.
2466              $decl->public_id ($pubid);
2467            }
2468          }
2469      } // PubidLiteral      } // PubidLiteral
2470    
2471      rule SystemLiteral ($doc) {      /*
2472          System Identifier Literal
2473        */
2474        rule SystemLiteral ($decl) {
2475        ~ (LIT) {        ~ (LIT) {
2476          ?lexmode SystemLiteral;          ?lexmode SystemLiteral;
2477          &_SystemLiteral ($doc => $doc);          &_SystemLiteral ($decl => $decl);
2478        } (LITA) {        } (LITA) {
2479          ?lexmode SystemLiteralA;          ?lexmode SystemLiteralA;
2480          &_SystemLiteral ($doc => $doc);          &_SystemLiteral ($decl => $decl);
2481        }        }
2482      } // SystemLiteral      } // SystemLiteral
2483    
2484      rule _SystemLiteral ($doc) {      /*
2485        ~? (STRING) {        System Identifier Literal Content
2486        */
2487        rule _SystemLiteral ($decl) {
2488          // LIT or LITA
2489    
2490          ~? (STRING) {
2491            lang:Perl ($v => $token.value) {
2492                     ## NOTE: Bare attribute name is written.
2493              $decl->system_id ($v);
2494            }
2495        }        }
2496    
2497        ~ (LIT) {        ~ (LIT) {
# Line 2945  ClsDef: Line 2974  ClsDef:
2974        } (Name == 'PUBLIC') {        } (Name == 'PUBLIC') {
2975          ~ (S) { }          ~ (S) { }
2976    
2977          &PubidLiteral ($doc => $doc, $decl => $decl);          &PubidLiteral ($decl => $decl);
2978    
2979          ~ (S) { }          ~ (S) { }
2980    
2981          &SystemLiteral ($doc => $doc, $decl => $decl);          &SystemLiteral ($decl => $decl);
2982        } (Name == 'SYSTEM') {        } (Name == 'SYSTEM') {
2983          ~ (S) { }          ~ (S) { }
2984    
2985          &SystemLiteral ($doc => $doc, $decl => $decl);          &SystemLiteral ($decl => $decl);
2986        }        }
2987    
2988        ~? (S) {        ~? (S) {
# Line 3005  ClsDef: Line 3034  ClsDef:
3034    
3035        ~ (S) { }        ~ (S) { }
3036    
3037          my $decl;
3038          lang:Perl {
3039            $decl = $self->{docx}-><M::DocumentXDoctype.createGeneralEntity>
3040                                                   ($decl->{name});
3041               ## Temporary: to avoid error.
3042          }
3043    
3044        ~ (Name == 'PUBLIC') {        ~ (Name == 'PUBLIC') {
3045          ~ (S) { }          ~ (S) { }
3046    
3047          &PubidLiteral ($doc => $doc);          &PubidLiteral ($decl => $decl);
3048    
3049          ~? (S) {          ~? (S) {
3050            ~? (LIT) {            ~? (LIT) {
3051              ?lexmode SystemLiteral;              ?lexmode SystemLiteral;
3052              &_SystemLiteral ($doc => $doc);              &_SystemLiteral ($decl => $decl);
3053    
3054              ~? (S) { }              ~? (S) { }
3055            } (LITA) {            } (LITA) {
3056              ?lexmode SystemLiteralA;              ?lexmode SystemLiteralA;
3057              &_SystemLiteral ($doc => $doc);              &_SystemLiteral ($decl => $decl);
3058    
3059              ~? (S) { }              ~? (S) { }
3060            }            }
# Line 3026  ClsDef: Line 3062  ClsDef:
3062        } (Name == 'SYSTEM') {        } (Name == 'SYSTEM') {
3063          ~ (S) { }          ~ (S) { }
3064    
3065          &SystemLiteral ($doc => $doc);          &SystemLiteral ($decl => $decl);
3066    
3067          ~? (S) { }          ~? (S) { }
3068        }        }
# Line 3984  ClsDef: Line 4020  ClsDef:
4020            __EXCEPTION{DOMLS|PARSE_ERR::            __EXCEPTION{DOMLS|PARSE_ERR::
4021            }__;            }__;
4022          }          }
         $self->{has_error} = true;  
4023        }        }
4024      } // default      } // default
4025    
# Line 5196  ClsDef: Line 5231  ClsDef:
5231            xml-standalone: false;            xml-standalone: false;
5232            document-type {            document-type {
5233              node-name: 'a';              node-name: 'a';
5234                public-id: null;
5235                system-id: null;
5236            }            }
5237            element {            element {
5238              namespace-uri: null;              namespace-uri: null;
# Line 5260  ClsDef: Line 5297  ClsDef:
5297          document {          document {
5298            document-type {            document-type {
5299              node-name: 'aa';              node-name: 'aa';
5300                public-id: null;
5301                system-id: null;
5302            }            }
5303            element { }            element { }
5304          }          }
# Line 5284  ClsDef: Line 5323  ClsDef:
5323            xml-standalone: false;            xml-standalone: false;
5324            document-type {            document-type {
5325              node-name: 'a';              node-name: 'a';
5326                public-id: null;
5327                system-id: null;
5328            }            }
5329            element {            element {
5330              namespace-uri: null;              namespace-uri: null;
# Line 5307  ClsDef: Line 5348  ClsDef:
5348            xml-standalone: false;            xml-standalone: false;
5349            document-type {            document-type {
5350              node-name: 'a';              node-name: 'a';
5351                public-id: null;
5352                system-id: null;
5353            }            }
5354            element {            element {
5355              namespace-uri: null;              namespace-uri: null;
# Line 5325  ClsDef: Line 5368  ClsDef:
5368          document {          document {
5369            document-type {            document-type {
5370              node-name: 'a';              node-name: 'a';
5371                public-id: null;
5372                system-id: null;
5373            }            }
5374            element { }            element { }
5375          }          }
# Line 5338  ClsDef: Line 5383  ClsDef:
5383          document {          document {
5384            document-type {            document-type {
5385              node-name: 'a';              node-name: 'a';
5386                public-id: null;
5387                system-id: null;
5388            }            }
5389            element { }            element { }
5390          }          }
# Line 5375  ClsDef: Line 5422  ClsDef:
5422            <!DOCTYPE a []]>            <!DOCTYPE a []]>
5423            <a/>            <a/>
5424        @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 15); }        @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 15); }
5425        @@XMLTest:
5426          @@@QName: xp.doctype.pubid.sysid.1.test
5427          @@@DEnt:
5428            @@@@test:value:
5429              <!DOCTYPE a PUBLIC "pubid" "sysid">
5430              <a/>
5431          @@@test:domTree:
5432            document {
5433              document-type {
5434                node-name: 'a';
5435                public-id: 'pubid';
5436                system-id: 'sysid';
5437              }
5438              element { }
5439            }
5440        @@XMLTest:
5441          @@@QName: xp.doctype.pubid.sysid.2.test
5442          @@@DEnt:
5443            @@@@test:value:
5444              <!DOCTYPE a PUBLIC 'pubid' "sysid">
5445              <a/>
5446          @@@test:domTree:
5447            document {
5448              document-type {
5449                node-name: 'a';
5450                public-id: 'pubid';
5451                system-id: 'sysid';
5452              }
5453              element { }
5454            }
5455        @@XMLTest:
5456          @@@QName: xp.doctype.pubid.sysid.3.test
5457          @@@DEnt:
5458            @@@@test:value:
5459              <!DOCTYPE a PUBLIC "pubid" 'sysid'>
5460              <a/>
5461          @@@test:domTree:
5462            document {
5463              document-type {
5464                node-name: 'a';
5465                public-id: 'pubid';
5466                system-id: 'sysid';
5467              }
5468              element { }
5469            }
5470        @@XMLTest:
5471          @@@QName: xp.doctype.pubid.sysid.4.test
5472          @@@DEnt:
5473            @@@@test:value:
5474              <!DOCTYPE a PUBLIC 'pubid' 'sysid'>
5475              <a/>
5476          @@@test:domTree:
5477            document {
5478              document-type {
5479                node-name: 'a';
5480                public-id: 'pubid';
5481                system-id: 'sysid';
5482              }
5483              element { }
5484            }
5485        @@XMLTest:
5486          @@@QName: xp.doctype.pubid.sysid.5.test
5487          @@@DEnt:
5488            @@@@test:value:
5489              <!DOCTYPE a PUBLIC "pubid" "sysid"  >
5490              <a/>
5491          @@@test:domTree:
5492            document {
5493              document-type {
5494                node-name: 'a';
5495                public-id: 'pubid';
5496                system-id: 'sysid';
5497              }
5498              element { }
5499            }
5500        @@XMLTest:
5501          @@@QName: xp.doctype.pubid.sysid.6.test
5502          @@@DEnt:
5503            @@@@test:value:
5504              <!DOCTYPE a PUBLIC 'pubid' 'sysid'  >
5505              <a/>
5506          @@@test:domTree:
5507            document {
5508              document-type {
5509                node-name: 'a';
5510                public-id: 'pubid';
5511                system-id: 'sysid';
5512              }
5513              element { }
5514            }
5515        @@XMLTest:
5516          @@@QName: xp.doctype.pubid.sysid.intsubset.1.test
5517          @@@DEnt:
5518            @@@@test:value:
5519              <!DOCTYPE a PUBLIC "pubid" "sysid"[]>
5520              <a/>
5521          @@@test:domTree:
5522            document {
5523              document-type {
5524                node-name: 'a';
5525                public-id: 'pubid';
5526                system-id: 'sysid';
5527              }
5528              element { }
5529            }
5530        @@XMLTest:
5531          @@@QName: xp.doctype.pubid.sysid.intsubset.2.test
5532          @@@DEnt:
5533            @@@@test:value:
5534              <!DOCTYPE a PUBLIC "pubid" "sysid"  []>
5535              <a/>
5536          @@@test:domTree:
5537            document {
5538              document-type {
5539                node-name: 'a';
5540                public-id: 'pubid';
5541                system-id: 'sysid';
5542              }
5543              element { }
5544            }
5545        @@XMLTest:
5546          @@@QName: xp.doctype.pubid.sysid.intsubset.3.test
5547          @@@DEnt:
5548            @@@@test:value:
5549              <!DOCTYPE a PUBLIC 'pubid' 'sysid'[]>
5550              <a/>
5551          @@@test:domTree:
5552            document {
5553              document-type {
5554                node-name: 'a';
5555                public-id: 'pubid';
5556                system-id: 'sysid';
5557              }
5558              element { }
5559            }
5560        @@XMLTest:
5561          @@@QName: xp.doctype.pubid.sysid.intsubset.4.test
5562          @@@DEnt:
5563            @@@@test:value:
5564              <!DOCTYPE a PUBLIC 'pubid' 'sysid'  []>
5565              <a/>
5566          @@@test:domTree:
5567            document {
5568              document-type {
5569                node-name: 'a';
5570                public-id: 'pubid';
5571                system-id: 'sysid';
5572              }
5573              element { }
5574            }
5575        @@XMLTest:
5576          @@@QName: xp.doctype.sysid.1.test
5577          @@@DEnt:
5578            @@@@test:value:
5579              <!DOCTYPE a SYSTEM "sysid">
5580              <a/>
5581          @@@test:domTree:
5582            document {
5583              document-type {
5584                node-name: 'a';
5585                public-id: null;
5586                system-id: 'sysid';
5587              }
5588              element { }
5589            }
5590        @@XMLTest:
5591          @@@QName: xp.doctype.sysid.2.test
5592          @@@DEnt:
5593            @@@@test:value:
5594              <!DOCTYPE a SYSTEM 'sysid'>
5595              <a/>
5596          @@@test:domTree:
5597            document {
5598              document-type {
5599                node-name: 'a';
5600                public-id: null;
5601                system-id: 'sysid';
5602              }
5603              element { }
5604            }
5605        @@XMLTest:
5606          @@@QName: xp.doctype.sysid.3.test
5607          @@@DEnt:
5608            @@@@test:value:
5609              <!DOCTYPE a SYSTEM "sysid"  >
5610              <a/>
5611          @@@test:domTree:
5612            document {
5613              document-type {
5614                node-name: 'a';
5615                public-id: null;
5616                system-id: 'sysid';
5617              }
5618              element { }
5619            }
5620        @@XMLTest:
5621          @@@QName: xp.doctype.sysid.4.test
5622          @@@DEnt:
5623            @@@@test:value:
5624              <!DOCTYPE a SYSTEM 'sysid'  >
5625              <a/>
5626          @@@test:domTree:
5627            document {
5628              document-type {
5629                node-name: 'a';
5630                public-id: null;
5631                system-id: 'sysid';
5632              }
5633              element { }
5634            }
5635        @@XMLTest:
5636          @@@QName: xp.doctype.sysid.intsubset.1.test
5637          @@@DEnt:
5638            @@@@test:value:
5639              <!DOCTYPE a SYSTEM "sysid"[]>
5640              <a/>
5641          @@@test:domTree:
5642            document {
5643              document-type {
5644                node-name: 'a';
5645                public-id: null;
5646                system-id: 'sysid';
5647              }
5648              element { }
5649            }
5650        @@XMLTest:
5651          @@@QName: xp.doctype.sysid.intsubset.2.test
5652          @@@DEnt:
5653            @@@@test:value:
5654              <!DOCTYPE a SYSTEM "sysid"  []>
5655              <a/>
5656          @@@test:domTree:
5657            document {
5658              document-type {
5659                node-name: 'a';
5660                public-id: null;
5661                system-id: 'sysid';
5662              }
5663              element { }
5664            }
5665        @@XMLTest:
5666          @@@QName: xp.doctype.sysid.intsubset.3.test
5667          @@@DEnt:
5668            @@@@test:value:
5669              <!DOCTYPE a SYSTEM 'sysid'[]>
5670              <a/>
5671          @@@test:domTree:
5672            document {
5673              document-type {
5674                node-name: 'a';
5675                public-id: null;
5676                system-id: 'sysid';
5677              }
5678              element { }
5679            }
5680        @@XMLTest:
5681          @@@QName: xp.doctype.sysid.intsubset.4.test
5682          @@@DEnt:
5683            @@@@test:value:
5684              <!DOCTYPE a SYSTEM 'sysid'   []>
5685              <a/>
5686          @@@test:domTree:
5687            document {
5688              document-type {
5689                node-name: 'a';
5690                public-id: null;
5691                system-id: 'sysid';
5692              }
5693              element { }
5694            }
5695        @@XMLTest:
5696          @@@QName: xp.doctype.public.stago.test
5697          @@@DEnt:
5698            @@@@test:value:
5699              <!DOCTYPE a PUBLIC<a/>
5700          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 19); }
5701        @@XMLTest:
5702          @@@QName: xp.doctype.public.mdc.test
5703          @@@DEnt:
5704            @@@@test:value:
5705              <!DOCTYPE a PUBLIC>
5706              <a/>
5707          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 19); }
5708        @@XMLTest:
5709          @@@QName: xp.doctype.public.s.stago.test
5710          @@@DEnt:
5711            @@@@test:value:
5712              <!DOCTYPE a PUBLIC <a/>
5713          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 20); }
5714        @@XMLTest:
5715          @@@QName: xp.doctype.public.s.mdc.test
5716          @@@DEnt:
5717            @@@@test:value:
5718              <!DOCTYPE a PUBLIC >
5719              <a/>
5720          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 20); }
5721        @@XMLTest:
5722          @@@QName: xp.doctype.public.lit.test
5723          @@@DEnt:
5724            @@@@test:value:
5725              <!DOCTYPE a PUBLIC"p" "s">
5726              <a/>
5727          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 19); }
5728        @@XMLTest:
5729          @@@QName: xp.doctype.public.lita.test
5730          @@@DEnt:
5731            @@@@test:value:
5732              <!DOCTYPE a PUBLIC'p' "s">
5733              <a/>
5734          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 19); }
5735        @@XMLTest:
5736          @@@QName: xp.doctype.pubid.lit.lita.unmatched.1.test
5737          @@@DEnt:
5738            @@@@test:value:
5739              <!DOCTYPE a PUBLIC "p' "s">
5740              <a/>
5741          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 25); }
5742        @@XMLTest:
5743          @@@QName: xp.doctype.pubid.lit.lita.unmatched.2.test
5744          @@@DEnt:
5745            @@@@test:value:
5746              <!DOCTYPE a PUBLIC "p' 's'><a/>
5747          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 32); }
5748        @@XMLTest:
5749          @@@QName: xp.doctype.pubid.lita.lit.unmatched.1.test
5750          @@@DEnt:
5751            @@@@test:value:
5752              <!DOCTYPE a PUBLIC 'p" "s"><a/>
5753          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 32); }
5754        @@XMLTest:
5755          @@@QName: xp.doctype.pubid.lita.lit.unmatched.2.test
5756          @@@DEnt:
5757            @@@@test:value:
5758              <!DOCTYPE a PUBLIC 'p" 's'>
5759              <a/>
5760          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 21)..(1, 25); }
5761        @@XMLTest:
5762          @@@QName: xp.doctype.public.s.lit.mdc.test
5763          @@@DEnt:
5764            @@@@test:value:
5765              <!DOCTYPE a PUBLIC "><a/>
5766          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 26); }
5767        @@XMLTest:
5768          @@@QName: xp.doctype.public.s.lita.mdc.test
5769          @@@DEnt:
5770            @@@@test:value:
5771              <!DOCTYPE a PUBLIC '><a/>
5772          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 26); }
5773        @@XMLTest:
5774          @@@QName: xp.doctype.public.lit.pubid.lit.mdc.test
5775          @@@DEnt:
5776            @@@@test:value:
5777              <!DOCTYPE a PUBLIC "p">
5778              <a/>
5779          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 23); }
5780        @@XMLTest:
5781          @@@QName: xp.doctype.public.lita.pubid.lita.mdc.test
5782          @@@DEnt:
5783            @@@@test:value:
5784              <!DOCTYPE a PUBLIC 'p'>
5785              <a/>
5786          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 23); }
5787        @@XMLTest:
5788          @@@QName: xp.doctype.public.lit.pubid.lit.s.mdc.test
5789          @@@DEnt:
5790            @@@@test:value:
5791              <!DOCTYPE a PUBLIC "p" >
5792              <a/>
5793          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 24); }
5794        @@XMLTest:
5795          @@@QName: xp.doctype.public.lita.pubid.lita.s.mdc.test
5796          @@@DEnt:
5797            @@@@test:value:
5798              <!DOCTYPE a PUBLIC 'p' >
5799              <a/>
5800          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 24); }
5801        @@XMLTest:
5802          @@@QName: xp.doctype.public.lit.pubid.lit.s.lit.mdc.test
5803          @@@DEnt:
5804            @@@@test:value:
5805              <!DOCTYPE a PUBLIC "p" "><a/>
5806          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 30); }
5807        @@XMLTest:
5808          @@@QName: xp.doctype.public.lit.pubid.lit.s.lita.mdc.test
5809          @@@DEnt:
5810            @@@@test:value:
5811              <!DOCTYPE a PUBLIC "p" '><a/>
5812          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 30); }
5813        @@XMLTest:
5814          @@@QName: xp.doctype.public.lita.pubid.lita.s.lit.mdc.test
5815          @@@DEnt:
5816            @@@@test:value:
5817              <!DOCTYPE a PUBLIC 'p' "><a/>
5818          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 30); }
5819        @@XMLTest:
5820          @@@QName: xp.doctype.public.lita.pubid.lita.s.lita.mdc.test
5821          @@@DEnt:
5822            @@@@test:value:
5823              <!DOCTYPE a PUBLIC 'p' '><a/>
5824          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 30); }
5825        @@XMLTest:
5826          @@@QName: xp.doctype.public.lit.pubid.lit.lit.lita.unmatched.mdc.test
5827          @@@DEnt:
5828            @@@@test:value:
5829              <!DOCTYPE a PUBLIC "p" "s'><a/>
5830          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 32); }
5831        @@XMLTest:
5832          @@@QName: xp.doctype.public.lita.pubid.lita.lita.lit.unmatched.mdc.test
5833          @@@DEnt:
5834            @@@@test:value:
5835              <!DOCTYPE a PUBLIC 'p' 's"><a/>
5836          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 32); }
5837        @@XMLTest:
5838          @@@QName: xp.doctype.pubid.sysid.stago.1.test
5839          @@@DEnt:
5840            @@@@test:value:
5841              <!DOCTYPE a PUBLIC "p" "s"<a/>
5842          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 27); }
5843        @@XMLTest:
5844          @@@QName: xp.doctype.pubid.sysid.stago.2.test
5845          @@@DEnt:
5846            @@@@test:value:
5847              <!DOCTYPE a PUBLIC "p" 's'<a/>
5848          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 27); }
5849        @@XMLTest:
5850          @@@QName: xp.doctype.pubid.sysid.stago.s.1.test
5851          @@@DEnt:
5852            @@@@test:value:
5853              <!DOCTYPE a PUBLIC "p" "s" <a/>
5854          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 28); }
5855        @@XMLTest:
5856          @@@QName: xp.doctype.pubid.sysid.stago.s.2.test
5857          @@@DEnt:
5858            @@@@test:value:
5859              <!DOCTYPE a PUBLIC "p" 's' <a/>
5860          @@@c:erred: <[[xp|wf-syntax-error]]> { (1, 28); }
5861    
5862      @@XMLTest:      @@XMLTest:
5863        @@@QName: xp.endofline.1.0.crlf.test        @@@QName: xp.endofline.1.0.crlf.test
# Line 6963  ClsDef: Line 7446  ClsDef:
7446          } else {          } else {
7447            try {            try {
7448              my $doc = $parser->parse_string ($doc_ent->{<H::test:value>});              my $doc = $parser->parse_string ($doc_ent->{<H::test:value>});
             $test->assert_never;  
7449            } catch Message::Util::IF::DTException with {            } catch Message::Util::IF::DTException with {
7450              #              #
7451            } catch Message::DOM::IF::LSException with {            } catch Message::DOM::IF::LSException with {
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24