diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-24 11:45:00 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-24 11:45:00 +0000 |
| commit | 901c382cd3a3674912e5e16a5fb4ea4b38c6a4a2 (patch) | |
| tree | a1631d7e93f4eb2a2053c0d258d0acf994ce0835 /lib/sbin/CST | |
| parent | 0ec36d3dfb052d2cd81d65a2ad1309af6d9e94dc (diff) | |
Creating all files with WriteFile, and changing filenames of
required packages
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1090 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CST')
| -rw-r--r-- | lib/sbin/CST | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/lib/sbin/CST b/lib/sbin/CST index 7adb7415..2991b314 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.30 1999-09-19 14:16:43 goodale Exp $ +# @version $Header: /mnt/data2/cvs2svn/cvs-repositories/Cactus/lib/sbin/CST,v 1.31 1999-10-24 11:45:00 allen Exp $ #@@*/ # Global parameter to track the number of errors from the CST @@ -63,7 +63,6 @@ if (!-e "$sbin_dir/parameter_parser.pl" ) require "$sbin_dir/parameter_parser.pl"; require "$sbin_dir/interface_parser.pl"; -#require "$sbin_dir/schedule_parser.pl"; require "$sbin_dir/ScheduleParser.pl"; require "$sbin_dir/create_c_stuff.pl"; require "$sbin_dir/create_fortran_stuff.pl"; @@ -74,8 +73,7 @@ require "$sbin_dir/ImpParamConsistency.pl"; require "$sbin_dir/CSTUtils.pl"; require "$sbin_dir/CreateParameterBindings.pl"; require "$sbin_dir/CreateImplementationBindings.pl"; -require "$sbin_dir/NewCreateScheduleBindings.pl"; -#require "$sbin_dir/CreateScheduleBindings.pl"; +require "$sbin_dir/CreateScheduleBindings.pl"; require "$sbin_dir/BuildHeaders.pl"; ####################################################################### @@ -519,12 +517,9 @@ sub CreateBindings # Place an appropriate make.code.defn in the bindings directory. chdir $bindings_dir; - open (OUT, ">make.code.defn") || die "Cannot open make.code.defn"; - - print OUT "SRCS = \n"; - print OUT "SUBDIRS = Implementations Parameters Variables Schedule\n"; - - close OUT; + $dataout = "SRCS = \n"; + $dataout .= "SUBDIRS = Implementations Parameters Variables Schedule\n"; + &WriteFile("make.code.defn",$dataout); # Go back to where we started. chdir $start_dir; |