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 (grep {$mod->{subsetOf}->{$_}} keys %{$mod->{subsetOf}}) {
        $result->add_triple ($uri =>ExpandedURI q<d:subsetOf>=>
                             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>],
                      [ExpandedURI q<dis2pm:type>]) {
          $result->add_triple ($uri =>$prop->[0]=> res_canon $mod->{$prop->[0]})
            if defined $mod->{$prop->[0]} and
               length $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	wakaba	1.3	for (grep {$mod->{subsetOf}->{$_}} keys %{$mod->{subsetOf}}) {
182			$result->add_triple ($uri =>ExpandedURI q<d:subsetOf>=>
183			res_canon $_);
184			}
185	wakaba	1.1	for (@{$mod->{Implement}}) {
186	wakaba	1.2	$result->add_triple ($uri =>ExpandedURI q<d:Implement>=> res_canon $_);
187	wakaba	1.1	}
188			if ($Opt{output_for}) {
189			for (keys %{$mod->{For}}) {
190			$result->add_triple ($uri =>ExpandedURI q<d:For>=> $_);
191			}
192			}
193			for (@{$mod->{hasResource}\|\|[]}) {
194			my $ruri = defined $_->{URI}
195			? $_->{URI}
196			: ($_->{ExpandedURI q<d:anonID>}
197			\|\|= $result->get_new_anon_id (Name => $_->{Name}));
198			$result->add_triple ($uri =>ExpandedURI q<d:hasResource>=> $ruri);
199			}
200			if ($Opt{output_prop_perl}) {
201			for my $prop ([ExpandedURI q<dis2pm:packageName>],
202			[ExpandedURI q<dis2pm:ifPackagePrefix>],
203			[ExpandedURI q<dis2pm:methodName>],
204			[ExpandedURI q<dis2pm:paramName>],
205			[ExpandedURI q<dis2pm:constGroupName>],
206			[ExpandedURI q<dis2pm:constName>],
207			[ExpandedURI q<ManakaiDOM:isRedefining>,
208			ExpandedURI q<DOMMain:boolean>],
209			[ExpandedURI q<ManakaiDOM:isForInternal>,
210			ExpandedURI q<DOMMain:boolean>],
211			[ExpandedURI q<d:Read>, ExpandedURI q<DOMMain:boolean>],
212			[ExpandedURI q<d:Write>,
213			ExpandedURI q<DOMMain:boolean>],
214			[ExpandedURI q<dis2pm:undefable>,
215			ExpandedURI q<DOMMain:boolean>]) {
216			$result->add_triple ($uri =>$prop->[0]=>
217			n3_literal $mod->{$prop->[0]})
218			if defined $mod->{$prop->[0]};
219			}
220			for my $prop ([ExpandedURI q<d:Type>],
221	wakaba	1.3	[ExpandedURI q<d:actualType>],
222			[ExpandedURI q<dis2pm:type>]) {
223	wakaba	1.2	$result->add_triple ($uri =>$prop->[0]=> res_canon $mod->{$prop->[0]})
224	wakaba	1.3	if defined $mod->{$prop->[0]} and
225			length $mod->{$prop->[0]};
226	wakaba	1.1	}
227			for my $prop ([ExpandedURI q<dis2pm:getter>],
228			[ExpandedURI q<dis2pm:setter>],
229			[ExpandedURI q<dis2pm:return>]) {
230			my $oo = $mod->{$prop->[0]};
231			if ($oo and defined $oo->{Name}) {
232			my $o = defined $oo->{URI}
233			? $oo->{URI}
234			: ($oo->{ExpandedURI q<d:anonID>}
235			\|\|= $result->get_new_anon_id (Name => $oo->{Name}));
236			$result->add_triple ($uri =>$prop->[0]=> $o)
237			}
238			}
239			for my $p (ExpandedURI q<dis2pm:method>,
240			ExpandedURI q<dis2pm:constGroup>,
241			ExpandedURI q<dis2pm:const>) {
242			for my $v (values %{$mod->{$p}\|\|{}}) {
243			my $ruri = defined $v->{URI}
244			? $v->{URI}
245			: ($v->{ExpandedURI q<d:anonID>}
246			\|\|= $result->get_new_anon_id (Name => $v->{Name}));
247			$result->add_triple ($uri =>$p=> $ruri);
248			}
249			}
250			if ($mod->{ExpandedURI q<dis2pm:type>} eq
251			ExpandedURI q<ManakaiDOM:DOMMethod>) {
252			$result->add_triple
253			($uri =>ExpandedURI q<dis2pm:param>=>
254			my $p = $result->get_new_anon_id (Name => 'param'));
255			$result->add_triple ($uri =>ExpandedURI q<rdf:type>=>
256			ExpandedURI q<rdf:Seq>);
257			my $i = 0;
258			for (@{$mod->{ExpandedURI q<dis2pm:param>}\|\|[]}) {
259			my $ruri = defined $_->{URI}
260			? $_->{URI}
261			: ($_->{ExpandedURI q<d:anonID>}
262			\|\|= $result->get_new_anon_id (Name => $_->{Name}));
263			$result->add_triple ($p =>(ExpandedURI q<rdf:_>).++$i=> $ruri);
264			}
265			}
266			}
267			if ($Opt{output_local_resource}) {
268			for (keys %{$mod->{Resource}}) {
269			class_to_rdf ($mod->{Resource}->{$_}, %opt, parent_class => $mod,
270			parent_class_uri => $uri,
271			key => $_);
272			}
273			}
274			} else { ## Alias URI
275			return unless $opt{key} =~ /$Opt{output_resource_uri_pattern}/ or
276			$mod->{URI} =~ /$Opt{output_resource_uri_pattern}/;
277			$result->add_triple ($opt{key} =>ExpandedURI q<owl:sameAs>=> $mod->{URI});
278			}
279			}
280			for (sort keys %{$State->{Type}}) {
281			next if not $Opt{output_root_anon_resource} and
282			not defined $State->{Type}->{$_}->{URI};
283			class_to_rdf ($State->{Type}->{$_}, key => $_);
284			}
285			}
286
287			if ($Opt{output_as_xml}) {
288			print $result->stringify_as_xml;
289			} else {
290			print $result->stringify;
291			}
292
293			package manakai::n3;
294			sub new ($) {
295			bless {triple => [], anon => 0}, shift;
296			}
297
298			sub get_new_anon_id ($;%) {
299			my ($self, %opt) = @_;
300			my $s = $opt{Name} ? $opt{Name} : '';
301			return sprintf '_:r%d%s', $self->{anon}++, $s;
302			}
303
304			sub add_triple ($$$$) {
305			my ($self, $s =>$p=> $o) = @_;
306			main::impl_err ("Subject undefined") unless defined $s;
307			main::impl_err ("Property undefined") unless defined $p;
308			main::impl_err ("Object undefined") unless defined $o;
309			push @{$self->{triple}}, [$s =>$p=> $o];
310			}
311
312			sub stringify ($) {
313			my ($self) = @_;
314	wakaba	1.2	return join "\n", @{main::array_uniq ([sort map {"$_."} map {
315	wakaba	1.1	sprintf '%s %s %s', map {
316			$_ =~ /^[_"]/ ? $_ : "<$_>"
317			} @{$_}[0, 1, 2];
318	wakaba	1.2	} @{$self->{triple}}])}, '';
319	wakaba	1.1	}
320
321			sub stringify_as_xml ($) {
322			my ($self) = @_;
323			use RDF::Notation3::XML;
324			my $notation3 = RDF::Notation3::XML->new;
325			my $n3 = $self->stringify;
326			my $rdf_ = ExpandedURI q<rdf:_>;
327			$n3 =~ s{$rdf_}{ExpandedURI q<rdf:XXXX__dummy__XXXX>}ge;
328			$notation3->parse_string ($n3);
329			my $xml = $notation3->get_string;
330			$xml =~ s/\brdf:nodeID="_:/rdf:nodeID="/g;
331			$xml =~ s/XXXX__dummy__XXXX/_/g;
332			# $xml =~ s/^<\?xml version="1.0" encoding="utf-8"\?>\s*//;
333			$xml;
334			}
335
336			__END__
337
338			=head1 NAME
339
340			cdis2rdf - cdis to RDF converter
341
342			=head1 SYNOPSIS
343
344			perl cdis2rdf.pl input.cdis [options...] > output.rdf
345			perl cdis2rdf.pl --help
346
347			=head1 DESCRIPTION
348
349			The C<cdis2rdf> utility generates a RDF graph from a compiled
350			"dis" file. The graph describes relationship of module, "For" or
351			resource defined in the dis files. The RDF data outputed are able
352			to be used with other utilities that support RDF.
353
354			=head2 OPTIONS
355
356			=over 4
357
358			=item I<input.cdis>
359
360			A compiled "dis" file from which a RDF graph is generated.
361
362			=item I<output.rdf>
363
364			A file to which the RDF data generated is saved.
365
366			=item C<--output-anon-resource> (default) / C<--nooutput-anon-resource>
367
368			Set whether anonymous resources are outputed.
369
370			=item C<--output-as-n3>
371
372			Set to output the graph in RDF/Notation3 format.
373
374			=item C<--output-as-xml> (default)
375
376			Set to output the graph in RDF/XML format. Note that the
377			L<RDF::Notation3::XML> Perl module is used to generate the XML entity.
378
379			=item C<--help>
380
381			Show the help message.
382
383			=item C<--output-for> / C<--nooutput-for> (default)
384
385			Set whether relationships of "For" URI references are outputed.
386
387			=item C<--output-local-resource> (default) / C<--nooutput-local-resource>
388
389			Set whether local resources (resources that do have the locally-scoped
390			name but do not have the global name) are outputed.
391
392			=item C<--output-only-in-module=I<pattern>> (default: C<.>)
393
394			A regex filter that is applied to URI references of module names.
395			This filter is applied to defining-modules of resources (not modules themselves).
396
397			=item C<--output-module> / C<--nooutput-module> (default)
398
399			Set whehter relationships of modules are outputed.
400
401			=item C<--output-perl> / C<--nooutput-perl> (default)
402
403			Set whether "For"-Perl specific properties are outputed.
404
405			=item C<--output-perl-member-pattern=I<pattern>> (default: C<.>)
406
407			A regex filter that is applied to URI references of Perl
408			package members such as methods and constant values.
409
410			=item C<--output-resource> / C<--nooutput-resource> (default)
411
412			Set whether relationships of resources are outputed.
413
414			=item C<--output-resource-uri-pattern=I<pattern>> (default: C<.>)
415
416			A regex filter that is applied to URI references of
417			resources.
418
419			=item C<--output-root-anon-resource> / C<--nooutput-root-anon-resource> (default: same as C<--output-anon-resource> / C<--nooutput-anon-resource>)
420
421			Set whether anonymous resources that are direct children of modules.
422
423			=cut
424
425			=head1 LICENSE
426
427			Copyright 2004 Wakaba <w@suika.fam.cx>. All rights reserved.
428
429			This program is free software; you can redistribute it and/or
430			modify it under the same terms as Perl itself.
431
432			Note that the copyright holder(s) of this script does not claim
433			any rights for materials outputed by this script, although
434			some of its part comes from this script. The copyright
435			holder(s) of source document should define their license terms.
436
437			=cut