/[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.5 by wakaba, Sun Mar 12 10:13:31 2006 UTC revision 1.6 by wakaba, Thu Mar 16 08:52:31 2006 UTC
# Line 133  my $limpl = $Message::DOM::Implementatio Line 133  my $limpl = $Message::DOM::Implementatio
133                               %feature,                               %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 280  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 585  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 666  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.5  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24