/[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.2 by wakaba, Sun Feb 26 06:42:55 2006 UTC revision 1.6 by wakaba, Thu Mar 16 08:52:31 2006 UTC
# Line 116  BEGIN { $start_time = time } Line 116  BEGIN { $start_time = time }
116    
117  use Message::Util::DIS::DNLite;  use Message::Util::DIS::DNLite;
118  use Message::Util::PerlCode;  use Message::Util::PerlCode;
119  use Message::Util::DIS::Test;  
120  use Message::DOM::GenericLS;  my %feature;
121    eval q{
122      use Message::Util::DIS::Test;
123      use Message::DOM::GenericLS;
124      $feature{ExpandedURI q<fe:GenericLS>} = '3.0';
125      $feature{'+' . ExpandedURI q<DIS:TDT>} = '1.0';
126    };
127    
128  my $limpl = $Message::DOM::ImplementationRegistry->get_implementation  my $limpl = $Message::DOM::ImplementationRegistry->get_implementation
129                             ({ExpandedURI q<fe:Min> => '3.0',                             ({ExpandedURI q<fe:Min> => '3.0',
130                               '+' . ExpandedURI q<DIS:DNLite> => '1.0',                               '+' . ExpandedURI q<DIS:DNLite> => '1.0',
131                               '+' . ExpandedURI q<DIS:Core> => '1.0',                               '+' . ExpandedURI q<DIS:Core> => '1.0',
132                               '+' . ExpandedURI q<Util:PerlCode> => '1.0',                               '+' . ExpandedURI q<Util:PerlCode> => '1.0',
133                               '+' . ExpandedURI q<DIS:TDT> => '1.0',                               %feature,
134                             });                             });
135  my $impl = $limpl->get_feature (ExpandedURI q<DIS:Core> => '1.0');  my $impl = $limpl->get_feature (ExpandedURI q<DIS:Core> => '1.0');
 my $pc = $impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0');  
 my $di = $impl->get_feature (ExpandedURI q<DIS:Core> => '1.0');  
136  my $tdt_parser;  my $tdt_parser;
137    
138  ## --- Loading and Updating the Database  ## --- Loading and Updating the Database
# Line 209  get_referring_module_uri_list => sub { Line 213  get_referring_module_uri_list => sub {
213      unless (defined $ModuleSourceDISDocument{$module_uri}) {      unless (defined $ModuleSourceDISDocument{$module_uri}) {
214        daf_open_source_dis_document ($module_uri);        daf_open_source_dis_document ($module_uri);
215      }      }
     daf_convert_dis_document_to_dnl_document ();  
216    }    }
217    return daf_get_referring_module_uri_list ($module_uri);    return daf_get_referring_module_uri_list ($module_uri);
218  },  },
# Line 275  daf_check_undefined (); Line 278  daf_check_undefined ();
278    
279  undef $DNi;  undef $DNi;
280  undef %ModuleSourceDNLDocument;  undef %ModuleSourceDNLDocument;
281    undef $limpl;
282    undef $impl;
283  exit $HasError if $HasError;  exit $HasError if $HasError;
284    
285  ## --- Creating Files  ## --- Creating Files
# Line 310  for (@{$Opt{create_module}}) { Line 315  for (@{$Opt{create_module}}) {
315      my $pl = daf_generate_perl_test_file ($mod);      my $pl = daf_generate_perl_test_file ($mod);
316      status_msg qq<done>;      status_msg qq<done>;
317    
318        my $cfg = $pl->owner_document->dom_config;
319        $cfg->set_parameter (ExpandedURI q<pc:preserve-line-break> => 1);
320    
321      my $output;      my $output;
322      defined $out_file_path      defined $out_file_path
323          ? (open $output, '>', $out_file_path or die "$0: $out_file_path: $!")          ? (open $output, '>', $out_file_path or die "$0: $out_file_path: $!")
# Line 577  sub daf_check_undefined () { Line 585  sub daf_check_undefined () {
585    
586  sub daf_generate_perl_test_file ($) {  sub daf_generate_perl_test_file ($) {
587    my $mod = shift;    my $mod = shift;
588      my $pc = $impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0');
589    my $pl = $pc->create_perl_file;    my $pl = $pc->create_perl_file;
590    my $pack = $pl->get_last_package ("Manakai::Test", make_new_package => 1);    my $pack = $pl->get_last_package ("Manakai::Test", make_new_package => 1);
591    $pack->add_use_perl_module_name ("Message::Util::DIS::Test");    $pack->add_use_perl_module_name ("Message::Util::DIS::Test");
# Line 636  sub daf_generate_perl_test_file ($) { Line 645  sub daf_generate_perl_test_file ($) {
645          my $block = $pack->append_new_pc_block;          my $block = $pack->append_new_pc_block;
646          my @test;          my @test;
647                    
648          $tdt_parser ||= $impl->create_gls_parser          $tdt_parser ||= $limpl->create_gls_parser
649                                   ({                                   ({
650                                     ExpandedURI q<DIS:TDT> => '1.0',                                     ExpandedURI q<DIS:TDT> => '1.0',
651                                    });                                    });
# Line 658  sub daf_generate_perl_test_file ($) { Line 667  sub daf_generate_perl_test_file ($) {
667                   not defined $ttest->{root_uri};                   not defined $ttest->{root_uri};
668            }            }
669    
670              ## DOM configuration parameters
671              for my $v (@{$tres->get_property_value_list
672                                  (ExpandedURI q<c:anyDOMConfigurationParameter>)}) {
673                my $cpuri = $v->name;
674                my $cp = $db->get_resource ($cpuri, for_arg => $tres->for_uri);
675                $ttest->{dom_config}->{$cp->get_dom_configuration_parameter_name}
676                  = $v->get_perl_code ($block->owner_document, $tres);
677              }
678    
679            ## Result DOM tree            ## Result DOM tree
680            my $tree_t = $tres->get_property_text (ExpandedURI q<test:domTree>);            my $tree_t = $tres->get_property_text (ExpandedURI q<test:domTree>);
681            if (defined $tree_t) {            if (defined $tree_t) {
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24