File: compatibility_ex.c

package info (click to toggle)
eccodes 2.45.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 154,404 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: 283; xml: 183; awk: 66
file content (78 lines) | stat: -rw-r--r-- 1,276 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
73
74
75
76
77
78
#include "test.h"

char buffer[1024*1024*80];

int main(int argc,char** argv)
{
  FILE *f;
  FILE* of;
  grib_handle  *h =  0;
  grib_context *gc = 0;
  int err;
  int option_flags =0;
  char* ofname;
  char* fname;
  char* mode="serialize";
  char* values_format="10%g";
  option_flags |= GRIB_DUMP_FLAG_VALUES;

  fname = argc > 1 ? argv[1]: "data" ;
  ofname=(char*)malloc(sizeof(char)*(strlen(fname)+6));
  sprintf(ofname,"%s.dump",fname);

  f = fopen(fname ,"r");
  if(!f) {
    perror(fname);
    exit(10);
  }

  if ((h = grib_handle_new_from_file(0,f,&err)) == NULL) {
   fclose( f);
   exit(1);
  }

  of = fopen(ofname ,"w");
  if(!of) {
    perror(ofname);
    exit(10);
  }

  grib_dump_content(h,of,mode,option_flags,values_format);

  grib_handle_delete(h);

  if(fclose(of)) {
    perror(ofname);
    exit(1);
  }

  of = fopen(ofname ,"r");
  if(!of) {
    perror(ofname);
    exit(10);
  }

  gc = grib_context_get_default();
  h=grib_handle_new(gc);
  if (!h) {
   printf("Error: unable to create handle\n");
   exit(1);
  }

  GRIB_CHECK(grib_load_from_text_file(h,of),ofname);

  if(fclose(of)) {
    perror(ofname);
    exit(1);
  }

  /* unlink(ofname);*/

  if(compare_with_gribex(h))
    exit(1);

  grib_handle_delete(h);

  fclose( f);
  exit(0);
}