2019-09-20 17:30:06 +00:00
|
|
|
/*
|
|
|
|
* Copyright 2005-2019 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 "grib_api_internal.h"
|
|
|
|
#include "eccodes.h"
|
|
|
|
#include <assert.h>
|
|
|
|
|
|
|
|
int main(int argc,char* argv[])
|
|
|
|
{
|
|
|
|
char* filename;
|
|
|
|
int i, err = 0;
|
|
|
|
int num_messages = 0;
|
|
|
|
codes_bufr_header* headers = NULL;
|
|
|
|
codes_context* c = codes_context_get_default();
|
|
|
|
|
|
|
|
assert(argc == 2);
|
|
|
|
|
2019-09-23 14:08:24 +00:00
|
|
|
filename = argv[1];
|
2019-09-20 17:30:06 +00:00
|
|
|
err = codes_bufr_extract_headers_malloc(c, filename, &headers, &num_messages);
|
|
|
|
assert(!err);
|
|
|
|
|
|
|
|
for (i=0; i<num_messages; ++i) {
|
|
|
|
codes_bufr_header bh = headers[i];
|
2019-09-23 14:08:24 +00:00
|
|
|
/*
|
|
|
|
* Mimic the behaviour of bufr_get -f -p keys
|
|
|
|
* for testing
|
|
|
|
*/
|
|
|
|
const int has_ecmwf_local = (bh.localSectionPresent == 1 && bh.bufrHeaderCentre == 98);
|
|
|
|
char rdbTypeStr[32] = "not_found";
|
|
|
|
if (has_ecmwf_local) sprintf(rdbTypeStr, "%ld", bh.rdbType);
|
2019-09-23 16:28:38 +00:00
|
|
|
printf("%ld %lu %ld %ld %ld %ld %s %lu %ld\n",
|
2019-09-20 17:30:06 +00:00
|
|
|
bh.edition, bh.totalLength, bh.dataCategory,
|
2019-09-23 14:08:24 +00:00
|
|
|
bh.masterTablesVersionNumber,
|
|
|
|
bh.typicalMonth, bh.typicalDay,
|
2019-09-23 16:28:38 +00:00
|
|
|
rdbTypeStr, bh.numberOfSubsets, bh.compressedData);
|
2019-09-24 12:19:28 +00:00
|
|
|
/*printf("ident=|%s|\n", bh.ident);*/
|
2019-09-20 17:30:06 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
free(headers);
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|