eccodes/tests/grib_check_param_concepts.c

/*
 * (C) Copyright 2005- ECMWF.
 *
 * This software is licensed under the terms of the Apache Licence Version 2.0
 * which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
 *
 * In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
 * virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
 */

#include <assert.h>
#include "grib_api_internal.h"

typedef struct grib_expression_long
{
    grib_expression base;
    /* Members defined in long */
    long value;
} grib_expression_long;

typedef struct grib_expression_functor
{
    grib_expression base;
    /* Members defined in functor */
    char* name;
    grib_arguments* args;
} grib_expression_functor;

typedef struct grib_expression_string
{
    grib_expression base;
    /* Members defined in string */
    char* value;
} grib_expression_string;

static int grib_check_param_concepts(const char* key, const char* filename)
{
    grib_concept_value* concept_value = grib_parse_concept_file(NULL, filename);
    while (concept_value) {
        grib_concept_condition* concept_condition = concept_value->conditions;
        int scaleFactor1Missing = 0, scaleFactor2Missing = 0;
        int scaledValue1Missing = 0, scaledValue2Missing = 0;
        int err = 0;
        /* concept_value->name is the value of the key e.g. 151163 */
        while (concept_condition) {
            char condition_value[512] = {0,};
            grib_expression* expression = concept_condition->expression;
            const char* condition_name  = concept_condition->name;
            /* condition_name is discipline, parameterCategory etc. */
            if (strcmp(expression->cclass->name,"long")==0) {
                grib_expression_long* el = (grib_expression_long*)expression;
                sprintf(condition_value, "%ld", el->value);
            } else if(strcmp(expression->cclass->name,"functor")==0) {
                grib_expression_functor* ef = (grib_expression_functor*)expression;
                sprintf(condition_value, "%s", ef->name);
            } else if(strcmp(expression->cclass->name,"string")==0) {
                grib_expression_string* es = (grib_expression_string*)expression;
                sprintf(condition_value, "%s", es->value);
            } else {
                Assert(0);
            }
            if (strcmp(condition_name, "scaleFactorOfFirstFixedSurface")==0) {
                /* scale factor is one octet so 255 is the same as missing */
                if (strcmp(condition_value,"missing")==0 || strcmp(condition_value,"255")==0)
                    scaleFactor1Missing = 1;
            }
            if (strcmp(condition_name, "scaleFactorOfSecondFixedSurface")==0) {
                if (strcmp(condition_value,"missing")==0 || strcmp(condition_value,"255")==0)
                    scaleFactor2Missing = 1;
            }
            if (strcmp(condition_name, "scaledValueOfFirstFixedSurface")==0 && strcmp(condition_value,"missing")==0)
                scaledValue1Missing = 1;
            if (strcmp(condition_name, "scaledValueOfSecondFixedSurface")==0 && strcmp(condition_value,"missing")==0)
                scaledValue2Missing = 1;

            concept_condition = concept_condition->next;
        }
        /* Now check the scale factor/value pairs */
        if (scaleFactor1Missing && !scaledValue1Missing) err = 1;
        if (!scaleFactor1Missing && scaledValue1Missing) err = 1;
        if (scaleFactor2Missing && !scaledValue2Missing) err = 1;
        if (!scaleFactor2Missing && scaledValue2Missing) err = 1;
        if (err) {
            fprintf(stderr, "Error: Mismatched scale factor, scaled value keys for %s='%s'.\n"
                            "       If the scale factor is missing so should the scaled value and vice versa\n",
                    key, concept_value->name);
            return GRIB_INVALID_KEY_VALUE;
        }
        concept_value = concept_value->next;
    }
    return GRIB_SUCCESS;
}

int main(int argc, char** argv)
{
    int err = 0;
    const char* concepts_key = argv[1];
    const char* concepts_filename = argv[2];
    
    assert(argc == 3);
    err = grib_check_param_concepts(concepts_key, concepts_filename);
    if (err) return err;

    printf("ALL OK\n");

    return 0;
}