X-Git-Url: https://gerrit.automotivelinux.org/gerrit/gitweb?a=blobdiff_plain;f=service%2Fsystem%2Fconfig%2Flibrary%2Fsystem_manager_config%2Flast2order%2Ftool%2Fmklast2ordertbl.pl;fp=service%2Fsystem%2Fconfig%2Flibrary%2Fsystem_manager_config%2Flast2order%2Ftool%2Fmklast2ordertbl.pl;h=9b7dcabae6b597ea33ab2e3f997bf869366f2f6d;hb=17cf21bcf8a2e29d2cbcf0a313474d2a4ee44f5d;hp=0000000000000000000000000000000000000000;hpb=9e86046cdb356913ae026f616e5bf17f6f238aa5;p=staging%2Fbasesystem.git

diff --git a/service/system/config/library/system_manager_config/last2order/tool/mklast2ordertbl.pl b/service/system/config/library/system_manager_config/last2order/tool/mklast2ordertbl.pl
new file mode 100755
index 0000000..9b7dcab
--- /dev/null
+++ b/service/system/config/library/system_manager_config/last2order/tool/mklast2ordertbl.pl
@@ -0,0 +1,107 @@
+#!/usr/bin/perl 
+use strict;
+
+use XML::XPath;
+
+my $LOCAL_XML = "./last2order.xml.tmp";
+my $LOCAL_DTD = "./last2order.dtd";
+
+my $DTD = <<'EODTD';
+<!ELEMENT last2order_tbl (last2order*) >
+
+<!ELEMENT  last2order EMPTY>
+<!ATTLIST last2order
+  front_video     CDATA "EMPTY"
+  front_sub_video CDATA "EMPTY"
+  front_audio     CDATA "EMPTY"
+  rear_video      CDATA "EMPTY"
+  rear_audio      CDATA "EMPTY"
+  ordername       CDATA #REQUIRED
+>
+EODTD
+
+sub usage(){
+  print STDERR "USAGE:$0 *.xml *.cfo\n";
+}
+
+#==== MAIN ====
+my $ret=system("which xmllint > /dev/null");
+if($ret != 0){
+  die("xmllint is not installed \n");
+}
+
+if(2 != @ARGV){
+  usage();
+  exit 1;
+}
+
+my $inXmlFile= $ARGV[0];
+my $outCfgXmlFile= $ARGV[1];
+
+
+#ARG CHECK
+if(! -e $inXmlFile){
+  die("$inXmlFile not found");
+} 
+
+
+system("cp $inXmlFile $LOCAL_XML");
+
+open FOUT,'>',$LOCAL_DTD or die("can't open $LOCAL_DTD");
+print FOUT $DTD;
+close FOUT;
+
+$ret=system("xmllint --noout --valid $LOCAL_XML ");
+if($ret != 0){
+  die("$inXmlFile is NOT VAILD");
+}
+
+my $xml = XML::XPath->new(filename=>$LOCAL_XML);
+
+my $last2order_tbl = $xml->find('/last2order_tbl/last2order');
+
+my @nodelist = $last2order_tbl->get_nodelist;
+my $numOfElement = @nodelist;
+
+printf("num of element :$numOfElement\n");
+
+my $writeValue;
+open FOUT,'+>',$outCfgXmlFile or die("can't open $outCfgXmlFile");
+binmode(FOUT);
+
+$writeValue = pack("A4","CTOO"); print FOUT $writeValue; 
+$writeValue = pack("L",$numOfElement); print FOUT $writeValue; 
+
+foreach my $last2order( @nodelist ) {
+  $writeValue = $last2order->findvalue('@front_video');
+  printf("FV:$writeValue  ");
+  $writeValue = pack("a128",$writeValue); print FOUT $writeValue; 
+
+  $writeValue = $last2order->findvalue('@front_sub_video');
+  printf("FSV:$writeValue  ");
+  $writeValue = pack("a128",$writeValue); print FOUT $writeValue; 
+
+  $writeValue = $last2order->findvalue('@front_audio');
+  printf("FA:$writeValue  ");
+  $writeValue = pack("a128",$writeValue); print FOUT $writeValue; 
+
+  $writeValue = $last2order->findvalue('@rear_video');
+  printf("RV:$writeValue  ");
+  $writeValue = pack("a128",$writeValue); print FOUT $writeValue; 
+
+  $writeValue = $last2order->findvalue('@rear_audio');
+  printf("RA:$writeValue  ");
+  $writeValue = pack("a128",$writeValue); print FOUT $writeValue; 
+
+  $writeValue = $last2order->findvalue('@ordername');
+  printf("ON:$writeValue  ");
+  $writeValue = pack("a64",$writeValue); print FOUT $writeValue; 
+
+  printf("\n");
+}
+
+close(FOUT);
+
+system("rm $LOCAL_XML $LOCAL_DTD");
+
+