diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-07-11 21:44:53 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-07-11 21:44:53 +0000 |
| commit | 59c18d105f6ec723f285fe67ac2e121747bfdc7c (patch) | |
| tree | ba49d220d4dd7fd2589af20a7fb6990e8e807304 /lib/sbin/CST | |
| parent | ccbde9cca5c3d22cca58918e59a8e75364665398 (diff) | |
Added more checking for consistency of ancestors. Now CST catches private
variables in a thorn with the same names as public variables from it's parents.
(I'm sure I did this to fix a bug report but I can't find it now).
Expanded some warnings to give more suggestions.
Also added a system_database to hold odd things like the configuration
and cctk directories.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2286 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CST')
| -rw-r--r-- | lib/sbin/CST | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lib/sbin/CST b/lib/sbin/CST index 15b57c50..2694eebb 100644 --- a/lib/sbin/CST +++ b/lib/sbin/CST @@ -6,7 +6,7 @@ # @desc # Parses the the configuration files for thorns. # @enddesc -# @version $Header: /mnt/data2/cvs2svn/cvs-repositories/Cactus/lib/sbin/CST,v 1.43 2001-07-11 21:20:29 allen Exp $ +# @version $Header: /mnt/data2/cvs2svn/cvs-repositories/Cactus/lib/sbin/CST,v 1.44 2001-07-11 21:44:53 allen Exp $ #@@*/ # Global parameter to track the number of errors from the CST @@ -16,6 +16,7 @@ $CST_errors = 0; $error_string = ""; + ########################################################################## # Parse the command line @@ -37,6 +38,7 @@ if(! $config_dir) { $config_dir = "$top/config-data"; } +$system_database{"CONFIG_DIR"} = $config_dir; # Set up the CCTK home directory if(! $cctk_home) @@ -44,11 +46,13 @@ if(! $cctk_home) $cctk_home = $ENV{'CCTK_HOME'} || "$ENV{HOME}/CCTK"; $cctk_home =~ s:/$::g; } +$system_database{"CCTK_HOME"} = $cctk_home; if(! $bindings_dir) { $bindings_dir = "$top/bindings"; } +$system_database{"BINDINGS_DIR"} = $bindings_dir; ######################################################################## @@ -73,6 +77,7 @@ require "$sbin_dir/GridFuncStuff.pl"; require "$sbin_dir/output_config.pl"; require "$sbin_dir/ImpParamConsistency.pl"; require "$sbin_dir/CSTUtils.pl"; +require "$sbin_dir/MakeUtils.pl"; require "$sbin_dir/CreateParameterBindings.pl"; require "$sbin_dir/CreateImplementationBindings.pl"; require "$sbin_dir/CreateScheduleBindings.pl"; @@ -105,7 +110,7 @@ if($debug_configuration) # Parse the interface.ccl files print "Parsing interface files...\n"; -%interface_database = &create_interface_database(%source_thorns); +%interface_database = &create_interface_database(scalar(keys %system_database), %system_database, %source_thorns); #$debug_interface = 1; if($debug_interface) @@ -638,6 +643,3 @@ sub CreateBindings } - - - |