RDF::Redland::Parser - Redland RDF Syntax Parsers Class
Index
Code Index:
NAME
RDF::Redland::Parser - Redland RDF Syntax Parsers Class
SYNOPSIS
use RDF::Redland;
...
my $parser=new RDF::Redland::Parser("rdfxml");
my $parser2=new RDF::Redland::Parser(undef, "application/rdf+xml);
# Return as an RDF::Redland::Stream
my $stream=$parser->parse_as_stream($source_uri, $base_uri);
# Store in an RDF::Redland::Model
$parser->parse_into_model($source_uri, $base_uri, $model);
DESCRIPTION
This class represents parsers of various syntaxes that can deliver a
RDF model either as a RDF::Redland::Stream of RDF::Redland::Statement objects or
directly into an RDF::Redland::Model object.
CONSTRUCTORS
- new [NAME [MIME_TYPE [URI]]]
-
Create a new RDF::Redland::Parser object for a syntax parser named NAME,
with MIME Type MIME_TYPE and/or URI URI. Any field can be undef
or omitted; if all are omitted, a parser that provides MIME Type
application/rdf+xml will be requested.
METHODS
- parse_as_stream SOURCE_URI BASE_URI
-
Parse the syntax at the RDF::Redland::URI SOURCE_URI with optional base
RDF::Redland::URI BASE_URI. If the base URI is given then the content is
parsed as if it was at the base URI rather than the source URI.
Returns an RDF::Redland::Stream of RDF::Redland::Statement objects or
undef on failure.
- parse_into_model SOURCE_URI BASE_URI MODEL [HANDLER]
-
Parse the syntax at the RDF::Redland::URI SOURCE_URI with optional base
RDF::Redland::URI BASE_URI into RDF::Redland::Model MODEL. If the base URI is
given then the content is parsed as if it was at the base URI rather
than the source URI.
If the optional HANDLER is given, it is a reference to a sub with the signature
sub handler($$$$$$$$$) {
my($code, $level, $facility, $message, $line, $column, $byte, $file, $uri)=@_;
...
}
that receives errors in parsing.
- parse_string_as_stream STRING BASE_URI
-
Parse the syntax in STRING with required base
RDF::Redland::URI BASE_URI.
Returns an RDF::Redland::Stream of RDF::Redland::Statement objects or
undef on failure.
- parse_string_into_model STRING BASE_URI MODEL [HANDLER]
-
Parse the syntax in STRING with required base
RDF::Redland::URI BASE_URI into RDF::Redfland::Model MODEL.
If the optional HANDLER is given, it is a reference to a sub with the signature
sub handler($$$$$$$$$) {
my($code, $level, $facility, $message, $line, $column, $byte, $file, $uri)=@_;
...
}
that receives errors in parsing.
- feature URI [VALUE]
-
Get/set a parser feature. The feature is named via RDF::Redland::URI
URI and the value is a RDF::Redland::Node. If VALUE is given,
the feature is set to that value, otherwise the current value is
returned.
SEE ALSO
AUTHOR
Dave Beckett - http://purl.org/net/dajobe/
# -*- Mode: Perl -*-
#
# Parser.pm - Redland Perl RDF Parser module
#
# $Id: Parser.pm 11575 2006-11-04 04:53:28Z dajobe $
#
# Copyright (C) 2000-2005 David Beckett - http://purl.org/net/dajobe/
# Copyright (C) 2000-2005 University of Bristol - http://www.bristol.ac.uk/
#
# This package is Free Software or Open Source available under the
# following licenses (these are alternatives):
# 1. GNU Lesser General Public License (LGPL)
# 2. GNU General Public License (GPL)
# 3. Mozilla Public License (MPL)
#
# See LICENSE.html or LICENSE.txt at the top of this package for the
# full license terms.
#
#
#
package RDF::Redland::Parser;
use strict;
use RDF::Redland::Stream;
######################################################################
# CONSTRUCTOR
# (main)
sub new ($;$$$) {
my($proto,$name,$mime_type,$uri)=@_;
my $class = ref($proto) || $proto;
my $self = {};
my $reduri = undef;
if(defined $uri) {
$reduri=$uri->{URI};
}
$self->{PARSER}=&RDF::Redland::CORE::librdf_new_parser($RDF::Redland::World->{WORLD},$name,$mime_type,$reduri);
return undef if !$self->{PARSER};
bless ($self, $class);
return $self;
}
sub DESTROY ($) {
warn "RDF::Redland::Parser DESTROY\n" if $RDF::Redland::Debug;
&RDF::Redland::CORE::librdf_free_parser(shift->{PARSER});
}
sub parse_as_stream ($$$) {
my($self,$uri,$base_uri)=@_;
my $rbase_uri=$base_uri ? $base_uri->{URI} : undef;
my $stream=&RDF::Redland::CORE::librdf_parser_parse_as_stream($self->{PARSER},$uri->{URI}, $rbase_uri);
return undef if !$stream;
return new RDF::Redland::Stream($stream,$self);
}
sub parse_into_model ($$$$;$) {
my($self,$uri,$base_uri,$model,$handler)=@_;
if($handler) {
&RDF::Redland::set_log_handler($handler);
}
my $rbase_uri=$base_uri ? $base_uri->{URI} : undef;
my $rc=&RDF::Redland::CORE::librdf_parser_parse_into_model($self->{PARSER},$uri->{URI},$rbase_uri,$model->{MODEL});
if($handler) {
&RDF::Redland::reset_log_handler();
}
return $rc;
}
sub parse_string_as_stream ($$$) {
my($self,$string,$base_uri)=@_;
my $rbase_uri=$base_uri ? $base_uri->{URI} : undef;
my $stream=&RDF::Redland::CORE::librdf_parser_parse_string_as_stream($self->{PARSER},$string, $rbase_uri);
return undef if !$stream;
return new RDF::Redland::Stream($stream,$self);
}
sub parse_string_into_model ($$$$;$) {
my($self,$string,$base_uri,$model,$handler)=@_;
if($handler) {
&RDF::Redland::set_log_handler($handler);
}
my $rbase_uri=$base_uri ? $base_uri->{URI} : undef;
my $rc=&RDF::Redland::CORE::librdf_parser_parse_string_into_model($self->{PARSER},$string,$rbase_uri,$model->{MODEL});
if($handler) {
&RDF::Redland::reset_log_handler();
}
return $rc;
}
sub feature ($$;$) {
my($self,$uri,$value)=@_;
warn "RDF::Redland::Parser->feature('$uri', '$value')\n" if $RDF::Redland::Debug;
$uri=RDF::Redland::URI->new($uri)
unless ref $uri;
return &RDF::Redland::CORE::librdf_parser_set_feature($self->{PARSER},$uri->{URI},$value->{NODE})
if $value;
$value=&RDF::Redland::CORE::librdf_parser_get_feature($self->{PARSER},$uri->{URI});
return $value ? RDF::Redland::Node->_new_from_object($value,1) : undef;
}
1;