package RDF::Trine::Parser::OwlFn::Compiled;
use Parse::RecDescent;
{ my $ERRORS;
package Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled;
use strict;
use vars qw($skip $AUTOLOAD );
$skip = '\s*';
my $OWL = RDF::Trine::Namespace->new('http://www.w3.org/2002/07/owl#');
my $RDFS = RDF::Trine::Namespace->new('http://www.w3.org/2000/01/rdf-schema#');
my $RDF = RDF::Trine::Namespace->new('http://www.w3.org/1999/02/22-rdf-syntax-ns#');
my $XSD = RDF::Trine::Namespace->new('http://www.w3.org/2001/XMLSchema#');
my $declaredAnnotations;
my %Prefixes = (
'rdf:' => $RDF,
'rdfs:' => $RDFS,
'xsd:' => $XSD,
'owl:' => $OWL,
);
sub _list_generator
{
my ($h, $items) = @_;
my ($first, @rest) = @$items;
return $RDF->nil unless $first;
my $rv = RDF::Trine::Node::Blank->new;
$h->($rv, $RDF->first, $first);
$h->($rv, $RDF->rest, _list_generator($h, \@rest));
$rv;
}
my $list_generator = \&_list_generator;
;
{
local $SIG{__WARN__} = sub {0};
# PRETEND TO BE IN Parse::RecDescent NAMESPACE
*Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AUTOLOAD = sub
{
no strict 'refs';
$AUTOLOAD =~ s/^Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled/Parse::RecDescent/;
goto &{$AUTOLOAD};
}
}
push @Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ISA, 'Parse::RecDescent';
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"IRI"};
Parse::RecDescent::_trace(q{Trying rule: [IRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [fullIRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{IRI});
%item = (__RULE__ => q{IRI});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [fullIRI]},
Parse::RecDescent::_tracefirst($text),
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::fullIRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [fullIRI]>>},
Parse::RecDescent::_tracefirst($text),
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [fullIRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
$item{q{fullIRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = RDF::Trine::Node::Resource->new($item{fullIRI}, $thisparser->{BASE_URI}); 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [fullIRI]<<},
Parse::RecDescent::_tracefirst($text),
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [abbreviatedIRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{IRI});
%item = (__RULE__ => q{IRI});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [abbreviatedIRI]},
Parse::RecDescent::_tracefirst($text),
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::abbreviatedIRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [abbreviatedIRI]>>},
Parse::RecDescent::_tracefirst($text),
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [abbreviatedIRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
$item{q{abbreviatedIRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my ($pfx, $sfx) = @{ $item{abbreviatedIRI} };
if ($Prefixes{$pfx})
{
$return = $Prefixes{$pfx}->uri($sfx);
}
else
{
warn "Undefined prefix '${pfx}' at line ${thisline}.";
$return = RDF::Trine::Node::Resource->new($pfx.$sfx);
}
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [abbreviatedIRI]<<},
Parse::RecDescent::_tracefirst($text),
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{IRI},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{IRI},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{IRI},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataMaxCardinality
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataMaxCardinality"};
Parse::RecDescent::_trace(q{Trying rule: [DataMaxCardinality]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataMaxCardinality' '(' nonNegativeInteger DataPropertyExpression DataRange ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataMaxCardinality});
%item = (__RULE__ => q{DataMaxCardinality});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataMaxCardinality']},
Parse::RecDescent::_tracefirst($text),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataMaxCardinality//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [nonNegativeInteger]},
Parse::RecDescent::_tracefirst($text),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{nonNegativeInteger})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::nonNegativeInteger($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [nonNegativeInteger]>>},
Parse::RecDescent::_tracefirst($text),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [nonNegativeInteger]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{nonNegativeInteger}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [DataRange]},
Parse::RecDescent::_tracefirst($text),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{DataRange})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataRange, 0, 1, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [DataRange]>>},
Parse::RecDescent::_tracefirst($text),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [DataRange]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataRange(?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{DataPropertyExpression});
$h->($x, $OWL->maxCardinality, RDF::Trine::Node::Literal->new($item{nonNegativeInteger}, undef, $XSD->nonNegativeInteger->uri));
$h->($x, $OWL->onClass, $item{'ClassExpression(?)'}->[0])
if $item{'ClassExpression(?)'} && @{ $item{'ClassExpression(?)'} };
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataMaxCardinality' '(' nonNegativeInteger DataPropertyExpression DataRange ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataMaxCardinality},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataMaxCardinality},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::abbreviatedIRI
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"abbreviatedIRI"};
Parse::RecDescent::_trace(q{Trying rule: [abbreviatedIRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{abbreviatedIRI},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [PNAME_LN]},
Parse::RecDescent::_tracefirst($_[1]),
q{abbreviatedIRI},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{abbreviatedIRI});
%item = (__RULE__ => q{abbreviatedIRI});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [PNAME_LN]},
Parse::RecDescent::_tracefirst($text),
q{abbreviatedIRI},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::PNAME_LN($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [PNAME_LN]>>},
Parse::RecDescent::_tracefirst($text),
q{abbreviatedIRI},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [PNAME_LN]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{abbreviatedIRI},
$tracelevel)
if defined $::RD_TRACE;
$item{q{PNAME_LN}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{abbreviatedIRI},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = $item{PNAME_LN}; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [PNAME_LN]<<},
Parse::RecDescent::_tracefirst($text),
q{abbreviatedIRI},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{abbreviatedIRI},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{abbreviatedIRI},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{abbreviatedIRI},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{abbreviatedIRI},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnonymousIndividual
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"AnonymousIndividual"};
Parse::RecDescent::_trace(q{Trying rule: [AnonymousIndividual]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnonymousIndividual},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [nodeID]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnonymousIndividual},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{AnonymousIndividual});
%item = (__RULE__ => q{AnonymousIndividual});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [nodeID]},
Parse::RecDescent::_tracefirst($text),
q{AnonymousIndividual},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::nodeID($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [nodeID]>>},
Parse::RecDescent::_tracefirst($text),
q{AnonymousIndividual},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [nodeID]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnonymousIndividual},
$tracelevel)
if defined $::RD_TRACE;
$item{q{nodeID}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{AnonymousIndividual},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = RDF::Trine::Node::Blank->new($thisparser->{BPREFIX}.$item{nodeID}); 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [nodeID]<<},
Parse::RecDescent::_tracefirst($text),
q{AnonymousIndividual},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{AnonymousIndividual},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{AnonymousIndividual},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{AnonymousIndividual},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{AnonymousIndividual},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyAssertion
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectPropertyAssertion"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectPropertyAssertion]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectPropertyAssertion' '(' axiomAnnotations ObjectPropertyExpression sourceIndividual targetIndividual ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyAssertion});
%item = (__RULE__ => q{ObjectPropertyAssertion});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectPropertyAssertion']},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectPropertyAssertion//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [sourceIndividual]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{sourceIndividual})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::sourceIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [sourceIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [sourceIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{sourceIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [targetIndividual]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{targetIndividual})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::targetIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [targetIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [targetIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{targetIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{sourceIndividual}, $item{ObjectPropertyExpression}, $item{targetIndividual}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectPropertyAssertion' '(' axiomAnnotations ObjectPropertyExpression sourceIndividual targetIndividual ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectPropertyAssertion},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectPropertyAssertion},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Assertion
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"Assertion"};
Parse::RecDescent::_trace(q{Trying rule: [Assertion]},
Parse::RecDescent::_tracefirst($_[1]),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [SameIndividual]},
Parse::RecDescent::_tracefirst($_[1]),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{Assertion});
%item = (__RULE__ => q{Assertion});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [SameIndividual]},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::SameIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [SameIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [SameIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{SameIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [SameIndividual]<<},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DifferentIndividuals]},
Parse::RecDescent::_tracefirst($_[1]),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{Assertion});
%item = (__RULE__ => q{Assertion});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DifferentIndividuals]},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DifferentIndividuals($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DifferentIndividuals]>>},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DifferentIndividuals]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DifferentIndividuals}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DifferentIndividuals]<<},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ClassAssertion]},
Parse::RecDescent::_tracefirst($_[1]),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[2];
$text = $_[1];
my $_savetext;
@item = (q{Assertion});
%item = (__RULE__ => q{Assertion});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ClassAssertion]},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassAssertion($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ClassAssertion]>>},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ClassAssertion]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassAssertion}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ClassAssertion]<<},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectPropertyAssertion]},
Parse::RecDescent::_tracefirst($_[1]),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[3];
$text = $_[1];
my $_savetext;
@item = (q{Assertion});
%item = (__RULE__ => q{Assertion});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyAssertion]},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyAssertion($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyAssertion]>>},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyAssertion]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyAssertion}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectPropertyAssertion]<<},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [NegativeObjectPropertyAssertion]},
Parse::RecDescent::_tracefirst($_[1]),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[4];
$text = $_[1];
my $_savetext;
@item = (q{Assertion});
%item = (__RULE__ => q{Assertion});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [NegativeObjectPropertyAssertion]},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::NegativeObjectPropertyAssertion($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [NegativeObjectPropertyAssertion]>>},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [NegativeObjectPropertyAssertion]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{NegativeObjectPropertyAssertion}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [NegativeObjectPropertyAssertion]<<},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataPropertyAssertion]},
Parse::RecDescent::_tracefirst($_[1]),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[5];
$text = $_[1];
my $_savetext;
@item = (q{Assertion});
%item = (__RULE__ => q{Assertion});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyAssertion]},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyAssertion($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyAssertion]>>},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyAssertion]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyAssertion}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataPropertyAssertion]<<},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [NegativeDataPropertyAssertion]},
Parse::RecDescent::_tracefirst($_[1]),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[6];
$text = $_[1];
my $_savetext;
@item = (q{Assertion});
%item = (__RULE__ => q{Assertion});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [NegativeDataPropertyAssertion]},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::NegativeDataPropertyAssertion($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [NegativeDataPropertyAssertion]>>},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [NegativeDataPropertyAssertion]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{NegativeDataPropertyAssertion}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [NegativeDataPropertyAssertion]<<},
Parse::RecDescent::_tracefirst($text),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{Assertion},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{Assertion},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{Assertion},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ontologyIRI
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ontologyIRI"};
Parse::RecDescent::_trace(q{Trying rule: [ontologyIRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{ontologyIRI},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [IRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{ontologyIRI},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ontologyIRI});
%item = (__RULE__ => q{ontologyIRI});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [IRI]},
Parse::RecDescent::_tracefirst($text),
q{ontologyIRI},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [IRI]>>},
Parse::RecDescent::_tracefirst($text),
q{ontologyIRI},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [IRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ontologyIRI},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ontologyIRI},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = $item{IRI}; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [IRI]<<},
Parse::RecDescent::_tracefirst($text),
q{ontologyIRI},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ontologyIRI},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ontologyIRI},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ontologyIRI},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ontologyIRI},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectHasValue
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectHasValue"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectHasValue]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectHasValue' '(' ObjectPropertyExpression Individual ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectHasValue});
%item = (__RULE__ => q{ObjectHasValue});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectHasValue']},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectHasValue//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [Individual]},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{Individual})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Individual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Individual]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Individual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Individual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->hasValue, $item{Individual});
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectHasValue' '(' ObjectPropertyExpression Individual ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectHasValue},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectHasValue},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectHasValue},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyDomain
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataPropertyDomain"};
Parse::RecDescent::_trace(q{Trying rule: [DataPropertyDomain]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataPropertyDomain' '(' axiomAnnotations DataPropertyExpression ClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataPropertyDomain});
%item = (__RULE__ => q{DataPropertyDomain});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataPropertyDomain']},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataPropertyDomain//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ClassExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{DataPropertyExpression}, $RDFS->domain, $item{ClassExpression}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataPropertyDomain' '(' axiomAnnotations DataPropertyExpression ClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataPropertyDomain},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataPropertyDomain},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyDomain
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectPropertyDomain"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectPropertyDomain]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectPropertyDomain' '(' axiomAnnotations ObjectPropertyExpression ClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyDomain});
%item = (__RULE__ => q{ObjectPropertyDomain});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectPropertyDomain']},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectPropertyDomain//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ClassExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{ObjectPropertyExpression}, $RDFS->domain, $item{ClassExpression}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectPropertyDomain' '(' axiomAnnotations ObjectPropertyExpression ClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectPropertyDomain},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectPropertyDomain},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::stringLiteralNoLanguage
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"stringLiteralNoLanguage"};
Parse::RecDescent::_trace(q{Trying rule: [stringLiteralNoLanguage]},
Parse::RecDescent::_tracefirst($_[1]),
q{stringLiteralNoLanguage},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [quotedString]},
Parse::RecDescent::_tracefirst($_[1]),
q{stringLiteralNoLanguage},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{stringLiteralNoLanguage});
%item = (__RULE__ => q{stringLiteralNoLanguage});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [quotedString]},
Parse::RecDescent::_tracefirst($text),
q{stringLiteralNoLanguage},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::quotedString($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [quotedString]>>},
Parse::RecDescent::_tracefirst($text),
q{stringLiteralNoLanguage},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [quotedString]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{stringLiteralNoLanguage},
$tracelevel)
if defined $::RD_TRACE;
$item{q{quotedString}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{stringLiteralNoLanguage},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = RDF::Trine::Node::Literal->new($item{quotedString}); 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [quotedString]<<},
Parse::RecDescent::_tracefirst($text),
q{stringLiteralNoLanguage},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{stringLiteralNoLanguage},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{stringLiteralNoLanguage},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{stringLiteralNoLanguage},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{stringLiteralNoLanguage},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::prefixName
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"prefixName"};
Parse::RecDescent::_trace(q{Trying rule: [prefixName]},
Parse::RecDescent::_tracefirst($_[1]),
q{prefixName},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [PNAME_NS]},
Parse::RecDescent::_tracefirst($_[1]),
q{prefixName},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{prefixName});
%item = (__RULE__ => q{prefixName});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [PNAME_NS]},
Parse::RecDescent::_tracefirst($text),
q{prefixName},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::PNAME_NS($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [PNAME_NS]>>},
Parse::RecDescent::_tracefirst($text),
q{prefixName},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [PNAME_NS]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{prefixName},
$tracelevel)
if defined $::RD_TRACE;
$item{q{PNAME_NS}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{prefixName},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = $item{PNAME_NS}; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [PNAME_NS]<<},
Parse::RecDescent::_tracefirst($text),
q{prefixName},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{prefixName},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{prefixName},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{prefixName},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{prefixName},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::versionIRI
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"versionIRI"};
Parse::RecDescent::_trace(q{Trying rule: [versionIRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{versionIRI},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [IRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{versionIRI},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{versionIRI});
%item = (__RULE__ => q{versionIRI});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying repeated subrule: [IRI]},
Parse::RecDescent::_tracefirst($text),
q{versionIRI},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI, 0, 1, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [IRI]>>},
Parse::RecDescent::_tracefirst($text),
q{versionIRI},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [IRI]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{versionIRI},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IRI(?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{versionIRI},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = $item{'IRI(?)'}->[0]; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [IRI]<<},
Parse::RecDescent::_tracefirst($text),
q{versionIRI},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{versionIRI},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{versionIRI},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{versionIRI},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{versionIRI},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::InverseObjectProperty
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"InverseObjectProperty"};
Parse::RecDescent::_trace(q{Trying rule: [InverseObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{InverseObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectInverseOf' '(' ObjectProperty ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{InverseObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{InverseObjectProperty});
%item = (__RULE__ => q{InverseObjectProperty});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectInverseOf']},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectInverseOf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectProperty]},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectProperty})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $OWL->inverseOf, $item{ObjectProperty});
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectInverseOf' '(' ObjectProperty ')']<<},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{InverseObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{InverseObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{InverseObjectProperty},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{InverseObjectProperty},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassAxiom
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ClassAxiom"};
Parse::RecDescent::_trace(q{Trying rule: [ClassAxiom]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [SubClassOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ClassAxiom});
%item = (__RULE__ => q{ClassAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [SubClassOf]},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::SubClassOf($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [SubClassOf]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [SubClassOf]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{SubClassOf}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [SubClassOf]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [EquivalentClasses]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{ClassAxiom});
%item = (__RULE__ => q{ClassAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [EquivalentClasses]},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::EquivalentClasses($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [EquivalentClasses]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [EquivalentClasses]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{EquivalentClasses}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [EquivalentClasses]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DisjointClasses]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[2];
$text = $_[1];
my $_savetext;
@item = (q{ClassAxiom});
%item = (__RULE__ => q{ClassAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DisjointClasses]},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DisjointClasses($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DisjointClasses]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DisjointClasses]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DisjointClasses}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DisjointClasses]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DisjointUnion]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[3];
$text = $_[1];
my $_savetext;
@item = (q{ClassAxiom});
%item = (__RULE__ => q{ClassAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DisjointUnion]},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DisjointUnion($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DisjointUnion]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DisjointUnion]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DisjointUnion}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DisjointUnion]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ClassAxiom},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ClassAxiom},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ClassAxiom},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationAssertion
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"AnnotationAssertion"};
Parse::RecDescent::_trace(q{Trying rule: [AnnotationAssertion]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['AnnotationAssertion' '(' axiomAnnotations AnnotationProperty AnnotationSubject AnnotationValue ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{AnnotationAssertion});
%item = (__RULE__ => q{AnnotationAssertion});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['AnnotationAssertion']},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AAnnotationAssertion//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [AnnotationProperty]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{AnnotationProperty})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnnotationProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnnotationProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnnotationProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [AnnotationSubject]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{AnnotationSubject})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationSubject($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnnotationSubject]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnnotationSubject]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnnotationSubject}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [AnnotationValue]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{AnnotationValue})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationValue($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnnotationValue]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnnotationValue]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnnotationValue}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{AnnotationSubject}, $item{AnnotationProperty}, $item{AnnotationValue}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['AnnotationAssertion' '(' axiomAnnotations AnnotationProperty AnnotationSubject AnnotationValue ')']<<},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{AnnotationAssertion},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{AnnotationAssertion},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{AnnotationAssertion},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectMaxCardinality
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectMaxCardinality"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectMaxCardinality]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectMaxCardinality' '(' nonNegativeInteger ObjectPropertyExpression ClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectMaxCardinality});
%item = (__RULE__ => q{ObjectMaxCardinality});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectMaxCardinality']},
Parse::RecDescent::_tracefirst($text),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectMaxCardinality//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [nonNegativeInteger]},
Parse::RecDescent::_tracefirst($text),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{nonNegativeInteger})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::nonNegativeInteger($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [nonNegativeInteger]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [nonNegativeInteger]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{nonNegativeInteger}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression, 0, 1, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ClassExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression(?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->maxCardinality, RDF::Trine::Node::Literal->new($item{nonNegativeInteger}, undef, $XSD->nonNegativeInteger->uri));
$h->($x, $OWL->onClass, $item{'ClassExpression(?)'}->[0])
if $item{'ClassExpression(?)'} && @{ $item{'ClassExpression(?)'} };
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectMaxCardinality' '(' nonNegativeInteger ObjectPropertyExpression ClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectMaxCardinality},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectMaxCardinality},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectMaxCardinality},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::EquivalentObjectProperties
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"EquivalentObjectProperties"};
Parse::RecDescent::_trace(q{Trying rule: [EquivalentObjectProperties]},
Parse::RecDescent::_tracefirst($_[1]),
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['EquivalentObjectProperties' '(' axiomAnnotations ObjectPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{EquivalentObjectProperties});
%item = (__RULE__ => q{EquivalentObjectProperties});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['EquivalentObjectProperties']},
Parse::RecDescent::_tracefirst($text),
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AEquivalentObjectProperties//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression, 2, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ObjectPropertyExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression(2..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
foreach my $ce1 (@{ $item{'ObjectPropertyExpression(2..)'} })
{
foreach my $ce2 (@{ $item{'ObjectPropertyExpression(2..)'} })
{
$a->(
$item{axiomAnnotations},
$h->($ce1, $OWL->equivalentProperty, $ce2),
);
}
}
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['EquivalentObjectProperties' '(' axiomAnnotations ObjectPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{EquivalentObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{EquivalentObjectProperties},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{EquivalentObjectProperties},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataMinCardinality
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataMinCardinality"};
Parse::RecDescent::_trace(q{Trying rule: [DataMinCardinality]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataMinCardinality' '(' nonNegativeInteger DataPropertyExpression DataRange ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataMinCardinality});
%item = (__RULE__ => q{DataMinCardinality});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataMinCardinality']},
Parse::RecDescent::_tracefirst($text),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataMinCardinality//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [nonNegativeInteger]},
Parse::RecDescent::_tracefirst($text),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{nonNegativeInteger})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::nonNegativeInteger($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [nonNegativeInteger]>>},
Parse::RecDescent::_tracefirst($text),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [nonNegativeInteger]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{nonNegativeInteger}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [DataRange]},
Parse::RecDescent::_tracefirst($text),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{DataRange})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataRange, 0, 1, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [DataRange]>>},
Parse::RecDescent::_tracefirst($text),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [DataRange]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataRange(?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{DataPropertyExpression});
$h->($x, $OWL->minCardinality, RDF::Trine::Node::Literal->new($item{nonNegativeInteger}, undef, $XSD->nonNegativeInteger->uri));
$h->($x, $OWL->onClass, $item{'ClassExpression(?)'}->[0])
if $item{'ClassExpression(?)'} && @{ $item{'ClassExpression(?)'} };
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataMinCardinality' '(' nonNegativeInteger DataPropertyExpression DataRange ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataMinCardinality},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataMinCardinality},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DatatypeRestriction
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DatatypeRestriction"};
Parse::RecDescent::_trace(q{Trying rule: [DatatypeRestriction]},
Parse::RecDescent::_tracefirst($_[1]),
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DatatypeRestriction' '(' Datatype dtConstraint ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DatatypeRestriction});
%item = (__RULE__ => q{DatatypeRestriction});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DatatypeRestriction']},
Parse::RecDescent::_tracefirst($text),
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADatatypeRestriction//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [Datatype]},
Parse::RecDescent::_tracefirst($text),
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{Datatype})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Datatype($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Datatype]>>},
Parse::RecDescent::_tracefirst($text),
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Datatype]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Datatype}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [dtConstraint]},
Parse::RecDescent::_tracefirst($text),
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{dtConstraint})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::dtConstraint, 1, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [dtConstraint]>>},
Parse::RecDescent::_tracefirst($text),
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [dtConstraint]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
$item{q{dtConstraint(s)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $RDFS->Datatype);
$h->($x, $OWL->onDatatype, $item{Datatype});
my @y;
foreach my $constraint (@{$item{'dtConstraint(s)'}})
{
my $y = RDF::Trine::Node::Blank->new;
$h->($y, @$constraint);
push @y, $y;
}
$h->($x, $OWL->withRestrictions, $list_generator->($h, \@y));
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DatatypeRestriction' '(' Datatype dtConstraint ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DatatypeRestriction},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DatatypeRestriction},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DatatypeRestriction},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Individual
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"Individual"};
Parse::RecDescent::_trace(q{Trying rule: [Individual]},
Parse::RecDescent::_tracefirst($_[1]),
q{Individual},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [NamedIndividual]},
Parse::RecDescent::_tracefirst($_[1]),
q{Individual},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{Individual});
%item = (__RULE__ => q{Individual});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [NamedIndividual]},
Parse::RecDescent::_tracefirst($text),
q{Individual},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::NamedIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [NamedIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{Individual},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [NamedIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Individual},
$tracelevel)
if defined $::RD_TRACE;
$item{q{NamedIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [NamedIndividual]<<},
Parse::RecDescent::_tracefirst($text),
q{Individual},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [AnonymousIndividual]},
Parse::RecDescent::_tracefirst($_[1]),
q{Individual},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{Individual});
%item = (__RULE__ => q{Individual});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [AnonymousIndividual]},
Parse::RecDescent::_tracefirst($text),
q{Individual},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnonymousIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnonymousIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{Individual},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnonymousIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Individual},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnonymousIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [AnonymousIndividual]<<},
Parse::RecDescent::_tracefirst($text),
q{Individual},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{Individual},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{Individual},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{Individual},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{Individual},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ClassExpression"};
Parse::RecDescent::_trace(q{Trying rule: [ClassExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [Class]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [Class]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Class($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Class]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Class]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Class}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [Class]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectIntersectionOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectIntersectionOf]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectIntersectionOf($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectIntersectionOf]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectIntersectionOf]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectIntersectionOf}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectIntersectionOf]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectUnionOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[2];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectUnionOf]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectUnionOf($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectUnionOf]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectUnionOf]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectUnionOf}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectUnionOf]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectComplementOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[3];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectComplementOf]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectComplementOf($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectComplementOf]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectComplementOf]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectComplementOf}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectComplementOf]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectOneOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[4];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectOneOf]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectOneOf($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectOneOf]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectOneOf]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectOneOf}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectOneOf]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectSomeValuesFrom]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[5];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectSomeValuesFrom]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectSomeValuesFrom($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectSomeValuesFrom]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectSomeValuesFrom]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectSomeValuesFrom}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectSomeValuesFrom]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectAllValuesFrom]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[6];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectAllValuesFrom]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectAllValuesFrom($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectAllValuesFrom]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectAllValuesFrom]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectAllValuesFrom}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectAllValuesFrom]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectHasValue]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[7];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectHasValue]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectHasValue($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectHasValue]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectHasValue]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectHasValue}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectHasValue]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectHasSelf]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[8];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectHasSelf]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectHasSelf($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectHasSelf]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectHasSelf]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectHasSelf}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectHasSelf]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectMinCardinality]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[9];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectMinCardinality]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectMinCardinality($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectMinCardinality]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectMinCardinality]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectMinCardinality}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectMinCardinality]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectMaxCardinality]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[10];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectMaxCardinality]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectMaxCardinality($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectMaxCardinality]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectMaxCardinality]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectMaxCardinality}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectMaxCardinality]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectExactCardinality]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[11];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectExactCardinality]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectExactCardinality($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectExactCardinality]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectExactCardinality]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectExactCardinality}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectExactCardinality]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataSomeValuesFrom]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[12];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataSomeValuesFrom]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataSomeValuesFrom($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataSomeValuesFrom]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataSomeValuesFrom]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataSomeValuesFrom}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataSomeValuesFrom]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataAllValuesFrom]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[13];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataAllValuesFrom]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataAllValuesFrom($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataAllValuesFrom]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataAllValuesFrom]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataAllValuesFrom}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataAllValuesFrom]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataHasValue]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[14];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataHasValue]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataHasValue($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataHasValue]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataHasValue]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataHasValue}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataHasValue]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataMinCardinality]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[15];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataMinCardinality]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataMinCardinality($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataMinCardinality]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataMinCardinality]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataMinCardinality}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataMinCardinality]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataMaxCardinality]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[16];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataMaxCardinality]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataMaxCardinality($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataMaxCardinality]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataMaxCardinality]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataMaxCardinality}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataMaxCardinality]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataExactCardinality]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[17];
$text = $_[1];
my $_savetext;
@item = (q{ClassExpression});
%item = (__RULE__ => q{ClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataExactCardinality]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataExactCardinality($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataExactCardinality]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataExactCardinality]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataExactCardinality}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataExactCardinality]<<},
Parse::RecDescent::_tracefirst($text),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ClassExpression},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ClassExpression},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::annotationAnnotations
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"annotationAnnotations"};
Parse::RecDescent::_trace(q{Trying rule: [annotationAnnotations]},
Parse::RecDescent::_tracefirst($_[1]),
q{annotationAnnotations},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [Annotation]},
Parse::RecDescent::_tracefirst($_[1]),
q{annotationAnnotations},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{annotationAnnotations});
%item = (__RULE__ => q{annotationAnnotations});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying repeated subrule: [Annotation]},
Parse::RecDescent::_tracefirst($text),
q{annotationAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Annotation, 0, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [Annotation]>>},
Parse::RecDescent::_tracefirst($text),
q{annotationAnnotations},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Annotation]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{annotationAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Annotation(s?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{annotationAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = $item{'Annotation(s?)'}; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [Annotation]<<},
Parse::RecDescent::_tracefirst($text),
q{annotationAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{annotationAnnotations},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{annotationAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{annotationAnnotations},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{annotationAnnotations},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataPropertyExpression"};
Parse::RecDescent::_trace(q{Trying rule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataPropertyExpression});
%item = (__RULE__ => q{DataPropertyExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataProperty]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataProperty]<<},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataPropertyExpression},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataPropertyExpression},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationPropertyRange
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"AnnotationPropertyRange"};
Parse::RecDescent::_trace(q{Trying rule: [AnnotationPropertyRange]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['AnnotationPropertyRange' '(' axiomAnnotations AnnotationProperty IRI ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{AnnotationPropertyRange});
%item = (__RULE__ => q{AnnotationPropertyRange});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['AnnotationPropertyRange']},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AAnnotationPropertyRange//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [AnnotationProperty]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{AnnotationProperty})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnnotationProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnnotationProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnnotationProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [IRI]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{IRI})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [IRI]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [IRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{AnnotationProperty}, $RDFS->range, $item{IRI}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['AnnotationPropertyRange' '(' axiomAnnotations AnnotationProperty IRI ')']<<},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{AnnotationPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{AnnotationPropertyRange},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{AnnotationPropertyRange},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::directlyImportsDocuments
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"directlyImportsDocuments"};
Parse::RecDescent::_trace(q{Trying rule: [directlyImportsDocuments]},
Parse::RecDescent::_tracefirst($_[1]),
q{directlyImportsDocuments},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [importStatement]},
Parse::RecDescent::_tracefirst($_[1]),
q{directlyImportsDocuments},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{directlyImportsDocuments});
%item = (__RULE__ => q{directlyImportsDocuments});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying repeated subrule: [importStatement]},
Parse::RecDescent::_tracefirst($text),
q{directlyImportsDocuments},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::importStatement, 0, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [importStatement]>>},
Parse::RecDescent::_tracefirst($text),
q{directlyImportsDocuments},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [importStatement]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{directlyImportsDocuments},
$tracelevel)
if defined $::RD_TRACE;
$item{q{importStatement(s?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{directlyImportsDocuments},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = $item{'importStatement(s?)'}; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [importStatement]<<},
Parse::RecDescent::_tracefirst($text),
q{directlyImportsDocuments},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{directlyImportsDocuments},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{directlyImportsDocuments},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{directlyImportsDocuments},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{directlyImportsDocuments},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::languageTag
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"languageTag"};
Parse::RecDescent::_trace(q{Trying rule: [languageTag]},
Parse::RecDescent::_tracefirst($_[1]),
q{languageTag},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['@' /[A-Z0-9]\{1,8\}(?:-[A-Z0-9]\{1,8\})*/i]},
Parse::RecDescent::_tracefirst($_[1]),
q{languageTag},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{languageTag});
%item = (__RULE__ => q{languageTag});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['@']},
Parse::RecDescent::_tracefirst($text),
q{languageTag},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\@//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: [/[A-Z0-9]\{1,8\}(?:-[A-Z0-9]\{1,8\})*/i]}, Parse::RecDescent::_tracefirst($text),
q{languageTag},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{/[A-Z0-9]\{1,8\}(?:-[A-Z0-9]\{1,8\})*/i})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A(?:[A-Z0-9]{1,8}(?:-[A-Z0-9]{1,8})*)//i)
{
$expectation->failed();
Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__PATTERN1__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{languageTag},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = $item{__PATTERN1__}; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['@' /[A-Z0-9]\{1,8\}(?:-[A-Z0-9]\{1,8\})*/i]<<},
Parse::RecDescent::_tracefirst($text),
q{languageTag},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{languageTag},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{languageTag},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{languageTag},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{languageTag},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::targetValue
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"targetValue"};
Parse::RecDescent::_trace(q{Trying rule: [targetValue]},
Parse::RecDescent::_tracefirst($_[1]),
q{targetValue},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [Literal]},
Parse::RecDescent::_tracefirst($_[1]),
q{targetValue},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{targetValue});
%item = (__RULE__ => q{targetValue});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [Literal]},
Parse::RecDescent::_tracefirst($text),
q{targetValue},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Literal($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Literal]>>},
Parse::RecDescent::_tracefirst($text),
q{targetValue},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Literal]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{targetValue},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Literal}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [Literal]<<},
Parse::RecDescent::_tracefirst($text),
q{targetValue},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{targetValue},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{targetValue},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{targetValue},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{targetValue},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::NegativeDataPropertyAssertion
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"NegativeDataPropertyAssertion"};
Parse::RecDescent::_trace(q{Trying rule: [NegativeDataPropertyAssertion]},
Parse::RecDescent::_tracefirst($_[1]),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['NegativeDataPropertyAssertion' '(' axiomAnnotations DataPropertyExpression sourceIndividual targetValue ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{NegativeDataPropertyAssertion});
%item = (__RULE__ => q{NegativeDataPropertyAssertion});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['NegativeDataPropertyAssertion']},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ANegativeDataPropertyAssertion//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [sourceIndividual]},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{sourceIndividual})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::sourceIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [sourceIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [sourceIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{sourceIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [targetValue]},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{targetValue})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::targetValue($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [targetValue]>>},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [targetValue]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{targetValue}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->NegativePropertyAssertion);
$h->($x, $OWL->sourceIndividual, $item{sourceIndividual});
$h->($x, $OWL->assertionProperty, $item{DataPropertyExpression});
$h->($x, $OWL->targetValue, $item{targetValue});
my $a = $thisparser->{ANNOTATE};
$a->($item{axiomAnnotations}, $x);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['NegativeDataPropertyAssertion' '(' axiomAnnotations DataPropertyExpression sourceIndividual targetValue ')']<<},
Parse::RecDescent::_tracefirst($text),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{NegativeDataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{NegativeDataPropertyAssertion},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{NegativeDataPropertyAssertion},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectUnionOf
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectUnionOf"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectUnionOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectUnionOf},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectUnionOf' '(' ClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectUnionOf},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectUnionOf});
%item = (__RULE__ => q{ObjectUnionOf});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectUnionOf']},
Parse::RecDescent::_tracefirst($text),
q{ObjectUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectUnionOf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ObjectUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying repeated subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression, 2, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectUnionOf},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ClassExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{ObjectUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression(2..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ObjectUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ObjectUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $list = $list_generator->($h, $item{'ClassExpression(2..)'});
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Class);
$h->($x, $OWL->unionOf, $list);
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectUnionOf' '(' ClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectUnionOf},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectUnionOf},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectUnionOf},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationPropertyDomain
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"AnnotationPropertyDomain"};
Parse::RecDescent::_trace(q{Trying rule: [AnnotationPropertyDomain]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['AnnotationPropertyDomain' '(' axiomAnnotations AnnotationProperty IRI ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{AnnotationPropertyDomain});
%item = (__RULE__ => q{AnnotationPropertyDomain});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['AnnotationPropertyDomain']},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AAnnotationPropertyDomain//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [AnnotationProperty]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{AnnotationProperty})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnnotationProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnnotationProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnnotationProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [IRI]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{IRI})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [IRI]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [IRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{AnnotationProperty}, $RDFS->domain, $item{IRI}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['AnnotationPropertyDomain' '(' axiomAnnotations AnnotationProperty IRI ')']<<},
Parse::RecDescent::_tracefirst($text),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{AnnotationPropertyDomain},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{AnnotationPropertyDomain},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{AnnotationPropertyDomain},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataAllValuesFrom
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataAllValuesFrom"};
Parse::RecDescent::_trace(q{Trying rule: [DataAllValuesFrom]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataAllValuesFrom' '(' DataPropertyExpression DataRange ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataAllValuesFrom});
%item = (__RULE__ => q{DataAllValuesFrom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataAllValuesFrom']},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataAllValuesFrom//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [DataRange]},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataRange})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataRange($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataRange]>>},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataRange]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataRange}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{DataPropertyExpression});
$h->($x, $OWL->allValuesFrom, $item{DataRange});
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataAllValuesFrom' '(' DataPropertyExpression DataRange ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataAllValuesFrom' '(' DataPropertyExpression DataRange ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{DataAllValuesFrom});
%item = (__RULE__ => q{DataAllValuesFrom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataAllValuesFrom']},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataAllValuesFrom//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying repeated subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression, 2, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [DataPropertyExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression(2..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying subrule: [DataRange]},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataRange})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataRange($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataRange]>>},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataRange]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataRange}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->(
$x,
$OWL->onProperties,
$list_generator->($h, $item{'DataPropertyExpression(2)'}),
);
$h->($x, $OWL->allValuesFrom, $item{DataRange});
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataAllValuesFrom' '(' DataPropertyExpression DataRange ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataAllValuesFrom},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataAllValuesFrom},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectComplementOf
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectComplementOf"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectComplementOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectComplementOf},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectComplementOf' '(' ClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectComplementOf},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectComplementOf});
%item = (__RULE__ => q{ObjectComplementOf});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectComplementOf']},
Parse::RecDescent::_tracefirst($text),
q{ObjectComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectComplementOf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ObjectComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectComplementOf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ClassExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ObjectComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ObjectComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Class);
$h->($x, $OWL->complementOf, $item{ClassExpression});
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectComplementOf' '(' ClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectComplementOf},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectComplementOf},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectComplementOf},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Class
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"Class"};
Parse::RecDescent::_trace(q{Trying rule: [Class]},
Parse::RecDescent::_tracefirst($_[1]),
q{Class},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [IRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{Class},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{Class});
%item = (__RULE__ => q{Class});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [IRI]},
Parse::RecDescent::_tracefirst($text),
q{Class},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [IRI]>>},
Parse::RecDescent::_tracefirst($text),
q{Class},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [IRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Class},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [IRI]<<},
Parse::RecDescent::_tracefirst($text),
q{Class},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{Class},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{Class},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{Class},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{Class},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::quotedString
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"quotedString"};
Parse::RecDescent::_trace(q{Trying rule: [quotedString]},
Parse::RecDescent::_tracefirst($_[1]),
q{quotedString},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['"' /(?:\\\\\\\\|\\\\"|[^\\\\\\\\\\\\"])*/ '"']},
Parse::RecDescent::_tracefirst($_[1]),
q{quotedString},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{quotedString});
%item = (__RULE__ => q{quotedString});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['"']},
Parse::RecDescent::_tracefirst($text),
q{quotedString},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\"//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: [/(?:\\\\\\\\|\\\\"|[^\\\\\\\\\\\\"])*/]}, Parse::RecDescent::_tracefirst($text),
q{quotedString},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{/(?:\\\\\\\\|\\\\"|[^\\\\\\\\\\\\"])*/})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A(?:(?:\\\\|\\"|[^\\\\\\"])*)//)
{
$expectation->failed();
Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__PATTERN1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['"']},
Parse::RecDescent::_tracefirst($text),
q{quotedString},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'"'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\"//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{quotedString},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
$return = $item{__PATTERN1__};
$return =~ s/\\([\\\"])/$1/g;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['"' /(?:\\\\\\\\|\\\\"|[^\\\\\\\\\\\\"])*/ '"']<<},
Parse::RecDescent::_tracefirst($text),
q{quotedString},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{quotedString},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{quotedString},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{quotedString},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{quotedString},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::superClassExpression
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"superClassExpression"};
Parse::RecDescent::_trace(q{Trying rule: [superClassExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{superClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ClassExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{superClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{superClassExpression});
%item = (__RULE__ => q{superClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{superClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{superClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ClassExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{superClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ClassExpression]<<},
Parse::RecDescent::_tracefirst($text),
q{superClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{superClassExpression},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{superClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{superClassExpression},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{superClassExpression},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataSomeValuesFrom
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataSomeValuesFrom"};
Parse::RecDescent::_trace(q{Trying rule: [DataSomeValuesFrom]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataSomeValuesFrom' '(' DataPropertyExpression DataRange ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataSomeValuesFrom});
%item = (__RULE__ => q{DataSomeValuesFrom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataSomeValuesFrom']},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataSomeValuesFrom//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [DataRange]},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataRange})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataRange($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataRange]>>},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataRange]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataRange}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{DataPropertyExpression});
$h->($x, $OWL->someValuesFrom, $item{DataRange});
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataSomeValuesFrom' '(' DataPropertyExpression DataRange ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataSomeValuesFrom' '(' DataPropertyExpression DataRange ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{DataSomeValuesFrom});
%item = (__RULE__ => q{DataSomeValuesFrom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataSomeValuesFrom']},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataSomeValuesFrom//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying repeated subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression, 2, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [DataPropertyExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression(2..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying subrule: [DataRange]},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataRange})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataRange($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataRange]>>},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataRange]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataRange}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->(
$x,
$OWL->onProperties,
$list_generator->($h, $item{'DataPropertyExpression(2)'}),
);
$h->($x, $OWL->someValuesFrom, $item{DataRange});
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataSomeValuesFrom' '(' DataPropertyExpression DataRange ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataSomeValuesFrom},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataSomeValuesFrom},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Axiom
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"Axiom"};
Parse::RecDescent::_trace(q{Trying rule: [Axiom]},
Parse::RecDescent::_tracefirst($_[1]),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [Declaration]},
Parse::RecDescent::_tracefirst($_[1]),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{Axiom});
%item = (__RULE__ => q{Axiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [Declaration]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Declaration($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Declaration]>>},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Declaration]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Declaration}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [Declaration]<<},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ClassAxiom]},
Parse::RecDescent::_tracefirst($_[1]),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{Axiom});
%item = (__RULE__ => q{Axiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ClassAxiom]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassAxiom($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ClassAxiom]>>},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ClassAxiom]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassAxiom}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ClassAxiom]<<},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectPropertyAxiom]},
Parse::RecDescent::_tracefirst($_[1]),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[2];
$text = $_[1];
my $_savetext;
@item = (q{Axiom});
%item = (__RULE__ => q{Axiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyAxiom]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyAxiom($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyAxiom]>>},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyAxiom]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyAxiom}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectPropertyAxiom]<<},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataPropertyAxiom]},
Parse::RecDescent::_tracefirst($_[1]),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[3];
$text = $_[1];
my $_savetext;
@item = (q{Axiom});
%item = (__RULE__ => q{Axiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyAxiom]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyAxiom($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyAxiom]>>},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyAxiom]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyAxiom}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataPropertyAxiom]<<},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DatatypeDefinition]},
Parse::RecDescent::_tracefirst($_[1]),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[4];
$text = $_[1];
my $_savetext;
@item = (q{Axiom});
%item = (__RULE__ => q{Axiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DatatypeDefinition]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DatatypeDefinition($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DatatypeDefinition]>>},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DatatypeDefinition]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DatatypeDefinition}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DatatypeDefinition]<<},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [HasKey]},
Parse::RecDescent::_tracefirst($_[1]),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[5];
$text = $_[1];
my $_savetext;
@item = (q{Axiom});
%item = (__RULE__ => q{Axiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [HasKey]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::HasKey($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [HasKey]>>},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [HasKey]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{HasKey}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [HasKey]<<},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [Assertion]},
Parse::RecDescent::_tracefirst($_[1]),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[6];
$text = $_[1];
my $_savetext;
@item = (q{Axiom});
%item = (__RULE__ => q{Axiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [Assertion]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Assertion($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Assertion]>>},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Assertion]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Assertion}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [Assertion]<<},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [AnnotationAxiom]},
Parse::RecDescent::_tracefirst($_[1]),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[7];
$text = $_[1];
my $_savetext;
@item = (q{Axiom});
%item = (__RULE__ => q{Axiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [AnnotationAxiom]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationAxiom($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnnotationAxiom]>>},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnnotationAxiom]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnnotationAxiom}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [AnnotationAxiom]<<},
Parse::RecDescent::_tracefirst($text),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{Axiom},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{Axiom},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{Axiom},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ontologyAnnotations
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ontologyAnnotations"};
Parse::RecDescent::_trace(q{Trying rule: [ontologyAnnotations]},
Parse::RecDescent::_tracefirst($_[1]),
q{ontologyAnnotations},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [Annotation]},
Parse::RecDescent::_tracefirst($_[1]),
q{ontologyAnnotations},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ontologyAnnotations});
%item = (__RULE__ => q{ontologyAnnotations});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying repeated subrule: [Annotation]},
Parse::RecDescent::_tracefirst($text),
q{ontologyAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Annotation, 0, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [Annotation]>>},
Parse::RecDescent::_tracefirst($text),
q{ontologyAnnotations},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Annotation]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{ontologyAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Annotation(s?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ontologyAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = ref $item{'Annotation(s?)'} eq 'ARRAY' ? $item{'Annotation(s?)'} : []; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [Annotation]<<},
Parse::RecDescent::_tracefirst($text),
q{ontologyAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ontologyAnnotations},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ontologyAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ontologyAnnotations},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ontologyAnnotations},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::FunctionalDataProperty
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"FunctionalDataProperty"};
Parse::RecDescent::_trace(q{Trying rule: [FunctionalDataProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['FunctionalDataProperty' '(' axiomAnnotations DataPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{FunctionalDataProperty});
%item = (__RULE__ => q{FunctionalDataProperty});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['FunctionalDataProperty']},
Parse::RecDescent::_tracefirst($text),
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AFunctionalDataProperty//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{DataPropertyExpression}, $RDF->type, $OWL->FunctionalProperty),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['FunctionalDataProperty' '(' axiomAnnotations DataPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{FunctionalDataProperty},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{FunctionalDataProperty},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{FunctionalDataProperty},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Datatype
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"Datatype"};
Parse::RecDescent::_trace(q{Trying rule: [Datatype]},
Parse::RecDescent::_tracefirst($_[1]),
q{Datatype},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [IRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{Datatype},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{Datatype});
%item = (__RULE__ => q{Datatype});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [IRI]},
Parse::RecDescent::_tracefirst($text),
q{Datatype},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [IRI]>>},
Parse::RecDescent::_tracefirst($text),
q{Datatype},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [IRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Datatype},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [IRI]<<},
Parse::RecDescent::_tracefirst($text),
q{Datatype},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{Datatype},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{Datatype},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{Datatype},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{Datatype},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyRange
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectPropertyRange"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectPropertyRange]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectPropertyRange' '(' axiomAnnotations ObjectPropertyExpression ClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyRange});
%item = (__RULE__ => q{ObjectPropertyRange});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectPropertyRange']},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectPropertyRange//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ClassExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{ObjectPropertyExpression}, $RDFS->range, $item{ClassExpression}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectPropertyRange' '(' axiomAnnotations ObjectPropertyExpression ClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectPropertyRange},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectPropertyRange},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationValue
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"AnnotationValue"};
Parse::RecDescent::_trace(q{Trying rule: [AnnotationValue]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [AnonymousIndividual]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{AnnotationValue});
%item = (__RULE__ => q{AnnotationValue});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [AnonymousIndividual]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnonymousIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnonymousIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnonymousIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnonymousIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [AnonymousIndividual]<<},
Parse::RecDescent::_tracefirst($text),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [IRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{AnnotationValue});
%item = (__RULE__ => q{AnnotationValue});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [IRI]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [IRI]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [IRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [IRI]<<},
Parse::RecDescent::_tracefirst($text),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [Literal]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[2];
$text = $_[1];
my $_savetext;
@item = (q{AnnotationValue});
%item = (__RULE__ => q{AnnotationValue});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [Literal]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Literal($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Literal]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Literal]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Literal}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [Literal]<<},
Parse::RecDescent::_tracefirst($text),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{AnnotationValue},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{AnnotationValue},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{AnnotationValue},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DifferentIndividuals
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DifferentIndividuals"};
Parse::RecDescent::_trace(q{Trying rule: [DifferentIndividuals]},
Parse::RecDescent::_tracefirst($_[1]),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DifferentIndividuals' '(' axiomAnnotations sourceIndividual targetIndividual ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DifferentIndividuals});
%item = (__RULE__ => q{DifferentIndividuals});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DifferentIndividuals']},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADifferentIndividuals//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [sourceIndividual]},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{sourceIndividual})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::sourceIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [sourceIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [sourceIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$item{q{sourceIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [targetIndividual]},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{targetIndividual})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::targetIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [targetIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [targetIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$item{q{targetIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{sourceIndividual}, $OWL->differentFrom, $item{targetIndividual}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DifferentIndividuals' '(' axiomAnnotations sourceIndividual targetIndividual ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DifferentIndividuals' '(' axiomAnnotations Individual ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{DifferentIndividuals});
%item = (__RULE__ => q{DifferentIndividuals});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DifferentIndividuals']},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADifferentIndividuals//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [Individual]},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{Individual})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Individual, 2, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [Individual]>>},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Individual]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Individual(2..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{>>Matched production: ['DifferentIndividuals' '(' axiomAnnotations Individual ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DifferentIndividuals},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DifferentIndividuals},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DifferentIndividuals},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AsymmetricObjectProperty
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"AsymmetricObjectProperty"};
Parse::RecDescent::_trace(q{Trying rule: [AsymmetricObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['AsymmetricObjectProperty' '(' axiomAnnotations ObjectPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{AsymmetricObjectProperty});
%item = (__RULE__ => q{AsymmetricObjectProperty});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['AsymmetricObjectProperty']},
Parse::RecDescent::_tracefirst($text),
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AAsymmetricObjectProperty//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{'ObjectPropertyExpression'}, $RDF->type, $OWL->AsymmetricProperty),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['AsymmetricObjectProperty' '(' axiomAnnotations ObjectPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{AsymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{AsymmetricObjectProperty},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{AsymmetricObjectProperty},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::versioningIRIs
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"versioningIRIs"};
Parse::RecDescent::_trace(q{Trying rule: [versioningIRIs]},
Parse::RecDescent::_tracefirst($_[1]),
q{versioningIRIs},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ontologyIRI versionIRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{versioningIRIs},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{versioningIRIs});
%item = (__RULE__ => q{versioningIRIs});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ontologyIRI]},
Parse::RecDescent::_tracefirst($text),
q{versioningIRIs},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ontologyIRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ontologyIRI]>>},
Parse::RecDescent::_tracefirst($text),
q{versioningIRIs},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ontologyIRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{versioningIRIs},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ontologyIRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [versionIRI]},
Parse::RecDescent::_tracefirst($text),
q{versioningIRIs},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{versionIRI})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::versionIRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [versionIRI]>>},
Parse::RecDescent::_tracefirst($text),
q{versioningIRIs},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [versionIRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{versioningIRIs},
$tracelevel)
if defined $::RD_TRACE;
$item{q{versionIRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{versioningIRIs},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = [$item{ontologyIRI}, $item{versionIRI}]; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [ontologyIRI versionIRI]<<},
Parse::RecDescent::_tracefirst($text),
q{versioningIRIs},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{versioningIRIs},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{versioningIRIs},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{versioningIRIs},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{versioningIRIs},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ReflexiveObjectProperty
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ReflexiveObjectProperty"};
Parse::RecDescent::_trace(q{Trying rule: [ReflexiveObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ReflexiveObjectProperty' '(' axiomAnnotations ObjectPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ReflexiveObjectProperty});
%item = (__RULE__ => q{ReflexiveObjectProperty});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ReflexiveObjectProperty']},
Parse::RecDescent::_tracefirst($text),
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AReflexiveObjectProperty//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{'ObjectPropertyExpression'}, $RDF->type, $OWL->ReflexiveProperty),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ReflexiveObjectProperty' '(' axiomAnnotations ObjectPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ReflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ReflexiveObjectProperty},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ReflexiveObjectProperty},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataOneOf
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataOneOf"};
Parse::RecDescent::_trace(q{Trying rule: [DataOneOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataOneOf},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataOneOf' '(' Literal ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataOneOf},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataOneOf});
%item = (__RULE__ => q{DataOneOf});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataOneOf']},
Parse::RecDescent::_tracefirst($text),
q{DataOneOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataOneOf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataOneOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying repeated subrule: [Literal]},
Parse::RecDescent::_tracefirst($text),
q{DataOneOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{Literal})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Literal, 2, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [Literal]>>},
Parse::RecDescent::_tracefirst($text),
q{DataOneOf},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Literal]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DataOneOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Literal(2..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataOneOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataOneOf},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $list = $list_generator->($h, $item{'Literal(2..)'});
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $RDFS->Datatype);
$h->($x, $OWL->oneOf, $list);
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataOneOf' '(' Literal ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataOneOf},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataOneOf},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataOneOf},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataOneOf},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataOneOf},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectExactCardinality
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectExactCardinality"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectExactCardinality]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectExactCardinality' '(' nonNegativeInteger ObjectPropertyExpression ClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectExactCardinality});
%item = (__RULE__ => q{ObjectExactCardinality});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectExactCardinality']},
Parse::RecDescent::_tracefirst($text),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectExactCardinality//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [nonNegativeInteger]},
Parse::RecDescent::_tracefirst($text),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{nonNegativeInteger})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::nonNegativeInteger($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [nonNegativeInteger]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [nonNegativeInteger]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{nonNegativeInteger}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression, 0, 1, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ClassExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression(?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->cardinality, RDF::Trine::Node::Literal->new($item{nonNegativeInteger}, undef, $XSD->nonNegativeInteger->uri));
$h->($x, $OWL->onClass, $item{'ClassExpression(?)'}->[0])
if $item{'ClassExpression(?)'} && @{ $item{'ClassExpression(?)'} };
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectExactCardinality' '(' nonNegativeInteger ObjectPropertyExpression ClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectExactCardinality},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectExactCardinality},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::SubObjectPropertyOf
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"SubObjectPropertyOf"};
Parse::RecDescent::_trace(q{Trying rule: [SubObjectPropertyOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['SubObjectPropertyOf' '(' axiomAnnotations subObjectPropertyExpression superObjectPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{SubObjectPropertyOf});
%item = (__RULE__ => q{SubObjectPropertyOf});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['SubObjectPropertyOf']},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ASubObjectPropertyOf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [subObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{subObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::subObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [subObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [subObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{subObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [superObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{superObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::superObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [superObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [superObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{superObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{subObjectPropertyExpression}, $RDFS->subPropertyOf, $item{superObjectPropertyExpression}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['SubObjectPropertyOf' '(' axiomAnnotations subObjectPropertyExpression superObjectPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['SubObjectPropertyOf' '(' axiomAnnotations 'ObjectPropertyChain' '(' ObjectPropertyExpression ')' superObjectPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{SubObjectPropertyOf});
%item = (__RULE__ => q{SubObjectPropertyOf});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['SubObjectPropertyOf']},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ASubObjectPropertyOf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectPropertyChain']},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'ObjectPropertyChain'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectPropertyChain//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING4__}=$&;
Parse::RecDescent::_trace(q{Trying repeated subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression, 2, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ObjectPropertyExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression(2..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING5__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [superObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{superObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::superObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [superObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [superObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{superObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING6__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
my $list = $list_generator->($h, $item{'ObjectPropertyExpression(2..)'});
$a->(
$item{axiomAnnotations},
$h->($item{superObjectPropertyExpression}, $OWL->propertyChainAxiom, $list),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['SubObjectPropertyOf' '(' axiomAnnotations 'ObjectPropertyChain' '(' ObjectPropertyExpression ')' superObjectPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{SubObjectPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{SubObjectPropertyOf},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{SubObjectPropertyOf},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::stringLiteralWithLanguage
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"stringLiteralWithLanguage"};
Parse::RecDescent::_trace(q{Trying rule: [stringLiteralWithLanguage]},
Parse::RecDescent::_tracefirst($_[1]),
q{stringLiteralWithLanguage},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [quotedString languageTag]},
Parse::RecDescent::_tracefirst($_[1]),
q{stringLiteralWithLanguage},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{stringLiteralWithLanguage});
%item = (__RULE__ => q{stringLiteralWithLanguage});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [quotedString]},
Parse::RecDescent::_tracefirst($text),
q{stringLiteralWithLanguage},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::quotedString($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [quotedString]>>},
Parse::RecDescent::_tracefirst($text),
q{stringLiteralWithLanguage},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [quotedString]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{stringLiteralWithLanguage},
$tracelevel)
if defined $::RD_TRACE;
$item{q{quotedString}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [languageTag]},
Parse::RecDescent::_tracefirst($text),
q{stringLiteralWithLanguage},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{languageTag})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::languageTag($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [languageTag]>>},
Parse::RecDescent::_tracefirst($text),
q{stringLiteralWithLanguage},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [languageTag]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{stringLiteralWithLanguage},
$tracelevel)
if defined $::RD_TRACE;
$item{q{languageTag}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{stringLiteralWithLanguage},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = RDF::Trine::Node::Literal->new($item{quotedString}, $item{languageTag}); 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [quotedString languageTag]<<},
Parse::RecDescent::_tracefirst($text),
q{stringLiteralWithLanguage},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{stringLiteralWithLanguage},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{stringLiteralWithLanguage},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{stringLiteralWithLanguage},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{stringLiteralWithLanguage},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::nodeID
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"nodeID"};
Parse::RecDescent::_trace(q{Trying rule: [nodeID]},
Parse::RecDescent::_tracefirst($_[1]),
q{nodeID},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['_:' PN_LOCAL]},
Parse::RecDescent::_tracefirst($_[1]),
q{nodeID},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{nodeID});
%item = (__RULE__ => q{nodeID});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['_:']},
Parse::RecDescent::_tracefirst($text),
q{nodeID},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A_\://)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [PN_LOCAL]},
Parse::RecDescent::_tracefirst($text),
q{nodeID},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{PN_LOCAL})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::PN_LOCAL($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [PN_LOCAL]>>},
Parse::RecDescent::_tracefirst($text),
q{nodeID},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [PN_LOCAL]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{nodeID},
$tracelevel)
if defined $::RD_TRACE;
$item{q{PN_LOCAL}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{nodeID},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = $item{PN_LOCAL}; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['_:' PN_LOCAL]<<},
Parse::RecDescent::_tracefirst($text),
q{nodeID},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{nodeID},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{nodeID},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{nodeID},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{nodeID},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::PN_LOCAL
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"PN_LOCAL"};
Parse::RecDescent::_trace(q{Trying rule: [PN_LOCAL]},
Parse::RecDescent::_tracefirst($_[1]),
q{PN_LOCAL},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [/(?:[A-Z0-9_]|[\\x\{00C0\}-\\x\{00D6\}]|[\\x\{00D8\}-\\x\{00F6\}]|[\\x\{00F8\}-\\x\{02FF\}]|[\\x\{0370\}-\\x\{037D\}]|[\\x\{037F\}-\\x\{1FFF\}]|[\\x\{200C\}-\\x\{200D\}]|[\\x\{2070\}-\\x\{218F\}]|[\\x\{2C00\}-\\x\{2FEF\}]|[\\x\{3001\}-\\x\{D7FF\}]|[\\x\{F900\}-\\x\{FDCF\}]|[\\x\{FDF0\}-\\x\{FFFD\}]|[\\x\{10000\}-\\x\{EFFFF\}])*/i]},
Parse::RecDescent::_tracefirst($_[1]),
q{PN_LOCAL},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{PN_LOCAL});
%item = (__RULE__ => q{PN_LOCAL});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: [/(?:[A-Z0-9_]|[\\x\{00C0\}-\\x\{00D6\}]|[\\x\{00D8\}-\\x\{00F6\}]|[\\x\{00F8\}-\\x\{02FF\}]|[\\x\{0370\}-\\x\{037D\}]|[\\x\{037F\}-\\x\{1FFF\}]|[\\x\{200C\}-\\x\{200D\}]|[\\x\{2070\}-\\x\{218F\}]|[\\x\{2C00\}-\\x\{2FEF\}]|[\\x\{3001\}-\\x\{D7FF\}]|[\\x\{F900\}-\\x\{FDCF\}]|[\\x\{FDF0\}-\\x\{FFFD\}]|[\\x\{10000\}-\\x\{EFFFF\}])*/i]}, Parse::RecDescent::_tracefirst($text),
q{PN_LOCAL},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A(?:(?:[A-Z0-9_]|[\x{00C0}-\x{00D6}]|[\x{00D8}-\x{00F6}]|[\x{00F8}-\x{02FF}]|[\x{0370}-\x{037D}]|[\x{037F}-\x{1FFF}]|[\x{200C}-\x{200D}]|[\x{2070}-\x{218F}]|[\x{2C00}-\x{2FEF}]|[\x{3001}-\x{D7FF}]|[\x{F900}-\x{FDCF}]|[\x{FDF0}-\x{FFFD}]|[\x{10000}-\x{EFFFF}])*)//i)
{
$expectation->failed();
Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__PATTERN1__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{PN_LOCAL},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = $item{__PATTERN1__}; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [/(?:[A-Z0-9_]|[\\x\{00C0\}-\\x\{00D6\}]|[\\x\{00D8\}-\\x\{00F6\}]|[\\x\{00F8\}-\\x\{02FF\}]|[\\x\{0370\}-\\x\{037D\}]|[\\x\{037F\}-\\x\{1FFF\}]|[\\x\{200C\}-\\x\{200D\}]|[\\x\{2070\}-\\x\{218F\}]|[\\x\{2C00\}-\\x\{2FEF\}]|[\\x\{3001\}-\\x\{D7FF\}]|[\\x\{F900\}-\\x\{FDCF\}]|[\\x\{FDF0\}-\\x\{FFFD\}]|[\\x\{10000\}-\\x\{EFFFF\}])*/i]<<},
Parse::RecDescent::_tracefirst($text),
q{PN_LOCAL},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{PN_LOCAL},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{PN_LOCAL},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{PN_LOCAL},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{PN_LOCAL},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::HasKey
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"HasKey"};
Parse::RecDescent::_trace(q{Trying rule: [HasKey]},
Parse::RecDescent::_tracefirst($_[1]),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['HasKey' '(' axiomAnnotations ClassExpression '(' ObjectPropertyExpression ')' '(' DataPropertyExpression ')' ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{HasKey});
%item = (__RULE__ => q{HasKey});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['HasKey']},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AHasKey//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ClassExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying repeated subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression, 0, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ObjectPropertyExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression(s?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING4__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING5__}=$&;
Parse::RecDescent::_trace(q{Trying repeated subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression, 0, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [DataPropertyExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression(s?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING6__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING7__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
my @list_items;
push @list_items, @{$item{'ObjectPropertyExpression(s?)'}}
if ref $item{'ObjectPropertyExpression(s?)'} eq 'ARRAY'
&& @{ $item{'ObjectPropertyExpression(s?)'} };
push @list_items, @{$item{'DataPropertyExpression(s?)'}}
if ref $item{'DataPropertyExpression(s?)'} eq 'ARRAY'
&& @{ $item{'DataPropertyExpression(s?)'} };
my $list = $list_generator->($h, \@list_items);
$a->(
$item{axiomAnnotations},
$h->($item{ClassExpression}, $OWL->hasKey, $list),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['HasKey' '(' axiomAnnotations ClassExpression '(' ObjectPropertyExpression ')' '(' DataPropertyExpression ')' ')']<<},
Parse::RecDescent::_tracefirst($text),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{HasKey},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{HasKey},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{HasKey},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::prefixDeclaration
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"prefixDeclaration"};
Parse::RecDescent::_trace(q{Trying rule: [prefixDeclaration]},
Parse::RecDescent::_tracefirst($_[1]),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['Prefix' '(' prefixName '=' fullIRI ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{prefixDeclaration});
%item = (__RULE__ => q{prefixDeclaration});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['Prefix']},
Parse::RecDescent::_tracefirst($text),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\APrefix//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [prefixName]},
Parse::RecDescent::_tracefirst($text),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{prefixName})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::prefixName($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [prefixName]>>},
Parse::RecDescent::_tracefirst($text),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [prefixName]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
$item{q{prefixName}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: ['=']},
Parse::RecDescent::_tracefirst($text),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'='})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\=//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [fullIRI]},
Parse::RecDescent::_tracefirst($text),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{fullIRI})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::fullIRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [fullIRI]>>},
Parse::RecDescent::_tracefirst($text),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [fullIRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
$item{q{fullIRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING4__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
if (defined $Prefixes{ $item{prefixName} })
{
warn(sprintf("Ignoring attempt to redeclare prefix '%s'.", $item{prefixName}));
}
else
{
my $u = RDF::Trine::Node::Resource->new($item{fullIRI}, $thisparser->{BASE_URI});
$Prefixes{ $item{prefixName} } = RDF::Trine::Namespace->new($u->uri);
$thisparser->{PREFIX}->($item{prefixName}, $item{fullIRI});
}
$return = \%item;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['Prefix' '(' prefixName '=' fullIRI ')']<<},
Parse::RecDescent::_tracefirst($text),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{prefixDeclaration},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{prefixDeclaration},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{prefixDeclaration},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::dtConstraint
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"dtConstraint"};
Parse::RecDescent::_trace(q{Trying rule: [dtConstraint]},
Parse::RecDescent::_tracefirst($_[1]),
q{dtConstraint},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [constrainingFacet restrictionValue]},
Parse::RecDescent::_tracefirst($_[1]),
q{dtConstraint},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{dtConstraint});
%item = (__RULE__ => q{dtConstraint});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [constrainingFacet]},
Parse::RecDescent::_tracefirst($text),
q{dtConstraint},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::constrainingFacet($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [constrainingFacet]>>},
Parse::RecDescent::_tracefirst($text),
q{dtConstraint},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [constrainingFacet]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{dtConstraint},
$tracelevel)
if defined $::RD_TRACE;
$item{q{constrainingFacet}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [restrictionValue]},
Parse::RecDescent::_tracefirst($text),
q{dtConstraint},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{restrictionValue})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::restrictionValue($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [restrictionValue]>>},
Parse::RecDescent::_tracefirst($text),
q{dtConstraint},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [restrictionValue]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{dtConstraint},
$tracelevel)
if defined $::RD_TRACE;
$item{q{restrictionValue}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{dtConstraint},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = [ $item{constrainingFacet}, $item{restrictionValue} ]; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [constrainingFacet restrictionValue]<<},
Parse::RecDescent::_tracefirst($text),
q{dtConstraint},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{dtConstraint},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{dtConstraint},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{dtConstraint},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{dtConstraint},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::constrainingFacet
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"constrainingFacet"};
Parse::RecDescent::_trace(q{Trying rule: [constrainingFacet]},
Parse::RecDescent::_tracefirst($_[1]),
q{constrainingFacet},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [IRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{constrainingFacet},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{constrainingFacet});
%item = (__RULE__ => q{constrainingFacet});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [IRI]},
Parse::RecDescent::_tracefirst($text),
q{constrainingFacet},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [IRI]>>},
Parse::RecDescent::_tracefirst($text),
q{constrainingFacet},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [IRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{constrainingFacet},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [IRI]<<},
Parse::RecDescent::_tracefirst($text),
q{constrainingFacet},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{constrainingFacet},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{constrainingFacet},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{constrainingFacet},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{constrainingFacet},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::superAnnotationProperty
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"superAnnotationProperty"};
Parse::RecDescent::_trace(q{Trying rule: [superAnnotationProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{superAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [AnnotationProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{superAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{superAnnotationProperty});
%item = (__RULE__ => q{superAnnotationProperty});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [AnnotationProperty]},
Parse::RecDescent::_tracefirst($text),
q{superAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnnotationProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{superAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnnotationProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{superAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnnotationProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [AnnotationProperty]<<},
Parse::RecDescent::_tracefirst($text),
q{superAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{superAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{superAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{superAnnotationProperty},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{superAnnotationProperty},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::InverseObjectProperties
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"InverseObjectProperties"};
Parse::RecDescent::_trace(q{Trying rule: [InverseObjectProperties]},
Parse::RecDescent::_tracefirst($_[1]),
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['InverseObjectProperties' '(' axiomAnnotations ObjectPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{InverseObjectProperties});
%item = (__RULE__ => q{InverseObjectProperties});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['InverseObjectProperties']},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AInverseObjectProperties//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression, 2, 2, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ObjectPropertyExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression(2)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{'ObjectPropertyExpression(2)'}->[0], $OWL->inverseOf, $item{'ObjectPropertyExpression(2)'}->[1]),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['InverseObjectProperties' '(' axiomAnnotations ObjectPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{InverseObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{InverseObjectProperties},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{InverseObjectProperties},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectMinCardinality
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectMinCardinality"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectMinCardinality]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectMinCardinality' '(' nonNegativeInteger ObjectPropertyExpression ClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectMinCardinality});
%item = (__RULE__ => q{ObjectMinCardinality});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectMinCardinality']},
Parse::RecDescent::_tracefirst($text),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectMinCardinality//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [nonNegativeInteger]},
Parse::RecDescent::_tracefirst($text),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{nonNegativeInteger})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::nonNegativeInteger($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [nonNegativeInteger]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [nonNegativeInteger]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{nonNegativeInteger}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression, 0, 1, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ClassExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression(?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->minCardinality, RDF::Trine::Node::Literal->new($item{nonNegativeInteger}, undef, $XSD->nonNegativeInteger->uri));
$h->($x, $OWL->onClass, $item{'ClassExpression(?)'}->[0])
if $item{'ClassExpression(?)'} && @{ $item{'ClassExpression(?)'} };
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectMinCardinality' '(' nonNegativeInteger ObjectPropertyExpression ClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectMinCardinality},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectMinCardinality},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectMinCardinality},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectHasSelf
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectHasSelf"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectHasSelf]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectHasSelf},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectHasSelf' '(' ObjectPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectHasSelf},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectHasSelf});
%item = (__RULE__ => q{ObjectHasSelf});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectHasSelf']},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasSelf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectHasSelf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasSelf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasSelf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasSelf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasSelf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasSelf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasSelf},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->hasSelf, RDF::Trine::Node::Literal->new('true', undef, $XSD->boolean->uri));
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectHasSelf' '(' ObjectPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectHasSelf},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectHasSelf},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectHasSelf},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectHasSelf},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectHasSelf},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DatatypeDefinition
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DatatypeDefinition"};
Parse::RecDescent::_trace(q{Trying rule: [DatatypeDefinition]},
Parse::RecDescent::_tracefirst($_[1]),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DatatypeDefinition' '(' axiomAnnotations Datatype DataRange ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DatatypeDefinition});
%item = (__RULE__ => q{DatatypeDefinition});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DatatypeDefinition']},
Parse::RecDescent::_tracefirst($text),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADatatypeDefinition//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [Datatype]},
Parse::RecDescent::_tracefirst($text),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{Datatype})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Datatype($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Datatype]>>},
Parse::RecDescent::_tracefirst($text),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Datatype]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Datatype}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [DataRange]},
Parse::RecDescent::_tracefirst($text),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataRange})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataRange($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataRange]>>},
Parse::RecDescent::_tracefirst($text),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataRange]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataRange}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{Datatype}, $OWL->equivalentClass, $item{DataRange}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DatatypeDefinition' '(' axiomAnnotations Datatype DataRange ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DatatypeDefinition},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DatatypeDefinition},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DatatypeDefinition},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::TransitiveObjectProperty
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"TransitiveObjectProperty"};
Parse::RecDescent::_trace(q{Trying rule: [TransitiveObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['TransitiveObjectProperty' '(' axiomAnnotations ObjectPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{TransitiveObjectProperty});
%item = (__RULE__ => q{TransitiveObjectProperty});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['TransitiveObjectProperty']},
Parse::RecDescent::_tracefirst($text),
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ATransitiveObjectProperty//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{'ObjectPropertyExpression'}, $RDF->type, $OWL->TransitiveProperty),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['TransitiveObjectProperty' '(' axiomAnnotations ObjectPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{TransitiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{TransitiveObjectProperty},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{TransitiveObjectProperty},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectPropertyExpression"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyExpression});
%item = (__RULE__ => q{ObjectPropertyExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectProperty]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectProperty]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [InverseObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyExpression});
%item = (__RULE__ => q{ObjectPropertyExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [InverseObjectProperty]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::InverseObjectProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [InverseObjectProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [InverseObjectProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{InverseObjectProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [InverseObjectProperty]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectPropertyExpression},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectPropertyExpression},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::PNAME_NS
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"PNAME_NS"};
Parse::RecDescent::_trace(q{Trying rule: [PNAME_NS]},
Parse::RecDescent::_tracefirst($_[1]),
q{PNAME_NS},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [/(?:[A-Z](?:[A-Z0-9_]|[\\x\{00C0\}-\\x\{00D6\}]|[\\x\{00D8\}-\\x\{00F6\}]|[\\x\{00F8\}-\\x\{02FF\}]|[\\x\{0370\}-\\x\{037D\}]|[\\x\{037F\}-\\x\{1FFF\}]|[\\x\{200C\}-\\x\{200D\}]|[\\x\{2070\}-\\x\{218F\}]|[\\x\{2C00\}-\\x\{2FEF\}]|[\\x\{3001\}-\\x\{D7FF\}]|[\\x\{F900\}-\\x\{FDCF\}]|[\\x\{FDF0\}-\\x\{FFFD\}]|[\\x\{10000\}-\\x\{EFFFF\}])*)?:/i]},
Parse::RecDescent::_tracefirst($_[1]),
q{PNAME_NS},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{PNAME_NS});
%item = (__RULE__ => q{PNAME_NS});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: [/(?:[A-Z](?:[A-Z0-9_]|[\\x\{00C0\}-\\x\{00D6\}]|[\\x\{00D8\}-\\x\{00F6\}]|[\\x\{00F8\}-\\x\{02FF\}]|[\\x\{0370\}-\\x\{037D\}]|[\\x\{037F\}-\\x\{1FFF\}]|[\\x\{200C\}-\\x\{200D\}]|[\\x\{2070\}-\\x\{218F\}]|[\\x\{2C00\}-\\x\{2FEF\}]|[\\x\{3001\}-\\x\{D7FF\}]|[\\x\{F900\}-\\x\{FDCF\}]|[\\x\{FDF0\}-\\x\{FFFD\}]|[\\x\{10000\}-\\x\{EFFFF\}])*)?:/i]}, Parse::RecDescent::_tracefirst($text),
q{PNAME_NS},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A(?:(?:[A-Z](?:[A-Z0-9_]|[\x{00C0}-\x{00D6}]|[\x{00D8}-\x{00F6}]|[\x{00F8}-\x{02FF}]|[\x{0370}-\x{037D}]|[\x{037F}-\x{1FFF}]|[\x{200C}-\x{200D}]|[\x{2070}-\x{218F}]|[\x{2C00}-\x{2FEF}]|[\x{3001}-\x{D7FF}]|[\x{F900}-\x{FDCF}]|[\x{FDF0}-\x{FFFD}]|[\x{10000}-\x{EFFFF}])*)?:)//i)
{
$expectation->failed();
Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__PATTERN1__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{PNAME_NS},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = $item{__PATTERN1__}; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [/(?:[A-Z](?:[A-Z0-9_]|[\\x\{00C0\}-\\x\{00D6\}]|[\\x\{00D8\}-\\x\{00F6\}]|[\\x\{00F8\}-\\x\{02FF\}]|[\\x\{0370\}-\\x\{037D\}]|[\\x\{037F\}-\\x\{1FFF\}]|[\\x\{200C\}-\\x\{200D\}]|[\\x\{2070\}-\\x\{218F\}]|[\\x\{2C00\}-\\x\{2FEF\}]|[\\x\{3001\}-\\x\{D7FF\}]|[\\x\{F900\}-\\x\{FDCF\}]|[\\x\{FDF0\}-\\x\{FFFD\}]|[\\x\{10000\}-\\x\{EFFFF\}])*)?:/i]<<},
Parse::RecDescent::_tracefirst($text),
q{PNAME_NS},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{PNAME_NS},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{PNAME_NS},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{PNAME_NS},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{PNAME_NS},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Annotation
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"Annotation"};
Parse::RecDescent::_trace(q{Trying rule: [Annotation]},
Parse::RecDescent::_tracefirst($_[1]),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['Annotation' '(' annotationAnnotations AnnotationProperty AnnotationValue ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{Annotation});
%item = (__RULE__ => q{Annotation});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['Annotation']},
Parse::RecDescent::_tracefirst($text),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AAnnotation//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [annotationAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{annotationAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::annotationAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [annotationAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [annotationAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
$item{q{annotationAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [AnnotationProperty]},
Parse::RecDescent::_tracefirst($text),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{AnnotationProperty})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnnotationProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnnotationProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnnotationProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [AnnotationValue]},
Parse::RecDescent::_tracefirst($text),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{AnnotationValue})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationValue($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnnotationValue]>>},
Parse::RecDescent::_tracefirst($text),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnnotationValue]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnnotationValue}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
$return = {
template => RDF::Trine::Statement->new(
RDF::Trine::Node::Variable->new('subject'),
$item{AnnotationProperty},
$item{AnnotationValue},
),
annotationAnnotations => $item{annotationAnnotations}
};
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['Annotation' '(' annotationAnnotations AnnotationProperty AnnotationValue ')']<<},
Parse::RecDescent::_tracefirst($text),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{Annotation},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{Annotation},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{Annotation},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Ontology
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"Ontology"};
Parse::RecDescent::_trace(q{Trying rule: [Ontology]},
Parse::RecDescent::_tracefirst($_[1]),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['Ontology' '(' versioningIRIs directlyImportsDocuments ontologyAnnotations axioms ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{Ontology});
%item = (__RULE__ => q{Ontology});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['Ontology']},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AOntology//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying repeated subrule: [versioningIRIs]},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{versioningIRIs})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::versioningIRIs, 0, 1, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [versioningIRIs]>>},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [versioningIRIs]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
$item{q{versioningIRIs(?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying subrule: [directlyImportsDocuments]},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{directlyImportsDocuments})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::directlyImportsDocuments($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [directlyImportsDocuments]>>},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [directlyImportsDocuments]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
$item{q{directlyImportsDocuments}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ontologyAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ontologyAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ontologyAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ontologyAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ontologyAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ontologyAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [axioms]},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axioms})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axioms($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axioms]>>},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axioms]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axioms}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my ($ont_iri, $ver_iri) =
$item{'versioningIRIs(?)'}->[0] && @{ $item{'versioningIRIs(?)'}->[0] }
? @{ $item{'versioningIRIs(?)'}->[0] }
: (RDF::Trine::Node::Blank->new);
$h->($ont_iri, $RDF->type, $OWL->Ontology);
if (ref $ver_iri)
{
$h->($ont_iri, $OWL->versionIRI, $ver_iri);
}
foreach my $st (@{ $item{'directlyImportsDocuments'} })
{
my $import = $st->bind_variables({ ontology => $ont_iri });
$h->($import);
}
foreach my $ann (@{ $item{'ontologyAnnotations'} })
{
my $st = $ann->{template}->bind_variables({ subject => $ont_iri });
$h->($st, 2);
if (ref $ann->{annotationAnnotations} eq 'ARRAY'
and @{ $ann->{annotationAnnotations} })
{
$thisparser->{ANNOTATE}->($ann->{annotationAnnotations}, $st, 4);
}
}
$return = \%item;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['Ontology' '(' versioningIRIs directlyImportsDocuments ontologyAnnotations axioms ')']<<},
Parse::RecDescent::_tracefirst($text),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{Ontology},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{Ontology},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{Ontology},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationSubject
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"AnnotationSubject"};
Parse::RecDescent::_trace(q{Trying rule: [AnnotationSubject]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationSubject},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [IRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationSubject},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{AnnotationSubject});
%item = (__RULE__ => q{AnnotationSubject});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [IRI]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationSubject},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [IRI]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationSubject},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [IRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationSubject},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [IRI]<<},
Parse::RecDescent::_tracefirst($text),
q{AnnotationSubject},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [AnonymousIndividual]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationSubject},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{AnnotationSubject});
%item = (__RULE__ => q{AnnotationSubject});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [AnonymousIndividual]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationSubject},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnonymousIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnonymousIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationSubject},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnonymousIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationSubject},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnonymousIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [AnonymousIndividual]<<},
Parse::RecDescent::_tracefirst($text),
q{AnnotationSubject},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationSubject},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{AnnotationSubject},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{AnnotationSubject},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{AnnotationSubject},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::subClassExpression
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"subClassExpression"};
Parse::RecDescent::_trace(q{Trying rule: [subClassExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{subClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ClassExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{subClassExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{subClassExpression});
%item = (__RULE__ => q{subClassExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{subClassExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{subClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ClassExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{subClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ClassExpression]<<},
Parse::RecDescent::_tracefirst($text),
q{subClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{subClassExpression},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{subClassExpression},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{subClassExpression},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{subClassExpression},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::booleanLiteral
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"booleanLiteral"};
Parse::RecDescent::_trace(q{Trying rule: [booleanLiteral]},
Parse::RecDescent::_tracefirst($_[1]),
q{booleanLiteral},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [/(true|false|yes|no)/i]},
Parse::RecDescent::_tracefirst($_[1]),
q{booleanLiteral},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{booleanLiteral});
%item = (__RULE__ => q{booleanLiteral});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: [/(true|false|yes|no)/i]}, Parse::RecDescent::_tracefirst($text),
q{booleanLiteral},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A(?:(true|false|yes|no))//i)
{
$expectation->failed();
Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__PATTERN1__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{booleanLiteral},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
if ($item{__PATTERN1__} =~ /(true|yes)/i)
{ $return = RDF::Trine::Node::Literal->new('true', undef, $XSD->boolean->uri); }
elsif ($item{__PATTERN1__} =~ /(false|no)/i)
{ $return = RDF::Trine::Node::Literal->new('false', undef, $XSD->boolean->uri); }
else
{ die "huh?"; }
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [/(true|false|yes|no)/i]<<},
Parse::RecDescent::_tracefirst($text),
q{booleanLiteral},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{booleanLiteral},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{booleanLiteral},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{booleanLiteral},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{booleanLiteral},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DisjointDataProperties
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DisjointDataProperties"};
Parse::RecDescent::_trace(q{Trying rule: [DisjointDataProperties]},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DisjointDataProperties' '(' axiomAnnotations DataPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DisjointDataProperties});
%item = (__RULE__ => q{DisjointDataProperties});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DisjointDataProperties']},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADisjointDataProperties//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression, 2, 2, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [DataPropertyExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression(2)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{'DataPropertyExpression(2)'}->[0], $OWL->propertyDisjointWith, $item{'DataPropertyExpression(2)'}->[1]),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DisjointDataProperties' '(' axiomAnnotations DataPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DisjointDataProperties' '(' axiomAnnotations DataPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{DisjointDataProperties});
%item = (__RULE__ => q{DisjointDataProperties});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DisjointDataProperties']},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADisjointDataProperties//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression, 3, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [DataPropertyExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression(3..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
my $x = RDF::Trine::Node::Blank->new;
my $list = $list_generator->($h, $item{'DataPropertyExpression(3..)'});
$h->($x, $RDF->type, $OWL->AllDisjointProperties);
$h->($x, $OWL->members, $list);
$a->($item{axiomAnnotations}, $x);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DisjointDataProperties' '(' axiomAnnotations DataPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DisjointDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DisjointDataProperties},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DisjointDataProperties},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataUnionOf
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataUnionOf"};
Parse::RecDescent::_trace(q{Trying rule: [DataUnionOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataUnionOf},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataUnionOf' '(' DataRange ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataUnionOf},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataUnionOf});
%item = (__RULE__ => q{DataUnionOf});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataUnionOf']},
Parse::RecDescent::_tracefirst($text),
q{DataUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataUnionOf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying repeated subrule: [DataRange]},
Parse::RecDescent::_tracefirst($text),
q{DataUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{DataRange})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataRange, 2, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [DataRange]>>},
Parse::RecDescent::_tracefirst($text),
q{DataUnionOf},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [DataRange]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DataUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataRange(2..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $list = $list_generator->($h, $item{'DataRange(2..)'});
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $RDFS->Datatype);
$h->($x, $OWL->unionOf, $list);
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataUnionOf' '(' DataRange ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataUnionOf},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataUnionOf},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataUnionOf},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataUnionOf},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IrreflexiveObjectProperty
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"IrreflexiveObjectProperty"};
Parse::RecDescent::_trace(q{Trying rule: [IrreflexiveObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['IrreflexiveObjectProperty' '(' axiomAnnotations ObjectPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{IrreflexiveObjectProperty});
%item = (__RULE__ => q{IrreflexiveObjectProperty});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['IrreflexiveObjectProperty']},
Parse::RecDescent::_tracefirst($text),
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AIrreflexiveObjectProperty//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{'ObjectPropertyExpression'}, $RDF->type, $OWL->IrreflexiveProperty),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['IrreflexiveObjectProperty' '(' axiomAnnotations ObjectPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{IrreflexiveObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{IrreflexiveObjectProperty},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{IrreflexiveObjectProperty},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::SymmetricObjectProperty
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"SymmetricObjectProperty"};
Parse::RecDescent::_trace(q{Trying rule: [SymmetricObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['SymmetricObjectProperty' '(' axiomAnnotations ObjectPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{SymmetricObjectProperty});
%item = (__RULE__ => q{SymmetricObjectProperty});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['SymmetricObjectProperty']},
Parse::RecDescent::_tracefirst($text),
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ASymmetricObjectProperty//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{'ObjectPropertyExpression'}, $RDF->type, $OWL->SymmetricProperty),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['SymmetricObjectProperty' '(' axiomAnnotations ObjectPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{SymmetricObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{SymmetricObjectProperty},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{SymmetricObjectProperty},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectOneOf
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectOneOf"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectOneOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectOneOf},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectOneOf' '(' Individual ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectOneOf},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectOneOf});
%item = (__RULE__ => q{ObjectOneOf});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectOneOf']},
Parse::RecDescent::_tracefirst($text),
q{ObjectOneOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectOneOf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ObjectOneOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying repeated subrule: [Individual]},
Parse::RecDescent::_tracefirst($text),
q{ObjectOneOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{Individual})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Individual, 1, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [Individual]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectOneOf},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Individual]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{ObjectOneOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Individual(s)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ObjectOneOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ObjectOneOf},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $list = $list_generator->($h, $item{'ClassExpression(2..)'});
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Class);
$h->($x, $OWL->oneOf, $list);
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectOneOf' '(' Individual ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectOneOf},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectOneOf},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectOneOf},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectOneOf},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectOneOf},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::nonNegativeInteger
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"nonNegativeInteger"};
Parse::RecDescent::_trace(q{Trying rule: [nonNegativeInteger]},
Parse::RecDescent::_tracefirst($_[1]),
q{nonNegativeInteger},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [/\\d+/]},
Parse::RecDescent::_tracefirst($_[1]),
q{nonNegativeInteger},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{nonNegativeInteger});
%item = (__RULE__ => q{nonNegativeInteger});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: [/\\d+/]}, Parse::RecDescent::_tracefirst($text),
q{nonNegativeInteger},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A(?:\d+)//)
{
$expectation->failed();
Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__PATTERN1__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{nonNegativeInteger},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = $item{__PATTERN1__}; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [/\\d+/]<<},
Parse::RecDescent::_tracefirst($text),
q{nonNegativeInteger},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{nonNegativeInteger},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{nonNegativeInteger},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{nonNegativeInteger},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{nonNegativeInteger},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::sourceIndividual
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"sourceIndividual"};
Parse::RecDescent::_trace(q{Trying rule: [sourceIndividual]},
Parse::RecDescent::_tracefirst($_[1]),
q{sourceIndividual},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [Individual]},
Parse::RecDescent::_tracefirst($_[1]),
q{sourceIndividual},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{sourceIndividual});
%item = (__RULE__ => q{sourceIndividual});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [Individual]},
Parse::RecDescent::_tracefirst($text),
q{sourceIndividual},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Individual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Individual]>>},
Parse::RecDescent::_tracefirst($text),
q{sourceIndividual},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Individual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{sourceIndividual},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Individual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [Individual]<<},
Parse::RecDescent::_tracefirst($text),
q{sourceIndividual},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{sourceIndividual},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{sourceIndividual},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{sourceIndividual},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{sourceIndividual},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::subAnnotationProperty
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"subAnnotationProperty"};
Parse::RecDescent::_trace(q{Trying rule: [subAnnotationProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{subAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [AnnotationProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{subAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{subAnnotationProperty});
%item = (__RULE__ => q{subAnnotationProperty});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [AnnotationProperty]},
Parse::RecDescent::_tracefirst($text),
q{subAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnnotationProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{subAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnnotationProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{subAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnnotationProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [AnnotationProperty]<<},
Parse::RecDescent::_tracefirst($text),
q{subAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{subAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{subAnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{subAnnotationProperty},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{subAnnotationProperty},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::NamedIndividual
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"NamedIndividual"};
Parse::RecDescent::_trace(q{Trying rule: [NamedIndividual]},
Parse::RecDescent::_tracefirst($_[1]),
q{NamedIndividual},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [IRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{NamedIndividual},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{NamedIndividual});
%item = (__RULE__ => q{NamedIndividual});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [IRI]},
Parse::RecDescent::_tracefirst($text),
q{NamedIndividual},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [IRI]>>},
Parse::RecDescent::_tracefirst($text),
q{NamedIndividual},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [IRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{NamedIndividual},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [IRI]<<},
Parse::RecDescent::_tracefirst($text),
q{NamedIndividual},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{NamedIndividual},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{NamedIndividual},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{NamedIndividual},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{NamedIndividual},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::targetIndividual
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"targetIndividual"};
Parse::RecDescent::_trace(q{Trying rule: [targetIndividual]},
Parse::RecDescent::_tracefirst($_[1]),
q{targetIndividual},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [Individual]},
Parse::RecDescent::_tracefirst($_[1]),
q{targetIndividual},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{targetIndividual});
%item = (__RULE__ => q{targetIndividual});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [Individual]},
Parse::RecDescent::_tracefirst($text),
q{targetIndividual},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Individual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Individual]>>},
Parse::RecDescent::_tracefirst($text),
q{targetIndividual},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Individual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{targetIndividual},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Individual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [Individual]<<},
Parse::RecDescent::_tracefirst($text),
q{targetIndividual},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{targetIndividual},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{targetIndividual},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{targetIndividual},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{targetIndividual},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataIntersectionOf
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataIntersectionOf"};
Parse::RecDescent::_trace(q{Trying rule: [DataIntersectionOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataIntersectionOf' '(' DataRange ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataIntersectionOf});
%item = (__RULE__ => q{DataIntersectionOf});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataIntersectionOf']},
Parse::RecDescent::_tracefirst($text),
q{DataIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataIntersectionOf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying repeated subrule: [DataRange]},
Parse::RecDescent::_tracefirst($text),
q{DataIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{DataRange})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataRange, 2, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [DataRange]>>},
Parse::RecDescent::_tracefirst($text),
q{DataIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [DataRange]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DataIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataRange(2..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $list = $list_generator->($h, $item{'DataRange(2..)'});
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $RDFS->Datatype);
$h->($x, $OWL->intersectionOf, $list);
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataIntersectionOf' '(' DataRange ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataIntersectionOf},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataIntersectionOf},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::EquivalentClasses
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"EquivalentClasses"};
Parse::RecDescent::_trace(q{Trying rule: [EquivalentClasses]},
Parse::RecDescent::_tracefirst($_[1]),
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['EquivalentClasses' '(' axiomAnnotations ClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{EquivalentClasses});
%item = (__RULE__ => q{EquivalentClasses});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['EquivalentClasses']},
Parse::RecDescent::_tracefirst($text),
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AEquivalentClasses//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression, 2, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ClassExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression(2..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
foreach my $ce1 (@{ $item{'ClassExpression(2..)'} })
{
foreach my $ce2 (@{ $item{'ClassExpression(2..)'} })
{
$a->(
$item{axiomAnnotations},
$h->($ce1, $OWL->equivalentClass, $ce2),
);
}
}
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['EquivalentClasses' '(' axiomAnnotations ClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{EquivalentClasses},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{EquivalentClasses},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{EquivalentClasses},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataHasValue
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataHasValue"};
Parse::RecDescent::_trace(q{Trying rule: [DataHasValue]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataHasValue' '(' DataPropertyExpression Literal ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataHasValue});
%item = (__RULE__ => q{DataHasValue});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataHasValue']},
Parse::RecDescent::_tracefirst($text),
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataHasValue//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [Literal]},
Parse::RecDescent::_tracefirst($text),
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{Literal})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Literal($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Literal]>>},
Parse::RecDescent::_tracefirst($text),
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Literal]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Literal}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{DataPropertyExpression});
$h->($x, $OWL->hasValue, $item{Literal});
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataHasValue' '(' DataPropertyExpression Literal ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataHasValue},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataHasValue},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataHasValue},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::importStatement
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"importStatement"};
Parse::RecDescent::_trace(q{Trying rule: [importStatement]},
Parse::RecDescent::_tracefirst($_[1]),
q{importStatement},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['Import' '(' IRI ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{importStatement},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{importStatement});
%item = (__RULE__ => q{importStatement});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['Import']},
Parse::RecDescent::_tracefirst($text),
q{importStatement},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AImport//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{importStatement},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [IRI]},
Parse::RecDescent::_tracefirst($text),
q{importStatement},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{IRI})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [IRI]>>},
Parse::RecDescent::_tracefirst($text),
q{importStatement},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [IRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{importStatement},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{importStatement},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{importStatement},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
$return = RDF::Trine::Statement->new(
RDF::Trine::Node::Variable->new('ontology'),
$OWL->imports,
$item{IRI},
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['Import' '(' IRI ')']<<},
Parse::RecDescent::_tracefirst($text),
q{importStatement},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{importStatement},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{importStatement},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{importStatement},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{importStatement},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataRange
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataRange"};
Parse::RecDescent::_trace(q{Trying rule: [DataRange]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [Datatype]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataRange});
%item = (__RULE__ => q{DataRange});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [Datatype]},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Datatype($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Datatype]>>},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Datatype]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Datatype}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [Datatype]<<},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataIntersectionOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{DataRange});
%item = (__RULE__ => q{DataRange});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataIntersectionOf]},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataIntersectionOf($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataIntersectionOf]>>},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataIntersectionOf]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataIntersectionOf}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataIntersectionOf]<<},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataUnionOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[2];
$text = $_[1];
my $_savetext;
@item = (q{DataRange});
%item = (__RULE__ => q{DataRange});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataUnionOf]},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataUnionOf($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataUnionOf]>>},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataUnionOf]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataUnionOf}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataUnionOf]<<},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataComplementOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[3];
$text = $_[1];
my $_savetext;
@item = (q{DataRange});
%item = (__RULE__ => q{DataRange});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataComplementOf]},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataComplementOf($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataComplementOf]>>},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataComplementOf]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataComplementOf}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataComplementOf]<<},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataOneOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[4];
$text = $_[1];
my $_savetext;
@item = (q{DataRange});
%item = (__RULE__ => q{DataRange});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataOneOf]},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataOneOf($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataOneOf]>>},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataOneOf]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataOneOf}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataOneOf]<<},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DatatypeRestriction]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[5];
$text = $_[1];
my $_savetext;
@item = (q{DataRange});
%item = (__RULE__ => q{DataRange});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DatatypeRestriction]},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DatatypeRestriction($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DatatypeRestriction]>>},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DatatypeRestriction]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DatatypeRestriction}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DatatypeRestriction]<<},
Parse::RecDescent::_tracefirst($text),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataRange},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataRange},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataRange},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::InverseFunctionalObjectProperty
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"InverseFunctionalObjectProperty"};
Parse::RecDescent::_trace(q{Trying rule: [InverseFunctionalObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['InverseFunctionalObjectProperty' '(' axiomAnnotations ObjectPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{InverseFunctionalObjectProperty});
%item = (__RULE__ => q{InverseFunctionalObjectProperty});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['InverseFunctionalObjectProperty']},
Parse::RecDescent::_tracefirst($text),
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AInverseFunctionalObjectProperty//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{'ObjectPropertyExpression'}, $RDF->type, $OWL->InverseFunctionalProperty),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['InverseFunctionalObjectProperty' '(' axiomAnnotations ObjectPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{InverseFunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{InverseFunctionalObjectProperty},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{InverseFunctionalObjectProperty},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::FunctionalObjectProperty
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"FunctionalObjectProperty"};
Parse::RecDescent::_trace(q{Trying rule: [FunctionalObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['FunctionalObjectProperty' '(' axiomAnnotations ObjectPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{FunctionalObjectProperty});
%item = (__RULE__ => q{FunctionalObjectProperty});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['FunctionalObjectProperty']},
Parse::RecDescent::_tracefirst($text),
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AFunctionalObjectProperty//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{'ObjectPropertyExpression'}, $RDF->type, $OWL->FunctionalProperty),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['FunctionalObjectProperty' '(' axiomAnnotations ObjectPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{FunctionalObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{FunctionalObjectProperty},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{FunctionalObjectProperty},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationAxiom
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"AnnotationAxiom"};
Parse::RecDescent::_trace(q{Trying rule: [AnnotationAxiom]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [AnnotationAssertion]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{AnnotationAxiom});
%item = (__RULE__ => q{AnnotationAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [AnnotationAssertion]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationAssertion($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnnotationAssertion]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnnotationAssertion]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnnotationAssertion}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [AnnotationAssertion]<<},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [SubAnnotationPropertyOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{AnnotationAxiom});
%item = (__RULE__ => q{AnnotationAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [SubAnnotationPropertyOf]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::SubAnnotationPropertyOf($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [SubAnnotationPropertyOf]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [SubAnnotationPropertyOf]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{SubAnnotationPropertyOf}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [SubAnnotationPropertyOf]<<},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [AnnotationPropertyDomain]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[2];
$text = $_[1];
my $_savetext;
@item = (q{AnnotationAxiom});
%item = (__RULE__ => q{AnnotationAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [AnnotationPropertyDomain]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationPropertyDomain($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnnotationPropertyDomain]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnnotationPropertyDomain]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnnotationPropertyDomain}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [AnnotationPropertyDomain]<<},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [AnnotationPropertyRange]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[3];
$text = $_[1];
my $_savetext;
@item = (q{AnnotationAxiom});
%item = (__RULE__ => q{AnnotationAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [AnnotationPropertyRange]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationPropertyRange($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnnotationPropertyRange]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnnotationPropertyRange]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnnotationPropertyRange}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [AnnotationPropertyRange]<<},
Parse::RecDescent::_tracefirst($text),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{AnnotationAxiom},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{AnnotationAxiom},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{AnnotationAxiom},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::SubDataPropertyOf
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"SubDataPropertyOf"};
Parse::RecDescent::_trace(q{Trying rule: [SubDataPropertyOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['SubDataPropertyOf' '(' axiomAnnotations subDataPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{SubDataPropertyOf});
%item = (__RULE__ => q{SubDataPropertyOf});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['SubDataPropertyOf']},
Parse::RecDescent::_tracefirst($text),
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ASubDataPropertyOf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [subDataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{subDataPropertyExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::subDataPropertyExpression, 2, 2, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [subDataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [subDataPropertyExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{subDataPropertyExpression(2)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{subDataPropertyExpression}, $RDFS->subPropertyOf, $item{superDataPropertyExpression}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['SubDataPropertyOf' '(' axiomAnnotations subDataPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{SubDataPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{SubDataPropertyOf},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{SubDataPropertyOf},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ontologyDocument
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ontologyDocument"};
Parse::RecDescent::_trace(q{Trying rule: [ontologyDocument]},
Parse::RecDescent::_tracefirst($_[1]),
q{ontologyDocument},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
local $skip = defined($skip) ? $skip : $Parse::RecDescent::skip;
Parse::RecDescent::_trace(q{Trying production: [<skip:qr{\s*(?:/[*].*?[*]/\s*)*(?:#[^\n]*\n\s*)*\s*}> prefixDeclaration Ontology]},
Parse::RecDescent::_tracefirst($_[1]),
q{ontologyDocument},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ontologyDocument});
%item = (__RULE__ => q{ontologyDocument});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying directive: [<skip:qr{\s*(?:/[*].*?[*]/\s*)*(?:#[^\n]*\n\s*)*\s*}>]},
Parse::RecDescent::_tracefirst($text),
q{ontologyDocument},
$tracelevel)
if defined $::RD_TRACE;
$_tok = do { my $oldskip = $skip; $skip=qr{\s*(?:/[*].*?[*]/\s*)*(?:#[^\n]*\n\s*)*\s*}; $oldskip };
if (defined($_tok))
{
Parse::RecDescent::_trace(q{>>Matched directive<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
}
else
{
Parse::RecDescent::_trace(q{<<Didn't match directive>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
}
last unless defined $_tok;
push @item, $item{__DIRECTIVE1__}=$_tok;
Parse::RecDescent::_trace(q{Trying repeated subrule: [prefixDeclaration]},
Parse::RecDescent::_tracefirst($text),
q{ontologyDocument},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{prefixDeclaration})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::prefixDeclaration, 0, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [prefixDeclaration]>>},
Parse::RecDescent::_tracefirst($text),
q{ontologyDocument},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [prefixDeclaration]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{ontologyDocument},
$tracelevel)
if defined $::RD_TRACE;
$item{q{prefixDeclaration(s?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying repeated subrule: [Ontology]},
Parse::RecDescent::_tracefirst($text),
q{ontologyDocument},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{Ontology})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Ontology, 1, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [Ontology]>>},
Parse::RecDescent::_tracefirst($text),
q{ontologyDocument},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Ontology]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{ontologyDocument},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Ontology(s)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ontologyDocument},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = \%item; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [<skip:qr{\s*(?:/[*].*?[*]/\s*)*(?:#[^\n]*\n\s*)*\s*}> prefixDeclaration Ontology]<<},
Parse::RecDescent::_tracefirst($text),
q{ontologyDocument},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ontologyDocument},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ontologyDocument},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ontologyDocument},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ontologyDocument},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DisjointClasses
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DisjointClasses"};
Parse::RecDescent::_trace(q{Trying rule: [DisjointClasses]},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DisjointClasses' '(' axiomAnnotations ClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DisjointClasses});
%item = (__RULE__ => q{DisjointClasses});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DisjointClasses']},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADisjointClasses//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression, 2, 2, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ClassExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression(2)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{'ClassExpression(2)'}->[0], $OWL->disjointWith, $item{'ClassExpression(2)'}->[1]),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DisjointClasses' '(' axiomAnnotations ClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DisjointClasses' '(' axiomAnnotations ClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{DisjointClasses});
%item = (__RULE__ => q{DisjointClasses});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DisjointClasses']},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADisjointClasses//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression, 3, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ClassExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression(3..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
my $x = RDF::Trine::Node::Blank->new;
my $list = $list_generator->($h, $item{'ClassExpression(3..)'});
$h->($x, $RDF->type, $OWL->AllDisjointClasses);
$h->($x, $OWL->members, $list);
$a->($item{axiomAnnotations}, $x);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DisjointClasses' '(' axiomAnnotations ClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DisjointClasses},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DisjointClasses},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DisjointClasses},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DisjointObjectProperties
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DisjointObjectProperties"};
Parse::RecDescent::_trace(q{Trying rule: [DisjointObjectProperties]},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DisjointObjectProperties' '(' axiomAnnotations ObjectPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DisjointObjectProperties});
%item = (__RULE__ => q{DisjointObjectProperties});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DisjointObjectProperties']},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADisjointObjectProperties//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression, 2, 2, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ObjectPropertyExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression(2)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{'ObjectPropertyExpression(2)'}->[0], $OWL->propertyDisjointWith, $item{'ObjectPropertyExpression(2)'}->[1]),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DisjointObjectProperties' '(' axiomAnnotations ObjectPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DisjointObjectProperties' '(' axiomAnnotations ObjectPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{DisjointObjectProperties});
%item = (__RULE__ => q{DisjointObjectProperties});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DisjointObjectProperties']},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADisjointObjectProperties//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression, 3, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ObjectPropertyExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression(3..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
my $x = RDF::Trine::Node::Blank->new;
my $list = $list_generator->($h, $item{'ObjectPropertyExpression(3..)'});
$h->($x, $RDF->type, $OWL->AllDisjointProperties);
$h->($x, $OWL->members, $list);
$a->($item{axiomAnnotations}, $x);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DisjointObjectProperties' '(' axiomAnnotations ObjectPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DisjointObjectProperties},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DisjointObjectProperties},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DisjointObjectProperties},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Declaration
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"Declaration"};
Parse::RecDescent::_trace(q{Trying rule: [Declaration]},
Parse::RecDescent::_tracefirst($_[1]),
q{Declaration},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['Declaration' '(' axiomAnnotationsD Entity ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{Declaration},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{Declaration});
%item = (__RULE__ => q{Declaration});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['Declaration']},
Parse::RecDescent::_tracefirst($text),
q{Declaration},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADeclaration//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{Declaration},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotationsD]},
Parse::RecDescent::_tracefirst($text),
q{Declaration},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotationsD})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotationsD($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotationsD]>>},
Parse::RecDescent::_tracefirst($text),
q{Declaration},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotationsD]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Declaration},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotationsD}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [Entity]},
Parse::RecDescent::_tracefirst($text),
q{Declaration},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{Entity})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Entity($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Entity]>>},
Parse::RecDescent::_tracefirst($text),
q{Declaration},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Entity]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Declaration},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Entity}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{Declaration},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{>>Matched production: ['Declaration' '(' axiomAnnotationsD Entity ')']<<},
Parse::RecDescent::_tracefirst($text),
q{Declaration},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{Declaration},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{Declaration},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{Declaration},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{Declaration},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::restrictionValue
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"restrictionValue"};
Parse::RecDescent::_trace(q{Trying rule: [restrictionValue]},
Parse::RecDescent::_tracefirst($_[1]),
q{restrictionValue},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [Literal]},
Parse::RecDescent::_tracefirst($_[1]),
q{restrictionValue},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{restrictionValue});
%item = (__RULE__ => q{restrictionValue});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [Literal]},
Parse::RecDescent::_tracefirst($text),
q{restrictionValue},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Literal($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Literal]>>},
Parse::RecDescent::_tracefirst($text),
q{restrictionValue},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Literal]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{restrictionValue},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Literal}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [Literal]<<},
Parse::RecDescent::_tracefirst($text),
q{restrictionValue},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{restrictionValue},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{restrictionValue},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{restrictionValue},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{restrictionValue},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectIntersectionOf
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectIntersectionOf"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectIntersectionOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectIntersectionOf' '(' ClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectIntersectionOf});
%item = (__RULE__ => q{ObjectIntersectionOf});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectIntersectionOf']},
Parse::RecDescent::_tracefirst($text),
q{ObjectIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectIntersectionOf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ObjectIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying repeated subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression, 2, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ClassExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{ObjectIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression(2..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ObjectIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ObjectIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $list = $list_generator->($h, $item{'ClassExpression(2..)'});
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Class);
$h->($x, $OWL->intersectionOf, $list);
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectIntersectionOf' '(' ClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectIntersectionOf},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectIntersectionOf},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectIntersectionOf},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::superObjectPropertyExpression
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"superObjectPropertyExpression"};
Parse::RecDescent::_trace(q{Trying rule: [superObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{superObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{superObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{superObjectPropertyExpression});
%item = (__RULE__ => q{superObjectPropertyExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{superObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{superObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{superObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectPropertyExpression]<<},
Parse::RecDescent::_tracefirst($text),
q{superObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{superObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{superObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{superObjectPropertyExpression},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{superObjectPropertyExpression},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::subObjectPropertyExpression
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"subObjectPropertyExpression"};
Parse::RecDescent::_trace(q{Trying rule: [subObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{subObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{subObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{subObjectPropertyExpression});
%item = (__RULE__ => q{subObjectPropertyExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{subObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{subObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{subObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectPropertyExpression]<<},
Parse::RecDescent::_tracefirst($text),
q{subObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{subObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{subObjectPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{subObjectPropertyExpression},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{subObjectPropertyExpression},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::typedLiteral
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"typedLiteral"};
Parse::RecDescent::_trace(q{Trying rule: [typedLiteral]},
Parse::RecDescent::_tracefirst($_[1]),
q{typedLiteral},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [lexicalForm '^^' Datatype]},
Parse::RecDescent::_tracefirst($_[1]),
q{typedLiteral},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{typedLiteral});
%item = (__RULE__ => q{typedLiteral});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [lexicalForm]},
Parse::RecDescent::_tracefirst($text),
q{typedLiteral},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::lexicalForm($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [lexicalForm]>>},
Parse::RecDescent::_tracefirst($text),
q{typedLiteral},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [lexicalForm]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{typedLiteral},
$tracelevel)
if defined $::RD_TRACE;
$item{q{lexicalForm}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: ['^^']},
Parse::RecDescent::_tracefirst($text),
q{typedLiteral},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'^^'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\^\^//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [Datatype]},
Parse::RecDescent::_tracefirst($text),
q{typedLiteral},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{Datatype})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Datatype($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Datatype]>>},
Parse::RecDescent::_tracefirst($text),
q{typedLiteral},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Datatype]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{typedLiteral},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Datatype}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{typedLiteral},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
if ($item{Datatype}->equal($RDF->PlainLiteral))
{
my ($lex, $lang) = ($item{lexicalForm} =~ m{^(.*)\@([^@]*)$});
$return = RDF::Trine::Node::Literal->new($lex, $lang)
}
else
{
$return = RDF::Trine::Node::Literal->new($item{lexicalForm}, undef, $item{Datatype}->uri);
}
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [lexicalForm '^^' Datatype]<<},
Parse::RecDescent::_tracefirst($text),
q{typedLiteral},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{typedLiteral},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{typedLiteral},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{typedLiteral},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{typedLiteral},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::PNAME_LN
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"PNAME_LN"};
Parse::RecDescent::_trace(q{Trying rule: [PNAME_LN]},
Parse::RecDescent::_tracefirst($_[1]),
q{PNAME_LN},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
local $skip = defined($skip) ? $skip : $Parse::RecDescent::skip;
Parse::RecDescent::_trace(q{Trying production: [PNAME_NS <skip:''> PN_LOCAL]},
Parse::RecDescent::_tracefirst($_[1]),
q{PNAME_LN},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{PNAME_LN});
%item = (__RULE__ => q{PNAME_LN});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [PNAME_NS]},
Parse::RecDescent::_tracefirst($text),
q{PNAME_LN},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::PNAME_NS($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [PNAME_NS]>>},
Parse::RecDescent::_tracefirst($text),
q{PNAME_LN},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [PNAME_NS]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{PNAME_LN},
$tracelevel)
if defined $::RD_TRACE;
$item{q{PNAME_NS}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying directive: [<skip:''>]},
Parse::RecDescent::_tracefirst($text),
q{PNAME_LN},
$tracelevel)
if defined $::RD_TRACE;
$_tok = do { my $oldskip = $skip; $skip=''; $oldskip };
if (defined($_tok))
{
Parse::RecDescent::_trace(q{>>Matched directive<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
}
else
{
Parse::RecDescent::_trace(q{<<Didn't match directive>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
}
last unless defined $_tok;
push @item, $item{__DIRECTIVE1__}=$_tok;
Parse::RecDescent::_trace(q{Trying subrule: [PN_LOCAL]},
Parse::RecDescent::_tracefirst($text),
q{PNAME_LN},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{PN_LOCAL})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::PN_LOCAL($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [PN_LOCAL]>>},
Parse::RecDescent::_tracefirst($text),
q{PNAME_LN},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [PN_LOCAL]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{PNAME_LN},
$tracelevel)
if defined $::RD_TRACE;
$item{q{PN_LOCAL}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{PNAME_LN},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = [ $item{PNAME_NS}, $item{PN_LOCAL} ]; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [PNAME_NS <skip:''> PN_LOCAL]<<},
Parse::RecDescent::_tracefirst($text),
q{PNAME_LN},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{PNAME_LN},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{PNAME_LN},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{PNAME_LN},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{PNAME_LN},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::SubAnnotationPropertyOf
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"SubAnnotationPropertyOf"};
Parse::RecDescent::_trace(q{Trying rule: [SubAnnotationPropertyOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['SubAnnotationPropertyOf' '(' axiomAnnotations subAnnotationProperty superAnnotationProperty ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{SubAnnotationPropertyOf});
%item = (__RULE__ => q{SubAnnotationPropertyOf});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['SubAnnotationPropertyOf']},
Parse::RecDescent::_tracefirst($text),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ASubAnnotationPropertyOf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [subAnnotationProperty]},
Parse::RecDescent::_tracefirst($text),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{subAnnotationProperty})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::subAnnotationProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [subAnnotationProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [subAnnotationProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{subAnnotationProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [superAnnotationProperty]},
Parse::RecDescent::_tracefirst($text),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{superAnnotationProperty})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::superAnnotationProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [superAnnotationProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [superAnnotationProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{superAnnotationProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{subAnnotationProperty}, $RDFS->subPropertyOf, $item{superAnnotationProperty}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['SubAnnotationPropertyOf' '(' axiomAnnotations subAnnotationProperty superAnnotationProperty ')']<<},
Parse::RecDescent::_tracefirst($text),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{SubAnnotationPropertyOf},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{SubAnnotationPropertyOf},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{SubAnnotationPropertyOf},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::subDataPropertyExpression
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"subDataPropertyExpression"};
Parse::RecDescent::_trace(q{Trying rule: [subDataPropertyExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{subDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{subDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{subDataPropertyExpression});
%item = (__RULE__ => q{subDataPropertyExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{subDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{subDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{subDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataPropertyExpression]<<},
Parse::RecDescent::_tracefirst($text),
q{subDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{subDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{subDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{subDataPropertyExpression},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{subDataPropertyExpression},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyAssertion
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataPropertyAssertion"};
Parse::RecDescent::_trace(q{Trying rule: [DataPropertyAssertion]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataPropertyAssertion' '(' axiomAnnotations DataPropertyExpression sourceIndividual targetValue ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataPropertyAssertion});
%item = (__RULE__ => q{DataPropertyAssertion});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataPropertyAssertion']},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataPropertyAssertion//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [sourceIndividual]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{sourceIndividual})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::sourceIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [sourceIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [sourceIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{sourceIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [targetValue]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{targetValue})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::targetValue($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [targetValue]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [targetValue]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{targetValue}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
$h->($item{sourceIndividual}, $item{DataPropertyExpression}, $item{targetValue});
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataPropertyAssertion' '(' axiomAnnotations DataPropertyExpression sourceIndividual targetValue ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataPropertyAssertion},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataPropertyAssertion},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::superDataPropertyExpression
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"superDataPropertyExpression"};
Parse::RecDescent::_trace(q{Trying rule: [superDataPropertyExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{superDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{superDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{superDataPropertyExpression});
%item = (__RULE__ => q{superDataPropertyExpression});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{superDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{superDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{superDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataPropertyExpression]<<},
Parse::RecDescent::_tracefirst($text),
q{superDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{superDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{superDataPropertyExpression},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{superDataPropertyExpression},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{superDataPropertyExpression},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::fullIRI
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"fullIRI"};
Parse::RecDescent::_trace(q{Trying rule: [fullIRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{fullIRI},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['<' /[^\\s><]*/ '>']},
Parse::RecDescent::_tracefirst($_[1]),
q{fullIRI},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{fullIRI});
%item = (__RULE__ => q{fullIRI});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['<']},
Parse::RecDescent::_tracefirst($text),
q{fullIRI},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\<//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: [/[^\\s><]*/]}, Parse::RecDescent::_tracefirst($text),
q{fullIRI},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{/[^\\s><]*/})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A(?:[^\s><]*)//)
{
$expectation->failed();
Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__PATTERN1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['>']},
Parse::RecDescent::_tracefirst($text),
q{fullIRI},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'>'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\>//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{fullIRI},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = $item{__PATTERN1__}; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['<' /[^\\s><]*/ '>']<<},
Parse::RecDescent::_tracefirst($text),
q{fullIRI},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{fullIRI},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{fullIRI},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{fullIRI},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{fullIRI},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataProperty
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataProperty"};
Parse::RecDescent::_trace(q{Trying rule: [DataProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataProperty},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [IRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataProperty},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataProperty});
%item = (__RULE__ => q{DataProperty});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [IRI]},
Parse::RecDescent::_tracefirst($text),
q{DataProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [IRI]>>},
Parse::RecDescent::_tracefirst($text),
q{DataProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [IRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [IRI]<<},
Parse::RecDescent::_tracefirst($text),
q{DataProperty},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataProperty},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataProperty},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataProperty},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataProperty},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::SubClassOf
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"SubClassOf"};
Parse::RecDescent::_trace(q{Trying rule: [SubClassOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['SubClassOf' '(' axiomAnnotations subClassExpression superClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{SubClassOf});
%item = (__RULE__ => q{SubClassOf});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['SubClassOf']},
Parse::RecDescent::_tracefirst($text),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ASubClassOf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [subClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{subClassExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::subClassExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [subClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [subClassExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{subClassExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [superClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{superClassExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::superClassExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [superClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [superClassExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{superClassExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{subClassExpression}, $RDFS->subClassOf, $item{superClassExpression}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['SubClassOf' '(' axiomAnnotations subClassExpression superClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{SubClassOf},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{SubClassOf},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{SubClassOf},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"axiomAnnotations"};
Parse::RecDescent::_trace(q{Trying rule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($_[1]),
q{axiomAnnotations},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [Annotation]},
Parse::RecDescent::_tracefirst($_[1]),
q{axiomAnnotations},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{axiomAnnotations});
%item = (__RULE__ => q{axiomAnnotations});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying repeated subrule: [Annotation]},
Parse::RecDescent::_tracefirst($text),
q{axiomAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Annotation, 0, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [Annotation]>>},
Parse::RecDescent::_tracefirst($text),
q{axiomAnnotations},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Annotation]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{axiomAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Annotation(s?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{axiomAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = $item{'Annotation(s?)'}; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [Annotation]<<},
Parse::RecDescent::_tracefirst($text),
q{axiomAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{axiomAnnotations},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{axiomAnnotations},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{axiomAnnotations},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{axiomAnnotations},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Entity
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"Entity"};
Parse::RecDescent::_trace(q{Trying rule: [Entity]},
Parse::RecDescent::_tracefirst($_[1]),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['Class' '(' Class ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{Entity});
%item = (__RULE__ => q{Entity});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['Class']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AClass//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [Class]},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{Class})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Class($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Class]>>},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Class]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Class}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$declaredAnnotations,
$h->($item{Class}, $RDF->type, $OWL->Class),
);
$return = $item{Class};
$declaredAnnotations = undef;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['Class' '(' Class ')']<<},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['Datatype' '(' Datatype ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{Entity});
%item = (__RULE__ => q{Entity});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['Datatype']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADatatype//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [Datatype]},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{Datatype})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Datatype($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Datatype]>>},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Datatype]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Datatype}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$declaredAnnotations,
$h->($item{Datatype}, $RDF->type, $OWL->Datatype),
);
$return = $item{Datatype};
$declaredAnnotations = undef;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['Datatype' '(' Datatype ')']<<},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectProperty' '(' ObjectProperty ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[2];
$text = $_[1];
my $_savetext;
@item = (q{Entity});
%item = (__RULE__ => q{Entity});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectProperty']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectProperty//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectProperty]},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectProperty})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$declaredAnnotations,
$h->($item{ObjectProperty}, $RDF->type, $OWL->ObjectProperty),
);
$return = $item{ObjectProperty};
$declaredAnnotations = undef;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectProperty' '(' ObjectProperty ')']<<},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataProperty' '(' DataProperty ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[3];
$text = $_[1];
my $_savetext;
@item = (q{Entity});
%item = (__RULE__ => q{Entity});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataProperty']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataProperty//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [DataProperty]},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataProperty})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$declaredAnnotations,
$h->($item{DataProperty}, $RDF->type, $OWL->DatatypeProperty),
);
$return = $item{DataProperty};
$declaredAnnotations = undef;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataProperty' '(' DataProperty ')']<<},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['AnnotationProperty' '(' AnnotationProperty ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[4];
$text = $_[1];
my $_savetext;
@item = (q{Entity});
%item = (__RULE__ => q{Entity});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['AnnotationProperty']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AAnnotationProperty//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [AnnotationProperty]},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{AnnotationProperty})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AnnotationProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AnnotationProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AnnotationProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$declaredAnnotations,
$h->($item{AnnotationProperty}, $RDF->type, $OWL->AnnotationProperty),
);
$return = $item{AnnotationProperty};
$declaredAnnotations = undef;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['AnnotationProperty' '(' AnnotationProperty ')']<<},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['NamedIndividual' '(' NamedIndividual ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[5];
$text = $_[1];
my $_savetext;
@item = (q{Entity});
%item = (__RULE__ => q{Entity});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['NamedIndividual']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ANamedIndividual//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [NamedIndividual]},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{NamedIndividual})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::NamedIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [NamedIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [NamedIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$item{q{NamedIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$declaredAnnotations,
$h->($item{NamedIndividual}, $RDF->type, $OWL->NamedIndividual),
);
$return = $item{NamedIndividual};
$declaredAnnotations = undef;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['NamedIndividual' '(' NamedIndividual ')']<<},
Parse::RecDescent::_tracefirst($text),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{Entity},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{Entity},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{Entity},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axioms
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"axioms"};
Parse::RecDescent::_trace(q{Trying rule: [axioms]},
Parse::RecDescent::_tracefirst($_[1]),
q{axioms},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [Axiom]},
Parse::RecDescent::_tracefirst($_[1]),
q{axioms},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{axioms});
%item = (__RULE__ => q{axioms});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying repeated subrule: [Axiom]},
Parse::RecDescent::_tracefirst($text),
q{axioms},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Axiom, 0, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [Axiom]>>},
Parse::RecDescent::_tracefirst($text),
q{axioms},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Axiom]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{axioms},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Axiom(s?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{axioms},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = \%item; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [Axiom]<<},
Parse::RecDescent::_tracefirst($text),
q{axioms},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{axioms},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{axioms},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{axioms},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{axioms},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectProperty
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectProperty"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [IRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectProperty});
%item = (__RULE__ => q{ObjectProperty});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [IRI]},
Parse::RecDescent::_tracefirst($text),
q{ObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [IRI]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [IRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [IRI]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectProperty},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectProperty},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectProperty},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::lexicalForm
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"lexicalForm"};
Parse::RecDescent::_trace(q{Trying rule: [lexicalForm]},
Parse::RecDescent::_tracefirst($_[1]),
q{lexicalForm},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [quotedString]},
Parse::RecDescent::_tracefirst($_[1]),
q{lexicalForm},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{lexicalForm});
%item = (__RULE__ => q{lexicalForm});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [quotedString]},
Parse::RecDescent::_tracefirst($text),
q{lexicalForm},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::quotedString($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [quotedString]>>},
Parse::RecDescent::_tracefirst($text),
q{lexicalForm},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [quotedString]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{lexicalForm},
$tracelevel)
if defined $::RD_TRACE;
$item{q{quotedString}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [quotedString]<<},
Parse::RecDescent::_tracefirst($text),
q{lexicalForm},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{lexicalForm},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{lexicalForm},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{lexicalForm},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{lexicalForm},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyAxiom
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataPropertyAxiom"};
Parse::RecDescent::_trace(q{Trying rule: [DataPropertyAxiom]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [SubDataPropertyOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataPropertyAxiom});
%item = (__RULE__ => q{DataPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [SubDataPropertyOf]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::SubDataPropertyOf($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [SubDataPropertyOf]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [SubDataPropertyOf]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{SubDataPropertyOf}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [SubDataPropertyOf]<<},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [EquivalentDataProperties]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{DataPropertyAxiom});
%item = (__RULE__ => q{DataPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [EquivalentDataProperties]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::EquivalentDataProperties($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [EquivalentDataProperties]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [EquivalentDataProperties]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{EquivalentDataProperties}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [EquivalentDataProperties]<<},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DisjointDataProperties]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[2];
$text = $_[1];
my $_savetext;
@item = (q{DataPropertyAxiom});
%item = (__RULE__ => q{DataPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DisjointDataProperties]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DisjointDataProperties($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DisjointDataProperties]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DisjointDataProperties]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DisjointDataProperties}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DisjointDataProperties]<<},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataPropertyDomain]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[3];
$text = $_[1];
my $_savetext;
@item = (q{DataPropertyAxiom});
%item = (__RULE__ => q{DataPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyDomain]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyDomain($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyDomain]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyDomain]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyDomain}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataPropertyDomain]<<},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DataPropertyRange]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[4];
$text = $_[1];
my $_savetext;
@item = (q{DataPropertyAxiom});
%item = (__RULE__ => q{DataPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyRange]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyRange($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyRange]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyRange]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyRange}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DataPropertyRange]<<},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [FunctionalDataProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[5];
$text = $_[1];
my $_savetext;
@item = (q{DataPropertyAxiom});
%item = (__RULE__ => q{DataPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [FunctionalDataProperty]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::FunctionalDataProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [FunctionalDataProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [FunctionalDataProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{FunctionalDataProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [FunctionalDataProperty]<<},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataPropertyAxiom},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataPropertyAxiom},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::NegativeObjectPropertyAssertion
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"NegativeObjectPropertyAssertion"};
Parse::RecDescent::_trace(q{Trying rule: [NegativeObjectPropertyAssertion]},
Parse::RecDescent::_tracefirst($_[1]),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['NegativeObjectPropertyAssertion' '(' axiomAnnotations ObjectPropertyExpression sourceIndividual targetIndividual ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{NegativeObjectPropertyAssertion});
%item = (__RULE__ => q{NegativeObjectPropertyAssertion});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['NegativeObjectPropertyAssertion']},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ANegativeObjectPropertyAssertion//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [sourceIndividual]},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{sourceIndividual})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::sourceIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [sourceIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [sourceIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{sourceIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [targetIndividual]},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{targetIndividual})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::targetIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [targetIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [targetIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{targetIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->NegativePropertyAssertion);
$h->($x, $OWL->sourceIndividual, $item{sourceIndividual});
$h->($x, $OWL->assertionProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->targetIndividual, $item{targetIndividual});
$a->($item{axiomAnnotations}, $x);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['NegativeObjectPropertyAssertion' '(' axiomAnnotations ObjectPropertyExpression sourceIndividual targetIndividual ')']<<},
Parse::RecDescent::_tracefirst($text),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{NegativeObjectPropertyAssertion},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{NegativeObjectPropertyAssertion},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{NegativeObjectPropertyAssertion},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotationsD
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"axiomAnnotationsD"};
Parse::RecDescent::_trace(q{Trying rule: [axiomAnnotationsD]},
Parse::RecDescent::_tracefirst($_[1]),
q{axiomAnnotationsD},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [Annotation]},
Parse::RecDescent::_tracefirst($_[1]),
q{axiomAnnotationsD},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{axiomAnnotationsD});
%item = (__RULE__ => q{axiomAnnotationsD});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying repeated subrule: [Annotation]},
Parse::RecDescent::_tracefirst($text),
q{axiomAnnotationsD},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Annotation, 0, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [Annotation]>>},
Parse::RecDescent::_tracefirst($text),
q{axiomAnnotationsD},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [Annotation]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{axiomAnnotationsD},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Annotation(s?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{axiomAnnotationsD},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $declaredAnnotations = $return = $item{'Annotation(s?)'}; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [Annotation]<<},
Parse::RecDescent::_tracefirst($text),
q{axiomAnnotationsD},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{axiomAnnotationsD},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{axiomAnnotationsD},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{axiomAnnotationsD},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{axiomAnnotationsD},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectSomeValuesFrom
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectSomeValuesFrom"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectSomeValuesFrom]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectSomeValuesFrom' '(' ObjectPropertyExpression ClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectSomeValuesFrom});
%item = (__RULE__ => q{ObjectSomeValuesFrom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectSomeValuesFrom']},
Parse::RecDescent::_tracefirst($text),
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectSomeValuesFrom//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ClassExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->someValuesFrom, $item{ClassExpression});
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectSomeValuesFrom' '(' ObjectPropertyExpression ClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectSomeValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectSomeValuesFrom},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectSomeValuesFrom},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::numericLiteral
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"numericLiteral"};
Parse::RecDescent::_trace(q{Trying rule: [numericLiteral]},
Parse::RecDescent::_tracefirst($_[1]),
q{numericLiteral},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [nonNegativeInteger]},
Parse::RecDescent::_tracefirst($_[1]),
q{numericLiteral},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{numericLiteral});
%item = (__RULE__ => q{numericLiteral});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [nonNegativeInteger]},
Parse::RecDescent::_tracefirst($text),
q{numericLiteral},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::nonNegativeInteger($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [nonNegativeInteger]>>},
Parse::RecDescent::_tracefirst($text),
q{numericLiteral},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [nonNegativeInteger]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{numericLiteral},
$tracelevel)
if defined $::RD_TRACE;
$item{q{nonNegativeInteger}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{numericLiteral},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = RDF::Trine::Node::Literal->new($item{nonNegativeInteger}, undef, $XSD->nonNegativeInteger->uri); 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [nonNegativeInteger]<<},
Parse::RecDescent::_tracefirst($text),
q{numericLiteral},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{numericLiteral},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{numericLiteral},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{numericLiteral},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{numericLiteral},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Literal
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"Literal"};
Parse::RecDescent::_trace(q{Trying rule: [Literal]},
Parse::RecDescent::_tracefirst($_[1]),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [typedLiteral]},
Parse::RecDescent::_tracefirst($_[1]),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{Literal});
%item = (__RULE__ => q{Literal});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [typedLiteral]},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::typedLiteral($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [typedLiteral]>>},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [typedLiteral]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$item{q{typedLiteral}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [typedLiteral]<<},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [stringLiteralWithLanguage]},
Parse::RecDescent::_tracefirst($_[1]),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{Literal});
%item = (__RULE__ => q{Literal});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [stringLiteralWithLanguage]},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::stringLiteralWithLanguage($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [stringLiteralWithLanguage]>>},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [stringLiteralWithLanguage]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$item{q{stringLiteralWithLanguage}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [stringLiteralWithLanguage]<<},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [stringLiteralNoLanguage]},
Parse::RecDescent::_tracefirst($_[1]),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[2];
$text = $_[1];
my $_savetext;
@item = (q{Literal});
%item = (__RULE__ => q{Literal});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [stringLiteralNoLanguage]},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::stringLiteralNoLanguage($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [stringLiteralNoLanguage]>>},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [stringLiteralNoLanguage]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$item{q{stringLiteralNoLanguage}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [stringLiteralNoLanguage]<<},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [numericLiteral]},
Parse::RecDescent::_tracefirst($_[1]),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[3];
$text = $_[1];
my $_savetext;
@item = (q{Literal});
%item = (__RULE__ => q{Literal});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [numericLiteral]},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::numericLiteral($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [numericLiteral]>>},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [numericLiteral]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$item{q{numericLiteral}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [numericLiteral]<<},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [booleanLiteral]},
Parse::RecDescent::_tracefirst($_[1]),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[4];
$text = $_[1];
my $_savetext;
@item = (q{Literal});
%item = (__RULE__ => q{Literal});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [booleanLiteral]},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::booleanLiteral($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [booleanLiteral]>>},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [booleanLiteral]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$item{q{booleanLiteral}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [booleanLiteral]<<},
Parse::RecDescent::_tracefirst($text),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{Literal},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{Literal},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{Literal},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AnnotationProperty
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"AnnotationProperty"};
Parse::RecDescent::_trace(q{Trying rule: [AnnotationProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [IRI]},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{AnnotationProperty});
%item = (__RULE__ => q{AnnotationProperty});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [IRI]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IRI($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [IRI]>>},
Parse::RecDescent::_tracefirst($text),
q{AnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [IRI]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{AnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IRI}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [IRI]<<},
Parse::RecDescent::_tracefirst($text),
q{AnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{AnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{AnnotationProperty},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{AnnotationProperty},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{AnnotationProperty},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataExactCardinality
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataExactCardinality"};
Parse::RecDescent::_trace(q{Trying rule: [DataExactCardinality]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataExactCardinality' '(' nonNegativeInteger DataPropertyExpression DataRange ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataExactCardinality});
%item = (__RULE__ => q{DataExactCardinality});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataExactCardinality']},
Parse::RecDescent::_tracefirst($text),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataExactCardinality//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [nonNegativeInteger]},
Parse::RecDescent::_tracefirst($text),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{nonNegativeInteger})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::nonNegativeInteger($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [nonNegativeInteger]>>},
Parse::RecDescent::_tracefirst($text),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [nonNegativeInteger]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{nonNegativeInteger}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [DataRange]},
Parse::RecDescent::_tracefirst($text),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{DataRange})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataRange, 0, 1, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [DataRange]>>},
Parse::RecDescent::_tracefirst($text),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [DataRange]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataRange(?)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{DataPropertyExpression});
$h->($x, $OWL->cardinality, RDF::Trine::Node::Literal->new($item{nonNegativeInteger}, undef, $XSD->nonNegativeInteger->uri));
$h->($x, $OWL->onClass, $item{'ClassExpression(?)'}->[0])
if $item{'ClassExpression(?)'} && @{ $item{'ClassExpression(?)'} };
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataExactCardinality' '(' nonNegativeInteger DataPropertyExpression DataRange ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataExactCardinality},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataExactCardinality},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataExactCardinality},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::SameIndividual
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"SameIndividual"};
Parse::RecDescent::_trace(q{Trying rule: [SameIndividual]},
Parse::RecDescent::_tracefirst($_[1]),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['SameIndividual' '(' axiomAnnotations sourceIndividual targetIndividual ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{SameIndividual});
%item = (__RULE__ => q{SameIndividual});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['SameIndividual']},
Parse::RecDescent::_tracefirst($text),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ASameIndividual//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [sourceIndividual]},
Parse::RecDescent::_tracefirst($text),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{sourceIndividual})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::sourceIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [sourceIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [sourceIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
$item{q{sourceIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [targetIndividual]},
Parse::RecDescent::_tracefirst($text),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{targetIndividual})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::targetIndividual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [targetIndividual]>>},
Parse::RecDescent::_tracefirst($text),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [targetIndividual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
$item{q{targetIndividual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{sourceIndividual}, $OWL->sameAs, $item{targetIndividual}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['SameIndividual' '(' axiomAnnotations sourceIndividual targetIndividual ')']<<},
Parse::RecDescent::_tracefirst($text),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{SameIndividual},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{SameIndividual},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{SameIndividual},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassAssertion
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ClassAssertion"};
Parse::RecDescent::_trace(q{Trying rule: [ClassAssertion]},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ClassAssertion' '(' axiomAnnotations ClassExpression Individual ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ClassAssertion});
%item = (__RULE__ => q{ClassAssertion});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ClassAssertion']},
Parse::RecDescent::_tracefirst($text),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AClassAssertion//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ClassExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [Individual]},
Parse::RecDescent::_tracefirst($text),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{Individual})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Individual($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Individual]>>},
Parse::RecDescent::_tracefirst($text),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Individual]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Individual}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{Individual}, $RDF->type, $item{ClassExpression}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ClassAssertion' '(' axiomAnnotations ClassExpression Individual ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ClassAssertion},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ClassAssertion},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ClassAssertion},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::EquivalentDataProperties
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"EquivalentDataProperties"};
Parse::RecDescent::_trace(q{Trying rule: [EquivalentDataProperties]},
Parse::RecDescent::_tracefirst($_[1]),
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['EquivalentDataProperties' '(' axiomAnnotations DataPropertyExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{EquivalentDataProperties});
%item = (__RULE__ => q{EquivalentDataProperties});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['EquivalentDataProperties']},
Parse::RecDescent::_tracefirst($text),
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AEquivalentDataProperties//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying repeated subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression, 2, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [DataPropertyExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression(2..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
foreach my $ce1 (@{ $item{'DataPropertyExpression(2..)'} })
{
foreach my $ce2 (@{ $item{'DataPropertyExpression(2..)'} })
{
$a->(
$item{axiomAnnotations},
$h->($ce1, $OWL->equivalentProperty, $ce2),
);
}
}
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['EquivalentDataProperties' '(' axiomAnnotations DataPropertyExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{EquivalentDataProperties},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{EquivalentDataProperties},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{EquivalentDataProperties},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyAxiom
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectPropertyAxiom"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectPropertyAxiom]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [SubObjectPropertyOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyAxiom});
%item = (__RULE__ => q{ObjectPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [SubObjectPropertyOf]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::SubObjectPropertyOf($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [SubObjectPropertyOf]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [SubObjectPropertyOf]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{SubObjectPropertyOf}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [SubObjectPropertyOf]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [EquivalentObjectProperties]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[1];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyAxiom});
%item = (__RULE__ => q{ObjectPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [EquivalentObjectProperties]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::EquivalentObjectProperties($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [EquivalentObjectProperties]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [EquivalentObjectProperties]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{EquivalentObjectProperties}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [EquivalentObjectProperties]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [DisjointObjectProperties]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[2];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyAxiom});
%item = (__RULE__ => q{ObjectPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [DisjointObjectProperties]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DisjointObjectProperties($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DisjointObjectProperties]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DisjointObjectProperties]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DisjointObjectProperties}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [DisjointObjectProperties]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [InverseObjectProperties]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[3];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyAxiom});
%item = (__RULE__ => q{ObjectPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [InverseObjectProperties]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::InverseObjectProperties($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [InverseObjectProperties]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [InverseObjectProperties]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{InverseObjectProperties}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [InverseObjectProperties]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectPropertyDomain]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[4];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyAxiom});
%item = (__RULE__ => q{ObjectPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyDomain]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyDomain($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyDomain]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyDomain]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyDomain}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectPropertyDomain]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ObjectPropertyRange]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[5];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyAxiom});
%item = (__RULE__ => q{ObjectPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyRange]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyRange($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyRange]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyRange]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyRange}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ObjectPropertyRange]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [FunctionalObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[6];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyAxiom});
%item = (__RULE__ => q{ObjectPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [FunctionalObjectProperty]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::FunctionalObjectProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [FunctionalObjectProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [FunctionalObjectProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{FunctionalObjectProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [FunctionalObjectProperty]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [InverseFunctionalObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[7];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyAxiom});
%item = (__RULE__ => q{ObjectPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [InverseFunctionalObjectProperty]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::InverseFunctionalObjectProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [InverseFunctionalObjectProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [InverseFunctionalObjectProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{InverseFunctionalObjectProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [InverseFunctionalObjectProperty]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ReflexiveObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[8];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyAxiom});
%item = (__RULE__ => q{ObjectPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [ReflexiveObjectProperty]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ReflexiveObjectProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ReflexiveObjectProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ReflexiveObjectProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ReflexiveObjectProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [ReflexiveObjectProperty]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [IrreflexiveObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[9];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyAxiom});
%item = (__RULE__ => q{ObjectPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [IrreflexiveObjectProperty]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::IrreflexiveObjectProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [IrreflexiveObjectProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [IrreflexiveObjectProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{IrreflexiveObjectProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [IrreflexiveObjectProperty]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [SymmetricObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[10];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyAxiom});
%item = (__RULE__ => q{ObjectPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [SymmetricObjectProperty]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::SymmetricObjectProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [SymmetricObjectProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [SymmetricObjectProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{SymmetricObjectProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [SymmetricObjectProperty]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [AsymmetricObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[11];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyAxiom});
%item = (__RULE__ => q{ObjectPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [AsymmetricObjectProperty]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::AsymmetricObjectProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [AsymmetricObjectProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [AsymmetricObjectProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{AsymmetricObjectProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [AsymmetricObjectProperty]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [TransitiveObjectProperty]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[12];
$text = $_[1];
my $_savetext;
@item = (q{ObjectPropertyAxiom});
%item = (__RULE__ => q{ObjectPropertyAxiom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying subrule: [TransitiveObjectProperty]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::TransitiveObjectProperty($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [TransitiveObjectProperty]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [TransitiveObjectProperty]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{TransitiveObjectProperty}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{>>Matched production: [TransitiveObjectProperty]<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectPropertyAxiom},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectPropertyAxiom},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectPropertyAxiom},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DisjointUnion
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DisjointUnion"};
Parse::RecDescent::_trace(q{Trying rule: [DisjointUnion]},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DisjointUnion' '(' axiomAnnotations Class disjointClassExpressions ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DisjointUnion});
%item = (__RULE__ => q{DisjointUnion});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DisjointUnion']},
Parse::RecDescent::_tracefirst($text),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADisjointUnion//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [Class]},
Parse::RecDescent::_tracefirst($text),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{Class})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::Class($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [Class]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [Class]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{Class}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [disjointClassExpressions]},
Parse::RecDescent::_tracefirst($text),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{disjointClassExpressions})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::disjointClassExpressions($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [disjointClassExpressions]>>},
Parse::RecDescent::_tracefirst($text),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [disjointClassExpressions]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
$item{q{disjointClassExpressions}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
my $list = $list_generator->($h, $item{disjointClassExpressions});
$a->(
$item{axiomAnnotations},
$h->($item{Class}, $OWL->disjointUnionOf, $list),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DisjointUnion' '(' axiomAnnotations Class disjointClassExpressions ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DisjointUnion},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DisjointUnion},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DisjointUnion},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataComplementOf
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataComplementOf"};
Parse::RecDescent::_trace(q{Trying rule: [DataComplementOf]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataComplementOf},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataComplementOf' '(' DataRange ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataComplementOf},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataComplementOf});
%item = (__RULE__ => q{DataComplementOf});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataComplementOf']},
Parse::RecDescent::_tracefirst($text),
q{DataComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataComplementOf//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [DataRange]},
Parse::RecDescent::_tracefirst($text),
q{DataComplementOf},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataRange})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataRange($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataRange]>>},
Parse::RecDescent::_tracefirst($text),
q{DataComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataRange]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataRange}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $RDFS->Datatype);
$h->($x, $OWL->datatypeComplementOf, $item{DataRange});
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataComplementOf' '(' DataRange ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataComplementOf},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataComplementOf},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataComplementOf},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataComplementOf},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyRange
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"DataPropertyRange"};
Parse::RecDescent::_trace(q{Trying rule: [DataPropertyRange]},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['DataPropertyRange' '(' axiomAnnotations DataPropertyExpression DataRange ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{DataPropertyRange});
%item = (__RULE__ => q{DataPropertyRange});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['DataPropertyRange']},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\ADataPropertyRange//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [axiomAnnotations]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{axiomAnnotations})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::axiomAnnotations($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [axiomAnnotations]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [axiomAnnotations]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{axiomAnnotations}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [DataPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [DataRange]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{DataRange})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::DataRange($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [DataRange]>>},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [DataRange]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$item{q{DataRange}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{DataPropertyExpression}, $RDFS->range, $item{DataRange}),
);
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['DataPropertyRange' '(' axiomAnnotations DataPropertyExpression DataRange ')']<<},
Parse::RecDescent::_tracefirst($text),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{DataPropertyRange},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{DataPropertyRange},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{DataPropertyRange},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::disjointClassExpressions
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"disjointClassExpressions"};
Parse::RecDescent::_trace(q{Trying rule: [disjointClassExpressions]},
Parse::RecDescent::_tracefirst($_[1]),
q{disjointClassExpressions},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: [ClassExpression]},
Parse::RecDescent::_tracefirst($_[1]),
q{disjointClassExpressions},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{disjointClassExpressions});
%item = (__RULE__ => q{disjointClassExpressions});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying repeated subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{disjointClassExpressions},
$tracelevel)
if defined $::RD_TRACE;
$expectation->is(q{})->at($text);
unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression, 2, 100000000, $_noactions,$expectation,undef)))
{
Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{disjointClassExpressions},
$tracelevel)
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched repeated subrule: [ClassExpression]<< (}
. @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{disjointClassExpressions},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression(2..)}} = $_tok;
push @item, $_tok;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{disjointClassExpressions},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do { $return = $item{'ClassExpression(2..)'}; 1; };
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: [ClassExpression]<<},
Parse::RecDescent::_tracefirst($text),
q{disjointClassExpressions},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{disjointClassExpressions},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{disjointClassExpressions},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{disjointClassExpressions},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{disjointClassExpressions},
$tracelevel)
}
$_[1] = $text;
return $return;
}
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectAllValuesFrom
{
my $thisparser = $_[0];
use vars q{$tracelevel};
local $tracelevel = ($tracelevel||0)+1;
$ERRORS = 0;
my $thisrule = $thisparser->{"rules"}{"ObjectAllValuesFrom"};
Parse::RecDescent::_trace(q{Trying rule: [ObjectAllValuesFrom]},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
my $err_at = @{$thisparser->{errors}};
my $score;
my $score_return;
my $_tok;
my $return = undef;
my $_matched=0;
my $commit=0;
my @item = ();
my %item = ();
my $repeating = defined($_[2]) && $_[2];
my $_noactions = defined($_[3]) && $_[3];
my @arg = defined $_[4] ? @{ &{$_[4]} } : ();
my %arg = ($#arg & 01) ? @arg : (@arg, undef);
my $text;
my $lastsep="";
my $expectation = new Parse::RecDescent::Expectation($thisrule->expected());
$expectation->at($_[1]);
my $thisline;
tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
while (!$_matched && !$commit)
{
Parse::RecDescent::_trace(q{Trying production: ['ObjectAllValuesFrom' '(' ObjectPropertyExpression ClassExpression ')']},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
my $thisprod = $thisrule->{"prods"}[0];
$text = $_[1];
my $_savetext;
@item = (q{ObjectAllValuesFrom});
%item = (__RULE__ => q{ObjectAllValuesFrom});
my $repcount = 0;
Parse::RecDescent::_trace(q{Trying terminal: ['ObjectAllValuesFrom']},
Parse::RecDescent::_tracefirst($text),
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\AObjectAllValuesFrom//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING1__}=$&;
Parse::RecDescent::_trace(q{Trying terminal: ['(']},
Parse::RecDescent::_tracefirst($text),
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{'('})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\(//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING2__}=$&;
Parse::RecDescent::_trace(q{Trying subrule: [ObjectPropertyExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ObjectPropertyExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ObjectPropertyExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ObjectPropertyExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ObjectPropertyExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ObjectPropertyExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying subrule: [ClassExpression]},
Parse::RecDescent::_tracefirst($text),
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
if (1) { no strict qw{refs};
$expectation->is(q{ClassExpression})->at($text);
unless (defined ($_tok = Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled::ClassExpression($thisparser,$text,$repeating,$_noactions,sub { \@arg })))
{
Parse::RecDescent::_trace(q{<<Didn't match subrule: [ClassExpression]>>},
Parse::RecDescent::_tracefirst($text),
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$expectation->failed();
last;
}
Parse::RecDescent::_trace(q{>>Matched subrule: [ClassExpression]<< (return value: [}
. $_tok . q{]},
Parse::RecDescent::_tracefirst($text),
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$item{q{ClassExpression}} = $_tok;
push @item, $_tok;
}
Parse::RecDescent::_trace(q{Trying terminal: [')']},
Parse::RecDescent::_tracefirst($text),
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$lastsep = "";
$expectation->is(q{')'})->at($text);
unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and $text =~ s/\A\)//)
{
$expectation->failed();
Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
. $& . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $item{__STRING3__}=$&;
Parse::RecDescent::_trace(q{Trying action},
Parse::RecDescent::_tracefirst($text),
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$_tok = ($_noactions) ? 0 : do {
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->allValuesFrom, $item{ClassExpression});
$return = $x;
1;
};
unless (defined $_tok)
{
Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
if defined $::RD_TRACE;
last;
}
Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
. $_tok . q{])},
Parse::RecDescent::_tracefirst($text))
if defined $::RD_TRACE;
push @item, $_tok;
$item{__ACTION1__}=$_tok;
Parse::RecDescent::_trace(q{>>Matched production: ['ObjectAllValuesFrom' '(' ObjectPropertyExpression ClassExpression ')']<<},
Parse::RecDescent::_tracefirst($text),
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$_matched = 1;
last;
}
unless ( $_matched || defined($return) || defined($score) )
{
$_[1] = $text; # NOT SURE THIS IS NEEDED
Parse::RecDescent::_trace(q{<<Didn't match rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
return undef;
}
if (!defined($return) && defined($score))
{
Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
q{ObjectAllValuesFrom},
$tracelevel)
if defined $::RD_TRACE;
$return = $score_return;
}
splice @{$thisparser->{errors}}, $err_at;
$return = $item[$#item] unless defined $return;
if (defined $::RD_TRACE)
{
Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
$return . q{])}, "",
q{ObjectAllValuesFrom},
$tracelevel);
Parse::RecDescent::_trace(q{(consumed: [} .
Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
Parse::RecDescent::_tracefirst($text),
, q{ObjectAllValuesFrom},
$tracelevel)
}
$_[1] = $text;
return $return;
}
}
package RDF::Trine::Parser::OwlFn::Compiled; sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
'itempos' => '',
'prevoffset' => '',
'prevline' => '',
'prevcolumn' => '',
'thiscolumn' => ''
},
'namespace' => 'Parse::RecDescent::RDF::Trine::Parser::OwlFn::Compiled',
'_AUTOACTION' => undef,
'rules' => {
'IRI' => bless( {
'impcount' => 0,
'calls' => [
'fullIRI',
'abbreviatedIRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'fullIRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 68
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 69,
'code' => '{ $return = RDF::Trine::Node::Resource->new($item{fullIRI}, $thisparser->{BASE_URI}); 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'abbreviatedIRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 70
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 71,
'code' => '{
my ($pfx, $sfx) = @{ $item{abbreviatedIRI} };
if ($Prefixes{$pfx})
{
$return = $Prefixes{$pfx}->uri($sfx);
}
else
{
warn "Undefined prefix \'${pfx}\' at line ${thisline}.";
$return = RDF::Trine::Node::Resource->new($pfx.$sfx);
}
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'IRI',
'vars' => '',
'line' => 68
}, 'Parse::RecDescent::Rule' ),
'DataMaxCardinality' => bless( {
'impcount' => 0,
'calls' => [
'nonNegativeInteger',
'DataPropertyExpression',
'DataRange'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataMaxCardinality',
'hashname' => '__STRING1__',
'description' => '\'DataMaxCardinality\'',
'lookahead' => 0,
'line' => 647
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 647
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'nonNegativeInteger',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 647
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 647
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataRange',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 1,
'matchrule' => 0,
'repspec' => '?',
'lookahead' => 0,
'line' => 647
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 647
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 648,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{DataPropertyExpression});
$h->($x, $OWL->maxCardinality, RDF::Trine::Node::Literal->new($item{nonNegativeInteger}, undef, $XSD->nonNegativeInteger->uri));
$h->($x, $OWL->onClass, $item{\'ClassExpression(?)\'}->[0])
if $item{\'ClassExpression(?)\'} && @{ $item{\'ClassExpression(?)\'} };
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataMaxCardinality',
'vars' => '',
'line' => 647
}, 'Parse::RecDescent::Rule' ),
'abbreviatedIRI' => bless( {
'impcount' => 0,
'calls' => [
'PNAME_LN'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'PNAME_LN',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 66
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 67,
'code' => '{ $return = $item{PNAME_LN}; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'abbreviatedIRI',
'vars' => '',
'line' => 66
}, 'Parse::RecDescent::Rule' ),
'AnonymousIndividual' => bless( {
'impcount' => 0,
'calls' => [
'nodeID'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'nodeID',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 315
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 316,
'code' => '{ $return = RDF::Trine::Node::Blank->new($thisparser->{BPREFIX}.$item{nodeID}); 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'AnonymousIndividual',
'vars' => '',
'line' => 315
}, 'Parse::RecDescent::Rule' ),
'ObjectPropertyAssertion' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ObjectPropertyExpression',
'sourceIndividual',
'targetIndividual'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectPropertyAssertion',
'hashname' => '__STRING1__',
'description' => '\'ObjectPropertyAssertion\'',
'lookahead' => 0,
'line' => 1094
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 1094
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1094
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1094
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'sourceIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1094
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'targetIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1094
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 1094
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 1095,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{sourceIndividual}, $item{ObjectPropertyExpression}, $item{targetIndividual}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectPropertyAssertion',
'vars' => '',
'line' => 1094
}, 'Parse::RecDescent::Rule' ),
'Assertion' => bless( {
'impcount' => 0,
'calls' => [
'SameIndividual',
'DifferentIndividuals',
'ClassAssertion',
'ObjectPropertyAssertion',
'NegativeObjectPropertyAssertion',
'DataPropertyAssertion',
'NegativeDataPropertyAssertion'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'SameIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1051
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DifferentIndividuals',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1051
}, 'Parse::RecDescent::Subrule' )
],
'line' => 1051
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '2',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ClassAssertion',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1051
}, 'Parse::RecDescent::Subrule' )
],
'line' => 1051
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '3',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectPropertyAssertion',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1052
}, 'Parse::RecDescent::Subrule' )
],
'line' => 1051
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '4',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'NegativeObjectPropertyAssertion',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1052
}, 'Parse::RecDescent::Subrule' )
],
'line' => 1052
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '5',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataPropertyAssertion',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1053
}, 'Parse::RecDescent::Subrule' )
],
'line' => 1052
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '6',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'NegativeDataPropertyAssertion',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1053
}, 'Parse::RecDescent::Subrule' )
],
'line' => 1053
}, 'Parse::RecDescent::Production' )
],
'name' => 'Assertion',
'vars' => '',
'line' => 1050
}, 'Parse::RecDescent::Rule' ),
'ontologyIRI' => bless( {
'impcount' => 0,
'calls' => [
'IRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'IRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 140
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 141,
'code' => '{ $return = $item{IRI}; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ontologyIRI',
'vars' => '',
'line' => 140
}, 'Parse::RecDescent::Rule' ),
'ObjectHasValue' => bless( {
'impcount' => 0,
'calls' => [
'ObjectPropertyExpression',
'Individual'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectHasValue',
'hashname' => '__STRING1__',
'description' => '\'ObjectHasValue\'',
'lookahead' => 0,
'line' => 510
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 510
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 510
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'Individual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 510
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 510
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 511,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->hasValue, $item{Individual});
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectHasValue',
'vars' => '',
'line' => 510
}, 'Parse::RecDescent::Rule' ),
'DataPropertyDomain' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'DataPropertyExpression',
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataPropertyDomain',
'hashname' => '__STRING1__',
'description' => '\'DataPropertyDomain\'',
'lookahead' => 0,
'line' => 985
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 985
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 985
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 985
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ClassExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 985
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 985
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 986,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{DataPropertyExpression}, $RDFS->domain, $item{ClassExpression}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataPropertyDomain',
'vars' => '',
'line' => 985
}, 'Parse::RecDescent::Rule' ),
'ObjectPropertyDomain' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ObjectPropertyExpression',
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectPropertyDomain',
'hashname' => '__STRING1__',
'description' => '\'ObjectPropertyDomain\'',
'lookahead' => 0,
'line' => 818
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 818
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 818
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 818
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ClassExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 818
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 818
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 819,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{ObjectPropertyExpression}, $RDFS->domain, $item{ClassExpression}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectPropertyDomain',
'vars' => '',
'line' => 818
}, 'Parse::RecDescent::Rule' ),
'stringLiteralNoLanguage' => bless( {
'impcount' => 0,
'calls' => [
'quotedString'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'quotedString',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 334
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 335,
'code' => '{ $return = RDF::Trine::Node::Literal->new($item{quotedString}); 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'stringLiteralNoLanguage',
'vars' => '',
'line' => 334
}, 'Parse::RecDescent::Rule' ),
'prefixName' => bless( {
'impcount' => 0,
'calls' => [
'PNAME_NS'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'PNAME_NS',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 64
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 65,
'code' => '{ $return = $item{PNAME_NS}; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'prefixName',
'vars' => '',
'line' => 64
}, 'Parse::RecDescent::Rule' ),
'versionIRI' => bless( {
'impcount' => 0,
'calls' => [
'IRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'IRI',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 1,
'matchrule' => 0,
'repspec' => '?',
'lookahead' => 0,
'line' => 142
}, 'Parse::RecDescent::Repetition' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 143,
'code' => '{ $return = $item{\'IRI(?)\'}->[0]; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'versionIRI',
'vars' => '',
'line' => 142
}, 'Parse::RecDescent::Rule' ),
'InverseObjectProperty' => bless( {
'impcount' => 0,
'calls' => [
'ObjectProperty'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectInverseOf',
'hashname' => '__STRING1__',
'description' => '\'ObjectInverseOf\'',
'lookahead' => 0,
'line' => 353
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 353
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'ObjectProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 353
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 353
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 354,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $OWL->inverseOf, $item{ObjectProperty});
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'InverseObjectProperty',
'vars' => '',
'line' => 353
}, 'Parse::RecDescent::Rule' ),
'ClassAxiom' => bless( {
'impcount' => 0,
'calls' => [
'SubClassOf',
'EquivalentClasses',
'DisjointClasses',
'DisjointUnion'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'SubClassOf',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 675
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'EquivalentClasses',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 675
}, 'Parse::RecDescent::Subrule' )
],
'line' => 675
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '2',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DisjointClasses',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 675
}, 'Parse::RecDescent::Subrule' )
],
'line' => 675
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '3',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DisjointUnion',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 675
}, 'Parse::RecDescent::Subrule' )
],
'line' => 675
}, 'Parse::RecDescent::Production' )
],
'name' => 'ClassAxiom',
'vars' => '',
'line' => 675
}, 'Parse::RecDescent::Rule' ),
'AnnotationAssertion' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'AnnotationProperty',
'AnnotationSubject',
'AnnotationValue'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'AnnotationAssertion',
'hashname' => '__STRING1__',
'description' => '\'AnnotationAssertion\'',
'lookahead' => 0,
'line' => 258
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 258
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 258
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'AnnotationProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 258
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'AnnotationSubject',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 258
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'AnnotationValue',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 258
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 258
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 259,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{AnnotationSubject}, $item{AnnotationProperty}, $item{AnnotationValue}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'AnnotationAssertion',
'vars' => '',
'line' => 258
}, 'Parse::RecDescent::Rule' ),
'ObjectMaxCardinality' => bless( {
'impcount' => 0,
'calls' => [
'nonNegativeInteger',
'ObjectPropertyExpression',
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectMaxCardinality',
'hashname' => '__STRING1__',
'description' => '\'ObjectMaxCardinality\'',
'lookahead' => 0,
'line' => 545
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 545
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'nonNegativeInteger',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 545
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 545
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ClassExpression',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 1,
'matchrule' => 0,
'repspec' => '?',
'lookahead' => 0,
'line' => 545
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 545
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 546,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->maxCardinality, RDF::Trine::Node::Literal->new($item{nonNegativeInteger}, undef, $XSD->nonNegativeInteger->uri));
$h->($x, $OWL->onClass, $item{\'ClassExpression(?)\'}->[0])
if $item{\'ClassExpression(?)\'} && @{ $item{\'ClassExpression(?)\'} };
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectMaxCardinality',
'vars' => '',
'line' => 545
}, 'Parse::RecDescent::Rule' ),
'EquivalentObjectProperties' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ObjectPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'EquivalentObjectProperties',
'hashname' => '__STRING1__',
'description' => '\'EquivalentObjectProperties\'',
'lookahead' => 0,
'line' => 778
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 778
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 778
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '2..',
'lookahead' => 0,
'line' => 778
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 778
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 779,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
foreach my $ce1 (@{ $item{\'ObjectPropertyExpression(2..)\'} })
{
foreach my $ce2 (@{ $item{\'ObjectPropertyExpression(2..)\'} })
{
$a->(
$item{axiomAnnotations},
$h->($ce1, $OWL->equivalentProperty, $ce2),
);
}
}
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'EquivalentObjectProperties',
'vars' => '',
'line' => 778
}, 'Parse::RecDescent::Rule' ),
'DataMinCardinality' => bless( {
'impcount' => 0,
'calls' => [
'nonNegativeInteger',
'DataPropertyExpression',
'DataRange'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataMinCardinality',
'hashname' => '__STRING1__',
'description' => '\'DataMinCardinality\'',
'lookahead' => 0,
'line' => 634
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 634
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'nonNegativeInteger',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 634
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 634
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataRange',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 1,
'matchrule' => 0,
'repspec' => '?',
'lookahead' => 0,
'line' => 634
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 634
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 635,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{DataPropertyExpression});
$h->($x, $OWL->minCardinality, RDF::Trine::Node::Literal->new($item{nonNegativeInteger}, undef, $XSD->nonNegativeInteger->uri));
$h->($x, $OWL->onClass, $item{\'ClassExpression(?)\'}->[0])
if $item{\'ClassExpression(?)\'} && @{ $item{\'ClassExpression(?)\'} };
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataMinCardinality',
'vars' => '',
'line' => 634
}, 'Parse::RecDescent::Rule' ),
'DatatypeRestriction' => bless( {
'impcount' => 0,
'calls' => [
'Datatype',
'dtConstraint'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DatatypeRestriction',
'hashname' => '__STRING1__',
'description' => '\'DatatypeRestriction\'',
'lookahead' => 0,
'line' => 414
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 414
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'Datatype',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 414
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'dtConstraint',
'expected' => undef,
'min' => 1,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => 's',
'lookahead' => 0,
'line' => 414
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 414
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 415,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $RDFS->Datatype);
$h->($x, $OWL->onDatatype, $item{Datatype});
my @y;
foreach my $constraint (@{$item{\'dtConstraint(s)\'}})
{
my $y = RDF::Trine::Node::Blank->new;
$h->($y, @$constraint);
push @y, $y;
}
$h->($x, $OWL->withRestrictions, $list_generator->($h, \\@y));
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DatatypeRestriction',
'vars' => '',
'line' => 414
}, 'Parse::RecDescent::Rule' ),
'Individual' => bless( {
'impcount' => 0,
'calls' => [
'NamedIndividual',
'AnonymousIndividual'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'NamedIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 312
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'AnonymousIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 312
}, 'Parse::RecDescent::Subrule' )
],
'line' => 312
}, 'Parse::RecDescent::Production' )
],
'name' => 'Individual',
'vars' => '',
'line' => 312
}, 'Parse::RecDescent::Rule' ),
'ClassExpression' => bless( {
'impcount' => 0,
'calls' => [
'Class',
'ObjectIntersectionOf',
'ObjectUnionOf',
'ObjectComplementOf',
'ObjectOneOf',
'ObjectSomeValuesFrom',
'ObjectAllValuesFrom',
'ObjectHasValue',
'ObjectHasSelf',
'ObjectMinCardinality',
'ObjectMaxCardinality',
'ObjectExactCardinality',
'DataSomeValuesFrom',
'DataAllValuesFrom',
'DataHasValue',
'DataMinCardinality',
'DataMaxCardinality',
'DataExactCardinality'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'Class',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 437
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectIntersectionOf',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 438
}, 'Parse::RecDescent::Subrule' )
],
'line' => 438
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '2',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectUnionOf',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 438
}, 'Parse::RecDescent::Subrule' )
],
'line' => 438
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '3',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectComplementOf',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 438
}, 'Parse::RecDescent::Subrule' )
],
'line' => 438
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '4',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectOneOf',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 439
}, 'Parse::RecDescent::Subrule' )
],
'line' => 439
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '5',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectSomeValuesFrom',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 439
}, 'Parse::RecDescent::Subrule' )
],
'line' => 439
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '6',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectAllValuesFrom',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 439
}, 'Parse::RecDescent::Subrule' )
],
'line' => 439
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '7',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectHasValue',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 440
}, 'Parse::RecDescent::Subrule' )
],
'line' => 440
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '8',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectHasSelf',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 440
}, 'Parse::RecDescent::Subrule' )
],
'line' => 440
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '9',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectMinCardinality',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 440
}, 'Parse::RecDescent::Subrule' )
],
'line' => 440
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '10',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectMaxCardinality',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 441
}, 'Parse::RecDescent::Subrule' )
],
'line' => 441
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '11',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectExactCardinality',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 441
}, 'Parse::RecDescent::Subrule' )
],
'line' => 441
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '12',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataSomeValuesFrom',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 442
}, 'Parse::RecDescent::Subrule' )
],
'line' => 442
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '13',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataAllValuesFrom',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 442
}, 'Parse::RecDescent::Subrule' )
],
'line' => 442
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '14',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataHasValue',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 442
}, 'Parse::RecDescent::Subrule' )
],
'line' => 442
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '15',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataMinCardinality',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 443
}, 'Parse::RecDescent::Subrule' )
],
'line' => 443
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '16',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataMaxCardinality',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 443
}, 'Parse::RecDescent::Subrule' )
],
'line' => 443
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '17',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataExactCardinality',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 443
}, 'Parse::RecDescent::Subrule' )
],
'line' => 443
}, 'Parse::RecDescent::Production' )
],
'name' => 'ClassExpression',
'vars' => '',
'line' => 437
}, 'Parse::RecDescent::Rule' ),
'annotationAnnotations' => bless( {
'impcount' => 0,
'calls' => [
'Annotation'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'Annotation',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => 's?',
'lookahead' => 0,
'line' => 253
}, 'Parse::RecDescent::Repetition' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 254,
'code' => '{ $return = $item{\'Annotation(s?)\'}; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'annotationAnnotations',
'vars' => '',
'line' => 253
}, 'Parse::RecDescent::Rule' ),
'DataPropertyExpression' => bless( {
'impcount' => 0,
'calls' => [
'DataProperty'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 362
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataPropertyExpression',
'vars' => '',
'line' => 362
}, 'Parse::RecDescent::Rule' ),
'AnnotationPropertyRange' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'AnnotationProperty',
'IRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'AnnotationPropertyRange',
'hashname' => '__STRING1__',
'description' => '\'AnnotationPropertyRange\'',
'lookahead' => 0,
'line' => 293
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 293
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 293
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'AnnotationProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 293
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'IRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 293
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 293
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 294,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{AnnotationProperty}, $RDFS->range, $item{IRI}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'AnnotationPropertyRange',
'vars' => '',
'line' => 293
}, 'Parse::RecDescent::Rule' ),
'directlyImportsDocuments' => bless( {
'impcount' => 0,
'calls' => [
'importStatement'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'importStatement',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => 's?',
'lookahead' => 0,
'line' => 144
}, 'Parse::RecDescent::Repetition' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 145,
'code' => '{ $return = $item{\'importStatement(s?)\'}; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'directlyImportsDocuments',
'vars' => '',
'line' => 144
}, 'Parse::RecDescent::Rule' ),
'languageTag' => bless( {
'impcount' => 0,
'calls' => [],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 1,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 1,
'actcount' => 1,
'items' => [
bless( {
'pattern' => '@',
'hashname' => '__STRING1__',
'description' => '\'@\'',
'lookahead' => 0,
'line' => 57
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '[A-Z0-9]{1,8}(?:-[A-Z0-9]{1,8})*',
'hashname' => '__PATTERN1__',
'description' => '/[A-Z0-9]\\{1,8\\}(?:-[A-Z0-9]\\{1,8\\})*/i',
'lookahead' => 0,
'rdelim' => '/',
'line' => 57,
'mod' => 'i',
'ldelim' => '/'
}, 'Parse::RecDescent::Token' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 58,
'code' => '{ $return = $item{__PATTERN1__}; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'languageTag',
'vars' => '',
'line' => 57
}, 'Parse::RecDescent::Rule' ),
'targetValue' => bless( {
'impcount' => 0,
'calls' => [
'Literal'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'Literal',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1057
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'targetValue',
'vars' => '',
'line' => 1057
}, 'Parse::RecDescent::Rule' ),
'NegativeDataPropertyAssertion' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'DataPropertyExpression',
'sourceIndividual',
'targetValue'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'NegativeDataPropertyAssertion',
'hashname' => '__STRING1__',
'description' => '\'NegativeDataPropertyAssertion\'',
'lookahead' => 0,
'line' => 1125
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 1125
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1125
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1125
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'sourceIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1125
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'targetValue',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1125
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 1125
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 1126,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->NegativePropertyAssertion);
$h->($x, $OWL->sourceIndividual, $item{sourceIndividual});
$h->($x, $OWL->assertionProperty, $item{DataPropertyExpression});
$h->($x, $OWL->targetValue, $item{targetValue});
my $a = $thisparser->{ANNOTATE};
$a->($item{axiomAnnotations}, $x);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'NegativeDataPropertyAssertion',
'vars' => '',
'line' => 1125
}, 'Parse::RecDescent::Rule' ),
'ObjectUnionOf' => bless( {
'impcount' => 0,
'calls' => [
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectUnionOf',
'hashname' => '__STRING1__',
'description' => '\'ObjectUnionOf\'',
'lookahead' => 0,
'line' => 456
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 456
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'ClassExpression',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '2..',
'lookahead' => 0,
'line' => 456
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 456
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 457,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $list = $list_generator->($h, $item{\'ClassExpression(2..)\'});
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Class);
$h->($x, $OWL->unionOf, $list);
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectUnionOf',
'vars' => '',
'line' => 456
}, 'Parse::RecDescent::Rule' ),
'AnnotationPropertyDomain' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'AnnotationProperty',
'IRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'AnnotationPropertyDomain',
'hashname' => '__STRING1__',
'description' => '\'AnnotationPropertyDomain\'',
'lookahead' => 0,
'line' => 282
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 282
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 282
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'AnnotationProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 282
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'IRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 282
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 282
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 283,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{AnnotationProperty}, $RDFS->domain, $item{IRI}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'AnnotationPropertyDomain',
'vars' => '',
'line' => 282
}, 'Parse::RecDescent::Rule' ),
'DataAllValuesFrom' => bless( {
'impcount' => 0,
'calls' => [
'DataPropertyExpression',
'DataRange'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataAllValuesFrom',
'hashname' => '__STRING1__',
'description' => '\'DataAllValuesFrom\'',
'lookahead' => 0,
'line' => 597
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 597
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'DataPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 597
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataRange',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 597
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 597
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 598,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{DataPropertyExpression});
$h->($x, $OWL->allValuesFrom, $item{DataRange});
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataAllValuesFrom',
'hashname' => '__STRING1__',
'description' => '\'DataAllValuesFrom\'',
'lookahead' => 0,
'line' => 608
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 608
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'DataPropertyExpression',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '2..',
'lookahead' => 0,
'line' => 608
}, 'Parse::RecDescent::Repetition' ),
bless( {
'subrule' => 'DataRange',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 608
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 608
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 609,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->(
$x,
$OWL->onProperties,
$list_generator->($h, $item{\'DataPropertyExpression(2)\'}),
);
$h->($x, $OWL->allValuesFrom, $item{DataRange});
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataAllValuesFrom',
'vars' => '',
'line' => 597
}, 'Parse::RecDescent::Rule' ),
'ObjectComplementOf' => bless( {
'impcount' => 0,
'calls' => [
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectComplementOf',
'hashname' => '__STRING1__',
'description' => '\'ObjectComplementOf\'',
'lookahead' => 0,
'line' => 467
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 467
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'ClassExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 467
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 467
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 468,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Class);
$h->($x, $OWL->complementOf, $item{ClassExpression});
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectComplementOf',
'vars' => '',
'line' => 467
}, 'Parse::RecDescent::Rule' ),
'Class' => bless( {
'impcount' => 0,
'calls' => [
'IRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'IRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 306
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'Class',
'vars' => '',
'line' => 304
}, 'Parse::RecDescent::Rule' ),
'quotedString' => bless( {
'impcount' => 0,
'calls' => [],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 2,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 1,
'actcount' => 1,
'items' => [
bless( {
'pattern' => '"',
'hashname' => '__STRING1__',
'description' => '\'"\'',
'lookahead' => 0,
'line' => 51
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(?:\\\\\\\\|\\\\"|[^\\\\\\\\\\\\"])*',
'hashname' => '__PATTERN1__',
'description' => '/(?:\\\\\\\\\\\\\\\\|\\\\\\\\"|[^\\\\\\\\\\\\\\\\\\\\\\\\"])*/',
'lookahead' => 0,
'rdelim' => '/',
'line' => 51,
'mod' => '',
'ldelim' => '/'
}, 'Parse::RecDescent::Token' ),
bless( {
'pattern' => '"',
'hashname' => '__STRING2__',
'description' => '\'"\'',
'lookahead' => 0,
'line' => 51
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 52,
'code' => '{
$return = $item{__PATTERN1__};
$return =~ s/\\\\([\\\\\\"])/$1/g;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'quotedString',
'vars' => '',
'line' => 51
}, 'Parse::RecDescent::Rule' ),
'superClassExpression' => bless( {
'impcount' => 0,
'calls' => [
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ClassExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 688
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'superClassExpression',
'vars' => '',
'line' => 688
}, 'Parse::RecDescent::Rule' ),
'DataSomeValuesFrom' => bless( {
'impcount' => 0,
'calls' => [
'DataPropertyExpression',
'DataRange'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataSomeValuesFrom',
'hashname' => '__STRING1__',
'description' => '\'DataSomeValuesFrom\'',
'lookahead' => 0,
'line' => 571
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 571
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'DataPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 571
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataRange',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 571
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 571
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 572,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{DataPropertyExpression});
$h->($x, $OWL->someValuesFrom, $item{DataRange});
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataSomeValuesFrom',
'hashname' => '__STRING1__',
'description' => '\'DataSomeValuesFrom\'',
'lookahead' => 0,
'line' => 582
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 582
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'DataPropertyExpression',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '2..',
'lookahead' => 0,
'line' => 582
}, 'Parse::RecDescent::Repetition' ),
bless( {
'subrule' => 'DataRange',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 582
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 582
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 583,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->(
$x,
$OWL->onProperties,
$list_generator->($h, $item{\'DataPropertyExpression(2)\'}),
);
$h->($x, $OWL->someValuesFrom, $item{DataRange});
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataSomeValuesFrom',
'vars' => '',
'line' => 571
}, 'Parse::RecDescent::Rule' ),
'Axiom' => bless( {
'impcount' => 0,
'calls' => [
'Declaration',
'ClassAxiom',
'ObjectPropertyAxiom',
'DataPropertyAxiom',
'DatatypeDefinition',
'HasKey',
'Assertion',
'AnnotationAxiom'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'Declaration',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 673
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ClassAxiom',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 673
}, 'Parse::RecDescent::Subrule' )
],
'line' => 673
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '2',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectPropertyAxiom',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 673
}, 'Parse::RecDescent::Subrule' )
],
'line' => 673
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '3',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataPropertyAxiom',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 673
}, 'Parse::RecDescent::Subrule' )
],
'line' => 673
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '4',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DatatypeDefinition',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 673
}, 'Parse::RecDescent::Subrule' )
],
'line' => 673
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '5',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'HasKey',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 673
}, 'Parse::RecDescent::Subrule' )
],
'line' => 673
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '6',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'Assertion',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 673
}, 'Parse::RecDescent::Subrule' )
],
'line' => 673
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '7',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'AnnotationAxiom',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 673
}, 'Parse::RecDescent::Subrule' )
],
'line' => 673
}, 'Parse::RecDescent::Production' )
],
'name' => 'Axiom',
'vars' => '',
'line' => 673
}, 'Parse::RecDescent::Rule' ),
'ontologyAnnotations' => bless( {
'impcount' => 0,
'calls' => [
'Annotation'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'Annotation',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => 's?',
'lookahead' => 0,
'line' => 155
}, 'Parse::RecDescent::Repetition' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 156,
'code' => '{ $return = ref $item{\'Annotation(s?)\'} eq \'ARRAY\' ? $item{\'Annotation(s?)\'} : []; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ontologyAnnotations',
'vars' => '',
'line' => 155
}, 'Parse::RecDescent::Rule' ),
'FunctionalDataProperty' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'DataPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'FunctionalDataProperty',
'hashname' => '__STRING1__',
'description' => '\'FunctionalDataProperty\'',
'lookahead' => 0,
'line' => 1007
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 1007
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1007
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1007
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 1007
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 1008,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{DataPropertyExpression}, $RDF->type, $OWL->FunctionalProperty),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'FunctionalDataProperty',
'vars' => '',
'line' => 1007
}, 'Parse::RecDescent::Rule' ),
'Datatype' => bless( {
'impcount' => 0,
'calls' => [
'IRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'IRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 307
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'Datatype',
'vars' => '',
'line' => 307
}, 'Parse::RecDescent::Rule' ),
'ObjectPropertyRange' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ObjectPropertyExpression',
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectPropertyRange',
'hashname' => '__STRING1__',
'description' => '\'ObjectPropertyRange\'',
'lookahead' => 0,
'line' => 829
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 829
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 829
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 829
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ClassExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 829
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 829
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 830,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{ObjectPropertyExpression}, $RDFS->range, $item{ClassExpression}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectPropertyRange',
'vars' => '',
'line' => 829
}, 'Parse::RecDescent::Rule' ),
'AnnotationValue' => bless( {
'impcount' => 0,
'calls' => [
'AnonymousIndividual',
'IRI',
'Literal'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'AnonymousIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 235
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'IRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 235
}, 'Parse::RecDescent::Subrule' )
],
'line' => 235
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '2',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'Literal',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 235
}, 'Parse::RecDescent::Subrule' )
],
'line' => 235
}, 'Parse::RecDescent::Production' )
],
'name' => 'AnnotationValue',
'vars' => '',
'line' => 235
}, 'Parse::RecDescent::Rule' ),
'DifferentIndividuals' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'sourceIndividual',
'targetIndividual',
'Individual'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DifferentIndividuals',
'hashname' => '__STRING1__',
'description' => '\'DifferentIndividuals\'',
'lookahead' => 0,
'line' => 1070
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 1070
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1070
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'sourceIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1070
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'targetIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1070
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 1070
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 1071,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{sourceIndividual}, $OWL->differentFrom, $item{targetIndividual}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'pattern' => 'DifferentIndividuals',
'hashname' => '__STRING1__',
'description' => '\'DifferentIndividuals\'',
'lookahead' => 0,
'line' => 1081
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 1081
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1081
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'Individual',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '2..',
'lookahead' => 0,
'line' => 1081
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 1081
}, 'Parse::RecDescent::Literal' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DifferentIndividuals',
'vars' => '',
'line' => 1070
}, 'Parse::RecDescent::Rule' ),
'AsymmetricObjectProperty' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ObjectPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'AsymmetricObjectProperty',
'hashname' => '__STRING1__',
'description' => '\'AsymmetricObjectProperty\'',
'lookahead' => 0,
'line' => 906
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 906
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 906
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 906
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 906
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 907,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{\'ObjectPropertyExpression\'}, $RDF->type, $OWL->AsymmetricProperty),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'AsymmetricObjectProperty',
'vars' => '',
'line' => 906
}, 'Parse::RecDescent::Rule' ),
'versioningIRIs' => bless( {
'impcount' => 0,
'calls' => [
'ontologyIRI',
'versionIRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'ontologyIRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 138
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'versionIRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 138
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 139,
'code' => '{ $return = [$item{ontologyIRI}, $item{versionIRI}]; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'versioningIRIs',
'vars' => '',
'line' => 138
}, 'Parse::RecDescent::Rule' ),
'ReflexiveObjectProperty' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ObjectPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ReflexiveObjectProperty',
'hashname' => '__STRING1__',
'description' => '\'ReflexiveObjectProperty\'',
'lookahead' => 0,
'line' => 873
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 873
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 873
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 873
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 873
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 874,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{\'ObjectPropertyExpression\'}, $RDF->type, $OWL->ReflexiveProperty),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ReflexiveObjectProperty',
'vars' => '',
'line' => 873
}, 'Parse::RecDescent::Rule' ),
'DataOneOf' => bless( {
'impcount' => 0,
'calls' => [
'Literal'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataOneOf',
'hashname' => '__STRING1__',
'description' => '\'DataOneOf\'',
'lookahead' => 0,
'line' => 403
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 403
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'Literal',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '2..',
'lookahead' => 0,
'line' => 403
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 403
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 404,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $list = $list_generator->($h, $item{\'Literal(2..)\'});
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $RDFS->Datatype);
$h->($x, $OWL->oneOf, $list);
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataOneOf',
'vars' => '',
'line' => 403
}, 'Parse::RecDescent::Rule' ),
'ObjectExactCardinality' => bless( {
'impcount' => 0,
'calls' => [
'nonNegativeInteger',
'ObjectPropertyExpression',
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectExactCardinality',
'hashname' => '__STRING1__',
'description' => '\'ObjectExactCardinality\'',
'lookahead' => 0,
'line' => 558
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 558
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'nonNegativeInteger',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 558
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 558
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ClassExpression',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 1,
'matchrule' => 0,
'repspec' => '?',
'lookahead' => 0,
'line' => 558
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 558
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 559,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->cardinality, RDF::Trine::Node::Literal->new($item{nonNegativeInteger}, undef, $XSD->nonNegativeInteger->uri));
$h->($x, $OWL->onClass, $item{\'ClassExpression(?)\'}->[0])
if $item{\'ClassExpression(?)\'} && @{ $item{\'ClassExpression(?)\'} };
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectExactCardinality',
'vars' => '',
'line' => 558
}, 'Parse::RecDescent::Rule' ),
'SubObjectPropertyOf' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'subObjectPropertyExpression',
'superObjectPropertyExpression',
'ObjectPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'SubObjectPropertyOf',
'hashname' => '__STRING1__',
'description' => '\'SubObjectPropertyOf\'',
'lookahead' => 0,
'line' => 753
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 753
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 753
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'subObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 753
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'superObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 753
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 753
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 754,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{subObjectPropertyExpression}, $RDFS->subPropertyOf, $item{superObjectPropertyExpression}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 6,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'SubObjectPropertyOf',
'hashname' => '__STRING1__',
'description' => '\'SubObjectPropertyOf\'',
'lookahead' => 0,
'line' => 763
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 763
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 763
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => 'ObjectPropertyChain',
'hashname' => '__STRING3__',
'description' => '\'ObjectPropertyChain\'',
'lookahead' => 0,
'line' => 763
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING4__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 763
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '2..',
'lookahead' => 0,
'line' => 763
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING5__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 763
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'superObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 763
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING6__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 763
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 764,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
my $list = $list_generator->($h, $item{\'ObjectPropertyExpression(2..)\'});
$a->(
$item{axiomAnnotations},
$h->($item{superObjectPropertyExpression}, $OWL->propertyChainAxiom, $list),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'SubObjectPropertyOf',
'vars' => '',
'line' => 753
}, 'Parse::RecDescent::Rule' ),
'stringLiteralWithLanguage' => bless( {
'impcount' => 0,
'calls' => [
'quotedString',
'languageTag'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'quotedString',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 336
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'languageTag',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 336
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 337,
'code' => '{ $return = RDF::Trine::Node::Literal->new($item{quotedString}, $item{languageTag}); 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'stringLiteralWithLanguage',
'vars' => '',
'line' => 336
}, 'Parse::RecDescent::Rule' ),
'nodeID' => bless( {
'impcount' => 0,
'calls' => [
'PN_LOCAL'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 1,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => '_:',
'hashname' => '__STRING1__',
'description' => '\'_:\'',
'lookahead' => 0,
'line' => 59
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'PN_LOCAL',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 59
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 60,
'code' => '{ $return = $item{PN_LOCAL}; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'nodeID',
'vars' => '',
'line' => 59
}, 'Parse::RecDescent::Rule' ),
'PN_LOCAL' => bless( {
'impcount' => 0,
'calls' => [],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 1,
'actcount' => 1,
'items' => [
bless( {
'pattern' => '(?:[A-Z0-9_]|[\\x{00C0}-\\x{00D6}]|[\\x{00D8}-\\x{00F6}]|[\\x{00F8}-\\x{02FF}]|[\\x{0370}-\\x{037D}]|[\\x{037F}-\\x{1FFF}]|[\\x{200C}-\\x{200D}]|[\\x{2070}-\\x{218F}]|[\\x{2C00}-\\x{2FEF}]|[\\x{3001}-\\x{D7FF}]|[\\x{F900}-\\x{FDCF}]|[\\x{FDF0}-\\x{FFFD}]|[\\x{10000}-\\x{EFFFF}])*',
'hashname' => '__PATTERN1__',
'description' => '/(?:[A-Z0-9_]|[\\\\x\\{00C0\\}-\\\\x\\{00D6\\}]|[\\\\x\\{00D8\\}-\\\\x\\{00F6\\}]|[\\\\x\\{00F8\\}-\\\\x\\{02FF\\}]|[\\\\x\\{0370\\}-\\\\x\\{037D\\}]|[\\\\x\\{037F\\}-\\\\x\\{1FFF\\}]|[\\\\x\\{200C\\}-\\\\x\\{200D\\}]|[\\\\x\\{2070\\}-\\\\x\\{218F\\}]|[\\\\x\\{2C00\\}-\\\\x\\{2FEF\\}]|[\\\\x\\{3001\\}-\\\\x\\{D7FF\\}]|[\\\\x\\{F900\\}-\\\\x\\{FDCF\\}]|[\\\\x\\{FDF0\\}-\\\\x\\{FFFD\\}]|[\\\\x\\{10000\\}-\\\\x\\{EFFFF\\}])*/i',
'lookahead' => 0,
'rdelim' => '/',
'line' => 37,
'mod' => 'i',
'ldelim' => '/'
}, 'Parse::RecDescent::Token' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 38,
'code' => '{ $return = $item{__PATTERN1__}; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'PN_LOCAL',
'vars' => '',
'line' => 36
}, 'Parse::RecDescent::Rule' ),
'HasKey' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ClassExpression',
'ObjectPropertyExpression',
'DataPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 7,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'HasKey',
'hashname' => '__STRING1__',
'description' => '\'HasKey\'',
'lookahead' => 0,
'line' => 1029
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 1029
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1029
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ClassExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1029
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING3__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 1029
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => 's?',
'lookahead' => 0,
'line' => 1029
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING4__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 1029
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING5__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 1029
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'DataPropertyExpression',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => 's?',
'lookahead' => 0,
'line' => 1029
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING6__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 1029
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING7__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 1029
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 1030,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
my @list_items;
push @list_items, @{$item{\'ObjectPropertyExpression(s?)\'}}
if ref $item{\'ObjectPropertyExpression(s?)\'} eq \'ARRAY\'
&& @{ $item{\'ObjectPropertyExpression(s?)\'} };
push @list_items, @{$item{\'DataPropertyExpression(s?)\'}}
if ref $item{\'DataPropertyExpression(s?)\'} eq \'ARRAY\'
&& @{ $item{\'DataPropertyExpression(s?)\'} };
my $list = $list_generator->($h, \\@list_items);
$a->(
$item{axiomAnnotations},
$h->($item{ClassExpression}, $OWL->hasKey, $list),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'HasKey',
'vars' => '',
'line' => 1029
}, 'Parse::RecDescent::Rule' ),
'prefixDeclaration' => bless( {
'impcount' => 0,
'calls' => [
'prefixName',
'fullIRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 4,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'Prefix',
'hashname' => '__STRING1__',
'description' => '\'Prefix\'',
'lookahead' => 0,
'line' => 87
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 87
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'prefixName',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 87
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => '=',
'hashname' => '__STRING3__',
'description' => '\'=\'',
'lookahead' => 0,
'line' => 87
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'fullIRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 87
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING4__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 87
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 88,
'code' => '{
if (defined $Prefixes{ $item{prefixName} })
{
warn(sprintf("Ignoring attempt to redeclare prefix \'%s\'.", $item{prefixName}));
}
else
{
my $u = RDF::Trine::Node::Resource->new($item{fullIRI}, $thisparser->{BASE_URI});
$Prefixes{ $item{prefixName} } = RDF::Trine::Namespace->new($u->uri);
$thisparser->{PREFIX}->($item{prefixName}, $item{fullIRI});
}
$return = \\%item;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'prefixDeclaration',
'vars' => '',
'line' => 87
}, 'Parse::RecDescent::Rule' ),
'dtConstraint' => bless( {
'impcount' => 0,
'calls' => [
'constrainingFacet',
'restrictionValue'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'constrainingFacet',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 432
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'restrictionValue',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 432
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 433,
'code' => '{ $return = [ $item{constrainingFacet}, $item{restrictionValue} ]; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'dtConstraint',
'vars' => '',
'line' => 432
}, 'Parse::RecDescent::Rule' ),
'constrainingFacet' => bless( {
'impcount' => 0,
'calls' => [
'IRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'IRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 434
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'constrainingFacet',
'vars' => '',
'line' => 434
}, 'Parse::RecDescent::Rule' ),
'superAnnotationProperty' => bless( {
'impcount' => 0,
'calls' => [
'AnnotationProperty'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'AnnotationProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 280
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'superAnnotationProperty',
'vars' => '',
'line' => 280
}, 'Parse::RecDescent::Rule' ),
'InverseObjectProperties' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ObjectPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'InverseObjectProperties',
'hashname' => '__STRING1__',
'description' => '\'InverseObjectProperties\'',
'lookahead' => 0,
'line' => 840
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 840
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 840
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 2,
'matchrule' => 0,
'repspec' => '2',
'lookahead' => 0,
'line' => 840
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 840
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 841,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{\'ObjectPropertyExpression(2)\'}->[0], $OWL->inverseOf, $item{\'ObjectPropertyExpression(2)\'}->[1]),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'InverseObjectProperties',
'vars' => '',
'line' => 840
}, 'Parse::RecDescent::Rule' ),
'ObjectMinCardinality' => bless( {
'impcount' => 0,
'calls' => [
'nonNegativeInteger',
'ObjectPropertyExpression',
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectMinCardinality',
'hashname' => '__STRING1__',
'description' => '\'ObjectMinCardinality\'',
'lookahead' => 0,
'line' => 532
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 532
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'nonNegativeInteger',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 532
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 532
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ClassExpression',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 1,
'matchrule' => 0,
'repspec' => '?',
'lookahead' => 0,
'line' => 532
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 532
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 533,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->minCardinality, RDF::Trine::Node::Literal->new($item{nonNegativeInteger}, undef, $XSD->nonNegativeInteger->uri));
$h->($x, $OWL->onClass, $item{\'ClassExpression(?)\'}->[0])
if $item{\'ClassExpression(?)\'} && @{ $item{\'ClassExpression(?)\'} };
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectMinCardinality',
'vars' => '',
'line' => 532
}, 'Parse::RecDescent::Rule' ),
'ObjectHasSelf' => bless( {
'impcount' => 0,
'calls' => [
'ObjectPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectHasSelf',
'hashname' => '__STRING1__',
'description' => '\'ObjectHasSelf\'',
'lookahead' => 0,
'line' => 521
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 521
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 521
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 521
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 522,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->hasSelf, RDF::Trine::Node::Literal->new(\'true\', undef, $XSD->boolean->uri));
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectHasSelf',
'vars' => '',
'line' => 521
}, 'Parse::RecDescent::Rule' ),
'DatatypeDefinition' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'Datatype',
'DataRange'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DatatypeDefinition',
'hashname' => '__STRING1__',
'description' => '\'DatatypeDefinition\'',
'lookahead' => 0,
'line' => 1018
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 1018
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1018
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'Datatype',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1018
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataRange',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1018
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 1018
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 1019,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{Datatype}, $OWL->equivalentClass, $item{DataRange}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DatatypeDefinition',
'vars' => '',
'line' => 1018
}, 'Parse::RecDescent::Rule' ),
'TransitiveObjectProperty' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ObjectPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'TransitiveObjectProperty',
'hashname' => '__STRING1__',
'description' => '\'TransitiveObjectProperty\'',
'lookahead' => 0,
'line' => 917
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 917
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 917
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 917
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 917
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 918,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{\'ObjectPropertyExpression\'}, $RDF->type, $OWL->TransitiveProperty),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'TransitiveObjectProperty',
'vars' => '',
'line' => 917
}, 'Parse::RecDescent::Rule' ),
'ObjectPropertyExpression' => bless( {
'impcount' => 0,
'calls' => [
'ObjectProperty',
'InverseObjectProperty'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 351
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'InverseObjectProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 351
}, 'Parse::RecDescent::Subrule' )
],
'line' => 351
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectPropertyExpression',
'vars' => '',
'line' => 351
}, 'Parse::RecDescent::Rule' ),
'PNAME_NS' => bless( {
'impcount' => 0,
'calls' => [],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 1,
'actcount' => 1,
'items' => [
bless( {
'pattern' => '(?:[A-Z](?:[A-Z0-9_]|[\\x{00C0}-\\x{00D6}]|[\\x{00D8}-\\x{00F6}]|[\\x{00F8}-\\x{02FF}]|[\\x{0370}-\\x{037D}]|[\\x{037F}-\\x{1FFF}]|[\\x{200C}-\\x{200D}]|[\\x{2070}-\\x{218F}]|[\\x{2C00}-\\x{2FEF}]|[\\x{3001}-\\x{D7FF}]|[\\x{F900}-\\x{FDCF}]|[\\x{FDF0}-\\x{FFFD}]|[\\x{10000}-\\x{EFFFF}])*)?:',
'hashname' => '__PATTERN1__',
'description' => '/(?:[A-Z](?:[A-Z0-9_]|[\\\\x\\{00C0\\}-\\\\x\\{00D6\\}]|[\\\\x\\{00D8\\}-\\\\x\\{00F6\\}]|[\\\\x\\{00F8\\}-\\\\x\\{02FF\\}]|[\\\\x\\{0370\\}-\\\\x\\{037D\\}]|[\\\\x\\{037F\\}-\\\\x\\{1FFF\\}]|[\\\\x\\{200C\\}-\\\\x\\{200D\\}]|[\\\\x\\{2070\\}-\\\\x\\{218F\\}]|[\\\\x\\{2C00\\}-\\\\x\\{2FEF\\}]|[\\\\x\\{3001\\}-\\\\x\\{D7FF\\}]|[\\\\x\\{F900\\}-\\\\x\\{FDCF\\}]|[\\\\x\\{FDF0\\}-\\\\x\\{FFFD\\}]|[\\\\x\\{10000\\}-\\\\x\\{EFFFF\\}])*)?:/i',
'lookahead' => 0,
'rdelim' => '/',
'line' => 39,
'mod' => 'i',
'ldelim' => '/'
}, 'Parse::RecDescent::Token' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 40,
'code' => '{ $return = $item{__PATTERN1__}; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'PNAME_NS',
'vars' => '',
'line' => 39
}, 'Parse::RecDescent::Rule' ),
'Annotation' => bless( {
'impcount' => 0,
'calls' => [
'annotationAnnotations',
'AnnotationProperty',
'AnnotationValue'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'Annotation',
'hashname' => '__STRING1__',
'description' => '\'Annotation\'',
'lookahead' => 0,
'line' => 241
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 241
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'annotationAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 241
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'AnnotationProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 241
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'AnnotationValue',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 241
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 241
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 242,
'code' => '{
$return = {
template => RDF::Trine::Statement->new(
RDF::Trine::Node::Variable->new(\'subject\'),
$item{AnnotationProperty},
$item{AnnotationValue},
),
annotationAnnotations => $item{annotationAnnotations}
};
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'Annotation',
'vars' => '',
'line' => 241
}, 'Parse::RecDescent::Rule' ),
'Ontology' => bless( {
'impcount' => 0,
'calls' => [
'versioningIRIs',
'directlyImportsDocuments',
'ontologyAnnotations',
'axioms'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'Ontology',
'hashname' => '__STRING1__',
'description' => '\'Ontology\'',
'lookahead' => 0,
'line' => 102
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 102
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'versioningIRIs',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 1,
'matchrule' => 0,
'repspec' => '?',
'lookahead' => 0,
'line' => 103
}, 'Parse::RecDescent::Repetition' ),
bless( {
'subrule' => 'directlyImportsDocuments',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 104
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ontologyAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 105
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'axioms',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 106
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 107
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 108,
'code' => '{
my $h = $thisparser->{TRIPLE};
my ($ont_iri, $ver_iri) =
$item{\'versioningIRIs(?)\'}->[0] && @{ $item{\'versioningIRIs(?)\'}->[0] }
? @{ $item{\'versioningIRIs(?)\'}->[0] }
: (RDF::Trine::Node::Blank->new);
$h->($ont_iri, $RDF->type, $OWL->Ontology);
if (ref $ver_iri)
{
$h->($ont_iri, $OWL->versionIRI, $ver_iri);
}
foreach my $st (@{ $item{\'directlyImportsDocuments\'} })
{
my $import = $st->bind_variables({ ontology => $ont_iri });
$h->($import);
}
foreach my $ann (@{ $item{\'ontologyAnnotations\'} })
{
my $st = $ann->{template}->bind_variables({ subject => $ont_iri });
$h->($st, 2);
if (ref $ann->{annotationAnnotations} eq \'ARRAY\'
and @{ $ann->{annotationAnnotations} })
{
$thisparser->{ANNOTATE}->($ann->{annotationAnnotations}, $st, 4);
}
}
$return = \\%item;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'Ontology',
'vars' => '',
'line' => 102
}, 'Parse::RecDescent::Rule' ),
'AnnotationSubject' => bless( {
'impcount' => 0,
'calls' => [
'IRI',
'AnonymousIndividual'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'IRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 234
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'AnonymousIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 234
}, 'Parse::RecDescent::Subrule' )
],
'line' => 234
}, 'Parse::RecDescent::Production' )
],
'name' => 'AnnotationSubject',
'vars' => '',
'line' => 234
}, 'Parse::RecDescent::Rule' ),
'subClassExpression' => bless( {
'impcount' => 0,
'calls' => [
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ClassExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 687
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'subClassExpression',
'vars' => '',
'line' => 687
}, 'Parse::RecDescent::Rule' ),
'booleanLiteral' => bless( {
'impcount' => 0,
'calls' => [],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 1,
'actcount' => 1,
'items' => [
bless( {
'pattern' => '(true|false|yes|no)',
'hashname' => '__PATTERN1__',
'description' => '/(true|false|yes|no)/i',
'lookahead' => 0,
'rdelim' => '/',
'line' => 340,
'mod' => 'i',
'ldelim' => '/'
}, 'Parse::RecDescent::Token' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 341,
'code' => '{
if ($item{__PATTERN1__} =~ /(true|yes)/i)
{ $return = RDF::Trine::Node::Literal->new(\'true\', undef, $XSD->boolean->uri); }
elsif ($item{__PATTERN1__} =~ /(false|no)/i)
{ $return = RDF::Trine::Node::Literal->new(\'false\', undef, $XSD->boolean->uri); }
else
{ die "huh?"; }
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'booleanLiteral',
'vars' => '',
'line' => 340
}, 'Parse::RecDescent::Rule' ),
'DisjointDataProperties' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'DataPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DisjointDataProperties',
'hashname' => '__STRING1__',
'description' => '\'DisjointDataProperties\'',
'lookahead' => 0,
'line' => 962
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 962
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 962
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataPropertyExpression',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 2,
'matchrule' => 0,
'repspec' => '2',
'lookahead' => 0,
'line' => 962
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 962
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 963,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{\'DataPropertyExpression(2)\'}->[0], $OWL->propertyDisjointWith, $item{\'DataPropertyExpression(2)\'}->[1]),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DisjointDataProperties',
'hashname' => '__STRING1__',
'description' => '\'DisjointDataProperties\'',
'lookahead' => 0,
'line' => 973
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 973
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 973
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataPropertyExpression',
'expected' => undef,
'min' => 3,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '3..',
'lookahead' => 0,
'line' => 973
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 973
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 974,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
my $x = RDF::Trine::Node::Blank->new;
my $list = $list_generator->($h, $item{\'DataPropertyExpression(3..)\'});
$h->($x, $RDF->type, $OWL->AllDisjointProperties);
$h->($x, $OWL->members, $list);
$a->($item{axiomAnnotations}, $x);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DisjointDataProperties',
'vars' => '',
'line' => 962
}, 'Parse::RecDescent::Rule' ),
'DataUnionOf' => bless( {
'impcount' => 0,
'calls' => [
'DataRange'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataUnionOf',
'hashname' => '__STRING1__',
'description' => '\'DataUnionOf\'',
'lookahead' => 0,
'line' => 382
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 382
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'DataRange',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '2..',
'lookahead' => 0,
'line' => 382
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 382
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 383,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $list = $list_generator->($h, $item{\'DataRange(2..)\'});
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $RDFS->Datatype);
$h->($x, $OWL->unionOf, $list);
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataUnionOf',
'vars' => '',
'line' => 382
}, 'Parse::RecDescent::Rule' ),
'IrreflexiveObjectProperty' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ObjectPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'IrreflexiveObjectProperty',
'hashname' => '__STRING1__',
'description' => '\'IrreflexiveObjectProperty\'',
'lookahead' => 0,
'line' => 884
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 884
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 884
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 884
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 884
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 885,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{\'ObjectPropertyExpression\'}, $RDF->type, $OWL->IrreflexiveProperty),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'IrreflexiveObjectProperty',
'vars' => '',
'line' => 884
}, 'Parse::RecDescent::Rule' ),
'SymmetricObjectProperty' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ObjectPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'SymmetricObjectProperty',
'hashname' => '__STRING1__',
'description' => '\'SymmetricObjectProperty\'',
'lookahead' => 0,
'line' => 895
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 895
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 895
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 895
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 895
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 896,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{\'ObjectPropertyExpression\'}, $RDF->type, $OWL->SymmetricProperty),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'SymmetricObjectProperty',
'vars' => '',
'line' => 895
}, 'Parse::RecDescent::Rule' ),
'ObjectOneOf' => bless( {
'impcount' => 0,
'calls' => [
'Individual'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectOneOf',
'hashname' => '__STRING1__',
'description' => '\'ObjectOneOf\'',
'lookahead' => 0,
'line' => 477
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 477
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'Individual',
'expected' => undef,
'min' => 1,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => 's',
'lookahead' => 0,
'line' => 477
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 477
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 478,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $list = $list_generator->($h, $item{\'ClassExpression(2..)\'});
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Class);
$h->($x, $OWL->oneOf, $list);
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectOneOf',
'vars' => '',
'line' => 477
}, 'Parse::RecDescent::Rule' ),
'nonNegativeInteger' => bless( {
'impcount' => 0,
'calls' => [],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 1,
'actcount' => 1,
'items' => [
bless( {
'pattern' => '\\d+',
'hashname' => '__PATTERN1__',
'description' => '/\\\\d+/',
'lookahead' => 0,
'rdelim' => '/',
'line' => 49,
'mod' => '',
'ldelim' => '/'
}, 'Parse::RecDescent::Token' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 50,
'code' => '{ $return = $item{__PATTERN1__}; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'nonNegativeInteger',
'vars' => '',
'line' => 47
}, 'Parse::RecDescent::Rule' ),
'sourceIndividual' => bless( {
'impcount' => 0,
'calls' => [
'Individual'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'Individual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1055
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'sourceIndividual',
'vars' => '',
'line' => 1055
}, 'Parse::RecDescent::Rule' ),
'subAnnotationProperty' => bless( {
'impcount' => 0,
'calls' => [
'AnnotationProperty'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'AnnotationProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 279
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'subAnnotationProperty',
'vars' => '',
'line' => 279
}, 'Parse::RecDescent::Rule' ),
'NamedIndividual' => bless( {
'impcount' => 0,
'calls' => [
'IRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'IRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 314
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'NamedIndividual',
'vars' => '',
'line' => 314
}, 'Parse::RecDescent::Rule' ),
'targetIndividual' => bless( {
'impcount' => 0,
'calls' => [
'Individual'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'Individual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1056
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'targetIndividual',
'vars' => '',
'line' => 1056
}, 'Parse::RecDescent::Rule' ),
'DataIntersectionOf' => bless( {
'impcount' => 0,
'calls' => [
'DataRange'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataIntersectionOf',
'hashname' => '__STRING1__',
'description' => '\'DataIntersectionOf\'',
'lookahead' => 0,
'line' => 371
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 371
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'DataRange',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '2..',
'lookahead' => 0,
'line' => 371
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 371
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 372,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $list = $list_generator->($h, $item{\'DataRange(2..)\'});
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $RDFS->Datatype);
$h->($x, $OWL->intersectionOf, $list);
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataIntersectionOf',
'vars' => '',
'line' => 371
}, 'Parse::RecDescent::Rule' ),
'EquivalentClasses' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'EquivalentClasses',
'hashname' => '__STRING1__',
'description' => '\'EquivalentClasses\'',
'lookahead' => 0,
'line' => 690
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 690
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 690
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ClassExpression',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '2..',
'lookahead' => 0,
'line' => 690
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 690
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 691,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
foreach my $ce1 (@{ $item{\'ClassExpression(2..)\'} })
{
foreach my $ce2 (@{ $item{\'ClassExpression(2..)\'} })
{
$a->(
$item{axiomAnnotations},
$h->($ce1, $OWL->equivalentClass, $ce2),
);
}
}
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'EquivalentClasses',
'vars' => '',
'line' => 690
}, 'Parse::RecDescent::Rule' ),
'DataHasValue' => bless( {
'impcount' => 0,
'calls' => [
'DataPropertyExpression',
'Literal'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataHasValue',
'hashname' => '__STRING1__',
'description' => '\'DataHasValue\'',
'lookahead' => 0,
'line' => 623
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 623
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'DataPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 623
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'Literal',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 623
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 623
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 624,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{DataPropertyExpression});
$h->($x, $OWL->hasValue, $item{Literal});
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataHasValue',
'vars' => '',
'line' => 623
}, 'Parse::RecDescent::Rule' ),
'importStatement' => bless( {
'impcount' => 0,
'calls' => [
'IRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'Import',
'hashname' => '__STRING1__',
'description' => '\'Import\'',
'lookahead' => 0,
'line' => 146
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 146
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'IRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 146
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 146
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 147,
'code' => '{
$return = RDF::Trine::Statement->new(
RDF::Trine::Node::Variable->new(\'ontology\'),
$OWL->imports,
$item{IRI},
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'importStatement',
'vars' => '',
'line' => 146
}, 'Parse::RecDescent::Rule' ),
'DataRange' => bless( {
'impcount' => 0,
'calls' => [
'Datatype',
'DataIntersectionOf',
'DataUnionOf',
'DataComplementOf',
'DataOneOf',
'DatatypeRestriction'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'Datatype',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 364
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataIntersectionOf',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 365
}, 'Parse::RecDescent::Subrule' )
],
'line' => 365
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '2',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataUnionOf',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 366
}, 'Parse::RecDescent::Subrule' )
],
'line' => 366
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '3',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataComplementOf',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 367
}, 'Parse::RecDescent::Subrule' )
],
'line' => 367
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '4',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataOneOf',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 368
}, 'Parse::RecDescent::Subrule' )
],
'line' => 368
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '5',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DatatypeRestriction',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 369
}, 'Parse::RecDescent::Subrule' )
],
'line' => 369
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataRange',
'vars' => '',
'line' => 364
}, 'Parse::RecDescent::Rule' ),
'InverseFunctionalObjectProperty' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ObjectPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'InverseFunctionalObjectProperty',
'hashname' => '__STRING1__',
'description' => '\'InverseFunctionalObjectProperty\'',
'lookahead' => 0,
'line' => 862
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 862
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 862
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 862
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 862
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 863,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{\'ObjectPropertyExpression\'}, $RDF->type, $OWL->InverseFunctionalProperty),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'InverseFunctionalObjectProperty',
'vars' => '',
'line' => 862
}, 'Parse::RecDescent::Rule' ),
'FunctionalObjectProperty' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ObjectPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'FunctionalObjectProperty',
'hashname' => '__STRING1__',
'description' => '\'FunctionalObjectProperty\'',
'lookahead' => 0,
'line' => 851
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 851
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 851
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 851
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 851
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 852,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{\'ObjectPropertyExpression\'}, $RDF->type, $OWL->FunctionalProperty),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'FunctionalObjectProperty',
'vars' => '',
'line' => 851
}, 'Parse::RecDescent::Rule' ),
'AnnotationAxiom' => bless( {
'impcount' => 0,
'calls' => [
'AnnotationAssertion',
'SubAnnotationPropertyOf',
'AnnotationPropertyDomain',
'AnnotationPropertyRange'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'AnnotationAssertion',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 256
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'SubAnnotationPropertyOf',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 256
}, 'Parse::RecDescent::Subrule' )
],
'line' => 256
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '2',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'AnnotationPropertyDomain',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 256
}, 'Parse::RecDescent::Subrule' )
],
'line' => 256
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '3',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'AnnotationPropertyRange',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 256
}, 'Parse::RecDescent::Subrule' )
],
'line' => 256
}, 'Parse::RecDescent::Production' )
],
'name' => 'AnnotationAxiom',
'vars' => '',
'line' => 256
}, 'Parse::RecDescent::Rule' ),
'SubDataPropertyOf' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'subDataPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'SubDataPropertyOf',
'hashname' => '__STRING1__',
'description' => '\'SubDataPropertyOf\'',
'lookahead' => 0,
'line' => 932
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 932
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 932
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'subDataPropertyExpression',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 2,
'matchrule' => 0,
'repspec' => '2',
'lookahead' => 0,
'line' => 932
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 932
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 933,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{subDataPropertyExpression}, $RDFS->subPropertyOf, $item{superDataPropertyExpression}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'SubDataPropertyOf',
'vars' => '',
'line' => 932
}, 'Parse::RecDescent::Rule' ),
'ontologyDocument' => bless( {
'impcount' => 0,
'calls' => [
'prefixDeclaration',
'Ontology'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 1,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'hashname' => '__DIRECTIVE1__',
'name' => '<skip:qr{\\s*(?:/[*].*?[*]/\\s*)*(?:#[^\\n]*\\n\\s*)*\\s*}>',
'lookahead' => 0,
'line' => 85,
'code' => 'my $oldskip = $skip; $skip=qr{\\s*(?:/[*].*?[*]/\\s*)*(?:#[^\\n]*\\n\\s*)*\\s*}; $oldskip'
}, 'Parse::RecDescent::Directive' ),
bless( {
'subrule' => 'prefixDeclaration',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => 's?',
'lookahead' => 0,
'line' => 85
}, 'Parse::RecDescent::Repetition' ),
bless( {
'subrule' => 'Ontology',
'expected' => undef,
'min' => 1,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => 's',
'lookahead' => 0,
'line' => 85
}, 'Parse::RecDescent::Repetition' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 86,
'code' => '{ $return = \\%item; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ontologyDocument',
'vars' => '',
'line' => 85
}, 'Parse::RecDescent::Rule' ),
'DisjointClasses' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DisjointClasses',
'hashname' => '__STRING1__',
'description' => '\'DisjointClasses\'',
'lookahead' => 0,
'line' => 707
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 707
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 707
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ClassExpression',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 2,
'matchrule' => 0,
'repspec' => '2',
'lookahead' => 0,
'line' => 707
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 707
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 708,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{\'ClassExpression(2)\'}->[0], $OWL->disjointWith, $item{\'ClassExpression(2)\'}->[1]),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DisjointClasses',
'hashname' => '__STRING1__',
'description' => '\'DisjointClasses\'',
'lookahead' => 0,
'line' => 718
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 718
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 718
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ClassExpression',
'expected' => undef,
'min' => 3,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '3..',
'lookahead' => 0,
'line' => 718
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 718
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 719,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
my $x = RDF::Trine::Node::Blank->new;
my $list = $list_generator->($h, $item{\'ClassExpression(3..)\'});
$h->($x, $RDF->type, $OWL->AllDisjointClasses);
$h->($x, $OWL->members, $list);
$a->($item{axiomAnnotations}, $x);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DisjointClasses',
'vars' => '',
'line' => 707
}, 'Parse::RecDescent::Rule' ),
'DisjointObjectProperties' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ObjectPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DisjointObjectProperties',
'hashname' => '__STRING1__',
'description' => '\'DisjointObjectProperties\'',
'lookahead' => 0,
'line' => 795
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 795
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 795
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 2,
'matchrule' => 0,
'repspec' => '2',
'lookahead' => 0,
'line' => 795
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 795
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 796,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{\'ObjectPropertyExpression(2)\'}->[0], $OWL->propertyDisjointWith, $item{\'ObjectPropertyExpression(2)\'}->[1]),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DisjointObjectProperties',
'hashname' => '__STRING1__',
'description' => '\'DisjointObjectProperties\'',
'lookahead' => 0,
'line' => 806
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 806
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 806
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'expected' => undef,
'min' => 3,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '3..',
'lookahead' => 0,
'line' => 806
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 806
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 807,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
my $x = RDF::Trine::Node::Blank->new;
my $list = $list_generator->($h, $item{\'ObjectPropertyExpression(3..)\'});
$h->($x, $RDF->type, $OWL->AllDisjointProperties);
$h->($x, $OWL->members, $list);
$a->($item{axiomAnnotations}, $x);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DisjointObjectProperties',
'vars' => '',
'line' => 795
}, 'Parse::RecDescent::Rule' ),
'Declaration' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotationsD',
'Entity'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'pattern' => 'Declaration',
'hashname' => '__STRING1__',
'description' => '\'Declaration\'',
'lookahead' => 0,
'line' => 160
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 160
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotationsD',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 160
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'Entity',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 160
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 160
}, 'Parse::RecDescent::Literal' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'Declaration',
'vars' => '',
'line' => 160
}, 'Parse::RecDescent::Rule' ),
'restrictionValue' => bless( {
'impcount' => 0,
'calls' => [
'Literal'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'Literal',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 435
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'restrictionValue',
'vars' => '',
'line' => 435
}, 'Parse::RecDescent::Rule' ),
'ObjectIntersectionOf' => bless( {
'impcount' => 0,
'calls' => [
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectIntersectionOf',
'hashname' => '__STRING1__',
'description' => '\'ObjectIntersectionOf\'',
'lookahead' => 0,
'line' => 445
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 445
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'ClassExpression',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '2..',
'lookahead' => 0,
'line' => 445
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 445
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 446,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $list = $list_generator->($h, $item{\'ClassExpression(2..)\'});
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Class);
$h->($x, $OWL->intersectionOf, $list);
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectIntersectionOf',
'vars' => '',
'line' => 445
}, 'Parse::RecDescent::Rule' ),
'superObjectPropertyExpression' => bless( {
'impcount' => 0,
'calls' => [
'ObjectPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 776
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'superObjectPropertyExpression',
'vars' => '',
'line' => 776
}, 'Parse::RecDescent::Rule' ),
'subObjectPropertyExpression' => bless( {
'impcount' => 0,
'calls' => [
'ObjectPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 775
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'subObjectPropertyExpression',
'vars' => '',
'line' => 775
}, 'Parse::RecDescent::Rule' ),
'typedLiteral' => bless( {
'impcount' => 0,
'calls' => [
'lexicalForm',
'Datatype'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 1,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'lexicalForm',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 320
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => '^^',
'hashname' => '__STRING1__',
'description' => '\'^^\'',
'lookahead' => 0,
'line' => 320
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'Datatype',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 320
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 321,
'code' => '{
if ($item{Datatype}->equal($RDF->PlainLiteral))
{
my ($lex, $lang) = ($item{lexicalForm} =~ m{^(.*)\\@([^@]*)$});
$return = RDF::Trine::Node::Literal->new($lex, $lang)
}
else
{
$return = RDF::Trine::Node::Literal->new($item{lexicalForm}, undef, $item{Datatype}->uri);
}
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'typedLiteral',
'vars' => '',
'line' => 320
}, 'Parse::RecDescent::Rule' ),
'PNAME_LN' => bless( {
'impcount' => 0,
'calls' => [
'PNAME_NS',
'PN_LOCAL'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 1,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'PNAME_NS',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 41
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__DIRECTIVE1__',
'name' => '<skip:\'\'>',
'lookahead' => 0,
'line' => 41,
'code' => 'my $oldskip = $skip; $skip=\'\'; $oldskip'
}, 'Parse::RecDescent::Directive' ),
bless( {
'subrule' => 'PN_LOCAL',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 41
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 42,
'code' => '{ $return = [ $item{PNAME_NS}, $item{PN_LOCAL} ]; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'PNAME_LN',
'vars' => '',
'line' => 41
}, 'Parse::RecDescent::Rule' ),
'SubAnnotationPropertyOf' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'subAnnotationProperty',
'superAnnotationProperty'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'SubAnnotationPropertyOf',
'hashname' => '__STRING1__',
'description' => '\'SubAnnotationPropertyOf\'',
'lookahead' => 0,
'line' => 269
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 269
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 269
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'subAnnotationProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 269
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'superAnnotationProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 269
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 269
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 270,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{subAnnotationProperty}, $RDFS->subPropertyOf, $item{superAnnotationProperty}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'SubAnnotationPropertyOf',
'vars' => '',
'line' => 269
}, 'Parse::RecDescent::Rule' ),
'subDataPropertyExpression' => bless( {
'impcount' => 0,
'calls' => [
'DataPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 942
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'subDataPropertyExpression',
'vars' => '',
'line' => 942
}, 'Parse::RecDescent::Rule' ),
'DataPropertyAssertion' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'DataPropertyExpression',
'sourceIndividual',
'targetValue'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataPropertyAssertion',
'hashname' => '__STRING1__',
'description' => '\'DataPropertyAssertion\'',
'lookahead' => 0,
'line' => 1118
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 1118
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1118
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1118
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'sourceIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1118
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'targetValue',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1118
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 1118
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 1119,
'code' => '{
my $h = $thisparser->{TRIPLE};
$h->($item{sourceIndividual}, $item{DataPropertyExpression}, $item{targetValue});
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataPropertyAssertion',
'vars' => '',
'line' => 1118
}, 'Parse::RecDescent::Rule' ),
'superDataPropertyExpression' => bless( {
'impcount' => 0,
'calls' => [
'DataPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 943
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'superDataPropertyExpression',
'vars' => '',
'line' => 943
}, 'Parse::RecDescent::Rule' ),
'fullIRI' => bless( {
'impcount' => 0,
'calls' => [],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 2,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 1,
'actcount' => 1,
'items' => [
bless( {
'pattern' => '<',
'hashname' => '__STRING1__',
'description' => '\'<\'',
'lookahead' => 0,
'line' => 62
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '[^\\s><]*',
'hashname' => '__PATTERN1__',
'description' => '/[^\\\\s><]*/',
'lookahead' => 0,
'rdelim' => '/',
'line' => 62,
'mod' => '',
'ldelim' => '/'
}, 'Parse::RecDescent::Token' ),
bless( {
'pattern' => '>',
'hashname' => '__STRING2__',
'description' => '\'>\'',
'lookahead' => 0,
'line' => 62
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 63,
'code' => '{ $return = $item{__PATTERN1__}; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'fullIRI',
'vars' => '',
'line' => 62
}, 'Parse::RecDescent::Rule' ),
'DataProperty' => bless( {
'impcount' => 0,
'calls' => [
'IRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'IRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 309
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataProperty',
'vars' => '',
'line' => 309
}, 'Parse::RecDescent::Rule' ),
'SubClassOf' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'subClassExpression',
'superClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'SubClassOf',
'hashname' => '__STRING1__',
'description' => '\'SubClassOf\'',
'lookahead' => 0,
'line' => 677
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 677
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 677
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'subClassExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 677
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'superClassExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 677
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 677
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 678,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{subClassExpression}, $RDFS->subClassOf, $item{superClassExpression}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'SubClassOf',
'vars' => '',
'line' => 677
}, 'Parse::RecDescent::Rule' ),
'axiomAnnotations' => bless( {
'impcount' => 0,
'calls' => [
'Annotation'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'Annotation',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => 's?',
'lookahead' => 0,
'line' => 236
}, 'Parse::RecDescent::Repetition' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 237,
'code' => '{ $return = $item{\'Annotation(s?)\'}; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'axiomAnnotations',
'vars' => '',
'line' => 236
}, 'Parse::RecDescent::Rule' ),
'Entity' => bless( {
'impcount' => 0,
'calls' => [
'Class',
'Datatype',
'ObjectProperty',
'DataProperty',
'AnnotationProperty',
'NamedIndividual'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'Class',
'hashname' => '__STRING1__',
'description' => '\'Class\'',
'lookahead' => 0,
'line' => 161
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 161
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'Class',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 161
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 161
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 162,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$declaredAnnotations,
$h->($item{Class}, $RDF->type, $OWL->Class),
);
$return = $item{Class};
$declaredAnnotations = undef;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'Datatype',
'hashname' => '__STRING1__',
'description' => '\'Datatype\'',
'lookahead' => 0,
'line' => 173
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 173
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'Datatype',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 173
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 173
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 174,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$declaredAnnotations,
$h->($item{Datatype}, $RDF->type, $OWL->Datatype),
);
$return = $item{Datatype};
$declaredAnnotations = undef;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => 173
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '2',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectProperty',
'hashname' => '__STRING1__',
'description' => '\'ObjectProperty\'',
'lookahead' => 0,
'line' => 185
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 185
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'ObjectProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 185
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 185
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 186,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$declaredAnnotations,
$h->($item{ObjectProperty}, $RDF->type, $OWL->ObjectProperty),
);
$return = $item{ObjectProperty};
$declaredAnnotations = undef;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => 185
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '3',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataProperty',
'hashname' => '__STRING1__',
'description' => '\'DataProperty\'',
'lookahead' => 0,
'line' => 197
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 197
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'DataProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 197
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 197
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 198,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$declaredAnnotations,
$h->($item{DataProperty}, $RDF->type, $OWL->DatatypeProperty),
);
$return = $item{DataProperty};
$declaredAnnotations = undef;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => 197
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '4',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'AnnotationProperty',
'hashname' => '__STRING1__',
'description' => '\'AnnotationProperty\'',
'lookahead' => 0,
'line' => 209
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 209
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'AnnotationProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 209
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 209
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 210,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$declaredAnnotations,
$h->($item{AnnotationProperty}, $RDF->type, $OWL->AnnotationProperty),
);
$return = $item{AnnotationProperty};
$declaredAnnotations = undef;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => 209
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '5',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'NamedIndividual',
'hashname' => '__STRING1__',
'description' => '\'NamedIndividual\'',
'lookahead' => 0,
'line' => 221
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 221
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'NamedIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 221
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 221
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 222,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$declaredAnnotations,
$h->($item{NamedIndividual}, $RDF->type, $OWL->NamedIndividual),
);
$return = $item{NamedIndividual};
$declaredAnnotations = undef;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => 221
}, 'Parse::RecDescent::Production' )
],
'name' => 'Entity',
'vars' => '',
'line' => 161
}, 'Parse::RecDescent::Rule' ),
'axioms' => bless( {
'impcount' => 0,
'calls' => [
'Axiom'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'Axiom',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => 's?',
'lookahead' => 0,
'line' => 157
}, 'Parse::RecDescent::Repetition' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 158,
'code' => '{ $return = \\%item; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'axioms',
'vars' => '',
'line' => 157
}, 'Parse::RecDescent::Rule' ),
'ObjectProperty' => bless( {
'impcount' => 0,
'calls' => [
'IRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'IRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 308
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectProperty',
'vars' => '',
'line' => 308
}, 'Parse::RecDescent::Rule' ),
'lexicalForm' => bless( {
'impcount' => 0,
'calls' => [
'quotedString'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'quotedString',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 333
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'lexicalForm',
'vars' => '',
'line' => 333
}, 'Parse::RecDescent::Rule' ),
'DataPropertyAxiom' => bless( {
'impcount' => 0,
'calls' => [
'SubDataPropertyOf',
'EquivalentDataProperties',
'DisjointDataProperties',
'DataPropertyDomain',
'DataPropertyRange',
'FunctionalDataProperty'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'SubDataPropertyOf',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 929
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'EquivalentDataProperties',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 929
}, 'Parse::RecDescent::Subrule' )
],
'line' => 929
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '2',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DisjointDataProperties',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 929
}, 'Parse::RecDescent::Subrule' )
],
'line' => 929
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '3',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataPropertyDomain',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 930
}, 'Parse::RecDescent::Subrule' )
],
'line' => 929
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '4',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DataPropertyRange',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 930
}, 'Parse::RecDescent::Subrule' )
],
'line' => 930
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '5',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'FunctionalDataProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 930
}, 'Parse::RecDescent::Subrule' )
],
'line' => 930
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataPropertyAxiom',
'vars' => '',
'line' => 928
}, 'Parse::RecDescent::Rule' ),
'NegativeObjectPropertyAssertion' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ObjectPropertyExpression',
'sourceIndividual',
'targetIndividual'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'NegativeObjectPropertyAssertion',
'hashname' => '__STRING1__',
'description' => '\'NegativeObjectPropertyAssertion\'',
'lookahead' => 0,
'line' => 1105
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 1105
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1105
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1105
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'sourceIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1105
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'targetIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1105
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 1105
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 1106,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->NegativePropertyAssertion);
$h->($x, $OWL->sourceIndividual, $item{sourceIndividual});
$h->($x, $OWL->assertionProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->targetIndividual, $item{targetIndividual});
$a->($item{axiomAnnotations}, $x);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'NegativeObjectPropertyAssertion',
'vars' => '',
'line' => 1105
}, 'Parse::RecDescent::Rule' ),
'axiomAnnotationsD' => bless( {
'impcount' => 0,
'calls' => [
'Annotation'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'Annotation',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => 's?',
'lookahead' => 0,
'line' => 238
}, 'Parse::RecDescent::Repetition' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 239,
'code' => '{ $declaredAnnotations = $return = $item{\'Annotation(s?)\'}; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'axiomAnnotationsD',
'vars' => '',
'line' => 238
}, 'Parse::RecDescent::Rule' ),
'ObjectSomeValuesFrom' => bless( {
'impcount' => 0,
'calls' => [
'ObjectPropertyExpression',
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectSomeValuesFrom',
'hashname' => '__STRING1__',
'description' => '\'ObjectSomeValuesFrom\'',
'lookahead' => 0,
'line' => 488
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 488
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 488
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ClassExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 488
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 488
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 489,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->someValuesFrom, $item{ClassExpression});
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectSomeValuesFrom',
'vars' => '',
'line' => 488
}, 'Parse::RecDescent::Rule' ),
'numericLiteral' => bless( {
'impcount' => 0,
'calls' => [
'nonNegativeInteger'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'nonNegativeInteger',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 338
}, 'Parse::RecDescent::Subrule' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 339,
'code' => '{ $return = RDF::Trine::Node::Literal->new($item{nonNegativeInteger}, undef, $XSD->nonNegativeInteger->uri); 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'numericLiteral',
'vars' => '',
'line' => 338
}, 'Parse::RecDescent::Rule' ),
'Literal' => bless( {
'impcount' => 0,
'calls' => [
'typedLiteral',
'stringLiteralWithLanguage',
'stringLiteralNoLanguage',
'numericLiteral',
'booleanLiteral'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'typedLiteral',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 318
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'stringLiteralWithLanguage',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 318
}, 'Parse::RecDescent::Subrule' )
],
'line' => 318
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '2',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'stringLiteralNoLanguage',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 318
}, 'Parse::RecDescent::Subrule' )
],
'line' => 318
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '3',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'numericLiteral',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 318
}, 'Parse::RecDescent::Subrule' )
],
'line' => 318
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '4',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'booleanLiteral',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 318
}, 'Parse::RecDescent::Subrule' )
],
'line' => 318
}, 'Parse::RecDescent::Production' )
],
'name' => 'Literal',
'vars' => '',
'line' => 318
}, 'Parse::RecDescent::Rule' ),
'AnnotationProperty' => bless( {
'impcount' => 0,
'calls' => [
'IRI'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'IRI',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 310
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'AnnotationProperty',
'vars' => '',
'line' => 310
}, 'Parse::RecDescent::Rule' ),
'DataExactCardinality' => bless( {
'impcount' => 0,
'calls' => [
'nonNegativeInteger',
'DataPropertyExpression',
'DataRange'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataExactCardinality',
'hashname' => '__STRING1__',
'description' => '\'DataExactCardinality\'',
'lookahead' => 0,
'line' => 660
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 660
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'nonNegativeInteger',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 660
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 660
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataRange',
'expected' => undef,
'min' => 0,
'argcode' => undef,
'max' => 1,
'matchrule' => 0,
'repspec' => '?',
'lookahead' => 0,
'line' => 660
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 660
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 661,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{DataPropertyExpression});
$h->($x, $OWL->cardinality, RDF::Trine::Node::Literal->new($item{nonNegativeInteger}, undef, $XSD->nonNegativeInteger->uri));
$h->($x, $OWL->onClass, $item{\'ClassExpression(?)\'}->[0])
if $item{\'ClassExpression(?)\'} && @{ $item{\'ClassExpression(?)\'} };
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataExactCardinality',
'vars' => '',
'line' => 660
}, 'Parse::RecDescent::Rule' ),
'SameIndividual' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'sourceIndividual',
'targetIndividual'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'SameIndividual',
'hashname' => '__STRING1__',
'description' => '\'SameIndividual\'',
'lookahead' => 0,
'line' => 1059
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 1059
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1059
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'sourceIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1059
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'targetIndividual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1059
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 1059
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 1060,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{sourceIndividual}, $OWL->sameAs, $item{targetIndividual}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'SameIndividual',
'vars' => '',
'line' => 1059
}, 'Parse::RecDescent::Rule' ),
'ClassAssertion' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'ClassExpression',
'Individual'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ClassAssertion',
'hashname' => '__STRING1__',
'description' => '\'ClassAssertion\'',
'lookahead' => 0,
'line' => 1083
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 1083
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1083
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ClassExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1083
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'Individual',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 1083
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 1083
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 1084,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{Individual}, $RDF->type, $item{ClassExpression}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ClassAssertion',
'vars' => '',
'line' => 1083
}, 'Parse::RecDescent::Rule' ),
'EquivalentDataProperties' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'DataPropertyExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'EquivalentDataProperties',
'hashname' => '__STRING1__',
'description' => '\'EquivalentDataProperties\'',
'lookahead' => 0,
'line' => 945
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 945
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 945
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataPropertyExpression',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '2..',
'lookahead' => 0,
'line' => 945
}, 'Parse::RecDescent::Repetition' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 945
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 946,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
foreach my $ce1 (@{ $item{\'DataPropertyExpression(2..)\'} })
{
foreach my $ce2 (@{ $item{\'DataPropertyExpression(2..)\'} })
{
$a->(
$item{axiomAnnotations},
$h->($ce1, $OWL->equivalentProperty, $ce2),
);
}
}
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'EquivalentDataProperties',
'vars' => '',
'line' => 945
}, 'Parse::RecDescent::Rule' ),
'ObjectPropertyAxiom' => bless( {
'impcount' => 0,
'calls' => [
'SubObjectPropertyOf',
'EquivalentObjectProperties',
'DisjointObjectProperties',
'InverseObjectProperties',
'ObjectPropertyDomain',
'ObjectPropertyRange',
'FunctionalObjectProperty',
'InverseFunctionalObjectProperty',
'ReflexiveObjectProperty',
'IrreflexiveObjectProperty',
'SymmetricObjectProperty',
'AsymmetricObjectProperty',
'TransitiveObjectProperty'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'SubObjectPropertyOf',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 745
}, 'Parse::RecDescent::Subrule' )
],
'line' => undef
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '1',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'EquivalentObjectProperties',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 745
}, 'Parse::RecDescent::Subrule' )
],
'line' => 745
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '2',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'DisjointObjectProperties',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 746
}, 'Parse::RecDescent::Subrule' )
],
'line' => 745
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '3',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'InverseObjectProperties',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 746
}, 'Parse::RecDescent::Subrule' )
],
'line' => 746
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '4',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectPropertyDomain',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 747
}, 'Parse::RecDescent::Subrule' )
],
'line' => 746
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '5',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ObjectPropertyRange',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 747
}, 'Parse::RecDescent::Subrule' )
],
'line' => 747
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '6',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'FunctionalObjectProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 748
}, 'Parse::RecDescent::Subrule' )
],
'line' => 747
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '7',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'InverseFunctionalObjectProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 748
}, 'Parse::RecDescent::Subrule' )
],
'line' => 748
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '8',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'ReflexiveObjectProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 749
}, 'Parse::RecDescent::Subrule' )
],
'line' => 748
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '9',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'IrreflexiveObjectProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 749
}, 'Parse::RecDescent::Subrule' )
],
'line' => 749
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '10',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'SymmetricObjectProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 750
}, 'Parse::RecDescent::Subrule' )
],
'line' => 749
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '11',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'AsymmetricObjectProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 750
}, 'Parse::RecDescent::Subrule' )
],
'line' => 750
}, 'Parse::RecDescent::Production' ),
bless( {
'number' => '12',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 0,
'items' => [
bless( {
'subrule' => 'TransitiveObjectProperty',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 751
}, 'Parse::RecDescent::Subrule' )
],
'line' => 750
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectPropertyAxiom',
'vars' => '',
'line' => 744
}, 'Parse::RecDescent::Rule' ),
'DisjointUnion' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'Class',
'disjointClassExpressions'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DisjointUnion',
'hashname' => '__STRING1__',
'description' => '\'DisjointUnion\'',
'lookahead' => 0,
'line' => 730
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 730
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 730
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'Class',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 730
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'disjointClassExpressions',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 730
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 730
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 731,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
my $list = $list_generator->($h, $item{disjointClassExpressions});
$a->(
$item{axiomAnnotations},
$h->($item{Class}, $OWL->disjointUnionOf, $list),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DisjointUnion',
'vars' => '',
'line' => 730
}, 'Parse::RecDescent::Rule' ),
'DataComplementOf' => bless( {
'impcount' => 0,
'calls' => [
'DataRange'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataComplementOf',
'hashname' => '__STRING1__',
'description' => '\'DataComplementOf\'',
'lookahead' => 0,
'line' => 393
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 393
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'DataRange',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 393
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 393
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 394,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $RDFS->Datatype);
$h->($x, $OWL->datatypeComplementOf, $item{DataRange});
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataComplementOf',
'vars' => '',
'line' => 393
}, 'Parse::RecDescent::Rule' ),
'DataPropertyRange' => bless( {
'impcount' => 0,
'calls' => [
'axiomAnnotations',
'DataPropertyExpression',
'DataRange'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'DataPropertyRange',
'hashname' => '__STRING1__',
'description' => '\'DataPropertyRange\'',
'lookahead' => 0,
'line' => 996
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 996
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'axiomAnnotations',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 996
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 996
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'DataRange',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 996
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 996
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 997,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $a = $thisparser->{ANNOTATE};
$a->(
$item{axiomAnnotations},
$h->($item{DataPropertyExpression}, $RDFS->range, $item{DataRange}),
);
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'DataPropertyRange',
'vars' => '',
'line' => 996
}, 'Parse::RecDescent::Rule' ),
'disjointClassExpressions' => bless( {
'impcount' => 0,
'calls' => [
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 0,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'subrule' => 'ClassExpression',
'expected' => undef,
'min' => 2,
'argcode' => undef,
'max' => 100000000,
'matchrule' => 0,
'repspec' => '2..',
'lookahead' => 0,
'line' => 741
}, 'Parse::RecDescent::Repetition' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 742,
'code' => '{ $return = $item{\'ClassExpression(2..)\'}; 1; }'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'disjointClassExpressions',
'vars' => '',
'line' => 741
}, 'Parse::RecDescent::Rule' ),
'ObjectAllValuesFrom' => bless( {
'impcount' => 0,
'calls' => [
'ObjectPropertyExpression',
'ClassExpression'
],
'changed' => 0,
'opcount' => 0,
'prods' => [
bless( {
'number' => '0',
'strcount' => 3,
'dircount' => 0,
'uncommit' => undef,
'error' => undef,
'patcount' => 0,
'actcount' => 1,
'items' => [
bless( {
'pattern' => 'ObjectAllValuesFrom',
'hashname' => '__STRING1__',
'description' => '\'ObjectAllValuesFrom\'',
'lookahead' => 0,
'line' => 499
}, 'Parse::RecDescent::Literal' ),
bless( {
'pattern' => '(',
'hashname' => '__STRING2__',
'description' => '\'(\'',
'lookahead' => 0,
'line' => 499
}, 'Parse::RecDescent::Literal' ),
bless( {
'subrule' => 'ObjectPropertyExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 499
}, 'Parse::RecDescent::Subrule' ),
bless( {
'subrule' => 'ClassExpression',
'matchrule' => 0,
'implicit' => undef,
'argcode' => undef,
'lookahead' => 0,
'line' => 499
}, 'Parse::RecDescent::Subrule' ),
bless( {
'pattern' => ')',
'hashname' => '__STRING3__',
'description' => '\')\'',
'lookahead' => 0,
'line' => 499
}, 'Parse::RecDescent::Literal' ),
bless( {
'hashname' => '__ACTION1__',
'lookahead' => 0,
'line' => 500,
'code' => '{
my $h = $thisparser->{TRIPLE};
my $x = RDF::Trine::Node::Blank->new;
$h->($x, $RDF->type, $OWL->Restriction);
$h->($x, $OWL->onProperty, $item{ObjectPropertyExpression});
$h->($x, $OWL->allValuesFrom, $item{ClassExpression});
$return = $x;
1;
}'
}, 'Parse::RecDescent::Action' )
],
'line' => undef
}, 'Parse::RecDescent::Production' )
],
'name' => 'ObjectAllValuesFrom',
'vars' => '',
'line' => 499
}, 'Parse::RecDescent::Rule' )
}
}, 'Parse::RecDescent' );
}