diff --git a/libexec/trick/ICG_10 b/libexec/trick/ICG_10 deleted file mode 100755 index ddd1bf65..00000000 --- a/libexec/trick/ICG_10 +++ /dev/null @@ -1,232 +0,0 @@ -#!/usr/bin/perl - -use FindBin qw($RealBin); -use strict ; -use Getopt::Long; -use Pod::Usage; -use Pod::Text; -use lib "$RealBin/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