| rjw | 6c1fd8f | 2022-11-30 14:33:01 +0800 | [diff] [blame] | 1 | #!/usr/bin/env perl |
| 2 | |
| 3 | use strict; |
| 4 | use warnings; |
| 5 | use XML::Simple; |
| 6 | use XML::Parser; |
| 7 | BEGIN { push @INC, './tools/CXIF' } |
| 8 | use CSIF_Structure_Check; |
| 9 | |
| 10 | my $cxif_dir = "../common/interface/modem/mt6297"; |
| 11 | my $xml_file = "$cxif_dir/CSIF/CSIF_chksum_list.xml"; |
| 12 | |
| 13 | my $format_check_result = CSIF_Structure_Check::xml_format_checker($xml_file); |
| 14 | print "Check = " .$format_check_result . "\n"; |
| 15 | |
| 16 | my $csif_csif_checksum = CSIF_Structure_Check::get_csif_checksum_value(0, "$cxif_dir/CSIF", "$cxif_dir/CSIF/CSIF_chksum_list.xml"); |
| 17 | print "Test = " . $csif_csif_checksum . "\n"; |
| 18 | my $csif_slm_checksum = CSIF_Structure_Check::get_csif_checksum_value(1, "$cxif_dir/CSIF", "$cxif_dir/CSIF/CSIF_chksum_list.xml"); |
| 19 | print "Test = " . $csif_slm_checksum . "\n"; |
| 20 | my $csif_nl1fwk_checksum = CSIF_Structure_Check::get_csif_checksum_value(2, "$cxif_dir/CSIF", "$cxif_dir/CSIF/CSIF_chksum_list.xml"); |
| 21 | print "Test = " . $csif_nl1fwk_checksum . "\n"; |
| 22 | my $csif_ulsp_checksum = CSIF_Structure_Check::get_csif_checksum_value(3, "$cxif_dir/CSIF", "$cxif_dir/CSIF/CSIF_chksum_list.xml"); |
| 23 | print "Test = " . $csif_ulsp_checksum . "\n"; |
| 24 | my $csif_nl1tx_checksum = CSIF_Structure_Check::get_csif_checksum_value(4, "$cxif_dir/CSIF", "$cxif_dir/CSIF/CSIF_chksum_list.xml"); |
| 25 | print "Test = " . $csif_nl1tx_checksum . "\n"; |
| 26 | |