mirror of
https://github.com/nasa/trick.git
synced 2024-12-24 07:16:41 +00:00
Alex Lin
parent
f4e0ce32b0
commit
a61dd2c031
@ -1,20 +0,0 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
use FindBin qw($RealBin);
|
||||
use lib "$RealBin/pm" ;
|
||||
|
||||
use strict ;
|
||||
use get_lib_deps ;
|
||||
|
||||
my $header ;
|
||||
my @resolved_files ;
|
||||
|
||||
# Read in the Trick comment to be processed.
|
||||
while ( <STDIN> ) {
|
||||
last if ( $_ =~ /END ICG PROCESSING/ ) ;
|
||||
$header .= $_ ;
|
||||
}
|
||||
|
||||
(@resolved_files) = get_lib_deps($header, @ARGV[0]) ;
|
||||
|
||||
print map { "$_\n" } @resolved_files ;
|
||||
@ -12,6 +12,7 @@ use get_lib_deps ;
|
||||
|
||||
my %processed_files ;
|
||||
my %non_lib_processed_files ;
|
||||
my $any_deps_changed = 0 ;
|
||||
|
||||
sub read_lib_deps($@) {
|
||||
my ($indent , @files_to_process) = @_ ;
|
||||
@ -32,9 +33,10 @@ sub read_lib_deps($@) {
|
||||
} else {
|
||||
print "Getting Dependencies for " , " " x $indent, "$l\n" ;
|
||||
if ( -e $l ) {
|
||||
my $contents ;
|
||||
my $deps_changed ;
|
||||
my @resolved_files ;
|
||||
@resolved_files = write_lib_deps($l) ;
|
||||
($deps_changed , @resolved_files) = write_lib_deps($l) ;
|
||||
$any_deps_changed |= $deps_changed ;
|
||||
read_lib_deps($indent + 1 , @resolved_files) ;
|
||||
}
|
||||
}
|
||||
@ -42,14 +44,26 @@ sub read_lib_deps($@) {
|
||||
}
|
||||
}
|
||||
|
||||
# Update out of date lib_dep files
|
||||
# Update any possibly out of date lib_dep files
|
||||
if ( scalar @ARGV ) {
|
||||
# Arguments to the executable are rescanned. New makefile is made if any library dependencies
|
||||
# changed
|
||||
for my $f ( @ARGV ) {
|
||||
# Makefile_io_src is listed as a dependency of make_makefile_src and comes in as
|
||||
# an argument from make. Ignore it.
|
||||
if ( $f !~ /Makefile_io_src/ ) {
|
||||
my $deps_changed ;
|
||||
my @resolved_files ;
|
||||
print "Updating Dependencies for $f\n" ;
|
||||
write_lib_deps($f) ;
|
||||
($deps_changed , @resolved_files ) = write_lib_deps($f) ;
|
||||
$any_deps_changed |= $deps_changed ;
|
||||
}
|
||||
} else {
|
||||
# no arguments mean we are calling this for the first time. Always make makefile
|
||||
$any_deps_changed = 1 ;
|
||||
}
|
||||
|
||||
# if no dependencies have changed, "touch" Makefile_src and exit
|
||||
if ( $any_deps_changed == 0 ) {
|
||||
utime(undef, undef, "build/Makefile_src") ;
|
||||
exit ;
|
||||
}
|
||||
|
||||
# Start the top level files which are all of the header files and S_define
|
||||
@ -300,27 +314,27 @@ foreach my $ext ( sort keys %object_files_by_type ) {
|
||||
|
||||
# Write out the compile rules for each type of file.
|
||||
print MAKEFILE "\${MODEL_c_OBJ} : \$(CURDIR)/build\%.o : \%.c\n" ;
|
||||
print MAKEFILE "\t\$(PRINT_COMPILE)\n\n" ;
|
||||
print MAKEFILE "\t\$(PRINT_COMPILE)\n" ;
|
||||
print MAKEFILE "\t\$(ECHO_CMD)\$(TRICK_CC) \$(TRICK_CFLAGS) \$(TRICK_SYSTEM_CFLAGS) -I\${<D} -I\${<D}/../include -MMD -MP -c \$< -o \$\@\n\n" ;
|
||||
|
||||
print MAKEFILE "\${MODEL_C_OBJ} : \$(CURDIR)/build\%.o : \%.C\n" ;
|
||||
print MAKEFILE "\t\$(PRINT_COMPILE)\n\n" ;
|
||||
print MAKEFILE "\t\$(PRINT_COMPILE)\n" ;
|
||||
print MAKEFILE "\t\$(ECHO_CMD)\$(TRICK_CPPC) \$(TRICK_CXXFLAGS) \$(TRICK_SYSTEM_CXXFLAGS) -I\${<D} -I\${<D}/../include -MMD -MP -c \$< -o \$\@\n\n" ;
|
||||
|
||||
print MAKEFILE "\${MODEL_cc_OBJ} : \$(CURDIR)/build\%.o : \%.cc\n" ;
|
||||
print MAKEFILE "\t\$(PRINT_COMPILE)\n\n" ;
|
||||
print MAKEFILE "\t\$(PRINT_COMPILE)\n" ;
|
||||
print MAKEFILE "\t\$(ECHO_CMD)\$(TRICK_CPPC) \$(TRICK_CXXFLAGS) \$(TRICK_SYSTEM_CXXFLAGS) -I\${<D} -I\${<D}/../include -MMD -MP -c \$< -o \$\@\n\n" ;
|
||||
|
||||
print MAKEFILE "\${MODEL_cpp_OBJ} : \$(CURDIR)/build\%.o : \%.cpp\n" ;
|
||||
print MAKEFILE "\t\$(PRINT_COMPILE)\n\n" ;
|
||||
print MAKEFILE "\t\$(PRINT_COMPILE)\n" ;
|
||||
print MAKEFILE "\t\$(ECHO_CMD)\$(TRICK_CPPC) \$(TRICK_CXXFLAGS) \$(TRICK_SYSTEM_CXXFLAGS) -I\${<D} -I\${<D}/../include -MMD -MP -c \$< -o \$\@\n\n" ;
|
||||
|
||||
print MAKEFILE "\${MODEL_cxx_OBJ} : \$(CURDIR)/build\%.o : \%.cxx\n" ;
|
||||
print MAKEFILE "\t\$(PRINT_COMPILE)\n\n" ;
|
||||
print MAKEFILE "\t\$(PRINT_COMPILE)\n" ;
|
||||
print MAKEFILE "\t\$(ECHO_CMD)\$(TRICK_CPPC) \$(TRICK_CXXFLAGS) \$(TRICK_SYSTEM_CXXFLAGS) -I\${<D} -I\${<D}/../include -MMD -MP -c \$< -o \$\@\n\n" ;
|
||||
|
||||
print MAKEFILE "\${MODEL_CPLUSPLUS_OBJ} : \$(CURDIR)/build\%.o : \%.c++\n" ;
|
||||
print MAKEFILE "\t\$(PRINT_COMPILE)\n\n" ;
|
||||
print MAKEFILE "\t\$(PRINT_COMPILE)\n" ;
|
||||
print MAKEFILE "\t\$(ECHO_CMD)\$(TRICK_CPPC) \$(TRICK_CXXFLAGS) \$(TRICK_SYSTEM_CXXFLAGS) -I\${<D} -I\${<D}/../include -MMD -MP -c \$< -o \$\@\n\n" ;
|
||||
|
||||
print MAKEFILE "\${MODEL_clex_SRC} : \$(CURDIR)/build\%.clex : \%.l\n" ;
|
||||
@ -330,7 +344,7 @@ print MAKEFILE "\${MODEL_y_c_SRC} : \$(CURDIR)/build\%.y.c : \%.y\n" ;
|
||||
print MAKEFILE "\t\$(YACC) -o\$\@ \$<\n\n" ;
|
||||
|
||||
print MAKEFILE "\${MODEL_y_OBJ} : \$(CURDIR)/build\%.o : \%.y.c\n" ;
|
||||
print MAKEFILE "\t\$(PRINT_COMPILE)\n\n" ;
|
||||
print MAKEFILE "\t\$(PRINT_COMPILE)\n" ;
|
||||
print MAKEFILE "\t\$(ECHO_CMD)cd \$(<D) ; \$(TRICK_CC) \$(TRICK_CXXFLAGS) \$(TRICK_SYSTEM_CXXFLAGS) -MMD -MP -c \${<F} -o \$\@\n\n" ;
|
||||
|
||||
# Include all of the dependency files for each object code file
|
||||
@ -370,7 +384,7 @@ test: all
|
||||
test: TRICK_SYSTEM_CXXFLAGS += -DTRICK_UNIT_TEST
|
||||
test: TRICK_SYSTEM_CFLAGS += -DTRICK_UNIT_TEST
|
||||
|
||||
S_main : \$(S_MAIN) build/S_define.deps S_sie.resource
|
||||
S_main : \$(S_MAIN) S_sie.resource
|
||||
\t@ echo \"\"
|
||||
\t@ echo \"[32m=== Simulation make complete ===[00m\"
|
||||
|
||||
@ -393,10 +407,6 @@ S_main : \$(S_MAIN) build/S_define.deps S_sie.resource
|
||||
|
||||
-include build/S_source.d
|
||||
|
||||
build/S_define.deps:
|
||||
\t\$(PRINT_S_DEF_DEPS)
|
||||
\t\$(ECHO_CMD)\$(TRICK_CPPC) \$(TRICK_SFLAGS) \$(TRICK_SYSTEM_SFLAGS) -M -MT S_source.hh -MF build/S_define.deps -x c++ S_define
|
||||
|
||||
sie: S_sie.resource
|
||||
|
||||
S_sie.resource: \$(S_MAIN)
|
||||
@ -433,7 +443,7 @@ foreach $k ( sort keys %files_by_dir ) {
|
||||
}
|
||||
close LINKOBJS ;
|
||||
|
||||
# write out all of files as dependencies to Makefile_src
|
||||
# write out all of files we processed as dependencies to Makefile_src
|
||||
open MAKEFILEDEPS, ">build/Makefile_src_deps" or die "Could not open build/Makefile_src_deps" ;
|
||||
print MAKEFILEDEPS "\$(CURDIR)/build/Makefile_src :" ;
|
||||
print MAKEFILEDEPS map {"\\\n $_"} (sort keys %non_lib_processed_files) ;
|
||||
|
||||
@ -96,11 +96,16 @@ sub get_lib_deps ($$) {
|
||||
}
|
||||
|
||||
sub write_lib_deps($) {
|
||||
my $deps_changed ;
|
||||
my ($source_file_name) = @_ ;
|
||||
my $contents ;
|
||||
{
|
||||
# read file in slurp mode. Keep the scope of undefining $/ to just this read
|
||||
local $/ = undef ;
|
||||
open SOURCE, $source_file_name or warn 'cannot read $source_file_name' ;
|
||||
my ($contents) = <SOURCE> ;
|
||||
$contents = <SOURCE> ;
|
||||
close SOURCE ;
|
||||
}
|
||||
my (@resolved_files) = get_lib_deps($contents, $source_file_name) ;
|
||||
|
||||
my ( $file, $dir, $suffix) = fileparse($source_file_name, qr/\.[^.]*/) ;
|
||||
@ -108,11 +113,30 @@ sub write_lib_deps($) {
|
||||
if ( ! -e "build$dir" ) {
|
||||
make_path("build$dir") ;
|
||||
}
|
||||
|
||||
if ( -e $lib_dep_file_name ) {
|
||||
open OLDLIBDEP, "$lib_dep_file_name" ;
|
||||
my @old_resolved = <OLDLIBDEP> ;
|
||||
close OLDLIBDEP ;
|
||||
chomp @old_resolved ;
|
||||
if ( @old_resolved ~~ @resolved_files ) {
|
||||
print "Library dependencies unchanged for $source_file_name\n" ;
|
||||
$deps_changed = 0 ;
|
||||
} else {
|
||||
print "Library dependencies changed for $source_file_name\n" ;
|
||||
$deps_changed = 1 ;
|
||||
}
|
||||
} else {
|
||||
$deps_changed = 1 ;
|
||||
}
|
||||
|
||||
if ( $deps_changed ) {
|
||||
open LIBDEP, ">$lib_dep_file_name" ;
|
||||
print LIBDEP map {"$_\n"} @resolved_files ;
|
||||
close LIBDEP ;
|
||||
}
|
||||
|
||||
return @resolved_files ;
|
||||
return $deps_changed , @resolved_files ;
|
||||
}
|
||||
|
||||
1
|
||||
|
||||
@ -40,14 +40,9 @@ sub launch_java($$) {
|
||||
$command = "java -cp $java_dir/dist/*:$java_dir/lib/*:$java_dir/lib/ $application" ;
|
||||
}
|
||||
|
||||
# to preserve the quotes if the option value has spaces in it
|
||||
foreach (@ARGV) {
|
||||
if ( $_ =~ /\s/ ) {
|
||||
$command .= " \"$_\"";
|
||||
} else {
|
||||
$command .= " $_";
|
||||
}
|
||||
}
|
||||
|
||||
system $command ;
|
||||
exit $? >> 8;
|
||||
|
||||
@ -1,48 +0,0 @@
|
||||
#!/usr/bin/env python
|
||||
|
||||
from random import randint
|
||||
|
||||
import subprocess
|
||||
import commands
|
||||
import sys
|
||||
import os
|
||||
|
||||
try:
|
||||
f = open( commands.getstatusoutput( 'echo $TRICK_HOME' )[1] + "/config_Linux.mk", "r" )
|
||||
|
||||
except:
|
||||
print "\nUnable to open" + commands.getstatusoutput( 'echo $TRICK_HOME' )[1] + "/config_Linux.mk\n"
|
||||
sys.exit(0)
|
||||
|
||||
|
||||
|
||||
start_sim = ''
|
||||
|
||||
for line in f:
|
||||
|
||||
if line.startswith('#'):
|
||||
continue
|
||||
|
||||
# --join: if a coordinator is running, join it (for checkpointing more than one sim on same machine)
|
||||
if "DMTCP =" in line:
|
||||
start_sim = line.split( "=", 1 )[1].strip() + "/bin/dmtcp_checkpoint " + \
|
||||
"--port " + str( randint(2000,10000) ) + \
|
||||
" --quiet " + \
|
||||
"--join " + \
|
||||
"--checkpoint-open-files " + \
|
||||
"--ckptdir " + commands.getstatusoutput( 'echo $PWD' )[1] + "/dmtcp_checkpoints " + \
|
||||
"./S_main_" + commands.getstatusoutput( '$TRICK_HOME/bin/gte TRICK_HOST_CPU' )[1] + ".exe " + \
|
||||
" ".join( sys.argv[1:] ) + \
|
||||
" dmtcp"
|
||||
|
||||
f.close()
|
||||
|
||||
if ( not start_sim ):
|
||||
print "\nPlease run configure script in " + commands.getstatusoutput( 'echo $TRICK_HOME' )[1] + \
|
||||
" to set DMTCP location.\n"
|
||||
|
||||
try:
|
||||
subprocess.call( start_sim, shell=True )
|
||||
|
||||
except:
|
||||
print "\nExiting...\n"
|
||||
@ -1,787 +0,0 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
#==============================================================================
|
||||
#
|
||||
# Name: start_sim
|
||||
#
|
||||
# Synopsis: start_sim -n <SIM_name> -i <RUN_directory_name>/<in_file>
|
||||
#
|
||||
# Description: Run any simulation from any path
|
||||
#
|
||||
# Assumptions: 1) Must be a Trick installed user
|
||||
#
|
||||
# Examples: start_sim SIM_cannon RUN_test
|
||||
#
|
||||
# Created By: Warwick Woodard, L-3 Communications 05/01/2008
|
||||
#
|
||||
#==============================================================================
|
||||
|
||||
use lib $ENV{"TRICK_HOME"} . "/bin/pm" ;
|
||||
use gte ;
|
||||
#use strict ;
|
||||
require $ENV{"TRICK_HOME"} . "/bin/pm/XML/Parser.pm" ;
|
||||
use XML::Simple ;
|
||||
|
||||
my @element_stack;
|
||||
my $record_index;
|
||||
my $fh;
|
||||
my $DATA_PATH;
|
||||
my $INCLUDE_PATH;
|
||||
|
||||
|
||||
my $usage="
|
||||
Name:
|
||||
start_sim - run any simulation from any path
|
||||
|
||||
Additional options from S_main_<host_cpu>.exe (above)
|
||||
are also available for use with start_sim.
|
||||
|
||||
Options specific to start_sim command:
|
||||
(Note: start_sim can run without options)
|
||||
-s, -sim, -name <SIM_name>
|
||||
name of trick directory system that holds the simulation
|
||||
-i, -input <input_file>
|
||||
simulation input file to use
|
||||
-nexiom, -nexcsims <XML_input_file>
|
||||
parse a NExIOM input file and generate a nexcsims.d data file,
|
||||
then auto load nexcsims.d after standard input file is read
|
||||
-user_home, -u <USER_HOME_path>
|
||||
overwrite default value for the location of sims (full path)
|
||||
-freq <#.##>
|
||||
overwrite data recording cycle time (>= 0.01 sec)
|
||||
-ddd, -debug
|
||||
start simulation using the data display debugger (DDD)
|
||||
-gdb
|
||||
start simulation using the GNU debugger
|
||||
-echo
|
||||
send start_sim script print statements to terminal
|
||||
-h, -help, --help
|
||||
display this help and exit
|
||||
|
||||
Usage:
|
||||
start_sim [-s <SIM_name>] [-i <input_file>] [option(s)...]
|
||||
|
||||
Examples:
|
||||
% start_sim -s SIM_cannon -i RUN_grav/input
|
||||
% start_sim
|
||||
% start_sim -O \$HOME/my_log_files/
|
||||
% start_sim -nexiom nexiom_input.xml
|
||||
" ;
|
||||
|
||||
|
||||
# Local Variables
|
||||
my $name=""; # Name of Trick directory system that holds simulation
|
||||
my $input=""; # Simulation Input File
|
||||
my $use_input=1; # Input file required for S_MAIN_*.exe
|
||||
my $nexiom_format=0; # Input file is in XML format, create XML output
|
||||
my $nexiom_input=""; # Filename of the nexiom input parameters (XML format)
|
||||
my $nexiom_output=""; # Filename of the nexiom output (Datatable format)
|
||||
my $freq=0.0; # Overwrite data recording rate (>= 0.01 sec)
|
||||
my $user_home=""; # Overwrite default location of $TRICK_USER_HOME
|
||||
my $echo_ON=0; # Print the generated start command to screen
|
||||
my $help=0; # Print usage text to screen
|
||||
my $DDD=0; # Start simulation in ddd Flag
|
||||
my $GDB=0; # Start simulation in gdb Flag
|
||||
my $options=""; # Additional options to pass along to S_MAIN_*.exe
|
||||
my $default_host_cpu="Linux_3.4_234_x86_64";# Given in case TRICK_HOST_CPU is undef
|
||||
|
||||
|
||||
my $kernel_name;
|
||||
open $fh, "uname -s |";
|
||||
{
|
||||
local $/;
|
||||
$kernel_name = trim(<$fh>); # remove whitespace
|
||||
}
|
||||
close $fh;
|
||||
my $redirect="";
|
||||
if ( substr($kernel_name,0,4) eq "IRIX" ) {
|
||||
$redirect=" > /dev/null "; # Redirect outputs away from the screen
|
||||
}
|
||||
|
||||
|
||||
# IMPORTANT: Do not create options that could be used by S_MAIN.exe
|
||||
while ( @ARGV > 0 ) {
|
||||
my $argc = $ARGV[0]; # Copy current argument
|
||||
my $argc2 = $ARGV[1];
|
||||
|
||||
if (( $argc eq "-name" ) ||
|
||||
( $argc eq "-sim" ) ||
|
||||
( $argc eq "-s" )) {
|
||||
shift; $name=$argc2;
|
||||
} elsif (( $argc eq "-input" ) ||
|
||||
( $argc eq "-i" ) ||
|
||||
( $argc eq "-run" )) {
|
||||
shift; $input=$argc2;
|
||||
} elsif (( $argc eq "-frequency" ) ||
|
||||
( $argc eq "-freq" ) ||
|
||||
( $argc eq "-f" )) {
|
||||
shift; $freq=$argc2;
|
||||
} elsif (( $argc eq "-user_home" ) ||
|
||||
( $argc eq "-user" ) ||
|
||||
( $argc eq "-u" )) {
|
||||
shift; $user_home=$argc2;
|
||||
} elsif (( $argc eq "-debug" ) ||
|
||||
( $argc eq "-ddd" )) {
|
||||
$DDD=1;
|
||||
} elsif (( $argc eq "-gdb" )) {
|
||||
$GDB=1;
|
||||
} elsif (( $argc eq "-echo" ) ||
|
||||
( $argc eq "-print" )) {
|
||||
$echo_ON=1;
|
||||
} elsif (( $argc eq "-help" ) ||
|
||||
( $argc eq "-h" ) ||
|
||||
( $argc eq "help" ) ||
|
||||
( $argc eq "-x" )) {
|
||||
$help=1;
|
||||
$options = $options." -help";
|
||||
} elsif (( $argc eq "-nexiom" ) ||
|
||||
( $argc eq "-nexcsims" )) {
|
||||
$nexiom_format=1;
|
||||
shift;
|
||||
$nexiom_input=$argc2;
|
||||
} else {
|
||||
if (( $argc eq "sie" ) ||
|
||||
( $argc eq "trick_version" ) ||
|
||||
( $argc eq "-V" ) ||
|
||||
( $argc eq "--version" )) {
|
||||
# Don't run sim; generate files or print info to screen.
|
||||
$use_input = 0;
|
||||
# Save option.
|
||||
$options = $options." ".$argc;
|
||||
} elsif ( substr($argc,0,1) eq "-" ) {
|
||||
# Add two backslashes to support Debug argument parsing.
|
||||
# Otherwise some arguments are saved as internal ddd/gdb
|
||||
# commands and not passed along to S_MAIN.exe
|
||||
$options = $options." ".$argc."\\\\";
|
||||
} else {
|
||||
# Leave argument as is and append to previous option(s).
|
||||
$options = $options." ".$argc;
|
||||
}
|
||||
}
|
||||
|
||||
shift;
|
||||
}
|
||||
|
||||
|
||||
# Executable name is a product of host_cpu description.
|
||||
my $S_MAIN_EXE;
|
||||
if ( defined($ENV{"TRICK_HOST_CPU"}) ) {
|
||||
# Set "S_MAIN_EXE" equal to "S_main_" + the environment variable TRICK_HOST_CPU
|
||||
$S_MAIN_EXE = "S_main_".$ENV{"TRICK_HOST_CPU"} .".exe"; # concatenate strings
|
||||
} else {
|
||||
# If TRICK_HOST_CPU is undef, then "S_MAIN_EXE" is equal to "S_main_" plus
|
||||
# local variable default_host_cpu (set above).
|
||||
$S_MAIN_EXE = "S_main_".$default_host_cpu .".exe"; # concatenate strings
|
||||
}
|
||||
if ( $echo_ON == 1 ) {
|
||||
print "debug: setting S_MAIN_EXE equal to \"$S_MAIN_EXE\"\n";
|
||||
}
|
||||
|
||||
|
||||
# If $user_home is not null, copy value
|
||||
if ( $user_home ne "" ) {
|
||||
# If $user_home input is not null, test if path exists
|
||||
if ( ! -d $user_home ) {
|
||||
# An invalid sim path was provided; clear variable
|
||||
$user_home="";
|
||||
}
|
||||
}
|
||||
|
||||
my $userid;
|
||||
open $fh, "whoami |";
|
||||
{
|
||||
local $/;
|
||||
$userid = trim(<$fh>); # remove whitespace
|
||||
}
|
||||
close $fh;
|
||||
|
||||
|
||||
my $trick_sims;
|
||||
if ( $user_home ne "" ) {
|
||||
# Set "trick_sims" equal to the variable $user_home.
|
||||
$trick_sims = $user_home;
|
||||
} elsif ( defined($ENV{"TRICK_USER_HOME"}) ) {
|
||||
# If $user_home not set, set "trick_sims" equal to the env var TRICK_USER_HOME.
|
||||
$trick_sims = $ENV{"TRICK_USER_HOME"};
|
||||
} elsif ( defined($ENV{"HOME"}) ) {
|
||||
# If TRICK_USER_HOME is undef, then set "trick_sims" equal to $HOME/trick_sims.
|
||||
$trick_sims = $ENV{"HOME"}."/trick_sims"; # concatenate strings
|
||||
} else {
|
||||
# If HOME is undefined then default "trick_sims" to /users/<userid>/trick_sims.
|
||||
$trick_sims = "/users/".$userid."/trick_sims"; # concatenate strings
|
||||
}
|
||||
if ( $echo_ON == 1 ) {
|
||||
print "debug: setting trick_sims equal to \"$trick_sims\"\n";
|
||||
}
|
||||
|
||||
|
||||
my $pwd_;
|
||||
if ( defined($ENV{"PWD"}) ) {
|
||||
# Set "pwd_" equal to the envirnment variable PWD.
|
||||
$pwd_ = $ENV{"PWD"};
|
||||
} elsif ( defined($ENV{"cwd"}) ) {
|
||||
# If PWD is undef, then set "pwd_" equal to the envirnment variable cwd.
|
||||
$pwd_ = $ENV{"cwd"};
|
||||
} else {
|
||||
# If cwd is undefined, then execute `pwd`.
|
||||
open $fh, "pwd |";
|
||||
{
|
||||
local $/;
|
||||
$pwd_ = trim(<$fh>); # remove whitespace
|
||||
}
|
||||
close $fh;
|
||||
}
|
||||
|
||||
|
||||
# which Simulation to use
|
||||
# Possible Scenarios:
|
||||
# 1. SIM_name was provided by user
|
||||
# 2. SIM_name was not entered but current path is within a simulation directory
|
||||
# 3. SIM_name was not entered & current path is not within any simulation dir
|
||||
my $sim_="SIM";
|
||||
if ( $name ne "" ) {
|
||||
# If $name is not null, copy value
|
||||
$sim_ = $name;
|
||||
if ( substr($name,0,1) eq "/" ) {
|
||||
# If the full path of the simulation directory was entered,
|
||||
# then separate into two parts
|
||||
my $last_slash = rindex($name, "\/");
|
||||
if ( -e substr($name,0,$last_slash) ) {
|
||||
# if path exists, copy all chars prior to the last forward slash
|
||||
$trick_sims = substr($name,0,$last_slash);
|
||||
}
|
||||
$sim_=substr($name,($last_slash+1)); # copy all chars after the last forward slash
|
||||
}
|
||||
} elsif ( ($nexiom_format == 1) && ($nexiom_input ne "") ) {
|
||||
# If $nexiom_input is not null, parse file
|
||||
$sim_ = process_nexiom_input( $nexiom_input, "name");
|
||||
if ( substr($sim_,0,1) eq "/" ) {
|
||||
# If the full path of the simulation directory was entered,
|
||||
# then separate into two parts
|
||||
my $last_slash = rindex($sim_, "\/");
|
||||
if ( -e substr($sim_,0,$last_slash) ) {
|
||||
# if path exists, copy all chars prior to the last forward slash
|
||||
$trick_sims = substr($sim_,0,$last_slash);
|
||||
}
|
||||
$sim_=substr($sim_,($last_slash+1)); # copy all chars after the last forward slash
|
||||
}
|
||||
} else {
|
||||
# $name is null, search the current path to determine if
|
||||
# this script was executed within a simulation directory.
|
||||
# If not, default to the simulation directory with the
|
||||
# most recent time stamp.
|
||||
if ( `echo $pwd_ | grep $sim_ $redirect` ) {
|
||||
# Script was executed within a Trick simulation directory
|
||||
my $last_slash = rindex($pwd_, $sim_) - 1;
|
||||
$trick_sims = substr($pwd_,0,$last_slash); # Copy section of path PRIOR to SIM_name
|
||||
$sim_=substr($pwd_,($last_slash+1)); # Copy section of path AFTER trick_sims
|
||||
# Copy portion of SIM_name PRIOR to first slash (if any)
|
||||
# This would imply that the path of execution was nested
|
||||
# down past the simulation directory path
|
||||
if ( index($sim_, "\/") != -1 ) {
|
||||
my $new_slash = index($sim_, "\/");
|
||||
$sim_ = substr($sim_,0,$new_slash);
|
||||
}
|
||||
} else {
|
||||
# Script was executed outside of a Trick simulation directory
|
||||
# List, then sort (comma delimited) all SIM_names by mod time
|
||||
open $fh, "ls -vtmBd ".$trick_sims."/".$sim_."* ".$redirect." |";
|
||||
{
|
||||
local $/;
|
||||
$sim_ = trim(<$fh>); # remove whitespace
|
||||
}
|
||||
close $fh;
|
||||
# Copy the single SIM_name PRIOR to the first comma (if any)
|
||||
if ( index($sim_, ",") != -1 ) {
|
||||
my $first_comma = index($sim_, ",");
|
||||
$sim_ = substr($sim_,0,$first_comma);
|
||||
}
|
||||
# Results show full path;
|
||||
# strip off everything up to and including the last slash
|
||||
my $last_slash = rindex($sim_, "\/");
|
||||
$sim_=substr($sim_,($last_slash+1)); # copy all chars after the last forward slash
|
||||
}
|
||||
}
|
||||
my $NAME = $trick_sims."/".$sim_ ;
|
||||
if ( $echo_ON == 1 ) {
|
||||
print "debug: setting NAME equal to \"$NAME\"\n";
|
||||
}
|
||||
if ( ! -e $NAME ) {
|
||||
print "\e[31mError:\e[00m SIM directory... \n\"$NAME\" \n...does not exists.\n";
|
||||
if ( $nexiom_format == 1 ) {
|
||||
print " Please overwrite NExIOM value by adding \"-s <SIM_name>\"\n";
|
||||
print " (e.g. \"start_sim -nexiom <XML_input_file> -s <SIM_name>\" )\n";
|
||||
}
|
||||
print " \e[34mPlease set <SIM_name> to one of the following:\e[00m\n";
|
||||
system("ls -vtmBd ".$trick_sims."/*SIM*");
|
||||
print "Type \"start_sim -help\" for more info.\n";
|
||||
exit
|
||||
}
|
||||
|
||||
|
||||
# where to find S_default.dat
|
||||
$DATA_PATH=$NAME;
|
||||
|
||||
# where to look for input file's #includes
|
||||
$INCLUDE_PATH=$NAME;
|
||||
|
||||
|
||||
# Which input file to use
|
||||
# Possible Scenarios:
|
||||
# 1. input_file was provided by user
|
||||
# 2. input_file was not entered, but current path is within a RUN directory
|
||||
# 3. input_file was not entered & current path is not within any RUN dir
|
||||
my $run_ = "RUN";
|
||||
my $in_ = "input";
|
||||
if ( $input ne "" ) {
|
||||
# If $input is not null, copy value
|
||||
if ( `echo $input | grep "\/" $redirect ` ) {
|
||||
# A run directory AND input file name was provided
|
||||
my $last_slash = rindex($input, "\/");
|
||||
$run_ = substr($input,0,$last_slash); # Copy section of path PRIOR to $input's last slash
|
||||
if ( rindex($run_, "\/") != -1 ) {
|
||||
my $new_slash = rindex($run_, "\/");
|
||||
$run_=substr($run_,($new_slash+1)); # Copy section of path AFTER $run_'s last slash
|
||||
}
|
||||
$in_=substr($input,($last_slash+1)); # Copy section of path AFTER $input's last slash
|
||||
} else {
|
||||
# A path was not provided, but an input file name was.
|
||||
$in_ = $input;
|
||||
if ( -e $input ) {
|
||||
# Assume that this script is being executed in the desired RUN dir.
|
||||
my $last_slash = rindex($pwd_, "\/");
|
||||
$run_=substr($pwd_,($last_slash+1)); # Copy section of path AFTER $pwd_'s last slash
|
||||
} else {
|
||||
# The input file does not exist in current working directory.
|
||||
# Search for it in the RUN directories with recent time stamps.
|
||||
# List, then sort (comma delimited) all RUN_names by mod time
|
||||
open $fh, "ls -vtmBd ".$NAME."/".$run_."* ".$redirect." |";
|
||||
{
|
||||
local $/;
|
||||
$run_ = trim(<$fh>); # remove whitespace
|
||||
}
|
||||
close $fh;
|
||||
# Copy the single RUN_name PRIOR to the first comma (if any)
|
||||
if ( index($run_, ",") != -1 ) {
|
||||
my $first_comma = index($run_, ",");
|
||||
$run_ = substr($run_,0,$first_comma);
|
||||
}
|
||||
# Results show full path; strip off everything from first to last slash
|
||||
my $last_slash = rindex($run_, "\/");
|
||||
$run_=substr($run_,($last_slash+1)); # copy all chars after the last forward slash
|
||||
}
|
||||
}
|
||||
} else {
|
||||
if ( `echo $pwd_ | grep $run_ $redirect ` ) {
|
||||
my $name_slash = rindex($pwd_, $sim_); # Find string index where simulation's name begins
|
||||
my $next_slash = index($pwd_, "\/", $name_slash); # Find string index where simulation's name ends
|
||||
$run_=substr($pwd_,($next_slash+1)); # Copy section of path AFTER $NAME
|
||||
# Copy portion of results PRIOR to first slash (if any)
|
||||
# This would imply that the path of execution was nested
|
||||
# down past the RUN directory path
|
||||
if ( index($run_, "\/") != -1 ) {
|
||||
my $new_slash = index($run_, "\/");
|
||||
$run_ = substr($run_,0,$new_slash);
|
||||
}
|
||||
} else {
|
||||
# Script was executed outside of a RUN directory
|
||||
# List, then sort (comma delimited) all RUN_names by mod time
|
||||
open $fh, "ls -vtmBd ".$NAME."/".$run_."* ".$redirect." |";
|
||||
{
|
||||
local $/;
|
||||
$run_ = trim(<$fh>); # remove whitespace
|
||||
}
|
||||
close $fh;
|
||||
# Copy the single RUN_name PRIOR to the first comma (if any)
|
||||
if ( index($run_, ",") != -1 ) {
|
||||
my $first_comma = index($run_, ",");
|
||||
$run_ = substr($run_,0,$first_comma);
|
||||
}
|
||||
# Results show full path; strip off everything from first to last slash
|
||||
my $last_slash = rindex($run_, "\/");
|
||||
$run_=substr($run_,($last_slash+1)); # copy all chars after the last forward slash
|
||||
}
|
||||
}
|
||||
|
||||
my $INPUT="";
|
||||
if ( $use_input == 0 ) {
|
||||
# Execute S_MAIN_*.exe without an input file (e.g. sie, --version, etc.)
|
||||
} else {
|
||||
$INPUT=$NAME."/".$run_."/".$in_;
|
||||
}
|
||||
if ( $echo_ON == 1 ) {
|
||||
print "debug: setting INPUT equal to \"$INPUT\"\n";
|
||||
}
|
||||
if ( (! -e $INPUT) && ($use_input!=0) ) {
|
||||
print "\e[31mError:\e[00m Input file... \n\"$INPUT\" \n...is not a valid file name.\n";
|
||||
if ( $nexiom_format == 1 ) {
|
||||
print " Please overwrite NExIOM value by adding \"-i <input_file>\"\n";
|
||||
}
|
||||
printf " \e[34mPlease set <input_file> to a valid input file name\e[00m\n";
|
||||
printf " \e[34mfrom one of the following directories:\e[00m\n";
|
||||
system("ls -vtmBd ".$NAME."/RUN*");
|
||||
print "Type \"start_sim -help\" for more info.\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
|
||||
my $CMD = $NAME."/".$S_MAIN_EXE." ".$INPUT." ".$options ;
|
||||
if ( ! -e $NAME."/".$S_MAIN_EXE ) {
|
||||
print "\n" ;
|
||||
print "\e[31mError: \"$S_MAIN_EXE\" does not exist.\e[00m\n";
|
||||
print " \e[33mThe executable that you were expecting may not have \e[00m\n";
|
||||
print " \e[33mbeen created yet, or maybe was created on a different \e[00m\n";
|
||||
print " \e[33mplatform and will not run on this one.[00m\n";
|
||||
print "File(s) Found:\n";
|
||||
print "\e[34m";
|
||||
system("ls -apv S_main_*");
|
||||
print "\e[00m";
|
||||
print "Try running CP, then start_sim again.\n\n";
|
||||
exit;
|
||||
} else {
|
||||
if ( $help == 1 ) {
|
||||
# First print help info from S_main_*.exe. Defined in file:
|
||||
# $TRICK_HOME/trick_source/sim_services/exec/process_sim_args.c
|
||||
system($NAME."/".$S_MAIN_EXE." ".$options);
|
||||
# Now append start_sim specific help info.
|
||||
print "$usage\n";
|
||||
exit;
|
||||
} else {
|
||||
if ( $nexiom_format == 1 ) {
|
||||
$nexiom_output = process_nexiom_input( $nexiom_input );
|
||||
# strip off everything up to and including the last slash
|
||||
my $last_slash = rindex($nexiom_output, "\/");
|
||||
$nexiom_output = substr($nexiom_output,($last_slash+1));
|
||||
if ( $echo_ON == 1 ) {
|
||||
#print "setting NExIOM output file to \"$nexiom_output\"\n";
|
||||
}
|
||||
#$CMD = $CMD." -auto -nexiom ".$nexiom_output;
|
||||
$CMD = $CMD." -auto -nexiom ";
|
||||
}
|
||||
if ( $DDD == 1 ) {
|
||||
# Prepend command with ddd
|
||||
$CMD = "ddd --args ".$CMD;
|
||||
} elsif ( $GDB == 1 ) {
|
||||
# Prepend command with gdb
|
||||
$CMD = "gdb --args ".$CMD;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
# START THE SIM!!!
|
||||
if ( $echo_ON == 1 ) {
|
||||
print "starting the simulation:\n";
|
||||
print " \"$CMD\"\n\n";
|
||||
}
|
||||
system("cd ".$NAME."; ".$CMD);
|
||||
|
||||
|
||||
|
||||
|
||||
#######################################################################
|
||||
######################## DECLARE SUBROUTINES ########################
|
||||
#######################################################################
|
||||
sub process_nexiom_input {
|
||||
|
||||
# PARSE NExIOM INPUT FILE
|
||||
my ($infile, $tag) ;
|
||||
my ($value, $outfile) ;
|
||||
|
||||
# If two arguments received (input_filename, XML tag)
|
||||
if ( $_[1] ) {
|
||||
# save input_filename and XML tag strings
|
||||
($infile, $tag) = handle_nexiom_args($_[0], $_[1]) ;
|
||||
|
||||
# One argument received (input_filename)
|
||||
} else {
|
||||
# save input_filename; XML tag is null
|
||||
($infile, $tag) = handle_nexiom_args($_[0], 0) ;
|
||||
}
|
||||
|
||||
# If an XML tag was provided
|
||||
if ( $tag ) {
|
||||
# Save the value of the first occurrence of this XML tag.
|
||||
$value = get_tag_val($infile, $tag) ;
|
||||
# This value is most commonly used as the NExIOM default SIM directory name.
|
||||
return $value;
|
||||
|
||||
# No XML tag provided
|
||||
} else {
|
||||
# Translate input file to "nexcsims.d"
|
||||
$outfile=generate_data_files($infile) ;
|
||||
return $outfile;
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
sub handle_nexiom_args($$) {
|
||||
|
||||
my ( $infile, $tag ) ;
|
||||
|
||||
$infile = $_[0] ;
|
||||
$tag = $_[1] ;
|
||||
|
||||
# Exit script if input_file does not exist
|
||||
if ( ! -e $infile ) {
|
||||
print "ERROR: Can't find NExIOM input file \"$infile\" \n" ;
|
||||
print "File does not exist: $infile \n" ;
|
||||
exit
|
||||
}
|
||||
|
||||
return $infile, $tag ;
|
||||
}
|
||||
|
||||
sub get_tag_val($$) {
|
||||
|
||||
my ( $file ) = $_[0] ;
|
||||
my ( $tag ) = $_[1] ;
|
||||
my $value ;
|
||||
|
||||
# Parse XML contents to hashref, $data
|
||||
my $data = XML::Simple::XMLin($file) ;
|
||||
# Find first occurrence of XML tag (i.e. <foo="bar">)
|
||||
if ( ! ($value = $data->{$tag}) ) {
|
||||
# Couldn't find this XML tag, so clear $value
|
||||
$value = "" ;
|
||||
}
|
||||
|
||||
return $value ;
|
||||
}
|
||||
|
||||
sub generate_data_files($) {
|
||||
|
||||
my ( $file ) = $_[0] ;
|
||||
my $results;
|
||||
my $record_name;
|
||||
$record_index = 0; # counter for the number of vars to data record
|
||||
|
||||
# Save the value of the first occurrence of this XML tag.
|
||||
if ( ! ($results = get_tag_val($file,"results")) ) {
|
||||
# Couldn't find this XML tag, so provide default value
|
||||
$results = "nexiom_output.xml" ;
|
||||
}
|
||||
# strip off everything up to and including the last slash
|
||||
my $last_slash = rindex($results, "\/");
|
||||
$record_name=substr($results,($last_slash+1)); # copy all chars after the last forward slash
|
||||
|
||||
# create/overwrite nexcsims.d data file
|
||||
open (FILE, ">".$DATA_PATH."/Modified_data/nexcsims.d");
|
||||
close FILE;
|
||||
|
||||
# create/overwrite nexcsims.dr recording file
|
||||
open (DR_FILE, ">".$DATA_PATH."/Modified_data/nexcsims.dr");
|
||||
# Insert header declarations
|
||||
print DR_FILE "#ifndef DR_GROUP_ID\n";
|
||||
print DR_FILE " #define DR_GROUP_ID sys.exec.record.num_group\n";
|
||||
print DR_FILE "#else\n";
|
||||
print DR_FILE " DR_GROUP_ID -- ;\n";
|
||||
print DR_FILE "#endif\n\n";
|
||||
print DR_FILE "sys.exec.record.group[DR_GROUP_ID].name = \"$record_name\" ;\n";
|
||||
if ( $freq > 0.0 ) {
|
||||
print DR_FILE "sys.exec.record.group[DR_GROUP_ID].cycle = $freq ;\n";
|
||||
}
|
||||
print DR_FILE "sys.exec.record.group[DR_GROUP_ID].record = Yes ;\n";
|
||||
print DR_FILE "sys.exec.record.group[DR_GROUP_ID].format = DR_Binary ;\n";
|
||||
close DR_FILE;
|
||||
|
||||
# Create a new XML::Parser object, $parser
|
||||
my $parser = XML::Parser->new(
|
||||
Handlers => {
|
||||
# 'Start' handler - references the start subroutine (hand-written below)
|
||||
Start=>\&start,
|
||||
# 'End' handler - reference the end subroutine (hand-written below)
|
||||
End=>\&end,
|
||||
}
|
||||
);
|
||||
$parser->parsefile($file);
|
||||
|
||||
# Append footer to recording file
|
||||
open (DR_FILE, ">>".$DATA_PATH."/Modified_data/nexcsims.dr");
|
||||
print DR_FILE "\nDR_GROUP_ID ++ ;\n";
|
||||
close DR_FILE;
|
||||
|
||||
return $results ;
|
||||
}
|
||||
|
||||
sub start {
|
||||
|
||||
# Called by generate_data_files()
|
||||
my ( $expat, $element, %attrval ) = @_;
|
||||
|
||||
my ( $i, $j, $k );
|
||||
my $dimension_counter = 0;
|
||||
my @array_of_arrays = ();
|
||||
my $pos = 1;
|
||||
|
||||
# Search for <InputParameters> tag to build an input data file
|
||||
if ( $element eq "Parameter" and $element_stack[ -1 ] eq "InputParameters" ) {
|
||||
|
||||
# Append variables to data file
|
||||
open (FILE, ">>".$DATA_PATH."/Modified_data/nexcsims.d");
|
||||
|
||||
# Translate the NExIOM variable name to a local variable name
|
||||
my ($in_variable, @arrays) = find_sim_var( $attrval{name}, "in" ) ;
|
||||
# Determine if var is scalar, single dimension array, double (matrix), etc
|
||||
# If @arrays list is empty, then this variable is scalar
|
||||
$dimension_counter = @arrays;
|
||||
|
||||
for ( $i = 0; $i < $dimension_counter; $i++ ) {
|
||||
push @array_of_arrays, [1..$arrays[$i]];
|
||||
}
|
||||
|
||||
$pos = 1; # default array size
|
||||
my $iter = make_permutation(@array_of_arrays);
|
||||
while (my @elements = $iter->() ){
|
||||
print FILE "$in_variable";
|
||||
if ($dimension_counter >= 1) {
|
||||
foreach (@elements) {
|
||||
$pos = $_ - 1; # decrease array position by 1 for C code
|
||||
print FILE "[$pos]"; # append array index to variable
|
||||
}
|
||||
}
|
||||
if( exists $attrval{units} ) {
|
||||
# Identify what units this parameter's value will be given in
|
||||
print FILE " \{$attrval{units}\}";
|
||||
}
|
||||
# Retrieve the value being assigned to this parameter
|
||||
print FILE " = $attrval{value};\n";
|
||||
}
|
||||
|
||||
close FILE;
|
||||
|
||||
# Search for <OutputParameters> tag to build a data recording file
|
||||
} elsif ( $element eq "Parameter" and $element_stack[ -1 ] eq "OutputParameters" ) {
|
||||
|
||||
# Append variables to recording file
|
||||
open (DR_FILE, ">>".$DATA_PATH."/Modified_data/nexcsims.dr");
|
||||
|
||||
# Translate the NExIOM variable name to a local variable name
|
||||
my ($out_variable, @arrays) = find_sim_var( $attrval{name}, "out" ) ;
|
||||
# Determine if var is scalar, single dimension array, double (matrix), etc
|
||||
# If @arrays list is empty, then this variable is scalar
|
||||
$dimension_counter = @arrays;
|
||||
|
||||
for ( $i = 0; $i < $dimension_counter; $i++ ) {
|
||||
# Create an array of integers from 1 to n,
|
||||
# then populate that array into an array list.
|
||||
|
||||
# Example: given a multi-dimensional array that is of size 2 x 10 x ?,
|
||||
# produce this array list => ([1..2], [1..10], [1..?], etc... )
|
||||
|
||||
push @array_of_arrays, [1..$arrays[$i]];
|
||||
}
|
||||
|
||||
$pos = 1; # default array size
|
||||
my $iter = make_permutation(@array_of_arrays);
|
||||
while (my @elements = $iter->() ){
|
||||
print DR_FILE "sys.exec.record.group[DR_GROUP_ID].ref".
|
||||
"[$record_index] = \"$out_variable";
|
||||
if ($dimension_counter >= 1) {
|
||||
foreach (@elements) {
|
||||
$pos = $_ - 1; # decrease array position by 1 for C code
|
||||
print DR_FILE "[$pos]"; # append array index to variable
|
||||
}
|
||||
}
|
||||
# End string with closed quote, semi-colon & newline
|
||||
print DR_FILE "\" ;\n"; # write to data recording file
|
||||
$record_index++;
|
||||
}
|
||||
|
||||
close DR_FILE;
|
||||
}
|
||||
|
||||
push @element_stack, $element;
|
||||
}
|
||||
|
||||
sub end {
|
||||
|
||||
my ( $expat, $element ) = @_;
|
||||
|
||||
pop @element_stack;
|
||||
}
|
||||
|
||||
sub find_sim_var {
|
||||
|
||||
# Use a mappping file to find which simulation variable
|
||||
# is equivalent to this nexiom input variable name.
|
||||
my $nexiom_variable = my $new_variable = shift;
|
||||
my $in_out = shift;
|
||||
my ($from, $to, @slots);
|
||||
|
||||
if ((defined $in_out) && ($in_out eq "out")) {
|
||||
open (MAP_FILE, $INCLUDE_PATH."/nexiom_output.map");
|
||||
} else {
|
||||
open (MAP_FILE, $INCLUDE_PATH."/nexiom_input.map");
|
||||
}
|
||||
|
||||
while (<MAP_FILE>) {
|
||||
chomp; # read file until another newline character is found
|
||||
|
||||
# Copy values (assume data is comma delimited)
|
||||
($from, $to, @slots) = split(",");
|
||||
$from = trim($from); # remove whitespace
|
||||
$to = trim($to); # remove whitespace
|
||||
# Values in the output mapping file are opposite/backwards
|
||||
if ((defined $in_out) && ($in_out eq "out")) {
|
||||
# Swap from & to values
|
||||
($from, $to) = ($to, $from);
|
||||
}
|
||||
foreach (@slots) {
|
||||
$_ = int(trim($_)); # save array demensions (if any)
|
||||
}
|
||||
|
||||
# Search for the nexiom variable name
|
||||
if( $nexiom_variable eq $from ) {
|
||||
# Cross mapping found. Rename to local simulation name.
|
||||
$new_variable = $to ;
|
||||
last; # break out of loop
|
||||
} elsif( $nexiom_variable eq $to ) {
|
||||
# No cross mapping needed. Leave variable name as is.
|
||||
$new_variable = $nexiom_variable ;
|
||||
last; # break out of loop
|
||||
} else {
|
||||
# clear tmp values prior to parsing next line of MAP_FILE
|
||||
($from, $to, $#slots) = ( "", "", -1);
|
||||
}
|
||||
}
|
||||
|
||||
close (MAP_FILE);
|
||||
|
||||
my @found_it = ($new_variable, @slots) ;
|
||||
return @found_it ;
|
||||
}
|
||||
|
||||
sub make_permutation{
|
||||
my @refs = @_;
|
||||
my @arrayindexes = ();
|
||||
foreach (@refs){
|
||||
push @arrayindexes,[$_,0,$#{$_}];
|
||||
}
|
||||
|
||||
return sub {
|
||||
return if $arrayindexes[0]->[1] > $arrayindexes[0]->[2];
|
||||
my @elements = map { $_->[0]->[ $_->[1]] } @arrayindexes;
|
||||
# Check for out of bounds....
|
||||
$arrayindexes[$#arrayindexes]->[1]++;
|
||||
for (my $i = $#arrayindexes; $i > 0; $i--) {
|
||||
if ($arrayindexes[$i]->[1] > $arrayindexes[$i]->[2]) {
|
||||
$arrayindexes[$i]->[1] = 0;
|
||||
$arrayindexes[$i-1]->[1]++;
|
||||
} else {
|
||||
last;
|
||||
}
|
||||
}
|
||||
return @elements;
|
||||
|
||||
};
|
||||
}
|
||||
|
||||
sub trim($)
|
||||
{
|
||||
# Remove whitespaces
|
||||
my $string = $_[0];
|
||||
$string =~ s/^\s+//;
|
||||
$string =~ s/\s+$//;
|
||||
return $string;
|
||||
}
|
||||
@ -4,6 +4,7 @@ include ${TRICK_HOME}/share/trick/makefiles/Makefile.common
|
||||
ifdef TRICK_VERBOSE_BUILD
|
||||
PRINT_CP =
|
||||
PRINT_ICG =
|
||||
PRINT_S_DEF_DEPS =
|
||||
PRINT_CONVERT_SWIG =
|
||||
PRINT_MAKEFILE_SRC =
|
||||
PRINT_MAKEFILE_SWIG =
|
||||
@ -11,6 +12,7 @@ ECHO_CMD =
|
||||
else
|
||||
PRINT_CP = @echo "[34mRunning configuration_processor[0m"
|
||||
PRINT_ICG = @echo "[34mRunning ICG[0m"
|
||||
PRINT_S_DEF_DEPS = @echo "[34mGet depends for S_define[0m"
|
||||
PRINT_CONVERT_SWIG = @echo "[34mRunning convert_swig[0m"
|
||||
PRINT_MAKEFILE_SRC = @echo "[34mCreating/updating source Makefile[0m"
|
||||
PRINT_MAKEFILE_SWIG = @echo "[34mCreating/updating swig Makefile[0m"
|
||||
@ -25,6 +27,7 @@ export TRICK_ICG_EXCLUDE
|
||||
SHELL = /bin/bash
|
||||
|
||||
all test : ${TRICK_LIB_DIR}/libtrick.a S_source.hh \
|
||||
$(CURDIR)/build/S_define.deps \
|
||||
$(CURDIR)/build/Makefile_io_src \
|
||||
$(CURDIR)/build/Makefile_src \
|
||||
$(CURDIR)/build/Makefile_swig \
|
||||
@ -63,8 +66,13 @@ force_ICG:
|
||||
$(PRINT_ICG)
|
||||
$(ECHO_CMD)${TRICK_HOME}/bin/trick-ICG -f -m ${TRICK_CXXFLAGS} ${TRICK_SYSTEM_CXXFLAGS} S_source.hh
|
||||
|
||||
# Build dependencies for recreating S_source.hh
|
||||
$(CURDIR)/build/S_define.deps :
|
||||
$(PRINT_S_DEF_DEPS)
|
||||
$(ECHO_CMD)$(TRICK_CPPC) $(TRICK_SFLAGS) $(TRICK_SYSTEM_SFLAGS) -M -MT S_source.hh -MF build/S_define.deps -x c++ S_define
|
||||
|
||||
# Create makefile for source code
|
||||
$(CURDIR)/build/Makefile_src: $(CURDIR)/build/Makefile_io_src
|
||||
$(CURDIR)/build/Makefile_src: | $(CURDIR)/build/Makefile_io_src
|
||||
$(PRINT_MAKEFILE_SRC)
|
||||
$(ECHO_CMD)${TRICK_HOME}/$(LIBEXEC)/trick/make_makefile_src $?
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user