manakai/bin/cdis2rdf.pl

#!/usr/bin/perl -w 
use strict;
use Message::Util::QName::Filter {
  d => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis-->,
  dis2pm => q<http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#>,
  DOMCore => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#>,
  DOMMain => q<http://suika.fam.cx/~wakaba/archive/2004/dom/main#>,
  lang => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#>,
  Perl => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl-->,
  license => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/license#>,
  ManakaiDOM => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#>,
  owl => q<http://www.w3.org/2002/07/owl#>,
  rdf => q<http://www.w3.org/1999/02/22-rdf-syntax-ns#>,
  rdfs => q<http://www.w3.org/2000/01/rdf-schema#>,
};

use Getopt::Long;
use Pod::Usage;
use Storable;
my %Opt;
GetOptions (
  'help' => \$Opt{help},
  'output-anon-resource!' => \$Opt{output_anon_resource},
  'output-as-n3' => \$Opt{output_as_n3},
  'output-as-xml' => \$Opt{output_as_xml},
  'output-for!' => \$Opt{output_for},
  'output-local-resource!' => \$Opt{output_local_resource},
  'output-module!' => \$Opt{output_module},
  'output-only-in-module=s' => \$Opt{output_resource_pattern},
  'output-perl!' => \$Opt{output_prop_perl},
  'output-perl-member-pattern=s' => \$Opt{output_perl_member_pattern},
  'output-resource!' => \$Opt{output_resource},
  'output-resource-uri-pattern=s' => \$Opt{output_resource_uri_pattern},
  'output-root-anon-resource!' => $Opt{output_root_anon_resource},
) or pod2usage (2);
pod2usage ({-exitval => 0, -verbose => 1}) if $Opt{help};
pod2usage ({-exitval => 2, -verbose => 1})
  if $Opt{output_as_n3} and $Opt{output_as_xml};
$Opt{file_name} = shift;
pod2usage ({-exitval => 2, -verbose => 0}) unless $Opt{file_name};
$Opt{output_resource_pattern} ||= qr/./;
$Opt{output_resource_uri_pattern} ||= qr/./;
$Opt{output_root_anon_resource} = $Opt{output_anon_resource}
  unless defined $Opt{output_anon_resource};
$Opt{output_as_xml} = 1 unless $Opt{output_as_n3};
$Opt{output_anon_resource} = 1 unless defined $Opt{output_anon_resource};
$Opt{output_local_resource} = 1 unless defined $Opt{output_local_resource};
$Opt{output_perl_member_pattern} ||= qr/./;

BEGIN {
require 'manakai/genlib.pl';
require 'manakai/dis.pl';
}
sub n3_literal ($) {
  my $s = shift;
  impl_err ("Literal value not defined") unless defined $s;
  qq<"$s">;
}
our $State = retrieve ($Opt{file_name})
     or die "$0: $Opt{file_name}: Cannot load";
our $result = new manakai::n3;

if ($Opt{output_module}) {
for (keys %{$State->{Module}}) {
  my $mod = $State->{Module}->{$_};
  if ($_ eq $mod->{URI}) {
    $result->add_triple ($mod->{URI} =>ExpandedURI q<rdf:type>=>
                         ExpandedURI q<d:Module>);
    $result->add_triple ($mod->{URI} =>ExpandedURI q<d:Name>=>
                         n3_literal $mod->{Name});
    $result->add_triple ($mod->{URI} =>ExpandedURI q<d:NameURI>=>
                         $mod->{NameURI});
    $result->add_triple ($mod->{URI} =>ExpandedURI q<d:ModuleGroup>=>
                         $mod->{ModuleGroup});
    $result->add_triple ($mod->{URI} =>ExpandedURI q<d:FileName>=>
                         n3_literal $mod->{FileName})
      if defined $mod->{FileName};
    $result->add_triple ($mod->{URI} =>ExpandedURI q<d:Namespace>=>
                         $mod->{Namespace});
    for (@{$mod->{require_module}||[]}) {
      $result->add_triple ($mod->{URI} =>ExpandedURI q<d:Require>=> $_);
    }
    for (keys %{$mod->{For}}) {
      $result->add_triple ($mod->{URI} =>ExpandedURI q<d:For>=> $_);
    }
    for (@{$mod->{ISA}}) {
      $result->add_triple ($mod->{URI} =>ExpandedURI q<rdfs:subClassOf>=> $_);
    }
    if ($Opt{output_prop_perl}) {
      $result->add_triple ($mod->{URI} =>ExpandedURI q<dis2pm:packageName>=>
                           n3_literal $mod->{ExpandedURI q<dis2pm:packageName>})
        if defined $mod->{ExpandedURI q<dis2pm:packageName>};
      if ($Opt{output_resource}) {
        for (values %{$mod->{ExpandedURI q<dis2pm:package>}}) {
          my $uri = defined $_->{URI}
                       ? $_->{URI}
                       : ($_->{ExpandedURI q<d:anonID>}
                            ||= $result->get_new_anon_id (Name => $_->{Name}));
          $result->add_triple ($mod->{URI} =>ExpandedURI q<dis2pm:package>=>
                               $uri);
        }
      }
    }
  } else {
    $result->add_triple ($_ =>ExpandedURI q<owl:sameAs>=> $mod->{URI});
  }
}}

if ($Opt{output_for}) {
for (keys %{$State->{For}}) {
  my $mod = $State->{For}->{$_};
  if ($_ eq $mod->{URI}) {
    $result->add_triple ($mod->{URI} =>ExpandedURI q<rdf:type>=>
                         ExpandedURI q<d:For>);
    $result->add_triple ($mod->{URI} =>ExpandedURI q<d:NameURI>=> $mod->{URI});
    $result->add_triple ($mod->{URI} =>ExpandedURI q<d:FullName>=>
                         n3_literal $mod->{FullName})
      if defined $mod->{FullName};
    for (@{$mod->{ISA}}) {
      $result->add_triple ($mod->{URI} =>ExpandedURI q<rdfs:subClassOf>=> $_);
    }
    for (@{$mod->{Implement}}) {
      $result->add_triple ($mod->{URI} =>ExpandedURI q<d:Implement>=> $_);
    }
  } else {
    $result->add_triple ($_ =>ExpandedURI q<owl:sameAs>=> $mod->{URI});
  }
}}

sub res_canon ($) {
  my $uri = shift;
  if (defined $State->{Type}->{$uri}->{Name} and
      defined $State->{Type}->{$uri}->{URI}) {
    return $State->{Type}->{$uri}->{URI};
  } else {
    return $uri;
  }
}

if ($Opt{output_resource}) {
  sub class_to_rdf ($;%);
  sub class_to_rdf ($;%) {
    my ($mod, %opt) = @_;
    return unless defined $mod->{Name};
    return unless $mod->{parentModule} =~ /$Opt{output_resource_pattern}/;
    return if $Opt{output_prop_perl} and
              $mod->{ExpandedURI q<dis2pm:type>} and
              {
                ExpandedURI q<ManakaiDOM:DOMAttribute> => 1,
                ExpandedURI q<ManakaiDOM:DOMMethod> => 1,
              }->{$mod->{ExpandedURI q<dis2pm:type>}} and
              $mod->{Name} and
              $mod->{Name} !~ /$Opt{output_perl_member_pattern}/;
    if ((defined $mod->{URI} and $opt{key} eq $mod->{URI}) or
        not defined $mod->{URI}) {
      return if defined $mod->{URI} and
                $mod->{URI} !~ /$Opt{output_resource_uri_pattern}/;
      return if not defined $mod->{URI} and not $Opt{output_anon_resource};
      my $uri = defined $mod->{URI}
                       ? $mod->{URI}
                       : ($mod->{ExpandedURI q<d:anonID>}
                            ||= $result->get_new_anon_id (Name => $mod->{Name}));
      $result->add_triple ($uri =>ExpandedURI q<d:Name>=>
                           n3_literal $mod->{Name}) if length $mod->{Name};
      $result->add_triple ($uri =>ExpandedURI q<d:NameURI>=> $mod->{NameURI})
        if defined $mod->{NameURI};
      $result->add_triple ($uri =>ExpandedURI q<d:parentResource>=>
                           $opt{parent_class_uri})
        if defined $opt{parent_class_uri};
      if ($Opt{output_module}) {
        $result->add_triple ($uri =>ExpandedURI q<d:parentModule>=>
                             $mod->{parentModule});
      }
      for (keys %{$mod->{Type}}) {
        $result->add_triple ($uri =>ExpandedURI q<rdf:type>=> res_canon $_);
      }
      for (@{$mod->{ISA}}) {
        $result->add_triple ($uri =>ExpandedURI q<rdfs:subClassOf>=>
                             res_canon $_);
      }
      for (@{$mod->{Implement}}) {
        $result->add_triple ($uri =>ExpandedURI q<d:Implement>=> res_canon $_);
      }
      if ($Opt{output_for}) {
        for (keys %{$mod->{For}}) {
          $result->add_triple ($uri =>ExpandedURI q<d:For>=> $_);
        }
      }
      for (@{$mod->{hasResource}||[]}) {
        my $ruri = defined $_->{URI}
                      ? $_->{URI}
                      : ($_->{ExpandedURI q<d:anonID>}
                              ||= $result->get_new_anon_id (Name => $_->{Name}));
        $result->add_triple ($uri =>ExpandedURI q<d:hasResource>=> $ruri);
      }
      if ($Opt{output_prop_perl}) {
        for my $prop ([ExpandedURI q<dis2pm:packageName>],
                      [ExpandedURI q<dis2pm:ifPackagePrefix>],
                      [ExpandedURI q<dis2pm:methodName>],
                      [ExpandedURI q<dis2pm:paramName>],
                      [ExpandedURI q<dis2pm:constGroupName>],
                      [ExpandedURI q<dis2pm:constName>],
                      [ExpandedURI q<ManakaiDOM:isRedefining>,
                        ExpandedURI q<DOMMain:boolean>],
                      [ExpandedURI q<ManakaiDOM:isForInternal>,
                        ExpandedURI q<DOMMain:boolean>],
                      [ExpandedURI q<d:Read>, ExpandedURI q<DOMMain:boolean>],
                      [ExpandedURI q<d:Write>,
                        ExpandedURI q<DOMMain:boolean>],
                      [ExpandedURI q<dis2pm:undefable>,
                        ExpandedURI q<DOMMain:boolean>]) {
          $result->add_triple ($uri =>$prop->[0]=>
                               n3_literal $mod->{$prop->[0]})
            if defined $mod->{$prop->[0]};
        }
        for my $prop ([ExpandedURI q<d:Type>],
                      [ExpandedURI q<d:actualType>]) {
          $result->add_triple ($uri =>$prop->[0]=> res_canon $mod->{$prop->[0]})
            if defined $mod->{$prop->[0]};
        }
        for my $prop ([ExpandedURI q<dis2pm:getter>],
                      [ExpandedURI q<dis2pm:setter>],
                      [ExpandedURI q<dis2pm:return>]) {
          my $oo = $mod->{$prop->[0]};
          if ($oo and defined $oo->{Name}) {
            my $o = defined $oo->{URI}
                      ? $oo->{URI}
                      : ($oo->{ExpandedURI q<d:anonID>}
                            ||= $result->get_new_anon_id (Name => $oo->{Name}));
            $result->add_triple ($uri =>$prop->[0]=> $o)
          }
        }
        for my $p (ExpandedURI q<dis2pm:method>,
                   ExpandedURI q<dis2pm:constGroup>,
                   ExpandedURI q<dis2pm:const>) {
          for my $v (values %{$mod->{$p}||{}}) {
            my $ruri = defined $v->{URI}
                      ? $v->{URI}
                      : ($v->{ExpandedURI q<d:anonID>}
                              ||= $result->get_new_anon_id (Name => $v->{Name}));
            $result->add_triple ($uri =>$p=> $ruri);
          }
        }
        if ($mod->{ExpandedURI q<dis2pm:type>} eq
              ExpandedURI q<ManakaiDOM:DOMMethod>) {
          $result->add_triple
                      ($uri =>ExpandedURI q<dis2pm:param>=>
                       my $p = $result->get_new_anon_id (Name => 'param'));
          $result->add_triple ($uri =>ExpandedURI q<rdf:type>=>
                               ExpandedURI q<rdf:Seq>);
          my $i = 0;
          for (@{$mod->{ExpandedURI q<dis2pm:param>}||[]}) {
            my $ruri = defined $_->{URI}
                          ? $_->{URI}
                          : ($_->{ExpandedURI q<d:anonID>}
                              ||= $result->get_new_anon_id (Name => $_->{Name}));
            $result->add_triple ($p =>(ExpandedURI q<rdf:_>).++$i=> $ruri);
          }
        }
      }
      if ($Opt{output_local_resource}) {
        for (keys %{$mod->{Resource}}) {
          class_to_rdf ($mod->{Resource}->{$_}, %opt, parent_class => $mod,
                        parent_class_uri => $uri,
                        key => $_);
        }
      }
    } else { ## Alias URI
      return unless $opt{key} =~ /$Opt{output_resource_uri_pattern}/ or
                    $mod->{URI} =~ /$Opt{output_resource_uri_pattern}/;
      $result->add_triple ($opt{key} =>ExpandedURI q<owl:sameAs>=> $mod->{URI});
    }
  }
  for (sort keys %{$State->{Type}}) {
    next if not $Opt{output_root_anon_resource} and
            not defined $State->{Type}->{$_}->{URI};
    class_to_rdf ($State->{Type}->{$_}, key => $_);
  }
}

if ($Opt{output_as_xml}) {
  print $result->stringify_as_xml;
} else {
  print $result->stringify;
}

package manakai::n3;
sub new ($) {
  bless {triple => [], anon => 0}, shift;
}

sub get_new_anon_id ($;%) {
  my ($self, %opt) = @_;
  my $s = $opt{Name} ? $opt{Name} : '';
  return sprintf '_:r%d%s', $self->{anon}++, $s;
}

sub add_triple ($$$$) {
  my ($self, $s =>$p=> $o) = @_;
  main::impl_err ("Subject undefined") unless defined $s;
  main::impl_err ("Property undefined") unless defined $p;
  main::impl_err ("Object undefined") unless defined $o;
  push @{$self->{triple}}, [$s =>$p=> $o];
}

sub stringify ($) {
  my ($self) = @_;
  return join "\n", @{main::array_uniq ([sort map {"$_."} map {
    sprintf '%s %s %s', map {
      $_ =~ /^[_"]/ ? $_ : "<$_>"
    } @{$_}[0, 1, 2];
  } @{$self->{triple}}])}, '';
}

sub stringify_as_xml ($) {
  my ($self) = @_;
  use RDF::Notation3::XML;
  my $notation3 = RDF::Notation3::XML->new;
  my $n3 = $self->stringify;
  my $rdf_ = ExpandedURI q<rdf:_>;
  $n3 =~ s{$rdf_}{ExpandedURI q<rdf:XXXX__dummy__XXXX>}ge;
  $notation3->parse_string ($n3);
  my $xml = $notation3->get_string;
  $xml =~ s/\brdf:nodeID="_:/rdf:nodeID="/g;
  $xml =~ s/XXXX__dummy__XXXX/_/g;
#  $xml =~ s/^<\?xml version="1.0" encoding="utf-8"\?>\s*//;
  $xml;
}

__END__

=head1 NAME

cdis2rdf - cdis to RDF converter

=head1 SYNOPSIS

  perl cdis2rdf.pl input.cdis [options...] > output.rdf
  perl cdis2rdf.pl --help

=head1 DESCRIPTION

The C<cdis2rdf> utility generates a RDF graph from a compiled 
"dis" file.  The graph describes relationship of module, "For" or 
resource defined in the dis files.  The RDF data outputed are able 
to be used with other utilities that support RDF.

=head2 OPTIONS

=over 4

=item I<input.cdis>

A compiled "dis" file from which a RDF graph is generated.

=item I<output.rdf>

A file to which the RDF data generated is saved.

=item C<--output-anon-resource> (default) / C<--nooutput-anon-resource>

Set whether anonymous resources are outputed.

=item C<--output-as-n3>

Set to output the graph in RDF/Notation3 format.

=item C<--output-as-xml> (default)

Set to output the graph in RDF/XML format.  Note that the 
L<RDF::Notation3::XML> Perl module is used to generate the XML entity.

=item C<--help>

Show the help message.

=item C<--output-for> / C<--nooutput-for> (default)

Set whether relationships of "For" URI references are outputed.

=item C<--output-local-resource> (default) / C<--nooutput-local-resource>

Set whether local resources (resources that do have the locally-scoped 
name but do not have the global name) are outputed.

=item C<--output-only-in-module=I<pattern>> (default: C<.>)

A regex filter that is applied to URI references of module names. 
This filter is applied to defining-modules of resources (not modules themselves).

=item C<--output-module> / C<--nooutput-module> (default)

Set whehter relationships of modules are outputed.

=item C<--output-perl> / C<--nooutput-perl> (default)

Set whether "For"-Perl specific properties are outputed.

=item C<--output-perl-member-pattern=I<pattern>> (default: C<.>)

A regex filter that is applied to URI references of Perl 
package members such as methods and constant values.

=item C<--output-resource> / C<--nooutput-resource> (default)

Set whether relationships of resources are outputed.

=item C<--output-resource-uri-pattern=I<pattern>> (default: C<.>)

A regex filter that is applied to URI references of 
resources.

=item C<--output-root-anon-resource> / C<--nooutput-root-anon-resource> (default: same as C<--output-anon-resource> / C<--nooutput-anon-resource>)

Set whether anonymous resources that are direct children of modules.

=cut

=head1 LICENSE

Copyright 2004 Wakaba <w@suika.fam.cx>.  All rights reserved.

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

Note that the copyright holder(s) of this script does not claim 
any rights for materials outputed by this script, although 
some of its part comes from this script.  The copyright 
holder(s) of source document should define their license terms.

=cut
1	wakaba	1.1	#!/usr/bin/perl -w
2			use strict;
3			use Message::Util::QName::Filter {
4			d => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis-->,
5			dis2pm => q<http://suika.fam.cx/~wakaba/archive/2004/11/8/dis2pm#>,
6			DOMCore => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#>,
7			DOMMain => q<http://suika.fam.cx/~wakaba/archive/2004/dom/main#>,
8			lang => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#>,
9			Perl => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#Perl-->,
10			license => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/license#>,
11			ManakaiDOM => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#>,
12			owl => q<http://www.w3.org/2002/07/owl#>,
13			rdf => q<http://www.w3.org/1999/02/22-rdf-syntax-ns#>,
14			rdfs => q<http://www.w3.org/2000/01/rdf-schema#>,
15			};
16
17			use Getopt::Long;
18			use Pod::Usage;
19			use Storable;
20			my %Opt;
21			GetOptions (
22			'help' => \$Opt{help},
23			'output-anon-resource!' => \$Opt{output_anon_resource},
24			'output-as-n3' => \$Opt{output_as_n3},
25			'output-as-xml' => \$Opt{output_as_xml},
26			'output-for!' => \$Opt{output_for},
27			'output-local-resource!' => \$Opt{output_local_resource},
28			'output-module!' => \$Opt{output_module},
29			'output-only-in-module=s' => \$Opt{output_resource_pattern},
30			'output-perl!' => \$Opt{output_prop_perl},
31			'output-perl-member-pattern=s' => \$Opt{output_perl_member_pattern},
32			'output-resource!' => \$Opt{output_resource},
33			'output-resource-uri-pattern=s' => \$Opt{output_resource_uri_pattern},
34			'output-root-anon-resource!' => $Opt{output_root_anon_resource},
35			) or pod2usage (2);
36			pod2usage ({-exitval => 0, -verbose => 1}) if $Opt{help};
37			pod2usage ({-exitval => 2, -verbose => 1})
38			if $Opt{output_as_n3} and $Opt{output_as_xml};
39			$Opt{file_name} = shift;
40			pod2usage ({-exitval => 2, -verbose => 0}) unless $Opt{file_name};
41			$Opt{output_resource_pattern} \|\|= qr/./;
42			$Opt{output_resource_uri_pattern} \|\|= qr/./;
43			$Opt{output_root_anon_resource} = $Opt{output_anon_resource}
44			unless defined $Opt{output_anon_resource};
45			$Opt{output_as_xml} = 1 unless $Opt{output_as_n3};
46			$Opt{output_anon_resource} = 1 unless defined $Opt{output_anon_resource};
47			$Opt{output_local_resource} = 1 unless defined $Opt{output_local_resource};
48			$Opt{output_perl_member_pattern} \|\|= qr/./;
49
50			BEGIN {
51			require 'manakai/genlib.pl';
52			require 'manakai/dis.pl';
53			}
54			sub n3_literal ($) {
55			my $s = shift;
56			impl_err ("Literal value not defined") unless defined $s;
57			qq<"$s">;
58			}
59			our $State = retrieve ($Opt{file_name})
60			or die "$0: $Opt{file_name}: Cannot load";
61			our $result = new manakai::n3;
62
63			if ($Opt{output_module}) {
64			for (keys %{$State->{Module}}) {
65			my $mod = $State->{Module}->{$_};
66			if ($_ eq $mod->{URI}) {
67			$result->add_triple ($mod->{URI} =>ExpandedURI q<rdf:type>=>
68			ExpandedURI q<d:Module>);
69			$result->add_triple ($mod->{URI} =>ExpandedURI q<d:Name>=>
70			n3_literal $mod->{Name});
71			$result->add_triple ($mod->{URI} =>ExpandedURI q<d:NameURI>=>
72			$mod->{NameURI});
73			$result->add_triple ($mod->{URI} =>ExpandedURI q<d:ModuleGroup>=>
74			$mod->{ModuleGroup});
75			$result->add_triple ($mod->{URI} =>ExpandedURI q<d:FileName>=>
76			n3_literal $mod->{FileName})
77			if defined $mod->{FileName};
78			$result->add_triple ($mod->{URI} =>ExpandedURI q<d:Namespace>=>
79			$mod->{Namespace});
80			for (@{$mod->{require_module}\|\|[]}) {
81			$result->add_triple ($mod->{URI} =>ExpandedURI q<d:Require>=> $_);
82			}
83			for (keys %{$mod->{For}}) {
84			$result->add_triple ($mod->{URI} =>ExpandedURI q<d:For>=> $_);
85			}
86			for (@{$mod->{ISA}}) {
87			$result->add_triple ($mod->{URI} =>ExpandedURI q<rdfs:subClassOf>=> $_);
88			}
89			if ($Opt{output_prop_perl}) {
90			$result->add_triple ($mod->{URI} =>ExpandedURI q<dis2pm:packageName>=>
91			n3_literal $mod->{ExpandedURI q<dis2pm:packageName>})
92			if defined $mod->{ExpandedURI q<dis2pm:packageName>};
93			if ($Opt{output_resource}) {
94			for (values %{$mod->{ExpandedURI q<dis2pm:package>}}) {
95			my $uri = defined $_->{URI}
96			? $_->{URI}
97			: ($_->{ExpandedURI q<d:anonID>}
98			\|\|= $result->get_new_anon_id (Name => $_->{Name}));
99			$result->add_triple ($mod->{URI} =>ExpandedURI q<dis2pm:package>=>
100			$uri);
101			}
102			}
103			}
104			} else {
105			$result->add_triple ($_ =>ExpandedURI q<owl:sameAs>=> $mod->{URI});
106			}
107			}}
108
109			if ($Opt{output_for}) {
110			for (keys %{$State->{For}}) {
111			my $mod = $State->{For}->{$_};
112			if ($_ eq $mod->{URI}) {
113			$result->add_triple ($mod->{URI} =>ExpandedURI q<rdf:type>=>
114			ExpandedURI q<d:For>);
115			$result->add_triple ($mod->{URI} =>ExpandedURI q<d:NameURI>=> $mod->{URI});
116			$result->add_triple ($mod->{URI} =>ExpandedURI q<d:FullName>=>
117			n3_literal $mod->{FullName})
118			if defined $mod->{FullName};
119			for (@{$mod->{ISA}}) {
120			$result->add_triple ($mod->{URI} =>ExpandedURI q<rdfs:subClassOf>=> $_);
121			}
122			for (@{$mod->{Implement}}) {
123			$result->add_triple ($mod->{URI} =>ExpandedURI q<d:Implement>=> $_);
124			}
125			} else {
126			$result->add_triple ($_ =>ExpandedURI q<owl:sameAs>=> $mod->{URI});
127			}
128			}}
129
130	wakaba	1.2	sub res_canon ($) {
131			my $uri = shift;
132			if (defined $State->{Type}->{$uri}->{Name} and
133			defined $State->{Type}->{$uri}->{URI}) {
134			return $State->{Type}->{$uri}->{URI};
135			} else {
136			return $uri;
137			}
138			}
139
140	wakaba	1.1	if ($Opt{output_resource}) {
141			sub class_to_rdf ($;%);
142			sub class_to_rdf ($;%) {
143			my ($mod, %opt) = @_;
144			return unless defined $mod->{Name};
145			return unless $mod->{parentModule} =~ /$Opt{output_resource_pattern}/;
146			return if $Opt{output_prop_perl} and
147			$mod->{ExpandedURI q<dis2pm:type>} and
148			{
149			ExpandedURI q<ManakaiDOM:DOMAttribute> => 1,
150			ExpandedURI q<ManakaiDOM:DOMMethod> => 1,
151			}->{$mod->{ExpandedURI q<dis2pm:type>}} and
152			$mod->{Name} and
153			$mod->{Name} !~ /$Opt{output_perl_member_pattern}/;
154			if ((defined $mod->{URI} and $opt{key} eq $mod->{URI}) or
155			not defined $mod->{URI}) {
156			return if defined $mod->{URI} and
157			$mod->{URI} !~ /$Opt{output_resource_uri_pattern}/;
158			return if not defined $mod->{URI} and not $Opt{output_anon_resource};
159			my $uri = defined $mod->{URI}
160			? $mod->{URI}
161			: ($mod->{ExpandedURI q<d:anonID>}
162			\|\|= $result->get_new_anon_id (Name => $mod->{Name}));
163			$result->add_triple ($uri =>ExpandedURI q<d:Name>=>
164			n3_literal $mod->{Name}) if length $mod->{Name};
165			$result->add_triple ($uri =>ExpandedURI q<d:NameURI>=> $mod->{NameURI})
166			if defined $mod->{NameURI};
167			$result->add_triple ($uri =>ExpandedURI q<d:parentResource>=>
168			$opt{parent_class_uri})
169			if defined $opt{parent_class_uri};
170			if ($Opt{output_module}) {
171			$result->add_triple ($uri =>ExpandedURI q<d:parentModule>=>
172			$mod->{parentModule});
173			}
174			for (keys %{$mod->{Type}}) {
175	wakaba	1.2	$result->add_triple ($uri =>ExpandedURI q<rdf:type>=> res_canon $_);
176	wakaba	1.1	}
177			for (@{$mod->{ISA}}) {
178	wakaba	1.2	$result->add_triple ($uri =>ExpandedURI q<rdfs:subClassOf>=>
179			res_canon $_);
180	wakaba	1.1	}
181			for (@{$mod->{Implement}}) {
182	wakaba	1.2	$result->add_triple ($uri =>ExpandedURI q<d:Implement>=> res_canon $_);
183	wakaba	1.1	}
184			if ($Opt{output_for}) {
185			for (keys %{$mod->{For}}) {
186			$result->add_triple ($uri =>ExpandedURI q<d:For>=> $_);
187			}
188			}
189			for (@{$mod->{hasResource}\|\|[]}) {
190			my $ruri = defined $_->{URI}
191			? $_->{URI}
192			: ($_->{ExpandedURI q<d:anonID>}
193			\|\|= $result->get_new_anon_id (Name => $_->{Name}));
194			$result->add_triple ($uri =>ExpandedURI q<d:hasResource>=> $ruri);
195			}
196			if ($Opt{output_prop_perl}) {
197			for my $prop ([ExpandedURI q<dis2pm:packageName>],
198			[ExpandedURI q<dis2pm:ifPackagePrefix>],
199			[ExpandedURI q<dis2pm:methodName>],
200			[ExpandedURI q<dis2pm:paramName>],
201			[ExpandedURI q<dis2pm:constGroupName>],
202			[ExpandedURI q<dis2pm:constName>],
203			[ExpandedURI q<ManakaiDOM:isRedefining>,
204			ExpandedURI q<DOMMain:boolean>],
205			[ExpandedURI q<ManakaiDOM:isForInternal>,
206			ExpandedURI q<DOMMain:boolean>],
207			[ExpandedURI q<d:Read>, ExpandedURI q<DOMMain:boolean>],
208			[ExpandedURI q<d:Write>,
209			ExpandedURI q<DOMMain:boolean>],
210			[ExpandedURI q<dis2pm:undefable>,
211			ExpandedURI q<DOMMain:boolean>]) {
212			$result->add_triple ($uri =>$prop->[0]=>
213			n3_literal $mod->{$prop->[0]})
214			if defined $mod->{$prop->[0]};
215			}
216			for my $prop ([ExpandedURI q<d:Type>],
217			[ExpandedURI q<d:actualType>]) {
218	wakaba	1.2	$result->add_triple ($uri =>$prop->[0]=> res_canon $mod->{$prop->[0]})
219	wakaba	1.1	if defined $mod->{$prop->[0]};
220			}
221			for my $prop ([ExpandedURI q<dis2pm:getter>],
222			[ExpandedURI q<dis2pm:setter>],
223			[ExpandedURI q<dis2pm:return>]) {
224			my $oo = $mod->{$prop->[0]};
225			if ($oo and defined $oo->{Name}) {
226			my $o = defined $oo->{URI}
227			? $oo->{URI}
228			: ($oo->{ExpandedURI q<d:anonID>}
229			\|\|= $result->get_new_anon_id (Name => $oo->{Name}));
230			$result->add_triple ($uri =>$prop->[0]=> $o)
231			}
232			}
233			for my $p (ExpandedURI q<dis2pm:method>,
234			ExpandedURI q<dis2pm:constGroup>,
235			ExpandedURI q<dis2pm:const>) {
236			for my $v (values %{$mod->{$p}\|\|{}}) {
237			my $ruri = defined $v->{URI}
238			? $v->{URI}
239			: ($v->{ExpandedURI q<d:anonID>}
240			\|\|= $result->get_new_anon_id (Name => $v->{Name}));
241			$result->add_triple ($uri =>$p=> $ruri);
242			}
243			}
244			if ($mod->{ExpandedURI q<dis2pm:type>} eq
245			ExpandedURI q<ManakaiDOM:DOMMethod>) {
246			$result->add_triple
247			($uri =>ExpandedURI q<dis2pm:param>=>
248			my $p = $result->get_new_anon_id (Name => 'param'));
249			$result->add_triple ($uri =>ExpandedURI q<rdf:type>=>
250			ExpandedURI q<rdf:Seq>);
251			my $i = 0;
252			for (@{$mod->{ExpandedURI q<dis2pm:param>}\|\|[]}) {
253			my $ruri = defined $_->{URI}
254			? $_->{URI}
255			: ($_->{ExpandedURI q<d:anonID>}
256			\|\|= $result->get_new_anon_id (Name => $_->{Name}));
257			$result->add_triple ($p =>(ExpandedURI q<rdf:_>).++$i=> $ruri);
258			}
259			}
260			}
261			if ($Opt{output_local_resource}) {
262			for (keys %{$mod->{Resource}}) {
263			class_to_rdf ($mod->{Resource}->{$_}, %opt, parent_class => $mod,
264			parent_class_uri => $uri,
265			key => $_);
266			}
267			}
268			} else { ## Alias URI
269			return unless $opt{key} =~ /$Opt{output_resource_uri_pattern}/ or
270			$mod->{URI} =~ /$Opt{output_resource_uri_pattern}/;
271			$result->add_triple ($opt{key} =>ExpandedURI q<owl:sameAs>=> $mod->{URI});
272			}
273			}
274			for (sort keys %{$State->{Type}}) {
275			next if not $Opt{output_root_anon_resource} and
276			not defined $State->{Type}->{$_}->{URI};
277			class_to_rdf ($State->{Type}->{$_}, key => $_);
278			}
279			}
280
281			if ($Opt{output_as_xml}) {
282			print $result->stringify_as_xml;
283			} else {
284			print $result->stringify;
285			}
286
287			package manakai::n3;
288			sub new ($) {
289			bless {triple => [], anon => 0}, shift;
290			}
291
292			sub get_new_anon_id ($;%) {
293			my ($self, %opt) = @_;
294			my $s = $opt{Name} ? $opt{Name} : '';
295			return sprintf '_:r%d%s', $self->{anon}++, $s;
296			}
297
298			sub add_triple ($$$$) {
299			my ($self, $s =>$p=> $o) = @_;
300			main::impl_err ("Subject undefined") unless defined $s;
301			main::impl_err ("Property undefined") unless defined $p;
302			main::impl_err ("Object undefined") unless defined $o;
303			push @{$self->{triple}}, [$s =>$p=> $o];
304			}
305
306			sub stringify ($) {
307			my ($self) = @_;
308	wakaba	1.2	return join "\n", @{main::array_uniq ([sort map {"$_."} map {
309	wakaba	1.1	sprintf '%s %s %s', map {
310			$_ =~ /^[_"]/ ? $_ : "<$_>"
311			} @{$_}[0, 1, 2];
312	wakaba	1.2	} @{$self->{triple}}])}, '';
313	wakaba	1.1	}
314
315			sub stringify_as_xml ($) {
316			my ($self) = @_;
317			use RDF::Notation3::XML;
318			my $notation3 = RDF::Notation3::XML->new;
319			my $n3 = $self->stringify;
320			my $rdf_ = ExpandedURI q<rdf:_>;
321			$n3 =~ s{$rdf_}{ExpandedURI q<rdf:XXXX__dummy__XXXX>}ge;
322			$notation3->parse_string ($n3);
323			my $xml = $notation3->get_string;
324			$xml =~ s/\brdf:nodeID="_:/rdf:nodeID="/g;
325			$xml =~ s/XXXX__dummy__XXXX/_/g;
326			# $xml =~ s/^<\?xml version="1.0" encoding="utf-8"\?>\s*//;
327			$xml;
328			}
329
330			__END__
331
332			=head1 NAME
333
334			cdis2rdf - cdis to RDF converter
335
336			=head1 SYNOPSIS
337
338			perl cdis2rdf.pl input.cdis [options...] > output.rdf
339			perl cdis2rdf.pl --help
340
341			=head1 DESCRIPTION
342
343			The C<cdis2rdf> utility generates a RDF graph from a compiled
344			"dis" file. The graph describes relationship of module, "For" or
345			resource defined in the dis files. The RDF data outputed are able
346			to be used with other utilities that support RDF.
347
348			=head2 OPTIONS
349
350			=over 4
351
352			=item I<input.cdis>
353
354			A compiled "dis" file from which a RDF graph is generated.
355
356			=item I<output.rdf>
357
358			A file to which the RDF data generated is saved.
359
360			=item C<--output-anon-resource> (default) / C<--nooutput-anon-resource>
361
362			Set whether anonymous resources are outputed.
363
364			=item C<--output-as-n3>
365
366			Set to output the graph in RDF/Notation3 format.
367
368			=item C<--output-as-xml> (default)
369
370			Set to output the graph in RDF/XML format. Note that the
371			L<RDF::Notation3::XML> Perl module is used to generate the XML entity.
372
373			=item C<--help>
374
375			Show the help message.
376
377			=item C<--output-for> / C<--nooutput-for> (default)
378
379			Set whether relationships of "For" URI references are outputed.
380
381			=item C<--output-local-resource> (default) / C<--nooutput-local-resource>
382
383			Set whether local resources (resources that do have the locally-scoped
384			name but do not have the global name) are outputed.
385
386			=item C<--output-only-in-module=I<pattern>> (default: C<.>)
387
388			A regex filter that is applied to URI references of module names.
389			This filter is applied to defining-modules of resources (not modules themselves).
390
391			=item C<--output-module> / C<--nooutput-module> (default)
392
393			Set whehter relationships of modules are outputed.
394
395			=item C<--output-perl> / C<--nooutput-perl> (default)
396
397			Set whether "For"-Perl specific properties are outputed.
398
399			=item C<--output-perl-member-pattern=I<pattern>> (default: C<.>)
400
401			A regex filter that is applied to URI references of Perl
402			package members such as methods and constant values.
403
404			=item C<--output-resource> / C<--nooutput-resource> (default)
405
406			Set whether relationships of resources are outputed.
407
408			=item C<--output-resource-uri-pattern=I<pattern>> (default: C<.>)
409
410			A regex filter that is applied to URI references of
411			resources.
412
413			=item C<--output-root-anon-resource> / C<--nooutput-root-anon-resource> (default: same as C<--output-anon-resource> / C<--nooutput-anon-resource>)
414
415			Set whether anonymous resources that are direct children of modules.
416
417			=cut
418
419			=head1 LICENSE
420
421			Copyright 2004 Wakaba <w@suika.fam.cx>. All rights reserved.
422
423			This program is free software; you can redistribute it and/or
424			modify it under the same terms as Perl itself.
425
426			Note that the copyright holder(s) of this script does not claim
427			any rights for materials outputed by this script, although
428			some of its part comes from this script. The copyright
429			holder(s) of source document should define their license terms.
430
431			=cut