#!/usr/bin/perl ## This file is automatically generated ## at 2005-09-04T13:46:54+00:00, ## from file "lib/Message/Util/DIS.dis", ## module , ## for . ## Don't edit by hand! use strict; require Message::Util::PerlCode; require Message::Util::Error::DOMException; require Message::Markup::SuikaWikiConfig21; require Message::DOM::DOMLS; require Message::Util::ManakaiNode; package Message::Util::DIS; our $VERSION = 20050904.1346; sub HIERARCHY_REQUEST_ERR (); sub INVALID_STATE_ERR (); sub NOT_SUPPORTED_ERR (); sub INVALID_SOURCE_ERR (); sub AUTOLOAD { #line 1 "lib/Message/Util/DIS.dis [u] (Chunk #1)" my $al = our $AUTOLOAD; $al =~ s/.+:://; if ({'HIERARCHY_REQUEST_ERR', 'Message::Util::DIS::HIERARCHY_REQUEST_ERR', 'INVALID_STATE_ERR', 'Message::Util::DIS::INVALID_STATE_ERR', 'NOT_SUPPORTED_ERR', 'Message::Util::DIS::NOT_SUPPORTED_ERR', 'INVALID_SOURCE_ERR', 'Message::Util::DIS::INVALID_SOURCE_ERR'}->{$al}) { no strict 'refs'; *{$AUTOLOAD} = \&{{'HIERARCHY_REQUEST_ERR', 'Message::Util::DIS::HIERARCHY_REQUEST_ERR', 'INVALID_STATE_ERR', 'Message::Util::DIS::INVALID_STATE_ERR', 'NOT_SUPPORTED_ERR', 'Message::Util::DIS::NOT_SUPPORTED_ERR', 'INVALID_SOURCE_ERR', 'Message::Util::DIS::INVALID_SOURCE_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 = ('ManakaiDISExceptionCode', ['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 = 20050904.1346; push our @ISA, 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGImplementation'; sub create_dis_parser ($) { my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=ManakaiDISParser][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #13)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=ManakaiDISParser][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #11)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=ManakaiDISParser][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=ManakaiDISParser][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISParser][@type=DISLang:Method]/Return[@Type=ManakaiDISParser][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #29)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #27)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@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)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #25)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #26)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #28)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #30)" } $r} sub create_dis_document ($) { my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #43)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #41)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #31)" $r = bless $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #32)" create_swcfg_document #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #33)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #34)" 'Message::Util::DIS::ManakaiDISDocument' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #35)" ; $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #36)" default_element_type_namespace_uri #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #37)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #38)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=createDISDocument][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #39)" ); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #40)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #42)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #44)" } $r} sub pl_load_dis_database ($$) { my ($self, $fileName) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=plLoadDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #55)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=plLoadDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #53)" use #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=plLoadDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #45)" Storable qw/retrieve/; local $Carp::CarpLevel = $Carp::CarpLevel + 1; $r = retrieve $fileName; ## Restores weak references require Scalar::Util; for my $doc (values %{$r->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #46)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile' #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=plLoadDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #47)" }}) { Scalar::Util::weaken ($doc->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #48)" 'node' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=plLoadDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #49)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #50)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=plLoadDISDatabase][@type=DISLang:Method]/Return[@Type=ManakaiDISDatabase][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #51)" }); } for my $def (values %{$r->{modDef}}, values %{$r->{forDef}}, values %{$r->{resDef}}) { Scalar::Util::weaken ($def->{db}); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #52)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #54)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #56)" } $r} sub _camel_case_to_underscore_name ($$) { my ($self, $camelName) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/IntMethod[@Name=camelCaseToUnderscoreName][@type=DISLang:Method]/Return[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #61)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/IntMethod[@Name=camelCaseToUnderscoreName][@type=DISLang:Method]/Return[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #59)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/IntMethod[@Name=camelCaseToUnderscoreName][@type=DISLang:Method]/Return[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #57)" $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 #58)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #60)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #62)" } $r} sub tfuris_to_uri ($;$$) { my ($self, $typeURI, $forURI) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #83)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #69)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #63)" $typeURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #64)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' unless #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #65)" defined $typeURI; $forURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #66)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #67)" defined $forURI; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #68)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #70)" { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #77)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #75)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #71)" ($forURI eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #72)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #73)" ) { $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 #74)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #76)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #78)" } #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #81)" #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/Method[@Name=tfurisToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #79)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #80)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #82)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #84)" } $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#core', {'', '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} = 6.1; $Message::DOM::ManakaiDOMImplementationSource::SourceClass{q} = 1; $Message::DOM::ManakaiDOMImplementation::CompatClass{q} = 1; package Message::Util::DIS::ManakaiDISParser; our $VERSION = 20050904.1346; push our @ISA, 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGParser'; sub parse ($$) { my ($self, $input) = @_; { #line 1 "/document (lib/Message/DOM/DOMLS.dis)/IF[@Name=LSInput][@QName=ManakaiDOMLSInput][@type=dis:MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [b] (Chunk #91)" #line 1 "/document (lib/Message/DOM/DOMLS.dis)/IF[@Name=LSInput][@QName=ManakaiDOMLSInput][@type=dis:MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [bc] (Chunk #89)" if #line 1 "/document (lib/Message/DOM/DOMLS.dis)/IF[@Name=LSInput][@QName=ManakaiDOMLSInput][@type=dis:MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [u] (Chunk #85)" (ref $input eq 'HASH') { $input = bless $input, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #86)" 'Message::DOM::DOMLS::ManakaiDOMLSInput' #line 2 "/document (lib/Message/DOM/DOMLS.dis)/IF[@Name=LSInput][@QName=ManakaiDOMLSInput][@type=dis:MultipleResource]/ResourceDef[@type=DISLang|InputProcessor]/PerlDef [u] (Chunk #87)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #88)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #90)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #92)" } my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #113)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #93)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #94)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #101)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #99)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #97)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #95)" $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 #96)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #98)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #100)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #102)" } #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #111)" #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #103)" ; if (defined $r) { $r = bless $r, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #104)" 'Message::Util::DIS::ManakaiDISDocument' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #105)" ; $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #106)" default_element_type_namespace_uri #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #107)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #108)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISParser][@type=ManakaiDOM:Class]/Method[@Name=parse][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #109)" ); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #110)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #112)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #114)" } $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; package Message::Util::DIS::ManakaiDISNode; our $VERSION = 20050904.1346; use Message::Util::Error; sub owner_dis_document ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #131)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #129)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #127)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #115)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #116)" Message::Util::DIS::ManakaiDISNode->_get_node_reference #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #117)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #118)" 'node' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #119)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #120)" 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#ownerDocument' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #121)" }) if $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #122)" 'node' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #123)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #124)" 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#ownerDocument' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/Attr[@Name=ownerDISDocument][@type=DISLang:Attribute]/Get[@Type=ManakaiDISDocument][@type=DISLang:AttributeGet]/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; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #132)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #133)" 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 #134)" }} sub _get_node_reference ($$) { my ($self, $object) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #161)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #153)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #135)" $class; if ($object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #136)" 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nodeType' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #137)" } eq '#element') { $class = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #138)" 'Message::Util::DIS::ManakaiDISElement' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #139)" ; } elsif ($object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #140)" 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nodeType' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #141)" } eq '#comment') { $class = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #142)" 'Message::Util::DIS::ManakaiDISComment' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #143)" ; } elsif ($object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #144)" 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nodeType' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #145)" } eq '#document') { $class = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #146)" 'Message::Util::DIS::ManakaiDISDocument' #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #147)" ; } elsif ($object->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #148)" 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nodeType' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #149)" } eq '#fragment') { $class = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #150)" 'Message::Util::DIS::ManakaiDISDocumentFragment' #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #151)" ; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #152)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #154)" #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #159)" #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #155)" ; } $r = $object-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #156)" _new_reference #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/IntMethod[@Name=getNodeReference][@type=DISLang:Method]/Return[@Type=ManakaiDISNode][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #157)" ($class); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #158)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #160)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #162)" } $r} sub lookup_namespace_uri ($$%) { my ($self, $prefix, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #203)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #195)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #163)" $od = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #164)" owner_document #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #165)" || $self; my $binds = $od->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #166)" 'node' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #167)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #168)" 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nsBinding' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #169)" }; if (exists $binds->{$prefix}) { $r = $binds->{$prefix}; } else { ## From module list FIND: { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #170)" #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #171)" try {local $Error::Depth = $Error::Depth + 3; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #172)" my #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #173)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #174)" owner_dis_document #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #175)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #176)" dis_database #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #177)" ; for my $mod_uri (keys %{$db->{modDef}}) { my $mod = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #178)" get_module #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #179)" ($mod_uri); if ($mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #180)" local_name eq #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #181)" $prefix) { $r = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #182)" get_property_text #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #183)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #184)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace' #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #185)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #186)" undef #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #187)" ); last FIND; } } } catch #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #188)" Message::Util::DIS::ManakaiDISException with #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #189)" { my $err = shift; $err->throw unless $err->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #190)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #191)" } eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #192)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DB_ASSOCIATED_ERR' #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #193)" ; }; if ($opt{make_new_binding}) { $r = $binds->{$prefix} = $prefix; } elsif ($opt{raise_prefix_exception}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #194)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #196)" 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 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #201)" #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #197)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #198)" undef #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespaceURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #199)" ; } } # FIND } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #200)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #202)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #204)" } $r} sub lookup_namespace_prefix ($;$%) { my ($self, $namespaceURI, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #241)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #239)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #205)" $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #206)" undef #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #207)" ; my $od = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #208)" owner_document #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #209)" || $self; my $binds = $od->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #210)" 'node' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #211)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #212)" 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#nsBinding' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #213)" }; 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 #214)" #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #215)" try {local $Error::Depth = $Error::Depth + 3; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #216)" my #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #217)" $db = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #218)" owner_dis_document #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #219)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #220)" dis_database #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #221)" ; for my $mod_uri (keys %{$db->{modDef}}) { my $mod = $db-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #222)" get_module #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #223)" ($mod_uri); my $mod_ln = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #224)" local_name #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #225)" ; next if exists $binds->{$mod_ln}; my $ns_uri = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #226)" get_property_text #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #227)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #228)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace' #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #229)" , ''); if ($ns_uri eq $namespaceURI) { $r = $mod_ln; last FIND; } } } catch #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #230)" Message::Util::DIS::ManakaiDISException with #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #231)" { my $err = shift; $err->throw unless $err->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #232)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #233)" } eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #234)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DB_ASSOCIATED_ERR' #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #235)" ; }; 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 #236)" undef #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISNode][@type=ManakaiDOM:Class]/MethodRedef[@Name=lookupNamespacePrefix][@type=DISLang:Method]/Return[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #237)" ; last FIND; } $i++; redo; } } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #238)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #240)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #242)" } $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 = 20050904.1346; push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGElement'; sub dis_get_attribute_list ($$%) { my ($self, $attrName, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #255)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #253)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #243)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #244)" 'Message::Util::DIS::ManakaiDISElementList' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #245)" ; for my $c (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #246)" dis_child_elements #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #247)" (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg})}) { if ($c-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #248)" expanded_uri eq #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #249)" $attrName and $c-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #250)" media_type_match #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttributeList][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #251)" ($opt{media_type}, $opt{default_media_type}, for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg})) { push @$r, $c; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #252)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #254)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #256)" } $r} sub tfpqnames_to_uri ($$;$$%) { my ($self, $tfpqnames, $defaultTypeURI, $defaultForURI, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #325)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #259)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #257)" ($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 #258)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #260)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #275)" local $Error::Depth = $Error::Depth + 1; { #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #273)" #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #271)" #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #261)" $typeURI = $typeq eq '' ? defined $defaultTypeURI ? $defaultTypeURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #262)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' : #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #263)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #264)" qname_to_uri #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #265)" ($typeq, %opt); if (length $forq) { $forURI = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #266)" qname_to_uri #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #267)" ($forq, %opt); } else { $forURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #268)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #269)" ; } #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 #274)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #276)" } #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #279)" #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #277)" ; } else { ## "For" omitted #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #278)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #280)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #291)" local $Error::Depth = $Error::Depth + 1; { #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #289)" #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #287)" #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #281)" $typeURI = $typeq eq '' ? defined $defaultTypeURI ? $defaultTypeURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #282)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' : #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #283)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #284)" qname_to_uri #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #285)" ($typeq, %opt); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #286)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #288)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #290)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #292)" } #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #297)" #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #293)" ; $forURI = defined $defaultForURI ? $defaultForURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #294)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #295)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #296)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #298)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #307)" local $Error::Depth = $Error::Depth + 1; { #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #305)" #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #303)" for #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #299)" my $forpq (@forpq) { push @$forpURI, $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #300)" qname_to_uri #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #301)" ($forpq, %opt); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #302)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #304)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #306)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #308)" } #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #311)" #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #309)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #310)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #312)" { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #319)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #317)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #313)" ($forURI eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #314)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' and #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #315)" @{$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 #316)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #318)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #320)" } #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfpqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #323)" #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@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 "lib/Message/Util/DIS.dis [/b] (Chunk #326)" } $r} sub dis_child_elements ($%) { my ($self, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #355)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #331)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #327)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #328)" 'Message::Util::DIS::ManakaiDISElementList' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #329)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #330)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #332)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #349)" local $Error::Depth = $Error::Depth + 1; { #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #347)" #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #345)" for #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #333)" my $cn (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #334)" child_nodes #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #335)" }) { ## $cn is an #element. my $dn = $cn->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #336)" 'node' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #337)" } -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #338)" _new_reference #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #339)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #340)" 'Message::Util::DIS::ManakaiDISElement' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #341)" ); next unless $dn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #342)" for_match #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #343)" ($opt{for_arg}, $opt{forp_arg}); push @$r, $dn; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #344)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #346)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #348)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #350)" } #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #353)" #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #351)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #352)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #354)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #356)" } $r} sub is_resource_element ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #377)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #375)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #357)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #358)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #369)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #367)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #365)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #359)" $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #360)" element_type_match #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #361)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #362)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ResourceDef' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #363)" ); #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 #368)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #370)" } #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #373)" #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isResourceElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #371)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #372)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #374)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #376)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #378)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #379)" 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 #380)" }} sub is_property_element ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #413)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #411)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #381)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #382)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #405)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #403)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #401)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #383)" $xn = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #384)" expanded_uri #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #385)" ; if ($xn eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #386)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #387)" ) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #388)" 1 #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #389)" ; } else { my $rdef = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #390)" owner_dis_document #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #391)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #392)" dis_database #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #393)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #394)" get_resource #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #395)" ($xn); $r = $rdef-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #396)" is_type_uri #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #397)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #398)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#Resource' #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #399)" ); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #400)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #402)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #404)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #406)" } #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #409)" #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=isPropertyElement][@type=DISLang:Attribute]/Get[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #407)" ; #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 #412)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #414)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #415)" 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_property_element'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #416)" }} sub element_type_match ($$) { my ($self, $etype) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #441)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #417)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #418)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #435)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #433)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #431)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #419)" $et = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #420)" expanded_uri #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #421)" ; my $rdef = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #422)" owner_dis_document #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #423)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #424)" dis_database #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #425)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #426)" get_resource #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #427)" ($et); $r = $rdef-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #428)" is_subset_of_uri #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #429)" ($etype); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #430)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #432)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #434)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #436)" } #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #439)" #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=elementTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::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 pl_value_code_fragment ($;$$%) { my ($self, $attrURI, $disResource, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #565)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #443)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #444)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #559)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #557)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #451)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #445)" $dataType; my $vnode = defined $attrURI ? $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #446)" dis_get_attribute #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #447)" ($attrURI, for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}) : $self; my $plimpl = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #448)" pl_implementation #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #449)" ; if ($vnode) { unless ($plimpl) { #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 #457)" local $Error::Depth = $Error::Depth - 1; { #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #455)" #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #453)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #454)" report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_value_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_PERL_CODE_IMPL_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement'; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #456)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #458)" } #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #555)" #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #459)" ; } my $isnull = $vnode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #460)" dis_get_attribute #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #461)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #462)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--is-null' #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #463)" , for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}); if ($isnull and $isnull-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #464)" value #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #465)" ) { $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #466)" create_perl_atom #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #467)" ('undef'); } else { my $vnode_type_uri = $vnode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #468)" media_type_uri #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #469)" (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}); my $vnode_value = $vnode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #470)" value #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #471)" ; if ($vnode_type_uri) { my $vnode_type = $disResource->{db} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #472)" get_resource #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #473)" ($vnode_type_uri); if ($vnode_type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #474)" is_subset_of_uri #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #475)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #476)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Boolean' #line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #477)" )) { $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #478)" create_perl_atom #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #479)" ($vnode_value ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #480)" 1 : #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #481)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #482)" 0 #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #483)" ); } elsif ($vnode_type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #484)" is_subset_of_uri #line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #485)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #486)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #487)" )) { $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #488)" create_perl_string_literal #line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #489)" ($vnode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #490)" qname_to_uri #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #491)" ($vnode_value, node => $vnode)); } elsif ($vnode_type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #492)" is_subset_of_uri #line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #493)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #494)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #495)" )) { $r = $disResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #496)" pl_preprocess_perl_statement #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #497)" ($vnode_value, node => $self, contains_statements => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #498)" 0 #line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #499)" ); } else { ## DISCore:String or some $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #500)" create_perl_string_literal #line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #501)" ($vnode_value); } } elsif ($opt{data_type_uri}) { $dataType ||= $disResource->{db} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #502)" get_resource #line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #503)" ($opt{data_type_uri}); if ($dataType-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #504)" is_subset_of_uri #line 51 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #505)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #506)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/IDL#AnyRealNumber' #line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #507)" )) { $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #508)" create_perl_atom #line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #509)" (0 + $vnode_value); } elsif ($dataType-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #510)" is_subset_of_uri #line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #511)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #512)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#boolean' #line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #513)" )) { $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #514)" create_perl_atom #line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #515)" ($vnode_value eq 'tr'.'ue' ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #516)" 1 : #line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #517)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #518)" 0 #line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #519)" ); } else { ## DOMMain:DOMString or some $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #520)" create_perl_string_literal #line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #521)" ($vnode_value); } } else { ## Untyped $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #522)" create_perl_string_literal #line 62 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #523)" ($vnode_value); } } } # has value if (not $r and $opt{use_default_value}) { $dataType ||= $disResource->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #524)" get_resource #line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #525)" ($opt{data_type_uri}); if ($dataType-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #526)" is_subset_of_uri #line 70 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #527)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #528)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#String' #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #529)" )) { $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #530)" create_perl_string_literal #line 72 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #531)" (''); } elsif ($dataType-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #532)" is_subset_of_uri #line 73 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #533)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #534)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#boolean' #line 74 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #535)" ) or $dataType-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #536)" is_subset_of_uri #line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #537)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #538)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/IDL#AnyRealNumber' #line 76 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #539)" )) { $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #540)" create_perl_atom #line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #541)" ('0'); } elsif ($dataType-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #542)" is_subset_of_uri #line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #543)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #544)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl--ARRAY' #line 79 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #545)" )) { $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #546)" create_perl_atom #line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #547)" ('[]'); } elsif ($dataType-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #548)" is_subset_of_uri #line 81 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #549)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #550)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl--hash' #line 82 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #551)" )) { $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #552)" create_perl_atom #line 83 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #553)" ('{}'); } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #554)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #556)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #558)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #560)" } #line 91 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #563)" #line 91 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plValueCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #561)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #562)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #564)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #566)" } $r} sub qname_to_pair ($$%) { my ($self, $qname, %opt) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #589)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #569)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #567)" $qname =~ s/^\s+//; $qname =~ s/\s+$//; my ($prefix, $lname) = split /\s*[:|]\s*/, $qname, 2; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #568)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #570)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #583)" local $Error::Depth = $Error::Depth + 1; { #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #581)" #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #579)" if #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #571)" (defined $lname) { $r = [$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #572)" prefix_to_uri #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #573)" ($prefix), $lname]; } else { ## In default namespace $r = [$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #574)" prefix_to_uri #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #575)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #576)" undef #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #577)" ), $prefix]; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #578)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #580)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #582)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #584)" } #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #587)" #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToPair][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #585)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #586)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #588)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #590)" } $r} sub media_type_uri ($%) { my ($self, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #611)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #591)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #592)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #605)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #603)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #601)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #593)" $r = $opt{default_media_type}; my $ctn = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #594)" dis_get_attribute #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #595)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #596)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ContentType' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #597)" , for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}); $r = $ctn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #598)" qname_value_uri if #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #599)" $ctn; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #600)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #602)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #604)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #606)" } #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #609)" #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeURI][@Type=MediaTypeURI][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #607)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #608)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #610)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #612)" } $r} sub media_type_match ($$;$%) { my ($self, $mediaType, $defaultMediaType, %opt) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #651)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #615)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #613)" (defined $mediaType) { #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 #643)" local $Error::Depth = $Error::Depth + 1; { #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #641)" #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #639)" my #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #617)" $ctn = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #618)" dis_get_attribute #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #619)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #620)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ContentType' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #621)" , for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}); my $ct; $ct = $ctn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #622)" qname_value_uri if #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #623)" $ctn; $ct = $defaultMediaType unless defined $ct; my $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #624)" owner_dis_document #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #625)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #626)" dis_database #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #627)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #628)" get_resource #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #629)" ($ct); $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #630)" is_referred #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #631)" ($ctn or $self); unless ($res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #632)" is_subset_of_uri #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #633)" ($mediaType)) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #634)" 0 #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #635)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #636)" 1 #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #637)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #638)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #640)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #642)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #644)" } #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #649)" #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #645)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #646)" 1 #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=mediaTypeMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #647)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #648)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #650)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #652)" } $r} sub qname_to_uri ($$%) { my ($self, $qname, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #675)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #655)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #653)" $qname =~ s/^\s+//; $qname =~ s/\s+$//; my ($prefix, $lname) = split /\s*[:|]\s*/, $qname, 2; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #654)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #656)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #669)" local $Error::Depth = $Error::Depth + 1; { #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #667)" #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #665)" if #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #657)" (defined $lname) { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #658)" prefix_to_uri #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #659)" ($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 #660)" prefix_to_uri #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #661)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #662)" undef #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #663)" ) . $prefix; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #664)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #666)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #668)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #670)" } #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #673)" #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@QName=qnameToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #671)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #672)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #674)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #676)" } $r} sub pl_code_fragment ($$%) { my ($self, $disResource, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1085)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #677)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #678)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1079)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1077)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #689)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #679)" $plimpl = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #680)" pl_implementation #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #681)" ; my $et = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #682)" expanded_uri #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #683)" ; if ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #684)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Def' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #685)" ) { my $value = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #686)" value #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #687)" ; if (defined $value) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #688)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #690)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #695)" local $Error::Depth = $Error::Depth - 1; { #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #693)" #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #691)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #692)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#DISPERL_NO_VALUE_ALLOWED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #694)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #696)" } #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #737)" #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #697)" ; } $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #698)" create_perl_block_container #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #699)" ; for my $c (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #700)" dis_child_elements #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #701)" (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg})}) { my $ccode = $c-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #702)" pl_code_fragment #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #703)" ($disResource, for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, contains_statements => $opt{contains_statements}); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #704)" append_code_fragment #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #705)" ($ccode->clone) if $ccode; } } elsif ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #706)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#constValue' #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #707)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #708)" 1 #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #709)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #710)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#cloneCode' #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #711)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #712)" 1 #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #713)" , }->{$et}) { my ($qname, $const_name, $on) = split /\s*\.\s*/, $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #714)" value #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #715)" , 3; my $parentResource = $disResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #716)" get_property_resource #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #717)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #718)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #719)" ); my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #720)" tfqnames_to_uri #line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #721)" ($qname, ($parentResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #722)" get_property_resource #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #723)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #724)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #725)" ) || $parentResource || $disResource)-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #726)" name_uri #line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #727)" , $opt{for_arg}, node => $self); my $const; if (defined $const_name) { my $owner = $disResource->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #728)" get_resource #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #729)" ($uri); $owner-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #730)" is_referred #line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #731)" ($self); if ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #732)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#constValue' #line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #733)" ) { $const = $owner-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #734)" get_const_resource_by_name #line 43 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #735)" ($const_name); unless (defined $const) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #736)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #738)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #743)" local $Error::Depth = $Error::Depth - 1; { #line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #741)" #line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #739)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #740)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', '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' => $const_name, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#parentURI' => $uri; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #742)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #744)" } #line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #751)" #line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #745)" ; } } else { $const = $owner-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #746)" get_child_resource_by_name_and_type #line 57 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #747)" ($const_name, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #748)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod' #line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #749)" ); unless (defined $const) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #750)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #752)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #757)" local $Error::Depth = $Error::Depth - 1; { #line 61 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #755)" #line 61 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #753)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #754)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $const_name, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#parentURI' => $uri; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #756)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #758)" } #line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #777)" #line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #759)" ; } } } else { $const = $disResource->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #760)" get_resource #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #761)" ($uri); } if ($const-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #762)" is_type_uri #line 74 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #763)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #764)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const' #line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #765)" )) { $const-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #766)" is_referred #line 76 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #767)" ($self); my $data_type = $const-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #768)" dis_actual_data_type_resource #line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #769)" ; my $val = $const->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #770)" pl_value_code_fragment #line 79 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #771)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #772)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value' #line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #773)" , $disResource, for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}, data_type_uri => $data_type -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #774)" uri #line 84 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #775)" ); unless (defined $val) { #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 #783)" local $Error::Depth = $Error::Depth - 1; { #line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #781)" #line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #779)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #780)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $const->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $const->{localName}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_CONST_VALUE_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $const->{uri}; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #782)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #784)" } #line 93 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #811)" #line 93 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #785)" ; } if ($opt{contains_statements}) { $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #786)" create_perl_statement #line 97 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #787)" ; my $rvar = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #788)" create_perl_variable #line 98 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #789)" ('$', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #790)" undef #line 99 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #791)" , 'r'); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #792)" append_new_assignment #line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #793)" ($rvar => $val); } else { $r = $val; } } elsif ($const-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #794)" is_type_uri #line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #795)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #796)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod' #line 105 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #797)" )) { my $ret = $const-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #798)" get_child_resource_by_type #line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #799)" ($const-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #800)" is_type_uri #line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #801)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #802)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method' #line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #803)" ) ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #804)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodReturn' : #line 108 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #805)" ($on and $on eq 'set') ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #806)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet' : #line 109 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #807)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #808)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet' #line 109 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #809)" ); unless ($ret) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #810)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #812)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #835)" local $Error::Depth = $Error::Depth - 1; { #line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #833)" #line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #819)" if #line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #813)" ($const-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #814)" is_type_uri #line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #815)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #816)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method' #line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #817)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #818)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #820)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $const->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $const->{localName}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_METHOD_RETURN_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#errResource' => $const, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $const->{uri}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et; #line 124 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #823)" #line 124 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #821)" ; } elsif ($on and $on eq 'set') { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #822)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #824)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $const->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', '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_SET_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#errResource' => $const, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et; #line 130 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #827)" #line 130 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #825)" ; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #826)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #828)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $const->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', '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', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#errResource' => $const, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et; #line 136 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #831)" #line 136 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #829)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #830)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #832)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #834)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #836)" } #line 138 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #849)" #line 138 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #837)" ; # UNDEEP } $r = $ret-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #838)" pl_code_fragment #line 140 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #839)" ; } elsif ($const-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #840)" is_type_uri #line 141 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #841)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #842)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#AnyDefContainer' #line 142 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #843)" )) { $r = $const-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #844)" pl_code_fragment #line 143 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #845)" ; } else { if ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #846)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#constValue' #line 145 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #847)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #848)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #850)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #855)" local $Error::Depth = $Error::Depth - 1; { #line 146 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #853)" #line 146 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #851)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #852)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', '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' => $const->{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' => $const->{uri}; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #854)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #856)" } #line 151 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #859)" #line 151 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #857)" ; } else { # DISPerl:cloneCode #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #858)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #860)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #865)" local $Error::Depth = $Error::Depth - 1; { #line 153 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #863)" #line 153 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #861)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #862)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $const->{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' => $const->{uri}; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #864)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #866)" } #line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1065)" #line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #867)" ; } } } elsif ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #868)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#value' #line 161 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #869)" ) { my $val = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #870)" pl_value_code_fragment #line 162 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #871)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #872)" undef #line 163 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #873)" , $disResource, for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}); $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #874)" create_perl_statement #line 166 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #875)" ; my $rvar = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #876)" create_perl_variable #line 167 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #877)" ('$', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #878)" undef #line 168 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #879)" , 'r'); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #880)" append_new_assignment #line 169 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #881)" ($rvar => $val); } elsif ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #882)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--GetProp' #line 171 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #883)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #884)" 1 #line 171 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #885)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #886)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--GetPropNode' #line 172 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #887)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #888)" 1 #line 172 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #889)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #890)" 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#GetPropNode' #line 173 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #891)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #892)" 1 #line 173 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #893)" , }->{$et}) { my $prop_uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #894)" qname_value_uri #line 175 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #895)" ; $disResource->{db} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #896)" get_resource #line 177 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #897)" ($prop_uri) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #898)" is_referred #line 178 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #899)" ($self); $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #900)" create_perl_statement #line 179 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #901)" ; my $val = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #902)" create_perl_inline_container #line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #903)" ; $val-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #904)" append_code #line 181 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #905)" ('$self->{node}->{'); $val-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #906)" append_string_literal #line 182 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #907)" ($prop_uri); $val-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #908)" append_code #line 183 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #909)" ('}'); my $rvar = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #910)" create_perl_variable #line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #911)" ('$', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #912)" undef #line 185 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #913)" , 'r'); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #914)" append_new_assignment #line 186 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #915)" ($rvar => $val); if ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #916)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--GetPropNode' #line 188 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #917)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #918)" 1 #line 188 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #919)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #920)" 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#GetPropNode' #line 189 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #921)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #922)" 1 #line 189 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #923)" }->{$et}) { my $q = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #924)" create_perl_block_container #line 190 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #925)" ; $q-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #926)" append_code_fragment #line 191 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #927)" ($r); $q-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #928)" append_new_if #line 192 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #929)" ($plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #930)" create_perl_inline_unparsed_code #line 193 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #931)" ('defined $r'), my $qt = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #932)" create_perl_block_container #line 195 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #933)" ); $qt-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #934)" append_statement #line 196 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #935)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #936)" append_new_assignment #line 197 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #937)" ($rvar->clone => my $qtr = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #938)" create_perl_inline_container #line 198 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #939)" ); my $cls = $disResource->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #940)" get_resource #line 199 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #941)" ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #942)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--GetPropNode' #line 200 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #943)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #944)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#ManakaiDOMNode' #line 200 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #945)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #946)" 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#GetPropNode' #line 201 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #947)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #948)" 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#ManakaiSWCFGNode' #line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #949)" , }->{$et}, for_arg => $opt{for_arg}); $cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #950)" is_referred #line 204 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #951)" ($self); $qtr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #952)" append_code #line 205 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #953)" ($cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #954)" pl_fully_qualified_name #line 206 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #955)" . q[->_get_node_reference ($r)]); $r = $q; } } elsif ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #956)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--SetProp' #line 209 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #957)" ) { my $prop_uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #958)" qname_value_uri #line 210 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #959)" ; $disResource->{db} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #960)" get_resource #line 212 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #961)" ($prop_uri) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #962)" is_referred #line 213 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #963)" ($self); $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #964)" create_perl_statement #line 214 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #965)" ; my $val = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #966)" create_perl_inline_container #line 215 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #967)" ; $val-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #968)" append_code #line 216 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #969)" ('$self->{node}->{'); $val-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #970)" append_string_literal #line 217 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #971)" ($prop_uri); $val-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #972)" append_code #line 218 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #973)" ('}'); my $rvar = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #974)" create_perl_variable #line 219 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #975)" ('$', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #976)" undef #line 220 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #977)" , 'given'); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #978)" append_new_assignment #line 221 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #979)" ($val => $rvar); my $chk = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #980)" dis_get_attribute #line 222 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #981)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #982)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--CheckReadOnly' #line 223 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #983)" ); if ($chk and $chk-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #984)" value #line 224 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #985)" ) { my $q = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #986)" create_perl_if #line 225 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #987)" (my $qc = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #988)" create_perl_inline_container #line 226 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #989)" , my $qt = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #990)" create_perl_block_container #line 227 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #991)" ); $qc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #992)" append_code #line 228 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #993)" ('$self->{node}->{'); $qc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #994)" append_string_literal #line 229 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #995)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #996)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#read-only' #line 229 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #997)" ); $qc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #998)" append_code #line 230 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #999)" ('}'); my $for_uri = $disResource->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1000)" get_for #line 232 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1001)" ($opt{for_arg})-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1002)" isa_uri #line 233 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1003)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1004)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM1' #line 234 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1005)" ) ? $opt{for_arg} : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1006)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOMLatest' #line 235 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1007)" ; my $cls = $disResource->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1008)" get_resource #line 236 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1009)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1010)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DOMException' #line 237 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1011)" , for_arg => $for_uri); my $const = $disResource->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1012)" get_resource #line 239 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1013)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1014)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NO_MODIFICATION_ALLOWED_ERR' #line 240 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1015)" , for_arg => $for_uri); my $subtype = $disResource->{db} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1016)" get_resource #line 243 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1017)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1018)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#NOMOD_THIS' #line 244 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1019)" , for_arg => $for_uri); $_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1020)" is_referred #line 246 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1021)" ($self) for $cls, $const, $subtype; my $context_param = $disResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1022)" _pl_get_context_parameter #line 248 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1023)" ; $disResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1024)" _pl_append_throw #line 249 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1025)" ($qt, $cls, $const, $subtype, {%$context_param}); my $or = $r; $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1026)" create_perl_block_container #line 253 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1027)" ; $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1028)" append_code_fragment #line 254 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1029)" ($or); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1030)" append_code_fragment #line 255 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1031)" ($q); } # Read-only checking } elsif ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1032)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#raiseException' #line 257 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1033)" ) { my ($cls, $const, $subtype) = @{$disResource->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1034)" xcref_to_resource #line 259 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1035)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1036)" value #line 260 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1037)" , $self, node => $self, for_arg => $opt{for_arg})}; my $context_param = $disResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1038)" _pl_get_context_parameter #line 264 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1039)" ; $disResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1040)" _pl_append_throw #line 265 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1041)" ($r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1042)" create_perl_block_container #line 266 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1043)" , $cls, $const, $subtype, {%$context_param}); } elsif ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1044)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ContentType' #line 270 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1045)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1046)" 1 #line 270 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1047)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1048)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For' #line 271 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1049)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1050)" 1 #line 271 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1051)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1052)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForCheck' #line 271 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1053)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1054)" 1 #line 271 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1055)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1056)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ImplNote' #line 272 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1057)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1058)" 1 #line 272 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1059)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1060)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#nop' #line 273 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1061)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1062)" 1 #line 273 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1063)" , }->{$et}) { # } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1064)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1066)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1071)" local $Error::Depth = $Error::Depth - 1; { #line 285 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1069)" #line 285 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1067)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1068)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_code_fragment', '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::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1070)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1072)" } #line 288 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1075)" #line 288 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1073)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1074)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1076)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1078)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1080)" } #line 290 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1083)" #line 290 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=plCodeFragment][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1081)" ; # DEEP #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1082)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1084)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1086)" } $r} sub qname_value_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1109)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1107)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1087)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1088)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1101)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1099)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1097)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1089)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1090)" value #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1091)" ; if (defined $v and not ref $v eq 'ARRAY') { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1092)" qname_to_uri #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1093)" ($v, node => $self); } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1094)" undef #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1095)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1096)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1098)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1100)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1102)" } #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1105)" #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1103)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1104)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1106)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1108)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1110)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1111)" 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 #1112)" }} sub qname_value_namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1137)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1135)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1113)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1114)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1129)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1127)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1125)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1115)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1116)" value #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1117)" ; 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 #1118)" prefix_to_uri #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1119)" (defined $v ? $p : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1120)" undef #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1121)" ); } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1122)" undef #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1123)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1124)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1126)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1128)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1130)" } #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1133)" #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueNamespaceURI][@type=DISLang:Attribute]/Get[@Type=AnyURI][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1131)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1132)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1134)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1136)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1138)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1139)" 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 #1140)" }} sub for_match ($$;$) { my ($self, $forArg, $forpArg) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1301)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1145)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1141)" $forArg = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1142)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1143)" defined $forArg; $forpArg ||= []; FORMATCH: { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1144)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1146)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1295)" local $Error::Depth = $Error::Depth + 1; { #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1293)" #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1291)" my #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1147)" $for_res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1148)" owner_dis_document #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1149)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1150)" dis_database #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1151)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1152)" get_for #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1153)" ($forArg); my $forp_res = [map { $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1154)" owner_dis_document #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1155)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1156)" dis_database #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1157)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1158)" get_for #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1159)" ($_) } @{$forpArg}]; my @ce = @{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1160)" dis_all_child_elements #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1161)" }; for my $ce (@ce) { my $et = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1162)" expanded_uri #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1163)" ; if ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1164)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForCheck' #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1165)" ) { my $fors = [split /\s+/, $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1166)" value #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1167)" ]; FCs: for my $f (@$fors) { if ($f =~ /^!=(.+)$/) { ## -- NOT EQUAL TO my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1168)" qname_to_uri #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1169)" ($1); my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1170)" owner_dis_document #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1171)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1172)" dis_database #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1173)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1174)" get_for #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1175)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1176)" is_referred #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1177)" ($ce); for my $arg_res ($for_res, @{$forp_res}) { if ($arg_res eq $for) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1178)" 0 #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1179)" ; last FORMATCH; } } } elsif ($f =~ /^!(.+)$/) { ## -- NOT ISA my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1180)" qname_to_uri #line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1181)" ($1); my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1182)" owner_dis_document #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1183)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1184)" dis_database #line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1185)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1186)" get_for #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1187)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1188)" is_referred #line 37 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1189)" ($ce); for my $arg_res ($for_res, @{$forp_res}) { if ($arg_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1190)" isa_uri #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1191)" ($uri)) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1192)" 0 #line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1193)" ; last FORMATCH; } } } elsif ($f =~ /^=(.+)$/) { ## -- EQUAL TO my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1194)" qname_to_uri #line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1195)" ($1); my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1196)" owner_dis_document #line 46 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1197)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1198)" dis_database #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1199)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1200)" get_for #line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1201)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1202)" is_referred #line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1203)" ($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 #1204)" 0 #line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1205)" ; last FORMATCH; } else { ## -- ISA my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1206)" qname_to_uri #line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1207)" ($f); my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1208)" owner_dis_document #line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1209)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1210)" dis_database #line 60 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1211)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1212)" get_for #line 61 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1213)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1214)" is_referred #line 62 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1215)" ($ce); for my $arg_res ($for_res, @{$forp_res}) { if ($arg_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1216)" isa_uri #line 64 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1217)" ($uri)) { next FCs; } } $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1218)" 0 #line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1219)" ; last FORMATCH; } } # FCs } # dis:ForCheck } # children my $has_for = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1220)" 0 #line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1221)" ; for my $ce (@ce) { if ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1222)" expanded_uri eq #line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1223)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1224)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--For' #line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1225)" ) { my $fors = [split /\s+/, $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1226)" value #line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1227)" ]; my $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1228)" 1 #line 79 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1229)" ; $has_for = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1230)" 1 #line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1231)" ; AFOR: for my $f (@$fors) { if ($f =~ /^!=(.+)$/) { ## -- NOT EQUAL TO my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1232)" qname_to_uri #line 83 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1233)" ($1); my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1234)" owner_dis_document #line 84 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1235)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1236)" dis_database #line 85 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1237)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1238)" get_for #line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1239)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1240)" is_referred #line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1241)" ($ce); if ($for eq $for_res) { $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1242)" 0 #line 89 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1243)" ; last AFOR; } } elsif ($f =~ /^!(.+)$/) { ## -- NOT ISA my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1244)" qname_to_uri #line 93 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1245)" ($1); my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1246)" owner_dis_document #line 94 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1247)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1248)" dis_database #line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1249)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1250)" get_for #line 96 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1251)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1252)" is_referred #line 97 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1253)" ($ce); if ($for_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1254)" isa_uri #line 98 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1255)" ($uri)) { $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1256)" 0 #line 99 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1257)" ; last AFOR; } } elsif ($f =~ /^=(.+)$/) { ## -- EQUAL TO my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1258)" qname_to_uri #line 103 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1259)" ($1); my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1260)" owner_dis_document #line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1261)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1262)" dis_database #line 105 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1263)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1264)" get_for #line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1265)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1266)" is_referred #line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1267)" ($ce); unless ($for eq $for_res) { $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1268)" 0 #line 109 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1269)" ; last AFOR; } } else { ## -- ISA my $uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1270)" qname_to_uri #line 113 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1271)" ($f); my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1272)" owner_dis_document #line 114 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1273)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1274)" dis_database #line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1275)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1276)" get_for #line 116 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1277)" ($uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1278)" is_referred #line 117 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1279)" ($ce); unless ($for_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1280)" isa_uri #line 118 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1281)" ($uri)){ $ok = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1282)" 0 #line 119 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1283)" ; last AFOR; } } } # AFOR if ($ok) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1284)" 1 #line 125 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1285)" ; last FORMATCH; } } # dis:For } # $ce $r = $has_for ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1286)" 0 : #line 130 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1287)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1288)" 1 #line 130 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1289)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1290)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1292)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1294)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1296)" } #line 137 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1299)" #line 137 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=forMatch][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1297)" ; } # FORMATCH #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1298)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1300)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1302)" } $r} sub dis_get_attribute ($$%) { my ($self, $attrName, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=ManakaiDISElement][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1313)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=ManakaiDISElement][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1311)" for #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=ManakaiDISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1303)" my $c (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1304)" dis_child_elements #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=ManakaiDISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1305)" (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg})}) { if ($c-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1306)" expanded_uri eq #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=ManakaiDISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1307)" $attrName and $c-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1308)" media_type_match #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disGetAttribute][@type=DISLang:Method]/Return[@Type=ManakaiDISElement][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1309)" ($opt{media_type}, $opt{default_media_type}, for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg})) { $r = $c; last; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1310)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1312)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1314)" } $r} sub dis_all_child_elements ($) { my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1341)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1319)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1315)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1316)" 'Message::Util::DIS::ManakaiDISElementList' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1317)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1318)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1320)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1335)" local $Error::Depth = $Error::Depth + 1; { #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1333)" #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1331)" for #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1321)" my $cn (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1322)" child_nodes #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1323)" }) { ## $cn is an #element. my $dn = $cn->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1324)" 'node' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1325)" } -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1326)" _new_reference #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1327)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1328)" 'Message::Util::DIS::ManakaiDISElement' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1329)" ); 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 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1339)" #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@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 tfqnames_to_uri ($$;$$%) { my ($self, $tfqnames, $defaultTypeURI, $defaultForURI, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1397)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1345)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1343)" ($typeq, $forq) = split /\s*[:|][:|]\s*/, $tfqnames, 2; my ($typeURI, $forURI); if (defined $forq) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1344)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1346)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1357)" local $Error::Depth = $Error::Depth + 1; { #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1355)" #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1353)" #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1347)" $typeURI = $typeq eq '' ? defined $defaultTypeURI ? $defaultTypeURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1348)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' : #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1349)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1350)" qname_to_uri #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1351)" ($typeq, %opt); #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 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1365)" #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1359)" ; if (length $forq) { $forURI = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1360)" qname_to_uri #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1361)" ($forq, %opt); } else { $forURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1362)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1363)" ; } } else { ## "For" omitted #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1364)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1366)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1377)" local $Error::Depth = $Error::Depth + 1; { #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1375)" #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1373)" #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1367)" $typeURI = $typeq eq '' ? defined $defaultTypeURI ? $defaultTypeURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1368)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' : #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1369)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1370)" qname_to_uri #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1371)" ($typeq, %opt); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1372)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1374)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1376)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1378)" } #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1383)" #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1379)" ; $forURI = defined $defaultForURI ? $defaultForURI : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1380)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1381)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1382)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1384)" { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1391)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1389)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1385)" ($forURI eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1386)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1387)" ) { $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 #1388)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1390)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1392)" } #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1395)" #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesToURI][@type=DISLang:Method]/Return[@Type=DISCore:TFURI::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1393)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1394)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1396)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1398)" } $r} sub pl_implementation ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1413)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=PerlCode:ManakaiPerlCodeImplementation::ManakaiDOM:Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1411)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=PerlCode:ManakaiPerlCodeImplementation::ManakaiDOM:Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1409)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=PerlCode:ManakaiPerlCodeImplementation::ManakaiDOM:Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1399)" $r = ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1400)" owner_document or #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=PerlCode:ManakaiPerlCodeImplementation::ManakaiDOM:Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1401)" $self)-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1402)" implementation #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=PerlCode:ManakaiPerlCodeImplementation::ManakaiDOM:Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1403)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1404)" get_feature #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=PerlCode:ManakaiPerlCodeImplementation::ManakaiDOM:Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1405)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1406)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=PerlCode:ManakaiPerlCodeImplementation::ManakaiDOM:Perl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1407)" => '1.0'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1408)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1410)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1412)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1414)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1415)" 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' => 'pl_implementation'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1416)" }} 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 #1421)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #1419)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #1417)" $feature = lc $feature; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1418)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1420)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1422)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #1427)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #1425)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #1423)" $version = '' unless defined $version; #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 #1428)" } my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1437)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1435)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1429)" $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}) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1430)" 'node' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1431)" } -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1432)" _new_reference #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1433)" ($class); last CLASS; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1434)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1436)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1438)" } $r} sub tfqnames_value_uri ($;$$%) { my ($self, $defaultTypeURI, $defaultForURI, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1469)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1443)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1439)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1440)" value #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1441)" ; if (defined $v and not ref $v eq 'ARRAY') { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1442)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1444)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1461)" local $Error::Depth = $Error::Depth + 1; { #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1459)" #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1457)" if #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1445)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1446)" media_type_match #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1447)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1448)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1449)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1450)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1451)" , for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg})) { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1452)" tfpqnames_to_uri #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1453)" ($v, $defaultTypeURI, $defaultForURI, node => $self); } else { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1454)" tfqnames_to_uri #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1455)" ($v, $defaultTypeURI, $defaultForURI, node => $self); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1456)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1458)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1460)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1462)" } #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1467)" #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1463)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1464)" undef #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=tfqnamesValueURI][@type=DISLang:Method]/Return[@Type=ResourceURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1465)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1466)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1468)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1470)" } $r} sub prefix_to_uri ($;$%) { my ($self, $prefix, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1511)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1473)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1471)" (defined $prefix) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1472)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1474)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1483)" local $Error::Depth = $Error::Depth + 1; { #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1481)" #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1479)" #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1475)" $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1476)" lookup_namespace_uri #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1477)" ($prefix); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1478)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1480)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1482)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1484)" } #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1487)" #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1485)" ; unless (defined $r) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1486)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1488)" 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::ManakaiDISElement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#param-name' => 'prefix'; #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1491)" #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1489)" ; } } else { ## Default namespace #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1490)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1492)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1505)" local $Error::Depth = $Error::Depth + 1; { #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1503)" #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1501)" #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1493)" $r = ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1494)" owner_dis_document #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1495)" || $self) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1496)" module_element #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1497)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1498)" defining_namespace_uri #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1499)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1500)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1502)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1504)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1506)" } #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1509)" #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Method[@Name=prefixToURI][@type=DISLang:Method]/Return[@Type=AnyURI][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1507)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1508)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1510)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1512)" } $r} sub qname_value_local_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1533)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1531)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1513)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1514)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1525)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1523)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1521)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1515)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1516)" value #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1517)" ; 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 #1518)" undef #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1519)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1520)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1522)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1524)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1526)" } #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1529)" #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValueLocalName][@type=DISLang:Attribute]/Get[@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1527)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1528)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1530)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1532)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1534)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1535)" 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 #1536)" }} sub qname_value_prefix ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1559)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1557)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1537)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1538)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1551)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1549)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1547)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1539)" $v = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1540)" value #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1541)" ; 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 #1542)" undef #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1543)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1544)" undef #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1545)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1546)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1548)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1550)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1552)" } #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1555)" #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISElement][@type=ManakaiDOM:Class]/Attr[@Name=qnameValuePrefix][@type=DISLang:Attribute]/Get[@Type=DISCore:NamespacePrefix::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1553)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1554)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1556)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1558)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1560)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1561)" 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 #1562)" }} $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::DIS::ManakaiDISElement::CompatClass{q} = 1; package Message::Util::DIS::ManakaiDISModuleElement; our $VERSION = 20050904.1346; push our @ISA, 'Message::Util::DIS::ManakaiDISElement'; sub default_for_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1591)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1589)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1563)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1564)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1583)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1581)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1579)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1565)" $df = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1566)" get_attribute_ns #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1567)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1568)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1569)" , 'DefaultFor'); if ($df) { $r = (bless $df, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1570)" 'Message::Util::DIS::ManakaiDISElement' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1571)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1572)" qname_value_uri #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1573)" || #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1574)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1575)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1576)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1577)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1578)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1580)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1582)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1584)" } #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1587)" #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1585)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1586)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1588)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1590)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1592)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1613)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1611)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1593)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1594)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1605)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1603)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1601)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1595)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1596)" set_attribute_ns #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1597)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1598)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1599)" , 'DefaultFor' => $given); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1600)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1602)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1604)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1606)" } #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1609)" #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=defaultForURI][@Type=ForURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1607)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1608)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1610)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1612)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1614)" }} sub require_element ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1639)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1637)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1615)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1616)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1631)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1629)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1627)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1617)" $r = bless $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1618)" get_attribute_ns #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1619)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1620)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1621)" , 'Require', make_new_node => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1622)" 1 #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1623)" ), #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1624)" 'Message::Util::DIS::ManakaiDISElement' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1625)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1626)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1628)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1630)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1632)" } #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1635)" #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=requireElement][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1633)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1634)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1636)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1638)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1640)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1641)" 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 #1642)" }} sub defining_namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1669)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1667)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1643)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1644)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1661)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1659)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1653)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1645)" $df = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1646)" get_attribute_ns #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1647)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1648)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1649)" , 'Namespace'); if ($df) { $r = $df-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1650)" value #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1651)" ; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1652)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1654)" #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1657)" #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1655)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1656)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1658)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1660)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1662)" } #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1665)" #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1663)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1664)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1666)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1668)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1670)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1691)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1689)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1671)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1672)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1683)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1681)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1679)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1673)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1674)" set_attribute_ns #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1675)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1676)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1677)" , 'Namespace' => $given); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1678)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1680)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1682)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1684)" } #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1687)" #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleElement][@type=ManakaiDOM:Class]/Attr[@Name=definingNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1685)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1686)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1688)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1690)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1692)" }} $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} = 7.2; package Message::Util::DIS::ManakaiDISElementList; our $VERSION = 20050904.1346; $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 = 20050904.1346; push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGComment'; $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; package Message::Util::DIS::ManakaiDISDocumentFragment; our $VERSION = 20050904.1346; push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGDocumentFragment'; $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; package Message::Util::DIS::ManakaiDISDocument; our $VERSION = 20050904.1346; push our @ISA, 'Message::Util::DIS::ManakaiDISNode', 'Message::Markup::SuikaWikiConfig21::ManakaiSWCFGDocument'; sub dis_child_elements ($%) { my ($self, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1723)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1697)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1693)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1694)" 'Message::Util::DIS::ManakaiDISElementList' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1695)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1696)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1698)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1717)" local $Error::Depth = $Error::Depth + 1; { #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1715)" #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1713)" for #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1699)" my $cn (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1700)" child_nodes #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1701)" }) { next unless $cn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1702)" node_type eq #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1703)" '#element'; my $dn = $cn->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1704)" 'node' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1705)" } -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1706)" _new_reference #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1707)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1708)" 'Message::Util::DIS::ManakaiDISElement' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1709)" ); next unless $dn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1710)" for_match #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1711)" ($opt{for_arg}, $opt{forp_arg}); push @$r, $dn; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1712)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1714)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1716)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1718)" } #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1721)" #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1719)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1720)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1722)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1724)" } $r} sub module_element ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1749)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1747)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1725)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1726)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1739)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1737)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1735)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1727)" $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1728)" get_attribute_ns #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/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--' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1731)" , 'Module', make_new_node => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1732)" 1 #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1733)" ); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1734)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1736)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1738)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1740)" } #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1745)" #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1741)" ; $r = bless $r, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1742)" 'Message::Util::DIS::ManakaiDISModuleElement' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=moduleElement][@Type=ManakaiDISModuleElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1743)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1744)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1746)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1748)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1750)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1751)" 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 #1752)" }} sub dis_database ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1771)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #1769)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1763)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1753)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1754)" 'node' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1755)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1756)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1757)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1758)" 'node' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1759)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1760)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1761)" }; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1762)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1764)" 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)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #1767)" #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #1765)" ; } #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 #1770)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1772)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #1787)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #1785)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #1783)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1773)" $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1774)" 'node' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1775)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1776)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1777)" } = $given; require Scalar::Util; Scalar::Util::weaken ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1778)" 'node' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1779)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1780)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#db' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Attr[@Name=disDatabase][@Type=ManakaiDISDatabase][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #1781)" }); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1782)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1784)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1786)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1788)" }} sub dis_all_child_elements ($) { my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1817)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1793)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1789)" $r = bless [], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1790)" 'Message::Util::DIS::ManakaiDISElementList' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1791)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1792)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1794)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1811)" local $Error::Depth = $Error::Depth + 1; { #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1809)" #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1807)" for #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1795)" my $cn (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1796)" child_nodes #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1797)" }) { next unless $cn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1798)" node_type eq #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1799)" '#element'; my $dn = $cn->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1800)" 'node' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1801)" } -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1802)" _new_reference #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1803)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1804)" 'Message::Util::DIS::ManakaiDISElement' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1805)" ); push @$r, $dn; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1806)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1808)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1810)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1812)" } #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1815)" #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDocument][@type=ManakaiDOM:Class]/Method[@Name=disAllChildElements][@type=DISLang:Method]/Return[@Type=ManakaiDISElementList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1813)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1814)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1816)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1818)" } $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; package Message::Util::DIS::ManakaiDISDatabase; our $VERSION = 20050904.1346; push our @ISA, 'Message::Util::DIS::ManakaiDISExceptionTarget'; sub get_source_file ($$) { my ($self, $fileName) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1825)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1823)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1819)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1820)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getSourceFile][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1821)" }->{$fileName}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1822)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1824)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1826)" } $r} sub get_module ($$%) { my ($self, $moduleURI, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=ManakaiDISModuleDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1847)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=ManakaiDISModuleDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1829)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=ManakaiDISModuleDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1827)" $modURI; if (defined $opt{for_arg}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1828)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1830)" { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1837)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1835)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1831)" ($opt{for_arg} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1832)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1833)" ) { $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 #1834)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1836)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1838)" } #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=ManakaiDISModuleDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1845)" #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=ManakaiDISModuleDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1839)" ; } 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 #1840)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=ManakaiDISModuleDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1841)" , forp => [], }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1842)" 'Message::Util::DIS::ManakaiDISModuleDefinition' #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getModule][@type=DISLang:Method]/Return[@Type=ManakaiDISModuleDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1843)" ; require Scalar::Util; Scalar::Util::weaken ($r->{db}); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1844)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1846)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1848)" } $r} sub load_resource ($$;$$$%) { my ($self, $mod, $parentResource, $dynParent, $el, %opt) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2071)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1853)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1849)" $opt{for_arg} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1850)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1851)" defined $opt{for_arg}; $opt{forp_arg} ||= []; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1852)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1854)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2065)" local $Error::Depth = $Error::Depth + 1; { #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2063)" #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1859)" #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1855)" ## -- Node names ## Unique resource identifier generated from node id my $node_id = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1856)" node_id #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1857)" ; my $node_uri; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1858)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1860)" { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1867)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1865)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1861)" ($opt{for_arg} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1862)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' and #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfpurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1863)" @{$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 #1864)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1866)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1868)" } #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1881)" #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1869)" ; ## User defined resource identifiers my $qn_node = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1870)" dis_get_attribute #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1871)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1872)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName' #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1873)" , for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}); my $res; if ($qn_node) { my $qn_uri = $qn_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1874)" qname_value_uri #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1875)" ; $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1876)" get_resource #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1877)" ($qn_uri, for_arg => $opt{for_arg}); if ($res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1878)" is_defined #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1879)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1880)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1882)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1893)" local $Error::Depth = $Error::Depth - 1; { #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1891)" #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1885)" #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1883)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1884)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1886)" 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' => $res->{uri}; #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1889)" #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1887)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1888)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1890)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1892)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1894)" } #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1907)" #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1895)" ; } $res->{nameURI} = $qn_uri; $res->{localName} = $qn_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1896)" qname_value_local_name #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1897)" ; $res->{namespaceURI} = $qn_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1898)" qname_value_namespace_uri #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1899)" ; } else { ## Anonymous or local my $n_node = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1900)" dis_get_attribute #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1901)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1902)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Name' #line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1903)" , for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}); if ($n_node) { if ($parentResource) { my $puri = $parentResource->{uri}; my $ru; my $ln = $n_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1904)" value #line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1905)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1906)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1908)" { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=getChildResourceURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #1913)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=getChildResourceURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #1911)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=getChildResourceURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #1909)" $__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 #1910)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1912)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1914)" } #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1937)" #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1915)" ; $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1916)" get_resource #line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1917)" ($ru, for_arg => $opt{for_arg}); $res->{nameURI} = $ru; $res->{localName} = $n_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1918)" value #line 51 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1919)" ; $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1920)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon' #line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1921)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1922)" 1 #line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1923)" ; } else { ## Root local name resource my $ln = $n_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1924)" value #line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1925)" ; my $ns_uri = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1926)" get_property_text #line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1927)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1928)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Namespace' #line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1929)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1930)" undef #line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1931)" ); my $qn_uri = $ns_uri . $ln; $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1932)" get_resource #line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1933)" ($qn_uri, for_arg => $opt{for_arg}); if ($res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1934)" is_defined #line 60 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1935)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1936)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1938)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #1949)" local $Error::Depth = $Error::Depth - 1; { #line 64 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #1947)" #line 64 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1941)" #line 64 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1939)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1940)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1942)" 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->{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' => $res->{uri}; #line 69 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #1945)" #line 69 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1943)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1944)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #1946)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1948)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #1950)" } #line 70 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2061)" #line 70 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1951)" ; } $res->{nameURI} = $qn_uri; $res->{namespaceURI} = $ns_uri; $res->{localName} = $ln; } } else { $res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1952)" get_resource #line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1953)" ($node_uri); $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1954)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon' #line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1955)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1956)" 1 #line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1957)" ; } } # anon $res->{for} = $opt{for_arg}; $res->{forp} = $opt{forp_arg}; $res->{src} = $el; $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1958)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #line 84 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1959)" } = $mod->{uri}; $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1960)" add_property_resource_list #line 85 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1961)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1962)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#resource' #line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1963)" , $res); $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1964)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1965)" } = $parentResource ? $parentResource->{uri} : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1966)" undef #line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1967)" ; $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1968)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#dynamicParentResource' #line 89 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1969)" } = $dynParent ? $dynParent->{uri} : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1970)" undef #line 90 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1971)" ; unless ($res->{uri} eq $node_uri) { my $nu_res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1972)" get_resource #line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1973)" ($node_uri); $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1974)" merge_as_alias #line 93 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1975)" ($nu_res); } $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1976)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined' #line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1977)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1978)" 1 #line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1979)" ; $res->{seq} = $self->{seq}++; $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1980)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID' #line 97 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1981)" } = $node_id; ## -- Alias my $al_node = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1982)" dis_get_attribute #line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1983)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1984)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AliasFor' #line 101 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1985)" , for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}); if ($al_node) { my $canon_uri = $al_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1986)" tfqnames_value_uri #line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1987)" ($node_id, $opt{for_arg}, for_arg => $self->{for}, forp_arg => $self->{forp}); my $canon_res = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1988)" get_resource #line 108 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1989)" ($canon_uri); $canon_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1990)" is_referred #line 110 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1991)" ($al_node); $canon_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1992)" merge_as_alias #line 111 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1993)" ($res, node => $al_node); $res = $canon_res; } ## -- Registers as child $parentResource-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1994)" add_property_resource_list #line 117 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1995)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1996)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource' #line 118 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1997)" , $res) if $parentResource; $dynParent-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #1998)" add_property_resource_list #line 120 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #1999)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2000)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#dynamicChildResource' #line 121 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2001)" , $res) if $dynParent; my $is_multires = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2002)" 0 #line 124 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2003)" ; my @props; my @cres; my @ce0 = @{$el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2004)" dis_child_elements #line 127 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2005)" (for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg})}; while (@ce0) { my $ce = shift @ce0; if ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2006)" element_type_match #line 131 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2007)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2008)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 131 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2009)" )) { my $type_uri = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2010)" qname_value_uri #line 132 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2011)" ; $res->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2012)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 133 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2013)" }->{$type_uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2014)" 1 #line 133 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2015)" ; my $type = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2016)" get_resource #line 134 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2017)" ($type_uri); $type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2018)" is_referred #line 135 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2019)" ($ce); if ($type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2020)" is_subset_of_uri #line 136 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2021)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2022)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--MultipleResource' #line 137 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2023)" )) { $is_multires = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2024)" 1 #line 138 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2025)" ; } } elsif ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2026)" element_type_match #line 140 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2027)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2028)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--subsetOf' #line 141 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2029)" )) { my $sres = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2030)" get_resource #line 142 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2031)" ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2032)" tfqnames_value_uri #line 143 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2033)" ($node_id, $opt{for_arg}, for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg})); $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2034)" add_super_resource #line 146 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2035)" ($sres); } elsif ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2036)" is_resource_element #line 147 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2037)" ) { push @cres, $ce; } else { ## Property and invalid element is not checked, since not ## all property definitions has loaded at this stage. push @props, $ce; } } # @ce0 ## -- Child resources unless ($is_multires) { for my $re (@cres) { unless ($al_node) { $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2038)" load_resource #line 160 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2039)" ($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 #2040)" dis_get_attribute #line 165 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2041)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2042)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--aliasChild' #line 166 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2043)" , for_arg => $opt{for_arg}, forp_arg => $opt{forp_arg}); if ($ac and $ac-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2044)" value #line 168 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2045)" ) { $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2046)" load_resource #line 169 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2047)" ($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 #2048)" element_type_match #line 181 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2049)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2050)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--resourceFor' #line 182 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2051)" )) { my $for_uri = $pe-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2052)" qname_value_uri #line 183 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2053)" ; my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2054)" get_for #line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2055)" ($for_uri); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2056)" is_referred #line 185 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2057)" ($pe); $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2058)" load_resource #line 186 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2059)" ($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 #2060)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2062)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2064)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2066)" } #line 198 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2069)" #line 198 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2067)" ; # DEEP #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2068)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2070)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2072)" } } sub get_for ($;$) { my ($self, $forURI) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2089)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2087)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2073)" $forURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2074)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2075)" defined $forURI; if (defined $self->{forDef}->{$forURI}) { $r = $self->{forDef}->{$forURI}; } else { $r = $self->{forDef}->{$forURI} = bless { uri => $forURI, isa => { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2076)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2077)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2078)" 1 #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2079)" }, revISA => {}, db => $self, }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2080)" 'Message::Util::DIS::ManakaiDISForDefinition' #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2081)" ; $self->{forDef}->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2082)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2083)" }->{revISA}->{$forURI} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2084)" 1 #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFor][@type=DISLang:Method]/Return[@Type=ManakaiDISForDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2085)" ; require Scalar::Util; Scalar::Util::weaken ($r->{db}); } #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)" } $r} sub load_for ($$$) { my ($self, $mod, $el) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2195)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2091)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2092)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2189)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2187)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2099)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2093)" $qn_node = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2094)" get_attribute_ns #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2095)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2096)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2097)" , 'QName'); unless ($qn_node) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2098)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2100)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2111)" local $Error::Depth = $Error::Depth - 1; { #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2109)" #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2103)" #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2101)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2102)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2104)" 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_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 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2107)" #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2105)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2106)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2108)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2110)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2112)" } #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2153)" #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2113)" ; } $qn_node = bless $qn_node, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2114)" 'Message::Util::DIS::ManakaiDISElement' #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2115)" ; my $qn_uri = $qn_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2116)" qname_value_uri #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2117)" ; my $for = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2118)" get_for #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2119)" ($qn_uri); unless ($for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2120)" is_defined #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2121)" ) { ## -- Initializes "For" Definition Object $for->{src} = $el; $for->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2122)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined' #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2123)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2124)" 1 #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2125)" ; $for->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2126)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2127)" } = $mod->{uri}; for my $ce (@{$el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2128)" dis_all_child_elements #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2129)" }) { my $xn = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2130)" expanded_uri #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2131)" ; if ($xn eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2132)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA' or #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2133)" $xn eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2134)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Implement' #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2135)" ) { my $sfor = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2136)" get_for #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2137)" ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2138)" qname_value_uri #line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2139)" ); $for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2140)" add_isa #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2141)" ($sfor); $sfor-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2142)" is_referred #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2143)" ($ce); ## TODO: warn if dis:Implement } elsif ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2144)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Description' #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2145)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2146)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ImplNote' #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2147)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2148)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--FullName' #line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2149)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2150)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--QName' #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2151)" => 1, }->{$xn}) { # } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2152)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2154)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2165)" local $Error::Depth = $Error::Depth - 1; { #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2163)" #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2157)" #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2155)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2156)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2158)" 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' => $mod->{uri}; #line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2161)" #line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2159)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2160)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2162)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2164)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2166)" } #line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2169)" #line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2167)" ; } } } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2168)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2170)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2181)" local $Error::Depth = $Error::Depth - 1; { #line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2179)" #line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2173)" #line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2171)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2172)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2174)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $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' => $for->{src}, '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' => $for->{uri}; #line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2177)" #line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2175)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2176)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2178)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2180)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2182)" } #line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2185)" #line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2183)" ; } # isDefine? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2184)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2186)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2188)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2190)" } #line 57 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2193)" #line 57 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadFor][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2191)" ; # DEEP #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2192)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2194)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2196)" } } sub pl_store ($$) { my ($self, $fileName) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=plStore][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2201)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=plStore][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2199)" use #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=plStore][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2197)" Storable qw/nstore/; local $Carp::CarpLevel = $Carp::CarpLevel + 1; nstore $self, $fileName; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2198)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2200)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2202)" } } sub check_undefined_resource ($) { my ($self) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2223)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2209)" for #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2203)" my $fd (values %{$self->{forDef}}) { if (my $ref = $fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2204)" is_referred and #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2205)" not $fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2206)" is_defined #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@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)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $ref, '-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/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)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2217)" #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2211)" ; } } for my $fd (values %{$self->{resDef}}) { if (my $ref = $fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2212)" is_referred and #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2213)" not $fd-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2214)" is_defined #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@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)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $ref, '-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/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)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2221)" #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=checkUndefinedResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2219)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2220)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2222)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2224)" } } sub load_module ($$$%) { my ($self, $doc, $resolver, %opt) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2445)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2231)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2225)" $resolver = bless $resolver, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2226)" 'Message::Util::DIS::ManakaiDISModuleResolver' if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2227)" ref $resolver eq 'CODE'; ## -- Module Name, URI $opt{for_arg} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2228)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' unless #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2229)" defined $opt{for_arg}; my $mod_node; my $mod_name_node; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2230)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2232)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2439)" local $Error::Depth = $Error::Depth + 1; { #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2437)" #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2241)" #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2233)" $mod_node = $doc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2234)" module_element #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2235)" ; $mod_name_node = $mod_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2236)" get_attribute_ns #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2237)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2238)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2239)" , 'QName'); unless ($mod_name_node) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2240)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2242)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2253)" local $Error::Depth = $Error::Depth - 1; { #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2251)" #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2245)" #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2243)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2244)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2246)" 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 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2249)" #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2247)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2248)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2250)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2252)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2254)" } #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2303)" #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2255)" ; } $mod_name_node = bless $mod_name_node, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2256)" 'Message::Util::DIS::ManakaiDISElement' #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2257)" ; my $mod_name_uri = $mod_name_node -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2258)" qname_value_uri #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2259)" ; my $mod = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2260)" get_module #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2261)" ($mod_name_uri, for_arg => $opt{for_arg}); unless ($mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2262)" is_defined #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2263)" ) { ## -- Initializes Module Definition Object $mod->{nameURI} = $mod_name_uri; $mod->{localName} = $mod_name_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2264)" qname_value_local_name #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2265)" ; $mod->{namespaceURI} = $mod_name_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2266)" qname_value_namespace_uri #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2267)" ; $mod->{for} = $opt{for_arg}; $mod->{src} = $mod_node; $mod->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2268)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined' #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2269)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2270)" 1 #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2271)" ; $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2272)" set_source_file #line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2273)" ($mod->{nameURI} => $doc); $mod->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2274)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile' #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2275)" } = $mod->{src} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2276)" owner_document #line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2277)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2278)" flag #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2279)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2280)" 'http://suika.fam.cx/~wakaba/archive/2005/swcfg21#fileName' #line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2281)" ); ## -- Loads "for" definition my $root_elements = $doc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2282)" dis_all_child_elements #line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2283)" ; if ($mod->{for} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2284)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2285)" ) { for my $el (@$root_elements) { next unless $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2286)" expanded_uri eq #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2287)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2288)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForDef' #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2289)" ; $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2290)" load_for #line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2291)" ($mod, $el); } } ## -- Loads "for all" my $rmod = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2292)" get_module #line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2293)" ($mod->{nameURI}, for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2294)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2295)" ); unless ($rmod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2296)" is_defined #line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2297)" ) { my $rdoc = $resolver-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2298)" uri_to_document #line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2299)" ($self, $rmod->{uri}, $mod->{namespaceURI}, $mod->{localName}, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2300)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2301)" ); unless ($rdoc) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2302)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2304)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2315)" local $Error::Depth = $Error::Depth - 1; { #line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2313)" #line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2307)" #line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2305)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2306)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2308)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $mod->{src}, '-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->{namespaceURI}, '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->{localName}, '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 70 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2311)" #line 70 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2309)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2310)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2312)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2314)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2316)" } #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2361)" #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2317)" ; } $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2318)" load_module #line 73 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2319)" ($rdoc, $resolver, for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2320)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 74 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2321)" , 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 #2322)" require_element #line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2323)" ; for my $rm (@{$req_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2324)" dis_all_child_elements #line 81 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2325)" }) { next unless $rm-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2326)" expanded_uri eq #line 82 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2327)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2328)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Module' #line 82 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2329)" ; my ($uri, $nuri, $ln, $for); my $mqn = $rm-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2330)" get_attribute_ns #line 84 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2331)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2332)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 84 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2333)" , 'QName'); if ($mqn) { my $mqv = $mqn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2334)" value #line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2335)" ; my $mqp = (bless $mqn, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2336)" 'Message::Util::DIS::ManakaiDISElement' #line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2337)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2338)" qname_to_pair #line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2339)" ($mqv, node => $mqn); ($nuri, $ln) = @$mqp; } else { my $mn = $rm-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2340)" get_attribute_ns #line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2341)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2342)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2343)" , 'Name'); if ($mn) { $nuri = $mod->{namespaceURI}; $ln = $mn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2344)" value #line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2345)" ; } else { $nuri = $mod->{namespaceURI}; $ln = $mod->{localName}; } } my $wfn = $rm-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2346)" get_attribute_ns #line 101 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2347)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2348)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 101 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2349)" , 'WithFor'); if ($wfn) { $for = (bless $wfn, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2350)" 'Message::Util::DIS::ManakaiDISElement' #line 103 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2351)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2352)" qname_value_uri #line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2353)" ; } else { $for = $mod->{for}; } my $rmod = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2354)" get_module #line 108 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2355)" ($nuri . $ln, for_arg => $for); unless ($rmod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2356)" is_defined #line 110 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2357)" ) { my $rdoc = $resolver-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2358)" uri_to_document #line 111 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2359)" ($self, $rmod->{uri}, $nuri, $ln, $for); unless ($rdoc) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2360)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2362)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2373)" local $Error::Depth = $Error::Depth - 1; { #line 121 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2371)" #line 121 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2365)" #line 121 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2363)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2364)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2366)" 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 128 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2369)" #line 128 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2367)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2368)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2370)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2372)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2374)" } #line 129 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2397)" #line 129 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2375)" ; } $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2376)" load_module #line 131 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2377)" ($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 #2378)" dis_child_elements #line 138 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2379)" (for_arg => $opt{for_arg}); for my $el (@$root_elements) { if ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2380)" is_resource_element #line 141 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2381)" ) { $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2382)" load_resource #line 142 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2383)" ($mod, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2384)" undef #line 143 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2385)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2386)" undef #line 143 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2387)" , $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 #2388)" expanded_uri #line 147 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2389)" ; if ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2390)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ForDef' #line 149 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2391)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2392)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Module' #line 150 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2393)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2394)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ImplNote' #line 151 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2395)" => 1, }->{$et}) { # } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2396)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2398)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2409)" local $Error::Depth = $Error::Depth - 1; { #line 156 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2407)" #line 156 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2401)" #line 156 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2399)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2400)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2402)" 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 161 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2405)" #line 161 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2403)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2404)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2406)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2408)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2410)" } #line 162 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2419)" #line 162 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2411)" ; } } # element types } my $dn = $mod_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2412)" get_attribute_ns #line 167 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2413)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2414)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--' #line 168 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2415)" , 'Namespace'); unless ($dn and defined $dn-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2416)" value #line 169 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2417)" ) { #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 #2431)" local $Error::Depth = $Error::Depth - 1; { #line 172 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2429)" #line 172 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2423)" #line 172 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2421)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2422)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2424)" 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 176 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2427)" #line 176 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2425)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2426)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2428)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2430)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2432)" } #line 177 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2435)" #line 177 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2433)" ; } } # Unless this module loaded #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2434)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2436)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2438)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2440)" } #line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2443)" #line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=loadModule][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2441)" ; # Deep #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2442)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2444)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2446)" } } 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 #2451)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #2449)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #2447)" $feature = lc $feature; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2448)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2450)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2452)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #2457)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #2455)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #2453)" $version = '' unless defined $version; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2454)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2456)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2458)" } my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2463)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2461)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2459)" $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 #2460)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2462)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2464)" } $r} sub xcref_to_resource ($$$%) { my ($self, $xcref, $contextNode, %opt) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2575)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2467)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2465)" ($q1, $q2, $q3) = split /\s*\.\s*/, $xcref, 3; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2466)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2468)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2569)" local $Error::Depth = $Error::Depth + 1; { #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2567)" #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2513)" if #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2469)" (defined $q3) { $r->[2] = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2470)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2471)" ($contextNode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2472)" tfqnames_to_uri #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2473)" ($q3, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2474)" undef #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2475)" , $opt{for_arg}, node => $opt{node})); $r->[1] = $r->[2]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2476)" get_property_resource #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2477)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2478)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2479)" ); } elsif (defined $q2) { if ($q2 =~ /:/) { $r->[1] = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2480)" get_resource #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2481)" ($contextNode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2482)" tfqnames_to_uri #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2483)" ($q2, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2484)" undef #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2485)" , $opt{for_arg}, node => $opt{node})); } else { $r->[0] = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2486)" get_resource #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2487)" ($contextNode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2488)" tfqnames_to_uri #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2489)" ($q1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2490)" undef #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2491)" , $opt{for_arg}, node => $opt{node})); $r->[1] = $r->[0]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2492)" get_const_resource_by_name #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2493)" ($q2); } } else { ## $q1 only $r->[2] = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2494)" get_resource #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2495)" ($contextNode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2496)" tfqnames_to_uri #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2497)" ($q1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2498)" undef #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2499)" , $opt{for_arg}, node => $opt{node})); if ($r->[2]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2500)" is_type_uri #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@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/manakai-dom#ExceptionOrWarningSubType' #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2503)" )) { $r->[1] = $r->[2]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2504)" get_property_resource #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2505)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2506)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2507)" ); } 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 #2508)" is_type_uri #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2509)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2510)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ExceptionOrWarningSubType' #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2511)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2512)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2514)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2519)" local $Error::Depth = $Error::Depth - 1; { #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2517)" #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2515)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2516)" 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 #2518)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2520)" } #line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2529)" #line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2521)" ; } $r->[2]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2522)" is_referred #line 46 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2523)" ($opt{node} or $contextNode) if $r->[2]; if (not $r->[1] or not $r->[1]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2524)" is_type_uri #line 51 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2525)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2526)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const' #line 51 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2527)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2528)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2530)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2535)" local $Error::Depth = $Error::Depth - 1; { #line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2533)" #line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2531)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2532)" 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 #2534)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2536)" } #line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2553)" #line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2537)" ; } $r->[1]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2538)" is_referred #line 61 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2539)" ($opt{node} or $contextNode); unless ($r->[0]) { my $cg = $r->[1]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2540)" get_property_resource #line 65 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2541)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2542)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 66 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2543)" ); $r->[0] = $cg-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2544)" get_property_resource #line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2545)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2546)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2547)" ) if $cg; } if (not $r->[0] or not $r->[0]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2548)" is_type_uri #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2549)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2550)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#AnyExceptionClass' #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2551)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2552)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2554)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2559)" local $Error::Depth = $Error::Depth - 1; { #line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2557)" #line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2555)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2556)" 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#AnyExceptionClass', '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 #2558)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2560)" } #line 81 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2565)" #line 81 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2561)" ; } $r->[0]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2562)" is_referred #line 83 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2563)" ($opt{node} or $contextNode); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2564)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2566)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2568)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2570)" } #line 85 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2573)" #line 85 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=xcrefToResource][@type=DISLang:Method]/Return[@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2571)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2572)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2574)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2576)" } $r} sub set_source_file ($$$) { my ($self, $fileName, $doc) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2583)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2581)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2577)" $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2578)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=setSourceFile][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2579)" }->{$fileName} = $doc; #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)" } } sub get_resource ($;$%) { my ($self, $resourceURI, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2609)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2589)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2585)" $resourceURI = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2586)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#any' unless #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2587)" defined $resourceURI; my $resURI; if (defined $opt{for_arg}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2588)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2590)" { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [b] (Chunk #2597)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [bc] (Chunk #2595)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #2591)" ($opt{for_arg} eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2592)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISImplementation][@type=ManakaiDOM:Class]/ResourceDef[@QName=tfurisToURI][@type=dis2pm:BlockCode]/PerlDef [u] (Chunk #2593)" ) { $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 #2594)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2596)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2598)" } #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2607)" #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2599)" ; } else { $resURI = $resourceURI; } if (defined $self->{resDef}->{$resURI}) { $r = $self->{resDef}->{$resURI}; } else { $r = $self->{resDef}->{$resURI} = bless { uri => $resURI, aliasURI => {$resURI => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2600)" 1 #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2601)" }, subOf => {}, supOf => {}, db => $self, for => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2602)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all' #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2603)" , forp => [], seq => -1, }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2604)" 'Message::Util::DIS::ManakaiDISResourceDefinition' #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISDatabase][@type=ManakaiDOM:Class]/Method[@Name=getResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2605)" ; require Scalar::Util; Scalar::Util::weaken ($r->{db}); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2606)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2608)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2610)" } $r} $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 2; $Message::Util::DIS::ManakaiDISDatabase::CompatClass{q} = 1; package Message::Util::DIS::ManakaiDISModuleResolver; our $VERSION = 20050904.1346; sub uri_to_document ($$$$$$) { my ($self, $disDB, $moduleURI, $moduleNamespaceURI, $moduleLocalName, $moduleFor) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@type=dis:MultipleResource]/Method[@Name=uriToDocument][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2615)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@type=dis:MultipleResource]/Method[@Name=uriToDocument][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2613)" #line 1 "/document (lib/Message/Util/DIS.dis)/IFClsDef[@QName=DISModuleResolver][@type=dis:MultipleResource]/Method[@Name=uriToDocument][@type=DISLang:Method]/Return[@Type=ManakaiDISDocument][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2611)" $r = $self->(@_); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2612)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2614)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2616)" } $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::ManakaiDISModuleDefinition; our $VERSION = 20050904.1346; push our @ISA, 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'Message::Util::DIS::ManakaiDISExceptionTarget', 'Message::Util::DIS::ManakaiDISPerlModuleDefinition'; sub pl_interface_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2679)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2677)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2617)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2618)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2671)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2669)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2625)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2619)" $mg = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2620)" get_resource #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2621)" ($self->{namespaceURI}); unless ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2622)" is_defined #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2623)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2624)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2626)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2637)" local $Error::Depth = $Error::Depth - 1; { #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2635)" #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2629)" #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2627)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2628)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2630)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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#RESOURCE_NOT_DEFINED_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' => 'pl_interface_name', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{namespaceURI}; #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2633)" #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2631)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2632)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2634)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2636)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2638)" } #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2667)" #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2639)" ; } my $an = $mg->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2640)" dis_get_attribute #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2641)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2642)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2643)" , for_arg => $self->{for}, forp_arg => [ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2644)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ForIF' #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2645)" ], media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2646)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2647)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2648)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2649)" ); if ($an) { $r = $an-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2650)" value #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2651)" ; $r =~ s/::$//g; my $sf = $an-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2652)" dis_get_attribute #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2653)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2654)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#moduleSuffix' #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2655)" , for_arg => $self->{for}, forp_arg => [ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2656)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ForIF' #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2657)" ], media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2658)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2659)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2660)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2661)" ); if ($sf) { $r .= $sf-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2662)" value #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2663)" ; } } else { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2664)" pl_fully_qualified_name #line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2665)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2666)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2668)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2670)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2672)" } #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2675)" #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plInterfaceName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2673)" ; #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)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2680)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2681)" 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' => 'pl_interface_name'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2682)" }} sub pl_file_name_stem ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2701)" my ($self) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2699)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2683)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2684)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2693)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2691)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2689)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2685)" $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2686)" pl_fully_qualified_name #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2687)" ; $r =~ s/.*?:://g; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2688)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2690)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2692)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2694)" } #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2697)" #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2695)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2696)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2698)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2700)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2702)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2703)" 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' => 'pl_file_name_stem'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2704)" }} sub owner_module ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2711)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=ManakaiDISModuleDefinition][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2709)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=ManakaiDISModuleDefinition][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2707)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=ManakaiDISModuleDefinition][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2705)" $r = $self; #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 #2710)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2712)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2713)" 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 #2714)" }} sub local_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2721)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2719)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2717)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2715)" $r = $self->{localName}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2716)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2718)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2720)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2722)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2723)" 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' => 'local_name'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2724)" }} sub name_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2731)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2729)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2727)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2725)" $r = $self->{nameURI}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2726)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2728)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2730)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2732)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2733)" 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' => 'name_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2734)" }} sub namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2741)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2739)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2737)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2735)" $r = $self->{namespaceURI}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2736)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2738)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2740)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2742)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2743)" 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' => 'namespace_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2744)" }} sub uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2751)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ModuleURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2749)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ModuleURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2747)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ModuleURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2745)" $r = $self->{uri}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2746)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2748)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2750)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2752)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2753)" 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' => 'uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2754)" }} sub for_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2761)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2759)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2757)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2755)" $r = $self->{for}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2756)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2758)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2760)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2762)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2763)" 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' => 'for_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2764)" }} sub pl_fully_qualified_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2821)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2819)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2765)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2766)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2813)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2811)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2773)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2767)" $mg = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2768)" get_resource #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2769)" ($self->{namespaceURI}); unless ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2770)" is_defined #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2771)" ) { #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 #2785)" local $Error::Depth = $Error::Depth - 1; { #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2783)" #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2777)" #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2775)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2776)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2778)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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#RESOURCE_NOT_DEFINED_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' => 'pl_fully_qualified_name', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{namespaceURI}; #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2781)" #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2779)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2780)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2782)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2784)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2786)" } #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2809)" #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2787)" ; } my $an = $mg->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2788)" dis_get_attribute #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2789)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2790)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2791)" , for_arg => $self->{for}, media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2792)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2793)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2794)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2795)" ); if ($an) { $r = $an-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2796)" value #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2797)" ; $r =~ s/::$//g; $r .= '::' . $self->{localName}; my $sf = $an-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2798)" dis_get_attribute #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2799)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2800)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#moduleSuffix' #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2801)" , for_arg => $self->{for}, media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2802)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2803)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2804)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2805)" ); if ($sf) { $r .= $sf-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2806)" value #line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2807)" ; } } else { $r = ($mg->{localName} || 'main') . '::' . $self->{localName}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2808)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2810)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2812)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2814)" } #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2817)" #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=Perl:package-name::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2815)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2816)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2818)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2820)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2822)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2823)" 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' => 'pl_fully_qualified_name'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2824)" }} sub is_defined ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2833)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2831)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2829)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2825)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2826)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2827)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2828)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2830)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2832)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2834)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2835)" 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_defined'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2836)" }} 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 #2841)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #2839)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #2837)" $feature = lc $feature; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2838)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2840)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2842)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #2847)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #2845)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #2843)" $version = '' unless defined $version; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2844)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2846)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2848)" } my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2853)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2851)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2849)" $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 #2850)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2852)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2854)" } $r} sub uris ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2861)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2859)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2857)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2855)" $r = [$self->{uri}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2856)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2858)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2860)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2862)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2863)" 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 #2864)" }} use overload bool => sub () {1}, 'eq' => sub ($$) { my ($self, $anotherModule) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2873)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2871)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2865)" (UNIVERSAL::isa ($anotherModule, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2866)" 'Message::Util::DIS::ManakaiDISModuleDefinition' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2867)" )) { $r = $self->{uri} eq $anotherModule->{uri}; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2868)" 0 #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISModuleDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2869)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2870)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2872)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2874)" } $r} , 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} = 4; $Message::Util::DIS::ManakaiDISModuleDefinition::CompatClass{q} = 1; package Message::Util::DIS::ManakaiDISForDefinition; our $VERSION = 20050904.1346; push our @ISA, 'Message::Util::DIS::ManakaiDISExceptionTarget'; sub isa_uri ($$) { my ($self, $superURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2881)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2879)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2875)" $r = $self->{uri} eq $superURI ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2876)" 1 : #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=isaURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2877)" $self->{isa}->{$superURI}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2878)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2880)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2882)" } $r} sub add_isa ($$) { my ($self, $superFor) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2907)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2885)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2883)" @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 #2884)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2886)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #2901)" local $Error::Depth = $Error::Depth + 1; { #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2899)" #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2897)" for #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2887)" my $from (@from) { for my $to (@to) { $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2888)" get_for #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2889)" ($from)->{isa}->{$to} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2890)" 1 #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2891)" ; $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2892)" get_for #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2893)" ($to)->{revISA}->{$from} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2894)" 1 #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2895)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2896)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2898)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2900)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2902)" } #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2905)" #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=addISA][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2903)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2904)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2906)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2908)" } } sub owner_module ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2921)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2919)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2917)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2909)" $r = $self->{db} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2910)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2911)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2912)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2913)" }) if defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2914)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2915)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2916)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2918)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2920)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2922)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2923)" 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' => 'owner_module'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2924)" }} sub is_defined ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2933)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2931)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2929)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2925)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2926)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2927)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2928)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2930)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2932)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2934)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2935)" 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_defined'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2936)" }} 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 #2941)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #2939)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #2937)" $feature = lc $feature; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2938)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2940)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2942)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #2947)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #2945)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #2943)" $version = '' unless defined $version; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2944)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2946)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2948)" } my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #2953)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #2951)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2949)" $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 #2950)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2952)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2954)" } $r} sub is_referred ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2963)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2961)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2959)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2955)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2956)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isReferred' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2957)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2958)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2960)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2962)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2964)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2973)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #2971)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #2969)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #2965)" $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2966)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isReferred' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #2967)" } = $given if $given; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2968)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2970)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2972)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2974)" }} sub uris ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2981)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2979)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2977)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2975)" $r = [$self->{uri}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2976)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2978)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2980)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2982)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2983)" 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 #2984)" }} sub uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2991)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #2989)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #2987)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #2985)" $r = $self->{uri}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2986)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2988)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #2990)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2992)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #2993)" 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' => 'uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #2994)" }} use overload bool => sub () {1}, 'eq' => sub ($$) { my ($self, $anotherFor) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3003)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3001)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2995)" (UNIVERSAL::isa ($anotherFor, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2996)" 'Message::Util::DIS::ManakaiDISForDefinition' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2997)" )) { $r = $self->{uri} eq $anotherFor->{uri}; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #2998)" 0 #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISForDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #2999)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3000)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3002)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3004)" } $r} , 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} = 2; $Message::Util::DIS::ManakaiDISForDefinition::CompatClass{q} = 1; package Message::Util::DIS::ManakaiDISPerlModuleDefinition; our $VERSION = 20050904.1346; sub pl_generate_perl_module_file ($) { my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3455)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3005)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3006)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3449)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3447)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3029)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3007)" $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3008)" pl_implementation #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3009)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3010)" create_perl_file #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3011)" ; ## -- Source information $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3012)" source_file #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3013)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3014)" get_property_text #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3015)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3016)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceFile' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3017)" , '')); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3018)" source_module #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3019)" ($self->{nameURI}); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3020)" source_for #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3021)" ($self->{for}); ## -- License information my $ownermod = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3022)" owner_module #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3023)" ; my $license = $ownermod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3024)" get_property_resource #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3025)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3026)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--License' #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3027)" ); unless ($license) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3028)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3030)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3035)" local $Error::Depth = $Error::Depth - 1; { #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3033)" #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3031)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3032)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $ownermod->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_generate_perl_module_file', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_LICENSE_ATTR_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISPerlModuleDefinition', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $ownermod->{uri}; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3034)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3036)" } #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3113)" #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3037)" ; } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3038)" license_uri #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3039)" ($license-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3040)" uri #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3041)" ); ## -- Classes ## TODO: Custom module construction support my $thismod_name = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3042)" pl_fully_qualified_name #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3043)" ; my $thismod_pack = $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3044)" get_last_package #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3045)" ($thismod_name, make_new_package => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3046)" 1 #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3047)" ); my %const; for my $cls (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3048)" get_property_resource_list #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3049)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3050)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#resource' #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3051)" )}) { if ($cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3052)" owner_module eq #line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3053)" $ownermod) { if ($cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3054)" is_type_uri #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3055)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3056)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class' #line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3057)" )) { ## -- Subroutines and variables my $pack = $cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3058)" pl_code_fragment #line 37 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3059)" ; $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3060)" append_package #line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3061)" ($pack); my $pack_name = $cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3062)" pl_fully_qualified_name #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3063)" ; ## -- Constants for my $cr (@{$cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3064)" get_property_resource_list #line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3065)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3066)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource' #line 43 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3067)" )}) { if ($cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3068)" is_type_uri #line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3069)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3070)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const' #line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3071)" )) { $thismod_pack-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3072)" add_export #line 46 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3073)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3074)" undef #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3075)" , my $nm = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3076)" pl_name #line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3077)" ); $const{$nm} = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3078)" pl_fully_qualified_name #line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3079)" ; } elsif ($cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3080)" is_type_uri #line 50 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3081)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3082)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ConstGroup' #line 51 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3083)" )) { my $tag = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3084)" pl_name #line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3085)" ; for my $gcr (@{$cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3086)" get_property_resource_list #line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3087)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3088)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource' #line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3089)" )}) { if ($gcr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3090)" is_type_uri #line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3091)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3092)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const' #line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3093)" )) { $thismod_pack-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3094)" add_export #line 57 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3095)" ($tag, my $nm = $gcr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3096)" pl_name #line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3097)" ); $const{$nm} = $gcr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3098)" pl_fully_qualified_name #line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3099)" ; } } } } ## -- Features my %feature; for my $el (@{$cls->{src} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3100)" dis_child_elements #line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3101)" (for_arg => $cls->{for}, forp_arg => $cls->{forp})}) { next unless $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3102)" expanded_uri eq #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3103)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3104)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/meta#provideFeature' #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3105)" ; my $furi = $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3106)" qname_value_uri #line 72 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3107)" ; my $f = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3108)" get_resource #line 73 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3109)" ($furi); unless ($f-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3110)" is_defined #line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3111)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3112)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3114)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3119)" local $Error::Depth = $Error::Depth - 1; { #line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3117)" #line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3115)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3116)" 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' => 'pl_generate_perl_module_file', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMFeature', '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::ManakaiDISPerlModuleDefinition', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $furi; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3118)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3120)" } #line 91 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3445)" #line 91 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3121)" ; } for my $s ($f, @{$f-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3122)" get_property_resource_list #line 93 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3123)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3124)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/meta#extendFeature' #line 94 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3125)" , recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3126)" 1 #line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3127)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3128)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 96 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3129)" )}) { $feature{$s-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3130)" uri #line 97 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3131)" } = [$s, $el]; } } for my $f (values %feature) { my @fname = @{$f->[0]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3132)" feature_name_list #line 102 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3133)" }; my $fver = $f->[0]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3134)" get_property_text #line 103 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3135)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3136)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Version' #line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3137)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3138)" undef #line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3139)" ); next unless defined $fver; my $fi = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3140)" pl_is_feature_implemented #line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3141)" ($f->[0]->{uri}) ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3142)" 1 : #line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3143)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3144)" 0 #line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3145)" ; my @ec = @{$f->[1]-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3146)" dis_child_elements #line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3147)" (for_arg => $cls->{for}, forp_arg => $cls->{forp})}; if (@ec) { my $has_through = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3148)" 0 #line 111 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3149)" ; for my $ec (@ec) { next unless $ec-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3150)" expanded_uri eq #line 113 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3151)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3152)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/meta#providedThrough' #line 113 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3153)" ; my $curi = $ec-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3154)" tfqnames_value_uri #line 114 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3155)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3156)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID' #line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3157)" }, $cls->{for}, for_arg => $cls->{for}, forp_arg => $cls->{forp}); my $c = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3158)" get_resource #line 118 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3159)" ($curi); $c-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3160)" is_referred #line 120 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3161)" ($ec); my $cp = $c-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3162)" pl_fully_qualified_name #line 121 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3163)" ; for my $fname (@fname) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3164)" append_statement #line 123 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3165)" ('$Message::DOM::ImplFeature{q<' . $cp . '>}->{q<' . $fname . '>}->{q<' . $fver . '>} ||= '.$fi); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3166)" append_statement #line 127 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3167)" ('$Message::DOM::ImplFeature{q<' . $cp . '>}->{q<' . $fname . '>}->{q<>} = 1'); } $has_through = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3168)" 1 #line 131 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3169)" ; } next if $has_through; } ## No DOMMetaImpl:ProvidedThrough attribute for my $fname (@fname) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3170)" append_statement #line 137 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3171)" ('$Message::DOM::ImplFeature{q<' . $pack_name . '>}->{q<' . $fname . '>}->{q<' . $fver . '>} ||= '.$fi); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3172)" append_statement #line 141 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3173)" ('$Message::DOM::ImplFeature{q<' . $pack_name . '>}->{q<' . $fname . '>}->{q<>} = 1'); } } # for my %ifeature; my $ifpoint = 0; for my $feature (@{$cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3174)" get_property_resource_list #line 149 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3175)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3176)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#implementFeature' #line 150 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3177)" , isa_recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3178)" 1 #line 151 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3179)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3180)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 152 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3181)" )}) { my $fver = $feature-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3182)" get_property_text #line 153 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3183)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3184)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Version' #line 154 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3185)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3186)" undef #line 154 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3187)" ); $ifpoint += $fver; my $fi = defined $fver ? $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3188)" pl_is_feature_implemented #line 157 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3189)" ($feature->{uri}) ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3190)" 1 : #line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3191)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3192)" 0 : #line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3193)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3194)" 1 #line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3195)" ; for my $fname (@{$feature-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3196)" feature_name_list #line 159 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3197)" }) { $ifeature{$fname}->{$fver} = $fi; $ifeature{$fname}->{''} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3198)" 1 #line 161 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3199)" ; } } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3200)" append_statement #line 164 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3201)" ('$Message::DOM::ClassFeature{q<' . $pack_name . '>} = ' . #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3202)" Message::Util::PerlCode::ManakaiPerlCodeImplementation->perl_literal #line 166 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3203)" (\%ifeature)); ## Score calculated from provided features $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3204)" append_statement #line 169 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3205)" ('$Message::DOM::ClassPoint{q<' . $pack_name . '>} = ' . $ifpoint); ## -- Roles for my $role (@{$cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3206)" get_property_resource_list #line 174 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3207)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3208)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#role' #line 175 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3209)" , isa_recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3210)" 1 #line 175 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3211)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3212)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 176 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3213)" )}) { if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3214)" is_subset_of_uri #line 177 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3215)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3216)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/meta#ImplementationSourceForManakaiDOMImplementationRegistry' #line 178 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3217)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3218)" append_statement #line 179 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3219)" ('$Message::DOM::ManakaiDOMImplementationRegistry'. '::SourceClass{q<' . $pack_name . '>} = 1'); } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3220)" is_subset_of_uri #line 183 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3221)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3222)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/meta#ImplementationForManakaiDOMImplementationSource' #line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3223)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3224)" append_statement #line 185 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3225)" ('$Message::DOM::ManakaiDOMImplementationSource'. '::SourceClass{q<' . $pack_name . '>} = 1'); } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3226)" is_subset_of_uri #line 189 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3227)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3228)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/meta#ImplementationCompatibleWithManakaiDOMMinimumImplementation' #line 190 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3229)" ) ) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3230)" append_statement #line 192 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3231)" ('$Message::DOM::ManakaiDOMImplementation'. '::CompatClass{q<' . $pack_name . '>} = 1'); } ## Node if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3232)" is_subset_of_uri #line 198 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3233)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3234)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#ElementRole' #line 199 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3235)" )) { my $for_specific_et; for my $et (@{$cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3236)" get_property_resource_list #line 201 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3237)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3238)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Markup#elementType' #line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3239)" , isa_recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3240)" 1 #line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3241)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3242)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 203 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3243)" )}) { $for_specific_et = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3244)" 1 #line 204 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3245)" ; my $ln = $et-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3246)" mv_local_name #line 205 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3247)" ; $ln = '*' unless defined $ln; my $ns = $et-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3248)" mv_namespace_uri #line 207 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3249)" ; $ns = '' unless defined $ns; ## ISSUE: Is NULL-namespace should be allowed here? $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3250)" append_statement #line 210 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3251)" ('$Message::DOM::ManakaiDOMElement' . '::CompatClassET{q<' . $ns . '>}->{q<' . $ln . '>}->{q<' . $pack_name . '>} = 1'); } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3252)" append_statement #line 215 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3253)" ('$Message::DOM::ManakaiDOMElement'. '::CompatClass{q<' . $pack_name . '>} = 1') unless $for_specific_et; } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3254)" is_subset_of_uri #line 220 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3255)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3256)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#AttributeRole' #line 221 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3257)" )) { my $for_specific_attr; for my $at (@{$cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3258)" get_property_resource_list #line 223 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3259)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3260)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--DocAttr' #line 224 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3261)" , isa_recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3262)" 1 #line 224 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3263)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3264)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 225 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3265)" )}) { $for_specific_attr = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3266)" 1 #line 226 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3267)" ; my $ln = $at-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3268)" mv_local_name #line 227 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3269)" ; $ln = '*' unless defined $ln; my $ns = $at-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3270)" mv_namespace_uri #line 229 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3271)" ; $ns = '' unless defined $ns; my $et = $at-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3272)" mv_owner_element_resource #line 231 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3273)" ; my $etns = '*'; my $etln = '*'; if ($et) { $etns = $et-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3274)" mv_local_name #line 235 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3275)" ; $etln = '*' unless defined $etln; my $etns = $at-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3276)" mv_namespace_uri #line 237 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3277)" ; $etns = '' unless defined $etns; ## ISSUE: Should NULL-namespace be allowed here? } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3278)" append_statement #line 242 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3279)" ('$Message::DOM::ManakaiDOMElement' . '::CompatClassAttr{q<' . $etns . '>}->{q<' . $etln . '>}->{q<' . $ns . '>}->{q<' . $ln . '>}->{q<' . $pack_name . '>} = 1'); } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3280)" append_statement #line 248 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3281)" ('$Message::DOM::ManakaiDOMAttr'. '::CompatClass{q<' . $pack_name . '>} = 1') unless $for_specific_attr; } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3282)" is_subset_of_uri #line 253 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3283)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3284)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#TextRole' #line 254 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3285)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3286)" append_statement #line 255 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3287)" ('$Message::DOM::ManakaiDOMText'. '::CompatClass{q<' . $pack_name . '>} = 1'); } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3288)" is_subset_of_uri #line 259 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3289)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3290)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#CommentRole' #line 260 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3291)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3292)" append_statement #line 261 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3293)" ('$Message::DOM::ManakaiDOMComment'. '::CompatClass{q<' . $pack_name . '>} = 1'); } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3294)" is_subset_of_uri #line 265 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3295)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3296)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#CDATASectionRole' #line 266 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3297)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3298)" append_statement #line 267 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3299)" ('$Message::DOM::ManakaiDOMCDATASection'. '::CompatClass{q<' . $pack_name . '>} = 1'); } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3300)" is_subset_of_uri #line 271 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3301)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3302)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#ProcessingInstructionRole' #line 272 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3303)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3304)" append_statement #line 273 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3305)" ('$Message::DOM::ManakaiDOMProcessingInstruction'. '::CompatClass{q<' . $pack_name . '>} = 1'); ## TODO: Target name dependent } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3306)" is_subset_of_uri #line 278 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3307)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3308)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DocumentRole' #line 279 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3309)" )) { my $for_specific_et; for my $et (@{$cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3310)" get_property_resource_list #line 281 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3311)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3312)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Markup#rootElementType' #line 282 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3313)" , isa_recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3314)" 1 #line 282 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3315)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3316)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 283 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3317)" )}) { $for_specific_et = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3318)" 1 #line 284 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3319)" ; my $ln = $et-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3320)" mv_local_name #line 285 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3321)" ; $ln = '*' unless defined $ln; my $ns = $et-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3322)" mv_namespace_uri #line 287 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3323)" ; $ns = '' unless defined $ns; ## ISSUE: Is NULL-namespace should be allowed here? $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3324)" append_statement #line 290 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3325)" ('$Message::DOM::ManakaiDOMDocument' . '::CompatClassET{q<' . $ns . '>}->{q<' . $ln . '>}->{q<' . $pack_name . '>} = 1'); } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3326)" append_statement #line 295 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3327)" ('$Message::DOM::ManakaiDOMDocument'. '::CompatClass{q<' . $pack_name . '>} = 1') unless $for_specific_et; ## TODO: by document type name and media type } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3328)" is_subset_of_uri #line 301 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3329)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3330)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DocumentFragmentRole' #line 302 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3331)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3332)" append_statement #line 303 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3333)" ('$Message::DOM::ManakaiDOMDocumentFragment'. '::CompatClass{q<' . $pack_name . '>} = 1'); } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3334)" is_subset_of_uri #line 307 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3335)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3336)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#DocumentTypeRole' #line 308 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3337)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3338)" append_statement #line 309 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3339)" ('$Message::DOM::ManakaiDOMDocumentType'. '::CompatClass{q<' . $pack_name . '>} = 1'); ## TODO: Doctype name or public ID dependent } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3340)" is_subset_of_uri #line 314 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3341)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3342)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#EntityRole' #line 315 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3343)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3344)" append_statement #line 316 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3345)" ('$Message::DOM::ManakaiDOMEntity'. '::CompatClass{q<' . $pack_name . '>} = 1'); ## TODO: Entity name or public ID dependent } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3346)" is_subset_of_uri #line 321 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3347)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3348)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#EntityReferenceRole' #line 322 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3349)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3350)" append_statement #line 323 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3351)" ('$Message::DOM::ManakaiDOMEntityReference'. '::CompatClass{q<' . $pack_name . '>} = 1'); ## TODO: Entity name or public ID dependent } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3352)" is_subset_of_uri #line 328 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3353)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3354)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NotationRole' #line 329 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3355)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3356)" append_statement #line 330 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3357)" ('$Message::DOM::ManakaiDOMNotation'. '::CompatClass{q<' . $pack_name . '>} = 1'); ## TODO: Notation name or public ID dependent } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3358)" is_subset_of_uri #line 335 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3359)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3360)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#NamespaceRole' #line 336 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3361)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3362)" append_statement #line 337 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3363)" ('$Message::DOM::ManakaiDOMNamespace'. '::CompatClass{q<' . $pack_name . '>} = 1'); } ## NOTE: DOMCore:AnyNodeRole is subset of ## DOMCore:ElementRole and DOMCore:TextRole and ... if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3364)" is_subset_of_uri #line 344 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3365)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3366)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/ls#ParserRole' #line 345 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3367)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3368)" append_statement #line 346 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3369)" ('$Message::DOM::DOMLS::ParserClass{q<'. $pack_name . '>} = 1'); } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3370)" is_subset_of_uri #line 350 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3371)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3372)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/ls#SerializerRole' #line 351 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3373)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3374)" append_statement #line 352 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3375)" ('$Message::DOM::DOMLS::SerializerClass{q<'. $pack_name . '>} = 1'); } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3376)" is_subset_of_uri #line 357 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3377)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3378)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ModuleRole' #line 358 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3379)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3380)" append_statement #line 359 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3381)" ('$Message::Util::DIS::ManakaiDISModuleDefinition'. '::CompatClass{q<' . $pack_name . '>} = 1'); } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3382)" is_subset_of_uri #line 363 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3383)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3384)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ForRole' #line 364 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3385)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3386)" append_statement #line 365 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3387)" ('$Message::Util::DIS::ManakaiDISForDefinition'. '::CompatClass{q<' . $pack_name . '>} = 1'); } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3388)" is_subset_of_uri #line 369 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3389)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3390)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ResourceRole' #line 370 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3391)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3392)" append_statement #line 371 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3393)" ('$Message::Util::DIS::ManakaiDISResourceDefinition'. '::CompatClass{q<' . $pack_name . '>} = 1'); } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3394)" is_subset_of_uri #line 375 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3395)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3396)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ElementRole' #line 376 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3397)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3398)" append_statement #line 377 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3399)" ('$Message::Util::DIS::ManakaiDISElement'. '::CompatClass{q<' . $pack_name . '>} = 1'); } if ($role-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3400)" is_subset_of_uri #line 381 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3401)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3402)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#DatabaseRole' #line 382 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3403)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3404)" append_statement #line 383 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3405)" ('$Message::Util::DIS::ManakaiDISDatabase'. '::CompatClass{q<' . $pack_name . '>} = 1'); } } } elsif ($cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3406)" is_type_uri #line 388 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3407)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3408)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#ScalarVariable' #line 389 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3409)" ) and not $cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3410)" get_property_resource #line 390 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3411)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3412)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 390 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3413)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3414)" append_code_fragment #line 391 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3415)" ($cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3416)" pl_code_fragment #line 392 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3417)" ); } } } # Classes ## -- Exporter (constants) if (keys %const) { my $map = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3418)" Message::Util::PerlCode::ManakaiPerlCodeImplementation->perl_literal #line 399 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3419)" (\%const); $thismod_pack-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3420)" append_statement #line 400 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3421)" ("sub $_ ()") for keys %const; $thismod_pack-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3422)" get_sub #line 402 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3423)" ('AUTOLOAD', make_new_node => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3424)" 1 #line 402 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3425)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3426)" append_code #line 403 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3427)" (q[ my $al = our $AUTOLOAD; $al =~ s/.+:://; if (] . $map . q[->{$al}) { no strict 'refs'; *{$AUTOLOAD} = \&{] . $map . q[->{$al}}; goto &{$AUTOLOAD}; } else { require Carp; Carp::croak (qq); } ]); $thismod_pack-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3428)" get_sub #line 415 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3429)" ('import', make_new_node => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3430)" 1 #line 415 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3431)" ) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3432)" append_code #line 416 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3433)" (q[ my $self = shift; if (@_) { local $Exporter::ExportLevel = $Exporter::ExportLevel + 1; $self->SUPER::import (@_); for (grep {not /\W/} @_) { eval qq{$_}; } } ]); } ## -- Require'ing external modules ## TODO: Custom module construction support for my $uri (@{$r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3434)" dis_get_require_uri_list #line 430 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3435)" }) { my $mod = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3436)" get_resource #line 431 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3437)" ($uri) -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3438)" owner_module #line 432 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3439)" ; next unless $mod; my $pack = $mod-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3440)" pl_fully_qualified_name #line 434 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3441)" ; $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3442)" add_require_perl_module_name #line 435 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3443)" ($pack) unless $pack eq $thismod_name; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3444)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3446)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3448)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3450)" } #line 467 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3453)" #line 467 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGeneratePerlModuleFile][@type=DISLang:Method]/Return[@Type=PLFile][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3451)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3452)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3454)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3456)" } $r} sub pl_is_feature_implemented ($$) { my ($self, $featureResourceURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3533)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3457)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3458)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3527)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3525)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3523)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3459)" (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3460)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isFeatureImplemented' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3461)" } ->{$featureResourceURI}) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3462)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isFeatureImplemented' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3463)" } ->{$featureResourceURI}; } elsif ($self->isa ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3464)" 'Message::Util::DIS::ManakaiDISModuleDefinition' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3465)" )) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3466)" 1 #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3467)" ; for my $cls (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3468)" get_property_resource_list #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3469)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3470)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#resource' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3471)" )}) { if ($cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3472)" is_type_uri #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3473)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3474)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class' #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3475)" )) { unless ($cls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3476)" pl_is_feature_implemented #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3477)" ($featureResourceURI)) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3478)" 0 #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3479)" ; last; } } ## NOTE: DISPerl:ScalarVariable's are always implemented } $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3480)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isFeatureImplemented' #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3481)" } ->{$featureResourceURI} = $r; } else { ## Resource definition ## TODO: Custom module definition if ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3482)" is_feature_provided #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3483)" ($featureResourceURI)) { if ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3484)" is_type_uri #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3485)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3486)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodReturn' #line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3487)" ) or $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3488)" is_type_uri #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3489)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3490)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet' #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3491)" ) or $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3492)" is_type_uri #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3493)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3494)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet' #line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3495)" )) { my $def = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3496)" dis_get_attribute #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3497)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3498)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Def' #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3499)" , for_arg => $self->{for}, forp_arg => $self->{forp}); $r = $def ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3500)" 1 : #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3501)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3502)" 0 #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3503)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3504)" 1 #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3505)" ; for my $res (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3506)" get_property_resource_list #line 37 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3507)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3508)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource' #line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3509)" )}) { if ($res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3510)" is_type_uri #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3511)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3512)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod' #line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3513)" )) { unless ($res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3514)" pl_is_feature_implemented #line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3515)" ($featureResourceURI)) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3516)" 0 #line 43 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3517)" ; last; } } } # for } # self.type } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3518)" 1 #line 50 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3519)" ; } $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3520)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isFeatureImplemented' #line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3521)" }->{$featureResourceURI} = $r; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3522)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3524)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3526)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3528)" } #line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3531)" #line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPerlModuleDefinition][@type=ManakaiDOM:Class]/Method[@Name=plIsFeatureImplemented][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3529)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3530)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3532)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3534)" } $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::ManakaiDISResourceDefinition; our $VERSION = 20050904.1346; push our @ISA, 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'Message::Util::DIS::ManakaiDISExceptionTarget', 'Message::Util::DIS::ManakaiDISPerlModuleDefinition'; use Message::Util::Error; our $RegQNameChar = qr/[^\s<>"'\/\\\[\]\{\},!\?=\$\@%]/; our $RegBlockContent; $RegBlockContent = qr/(?>[^{}\\]*)(?>(?>[^{}\\]+|\\.|\{(??{$RegBlockContent})\})*)/; sub dis_is_null_value ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3565)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3563)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3537)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3535)" ($self->{src}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3536)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3538)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3557)" local $Error::Depth = $Error::Depth + 1; { #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3555)" #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3553)" my #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3539)" $val = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3540)" dis_get_attribute #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3541)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3542)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3543)" , for_arg => $self->{for}, forp_arg => $self->{forp}); if ($val) { my $isnull = $val-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3544)" dis_get_attribute #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3545)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3546)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--is-null' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3547)" , for_arg => $self->{for}, forp_arg => $self->{forp}); if ($isnull and $isnull-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3548)" value #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3549)" ) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3550)" 1 #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@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 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3561)" #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disIsNullValue][@Type=DOMMain:boolean::ManakaiDOM:all][@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 #3567)" 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 #3568)" }} sub pl_get_method_input_normalizer ($) { my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3609)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3585)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3569)" $type; my $type_node; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3570)" #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3571)" try {local $Error::Depth = $Error::Depth + 3; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3572)" #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3573)" $type = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3574)" dis_actual_data_type_resource #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3575)" ; $type_node = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3576)" dis_actual_data_type_node #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3577)" ; } catch #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3578)" Message::Util::DIS::ManakaiDISException with #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3579)" { my $err = shift; unless ($err->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3580)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3581)" } eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3582)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DIS_TYPE_ERR' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3583)" ) { $err->throw; } }; if ($type) { #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 #3603)" local $Error::Depth = $Error::Depth + 1; { #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3601)" #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3599)" my #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3587)" $noinput = $type_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3588)" dis_get_attribute #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3589)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3590)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#noInputNormalize' #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3591)" , for_arg => $self->{for}, forp_arg => $self->{forp}); ## NOTE: Is this correct? ## Should be "for" for the resource ## for which the "actualType" element ## is specified? unless ($noinput and $noinput-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3592)" value #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3593)" ) { $r = $type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3594)" get_child_resource_by_type #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3595)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3596)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#InputProcessor' #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3597)" ); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3598)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3600)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3602)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3604)" } #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3607)" #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plGetMethodInputNormalizer][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3605)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3606)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3608)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3610)" } $r} sub pl_additional_isa_packages ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3631)" my ($self) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3629)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3627)" for #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3611)" my $el (@{$self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3612)" dis_child_elements #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3613)" (for_arg => $self->{for}, forp_arg => $self->{forp})}) { if ($el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3614)" expanded_uri eq #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3615)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3616)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppISA' and #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3617)" $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3618)" media_type_match #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3619)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3620)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3621)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3622)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3623)" , for_arg => $self->{for}, forp_arg => $self->{forp})) { push @$r, $el-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3624)" value #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plAdditionalISAPackages][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3625)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3626)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3628)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3630)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3632)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3633)" 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' => 'pl_additional_isa_packages'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3634)" }} sub for_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3641)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3639)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3637)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forURI][@Type=ForURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3635)" $r = $self->{for}; #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)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3642)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3643)" 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' => 'for_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3644)" }} sub is_referred ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3653)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3651)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3649)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3645)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3646)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isReferred' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Get[@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 #3663)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #3661)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #3659)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3655)" $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3656)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isReferred' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isReferred][@Type=ManakaiDISElement][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #3657)" } = $given if $given; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3658)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3660)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3662)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3664)" }} sub _pl_muf_description_text ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3701)" my ($self) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3699)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3665)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3666)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3693)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3691)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3689)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3667)" $muf = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3668)" dis_get_attribute #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3669)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3670)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Def' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3671)" , for_arg => $self->{for}, forp_arg => $self->{forp}, media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3672)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#muf' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3673)" ); if ($muf) { $r = $muf-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3674)" value #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3675)" ; $r =~ s{< Q ::([^<>]+)>}{$self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3676)" qname_to_uri #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3677)" ($1, node => $muf)}gex; $r =~ s/\s+/ /g; $r =~ s/^ //; $r =~ s/ $//; } else { my $desc = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3678)" dis_get_attribute #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3679)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3680)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Description' #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3681)" , for_arg => $self->{for}, forp_arg => $self->{forp}, media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3682)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#disdoc' #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3683)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3684)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#disdoc' #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3685)" ); if ($desc) { $r = $desc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3686)" value #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3687)" ; $r =~ s/\s+/ /g; $r =~ s/^ //; $r =~ s/ $//; $r =~ s/%/%percent;/g; } } #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)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3694)" } #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3697)" #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMufDescriptionText][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3695)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3696)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3698)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3700)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3702)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3703)" 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' => '_pl_muf_description_text'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3704)" }} sub is_subset_of_uri ($$) { my ($self, $superURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3709)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3707)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isSubsetOfURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3705)" $r = $self->{aliasURI}->{$superURI} || $self->{subOf}->{$superURI}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3706)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3708)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3710)" } $r} sub _pl_parse_preprocess_parameter ($$%) { my ($self, $paramSpec, %opt) = @_; my $r = {}; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3735)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3715)" our #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3711)" $RegQNameChar; our $RegBlockContent; $r = {}; while ($paramSpec =~ s/^ ## Parameter name (\$? $RegQNameChar+)\s* (?: =>? \s* ## ">" is now optional for inline element (">" is delimiter) ## Parameter value ( ## Variable or Bare string \$? $RegQNameChar+ | ## Quoted string '(?>[^'\\]*)' ## ISSUE: escape mechanism required? | ## Code \{$RegBlockContent\} ) s*)? (?:,\s*|$)//ox) { my ($n, $v) = ($1, $2); if (defined $v) { if ($v =~ /^'/) { $v = {type => 'quoted', value => substr ($v, 1, length ($v) - 2)}; } elsif ($v =~ /^\{/) { $v = {type => 'code', value => substr ($v, 1, length ($v) - 2)}; } elsif ($v =~ /^\$/) { $v = {type => 'variable', value => substr $v, 1}; } else { $v = {type => 'bare', value => $v}; } } else { $v = {type => 'boolean', value => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3712)" 1 #line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3713)" }; } if ($n =~ /^\$/) { $r->{$n} = $v; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3714)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3716)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3725)" local $Error::Depth = $Error::Depth + 1; { #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3723)" #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3721)" #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3717)" $r->{$self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3718)" qname_to_uri #line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3719)" ($n, node => $opt{node} || $self->{src})} = $v; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3720)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3722)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3724)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3726)" } #line 50 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3729)" #line 50 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3727)" ; } } # while if (length $paramSpec) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3728)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3730)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => '_pl_parse_preprocess_parameter', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#BROKEN_PARAM_SPEC_ERR', '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#sourceCode' => $paramSpec; #line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3733)" #line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plParsePreprocessParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::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 get_child_resource_by_type ($$) { my ($self, $typeURI) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3757)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3737)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3738)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3751)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3749)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3747)" for #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3739)" my $cr_uri (@{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3740)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3741)" }}) { my $cr = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3742)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3743)" ($cr_uri); if ($cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3744)" is_type_uri #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3745)" ($typeURI)) { $r = $cr; last; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3746)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3748)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3750)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3752)" } #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3755)" #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3753)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3754)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3756)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3758)" } $r} sub owner_module ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3771)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3769)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3767)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3759)" $r = $self->{db} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3760)" get_module #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3761)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3762)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3763)" }) if defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3764)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#definingModule' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@Type=ManakaiDISModuleDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3765)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3766)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3768)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3770)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3772)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3773)" 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_module'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3774)" }} sub get_child_resource_by_name_and_type ($$$) { my ($self, $localName, $typeURI) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3797)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3775)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3776)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3791)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3789)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3787)" for #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3777)" my $cr_uri (@{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3778)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3779)" }}) { my $cr = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3780)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3781)" ($cr_uri); my $ln = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3782)" local_name #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3783)" ; if (defined $ln and $ln eq $localName and $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3784)" is_type_uri #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3785)" ($typeURI)) { $r = $cr; last; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3786)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3788)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3790)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3792)" } #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3795)" #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getChildResourceByNameAndType][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3793)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3794)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3796)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3798)" } $r} sub name_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3805)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3803)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3801)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=nameURI][@Type=NameURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3799)" $r = $self->{nameURI}; #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)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3806)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3807)" 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' => 'name_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3808)" }} sub local_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3815)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3813)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3811)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=localName][@Type=DISCore:LocalName::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3809)" $r = $self->{localName}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3810)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3812)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3814)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3816)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3817)" 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' => 'local_name'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3818)" }} sub mv_namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3855)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3853)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3819)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3820)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3847)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3845)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3843)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3821)" (exists $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3822)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvNamespaceURI' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3823)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3824)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvNamespaceURI' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3825)" }; } elsif ($self->{src}) { my $node = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3826)" dis_get_attribute #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3827)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3828)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3829)" , for_arg => $self->{for}, forp_arg => $self->{forp}, media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3830)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3831)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3832)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3833)" ); if ($node) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3834)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvNamespaceURI' #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3835)" } = $node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3836)" qname_value_namespace_uri #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3837)" ; } else { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3838)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvNamespaceURI' #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3839)" } = $self->{namespaceURI}; } } else { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3840)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvNamespaceURI' #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3841)" } = $self->{namespaceURI}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3842)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3844)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3846)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3848)" } #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3851)" #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvNamespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3849)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3850)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3852)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3854)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3856)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3857)" 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' => 'mv_namespace_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3858)" }} sub dis_data_type_resource ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3933)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3931)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3859)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3860)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3925)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3923)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3905)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3861)" (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3862)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3863)" }) { $r = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3864)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3865)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3866)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3867)" }); } else { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3868)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3869)" } = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3870)" dis_get_attribute #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3871)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3872)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3873)" , for_arg => $self->{for}, forp_arg => $self->{forp}); if ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3874)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode' #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3875)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3876)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3877)" } = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3878)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode' #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3879)" } -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3880)" tfqnames_value_uri #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3881)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3882)" undef #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3883)" , $self->{for}, for_arg => $self->{for}, forp_arg => $self->{forp}); $r = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3884)" get_resource #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3885)" ($r); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3886)" is_referred #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3887)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3888)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode' #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3889)" }); } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3890)" get_property_resource #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3891)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3892)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#dynamicParentResource' #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3893)" ); if ($pr) { $r = $pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3894)" dis_data_type_resource #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3895)" ; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3896)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode' #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3897)" } = $pr->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3898)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode' #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3899)" }; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3900)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3901)" } = $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3902)" uri #line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3903)" ; } else { ## No parent #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3904)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3906)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3917)" local $Error::Depth = $Error::Depth - 1; { #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #3915)" #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3909)" #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3907)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3908)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3910)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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'; #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3913)" #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3911)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3912)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3914)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3916)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3918)" } #line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3921)" #line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3919)" ; } } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3920)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3922)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3924)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3926)" } #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #3929)" #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #3927)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3928)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3930)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3932)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3934)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #3935)" 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 #3936)" }} sub get_const_resource_by_name ($$) { my ($self, $localName) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3969)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3937)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3938)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3963)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3961)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3959)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3939)" @constGroup; for my $cr_uri (@{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3940)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3941)" }}) { my $cr = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3942)" get_resource #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3943)" ($cr_uri); my $ln = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3944)" local_name #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3945)" ; if ($ln and $ln eq $localName and $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3946)" is_type_uri #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3947)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3948)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3949)" )) { $r = $cr; last; } elsif ($cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3950)" is_type_uri #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3951)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3952)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ConstGroup' #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3953)" )) { push @constGroup, $cr; } } unless ($r) { for my $cg (@constGroup) { $r = $cg-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3954)" get_child_resource_by_name_and_type #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3955)" ($localName, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3956)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const' #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3957)" ); last if $r; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3958)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3960)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3962)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3964)" } #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3967)" #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getConstResourceByName][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3965)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3966)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3968)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3970)" } $r} sub is_feature_provided ($$) { my ($self, $featureResourceURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4003)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3971)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3972)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #3997)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #3995)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #3993)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3973)" @f = @{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3974)" get_property_resource_list #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3975)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3976)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#implementFeature' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3977)" , isa_recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3978)" 1 #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3979)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3980)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3981)" )}; if (@f) { for my $f (@f) { if ($f-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3982)" is_subset_of_uri #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3983)" ($featureResourceURI)) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3984)" 1 #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3985)" ; last; } } } else { my $parent = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3986)" get_property_resource #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3987)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3988)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3989)" ); $r = $parent-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3990)" is_feature_provided #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3991)" ($featureResourceURI) if $parent; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #3992)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #3994)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3996)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #3998)" } #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4001)" #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isFeatureProvided][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #3999)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4000)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4002)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4004)" } $r} sub uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4011)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4009)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4007)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uri][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4005)" $r = $self->{uri}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4006)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4008)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4010)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4012)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4013)" 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' => 'uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4014)" }} sub pl_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4151)" my ($self) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4149)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4015)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4016)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4143)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4141)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4051)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4017)" (exists $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4018)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#name' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4019)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4020)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#name' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4021)" }; } elsif ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4022)" is_type_uri #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4023)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4024)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyMethod' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4025)" )) { my $an_node = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4026)" dis_get_attribute #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4027)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4028)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4029)" , for_arg => $self->{for}, forp_arg => $self->{forp}, media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4030)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/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#Perl' #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4033)" ); if ($an_node) { $r = $an_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4034)" value #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4035)" ; if ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4036)" get_property_boolean #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4037)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4038)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#isForInternal' #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4039)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4040)" 0 #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4041)" )) { $r = '_' . $r; } ## No reserved name checks } elsif (defined $self->{localName}) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4042)" Message::Util::DIS::ManakaiDISImplementation->_camel_case_to_underscore_name #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4043)" ($self->{localName}); if ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4044)" get_property_boolean #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4045)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4046)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#isForInternal' #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4047)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4048)" 0 #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4049)" )) { $r = '_' . $r; } if ({ import => 1, unimport => 1, isa => 1, can => 1, new => 1, as_string => 1, stringify => 1, clone => 1, }->{$r} or $r =~ /^___/) { #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 #4063)" local $Error::Depth = $Error::Depth - 1; { #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4061)" #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4055)" #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4053)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4054)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4056)" report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#generatedName' => $r, '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#soruceNode' => $self->{src}, '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#RESERVED_PERL_METHOD_NAME_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_name'; #line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4059)" #line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4057)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4058)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4060)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4062)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4064)" } #line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4083)" #line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4065)" ; } } elsif (my $op_uri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4066)" pl_method_operator #line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4067)" ) { $r = { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4068)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#MUErrorHandler' #line 46 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4069)" => '___report_error', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4070)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#AsStringMethod' #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4071)" => 'stringify', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4072)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#NewMethod' #line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4073)" => 'new', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4074)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#CloneMethod' #line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4075)" => 'clone', }->{$op_uri}; $r = $op_uri if $op_uri =~ /^[A-Z]+$/; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4076)" undef #line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4077)" ; } } elsif ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4078)" is_type_uri #line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4079)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4080)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const' #line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4081)" )) { unless (defined $self->{localName}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4082)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4084)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4095)" local $Error::Depth = $Error::Depth - 1; { #line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4093)" #line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4087)" #line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4085)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4086)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4088)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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_LOCAL_NAME_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' => 'pl_name', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{uri}; #line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4091)" #line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4089)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4090)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4092)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4094)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4096)" } #line 64 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4099)" #line 64 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4097)" ; } $r = uc $self->{localName}; if ($r =~ /^_/ or $r =~ /_$/) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4098)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4100)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4111)" local $Error::Depth = $Error::Depth - 1; { #line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4109)" #line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4103)" #line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4101)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4102)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4104)" report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#generatedName' => $r, '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#soruceNode' => $self->{src}, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $self->{localName}, '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#RESERVED_PERL_METHOD_NAME_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_name'; #line 74 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4107)" #line 74 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4105)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4106)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4108)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4110)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4112)" } #line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4119)" #line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4113)" ; } } elsif ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4114)" is_type_uri #line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4115)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4116)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ConstGroup' #line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4117)" )) { $r = $self->{localName}; unless (defined $r) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4118)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4120)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4131)" local $Error::Depth = $Error::Depth - 1; { #line 81 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4129)" #line 81 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4123)" #line 81 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4121)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4122)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4124)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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_LOCAL_NAME_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' => 'pl_name', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{uri}; #line 85 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4127)" #line 85 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4125)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4126)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4128)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4130)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4132)" } #line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4139)" #line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4133)" ; } } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4134)" undef #line 89 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4135)" ; } $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4136)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#name' #line 91 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4137)" } = $r; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4138)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4140)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4142)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4144)" } #line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4147)" #line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plName][@type=DISLang:Attribute]/Get[@Type=DISLang:String::ManakaiDOM:all][@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' => 'pl_name'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4154)" }} sub dis_actual_data_type_resource ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4267)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4265)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@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 #4259)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4257)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4239)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4157)" (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4158)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4159)" }) { $r = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4160)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4161)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4162)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4163)" }); } else { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4164)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4165)" } = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4166)" dis_get_attribute #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4167)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4168)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType' #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4169)" , for_arg => $self->{for}, forp_arg => $self->{forp}); if ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4170)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode' #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4171)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4172)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType' #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4173)" } = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4174)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode' #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4175)" } -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4176)" tfqnames_value_uri #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4177)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4178)" undef #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4179)" , $self->{for}, for_arg => $self->{for}, forp_arg => $self->{forp}); $r = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4180)" get_resource #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4181)" ($r); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4182)" is_referred #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4183)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4184)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode' #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4185)" }); } elsif (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4186)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4187)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4188)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType' #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4189)" } = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4190)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4191)" }; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4192)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode' #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4193)" } = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4194)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode' #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4195)" }; $r = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4196)" get_resource #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4197)" ($r); } else { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4198)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode' #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4199)" } = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4200)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode' #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4201)" } = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4202)" dis_get_attribute #line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4203)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4204)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4205)" , for_arg => $self->{for}, forp_arg => $self->{forp}); if ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4206)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode' #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4207)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4208)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType' #line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4209)" } = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4210)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Type' #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4211)" } = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4212)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode' #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4213)" } -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4214)" tfqnames_value_uri #line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4215)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4216)" undef #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4217)" , $self->{for}, for_arg => $self->{for}, forp_arg => $self->{forp}); $r = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4218)" get_resource #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4219)" ($r); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4220)" is_referred #line 37 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4221)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4222)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode' #line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4223)" }); } else { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4224)" get_property_resource #line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4225)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4226)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#dynamicParentResource' #line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4227)" ); if ($pr) { $r = $pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4228)" dis_actual_data_type_resource #line 43 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4229)" ; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4230)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode' #line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4231)" } = $pr->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4232)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode' #line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4233)" }; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4234)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--actualType' #line 46 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4235)" } = $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4236)" uri #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4237)" ; } else { ## No parent #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4238)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4240)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4251)" local $Error::Depth = $Error::Depth - 1; { #line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4249)" #line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4243)" #line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4241)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4242)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4244)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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'; #line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4247)" #line 55 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4245)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4246)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4248)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4250)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4252)" } #line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4255)" #line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4253)" ; } } } } #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 61 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4263)" #line 61 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4261)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4262)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4264)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4266)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4268)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4269)" 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 #4270)" }} sub mv_local_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4307)" my ($self) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4305)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4271)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4272)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4299)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4297)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@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)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4273)" (exists $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4274)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvLocalName' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4275)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4276)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvLocalName' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4277)" }; } elsif ($self->{src}) { my $node = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4278)" dis_get_attribute #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4279)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4280)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4281)" , for_arg => $self->{for}, forp_arg => $self->{forp}, media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4282)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4283)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4284)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4285)" ); if ($node) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4286)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvLocalName' #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4287)" } = $node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4288)" qname_value_local_name #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4289)" ; } else { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4290)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvLocalName' #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4291)" } = $self->{localName}; } } else { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4292)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvLocalName' #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4293)" } = $self->{localName}; } #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 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4303)" #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvLocalName][@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::ManakaiDISResourceDefinition', '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 #4310)" }} sub uris ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4317)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4315)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4313)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=uris][@Type=Perl:Array::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4311)" $r = [grep {$self->{aliasURI}->{$_}} keys %{$self->{aliasURI}}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4312)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4314)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4316)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4318)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4319)" 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 #4320)" }} sub owner_class_node_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4355)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4353)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4327)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4321)" (exists $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4322)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4323)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4324)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4325)" }; } else { my $res = $self; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4326)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4328)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4345)" local $Error::Depth = $Error::Depth + 1; { #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4343)" #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4341)" RES: #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4329)" { if ($res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4330)" is_type_uri #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4331)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4332)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class' #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4333)" )) { $r = $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4334)" source_node_id #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4335)" ; } else { $res = $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4336)" get_property_resource #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4337)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4338)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4339)" ); redo RES if $res; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4340)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4342)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4344)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4346)" } #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4351)" #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4347)" ; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4348)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#ownerClass' #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=ownerClassNodeURI][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4349)" } = $r; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4350)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4352)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4354)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4356)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4357)" 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 #4358)" }} sub pl_file_name_stem ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4409)" my ($self) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4407)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4359)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4360)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4401)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4399)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4379)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4361)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4362)" is_type_uri #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4363)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4364)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4365)" ) or $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4366)" is_type_uri #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4367)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4368)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#IF' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4369)" )) { my $an_node = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4370)" dis_get_attribute #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4371)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4372)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4373)" , for_arg => $self->{for}, forp_arg => $self->{forp}, media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4374)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4375)" ); if ($an_node) { ## NOTE: "lang:Perl" is fully-qualified name by definition $r = $an_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4376)" value #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4377)" ; $r =~ s/.*?:://g; } else { unless (defined $self->{localName}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4378)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4380)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4391)" local $Error::Depth = $Error::Depth - 1; { #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4389)" #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4383)" #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4381)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4382)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4384)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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_LOCAL_NAME_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' => 'pl_file_name_stem'; #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4387)" #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4385)" ; #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 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4397)" #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4393)" ; } $r = $self->{localName}; } } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4394)" undef #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4395)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4396)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4398)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4400)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4402)" } #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4405)" #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFileNameStem][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4403)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4404)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4406)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4408)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4410)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4411)" 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' => 'pl_file_name_stem'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4412)" }} sub pl_prototype ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4439)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4437)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4413)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4414)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4431)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4429)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4427)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4415)" $dt = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4416)" dis_actual_data_type_resource #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4417)" ; if ($dt-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4418)" is_subset_of_uri #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4419)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4420)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl--Array' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4421)" )) { $r = '@' . $r; } elsif ($dt-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4422)" is_subset_of_uri #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4423)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4424)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl--Hash' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4425)" )) { $r = '%' . $r; } else { $r = '$' . $r; } #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 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4432)" } #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4435)" #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plPrototype][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4433)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4434)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4436)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4438)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4440)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4441)" 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' => 'pl_prototype'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4442)" }} sub mv_owner_element_resource ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4479)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4477)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4443)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4444)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4471)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4469)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4467)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4445)" (exists $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4446)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4447)" }) { $r = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4448)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4449)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4450)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4451)" }) if defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4452)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4453)" }; } elsif (defined $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4454)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4455)" }) { $r = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4456)" get_resource #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4457)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4458)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4459)" }); undef $r unless $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4460)" is_type_uri #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4461)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4462)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Markup#AnyOwnerElement' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4463)" ); $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4464)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvOwnerElementURI' #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4465)" } = $r->{uri} if $r; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4466)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4468)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4470)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4472)" } #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4475)" #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvOwnerElementResource][@Type=ManakaiDISResourceDefinition][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4473)" ; #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; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4480)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4481)" 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' => 'mv_owner_element_resource'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4482)" }} sub pl_is_defined ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4541)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4539)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4493)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4483)" (exists $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4484)" 'node' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4485)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4486)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4487)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4488)" 'node' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4489)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4490)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4491)" }; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4492)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4494)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4529)" local $Error::Depth = $Error::Depth + 1; { #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4527)" #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4525)" my #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4495)" $typeuri = { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4496)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4497)" => [ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4498)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4499)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4500)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4501)" , ], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4502)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4503)" => [ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4504)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodReturn' #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4505)" , ], #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4506)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute' #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4507)" => [ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4508)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet' #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4509)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4510)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#:AttributeSet' #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4511)" , ], }; OUTMOST: for my $mytype (keys %$typeuri) { if ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4512)" is_type_uri #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4513)" ($mytype)) { for my $ctype ($typeuri->{$mytype}) { for my $cres (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4514)" get_property_resource_list #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4515)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4516)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource' #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4517)" )}) { if ($cres-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4518)" is_type_uri #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4519)" ($ctype)) { unless ($cres-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4520)" pl_is_defined #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4521)" ) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4522)" 0 #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4523)" ; last OUTMOST; } } } next OUTMOST; } } } # OUTMOST #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)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4530)" } #line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4537)" #line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4531)" ; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4532)" 'node' #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4533)" }->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4534)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4535)" } = $r; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4536)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4538)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4540)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4542)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4543)" 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' => 'pl_is_defined'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4544)" }} sub dis_data_type_node ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4565)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4563)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4545)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4546)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4555)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4553)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4551)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4547)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4548)" dis_data_type_resource #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4549)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4550)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4552)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4554)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4556)" } #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4561)" #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4557)" ; $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4558)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#TypeNode' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4559)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4560)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4562)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4564)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4566)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4567)" 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_node'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4568)" }} sub pl_preprocess_perl_statement ($$%) { my ($self, $codeArg, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4929)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4571)" unless #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4569)" ($self->{src}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4570)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4572)" report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_SOURCE_NODE_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 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4575)" #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4573)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4574)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4576)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4923)" local $Error::Depth = $Error::Depth + 1; { #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4921)" #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4629)" our #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4577)" $RegQNameChar; my $plimpl = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4578)" pl_implementation #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4579)" ; if ($opt{contains_statements}) { $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4580)" create_perl_block_container #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4581)" ; if (defined $opt{source_line}) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4582)" source_file #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4583)" ($opt{source_file}); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4584)" source_line #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4585)" ($opt{source_line}); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4586)" current_source_file #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4587)" ($opt{source_file}); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4588)" current_source_line #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4589)" ($opt{source_line}); } elsif ($opt{node}) { my $np = $opt{node}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4590)" node_path #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4591)" (key => [qw/Name QName Type type/]); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4592)" source_file #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4593)" ($np); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4594)" source_line #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4595)" (1); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4596)" current_source_file #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4597)" ($np); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4598)" current_source_line #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4599)" (1); } } else { $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4600)" create_perl_inline_container #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4601)" ; } for my $source_code (split /(?]+> )/ox, $codeArg) { if ($source_code =~ s/^\x3C//) { $source_code =~ s/>$//; if ($source_code =~ /=$/) { ## TODO: Warning # valid_warn qq" ends with a "=" - >. # q{should "=" be used place of "=>"?}; } if ($source_code =~ s/^(.+?):://) { my $et = $self->{src} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4602)" qname_to_uri #line 37 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4603)" ($1, node => $opt{node}, default_namespace_uri => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4604)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--' #line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4605)" ); if ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4606)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--Q' #line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4607)" ) { ## QName constant $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4608)" append_string_literal #line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4609)" ($self->{src} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4610)" qname_to_uri #line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4611)" ($source_code, node => $opt{node})); } elsif ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4612)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--M' #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4613)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4614)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--ClassM' #line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4615)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4616)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--AG' #line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4617)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4618)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--AS' #line 50 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4619)" => 1, }->{$et}) { ## Method call my ($class_qname, $method_qname) = split /\s*\.\s*/, $source_code, 2; my $class_uri = $self->{src} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4620)" tfqnames_to_uri #line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4621)" ($class_qname, $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4622)" owner_class_node_uri #line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4623)" , $self->{for}, node => $opt{node}); my $class = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4624)" get_resource #line 61 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4625)" ($class_uri); unless ($class-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4626)" is_defined #line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4627)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4628)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4630)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4635)" local $Error::Depth = $Error::Depth - 1; { #line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4633)" #line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4631)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4632)" 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' => 'pl_preprocess_perl_statement', '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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AnyClass', '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' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $class_uri; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4634)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4636)" } #line 73 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4647)" #line 73 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4637)" ; } $class-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4638)" is_referred #line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4639)" ($opt{node} || $self->{src}); if ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4640)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--:ClassM' and #line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4641)" $class-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4642)" is_type_uri #line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4643)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4644)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#IF' #line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4645)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4646)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4648)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4659)" local $Error::Depth = $Error::Depth - 1; { #line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4657)" #line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4651)" #line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4649)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4650)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4652)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', '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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#IF', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#INTERFACE_CLASS_METHOD_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $class_uri; #line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4655)" #line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4653)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4654)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4656)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4658)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4660)" } #line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4683)" #line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4661)" ; } unless ($class-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4662)" is_type_uri #line 90 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4663)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4664)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#IF' #line 91 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4665)" )) { $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4666)" _pl_add_require_resource #line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4667)" ($class => $r); } my $method = $class-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4668)" get_child_resource_by_name_and_type #line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4669)" ($method_qname, { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4670)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--AG' #line 98 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4671)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4672)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute' #line 98 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4673)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4674)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--AS' #line 99 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4675)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4676)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute' #line 99 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4677)" , }->{$et} || #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4678)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method' #line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4679)" ); if (not $method or not $method-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4680)" is_defined #line 102 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4681)" ) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4682)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4684)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4695)" local $Error::Depth = $Error::Depth - 1; { #line 105 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4693)" #line 105 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4687)" #line 105 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4685)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4686)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4688)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', '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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => { 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--AG' => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute', 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--AS' => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute', }->{$et} || 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $method_qname, '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' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#parentURI' => $class_uri; #line 116 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4691)" #line 116 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4689)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4690)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4692)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4694)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4696)" } #line 117 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4725)" #line 117 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4697)" ; } my $class_name = ''; if ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4698)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--ClassM' #line 120 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4699)" ) { $class_name = $class-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4700)" pl_fully_qualified_name #line 121 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4701)" . '->'; } my $method_name = $method-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4702)" pl_name #line 123 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4703)" ; $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4704)" append_bare #line 124 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4705)" ($class_name . $method_name); } elsif ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4706)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--Class' #line 127 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4707)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4708)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--ClassName' #line 128 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4709)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4710)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--IF' #line 129 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4711)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4712)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--IFName' #line 130 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4713)" => 1, }->{$et}) { ## Perl package name my $class_uri = $self->{src} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4714)" tfqnames_to_uri #line 134 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4715)" ($source_code, $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4716)" owner_class_node_uri #line 136 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4717)" , $self->{for}, node => $opt{node}); my $class = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4718)" get_resource #line 139 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4719)" ($class_uri); $class-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4720)" is_referred #line 141 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4721)" ($opt{node} || $self->{src}); my $pack = $class-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4722)" pl_fully_qualified_name #line 143 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4723)" ; unless ($pack) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4724)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4726)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4731)" local $Error::Depth = $Error::Depth - 1; { #line 149 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4729)" #line 149 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4727)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4728)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', '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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_PERL_PACKAGE_NAME_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $class_uri; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4730)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4732)" } #line 154 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4755)" #line 154 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4733)" ; } if ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4734)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--ClassName' #line 157 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4735)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4736)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--IFName' #line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4737)" => 1, }->{$et}) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4738)" append_string_literal #line 160 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4739)" ($pack); } else { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4740)" append_bare #line 162 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4741)" ($pack); } $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4742)" _pl_add_require_resource #line 164 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4743)" ($class => $r) if { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4744)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--Class' #line 167 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4745)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4746)" 1 #line 167 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4747)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4748)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--ClassName' #line 168 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4749)" => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4750)" 1 #line 168 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4751)" , }->{$et}; } elsif ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4752)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--Code' #line 170 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4753)" ) { ## Inline code my $code_name; $source_code =~ s/^\s+//; if ($source_code =~ s/^((?>(?!::).)+)//s) { $code_name = $1; } else { #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 #4767)" local $Error::Depth = $Error::Depth - 1; { #line 176 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4765)" #line 176 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4759)" #line 176 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4757)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4758)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4760)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_CODE_NAME_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#sourceCode' => $source_code; #line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4763)" #line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@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)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4768)" } #line 181 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4785)" #line 181 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4769)" ; } $source_code =~ s/^::\s*//; my $param = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4770)" _pl_parse_preprocess_parameter #line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4771)" ($source_code, node => $opt{node}); my $code_uri = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4772)" tfqnames_to_uri #line 186 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4773)" ($code_name, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4774)" undef #line 187 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4775)" , $self->{for}, node => $opt{node}); my $code = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4776)" get_resource #line 189 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4777)" ($code_uri); $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4778)" is_referred #line 191 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4779)" ($opt{node} || $self->{src}); unless ($code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4780)" is_type_uri #line 193 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4781)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4782)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#InlineCode' #line 194 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4783)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4784)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4786)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4795)" local $Error::Depth = $Error::Depth - 1; { #line 197 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4793)" #line 197 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4787)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4788)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', '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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#InlineCode', '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' => $code_uri; #line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4791)" #line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4789)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4790)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4792)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4794)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4796)" } #line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4801)" #line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4797)" ; } my $pc = $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4798)" pl_code_fragment #line 204 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4799)" ->clone; unless (defined $pc) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4800)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4802)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4807)" local $Error::Depth = $Error::Depth - 1; { #line 207 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4805)" #line 207 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4803)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4804)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_CODE_NOT_DEFINED_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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $code_uri; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4806)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4808)" } #line 211 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4837)" #line 211 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4809)" ; } for my $var (grep {/^\$/} keys %$param) { my $value; if ($param->{$var}->{type} eq 'variable') { $value = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4810)" create_perl_variable #line 216 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4811)" ('$', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4812)" undef #line 217 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4813)" , $param->{$var}->{value}); } elsif ($param->{$var}->{type} eq 'code') { $value = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4814)" pl_preprocess_perl_statement #line 219 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4815)" ($param->{$var}->{value}, contains_statements => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4816)" 0 #line 221 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4817)" ); } else { $value = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4818)" create_perl_string_literal #line 223 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4819)" ($param->{$var}->{value}); } $pc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4820)" replace_variable #line 226 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4821)" ($var => $value); } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4822)" append_code_fragment #line 229 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4823)" ($pc); } elsif ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4824)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--C' #line 230 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4825)" ) { my ($class_qname, $const_name) = split /\./, $source_code, 2; my $class_uri = $self->{src} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4826)" tfqnames_to_uri #line 234 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4827)" ($class_qname, $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4828)" owner_class_node_uri #line 236 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4829)" , $self->{for}, node => $opt{node}); my $class = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4830)" get_resource #line 239 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4831)" ($class_uri); $class-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4832)" is_referred #line 241 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4833)" ($opt{node} || $self->{src}); my $const = $class-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4834)" get_const_resource_by_name #line 243 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4835)" ($const_name); unless (defined $const) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4836)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4838)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4843)" local $Error::Depth = $Error::Depth - 1; { #line 248 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4841)" #line 248 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4839)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4840)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', '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#sourceCode' => $source_code, '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' => $const_name, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#RESOURCE_NOT_DEFINED_ERR'; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4842)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4844)" } #line 253 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4857)" #line 253 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4845)" ; } $const-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4846)" is_referred #line 255 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4847)" ($opt{node}); my $data_type = $const-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4848)" dis_actual_data_type_resource #line 257 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4849)" ; my $val = $const->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4850)" pl_value_code_fragment #line 258 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4851)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4852)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value' #line 259 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4853)" , $const, for_arg => $const->{for}, forp_arg => $const->{forp}, data_type_uri => $data_type -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4854)" uri #line 263 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4855)" ); unless (defined $val) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4856)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4858)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4863)" local $Error::Depth = $Error::Depth - 1; { #line 267 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4861)" #line 267 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4859)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4860)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $const->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', '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#localName' => $const->{localName}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_CONST_VALUE_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $const->{uri}; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4862)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4864)" } #line 272 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4869)" #line 272 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4865)" ; } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4866)" append_code_fragment #line 274 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4867)" ($val); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4868)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4870)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4875)" local $Error::Depth = $Error::Depth - 1; { #line 276 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4873)" #line 276 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4871)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4872)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', '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::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4874)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4876)" } #line 280 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4879)" #line 280 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4877)" ; } } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4878)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4880)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4885)" local $Error::Depth = $Error::Depth - 1; { #line 283 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4883)" #line 283 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4881)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4882)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node} || $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_statement', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ConstGroup', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_ELEMENT_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/2005/manakai/Util/DIS#sourceCode' => $source_code; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4884)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4886)" } #line 287 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4905)" #line 287 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4887)" ; } } else { for my $source_code (split /(\b (?: t r u e \b| f a l s e \b| n u l l \b| t r y \s* \x7B ) | \\ p \x7B [^\x7B\x7D\\]+ \x7D)/x, $source_code) { if ({ 'tr'.'ue' => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4888)" 1 #line 298 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4889)" , 'fal'.'se' => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4890)" 1 #line 299 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4891)" , 'nu'.'ll' => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4892)" 1 #line 300 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4893)" , }->{$source_code}) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4894)" append_atom #line 302 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4895)" ({ 'tr'.'ue' => 1, 'fal'.'se' => 0, 'nu'.'ll' => 'undef', }->{$source_code}); } elsif ($source_code =~ /^t r y \s* \x7B$/x) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4896)" append_code #line 308 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4897)" ('tr'. 'y '."\x7B".'local $Error::Depth = $Error::Depth + 3;'); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4898)" add_use_perl_module_name #line 310 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4899)" ('Message::Util::Error'); } elsif ($source_code =~ /^\\ p \x7B ([^\x7B\x7D\\]+) \x7D$/x) { my $cls = $1; $cls =~ s/^\s+//s; $cls =~ s/\s+$//s; ## TODO: Formal character class support required if ($cls =~ /^inxml\s*[:|]\s*(\w+)/) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4900)" append_atom #line 318 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4901)" ('\\'.'p{InXML'.$1.'}'); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4902)" add_use_char_class_name #line 319 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4903)" ('Char::Class::XML', 'InXML'.$1); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4904)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4906)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4911)" local $Error::Depth = $Error::Depth - 1; { #line 322 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4909)" #line 322 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4907)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4908)" 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' => 'pl_preprocess_perl_statement', '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::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $source_code; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4910)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4912)" } #line 325 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4919)" #line 325 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4913)" ; } } else { if ($source_code =~ s/^(\s*[\w:]+\s*)//) { ## NOTE: "$cond ?\n1\n:0" would be a syntax error $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4914)" append_atom #line 330 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4915)" ($1); } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4916)" append_code #line 332 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4917)" ($source_code); } } } # Inline instruction or not } # for #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4918)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4920)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4922)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4924)" } #line 337 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4927)" #line 337 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlStatement][@type=DISLang:Method]/Return[@Type=MPLCodeFragment][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4925)" ; # DEEP #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4926)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4928)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4930)" } $r} sub namespace_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4937)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4935)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4933)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=namespaceURI][@Type=AnyURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4931)" $r = $self->{namespaceURI}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4932)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4934)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4936)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4938)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4939)" 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' => 'namespace_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4940)" }} sub source_node_id ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4949)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #4947)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4945)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4941)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4942)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4943)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4944)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4946)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4948)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4950)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #4959)" my ($self, $given) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [b] (Chunk #4957)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [bc] (Chunk #4955)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #4951)" $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4952)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=sourceNodeID][@Type=ResourceURI][@type=DISLang:Attribute]/Set[@type=DISLang:AttributeSet]/PerlDef [u] (Chunk #4953)" } = $given; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4954)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4956)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4958)" } #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4960)" }} sub add_super_resource ($$) { my ($self, $superRes) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4985)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4963)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4961)" @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 #4962)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4964)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #4979)" local $Error::Depth = $Error::Depth + 1; { #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #4977)" #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4975)" for #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4965)" my $from (@from) { for my $to (@to) { $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4966)" get_resource #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4967)" ($from)->{subOf}->{$to} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4968)" 1 #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4969)" ; $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4970)" get_resource #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4971)" ($to)->{supOf}->{$from} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4972)" 1 #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4973)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4974)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4976)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4978)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4980)" } #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #4983)" #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=addSuperResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #4981)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4982)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4984)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #4986)" } } sub pl_fully_qualified_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5069)" my ($self) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5067)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #4987)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #4988)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5061)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5059)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5015)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4989)" (exists $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4990)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PerlCode.plFullyQualifiedName' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4991)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4992)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode#plFullyQualifiedName' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4993)" }; } elsif ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4994)" is_type_uri #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4995)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4996)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4997)" ) or $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #4998)" is_type_uri #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #4999)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5000)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#IF' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5001)" ) or $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5002)" is_type_uri #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5003)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5004)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#ScalarVariable' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5005)" )) { my $an_node = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5006)" dis_get_attribute #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5007)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5008)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5009)" , for_arg => $self->{for}, forp_arg => $self->{forp}, media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5010)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5011)" ); if ($an_node) { ## NOTE: "lang:Perl" is fully-qualified name by definition $r = $an_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5012)" value #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5013)" ; } else { unless (defined $self->{localName}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5014)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5016)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5027)" local $Error::Depth = $Error::Depth - 1; { #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5025)" #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5019)" #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5017)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5018)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5020)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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_LOCAL_NAME_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' => 'pl_fully_qualified_name'; #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5023)" #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5021)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5022)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5024)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5026)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5028)" } #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5057)" #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5029)" ; } if ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5030)" is_type_uri #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5031)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5032)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#IF' #line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5033)" )) { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5034)" owner_module #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5035)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5036)" pl_interface_name #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5037)" . '::' . $self->{localName}; } else { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5038)" owner_module #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5039)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5040)" pl_fully_qualified_name #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5041)" . '::' . $self->{localName}; } } } elsif ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5042)" is_type_uri #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5043)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5044)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const' #line 37 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5045)" )) { $r = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5046)" owner_module #line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5047)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5048)" pl_fully_qualified_name #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5049)" . '::' . $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5050)" pl_name #line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5051)" ; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5052)" undef #line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5053)" ; } $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5054)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode#plFullyQualifiedName' #line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5055)" } = $r; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5056)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5058)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5060)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5062)" } #line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5065)" #line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plFullyQualifiedName][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5063)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5064)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5066)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5068)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5070)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5071)" 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' => 'pl_fully_qualified_name'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5072)" }} sub is_defined ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5081)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5079)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5077)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5073)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5074)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isDefined' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isDefined][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5075)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5076)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5078)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5080)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5082)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5083)" 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' => 'is_defined'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5084)" }} sub pl_method_operator ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5143)" my ($self) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5141)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5085)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5086)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5135)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5133)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5111)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5087)" (exists $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5088)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Operator' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5089)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5090)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Operator' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5091)" }; } else { my $op_node = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5092)" dis_get_attribute #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5093)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5094)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Operator' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5095)" , for_arg => $self->{for}, forp_arg => $self->{forp}); if ($op_node) { if ($op_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5096)" media_type_match #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5097)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5098)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5099)" , for_arg => $self->{for}, for_arg => $self->{forp})) { $r = $op_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5100)" value #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5101)" ; } elsif ($op_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5102)" media_type_match #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5103)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5104)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5105)" , for_arg => $self->{for}, for_arg => $self->{forp})) { $r = $op_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5106)" qname_value_uri #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5107)" ; } else { my $ct_uri = $op_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5108)" media_type_uri #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5109)" (for_arg => $self->{for}, forp_arg => $self->{forp}); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5110)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5112)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5123)" local $Error::Depth = $Error::Depth - 1; { #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5121)" #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5115)" #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5113)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5114)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5116)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $op_node, '-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/2005/manakai/Util/DIS#UNSUPPORTED_MEDIA_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' => 'pl_method_operator', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $ct_uri; #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5119)" #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5117)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5118)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5120)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5122)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5124)" } #line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5131)" #line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5125)" ; } } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5126)" undef #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5127)" ; } $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5128)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Operator' #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5129)" } = $r; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5130)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5132)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5134)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5136)" } #line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5139)" #line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plMethodOperator][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5137)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5138)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5140)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5142)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5144)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #5145)" 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' => 'pl_method_operator'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5146)" }} sub _pl_add_require_resource ($$$) { my ($self, $resourceArg, $codeArg) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5165)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5147)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5148)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5159)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #5157)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5155)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5149)" $codeArg-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5150)" dis_add_require_uri #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5151)" ($resourceArg-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5152)" uri #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5153)" ); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5154)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5156)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5158)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5160)" } #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #5163)" #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAddRequireResource][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #5161)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5162)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5164)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5166)" } } sub pl_code_fragment ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6145)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6143)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5167)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5168)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6137)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6135)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5267)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5169)" (exists $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5170)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5171)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5172)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5173)" }; } elsif (not $self->{src}) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5174)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5175)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5176)" undef #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5177)" ; } elsif ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5178)" is_type_uri #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5179)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5180)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodReturn' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5181)" ) or $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5182)" is_type_uri #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5183)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5184)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5185)" ) or $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5186)" is_type_uri #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5187)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5188)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet' #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5189)" ) or $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5190)" is_type_uri #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5191)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5192)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#BlockCode' #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5193)" ) or $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5194)" is_type_uri #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5195)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5196)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#InlineCode' #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5197)" ) or $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5198)" is_type_uri #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5199)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5200)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#InputProcessor' #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5201)" ) or $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5202)" is_type_uri #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5203)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5204)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ReflectGet' #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5205)" ) or $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5206)" is_type_uri #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5207)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5208)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ReflectSet' #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5209)" )) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5210)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment' #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5211)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5212)" undef #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5213)" ; ## To avoid loop my $def = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5214)" dis_get_attribute #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5215)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5216)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Def' #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5217)" , for_arg => $self->{for}, forp_arg => $self->{forp}); my $is_inline = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5218)" is_type_uri #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5219)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5220)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#InlineCode' #line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5221)" ) ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5222)" 1 : #line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5223)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5224)" 0 #line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5225)" ; unless ($def) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5226)" undef #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5227)" ; } elsif ($def-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5228)" media_type_match #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5229)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5230)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5231)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5232)" undef #line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5233)" , for_arg => $self->{for}, forp_arg => $self->{forp})) { my $source_code = $def-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5234)" value #line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5235)" ; $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5236)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment' #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5237)" } = $is_inline ? $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5238)" pl_preprocess_perl_statement #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5239)" ($source_code, node => $def, contains_statements => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5240)" 0 #line 39 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5241)" ) : $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5242)" pl_preprocess_perl_code #line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5243)" ($source_code, node => $def, method_resource => $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5244)" is_type_uri #line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5245)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5246)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodReturn' #line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5247)" ) ? $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5248)" get_property_resource #line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5249)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5250)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 46 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5251)" ) : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5252)" undef #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5253)" ); } elsif ($def-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5254)" media_type_match #line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5255)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5256)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis' #line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5257)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5258)" undef #line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5259)" , for_arg => $self->{for}, forp_arg => $self->{forp})) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5260)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment' #line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5261)" } = $def-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5262)" pl_code_fragment #line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5263)" ($self, for_arg => $self->{for}, forp_arg => $self->{forp}, contains_statements => not $is_inline); } else { my $mt = $def-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5264)" media_type_uri #line 58 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5265)" (for_arg => $self->{for}, forp_arg => $self->{forp}); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5266)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5268)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5279)" local $Error::Depth = $Error::Depth - 1; { #line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5277)" #line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5271)" #line 67 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5269)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5270)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5272)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $def, '-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/2005/manakai/Util/DIS#UNSUPPORTED_MEDIA_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' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $mt; #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5275)" #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5273)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5274)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5276)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5278)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5280)" } #line 72 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5295)" #line 72 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5281)" ; } # media type } elsif ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5282)" is_type_uri #line 74 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5283)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5284)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method' #line 75 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5285)" )) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5286)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment' #line 76 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5287)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5288)" undef #line 76 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5289)" ; ## To avoid loop my $ret = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5290)" get_child_resource_by_type #line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5291)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5292)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodReturn' #line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5293)" ); unless ($ret) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5294)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5296)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5307)" local $Error::Depth = $Error::Depth - 1; { #line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5305)" #line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5299)" #line 80 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5297)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5298)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5300)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-type' => 'INVALID_SOURCE_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#localName' => $self->{localName}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' => 'get', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#errResource' => $self, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_METHOD_RETURN_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment'; #line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5303)" #line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5301)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5302)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5304)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5306)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5308)" } #line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5361)" #line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5309)" ; } my $plimpl = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5310)" pl_implementation #line 89 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5311)" ; $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5312)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment' #line 90 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5313)" } = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5314)" create_perl_sub #line 91 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5315)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5316)" pl_name #line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5317)" ); ## Method parameters my $params = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5318)" get_property_resource_list #line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5319)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5320)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource' #line 96 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5321)" ); my @param_variables; my @named_param_variables; my $prototype = '$'; my $is_optional_param = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5322)" 0 #line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5323)" ; my $is_named_param = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5324)" 0 #line 101 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5325)" ; for my $param (@$params) { next unless $param-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5326)" is_type_uri #line 103 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5327)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5328)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodParameter' #line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5329)" ); unless ($is_named_param) { if ($param-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5330)" get_property_boolean #line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5331)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5332)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#isNamedParameter' #line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5333)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5334)" 0 #line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5335)" )) { $is_named_param = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5336)" 1 #line 108 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5337)" ; $is_optional_param = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5338)" 1 #line 109 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5339)" ; push @param_variables, ['%opt']; $prototype .= '%'; } else { ## Non-named parameter push @param_variables, [ $param-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5340)" pl_variable_name #line 114 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5341)" , ]; if ($param-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5342)" pl_is_nullable #line 116 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5343)" ) { $prototype .= ';' unless $is_optional_param; $is_optional_param = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5344)" 1 #line 118 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5345)" ; } $prototype .= $param-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5346)" pl_prototype #line 120 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5347)" ; my $param_processor = $param-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5348)" pl_get_method_input_normalizer #line 122 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5349)" ; if ($param_processor) { $param_variables[-1]->[1] = $param_processor-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5350)" pl_code_fragment #line 125 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5351)" ->clone; $param_variables[-1]->[1] -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5352)" replace_variable #line 127 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5353)" ('$INPUT' => $param_variables[-1]->[0]); } } } else { ## Named parameter unless ($param-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5354)" get_property_boolean #line 132 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5355)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5356)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#isNamedParameter' #line 133 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5357)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5358)" 0 #line 133 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5359)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5360)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5362)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5367)" local $Error::Depth = $Error::Depth - 1; { #line 140 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5365)" #line 140 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5363)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5364)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $param->{src}, '-type' => 'INVALID_SOURCE_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#localName' => $param->{localName}, '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#NON_NAMED_PARAMETER_AFTER_NAMED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $param->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment'; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5366)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5368)" } #line 144 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5489)" #line 144 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5369)" ; } } if ($is_named_param) { push @named_param_variables, [ $param-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5370)" pl_variable_name #line 149 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5371)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5372)" undef #line 150 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5373)" , '$' . $param-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5374)" local_name #line 151 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5375)" , ]; my $param_processor = $param-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5376)" pl_get_method_input_normalizer #line 154 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5377)" ; if ($param_processor) { $named_param_variables[-1]->[1] = $param_processor-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5378)" pl_code_fragment #line 157 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5379)" ->clone; $named_param_variables[-1]->[1] -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5380)" replace_variable #line 159 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5381)" ('$INPUT' => $param_variables[-1]->[0]); } } } # %$params $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5382)" prototype #line 165 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5383)" ($prototype); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5384)" append_code_fragment #line 166 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5385)" ($plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5386)" create_perl_statement #line 167 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5387)" ('my (' . join (', ', '$self', map {$_->[0]} @param_variables) . ') = @_')); for my $p (@param_variables, @named_param_variables) { if ($p->[1]) { ## Input processor $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5388)" append_code_fragment #line 172 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5389)" ($p->[1]); } } ## TODO: in/out ## Return value my $data_type; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5390)" #line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5391)" try {local $Error::Depth = $Error::Depth + 3; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5392)" #line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5393)" $data_type = $ret-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5394)" dis_actual_data_type_resource #line 181 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5395)" ; } catch #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5396)" Message::Util::DIS::ManakaiDISException with #line 182 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5397)" { my $err = shift; if ($err->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5398)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' #line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5399)" } ne #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5400)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_DIS_TYPE_ERR' #line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5401)" ) { $err->throw; } }; if ($data_type) { my $def = $ret->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5402)" pl_value_code_fragment #line 190 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5403)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5404)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--DefaultValue' #line 191 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5405)" , $self, for_arg => $self->{for}, forp_arg => $self->{forp}, use_default_value => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5406)" 1 #line 194 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5407)" , data_type_uri => $data_type -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5408)" uri #line 196 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5409)" ); my $rs = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5410)" create_perl_statement #line 197 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5411)" ; my $rvar = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5412)" create_perl_variable #line 198 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5413)" ('$', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5414)" undef #line 199 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5415)" , 'r'); $rvar-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5416)" variable_scope #line 200 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5417)" ('my'); if ($def) { $rs-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5418)" append_new_assignment #line 202 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5419)" ($rvar => $def); } else { $rs-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5420)" append_code_fragment #line 204 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5421)" ($rvar); } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5422)" append_code_fragment #line 206 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5423)" ($rs); } my $code = $ret-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5424)" pl_code_fragment #line 209 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5425)" ; if ($code) { for my $np (@named_param_variables) { $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5426)" replace_variable #line 212 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5427)" ($np->[2] => $np->[0]); } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5428)" append_code_fragment #line 215 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5429)" ($code); $ret->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5430)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 217 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5431)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5432)" 1 #line 217 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5433)" ; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5434)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 218 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5435)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5436)" 1 #line 218 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5437)" ; } else { ## Method code not defined my $cls = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5438)" get_resource #line 220 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5439)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5440)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#CoreException' #line 221 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5441)" , for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5442)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl' #line 222 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5443)" ); my $const = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5444)" get_resource #line 223 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5445)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5446)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#NOT_SUPPORTED_ERR' #line 224 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5447)" , for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5448)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl' #line 225 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5449)" ); my $subtype = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5450)" get_resource #line 226 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5451)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5452)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_METHOD_NOT_IMPLEMENTED' #line 227 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5453)" , for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5454)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl' #line 228 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5455)" ); $_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5456)" is_referred #line 229 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5457)" ($ret->{src}) for $cls, $const, $subtype; my $context_param = $ret-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5458)" _pl_get_context_parameter #line 231 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5459)" ; $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5460)" _pl_append_throw #line 232 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5461)" ($r, $cls, $const, $subtype, {%$context_param}); $ret->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5462)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 235 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5463)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5464)" 0 #line 235 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5465)" ; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5466)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 236 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5467)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5468)" 0 #line 236 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5469)" ; } if ($data_type) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5470)" append_code_fragment #line 240 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5471)" ($plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5472)" create_perl_variable #line 241 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5473)" ('$', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5474)" undef #line 242 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5475)" , 'r')); } } elsif ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5476)" is_type_uri #line 244 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5477)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5478)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute' #line 245 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5479)" )) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5480)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment' #line 246 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5481)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5482)" undef #line 246 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5483)" ; ## To avoid loop my $get = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5484)" get_child_resource_by_type #line 247 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5485)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5486)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet' #line 247 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5487)" ); unless ($get) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5488)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5490)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5501)" local $Error::Depth = $Error::Depth - 1; { #line 257 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5499)" #line 257 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5493)" #line 257 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5491)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5492)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5494)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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_ATTR_GET_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#errResource' => $self, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment'; #line 261 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5497)" #line 261 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5495)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5496)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5498)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5500)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5502)" } #line 262 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5571)" #line 262 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5503)" ; } my $da; ## Reflecting element attribute my $plimpl = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5504)" pl_implementation #line 265 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5505)" ; my $data_type = $get-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5506)" dis_actual_data_type_resource #line 266 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5507)" ; my $get_code = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5508)" create_perl_block_container #line 267 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5509)" ; $get_code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5510)" append_statement #line 268 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5511)" (q); my $code = $get-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5512)" pl_code_fragment #line 269 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5513)" ; unless ($code) { $da = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5514)" get_property_resource #line 271 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5515)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5516)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--DocAttr' #line 272 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5517)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5518)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames' #line 273 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5519)" ); if ($da) { ## Reflecting an element attribute my $data_type_node = $get-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5520)" dis_actual_data_type_node #line 275 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5521)" ; my $daget_node = $data_type_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5522)" dis_get_attribute #line 276 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5523)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5524)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#reflectGet' #line 277 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5525)" , for_arg => $get->{for}, forp_arg => $get->{forp}, media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5526)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 280 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5527)" ); ## TODO: More work might be required for ## default values for element attributes. my $daget; if ($daget_node) { $daget = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5528)" get_resource #line 285 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5529)" ($daget_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5530)" tfqnames_value_uri #line 286 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5531)" (for_arg => $get->{for}, forp_arg => $get->{forp})); } else { $daget = $data_type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5532)" get_child_resource_by_type #line 289 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5533)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5534)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ReflectGet' #line 289 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5535)" ); } if ($daget) { $code = $daget-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5536)" pl_code_fragment #line 292 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5537)" ->clone; my $ln = $da-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5538)" mv_local_name #line 293 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5539)" ; my $pfx = $da-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5540)" mv_prefix #line 294 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5541)" ; $pfx = defined $pfx ? $pfx . ':' : ''; $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5542)" replace_variable #line 296 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5543)" ('$LOCAL_NAME' => $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5544)" create_perl_string_literal #line 297 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5545)" ($ln)); $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5546)" replace_variable #line 298 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5547)" ('$QNAME' => $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5548)" create_perl_string_literal #line 299 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5549)" ($pfx.$ln)); $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5550)" replace_variable #line 300 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5551)" ('$PREFIX' => $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5552)" create_perl_string_literal #line 301 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5553)" ($pfx)); my $nsuri = $da-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5554)" mv_namespace_uri #line 302 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5555)" ; $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5556)" replace_variable #line 303 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5557)" ('$NS_URI' => defined $nsuri ? $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5558)" create_perl_string_literal #line 305 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5559)" ($nsuri) : $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5560)" create_perl_atom #line 306 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5561)" ('undef')); $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5562)" replace_variable #line 307 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5563)" ('$NS_URI_NO_NULL' => defined $nsuri ? $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5564)" create_perl_string_literal #line 309 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5565)" ($nsuri) : $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5566)" create_perl_string_literal #line 310 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5567)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5568)" 'http://suika.fam.cx/~wakaba/-temp/2003/09/27/null' #line 310 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5569)" )); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5570)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5572)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5577)" local $Error::Depth = $Error::Depth - 1; { #line 326 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5575)" #line 326 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5573)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5574)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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_REFLECT_GET_DEFINED_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' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $data_type->{uri}; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5576)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5578)" } #line 329 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5709)" #line 329 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5579)" ; } } } if ($code) { ## Default value my $def = $get->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5580)" pl_value_code_fragment #line 335 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5581)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5582)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--DefaultValue' #line 336 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5583)" , $self, for_arg => $self->{for}, forp_arg => $self->{forp}, use_default_value => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5584)" 1 #line 339 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5585)" , data_type_uri => $data_type -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5586)" uri #line 341 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5587)" ); my $rs = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5588)" create_perl_statement #line 342 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5589)" ; my $rvar = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5590)" create_perl_variable #line 343 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5591)" ('$', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5592)" undef #line 344 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5593)" , 'r'); $rvar-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5594)" variable_scope #line 345 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5595)" ('my'); if ($def) { $rs-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5596)" append_new_assignment #line 347 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5597)" ($rvar => $def); } else { $rs-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5598)" append_code_fragment #line 349 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5599)" ($rvar); } $get_code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5600)" append_code_fragment #line 351 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5601)" ($rs); ## Main code $get_code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5602)" append_code_fragment #line 354 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5603)" ($code); ## Return value $get_code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5604)" append_statement #line 357 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5605)" (q<$r>); $get->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5606)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 359 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5607)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5608)" 1 #line 359 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5609)" ; } else { ## Getter code not defined my $cls = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5610)" get_resource #line 361 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5611)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5612)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#CoreException' #line 362 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5613)" , for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5614)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl' #line 363 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5615)" ); my $const = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5616)" get_resource #line 364 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5617)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5618)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#NOT_SUPPORTED_ERR' #line 365 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5619)" , for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5620)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl' #line 366 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5621)" ); my $subtype = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5622)" get_resource #line 367 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5623)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5624)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_ATTR_NOT_IMPLEMENTED' #line 368 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5625)" , for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5626)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl' #line 369 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5627)" ); $_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5628)" is_referred #line 370 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5629)" ($get->{src}) for $cls, $const, $subtype; my $context_param = $get-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5630)" _pl_get_context_parameter #line 372 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5631)" ; $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5632)" _pl_append_throw #line 373 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5633)" ($get_code, $cls, $const, $subtype, {%$context_param}); $get->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5634)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 376 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5635)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5636)" 0 #line 376 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5637)" ; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5638)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 377 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5639)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5640)" 0 #line 377 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5641)" ; } my $set = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5642)" get_child_resource_by_type #line 380 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5643)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5644)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet' #line 380 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5645)" ); my $set_code = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5646)" create_perl_block_container #line 381 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5647)" ; if ($set) { my $data_type = $set-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5648)" dis_actual_data_type_resource #line 383 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5649)" ; my $code = $set-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5650)" pl_code_fragment #line 384 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5651)" ; unless ($code) { $da ||= $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5652)" get_property_resource #line 386 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5653)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5654)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--DocAttr' #line 387 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5655)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5656)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames' #line 388 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5657)" ); if ($da) { ## Reflecting an element attribute my $data_type_node = $set-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5658)" dis_actual_data_type_node #line 390 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5659)" ; my $daset_node = $data_type_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5660)" dis_get_attribute #line 391 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5661)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5662)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#reflectSet' #line 392 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5663)" , for_arg => $set->{for}, forp_arg => $set->{forp}, media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5664)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 395 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5665)" ); my $daset; if ($daset_node) { $daset = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5666)" get_resource #line 398 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5667)" ($daset_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5668)" tfqnames_value_uri #line 399 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5669)" (for_arg => $set->{for}, forp_arg => $set->{forp})); } else { $daset = $data_type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5670)" get_child_resource_by_type #line 402 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5671)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5672)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ReflectSet' #line 402 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5673)" ); } if ($daset) { $code = $daset-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5674)" pl_code_fragment #line 405 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5675)" ->clone; my $ln = $da-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5676)" mv_local_name #line 406 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5677)" ; my $pfx = $da-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5678)" mv_prefix #line 407 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5679)" ; $pfx = defined $pfx ? $pfx . ':' : ''; $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5680)" replace_variable #line 409 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5681)" ('$LOCAL_NAME' => $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5682)" create_perl_string_literal #line 410 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5683)" ($ln)); $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5684)" replace_variable #line 411 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5685)" ('$QNAME' => $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5686)" create_perl_string_literal #line 412 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5687)" ($pfx.$ln)); $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5688)" replace_variable #line 413 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5689)" ('$PREFIX' => $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5690)" create_perl_string_literal #line 414 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5691)" ($pfx)); my $nsuri = $da-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5692)" mv_namespace_uri #line 415 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5693)" ; $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5694)" replace_variable #line 416 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5695)" ('$NS_URI' => defined $nsuri ? $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5696)" create_perl_string_literal #line 418 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5697)" ($nsuri) : $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5698)" create_perl_atom #line 419 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5699)" ('undef')); $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5700)" replace_variable #line 420 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5701)" ('$NS_URI_NO_NULL' => defined $nsuri ? $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5702)" create_perl_string_literal #line 422 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5703)" ($nsuri) : $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5704)" create_perl_string_literal #line 423 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5705)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5706)" 'http://suika.fam.cx/~wakaba/-temp/2003/09/27/null' #line 423 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5707)" )); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5708)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5710)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5715)" local $Error::Depth = $Error::Depth - 1; { #line 444 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5713)" #line 444 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5711)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5712)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-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_REFLECT_SET_DEFINED_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' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $data_type->{uri}; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5714)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5716)" } #line 447 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5905)" #line 447 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5717)" ; } } } if ($code) { ## Input $set_code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5718)" append_statement #line 453 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5719)" (q); my $param_processor = $set-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5720)" pl_get_method_input_normalizer #line 456 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5721)" ; if ($param_processor) { my $pcode = $param_processor-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5722)" pl_code_fragment #line 458 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5723)" ->clone; $pcode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5724)" replace_variable #line 459 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5725)" ('$INPUT' => '$given'); $set_code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5726)" append_code_fragment #line 461 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5727)" ($pcode); } ## Main code $set_code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5728)" append_code_fragment #line 465 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5729)" ($code); $set->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5730)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 467 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5731)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5732)" 1 #line 467 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5733)" ; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5734)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 468 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5735)" } = $get->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5736)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 468 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5737)" }; } else { ## Setter code not defined $set_code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5738)" append_statement #line 470 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5739)" (q); my $cls = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5740)" get_resource #line 472 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5741)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5742)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#CoreException' #line 473 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5743)" , for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5744)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl' #line 474 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5745)" ); my $const = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5746)" get_resource #line 475 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5747)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5748)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#NOT_SUPPORTED_ERR' #line 476 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5749)" , for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5750)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl' #line 477 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5751)" ); my $subtype = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5752)" get_resource #line 478 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5753)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5754)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_IMPL_ATTR_NOT_IMPLEMENTED' #line 479 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5755)" , for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5756)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl' #line 480 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5757)" ); $_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5758)" is_referred #line 481 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5759)" ($set->{src}) for $cls, $const, $subtype; my $context_param = $get-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5760)" _pl_get_context_parameter #line 483 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5761)" ; $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5762)" _pl_append_throw #line 484 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5763)" ($set_code, $cls, $const, $subtype, {%$context_param}); $set->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5764)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 487 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5765)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5766)" 0 #line 487 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5767)" ; $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5768)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 488 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5769)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5770)" 0 #line 488 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5771)" ; } } else { ## No attribute setter $set_code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5772)" append_statement #line 491 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5773)" (q); my $cls = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5774)" get_resource #line 492 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5775)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5776)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#CoreException' #line 493 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5777)" , for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5778)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl' #line 494 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5779)" ); my $const = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5780)" get_resource #line 495 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5781)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5782)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#NO_MODIFICATION_ALLOWED_ERR' #line 496 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5783)" , for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5784)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl' #line 497 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5785)" ); my $subtype = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5786)" get_resource #line 498 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5787)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5788)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#READ_ONLY_ATTRIBUTE_ERR' #line 499 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5789)" , for_arg => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5790)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Perl' #line 500 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5791)" ); $_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5792)" is_referred #line 501 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5793)" ($self->{src}) for $cls, $const, $subtype; my $context_param = $get-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5794)" _pl_get_context_parameter #line 503 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5795)" ; $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5796)" _pl_append_throw #line 504 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5797)" ($set_code, $cls, $const, $subtype, {%$context_param}); $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5798)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 507 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5799)" } = $get->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5800)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plDefined' #line 507 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5801)" }; } $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5802)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment' #line 510 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5803)" } = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5804)" create_perl_sub #line 511 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5805)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5806)" pl_name #line 512 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5807)" ); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5808)" prototype #line 513 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5809)" (q<$;$>); ## TODO: Don't output "if" if non-debug build $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5810)" append_new_if #line 517 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5811)" ($plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5812)" create_perl_inline_unparsed_code #line 518 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5813)" (q<@_ == 1>), $get_code, $set_code); ## -- Constants } elsif ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5814)" is_type_uri #line 524 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5815)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5816)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const' #line 525 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5817)" )) { my $data_type = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5818)" dis_actual_data_type_resource #line 526 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5819)" ; my $value = $self->{src} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5820)" pl_value_code_fragment #line 528 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5821)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5822)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value' #line 529 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5823)" , $self, for_arg => $self->{for}, forp_arg => $self->{forp}, data_type_uri => $data_type -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5824)" uri #line 533 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5825)" ); my $plimpl = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5826)" pl_implementation #line 534 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5827)" ; $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5828)" create_perl_sub #line 535 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5829)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5830)" pl_name #line 536 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5831)" ); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5832)" append_code_fragment #line 537 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5833)" ($value); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5834)" prototype #line 538 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5835)" (''); ## -- Classes } elsif ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5836)" is_type_uri #line 541 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5837)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5838)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Class' #line 542 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5839)" )) { my $plimpl = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5840)" pl_implementation #line 543 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5841)" ; $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5842)" create_perl_package #line 544 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5843)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5844)" pl_fully_qualified_name #line 545 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5845)" ); ## - Inheritance for my $scls (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5846)" get_property_resource_list #line 547 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5847)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5848)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA' #line 548 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5849)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5850)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 549 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5851)" )}) { my $spack_name = $scls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5852)" pl_fully_qualified_name #line 550 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5853)" ; if (defined $spack_name) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5854)" add_isa_package #line 552 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5855)" ($spack_name); } $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5856)" _pl_add_require_resource #line 554 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5857)" ($scls => $r); } ## dis:AppISA packages for my $spack_name (@{ $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5858)" pl_additional_isa_packages #line 560 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5859)" }) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5860)" add_isa_package #line 562 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5861)" ($spack_name); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5862)" add_require_perl_module_name #line 563 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5863)" ($spack_name); } ## - Implementing interfaces for my $scls (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5864)" get_property_resource_list #line 568 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5865)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5866)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Implement' #line 569 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5867)" , recursive_isa => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5868)" 1 #line 569 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5869)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5870)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 570 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5871)" )}) { my $spack_name = $scls-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5872)" pl_fully_qualified_name #line 571 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5873)" ; if (defined $spack_name) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5874)" add_implement_package #line 573 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5875)" ($spack_name); } } ## - Class members my @cr = @{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5876)" get_property_resource_list #line 578 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5877)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5878)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource' #line 579 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5879)" )}; my @const; for my $cr (@cr) { ## - Subroutines if ($cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5880)" is_type_uri #line 583 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5881)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5882)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Method' #line 584 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5883)" ) or $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5884)" is_type_uri #line 585 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5885)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5886)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute' #line 586 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5887)" )) { my $is_attr = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5888)" is_type_uri #line 587 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5889)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5890)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#Attribute' #line 588 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5891)" ) ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5892)" 1 : #line 588 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5893)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5894)" 0 #line 588 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5895)" ; my $pname = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5896)" pl_name #line 589 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5897)" ; my $op = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5898)" pl_method_operator #line 590 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5899)" ; my $psub = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5900)" pl_code_fragment #line 591 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5901)" ->clone; if (defined $pname) { if ($r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5902)" get_sub #line 593 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5903)" ($pname)) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5904)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5906)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5911)" local $Error::Depth = $Error::Depth - 1; { #line 611 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5909)" #line 611 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5907)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5908)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $cr->{src}, '-type' => 'INVALID_SOURCE_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#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#PERL_SUBROUTINE_ALREADY_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $cr->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode#localName' => $pname; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5910)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5912)" } #line 615 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5921)" #line 615 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5913)" ; } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5914)" set_sub #line 617 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5915)" ($pname => $psub); if (defined $op and defined $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5916)" local_name #line 620 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5917)" ) { if ($op =~ /^[A-Z]+$/) { if ($r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5918)" get_sub_alias_name #line 622 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5919)" ($op)) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5920)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5922)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5927)" local $Error::Depth = $Error::Depth - 1; { #line 624 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5925)" #line 624 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5923)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5924)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $cr->{src}, '-type' => 'INVALID_SOURCE_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#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#PERL_SUBROUTINE_ALREADY_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $cr->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode#localName' => $op; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5926)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5928)" } #line 629 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5935)" #line 629 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5929)" ; } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5930)" set_sub_alias_name #line 631 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5931)" ($op => $pname); } else { if ($r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5932)" get_overload_method_name #line 633 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5933)" ($op)) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5934)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5936)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5941)" local $Error::Depth = $Error::Depth - 1; { #line 634 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5939)" #line 634 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5937)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5938)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $cr->{src}, '-type' => 'INVALID_SOURCE_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/PerlCode#operator' => $op, '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#PERL_OPERATOR_ALREADY_OVERLOADED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $cr->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment'; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5940)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5942)" } #line 639 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5949)" #line 639 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5943)" ; } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5944)" set_overload_method_name #line 641 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5945)" ($op => $pname); } } } elsif (defined $op) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5946)" set_overload_sub #line 645 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5947)" ($op => $psub); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5948)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5950)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5955)" local $Error::Depth = $Error::Depth - 1; { #line 647 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5953)" #line 647 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5951)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5952)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $cr->{src}, '-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#PERL_UNUSED_SUBROUTINE_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' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $cr->{uri}; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5954)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5956)" } #line 650 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5977)" #line 650 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5957)" ; } ## - Constant groups } elsif ($cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5958)" is_type_uri #line 653 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5959)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5960)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ConstGroup' #line 654 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5961)" )) { for my $gcr (@{$cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5962)" get_property_resource_list #line 655 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5963)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5964)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource' #line 656 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5965)" )}) { if ($gcr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5966)" is_type_uri #line 657 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5967)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5968)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const' #line 658 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5969)" )) { my $sub = $gcr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5970)" pl_code_fragment #line 659 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5971)" ; if ($r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5972)" get_sub #line 660 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5973)" ($sub-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5974)" local_name #line 660 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5975)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5976)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5978)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #5983)" local $Error::Depth = $Error::Depth - 1; { #line 663 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #5981)" #line 663 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #5979)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #5980)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $gcr->{src}, '-type' => 'INVALID_SOURCE_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#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#PERL_SUBROUTINE_ALREADY_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $gcr->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode#localName' => $sub->local_name; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5982)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #5984)" } #line 668 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6001)" #line 668 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5985)" ; } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5986)" set_sub #line 670 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5987)" ($sub-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5988)" local_name #line 671 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5989)" => $sub); push @const, $gcr; } } ## - Constants } elsif ($cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5990)" is_type_uri #line 676 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5991)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5992)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#Const' #line 677 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5993)" )) { my $sub = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5994)" pl_code_fragment #line 678 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5995)" ; if ($r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5996)" get_sub #line 679 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5997)" ($sub-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #5998)" local_name #line 679 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #5999)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6000)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6002)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6007)" local $Error::Depth = $Error::Depth - 1; { #line 680 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6005)" #line 680 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6003)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6004)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $cr->{src}, '-type' => 'INVALID_SOURCE_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#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#PERL_SUBROUTINE_ALREADY_DEFINED_ERR', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $cr->{uri}, 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_code_fragment', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode#localName' => $sub->local_name; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6006)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6008)" } #line 685 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6133)" #line 685 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6009)" ; } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6010)" set_sub #line 687 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6011)" ($sub-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6012)" local_name #line 687 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6013)" => $sub); push @const, $cr; ## Package-scope variables } elsif ($cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6014)" is_type_uri #line 690 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6015)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6016)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#ScalarVariable' #line 691 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6017)" )) { my $varn = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6018)" pl_variable_name #line 692 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6019)" ; my $var = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6020)" create_perl_variable #line 693 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6021)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6022)" undef #line 694 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6023)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6024)" undef #line 694 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6025)" , $varn); my $data_type = $cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6026)" dis_actual_data_type_resource #line 695 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6027)" ; my $value = $cr->{src} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6028)" pl_value_code_fragment #line 697 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6029)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6030)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--DefaultValue' #line 698 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6031)" , $cr, for_arg => $cr->{for}, forp_arg => $cr->{forp}, use_default_value => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6032)" 1 #line 701 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6033)" , data_type_uri => $data_type -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6034)" uri #line 703 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6035)" ); if ($cr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6036)" get_property_boolean #line 704 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6037)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6038)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#defaultValueHasSelfReference' #line 705 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6039)" )) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6040)" append_statement #line 706 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6041)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6042)" append_code_fragment #line 707 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6043)" (my $v = $var->clone); $v-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6044)" variable_scope #line 708 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6045)" ('our'); } else { $var-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6046)" variable_scope #line 710 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6047)" ('our'); } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6048)" append_statement #line 712 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6049)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6050)" append_new_assignment #line 713 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6051)" ($var => $value); } # Type of child resources } ## - Exceptions if ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6052)" is_type_uri #line 718 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6053)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6054)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#AnyExceptionClass' #line 719 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6055)" )) { my $err_def = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6056)" create_perl_sub #line 720 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6057)" ('___error_def'); $err_def-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6058)" prototype #line 721 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6059)" (''); $err_def-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6060)" append_code #line 722 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6061)" ($plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6062)" perl_list #line 723 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6063)" ([{ map { $_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6064)" pl_name #line 726 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6065)" => { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6066)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#code' #line 727 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6067)" => 0 + $_ -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6068)" pl_code_fragment #line 728 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6069)" , description => $_ -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6070)" _pl_muf_description_text #line 730 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6071)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6072)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' #line 731 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6073)" => { map { $_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6074)" name_uri #line 733 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6075)" => { description => $_ -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6076)" _pl_muf_description_text #line 736 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6077)" , }, } grep { $_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6078)" is_type_uri #line 739 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6079)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6080)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ExceptionOrWarningSubType' #line 740 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6081)" ) } @{$_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6082)" get_property_resource_list #line 741 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6083)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6084)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource' #line 742 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6085)" )} }, }, } @const }])); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6086)" set_sub #line 747 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6087)" (___error_def => $err_def); } ## -- Global variables } elsif ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6088)" is_type_uri #line 751 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6089)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6090)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#ScalarVariable' #line 752 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6091)" )) { my $plimpl = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6092)" pl_implementation #line 753 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6093)" ; my $varn = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6094)" pl_variable_name #line 754 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6095)" ; my $var = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6096)" create_perl_variable #line 755 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6097)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6098)" undef #line 756 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6099)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6100)" undef #line 756 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6101)" , $varn); my $data_type = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6102)" dis_actual_data_type_resource #line 757 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6103)" ; my $value = $self->{src} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6104)" pl_value_code_fragment #line 759 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6105)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6106)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--DefaultValue' #line 760 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6107)" , $self, for_arg => $self->{for}, forp_arg => $self->{forp}, use_default_value => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6108)" 1 #line 763 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6109)" , data_type_uri => $data_type -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6110)" uri #line 765 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6111)" ); $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6112)" create_perl_statement #line 766 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6113)" ; $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6114)" append_new_assignment #line 767 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6115)" ($var => $value); ## -- Cases } elsif ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6116)" is_type_uri #line 770 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6117)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6118)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#InCase' #line 771 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6119)" )) { my $data_type = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6120)" dis_actual_data_type_resource #line 772 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6121)" ; $r = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6122)" pl_value_code_fragment #line 773 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6123)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6124)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Value' #line 774 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6125)" , $self, for_arg => $self->{for}, forp_arg => $self->{forp}, data_type_uri => $data_type -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6126)" uri #line 778 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6127)" ); ## -- Unsupported types } else { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6128)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#plCodeFragment' #line 782 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6129)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6130)" undef #line 782 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6131)" ; } # rdf:type #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6132)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6134)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6136)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6138)" } #line 792 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6141)" #line 792 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plCodeFragment][@Type=MPLCodeFragment][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6139)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6140)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6142)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6144)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6146)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6147)" 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' => 'pl_code_fragment'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6148)" }} sub pl_preprocess_perl_code ($$%) { my ($self, $codeArg, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6481)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6151)" unless #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6149)" ($self->{src}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6150)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6152)" report Message::Util::DIS::ManakaiDISException -object => $self, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#NO_SOURCE_NODE_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 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6155)" #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6153)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6154)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6156)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6475)" local $Error::Depth = $Error::Depth + 1; { #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6473)" #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6219)" our #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6157)" $RegQNameChar; our $RegBlockContent; my $plimpl = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6158)" pl_implementation #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6159)" ; $r = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6160)" create_perl_block #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6161)" ; if (defined $opt{source_line}) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6162)" source_file #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6163)" ($opt{source_file}); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6164)" source_line #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6165)" ($opt{source_line}); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6166)" current_source_file #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6167)" ($opt{source_file}); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6168)" current_source_line #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6169)" ($opt{source_line}); } elsif ($opt{node}) { my $np = $opt{node}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6170)" node_path #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6171)" (key => [qw/Name QName Type type/]); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6172)" current_source_file #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6173)" ($np); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6174)" current_source_line #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6175)" (1); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6176)" source_file #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6177)" ($np); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6178)" source_line #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6179)" (1); } for my $source_code (split /\b(_ _(?:(?!_ _)$RegQNameChar)+ (?:\{$RegBlockContent\})? _ _)\b/x, $codeArg) { ## Block-level element if ($source_code =~ /_\_\z/ and $source_code =~ s/^_\_((?:(?!_\_)$RegQNameChar)+)//) { my $et = $self->{src} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6180)" qname_to_uri #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6181)" ($1, node => $opt{node}, default_namespace_uri => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6182)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--' #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6183)" ); if ($source_code =~ s/^\{//) { $source_code =~ s/\}__\z//; } else { $source_code = ''; } if ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6184)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--DEEP' or #line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6185)" $et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6186)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--UNDEEP' #line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6187)" ) { my $block = $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6188)" append_block #line 43 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6189)" ; $block-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6190)" append_statement #line 44 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6191)" ('local $Error::Depth = $Error::Depth '. ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6192)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--DEEP' #line 46 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6193)" ? '+' : '-'). ' 1'); $block-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6194)" append_code_fragment #line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6195)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6196)" pl_preprocess_perl_code #line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6197)" ($source_code, node => $opt{node}, method_resource => $opt{method_resource}, source_file => $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6198)" current_source_file #line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6199)" , source_line => $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6200)" current_source_line #line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6201)" )); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6202)" skip_lines #line 54 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6203)" ($source_code); } elsif ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6204)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--EXCEPTION' #line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6205)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6206)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--WARNING' #line 57 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6207)" => 1, }->{$et}) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6208)" skip_lines #line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6209)" ($source_code); if ($source_code =~ s/^((?:(?!::).)+)(?:::\s*)?//s) { my ($cls, $const, $subtype) = @{$self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6210)" xcref_to_resource #line 62 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6211)" ($1, $self->{src}, node => $opt{node}, for_arg => $self->{for})}; my $param = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6212)" _pl_parse_preprocess_parameter #line 66 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6213)" ($source_code, node => $opt{node}); my $context_param = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6214)" _pl_get_context_parameter #line 69 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6215)" ; $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6216)" _pl_append_throw #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6217)" ($r, $cls, $const, $subtype, {%$param, %$context_param}); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6218)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6220)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6225)" local $Error::Depth = $Error::Depth - 1; { #line 82 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6223)" #line 82 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6221)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6222)" 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' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_EXCEPTION_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/2005/manakai/Util/DIS#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6224)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6226)" } #line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6233)" #line 86 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6227)" ; } } elsif ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6228)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--CODE' #line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6229)" ) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6230)" skip_lines #line 89 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6231)" ($source_code); my $code_name; $source_code =~ s/^\s+//; if ($source_code =~ s/^((?>(?!::).)+)//s) { $code_name = $1; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6232)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6234)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6245)" local $Error::Depth = $Error::Depth - 1; { #line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6243)" #line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6237)" #line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6235)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6236)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6238)" 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' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_CODE_NAME_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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et; #line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6241)" #line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6239)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6240)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6242)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6244)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6246)" } #line 101 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6263)" #line 101 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6247)" ; } $source_code =~ s/^::\s*//; my $param = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6248)" _pl_parse_preprocess_parameter #line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6249)" ($source_code, node => $opt{node}); my $code_uri = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6250)" tfqnames_to_uri #line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6251)" ($code_name, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6252)" undef #line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6253)" , $self->{for}, node => $opt{node}); my $code = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6254)" get_resource #line 109 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6255)" ($code_uri); $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6256)" is_referred #line 111 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6257)" ($opt{node} || $self->{src}); unless ($code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6258)" is_type_uri #line 113 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6259)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6260)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#BlockCode' #line 114 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6261)" )) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6262)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6264)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6273)" local $Error::Depth = $Error::Depth - 1; { #line 117 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6271)" #line 117 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6265)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6266)" 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' => 'pl_preprocess_perl_code', '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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#BlockCode', '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' => $code_uri; #line 122 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6269)" #line 122 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6267)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6268)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6270)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6272)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6274)" } #line 122 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6279)" #line 122 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6275)" ; } my $pc = $code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6276)" pl_code_fragment #line 124 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6277)" ->clone; unless (defined $pc) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6278)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6280)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6285)" local $Error::Depth = $Error::Depth - 1; { #line 127 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6283)" #line 127 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6281)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6282)" 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' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_CODE_NOT_DEFINED_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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $code_uri; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6284)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6286)" } #line 131 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6307)" #line 131 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6287)" ; } for my $var (grep {/^\$/} keys %$param) { my $value; if ($param->{$var}->{type} eq 'variable') { $value = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6288)" create_perl_variable #line 136 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6289)" ('$', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6290)" undef #line 137 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6291)" , $param->{$var}->{value}); } elsif ($param->{$var}->{type} eq 'code') { $value = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6292)" pl_preprocess_perl_statement #line 139 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6293)" ($param->{$var}->{value}, contains_statements => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6294)" 0 #line 141 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6295)" ); } else { $value = $plimpl-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6296)" create_perl_string_literal #line 143 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6297)" ($param->{$var}->{value}); } $pc-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6298)" replace_variable #line 146 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6299)" ($var => $value); } $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6300)" append_code_fragment #line 149 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6301)" ($pc); } elsif ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6302)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#InputNormalize' #line 150 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6303)" ) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6304)" skip_lines #line 151 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6305)" ($source_code); unless ($opt{method_resource}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6306)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6308)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6313)" local $Error::Depth = $Error::Depth - 1; { #line 154 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6311)" #line 154 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6309)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6310)" 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' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_METHOD_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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6312)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6314)" } #line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6321)" #line 158 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6315)" ; } my $param = $opt{method_resource} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6316)" get_child_resource_by_name_and_type #line 161 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6317)" ($source_code, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6318)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodParameter' #line 162 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6319)" ); unless ($param) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6320)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6322)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6327)" local $Error::Depth = $Error::Depth - 1; { #line 165 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6325)" #line 165 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6323)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6324)" 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' => 'pl_preprocess_perl_code', '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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodParameter', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $source_code, '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' => $et; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6326)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6328)" } #line 171 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6363)" #line 171 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6329)" ; } my $norm = $param-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6330)" pl_get_method_input_normalizer #line 173 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6331)" ; if ($norm) { my $norm_code = $norm-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6332)" pl_code_fragment #line 175 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6333)" ->clone; $norm_code-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6334)" replace_variable #line 176 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6335)" ('$INPUT' => $param-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6336)" pl_variable_name #line 177 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6337)" ); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6338)" append_code_fragment #line 178 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6339)" ($norm_code); } } elsif ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6340)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--FOR' #line 180 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6341)" ) { if ($source_code =~ s/^(((?>(?!::).)*)::\s*)//) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6342)" skip_lines #line 182 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6343)" ($1); V: for my $forq (split /\s*\|\s*/, $2) { my $notfor = ($forq =~ s/^!\s*// ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6344)" 1 : #line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6345)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6346)" 0 #line 184 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6347)" ); my $for_uri = $self->{src} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6348)" qname_to_uri #line 186 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6349)" ($forq, node => $opt{node}); my $formatch = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6350)" is_for_uri #line 188 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6351)" ($for_uri); if (($formatch and not $notfor) or (not $formatch and $notfor)) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6352)" append_code_fragment #line 191 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6353)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6354)" pl_preprocess_perl_code #line 192 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6355)" ($source_code, node => $opt{node}, method_resource => $opt{method_resource}, source_file => $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6356)" current_source_file #line 195 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6357)" , source_line => $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6358)" current_source_line #line 196 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6359)" )); last V; } } # V $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6360)" skip_lines #line 200 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6361)" ($source_code); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6362)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6364)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6369)" local $Error::Depth = $Error::Depth - 1; { #line 209 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6367)" #line 209 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6365)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6366)" 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' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_FOR_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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6368)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6370)" } #line 213 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6379)" #line 213 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6371)" ; } } elsif ($et eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6372)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--ASSERT' #line 215 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6373)" ) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6374)" skip_lines #line 216 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6375)" ($source_code); my $assert_type; if ($source_code =~ s/^\s*($RegQNameChar+)\s*::\s*//o) { $assert_type = $self->{src} -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6376)" qname_to_uri #line 220 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6377)" ($1, node => $opt{node}); } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6378)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6380)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6385)" local $Error::Depth = $Error::Depth - 1; { #line 223 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6383)" #line 223 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6381)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6382)" 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' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_NO_ASSERT_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/2005/manakai/Util/DIS#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6384)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6386)" } #line 227 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6417)" #line 227 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6387)" ; } # if output assertion then =pod my $assert_block = $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6388)" append_block #line 231 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6389)" ; my $param = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6390)" _pl_parse_preprocess_parameter #line 233 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6391)" ($source_code, node => $opt{node}); my $context_param = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6392)" _pl_get_context_parameter #line 236 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6393)" ; if ($assert_type eq #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6394)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#isPositive' #line 238 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6395)" ) { $pre = perl_statement perl_assign 'my $asActual' => '('.perl_code ($param->{actual}, %opt).')'; $cond = '$asActual > 0'; $xparam->{ExpandedURI q} = 'a positive value'; $xparam->{ExpandedURI q} = perl_code_literal q<$asActual>; } elsif ($atype eq ExpandedURI q) { $cond = '0'; $xparam->{ExpandedURI q} = $param->{msg}; $xparam->{ExpandedURI q} = '(invariant)'; } else { valid_err (q[Assertion type <].$atype.q[> is not supported], node => $opt{node}); } $r = $pre . perl_if $cond, undef, my $cls = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6396)" get_resource #line 262 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6397)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6398)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#CoreException' #line 263 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6399)" ); my $const = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6400)" get_resource #line 264 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6401)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6402)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#MDOM_DEBUG_BUG' #line 265 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6403)" ); my $subtype = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6404)" get_resource #line 266 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6405)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6406)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#ASSERTION_ERR' #line 267 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6407)" ); $_-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6408)" is_referred #line 268 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6409)" ($opt{node} || $self->{src}) for $cls, $const, $subtype; $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6410)" _pl_append_throw #line 270 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6411)" ($assert_block, $cls, $const, $subtype, {%$param, %$context_param, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6412)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#assertionType' #line 273 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6413)" => { type => 'quoted', value => $assert_type, }, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6414)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#traceText' #line 276 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6415)" => { type => 'code', value => q<(sprintf 'at %s line %s%s%s', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6416)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6418)" __FILE__ #line 282 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6421)" #line 282 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6419)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6420)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6422)" __LINE__ #line 282 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6439)" #line 282 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6423)" , "\n\t", Carp::longmess ())>, }}); =cut } elsif ({ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6424)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--FILE' #line 289 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6425)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6426)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--LINE' #line 290 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6427)" => 1, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6428)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--PACKAGE' #line 291 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6429)" => 1, }->{$et}) { $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6430)" append_atom #line 293 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6431)" ('__'.{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6432)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--FILE' #line 295 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6433)" => 'FILE', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6434)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--LINE' #line 296 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6435)" => 'LINE', #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6436)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--Perl--PACKAGE' #line 297 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6437)" => 'PACKAGE', }->{$et}.'__'); if (length $source_code) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6438)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6440)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6445)" local $Error::Depth = $Error::Depth - 1; { #line 300 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6443)" #line 300 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6441)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6442)" 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' => 'pl_preprocess_perl_code', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#PERL_PREPROCESS_BLOCK_NOT_ALLOWED_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#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6444)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6446)" } #line 304 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6449)" #line 304 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6447)" ; } } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6448)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6450)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6455)" local $Error::Depth = $Error::Depth - 1; { #line 307 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6453)" #line 307 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6451)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6452)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $opt{node}, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'pl_preprocess_perl_code', '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::ManakaiDISResourceDefinition', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceCode' => $source_code, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#elementType' => $et; #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6454)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6456)" } #line 311 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6471)" #line 311 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6457)" ; } } else { ## Other than block-level element $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6458)" append_code_fragment #line 314 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6459)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6460)" pl_preprocess_perl_statement #line 315 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6461)" ($source_code, contains_statements => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6462)" 1 #line 316 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6463)" , source_file => $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6464)" current_source_file #line 317 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6465)" , source_line => $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6466)" current_source_line #line 318 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6467)" )); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6468)" skip_lines #line 319 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6469)" ($source_code); } } # for #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6470)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6472)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6474)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6476)" } #line 325 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6479)" #line 325 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=plPreprocessPerlCode][@type=DISLang:Method]/Return[@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6477)" ; # DEEP #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6478)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6480)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6482)" } $r} sub feature_name_list ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6563)" my ($self) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6561)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6485)" unless #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6483)" ($self->{src}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6484)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6486)" report Message::Util::DIS::ManakaiDISException -object => $self, '-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_SOURCE_NODE_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', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $self->{uri}; #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6489)" #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6487)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6488)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6490)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6555)" local $Error::Depth = $Error::Depth + 1; { #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6553)" #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6517)" for #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6491)" my $ce (@{$self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6492)" dis_child_elements #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6493)" (for_arg => $self->{for}, forp_arg => $self->{forp})}) { if ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6494)" expanded_uri eq #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6495)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6496)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6497)" ) { if ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6498)" media_type_match #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6499)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6500)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6501)" , for_arg => $self->{for}, forp_arg => $self->{forp}, default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6502)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--String' #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6503)" )) { push @$r, lc $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6504)" qname_value_uri #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6505)" ; } elsif ($ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6506)" media_type_match #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6507)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6508)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--String' #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6509)" , for_arg => $self->{for}, forp_arg => $self->{forp}, default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6510)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--String' #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6511)" )) { push @$r, lc $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6512)" value #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6513)" ; } else { my $mt = $ce-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6514)" media_type_uri #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6515)" (for_arg => $self->{for}, forp_arg => $self->{forp}); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6516)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6518)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6529)" local $Error::Depth = $Error::Depth - 1; { #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6527)" #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6521)" #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6519)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6520)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6522)" 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#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#UNSUPPORTED_MEDIA_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' => 'feature_name_list', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $mt; #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6525)" #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6523)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6524)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6526)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6528)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6530)" } #line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6551)" #line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6531)" ; } } } unless (@$r) { my $pr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6532)" get_property_resource #line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6533)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6534)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 38 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6535)" ); if ($pr) { if ($pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6536)" is_type_uri #line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6537)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6538)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMFeature' #line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6539)" ) and not $pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6540)" is_anonymous #line 42 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6541)" ) { push @$r, @{$pr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6542)" feature_name_list #line 43 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6543)" }; } } } unless (@$r) { if ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6544)" is_anonymous #line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6545)" ) { my $ln = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6546)" local_name #line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6547)" ; push @$r, lc $ln if defined $ln; } else { push @$r, lc $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6548)" name_uri #line 52 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6549)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6550)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6552)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6554)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6556)" } #line 57 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6559)" #line 57 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=featureNameList][@Type=Perl:ARRAY::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6557)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6558)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6560)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6562)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6564)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6565)" 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 #6566)" }} sub is_type_uri ($$) { my ($self, $typeURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6587)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6585)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6567)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6568)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6569)" }->{$typeURI}) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6570)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6571)" }->{$typeURI}; } else { for my $t_type_uri (grep {$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6572)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6573)" }->{$_}} keys %{$self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6574)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6575)" }}) { my $t_type = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6576)" get_resource #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6577)" ($t_type_uri); if ($t_type-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6578)" is_subset_of_uri #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6579)" ($typeURI)) { $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6580)" 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type' #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6581)" }->{$typeURI} = $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6582)" 1 #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isTypeURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all ][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6583)" ; last; } } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6584)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6586)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6588)" } $r} sub pl_variable_name ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6635)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6633)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6601)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6589)" $pnm_node = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6590)" dis_get_attribute #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6591)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6592)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6593)" , for_arg => $self->{for}, forp_arg => $self->{forp}, media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6594)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6595)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6596)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6597)" ); $r = $pnm_node ? $pnm_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6598)" value : #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6599)" $self->{localName}; if (defined $r) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6600)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6602)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6627)" local $Error::Depth = $Error::Depth + 1; { #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6625)" #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6623)" if #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6603)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6604)" get_property_boolean #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6605)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6606)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#isNamedParameter' #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6607)" , #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6608)" 0 #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6609)" )) { $r = '$opt{' . #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6610)" Message::Util::DIS::ManakaiDISImplementation->_camel_case_to_underscore_name #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6611)" ($r) . '}'; } else { my $dt = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6612)" dis_actual_data_type_resource #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6613)" ; if ($dt-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6614)" is_subset_of_uri #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6615)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6616)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl--Array' #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6617)" )) { $r = '@' . $r; } elsif ($dt-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6618)" is_subset_of_uri #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6619)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6620)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl--Hash' #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6621)" )) { $r = '%' . $r; } else { $r = '$' . $r; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6622)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6624)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6626)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6628)" } #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6631)" #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plVariableName][@Type=lang:Perl::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6629)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6630)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6632)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6634)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6636)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6637)" 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' => 'pl_variable_name'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6638)" }} sub mv_prefix ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6685)" my ($self) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6683)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6639)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6640)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6677)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6675)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6673)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6641)" (exists $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6642)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6643)" }) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6644)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6645)" }; } elsif ($self->{src}) { my $node = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6646)" dis_get_attribute #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6647)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6648)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--AppName' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6649)" , for_arg => $self->{for}, forp_arg => $self->{forp}, media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6650)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6651)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6652)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6653)" ); if ($node) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6654)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix' #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6655)" } = $node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6656)" qname_value_prefix #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6657)" ; } else { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6658)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix' #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6659)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6660)" undef #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6661)" ; } } else { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6662)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix' #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6663)" } = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6664)" undef #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6665)" ; } unless (defined $r) { my $nsuri = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6666)" mv_namespace_uri #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6667)" ; if (defined $nsuri and $nsuri =~ /([A-Za-z]\w*)\W*$/) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6668)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix' #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6669)" } = $1; } elsif (defined $nsuri) { $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6670)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#mvPrefix' #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6671)" } = 'ns'; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6672)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6674)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6676)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6678)" } #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6681)" #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=mvPrefix][@Type=DISLang:String::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6679)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6680)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6682)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6684)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6686)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6687)" 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' => 'mv_prefix'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6688)" }} sub merge_as_alias ($$%) { my ($self, $aliasResource, %opt) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6727)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6691)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6689)" ($self eq $aliasResource) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6690)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6692)" 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)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6705)" #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6693)" ; } for my $uri ($aliasResource->{uri}, grep {$aliasResource->{aliasURI}->{$_}} keys %{$aliasResource->{aliasURI}}) { $self->{aliasURI}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6694)" 1 #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6695)" ; $self->{db}->{resDef}->{$uri} = $self; $self->{subOf}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6696)" 1 #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6697)" ; $self->{supOf}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6698)" 1 #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6699)" ; } for my $uri (grep {$aliasResource->{subOf}->{$_}} keys %{$aliasResource->{subOf}}) { $self->{subOf}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6700)" 1 #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6701)" ; } for my $uri (grep {$aliasResource->{supOf}->{$_}} keys %{$aliasResource->{supOf}}) { $self->{supOf}->{$uri} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6702)" 1 #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6703)" ; } 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 #6704)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6706)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6721)" local $Error::Depth = $Error::Depth + 1; { #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6719)" #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6717)" for #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6707)" my $from (@from) { for my $to (@to) { $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6708)" get_resource #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6709)" ($from)->{subOf}->{$to} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6710)" 1 #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6711)" ; $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6712)" get_resource #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6713)" ($to)->{supOf}->{$from} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6714)" 1 #line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6715)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6716)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6718)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6720)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6722)" } #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6725)" #line 34 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=mergeAsAlias][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6723)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6724)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6726)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6728)" } } sub is_anonymous ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6737)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6735)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6733)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6729)" $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6730)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#isAnon' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=isAnonymous][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6731)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6732)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6734)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6736)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6738)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6739)" 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' => 'is_anonymous'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6740)" }} sub pl_is_nullable ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6775)" my ($self) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6773)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6741)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6742)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6767)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6765)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6763)" for #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6743)" my $incase (@{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6744)" get_property_resource_list #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6745)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6746)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#childResource' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6747)" )}) { next unless $incase-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6748)" is_type_uri #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6749)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6750)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#InCase' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6751)" ); if ($incase-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6752)" dis_is_null_value or #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6753)" $incase-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6754)" dis_actual_data_type_resource #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6755)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6756)" is_subset_of_uri #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6757)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6758)" 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#boolean' #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6759)" )) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6760)" 1 #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6761)" ; last; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6762)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6764)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6766)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6768)" } #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6771)" #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=plIsNullable][@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6769)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6770)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6772)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6774)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6776)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6777)" 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' => 'pl_is_nullable'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6778)" }} sub is_for_uri ($$) { my ($self, $forURI) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6801)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6779)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6780)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6795)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6793)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6791)" for #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6781)" 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 #6782)" 1 #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6783)" ; last; } my $this_for = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6784)" get_for #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6785)" ($this_for_uri); if ($this_for-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6786)" isa_uri #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6787)" ($forURI)) { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6788)" 1 #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6789)" ; last; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6790)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6792)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6794)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6796)" } #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6799)" #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=isForURI][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6797)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6798)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6800)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6802)" } $r} sub forp_uri ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6809)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6807)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6805)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=forpURI][@Type=ForURIList][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6803)" $r = [@{$self->{forp}}]; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6804)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6806)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6808)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6810)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6811)" 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' => 'forp_uri'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6812)" }} sub _pl_append_throw ($$$$;$$) { my ($self, $parentNode, $xclass, $xcode, $xsubtype, $xparam) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6847)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6823)" my #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6813)" $statement = $parentNode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6814)" append_statement #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6815)" ('report '. $xclass-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6816)" pl_fully_qualified_name #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6817)" . ' -object => $self'); my $xclass_module = $xclass-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6818)" owner_module #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6819)" ; unless ($xclass-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6820)" is_defined or #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6821)" not $xclass_module) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6822)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6824)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $self->{src}, '-type' => 'INVALID_SOURCE_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => '_pl_append_throw', '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#expectedType' => 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/Error/DOMException#AnyExceptionClass', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#localName' => $xclass->{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' => $xclass->{uri}; #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6845)" #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6825)" ; } $xclass-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6826)" is_referred #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6827)" ($self->{src}); $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6828)" _pl_add_require_resource #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6829)" ($xclass_module => $statement); $xparam->{-type} = {type => 'quoted', value => $xcode-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6830)" pl_name #line 20 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6831)" }; $xparam->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6832)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#subtype' #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6833)" } = {type => 'quoted', value => $xsubtype->{nameURI}} if $xsubtype; for my $name (keys %$xparam) { my $pname = $name; $pname =~ s/(['\\])/\\$1/g; $pname = qq<'$pname'>; $statement-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6834)" append_code #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6835)" (', ' . $pname . ' => '); if ($xparam->{$name}->{type} eq 'code') { if (ref $xparam->{$name}->{value}) { $statement-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6836)" append_code_fragment #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6837)" ($xparam->{$name}->{value}); } else { $statement-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6838)" append_code_fragment #line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6839)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6840)" pl_preprocess_perl_statement #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6841)" ($xparam->{$name}->{value})); } } else { ## String as is $statement-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6842)" append_string_literal #line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plAppendThrow][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6843)" ($xparam->{$name}->{value}); } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6844)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6846)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6848)" } } sub _pl_get_context_parameter ($) { my ($self) = @_; my $r = {}; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6931)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6851)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6849)" $r = {}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6850)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6852)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6925)" local $Error::Depth = $Error::Depth + 1; { #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6923)" #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6921)" if #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6853)" ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6854)" is_type_uri #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6855)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6856)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#MethodReturn' #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6857)" )) { my $method = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6858)" get_property_resource #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6859)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6860)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6861)" ); $r->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6862)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6863)" } = {type => 'quoted', value => $method-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6864)" pl_name #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6865)" }; my $class = $method-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6866)" get_property_resource #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6867)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6868)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6869)" ); $r->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6870)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6871)" } = {type => 'quoted', value => $class-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6872)" pl_fully_qualified_name #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6873)" }; } elsif ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6874)" is_type_uri #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6875)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6876)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeGet' #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6877)" )) { my $attr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6878)" get_property_resource #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6879)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6880)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 14 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6881)" ); $r->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6882)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' #line 15 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6883)" } = {type => 'quoted', value => $attr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6884)" pl_name #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6885)" }; my $class = $attr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6886)" get_property_resource #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6887)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6888)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6889)" ); $r->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6890)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' #line 19 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6891)" } = {type => 'quoted', value => $class-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6892)" pl_fully_qualified_name #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6893)" }; $r->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6894)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6895)" } = {type => 'quoted', value => 'get'}; } elsif ($self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6896)" is_type_uri #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6897)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6898)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Lang#AttributeSet' #line 24 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6899)" )) { my $attr = $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6900)" get_property_resource #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6901)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6902)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 25 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6903)" ); $r->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6904)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' #line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6905)" } = {type => 'quoted', value => $attr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6906)" pl_name #line 28 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6907)" }; my $class = $attr-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6908)" get_property_resource #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6909)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6910)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#parentResource' #line 29 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6911)" ); $r->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6912)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' #line 30 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6913)" } = {type => 'quoted', value => $class-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6914)" pl_fully_qualified_name #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6915)" }; $r->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6916)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#on' #line 33 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6917)" } = {type => 'quoted', value => 'set'}; } else { $r->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6918)" 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' #line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6919)" } = {type => 'quoted', value => $self->{uri}}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6920)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6922)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6924)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6926)" } #line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6929)" #line 48 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@Name=plGetContextParameter][@type=DISLang:Method]/Return[@Type=Perl:hash::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6927)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6928)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6930)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6932)" } $r} sub dis_actual_data_type_node ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6953)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6951)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6933)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6934)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #6943)" local $Error::Depth = $Error::Depth + 1; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #6941)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6939)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6935)" $self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6936)" dis_actual_data_type_resource #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6937)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6938)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6940)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6942)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6944)" } #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #6949)" #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6945)" ; $r = $self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6946)" 'http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#actualTypeNode' #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Attr[@Name=disActualDataTypeNode][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #6947)" }; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6948)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6950)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6952)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6954)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #6955)" 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_node'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6956)" }} 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 #6961)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #6959)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureNameString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #6957)" $feature = lc $feature; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6958)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6960)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6962)" } { #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [b] (Chunk #6967)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [bc] (Chunk #6965)" #line 1 "/document (lib/Message/DOM/DOMFeature.dis)/StringDataTypeDef[@QName=FeatureVersionString][@type=ManakaiDOM:DataType]/InputProcessor[@type=DISLang:InputProcessor]/PerlDef [u] (Chunk #6963)" $version = '' unless defined $version; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6964)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6966)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6968)" } my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6973)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6971)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/Method[@Name=getFeature][@type=DISLang:Method]/Return[@Type=DOMMain:Object::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6969)" $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 #6970)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6972)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6974)" } $r} use overload bool => sub () {1}, '<=>' => sub ($$) { my ($self, $anotherResource) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6981)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6979)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6975)" (UNIVERSAL::isa ($anotherResource, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6976)" 'Message::Util::DIS::ManakaiDISResourceDefinition' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:unsigned-long::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6977)" )) { $r = $self->{seq} <=> $anotherResource->{seq}; } else { $r = overload::Overloaded ($self) <=> $anotherResource; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6978)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6980)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6982)" } $r} , 'eq' => sub ($$) { my ($self, $anotherResource) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #6991)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #6989)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6983)" (UNIVERSAL::isa ($anotherResource, #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6984)" 'Message::Util::DIS::ManakaiDISResourceDefinition' #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6985)" )) { $r = $self->{uri} eq $anotherResource->{uri}; } else { $r = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6986)" 0 #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISResourceDefinition][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6987)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6988)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #6990)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #6992)" } $r} , 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} = 4; $Message::Util::DIS::ManakaiDISResourceDefinition::CompatClass{q} = 1; package Message::Util::DIS::ManakaiDISPropertyAccessor; our $VERSION = 20050904.1346; sub get_property_text ($$;$) { my ($self, $propName, $default) = @_; my $r = ''; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7003)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7001)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6993)" (exists $self->{$propName}) { $r = defined $self->{$propName} ? $self->{$propName} : $default; } elsif ($self->{src}) { $r = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6994)" dis_get_attribute #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6995)" ($propName, for_arg => $self->{for}, forp_arg => $self->{forp}); if ($r) { $r = $self->{$propName} = $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6996)" value #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6997)" ; $r = $default unless defined $r; } else { $r = $default; $self->{$propName} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #6998)" undef #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyText][@type=DISLang:Method]/Return[@Type=swcfg21:SWCFGString::swcfg21:ForLatest][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #6999)" ; } } else { $r = $default; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7000)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7002)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7004)" } $r} sub owner_module ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #7011)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=ManakaiDISModuleDefinition][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #7009)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=ManakaiDISModuleDefinition][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #7007)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=ownerModule][@type=DISLang:Attribute]/Get[@Type=ManakaiDISModuleDefinition][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7005)" $r = $self; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7006)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7008)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7010)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7012)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #7013)" 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::ManakaiDISPropertyAccessor', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'owner_module'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7014)" }} sub add_property_resource_list ($$$) { my ($self, $propName, $res) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7023)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7017)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7015)" (ref $self->{$propName} eq 'ARRAY') { push @{$self->{$propName}}, $res->{uri}; } elsif (not defined $self->{$propName}) { $self->{$propName} = [$res->{uri}]; } else { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7016)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7018)" #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7021)" #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=addPropertyResourceList][@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7019)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7020)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7022)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7024)" } } sub get_property_resource_list ($$%) { my ($self, $propName, %opt) = @_; my $r = []; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7177)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7029)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7025)" $r = []; if (defined $self->{$propName}) { for my $res_uri (@{ref $self->{$propName} eq 'ARRAY' ? $self->{$propName} : []}) { push @$r, $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7026)" get_resource #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7027)" ($res_uri); } } elsif ($self->{src}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7028)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7030)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7093)" local $Error::Depth = $Error::Depth + 1; { #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7091)" #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7061)" #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7031)" $self->{$propName} = []; $opt{default_media_type} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7032)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' unless #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7033)" defined $opt{default_media_type}; for my $res_name_node (@{$self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7034)" dis_get_attribute_list #line 13 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7035)" ($propName, for_arg => $self->{for}, forp_arg => $self->{forp})}) { my $res_uri; if ($res_name_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7036)" media_type_match #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7037)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7038)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7039)" , $opt{default_media_type}, for_arg => $self->{for}, forp_arg => $self->{forp})) { $res_uri = $res_name_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7040)" qname_value_uri #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7041)" ; } elsif ($res_name_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7042)" media_type_match #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7043)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7044)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 23 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7045)" , $opt{default_media_type}, for_arg => $self->{for}, forp_arg => $self->{forp})) { $res_uri =$res_name_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7046)" tfqnames_value_uri #line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7047)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7048)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID' #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7049)" }, $self->{for}, for_arg => $self->{for}, forp_arg => $self->{forp}); } elsif ($res_name_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7050)" media_type_match #line 31 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7051)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7052)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames' #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7053)" , $opt{default_media_type}, for_arg => $self->{for}, forp_arg => $self->{forp})) { $res_uri=$res_name_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7054)" tfqnames_value_uri #line 35 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7055)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7056)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID' #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7057)" }, $self->{for}, for_arg => $self->{for}, forp_arg => $self->{forp}); } else { my $mt = $res_name_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7058)" media_type_uri #line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7059)" (for_arg => $self->{for}, forp_arg => $self->{forp}); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7060)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7062)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7073)" local $Error::Depth = $Error::Depth - 1; { #line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7071)" #line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7065)" #line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7063)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7064)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7066)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $res_name_node, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'get_property_resource_list', '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', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $mt; #line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7069)" #line 49 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7067)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7068)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7070)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7072)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7074)" } #line 50 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7089)" #line 50 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7075)" ; } push @{$self->{$propName}}, $res_uri; my $res = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7076)" get_resource #line 53 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7077)" ($res_uri); push @$r, $res; $res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7078)" is_referred #line 56 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7079)" ($res_name_node); if ($opt{isa_recursive}) { my $stop_rec = $res_name_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7080)" dis_get_attribute #line 59 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7081)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7082)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#stopISARecursive' #line 60 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7083)" , for_arg => $self->{for}, forp_arg => $self->{forp}); $opt{isa_recursive} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7084)" 0 if #line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7085)" $stop_rec and $stop_rec-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7086)" value #line 63 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7087)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7088)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7090)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7092)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7094)" } #line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7097)" #line 68 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7095)" ; } if ($opt{recursive}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7096)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7098)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7113)" local $Error::Depth = $Error::Depth + 1; { #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7111)" #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7109)" #line 71 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7099)" $opt{___recursive_isa_done} ||= {$self->{uri} => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7100)" 1 #line 72 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7101)" }; 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 #7102)" 1 #line 76 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7103)" ; push @$r, @{$p_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7104)" get_property_resource_list #line 77 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7105)" ($propName, recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7106)" 1 #line 78 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7107)" , 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 #7108)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7110)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7112)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7114)" } #line 84 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7117)" #line 84 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7115)" ; } if ($opt{recursive_isa}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7116)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7118)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7135)" local $Error::Depth = $Error::Depth + 1; { #line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7133)" #line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7131)" #line 87 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7119)" $opt{___recursive_isa_done} ||= {$self->{uri} => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7120)" 1 #line 88 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7121)" }; 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 #7122)" 1 #line 92 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7123)" ; push @$r, @{$p_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7124)" get_property_resource_list #line 93 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7125)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7126)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA' #line 94 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7127)" , recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7128)" 1 #line 95 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7129)" , ___recursive_isa_done => $opt{___recursive_isa_done}, default_media_type => $opt{default_media_type})}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7130)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7132)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7134)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7136)" } #line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7139)" #line 100 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7137)" ; } if ($opt{isa_recursive}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7138)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7140)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7171)" local $Error::Depth = $Error::Depth + 1; { #line 103 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7169)" #line 103 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7167)" #line 103 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7141)" $opt{___recursive_isa_done} ||= {$self->{uri} => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7142)" 1 #line 104 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7143)" }; $opt{___isa_recursive_done} ||= {$self->{uri} => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7144)" 1 #line 105 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7145)" }; my @p_res = @{$self-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7146)" get_property_resource_list #line 106 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7147)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7148)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--ISA' #line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7149)" , recursive_isa => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7150)" 0 #line 107 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7151)" , recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7152)" 0 #line 108 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7153)" , default_media_type => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7154)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 109 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7155)" )}; 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 #7156)" 1 #line 112 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7157)" ; push @$r, @{$p_res-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7158)" get_property_resource_list #line 113 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7159)" ($propName, recursive_isa => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7160)" 0 #line 114 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7161)" , recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7162)" 0 #line 115 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7163)" , isa_recursive => #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7164)" 1 #line 116 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7165)" , ___isa_recursive_done => $opt{___isa_recursive_done}, default_media_type => $opt{default_media_type})}; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7166)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7168)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7170)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7172)" } #line 123 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7175)" #line 123 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResourceList][@type=DISLang:Method]/Return[@Type=ResourceList][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7173)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7174)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7176)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7178)" } $r} sub get_property_boolean ($$$) { my ($self, $propName, $default) = @_; my $r = 0; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7193)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7191)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7179)" (exists $self->{$propName}) { $r = defined $self->{$propName} ? $self->{$propName} : $default; } elsif ($self->{src}) { my $attr_node = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7180)" dis_get_attribute #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7181)" ($propName, for_arg => $self->{for}, forp_arg => $self->{forp}); $r = $self->{$propName} = ($attr_node ? ($attr_node-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7182)" value #line 8 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7183)" ? #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7184)" 1 : #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7185)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7186)" 0 #line 9 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7187)" ) : #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7188)" undef #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyBoolean][@type=DISLang:Method]/Return[@Type=DOMMain:boolean::ManakaiDOM:all][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7189)" ); $r = $default unless defined $r; } else { $r = $default; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7190)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7192)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7194)" } $r} sub get_property_resource ($$%) { my ($self, $propName, %opt) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7257)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7199)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7195)" (defined $self->{$propName}) { $r = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7196)" get_resource #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7197)" ($self->{$propName}); } elsif ($self->{src}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7198)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7200)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7251)" local $Error::Depth = $Error::Depth + 1; { #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7249)" #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7227)" #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7201)" $r = $self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7202)" dis_get_attribute #line 6 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7203)" ($propName, for_arg => $self->{for}, forp_arg => $self->{forp}); if ($r) { $opt{default_media_type} = #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7204)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' unless #line 10 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7205)" defined $opt{default_media_type}; if ($r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7206)" media_type_match #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7207)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7208)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TypeQName' #line 12 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7209)" , $opt{default_media_type}, for_arg => $self->{for}, forp_arg => $self->{forp})) { $self->{$propName} = $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7210)" qname_value_uri #line 16 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7211)" ; } elsif ($r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7212)" media_type_match #line 17 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7213)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7214)" 'http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--TFQNames' #line 18 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7215)" , $opt{default_media_type}, for_arg => $self->{for}, forp_arg => $self->{forp}) or $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7216)" media_type_match #line 21 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7217)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7218)" 'http://suika.fam.cx/~wakaba/archive/2004/dis/Core#TFPQNames' #line 22 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7219)" , $opt{default_media_type}, for_arg => $self->{for}, forp_arg => $self->{forp})) { $self->{$propName} = $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7220)" tfqnames_value_uri #line 26 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7221)" ($self->{ #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7222)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNodeID' #line 27 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7223)" }, $self->{for}, for_arg => $self->{for}, forp_arg => $self->{forp}); } else { my $mt = $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7224)" media_type_uri #line 32 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7225)" (for_arg => $self->{for}, forp_arg => $self->{forp}); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7226)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7228)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7239)" local $Error::Depth = $Error::Depth - 1; { #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7237)" #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7231)" #line 36 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7229)" #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7230)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7232)" report Message::Util::DIS::ManakaiDISException -object => $self, 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#sourceNode' => $r, '-type' => 'NOT_SUPPORTED_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#method' => 'get_property_resource', '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', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#uri' => $mt || $opt{default_media_type}; #line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7235)" #line 40 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7233)" ; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7234)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7236)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7238)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7240)" } #line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7247)" #line 41 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7241)" ; } $r = $self->{db}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7242)" get_resource #line 43 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7243)" ($self->{$propName}); $r-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7244)" is_referred #line 45 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7245)" ($self->{src}); } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7246)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7248)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7250)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7252)" } #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7255)" #line 47 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Method[@Name=getPropertyResource][@type=DISLang:Method]/Return[@Type=ManakaiDISResourceDefinition][@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7253)" ; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7254)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7256)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7258)" } $r} sub source_element ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #7265)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #7263)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #7261)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=sourceElement][@type=DISLang:Attribute]/Get[@Type=ManakaiDISElement][@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7259)" $r = $self->{src}; #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7260)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7262)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7264)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7266)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #7267)" 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::ManakaiDISPropertyAccessor', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'source_element'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7268)" }} sub pl_implementation ($;$) { if (@_ == 1) { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #7299)" my ($self) = @_; my $r; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #7297)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #7271)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7269)" ($self->{src}) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7270)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7272)" { #line 1 "lib/Message/Util/DIS.dis [b] (Chunk #7287)" local $Error::Depth = $Error::Depth + 1; { #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [b] (Chunk #7285)" #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #7283)" #line 2 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7273)" $r = ($self->{src}-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7274)" owner_document or #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7275)" $self->{src})-> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7276)" implementation #line 3 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7277)" -> #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7278)" get_feature #line 4 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7279)" ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7280)" 'http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode' #line 5 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7281)" => '1.0'); #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7282)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7284)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7286)" } #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7288)" } #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #7291)" #line 7 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7289)" ; unless (defined $r) { #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7290)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7292)" report Message::Util::DIS::ManakaiDISException -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/2005/manakai/Util/DIS#NO_PERL_CODE_IMPL_ERR', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#class' => 'Message::Util::DIS::ManakaiDISPropertyAccessor', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_implementation'; #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [bc] (Chunk #7295)" #line 11 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISPropertyAccessor][@type=ManakaiDOM:Class]/Attr[@Name=plImplementation][@Type=MPLImpl][@type=DISLang:Attribute]/Get[@type=DISLang:AttributeGet]/PerlDef [u] (Chunk #7293)" ; } } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7294)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7296)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7298)" } $r; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7300)" } else { #line 1 "lib/Message/Util/DIS.dis [bc] (Chunk #7301)" 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::ManakaiDISPropertyAccessor', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#attr' => 'pl_implementation'; #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7302)" }} $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::ManakaiDISException; our $VERSION = 20050904.1346; push our @ISA, 'Message::Util::Error::DOMException::ManakaiDOMException'; sub HIERARCHY_REQUEST_ERR () { 3} sub ___error_def () { #line 1 "lib/Message/Util/DIS.dis [u] (Chunk #7303)" {'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_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', ' attribute is not found.'}, '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#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', '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#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', 'The specified resource does not have its Perl 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 #7304)" } 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; package Message::Util::DIS::ManakaiDISExceptionTarget; our $VERSION = 20050904.1346; sub ___report_error ($$) { my ($self, $err) = @_; { #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISExceptionTarget][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [b] (Chunk #7311)" #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISExceptionTarget][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [bc] (Chunk #7309)" if #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISExceptionTarget][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7305)" ($err->isa ( #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7306)" 'Message::Util::Error::DOMException::ManakaiDOMException' #line 1 "/document (lib/Message/Util/DIS.dis)/ClsDef[@QName=ManakaiDISExceptionTarget][@type=ManakaiDOM:Class]/IntMethod[@type=DISLang:Method]/Return[@type=DISLang:MethodReturn]/PerlDef [u] (Chunk #7307)" )) { $err->throw; } else { ## TODO: Implement warning reporting warn $err->stringify; } #line 1 "lib/Message/Util/DIS.dis [/u] (Chunk #7308)" #line 1 "lib/Message/Util/DIS.dis [/bc] (Chunk #7310)" #line 1 "lib/Message/Util/DIS.dis [/b] (Chunk #7312)" } } $Message::DOM::ClassFeature{q} = {'http://suika.fam.cx/~wakaba/archive/2005/manakai/util/dis#core', {'', '1', '1.0', '1'}}; $Message::DOM::ClassPoint{q} = 1; ## License: 1;