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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
/*
* (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 "grib_api_internal.h"
typedef struct list
{
char path[1024];
char name[1024];
struct list* next;
} list;
int main(int argc, char* argv[])
{
int i = 0;
int j = 0;
int fail = 0;
grib_compiler compiler = {
0,
};
grib_context* c = grib_context_get_default();
grib_action* a;
list* first = NULL;
list* l = NULL;
compiler.out = stdout;
compiler.max = 4096;
printf("#include \"grib_api_internal.h\"\n\n");
for (i = 1; i < argc; i++) {
char name[1024];
const char* p = argv[i];
const char* path;
while (*p && strncmp(p, "definitions", strlen("definitions")))
p++;
path = p;
strcpy(name, "grib_");
j = strlen(name);
while (*p) {
if (isalnum(*p)) {
name[j++] = *p;
}
else {
name[j++] = '_';
}
p++;
}
name[j++] = 0;
printf("static grib_action* %s(grib_context *ctx) {\n", name);
printf("grib_action* a[%d] = {0,};\n\n", compiler.max);
printf("grib_action* b[%d] = {0,};\n\n", compiler.max);
compiler.cnt = 0;
printf("/* %s */\n", path);
if (!(a = grib_parse_file(c, argv[i]))) {
fail++;
exit(1);
}
else {
grib_compile_action_branch(a, &compiler, NULL);
}
printf("return a[0];\n");
printf("}\n");
l = calloc(sizeof(list), 1);
l->next = first;
strcpy(l->name, name);
strcpy(l->path, path);
first = l;
}
printf("void grib_load_compiled_definitions(grib_context* ctx){\n");
printf("grib_action_file* af;\n");
printf("ctx = ctx ? ctx : grib_context_get_default();\n\n");
printf("if(!ctx->grib_reader)\n");
printf(" ctx->grib_reader =(grib_action_file_list*)grib_context_malloc_clear_persistent(ctx,sizeof(grib_action_file_list));");
while (l) {
printf("af =(grib_action_file*)grib_context_malloc_clear_persistent(ctx,sizeof(grib_action_file));\n");
printf("af->root = %s(ctx);\n", l->name);
printf("af->filename = grib_context_strdup_persistent(ctx,\"COMPILED/%s\");\n", l->path);
printf("grib_push_action_file(af,ctx->grib_reader);\n\n");
l = l->next;
}
printf("}\n");
printf("int main(int argc,char* argv[]) {grib_load_compiled_definitions(0);return 0 ;}\n");
return fail;
}
|
