bufrdeco_tableC.c File Reference

file with the code to read table C data (code and flag tables) More...

#include "bufrdeco.h"

Include dependency graph for bufrdeco_tableC.c:

Go to the source code of this file.

Functions
int	bufr_read_tableC (struct bufrdeco *b)
	Reads a file with table C content (Code table and bit flags) according with csv WMO format. More...
int	bufr_find_tableC_csv_index (buf_t *index, struct bufr_tableC *tc, const char *key, uint32_t code)
char *	bufrdeco_explained_table_val (char *expl, size_t dim, struct bufr_tableC *tc, uint32_t *index, struct bufr_descriptor *d, uint32_t ival)
char *	bufrdeco_explained_flag_val (char *expl, size_t dim, struct bufr_tableC *tc, struct bufr_descriptor *d, uint64_t ival, uint8_t nbits)

Detailed Description

file with the code to read table C data (code and flag tables)

Definition in file bufrdeco_tableC.c.

Function Documentation

bufr_find_tableC_csv_index()

int bufr_find_tableC_csv_index	(	buf_t *	index,
		struct bufr_tableC *	tc,
		const char *	key,
		uint32_t	code
	)

Definition at line 134 of file bufrdeco_tableC.c.

{
  uint32_t ix;
  buf_t i, i0;
  char *c;
  struct bufr_descriptor desc;
 
  bufrdeco_assert ( tc != NULL && index != NULL );
  
  ix = strtoul ( key, &c, 10 );
  uint32_t_to_descriptor ( &desc, ix );
  i0 = tc->x_start[desc.x];
  for ( i = i0 ; i < i0 + tc->num[desc.x] ; i++ )
    {
      if ( tc->item[i].y == desc.y && tc->item[i].ival == code )
        {
          *index = i;
          return 0; // found
        }
    }
  return 1; // not found
}

References bufrdeco_assert, bufr_descriptor::c, bufr_tableC::item, bufr_tableC_decoded_item::ival, bufr_tableC::num, uint32_t_to_descriptor(), bufr_descriptor::x, bufr_tableC::x_start, bufr_descriptor::y, and bufr_tableC_decoded_item::y.

Referenced by bufrdeco_explained_table_val().

Here is the call graph for this function:

Here is the caller graph for this function:

bufr_read_tableC()

int bufr_read_tableC

(

struct bufrdeco *

b

)

Reads a file with table C content (Code table and bit flags) according with csv WMO format.

Parameters

b	pointer to a target struct bufrdeco

Returns

0 if success, 1 otherwise

Definition at line 33 of file bufrdeco_tableC.c.

{
  char *c;
  //size_t  used = 0;
  FILE *t;
  int nt;
  uint32_t ix;
  buf_t i = 0;
  struct bufr_descriptor desc;
  struct bufr_tableC *tc;
  char *tk[16];
  char caux[256], l[CSV_MAXL];
 
  //bufrdeco_assert ( b != NULL );
  
  tc = & ( b->tables->c );
  
  if ( tc->path[0] == 0 )
    {
      return 1;
    }
 
  // If we've already readed this table.
  if ( strcmp ( tc->path, tc->old_path ) == 0 )
    {
#ifdef __DEBUG      
      printf ("# Reused table %s\n", tc->path);
#endif      
      return 0; // all done
    }
 
  strcpy ( caux, tc->path );
  memset ( tc, 0, sizeof ( struct bufr_tableC ) );
  strcpy ( tc->path, caux );
  if ( ( t = fopen ( tc->path, "r" ) ) == NULL )
    {
      snprintf ( b->error, sizeof ( b->error ),"Unable to open table C file '%s'\n", tc->path );
      return 1;
    }
 
  // read first line, it is ignored
  fgets ( l, CSV_MAXL, t );
 
  while ( fgets ( l, CSV_MAXL, t ) != NULL && i < BUFR_MAXLINES_TABLEC )
    {
 
      // Parse line
      if ( parse_csv_line ( &nt, tk, l ) < 0 || nt != 6 )
        {
          snprintf ( b->error, sizeof ( b->error ),"Error parsing csv line from table C file '%s'. Found %d fields in line %u \n", tc->path, nt, i );
          return 1;
        }
 
      // Check if code contains other than non-numeric i.e. 'All' or '-'
      // In this case, the line is ignored
      if ( tk[1][0] == 0 || strchr ( tk[1], '-' ) != NULL || strstr ( tk[1], "All" ) != NULL )
        continue;
 
      // Key
      // First we build the descriptor
      ix = strtoul ( tk[0], &c, 10 );
      uint32_t_to_descriptor ( &desc, ix );
      strcpy ( tc->item[i].key, tk[0] );
      tc->item[i].x = desc.x;
      tc->item[i].y = desc.y;
 
      // Integer value
      tc->item[i].ival = strtoul ( tk[1], &c, 10 );
 
      // Description
      c = & tc->item[i].description[0];
      snprintf ( c, BUFR_EXPLAINED_LENGTH, "%s %s %s %s", tk[2], tk[3], tk[4], tk[5] );
 
      if ( tc->num[desc.x] == 0 )
        {
          tc->x_start[desc.x] = i;  // marc the start
        }
      if ( tc->y_ref[desc.x][desc.y] == 0 )
        {
          tc->y_ref[desc.x][desc.y] = i - tc->x_start[desc.x]; // marc the position from start of first x
        }
      ( tc->num[desc.x] ) ++;
      i++;
    }
  fclose ( t );
  tc->nlines = i;
  tc->wmo_table = 1;
  strcpy ( tc->old_path, tc->path ); // store latest path
  return 0;
}

References BUFR_EXPLAINED_LENGTH, BUFR_MAXLINES_TABLEC, bufr_tables::c, CSV_MAXL, bufr_tableC_decoded_item::description, bufrdeco::error, bufr_tableC::item, bufr_tableC_decoded_item::ival, bufr_tableC_decoded_item::key, bufr_tableC::nlines, bufr_tableC::num, bufr_tableC::old_path, parse_csv_line(), bufr_tableC::path, bufrdeco::tables, uint32_t_to_descriptor(), bufr_tableC::wmo_table, bufr_descriptor::x, bufr_tableC_decoded_item::x, bufr_tableC::x_start, bufr_descriptor::y, bufr_tableC_decoded_item::y, and bufr_tableC::y_ref.

Referenced by bufr_read_tables().

Here is the call graph for this function:

Here is the caller graph for this function:

bufrdeco_explained_flag_val()

char * bufrdeco_explained_flag_val	(	char *	expl,
		size_t	dim,
		struct bufr_tableC *	tc,
		struct bufr_descriptor *	d,
		uint64_t	ival,
		uint8_t	nbits
	)

Definition at line 200 of file bufrdeco_tableC.c.

{
  size_t used = 0;
  uint64_t test, test0;
  uint64_t v;
  size_t i, j;
 
  bufrdeco_assert ( tc != NULL && expl != NULL && d != NULL);
 
  if ( tc->num[d->x] == 0 )
    {
      //printf("Descriptor %s No encontrado\n", d->c);
      return NULL;
    }
 
  // First line for descriptor
  i = tc->x_start[d->x] + tc->y_ref[d->x][d->y];
 
  // init description
  expl[0] = '\0';
 
  for ( j = 0, test0 = 1 ; j < nbits && ( tc->item[i].x == d->x ) && ( tc->item[i].y == d->y ) ; i++ )
    {
      v = tc->item[i].ival; // v is the bit number
      j++;
 
      // case 0 with meaning
      if ( v == 0 )
        {
          test0 = 1;
          if ( ival == 0 )
            {
              used += snprintf ( expl + used, dim - used, "|" );
              used += snprintf ( expl + used, dim - used, "%s", tc->item[i].description );
              return expl;
            }
        }
 
      test = test0 << ( nbits - v );
 
      if ( v && ( test & ival ) != 0 )
        {
          used += snprintf ( expl + used, dim - used, "|" );
          used += snprintf ( expl + used, dim - used, "%s", tc->item[i].description );
        }
      else
        {
          continue;
        }
      //printf ( "%s\n", expl );
    }
  // if match then we have finished the search
  return expl;
}

References bufrdeco_assert, bufr_tableC_decoded_item::description, bufr_tableC::item, bufr_tableC_decoded_item::ival, bufr_tableC::num, bufr_descriptor::x, bufr_tableC_decoded_item::x, bufr_tableC::x_start, bufr_descriptor::y, bufr_tableC_decoded_item::y, and bufr_tableC::y_ref.

Referenced by bufrdeco_get_atom_data_from_compressed_data_ref(), and bufrdeco_tableB_val().

Here is the caller graph for this function:

bufrdeco_explained_table_val()

char * bufrdeco_explained_table_val	(	char *	expl,
		size_t	dim,
		struct bufr_tableC *	tc,
		uint32_t *	index,
		struct bufr_descriptor *	d,
		uint32_t	ival
	)

Definition at line 168 of file bufrdeco_tableC.c.

{
  buf_t i;
 
  bufrdeco_assert ( tc != NULL && expl != NULL && index != NULL && d != NULL);
  
  if ( bufr_find_tableC_csv_index ( &i, tc, d->c, ival ) )
    {
      return NULL; // descritor not found
    }
 
  // here the calling b item learn where to find first table C struct for a given x and y.
  *index = tc->x_start[d->x] + tc->y_ref[d->x][d->y];
 
  strncpy_safe ( expl, tc->item[i].description, dim );
  return expl;
}

References bufr_find_tableC_csv_index(), bufrdeco_assert, bufr_descriptor::c, bufr_tableC_decoded_item::description, bufr_tableC::item, strncpy_safe, bufr_descriptor::x, bufr_tableC::x_start, bufr_descriptor::y, and bufr_tableC::y_ref.

Referenced by bufrdeco_get_atom_data_from_compressed_data_ref(), and bufrdeco_tableB_val().

Here is the call graph for this function:

Here is the caller graph for this function: