mirror of
https://github.com/nasa/trick.git
synced 2024-12-21 22:17:51 +00:00
72 lines
2.7 KiB
Perl
Executable File
72 lines
2.7 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
#*****************************************************************************#
|
|
# #
|
|
# Trick Simulation Environment Software #
|
|
# #
|
|
# Copyright (c) 1996,1997 LinCom Corporation, Houston, TX #
|
|
# All rights reserved. #
|
|
# #
|
|
# Copyrighted by LinCom Corporation and proprietary to it. Any unauthorized #
|
|
# use of Trick Software including source code, object code or executables is #
|
|
# strictly prohibited and LinCom assumes no liability for such actions or #
|
|
# results thereof. #
|
|
# #
|
|
# Trick Software has been developed under NASA Government Contracts and #
|
|
# access to it may be granted for Government work by the following contact: #
|
|
# #
|
|
# Contact: Charles Gott, Branch Chief #
|
|
# Simulation and Graphics Branch #
|
|
# Automation, Robotics, & Simulation Division #
|
|
# NASA, Johnson Space Center, Houston, TX #
|
|
# #
|
|
#*****************************************************************************#
|
|
#********************************************************************
|
|
# 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
|
|
#********************************************************************
|
|
|
|
# $Id: condense_list.pl 49 2009-02-02 22:37:59Z lin $
|
|
|
|
#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"
|
|
|