#!/usr/bin/perl ## This file is automatically generated ## at 2005-09-27T05:22:04+00:00, ## from file "lib/Message/Util/DIS.dis", ## module , ## for . ## Don't edit by hand! use strict; require Message::Util::DIS::Perl; require Message::Util::DIS::Value; require Message::Util::Error::DOMException; require Message::Markup::SuikaWikiConfig21; require Message::DOM::DOMLS; require Message::Util::Error; require Message::Util::ManakaiNode; require Message::DOM::DOMFeature; package Message::Util::DIS; our $VERSION = 20050927.0522; sub INVALID_STATE_ERR (); sub HIERARCHY_REQUEST_ERR (); sub INVALID_SOURCE_ERR (); sub NOT_SUPPORTED_ERR (); sub AUTOLOAD { #line 1 "lib/Message/Util/DIS.dis [u] (Chunk #1)" my $al = our $AUTOLOAD; $al =~ s/.+:://; if ({'INVALID_STATE_ERR', 'Message::Util::DIS::INVALID_STATE_ERR', 'HIERARCHY_REQUEST_ERR', 'Message::Util::DIS::HIERARCHY_REQUEST_ERR', 'INVALID_SOURCE_ERR', 'Message::Util::DIS::INVALID_SOURCE_ERR', 'NOT_SUPPORTED_ERR', 'Message::Util::DIS::NOT_SUPPORTED_ERR'}->{$al}) { no strict 'refs'; *{$AUTOLOAD} = \&{{'INVALID_STATE_ERR', 'Message::Util::DIS::INVALID_STATE_ERR', 'HIERARCHY_REQUEST_ERR', 'Message::Util::DIS::HIERARCHY_REQUEST_ERR', 'INVALID_SOURCE_ERR', 'Message::Util::DIS::INVALID_SOURCE_ERR', 'NOT_SUPPORTED_ERR', 'Message::Util::DIS::NOT_SUPPORTED_ERR'}->{$al}}; goto &{$AUTOLOAD}; } else { require Carp; Carp::croak (qq); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2)" } sub import { #line 1 "lib/Message/Util/DIS.dis [u] (Chunk #3)" 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 #4)" } our %EXPORT_TAG = ('DISExceptionCode', ['HIERARCHY_REQUEST_ERR', 'INVALID_STATE_ERR', 'NOT_SUPPORTED_ERR', 'INVALID_SOURCE_ERR']); our @EXPORT_OK = ('HIERARCHY_REQUEST_ERR', 'INVALID_STATE_ERR', 'NOT_SUPPORTED_ERR', 'INVALID_SOURCE_ERR'); use Exporter; push our @ISA, 'Exporter'; package Message::Util::DIS::ManakaiDISImplementation; our $VERSION = 20050927.0522; 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_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 #13)" #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 #11)" #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 #5)" $r = bless $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6)" 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 #7)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #8)" '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 #9)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #10)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #12)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #14)" } $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 #31)" #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 #29)" #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 #15)" $r = bless { forDef => { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #16)" '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 #17)" => bless ({ uri => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #18)" '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 #19)" , isa => { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #20)" '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 #21)" => 1}, revISA => {}, }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #22)" '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 #23)" ), }, resDef => {}, modDef => {}, seq => 0, }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #24)" '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 #25)" ; $r->{forDef}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #26)" '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 #27)" }->{db} = $r; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #28)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #30)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #32)" } $r} 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 #45)" #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 #43)" #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 #33)" $r = bless $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #34)" 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 #35)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #36)" '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 #37)" ; $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #38)" 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 #39)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #40)" '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 #41)" ); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #42)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #44)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #46)" } $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 #51)" #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 #49)" #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 #47)" $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 #48)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #50)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #52)" } $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 #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 [bc] (Chunk #59)" #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 #53)" $typeURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #54)" '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 #55)" defined $typeURI; $forURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #56)" '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 #57)" defined $forURI; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #58)" #line 1 "lib/Message/Util/DIS.dis [/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]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #67)" #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=dis2pm:BlockCode]/PerlDef [bc] (Chunk #65)" 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=dis2pm:BlockCode]/PerlDef [u] (Chunk #61)" ($forURI eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #62)" '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=dis2pm:BlockCode]/PerlDef [u] (Chunk #63)" ) { $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. qq; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #64)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #66)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #68)" } #line 3 "/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 #71)" #line 3 "/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 #69)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #70)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #72)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #74)" } $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/2005/manakai/util/dis#value', {'', '1', '1.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/swcfg21#core', {'', '1', '2.1', '1'}, 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#minimum', {'', '1', '3.0', '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::DIS::ManakaiDISParser; our $VERSION = 20050927.0522; 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 #81)" #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 #79)" 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 #75)" (ref $input eq 'HASH') { $input = bless $input, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #76)" '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 #77)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #78)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #80)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #82)" } 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 #103)" #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 #83)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #84)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #91)" 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 #89)" #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 #87)" #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 #85)" $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 #86)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #88)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #90)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #92)" } #line 6 "/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 #101)" #line 6 "/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 #93)" ; if (defined $r) { $r = bless $r, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #94)" 'Message::Util::DIS::ManakaiDISDocument' #line 8 "/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 #95)" ; $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #96)" default_element_type_namespace_uri #line 9 "/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 #97)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #98)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 10 "/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 #99)" ); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #100)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #102)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #104)" } $r} sub new ($$$) { my ($self, $impl, $features) = @_; { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeaturesString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #109)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeaturesString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #107)" if #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeaturesString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #105)" (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 #106)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #108)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #110)" } 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 #129)" #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 #111)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #112)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #123)" 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 #121)" #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 #119)" #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 #113)" $r = $self->SUPER::new ($impl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #114)" 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 #115)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #116)" '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 #117)" => '2.1'), $features); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #118)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #120)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #122)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #124)" } #line 7 "/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 #127)" #line 7 "/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 #125)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #126)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #128)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #130)" } $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::DIS::ManakaiDISNode; our $VERSION = 20050927.0522; push our @ISA, 'Message::Util::IF::DISNode', 'Message::Util::IFLatest::DISNode'; use Message::Util::Error; sub owner_dis_document ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #147)" 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 #145)" #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 #143)" #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 #131)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #132)" 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 #133)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #134)" '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 #135)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #136)" '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 #137)" }) if $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #138)" '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 #139)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #140)" '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 #141)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #142)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #144)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #146)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #148)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #149)" 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 #150)" }} 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 #189)" #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 #169)" 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 #151)" $class; if ($object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #152)" '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 #153)" } eq '#element') { $class = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #154)" '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 #155)" ; } elsif ($object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #156)" '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 #157)" } eq '#comment') { $class = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #158)" '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 #159)" ; } elsif ($object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #160)" '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 #161)" } eq '#document') { $class = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #162)" '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 #163)" ; } elsif ($object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #164)" '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 #165)" } eq '#fragment') { $class = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #166)" '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 #167)" ; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #168)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #170)" #line 14 "/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 #173)" #line 14 "/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 #171)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #172)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #174)" { #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #183)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #181)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #175)" $object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #176)" 'rc' #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #177)" }++; $r = bless { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #178)" 'node' #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #179)" => $object, }, $class; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #180)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #182)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #184)" } #line 20 "/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 #187)" #line 20 "/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 #185)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #186)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #188)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #190)" } $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 #229)" #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 #221)" 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 #191)" $od = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #192)" 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 #193)" || $self; my $binds = $od->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #194)" '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 #195)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #196)" '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 #197)" }; if (exists $binds->{$prefix}) { $r = $binds->{$prefix}; } else { ## From module list FIND: { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #198)" #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 #199)" try {local $Error::Depth = $Error::Depth + 3; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #200)" 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 #201)" $db = $od-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #202)" 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 #203)" ; for my $mod_uri (keys %{$db->{modDef}}) { my $mod = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #204)" 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 #205)" ($mod_uri); if ($mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #206)" 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 #207)" $prefix) { $r = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #208)" get_property_text #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 #209)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #210)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace' #line 13 "/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 #211)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #212)" undef #line 13 "/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 #213)" ); last FIND; } } } catch #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #214)" Message::Util::IFLatest::DISException with #line 17 "/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 #215)" { my $err = shift; $err->throw unless $err->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #216)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' #line 20 "/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 #217)" } eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #218)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_ASSOCIATED_DB_ERR' #line 20 "/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 #219)" ; }; if ($opt{make_new_binding}) { $r = $binds->{$prefix} = $prefix; } elsif ($opt{raise_prefix_exception}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #220)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #222)" 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 31 "/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 #227)" #line 31 "/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)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #224)" undef #line 33 "/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 #225)" ; } } # FIND } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #226)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #228)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #230)" } $r} 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 #267)" #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 #265)" #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 #231)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #232)" 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 #233)" ; my $od = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #234)" 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 #235)" || $self; my $binds = $od->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #236)" '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 #237)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #238)" '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 #239)" }; 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 #240)" #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 #241)" try {local $Error::Depth = $Error::Depth + 3; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #242)" 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 #243)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #244)" 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 #245)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #246)" 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 #247)" ; for my $mod_uri (keys %{$db->{modDef}}) { my $mod = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #248)" 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 #249)" ($mod_uri); my $mod_ln = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #250)" 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 #251)" ; next if exists $binds->{$mod_ln}; my $ns_uri = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #252)" get_property_text #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 #253)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #254)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace' #line 22 "/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 #255)" , ''); if ($ns_uri eq $namespaceURI) { $r = $mod_ln; last FIND; } } } catch #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #256)" 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 #257)" { my $err = shift; $err->throw unless $err->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #258)" '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 #259)" } eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #260)" '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 #261)" ; }; 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 #262)" 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 #263)" ; last FIND; } $i++; redo; } } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #264)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #266)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #268)" } $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::DIS::ManakaiNSResolverDIS; our $VERSION = 20050927.0522; push our @ISA, 'Message::Util::IF::NSResolverDIS', 'Message::Util::IFLatest::NSResolverDIS'; 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 #337)" #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 #271)" 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 #269)" ($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 #270)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #272)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #287)" local $Error::Depth = $Error::Depth + 1; { #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 [b] (Chunk #285)" #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 [bc] (Chunk #283)" #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 #273)" $typeURI = $typeq eq '' ? defined $defaultTypeURI ? $defaultTypeURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #274)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' : #line 9 "/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 #275)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #276)" qname_to_uri #line 9 "/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 #277)" ($typeq, %opt); if (length $forq) { $forURI = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #278)" qname_to_uri #line 11 "/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 #279)" ($forq, %opt); } else { $forURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #280)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 13 "/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 #281)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #282)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #284)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #286)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #288)" } #line 16 "/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 #291)" #line 16 "/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 #289)" ; } else { ## "For" omitted #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #290)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #292)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #303)" local $Error::Depth = $Error::Depth + 1; { #line 18 "/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 #301)" #line 18 "/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 #299)" #line 18 "/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 #293)" $typeURI = $typeq eq '' ? defined $defaultTypeURI ? $defaultTypeURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #294)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' : #line 21 "/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 #295)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #296)" qname_to_uri #line 21 "/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 #297)" ($typeq, %opt); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #298)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #300)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #302)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #304)" } #line 23 "/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 #309)" #line 23 "/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 #305)" ; $forURI = defined $defaultForURI ? $defaultForURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #306)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 25 "/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 #307)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #308)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #310)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #319)" local $Error::Depth = $Error::Depth + 1; { #line 27 "/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 #317)" #line 27 "/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 #315)" for #line 27 "/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 #311)" my $forpq (@forpq) { push @$forpURI, $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #312)" qname_to_uri #line 28 "/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 #313)" ($forpq, %opt); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #314)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #316)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #318)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #320)" } #line 32 "/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 #323)" #line 32 "/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 #321)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #322)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #324)" { #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=dis2pm:BlockCode]/PerlDef [b] (Chunk #331)" #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=dis2pm:BlockCode]/PerlDef [bc] (Chunk #329)" 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=dis2pm:BlockCode]/PerlDef [u] (Chunk #325)" ($forURI eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #326)" '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=dis2pm:BlockCode]/PerlDef [u] (Chunk #327)" @{$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. qq.join (',', @__fp).q<)>; } 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. qq; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #328)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #330)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #332)" } #line 34 "/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 #335)" #line 34 "/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 #333)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #334)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #336)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #338)" } $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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #361)" #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #341)" #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #339)" $qname =~ s/^\s+//; $qname =~ s/\s+$//; my ($prefix, $lname) = split /\s*[:|]\s*/, $qname, 2; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #340)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #342)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #355)" local $Error::Depth = $Error::Depth + 1; { #line 3 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #353)" #line 3 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #351)" if #line 3 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #343)" (defined $lname) { $r = [$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #344)" 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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #345)" ($prefix), $lname]; } else { ## In default namespace $r = [$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #346)" prefix_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=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #347)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #348)" undef #line 6 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #349)" ), $prefix]; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #350)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #352)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #354)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #356)" } #line 9 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #359)" #line 9 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #357)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #358)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #360)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #362)" } $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 #385)" #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 #365)" #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 #363)" $qname =~ s/^\s+//; $qname =~ s/\s+$//; my ($prefix, $lname) = split /\s*[:|]\s*/, $qname, 2; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #364)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #366)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #379)" local $Error::Depth = $Error::Depth + 1; { #line 3 "/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 #377)" #line 3 "/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 #375)" if #line 3 "/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 #367)" (defined $lname) { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #368)" 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=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #369)" ($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 #370)" prefix_to_uri #line 9 "/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 #371)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #372)" undef #line 9 "/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 #373)" ) . $prefix; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #374)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #376)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #378)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #380)" } #line 13 "/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 #383)" #line 13 "/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 #381)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #382)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #384)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #386)" } $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 #441)" #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 #389)" 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 #387)" ($typeq, $forq) = split /\s*[:|][:|]\s*/, $tfqnames, 2; my ($typeURI, $forURI); if (defined $forq) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #388)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #390)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #401)" local $Error::Depth = $Error::Depth + 1; { #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 [b] (Chunk #399)" #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 [bc] (Chunk #397)" #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 #391)" $typeURI = $typeq eq '' ? defined $defaultTypeURI ? $defaultTypeURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #392)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' : #line 7 "/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 #393)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #394)" qname_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=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #395)" ($typeq, %opt); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #396)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #398)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #400)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #402)" } #line 9 "/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 #409)" #line 9 "/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 #403)" ; if (length $forq) { $forURI = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #404)" qname_to_uri #line 11 "/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 #405)" ($forq, %opt); } else { $forURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #406)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 13 "/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 #407)" ; } } else { ## "For" omitted #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #408)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #410)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #421)" local $Error::Depth = $Error::Depth + 1; { #line 16 "/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 #419)" #line 16 "/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 #417)" #line 16 "/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 #411)" $typeURI = $typeq eq '' ? defined $defaultTypeURI ? $defaultTypeURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #412)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' : #line 19 "/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 #413)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #414)" qname_to_uri #line 19 "/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 #415)" ($typeq, %opt); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #416)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #418)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #420)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #422)" } #line 21 "/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 #427)" #line 21 "/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 #423)" ; $forURI = defined $defaultForURI ? $defaultForURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #424)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 23 "/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 #425)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #426)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #428)" { #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=dis2pm:BlockCode]/PerlDef [b] (Chunk #435)" #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=dis2pm:BlockCode]/PerlDef [bc] (Chunk #433)" 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=dis2pm:BlockCode]/PerlDef [u] (Chunk #429)" ($forURI eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #430)" '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=dis2pm:BlockCode]/PerlDef [u] (Chunk #431)" ) { $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. qq; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #432)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #434)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #436)" } #line 25 "/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 #439)" #line 25 "/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 #437)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #438)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #440)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #442)" } $r} 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 #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=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #445)" 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 #443)" (defined $prefix) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #444)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #446)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #455)" local $Error::Depth = $Error::Depth + 1; { #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 [b] (Chunk #453)" #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 [bc] (Chunk #451)" #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 #447)" $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #448)" lookup_namespace_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=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #449)" ($prefix); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #450)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #452)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #454)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #456)" } #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 [bc] (Chunk #459)" #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 #457)" ; unless (defined $r) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #458)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #460)" 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 10 "/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 #471)" #line 10 "/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 #461)" ; } } elsif (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #462)" 'node' #line 12 "/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 #463)" } ->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #464)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#defaultNamespaceURI' #line 13 "/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 #465)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #466)" 'node' #line 14 "/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 #467)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #468)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#defaultNamespaceURI' #line 14 "/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 #469)" }; } else { ## Default namespace #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #470)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #472)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #485)" local $Error::Depth = $Error::Depth + 1; { #line 16 "/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 #483)" #line 16 "/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 #481)" #line 16 "/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 #473)" $r = ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #474)" owner_dis_document #line 17 "/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 #475)" || $self) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #476)" module_element #line 18 "/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 #477)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #478)" defining_namespace_uri #line 19 "/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 #479)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #480)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #482)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #484)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #486)" } #line 20 "/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 #489)" #line 20 "/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 #487)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #488)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #490)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #492)" } $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::DIS::ManakaiDISElement; our $VERSION = 20050927.0522; 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 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 #505)" #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 #503)" #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 #493)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #494)" '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 #495)" ; for my $c (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #496)" 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 #497)" (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 #498)" 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 #499)" $attrName and $c-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #500)" 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 #501)" ($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 #502)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #504)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #506)" } $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 #543)" #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 #511)" #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 #507)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #508)" '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 #509)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #510)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #512)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #537)" local $Error::Depth = $Error::Depth + 1; { #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 [b] (Chunk #535)" #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 [bc] (Chunk #517)" C: #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 #513)" for my $cn (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #514)" child_nodes #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 #515)" }) { ## $cn is an #element. my $dn; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #516)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #518)" { #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #527)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #525)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #519)" $cn->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #520)" 'rc' #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #521)" }++; $dn = bless { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #522)" 'node' #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #523)" => $cn->{'node'}, }, 'Message::Util::DIS::ManakaiDISElement'; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #524)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #526)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #528)" } #line 11 "/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 #533)" #line 11 "/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 #529)" ; next C unless $dn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #530)" for_match #line 12 "/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 #531)" ($opt{for_arg}, $opt{forp_arg}, database_arg => $opt{database_arg}); push @$r, $dn; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #532)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #534)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #536)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #538)" } #line 17 "/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 #541)" #line 17 "/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 #539)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #540)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #542)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #544)" } $r} sub is_resource_element ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #565)" 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 #563)" #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 #545)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #546)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #557)" 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 #555)" #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 #553)" #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 #547)" $r = ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #548)" 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 #549)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #550)" '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 #551)" ); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #552)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #554)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #556)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #558)" } #line 3 "/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 #561)" #line 3 "/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 #559)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #560)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #562)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #564)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #566)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #567)" 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 #568)" }} 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 #599)" #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 #569)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #570)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #593)" 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 #591)" #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 #589)" 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 #571)" $xn = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #572)" 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 #573)" ; if ($xn eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #574)" '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 #575)" ) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #576)" 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 #577)" ; } else { my $rdef = ($opt{database_arg} or $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #578)" 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 #579)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #580)" 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 #581)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #582)" 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 #583)" ($xn); $r = $rdef-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #584)" 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 #585)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #586)" '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 #587)" ); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #588)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #590)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #592)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #594)" } #line 12 "/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 #597)" #line 12 "/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 #595)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #596)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #598)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #600)" } $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 #625)" #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 #601)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #602)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #619)" 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 #617)" #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 #615)" 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 #603)" $et = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #604)" 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 #605)" ; my $rdef = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #606)" 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 #607)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #608)" 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 #609)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #610)" 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 #611)" ($et); $r = $rdef-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #612)" 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 #613)" ($etype); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #614)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #616)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #618)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #620)" } #line 8 "/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 #623)" #line 8 "/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 #621)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #622)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #624)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #626)" } $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 #671)" #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 #627)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #628)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #665)" 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 #663)" #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 #661)" 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 #629)" $ods = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #630)" '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 #631)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #632)" '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 #633)" }; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #634)" '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 #635)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #636)" '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 #637)" } = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #638)" 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 #639)" ($databaseArg); $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #640)" '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 #641)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #642)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#defaultNamespaceURI' #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 #643)" } = ${$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #644)" 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 #645)" }; my @nodes = ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #646)" '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 #647)" }); while (defined (my $node = shift @nodes)) { CORE::delete $node->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #648)" '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 #649)" }; push @nodes, grep {$_} @{$node->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #650)" '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 #651)" }}, $node->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #652)" '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 #653)" }, $node->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #654)" '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 #655)" }; } $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #656)" '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 #657)" } -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #658)" _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 #659)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #660)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #662)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #664)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #666)" } #line 16 "/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 #669)" #line 16 "/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 #667)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #668)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #670)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #672)" } } 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 #693)" #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 #673)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #674)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #687)" 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 #685)" #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 #683)" #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 #675)" $r = $opt{default_media_type}; my $ctn = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #676)" 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 #677)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #678)" '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 #679)" , 'ContentType'); $r = $ctn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #680)" 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 #681)" $ctn; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #682)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #684)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #686)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #688)" } #line 6 "/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 #691)" #line 6 "/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 #689)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #690)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #692)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #694)" } $r} 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 #701)" #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 #699)" #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 #695)" $r = bless $self->SUPER::clone, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #696)" '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 #697)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #698)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #700)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #702)" } $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 #741)" #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 #705)" 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 #703)" (defined $mediaType) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #704)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #706)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #733)" local $Error::Depth = $Error::Depth + 1; { #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 [b] (Chunk #731)" #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 [bc] (Chunk #729)" my #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 #707)" $ctn = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #708)" get_attribute_ns #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 #709)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #710)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #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 #711)" , 'ContentType'); my $ct; $ct = $ctn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #712)" 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=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #713)" $ctn; $ct = $defaultMediaType unless defined $ct; my $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #714)" owner_dis_document #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 #715)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #716)" dis_database #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 #717)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #718)" get_resource #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 #719)" ($ct); $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #720)" is_referred #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 #721)" ($ctn or $self); unless ($res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #722)" is_subset_of_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=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #723)" ($mediaType)) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #724)" 0 #line 12 "/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 #725)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #726)" 1 #line 14 "/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 #727)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #728)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #730)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #732)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #734)" } #line 18 "/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 #739)" #line 18 "/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 #735)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #736)" 1 #line 20 "/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 #737)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #738)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #740)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #742)" } $r} sub qname_value_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #765)" 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 #763)" #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 #743)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #744)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #757)" 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 #755)" #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 #753)" 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 #745)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #746)" 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 #747)" ; if (defined $v and not ref $v eq 'ARRAY') { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #748)" 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 #749)" ($v, node => $self); } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #750)" 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 #751)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #752)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #754)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #756)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #758)" } #line 8 "/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 #761)" #line 8 "/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 #759)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #760)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #762)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #764)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #766)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #767)" 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 #768)" }} 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 #787)" #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 #769)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #770)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #781)" 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 #779)" #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 #777)" #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 #771)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #772)" 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 #773)" (nodePath => $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #774)" 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 #775)" (key => [qw/QName Name Type type/])); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #776)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #778)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #780)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #782)" } #line 4 "/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 #785)" #line 4 "/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 #783)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #784)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #786)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #788)" } } sub qname_value_namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #813)" 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 #811)" #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 #789)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #790)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #805)" 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 #803)" #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 #801)" 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 #791)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #792)" 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 #793)" ; 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 #794)" 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 #795)" (defined $v ? $p : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #796)" 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 #797)" ); } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #798)" 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 #799)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #800)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #802)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #804)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #806)" } #line 10 "/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 #809)" #line 10 "/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 #807)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #808)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #810)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #812)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #814)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #815)" 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 #816)" }} 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 #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=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #821)" #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 #817)" $forArg = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #818)" '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 #819)" defined $forArg; $forpArg ||= []; FORMATCH: { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #820)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #822)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #935)" local $Error::Depth = $Error::Depth + 1; { #line 5 "/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 #933)" #line 5 "/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 #931)" my #line 5 "/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 #823)" $for_res = ($opt{database_arg} ||= $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #824)" 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=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #825)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #826)" 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=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #827)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #828)" get_for #line 8 "/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 #829)" ($forArg); my $forp_res = [map { $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #830)" get_for #line 10 "/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 #831)" ($_) } @{$forpArg}]; my @ce = @{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #832)" dis_all_child_elements #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 #833)" }; for my $ce (@ce) { my $et = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #834)" expanded_uri #line 15 "/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 #835)" ; if ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #836)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForCheck' #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 #837)" ) { my $fors = [split /\s+/, $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #838)" value #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 #839)" ]; FCs: for my $f (@$fors) { if ($f =~ /^!=(.+)$/) { ## -- NOT EQUAL TO my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #840)" qname_to_uri #line 20 "/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 #841)" ($1); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #842)" get_for #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 #843)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #844)" is_referred #line 22 "/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 #845)" ($ce); for my $arg_res ($for_res, @{$forp_res}) { if ($arg_res eq $for) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #846)" 0 #line 25 "/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 #847)" ; last FORMATCH; } } } elsif ($f =~ /^!(.+)$/) { ## -- NOT ISA my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #848)" qname_to_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 #849)" ($1); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #850)" get_for #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 #851)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #852)" is_referred #line 32 "/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 #853)" ($ce); for my $arg_res ($for_res, @{$forp_res}) { if ($arg_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #854)" isa_uri #line 34 "/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 #855)" ($uri)) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #856)" 0 #line 35 "/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 #857)" ; last FORMATCH; } } } elsif ($f =~ /^=(.+)$/) { ## -- EQUAL TO my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #858)" qname_to_uri #line 40 "/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 #859)" ($1); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #860)" get_for #line 41 "/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 #861)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #862)" is_referred #line 42 "/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 #863)" ($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 #864)" 0 #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 #865)" ; last FORMATCH; } else { ## -- ISA my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #866)" qname_to_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 #867)" ($f); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #868)" get_for #line 52 "/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 #869)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #870)" is_referred #line 53 "/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 #871)" ($ce); for my $arg_res ($for_res, @{$forp_res}) { if ($arg_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #872)" isa_uri #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 #873)" ($uri)) { next FCs; } } $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #874)" 0 #line 59 "/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 #875)" ; last FORMATCH; } } # FCs } # dis:ForCheck } # children my $has_for = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #876)" 0 #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 #877)" ; for my $ce (@ce) { if ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #878)" expanded_uri eq #line 68 "/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 #879)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #880)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For' #line 68 "/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 #881)" ) { my $fors = [split /\s+/, $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #882)" value #line 69 "/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 #883)" ]; my $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #884)" 1 #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 #885)" ; $has_for = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #886)" 1 #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 #887)" ; AFOR: for my $f (@$fors) { if ($f =~ /^!=(.+)$/) { ## -- NOT EQUAL TO my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #888)" qname_to_uri #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 #889)" ($1); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #890)" get_for #line 75 "/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 #891)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #892)" is_referred #line 76 "/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 #893)" ($ce); if ($for eq $for_res) { $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #894)" 0 #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 #895)" ; last AFOR; } } elsif ($f =~ /^!(.+)$/) { ## -- NOT ISA my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #896)" qname_to_uri #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 #897)" ($1); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #898)" get_for #line 83 "/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 #899)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #900)" is_referred #line 84 "/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 #901)" ($ce); if ($for_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #902)" isa_uri #line 85 "/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 #903)" ($uri)) { $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #904)" 0 #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 #905)" ; last AFOR; } } elsif ($f =~ /^=(.+)$/) { ## -- EQUAL TO my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #906)" qname_to_uri #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 #907)" ($1); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #908)" get_for #line 91 "/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 #909)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #910)" is_referred #line 92 "/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 #911)" ($ce); unless ($for eq $for_res) { $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #912)" 0 #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 #913)" ; last AFOR; } } else { ## -- ISA my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #914)" qname_to_uri #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 #915)" ($f); my $for = $opt{database_arg}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #916)" get_for #line 99 "/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 #917)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #918)" is_referred #line 100 "/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 #919)" ($ce); unless ($for_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #920)" isa_uri #line 101 "/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 #921)" ($uri)){ $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #922)" 0 #line 102 "/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 #923)" ; last AFOR; } } } # AFOR if ($ok) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #924)" 1 #line 108 "/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 #925)" ; last FORMATCH; } } # dis:For } # $ce $r = $has_for ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #926)" 0 : #line 113 "/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 #927)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #928)" 1 #line 113 "/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 #929)" ; #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)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #936)" } #line 120 "/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 #939)" #line 120 "/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 #937)" ; } # FORMATCH #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #938)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #940)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #942)" } $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 #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=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #953)" 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 #943)" $ods = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #944)" '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 #945)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #946)" '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 #947)" }; if ($ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #948)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#defaultNamespaceURI' #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 #949)" }) { $r = \ ($ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #950)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#defaultNamespaceURI' #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 #951)" }); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #952)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #954)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #969)" local $Error::Depth = $Error::Depth + 1; { #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 [b] (Chunk #967)" #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 [bc] (Chunk #965)" #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 #955)" $r = \($ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #956)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#defaultNamespaceURI' #line 6 "/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 #957)" } = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #958)" owner_dis_document #line 7 "/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 #959)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #960)" module_element #line 8 "/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 #961)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #962)" defining_namespace_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=getDefaultNamespaceURIRef][@Type=DISPerl|SCALAR||ManakaiDOM|all][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #963)" ); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #964)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #966)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #968)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #970)" } #line 10 "/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 #973)" #line 10 "/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 #971)" ; } #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)" } $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 #987)" #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 #985)" 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 #977)" for my $c (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #978)" 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 #979)" (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 #980)" 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 #981)" $attrName and $c-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #982)" 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 #983)" ($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 #984)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #986)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #988)" } $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 #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 #993)" #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 #989)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #990)" '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 #991)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #992)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #994)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1017)" local $Error::Depth = $Error::Depth + 1; { #line 2 "/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 #1015)" #line 2 "/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 #999)" for #line 2 "/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 2 "/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 #997)" }) { ## $cn is an #element. my $dn; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #998)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1000)" { #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1009)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1007)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1001)" $cn->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1002)" 'rc' #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1003)" }++; $dn = bless { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1004)" 'node' #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1005)" => $cn->{'node'}, }, 'Message::Util::DIS::ManakaiDISElement'; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1006)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1008)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1010)" } #line 11 "/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 #1013)" #line 11 "/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 #1011)" ; push @$r, $dn; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1012)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1014)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1016)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1018)" } #line 14 "/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 14 "/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)" ; #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)" } $r} 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 #1057)" #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 #1055)" 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 #1025)" $ods = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1026)" '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 #1027)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1028)" '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 #1029)" }; if ($ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1030)" '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 #1031)" }) { $r = $ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1032)" '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 #1033)" }; } else { if ($databaseArg) { for my $mod_uri (keys %{$databaseArg->{modDef}}) { my $mod = $databaseArg-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1034)" 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 #1035)" ($mod_uri); $ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1036)" '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 #1037)" } ->{$mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1038)" 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 #1039)" } = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1040)" get_property_text #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 #1041)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1042)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace' #line 11 "/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 #1043)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1044)" undef #line 11 "/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 #1045)" ); } } for my $prefix (keys %{$ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1046)" 'swnsb' #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 #1047)" }}) { $ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1048)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings' #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 #1049)" }->{$prefix} = $ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1050)" 'swnsb' #line 16 "/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 #1051)" }->{$prefix}; } $r = $ods->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1052)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#allNSBindings' #line 18 "/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 #1053)" }; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1054)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1056)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1058)" } $r} sub get_feature ($$$) { my ($self, $feature, $version) = @_; { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #1063)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #1061)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #1059)" $feature = lc $feature; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1060)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1062)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1064)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #1069)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #1067)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #1065)" $version = '' unless defined $version; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1066)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1068)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1070)" } 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 #1089)" #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 #1073)" #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 #1071)" $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 #1072)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1074)" { #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1083)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1081)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1075)" $self->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1076)" 'rc' #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1077)" }++; $r = bless { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1078)" 'node' #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1079)" => $self->{'node'}, }, $class; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1080)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1082)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1084)" } #line 10 "/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 #1087)" #line 10 "/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 #1085)" ; last CLASS; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1086)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1088)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1090)" } $r} 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 #1121)" #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 #1095)" 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 #1091)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1092)" 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 #1093)" ; if (defined $v and not ref $v eq 'ARRAY') { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1094)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1096)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1113)" local $Error::Depth = $Error::Depth + 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=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1111)" #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 [bc] (Chunk #1109)" if #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 #1097)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1098)" media_type_match #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 #1099)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1100)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames' #line 4 "/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 #1101)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1102)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames' #line 4 "/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 #1103)" , 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 #1104)" tfpqnames_to_uri #line 7 "/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 #1105)" ($v, $defaultTypeURI, $defaultForURI, node => $self); } else { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1106)" tfqnames_to_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=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1107)" ($v, $defaultTypeURI, $defaultForURI, node => $self); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1108)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1110)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1112)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1114)" } #line 16 "/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 #1119)" #line 16 "/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 #1115)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1116)" undef #line 18 "/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 #1117)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1118)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1120)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1122)" } $r} sub qname_value_local_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1143)" 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 #1141)" #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 #1123)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1124)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1135)" 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 #1133)" #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 #1131)" 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 #1125)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1126)" 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 #1127)" ; 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 #1128)" 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 #1129)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1130)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1132)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1134)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1136)" } #line 9 "/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 #1139)" #line 9 "/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 #1137)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1138)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1140)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1142)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1144)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1145)" 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 #1146)" }} sub qname_value_prefix ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1169)" 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 #1167)" #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 #1147)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1148)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1161)" 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 #1159)" #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 #1157)" 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 #1149)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1150)" 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 #1151)" ; 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 #1152)" 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 #1153)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1154)" 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 #1155)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1156)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1158)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1160)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1162)" } #line 9 "/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 #1165)" #line 9 "/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 #1163)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1164)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1166)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1168)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1170)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1171)" 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 #1172)" }} $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} = {'s0', ['shadow', 'shadowsib'], 'a1', ['swflag', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#option'], 's', ['swcn'], 'i', ['swod'], 'o', ['p']}; package Message::Util::DIS::ManakaiDISModuleElement; our $VERSION = 20050927.0522; push our @ISA, 'Message::Util::DIS::ManakaiDISElement', 'Message::Util::IF::DISElement', 'Message::Util::IF::DISModuleElement', 'Message::Util::IFLatest::DISElement', 'Message::Util::IFLatest::DISModuleElement'; sub default_for_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1201)" 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 #1199)" #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 #1173)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1174)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1193)" 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 #1191)" #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 #1189)" 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 #1175)" $df = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1176)" 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 #1177)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1178)" '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 #1179)" , 'DefaultFor'); if ($df) { $r = (bless $df, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1180)" '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 #1181)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1182)" 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 #1183)" || #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1184)" '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 #1185)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1186)" '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 #1187)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1188)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1190)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1192)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1194)" } #line 12 "/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 #1197)" #line 12 "/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 #1195)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1196)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1198)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1200)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1202)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1223)" 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 #1221)" #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 #1203)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1204)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1215)" 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 #1213)" #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 #1211)" #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 #1205)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1206)" 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 #1207)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1208)" '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 #1209)" , 'DefaultFor' => $given); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1210)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1212)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1214)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1216)" } #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]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1219)" #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]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1217)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1218)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1220)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1222)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1224)" }} sub require_element ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1249)" 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 #1247)" #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 #1225)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1226)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1241)" 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 #1239)" #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 #1237)" #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 #1227)" $r = bless $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1228)" 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 #1229)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1230)" '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 #1231)" , 'Require', make_new_node => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1232)" 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 #1233)" ), #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1234)" '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 #1235)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1236)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1238)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1240)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1242)" } #line 6 "/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 #1245)" #line 6 "/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 #1243)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1244)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1246)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1248)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1250)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1251)" 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 #1252)" }} sub defining_namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1279)" 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 #1277)" #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 #1253)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1254)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1271)" 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 #1269)" #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 #1263)" 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 #1255)" $df = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1256)" 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 #1257)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1258)" '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 #1259)" , 'Namespace'); if ($df) { $r = $df-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1260)" 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 #1261)" ; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1262)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1264)" #line 10 "/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 #1267)" #line 10 "/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 #1265)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1266)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1268)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1270)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1272)" } #line 12 "/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 #1275)" #line 12 "/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 #1273)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1274)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1276)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1278)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1280)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1301)" 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 #1299)" #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 #1281)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1282)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1293)" 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 #1291)" #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 #1289)" #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 #1283)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1284)" 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 #1285)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1286)" '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 #1287)" , 'Namespace' => $given); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1288)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1290)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1292)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1294)" } #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]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1297)" #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]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1295)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1296)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1298)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1300)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1302)" }} $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::DIS::ManakaiDISElementList; our $VERSION = 20050927.0522; 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::DIS::ManakaiDISComment; our $VERSION = 20050927.0522; 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'], 's', ['swcn'], 'i', ['swod'], 'o', ['p']}; package Message::Util::DIS::ManakaiDISDocumentFragment; our $VERSION = 20050927.0522; 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'], 's', ['swcn'], 'i', ['swod'], 'o', ['shadowo', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#shadowParent', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#shadowSiblingOf', 'p']}; package Message::Util::DIS::ManakaiDISDocument; our $VERSION = 20050927.0522; push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGDocument', 'Message::Util::IF::DISDocument', 'Message::Util::IFLatest::DISDocument'; 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 #1341)" #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 #1307)" #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 #1303)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1304)" '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 #1305)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1306)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1308)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1335)" local $Error::Depth = $Error::Depth + 1; { #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 [b] (Chunk #1333)" #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 [bc] (Chunk #1315)" C: #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 #1309)" for my $cn (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1310)" child_nodes #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 #1311)" }) { next C unless $cn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1312)" node_type eq #line 3 "/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 #1313)" '#element'; my $dn; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1314)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1316)" { #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1325)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1323)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1317)" $cn->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1318)" 'rc' #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1319)" }++; $dn = bless { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1320)" 'node' #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1321)" => $cn->{'node'}, }, 'Message::Util::DIS::ManakaiDISElement'; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1322)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1324)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1326)" } #line 12 "/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 #1331)" #line 12 "/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 #1327)" ; next C unless $dn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1328)" for_match #line 13 "/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 #1329)" ($opt{for_arg}, $opt{forp_arg}, database_arg => $opt{database_arg}); push @$r, $dn; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1330)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1332)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1334)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1336)" } #line 18 "/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 #1339)" #line 18 "/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 #1337)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1338)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1340)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1342)" } $r} sub module_element ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1367)" 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 #1365)" #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 #1343)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1344)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1357)" 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 #1355)" #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 #1353)" #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 #1345)" $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1346)" 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 #1347)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1348)" '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 #1349)" , 'Module', make_new_node => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1350)" 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 #1351)" ); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1352)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1354)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1356)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1358)" } #line 5 "/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 #1363)" #line 5 "/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 #1359)" ; $r = bless $r, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1360)" 'Message::Util::DIS::ManakaiDISModuleElement' #line 6 "/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 #1361)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1362)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1364)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1366)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1368)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1369)" 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 #1370)" }} sub dis_database ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1389)" 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 #1387)" #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 #1381)" 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 #1371)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1372)" '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 #1373)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1374)" '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 #1375)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1376)" '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 #1377)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1378)" '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 #1379)" }; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1380)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1382)" 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 4 "/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 #1385)" #line 4 "/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 #1383)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1384)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1386)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1388)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1390)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1405)" 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 #1403)" #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 #1401)" #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 #1391)" $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1392)" '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 #1393)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1394)" '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 #1395)" } = $given; require Scalar::Util; Scalar::Util::weaken ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1396)" '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 #1397)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1398)" '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 #1399)" }); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1400)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1402)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1404)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1406)" }} 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 #1419)" #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 #1417)" 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 #1407)" (defined $namespaceURI) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1408)" '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 #1409)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1410)" '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 #1411)" }->{$prefix} = $namespaceURI; } else { CORE::delete $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1412)" '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 #1413)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1414)" '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 #1415)" } ->{$prefix}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1416)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1418)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1420)" } } 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 #1457)" #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 #1425)" #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 #1421)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1422)" '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 #1423)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1424)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1426)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1451)" local $Error::Depth = $Error::Depth + 1; { #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 [b] (Chunk #1449)" #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 [bc] (Chunk #1433)" C: #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 #1427)" for my $cn (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1428)" child_nodes #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 #1429)" }) { next C unless $cn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1430)" node_type eq #line 3 "/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 #1431)" '#element'; my $dn; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1432)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1434)" { #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1443)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1441)" #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1435)" $cn->{'node'}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1436)" 'rc' #line 1 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1437)" }++; $dn = bless { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1438)" 'node' #line 3 "/document (lib/Message/Util/ManakaiNode.dis)/ClassDef[@QName=NodeStem][@QName=ManakaiDOM:ManakaiDOMNodeObject][@QName=ManakaiNodeStem][@type=dis:MultipleResource][@type=ManakaiDOM:IF][@type=ManakaiDOM:Class][@type=ManakaiDOM:Class]/ResourceDef[@QName=getNewReference][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1439)" => $cn->{'node'}, }, 'Message::Util::DIS::ManakaiDISElement'; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1440)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1442)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1444)" } #line 12 "/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 #1447)" #line 12 "/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 #1445)" ; push @$r, $dn; } #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)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1452)" } #line 15 "/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 #1455)" #line 15 "/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 #1453)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1454)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1456)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1458)" } $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} = 6.2; $Message::Util::ManakaiNode::ManakaiNodeRef::Prop{q} = {'s2', ['swetb'], 'a1', ['swflag', 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#option'], 's', ['swcn'], 'i', ['swod'], 'o', ['p']}; package Message::Util::DIS::ManakaiDISDatabase; our $VERSION = 20050927.0522; push our @ISA, 'Message::Util::DIS::Perl::ManakaiDISDatabasePerl', 'Message::Util::Error::DOMException::ManakaiDefaultExceptionHandler', 'Message::Util::IF::DISDatabase', 'Message::Util::IFLatest::DISDatabase'; 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 #1465)" #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 #1463)" #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 #1459)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1460)" '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 #1461)" }->{$fileName}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1462)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1464)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1466)" } $r} 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 #1487)" #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 #1469)" 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 #1467)" $modURI; if (defined $opt{for_arg}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1468)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1470)" { #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=dis2pm:BlockCode]/PerlDef [b] (Chunk #1477)" #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=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1475)" 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=dis2pm:BlockCode]/PerlDef [u] (Chunk #1471)" ($opt{for_arg} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1472)" '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=dis2pm:BlockCode]/PerlDef [u] (Chunk #1473)" ) { $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. qq; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1474)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1476)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1478)" } #line 4 "/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 #1485)" #line 4 "/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 #1479)" ; } 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 #1480)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 15 "/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 #1481)" , forp => [], }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1482)" 'Message::Util::DIS::ManakaiDISModuleDefinition' #line 17 "/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 #1483)" ; require Scalar::Util; Scalar::Util::weaken ($r->{db}); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1484)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1486)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1488)" } $r} 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 #1759)" #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 #1493)" #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 #1489)" $opt{for_arg} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1490)" '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 #1491)" defined $opt{for_arg}; $opt{forp_arg} ||= []; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1492)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1494)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1753)" local $Error::Depth = $Error::Depth + 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=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1751)" #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 [bc] (Chunk #1499)" #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 #1495)" ## -- Node names ## Unique resource identifier generated from node id my $node_id = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1496)" node_id_ref #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 #1497)" ; my $node_uri; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1498)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1500)" { #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=dis2pm:BlockCode]/PerlDef [b] (Chunk #1507)" #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=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1505)" 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=dis2pm:BlockCode]/PerlDef [u] (Chunk #1501)" ($opt{for_arg} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1502)" '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=dis2pm:BlockCode]/PerlDef [u] (Chunk #1503)" @{$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. qq.join (',', @__fp).q<)>; } 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. qq; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1504)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1506)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1508)" } #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 [bc] (Chunk #1527)" #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 #1509)" ; my $al_node = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1510)" dis_get_attribute #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 #1511)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1512)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AliasFor' #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 #1513)" , 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 #1514)" tfqnames_value_uri #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 #1515)" ($$node_id, $opt{for_arg}, for_arg => $self->{for}, forp_arg => $self->{forp}, database_arg => $self); } ## User defined resource identifiers my $qn_node = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1516)" dis_get_attribute #line 26 "/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 #1517)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1518)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName' #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 #1519)" , 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 #1520)" 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 #1521)" ; $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1522)" get_resource #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 #1523)" ($qn_uri, for_arg => $opt{for_arg}); if ($res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1524)" is_defined #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 #1525)" ) { last ALD if defined $al_canon_uri and $res->{aliasURI}->{$al_canon_uri}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1526)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1528)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1539)" local $Error::Depth = $Error::Depth - 1; { #line 39 "/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 #1537)" #line 39 "/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 #1531)" #line 39 "/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 #1529)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1530)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1532)" 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 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 [bc] (Chunk #1535)" #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 #1533)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1534)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1536)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1538)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1540)" } #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 [bc] (Chunk #1553)" #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 #1541)" ; } $res->{localName} = $qn_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1542)" qname_value_local_name #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 #1543)" ; $res->{namespaceURI} = $qn_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1544)" qname_value_namespace_uri #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 #1545)" ; } else { ## Anonymous or local my $n_node = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1546)" dis_get_attribute #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 #1547)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1548)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Name' #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 #1549)" , 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 #1550)" value #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 #1551)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1552)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1554)" { #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=dis2pm:BlockCode]/PerlDef [b] (Chunk #1559)" #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=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1557)" 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=dis2pm:BlockCode]/PerlDef [u] (Chunk #1555)" $__parent = $puri; my $__ln = $ln; for my $__uri ($__parent, $__ln) { $__uri =~ s{([^0-9A-Za-z:;?=_./~!&+-])}{sprintf '%%%02X', ord $1}ge; } $ru = q. qq; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1556)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1558)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1560)" } #line 64 "/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 #1581)" #line 64 "/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 #1561)" ; $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1562)" get_resource #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 #1563)" ($ru, for_arg => $opt{for_arg}); $res->{localName} = $n_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1564)" value #line 67 "/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 #1565)" ; $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1566)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon' #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 #1567)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1568)" 1 #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 #1569)" ; } else { ## Root local name resource my $ln = $n_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1570)" value #line 70 "/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 #1571)" ; my $ns_uri = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1572)" source_element #line 71 "/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 #1573)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1574)" defining_namespace_uri #line 72 "/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 #1575)" ; my $qn_uri = $ns_uri . $ln; $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1576)" get_resource #line 74 "/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 #1577)" ($qn_uri, for_arg => $opt{for_arg}); if ($res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1578)" is_defined #line 76 "/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 #1579)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1580)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1582)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1593)" local $Error::Depth = $Error::Depth - 1; { #line 77 "/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 #1591)" #line 77 "/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 #1585)" #line 77 "/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 #1583)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1584)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1586)" 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 83 "/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 #1589)" #line 83 "/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 #1587)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1588)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1590)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1592)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1594)" } #line 84 "/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 #1675)" #line 84 "/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 #1595)" ; } $res->{namespaceURI} = $ns_uri; $res->{localName} = $ln; } } else { $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1596)" get_resource #line 90 "/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 #1597)" ($node_uri); $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1598)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon' #line 91 "/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 #1599)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1600)" 1 #line 91 "/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 #1601)" ; } } # anon $res->{for} = $opt{for_arg}; $res->{forp} = $opt{forp_arg}; $res->{src} = $el; $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1602)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #line 97 "/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 #1603)" } = \ ($mod->{uri}); $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1604)" add_resource_list #line 98 "/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 #1605)" ($res); $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1606)" parent_resource #line 99 "/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 #1607)" ($parentResource) if $parentResource; $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1608)" dynamic_parent_resource #line 101 "/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 #1609)" ($dynParent) if $dynParent; unless ($res->{uri} eq $node_uri) { my $nu_res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1610)" get_resource #line 104 "/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 #1611)" ($node_uri); $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1612)" merge_as_alias #line 105 "/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 #1613)" ($nu_res); } $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1614)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined' #line 107 "/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 #1615)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1616)" 1 #line 107 "/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 #1617)" ; $res->{seq} = $self->{seq}++; $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1618)" source_node_id_ref #line 109 "/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 #1619)" ($node_id); ## -- Alias if ($al_node) { my $canon_res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1620)" get_resource #line 113 "/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 #1621)" ($al_canon_uri); $canon_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1622)" is_referred #line 114 "/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 #1623)" ($al_node); $canon_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1624)" merge_as_alias #line 115 "/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 #1625)" ($res, node => $al_node); $res = $canon_res; } } # ALD ## -- Registers as child $parentResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1626)" _add_child_resource #line 121 "/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 #1627)" ($res) if $parentResource; $dynParent-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1628)" _add_dynamic_child_resource #line 123 "/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 #1629)" ($res) if $dynParent; my $is_multires = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1630)" 0 #line 126 "/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 #1631)" ; my @props; my @cres; my @ce0 = @{$el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1632)" dis_child_elements #line 129 "/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 #1633)" (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 #1634)" element_type_match #line 135 "/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 #1635)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1636)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 135 "/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 #1637)" , database_arg => $self)) { $has_type = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1638)" 1 #line 137 "/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 #1639)" ; my $type_uri = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1640)" qname_value_uri #line 138 "/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 #1641)" ; my $type = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1642)" get_resource #line 139 "/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 #1643)" ($type_uri); $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1644)" add_property_resource_ulist #line 140 "/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 #1645)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1646)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 141 "/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 #1647)" , $type); $type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1648)" is_referred #line 142 "/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 #1649)" ($ce); if ($type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1650)" is_subset_of_uri #line 143 "/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 #1651)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1652)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--MultipleResource' #line 144 "/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 #1653)" )) { $is_multires = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1654)" 1 #line 145 "/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 #1655)" ; } } elsif ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1656)" element_type_match #line 147 "/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 #1657)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1658)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--subsetOf' #line 148 "/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 #1659)" , database_arg => $self)) { my $sres = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1660)" get_resource #line 150 "/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 #1661)" ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1662)" tfqnames_value_uri #line 151 "/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 #1663)" ($$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 #1664)" add_super_resource #line 155 "/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 #1665)" ($sres); } elsif ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1666)" is_resource_element #line 156 "/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 #1667)" ) { push @cres, $ce; } elsif ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1668)" element_type_match #line 158 "/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 #1669)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1670)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType' #line 159 "/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 #1671)" , database_arg => $self)) { my $uri = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1672)" qname_value_uri #line 161 "/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 #1673)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1674)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1676)" { #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 #1685)" #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 #1683)" #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 #1677)" $res->{'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--dataType'} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1678)" 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 #1679)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1680)" '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 #1681)" , $uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1682)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1684)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1686)" } #line 167 "/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 #1699)" #line 167 "/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 #1687)" ; my $type = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1688)" get_resource #line 168 "/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 #1689)" ($uri); $type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1690)" is_referred #line 169 "/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 #1691)" ($ce); } elsif ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1692)" element_type_match #line 170 "/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 #1693)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1694)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties' #line 171 "/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 #1695)" , database_arg => $self)) { my $uri = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1696)" qname_value_uri #line 173 "/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 #1697)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1698)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1700)" { #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 #1709)" #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 #1707)" #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 #1701)" $res->{'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--multipleProperties'} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1702)" 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 #1703)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1704)" '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 #1705)" , $uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1706)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1708)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1710)" } #line 177 "/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 #1717)" #line 177 "/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 #1711)" ; my $type = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1712)" get_resource #line 178 "/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 #1713)" ($uri); $type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1714)" is_referred #line 179 "/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 #1715)" ($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 #1716)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1718)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1723)" local $Error::Depth = $Error::Depth - 1; { #line 188 "/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 #1721)" #line 188 "/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 #1719)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1720)" 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 #1722)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1724)" } #line 191 "/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 #1749)" #line 191 "/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 #1725)" ; } ## -- Child resources unless ($is_multires) { for my $re (@cres) { unless ($al_node) { $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1726)" load_resource #line 198 "/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 #1727)" ($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 #1728)" dis_get_attribute #line 203 "/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 #1729)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1730)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--aliasChild' #line 204 "/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 #1731)" , 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 #1732)" value #line 207 "/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 #1733)" ) { $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1734)" load_resource #line 208 "/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 #1735)" ($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 #1736)" element_type_match #line 220 "/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 #1737)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1738)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--resourceFor' #line 221 "/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 #1739)" , database_arg => $self)) { my $for_uri = $pe-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1740)" qname_value_uri #line 223 "/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 #1741)" ; my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1742)" get_for #line 224 "/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 #1743)" ($for_uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1744)" is_referred #line 225 "/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 #1745)" ($pe); $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1746)" load_resource #line 226 "/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 #1747)" ($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 #1748)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1750)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1752)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1754)" } #line 235 "/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 #1757)" #line 235 "/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 #1755)" ; # DEEP #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1756)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1758)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1760)" } } 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 #1801)" #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 #1767)" #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 #1761)" $forURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1762)" '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 #1763)" defined $forURI; if (defined $self->{forDef}->{$forURI}) { $r = $self->{forDef}->{$forURI}; } elsif (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1764)" '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 #1765)" }->{$forURI}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1766)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1768)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1781)" local $Error::Depth = $Error::Depth + 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=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1779)" #line 5 "/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 #1777)" #line 5 "/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 #1769)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1770)" _pl_load_dis_database_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=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1771)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1772)" get_module #line 7 "/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 #1773)" (${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1774)" '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=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1775)" }->{$forURI}})); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1776)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1778)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1780)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1782)" } #line 9 "/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 #1785)" #line 9 "/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 #1783)" ; unless (defined $self->{forDef}->{$forURI}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1784)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1786)" 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 15 "/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 #1799)" #line 15 "/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 #1787)" ; } $r = $self->{forDef}->{$forURI}; } else { $r = $self->{forDef}->{$forURI} = bless { uri => $forURI, isa => { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1788)" '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=getFor][@type=DISLang:Method]/Return[@Type=DISFor][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1789)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1790)" 1 #line 22 "/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 #1791)" }, revISA => {}, db => $self, }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1792)" 'Message::Util::DIS::ManakaiDISForDefinition' #line 25 "/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 #1793)" ; $self->{forDef}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1794)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 26 "/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 #1795)" }->{revISA}->{$forURI} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1796)" 1 #line 26 "/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 #1797)" ; require Scalar::Util; Scalar::Util::weaken ($r->{db}); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1798)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1800)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1802)" } $r} 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 #1823)" #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 #1803)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1804)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1817)" 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 #1815)" #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 #1813)" 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 #1805)" my $fd (values %{$self->{modDef}}, values %{$self->{forDef}}, values %{$self->{resDef}}) { if ($fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1806)" 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 #1807)" ) { $fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1808)" 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 #1809)" (on_resource_read => $opt{on_resource_read}); } } CORE::delete $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1810)" '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 #1811)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1812)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1814)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1816)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1818)" } #line 11 "/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 #1821)" #line 11 "/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 #1819)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1820)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1822)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1824)" } } 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 #1931)" #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 #1825)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1826)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1925)" 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 #1923)" #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 #1833)" 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 #1827)" $qn_node = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1828)" 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 #1829)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1830)" '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 #1831)" , 'QName'); unless ($qn_node) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1832)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1834)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1845)" local $Error::Depth = $Error::Depth - 1; { #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 [b] (Chunk #1843)" #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 [bc] (Chunk #1837)" #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 #1835)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1836)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1838)" 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 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 [bc] (Chunk #1841)" #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 #1839)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1840)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1842)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1844)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1846)" } #line 8 "/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 #1889)" #line 8 "/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 #1847)" ; } $qn_node = bless $qn_node, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1848)" 'Message::Util::DIS::ManakaiDISElement' if #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 #1849)" $qn_node->isa ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1850)" 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement' #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 #1851)" ); my $qn_uri = $qn_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1852)" qname_value_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=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1853)" ; my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1854)" get_for #line 12 "/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 #1855)" ($qn_uri); unless ($for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1856)" is_defined #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 #1857)" ) { ## -- Initializes "For" Definition Object $for->{src} = $el; $for->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1858)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined' #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 #1859)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1860)" 1 #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 #1861)" ; $for->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1862)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #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 #1863)" } = \ ($mod->{uri}); for my $ce (@{$el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1864)" dis_all_child_elements #line 20 "/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 #1865)" }) { my $xn = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1866)" expanded_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=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1867)" ; if ($xn eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1868)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA' or #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 #1869)" $xn eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1870)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Implement' #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 #1871)" ) { my $sfor = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1872)" get_for #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 #1873)" ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1874)" 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=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1875)" ); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1876)" add_isa #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 #1877)" ($sfor); $sfor-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1878)" is_referred #line 26 "/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 #1879)" ($ce); ## TODO: warn if dis:Implement } elsif ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1880)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Description' #line 29 "/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 #1881)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1882)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ImplNote' #line 30 "/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 #1883)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1884)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--FullName' #line 31 "/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 #1885)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1886)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName' #line 32 "/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 #1887)" => 1, }->{$xn}) { # } else { #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 #1901)" local $Error::Depth = $Error::Depth - 1; { #line 38 "/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 #1899)" #line 38 "/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 #1893)" #line 38 "/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 #1891)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1892)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1894)" 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 43 "/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 #1897)" #line 43 "/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 #1895)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1896)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1898)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1900)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1902)" } #line 44 "/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 #1905)" #line 44 "/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 #1903)" ; } } } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1904)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1906)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1917)" local $Error::Depth = $Error::Depth - 1; { #line 48 "/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 #1915)" #line 48 "/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 #1909)" #line 48 "/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 #1907)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1908)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1910)" 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 53 "/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 #1913)" #line 53 "/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 #1911)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1912)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1914)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1916)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1918)" } #line 54 "/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 #1921)" #line 54 "/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 #1919)" ; } # isDefine? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1920)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1922)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1924)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1926)" } #line 56 "/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 #1929)" #line 56 "/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 #1927)" ; # DEEP #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1928)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1930)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1932)" } } 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 #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=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1939)" 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 #1933)" my $fd (values %{$self->{forDef}}) { if (my $ref = $fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1934)" 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 #1935)" not $fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1936)" 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 #1937)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1938)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1940)" 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 7 "/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 #1947)" #line 7 "/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 #1941)" ; } } for my $fd (values %{$self->{resDef}}) { if (my $ref = $fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1942)" is_referred and #line 11 "/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 #1943)" not $fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1944)" is_defined #line 11 "/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 #1945)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1946)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1948)" 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 16 "/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 #1951)" #line 16 "/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 #1949)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1950)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1952)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1954)" } } 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 #1963)" #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 #1961)" 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 #1955)" my $file (values %{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1956)" '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 #1957)" }}) { $file-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1958)" 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 #1959)" $file; } CORE::delete $self->{modDef}; CORE::delete $self->{forDef}; CORE::delete $self->{resDef}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1960)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1962)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1964)" } } 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 #1971)" #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 #1969)" #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 #1965)" $resolver = bless $resolver, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1966)" '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 #1967)" ref $resolver eq 'CODE'; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1968)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1970)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1972)" } { #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 #2235)" #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 #1979)" #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 #1973)" $resolver = bless $resolver, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1974)" '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 #1975)" ref $resolver eq 'CODE'; ## -- Module Name, URI $opt{for_arg} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1976)" '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 #1977)" defined $opt{for_arg}; my $mod_node; my $mod_name_node; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1978)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1980)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2229)" local $Error::Depth = $Error::Depth + 1; { #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 [b] (Chunk #2227)" #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 [bc] (Chunk #1989)" #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 #1981)" $mod_node = $doc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1982)" module_element #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 #1983)" ; $mod_name_node = $mod_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1984)" get_attribute_ns #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 #1985)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1986)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #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 #1987)" , 'QName'); unless ($mod_name_node) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1988)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1990)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2001)" local $Error::Depth = $Error::Depth - 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=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1999)" #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 [bc] (Chunk #1993)" #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 #1991)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1992)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1994)" 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 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 [bc] (Chunk #1997)" #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 #1995)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1996)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1998)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2000)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2002)" } #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 [bc] (Chunk #2025)" #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 #2003)" ; } $mod_name_node = bless $mod_name_node, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2004)" 'Message::Util::DIS::ManakaiDISElement' if #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 #2005)" $mod_name_node->isa ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2006)" 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement' #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 #2007)" ); my $mod_name_uri = $mod_name_node -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2008)" qname_value_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 #2009)" ; my $mod = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2010)" get_module #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 #2011)" ($mod_name_uri, for_arg => $opt{for_arg}); unless ($mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2012)" is_defined #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 #2013)" ) { ## -- Initializes Module Definition Object $mod->{localName} = $mod_name_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2014)" qname_value_local_name #line 26 "/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 #2015)" ; $mod->{namespaceURI} = $mod_name_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2016)" qname_value_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 #2017)" ; $mod->{for} = $opt{for_arg}; $mod->{src} = $mod_node; $mod->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2018)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined' #line 30 "/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 #2019)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2020)" 1 #line 30 "/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 #2021)" ; $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2022)" set_source_file #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 #2023)" ($mod_name_uri => $doc); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2024)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2026)" { #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 #2035)" #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 #2033)" #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 #2027)" $mod->{'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace'} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2028)" 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 #2029)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2030)" '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 #2031)" , $mod_node->defining_namespace_uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2032)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2034)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2036)" } #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 [bc] (Chunk #2039)" #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 #2037)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2038)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2040)" { #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 #2047)" #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 #2045)" #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 #2041)" $mod->{'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile'} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2042)" 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 #2043)" ('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 #2044)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2046)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2048)" } #line 47 "/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 #2079)" #line 47 "/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 #2049)" ; ## -- Loads "for" definition my $root_elements = $doc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2050)" dis_all_child_elements #line 51 "/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 #2051)" ; if ($mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2052)" for_uri eq #line 52 "/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 #2053)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2054)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 52 "/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 #2055)" ) { R: for my $el (@$root_elements) { next R unless $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2056)" expanded_uri eq #line 54 "/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 #2057)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2058)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForDef' #line 54 "/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 #2059)" ; $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2060)" load_for #line 55 "/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 #2061)" ($mod, $el); } } ## -- Loads "for all" my $rmod = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2062)" get_module #line 60 "/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 #2063)" ($mod_name_uri, for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2064)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 62 "/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 #2065)" ); unless ($rmod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2066)" is_defined #line 63 "/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 #2067)" ) { my $rdoc = $resolver-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2068)" uri_to_document #line 64 "/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 #2069)" ($self, $rmod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2070)" uri #line 65 "/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 #2071)" , $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2072)" namespace_uri #line 66 "/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 #2073)" , $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2074)" local_name #line 67 "/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 #2075)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2076)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 68 "/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 #2077)" ); unless ($rdoc) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2078)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2080)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2091)" local $Error::Depth = $Error::Depth - 1; { #line 71 "/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 #2089)" #line 71 "/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 #2083)" #line 71 "/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 #2081)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2082)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2084)" 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 79 "/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 #2087)" #line 79 "/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 #2085)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2086)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2088)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2090)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2092)" } #line 80 "/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 #2151)" #line 80 "/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 #2093)" ; } $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2094)" load_module #line 82 "/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 #2095)" ($rdoc, $resolver, for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2096)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 83 "/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 #2097)" , 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 #2098)" require_element #line 89 "/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 #2099)" ; for my $rm (@{$req_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2100)" dis_all_child_elements #line 90 "/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 #2101)" }) { next unless $rm-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2102)" expanded_uri eq #line 91 "/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 #2103)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2104)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Module' #line 91 "/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 #2105)" ; my ($uri, $nuri, $ln, $for); my $mqn = $rm-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2106)" get_attribute_ns #line 93 "/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 #2107)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2108)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 93 "/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 #2109)" , 'QName'); if ($mqn) { my $mqv = $mqn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2110)" value #line 95 "/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 #2111)" ; my $mqp = ($mqn->isa ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2112)" 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement' #line 96 "/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 #2113)" ) ? (bless $mqn, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2114)" 'Message::Util::DIS::ManakaiDISElement' #line 97 "/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 #2115)" ) : $mqn) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2116)" qname_to_pair #line 98 "/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 #2117)" ($mqv, node => $mqn); ($nuri, $ln) = @$mqp; } else { my $mn = $rm-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2118)" get_attribute_ns #line 101 "/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 #2119)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2120)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 101 "/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 #2121)" , 'Name'); if ($mn) { $nuri = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2122)" namespace_uri #line 103 "/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 #2123)" ; $ln = $mn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2124)" value #line 104 "/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 #2125)" ; } else { $nuri = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2126)" namespace_uri #line 106 "/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 #2127)" ; $ln = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2128)" local_name #line 107 "/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 #2129)" ; } } my $wfn = $rm-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2130)" get_attribute_ns #line 110 "/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 #2131)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2132)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 111 "/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 #2133)" , 'WithFor'); if ($wfn) { $for = ($wfn->isa ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2134)" 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement' #line 113 "/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 #2135)" ) ? (bless $wfn, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2136)" 'Message::Util::DIS::ManakaiDISElement' #line 114 "/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 #2137)" ) : $wfn) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2138)" qname_value_uri #line 115 "/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 #2139)" ; } else { $for = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2140)" for_uri #line 117 "/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 #2141)" ; } my $rmod = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2142)" get_module #line 119 "/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 #2143)" ($nuri . $ln, for_arg => $for); unless ($rmod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2144)" is_defined #line 121 "/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 #2145)" ) { my $rdoc = $resolver-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2146)" uri_to_document #line 122 "/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 #2147)" ($self, $rmod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2148)" uri #line 123 "/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)" , $nuri, $ln, $for); unless ($rdoc) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2150)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2152)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2163)" local $Error::Depth = $Error::Depth - 1; { #line 128 "/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 #2161)" #line 128 "/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 #2155)" #line 128 "/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 #2153)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2154)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2156)" 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 135 "/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 #2159)" #line 135 "/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)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2158)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2160)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2162)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2164)" } #line 136 "/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 #2187)" #line 136 "/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 #2165)" ; } $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2166)" load_module #line 138 "/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 #2167)" ($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 #2168)" dis_child_elements #line 145 "/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 #2169)" (for_arg => $opt{for_arg}, database_arg => $self); for my $el (@$root_elements) { if ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2170)" is_resource_element #line 149 "/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)" ) { $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2172)" load_resource #line 150 "/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 #2173)" ($mod, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2174)" undef #line 151 "/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 #2175)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2176)" undef #line 151 "/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 #2177)" , $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 #2178)" expanded_uri #line 155 "/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 #2179)" ; if ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2180)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForDef' #line 157 "/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 #2181)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2182)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Module' #line 158 "/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 #2183)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2184)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ImplNote' #line 159 "/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)" => 1, }->{$et}) { # } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2186)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2188)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2199)" local $Error::Depth = $Error::Depth - 1; { #line 163 "/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 #2197)" #line 163 "/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 #2191)" #line 163 "/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 #2189)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2190)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2192)" 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 168 "/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 #2195)" #line 168 "/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 #2193)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2194)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2196)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2198)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2200)" } #line 169 "/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 #2209)" #line 169 "/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 #2201)" ; } } # element types } my $dn = $mod_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2202)" get_attribute_ns #line 174 "/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)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 175 "/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 #2205)" , 'Namespace'); unless ($dn and defined $dn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2206)" value #line 176 "/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 #2207)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2208)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2210)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2221)" local $Error::Depth = $Error::Depth - 1; { #line 177 "/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 #2219)" #line 177 "/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 #2213)" #line 177 "/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 #2211)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2212)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2214)" 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 181 "/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 #2217)" #line 181 "/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)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2216)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2218)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2220)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2222)" } #line 182 "/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 #2225)" #line 182 "/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 #2223)" ; } } # Unless this module loaded #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 "lib/Message/Util/DIS.dis [/b] (Chunk #2230)" } #line 185 "/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 #2233)" #line 185 "/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 #2231)" ; # Deep #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2232)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2234)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2236)" } } sub get_feature ($$$) { my ($self, $feature, $version) = @_; { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #2241)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #2239)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #2237)" $feature = lc $feature; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2238)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2240)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2242)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #2247)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #2245)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #2243)" $version = '' unless defined $version; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2244)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2246)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2248)" } 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 #2253)" #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 #2251)" #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 #2249)" $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 #2250)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2252)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2254)" } $r} 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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2357)" #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2257)" 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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2255)" ($q1, $q2, $q3) = split /\s*\.\s*/, $xcref, 3; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2256)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2258)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2351)" local $Error::Depth = $Error::Depth + 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=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2349)" #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2299)" 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=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2259)" (defined $q3) { $r->[2] = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2260)" get_resource #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2261)" ($contextNode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2262)" tfqnames_to_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=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2263)" ($q3, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2264)" undef #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2265)" , $opt{for_arg}, node => $opt{node})); $r->[1] = $r->[2]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2266)" 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=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2267)" ; } elsif (defined $q2) { if ($q2 =~ /:/) { $r->[1] = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2268)" get_resource #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2269)" ($contextNode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2270)" tfqnames_to_uri #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2271)" ($q2, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2272)" undef #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2273)" , $opt{for_arg}, node => $opt{node})); } else { $r->[0] = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2274)" get_resource #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2275)" ($contextNode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2276)" tfqnames_to_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=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2277)" ($q1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2278)" undef #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2279)" , $opt{for_arg}, node => $opt{node})); $r->[1] = $r->[0]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2280)" get_const_resource_by_name #line 16 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2281)" ($q2); } } else { ## $q1 only $r->[2] = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2282)" get_resource #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2283)" ($contextNode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2284)" tfqnames_to_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=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2285)" ($q1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2286)" undef #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2287)" , $opt{for_arg}, node => $opt{node})); if ($r->[2]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2288)" is_type_uri #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2289)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2290)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ExceptionOrWarningSubType' #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2291)" )) { $r->[1] = $r->[2]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2292)" parent_resource #line 23 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2293)" ; } 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 #2294)" is_type_uri #line 30 "/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=Perl:ARRAY::ManakaiDOM:all][@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#ExceptionOrWarningSubType' #line 30 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2297)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2298)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2300)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2305)" local $Error::Depth = $Error::Depth - 1; { #line 35 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2303)" #line 35 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2301)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2302)" 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#ExceptionOrWarningSubType', '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 #2304)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2306)" } #line 40 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2315)" #line 40 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2307)" ; } $r->[2]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2308)" is_referred #line 42 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2309)" ($opt{node} or $contextNode) if $r->[2]; if (not $r->[1] or not $r->[1]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2310)" is_type_uri #line 47 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2311)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2312)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const' #line 47 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2313)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2314)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2316)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2321)" local $Error::Depth = $Error::Depth - 1; { #line 49 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2319)" #line 49 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2317)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2318)" 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]->{localName}, '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]->{uri}; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2320)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2322)" } #line 55 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2335)" #line 55 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2323)" ; } $r->[1]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2324)" is_referred #line 57 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2325)" ($opt{node} or $contextNode); unless ($r->[0]) { my $cg = $r->[1]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2326)" parent_resource #line 61 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2327)" ; $r->[0] = $cg-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2328)" parent_resource if #line 62 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2329)" $cg; } if (not $r->[0] or not $r->[0]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2330)" is_type_uri #line 65 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2331)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2332)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#AnyExceptionAnyClass' #line 65 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2333)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2334)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2336)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2341)" local $Error::Depth = $Error::Depth - 1; { #line 67 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2339)" #line 67 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2337)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2338)" 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]->{localName}, '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 #2340)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2342)" } #line 73 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2347)" #line 73 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2343)" ; } $r->[0]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2344)" is_referred #line 75 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2345)" ($opt{node} or $contextNode); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2346)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2348)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2350)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2352)" } #line 77 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2355)" #line 77 "/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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2353)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2354)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2356)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2358)" } $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 #2365)" #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 #2363)" #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 #2359)" $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2360)" '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 #2361)" }->{$fileName} = $doc; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2362)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2364)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2366)" } } 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 #2415)" #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 #2371)" #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 #2367)" $resourceURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2368)" '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 #2369)" defined $resourceURI; my $resURI; if (defined $opt{for_arg}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2370)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2372)" { #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=dis2pm:BlockCode]/PerlDef [b] (Chunk #2379)" #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=dis2pm:BlockCode]/PerlDef [bc] (Chunk #2377)" 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=dis2pm:BlockCode]/PerlDef [u] (Chunk #2373)" ($opt{for_arg} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2374)" '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=dis2pm:BlockCode]/PerlDef [u] (Chunk #2375)" ) { $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. qq; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2376)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2378)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2380)" } #line 5 "/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 #2385)" #line 5 "/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 #2381)" ; } else { $resURI = $resourceURI; } if (defined $self->{resDef}->{$resURI}) { $r = $self->{resDef}->{$resURI}; } elsif (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2382)" '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=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2383)" }->{$resURI}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2384)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2386)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2399)" local $Error::Depth = $Error::Depth + 1; { #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 [b] (Chunk #2397)" #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 [bc] (Chunk #2395)" #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 #2387)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2388)" _pl_load_dis_database_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=getResource][@type=DISLang:Method]/Return[@Type=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2389)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2390)" get_module #line 15 "/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 #2391)" (${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2392)" 'rm' #line 16 "/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 #2393)" }->{$resURI}})); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2394)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2396)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2398)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2400)" } #line 17 "/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 #2403)" #line 17 "/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 #2401)" ; unless (defined $self->{resDef}->{$resURI}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2402)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2404)" 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 23 "/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 #2413)" #line 23 "/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 #2405)" ; } $r = $self->{resDef}->{$resURI}; } else { $r = $self->{resDef}->{$resURI} = bless { uri => $resURI, aliasURI => {$resURI => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2406)" 1 #line 30 "/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 #2407)" }, db => $self, for => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2408)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 32 "/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 #2409)" , forp => [], seq => -1, }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2410)" 'Message::Util::DIS::ManakaiDISResourceDefinition' #line 35 "/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 #2411)" ; require Scalar::Util; Scalar::Util::weaken ($r->{db}); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2412)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2414)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2416)" } $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::DIS::ManakaiDISModuleResolver; our $VERSION = 20050927.0522; 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 #2421)" #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 #2419)" #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 #2417)" $r = $self->(@_); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2418)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2420)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2422)" } $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::DIS::ManakaiDISAnyResource; our $VERSION = 20050927.0522; push our @ISA, 'Message::DOM::DOMFeature::ManakaiHasFeatureByGetFeature', 'Message::Util::IF::DISAnyResource', 'Message::Util::IFLatest::DISAnyResource'; 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 #2957)" #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 #2423)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2424)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2951)" 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 #2949)" #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 #2505)" 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 #2425)" (my $src = $self->{src}) { my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2426)" 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 #2427)" ; my $forp = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2428)" 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 #2429)" ; my $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2430)" 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 #2431)" ; for my $el (@{$src-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2432)" 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 #2433)" (for_arg => $for, forp_arg => $forp, database_arg => $db)}) { my $xu = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2434)" 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 #2435)" ; if ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2436)" '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 #2437)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2438)" 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 #2439)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2440)" '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 #2441)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2442)" 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 #2443)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2444)" '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 #2445)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2446)" 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 #2447)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2448)" '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 #2449)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2450)" 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 #2451)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2452)" '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 #2453)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2454)" 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 #2455)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2456)" '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 #2457)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2458)" 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 #2459)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2460)" '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 #2461)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2462)" 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 #2463)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2464)" '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 #2465)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2466)" 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 #2467)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2468)" '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 #2469)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2470)" 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 #2471)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2472)" '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 #2473)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2474)" 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 #2475)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2476)" '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 #2477)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2478)" 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 #2479)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2480)" '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 #2481)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2482)" 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 #2483)" , }->{$xu}) { # } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2484)" 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 #2485)" (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 #2486)" 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 #2487)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2488)" 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 #2489)" ); my $prop_uri = $prop-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2490)" 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 #2491)" ; my $prop_mult = $prop-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2492)" 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 #2493)" ; my $new_value; my $base_type; my $copy_tree = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2494)" 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 #2495)" ; my %mtopt = (for_arg => $for, forp_arg => $forp, default_media_type => $prop-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2496)" 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 #2497)" , database_arg => $db); my $new_value_type = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2498)" 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 #2499)" (%mtopt); if ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2500)" 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 #2501)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2502)" '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 #2503)" , $mtopt{default_media_type}, %mtopt)) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2504)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2506)" { #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 #2513)" #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 #2511)" #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 #2507)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2508)" 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 #2509)" ($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 #2510)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2512)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2514)" } #line 53 "/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 #2553)" #line 53 "/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 #2515)" ; $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2516)" local_name #line 54 "/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 #2517)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2518)" qname_value_local_name #line 55 "/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 #2519)" ); $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2520)" prefix #line 56 "/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 #2521)" (my $prefix = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2522)" qname_value_prefix #line 57 "/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 #2523)" ); if (not defined $prefix) { if ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2524)" media_type_match #line 59 "/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 #2525)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2526)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#LanguageTag' #line 60 "/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 #2527)" , $mtopt{default_media_type}, %mtopt)) { $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2528)" namespace_uri #line 62 "/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 #2529)" ('urn:x-suika-fam-cx:lang:'); } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2530)" media_type_match #line 64 "/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 #2531)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2532)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#ScriptTag' #line 65 "/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 #2533)" , $mtopt{default_media_type}, %mtopt)) { $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2534)" namespace_uri #line 67 "/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 #2535)" ('http://suika.fam.cx/~wakaba/archive/2005/5/script#'); } else { $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2536)" namespace_uri #line 70 "/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 #2537)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2538)" qname_value_namespace_uri #line 71 "/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 #2539)" ); } } else { $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2540)" namespace_uri #line 74 "/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 #2541)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2542)" qname_value_namespace_uri #line 75 "/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 #2543)" ); } ## TODO: Check whether defined } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2544)" media_type_match #line 78 "/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 #2545)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2546)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 79 "/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 #2547)" , $mtopt{default_media_type}, %mtopt) or $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2548)" media_type_match #line 80 "/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 #2549)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2550)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames' #line 81 "/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 #2551)" , $mtopt{default_media_type}, %mtopt)) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2552)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2554)" { #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 #2563)" #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 #2561)" #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 #2555)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2556)" 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 #2557)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2558)" '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 #2559)" , $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 #2560)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2562)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2564)" } #line 90 "/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 #2575)" #line 90 "/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 #2565)" ; ## TODO: Check whether defined $new_value_type = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2566)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 92 "/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 #2567)" ; } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2568)" media_type_match #line 93 "/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 #2569)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2570)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 94 "/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 #2571)" , $mtopt{default_media_type}, %mtopt)) { $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2572)" preserve_node_path #line 96 "/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 #2573)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2574)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2576)" { #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 #2583)" #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 #2581)" #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 #2577)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2578)" 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 #2579)" ($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 #2580)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2582)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2584)" } #line 102 "/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 #2593)" #line 102 "/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 #2585)" ; for my $p ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2586)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 103 "/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 #2587)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2588)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType' #line 103 "/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 #2589)" ) { if (UNIVERSAL::isa ($self->{$p}, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2590)" 'Message::Util::IF::DVURIValue' #line 104 "/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 #2591)" )) { my $v; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2592)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2594)" { #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 #2603)" #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 #2601)" #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 #2595)" $v = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2596)" 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 #2597)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2598)" '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 #2599)" , $self->{$p}->uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2600)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2602)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2604)" } #line 109 "/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 #2635)" #line 109 "/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 #2605)" ; $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2606)" set_property #line 110 "/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 #2607)" ($p => $v); } } $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2608)" default_namespace_uri_ref #line 113 "/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 #2609)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2610)" get_default_namespace_uri_ref #line 114 "/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 #2611)" ); $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2612)" namespace_binding_list #line 115 "/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 #2613)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2614)" get_namespace_binding_list #line 116 "/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 #2615)" ($db)); $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2616)" source_node_path #line 117 "/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 #2617)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2618)" flag #line 118 "/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 #2619)" ('nodePath')); } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2620)" media_type_match #line 119 "/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 #2621)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2622)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#disdoc' #line 120 "/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 #2623)" , $mtopt{default_media_type}, %mtopt) or $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2624)" media_type_match #line 122 "/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 #2625)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2626)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#disdocInline' #line 123 "/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 #2627)" , $mtopt{default_media_type}, %mtopt) or $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2628)" media_type_match #line 125 "/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 #2629)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2630)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#muf' #line 126 "/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 #2631)" , $mtopt{default_media_type}, %mtopt)) { $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2632)" preserve_node_path #line 128 "/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 #2633)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2634)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2636)" { #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 #2643)" #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 #2641)" #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 #2637)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2638)" 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 #2639)" ($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 #2640)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2642)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2644)" } #line 134 "/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 #2667)" #line 134 "/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 #2645)" ; $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2646)" default_namespace_uri_ref #line 135 "/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 #2647)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2648)" get_default_namespace_uri_ref #line 136 "/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 #2649)" ); $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2650)" namespace_binding_list #line 137 "/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 #2651)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2652)" get_namespace_binding_list #line 138 "/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 #2653)" ($db)); $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2654)" source_node_path #line 139 "/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 #2655)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2656)" flag #line 140 "/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 #2657)" ('nodePath')); } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2658)" media_type_match #line 141 "/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 #2659)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2660)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#XCRef' #line 142 "/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 #2661)" , $mtopt{default_media_type}, %mtopt)) { my $x = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2662)" xcref_to_resource #line 144 "/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 #2663)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2664)" value #line 145 "/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 #2665)" , $el, node => $el, for_arg => $self->{for}); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2666)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2668)" { #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 #2677)" #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 #2675)" #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 #2669)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2670)" 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 #2671)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2672)" '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 #2673)" , ($x->[2] or $x->[1] or $x->[0]) ->uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2674)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2676)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2678)" } #line 151 "/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 #2707)" #line 151 "/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 #2679)" ; $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2680)" get_resource #line 152 "/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 #2681)" ($db) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2682)" is_referred #line 153 "/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 #2683)" ($el); $new_value_type = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2684)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 154 "/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 #2685)" ; } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2686)" media_type_match #line 155 "/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 #2687)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2688)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MemberRef' #line 156 "/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 #2689)" , $mtopt{default_media_type}, %mtopt)) { my $v = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2690)" value #line 158 "/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 #2691)" ; $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 #2692)" get_resource #line 163 "/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 #2693)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2694)" tfqnames_value_uri #line 164 "/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 #2695)" ($clsq, $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2696)" source_node_id #line 165 "/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 #2697)" , $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2698)" for_uri #line 166 "/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 #2699)" , node => $el)); $cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2700)" is_referred #line 167 "/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 #2701)" ($el); $res = $cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2702)" get_child_resource_by_name_and_type #line 168 "/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 #2703)" ($mem, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2704)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod' #line 169 "/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 #2705)" ); unless ($res) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2706)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2708)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2713)" local $Error::Depth = $Error::Depth - 1; { #line 171 "/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 #2711)" #line 171 "/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 #2709)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2710)" 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 #2712)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2714)" } #line 182 "/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 #2723)" #line 182 "/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 #2715)" ; } if (defined $gs) { $res = $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2716)" get_child_resource_by_type #line 185 "/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 #2717)" ($gs eq 'get' ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2718)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet' : #line 186 "/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 #2719)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2720)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet' #line 186 "/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 #2721)" ); unless ($res) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2722)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2724)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2729)" local $Error::Depth = $Error::Depth - 1; { #line 189 "/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 #2727)" #line 189 "/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 #2725)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2726)" 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 #2728)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2730)" } #line 199 "/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 #2743)" #line 199 "/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 #2731)" ; } } } else { $res = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2732)" get_resource #line 203 "/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 #2733)" ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2734)" tfqnames_value_uri #line 204 "/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 #2735)" ($clsq, $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2736)" source_node_id #line 205 "/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 #2737)" , $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2738)" for_uri #line 206 "/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 #2739)" , node => $el)); } $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2740)" is_referred #line 208 "/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 #2741)" ($el); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2742)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2744)" { #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 #2753)" #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 #2751)" #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 #2745)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2746)" 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 #2747)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2748)" '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 #2749)" , $el->uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2750)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2752)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2754)" } #line 212 "/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 #2767)" #line 212 "/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 #2755)" ; $new_value_type = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2756)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#URI' #line 213 "/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 #2757)" ; } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2758)" media_type_match #line 214 "/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 #2759)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2760)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis' #line 215 "/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 #2761)" , $mtopt{default_media_type}, %mtopt)) { $copy_tree = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2762)" 1 #line 217 "/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 #2763)" ; $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2764)" preserve_node_path #line 218 "/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 #2765)" ; my $elc = $el->clone; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2766)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2768)" { #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 #2775)" #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 #2773)" #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 #2769)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2770)" 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 #2771)" ($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 #2772)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2774)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2776)" } #line 225 "/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 #2781)" #line 225 "/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 #2777)" ; $elc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2778)" unlink_from_document #line 226 "/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 #2779)" ($db); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2780)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2782)" { #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 #2789)" #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 #2787)" #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 #2783)" $new_value = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2784)" 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 #2785)" ($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 #2786)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2788)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2790)" } #line 233 "/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 #2819)" #line 233 "/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 #2791)" ; } unless ($copy_tree) { for my $ce (@{$el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2792)" dis_child_elements #line 237 "/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 #2793)" (for_arg => $for, forp_arg => $forp, database_arg => $db)}) { my $xu = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2794)" expanded_uri #line 241 "/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 #2795)" ; if ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2796)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AliasFor' #line 243 "/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 #2797)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2798)" 1 #line 243 "/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 #2799)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2800)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For' #line 244 "/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 #2801)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2802)" 1 #line 244 "/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 #2803)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2804)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForCheck' #line 245 "/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 #2805)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2806)" 1 #line 245 "/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 #2807)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2808)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ContentType' #line 246 "/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 #2809)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2810)" 1 #line 246 "/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 #2811)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2812)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--resourceFor' #line 247 "/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 #2813)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2814)" 1 #line 247 "/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 #2815)" , }->{$xu}) { # } elsif ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2816)" is_property_element #line 250 "/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 #2817)" (database_arg => $db)) { my $pr; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2818)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2820)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2827)" local $Error::Depth = $Error::Depth + 1; { #line 253 "/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 #2825)" #line 253 "/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 #2823)" #line 253 "/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 #2821)" $pr = $add_prop->($self, $ce, $db); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2822)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2824)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2826)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2828)" } #line 255 "/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 #2835)" #line 255 "/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 #2829)" ; if ($pr->{prop_mult} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2830)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#OrderedList' #line 256 "/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 #2831)" ) { my $cpv = $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2832)" get_property #line 257 "/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 #2833)" ($xu); if (not $cpv) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2834)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2836)" { #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 #2843)" #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 #2841)" #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 #2837)" $cpv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2838)" 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 #2839)" ($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 #2840)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2842)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2844)" } #line 263 "/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 #2855)" #line 263 "/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 #2845)" ; $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2846)" set_property #line 264 "/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 #2847)" ($xu => $cpv); } $cpv-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2848)" add_item #line 266 "/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 #2849)" ($pr->{new_value}); } elsif ($pr->{prop_mult} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2850)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#UnorderedList' #line 267 "/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 #2851)" ) { my $cpv = $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2852)" get_property #line 268 "/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 #2853)" ($xu); if (not $cpv) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2854)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2856)" { #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 #2863)" #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 #2861)" #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 #2857)" $cpv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2858)" 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 #2859)" ($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 #2860)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2862)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2864)" } #line 274 "/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 #2873)" #line 274 "/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 #2865)" ; $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2866)" set_property #line 275 "/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 #2867)" ($xu => $cpv); } $cpv-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2868)" add_item #line 277 "/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 #2869)" ($pr->{new_value}); } else { $new_value-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2870)" set_property #line 279 "/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 #2871)" ($xu => $pr->{new_value}); } } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2872)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2874)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2879)" local $Error::Depth = $Error::Depth - 1; { #line 283 "/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 #2877)" #line 283 "/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 #2875)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2876)" 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 #2878)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2880)" } #line 286 "/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 #2883)" #line 286 "/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 #2881)" ; } }} # 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 #2882)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2884)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2891)" local $Error::Depth = $Error::Depth + 1; { #line 296 "/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 #2889)" #line 296 "/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 #2887)" #line 296 "/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 #2885)" $pr = $add_prop->($self, $el, $db); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2886)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2888)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2890)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2892)" } #line 298 "/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 #2897)" #line 298 "/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 #2893)" ; if ($pr->{prop_mult} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2894)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#OrderedList' #line 299 "/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 #2895)" ) { if (not $self->{$pr->{prop_uri}}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2896)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2898)" { #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 #2905)" #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 #2903)" #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 #2899)" $self->{$pr->{prop_uri}} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2900)" 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 #2901)" ($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 #2902)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2904)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2906)" } #line 305 "/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 #2913)" #line 305 "/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 #2907)" ; } $self->{$pr->{prop_uri}}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2908)" add_item #line 307 "/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 #2909)" ($pr->{new_value}); } elsif ($pr->{prop_mult} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2910)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#UnorderedList' #line 309 "/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 #2911)" ) { if (not $self->{$pr->{prop_uri}}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2912)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2914)" { #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 #2921)" #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 #2919)" #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 #2915)" $self->{$pr->{prop_uri}} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2916)" 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 #2917)" ($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 #2918)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2920)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2922)" } #line 315 "/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 #2937)" #line 315 "/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 #2923)" ; } $self->{$pr->{prop_uri}}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2924)" add_item #line 317 "/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 #2925)" ($pr->{new_value}); } else { $self->{$pr->{prop_uri}} = $pr->{new_value}; } if ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2926)" element_type_match #line 323 "/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 #2927)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2928)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#propHashKey' #line 324 "/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 #2929)" , database_arg => $db)) { $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2930)" pl_add_hash_key #line 325 "/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 #2931)" ($xu => $pr->{new_value}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2932)" string_value #line 326 "/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 #2933)" => $self); } } elsif ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2934)" is_resource_element #line 329 "/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 #2935)" ) { ## TODO: Should rdf:type be validated? } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2936)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2938)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2943)" local $Error::Depth = $Error::Depth - 1; { #line 332 "/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 #2941)" #line 332 "/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 #2939)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2940)" 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 #2942)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2944)" } #line 335 "/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 #2947)" #line 335 "/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 #2945)" ; } } CORE::delete $self->{src}; ($opt{on_resource_read} or sub () {})->($self, $self); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2946)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2948)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2950)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2952)" } #line 341 "/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 #2955)" #line 341 "/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 #2953)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2954)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2956)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2958)" } } sub owner_module_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2969)" 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 #2967)" #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 #2965)" 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 #2959)" (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2960)" '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 #2961)" }) { $r = ${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2962)" '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 #2963)" }}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2964)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2966)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2968)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2970)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2971)" 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 #2972)" }} sub namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2979)" 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 #2977)" #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 #2975)" #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 #2973)" $r = $self->{namespaceURI}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2974)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2976)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2978)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2980)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2981)" 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 #2982)" }} sub source_element ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2989)" 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 #2987)" #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 #2985)" #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 #2983)" $r = $self->{src}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2984)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2986)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2988)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2990)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2991)" 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 #2992)" }} sub source_node_id_ref ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3001)" 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=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2999)" #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=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2997)" #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=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2993)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2994)" '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=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2995)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2996)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2998)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3000)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3002)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3013)" 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=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #3011)" #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=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3009)" 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=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3003)" (defined $given) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3004)" '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=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3005)" } = $given; } else { CORE::delete $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3006)" '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=pl|SCALAR||ManakaiDOM|all][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3007)" }; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3008)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3010)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3012)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3014)" }} sub for_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3021)" 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 #3019)" #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 #3017)" #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 #3015)" $r = $self->{for}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3016)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3018)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3020)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3022)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3023)" 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 #3024)" }} sub source_node_id ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3037)" 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 #3035)" #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 #3033)" 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 #3025)" (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3026)" '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 #3027)" }) { $r = ${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3028)" '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 #3029)" }}; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3030)" 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 #3031)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3032)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3034)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3036)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3038)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3049)" 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 #3047)" #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 #3045)" 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 #3039)" (defined $given) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3040)" '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 #3041)" } = \$given; } else { CORE::delete $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3042)" '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 #3043)" }; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3044)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3046)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3048)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3050)" }} sub is_defined ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3059)" 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 #3057)" #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 #3055)" #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 #3051)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3052)" '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 #3053)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3054)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3056)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3058)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3060)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3061)" 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 #3062)" }} sub is_referred ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3071)" 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 #3069)" #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 #3067)" #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 #3063)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3064)" '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 #3065)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3066)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3068)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3070)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3072)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3089)" 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 #3087)" #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 #3085)" 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 #3073)" (defined $given) { if (ref $given) { if ($given->isa ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3074)" '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 #3075)" )) { $given = $given-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3076)" 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 #3077)" ; } else { $given = $given-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3078)" 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 #3079)" ('nodePath') || $given-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3080)" 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 #3081)" (key => [qw/QName Name type Type/]); } } $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3082)" '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 #3083)" } = $given; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3084)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3086)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3088)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3090)" }} sub owner_module ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3103)" 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 #3101)" #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 #3099)" #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 #3091)" $r = $self->{db} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3092)" 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 #3093)" (${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3094)" '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 #3095)" }}) if defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3096)" '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 #3097)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3098)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3100)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3102)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3104)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3105)" 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 #3106)" }} sub is_anonymous ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3115)" 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 #3113)" #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 #3111)" #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 #3107)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3108)" '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 #3109)" }; #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 #3114)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3116)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3117)" 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 #3118)" }} sub name_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3125)" 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 #3123)" #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 #3121)" 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 #3119)" (defined $self->{localName}) { $r = defined $self->{namespaceURI} ? $self->{namespaceURI} . $self->{localName} : $self->{localName}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3120)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3122)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3124)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3126)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3127)" 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 #3128)" }} sub local_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3135)" 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 #3133)" #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 #3131)" #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 #3129)" $r = $self->{localName}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3130)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3132)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3134)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3136)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3137)" 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 #3138)" }} 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 #3161)" #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 #3139)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3140)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3155)" 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 #3153)" #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 #3151)" 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 #3141)" 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 #3142)" 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 #3143)" ; last C; } my $this_for = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3144)" 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 #3145)" ($this_for_uri); if ($this_for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3146)" 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 #3147)" ($forURI)) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3148)" 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 #3149)" ; last C; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3150)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3152)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3154)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3156)" } #line 14 "/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 #3159)" #line 14 "/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 #3157)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3158)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3160)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3162)" } $r} sub uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3169)" 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 #3167)" #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 #3165)" #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 #3163)" $r = $self->{uri}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3164)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3166)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3168)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3170)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3171)" 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 #3172)" }} sub forp_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3179)" 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 #3177)" #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 #3175)" #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 #3173)" $r = [@{$self->{forp}}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3174)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3176)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3178)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3180)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3181)" 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 #3182)" }} sub database ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3189)" 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 #3187)" #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 #3185)" #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 #3183)" $r = $self->{db}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3184)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3186)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3188)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3190)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3191)" 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 #3192)" }} sub owner_module_uri_ref ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3201)" 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 #3199)" #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 #3197)" #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 #3193)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3194)" '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 #3195)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3196)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3198)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3200)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3202)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3203)" 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 #3204)" }} 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 #3211)" #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 #3209)" 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 #3205)" (UNIVERSAL::isa ($anotherResource, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3206)" '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 #3207)" )) { $r = $self->{uri} eq $anotherResource->{uri}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3208)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3210)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3212)" } $r} sub uris ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3213)" 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 #3214)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3215)" 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 #3216)" }} sub uri_ref ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3223)" 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 #3221)" #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 #3219)" #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 #3217)" $r = \ ($self->{uri}); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3218)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3220)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3222)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3224)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3225)" 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 #3226)" }} 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::DIS::ManakaiDISModuleDefinition; our $VERSION = 20050927.0522; 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 owner_module ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3233)" 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 #3231)" #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 #3229)" #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 #3227)" $r = $self; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3228)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3230)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3232)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3234)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3235)" 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 #3236)" }} sub is_anonymous ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3245)" 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 #3243)" #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 #3241)" #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 #3237)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3238)" 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 #3239)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3240)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3242)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3244)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3246)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3247)" 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 #3248)" }} sub get_feature ($$$) { my ($self, $feature, $version) = @_; { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #3253)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3251)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3249)" $feature = lc $feature; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3250)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3252)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3254)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #3259)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3257)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3255)" $version = '' unless defined $version; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3256)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3258)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3260)" } 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 #3265)" #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 #3263)" #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 #3261)" $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 #3262)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3264)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3266)" } $r} sub uris ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3273)" 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=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3271)" #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=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3269)" #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=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3267)" $r = [$self->{uri}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3268)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3270)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3272)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3274)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3275)" 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 #3276)" }} 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 #3297)" #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 #3277)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3278)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3291)" 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 #3289)" #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 #3287)" 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 #3279)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3280)" 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 #3281)" ; $r = [map { $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3282)" 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 #3283)" ($$_) } @{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3284)" '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 #3285)" }}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3286)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3288)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3290)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3292)" } #line 6 "/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 #3295)" #line 6 "/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 #3293)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3294)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3296)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3298)" } $r} 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 #3317)" #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 #3299)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3300)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3311)" 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 #3309)" #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 #3307)" 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 #3301)" @{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3302)" '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 #3303)" }||=[]}, $disResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3304)" 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 #3305)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3306)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3308)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3310)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3312)" } #line 4 "/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 #3315)" #line 4 "/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 #3313)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3314)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3316)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3318)" } } $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 = 20050927.0522; 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 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 #3343)" #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 #3319)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3320)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3331)" 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 #3329)" #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 #3327)" #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 #3321)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3322)" 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 #3323)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3324)" _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 #3325)" ($self); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3326)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3328)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3330)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3332)" } #line 4 "/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 #3337)" #line 4 "/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 #3333)" ; if (ref $self eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3334)" 'Message::Util::DIS::ManakaiDISModuleLite' #line 5 "/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 #3335)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3336)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3338)" 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 9 "/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 #3341)" #line 9 "/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 #3339)" ; } my $al = our $AUTOLOAD; $al =~ s/.+:://; my $code = $self->can ($al); if ($code) { goto &$code; } else { require Carp; local $Carp::CarpLevel = $Error::Level; Carp::croak (qq); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3340)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3342)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3344)" } } sub owner_module ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3351)" 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 #3349)" #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 #3347)" #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 #3345)" $r = $self; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3346)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3348)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3350)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3352)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3353)" 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 #3354)" }} sub is_anonymous ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3363)" 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 #3361)" #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 #3359)" #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 #3355)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3356)" 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 #3357)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3358)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3360)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3362)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3364)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3365)" 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 #3366)" }} sub uris ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3373)" 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=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3371)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3369)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleLite][@type=dis|MultipleResource][@type=ManakaiDOM|Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3367)" $r = [$self->{uri}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3368)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3370)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3372)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3374)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3375)" 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 #3376)" }} $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::DIS::ManakaiDISForDefinition; our $VERSION = 20050927.0522; 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 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 #3401)" #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 #3379)" 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 #3377)" @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 #3378)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3380)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3395)" local $Error::Depth = $Error::Depth + 1; { #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 [b] (Chunk #3393)" #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 [bc] (Chunk #3391)" 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 #3381)" my $from (@from) { for my $to (@to) { $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3382)" get_for #line 7 "/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 #3383)" ($from)->{isa}->{$to} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3384)" 1 #line 8 "/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 #3385)" ; $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3386)" get_for #line 9 "/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 #3387)" ($to)->{revISA}->{$from} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3388)" 1 #line 10 "/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 #3389)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3390)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3392)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3394)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3396)" } #line 14 "/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 #3399)" #line 14 "/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 #3397)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3398)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3400)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3402)" } } sub name_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3409)" 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 #3407)" #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 #3405)" #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 #3403)" $r = $self->{uri}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3404)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3406)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3408)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3410)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3411)" 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 #3412)" }} sub is_anonymous ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3421)" 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 #3419)" #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 #3417)" #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 #3413)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3414)" 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 #3415)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3416)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3418)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3420)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3422)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3423)" 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 #3424)" }} 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 #3431)" #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 #3429)" #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 #3425)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3426)" 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 #3427)" ; #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} sub forp_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3439)" 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 #3437)" #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 #3435)" #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 #3433)" $r = []; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3434)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3436)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3438)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3440)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3441)" 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 #3442)" }} 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 #3449)" #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 #3447)" #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 #3443)" $r = $self->{uri} eq $superURI ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3444)" 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 #3445)" $self->{isa}->{$superURI}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3446)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3448)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3450)" } $r} sub for_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3459)" 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 #3457)" #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 #3455)" #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 #3451)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3452)" '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 #3453)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3454)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3456)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3458)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3460)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3461)" 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 #3462)" }} sub get_feature ($$$) { my ($self, $feature, $version) = @_; { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #3467)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3465)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3463)" $feature = lc $feature; #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)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #3473)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #3471)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #3469)" $version = '' unless defined $version; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3470)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3472)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3474)" } 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 #3479)" #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 #3477)" #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 #3475)" $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 #3476)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3478)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3480)" } $r} sub uris ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3487)" 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=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3485)" #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=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3483)" #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=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3481)" $r = [$self->{uri}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3482)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3484)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3486)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3488)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3489)" 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 #3490)" }} $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::DIS::ManakaiDISResourceDefinition; our $VERSION = 20050927.0522; 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 dis_data_type_value ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3521)" 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 #3519)" #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 #3491)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3492)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3509)" 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 #3507)" #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 #3505)" 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 #3493)" (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3494)" '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 #3495)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3496)" '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 #3497)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3498)" '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 #3499)" }; } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3500)" 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 #3501)" ; $r = $pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3502)" 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 #3503)" $pr; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3504)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3506)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3508)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3510)" } #line 8 "/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 #3513)" #line 8 "/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 #3511)" ; unless ($r) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3512)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3514)" 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 13 "/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 #3517)" #line 13 "/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 #3515)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3516)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3518)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3520)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3522)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3523)" 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 #3524)" }} sub dis_is_null_value ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3537)" 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 #3535)" #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 #3533)" 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 #3525)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3526)" '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 #3527)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3528)" '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 #3529)" }-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3530)" 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 #3531)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3532)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3534)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3536)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3538)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3539)" 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 #3540)" }} sub parent_resource ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3565)" 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 #3563)" #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 #3541)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3542)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3557)" 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 #3555)" #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 #3553)" 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 #3543)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3544)" '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 #3545)" }) { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3546)" 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 #3547)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3548)" 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 #3549)" (${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3550)" '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 #3551)" }}); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3552)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3554)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3556)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3558)" } #line 7 "/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 #3561)" #line 7 "/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 #3559)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3560)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3562)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3564)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3566)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3589)" 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 #3587)" #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 #3567)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3568)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3581)" 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 #3579)" #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 #3577)" 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 #3569)" ($given) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3570)" '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 #3571)" } = $given-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3572)" 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 #3573)" ; } else { CORE::delete $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3574)" '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 #3575)" }; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3576)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3578)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3580)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3582)" } #line 8 "/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 #3585)" #line 8 "/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 #3583)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3584)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3586)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3588)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3590)" }} 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 #3615)" #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 #3593)" 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 #3591)" @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 #3592)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3594)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3609)" local $Error::Depth = $Error::Depth + 1; { #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 [b] (Chunk #3607)" #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 [bc] (Chunk #3605)" for #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 #3595)" my $from (@from) { for my $to (@to) { $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3596)" get_resource #line 7 "/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 #3597)" ($from)->{subOf}->{$to} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3598)" 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=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3599)" ; $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3600)" get_resource #line 9 "/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 #3601)" ($to)->{supOf}->{$from} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3602)" 1 #line 10 "/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 #3603)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3604)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3606)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3608)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3610)" } #line 14 "/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 #3613)" #line 14 "/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 #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)" } } sub dis_actual_data_type_value ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3653)" 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 #3651)" #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 #3617)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3618)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3641)" 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 #3639)" #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 #3637)" 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 #3619)" (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3620)" '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 #3621)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3622)" '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 #3623)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3624)" '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 #3625)" }; } elsif (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3626)" '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 #3627)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3628)" '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 #3629)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3630)" '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 #3631)" }; } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3632)" 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 #3633)" ; $r = $pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3634)" 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 #3635)" $pr; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3636)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3638)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3640)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3642)" } #line 12 "/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 #3645)" #line 12 "/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 #3643)" ; unless ($r) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3644)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3646)" 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 17 "/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 #3649)" #line 17 "/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 #3647)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3648)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3650)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3652)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3654)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3655)" 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 #3656)" }} sub feature_name_list ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3693)" 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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3691)" #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3657)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3658)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3685)" 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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3683)" #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3681)" #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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3659)" $r = [map {lc} @{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3660)" 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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3661)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3662)" '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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3663)" )}]; unless (@$r) { ## TODO: instance feature my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3664)" 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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3665)" ; if ($pr) { if ($pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3666)" 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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3667)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3668)" '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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3669)" ) and not $pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3670)" 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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3671)" ) { push @$r, @{$pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3672)" 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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3673)" }; } } } unless (@$r) { if ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3674)" 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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3675)" ) { my $ln = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3676)" 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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3677)" ; push @$r, lc $ln if defined $ln; } else { push @$r, lc $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3678)" 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=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3679)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3680)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3682)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3684)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3686)" } #line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3689)" #line 22 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISResource][@QName=ManakaiDISResourceDefinition][@type=dis|MultipleResource][@type=ManakaiDOM|IF][@type=ManakaiDOM|Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3687)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3688)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3690)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3692)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3694)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3695)" 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 #3696)" }} 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 #3735)" #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 #3705)" 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 #3697)" (not $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3698)" '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 #3699)" }) { # } elsif ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3700)" '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 #3701)" }->{$typeURI}) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3702)" 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 #3703)" ; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3704)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3706)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3729)" local $Error::Depth = $Error::Depth + 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=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3727)" #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 [bc] (Chunk #3725)" C: #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 #3707)" for my $t_type_uri (grep {$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3708)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #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 #3709)" }->{$_}} keys %{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3710)" '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 #3711)" }}) { my $t_type = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3712)" database #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 #3713)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3714)" get_resource #line 9 "/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 #3715)" ($t_type_uri); if ($t_type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3716)" is_subset_of_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=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3717)" ($typeURI)) { $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3718)" add_peoperty_uri_ulist #line 11 "/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 #3719)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3720)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 12 "/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 #3721)" , $typeURI); $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3722)" 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=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3723)" ; last C; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3724)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3726)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3728)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3730)" } #line 18 "/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 #3733)" #line 18 "/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 #3731)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3732)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3734)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3736)" } $r} sub dynamic_parent_resource ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3761)" 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 #3759)" #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 #3737)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3738)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3753)" 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 #3751)" #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 #3749)" 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 #3739)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3740)" '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 #3741)" }) { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3742)" 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 #3743)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3744)" 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 #3745)" (${$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3746)" '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 #3747)" }}); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3748)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3750)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3752)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3754)" } #line 7 "/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 #3757)" #line 7 "/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 #3755)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3756)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3758)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3760)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3762)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3785)" 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 #3783)" #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 #3763)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3764)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3777)" 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 #3775)" #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 #3773)" 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 #3765)" ($given) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3766)" '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 #3767)" } = $given-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3768)" 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 #3769)" ; } else { CORE::delete $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3770)" '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 #3771)" }; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3772)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3774)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3776)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3778)" } #line 8 "/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 #3781)" #line 8 "/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 #3779)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3780)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3782)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3784)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3786)" }} 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 #3791)" #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 #3789)" #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 #3787)" $r = $self->{aliasURI}->{$superURI} || $self->{subOf}->{$superURI}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3788)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3790)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3792)" } $r} 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 #3811)" #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 #3793)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3794)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3805)" 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 #3803)" #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 #3801)" 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 #3795)" @{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3796)" '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 #3797)" }||=[]}, $disResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3798)" 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 #3799)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3800)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3802)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3804)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3806)" } #line 4 "/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 #3809)" #line 4 "/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 #3807)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3808)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3810)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3812)" } } 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 #3835)" #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 #3813)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3814)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3829)" 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 #3827)" #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 #3825)" 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 #3815)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3816)" 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 #3817)" ; $r = [grep { $_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3818)" 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 #3819)" ($typeURI) } map { $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3820)" 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 #3821)" ($$_) } @{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3822)" '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 #3823)" }||[]}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3824)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3826)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3828)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3830)" } #line 8 "/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 #3833)" #line 8 "/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 #3831)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3832)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3834)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3836)" } $r} 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 #3875)" #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 #3839)" 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 #3837)" ($self eq $aliasResource) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3838)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3840)" 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 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 [bc] (Chunk #3853)" #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 #3841)" ; } for my $uri ($aliasResource->{uri}, grep {$aliasResource->{aliasURI}->{$_}} keys %{$aliasResource->{aliasURI}}) { $self->{aliasURI}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3842)" 1 #line 10 "/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 #3843)" ; $self->{db}->{resDef}->{$uri} = $self; $self->{subOf}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3844)" 1 #line 12 "/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 #3845)" ; $self->{supOf}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3846)" 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 #3847)" ; } for my $uri (grep {$aliasResource->{subOf}->{$_}} keys %{$aliasResource->{subOf}||{}}) { $self->{subOf}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3848)" 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 #3849)" ; } for my $uri (grep {$aliasResource->{supOf}->{$_}} keys %{$aliasResource->{supOf}||{}}) { $self->{supOf}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3850)" 1 #line 21 "/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 #3851)" ; } 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 #3852)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3854)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3869)" local $Error::Depth = $Error::Depth + 1; { #line 25 "/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 #3867)" #line 25 "/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 #3865)" for #line 25 "/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 #3855)" my $from (@from) { for my $to (@to) { $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3856)" get_resource #line 27 "/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 #3857)" ($from)->{subOf}->{$to} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3858)" 1 #line 28 "/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 #3859)" ; $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3860)" get_resource #line 29 "/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 #3861)" ($to)->{supOf}->{$from} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3862)" 1 #line 30 "/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 #3863)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3864)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3866)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3868)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3870)" } #line 34 "/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 #3873)" #line 34 "/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 #3871)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3872)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3874)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3876)" } } 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 #3899)" #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 #3877)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3878)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3893)" 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 #3891)" #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 #3889)" 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 #3879)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3880)" 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 #3881)" ; C: for my $cr_uri (@{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3882)" '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 #3883)" }||[]}) { my $cr = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3884)" 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 #3885)" ($$cr_uri); if ($cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3886)" 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 #3887)" ($typeURI)) { $r = $cr; last C; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3888)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3890)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3892)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3894)" } #line 10 "/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 #3897)" #line 10 "/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 #3895)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3896)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3898)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3900)" } $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 #3925)" #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 #3901)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3902)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3919)" 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 #3917)" #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 #3915)" 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 #3903)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3904)" 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 #3905)" ; C: for my $cr_uri (@{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3906)" '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 #3907)" }||[]}) { my $cr = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3908)" 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 #3909)" ($$cr_uri); my $ln = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3910)" 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 #3911)" ; if (defined $ln and $ln eq $localName and $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3912)" 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 #3913)" ($typeURI)) { $r = $cr; last C; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3914)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3916)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3918)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3920)" } #line 12 "/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 #3923)" #line 12 "/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 #3921)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3922)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3924)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3926)" } $r} sub dis_data_type_resource ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3961)" 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 #3959)" #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 #3927)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3928)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3949)" 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 #3947)" #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 #3945)" 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 #3929)" (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3930)" '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 #3931)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3932)" '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 #3933)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3934)" '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 #3935)" }-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3936)" 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 #3937)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3938)" 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 #3939)" ); } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3940)" 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 #3941)" ; $r = $pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3942)" 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 #3943)" $pr; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3944)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3946)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3948)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3950)" } #line 9 "/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 #3953)" #line 9 "/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 #3951)" ; unless ($r) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3952)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3954)" 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 14 "/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 #3957)" #line 14 "/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 #3955)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3956)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3958)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3960)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3962)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3963)" 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 #3964)" }} 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 #3999)" #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 #3965)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3966)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3993)" 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 #3991)" #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 #3989)" 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 #3967)" @constGroup; my $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3968)" 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 #3969)" ; C: for my $cr_uri (@{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3970)" '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 #3971)" }||[]}) { my $cr = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3972)" 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 #3973)" ($$cr_uri); my $ln = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3974)" 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 #3975)" ; if ($ln and $ln eq $localName and $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3976)" 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 #3977)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3978)" '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 #3979)" )) { $r = $cr; last C; } elsif ($cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3980)" 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 #3981)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3982)" '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 #3983)" )) { push @constGroup, $cr; } } unless ($r) { D: for my $cg (@constGroup) { $r = $cg-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3984)" 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 #3985)" ($localName, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3986)" '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 #3987)" ); last D if $r; } } #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 "lib/Message/Util/DIS.dis [/b] (Chunk #3994)" } #line 23 "/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 #3997)" #line 23 "/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 #3995)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3996)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3998)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4000)" } $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 #4021)" #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 #4001)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4002)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4015)" 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 #4013)" #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 #4011)" 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 #4003)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4004)" 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 #4005)" ; $r = [map { $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4006)" 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 #4007)" ($$_) } @{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4008)" '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 #4009)" }}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4010)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4012)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4014)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4016)" } #line 6 "/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 #4019)" #line 6 "/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 #4017)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4018)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4020)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4022)" } $r} 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 #4053)" #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 #4023)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4024)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4047)" 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 #4045)" #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 #4043)" 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 #4025)" @f = @{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4026)" 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 #4027)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4028)" '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 #4029)" , isa_recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4030)" 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 #4031)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4032)" '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 #4033)" )}; if (@f) { for my $f (@f) { if ($f-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4034)" 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 #4035)" ($featureResourceURI)) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4036)" 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 #4037)" ; last; } } } else { my $parent = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4038)" 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 #4039)" ; $r = $parent-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4040)" 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 #4041)" ($featureResourceURI) if $parent; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4042)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4044)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4046)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4048)" } #line 21 "/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 #4051)" #line 21 "/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 #4049)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4050)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4052)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4054)" } $r} sub default_lextype_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4083)" 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 #4081)" #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 #4055)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4056)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4075)" 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 #4073)" #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 #4071)" 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 #4057)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4058)" '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 #4059)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4060)" '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 #4061)" } -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4062)" 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 #4063)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4064)" 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 #4065)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4066)" 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 #4067)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4068)" '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 #4069)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4070)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4072)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4074)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4076)" } #line 10 "/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 #4079)" #line 10 "/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 #4077)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4078)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4080)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4082)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4084)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4085)" 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 #4086)" }} 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 #4105)" #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 #4087)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4088)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4099)" 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 #4097)" #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 #4095)" 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 #4089)" @{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4090)" '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 #4091)" }||=[]}, $disResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4092)" 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 #4093)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4094)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4096)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4098)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4100)" } #line 4 "/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 #4103)" #line 4 "/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 #4101)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4102)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4104)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4106)" } } sub dis_actual_data_type_resource ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4151)" 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 #4149)" #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 #4107)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4108)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4139)" 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 #4137)" #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 #4135)" 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 #4109)" (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4110)" '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 #4111)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4112)" '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 #4113)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4114)" '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 #4115)" }-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4116)" 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 #4117)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4118)" 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 #4119)" ); } elsif (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4120)" '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 #4121)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4122)" '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 #4123)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4124)" '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 #4125)" }-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4126)" 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 #4127)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4128)" 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 #4129)" ); } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4130)" 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 #4131)" ; $r = $pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4132)" 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 #4133)" $pr; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4134)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4136)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4138)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4140)" } #line 14 "/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 #4143)" #line 14 "/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 #4141)" ; unless ($r) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4142)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4144)" 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 19 "/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 #4147)" #line 19 "/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 #4145)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4146)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4148)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4150)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4152)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4153)" 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 #4154)" }} sub multiple_properties_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4183)" 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 #4181)" #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 #4155)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4156)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4175)" 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 #4173)" #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 #4171)" 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 #4157)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4158)" '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 #4159)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4160)" '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 #4161)" } -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4162)" 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 #4163)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4164)" 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 #4165)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4166)" 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 #4167)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4168)" '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 #4169)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4170)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4172)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4174)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4176)" } #line 10 "/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 #4179)" #line 10 "/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 #4177)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4178)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4180)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4182)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4184)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4185)" 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 #4186)" }} sub get_feature ($$$) { my ($self, $feature, $version) = @_; { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #4191)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #4189)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #4187)" $feature = lc $feature; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4188)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4190)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4192)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #4197)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #4195)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #4193)" $version = '' unless defined $version; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4194)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4196)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4198)" } 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 #4203)" #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 #4201)" #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 #4199)" $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 #4200)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4202)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4204)" } $r} 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 #4225)" #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 #4205)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4206)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4219)" 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 #4217)" #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 #4215)" 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 #4207)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4208)" 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 #4209)" ; $r = [map { $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4210)" 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 #4211)" ($$_) } @{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4212)" '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 #4213)" }}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4214)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4216)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4218)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4220)" } #line 6 "/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 #4223)" #line 6 "/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 #4221)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4222)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4224)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4226)" } $r} sub uris ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4233)" 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=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4231)" #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=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4229)" #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=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4227)" $r = [grep {$self->{aliasURI}->{$_}} keys %{$self->{aliasURI}}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4228)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4230)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4232)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4234)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4235)" 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 #4236)" }} sub owner_class_node_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4269)" 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 #4267)" #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 #4243)" 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 #4237)" (exists $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4238)" '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 #4239)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4240)" '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 #4241)" }; } else { my $res = $self; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4242)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4244)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4259)" local $Error::Depth = $Error::Depth + 1; { #line 5 "/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 #4257)" #line 5 "/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 #4255)" RES: #line 5 "/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 #4245)" { if ($res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4246)" 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]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4247)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4248)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class' #line 7 "/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 #4249)" )) { $r = $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4250)" source_node_id #line 8 "/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 #4251)" ; } else { $res = $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4252)" 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=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4253)" ; redo RES if $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 #4258)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4260)" } #line 15 "/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 #4265)" #line 15 "/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 #4261)" ; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4262)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass' #line 16 "/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 #4263)" } = $r; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4264)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4266)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4268)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4270)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4271)" 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 #4272)" }} 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 #4279)" #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 #4277)" 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 #4273)" (UNIVERSAL::isa ($anotherResource, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4274)" '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 #4275)" )) { $r = $self->{seq} <=> $anotherResource->{seq}; } else { $r = $self->{uri} <=> $anotherResource; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4276)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4278)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4280)" } $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::DIS::ManakaiDISResourceMV; our $VERSION = 20050927.0522; push our @ISA, 'Message::Util::IF::DISResourceMV', 'Message::Util::IFLatest::DISResourceMV'; sub mv_prefix ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4307)" 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 #4305)" #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 #4281)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4282)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4299)" 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 #4297)" #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 #4295)" 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 #4283)" (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4284)" '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 #4285)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4286)" '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 #4287)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4288)" '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 #4289)" }-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4290)" 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 #4291)" ; } unless (defined $r) { my $nsuri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4292)" 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 #4293)" ; 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 #4294)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4296)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4298)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4300)" } #line 14 "/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 #4303)" #line 14 "/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 #4301)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4302)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4304)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4306)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4308)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4309)" 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 #4310)" }} sub mv_owner_element_resource ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4343)" 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 #4341)" #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 #4311)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4312)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4335)" 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 #4333)" #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 #4331)" 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 #4313)" (exists $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4314)" '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 #4315)" }) { $r = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4316)" 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 #4317)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4318)" '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 #4319)" }) if defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4320)" '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 #4321)" }; } else { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4322)" 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 #4323)" ; undef $r unless $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4324)" 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 #4325)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4326)" '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 #4327)" ); $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4328)" '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 #4329)" } = $r->{uri} if $r; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4330)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4332)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4334)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4336)" } #line 12 "/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 #4339)" #line 12 "/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 #4337)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4338)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4340)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4342)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4344)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4345)" 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 #4346)" }} sub mv_namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4371)" 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 #4369)" #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 #4347)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4348)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4363)" 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 #4361)" #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 #4359)" 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 #4349)" (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4350)" '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 #4351)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4352)" '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 #4353)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4354)" '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 #4355)" }-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4356)" 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 #4357)" ; } else { $r = $self->{namespaceURI}; } #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 #4362)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4364)" } #line 8 "/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 #4367)" #line 8 "/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 #4365)" ; #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)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4372)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4373)" 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 #4374)" }} sub mv_local_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4399)" 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 #4397)" #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 #4375)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4376)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4391)" 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 #4389)" #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 #4387)" 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 #4377)" (UNIVERSAL::isa ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4378)" '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 #4379)" }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4380)" '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 #4381)" )) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4382)" '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 #4383)" }-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4384)" 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 #4385)" ; } else { $r = $self->{localName}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4386)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4388)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4390)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4392)" } #line 8 "/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 #4395)" #line 8 "/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 #4393)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4394)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4396)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4398)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4400)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4401)" 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 #4402)" }} $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::DIS::ManakaiDISPropertyAccessor; our $VERSION = 20050927.0522; push our @ISA, 'Message::Util::IF::DISResourceProp', 'Message::Util::IFLatest::DISResourceProp'; 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 #4415)" #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 #4413)" 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 #4403)" (defined $self->{$propName}) { $r = $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4404)" 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 #4405)" ; $r = $default unless defined $r; } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4406)" 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 #4407)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4408)" 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 #4409)" ($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 #4410)" 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 #4411)" ; last C; } } $r = $default; } # C } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4412)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4414)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4416)" } $r} 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 #4465)" #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 #4419)" 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 #4417)" ($self->{$propName}) { my $uriv; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4418)" #line 1 "lib/Message/Util/DIS.dis [/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=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4429)" #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 #4427)" #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 #4421)" $uriv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4422)" 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 #4423)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4424)" '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 #4425)" , $res->uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4426)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4428)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4430)" } #line 6 "/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 #4435)" #line 6 "/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 #4431)" ; $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4432)" add_item #line 7 "/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 #4433)" ($uriv); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4434)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4436)" { #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 #4443)" #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 #4441)" #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 #4437)" $self->{$propName} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4438)" 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 #4439)" ('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 #4440)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4442)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4444)" } #line 13 "/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 #4447)" #line 13 "/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 #4445)" ; my $uriv; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4446)" #line 1 "lib/Message/Util/DIS.dis [/bc] (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=createURI][@type=dis2pm|BlockCode]/PerlDef [b] (Chunk #4457)" #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 #4455)" #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 #4449)" $uriv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4450)" 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 #4451)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4452)" '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 #4453)" , $res->uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4454)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4456)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4458)" } #line 18 "/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 #4463)" #line 18 "/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 #4459)" ; $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4460)" add_item #line 19 "/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 #4461)" ($uriv); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4462)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4464)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4466)" } } 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=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4477)" #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=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4475)" 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=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4467)" $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4468)" 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=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4469)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4470)" 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=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4471)" ($propName); $r = [map {$_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4472)" 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=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4473)" } 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 #4474)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4476)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4478)" } $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 #4527)" #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 #4481)" 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 #4479)" ($self->{$propName}) { my $uriv; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4480)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4482)" { #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 #4491)" #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 #4489)" #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 #4483)" $uriv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4484)" 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 #4485)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4486)" '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 #4487)" , $res->uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4488)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4490)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4492)" } #line 6 "/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 #4497)" #line 6 "/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 #4493)" ; $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4494)" add_item #line 7 "/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 #4495)" ($uriv); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4496)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4498)" { #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 #4505)" #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 #4503)" #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 #4499)" $self->{$propName} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4500)" 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 #4501)" ('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 #4502)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4504)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4506)" } #line 13 "/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 #4509)" #line 13 "/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 #4507)" ; my $uriv; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4508)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4510)" { #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 #4519)" #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 #4517)" #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 #4511)" $uriv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4512)" 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 #4513)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4514)" '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 #4515)" , $res->uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4516)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4518)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4520)" } #line 18 "/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 #4525)" #line 18 "/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 #4521)" ; $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4522)" add_item #line 19 "/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 #4523)" ($uriv); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4524)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4526)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4528)" } } 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 #4549)" #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 #4547)" 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 #4529)" (ref $self->{$propName}) { $r = $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4530)" 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 #4531)" ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4532)" 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 #4533)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4534)" 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 #4535)" ; $r = $default unless defined $r; } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4536)" 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 #4537)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4538)" 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 #4539)" ($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 #4540)" 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 #4541)" ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4542)" 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 #4543)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4544)" 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 #4545)" ; last C; } } $r = $default; } # C } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4546)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4548)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4550)" } $r} 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 #4559)" #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 #4557)" 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 #4551)" ($self->{$propName}) { $r = $self->{$propName}->[0]; } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4552)" 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 #4553)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4554)" 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 #4555)" ($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 #4556)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4558)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4560)" } $r} 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 #4619)" #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 #4561)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4562)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4613)" 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 #4611)" #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 #4565)" 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 #4563)" ($self->{$propName}) { my $uriv; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4564)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4566)" { #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 #4575)" #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 #4573)" #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 #4567)" $uriv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4568)" 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 #4569)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4570)" '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 #4571)" , $uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4572)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4574)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4576)" } #line 7 "/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 #4581)" #line 7 "/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 #4577)" ; $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4578)" add_item #line 8 "/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 #4579)" ($uriv); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4580)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4582)" { #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 #4589)" #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 #4587)" #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 #4583)" $self->{$propName} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4584)" 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 #4585)" ('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 #4586)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4588)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4590)" } #line 14 "/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 #4593)" #line 14 "/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 #4591)" ; my $uriv; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4592)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4594)" { #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 #4603)" #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 #4601)" #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 #4595)" $uriv = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4596)" 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 #4597)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4598)" '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 #4599)" , $uri); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4600)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4602)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4604)" } #line 19 "/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 #4609)" #line 19 "/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 #4605)" ; $self->{$propName}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4606)" add_item #line 20 "/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 #4607)" ($uriv); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4608)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4610)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4612)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4614)" } #line 22 "/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 #4617)" #line 22 "/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 #4615)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4616)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4618)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4620)" } } 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 #4731)" #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 #4623)" #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 #4621)" $r = []; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4622)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4624)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4647)" local $Error::Depth = $Error::Depth + 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 [b] (Chunk #4645)" #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 [bc] (Chunk #4643)" my #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 #4625)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4626)" get_property_value_list #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 #4627)" ($propName); my $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4628)" database #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 #4629)" ; for my $a (@$v) { if ($a->isa ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4630)" 'Message::Util::IF::DVURIValue' #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 #4631)" )) { push @$r, $a-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4632)" 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=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4633)" ($db); } if ($opt{isa_recursive}) { my $b = $a-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4634)" get_property #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 #4635)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4636)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#stopISARecursive' #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 #4637)" ); if ($b and $b-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4638)" value #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 #4639)" ) { $opt{isa_recursive} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4640)" 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 #4641)" ; } } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4642)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4644)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4646)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4648)" } #line 17 "/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 #4651)" #line 17 "/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 #4649)" ; if ($opt{recursive}) { #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 #4667)" local $Error::Depth = $Error::Depth + 1; { #line 20 "/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 #4665)" #line 20 "/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 #4663)" #line 20 "/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 #4653)" $opt{___recursive_isa_done} ||= {$self->{uri} => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4654)" 1 #line 21 "/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 #4655)" }; 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 #4656)" 1 #line 25 "/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 #4657)" ; push @$r, @{$p_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4658)" get_property_resource_list #line 26 "/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 #4659)" ($propName, recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4660)" 1 #line 27 "/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 #4661)" , 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 #4662)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4664)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4666)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4668)" } #line 32 "/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 #4671)" #line 32 "/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 #4669)" ; } if ($opt{recursive_isa}) { #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 #4689)" local $Error::Depth = $Error::Depth + 1; { #line 35 "/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 #4687)" #line 35 "/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 #4685)" #line 35 "/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 #4673)" $opt{___recursive_isa_done} ||= {$self->{uri} => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4674)" 1 #line 36 "/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 #4675)" }; 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 #4676)" 1 #line 40 "/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 #4677)" ; push @$r, @{$p_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4678)" get_property_resource_list #line 41 "/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 #4679)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4680)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA' #line 42 "/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 #4681)" , recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4682)" 1 #line 43 "/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 #4683)" , ___recursive_isa_done => $opt{___recursive_isa_done}, default_media_type => $opt{default_media_type})}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4684)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4686)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4688)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4690)" } #line 47 "/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 #4693)" #line 47 "/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 #4691)" ; } if ($opt{isa_recursive}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4692)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4694)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4725)" local $Error::Depth = $Error::Depth + 1; { #line 50 "/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 #4723)" #line 50 "/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 #4721)" #line 50 "/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 #4695)" $opt{___recursive_isa_done} ||= {$self->{uri} => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4696)" 1 #line 51 "/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 #4697)" }; $opt{___isa_recursive_done} ||= {$self->{uri} => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4698)" 1 #line 52 "/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 #4699)" }; my @p_res = @{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4700)" get_property_resource_list #line 53 "/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 #4701)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4702)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA' #line 54 "/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 #4703)" , recursive_isa => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4704)" 0 #line 54 "/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 #4705)" , recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4706)" 0 #line 55 "/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 #4707)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4708)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 56 "/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 #4709)" )}; 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 #4710)" 1 #line 59 "/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 #4711)" ; push @$r, @{$p_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4712)" get_property_resource_list #line 60 "/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 #4713)" ($propName, recursive_isa => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4714)" 0 #line 61 "/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 #4715)" , recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4716)" 0 #line 62 "/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 #4717)" , isa_recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4718)" 1 #line 63 "/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 #4719)" , ___isa_recursive_done => $opt{___isa_recursive_done}, default_media_type => $opt{default_media_type})}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4720)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4722)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4724)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4726)" } #line 68 "/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 #4729)" #line 68 "/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 #4727)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4728)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4730)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4732)" } $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=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4741)" #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=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4739)" 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=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4733)" $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4734)" 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=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4735)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4736)" 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=Perl|ARRAY||ManakaiDOM|all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4737)" ($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 #4738)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4740)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4742)" } $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=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4765)" #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=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4743)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4744)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4759)" 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=DISResource][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4757)" #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=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4755)" 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=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4745)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4746)" 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=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4747)" ($propName); if (UNIVERSAL::isa ($v, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4748)" '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=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4749)" )) { $r = $v-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4750)" 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=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4751)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4752)" 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=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4753)" ); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4754)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4756)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4758)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4760)" } #line 8 "/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=DISResource][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4763)" #line 8 "/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=DISResource][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4761)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4762)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4764)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4766)" } $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::DISException; our $VERSION = 20050927.0522; push our @ISA, 'Message::Util::Error'; package Message::Util::DIS::ManakaiDISException; our $VERSION = 20050927.0522; push our @ISA, 'Message::Util::Error::DOMException::ManakaiDOMException', 'Message::Util::IF::DISException', 'Message::Util::IF::ManakaiDOMExceptionIF', 'Message::Util::IFLatest::DISException'; sub HIERARCHY_REQUEST_ERR () { 3} sub ___error_def () { #line 1 "lib/Message/Util/DIS.dis [u] (Chunk #4767)" {'HIERARCHY_REQUEST_ERR', {'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'}}, 'description', 'An attempt is made to break the hierarchy.'}, 'INVALID_STATE_ERR', {'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.'}}, 'description', 'An attempt is made to use an object that is not (or no longer) usable.'}, 'NOT_SUPPORTED_ERR', {'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#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'}, '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'}}, 'description', 'An attempt is made to do something the implementation does not support.'}, 'INVALID_SOURCE_ERR', {'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#code', '200', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype', {'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#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_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#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#PERL_PREPROCESS_NO_EXCEPTION_TYPE_ERR', {'description', 'An exception type specification is required.'}, '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#RESERVED_PERL_METHOD_NAME_ERR', {'description', 'A reserved Perl method name is used.'}, '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_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#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#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#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#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#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_NO_CODE_NAME_ERR', {'description', 'A code name specification is required.'}, '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_LOCAL_NAME_ERR', {'description', 'The resource does not have a local name.'}, '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#PERL_PREPROCESS_NO_ASSERT_TYPE_ERR', {'description', 'An assertion type specification is required.'}, '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#NO_MODULE_QNAME_ERR', {'description', 'The element must have its attribute.'}, '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#PERL_PREPROCESS_NO_FOR_ERR', {'description', 'A specification is required.'}, '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#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#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#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#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#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_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#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#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_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#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_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#UNSUPPORTED_ROLE_ERR', {'description', 'Role <%p (name => {http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri});> is not supported'}, '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#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#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_LICENSE_ATTR_ERR', {'description', 'The element does not have the attribute.'}}, 'description', 'The source input is well-formed but invalid.'}} #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4768)" } sub INVALID_STATE_ERR () { 11} sub NOT_SUPPORTED_ERR () { 9} sub INVALID_SOURCE_ERR () { 200} $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 1; for ($Message::Util::IF::DISDocumentFragment::, $Message::Util::IF::DISDatabase::, $Message::Util::IFLatest::DISElement::, $Message::Util::IFLatest::DISParser::, $Message::Util::IF::DISAnyResourcePerl::, $Message::Util::IF::DISElement::, $Message::Util::IFLatest::DISModuleResolver::, $Message::Util::IFLatest::DISComment::, $Message::Util::IF::ManakaiDOMExceptionIF::, $Message::Util::IF::DISResourceMV::, $Message::Util::IF::DISAnyResource::, $Message::Util::IFLatest::DISNode::, $Message::Util::IFLatest::DISFor::, $Message::Util::IFLatest::DISDocument::, $Message::Util::IFLatest::DISModule::, $Message::Util::IFLatest::DISResourceProp::, $Message::Util::IF::DISElementList::, $Message::Util::IF::DISException::, $Message::Util::IF::DISDocument::, $Message::Util::IF::DISModuleResolver::, $Message::Util::IF::DISModuleElement::, $Message::Util::IFLatest::DISResource::, $Message::Util::IFLatest::DISDocumentFragment::, $Message::Util::IFLatest::DISAnyResource::, $Message::Util::IF::DISResource::, $Message::Util::IF::NSResolverDIS::, $Message::Util::IFLatest::DISResourceMV::, $Message::Util::IF::DISImplementation::, $Message::Util::IFLatest::DISModuleElement::, $Message::Util::IF::DISModulePerl::, $Message::Util::IF::DISFor::, $Message::Util::IF::DISComment::, $Message::Util::IF::DISNode::, $Message::Markup::IFLatest::SWCFGParser::, $Message::Util::IFLatest::DISImplementation::, $Message::Util::IFLatest::DISDatabase::, $Message::Util::IF::DISParser::, $Message::Util::IF::DISResourceProp::, $Message::Util::IF::DISResourcePerlModule::, $Message::Util::IFLatest::DISElementList::, $Message::Util::IFLatest::NSResolverDIS::, $Message::Util::IF::DISModule::, $Message::DOM::IFLatest::GetFeature::){} ## License: 1;