目錄
1 腳本名稱
2 腳本路徑
3 腳本參數(shù)說明
4 腳本操作說明
5 腳本代碼
1 腳本名稱
ccode_standard
2 腳本路徑
/scripts/bin/ccode_standard
3 腳本參數(shù)說明
| 次序 |
參數(shù)名 |
說明 |
| 1 |
address (./rfdig；.；..；./boot) |
指定腳本執(zhí)行路徑（可以為腳本所在路徑的任意相對(duì)路徑） |
| help |
腳本使用幫助，打印說明信息 |
|
| 2 |
all |
運(yùn)行腳本后，腳本會(huì)解析全部rbus.cfg，并對(duì)參數(shù)1指定的目錄中的.c文件進(jìn)行寄存器配置代碼標(biāo)準(zhǔn)化修改 |
| module_name_seca.cfg |
運(yùn)行腳本后，腳本會(huì)解析參數(shù)2指定的rbus.cfg，并對(duì)參數(shù)1指定的目錄中的.c文件進(jìn)行寄存器配置代碼標(biāo)準(zhǔn)化修改 |
|
| 示例 |
命令：ccode_standard ?help 輸出ccode_standard使用幫助信息 |
|
| 命令：ccode_standard ?./rfdig ?rfdig_seca.cfg 對(duì)當(dāng)前路徑下的rfdig文件夾及其子文件夾下所有的.c文件中，有關(guān)rfdig_seca.cfg中的寄存器配置代碼進(jìn)行標(biāo)準(zhǔn)化修改； | ||
| 命令：ccode_standard ?. ?crg_seca.cfg 對(duì)當(dāng)前路徑下的所有文件夾及其子文件夾下的所有.c文件中，所有有關(guān)crg_seca.cfg中的寄存器配置代碼進(jìn)行標(biāo)準(zhǔn)化修改； | ||
| 命令：ccode_standard ?. ?all 對(duì)當(dāng)前路徑下的所有文件夾及其子文件夾下的所有.c文件中，所有模塊的寄存器配置代碼進(jìn)行標(biāo)準(zhǔn)化修改； | ||
| 說明 |
配置文件module_name_seca.cfg是被驗(yàn)?zāi)K寄存器的詳細(xì)配置文件；腳本索引該文件的具體路徑為： $PROJ_SRC/design/scripts/rbus_scripts/rbus_cfg/ 使用該腳本前請(qǐng)先gen_rbus； |
|
4 腳本操作說明
? ? ? ? 該腳本用于將如下所示的代碼標(biāo)準(zhǔn)化，加速ST用例調(diào)整，該腳本可以反復(fù)多次調(diào)用，不會(huì)產(chǎn)生異常問題：
- 使用腳本前，首先gen_rbus，source，產(chǎn)生腳本需要解析的rbus.cfg文件，以及環(huán)境變量$ENV{PROJ_SRC}；
- 根據(jù)腳本存放路徑，指定腳本工作目錄，如下例所示，腳本存放于case目錄，我想修改rfdig文件夾下的.c文件，參考rfdig_seca.cfg；執(zhí)行：ccode_standard? ./rfdig? rfdig_seca.cfg ?>? 1.log
-
如圖所示，腳本只替換了有關(guān)rfdig的寄存器，iomux，crg等沒有替換：
-
- 如下例所示，腳本存放于case目錄，我想修改rfdig/rfdig_tc017文件夾下的.c文件，參考所有rbus.cfg文件；
-
執(zhí)行：ccode_standard ?./rfdig/rfdig_m33_tc017? all? > ?1.log
-
-
如圖所示，腳本不僅替換了有關(guān)rfdig的寄存器，iomux，crg等都有替換：
-
文章來源：http://www.zghlxwxcb.cn/news/detail-799965.html
?
文章來源地址http://www.zghlxwxcb.cn/news/detail-799965.html
5 腳本代碼
#! /usr/bin/perl -w
#==========================================================
# PERL MODULE
#==========================================================
use Cwd;
use File::Path;
use File::Find;
#==========================================================
# PERL FUNCTION GetOptions (get command parameters)
#==========================================================
$g_work_dir = $ARGV[0];
$g_seca_fl = $ARGV[1];
#our $work_dir = 'rfdig_m33_tc017';
#==========================================================
# SCRIPT MAIN
#==========================================================
our @seca_fl_list;
our @seca_name;
our @seca_type;
our @seca_width;
our @seca_init_value;
our @seca_with_field;
our @seca_field_list_bgn;
our @seca_field_list_end;
our @seca_field_name;
our @seca_field_width;
our @seca_field_bgn_idx;
our @seca_field_end_idx;
our $ccode_standard_mark = 0;
Main();
sub RegMem{
@seca_name = ();
@seca_type = ();
@seca_width = ();
@seca_init_value = ();
@seca_with_field = ();
@seca_field_list_bgn = ();
@seca_field_list_end = ();
@seca_field_name = ();
@seca_field_width = ();
@seca_field_bgn_idx = ();
@seca_field_end_idx = ();
if (open(SECA_ID,"$g_seca_fl") or die "cannot open $g_seca_fl, no such file") {
@seca_array = <SECA_ID>;
my $i = 0;
my $j = 0;
my $rbus_ok = 0;
foreach $seca_line (@seca_array) {
$seca_line =~ s/[\n\r]*//g;
if ($seca_line =~ m/^\s*field_(\S+)\s+\[(\S+)\]\s*$/) {
if($rbus_ok eq 1) {
$seca_with_field[$i-1] = 1 ;
$seca_field_list_bgn[$i-1] = $j;
$rbus_ok = 0 ;
}
$seca_field_list_end[$i-1] = $j;
my $field_name_tmp = "\L$1";
my $field_name_size = push(@seca_field_name ,$field_name_tmp);
my $field_port_tmp = $2;
if ($field_port_tmp =~ m/(\d+):(\d+)/) {
push(@seca_field_bgn_idx,int($2));
push(@seca_field_end_idx,int($1));
push(@seca_field_width,(int($1)-int($2)+1));
} else {
push(@seca_field_bgn_idx,int($field_port_tmp));
push(@seca_field_end_idx,int($field_port_tmp));
push(@seca_field_width,1);
}
#print ("seca_with_field[",$i-1,"] = ",$seca_with_field[$i-1] ,"\n");
#print ("seca_field_list_bgn[",$i-1,"] = ",$seca_field_list_bgn[$i-1] ,"\n");
#print ("seca_field_list_end[",$i-1,"] = ",$seca_field_list_end[$i-1] ,"\n");
#print ("seca_field_name[",$j,"] = ",$seca_field_name[$j] ,"\n");
#print ("seca_field_width[",$j,"] = ",$seca_field_width[$j] ,"\n");
#print ("seca_field_bgn_idx[",$j,"] = ",$seca_field_bgn_idx[$j] ,"\n");
#print ("seca_field_end_idx[",$j,"] = ",$seca_field_end_idx[$j] ,"\n");
$j = $j + 1;
}
if ($seca_line =~ m/^\s*rbus_(\S+)\s+(\S+)\s+(\w+)\s+(\d+)('\w+)\s+(\S+)\s*$/) {
#print ("before match string: ",$`, "\n");
#print ("match string : ",$&, "\n");
#print ("after match string: ",$', "\n");
#print ("seca_postfix : ",$1, "\n");
#print ("seca_type : ",$2, "\n");
#print ("seca_scope : ",$3, "\n");
#print ("seca_width : ",int($4),"\n");
#print ("seca_init_value : ",$5, "\n");
#print ("seca_prefix : ",$6, "\n");
#print ("seca_name : ","$6_$1","\n");
$seca_name[$i] = "\L$6_$1";
$seca_type[$i] = $2;
$seca_width[$i] = int($4);
$seca_init_value[$i] = $5;
$seca_with_field[$i] = 0;
$i = $i+1;
$rbus_ok = 1;
}
}
}
}
sub GenMacroDefine{
#print "c file is : $_[0]\n";
#print "c macro_define file is : $_[1]\n";
$ccode_standard_mark = 0;
open(ORIEN_FILE,">>$_[1]");
if (open(SOURCE_FILE,"$_[0]")) {
@context = <SOURCE_FILE>;
foreach $line (@context) {
for ( $i = 0; $i < @seca_name; $i = $i +1) {
if ($seca_with_field[$i] eq 1) {
if ($line =~ m/^\s*(\w+)\[($seca_name[$i])\]\s*=\s*0x(\w+)\s*;.*$/) {
$ccode_standard_mark = 1;
print ORIEN_FILE "\n"."http://"."$line";
my $seca_field_list_num = $seca_field_list_end[$i] - $seca_field_list_bgn[$i] + 1;
for ($j = 0; $j < $seca_field_list_num; $j = $j+1) {
my $seca_field_width_tmp = $seca_field_width[$seca_field_list_bgn[$i]+$j];
my $seca_field_name_tmp = "$seca_name[$i]"."_"."$seca_field_name[$seca_field_list_bgn[$i]+$j]";
my $seca_field_mask_tmp = "$seca_field_name_tmp"."_mask ((1<<$seca_field_width[$seca_field_list_bgn[$i]+$j])-1)";
my $seca_field_shift_tmp = "$seca_field_name_tmp"."_shift $seca_field_bgn_idx[$seca_field_list_bgn[$i]+$j]";
my $seca_field_bit_tmp = "$seca_field_name_tmp"."_bit (1<<$seca_field_bgn_idx[$seca_field_list_bgn[$i]+$j])";
if($seca_field_width_tmp eq 1){
print ORIEN_FILE "#define $seca_field_bit_tmp\n";
} else {
print ORIEN_FILE "#define $seca_field_mask_tmp\n";
print ORIEN_FILE "#define $seca_field_shift_tmp\n";
}
}
}
}
}
}
close SOURCE_FILE;
}
close ORIEN_FILE;
system ("awk '!a[\$0]++' $_[1] > $_[1]_tmp \&\& mv -f $_[1]_tmp $_[1]");
}
sub AddMacroDefine{
#print "old c file is : $_[0]\n";
#print "new c file is : $_[1]\n";
#print "add file is : $_[2]\n";
my $add_ready = 0;
open(ORIEN_FILE,">$_[1]");
if (open(SOURCE_FILE,"$_[0]")) {
@context = <SOURCE_FILE>;
foreach $line (@context) {
if($line =~ m/^#include \"$_[2]\"$/) {
} else {
print ORIEN_FILE "$line";
}
if ($add_ready eq 0) {
if ($line =~ m/^\s*\#include\s*\"\S+_define.c\"\s*$/) {
print ORIEN_FILE "\#include "."\"$_[2]\"\n";
$add_ready = 1;
}
}
}
close SOURCE_FILE;
}
close ORIEN_FILE;
}
sub GenSubContent{
#print "old c file is : $_[0]\n";
#print "new c file is : $_[1]\n";
open(ORIEN_FILE,">>$_[1]");
if (open(SOURCE_FILE,"$_[0]")) {
@context = <SOURCE_FILE>;
foreach $line (@context) {
my $line_match = 0;
for ( $i = 0; $i < @seca_name; $i = $i + 1) {
if ($seca_with_field[$i] eq 1) {
if ($line =~ m/^(\s*)(\w+\[$seca_name[$i]\])\s*=\s*0x(\w+)\s*;.*$/) {
my $reg_value = hex($3);
if ($reg_value != 0) {
$line_match = 1;
print ORIEN_FILE "http://"."$line";
my $seca_field_list_num = $seca_field_list_end[$i] - $seca_field_list_bgn[$i] + 1;
for ($j = 0; $j < $seca_field_list_num; $j = $j+1) {
my $seca_field_name_tmp = "$seca_name[$i]"."_"."$seca_field_name[$seca_field_list_bgn[$i]+$j]";
my $seca_field_mask_tmp = "$seca_field_name_tmp"."_mask";
my $seca_field_value = (($reg_value) >> ($seca_field_bgn_idx[$seca_field_list_bgn[$i]+$j])) &
((1<<$seca_field_width[$seca_field_list_bgn[$i]+$j])-1);
my $seca_field_width_tmp = $seca_field_width[$seca_field_list_bgn[$i]+$j];
my $seca_field_shift_tmp = "$seca_field_name_tmp"."_shift";
my $seca_field_bit_tmp = "$seca_field_name_tmp"."_bit";
#print ("seca_field_mask_value = ",((1<<$seca_field_width[$seca_field_list_bgn[$i]+$j])-1),";");
#print ("reg_value = ",$reg_value,";");
#print ("seca_field_value = $seca_field_value\n");
if($j eq 0){
if ($j eq ($seca_field_list_num - 1)) {
if($seca_field_width_tmp eq 1) {
printf ORIEN_FILE ("%s%-40s ((%-50s * 0x%-8x) %-51s) ;\n","$1","$2 =","$seca_field_bit_tmp",$seca_field_value," ");
} else {
printf ORIEN_FILE ("%s%-40s ((%-50s & 0x%-8x) << %-51s) ;\n","$1","$2 =","$seca_field_mask_tmp",$seca_field_value,"$seca_field_shift_tmp");
}
} else {
if($seca_field_width_tmp eq 1) {
printf ORIEN_FILE ("%s%-40s ((%-50s * 0x%-8x) %-51s) |\n","$1","$2 =","$seca_field_bit_tmp",$seca_field_value," ");
} else {
printf ORIEN_FILE ("%s%-40s ((%-50s & 0x%-8x) << %-51s) |\n","$1","$2 =","$seca_field_mask_tmp",$seca_field_value,"$seca_field_shift_tmp");
}
}
} elsif($j eq ($seca_field_list_num - 1)) {
if($seca_field_width_tmp eq 1) {
printf ORIEN_FILE ("%s%-40s ((%-50s * 0x%-8x) %-51s) ;\n","$1"," ","$seca_field_bit_tmp",$seca_field_value," ");
} else {
printf ORIEN_FILE ("%s%-40s ((%-50s & 0x%-8x) << %-51s) ;\n","$1"," ","$seca_field_mask_tmp",$seca_field_value,"$seca_field_shift_tmp");
}
} else {
if($seca_field_width_tmp eq 1) {
printf ORIEN_FILE ("%s%-40s ((%-50s * 0x%-8x) %-51s) |\n","$1"," ","$seca_field_bit_tmp",$seca_field_value," ");
} else {
printf ORIEN_FILE ("%s%-40s ((%-50s & 0x%-8x) << %-51s) |\n","$1"," ","$seca_field_mask_tmp",$seca_field_value,"$seca_field_shift_tmp");
}
}
}
}
}
}
}
if ($line_match eq 0) {
print ORIEN_FILE "$line";
}
}
close SOURCE_FILE;
}
close ORIEN_FILE;
}
sub CopyFile{
#print "source file name is $_[0]\n";
#print "orien file name is $_[1]\n";
open(ORIEN_FILE,">$_[1]");
if (open(SOURCE_FILE,"$_[0]")) {
@context = <SOURCE_FILE>;
foreach $line (@context) {
print ORIEN_FILE "$line";
}
close SOURCE_FILE;
}
close ORIEN_FILE;
}
sub FindConfigFile{
if (-f $File::Find::name) {
if ($_ =~ m/^(\w+_sec[a-z]\.cfg)$/) {
#print "find file is $1 \n";
push(@seca_fl_list,$1);
}
}
}
sub FindWanted{
if (-f $File::Find::name) {
if ($_ =~ m/(\S+)\.c$/) {
print "process file: $File::Find::name \n";
GenMacroDefine("$_","$1"."_macro_define.h");
unlink "$1"."_macro_define.h";
if($ccode_standard_mark eq 1) {
unlink "$_".".tmp";
GenSubContent("$_","$_".".tmp");
#AddMacroDefine("$_".".tmp","$_","$1"."_macro_define.h");
system ("mv -f $_.tmp $_");
unlink "$_".".tmp";
}
}
}
}
sub Main{
my $cur_dir = getcwd;
my $proj_src = $ENV{PROJ_SRC};
my $seca_dir = "$ENV{PROJ_SRC}/design/scripts/rbus_scripts/rbus_cfg/";
if($g_seca_fl eq "all") {
chdir($seca_dir) or die "$seca_dir was not found!!! please gen_rbus firstly.";
find(\&FindConfigFile,"$seca_dir");
} else {
push(@seca_fl_list,$g_seca_fl);
}
#for ($i = 0; $i < @seca_fl_list; $i = $i+1) {
# print "seca_fl_list[$i] = $seca_fl_list[$i] \n";
#}
for ($z = 0; $z < @seca_fl_list; $z = $z + 1) {
print "read config_file : $seca_fl_list[$z]\n";
$g_seca_fl = "$seca_dir"."$seca_fl_list[$z]";
RegMem();
chdir($cur_dir) or die "$cur_dir does not exist!!!";
find(\&FindWanted,"$cur_dir/$g_work_dir");
}
}到了這里，關(guān)于IC驗(yàn)證——perl腳本ccode_standard——c代碼寄存器配置標(biāo)準(zhǔn)化的文章就介紹完了。如果您還想了解更多內(nèi)容，請(qǐng)?jiān)谟疑辖撬阉鱐OY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！
