#!/usr/bin/perl ## This file is automatically generated ## at 2005-10-12T13:46:44+00:00, ## from file "lib/Message/Util/DIS.dis", ## module , ## for . ## Don't edit by hand! use strict; require Message::DOM::DOMFeature; require Message::DOM::DOMLS; require Message::Markup::SuikaWikiConfig21; require Message::Util::DIS::Perl; require Message::Util::DIS::Value; require Message::Util::Error; require Message::Util::Error::DOMException; require Message::Util::ManakaiNode; package Message::Util::DIS; our $VERSION = 20051012.1347; sub HIERARCHY_REQUEST_ERR (); sub INVALID_SOURCE_ERR (); sub INVALID_STATE_ERR (); sub NOT_SUPPORTED_ERR (); sub AUTOLOAD { #line 1 "lib/Message/Util/DIS.dis [u] (Chunk #2)" my $al = our $AUTOLOAD; $al =~ s/.+:://; if ({'HIERARCHY_REQUEST_ERR', 'Message::Util::IFLatest::DISException::HIERARCHY_REQUEST_ERR', 'INVALID_SOURCE_ERR', 'Message::Util::IFLatest::DISException::INVALID_SOURCE_ERR', 'INVALID_STATE_ERR', 'Message::Util::IFLatest::DISException::INVALID_STATE_ERR', 'NOT_SUPPORTED_ERR', 'Message::Util::IFLatest::DISException::NOT_SUPPORTED_ERR'}->{$al}) { no strict 'refs'; *{$AUTOLOAD} = \&{{'HIERARCHY_REQUEST_ERR', 'Message::Util::IFLatest::DISException::HIERARCHY_REQUEST_ERR', 'INVALID_SOURCE_ERR', 'Message::Util::IFLatest::DISException::INVALID_SOURCE_ERR', 'INVALID_STATE_ERR', 'Message::Util::IFLatest::DISException::INVALID_STATE_ERR', 'NOT_SUPPORTED_ERR', 'Message::Util::IFLatest::DISException::NOT_SUPPORTED_ERR'}->{$al}}; goto &{$AUTOLOAD}; } else { require Carp; Carp::croak (qq); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3)" } sub import { #line 1 "lib/Message/Util/DIS.dis [u] (Chunk #5)" my $self = shift; if (@_) { local $Exporter::ExportLevel = $Exporter::ExportLevel + 1; $self->SUPER::import (@_); for (grep {not /\W/} @_) { eval qq{$_}; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6)" } our %EXPORT_TAG = ('DISExceptionCode', ['HIERARCHY_REQUEST_ERR', 'INVALID_SOURCE_ERR', 'INVALID_STATE_ERR', 'NOT_SUPPORTED_ERR']); our @EXPORT_OK = ('HIERARCHY_REQUEST_ERR', 'INVALID_SOURCE_ERR', 'INVALID_STATE_ERR', 'NOT_SUPPORTED_ERR'); use Exporter; push our @ISA, 'Exporter'; package Message::Util::IFLatest::DISImplementation; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISImplementation; our $VERSION = 20051012.1347; push our @ISA, 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGImplementation', 'Message::Util::DIS::Perl::ManakaiDISImplementationPerl', 'Message::Util::DIS::Value::ManakaiDISImplementationValue', 'Message::Util::IF::DISImplementation', 'Message::Util::IFLatest::DISImplementation'; sub create_dis_document ($) { my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #24)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #22)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #8)" $r = bless $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #9)" create_swcfg_document #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #11)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #12)" 'Message::Util::DIS::ManakaiDISDocument' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #14)" ; $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #15)" default_element_type_namespace_uri #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #17)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #18)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #20)" ); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #21)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #23)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #25)" } $r} sub create_dis_parser ($) { my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=DISParser][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #37)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=DISParser][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #35)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=DISParser][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #27)" $r = bless $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #28)" create_swcfg_parser #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=DISParser][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #30)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #31)" 'Message::Util::DIS::ManakaiDISParser' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=DISParser][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #33)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #34)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #36)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #38)" } $r} sub create_dis_database ($) { my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #62)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #60)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #40)" $r = bless { forDef => { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #41)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #43)" => bless ({ uri => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #44)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #46)" , isa => { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #47)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #49)" => 1}, revISA => {}, }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #50)" 'Message::Util::DIS::ManakaiDISForDefinition' #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #52)" ), }, resDef => {}, modDef => {}, seq => 0, }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #53)" 'Message::Util::DIS::ManakaiDISDatabase' #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #55)" ; $r->{forDef}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #56)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=DISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #58)" }->{db} = $r; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #59)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #61)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #63)" } $r} sub tfuris_to_uri ($;$$) { my ($self, $typeURI, $forURI) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #90)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #73)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #65)" $typeURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #66)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' unless #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #68)" defined $typeURI; $forURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #69)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #71)" defined $forURI; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #72)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #74)" { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [b] (Chunk #83)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [bc] (Chunk #81)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #76)" ($forURI eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #77)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #79)" ) { $r = $typeURI; } else { ## NOTE: [RFC 3986] ## fragment := *(pchar / "/" / "?") ## pchar := unreserved / pct-encoded / sub-delims / [:@] ## unreserved := ALPHA / DIGIT / [._~-] ## sub-delims := [!$&'()*+,;=] ## NOTE: [XPointer Framework] ## SchemeData := *EscapedData ## EscapedData := NormalChar / "^(" / "^)" / "^^" ## / "(" SchemeData ")" ## NormalChar := UnicodeChar - [()^] my $__turi = $typeURI; my $__furi = $forURI; for my $__uri ($__turi, $__furi) { $__uri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge; } $r = qq; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #80)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #82)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #84)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #88)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #86)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #87)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #89)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #91)" } $r} sub _camel_case_to_underscore_name ($$) { my ($self, $camelName) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=camelCaseToUnderscoreName][@type=DISLang:Method]/Return[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #97)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=camelCaseToUnderscoreName][@type=DISLang:Method]/Return[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #95)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=camelCaseToUnderscoreName][@type=DISLang:Method]/Return[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #93)" $r = $camelName; $r =~ s/^([A-Z0-9]+)$/lc $1/ge; $r =~ s/([A-Z][A-Z0-9]*)$/"_".lc $1/ge; $r =~ s/([A-Z0-9])([A-Z0-9]*)([A-Z0-9])/$1.lc ($2)."_".lc $3/ge; $r =~ s/([A-Z])/"_".lc $1/ge; $r =~ s/(?=[0-9](?!$))/_/g; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #94)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #96)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #98)" } $r} $Message::DOM::ImplFeature{q}->{q}->{q<1.0>} ||= 1; $Message::DOM::ImplFeature{q}->{q}->{q<>} = 1; $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#minimum', {'', '1', '3.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#perl', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#value', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#core', {'', '1', '2.1', '1'}}; $Message::DOM::ClassPoint{q} = 8.1; $Message::DOM::ManakaiDOMImplementationSource::SourceClass{q} = 1; $Message::DOM::ManakaiDOMImplementation::CompatClass{q} = 1; $Message::Util::ManakaiNode::ManakaiNodeRef::Prop{q} = {}; package Message::Util::IFLatest::DISParser; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISParser; our $VERSION = 20051012.1347; push our @ISA, 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGParser', 'Message::Markup::IFLatest::SWCFGParser', 'Message::Util::IF::DISParser', 'Message::Util::IFLatest::DISParser'; sub parse ($$) { my ($self, $input) = @_; { #line 1 "/document (lib/Message/DOM/DOMLS.dis)/IFCls3Def[@QName=LSInput][@QName=ManakaiDOMLSInput][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlCDef [b] (Chunk #107)" #line 1 "/document (lib/Message/DOM/DOMLS.dis)/IFCls3Def[@QName=LSInput][@QName=ManakaiDOMLSInput][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlCDef [bc] (Chunk #105)" if #line 1 "/document (lib/Message/DOM/DOMLS.dis)/IFCls3Def[@QName=LSInput][@QName=ManakaiDOMLSInput][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlCDef [u] (Chunk #100)" (ref $input eq 'HASH') { $input = bless $input, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #101)" 'Message::DOM::DOMLS::ManakaiDOMLSInput' #line 2 "/document (lib/Message/DOM/DOMLS.dis)/IFCls3Def[@QName=LSInput][@QName=ManakaiDOMLSInput][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlCDef [u] (Chunk #103)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #104)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #106)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #108)" } my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #134)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #109)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #110)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #118)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #116)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #114)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #112)" $r = $self->SUPER::parse ($input) ## NOTE: Method name directly written #< M::swcfg21:ManakaiSWCFGParser # ::swcfg21:ForLatest.parse> ($input) #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #113)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #115)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #117)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #119)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #132)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #121)" ; if (defined $r) { $r = bless $r, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #122)" 'Message::Util::DIS::ManakaiDISDocument' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #124)" ; $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #125)" default_element_type_namespace_uri #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #127)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #128)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #130)" ); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #131)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #133)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #135)" } $r} sub new ($$$) { my ($self, $impl, $features) = @_; { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeaturesString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #141)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeaturesString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #139)" if #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeaturesString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #137)" (CORE::defined $features) { if (CORE::ref ($features) eq 'HASH') { my $new = {}; for my $fname (keys %{$features}) { if (CORE::ref ($features->{$fname}) eq 'HASH') { my $lfname = lc $fname; for my $fver (keys %{$features->{$fname}}) { $new->{$lfname}->{$fver} = $features->{$fname}->{$fver}; } } else { $new->{lc $fname} = {(CORE::defined $features->{$fname} ? $features->{$fname} : '') => 1}; } } $features = $new; } else { my @f = split /\s+/, $features; $features = {}; while (@f) { my $name = lc shift @f; if (@f and $f[0] =~ /^[\d\.]+$/) { $features->{$name}->{shift @f} = 1; } else { $features->{$name}->{''} = 1; } } } } else { $features = {}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #138)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #140)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #142)" } my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #165)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #143)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #144)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #158)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #156)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #154)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #146)" $r = $self->SUPER::new ($impl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #147)" get_feature #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #149)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #150)" 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#Core' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #152)" => '2.1'), $features); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #153)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #155)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #157)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #159)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #163)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISParser][@QName=ManakaiDISParser][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain|Object||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #161)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #162)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #164)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #166)" } $r} $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#core', {'', '1', '2.1', '1'}}; $Message::DOM::ClassPoint{q} = 3.1; $Message::DOM::DOMLS::ParserClass{q} = 1; package Message::Util::IFLatest::DISNode; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISNode; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::IF::DISNode', 'Message::Util::IFLatest::DISNode'; use Message::Util::Error; sub lookup_namespace_prefix ($;$%) { my ($self, $namespaceURI, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #217)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #215)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #168)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #169)" undef #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #171)" ; my $od = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #172)" owner_document #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #174)" || $self; my $binds = $od->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #175)" 'node' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #177)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #178)" 'swnsb' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #180)" }; if (defined $namespaceURI) { FIND: { for my $prefix (keys %$binds) { if (defined $binds->{$prefix} and $binds->{$prefix} eq $namespaceURI) { $r = $prefix; last FIND; } } ## From module list #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #181)" #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #183)" try {local $Error::Depth = $Error::Depth + 3; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #184)" my #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #186)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #187)" owner_dis_document #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #189)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #190)" dis_database #line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #192)" ; for my $mod_uri (keys %{$db->{modDef}}) { my $mod = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #193)" get_module #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #195)" ($mod_uri); my $mod_ln = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #196)" local_name #line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #198)" ; next if exists $binds->{$mod_ln}; my $ns_uri = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #199)" target_namespace_uri #line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #201)" ; $ns_uri = '' unless defined $ns_uri; if ($ns_uri eq $namespaceURI) { $r = $mod_ln; last FIND; } } } catch #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #202)" Message::Util::IFLatest::DISException with #line 28 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #204)" { my $err = shift; $err->throw unless $err->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #205)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' #line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #207)" } eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #208)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_ASSOCIATED_DB_ERR' #line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #210)" ; }; last FIND unless $opt{make_new_binding}; ## Not found if ($namespaceURI =~ /(\w+)$/) { my $prefix = $1; unless (exists $binds->{$prefix}) { $binds->{$prefix} = $namespaceURI; $r = $prefix; last FIND; } } my $i = 1; { unless (exists $binds->{'ns'.$i}) { $binds->{$r = 'ns'.$i} = $namespaceURI; last FIND; } $i++; redo; } } # FIND } else { ## Null namespace FIND: { if (exists $binds->{'nu'.'ll'} and not defined $binds->{'nu'.'ll'}) { $r = 'nu'.'ll'; last FIND; } for my $prefix (keys %$binds) { if (not defined $prefix) { $r = $prefix; last FIND; } } last FIND unless $opt{make_new_binding}; ## Not found my $i = ''; { unless (exists $binds->{'nu'.'ll'.$i}) { $binds->{$r = 'nu'.'ll'.$i} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #211)" undef #line 71 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=swcfg21|SWCFGString||swcfg21|ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #213)" ; last FIND; } $i++; redo; } } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #214)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #216)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #218)" } $r} sub lookup_namespace_uri ($$%) { my ($self, $prefix, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #268)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #258)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #220)" $od = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #221)" owner_dis_document #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #223)" || $self; my $binds = $od->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #224)" 'node' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #226)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #227)" 'swnsb' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #229)" }; if (exists $binds->{$prefix}) { $r = $binds->{$prefix}; } else { ## From module list FIND: { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #230)" #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #232)" try {local $Error::Depth = $Error::Depth + 3; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #233)" my #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #235)" $db = $od-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #236)" dis_database #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #238)" ; for my $mod_uri (keys %{$db->{modDef}}) { my $mod = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #239)" get_module #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #241)" ($mod_uri); if ($mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #242)" local_name eq #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #244)" $prefix) { $r = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #245)" target_namespace_uri #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #247)" ; last FIND; } } } catch #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #248)" Message::Util::IFLatest::DISException with #line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #250)" { my $err = shift; $err->throw unless $err->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #251)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' #line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #253)" } eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #254)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_ASSOCIATED_DB_ERR' #line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #256)" ; }; if ($opt{make_new_binding}) { $r = $binds->{$prefix} = $prefix; } elsif ($opt{raise_prefix_exception}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #257)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #259)" report Message::Markup::SuikaWikiConfig21::ManakaiSWCFGException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'lookup_namespace_uri', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNDECLARED_NS_PREFIX_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISNode', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'prefix'; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #266)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #261)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #262)" undef #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #264)" ; } } # FIND } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #265)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #267)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #269)" } $r} sub _get_node_reference ($$) { my ($self, $object) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #325)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #297)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #271)" $class; if ($object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #272)" 'swnt' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #274)" } eq '#element') { $class = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #275)" 'Message::Util::DIS::ManakaiDISElement' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #277)" ; } elsif ($object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #278)" 'swnt' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #280)" } eq '#comment') { $class = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #281)" 'Message::Util::DIS::ManakaiDISComment' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #283)" ; } elsif ($object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #284)" 'swnt' #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #286)" } eq '#document') { $class = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #287)" 'Message::Util::DIS::ManakaiDISDocument' #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #289)" ; } elsif ($object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #290)" 'swnt' #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #292)" } eq '#fragment') { $class = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #293)" 'Message::Util::DIS::ManakaiDISDocumentFragment' #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #295)" ; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #296)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #298)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #302)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #300)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #301)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #303)" { #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [b] (Chunk #318)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [bc] (Chunk #316)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #305)" $object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #306)" 'rc' #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #308)" }++; ${$object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #309)" 'grc' #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #311)" }}++; $r = bless { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #312)" 'node' #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #314)" => $object, }, $class; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #315)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #317)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #319)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #323)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #321)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #322)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #324)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #326)" } $r} sub owner_dis_document ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #349)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #347)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #345)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #328)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #329)" Message::Util::DIS::ManakaiDISNode->_get_node_reference #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #331)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #332)" 'node' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #334)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #335)" 'swod' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #337)" }) if $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #338)" 'node' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #340)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #341)" 'swod' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISNode][@QName=ManakaiDISNode][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=DISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #343)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #344)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #346)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #348)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #350)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #351)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISNode', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_dis_document'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #352)" } } $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 1; package Message::Util::IFLatest::NSResolverDIS; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiNSResolverDIS; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::IF::NSResolverDIS', 'Message::Util::IFLatest::NSResolverDIS'; sub prefix_to_uri ($;$%) { my ($self, $prefix, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #415)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #356)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #354)" (defined $prefix) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #355)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #357)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #368)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #366)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #364)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #359)" $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #360)" lookup_namespace_uri #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #362)" ($prefix); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #363)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #365)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #367)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #369)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #373)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #371)" ; unless (defined $r) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #372)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #374)" report Message::Markup::SuikaWikiConfig21::ManakaiSWCFGException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node}, '-type' => 'NAMESPACE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'prefix_to_uri', 'http://www.w3.org/2001/04/infoset#prefix' => $prefix, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNDECLARED_NS_PREFIX_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiNSResolverDIS', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'prefix'; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #390)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #376)" ; } } elsif (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #377)" 'node' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #379)" } ->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #380)" 'dns' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #382)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #383)" 'node' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #385)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #386)" 'dns' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #388)" }; } else { ## Default namespace #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #389)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #391)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #408)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #406)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #404)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #393)" $r = ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #394)" owner_dis_document #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #396)" || $self) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #397)" module_element #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #399)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #400)" defining_namespace_uri #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #402)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #403)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #405)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #407)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #409)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #413)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #411)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #412)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #414)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #416)" } $r} sub qname_to_uri ($$%) { my ($self, $qname, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #445)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #420)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #418)" $qname =~ s/^\s+//; $qname =~ s/\s+$//; my ($prefix, $lname) = split /\s*[:|]\s*/, $qname, 2; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #419)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #421)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #438)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #436)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #434)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #423)" (defined $lname) { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #424)" prefix_to_uri #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #426)" ($prefix) . $lname; } else { ## In default namespace if (defined $opt{default_namespace_uri}) { $r = $opt{default_namespace_uri} . $prefix; } else { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #427)" prefix_to_uri #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #429)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #430)" undef #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #432)" ) . $prefix; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #433)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #435)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #437)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #439)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #443)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #441)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #442)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #444)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #446)" } $r} sub qname_to_pair ($$%) { my ($self, $qname, %opt) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #475)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #450)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #448)" $qname =~ s/^\s+//; $qname =~ s/\s+$//; my ($prefix, $lname) = split /\s*[:|]\s*/, $qname, 2; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #449)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #451)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #468)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #466)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #464)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #453)" (defined $lname) { $r = [$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #454)" prefix_to_uri #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #456)" ($prefix), $lname]; } else { ## In default namespace $r = [$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #457)" prefix_to_uri #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #459)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #460)" undef #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #462)" ), $prefix]; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #463)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #465)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #467)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #469)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #473)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=qnameToPair][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #471)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #472)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #474)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #476)" } $r} sub tfqnames_to_uri ($$;$$%) { my ($self, $tfqnames, $defaultTypeURI, $defaultForURI, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #546)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #480)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #478)" ($typeq, $forq) = split /\s*[:|][:|]\s*/, $tfqnames, 2; my ($typeURI, $forURI); if (defined $forq) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #479)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #481)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #495)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #493)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #491)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #483)" $typeURI = $typeq eq '' ? defined $defaultTypeURI ? $defaultTypeURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #484)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' : #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #486)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #487)" qname_to_uri #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #489)" ($typeq, %opt); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #490)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #492)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #494)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #496)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #506)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #498)" ; if (length $forq) { $forURI = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #499)" qname_to_uri #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #501)" ($forq, %opt); } else { $forURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #502)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #504)" ; } } else { ## "For" omitted #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #505)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #507)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #521)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #519)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #517)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #509)" $typeURI = $typeq eq '' ? defined $defaultTypeURI ? $defaultTypeURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #510)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' : #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #512)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #513)" qname_to_uri #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #515)" ($typeq, %opt); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #516)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #518)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #520)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #522)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #529)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #524)" ; $forURI = defined $defaultForURI ? $defaultForURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #525)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #527)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #528)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #530)" { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [b] (Chunk #539)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [bc] (Chunk #537)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #532)" ($forURI eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #533)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #535)" ) { $r = $typeURI; } else { ## NOTE: [RFC 3986] ## fragment := *(pchar / "/" / "?") ## pchar := unreserved / pct-encoded / sub-delims / [:@] ## unreserved := ALPHA / DIGIT / [._~-] ## sub-delims := [!$&'()*+,;=] ## NOTE: [XPointer Framework] ## SchemeData := *EscapedData ## EscapedData := NormalChar / "^(" / "^)" / "^^" ## / "(" SchemeData ")" ## NormalChar := UnicodeChar - [()^] my $__turi = $typeURI; my $__furi = $forURI; for my $__uri ($__turi, $__furi) { $__uri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge; } $r = qq; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #536)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #538)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #540)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #544)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #542)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #543)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #545)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #547)" } $r} sub tfpqnames_to_uri ($$;$$%) { my ($self, $tfpqnames, $defaultTypeURI, $defaultForURI, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #634)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #551)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #549)" ($typeq, $forq, @forpq) = split /\s*[:|][:|]\s*/, $tfpqnames; my ($typeURI, $forURI); my $forpURI = []; undef $forq if defined $forq and $forq eq '+'; if (defined $forq) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #550)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #552)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #572)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #570)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #568)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #554)" $typeURI = $typeq eq '' ? defined $defaultTypeURI ? $defaultTypeURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #555)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' : #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #557)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #558)" qname_to_uri #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #560)" ($typeq, %opt); if (length $forq) { $forURI = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #561)" qname_to_uri #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #563)" ($forq, %opt); } else { $forURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #564)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #566)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #567)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #569)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #571)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #573)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #577)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #575)" ; } else { ## "For" omitted #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #576)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #578)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #592)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #590)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #588)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #580)" $typeURI = $typeq eq '' ? defined $defaultTypeURI ? $defaultTypeURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #581)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' : #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #583)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #584)" qname_to_uri #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #586)" ($typeq, %opt); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #587)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #589)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #591)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #593)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #600)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #595)" ; $forURI = defined $defaultForURI ? $defaultForURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #596)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #598)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #599)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #601)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #612)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #610)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #608)" for #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #603)" my $forpq (@forpq) { push @$forpURI, $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #604)" qname_to_uri #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #606)" ($forpq, %opt); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #607)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #609)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #611)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #613)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #617)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #615)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #616)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #618)" { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=DISPerl|BlockCode]/PerlDef [b] (Chunk #627)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=DISPerl|BlockCode]/PerlDef [bc] (Chunk #625)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #620)" ($forURI eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #621)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' and #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #623)" @{$forpURI} == 0) { $r = $typeURI; } elsif (@{$forpURI}) { my $__turi = $typeURI; my $__furi = $forURI; for my $__uri ($__turi, $__furi) { $__uri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge; } my @__fp; for my $__uri (@{$forpURI}) { my $__fpuri = $__uri; $__fpuri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])} {sprintf '%%%02X', ord $1}ge; push @__fp, $__fpuri; } $r = qq.join ('+', @__fp); } else { my $__turi = $typeURI; my $__furi = $forURI; for my $__uri ($__turi, $__furi) { $__uri =~ s{([^0-9A-Za-z!\$'(),*:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge; } $r = qq; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #624)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #626)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #628)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #632)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=NSResolverDIS][@QName=ManakaiNSResolverDIS][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #630)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #631)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #633)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #635)" } $r} $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 1; package Message::Util::IFLatest::DISElement; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISElement; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::DIS::ManakaiNSResolverDIS', 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement', 'Message::Util::DIS::Perl::ManakaiDISElementPerl', 'Message::Util::IF::DISElement', 'Message::Util::IFLatest::DISElement'; sub for_match ($$;$%) { my ($self, $forArg, $forpArg, %opt) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #817)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #642)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #637)" $forArg = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #638)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #640)" defined $forArg; $forpArg ||= []; FORMATCH: { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #641)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #643)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #810)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #808)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #806)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #645)" $for_res = ($opt{database_arg} ||= $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #646)" owner_dis_document #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #648)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #649)" dis_database #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #651)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #652)" get_for #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #654)" ($forArg); my $forp_res = [map { $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #655)" get_for #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #657)" ($_) } @{$forpArg}]; my @ce = @{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #658)" dis_all_child_elements #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #660)" }; for my $ce (@ce) { my $et = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #661)" expanded_uri #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #663)" ; if ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #664)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForCheck' #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #666)" ) { my $fors = [split /\s+/, $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #667)" value #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #669)" ]; FCs: for my $f (@$fors) { if ($f =~ /^!=(.+)$/) { ## -- NOT EQUAL TO my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #670)" qname_to_uri #line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #672)" ($1); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #673)" get_for #line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #675)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #676)" is_referred #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #678)" ($ce); for my $arg_res ($for_res, @{$forp_res}) { if ($arg_res eq $for) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #679)" 0 #line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #681)" ; last FORMATCH; } } } elsif ($f =~ /^!(.+)$/) { ## -- NOT ISA my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #682)" qname_to_uri #line 26 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #684)" ($1); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #685)" get_for #line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #687)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #688)" is_referred #line 28 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #690)" ($ce); for my $arg_res ($for_res, @{$forp_res}) { if ($arg_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #691)" isa_uri #line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #693)" ($uri)) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #694)" 0 #line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #696)" ; last FORMATCH; } } } elsif ($f =~ /^=(.+)$/) { ## -- EQUAL TO my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #697)" qname_to_uri #line 36 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #699)" ($1); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #700)" get_for #line 37 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #702)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #703)" is_referred #line 38 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #705)" ($ce); for my $arg_res ($for_res, @{$forp_res}) { if ($arg_res eq $for) { next FCs; } } $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #706)" 0 #line 44 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #708)" ; last FORMATCH; } else { ## -- ISA my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #709)" qname_to_uri #line 47 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #711)" ($f); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #712)" get_for #line 48 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #714)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #715)" is_referred #line 49 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #717)" ($ce); for my $arg_res ($for_res, @{$forp_res}) { if ($arg_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #718)" isa_uri #line 51 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #720)" ($uri)) { next FCs; } } $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #721)" 0 #line 55 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #723)" ; last FORMATCH; } } # FCs } # dis:ForCheck } # children my $has_for = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #724)" 0 #line 62 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #726)" ; for my $ce (@ce) { if ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #727)" expanded_uri eq #line 64 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #729)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #730)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For' #line 64 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #732)" ) { my $fors = [split /\s+/, $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #733)" value #line 65 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #735)" ]; my $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #736)" 1 #line 66 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #738)" ; $has_for = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #739)" 1 #line 67 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #741)" ; AFOR: for my $f (@$fors) { if ($f =~ /^!=(.+)$/) { ## -- NOT EQUAL TO my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #742)" qname_to_uri #line 70 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #744)" ($1); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #745)" get_for #line 71 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #747)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #748)" is_referred #line 72 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #750)" ($ce); if ($for eq $for_res) { $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #751)" 0 #line 74 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #753)" ; last AFOR; } } elsif ($f =~ /^!(.+)$/) { ## -- NOT ISA my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #754)" qname_to_uri #line 78 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #756)" ($1); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #757)" get_for #line 79 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #759)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #760)" is_referred #line 80 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #762)" ($ce); if ($for_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #763)" isa_uri #line 81 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #765)" ($uri)) { $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #766)" 0 #line 82 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #768)" ; last AFOR; } } elsif ($f =~ /^=(.+)$/) { ## -- EQUAL TO my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #769)" qname_to_uri #line 86 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #771)" ($1); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #772)" get_for #line 87 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #774)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #775)" is_referred #line 88 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #777)" ($ce); unless ($for eq $for_res) { $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #778)" 0 #line 90 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #780)" ; last AFOR; } } else { ## -- ISA my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #781)" qname_to_uri #line 94 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #783)" ($f); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #784)" get_for #line 95 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #786)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #787)" is_referred #line 96 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #789)" ($ce); unless ($for_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #790)" isa_uri #line 97 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #792)" ($uri)){ $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #793)" 0 #line 98 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #795)" ; last AFOR; } } } # AFOR if ($ok) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #796)" 1 #line 104 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #798)" ; last FORMATCH; } } # dis:For } # $ce $r = $has_for ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #799)" 0 : #line 109 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #801)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #802)" 1 #line 109 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #804)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #805)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #807)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #809)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #811)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #815)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #813)" ; } # FORMATCH #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #814)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #816)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #818)" } $r} sub media_type_match ($$;$%) { my ($self, $mediaType, $defaultMediaType, %opt) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #871)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #822)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #820)" (defined $mediaType) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #821)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #823)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #861)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #859)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #857)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #825)" $ctn = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #826)" get_attribute_ns #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #828)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #829)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #831)" , 'ContentType'); my $ct; $ct = $ctn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #832)" qname_value_uri if #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #834)" $ctn; $ct = $defaultMediaType unless defined $ct; my $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #835)" owner_dis_document #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #837)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #838)" dis_database #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #840)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #841)" get_resource #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #843)" ($ct); $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #844)" is_referred #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #846)" ($ctn or $self); unless ($res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #847)" is_subset_of_uri #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #849)" ($mediaType)) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #850)" 0 #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #852)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #853)" 1 #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #855)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #856)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #858)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #860)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #862)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #869)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #864)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #865)" 1 #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #867)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #868)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #870)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #872)" } $r} sub media_type_uri ($%) { my ($self, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #898)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #873)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #874)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #891)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #889)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #887)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #876)" $r = $opt{default_media_type}; my $ctn = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #877)" get_attribute_ns #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #879)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #880)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #882)" , 'ContentType'); $r = $ctn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #883)" qname_value_uri if #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #885)" $ctn; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #886)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #888)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #890)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #892)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #896)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #894)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #895)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #897)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #899)" } $r} sub dis_get_attribute ($$%) { my ($self, $attrName, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #914)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #912)" C: #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #901)" for my $c (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #902)" dis_child_elements #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #904)" (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, database_arg => $opt{database_arg})}) { if ($c-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #905)" expanded_uri eq #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #907)" $attrName and $c-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #908)" media_type_match #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #910)" ($opt{media_type}, $opt{default_media_type}, for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, database_arg => $opt{database_arg})) { $r = $c; last C; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #911)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #913)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #915)" } $r} sub dis_get_attribute_list ($$%) { my ($self, $attrName, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #933)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #931)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #917)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #918)" 'Message::Util::DIS::ManakaiDISElementList' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #920)" ; for my $c (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #921)" dis_child_elements #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #923)" (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, database_arg => $opt{database_arg})}) { if ($c-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #924)" expanded_uri eq #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #926)" $attrName and $c-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #927)" media_type_match #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #929)" ($opt{media_type}, $opt{default_media_type}, for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, database_arg => $opt{database_arg})) { push @$r, $c; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #930)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #932)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #934)" } $r} sub dis_child_elements ($%) { my ($self, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #984)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #941)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #936)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #937)" 'Message::Util::DIS::ManakaiDISElementList' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #939)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #940)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #942)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #977)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #975)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #949)" C: #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #944)" for my $cn (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #945)" child_nodes #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #947)" }) { ## $cn is an #element. my $dn; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #948)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #950)" { #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [b] (Chunk #965)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [bc] (Chunk #963)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #952)" $cn->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #953)" 'rc' #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #955)" }++; ${$cn->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #956)" 'grc' #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #958)" }}++; $dn = bless { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #959)" 'node' #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #961)" => $cn->{'node'}, }, 'Message::Util::DIS::ManakaiDISElement'; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #962)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #964)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #966)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #973)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #968)" ; next C unless $dn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #969)" for_match #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #971)" ($opt{for_arg}, $opt{forp_arg}, database_arg => $opt{database_arg}); push @$r, $dn; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #972)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #974)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #976)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #978)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #982)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #980)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #981)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #983)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #985)" } $r} sub dis_all_child_elements ($) { my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1032)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #992)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #987)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #988)" 'Message::Util::DIS::ManakaiDISElementList' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #990)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #991)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #993)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1025)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1023)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1000)" for #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #995)" my $cn (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #996)" child_nodes #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #998)" }) { ## $cn is an #element. my $dn; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #999)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1001)" { #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [b] (Chunk #1016)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [bc] (Chunk #1014)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1003)" $cn->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1004)" 'rc' #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1006)" }++; ${$cn->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1007)" 'grc' #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1009)" }}++; $dn = bless { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1010)" 'node' #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1012)" => $cn->{'node'}, }, 'Message::Util::DIS::ManakaiDISElement'; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1013)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1015)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1017)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1021)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1019)" ; push @$r, $dn; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1020)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1022)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1024)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1026)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1030)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1028)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1029)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1031)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1033)" } $r} sub qname_value_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1061)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1059)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1034)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1035)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1052)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1050)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1048)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1037)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1038)" value #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1040)" ; if (defined $v and not ref $v eq 'ARRAY') { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1041)" qname_to_uri #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1043)" ($v, node => $self); } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1044)" undef #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1046)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1047)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1049)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1051)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1053)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1057)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1055)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1056)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1058)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1060)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1062)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1063)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'qname_value_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1064)" } } sub qname_value_local_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1089)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1087)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1065)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1066)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1080)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1078)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1076)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1068)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1069)" value #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1071)" ; if (defined $v and not ref $v eq 'ARRAY') { my ($n, $v) = split /\s*[:|]\s*/, $v, 2; $r = defined $v ? $v : $n; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1072)" undef #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1074)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1075)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1077)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1079)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1081)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1085)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1083)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1084)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1086)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1088)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1090)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1091)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'qname_value_local_name'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1092)" } } sub qname_value_prefix ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1120)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1118)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1093)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1094)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1111)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1109)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1107)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1096)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1097)" value #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1099)" ; if (defined $v and not ref $v eq 'ARRAY') { my ($p, $l) = split /\s*[:|]\s*/, $v, 2; $r = defined $l ? $p : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1100)" undef #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1102)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1103)" undef #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1105)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1106)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1108)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1110)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1112)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1116)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1114)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1115)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1117)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1119)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1121)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1122)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'qname_value_prefix'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1123)" } } sub qname_value_namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1154)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1152)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1124)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1125)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1145)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1143)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1141)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1127)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1128)" value #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1130)" ; if (defined $v and not ref $v eq 'ARRAY') { my ($p, $v) = split /\s*[:|]\s*/, $v, 2; $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1131)" prefix_to_uri #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1133)" (defined $v ? $p : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1134)" undef #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1136)" ); } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1137)" undef #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1139)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1140)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1142)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1144)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1146)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1150)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1148)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1149)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1151)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1153)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1155)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1156)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'qname_value_namespace_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1157)" } } sub tfqnames_value_uri ($;$$%) { my ($self, $defaultTypeURI, $defaultForURI, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1198)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1164)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1159)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1160)" value #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1162)" ; if (defined $v and not ref $v eq 'ARRAY') { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1163)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1165)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1188)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1186)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1184)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1167)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1168)" media_type_match #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1170)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1171)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1173)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1174)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1176)" , for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, database_arg => $opt{database_arg})) { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1177)" tfpqnames_to_uri #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1179)" ($v, $defaultTypeURI, $defaultForURI, node => $self); } else { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1180)" tfqnames_to_uri #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1182)" ($v, $defaultTypeURI, $defaultForURI, node => $self); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1183)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1185)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1187)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1189)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1196)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1191)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1192)" undef #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1194)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1195)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1197)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1199)" } $r} sub element_type_match ($$) { my ($self, $etype) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1231)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1200)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1201)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1224)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1222)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1220)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1203)" $et = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1204)" expanded_uri #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1206)" ; my $rdef = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1207)" owner_dis_document #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1209)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1210)" dis_database #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1212)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1213)" get_resource #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1215)" ($et); $r = $rdef-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1216)" is_subset_of_uri #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1218)" ($etype); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1219)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1221)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1223)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1225)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1229)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1227)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1228)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1230)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1232)" } $r} sub is_resource_element ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1257)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1255)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1233)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1234)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1248)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1246)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1244)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1236)" $r = ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1237)" expanded_uri eq #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1239)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1240)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ResourceDef' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1242)" ); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1243)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1245)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1247)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1249)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1253)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1251)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1252)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1254)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1256)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1258)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1259)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_resource_element'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1260)" } } sub is_property_element ($%) { my ($self, %opt) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1301)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1261)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1262)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1294)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1292)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1290)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1264)" $xn = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1265)" expanded_uri #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1267)" ; if ($xn eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1268)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1270)" ) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1271)" 1 #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1273)" ; } else { my $rdef = ($opt{database_arg} or $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1274)" owner_dis_document #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1276)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1277)" dis_database #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1279)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1280)" get_resource #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1282)" ($xn); $r = $rdef-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1283)" is_type_uri #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1285)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1286)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#Property' #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1288)" ); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1289)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1291)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1293)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1295)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1299)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isPropertyElement][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1297)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1298)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1300)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1302)" } $r} sub get_feature ($$$) { my ($self, $feature, $version) = @_; { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #1308)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #1306)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #1304)" $feature = lc $feature; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1305)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1307)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1309)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #1315)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #1313)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #1311)" $version = '' unless defined $version; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1312)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1314)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1316)" } my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1343)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1320)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1318)" $feature =~ s/^\+//; CLASS: for my $class (grep { $Message::Util::DIS::ManakaiDISElement::CompatClass{$_} } keys %Message::Util::DIS::ManakaiDISElement::CompatClass) { if ($Message::DOM::ClassFeature{$class}->{$feature}->{$version}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1319)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1321)" { #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [b] (Chunk #1336)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [bc] (Chunk #1334)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1323)" $self->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1324)" 'rc' #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1326)" }++; ${$self->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1327)" 'grc' #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1329)" }}++; $r = bless { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1330)" 'node' #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1332)" => $self->{'node'}, }, $class; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1333)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1335)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1337)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1341)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1339)" ; last CLASS; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1340)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1342)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1344)" } $r} sub unlink_from_document ($$) { my ($self, $databaseArg) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1406)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1345)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1346)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1399)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1397)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1395)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1348)" $ods = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1349)" 'node' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1351)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1352)" 'swod' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1354)" }; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1355)" 'node' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1357)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1358)" 'swnsb' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1360)" } = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1361)" get_namespace_binding_list #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1363)" ($databaseArg); $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1364)" 'node' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1366)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1367)" 'dns' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1369)" } = ${$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1370)" get_default_namespace_uri_ref #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1372)" }; my @nodes = ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1373)" 'node' #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1375)" }); while (defined (my $node = shift @nodes)) { CORE::delete $node->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1376)" 'swod' #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1378)" }; push @nodes, grep {$_} @{$node->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1379)" 'swcn' #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1381)" }}, $node->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1382)" 'shadow' #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1384)" }, $node->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1385)" 'shadowsib' #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1387)" }; } $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1388)" 'node' #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1390)" } -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1391)" _orphanate #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1393)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1394)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1396)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1398)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1400)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1404)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=unlinkFromDocument][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1402)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1403)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1405)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1407)" } } sub get_namespace_binding_list ($$) { my ($self, $databaseArg) = @_; my $r = {}; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1449)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1447)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1409)" $ods = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1410)" 'node' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1412)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1413)" 'swod' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1415)" }; if ($ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1416)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1418)" }) { $r = $ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1419)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1421)" }; } else { if ($databaseArg) { for my $mod_uri (keys %{$databaseArg->{modDef}}) { my $mod = $databaseArg-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1422)" get_module #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1424)" ($mod_uri); $ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1425)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings' #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1427)" } ->{$mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1428)" local_name #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1430)" } = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1431)" target_namespace_uri #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1433)" ; } } for my $prefix (keys %{$ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1434)" 'swnsb' #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1436)" }}) { $ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1437)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings' #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1439)" }->{$prefix} = $ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1440)" 'swnsb' #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1442)" }->{$prefix}; } $r = $ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1443)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings' #line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getNamespaceBindingList][@Type=DISPerl|HASH||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1445)" }; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1446)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1448)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1450)" } $r} sub get_default_namespace_uri_ref ($) { my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1494)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1466)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1452)" $ods = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1453)" 'node' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1455)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1456)" 'swod' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1458)" }; if ($ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1459)" 'dns' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1461)" }) { $r = \ ($ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1462)" 'dns' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1464)" }); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1465)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1467)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1487)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1485)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1483)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1469)" $r = \($ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1470)" 'dns' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1472)" } = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1473)" owner_dis_document #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1475)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1476)" module_element #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1478)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1479)" defining_namespace_uri #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1481)" ); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1482)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1484)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1486)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1488)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1492)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1490)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1491)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1493)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1495)" } $r} sub preserve_node_path ($) { my ($self) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1518)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1496)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1497)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1511)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1509)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1507)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1499)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1500)" flag #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1502)" (nodePath => $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1503)" node_path #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1505)" (key => [qw/QName Name Type type/])); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1506)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1508)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1510)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1512)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1516)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=preserveNodePath][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1514)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1515)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1517)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1519)" } } sub clone ($) { my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1528)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1526)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1521)" $r = bless $self->SUPER::clone, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1522)" 'Message::Util::DIS::ManakaiDISElement' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISElement][@QName=ManakaiDISElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@Type=DISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1524)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1525)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1527)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1529)" } $r} $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#perl', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#core', {'', '1', '2.1', '1'}}; $Message::DOM::ClassPoint{q} = 8.2; $Message::Util::DIS::ManakaiDISElement::CompatClass{q} = 1; $Message::Util::ManakaiNode::ManakaiNodeRef::Prop{q} = {'a1', ['swflag', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#option'], 'i', ['swod'], 'o', ['p'], 's', ['swcn'], 's0', ['shadow', 'shadowsib']}; package Message::Util::IFLatest::DISModuleElement; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISModuleElement; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::DIS::ManakaiDISElement', 'Message::Util::IF::DISElement', 'Message::Util::IF::DISModuleElement', 'Message::Util::IFLatest::DISElement', 'Message::Util::IFLatest::DISModuleElement'; sub require_element ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1560)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1558)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1530)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1531)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1551)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1549)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1547)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1533)" $r = bless $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1534)" get_attribute_ns #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1536)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1537)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1539)" , 'Require', make_new_node => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1540)" 1 #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1542)" ), #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1543)" 'Message::Util::DIS::ManakaiDISElement' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1545)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1546)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1548)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1550)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1552)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1556)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=requireElement][@Type=DISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1554)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1555)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1557)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1559)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1561)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1562)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'require_element'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1563)" } } sub default_for_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1600)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1598)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1564)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1565)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1591)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1589)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1587)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1567)" $df = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1568)" get_attribute_ns #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1570)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1571)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1573)" , 'DefaultFor'); if ($df) { $r = (bless $df, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1574)" 'Message::Util::DIS::ManakaiDISElement' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1576)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1577)" qname_value_uri #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1579)" || #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1580)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1582)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1583)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1585)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1586)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1588)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1590)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1592)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1596)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1594)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1595)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1597)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1599)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1601)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1626)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1624)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1602)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1603)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1617)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1615)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1613)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1605)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1606)" set_attribute_ns #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1608)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1609)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1611)" , 'DefaultFor' => $given); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1612)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1614)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1616)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1618)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1622)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1620)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1621)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1623)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1625)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1627)" } } sub defining_namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1660)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1658)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1628)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1629)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1651)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1649)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1642)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1631)" $df = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1632)" get_attribute_ns #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1634)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1635)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1637)" , 'Namespace'); if ($df) { $r = $df-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1638)" value #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1640)" ; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1641)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1643)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1647)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1645)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1646)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1648)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1650)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1652)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1656)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1654)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1655)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1657)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1659)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1661)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1686)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1684)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1662)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1663)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1677)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1675)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1673)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1665)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1666)" set_attribute_ns #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1668)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1669)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1671)" , 'Namespace' => $given); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1672)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1674)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1676)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1678)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1682)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleElement][@QName=ManakaiDISModuleElement][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1680)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1681)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1683)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1685)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1687)" } } $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#perl', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#core', {'', '1', '2.1', '1'}}; $Message::DOM::ClassPoint{q} = 9.2; package Message::Util::IFLatest::DISElementList; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISElementList; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::IF::DISElementList', 'Message::Util::IFLatest::DISElementList'; $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 1; package Message::Util::IFLatest::DISComment; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISComment; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGComment', 'Message::Util::IF::DISComment', 'Message::Util::IFLatest::DISComment'; $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#core', {'', '1', '2.1', '1'}}; $Message::DOM::ClassPoint{q} = 6.2; $Message::Util::ManakaiNode::ManakaiNodeRef::Prop{q} = {'a1', ['swflag', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#option'], 'i', ['swod'], 'o', ['p'], 's', ['swcn']}; package Message::Util::IFLatest::DISDocumentFragment; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISDocumentFragment; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGDocumentFragment', 'Message::Util::IF::DISDocumentFragment', 'Message::Util::IFLatest::DISDocumentFragment'; $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#core', {'', '1', '2.1', '1'}}; $Message::DOM::ClassPoint{q} = 6.2; $Message::Util::ManakaiNode::ManakaiNodeRef::Prop{q} = {'a1', ['swflag', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#option'], 'i', ['swod'], 'o', ['shadowo', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#shadowParent', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#shadowSiblingOf', 'p'], 's', ['swcn']}; package Message::Util::IFLatest::DISDocument; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISDocument; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGDocument', 'Message::Util::IF::DISDocument', 'Message::Util::IFLatest::DISDocument'; sub module_element ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1718)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1716)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1688)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1689)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1706)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1704)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1702)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1691)" $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1692)" get_attribute_ns #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1694)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1695)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1697)" , 'Module', make_new_node => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1698)" 1 #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1700)" ); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1701)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1703)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1705)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1707)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1714)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1709)" ; $r = bless $r, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1710)" 'Message::Util::DIS::ManakaiDISModuleElement' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=moduleElement][@Type=DISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1712)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1713)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1715)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1717)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1719)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1720)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'module_element'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1721)" } } sub dis_database ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1746)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1744)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1737)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1723)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1724)" 'node' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1726)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1727)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1729)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1730)" 'node' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1732)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1733)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1735)" }; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1736)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1738)" report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_STATE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_ASSOCIATED_DB_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDocument', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_database'; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1742)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1740)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1741)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1743)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1745)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1747)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1767)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1765)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1763)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1749)" $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1750)" 'node' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1752)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1753)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1755)" } = $given; require Scalar::Util; Scalar::Util::weaken ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1756)" 'node' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1758)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1759)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDatabase][@Type=DISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1761)" }); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1762)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1764)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1766)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1768)" } } sub dis_child_elements ($%) { my ($self, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1821)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1775)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1770)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1771)" 'Message::Util::DIS::ManakaiDISElementList' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1773)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1774)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1776)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1814)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1812)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1786)" C: #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1778)" for my $cn (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1779)" child_nodes #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1781)" }) { next C unless $cn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1782)" node_type eq #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1784)" '#element'; my $dn; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1785)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1787)" { #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [b] (Chunk #1802)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [bc] (Chunk #1800)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1789)" $cn->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1790)" 'rc' #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1792)" }++; ${$cn->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1793)" 'grc' #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1795)" }}++; $dn = bless { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1796)" 'node' #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1798)" => $cn->{'node'}, }, 'Message::Util::DIS::ManakaiDISElement'; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1799)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1801)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1803)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1810)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1805)" ; next C unless $dn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1806)" for_match #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1808)" ($opt{for_arg}, $opt{forp_arg}, database_arg => $opt{database_arg}); push @$r, $dn; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1809)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1811)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1813)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1815)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1819)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1817)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1818)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1820)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1822)" } $r} sub dis_all_child_elements ($) { my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1872)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1829)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1824)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1825)" 'Message::Util::DIS::ManakaiDISElementList' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1827)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1828)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1830)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1865)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1863)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1840)" C: #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1832)" for my $cn (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1833)" child_nodes #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1835)" }) { next C unless $cn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1836)" node_type eq #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1838)" '#element'; my $dn; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1839)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1841)" { #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [b] (Chunk #1856)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [bc] (Chunk #1854)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1843)" $cn->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1844)" 'rc' #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1846)" }++; ${$cn->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1847)" 'grc' #line 2 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1849)" }}++; $dn = bless { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1850)" 'node' #line 4 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=DISLang|Interface][@type=DISLang|Class]/ResourceDef[@QName=getNewReference][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1852)" => $cn->{'node'}, }, 'Message::Util::DIS::ManakaiDISElement'; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1853)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1855)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1857)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1861)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1859)" ; push @$r, $dn; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1860)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1862)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1864)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1866)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1870)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=DISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1868)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1869)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1871)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1873)" } $r} sub add_namespace_binding ($$;$) { my ($self, $prefix, $namespaceURI) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addNamespaceBinding][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1891)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addNamespaceBinding][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1889)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addNamespaceBinding][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1875)" (defined $namespaceURI) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1876)" 'node' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addNamespaceBinding][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1878)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1879)" 'swnsb' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addNamespaceBinding][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1881)" }->{$prefix} = $namespaceURI; } else { CORE::delete $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1882)" 'node' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addNamespaceBinding][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1884)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1885)" 'swnsb' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDocument][@QName=ManakaiDISDocument][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addNamespaceBinding][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1887)" } ->{$prefix}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1888)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1890)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1892)" } } $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#core', {'', '1', '2.1', '1'}}; $Message::DOM::ClassPoint{q} = 6.2; $Message::Util::ManakaiNode::ManakaiNodeRef::Prop{q} = {'a1', ['swflag', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#option'], 'i', ['swod'], 'o', ['p'], 's', ['swcn'], 's2', ['swetb']}; package Message::Util::IFLatest::DISDatabase; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISDatabase; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::DIS::Perl::ManakaiDISDatabasePerl', 'Message::Util::Error::DOMException::ManakaiDefaultExceptionHandler', 'Message::Util::IF::DISDatabase', 'Message::Util::IFLatest::DISDatabase'; sub get_module ($$%) { my ($self, $moduleURI, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1919)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1896)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1894)" $modURI; if (defined $opt{for_arg}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1895)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1897)" { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [b] (Chunk #1906)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [bc] (Chunk #1904)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1899)" ($opt{for_arg} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1900)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1902)" ) { $modURI = $moduleURI; } else { ## NOTE: [RFC 3986] ## fragment := *(pchar / "/" / "?") ## pchar := unreserved / pct-encoded / sub-delims / [:@] ## unreserved := ALPHA / DIGIT / [._~-] ## sub-delims := [!$&'()*+,;=] ## NOTE: [XPointer Framework] ## SchemeData := *EscapedData ## EscapedData := NormalChar / "^(" / "^)" / "^^" ## / "(" SchemeData ")" ## NormalChar := UnicodeChar - [()^] my $__turi = $moduleURI; my $__furi = $opt{for_arg}; for my $__uri ($__turi, $__furi) { $__uri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge; } $modURI = qq; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1903)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1905)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1907)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1917)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1909)" ; } else { $modURI = $moduleURI; } if (defined $self->{modDef}->{$modURI}) { $r = $self->{modDef}->{$modURI}; } else { $r = $self->{modDef}->{$modURI} = bless { uri => $modURI, db => $self, for => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1910)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1912)" , forp => [], }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1913)" 'Message::Util::DIS::ManakaiDISModuleDefinition' #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=DISModule][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1915)" ; require Scalar::Util; Scalar::Util::weaken ($r->{db}); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1916)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1918)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1920)" } $r} sub get_for ($;$) { my ($self, $forURI) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1975)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1930)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1922)" $forURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1923)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1925)" defined $forURI; if (defined $self->{forDef}->{$forURI}) { $r = $self->{forDef}->{$forURI}; } elsif (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1926)" 'rm' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1928)" }->{$forURI}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1929)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1931)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1948)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1946)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1944)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1933)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1934)" _pl_load_dis_database_module #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1936)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1937)" get_module #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1939)" (${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1940)" 'rm' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1942)" }->{$forURI}})); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1943)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1945)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1947)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1949)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1953)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1951)" ; unless (defined $self->{forDef}->{$forURI}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1952)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1954)" report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'get_for', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $forURI, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#moduleURI' => ${$self->{'rm'} ->{$forURI}}; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1973)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1956)" ; } $r = $self->{forDef}->{$forURI}; } else { $r = $self->{forDef}->{$forURI} = bless { uri => $forURI, isa => { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1957)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1959)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1960)" 1 #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1962)" }, revISA => {}, db => $self, }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1963)" 'Message::Util::DIS::ManakaiDISForDefinition' #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1965)" ; $self->{forDef}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1966)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1968)" }->{revISA}->{$forURI} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1969)" 1 #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1971)" ; require Scalar::Util; Scalar::Util::weaken ($r->{db}); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1972)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1974)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1976)" } $r} sub get_resource ($;$%) { my ($self, $resourceURI, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2040)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1983)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1978)" $resourceURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1979)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' unless #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1981)" defined $resourceURI; my $resURI; if (defined $opt{for_arg}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1982)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1984)" { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [b] (Chunk #1993)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [bc] (Chunk #1991)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1986)" ($opt{for_arg} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1987)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #1989)" ) { $resURI = $resourceURI; } else { ## NOTE: [RFC 3986] ## fragment := *(pchar / "/" / "?") ## pchar := unreserved / pct-encoded / sub-delims / [:@] ## unreserved := ALPHA / DIGIT / [._~-] ## sub-delims := [!$&'()*+,;=] ## NOTE: [XPointer Framework] ## SchemeData := *EscapedData ## EscapedData := NormalChar / "^(" / "^)" / "^^" ## / "(" SchemeData ")" ## NormalChar := UnicodeChar - [()^] my $__turi = $resourceURI; my $__furi = $opt{for_arg}; for my $__uri ($__turi, $__furi) { $__uri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge; } $resURI = qq; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1990)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1992)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1994)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2001)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1996)" ; } else { $resURI = $resourceURI; } if (defined $self->{resDef}->{$resURI}) { $r = $self->{resDef}->{$resURI}; } elsif (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1997)" 'rm' #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1999)" }->{$resURI}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2000)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2002)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2019)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2017)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2015)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2004)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2005)" _pl_load_dis_database_module #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2007)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2008)" get_module #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2010)" (${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2011)" 'rm' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2013)" }->{$resURI}})); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2014)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2016)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2018)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2020)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2024)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2022)" ; unless (defined $self->{resDef}->{$resURI}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2023)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2025)" report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'get_resource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $resURI, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#moduleURI' => ${$self->{'rm'} ->{$resURI}}; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2038)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2027)" ; } $r = $self->{resDef}->{$resURI}; } else { $r = $self->{resDef}->{$resURI} = bless { uri => $resURI, aliasURI => {$resURI => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2028)" 1 #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2030)" }, db => $self, for => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2031)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2033)" , forp => [], seq => -1, }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2034)" 'Message::Util::DIS::ManakaiDISResourceDefinition' #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2036)" ; require Scalar::Util; Scalar::Util::weaken ($r->{db}); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2037)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2039)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2041)" } $r} sub get_any_resource ($;$%) { my ($self, $resourceURI, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2113)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2048)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2043)" $resourceURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2044)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' unless #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2046)" defined $resourceURI; my $resURI; if (defined $opt{for_arg}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2047)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2049)" { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [b] (Chunk #2058)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [bc] (Chunk #2056)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #2051)" ($opt{for_arg} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2052)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfurisToURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #2054)" ) { $resURI = $resourceURI; } else { ## NOTE: [RFC 3986] ## fragment := *(pchar / "/" / "?") ## pchar := unreserved / pct-encoded / sub-delims / [:@] ## unreserved := ALPHA / DIGIT / [._~-] ## sub-delims := [!$&'()*+,;=] ## NOTE: [XPointer Framework] ## SchemeData := *EscapedData ## EscapedData := NormalChar / "^(" / "^)" / "^^" ## / "(" SchemeData ")" ## NormalChar := UnicodeChar - [()^] my $__turi = $resourceURI; my $__furi = $opt{for_arg}; for my $__uri ($__turi, $__furi) { $__uri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge; } $resURI = qq; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2055)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2057)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2059)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2066)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2061)" ; } else { $resURI = $resourceURI; } if (defined $self->{resDef}->{$resURI}) { $r = $self->{resDef}->{$resURI}; } elsif (defined $self->{modDef}->{$resURI}) { $r = $self->{modDef}->{$resURI}; } elsif (defined $self->{forDef}->{$resURI}) { $r = $self->{forDef}->{$resURI}; } elsif (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2062)" 'rm' #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2064)" }->{$resURI}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2065)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2067)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2084)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2082)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2080)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2069)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2070)" _pl_load_dis_database_module #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2072)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2073)" get_module #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2075)" (${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2076)" 'rm' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2078)" }->{$resURI}})); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2079)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2081)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2083)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2085)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2089)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2087)" ; if (defined $self->{resDef}->{$resURI}) { $r = $self->{resDef}->{$resURI}; } elsif (defined $self->{forDef}->{$resURI}) { $r = $self->{forDef}->{$resURI}; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2088)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2090)" report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'get_any_resource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $resURI, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#moduleURI' => ${$self->{'rm'} ->{$resURI}}; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2094)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2092)" ; } } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2093)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2095)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2106)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2104)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2102)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2097)" $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2098)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2100)" ($resURI); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2101)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2103)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2105)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2107)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2111)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2109)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2110)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2112)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2114)" } $r} sub get_source_file ($$) { my ($self, $fileName) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2123)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2121)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2116)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2117)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2119)" }->{$fileName}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2120)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2122)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2124)" } $r} sub set_source_file ($$$) { my ($self, $fileName, $doc) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2133)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2131)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2126)" $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2127)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2129)" }->{$fileName} = $doc; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2130)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2132)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2134)" } } sub load_module ($$$%) { my ($self, $doc, $resolver, %opt) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@QName=ManakaiDISModuleResolver][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [b] (Chunk #2143)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@QName=ManakaiDISModuleResolver][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [bc] (Chunk #2141)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@QName=ManakaiDISModuleResolver][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [u] (Chunk #2136)" $resolver = bless $resolver, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2137)" 'Message::Util::DIS::ManakaiDISModuleResolver' if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@QName=ManakaiDISModuleResolver][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [u] (Chunk #2139)" ref $resolver eq 'CODE'; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2140)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2142)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2144)" } { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2543)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2154)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2146)" $resolver = bless $resolver, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2147)" 'Message::Util::DIS::ManakaiDISModuleResolver' if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2149)" ref $resolver eq 'CODE'; ## -- Module Name, URI $opt{for_arg} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2150)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2152)" defined $opt{for_arg}; my $mod_node; my $mod_name_node; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2153)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2155)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2536)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2534)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2168)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2157)" $mod_node = $doc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2158)" module_element #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2160)" ; $mod_name_node = $mod_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2161)" get_attribute_ns #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2163)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2164)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2166)" , 'QName'); unless ($mod_name_node) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2167)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2169)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2182)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2180)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2173)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2171)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2172)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2174)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $mod_node, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_module', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_MODULE_QNAME_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase'; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2178)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2176)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2177)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2179)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2181)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2183)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2205)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2185)" ; } $mod_name_node = bless $mod_name_node, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2186)" 'Message::Util::DIS::ManakaiDISElement' if #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2188)" $mod_name_node->isa ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2189)" 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2191)" ); my $mod_name_uri = $mod_name_node -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2192)" qname_value_uri #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2194)" ; my $mod = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2195)" get_module #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2197)" ($mod_name_uri, for_arg => $opt{for_arg}); unless ($mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2198)" is_defined #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2200)" ) { ## -- Initializes Module Definition Object my $v = $mod_name_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2201)" qname_value_local_name #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2203)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2204)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2206)" { #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [b] (Chunk #2212)" #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [bc] (Chunk #2210)" if #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [u] (Chunk #2208)" (defined $v) { if (ref $v eq 'SCALAR') { $mod->{localName} = $v; } else { require Scalar::Util; $mod->{localName} = ($Message::Util::ManakaiStringRef::Value{$v} ||= \($v)); Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$v}); } } else { CORE::delete $mod->{localName}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2209)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2211)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2213)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2220)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2215)" ; my $ns = $mod_name_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2216)" qname_value_namespace_uri #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2218)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2219)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2221)" { #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [b] (Chunk #2227)" #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [bc] (Chunk #2225)" if #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [u] (Chunk #2223)" (defined $ns) { if (ref $ns eq 'SCALAR') { $mod->{namespaceURI} = $ns; } else { require Scalar::Util; $mod->{namespaceURI} = ($Message::Util::ManakaiStringRef::Value{$ns} ||= \($ns)); Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$ns}); } } else { CORE::delete $mod->{namespaceURI}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2224)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2226)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2228)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2232)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2230)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2231)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2233)" { #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [b] (Chunk #2239)" #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [bc] (Chunk #2237)" if #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [u] (Chunk #2235)" (defined $opt{for_arg}) { if (ref $opt{for_arg} eq 'SCALAR') { $mod->{for} = $opt{for_arg}; } else { require Scalar::Util; $mod->{for} = ($Message::Util::ManakaiStringRef::Value{$opt{for_arg}} ||= \($opt{for_arg})); Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$opt{for_arg}}); } } else { CORE::delete $mod->{for}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2236)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2238)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2240)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2259)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2242)" ; $mod->{src} = $mod_node; $mod->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2243)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2245)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2246)" 1 #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2248)" ; $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2249)" set_source_file #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2251)" ($mod_name_uri => $doc); $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2252)" target_namespace_uri #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2254)" ($mod_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2255)" defining_namespace_uri #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2257)" ); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2258)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2260)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2286)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2267)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2262)" $mod->{'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2263)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2265)" ('http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String', $doc->flag ('http://suika.fam.cx/~wakaba/archive/2005/swcfg21#fileName'), base_type => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2266)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2268)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2279)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #2277)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2275)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2270)" $mod->{'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2271)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2273)" ('http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2274)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2276)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2278)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2280)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #2284)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #2282)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2283)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2285)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2287)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2333)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2289)" ; ## -- Loads "for" definition my $root_elements = $doc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2290)" dis_all_child_elements #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2292)" ; if ($mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2293)" for_uri eq #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2295)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2296)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2298)" ) { R: for my $el (@$root_elements) { next R unless $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2299)" expanded_uri eq #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2301)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2302)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForDef' #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2304)" ; $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2305)" load_for #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2307)" ($mod, $el); } } ## -- Loads "for all" my $rmod = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2308)" get_module #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2310)" ($mod_name_uri, for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2311)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2313)" ); unless ($rmod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2314)" is_defined #line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2316)" ) { my $rdoc = $resolver-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2317)" uri_to_document #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2319)" ($self, $rmod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2320)" uri #line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2322)" , $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2323)" namespace_uri #line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2325)" , $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2326)" local_name #line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2328)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2329)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2331)" ); unless ($rdoc) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2332)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2334)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2347)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2345)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2338)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2336)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2337)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2339)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $mod->source_element, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_module', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#namespaceURI' => $mod->namespace_uri, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#for' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $mod->local_name, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNABLE_TO_GET_MODULE_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $rmod->uri; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2343)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2341)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2342)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2344)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2346)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2348)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2436)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2350)" ; } $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2351)" load_module #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2353)" ($rdoc, $resolver, for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2354)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2356)" , on_resource_read => $opt{on_resource_read}); } # Unless "for all" loaded ## -- Loads Required Modules ## NOTE:: "dis:For" is not allowed since "dis:ForDef" is not read my $req_node = $mod_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2357)" require_element #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2359)" ; for my $rm (@{$req_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2360)" dis_all_child_elements #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2362)" }) { next unless $rm-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2363)" expanded_uri eq #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2365)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2366)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Module' #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2368)" ; my ($uri, $nuri, $ln, $for); my $mqn = $rm-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2369)" get_attribute_ns #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2371)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2372)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2374)" , 'QName'); if ($mqn) { my $mqv = $mqn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2375)" value #line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2377)" ; my $mqp = ($mqn->isa ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2378)" 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement' #line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2380)" ) ? (bless $mqn, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2381)" 'Message::Util::DIS::ManakaiDISElement' #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2383)" ) : $mqn) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2384)" qname_to_pair #line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2386)" ($mqv, node => $mqn); ($nuri, $ln) = @$mqp; } else { my $mn = $rm-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2387)" get_attribute_ns #line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2389)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2390)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2392)" , 'Name'); if ($mn) { $nuri = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2393)" namespace_uri #line 24 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2395)" ; $ln = $mn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2396)" value #line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2398)" ; } else { $nuri = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2399)" namespace_uri #line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2401)" ; $ln = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2402)" local_name #line 28 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2404)" ; } } my $wfn = $rm-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2405)" get_attribute_ns #line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2407)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2408)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2410)" , 'WithFor'); if ($wfn) { $for = ($wfn->isa ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2411)" 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement' #line 34 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2413)" ) ? (bless $wfn, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2414)" 'Message::Util::DIS::ManakaiDISElement' #line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2416)" ) : $wfn) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2417)" qname_value_uri #line 36 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2419)" ; } else { $for = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2420)" for_uri #line 38 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2422)" ; } my $rmod = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2423)" get_module #line 40 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2425)" ($nuri . $ln, for_arg => $for); unless ($rmod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2426)" is_defined #line 42 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2428)" ) { my $rdoc = $resolver-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2429)" uri_to_document #line 43 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2431)" ($self, $rmod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2432)" uri #line 44 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2434)" , $nuri, $ln, $for); unless ($rdoc) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2435)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2437)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2450)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2448)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2441)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2439)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2440)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2442)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $rm, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_module', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#namespaceURI' => $nuri, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#for' => $for, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $ln, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNABLE_TO_GET_MODULE_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $rmod->uri; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2446)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2444)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2445)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2447)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2449)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2451)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2485)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2453)" ; } $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2454)" load_module #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2456)" ($rdoc, $resolver, for_arg => $for, on_resource_read => $opt{on_resource_read}); } } # Child Module elements ## -- Loads child resources $root_elements = $doc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2457)" dis_child_elements #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2459)" (for_arg => $opt{for_arg}, database_arg => $self); for my $el (@$root_elements) { if ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2460)" is_resource_element #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2462)" ) { $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2463)" load_resource #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2465)" ($mod, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2466)" undef #line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2468)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2469)" undef #line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2471)" , $el, for_arg => $opt{for_arg}, on_resource_read => $opt{on_resource_read}); } else { my $et = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2472)" expanded_uri #line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2474)" ; if ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2475)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForDef' #line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2477)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2478)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Module' #line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2480)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2481)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ImplNote' #line 24 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2483)" => 1, }->{$et}) { # } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2484)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2486)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2499)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2497)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2490)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2488)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2489)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2491)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $el, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_module', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ELEMENT_NOT_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $mod->{uri}; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2495)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2493)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2494)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2496)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2498)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2500)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2513)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2502)" ; } } # element types } my $dn = $mod_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2503)" get_attribute_ns #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2505)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2506)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2508)" , 'Namespace'); unless ($dn and defined $dn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2509)" value #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2511)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2512)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2514)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2527)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2525)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2518)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2516)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2517)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2519)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $mod_node, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_module', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_REQUIRED_ATTR_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace'; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2523)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2521)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2522)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2524)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2526)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2528)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2532)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2530)" ; } } # Unless this module loaded #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2531)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2533)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2535)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2537)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2541)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2539)" ; # Deep #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2540)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2542)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2544)" } } sub load_for ($$$) { my ($self, $mod, $el) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2684)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2545)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2546)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2677)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2675)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2556)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2548)" $qn_node = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2549)" get_attribute_ns #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2551)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2552)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2554)" , 'QName'); unless ($qn_node) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2555)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2557)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2570)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2568)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2561)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2559)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2560)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2562)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $el, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_for', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_FOR_QNAME_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase'; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2566)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2564)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2565)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2567)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2569)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2571)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2635)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2573)" ; } $qn_node = bless $qn_node, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2574)" 'Message::Util::DIS::ManakaiDISElement' if #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2576)" $qn_node->isa ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2577)" 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2579)" ); my $qn_uri = $qn_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2580)" qname_value_uri #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2582)" ; my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2583)" get_for #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2585)" ($qn_uri); unless ($for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2586)" is_defined #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2588)" ) { ## -- Initializes "For" Definition Object $for->{src} = $el; $for->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2589)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined' #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2591)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2592)" 1 #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2594)" ; $for->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2595)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2597)" } = \ ($mod->{uri}); for my $ce (@{$el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2598)" dis_all_child_elements #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2600)" }) { my $xn = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2601)" expanded_uri #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2603)" ; if ($xn eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2604)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA' or #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2606)" $xn eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2607)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Implement' #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2609)" ) { my $sfor = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2610)" get_for #line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2612)" ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2613)" qname_value_uri #line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2615)" ); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2616)" add_isa #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2618)" ($sfor); $sfor-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2619)" is_referred #line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2621)" ($ce); ## TODO: warn if dis:Implement } elsif ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2622)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Description' #line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2624)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2625)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ImplNote' #line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2627)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2628)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--FullName' #line 24 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2630)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2631)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName' #line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2633)" => 1, }->{$xn}) { # } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2634)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2636)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2649)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2647)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2640)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2638)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2639)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2641)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $ce, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_for', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ELEMENT_NOT_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $xn, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $qn_uri; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2645)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2643)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2644)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2646)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2648)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2650)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2654)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2652)" ; } } } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2653)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2655)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2668)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2666)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2659)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2657)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2658)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2660)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $el, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_for', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#anotherSourceNode' => $el, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#FOR_ALREADY_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $qn_uri; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2664)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2662)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2663)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2665)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2667)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2669)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2673)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2671)" ; } # isDefine? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2672)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2674)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2676)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2678)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2682)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2680)" ; # DEEP #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2681)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2683)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2685)" } } sub load_resource ($$$$$%) { my ($self, $mod, $parentResource, $dynParent, $el, %opt) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3166)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2692)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2687)" $opt{for_arg} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2688)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2690)" defined $opt{for_arg}; $opt{forp_arg} ||= []; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2691)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2693)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3159)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3157)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2700)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2695)" ## -- Node names ## Unique resource identifier generated from node id my $node_id = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2696)" node_id_ref #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2698)" ; my $node_uri; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2699)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2701)" { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=DISPerl|BlockCode]/PerlDef [b] (Chunk #2710)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=DISPerl|BlockCode]/PerlDef [bc] (Chunk #2708)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #2703)" ($opt{for_arg} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2704)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' and #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=tfpurisToURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #2706)" @{$opt{forp_arg}} == 0) { $node_uri = $$node_id; } elsif (@{$opt{forp_arg}}) { my $__turi = $$node_id; my $__furi = $opt{for_arg}; for my $__uri ($__turi, $__furi) { $__uri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge; } my @__fp; for my $__uri (@{$opt{forp_arg}}) { my $__fpuri = $__uri; $__fpuri =~ s{([^0-9A-Za-z!\$'()*,:;=?\@_./~-])} {sprintf '%%%02X', ord $1}ge; push @__fp, $__fpuri; } $node_uri = qq.join ('+', @__fp); } else { my $__turi = $$node_id; my $__furi = $opt{for_arg}; for my $__uri ($__turi, $__furi) { $__uri =~ s{([^0-9A-Za-z!\$'(),*:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge; } $node_uri = qq; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2707)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2709)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2711)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2739)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2713)" ; my $al_node = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2714)" dis_get_attribute #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2716)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2717)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AliasFor' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2719)" , for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, database_arg => $self); my $al_canon_uri; if ($al_node) { $al_canon_uri = $al_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2720)" tfqnames_value_uri #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2722)" ($$node_id, $opt{for_arg}, for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, database_arg => $self); } ## User defined resource identifiers my $qn_node = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2723)" dis_get_attribute #line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2725)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2726)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName' #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2728)" , for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, database_arg => $self); my $res; ALD: { if ($qn_node) { my $qn_uri = $qn_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2729)" qname_value_uri #line 24 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2731)" ; $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2732)" get_resource #line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2734)" ($qn_uri, for_arg => $opt{for_arg}); if ($res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2735)" is_defined #line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2737)" ) { last ALD if defined $al_canon_uri and $res->{aliasURI}->{$al_canon_uri}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2738)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2740)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2753)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2751)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2744)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2742)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2743)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2745)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $qn_node, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_resource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#anotherSourceNode' => $res->{src}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_ALREADY_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $qn_uri; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2749)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2747)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2748)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2750)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2752)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2754)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2761)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2756)" ; } my $v = $qn_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2757)" qname_value_local_name #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2759)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2760)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2762)" { #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [b] (Chunk #2768)" #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [bc] (Chunk #2766)" if #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [u] (Chunk #2764)" (defined $v) { if (ref $v eq 'SCALAR') { $res->{localName} = $v; } else { require Scalar::Util; $res->{localName} = ($Message::Util::ManakaiStringRef::Value{$v} ||= \($v)); Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$v}); } } else { CORE::delete $res->{localName}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2765)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2767)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2769)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2776)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2771)" ; my $ns = $qn_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2772)" qname_value_namespace_uri #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2774)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2775)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2777)" { #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [b] (Chunk #2783)" #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [bc] (Chunk #2781)" if #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [u] (Chunk #2779)" (defined $ns) { if (ref $ns eq 'SCALAR') { $res->{namespaceURI} = $ns; } else { require Scalar::Util; $res->{namespaceURI} = ($Message::Util::ManakaiStringRef::Value{$ns} ||= \($ns)); Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$ns}); } } else { CORE::delete $res->{namespaceURI}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2780)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2782)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2784)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2797)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2786)" ; } else { ## Anonymous or local my $n_node = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2787)" dis_get_attribute #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2789)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2790)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Name' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2792)" , for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, database_arg => $self); if ($n_node) { if ($parentResource) { my $puri = $parentResource->{uri}; my $ru; my $ln = $n_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2793)" value #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2795)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2796)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2798)" { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=getChildResourceURI][@type=DISPerl|BlockCode]/PerlDef [b] (Chunk #2804)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=getChildResourceURI][@type=DISPerl|BlockCode]/PerlDef [bc] (Chunk #2802)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISImplementation][@QName=ManakaiDISImplementation][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=getChildResourceURI][@type=DISPerl|BlockCode]/PerlDef [u] (Chunk #2800)" $__parent = $puri; my $__ln = $ln; for my $__uri ($__parent, $__ln) { $__uri =~ s{([^0-9A-Za-z!\$'(),*:;=?\@_./~-])}{sprintf '%%%02X', ord $1}ge; } $ru = qq; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2801)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2803)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2805)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2815)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2807)" ; $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2808)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2810)" ($ru, for_arg => $opt{for_arg}); my $v = $n_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2811)" value #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2813)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2814)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2816)" { #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [b] (Chunk #2822)" #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [bc] (Chunk #2820)" if #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [u] (Chunk #2818)" (defined $v) { if (ref $v eq 'SCALAR') { $res->{localName} = $v; } else { require Scalar::Util; $res->{localName} = ($Message::Util::ManakaiStringRef::Value{$v} ||= \($v)); Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$v}); } } else { CORE::delete $res->{localName}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2819)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2821)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2823)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2848)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2825)" ; $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2826)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2828)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2829)" 1 #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2831)" ; } else { ## Root local name resource my $ln = $n_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2832)" value #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2834)" ; my $ns_uri = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2835)" source_element #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2837)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2838)" defining_namespace_uri #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2840)" ; my $qn_uri = $ns_uri . $ln; $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2841)" get_resource #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2843)" ($qn_uri, for_arg => $opt{for_arg}); if ($res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2844)" is_defined #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2846)" ) { last ALD if defined $al_canon_uri and $res->{aliasURI}->{$al_canon_uri}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2847)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2849)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2862)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2860)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2853)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2851)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2852)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2854)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $n_node, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_resource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#anotherSourceNode' => $res->source_element, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_ALREADY_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $res->uri; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2858)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2856)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2857)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2859)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2861)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2863)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2867)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2865)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2866)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2868)" { #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [b] (Chunk #2874)" #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [bc] (Chunk #2872)" if #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [u] (Chunk #2870)" (defined $ns_uri) { if (ref $ns_uri eq 'SCALAR') { $res->{namespaceURI} = $ns_uri; } else { require Scalar::Util; $res->{namespaceURI} = ($Message::Util::ManakaiStringRef::Value{$ns_uri} ||= \($ns_uri)); Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$ns_uri}); } } else { CORE::delete $res->{namespaceURI}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2871)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2873)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2875)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2879)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2877)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2878)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2880)" { #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [b] (Chunk #2886)" #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [bc] (Chunk #2884)" if #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [u] (Chunk #2882)" (defined $ln) { if (ref $ln eq 'SCALAR') { $res->{localName} = $ln; } else { require Scalar::Util; $res->{localName} = ($Message::Util::ManakaiStringRef::Value{$ln} ||= \($ln)); Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$ln}); } } else { CORE::delete $res->{localName}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2883)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2885)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2887)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2900)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2889)" ; } } else { $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2890)" get_resource #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2892)" ($node_uri); $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2893)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2895)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2896)" 1 #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2898)" ; } } # anon #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2899)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2901)" { #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [b] (Chunk #2907)" #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [bc] (Chunk #2905)" if #line 1 "/document (lib/manakai/DISPerl.dis)/ResourceDef[@QName=HashStringRef][@type=DISPerl|BlockCode]/Def [u] (Chunk #2903)" (defined $opt{for_arg}) { if (ref $opt{for_arg} eq 'SCALAR') { $res->{for} = $opt{for_arg}; } else { require Scalar::Util; $res->{for} = ($Message::Util::ManakaiStringRef::Value{$opt{for_arg}} ||= \($opt{for_arg})); Scalar::Util::weaken ($Message::Util::ManakaiStringRef::Value{$opt{for_arg}}); } } else { CORE::delete $res->{for}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2904)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2906)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2908)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3020)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2910)" ; $res->{forp} = $opt{forp_arg}; $res->{src} = $el; $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2911)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2913)" } = \ ($mod->{uri}); $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2914)" add_resource_list #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2916)" ($res); $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2917)" parent_resource #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2919)" ($parentResource) if $parentResource; $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2920)" dynamic_parent_resource #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2922)" ($dynParent) if $dynParent; unless ($res->{uri} eq $node_uri) { my $nu_res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2923)" get_resource #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2925)" ($node_uri); $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2926)" merge_as_alias #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2928)" ($nu_res); } $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2929)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined' #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2931)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2932)" 1 #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2934)" ; $res->{seq} = $self->{seq}++; $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2935)" source_node_id_ref #line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2937)" ($node_id); ## -- Alias if ($al_node) { my $canon_res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2938)" get_resource #line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2940)" ($al_canon_uri); $canon_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2941)" is_referred #line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2943)" ($al_node); $canon_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2944)" merge_as_alias #line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2946)" ($res, node => $al_node); $res = $canon_res; } } # ALD ## -- Registers as child $parentResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2947)" _add_child_resource #line 28 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2949)" ($res) if $parentResource; $dynParent-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2950)" _add_dynamic_child_resource #line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2952)" ($res) if $dynParent; my $is_multires = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2953)" 0 #line 33 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2955)" ; my @props; my @cres; my @ce0 = @{$el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2956)" dis_child_elements #line 36 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2958)" (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, database_arg => $self)}; my $has_type = $al_node; while (@ce0) { my $ce = shift @ce0; if ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2959)" element_type_match #line 42 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2961)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2962)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 42 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2964)" , database_arg => $self)) { $has_type = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2965)" 1 #line 44 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2967)" ; my $type_uri = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2968)" qname_value_uri #line 45 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2970)" ; my $type = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2971)" get_resource #line 46 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2973)" ($type_uri); $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2974)" add_property_resource_ulist #line 47 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2976)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2977)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 48 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2979)" , $type); $type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2980)" is_referred #line 49 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2982)" ($ce); if ($type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2983)" is_subset_of_uri #line 50 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2985)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2986)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--MultipleResource' #line 51 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2988)" )) { $is_multires = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2989)" 1 #line 52 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2991)" ; } } elsif ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2992)" element_type_match #line 54 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2994)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2995)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--subsetOf' #line 55 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2997)" , database_arg => $self)) { my $sres = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2998)" get_resource #line 57 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3000)" ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3001)" tfqnames_value_uri #line 58 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3003)" ($$node_id, $opt{for_arg}, for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, database_arg => $self)); $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3004)" add_super_resource #line 62 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3006)" ($sres); } elsif ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3007)" is_resource_element #line 63 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3009)" ) { push @cres, $ce; } elsif ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3010)" element_type_match #line 65 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3012)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3013)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType' #line 66 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3015)" , database_arg => $self)) { my $uri = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3016)" qname_value_uri #line 68 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3018)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3019)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3021)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #3050)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #3031)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3023)" $res->{'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType'} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3024)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3026)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3027)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3029)" , $uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3030)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3032)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3043)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #3041)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #3039)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3034)" $res->{'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType'}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3035)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3037)" ($ce->expanded_uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3038)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3040)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3042)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3044)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #3048)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3046)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3047)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3049)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3051)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3070)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3053)" ; my $type = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3054)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3056)" ($uri); $type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3057)" is_referred #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3059)" ($ce); } elsif ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3060)" element_type_match #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3062)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3063)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3065)" , database_arg => $self)) { my $uri = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3066)" qname_value_uri #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3068)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3069)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3071)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #3100)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #3081)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3073)" $res->{'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties'} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3074)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3076)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3077)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3079)" , $uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3080)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3082)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3093)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #3091)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #3089)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3084)" $res->{'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties'}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3085)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3087)" ($ce->expanded_uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3088)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3090)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3092)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3094)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #3098)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3096)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3097)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3099)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3101)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3111)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3103)" ; my $type = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3104)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3106)" ($uri); $type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3107)" is_referred #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3109)" ($ce); } else { ## Property and invalid element is not checked, since not ## all property definitions has loaded at this stage. push @props, $ce; } } # @ce0 unless ($has_type) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3110)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3112)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3117)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3115)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3113)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3114)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $el, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'load_resource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_RDF_TYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $res->{uri}; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3116)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3118)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3155)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3120)" ; } ## -- Child resources unless ($is_multires) { for my $re (@cres) { unless ($al_node) { $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3121)" load_resource #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3123)" ($mod, $res, $res, $re, for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, on_resource_read => $opt{on_resource_read}); } else { my $ac = $re-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3124)" dis_get_attribute #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3126)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3127)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--aliasChild' #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3129)" , for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, database_arg => $self); if ($ac and $ac-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3130)" value #line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3132)" ) { $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3133)" load_resource #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3135)" ($mod, $res, $res, $re, for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, on_resource_read => $opt{on_resource_read}); } } } } ## -- Multiple representations if ($is_multires) { for my $pe (@props) { if ($pe-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3136)" element_type_match #line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3138)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3139)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--resourceFor' #line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3141)" , database_arg => $self)) { my $for_uri = $pe-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3142)" qname_value_uri #line 33 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3144)" ; my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3145)" get_for #line 34 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3147)" ($for_uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3148)" is_referred #line 35 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3150)" ($pe); $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3151)" load_resource #line 36 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3153)" ($mod, $parentResource, $res, $el, for_arg => $opt{for_arg}, forp_arg => [@{$opt{forp_arg}}, $for_uri], on_resource_read => $opt{on_resource_read}); } } } ($opt{on_resource_read} or sub {})->($self, $res); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3154)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3156)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3158)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3160)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3164)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3162)" ; # DEEP #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3163)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3165)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3167)" } } sub read_properties ($%) { my ($self, %opt) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3193)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3168)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3169)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3186)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3184)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3182)" for #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3171)" my $fd (values %{$self->{modDef}}, values %{$self->{forDef}}, values %{$self->{resDef}}) { if ($fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3172)" is_defined #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3174)" ) { $fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3175)" read_properties #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3177)" (on_resource_read => $opt{on_resource_read}); } } CORE::delete $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3178)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile' #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3180)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3181)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3183)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3185)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3187)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3191)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3189)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3190)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3192)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3194)" } } sub check_undefined_resource ($) { my ($self) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3222)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3204)" for #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3196)" my $fd (values %{$self->{forDef}}) { if (my $ref = $fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3197)" is_referred and #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3199)" not $fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3200)" is_defined #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3202)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3203)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3205)" report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'check_undefined_resource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodePath' => $ref, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#FOR_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $fd->uri; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3215)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3207)" ; } } for my $fd (values %{$self->{resDef}}) { if (my $ref = $fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3208)" is_referred and #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3210)" not $fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3211)" is_defined #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3213)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3214)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3216)" report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'check_undefined_resource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodePath' => $ref, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $fd->uri; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3220)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3218)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3219)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3221)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3223)" } } sub xcref_to_resource ($$$%) { my ($self, $xcref, $contextNode, %opt) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3360)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3227)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3225)" ($q1, $q2, $q3) = split /\s*\.\s*/, $xcref, 3; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3226)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3228)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3353)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3351)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3289)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3230)" (defined $q3) { $r->[2] = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3231)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3233)" ($contextNode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3234)" tfqnames_to_uri #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3236)" ($q3, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3237)" undef #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3239)" , $opt{for_arg}, node => $opt{node})); $r->[1] = $r->[2]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3240)" parent_resource #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3242)" ; } elsif (defined $q2) { if ($q2 =~ /:/) { $r->[1] = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3243)" get_resource #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3245)" ($contextNode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3246)" tfqnames_to_uri #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3248)" ($q2, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3249)" undef #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3251)" , $opt{for_arg}, node => $opt{node})); } else { $r->[0] = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3252)" get_resource #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3254)" ($contextNode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3255)" tfqnames_to_uri #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3257)" ($q1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3258)" undef #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3260)" , $opt{for_arg}, node => $opt{node})); $r->[1] = $r->[0]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3261)" get_const_resource_by_name #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3263)" ($q2); } } else { ## $q1 only $r->[2] = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3264)" get_resource #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3266)" ($contextNode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3267)" tfqnames_to_uri #line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3269)" ($q1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3270)" undef #line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3272)" , $opt{for_arg}, node => $opt{node})); if ($r->[2]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3273)" is_type_uri #line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3275)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3276)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#ErrorSubCode' #line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3278)" )) { $r->[1] = $r->[2]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3279)" parent_resource #line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3281)" ; } else { $r->[1] = $r->[2]; CORE::delete $r->[2]; } } if ($r->[2] and not $r->[2]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3282)" is_type_uri #line 29 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3284)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3285)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#ErrorSubCode' #line 29 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3287)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3288)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3290)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3295)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3293)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3291)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3292)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'xcref_to_resource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $xcref, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#ErrorSubCode', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $r->[2]->{uri}; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3294)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3296)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3309)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3298)" ; } $r->[2]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3299)" is_referred #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3301)" ($opt{node} or $contextNode) if $r->[2]; if (not $r->[1] or not $r->[1]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3302)" is_type_uri #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3304)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3305)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const' #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3307)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3308)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3310)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3315)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3313)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3311)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3312)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'xcref_to_resource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $xcref, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => ($r->[1] ? $r->[1]->local_name : undef), 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => ($r->[1] ? $r->[1]->uri : undef); #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3314)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3316)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3335)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3318)" ; } $r->[1]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3319)" is_referred #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3321)" ($opt{node} or $contextNode); unless ($r->[0]) { my $cg = $r->[1]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3322)" parent_resource #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3324)" ; $r->[0] = $cg-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3325)" parent_resource if #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3327)" $cg; } if (not $r->[0] or not $r->[0]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3328)" is_type_uri #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3330)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3331)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#AnyExceptionAnyClass' #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3333)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3334)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3336)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3341)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3339)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3337)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3338)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'xcref_to_resource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISDatabase', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $xcref, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#AnyExceptionAnyClass', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $r->[0]->local_name, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $r->[0]->{uri}; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3340)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3342)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3349)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3344)" ; } $r->[0]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3345)" is_referred #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3347)" ($opt{node} or $contextNode); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3348)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3350)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3352)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3354)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3358)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3356)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3357)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3359)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3361)" } $r} sub get_feature ($$$) { my ($self, $feature, $version) = @_; { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #3367)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3365)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3363)" $feature = lc $feature; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3364)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3366)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3368)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #3374)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3372)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3370)" $version = '' unless defined $version; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3371)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3373)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3375)" } my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3381)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3379)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3377)" $feature =~ s/^\+//; CLASS: for my $class (grep { $Message::Util::DIS::ManakaiDISDatabase::CompatClass{$_} } keys %Message::Util::DIS::ManakaiDISDatabase::CompatClass) { if ($Message::DOM::ClassFeature{$class}->{$feature}->{$version}) { $r = bless {o => $self}, $class; last CLASS; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3378)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3380)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3382)" } $r} sub free ($) { my ($self) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3394)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3392)" for #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3384)" my $file (values %{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3385)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3387)" }}) { $file-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3388)" free if #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=free][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3390)" $file; } CORE::delete $self->{modDef}; CORE::delete $self->{forDef}; CORE::delete $self->{resDef}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3391)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3393)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3395)" } } sub get_module_uri_list ($) { my ($self) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModuleURIList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3404)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModuleURIList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3402)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModuleURIList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3397)" $r = [map {$_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3398)" uri #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getModuleURIList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3400)" } values %{$self->{modDef}}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3401)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3403)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3405)" } $r} sub get_any_resource_uri_list ($) { my ($self) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResourceURIList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3417)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResourceURIList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3415)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResourceURIList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3407)" $r = [keys %{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3408)" 'rm' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResourceURIList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3410)" }}, map {$_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3411)" uri #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISDatabase][@QName=ManakaiDISDatabase][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getAnyResourceURIList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3413)" } values %{$self->{modDef}}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3414)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3416)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3418)" } $r} $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#perl', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 2; $Message::Util::DIS::ManakaiDISDatabase::CompatClass{q} = 1; package Message::Util::IFLatest::DISModuleResolver; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISModuleResolver; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::IF::DISModuleResolver', 'Message::Util::IFLatest::DISModuleResolver'; sub uri_to_document ($$$$$$) { my ($self, $disDB, $moduleURI, $moduleNamespaceURI, $moduleLocalName, $moduleFor) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@QName=ManakaiDISModuleResolver][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=uriToDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3424)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@QName=ManakaiDISModuleResolver][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=uriToDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3422)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@QName=ManakaiDISModuleResolver][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=uriToDocument][@type=DISLang:Method]/Return[@Type=DISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3420)" $r = $self->(@_); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3421)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3423)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3425)" } $r} $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 1; package Message::Util::IFLatest::DISAnyResource; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISAnyResource; our $VERSION = 20051012.1347; push our @ISA, 'Message::DOM::DOMFeature::ManakaiHasFeatureByGetFeature', 'Message::Util::IF::DISAnyResource', 'Message::Util::IFLatest::DISAnyResource'; sub uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3433)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uri][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3431)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uri][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3429)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uri][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3427)" $r = $self->{uri}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3428)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3430)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3432)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3434)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3435)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3436)" } } sub uri_ref ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3444)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uriRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3442)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uriRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3440)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uriRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3438)" $r = \ ($self->{uri}); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3439)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3441)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3443)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3445)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3446)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uri_ref'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3447)" } } sub uris ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3448)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_ATTR_NOT_IMPLEMENTED', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uris'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3449)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3450)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uris'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3451)" } } sub is_same_resource ($$) { my ($self, $anotherResource) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isSameResource][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3460)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isSameResource][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3458)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isSameResource][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3453)" (UNIVERSAL::isa ($anotherResource, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3454)" 'Message::Util::DIS::ManakaiDISAnyResource' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isSameResource][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3456)" )) { $r = $self->{uri} eq $anotherResource->{uri}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3457)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3459)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3461)" } $r} sub name_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3469)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3467)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3465)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3463)" (defined $self->{localName}) { $r = defined $self->{namespaceURI} ? ${$self->{namespaceURI}} . ${$self->{localName}} : ${$self->{localName}}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3464)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3466)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3468)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3470)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3471)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'name_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3472)" } } sub local_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3483)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3481)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3479)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3474)" $r = defined $self->{localName} ? ${$self->{localName}} : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3475)" undef #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3477)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3478)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3480)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3482)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3484)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3485)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'local_name'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3486)" } } sub namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3497)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3495)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3493)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3488)" $r = defined $self->{namespaceURI} ? ${$self->{namespaceURI}} : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3489)" undef #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3491)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3492)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3494)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3496)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3498)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3499)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'namespace_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3500)" } } sub for_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3511)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3509)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3507)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3502)" $r = defined $self->{for} ? ${$self->{for}} : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3503)" undef #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3505)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3506)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3508)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3510)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3512)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3513)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'for_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3514)" } } sub forp_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3522)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3520)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3518)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3516)" $r = [@{$self->{forp}}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3517)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3519)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3521)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3523)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3524)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'forp_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3525)" } } sub is_for_uri ($$) { my ($self, $forURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3554)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3526)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3527)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3547)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3545)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3543)" C: #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3529)" for my $this_for_uri (${$self->{for}||\''}, @{$self->{forp}||[]}) { if ($this_for_uri eq $forURI) { ## Shortcut $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3530)" 1 #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3532)" ; last C; } my $this_for = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3533)" get_for #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3535)" ($this_for_uri); if ($this_for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3536)" isa_uri #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3538)" ($forURI)) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3539)" 1 #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3541)" ; last C; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3542)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3544)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3546)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3548)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3552)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3550)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3551)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3553)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3555)" } $r} sub is_defined ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3566)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3564)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3562)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3557)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3558)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3560)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3561)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3563)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3565)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3567)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3568)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_defined'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3569)" } } sub owner_module ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3586)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3584)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3582)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3571)" $r = $self->{db} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3572)" get_module #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3574)" (${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3575)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3577)" }}) if defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3578)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3580)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3581)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3583)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3585)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3587)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3588)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_module'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3589)" } } sub owner_module_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3603)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3601)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3599)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3591)" (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3592)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3594)" }) { $r = ${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3595)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3597)" }}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3598)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3600)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3602)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3604)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3605)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_module_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3606)" } } sub owner_module_uri_ref ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3617)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3615)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3613)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3608)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3609)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModuleURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3611)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3612)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3614)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3616)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3618)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3619)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_module_uri_ref'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3620)" } } sub is_referred ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3631)" my ($self) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3629)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3627)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3622)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3623)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isReferred' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3625)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3626)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3628)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3630)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3632)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3655)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #3653)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3651)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3634)" (defined $given) { if (ref $given) { if ($given->isa ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3635)" 'Message::Util::IF::DVValue' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3637)" )) { $given = $given-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3638)" source_node_path #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3640)" ; } else { $given = $given-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3641)" flag #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3643)" ('nodePath') || $given-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3644)" node_path #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3646)" (key => [qw/QName Name type Type/]); } } $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3647)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isReferred' #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isReferred][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3649)" } = $given; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3650)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3652)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3654)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3656)" } } sub source_node_id ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3673)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3671)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3669)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3658)" (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3659)" 'snid' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3661)" }) { $r = ${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3662)" 'snid' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3664)" }}; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3665)" undef #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3667)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3668)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3670)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3672)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3674)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3688)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #3686)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3684)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3676)" (defined $given) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3677)" 'snid' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3679)" } = \$given; } else { CORE::delete $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3680)" 'snid' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeID][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3682)" }; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3683)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3685)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3687)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3689)" } } sub source_node_id_ref ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3700)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3698)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3696)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3691)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3692)" 'snid' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3694)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3695)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3697)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3699)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3701)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3715)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #3713)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3711)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3703)" (defined $given) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3704)" 'snid' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3706)" } = $given; } else { CORE::delete $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3707)" 'snid' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceNodeIDRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3709)" }; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3710)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3712)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3714)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3716)" } } sub is_anonymous ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3727)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3725)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3723)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3718)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3719)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3721)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3722)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3724)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3726)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3728)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3729)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_anonymous'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3730)" } } sub source_element ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3738)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3736)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3734)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3732)" $r = $self->{src}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3733)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3735)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3737)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3739)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3740)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'source_element'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3741)" } } sub database ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3749)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=database][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3747)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=database][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3745)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=database][@Type=DISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3743)" $r = $self->{db}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3744)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3746)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3748)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3750)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3751)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'database'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3752)" } } sub read_properties ($%) { my ($self, %opt) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4673)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3753)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3754)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4666)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4664)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3875)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3756)" (my $src = $self->{src}) { my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3757)" for_uri #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3759)" ; my $forp = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3760)" forp_uri #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3762)" ; my $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3763)" database #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3765)" ; for my $el (@{$src-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3766)" dis_child_elements #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3768)" (for_arg => $for, forp_arg => $forp, database_arg => $db)}) { my $xu = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3769)" expanded_uri #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3771)" ; if ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3772)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AliasFor' #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3774)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3775)" 1 #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3777)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3778)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ContentType' #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3780)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3781)" 1 #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3783)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3784)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType' #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3786)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3787)" 1 #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3789)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3790)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For' #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3792)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3793)" 1 #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3795)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3796)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForCheck' #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3798)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3799)" 1 #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3801)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3802)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Name' #line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3804)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3805)" 1 #line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3807)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3808)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace' #line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3810)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3811)" 1 #line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3813)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3814)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties' #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3816)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3817)" 1 #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3819)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3820)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3822)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3823)" 1 #line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3825)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3826)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName' #line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3828)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3829)" 1 #line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3831)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3832)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Require' #line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3834)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3835)" 1 #line 21 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3837)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3838)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--resourceFor' #line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3840)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3841)" 1 #line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3843)" , }->{$xu}) { # } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3844)" is_property_element #line 25 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3846)" (database_arg => $db)) { my $add_prop; $add_prop = sub ($$$) { my ($self, $el, $db) = @_; my $prop = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3847)" get_resource #line 30 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3849)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3850)" expanded_uri #line 31 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3852)" ); my $prop_uri = $prop-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3853)" uri #line 32 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3855)" ; my $prop_mult = $prop-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3856)" multiple_properties_uri #line 33 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3858)" ; my $new_value; my $base_type; my $copy_tree = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3859)" 0 #line 36 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3861)" ; my %mtopt = (for_arg => $for, forp_arg => $forp, default_media_type => $prop-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3862)" default_lextype_uri #line 40 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3864)" , database_arg => $db); my $new_value_type = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3865)" media_type_uri #line 42 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3867)" (%mtopt); if ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3868)" media_type_match #line 44 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3870)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3871)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 45 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3873)" , $mtopt{default_media_type}, %mtopt)) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3874)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3876)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #3902)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #3883)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3878)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3879)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3881)" ($new_value_type, undef, base_type => $base_type = 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3882)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3884)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3895)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #3893)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #3891)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3886)" $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3887)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3889)" ($prop_uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3890)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3892)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3894)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3896)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #3900)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3898)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3899)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3901)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3903)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3961)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3905)" ; $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3906)" local_name #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3908)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3909)" qname_value_local_name #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3911)" ); $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3912)" prefix #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3914)" (my $prefix = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3915)" qname_value_prefix #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3917)" ); if (not defined $prefix) { if ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3918)" media_type_match #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3920)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3921)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#LanguageTag' #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3923)" , $mtopt{default_media_type}, %mtopt)) { $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3924)" namespace_uri #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3926)" ('urn:x-suika-fam-cx:lang:'); } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3927)" media_type_match #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3929)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3930)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#ScriptTag' #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3932)" , $mtopt{default_media_type}, %mtopt)) { $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3933)" namespace_uri #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3935)" ('http://suika.fam.cx/~wakaba/archive/2005/5/script#'); } else { $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3936)" namespace_uri #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3938)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3939)" qname_value_namespace_uri #line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3941)" ); } } else { $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3942)" namespace_uri #line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3944)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3945)" qname_value_namespace_uri #line 23 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3947)" ); } ## TODO: Check whether defined } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3948)" media_type_match #line 26 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3950)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3951)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 27 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3953)" , $mtopt{default_media_type}, %mtopt) or $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3954)" media_type_match #line 28 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3956)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3957)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames' #line 29 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3959)" , $mtopt{default_media_type}, %mtopt)) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3960)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3962)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #3991)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #3972)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3964)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3965)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3967)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3968)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3970)" , $el->tfqnames_value_uri ($self->source_node_id, $self->for_uri, for_arg => $self->for_uri, forp_arg => $self->forp_uri, database_arg => $db)); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3971)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3973)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3984)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #3982)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #3980)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3975)" $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3976)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3978)" ($prop_uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3979)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3981)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3983)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3985)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #3989)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #3987)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3988)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3990)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3992)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4008)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3994)" ; ## TODO: Check whether defined $new_value_type = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3995)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3997)" ; } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3998)" media_type_match #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4000)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4001)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4003)" , $mtopt{default_media_type}, %mtopt)) { $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4004)" preserve_node_path #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4006)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4007)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4009)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4030)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4016)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4011)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4012)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value_ref #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4014)" ($new_value_type, $el->value_ref, base_type => $base_type = 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4015)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4017)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4028)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4026)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4024)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4019)" $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4020)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4022)" ($prop_uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4023)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4025)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4027)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4029)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4031)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4044)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4033)" ; for my $p ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4034)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4036)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4037)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4039)" ) { if (UNIVERSAL::isa ($self->{$p}, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4040)" 'Message::Util::IF::DVURIValue' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4042)" )) { my $v; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4043)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4045)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4074)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4055)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4047)" $v = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4048)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4050)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4051)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4053)" , $self->{$p}->uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4054)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4056)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4067)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4065)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4063)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4058)" $v-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4059)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4061)" ($prop_uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4062)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4064)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4066)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4068)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4072)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4070)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4071)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4073)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4075)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4121)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4077)" ; $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4078)" set_property #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4080)" ($p => $v); } } $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4081)" default_namespace_uri_ref #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4083)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4084)" get_default_namespace_uri_ref #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4086)" ); $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4087)" namespace_binding_list #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4089)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4090)" get_namespace_binding_list #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4092)" ($db)); $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4093)" source_node_path #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4095)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4096)" flag #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4098)" ('nodePath')); } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4099)" media_type_match #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4101)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4102)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#disdoc' #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4104)" , $mtopt{default_media_type}, %mtopt) or $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4105)" media_type_match #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4107)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4108)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#disdocInline' #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4110)" , $mtopt{default_media_type}, %mtopt) or $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4111)" media_type_match #line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4113)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4114)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#muf' #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4116)" , $mtopt{default_media_type}, %mtopt)) { $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4117)" preserve_node_path #line 20 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4119)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4120)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4122)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4143)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4129)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4124)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4125)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value_ref #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4127)" ($new_value_type, $el->value_ref, base_type => $base_type = 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#disdoc'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4128)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4130)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4141)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4139)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4137)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4132)" $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4133)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValueRef][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4135)" ($prop_uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4136)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4138)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4140)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4142)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4144)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4181)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4146)" ; $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4147)" default_namespace_uri_ref #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4149)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4150)" get_default_namespace_uri_ref #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4152)" ); $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4153)" namespace_binding_list #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4155)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4156)" get_namespace_binding_list #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4158)" ($db)); $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4159)" source_node_path #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4161)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4162)" flag #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4164)" ('nodePath')); } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4165)" media_type_match #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4167)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4168)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#XCRef' #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4170)" , $mtopt{default_media_type}, %mtopt)) { my $x = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4171)" xcref_to_resource #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4173)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4174)" value #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4176)" , $el, node => $el, for_arg => $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4177)" for_uri #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4179)" ); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4180)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4182)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4211)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4192)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4184)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4185)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4187)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4188)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4190)" , ($x->[2] or $x->[1] or $x->[0]) ->uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4191)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4193)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4204)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4202)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4200)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4195)" $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4196)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4198)" ($prop_uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4199)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4201)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4203)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4205)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4209)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4207)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4208)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4210)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4212)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4255)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4214)" ; $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4215)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4217)" ($db) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4218)" is_referred #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4220)" ($el); $new_value_type = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4221)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4223)" ; } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4224)" media_type_match #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4226)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4227)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MemberRef' #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4229)" , $mtopt{default_media_type}, %mtopt)) { my $v = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4230)" value #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4232)" ; $v =~ s/^\s+//; $v =~ s/\s+$//; my ($clsq, $mem, $gs) = split /\s*\.\s*/, $v, 3; my $res; if (defined $mem) { my $cls = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4233)" get_resource #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4235)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4236)" tfqnames_value_uri #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4238)" ($clsq, $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4239)" source_node_id #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4241)" , $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4242)" for_uri #line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4244)" , node => $el)); $cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4245)" is_referred #line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4247)" ($el); $res = $cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4248)" get_child_resource_by_name_and_type #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4250)" ($mem, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4251)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod' #line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4253)" ); unless ($res) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4254)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4256)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4261)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4259)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4257)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4258)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $el, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'read_properties', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $v, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => defined $gs ? 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute' : 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method' , 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $mem, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $el->expanded_uri, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#parentURI' => $cls->uri; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4260)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4262)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4275)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4264)" ; } if (defined $gs) { $res = $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4265)" get_child_resource_by_type #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4267)" ($gs eq 'get' ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4268)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet' : #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4270)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4271)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4273)" ); unless ($res) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4274)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4276)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4281)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4279)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4277)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4278)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $el, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'read_properties', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $v, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => $gs eq 'get' ? 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet' : 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet' , 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $el->expanded_uri, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#parentURI' => $res->uri; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4280)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4282)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4301)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4284)" ; } } } else { $res = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4285)" get_resource #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4287)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4288)" tfqnames_value_uri #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4290)" ($clsq, $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4291)" source_node_id #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4293)" , $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4294)" for_uri #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4296)" , node => $el)); } $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4297)" is_referred #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4299)" ($el); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4300)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4302)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4331)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4312)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4304)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4305)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4307)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4308)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4310)" , $el->uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4311)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4313)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4324)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4322)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4320)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4315)" $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4316)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4318)" ($prop_uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4319)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4321)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4323)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4325)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4329)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4327)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4328)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4330)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4332)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4351)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4334)" ; $new_value_type = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4335)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4337)" ; } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4338)" media_type_match #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4340)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4341)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4343)" , $mtopt{default_media_type}, %mtopt)) { $copy_tree = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4344)" 1 #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4346)" ; $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4347)" preserve_node_path #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4349)" ; my $elc = $el->clone; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4350)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4352)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4378)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4359)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4354)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4355)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4357)" ($new_value_type, $elc, base_type => $base_type = 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4358)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4360)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4371)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4369)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4367)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4362)" $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4363)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4365)" ($prop_uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4366)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4368)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4370)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4372)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4376)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4374)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4375)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4377)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4379)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4395)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4381)" ; $elc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4382)" unlink_from_document #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4384)" ($db); } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4385)" media_type_match #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4387)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4388)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#Integer' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4390)" , $mtopt{default_media_type}, %mtopt)) { my $v = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4391)" value #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4393)" ; if ($v =~ /^0x/) { $v = hex $v; } else { $v += 0; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4394)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4396)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4422)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4403)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4398)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4399)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4401)" ($new_value_type, $v, base_type => $base_type = 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4402)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4404)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4415)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4413)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4411)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4406)" $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4407)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4409)" ($prop_uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4410)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4412)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4414)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4416)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4420)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4418)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4419)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4421)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4423)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4427)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4425)" ; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4426)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4428)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4454)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4435)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4430)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4431)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4433)" ($new_value_type, $el->value, base_type => $base_type = 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4434)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4436)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4447)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4445)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4443)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4438)" $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4439)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4441)" ($prop_uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4442)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4444)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4446)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4448)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4452)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createValue][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4450)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4451)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4453)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4455)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4498)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4457)" ; } unless ($copy_tree) { for my $ce (@{$el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4458)" dis_child_elements #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4460)" (for_arg => $for, forp_arg => $forp, database_arg => $db)}) { my $xu = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4461)" expanded_uri #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4463)" ; if ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4464)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AliasFor' #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4466)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4467)" 1 #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4469)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4470)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For' #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4472)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4473)" 1 #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4475)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4476)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForCheck' #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4478)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4479)" 1 #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4481)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4482)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ContentType' #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4484)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4485)" 1 #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4487)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4488)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--resourceFor' #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4490)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4491)" 1 #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4493)" , }->{$xu}) { # } elsif ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4494)" is_property_element #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4496)" (database_arg => $db)) { my $pr; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4497)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4499)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4507)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4505)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4503)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4501)" $pr = $add_prop->($self, $ce, $db); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4502)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4504)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4506)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4508)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4518)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4510)" ; if ($pr->{prop_mult} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4511)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#OrderedList' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4513)" ) { my $cpv = $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4514)" get_property #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4516)" ($xu); if (not $cpv) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4517)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4519)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4528)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4526)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4521)" $cpv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4522)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_ordered_list #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4524)" ($mtopt{default_media_type}, base_type => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4525)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4527)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4529)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4545)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4531)" ; $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4532)" set_property #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4534)" ($xu => $cpv); } $cpv-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4535)" add_item #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4537)" ($pr->{new_value}); } elsif ($pr->{prop_mult} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4538)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#UnorderedList' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4540)" ) { my $cpv = $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4541)" get_property #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4543)" ($xu); if (not $cpv) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4544)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4546)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4555)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4553)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4548)" $cpv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4549)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_unordered_list #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4551)" ($mtopt{default_media_type}, base_type => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4552)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4554)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4556)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4569)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4558)" ; $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4559)" set_property #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4561)" ($xu => $cpv); } $cpv-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4562)" add_item #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4564)" ($pr->{new_value}); } else { $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4565)" set_property #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4567)" ($xu => $pr->{new_value}); } } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4568)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4570)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4575)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4573)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4571)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4572)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $ce, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'read_properties', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNSUPPORTED_ELEMENT_TYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $xu; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4574)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4576)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4580)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4578)" ; } }} # copy_tree {new_value => $new_value, base_type => $base_type, prop_uri => $prop_uri, prop_mult => $prop_mult, new_value_type => $new_value_type}; }; my $pr; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4579)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4581)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4589)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4587)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4585)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4583)" $pr = $add_prop->($self, $el, $db); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4584)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4586)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4588)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4590)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4597)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4592)" ; if ($pr->{prop_mult} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4593)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#OrderedList' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4595)" ) { if (not $self->{$pr->{prop_uri}}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4596)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4598)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4607)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4605)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4600)" $self->{$pr->{prop_uri}} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4601)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_ordered_list #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4603)" ($pr->{new_value_type}, base_type => $pr->{base_type} || 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4604)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4606)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4608)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4618)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4610)" ; } $self->{$pr->{prop_uri}}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4611)" add_item #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4613)" ($pr->{new_value}); } elsif ($pr->{prop_mult} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4614)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#UnorderedList' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4616)" ) { if (not $self->{$pr->{prop_uri}}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4617)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4619)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4628)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #4626)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4621)" $self->{$pr->{prop_uri}} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4622)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_unordered_list #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #4624)" ($pr->{new_value_type}, base_type => $pr->{base_type} || 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4625)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4627)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4629)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4651)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4631)" ; } $self->{$pr->{prop_uri}}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4632)" add_item #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4634)" ($pr->{new_value}); } else { $self->{$pr->{prop_uri}} = $pr->{new_value}; } if ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4635)" element_type_match #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4637)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4638)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#propHashKey' #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4640)" , database_arg => $db)) { $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4641)" pl_add_hash_key #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4643)" ($xu => $pr->{new_value}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4644)" string_value #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4646)" => $self); } } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4647)" is_resource_element #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4649)" ) { ## TODO: Should rdf:type be validated? } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4650)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4652)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4657)" local $Error::Depth = $Error::Depth - 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4655)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4653)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4654)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $el, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'read_properties', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNSUPPORTED_ELEMENT_TYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISAnyResource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $xu; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4656)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4658)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4662)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4660)" ; } } CORE::delete $self->{src}; ($opt{on_resource_read} or sub () {})->($self, $self); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4661)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4663)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4665)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4667)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4671)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISAnyResource][@QName=ManakaiDISAnyResource][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=readProperties][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4669)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4670)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4672)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4674)" } } use overload bool => sub () {1}, 'eq' => 'is_same_resource', fallback => 1; $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 1; package Message::Util::IFLatest::DISModule; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISModuleDefinition; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'Message::Util::Error::DOMException::ManakaiDefaultExceptionHandler', 'Message::Util::DIS::Perl::ManakaiDISPerlModuleDefinition', 'Message::Util::DIS::Perl::ManakaiDISModulePerl', 'Message::Util::DIS::Perl::ManakaiDISAnyResourcePerl', 'Message::Util::DIS::ManakaiDISAnyResource', 'Message::DOM::IFLatest::GetFeature', 'Message::Util::IF::DISModule', 'Message::Util::IFLatest::DISModule'; sub uris ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4682)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=DISPerl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4680)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=DISPerl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4678)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=DISPerl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4676)" $r = [$self->{uri}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4677)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4679)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4681)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4683)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4684)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uris'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4685)" } } sub owner_module ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4693)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4691)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4689)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4687)" $r = $self; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4688)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4690)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4692)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4694)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4695)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_module'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4696)" } } sub get_feature ($$$) { my ($self, $feature, $version) = @_; { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #4702)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #4700)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #4698)" $feature = lc $feature; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4699)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4701)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4703)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #4709)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #4707)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #4705)" $version = '' unless defined $version; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4706)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4708)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4710)" } my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4716)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4714)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4712)" $feature =~ s/^\+//; CLASS: for my $class (grep { $Message::Util::DIS::ManakaiDISModuleDefinition::CompatClass{$_} } keys %Message::Util::DIS::ManakaiDISModuleDefinition::CompatClass) { if ($Message::DOM::ClassFeature{$class}->{$feature}->{$version}) { $r = bless {o => $self}, $class; last CLASS; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4713)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4715)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4717)" } $r} sub is_anonymous ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4728)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4726)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4724)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4719)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4720)" 0 #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4722)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4723)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4725)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4727)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4729)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4730)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_anonymous'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4731)" } } sub add_resource_list ($$) { my ($self, $disResource) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4754)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4732)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4733)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4747)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4745)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4743)" push #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4735)" @{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4736)" 'mres' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4738)" }||=[]}, $disResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4739)" uri_ref #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4741)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4742)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4744)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4746)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4748)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4752)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4750)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4751)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4753)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4755)" } } sub get_resource_list ($) { my ($self) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4781)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4756)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4757)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4774)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4772)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4770)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4759)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4760)" database #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4762)" ; $r = [map { $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4763)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4765)" ($$_) } @{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4766)" 'mres' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4768)" }}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4769)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4771)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4773)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4775)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4779)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4777)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4778)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4780)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4782)" } $r} sub target_namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4799)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4797)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4795)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4784)" $r = defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4785)" 'dns' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4787)" } ? ${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4788)" 'dns' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4790)" }} : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4791)" undef #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4793)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4794)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4796)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4798)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4800)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4814)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #4812)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #4810)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #4802)" (defined $given) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4803)" 'dns' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #4805)" } = \$given; } else { CORE::delete $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4806)" 'dns' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #4808)" }; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4809)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4811)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4813)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4815)" } } sub is_type_uri ($$) { my ($self, $typeURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4844)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4816)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4817)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4837)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4835)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4833)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4819)" $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4820)" database #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4822)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4823)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4825)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4826)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#Module' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4828)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4829)" is_type_uri #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4831)" ($typeURI); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4832)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4834)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4836)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4838)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4842)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModule][@QName=ManakaiDISModuleDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4840)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4841)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4843)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4845)" } $r} $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#perl', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 6; $Message::Util::DIS::ManakaiDISModuleDefinition::CompatClass{q} = 1; package Message::Util::DIS::ManakaiDISModuleLite; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::DIS::ManakaiDISAnyResource', 'Message::DOM::IFLatest::GetFeature', 'Message::Util::IF::DISAnyResourcePerl', 'Message::Util::IF::DISModulePerl', 'Message::Util::IF::DISResourcePerlModule', 'Message::Util::IFLatest::DISResourceProp'; sub uris ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4853)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=DISPerl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4851)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=DISPerl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4849)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=DISPerl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4847)" $r = [$self->{uri}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4848)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4850)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4852)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4854)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4855)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleLite', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uris'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4856)" } } sub owner_module ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4864)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4862)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4860)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=DISModule][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4858)" $r = $self; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4859)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4861)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4863)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4865)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4866)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleLite', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_module'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4867)" } } sub is_anonymous ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4878)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4876)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4874)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4869)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4870)" 0 #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4872)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4873)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4875)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4877)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4879)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4880)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleLite', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_anonymous'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4881)" } } sub AUTOLOAD ($) { my ($self) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4915)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4885)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4883)" $al = our $AUTOLOAD; $al =~ s/.+:://; if ($al ne 'DESTROY') { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4884)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4886)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4900)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4898)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4896)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4888)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4889)" database #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4891)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4892)" _pl_load_dis_database_module #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4894)" ($self); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4895)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4897)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4899)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4901)" } #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4908)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4903)" ; if (ref $self eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4904)" 'Message::Util::DIS::ManakaiDISModuleLite' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4906)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4907)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4909)" report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'AUTOLOAD', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleLite', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->uri, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#moduleURI' => $self->uri; #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4913)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4911)" ; } my $code = $self->can ($al); if ($code) { goto &$code; } else { require Carp; local $Carp::CarpLevel = $Error::Depth; Carp::croak (qq); } } # $al #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4912)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4914)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4916)" } } sub target_namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4933)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4931)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4929)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4918)" $r = defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4919)" 'dns' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4921)" } ? ${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4922)" 'dns' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4924)" }} : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4925)" undef #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=targetNamespaceURI][@Type=DIS|AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4927)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4928)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4930)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4932)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4934)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4935)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISModuleLite', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'target_namespace_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4936)" } } sub is_type_uri ($$) { my ($self, $typeURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4965)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4937)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4938)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4958)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4956)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4954)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4940)" $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4941)" database #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4943)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4944)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4946)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4947)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#Module' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4949)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4950)" is_type_uri #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4952)" ($typeURI); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4953)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4955)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4957)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4959)" } #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4963)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4961)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4962)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4964)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4966)" } $r} $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 2; package Message::Util::IFLatest::DISFor; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISForDefinition; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::DIS::Perl::ManakaiDISAnyResourcePerl', 'Message::Util::DIS::ManakaiDISAnyResource', 'Message::Util::Error::DOMException::ManakaiDefaultExceptionHandler', 'Message::Util::IF::DISFor', 'Message::Util::IFLatest::DISFor'; sub uris ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4974)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=DISPerl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4972)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=DISPerl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4970)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=DISPerl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4968)" $r = [$self->{uri}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4969)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4971)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4973)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4975)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4976)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISForDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uris'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4977)" } } sub isa_uri ($$) { my ($self, $superURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4986)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4984)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4979)" $r = $self->{uri} eq $superURI ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4980)" 1 : #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4982)" $self->{isa}->{$superURI}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4983)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4985)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4987)" } $r} sub add_isa ($$) { my ($self, $superFor) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5019)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4991)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4989)" @from = ($self->{uri}, grep {$self->{revISA}->{$_}} keys %{$self->{revISA}}); my @to = ($superFor->{uri}, grep {$superFor->{isa}->{$_}} keys %{$superFor->{isa}}); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4990)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4992)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5012)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5010)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5008)" for #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4994)" my $from (@from) { for my $to (@to) { $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4995)" get_for #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4997)" ($from)->{isa}->{$to} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4998)" 1 #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5000)" ; $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5001)" get_for #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5003)" ($to)->{revISA}->{$from} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5004)" 1 #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5006)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5007)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5009)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5011)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5013)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5017)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5015)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5016)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5018)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5020)" } } sub get_feature ($$$) { my ($self, $feature, $version) = @_; { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #5026)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #5024)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #5022)" $feature = lc $feature; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5023)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5025)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5027)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #5033)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #5031)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #5029)" $version = '' unless defined $version; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5030)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5032)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5034)" } my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5040)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5038)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5036)" $feature =~ s/^\+//; CLASS: for my $class (grep { $Message::Util::DIS::ManakaiDISForDefinition::CompatClass{$_} } keys %Message::Util::DIS::ManakaiDISForDefinition::CompatClass) { if ($Message::DOM::ClassFeature{$class}->{$feature}->{$version}) { $r = bless {o => $self}, $class; last CLASS; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5037)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5039)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5041)" } $r} sub is_anonymous ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5052)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5050)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5048)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5043)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5044)" 1 #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5046)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5047)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5049)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5051)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5053)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5054)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISForDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'is_anonymous'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5055)" } } sub for_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5066)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5064)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5062)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5057)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5058)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5060)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5061)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5063)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5065)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5067)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5068)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISForDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'for_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5069)" } } sub forp_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5077)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5075)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5073)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5071)" $r = []; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5072)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5074)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5076)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5078)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5079)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISForDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'forp_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5080)" } } sub is_for_uri ($$) { my ($self, $forURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5089)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5087)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5082)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5083)" 1 #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5085)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5086)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5088)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5090)" } $r} sub name_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5098)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5096)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5094)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5092)" $r = $self->{uri}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5093)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5095)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5097)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5099)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5100)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISForDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'name_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5101)" } } sub is_type_uri ($$) { my ($self, $typeURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5130)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5102)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5103)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5123)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5121)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5119)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5105)" $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5106)" database #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5108)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5109)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5111)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5112)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#For' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5114)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5115)" is_type_uri #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5117)" ($typeURI); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5118)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5120)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5122)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5124)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5128)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISFor][@QName=ManakaiDISForDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5126)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5127)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5129)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5131)" } $r} $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#perl', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 3; $Message::Util::DIS::ManakaiDISForDefinition::CompatClass{q} = 1; package Message::Util::IFLatest::DISResource; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISResourceDefinition; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::DIS::ManakaiDISResourceMV', 'Message::Util::DIS::Perl::ManakaiDISResourcePerl', 'Message::Util::DIS::Perl::ManakaiDISPerlModuleDefinition', 'Message::Util::DIS::Perl::ManakaiDISAnyResourcePerl', 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'Message::Util::DIS::ManakaiDISAnyResource', 'Message::Util::Error::DOMException::ManakaiDefaultExceptionHandler', 'Message::Util::IF::DISResource', 'Message::Util::IFLatest::DISResource'; sub uris ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5139)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=DISPerl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5137)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=DISPerl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5135)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=DISPerl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5133)" $r = [grep {$self->{aliasURI}->{$_}} keys %{$self->{aliasURI}}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5134)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5136)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5138)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5140)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5141)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'uris'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5142)" } } sub is_subset_of_uri ($$) { my ($self, $superURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5148)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5146)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5144)" $r = $self->{aliasURI}->{$superURI} || $self->{subOf}->{$superURI}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5145)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5147)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5149)" } $r} sub add_super_resource ($$) { my ($self, $superRes) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5181)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5153)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5151)" @from = ($self->{uri}, grep {$self->{supOf}->{$_}} keys %{$self->{supOf}||{}}); my @to = ($superRes->{uri}, grep {$superRes->{subOf}->{$_}} keys %{$superRes->{subOf}||{}}); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5152)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5154)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5174)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5172)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5170)" for #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5156)" my $from (@from) { for my $to (@to) { $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5157)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5159)" ($from)->{subOf}->{$to} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5160)" 1 #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5162)" ; $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5163)" get_resource #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5165)" ($to)->{supOf}->{$from} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5166)" 1 #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5168)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5169)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5171)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5173)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5175)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5179)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5177)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5178)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5180)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5182)" } } sub merge_as_alias ($$%) { my ($self, $aliasResource, %opt) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5234)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5186)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5184)" ($self eq $aliasResource) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5185)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5187)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node}, '-type' => 'HIERARCHY_REQUEST_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'merge_as_alias', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#MERGE_ITSELF_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{uri}; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5206)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5189)" ; } for my $uri ($aliasResource->{uri}, grep {$aliasResource->{aliasURI}->{$_}} keys %{$aliasResource->{aliasURI}}) { $self->{aliasURI}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5190)" 1 #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5192)" ; $self->{db}->{resDef}->{$uri} = $self; $self->{subOf}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5193)" 1 #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5195)" ; $self->{supOf}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5196)" 1 #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5198)" ; } for my $uri (grep {$aliasResource->{subOf}->{$_}} keys %{$aliasResource->{subOf}||{}}) { $self->{subOf}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5199)" 1 #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5201)" ; } for my $uri (grep {$aliasResource->{supOf}->{$_}} keys %{$aliasResource->{supOf}||{}}) { $self->{supOf}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5202)" 1 #line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5204)" ; } my @from = grep {$self->{supOf}->{$_}} keys %{$self->{supOf}||{}}; my @to = grep {$self->{subOf}->{$_}} keys %{$self->{subOf}||{}}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5205)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5207)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5227)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5225)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5223)" for #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5209)" my $from (@from) { for my $to (@to) { $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5210)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5212)" ($from)->{subOf}->{$to} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5213)" 1 #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5215)" ; $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5216)" get_resource #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5218)" ($to)->{supOf}->{$from} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5219)" 1 #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5221)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5222)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5224)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5226)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5228)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5232)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5230)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5231)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5233)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5235)" } } sub is_type_uri ($$) { my ($self, $typeURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5288)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5248)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5237)" (not $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5238)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5240)" }) { # } elsif ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5241)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5243)" }->{$typeURI}) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5244)" 1 #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5246)" ; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5247)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5249)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5281)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5279)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5277)" C: #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5251)" for my $t_type_uri (grep {$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5252)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5254)" }->{$_}} keys %{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5255)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5257)" }}) { my $t_type = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5258)" database #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5260)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5261)" get_resource #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5263)" ($t_type_uri); if ($t_type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5264)" is_subset_of_uri #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5266)" ($typeURI)) { $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5267)" add_peoperty_uri_ulist #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5269)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5270)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5272)" , $typeURI); $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5273)" 1 #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5275)" ; last C; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5276)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5278)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5280)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5282)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5286)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5284)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5285)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5287)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5289)" } $r} sub dis_data_type_resource ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5334)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5332)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5290)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5291)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5320)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5318)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5316)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5293)" (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5294)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5296)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5297)" 'Message::Util::IF::DVURIValue' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5299)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5300)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5302)" }-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5303)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5305)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5306)" database #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5308)" ); } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5309)" dynamic_parent_resource #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5311)" ; $r = $pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5312)" dis_data_type_resource if #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5314)" $pr; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5315)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5317)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5319)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5321)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5325)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5323)" ; unless ($r) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5324)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5326)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->source_element, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DIS_TYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_data_type_resource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->uri; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5330)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5328)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5329)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5331)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5333)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5335)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5336)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_data_type_resource'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5337)" } } sub dis_data_type_value ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5376)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5374)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5338)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5339)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5362)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5360)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5358)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5341)" (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5342)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5344)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5345)" 'Message::Util::IF::DVURIValue' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5347)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5348)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5350)" }; } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5351)" dynamic_parent_resource #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5353)" ; $r = $pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5354)" dis_data_type_value if #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5356)" $pr; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5357)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5359)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5361)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5363)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5367)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5365)" ; unless ($r) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5366)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5368)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->source_element, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DIS_TYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_data_type_value', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->uri; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5372)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disDataTypeValue][@type=DISLang:Attribute]/Get[@Type=dv|DVURIValue][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5370)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5371)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5373)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5375)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5377)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5378)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_data_type_value'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5379)" } } sub dis_actual_data_type_resource ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5439)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5437)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5380)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5381)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5425)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5423)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5421)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5383)" (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5384)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5386)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5387)" 'Message::Util::IF::DVURIValue' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5389)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5390)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5392)" }-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5393)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5395)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5396)" database #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5398)" ); } elsif (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5399)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5401)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5402)" 'Message::Util::IF::DVURIValue' #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5404)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5405)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5407)" }-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5408)" get_resource #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5410)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5411)" database #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5413)" ); } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5414)" dynamic_parent_resource #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5416)" ; $r = $pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5417)" dis_actual_data_type_resource if #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5419)" $pr; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5420)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5422)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5424)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5426)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5430)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5428)" ; unless ($r) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5429)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5431)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->source_element, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DIS_TYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_actual_data_type_resource', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->uri; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5435)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5433)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5434)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5436)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5438)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5440)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5441)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_actual_data_type_resource'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5442)" } } sub dis_actual_data_type_value ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5490)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5488)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5443)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5444)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5476)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5474)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5472)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5446)" (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5447)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5449)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5450)" 'Message::Util::IF::DVURIValue' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5452)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5453)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5455)" }; } elsif (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5456)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5458)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5459)" 'Message::Util::IF::DVURIValue' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5461)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5462)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5464)" }; } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5465)" dynamic_parent_resource #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5467)" ; $r = $pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5468)" dis_actual_data_type_value if #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5470)" $pr; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5471)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5473)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5475)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5477)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5481)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5479)" ; unless ($r) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5480)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5482)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->source_element, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DIS_TYPE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_actual_data_type_value', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->uri; #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5486)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disActualDataTypeValue][@type=DISLang:Attribute]/Get[@Type=DISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5484)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5485)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5487)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5489)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5491)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5492)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_actual_data_type_value'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5493)" } } sub _add_child_resource ($$) { my ($self, $disResource) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5526)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5504)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5505)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5519)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5517)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5515)" push #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5507)" @{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5508)" 'curis' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5510)" }||=[]}, $disResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5511)" uri_ref #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5513)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5514)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5516)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5518)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5520)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5524)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5522)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5523)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5525)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5527)" } } sub _add_dynamic_child_resource ($$) { my ($self, $disResource) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5550)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5528)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5529)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5543)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5541)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5539)" push #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5531)" @{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5532)" 'dcuris' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5534)" }||=[]}, $disResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5535)" uri_ref #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5537)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5538)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5540)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5542)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5544)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5548)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addDynamicChildResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5546)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5547)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5549)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5551)" } } sub get_child_resource_list ($) { my ($self) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5577)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5552)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5553)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5570)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5568)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5566)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5555)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5556)" database #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5558)" ; $r = [map { $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5559)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5561)" ($$_) } @{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5562)" 'curis' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5564)" }}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5565)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5567)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5569)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5571)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5575)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5573)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5574)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5576)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5578)" } $r} sub get_dynamic_child_resource_list ($) { my ($self) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5604)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5579)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5580)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5597)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5595)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5593)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5582)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5583)" database #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5585)" ; $r = [map { $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5586)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5588)" ($$_) } @{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5589)" 'dcuris' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5591)" }}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5592)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5594)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5596)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5598)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5602)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getDynamicChildResourceList][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5600)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5601)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5603)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5605)" } $r} sub get_child_resource_by_type ($$) { my ($self, $typeURI) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5634)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5606)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5607)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5627)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5625)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5623)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5609)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5610)" database #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5612)" ; C: for my $cr_uri (@{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5613)" 'curis' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5615)" }||[]}) { my $cr = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5616)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5618)" ($$cr_uri); if ($cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5619)" is_type_uri #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5621)" ($typeURI)) { $r = $cr; last C; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5622)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5624)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5626)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5628)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5632)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5630)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5631)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5633)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5635)" } $r} sub get_child_resource_list_by_type ($$) { my ($self, $typeURI) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5664)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5636)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5637)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5657)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5655)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5653)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5639)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5640)" database #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5642)" ; $r = [grep { $_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5643)" is_type_uri #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5645)" ($typeURI) } map { $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5646)" get_resource #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5648)" ($$_) } @{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5649)" 'curis' #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5651)" }||[]}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5652)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5654)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5656)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5658)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5662)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceListByType][@type=DISLang:Method]/Return[@Type=DIS|ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5660)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5661)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5663)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5665)" } $r} sub get_child_resource_by_name_and_type ($$$) { my ($self, $localName, $typeURI) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5697)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5666)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5667)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5690)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5688)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5686)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5669)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5670)" database #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5672)" ; C: for my $cr_uri (@{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5673)" 'curis' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5675)" }||[]}) { my $cr = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5676)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5678)" ($$cr_uri); my $ln = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5679)" local_name #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5681)" ; if (defined $ln and $ln eq $localName and $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5682)" is_type_uri #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5684)" ($typeURI)) { $r = $cr; last C; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5685)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5687)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5689)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5691)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5695)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5693)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5694)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5696)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5698)" } $r} sub get_const_resource_by_name ($$) { my ($self, $localName) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5745)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5699)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5700)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5738)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5736)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5734)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5702)" @constGroup; my $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5703)" database #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5705)" ; C: for my $cr_uri (@{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5706)" 'curis' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5708)" }||[]}) { my $cr = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5709)" get_resource #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5711)" ($$cr_uri); my $ln = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5712)" local_name #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5714)" ; if ($ln and $ln eq $localName and $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5715)" is_type_uri #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5717)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5718)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Const' #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5720)" )) { $r = $cr; last C; } elsif ($cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5721)" is_type_uri #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5723)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5724)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#ConstGroup' #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5726)" )) { push @constGroup, $cr; } } unless ($r) { D: for my $cg (@constGroup) { $r = $cg-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5727)" get_child_resource_by_name_and_type #line 17 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5729)" ($localName, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5730)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Const' #line 18 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5732)" ); last D if $r; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5733)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5735)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5737)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5739)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5743)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5741)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5742)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5744)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5746)" } $r} sub parent_resource ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5777)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5775)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5747)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5748)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5768)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5766)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5764)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5750)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5751)" 'puri' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5753)" }) { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5754)" database #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5756)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5757)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5759)" (${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5760)" 'puri' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5762)" }}); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5763)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5765)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5767)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5769)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5773)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5771)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5772)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5774)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5776)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5778)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5806)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #5804)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #5779)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5780)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5797)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #5795)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #5793)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #5782)" ($given) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5783)" 'puri' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #5785)" } = $given-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5786)" uri_ref #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #5788)" ; } else { CORE::delete $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5789)" 'puri' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #5791)" }; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5792)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5794)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5796)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5798)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #5802)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=parentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #5800)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5801)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5803)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5805)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5807)" } } sub dynamic_parent_resource ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5838)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5836)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5808)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5809)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5829)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5827)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5825)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5811)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5812)" 'dpuri' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5814)" }) { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5815)" database #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5817)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5818)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5820)" (${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5821)" 'dpuri' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5823)" }}); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5824)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5826)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5828)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5830)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5834)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5832)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5833)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5835)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5837)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5839)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5867)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #5865)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #5840)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5841)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5858)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #5856)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #5854)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #5843)" ($given) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5844)" 'dpuri' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #5846)" } = $given-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5847)" uri_ref #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #5849)" ; } else { CORE::delete $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5850)" 'dpuri' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #5852)" }; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5853)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5855)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5857)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5859)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #5863)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=dynamicParentResource][@Type=DIS|DISResource][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #5861)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5862)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5864)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5866)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5868)" } } sub owner_class_node_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5911)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5909)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5878)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5870)" (exists $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5871)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5873)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5874)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5876)" }; } else { my $res = $self; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5877)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5879)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5899)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5897)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5895)" RES: #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5881)" { if ($res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5882)" is_type_uri #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5884)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5885)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5887)" )) { $r = $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5888)" source_node_id #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5890)" ; } else { $res = $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5891)" parent_resource #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5893)" ; redo RES if $res; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5894)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5896)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5898)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5900)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5907)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5902)" ; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5903)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5905)" } = $r; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5906)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5908)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5910)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5912)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5913)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_class_node_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5914)" } } sub dis_is_null_value ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5931)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5929)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5927)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5916)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5917)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5919)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5920)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5922)" }-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5923)" is_null #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5925)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5926)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5928)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5930)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5932)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5933)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'dis_is_null_value'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5934)" } } sub is_feature_provided ($$) { my ($self, $featureResourceURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5975)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5935)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5936)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5968)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5966)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5964)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5938)" @f = @{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5939)" get_property_resource_list #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5941)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5942)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#implementFeature' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5944)" , isa_recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5945)" 1 #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5947)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5948)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5950)" )}; if (@f) { for my $f (@f) { if ($f-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5951)" is_subset_of_uri #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5953)" ($featureResourceURI)) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5954)" 1 #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5956)" ; last; } } } else { my $parent = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5957)" parent_resource #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5959)" ; $r = $parent-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5960)" is_feature_provided #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5962)" ($featureResourceURI) if $parent; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5963)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5965)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5967)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5969)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5973)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5971)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5972)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5974)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5976)" } $r} sub feature_name_list ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6025)" my ($self) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6023)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5977)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5978)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6016)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6014)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6012)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5980)" $r = [map {lc} @{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5981)" get_property_text_list #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5983)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5984)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/feature#name' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5986)" )}]; unless (@$r) { ## TODO: instance feature my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5987)" parent_resource #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5989)" ; if ($pr) { if ($pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5990)" is_type_uri #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5992)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5993)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/feature#Feature' #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5995)" ) and not $pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5996)" is_anonymous #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5998)" ) { push @$r, @{$pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5999)" feature_name_list #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6001)" }; } } } unless (@$r) { if ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6002)" is_anonymous #line 15 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6004)" ) { my $ln = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6005)" local_name #line 16 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6007)" ; push @$r, lc $ln if defined $ln; } else { push @$r, lc $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6008)" name_uri #line 19 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6010)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6011)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6013)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6015)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6017)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6021)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=DISPerl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6019)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6020)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6022)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6024)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6026)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6027)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'feature_name_list'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6028)" } } sub get_feature ($$$) { my ($self, $feature, $version) = @_; { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #6034)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #6032)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #6030)" $feature = lc $feature; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6031)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6033)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6035)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #6041)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #6039)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=DISLang|DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #6037)" $version = '' unless defined $version; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6038)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6040)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6042)" } my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6048)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6046)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6044)" $feature =~ s/^\+//; CLASS: for my $class (grep { $Message::Util::DIS::ManakaiDISResourceDefinition::CompatClass{$_} } keys %Message::Util::DIS::ManakaiDISResourceDefinition::CompatClass){ if ($Message::DOM::ClassFeature{$class}->{$feature}->{$version}) { $r = bless {o => $self}, $class; last CLASS; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6045)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6047)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6049)" } $r} sub multiple_properties_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6086)" my ($self) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6084)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6050)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6051)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6077)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6075)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6073)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6053)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6054)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6056)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6057)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6059)" } -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6060)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6062)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6063)" database #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6065)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6066)" uri #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6068)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6069)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#OrderedList' #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6071)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6072)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6074)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6076)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6078)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6082)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=multiplePropertiesURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6080)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6081)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6083)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6085)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6087)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6088)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'multiple_properties_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6089)" } } sub default_lextype_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6126)" my ($self) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6124)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6090)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6091)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6117)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6115)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6113)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6093)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6094)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6096)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6097)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6099)" } -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6100)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6102)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6103)" database #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6105)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6106)" uri #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6108)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6109)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#String' #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6111)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6112)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6114)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6116)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6118)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6122)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=defaultLextypeURI][@Type=DISLang|String||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6120)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6121)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6123)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6125)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6127)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6128)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'default_lextype_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6129)" } } use overload bool => sub () {1}, '<=>' => sub ($$) { my ($self, $anotherResource) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5502)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5500)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5495)" (UNIVERSAL::isa ($anotherResource, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5496)" 'Message::Util::DIS::ManakaiDISResourceDefinition' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5498)" )) { $r = $self->{seq} <=> $anotherResource->{seq}; } else { $r = $self->{uri} <=> $anotherResource; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5499)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5501)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5503)" } $r} , fallback => 1; $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#perl', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 7; $Message::Util::DIS::ManakaiDISResourceDefinition::CompatClass{q} = 1; package Message::Util::IFLatest::DISResourceMV; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISResourceMV; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::IF::DISResourceMV', 'Message::Util::IFLatest::DISResourceMV'; sub mv_local_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6163)" my ($self) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6161)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6130)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6131)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6154)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6152)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6150)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6133)" (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6134)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6136)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6137)" 'Message::Util::IF::DVQNameValue' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6139)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6140)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6142)" }-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6143)" local_name #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6145)" ; } else { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6146)" local_name #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6148)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6149)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6151)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6153)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6155)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6159)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6157)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6158)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6160)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6162)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6164)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6165)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceMV', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'mv_local_name'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6166)" } } sub mv_prefix ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6200)" my ($self) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6198)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6167)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6168)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6191)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6189)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6187)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6170)" (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6171)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6173)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6174)" 'Message::Util::IF::DVQNameValue' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6176)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6177)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6179)" }-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6180)" prefix #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6182)" ; } unless (defined $r) { my $nsuri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6183)" mv_namespace_uri #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6185)" ; if (defined $nsuri and $nsuri =~ /([A-Za-z]\w*)\W*$/) { $r = $1; } elsif (defined $nsuri) { $r = 'ns'; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6186)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6188)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6190)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6192)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6196)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6194)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6195)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6197)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6199)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6201)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6202)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceMV', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'mv_prefix'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6203)" } } sub mv_namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6237)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6235)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6204)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6205)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6228)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6226)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6224)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6207)" (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6208)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6210)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6211)" 'Message::Util::IF::DVQNameValue' #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6213)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6214)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6216)" }-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6217)" namespace_uri #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6219)" ; } else { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6220)" namespace_uri #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6222)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6223)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6225)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6227)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6229)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6233)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6231)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6232)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6234)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6236)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6238)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6239)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceMV', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'mv_namespace_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6240)" } } sub mv_owner_element_resource ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6283)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6281)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6241)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6242)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6274)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6272)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6270)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6244)" (exists $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6245)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI' #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6247)" }) { $r = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6248)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6250)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6251)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6253)" }) if defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6254)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6256)" }; } else { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6257)" parent_resource #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6259)" ; undef $r unless $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6260)" is_type_uri #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6262)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6263)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Markup#AnyOwnerElement' #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6265)" ); $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6266)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI' #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6268)" } = $r->{uri} if $r; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6269)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6271)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6273)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6275)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6279)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceMV][@QName=ManakaiDISResourceMV][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=mvOwnerElementResource][@Type=DISResource][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6277)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6278)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6280)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6282)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6284)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6285)" my ($self) = @_; report Message::Util::Error::DOMException::CoreException -object => $self, '-type' => 'NO_MODIFICATION_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISResourceMV', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'mv_owner_element_resource'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6286)" } } $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 1; package Message::Util::IFLatest::DISResourceProp; our $VERSION = 20051012.1347; package Message::Util::DIS::ManakaiDISPropertyAccessor; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::IF::DISResourceProp', 'Message::Util::IFLatest::DISResourceProp'; sub get_property_value ($$) { my ($self, $propName) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValue][@type=DISLang:Method]/Return[@Type=dv|DVValue][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6298)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValue][@type=DISLang:Method]/Return[@Type=dv|DVValue][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6296)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValue][@type=DISLang:Method]/Return[@Type=dv|DVValue][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6288)" ($self->{$propName}) { $r = $self->{$propName}->[0]; } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6289)" database #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValue][@type=DISLang:Method]/Return[@Type=dv|DVValue][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6291)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6292)" get_resource #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValue][@type=DISLang:Method]/Return[@Type=dv|DVValue][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6294)" ($propName); A: for (grep {$pr->{aliasURI}->{$_} or $pr->{supOf}->{$_}} (keys %{$pr->{aliasURI}}, keys %{$pr->{supOf}||{}})) { my $v = $self->{$_}; if ($v) { $r = $v->[0]; last A; } } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6295)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6297)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6299)" } $r} sub get_property_value_list ($$) { my ($self, $propName) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6311)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6309)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6301)" $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6302)" database #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6304)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6305)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyValueList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6307)" ($propName); $r = [map {@$_} grep {defined $_} map {$self->{$_}} grep {$pr->{aliasURI}->{$_} or $pr->{supOf}->{$_}} (keys %{$pr->{aliasURI}}, keys %{$pr->{supOf}||{}})]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6308)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6310)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6312)" } $r} sub get_property_boolean ($$$) { my ($self, $propName, $default) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6342)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6340)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6314)" (ref $self->{$propName}) { $r = $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6315)" value #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6317)" ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6318)" 1 : #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6320)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6321)" 0 #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6323)" ; $r = $default unless defined $r; } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6324)" database #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6326)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6327)" get_resource #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6329)" ($propName); C: { for (map {$self->{$_}} grep {$pr->{aliasURI}->{$_} or $pr->{supOf}->{$_}} (keys %{$pr->{aliasURI}}, keys %{$pr->{supOf}||{}})) { if (defined $_) { $r = $_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6330)" value #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6332)" ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6333)" 1 : #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6335)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6336)" 0 #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6338)" ; last C; } } $r = $default; } # C } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6339)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6341)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6343)" } $r} sub get_property_text ($$;$) { my ($self, $propName, $default) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6361)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6359)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6345)" (defined $self->{$propName}) { $r = $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6346)" string_value #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6348)" ; $r = $default unless defined $r; } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6349)" database #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6351)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6352)" get_resource #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6354)" ($propName); C: { for (map {$self->{$_}} grep {$pr->{aliasURI}->{$_} or $pr->{supOf}->{$_}} (keys %{$pr->{aliasURI}}, keys %{$pr->{supOf}||{}})) { if (defined $_) { $r = $_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6355)" string_value #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6357)" ; last C; } } $r = $default; } # C } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6358)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6360)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6362)" } $r} sub get_property_text_list ($$%) { my ($self, $propName, %opt) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6377)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6375)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6364)" $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6365)" database #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6367)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6368)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6370)" ($propName); $r = [map {$_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6371)" string_value #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyTextList][@type=DISLang:Method]/Return[@Type=DISPerl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6373)" } map {@$_} grep {$_} map {$self->{$_}} grep {$pr->{aliasURI}->{$_} or $pr->{supOf}->{$_}} (keys %{$pr->{aliasURI}}, keys %{$pr->{supOf}||{}})]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6374)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6376)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6378)" } $r} sub get_property_resource ($$%) { my ($self, $propName, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6407)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6379)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6380)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6400)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6398)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6396)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6382)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6383)" get_property_value #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6385)" ($propName); if (UNIVERSAL::isa ($v, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6386)" 'Message::Util::IF::DVURIValue' #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6388)" )) { $r = $v-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6389)" get_resource #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6391)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6392)" database #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6394)" ); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6395)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6397)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6399)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6401)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6405)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=DIS|DISAnyResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6403)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6404)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6406)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6408)" } $r} sub get_property_resource_list ($$%) { my ($self, $propName, %opt) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6557)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6412)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6410)" $r = []; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6411)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6413)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6445)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6443)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6441)" my #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6415)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6416)" get_property_value_list #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6418)" ($propName); my $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6419)" database #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6421)" ; for my $a (@$v) { if ($a->isa ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6422)" 'Message::Util::IF::DVURIValue' #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6424)" )) { push @$r, $a-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6425)" get_resource #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6427)" ($db); } if ($opt{isa_recursive}) { my $b = $a-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6428)" get_property #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6430)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6431)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#stopISARecursive' #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6433)" ); if ($b and $b-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6434)" value #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6436)" ) { $opt{isa_recursive} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6437)" 0 #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6439)" ; } } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6440)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6442)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6444)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6446)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6450)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6448)" ; if ($opt{recursive}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6449)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6451)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6471)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6469)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6467)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6453)" $opt{___recursive_isa_done} ||= {$self->{uri} => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6454)" 1 #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6456)" }; my @p_res = @$r; for my $p_res (@p_res) { next if $opt{___recursive_isa_done}->{$p_res->{uri}}; $opt{___recursive_isa_done}->{$p_res->{uri}} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6457)" 1 #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6459)" ; push @$r, @{$p_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6460)" get_property_resource_list #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6462)" ($propName, recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6463)" 1 #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6465)" , recursive_isa => $opt{recursive_isa}, ___recursive_isa_done => $opt{___recursive_isa_done}, default_media_type => $opt{default_media_type})}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6466)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6468)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6470)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6472)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6476)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6474)" ; } if ($opt{recursive_isa}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6475)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6477)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6500)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6498)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6496)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6479)" $opt{___recursive_isa_done} ||= {$self->{uri} => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6480)" 1 #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6482)" }; my @p_res = @$r; for my $p_res (@p_res) { next if $opt{___recursive_isa_done}->{$p_res->{uri}}; $opt{___recursive_isa_done}->{$p_res->{uri}} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6483)" 1 #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6485)" ; push @$r, @{$p_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6486)" get_property_resource_list #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6488)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6489)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA' #line 8 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6491)" , recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6492)" 1 #line 9 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6494)" , ___recursive_isa_done => $opt{___recursive_isa_done}, default_media_type => $opt{default_media_type})}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6495)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6497)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6499)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6501)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6505)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6503)" ; } if ($opt{isa_recursive}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6504)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6506)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6550)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6548)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6546)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6508)" $opt{___recursive_isa_done} ||= {$self->{uri} => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6509)" 1 #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6511)" }; $opt{___isa_recursive_done} ||= {$self->{uri} => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6512)" 1 #line 3 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6514)" }; my @p_res = @{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6515)" get_property_resource_list #line 4 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6517)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6518)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA' #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6520)" , recursive_isa => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6521)" 0 #line 5 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6523)" , recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6524)" 0 #line 6 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6526)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6527)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 7 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6529)" )}; for my $p_res (@p_res) { next if $opt{___isa_recursive_done}->{$p_res->{uri}}; $opt{___isa_recursive_done}->{$p_res->{uri}} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6530)" 1 #line 10 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6532)" ; push @$r, @{$p_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6533)" get_property_resource_list #line 11 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6535)" ($propName, recursive_isa => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6536)" 0 #line 12 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6538)" , recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6539)" 0 #line 13 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6541)" , isa_recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6542)" 1 #line 14 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6544)" , ___isa_recursive_done => $opt{___isa_recursive_done}, default_media_type => $opt{default_media_type})}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6545)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6547)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6549)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6551)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6555)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6553)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6554)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6556)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6558)" } $r} sub add_property_resource_list ($$$) { my ($self, $propName, $res) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6655)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6562)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6560)" ($self->{$propName}) { my $uriv; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6561)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6563)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6592)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6573)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6565)" $uriv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6566)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6568)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6569)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6571)" , $res->uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6572)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6574)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6585)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6583)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6581)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6576)" $uriv-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6577)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6579)" ($propName); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6580)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6582)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6584)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6586)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6590)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6588)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6589)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6591)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6593)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6600)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6595)" ; $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6596)" add_item #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6598)" ($uriv); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6599)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6601)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6610)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6608)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6603)" $self->{$propName} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6604)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_ordered_list #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVOrderedList][@QName=ManakaiDVOrderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createOrderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6606)" ('http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI', base_type => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6607)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6609)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6611)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6615)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6613)" ; my $uriv; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6614)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6616)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6645)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6626)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6618)" $uriv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6619)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6621)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6622)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6624)" , $res->uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6625)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6627)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6638)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6636)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6634)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6629)" $uriv-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6630)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6632)" ($propName); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6633)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6635)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6637)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6639)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6643)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6641)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6642)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6644)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6646)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6653)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6648)" ; $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6649)" add_item #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6651)" ($uriv); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6652)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6654)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6656)" } } sub add_property_resource_ulist ($$$) { my ($self, $propName, $res) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6753)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6660)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6658)" ($self->{$propName}) { my $uriv; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6659)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6661)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6690)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6671)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6663)" $uriv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6664)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6666)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6667)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6669)" , $res->uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6670)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6672)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6683)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6681)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6679)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6674)" $uriv-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6675)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6677)" ($propName); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6678)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6680)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6682)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6684)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6688)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6686)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6687)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6689)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6691)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6698)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6693)" ; $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6694)" add_item #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6696)" ($uriv); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6697)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6699)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6708)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6706)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6701)" $self->{$propName} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6702)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_unordered_list #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6704)" ('http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI', base_type => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6705)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6707)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6709)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6713)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6711)" ; my $uriv; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6712)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6714)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6743)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6724)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6716)" $uriv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6717)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6719)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6720)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6722)" , $res->uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6723)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6725)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6736)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6734)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6732)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6727)" $uriv-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6728)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6730)" ($propName); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6731)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6733)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6735)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6737)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6741)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6739)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6740)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6742)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6744)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6751)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6746)" ; $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6747)" add_item #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyResourceUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6749)" ($uriv); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6750)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6752)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6754)" } } sub add_peoperty_uri_ulist ($$$) { my ($self, $propName, $uri) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6862)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6755)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6756)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6855)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6853)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6760)" if #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6758)" ($self->{$propName}) { my $uriv; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6759)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6761)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6790)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6771)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6763)" $uriv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6764)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6766)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6767)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6769)" , $uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6770)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6772)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6783)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6781)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6779)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6774)" $uriv-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6775)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6777)" ($propName); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6778)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6780)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6782)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6784)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6788)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6786)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6787)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6789)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6791)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6798)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6793)" ; $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6794)" add_item #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6796)" ($uriv); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6797)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6799)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6808)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6806)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6801)" $self->{$propName} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6802)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_unordered_list #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DVUnorderedList][@QName=ManakaiDVUnorderedList][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createUnorderedList][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6804)" ('http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI', base_type => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6805)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6807)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6809)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6813)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6811)" ; my $uriv; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6812)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6814)" { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6843)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6824)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6816)" $uriv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6817)" Message::Util::DIS::Value::ManakaiDISImplementationValue->create_dv_value #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6819)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6820)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6822)" , $uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6823)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6825)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6836)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #6834)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6832)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6827)" $uriv-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6828)" name #line 2 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6830)" ($propName); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6831)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6833)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6835)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6837)" } #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [bc] (Chunk #6841)" #line 1 "/document (lib/Message/Util/DIS/Value.dis)/IFClsDef[@QName=DISImplementationValue][@QName=ManakaiDISImplementationValue][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/ResourceDef[@QName=createURI][@type=dis2pm|BlockCode]/PerlDef [u] (Chunk #6839)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6840)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6842)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6844)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6851)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6846)" ; $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6847)" add_item #line 2 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6849)" ($uriv); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6850)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6852)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6854)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6856)" } #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6860)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResourceProp][@QName=ManakaiDISPropertyAccessor][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Method[@Name=addPropertyURIUList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6858)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6859)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6861)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6863)" } } $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 1; package Message::Util::IFLatest::DISException; our $VERSION = 20051012.1347; push our @ISA, 'Message::Util::Error'; sub HIERARCHY_REQUEST_ERR { 3} sub NOT_SUPPORTED_ERR { 9} sub INVALID_STATE_ERR { 11} sub INVALID_SOURCE_ERR { 501} sub ___error_def { #line 1 "lib/Message/Util/DIS.dis [u] (Chunk #6865)" {'HIERARCHY_REQUEST_ERR', {'description', '3', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#code', '3', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype', {'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#MERGE_ITSELF_ERR', {'description', 'An attempt is made to merge the resource <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri} );> to itself'}}}, 'INVALID_SOURCE_ERR', {'description', '501', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#code', '501', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype', {'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#BROKEN_PARAM_SPEC_ERR', {'description', '%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode}, prefix => {"}, suffix => {": });Broken parameter specification'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#DISPERL_NO_VALUE_ALLOWED_ERR', {'description', 'An element node have a value but the definition of that element type does not allow it.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ELEMENT_NOT_ALLOWED_ERR', {'description', 'Module <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});>: Element of type <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType});> is not allowed here'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#FOR_ALREADY_DEFINED_ERR', {'description', ' <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});> is already defined'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#FOR_NOT_DEFINED_ERR', {'description', ' <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});> is not defined'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#INTERFACE_CLASS_METHOD_ERR', {'description', 'An attempt is made to call a static (class) method from an interface.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NON_NAMED_PARAMETER_AFTER_NAMED_ERR', {'description', 'A non-named method parameter following any named method parameter is occurred.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_ATTR_GET_ERR', {'description', 'A resource does not have any child.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_ATTR_SET_ERR', {'description', 'An attribute setter is referred but the attribute does not define any setter.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_CONST_VALUE_ERR', {'description', 'The source element node for a constant value resource does not have attribute.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DIS_TYPE_ERR', {'description', 'Resource "%t (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});" has no "dis:Type" attribute'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_END_TAG_ERR', {'description', 'End tag for element "%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType});" is required%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode}, prefix => { (}, suffix => {)});'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_EXCEPTION_CLASS_ERR', {'description', 'Exception interface <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});>: There is no class that implements this interface'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_FOR_QNAME_ERR', {'description', 'A element must have attribute.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_LICENSE_ATTR_ERR', {'description', 'The element does not have the attribute.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_LOCAL_NAME_ERR', {'description', 'The resource does not have a local name.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_METHOD_RETURN_ERR', {'description', 'Method "%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName});" does not have "Return" child'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_MODULE_QNAME_ERR', {'description', 'The element must have its attribute.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_PERL_PACKAGE_NAME_ERR', {'description', '%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri}, prefix => {<}, suffix => {>: });Perl package name is not defined'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_RDF_TYPE_ERR', {'description', 'Resource%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri}, prefix => { "}, suffix => {"}); does not have "rdf:type" attribute'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_REFLECT_GET_DEFINED_ERR', {'description', 'An attribute is defined to reflect an element attribute but no reflecting attribute getter template is defined.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_REFLECT_SET_DEFINED_ERR', {'description', 'An attribute is defined to reflect an element attribute but no reflecting attribute setter template is defined.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_REQUIRED_ATTR_ERR', {'description', 'Attribute <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType});> must be specified'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_SOURCE_NODE_ERR', {'description', 'A resource does not have associated node in the source tree.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_CODE_NOT_DEFINED_ERR', {'description', 'Resource%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri}, prefix => { "}, suffix => {"}); has no Perl code definition'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_HASH_KEY_ALREADY_DEFINED_ERR', {'description', '<%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});>: Hash key "%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#hashKeyName});" in <%p (mame => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#hashKeyScope});> is already defined for <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#anotherURI});>'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_OPERATOR_ALREADY_OVERLOADED_ERR', {'description', 'A resource is defined to overload a Perl operator which is already overloaded by another resource.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_BLOCK_NOT_ALLOWED_ERR', {'description', 'A preprocessing instruction block occurred with element type which does not allow it.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_ASSERT_TYPE_ERR', {'description', 'An assertion type specification is required.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_CODE_NAME_ERR', {'description', 'A code name specification is required.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_ELEMENT_TYPE_ERR', {'description', '%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode}, prefix => {"}, suffix => {": });Element type name is not specified'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_EXCEPTION_TYPE_ERR', {'description', 'An exception type specification is required.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_FOR_ERR', {'description', 'A specification is required.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_METHOD_ERR', {'description', 'A preprocessing instruction which is only allowed in method definitions is used in a code which is not a method.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_SUBROUTINE_ALREADY_DEFINED_ERR', {'description', 'A resource defines a Perl subroutine whose name is same as another subroutine.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_UNUSED_SUBROUTINE_ERR', {'description', 'A resource defines a Perl subroutine but it is not used.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESERVED_PERL_METHOD_NAME_ERR', {'description', 'A reserved Perl method name is used.'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_ALREADY_DEFINED_ERR', {'description', '%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#moduleURI}, prefix => {Module <}, suffix => {>: }) ;Resource <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});> is already defined'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', {'description', '%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#moduleURI}, prefix => {Module <}, suffix => {>: }) ;%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodePath}, suffix => {: }) ;%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode}, prefix => {"}, suffix => {": }) ;%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#parentURI}, prefix => {(In <}, suffix => {>) }) ;Resource%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri}, prefix => { <}, suffix => {>});%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName}, prefix => { "}, suffix => {"}); is not defined or wrong type%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType}, prefix => { (<}, suffix => {> is expected)});'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNABLE_TO_GET_MODULE_ERR', {'description', 'Unable to get the module source of <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});>'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNSUPPORTED_ROLE_ERR', {'description', 'Role <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});> is not supported'}}}, 'INVALID_STATE_ERR', {'description', '11', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#code', '11', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype', {'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_ASSOCIATED_DB_ERR', {'description', 'No database has been associated with this document.'}}}, 'NOT_SUPPORTED_ERR', {'description', '9', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#code', '9', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype', {'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_PERL_CODE_IMPL_ERR', {'description', 'There is no implementation that supports the feature, version .'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNSUPPORTED_ELEMENT_TYPE_ERR', {'description', 'Element type "%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType});" is not supported'}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#UNSUPPORTED_MEDIA_TYPE_ERR', {'description', '%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode}, prefix => {"}, suffix => {": } );%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType}, prefix => { (Element type: <}, suffix => {>) } );Media type <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});> is not supported'}}}} #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6866)" } package Message::Util::DIS::ManakaiDISException; our $VERSION = 20051012.1348; push our @ISA, 'Message::Util::Error::DOMException::Exception', 'Message::Util::IF::DISException', 'Message::Util::IFLatest::DISException'; $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 1; push @Message::Util::IF::DISException::ISA, 'Message::Util::Error' unless @Message::Util::IF::DISException::ISA; for ($Message::DOM::IFLatest::GetFeature::, $Message::Markup::IFLatest::SWCFGParser::, $Message::Util::IF::DISAnyResource::, $Message::Util::IF::DISAnyResourcePerl::, $Message::Util::IF::DISComment::, $Message::Util::IF::DISDatabase::, $Message::Util::IF::DISDocument::, $Message::Util::IF::DISDocumentFragment::, $Message::Util::IF::DISElement::, $Message::Util::IF::DISElementList::, $Message::Util::IF::DISFor::, $Message::Util::IF::DISImplementation::, $Message::Util::IF::DISModule::, $Message::Util::IF::DISModuleElement::, $Message::Util::IF::DISModulePerl::, $Message::Util::IF::DISModuleResolver::, $Message::Util::IF::DISNode::, $Message::Util::IF::DISParser::, $Message::Util::IF::DISResource::, $Message::Util::IF::DISResourceMV::, $Message::Util::IF::DISResourcePerlModule::, $Message::Util::IF::DISResourceProp::, $Message::Util::IF::NSResolverDIS::){} ## License: 1;