#!/usr/bin/perl # # $Id: ICG_10 3006 2013-06-07 21:10:59Z dstrauss $ # Revision 7.3 2006-09-20 14:50:44-05 hua # Update ICG -u to include dual system units and prefix list # # Revision 7.2 2006-07-26 10:00:46-05 hua # ICG -u Measurement Units Summary Incomplete # # Revision 7.1 2006-06-22 14:15:34-05 lin # Bump version number for 07 # # Revision 5.3 2006-03-29 16:09:54-06 lin # add -DTRICK_VER=x to ICG -help # # Revision 5.2 2005-11-08 14:53:28-06 vetter # 8 space indent bin directory # # Revision 5.1 2004-08-05 11:29:12-05 lin # Bump # # Revision 4.6 2004/03/09 22:36:44 lin # trick_version -v is messed up. # # Revision 4.5 2004/02/10 21:59:35 lin # make the CP, ICG, MIS help messages prettier # # Revision 4.4 2004/01/28 17:13:06 lin # Cut error message out of CP down to 1 line. # # Revision 4.3 2004/01/16 21:34:33 lin # Can't Compile 04 With g++3 # # use FindBin qw($Bin); use strict ; use Getopt::Long; use Pod::Usage; use Pod::Text; use lib "$Bin/pm" ; use ICG ; use trick_print ; use trick_version ; use get_headers ; use Cwd 'abs_path'; ############################################################################## # Main program ############################################################################## my $icg_operation ; my @icg_h_files ; my %sim ; my $ret ; my $help ; my @defs ; my ($valid_types_ref,$icg_depends_ref, $mis_entries_ref,$mis_depends_ref) ; my ($head_depends_ref,$rcs_tags_ref) ; # override the print format for help message *Pod::Text::seq_i = sub { return "" . $_[1] . "" } ; # set stdout to unbuffered so we see printout immediately. $| = 1 ; # set the default verbose level to 2 $sim{args}{v} = 2 ; $sim{args}{force} = 0 ; # default operation $icg_operation = "full" ; $ICG::arg_lang = 0 ; Getopt::Long::Configure ("bundling"); GetOptions ( "D=s" => sub { my $temp = join "" , @_ ; push @defs , "-$temp" ; } , "U=s" => sub { my $temp = join "" , @_ ; push @defs , "-$temp" ; } , "cpp|p" => sub { $ICG::arg_lang = "CPP" } , "debug|d|g" => sub { $sim{args}{v} = 3 } , "help|h|?" => \$help , "force|f" => sub { $sim{args}{force} = 1} , "outfile|o=s" => \$sim{args}{o} , "sim_services|s" => sub { $icg_operation = "sim_services" } , "single" => sub { $icg_operation = "single" } , "s_source" => sub { $icg_operation = "s_source" } , "tree|t" => sub { $icg_operation = "tree" } , "unit_summary|u" => \&unit_summary , "verbose|v=i" => \$sim{args}{v} ) or pod2usage(1) ; pod2usage(1) if $help ; #if ( -e "S_overrides.mk" ) { # # open CFLAGS, "make -p -n -f S_overrides.mk fake_target 2>&1 |" ; # # while ( ) { # # if ( /^TRICK_CFLAGS\s*\:?=\s*(.*)/ ) { # $ENV{TRICK_CFLAGS} = $1 ; # } # elsif ( /^TRICK_ICG_EXCLUDE\s*\:?=\s*(.*)/ ) { # $ENV{TRICK_ICG_EXCLUDE} = $1 ; # $ENV{TRICK_ICG_EXCLUDE} =~ s/\$[{(]([^})]+)[})]/$ENV{$1}/ge ; # } # } # close CFLAGS ; #} $ENV{TRICK_CFLAGS} =~ s/\$[{(](\w+)[})]/$ENV{$1}/g ; $ENV{TRICK_CFLAGS} =~ s/\"//g ; # set and open the output file if ( $sim{args}{o} ne "" ) { my ($version, $thread) = get_trick_version() ; $thread =~ s/\d+\.// ; local *OUTFILE ; open OUTFILE , ">$sim{args}{o}" or warn "ICG cannot open $sim{args}{o} for writing\n" ; $sim{fh} = *OUTFILE ; print OUTFILE "Output for $0 version $version-$thread at " . localtime() . "\n\n" ; } push @icg_h_files , (grep !/(^-|(\.d|\.dd)$)/ , @ARGV) ; #-------------------------------------------------------------- # Get all headers used by the sim and their modification dates #if ( $icg_operation eq "s_source" ) { # get_headers(\%sim, abs_path("S_source.hh")) ; #} $ret = ICG(@icg_h_files, $icg_operation, \@defs, \%sim) ; if ($ret eq -1) { trick_print($sim{fh}, "\nICG No files specified or found\n" , "normal_yellow" , $sim{args}{v}) ; } sub unit_summary() { print " Trick Measurement Units Summary --------------------------------------------------------------------------------------------------- Standard Units |Description --------------------------------------------------------------------------------------------------- Time: s min hr day |second, minute, hour, day Angular Displacement: r d as am rev |radian, degree, arc-second, arc-minute, revolution Voltage: v |volt Amperage: amp |ampere Resistance: ohm |ohm Sound: dB |decibel Unitless: -- cnt one mol |no unit, count, one, mole | --------------------------------------------------------------------------------------------------- English System Units |Description --------------------------------------------------------------------------------------------------- Linear Displacement: ft kft in yd mi n.m. |foot, kilofoot, inch, yard, mile, nautical mile Mass: sl lbm |slug, pound(mass) Force: oz lbf |ounce, pound(force) Temperature: R F |Rankine, Fahrenheit Energy: BTU |British Thermal Unit Power: hp |horsepower Pressure: psi |pound per square inch Volume: gal floz |gallon, fluid ounce | --------------------------------------------------------------------------------------------------- Metric System Units |Description --------------------------------------------------------------------------------------------------- Linear Displacement: m |meter Mass: g mt |gram, metric ton Force: N |Newton Temperature: C K |Celsius, Kelvin Energy: J TNT |Joule, ton of TNT Power: W |Watt Pressure: Pa atm mHg |Pascal, atmosphere, meter of mercury Frequency: Hz |Herz Volume: l |liter --------------------------------------------------------------------------------------------------- --------------------------------------------------------- You can use these prefixes for Multiples and Submultiples (Only valid for units: r v amp ohm m g N J W Pa mHg Hz) --------------------------------------------------------- 10**-1 d 10 da 10**-2 c 10**2 h 10**-3 m 10**3 k 10**-6 u 10**6 M 10**-9 n 10**9 G 10**-12 p 10**12 T --------------------------------------------------------- \n\n" ; exit() ; } __END__ =head1 NAME ICG - Trick Interface Code Generator =head1 SYNOPSIS ICG [-D B