/[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.4 by wakaba, Mon Mar 6 07:32:51 2006 UTC
# Line 121  use Message::DOM::GenericLS; Line 121  use Message::DOM::GenericLS;
121    
122  my $limpl = $Message::DOM::ImplementationRegistry->get_implementation  my $limpl = $Message::DOM::ImplementationRegistry->get_implementation
123                             ({ExpandedURI q<fe:Min> => '3.0',                             ({ExpandedURI q<fe:Min> => '3.0',
124                                 ExpandedURI q<fe:GenericLS> => '3.0',
125                               '+' . ExpandedURI q<DIS:DNLite> => '1.0',                               '+' . ExpandedURI q<DIS:DNLite> => '1.0',
126                               '+' . ExpandedURI q<DIS:Core> => '1.0',                               '+' . ExpandedURI q<DIS:Core> => '1.0',
127                               '+' . ExpandedURI q<Util:PerlCode> => '1.0',                               '+' . ExpandedURI q<Util:PerlCode> => '1.0',
# Line 209  get_referring_module_uri_list => sub { Line 210  get_referring_module_uri_list => sub {
210      unless (defined $ModuleSourceDISDocument{$module_uri}) {      unless (defined $ModuleSourceDISDocument{$module_uri}) {
211        daf_open_source_dis_document ($module_uri);        daf_open_source_dis_document ($module_uri);
212      }      }
     daf_convert_dis_document_to_dnl_document ();  
213    }    }
214    return daf_get_referring_module_uri_list ($module_uri);    return daf_get_referring_module_uri_list ($module_uri);
215  },  },
# Line 310  for (@{$Opt{create_module}}) { Line 310  for (@{$Opt{create_module}}) {
310      my $pl = daf_generate_perl_test_file ($mod);      my $pl = daf_generate_perl_test_file ($mod);
311      status_msg qq<done>;      status_msg qq<done>;
312    
313        my $cfg = $pl->owner_document->dom_config;
314        $cfg->set_parameter (ExpandedURI q<pc:preserve-line-break> => 1);
315    
316      my $output;      my $output;
317      defined $out_file_path      defined $out_file_path
318          ? (open $output, '>', $out_file_path or die "$0: $out_file_path: $!")          ? (open $output, '>', $out_file_path or die "$0: $out_file_path: $!")
# Line 636  sub daf_generate_perl_test_file ($) { Line 639  sub daf_generate_perl_test_file ($) {
639          my $block = $pack->append_new_pc_block;          my $block = $pack->append_new_pc_block;
640          my @test;          my @test;
641                    
642          $tdt_parser ||= $impl->create_gls_parser          $tdt_parser ||= $limpl->create_gls_parser
643                                   ({                                   ({
644                                     ExpandedURI q<DIS:TDT> => '1.0',                                     ExpandedURI q<DIS:TDT> => '1.0',
645                                    });                                    });
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24