util.c

Go to the documentation of this file.

 
#include "grib2_int.h"
#include <stdarg.h>

EXTERN_MUTEX(m);

int
g2c_check_msg(unsigned char *cgrib, g2int *lencurr, int verbose, int from)
{
    unsigned char G = 0x47;     /* 'G' */
    unsigned char R = 0x52;     /* 'R' */
    unsigned char I = 0x49;     /* 'I' */
    unsigned char B = 0x42;     /* 'B' */
    unsigned char seven = 0x37; /* '7' */
 
    int iret = 0;
    static int last_from = 0; /* Keep last value of from arg */
 
    assert(cgrib && lencurr);
 
    /* Check to see if beginning of GRIB message exists. */
    if (cgrib[0] != G || cgrib[1] != R || cgrib[2] != I || cgrib[3] != B)
    {
        if (verbose)
            printf("GRIB not found in given message. A call to routine g2_create() "
                   "is required to to initialize GRIB messge.\n");
        /* Update last_from. */
        MUTEX_LOCK(m);
        last_from = from;
        MUTEX_UNLOCK(m);
        return G2C_ENOTGRIB;
    }
 
    /* Get current length of GRIB message. */
    gbit(cgrib, lencurr, 96, 32);
 
    /* Check to see if GRIB message is already complete. */
    if (cgrib[*lencurr - 4] == seven && cgrib[*lencurr - 3] == seven &&
        cgrib[*lencurr - 2] == seven && cgrib[*lencurr - 1] == seven)
    {
        /* Allow this to occur if this is called from g2_gribend (from = 4)
         * and previous call was from g2_addfield where last_from = 3. */
        if (from == 4 && last_from == 3)
        {
            iret = G2C_NOERROR;
        }
        else
        {
            if (verbose)
                printf("GRIB message already complete.  Cannot add new section.\n");
            iret = G2C_EMSGCOMPLETE;
        }
    }
 
    /* Update last_from. */
    MUTEX_LOCK(m);
    last_from = from;
    MUTEX_UNLOCK(m);
 
    return iret;
}
 
#ifdef LOGGING
/* This is the severity level of messages which will be logged. Use
   severity 0 for errors, 1 for important log messages, 2 for less
   important, etc. */
int g2_log_level = -1;
 
/* This function prints out a message, if the severity of
 * the message is lower than the global g2_log_level. To use it, do
 * something like this:
 *
 * g2_log(0, "this computer will explode in %d seconds", i);
 *
 * After the first arg (the severity), use the rest like a normal
 * printf statement. Output will appear on stderr.
 *
 * This function is not included in the build unless NCEPLIBS-g2c was
 * built with -DLOGGING.
 *
 * Ed Hartnett
 */
void
g2_log(int severity, const char *fmt, ...)
{
    va_list argp;
    int t;
    FILE *f = stderr;
 
    /* If the severity is greater than the log level, we don't print
     * this message. */
    if (severity > g2_log_level)
        return;
 
    /* If the severity is zero, this is an error. Otherwise insert that
       many tabs before the message. */
    if (!severity)
        fprintf(f, "ERROR: ");
    for (t = 0; t < severity; t++)
        fprintf(f, "\t");
 
    /* Print out the variable list of args with vprintf. */
    va_start(argp, fmt);
    vfprintf(f, fmt, argp);
    va_end(argp);
 
    /* Put on a final linefeed. */
    fprintf(f, "\n");
    fflush(f);
}
#endif /* LOGGING */

int
g2c_set_log_level(int new_level)
{
#ifdef LOGGING
    /* Remember the new level. */
    g2_log_level = new_level;
 
    LOG((1, "log_level changed to %d", g2_log_level));
#endif
    return G2C_NOERROR;
}