From: Michael Wiebusch <stratomaster@gmx.net>
Date: Thu, 11 Jul 2013 12:35:51 +0000 (+0200)
Subject: now xml2ini should REALLY not remove leading zeros anymore
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=20d043c04de968ae136442cfec3e885ef1b6da53;p=mvdsensorcontrol.git

now xml2ini should REALLY not remove leading zeros anymore
---

diff --git a/tools/xml2ini.pl b/tools/xml2ini.pl
index bba98f5..82be1ce 100755
--- a/tools/xml2ini.pl
+++ b/tools/xml2ini.pl
@@ -190,7 +190,7 @@ for my $specRegister ( @specRegisters){
   
   my $registerValBinStr = zeros($registerSize);
   
-  my $stringSize = ceil($registerSize/32)*8; # this fulfills Bertram's requirement to write the hex string in multiples of 8 nibbles = 32 bit words
+  my $targetStringSize = ceil($registerSize/32)*8; # this fulfills Bertram's requirement to write the hex string in multiples of 8 nibbles = 32 bit words
   
   my @specFields = $specRegister->findnodes("./field");
 
@@ -221,8 +221,11 @@ for my $specRegister ( @specRegisters){
   
   }
   
-  my $registerValHexString = binStr2hexStr($registerValBinStr);
-  padZeros(\$registerValHexString,8);
+  my $registerValHexString = binStr2hexStr($registerValBinStr); # strips leading zeros
+  # pad missing zeros so full length of the value string is restored
+  $registerValHexString=zeros($targetStringSize - length($registerValHexString)).$registerValHexString;
+  # now we should have a nice and long Bertram compatible hex value string again!
+  
   
   # print the interesting part of the ini file, the register values in Bertram Format!
   print OUTPUT ";$registerName\n";