From db5c9b0b1c59082727cfd1f3c297941cc9ce58af Mon Sep 17 00:00:00 2001 From: eschnett Date: Tue, 23 Oct 2012 20:21:21 +0000 Subject: List --exit-after-param-check in help text git-svn-id: http://svn.cactuscode.org/flesh/trunk@4885 17b73243-c579-4c4c-a9d2-2d5706c11dac --- src/main/CommandLine.c | 1 + src/main/ProcessCommandLine.c | 2 +- src/util/Math.c | 55 +++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 57 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/main/CommandLine.c b/src/main/CommandLine.c index 01b2bd23..4aded14f 100644 --- a/src/main/CommandLine.c +++ b/src/main/CommandLine.c @@ -621,6 +621,7 @@ void CCTKi_CommandLineHelp (void) " created by the '-r' option\n" "-b, --buffering : Set stdout buffering mode.\n" "-S, --print-schedule : Print the schedule tree, then exit.\n" + "-P, --exit-after-param-check : Check the parameters, then exit.\n" "-T, --list-thorns : Lists the compiled-in thorns.\n" "-t, --test-thorn-compiled : Tests for the presence of thorn .\n" " --parameter-level : Sets the amount of parameter checking, \n" diff --git a/src/main/ProcessCommandLine.c b/src/main/ProcessCommandLine.c index ae95a071..2a392f30 100644 --- a/src/main/ProcessCommandLine.c +++ b/src/main/ProcessCommandLine.c @@ -131,7 +131,7 @@ int CCTKi_ProcessCommandLine(int *inargc, char ***inargv, tFleshConfig *ConfigDa list_thorns_option = 'T', test_thorns_compiled_option = 't', version_option = 'v', - exit_after_param_check_option = 'p', + exit_after_param_check_option = 'P', ignore_next_option = 'i' }; /* the longopts argument passed into getopt_long_only() */ diff --git a/src/util/Math.c b/src/util/Math.c index 0d4dccf0..7ce8d680 100644 --- a/src/util/Math.c +++ b/src/util/Math.c @@ -11,6 +11,7 @@ #include #include +#include @@ -23,6 +24,14 @@ double CCTK_copysign(double x, double y) #endif } +double CCTK_FNAME(CCTK_copysign)(double *x, double *y); +double CCTK_FNAME(CCTK_copysign)(double *x, double *y) +{ + return CCTK_copysign(*x, *y); +} + + + int CCTK_fpclassify(double x) { #ifdef HAVE_FPCLASSIFY @@ -32,6 +41,14 @@ int CCTK_fpclassify(double x) #endif } +int CCTK_FNAME(CCTK_fpclassify)(double *x); +int CCTK_FNAME(CCTK_fpclassify)(double *x) +{ + return CCTK_fpclassify(*x); +} + + + int CCTK_isfinite(double x) { #ifdef HAVE_ISFINITE @@ -41,6 +58,14 @@ int CCTK_isfinite(double x) #endif } +int CCTK_FNAME(CCTK_isfinite)(double *x); +int CCTK_FNAME(CCTK_isfinite)(double *x) +{ + return CCTK_isfinite(*x); +} + + + int CCTK_isinf(double x) { #ifdef HAVE_ISINF @@ -50,6 +75,14 @@ int CCTK_isinf(double x) #endif } +int CCTK_FNAME(CCTK_isinf)(double *x); +int CCTK_FNAME(CCTK_isinf)(double *x) +{ + return CCTK_isinf(*x); +} + + + int CCTK_isnan(double x) { #ifdef HAVE_ISNAN @@ -59,6 +92,14 @@ int CCTK_isnan(double x) #endif } +int CCTK_FNAME(CCTK_isnan)(double *x); +int CCTK_FNAME(CCTK_isnan)(double *x) +{ + return CCTK_isnan(*x); +} + + + int CCTK_isnormal(double x) { #ifdef HAVE_ISNORMAL @@ -68,6 +109,14 @@ int CCTK_isnormal(double x) #endif } +int CCTK_FNAME(CCTK_isnormal)(double *x); +int CCTK_FNAME(CCTK_isnormal)(double *x) +{ + return CCTK_isnormal(*x); +} + + + int CCTK_signbit(double x) { #ifdef HAVE_SIGNBIT @@ -76,3 +125,9 @@ int CCTK_signbit(double x) return x < 0.0; #endif } + +int CCTK_FNAME(CCTK_signbit)(double *x); +int CCTK_FNAME(CCTK_signbit)(double *x) +{ + return CCTK_signbit(*x); +} -- cgit v1.2.3