Tricks
Identifying and Removing Unused Variables with a 'one-liner'

Unused struct members can clutter and obfuscate Specman code. For the purpose of eliminating this annoyance I have created the following one-liner that may help you identify unused Specman members.

grep -i --perl-regex -h '^ *[a-zA-Z][\w_]+ *:.*;' *e |           \
 grep -v var |                                                \
 perl -ne                                                     \
    's/^ *//;                                                 \
     s/([\w_]+).*/$1/;                                        \
     print "$_";' |                                           \
 sort -u |                                                    \
 perl -ne                                                     \
    'chomp;                                                   \
     $ret_val = `grep -h $_ *e |                              \
         grep -v --perl-regex '"'"'^\\s*$_\\s*:.*;'"'"' |     \
         grep -v --perl-regex '"'"'^\\s*keep\\s*(soft\\s*)?$_.*==.*'"'"'`; \
     if( $ret_val =~m/^\s*$/ ) {                              \
         print "$_\n";                                        \
     }'

This little 'one-liner' will look through all the *e files in your current directory and look for all struct or unit members and then try to see if each of the members is used in any other code in the current directory.

Aliases

Aliases for the cshell.

diff_dirs  

Pull up tkdiff for each file that is different between two directories:

alias diff_dirs 'diff --brief "\!:1" "\!:2" |\\
 perl -pne '"'"'if (m/([\w-_\.\/]+) +and +([\w-_\.\/]+) +differ/)\\
 { `tkdiff "$1" "$2"` ;}'"'"

svn_diff_dirs

tkdiff the current directory with what all files used to be

alias svn_diff_dirs 'svn status |\\
 grep M |                     \\
 perl -ne '"'"'s/^M *//;      \\
     chomp;                   \\
     `tkdiff .svn/text-base/$_.svn-base $_`'"'"