bufr2tac_tablec.c File Reference

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

#include "bufr2tac.h"

Include dependency graph for bufr2tac_tablec.c:

Go to the source code of this file.

Functions
char *	get_ecmwf_tablename (char *target, char type, char *bufrtables_dir, int ksec1[40])
	Get the complete pathname of a table file needed by a bufr message. More...
int	read_table_c (char tablec[MAXLINES_TABLEC][92], size_t *nlines_tablec, char *bufrtables_dir, int ksec1[40])
char *	get_explained_table_val (char *expl, size_t dim, char tablec[MAXLINES_TABLEC][92], size_t nlines_tablec, struct bufr_descriptor *d, int ival)
char *	get_explained_flag_val (char *expl, size_t dim, char tablec[MAXLINES_TABLEC][92], size_t nlines_tablec, struct bufr_descriptor *d, unsigned long ival)

Detailed Description

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

Definition in file bufr2tac_tablec.c.

Function Documentation

get_ecmwf_tablename()

char * get_ecmwf_tablename	(	char *	target,
		char	type,
		char *	bufrtables_dir,
		int	ksec1[40]
	)

Get the complete pathname of a table file needed by a bufr message.

Parameters

target	the resulting name
type	a char with type, i.e, 'B', 'C', or 'D'
bufrtables_dir	string with path to bufr file tables dir
ksec1	array of integer processed prevoiously by ecmwf bufr library In ECMWF library the name of a table file is Kssswwwwwxxxxxyyyzzz.TXT , where K - type of table, i.e, 'B', 'C', or 'D' sss - Master table number (zero for WMO meteorological tables) wwwww - Originating sub-centre xxxxx - Originating centre yyy - Version number of master table used zzz - Version number of local table used

If standard WMO tables are used, the Originating centre xxxxx will be set to

Definition at line 43 of file bufr2tac_tablec.c.

{
  if ( 0 )
    {
      if ( ksec1[13] != 0 ) // case of not WMO tables
        sprintf ( target,"%s%c%03d%05d%05d%03d%03d.TXT", bufrtables_dir, type, ksec1[13], ksec1[15], ksec1[2], ksec1[14], ksec1[7] );
      else
        sprintf ( target,"%s%c000%05d00000%03d%03d.TXT", bufrtables_dir, type, ksec1[15], ksec1[14], ksec1[7] );
    }
  else
    {
      //FIXME Some countries uses latest C tables instead of the version they said in bufr
      sprintf ( target,"%s%c0000000000000019000.TXT", bufrtables_dir, type );
    }
  return target;
}

Referenced by read_table_c().

Here is the caller graph for this function:

get_explained_flag_val()

char * get_explained_flag_val	(	char *	expl,
		size_t	dim,
		char	tablec[MAXLINES_TABLEC][92],
		size_t	nlines_tablec,
		struct bufr_descriptor *	d,
		unsigned long	ival
	)

Definition at line 181 of file bufr2tac_tablec.c.

{
  char *c, *s;
  unsigned long test, test0;
  unsigned long nb, nx, v,  nl;
  size_t i, j;
 
  // Find first line for descriptor
  for ( i = 0; i <  nlines_tablec; i++ )
    {
      if ( tablec[i][0] != d->c[0] ||
           tablec[i][1] != d->c[1] ||
           tablec[i][2] != d->c[2] ||
           tablec[i][3] != d->c[3] ||
           tablec[i][4] != d->c[4] ||
           tablec[i][5] != d->c[5] )
        continue;
      else
        break;
    }
 
  if ( i == nlines_tablec )
    {
      //printf("Descriptor %s No encontrado\n", d->c);
      return NULL;
    }
  //printf("Descriptor %s en linea %d\n", d->c, i);
 
  // reads the amount of possible bits
  if ( tablec[i][7] != ' ' )
    nb = strtol ( &tablec[i][7], &c, 10 );
  else
    return NULL;
 
  // read a value
  s = expl;
  s[0] = '\0';
 
  for ( j = 0, test0 = 2; j < nb && i < nlines_tablec ; i++ )
    {
      if ( tablec[i][12] != ' ' )
        {
          v = strtol ( &tablec[i][12], &c, 10 ); // v is the bit number
          j++;
 
          // case 0 with meaning
          if ( v == 0 )
            {
              test0 = 1;
              if ( ival == 0 )
                {
                  nl = strtol ( &tablec[i][21], &c, 10 );
                  if ( strlen ( expl ) && ( strlen ( expl ) + 1 ) < dim )
                    s += sprintf ( s, "|" );
                  s += sprintf ( s,"%s", &tablec[i][24] );
                  if ( nl > 1 )
                    {
                      for ( nx = 1 ; nx < nl; nx++ )
                        if ( ( strlen ( expl ) + strlen ( &tablec[i + nx][22] ) )  < dim )
                          {
                            s += sprintf ( s, "%s", &tablec[i + nx][22] );
                          }
                    }
                  return expl;
                }
            }
 
          test = test0 << ( nb - v );
 
          if ( v && ( test & ival ) != 0 )
            {
              // bit match
              // read how many lines for the descriptors
              nl = strtol ( &tablec[i][21], &c, 10 );
              if ( strlen ( expl ) && ( strlen ( expl ) + 1 ) < dim )
                s += sprintf ( s, "|" );
              s += sprintf ( s,"%s", &tablec[i][24] );
              if ( nl > 1 )
                {
                  for ( nx = 1 ; nx < nl; nx++ )
                    if ( ( strlen ( expl ) + strlen ( &tablec[i + nx][22] ) )  < dim )
                      {
                        s += sprintf ( s, "%s", &tablec[i + nx][22] );
                      }
                }
 
            }
          else
            continue;
        }
    }
 
  // if match then we have finished the search
 
  return expl;
}

References bufr_descriptor::c.

get_explained_table_val()

char * get_explained_table_val	(	char *	expl,
		size_t	dim,
		char	tablec[MAXLINES_TABLEC][92],
		size_t	nlines_tablec,
		struct bufr_descriptor *	d,
		int	ival
	)

Definition at line 103 of file bufr2tac_tablec.c.

{
  char *c;
  long nv, v,  nl;
  size_t i, j;
 
  // Find first line for descriptor
  for ( i = 0; i <  nlines_tablec; i++ )
    {
      if ( tablec[i][0] != d->c[0] ||
           tablec[i][1] != d->c[1] ||
           tablec[i][2] != d->c[2] ||
           tablec[i][3] != d->c[3] ||
           tablec[i][4] != d->c[4] ||
           tablec[i][5] != d->c[5] )
        continue;
      else
        break;
    }
 
  if ( i == nlines_tablec )
    {
      //printf("Descriptor %s No encontrado\n", d->c);
      return NULL;
    }
  //printf("Descriptor %s en linea %d\n", d->c, i);
 
  // reads the amount of possible values
  if ( tablec[i][7] != ' ' )
    nv = strtol ( &tablec[i][7], &c, 10 );
  else
    return NULL;
 
  // read a value
  for ( j = 0; ( long ) j < nv && i < nlines_tablec ; i++ )
    {
      if ( tablec[i][12] != ' ' )
        {
          v = strtol ( &tablec[i][12], &c, 10 );
          j++;
          if ( v != ival )
            continue;
          break;
        }
    }
 
  if ( ( long ) j == nv || i == nlines_tablec )
    return NULL; // Value not found
 
  // read how many lines for the descriptors
  nl = strtol ( &tablec[i][21], &c, 10 );
 
 
  // if match then we have finished the search
  strcpy ( expl, &tablec[i][24] );
  if ( nl > 1 )
    {
      for ( nv = 1 ; nv < nl; nv++ )
        if ( ( strlen ( expl ) + strlen ( &tablec[i + nv][22] ) ) < dim )
          strcat ( expl, &tablec[i + nv][22] );
    }
 
  return expl;
}

References bufr_descriptor::c.

read_table_c()

int read_table_c	(	char	tablec[MAXLINES_TABLEC][92],
		size_t *	nlines_tablec,
		char *	bufrtables_dir,
		int	ksec1[40]
	)

Definition at line 64 of file bufr2tac_tablec.c.

{
  char *c, file[256];
  FILE *t;
  size_t i = 0;
 
  *nlines_tablec = 0;
 
  get_ecmwf_tablename ( &file[0], 'C', bufrtables_dir, ksec1 );
 
  if ( ( t = fopen ( file, "r" ) ) == NULL )
    {
      fprintf ( stderr,"Unable to open table C file '%s'\n", file );
      return 0;
    }
 
  while ( fgets ( tablec[i], 90, t ) != NULL && i < MAXLINES_TABLEC )
    {
      // supress the newline
      if ( ( c = strrchr ( tablec[i],'\n' ) ) != NULL )
        *c = '\0';
      i++;
    }
  fclose ( t );
  *nlines_tablec = i;
  //printf("file='%s', NLINES_TABLEC=%d\n", file,NLINES_TABLEC);
  return i;
}

References get_ecmwf_tablename(), and MAXLINES_TABLEC.

Here is the call graph for this function: