/[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.3 by wakaba, Sun Feb 26 14:32:38 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 310  for (@{$Opt{create_module}}) { Line 311  for (@{$Opt{create_module}}) {
311      my $pl = daf_generate_perl_test_file ($mod);      my $pl = daf_generate_perl_test_file ($mod);
312      status_msg qq<done>;      status_msg qq<done>;
313    
314        my $cfg = $pl->owner_document->dom_config;
315        $cfg->set_parameter (ExpandedURI q<pc:preserve-line-break> => 1);
316    
317      my $output;      my $output;
318      defined $out_file_path      defined $out_file_path
319          ? (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 640  sub daf_generate_perl_test_file ($) {
640          my $block = $pack->append_new_pc_block;          my $block = $pack->append_new_pc_block;
641          my @test;          my @test;
642                    
643          $tdt_parser ||= $impl->create_gls_parser          $tdt_parser ||= $limpl->create_gls_parser
644                                   ({                                   ({
645                                     ExpandedURI q<DIS:TDT> => '1.0',                                     ExpandedURI q<DIS:TDT> => '1.0',
646                                    });                                    });
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24