/[suikacvs]/messaging/manakai/bin/daf.pl
Suika

Diff of /messaging/manakai/bin/daf.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by wakaba, Sat Nov 4 12:25:10 2006 UTC revision 1.20 by wakaba, Sun Nov 5 12:31:49 2006 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2  use strict;  use strict;
3  use Message::Util::QName::Filter {  use Message::Util::QName::Filter {
   c => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#>,  
   DIS => q<http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#>,  
4    dis => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis-->,    dis => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis-->,
5    dp => q<http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#Perl/>,    dp => q<http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/DIS#Perl/>,
   fe => q<http://suika.fam.cx/www/2006/feature/>,  
6    ManakaiDOM => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#>,    ManakaiDOM => q<http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#>,
   pc => q<http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/PerlCode#>,  
7    swcfg21 => q<http://suika.fam.cx/~wakaba/archive/2005/swcfg21#>,    swcfg21 => q<http://suika.fam.cx/~wakaba/archive/2005/swcfg21#>,
   Util => q<http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/>,  
8  };  };
9    
10  our$VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};  our$VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
# Line 133  sub verbose_msg_ ($) { Line 128  sub verbose_msg_ ($) {
128    print STDERR $s if $Opt{verbose};    print STDERR $s if $Opt{verbose};
129  }  }
130    
131    sub daf_open_source_dis_document ($);
132    sub daf_open_current_module_index ($$);
133    sub daf_convert_dis_document_to_dnl_document ();
134    sub daf_get_referring_module_uri_list ($);
135    sub dac_search_file_path_stem ($$$);
136    sub daf_get_module_index_file_name ($);
137    sub daf_check_undefined ();
138    
139  ## ---- The MAIN Program  ## ---- The MAIN Program
140    
141  my $start_time;  my $start_time;
142  BEGIN { $start_time = time }  BEGIN { $start_time = time }
143    
144  use Message::Util::DIS::DNLite;  use Message::DOM::DOMCore;
   
 my %feature;  
145    
146  for (@{$Opt{create_module}}) {  for (@{$Opt{create_module}}) {
147    my (undef, undef, undef, $out_type) = @$_;    my (undef, undef, undef, $out_type) = @$_;
148    
149    if ($out_type eq 'perl-pm') {    if ($out_type eq 'perl-pm') {
150      require 'manakai/daf-perl-pm.pl';      require 'manakai/daf-perl-pm.pl';
     $feature{'+' . ExpandedURI q<Util:PerlCode>} = '1.0';  
151    } elsif ($out_type eq 'perl-t') {    } elsif ($out_type eq 'perl-t') {
152      require 'manakai/daf-perl-t.pl';      require 'manakai/daf-perl-t.pl';
     $feature{ExpandedURI q<fe:GenericLS>} = '3.0';  
     $feature{'+' . ExpandedURI q<DIS:TDT>} = '1.0';  
     $feature{'+' . ExpandedURI q<Util:PerlCode>} = '1.0';  
153    } elsif ($out_type eq 'dtd-modules') {    } elsif ($out_type eq 'dtd-modules') {
154      require 'manakai/daf-dtd-modules.pl';      require 'manakai/daf-dtd-modules.pl';
     $feature{ExpandedURI q<fe:GenericLS>} = '3.0';  
     $feature{'+' . ExpandedURI q<fe:XDP>} = '3.0';  
155    } elsif ($out_type eq 'dtd-driver') {    } elsif ($out_type eq 'dtd-driver') {
156      require 'manakai/daf-dtd-modules.pl';      require 'manakai/daf-dtd-modules.pl';
     $feature{ExpandedURI q<fe:GenericLS>} = '3.0';  
     $feature{'+' . ExpandedURI q<fe:XDP>} = '3.0';  
157    }    }
158  }  }
159    
160  our $limpl = $Message::DOM::ImplementationRegistry->get_implementation  our $impl = $Message::DOM::ImplementationRegistry->get_implementation;
                            ({ExpandedURI q<fe:Min> => '3.0',  
                              '+' . ExpandedURI q<DIS:DNLite> => '1.0',  
                              '+' . ExpandedURI q<DIS:Core> => '1.0',  
                              %feature,  
                            });  
 our $impl = $limpl->get_feature (ExpandedURI q<DIS:Core> => '1.0');  
161    
162  ## --- Loading and Updating the Database  ## --- Loading and Updating the Database
163    
# Line 180  $db->pl_database_module_resolver (\&daf_ Line 167  $db->pl_database_module_resolver (\&daf_
167  $db->dom_config->set_parameter ('error-handler' => \&daf_on_error);  $db->dom_config->set_parameter ('error-handler' => \&daf_on_error);
168    
169  my $parser = $impl->create_dis_parser;  my $parser = $impl->create_dis_parser;
 my $DNi = $impl->get_feature (ExpandedURI q<DIS:DNLite> => '1.0');  
170  my %ModuleSourceDISDocument;  my %ModuleSourceDISDocument;
171  my %ModuleSourceDNLDocument;  my %ModuleSourceDNLDocument;
172  my %ModuleNameNamespaceBinding = (  my %ModuleNameNamespaceBinding = (
# Line 194  my $ResourceCount = 0; Line 180  my $ResourceCount = 0;
180  $db->pl_update_module (\@target_modules,  $db->pl_update_module (\@target_modules,
181  get_module_index_file_name => sub {  get_module_index_file_name => sub {
182    shift; # $db    shift; # $db
183    daf_get_module_index_file_name (@_);    daf_get_module_index_file_name (shift);
184  },  },
185  get_module_source_document_from_uri => sub {  get_module_source_document_from_uri => sub {
186    my ($db, $module_uri, $module_for) = @_;    my ($db, $module_uri, $module_for) = @_;
# Line 307  status_msg "done"; Line 293  status_msg "done";
293    
294  daf_check_undefined ();  daf_check_undefined ();
295    
 undef $DNi;  
296  undef %ModuleSourceDNLDocument;  undef %ModuleSourceDNLDocument;
297  exit $HasError if $HasError;  exit $HasError if $HasError;
298    
# Line 336  $db->free; Line 321  $db->free;
321  undef $db;  undef $db;
322  status_msg "done";  status_msg "done";
323    
 undef $limpl;  
324  undef $impl;  undef $impl;
325    
326  {  {
# Line 429  sub daf_convert_dis_document_to_dnl_docu Line 413  sub daf_convert_dis_document_to_dnl_docu
413      my $dis_doc = $ModuleSourceDISDocument{$module_uri};      my $dis_doc = $ModuleSourceDISDocument{$module_uri};
414      next M unless $dis_doc;      next M unless $dis_doc;
415      verbose_msg_ qq<Converting <$module_uri>...>;      verbose_msg_ qq<Converting <$module_uri>...>;
416      my $dnl_doc = $DNi->convert_dis_document_to_dnl_document      my $dnl_doc = $impl->convert_dis_document_to_dnl_document
417                            ($dis_doc, database_arg => $db,                            ($dis_doc, database_arg => $db,
418                             base_namespace_binding =>                             base_namespace_binding =>
419                               {(map {$_->local_name => $_->target_namespace_uri}                               {(map {$_->local_name => $_->target_namespace_uri}
# Line 488  sub dac_search_file_path_stem ($$$) { Line 472  sub dac_search_file_path_stem ($$$) {
472    return undef;    return undef;
473  } # dac_search_file_path_stem;  } # dac_search_file_path_stem;
474    
475  sub daf_get_module_index_file_name ($$) {  sub daf_get_module_index_file_name ($) {
476    my ($module_uri) = @_;    my ($module_uri) = @_;
477    my $ns = $module_uri;    my $ns = $module_uri;
478    $ns =~ s/(\w+)\z//;    $ns =~ s/(\w+)\z//;
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.20
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24