/[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.7 by wakaba, Fri Mar 17 08:06:20 2006 UTC revision 1.9 by wakaba, Sat Apr 1 14:41:29 2006 UTC
# Line 293  for (@{$Opt{create_module}}) { Line 293  for (@{$Opt{create_module}}) {
293    
294    if ($out_type eq 'perl-pm') {    if ($out_type eq 'perl-pm') {
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
297            = $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      status_msg qq<done>;      status_msg qq<done>;
300    
# Line 481  sub daf_get_referring_module_uri_list ($ Line 483  sub daf_get_referring_module_uri_list ($
483  sub dac_search_file_path_stem ($$$) {  sub dac_search_file_path_stem ($$$) {
484    my ($ns, $ln, $suffix) = @_;    my ($ns, $ln, $suffix) = @_;
485    require File::Spec;    require File::Spec;
486    for my $dir ('.', @{$Opt{input_search_path}->{$ns}||[]}) {    for my $dir (@{$Opt{input_search_path}->{$ns}||[]}) {
487      my $name = Cwd::abs_path      my $name = Cwd::abs_path
488          (File::Spec->canonpath          (File::Spec->canonpath
489           (File::Spec->catfile ($dir, $ln)));           (File::Spec->catfile ($dir, $ln)));
# Line 587  sub daf_check_undefined () { Line 589  sub daf_check_undefined () {
589  sub daf_generate_perl_test_file ($) {  sub daf_generate_perl_test_file ($) {
590    my $mod = shift;    my $mod = shift;
591    my $pc = $impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0');    my $pc = $impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0');
592      local $Message::Util::DIS::Perl::Implementation = $pc;
593    my $pl = $pc->create_perl_file;    my $pl = $pc->create_perl_file;
594    my $pack = $pl->get_last_package ("Manakai::Test", make_new_package => 1);    my $pack = $pl->get_last_package ("Manakai::Test", make_new_package => 1);
595    $pack->add_use_perl_module_name ("Message::Util::DIS::Test");    $pack->add_use_perl_module_name ("Message::Util::DIS::Test");
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24