--- messaging/manakai/bin/daf.pl	2006/02/26 06:42:55	1.2
+++ messaging/manakai/bin/daf.pl	2006/03/12 10:13:31	1.5
@@ -116,15 +116,21 @@
 
 use Message::Util::DIS::DNLite;
 use Message::Util::PerlCode;
-use Message::Util::DIS::Test;
-use Message::DOM::GenericLS;
+
+my %feature;
+eval q{
+  use Message::Util::DIS::Test;
+  use Message::DOM::GenericLS;
+  $feature{ExpandedURI q<fe:GenericLS>} = '3.0';
+  $feature{'+' . ExpandedURI q<DIS:TDT>} = '1.0';
+};
 
 my $limpl = $Message::DOM::ImplementationRegistry->get_implementation
                            ({ExpandedURI q<fe:Min> => '3.0',
                              '+' . ExpandedURI q<DIS:DNLite> => '1.0',
                              '+' . ExpandedURI q<DIS:Core> => '1.0',
                              '+' . ExpandedURI q<Util:PerlCode> => '1.0',
-                             '+' . ExpandedURI q<DIS:TDT> => '1.0',
+                             %feature,
                            });
 my $impl = $limpl->get_feature (ExpandedURI q<DIS:Core> => '1.0');
 my $pc = $impl->get_feature (ExpandedURI q<Util:PerlCode> => '1.0');
@@ -209,7 +215,6 @@
     unless (defined $ModuleSourceDISDocument{$module_uri}) {
       daf_open_source_dis_document ($module_uri);
     }
-    daf_convert_dis_document_to_dnl_document ();
   }
   return daf_get_referring_module_uri_list ($module_uri);
 },
@@ -310,6 +315,9 @@
     my $pl = daf_generate_perl_test_file ($mod);
     status_msg qq<done>;
 
+    my $cfg = $pl->owner_document->dom_config;
+    $cfg->set_parameter (ExpandedURI q<pc:preserve-line-break> => 1);
+
     my $output;
     defined $out_file_path
         ? (open $output, '>', $out_file_path or die "$0: $out_file_path: $!")
@@ -636,7 +644,7 @@
         my $block = $pack->append_new_pc_block;
         my @test;
         
-        $tdt_parser ||= $impl->create_gls_parser
+        $tdt_parser ||= $limpl->create_gls_parser
                                  ({
                                    ExpandedURI q<DIS:TDT> => '1.0',
                                   });