mcu/tools/test_gencxifchksum.pl

#!/usr/bin/env perl

use strict;
use warnings;
use XML::Simple;
use XML::Parser;
BEGIN { push @INC, './tools/CXIF' }
use CSIF_Structure_Check;

my $cxif_dir = "../common/interface/modem/mt6297";
my $xml_file = "$cxif_dir/CSIF/CSIF_chksum_list.xml";

my $format_check_result = CSIF_Structure_Check::xml_format_checker($xml_file);
print "Check = " .$format_check_result . "\n";

my $csif_csif_checksum = CSIF_Structure_Check::get_csif_checksum_value(0, "$cxif_dir/CSIF", "$cxif_dir/CSIF/CSIF_chksum_list.xml");
print "Test = " . $csif_csif_checksum . "\n";
my $csif_slm_checksum = CSIF_Structure_Check::get_csif_checksum_value(1, "$cxif_dir/CSIF", "$cxif_dir/CSIF/CSIF_chksum_list.xml");
print "Test = " . $csif_slm_checksum . "\n";
my $csif_nl1fwk_checksum = CSIF_Structure_Check::get_csif_checksum_value(2, "$cxif_dir/CSIF", "$cxif_dir/CSIF/CSIF_chksum_list.xml");
print "Test = " . $csif_nl1fwk_checksum . "\n";
my $csif_ulsp_checksum = CSIF_Structure_Check::get_csif_checksum_value(3, "$cxif_dir/CSIF", "$cxif_dir/CSIF/CSIF_chksum_list.xml");
print "Test = " . $csif_ulsp_checksum . "\n";
my $csif_nl1tx_checksum = CSIF_Structure_Check::get_csif_checksum_value(4, "$cxif_dir/CSIF", "$cxif_dir/CSIF/CSIF_chksum_list.xml");
print "Test = " . $csif_nl1tx_checksum . "\n";