/[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.9 by wakaba, Sat Apr 1 14:41:29 2006 UTC revision 1.10 by wakaba, Mon Apr 3 12:53:22 2006 UTC
# Line 295  for (@{$Opt{create_module}}) { Line 295  for (@{$Opt{create_module}}) {
295      status_msg_ qq<Generating Perl module from <$mod_uri> for <$mod_for>...>;      status_msg_ qq<Generating Perl module from <$mod_uri> for <$mod_for>...>;
296      local $Message::Util::DIS::Perl::Implementation      local $Message::Util::DIS::Perl::Implementation
297          = $impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0');          = $impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0');
298      my $pl = $mod->pl_generate_perl_module_file;      my $pl = $mod->pl_generate_perl_module_file
299                        ($impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0'));
300      status_msg qq<done>;      status_msg qq<done>;
301    
302      my $output;      my $output;
# Line 590  sub daf_generate_perl_test_file ($) { Line 591  sub daf_generate_perl_test_file ($) {
591    my $mod = shift;    my $mod = shift;
592    my $pc = $impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0');    my $pc = $impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0');
593    local $Message::Util::DIS::Perl::Implementation = $pc;    local $Message::Util::DIS::Perl::Implementation = $pc;
594    my $pl = $pc->create_perl_file;    my $pl = $pc->create_pc_file;
595      my $factory = $pl->owner_document;
596    my $pack = $pl->get_last_package ("Manakai::Test", make_new_package => 1);    my $pack = $pl->get_last_package ("Manakai::Test", make_new_package => 1);
597    $pack->add_use_perl_module_name ("Message::Util::DIS::Test");    $pack->add_use_perl_module_name ("Message::Util::DIS::Test");
598    $pack->add_use_perl_module_name ("Message::Util::Error");    $pack->add_use_perl_module_name ("Message::Util::Error");
# Line 651  sub daf_generate_perl_test_file ($) { Line 653  sub daf_generate_perl_test_file ($) {
653                    
654          $pack->append_code ('try {');          $pack->append_code ('try {');
655                    
656          my $test_pc = $res->pl_code_fragment;          my $test_pc = $res->pl_code_fragment ($factory);
657          if (not defined $test_pc) {          if (not defined $test_pc) {
658            die "Perl test code not defined for <".$res->uri.">";            die "Perl test code not defined for <".$res->uri.">";
659          }          }
# Line 727  sub daf_generate_perl_test_file ($) { Line 729  sub daf_generate_perl_test_file ($) {
729            $_->append_new_pc_literal (\@test);            $_->append_new_pc_literal (\@test);
730          }          }
731                    
732          my $plc = $res->pl_code_fragment;          my $plc = $res->pl_code_fragment ($factory);
733          unless ($plc) {          unless ($plc) {
734            die "Resource <".$res->uri."> does not have Perl test code";            die "Resource <".$res->uri."> does not have Perl test code";
735          }          }
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24