mirror of
https://github.com/nasa/trick.git
synced 2025-01-04 12:24:12 +00:00
19025d77ad
Reorganized. Created a new top level include directory that will hold all of Trick's header files. Moved all of the Trick headers to this directory. Created a libexec directory that holds all of the executables that users don't need to execute directly. Changed all of the executables remaining in bin to start with "trick-". In the sim_services directories changed all source files to find the Trick headers in their new location. Since all of the include files are gone in sim_services, removed the src directories as well, moving all of the source files up a level. Moved the makefiles, docs, man, and other architecture independent files into a top level share directory. Renamed lib_${TRICK_HOST_CPU} to lib64 or lib depending on the platform we're currently on.
refs #63
49 lines
1.0 KiB
Perl
Executable File
49 lines
1.0 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
#********************************************************************
|
|
# Program: condense_list.awk
|
|
#
|
|
# This is an PERL script used to condense a list of parameters
|
|
#
|
|
#********************************************************************
|
|
# Creation:
|
|
# Author: Alex Lin
|
|
# Company: NASA
|
|
# Date: 3/21/2001
|
|
#********************************************************************
|
|
|
|
#USAGE condense_list.pl [s=<char>] env vars or values
|
|
|
|
#get separator character
|
|
if ($ARGV[0] =~ /^s=(\S+)/) {
|
|
$sp = $1;
|
|
shift @ARGV
|
|
}
|
|
else {
|
|
$sp = " ";
|
|
}
|
|
|
|
while (@ARGV) {
|
|
$curr = shift @ARGV ;
|
|
if (exists $ENV{$curr} ) {
|
|
$curr = $ENV{$curr};
|
|
}
|
|
@curr_sp = (split /$sp/ , $curr) ;
|
|
splice @all, $#all + 1 , 0 , @curr_sp ;
|
|
}
|
|
|
|
print "$all[0]";
|
|
for ($i = 1 ; $i <= $#all ; $i++) {
|
|
$found = 0 ;
|
|
for ($j = 0 ; $j < $i ; $j++) {
|
|
if ( $all[$i] eq $all[$j] ) {
|
|
$found = 1;
|
|
}
|
|
}
|
|
if ( $found eq 0 ) {
|
|
print "$sp$all[$i]"
|
|
}
|
|
}
|
|
print "\n"
|
|
|