bufr2tac_env.c File Reference

file with the code to set environments More...

#include "bufr2tac.h"

Include dependency graph for bufr2tac_env.c:

Go to the source code of this file.

Functions
int	bufr_set_environment (char *default_bufrtables, char *bufrtables_dir)
	set the environment vars needed to work properly with ECMWF bufrdc library More...

Detailed Description

file with the code to set environments

Definition in file bufr2tac_env.c.

Function Documentation

bufr_set_environment()

int bufr_set_environment	(	char *	default_bufrtables,
		char *	bufrtables_dir
	)

set the environment vars needed to work properly with ECMWF bufrdc library

Parameters

default_bufrtables	defaut bufr tables dir. ususally '/usr/local/lib/bufrtables/'
bufrtables_dir	alternative char with bufr tables dir

During decoding Bufr table path and the names are printed. If user doeas not want that, set: VARIABLE PRINT_TABLE_NAMES=false

During decoding code/flag tables could be read if code figure meaning is needed. If user want to use code and flag tables set: VARIABLE USE TABLE C=true

Then we set the proper environment here

Definition at line 41 of file bufr2tac_env.c.

{
  int i;
  char aux[256], *c;
  struct stat s;
 
  i = stat ( default_bufrtables, &s );
 
  if ( putenv ( "PRINT_TABLE_NAMES=false" ) || putenv ( "USE_TABLE_C=true" ) )
    {
      fprintf ( stderr, "bufr2tac: Failure setting the environment\n" );
      exit ( EXIT_FAILURE );
    }
 
  /*
    Default path for Bufr Tables is hard coded in the software. To change the path set environmental variable
    BUFR_TABLES . The path must end with '/'
  */
  if ( bufrtables_dir[0] )
    {
      sprintf ( aux,"BUFR_TABLES=%s", bufrtables_dir );
      if ( putenv ( aux ) )
        {
          fprintf ( stderr, "bufr2tac: Failure setting the environment\n" );
          exit ( EXIT_FAILURE );
        }
    }
  else if ( ( c = getenv ( "BUFR_TABLES" ) ) != NULL )
    {
      strcpy ( bufrtables_dir, c ); // otherwise check if BUFRRABLES_DIR if is on environment
    }
  else if ( i == 0 && S_ISDIR ( s.st_mode ) ) // last chance, the default dir
    {
      strcpy ( bufrtables_dir, default_bufrtables );
      sprintf ( aux,"BUFR_TABLES=%s", bufrtables_dir );
      if ( putenv ( aux ) )
        {
          fprintf ( stderr, "bufr2tac: Failure setting the environment\n" );
          exit ( EXIT_FAILURE );
        }
    }
  else
    {
      fprintf ( stderr,"bufr2tac: Unable to find bufrtables directory\n" );
      fprintf ( stderr,"    Please set the proper enviromnet 'BUFR_TABLES=my_bufrtables_dir' or\n" );
      fprintf ( stderr,"    use '-t' argument . i. e.'-t my_bufrtables_dir/'\n" );
      exit ( EXIT_FAILURE );
    }
  return 0;
}