File: big2gribex.cc

package info (click to toggle)
eccodes 2.45.4-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 154,456 kB
  • sloc: cpp: 162,953; ansic: 26,308; sh: 21,742; f90: 6,854; perl: 6,361; python: 5,172; java: 2,226; javascript: 1,427; yacc: 854; fortran: 543; lex: 359; makefile: 278; xml: 183; awk: 66
file content (72 lines) | stat: -rw-r--r-- 1,555 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
/*
 * (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 <stdio.h>
#include <stdlib.h>

#include "grib_api.h"

static void usage(const char* progname)
{
    printf("\nUsage: %s grib_in grib_out\n", progname);
    exit(1);
}

int main(int argc, char* argv[])
{
    grib_handle* h = NULL;
    FILE* inf      = NULL;
    FILE* ouf      = NULL;
    char* infile   = 0;
    char* oufile   = 0;
    int err        = 0;
    size_t size;
    const void* buffer = NULL;

    if (argc < 3)
        usage(argv[0]);
    infile = argv[1];
    oufile = argv[2];

    inf = fopen(infile, "r");
    if (!inf) {
        perror(infile);
        exit(1);
    }

    ouf = fopen(oufile, "w");
    if (!ouf) {
        perror(oufile);
        exit(1);
    }

    while ((h = grib_handle_new_from_file(0, inf, &err)) != NULL) {
        grib_update_sections_lengths(h);
        GRIB_CHECK(grib_get_message(h, &buffer, &size), 0);
        if (fwrite(buffer, 1, size, ouf) != size) {
            perror(oufile);
            exit(1);
        }
    }

    grib_handle_delete(h);

    if (fclose(inf)) {
        perror(infile);
        exit(1);
    }

    if (fclose(ouf)) {
        perror(oufile);
        exit(1);
    }

    return 0;
}