Add some tuning machinery

Merge hdsTune and hdsGtune into a single file that can share
variables. Read HDS_MAP and HDS_SHELL environment variables.

Author: timj

Makefile.am

@@ -113,7 +113,6 @@ hdsDimC2F.c \
 hdsDimF2C.c \
 hdsFree.c \
 hdsGroup.c \
-hdsGtune.c \
 hdsInfoI.c \
 hdsLock.c \
 hdsNew.c \
@@ -122,7 +121,6 @@ hdsShow.c \
 hdsState.c \
 hdsStop.c \
 hdsTrace.c \
-hdsTune.c \
 hdsWild.c \
 datConv.c \
 hdsClose.c \
@@ -133,6 +131,7 @@ datnew0.c \
 datnew1.c \
 datput0.c \
 datput1.c \
+hdstuning.c \
 hdsgroups.c
 
 PRIVATE_C_ROUTINES = \
@@ -152,6 +151,7 @@ dat1GetAttrHdsdims.c \
 dat1GetAttrInt.c \
 dat1GetAttrString.c \
 dat1GetBounds.c \
+dat1Getenv.c \
 dat1GetFullName.c \
 dat1H5EtoEMS.c \
 dat1ImportDims.c \

dat1.h

@@ -101,6 +101,17 @@ typedef enum {
   HDSTYPE_STRUCTURE
 } hdstype_t;
 
+/* Which shell should be used when expanding environment
+   variables. Not all HDS supported shells are supported
+   by this library.
+*/
+
+typedef enum {
+  HDS__NOSHELL = -1,  /* Do not expand shell variables */
+  HDS__SHSHELL,       /* Use "sh" aka wordexp() */
+  HDS__MAXSHELL       /* Too high */
+} hds_shell_t;
+
 /* Global Constants:                                                        */
 /* ================                                                         */
 #include "dat_par.h"
@@ -372,5 +383,11 @@ dat1GetAttrString( hid_t objid, const char * attrname, hdsbool_t usedef,
                    const char * defval, char * attrval, size_t attrvallen,
                    int *status);
 
+void dat1Getenv( const char *varname, int def, int *val );
+
+hdsbool_t hds1GetUseMmap();
+
+hds_shell_t hds1GetShell();
+
 /* DAT1_H_INCLUDED */
 #endif

dat1Getenv.c

@@ -0,0 +1,86 @@
+#if HAVE_CONFIG_H
+#  include <config.h>
+#endif
+
+#include <stdlib.h>
+#include <stdio.h>
+
+#include "dat1.h"
+
+
+/*
+*+
+* Name:
+*   dat1Getenv
+
+* Purpose:
+*    Obtain an integer value from an environment variable.
+
+* Invocation:
+*    dat1Getenv( varname, def, val );
+
+* Description:
+*    This function obtains the value of a specified environment variable
+*    as an integer. If the variable is not defined, or its value does not
+*    make sense as an integer, or any other error occurs, then a default
+*    value is returned instead.
+
+* Parameters:
+*    const char *varname
+*       Pointer to a null-terminated character string giving the name of
+*       the environment variable. The use of upper case is recommended.
+*    int def
+*       The default value to be used if an integer value cannot be
+*       obtained from the environment variable.
+*    int *val
+*       Pointer to an integer in which the result will be returned.
+
+* Notes:
+*    This routine does not perform error checking.
+
+* Authors:
+*    RFWS: R.F. Warren-Smith (STARLINK)
+*    {@enter_new_authors_here@}
+
+* History:
+*    25-FEB-1992 (RFWS):
+*       Original version.
+*    {@enter_changes_here@}
+
+*  Licence:
+*     This program is free software; you can redistribute it and/or
+*     modify it under the terms of the GNU General Public License as
+*     published by the Free Software Foundation; either version 3 of
+*     the License, or (at your option) any later version.
+*
+*     This program is distributed in the hope that it will be
+*     useful, but WITHOUT ANY WARRANTY; without even the implied
+*     warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+*     PURPOSE. See the GNU General Public License for more details.
+*
+*     You should have received a copy of the GNU General Public License
+*     along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+*-
+*/
+void dat1Getenv( const char *varname, int def, int *val ) {
+
+  /* Local Variables: */
+  char *txt;                 /* Pointer to translation value */
+
+  /* Obtain a pointer to the environment variable's value. */
+  txt = getenv( varname );
+
+  /* If no value was obtained, then use the default. */
+  if ( txt == NULL ) {
+
+    *val = def;
+
+    /* Otherwise, try to read an integer value from it. If unsuccessful, then   */
+    /* use the default. */
+  } else if ( sscanf( txt, "%d", val ) != 1 ) {
+    *val = def;
+  }
+
+  return;
+}