]>
Commit | Line | Data |
---|---|---|
92d82357 | 1 | /****************************************************************************** |
2 | * Genevent | |
3 | * | |
4 | * Event generator. XML to logging C code converter. | |
5 | * | |
6 | * Program parameters : | |
7 | * ./genevent name.xml | |
8 | * | |
9 | * Will generate ltt-facility-name.h, ltt-facility-id-name.h | |
10 | * ltt-facility-loader-name.c, ltt-facility-loader-name.h | |
11 | * in the current directory. | |
12 | * | |
13 | * Supports : | |
14 | * - C Alignment | |
15 | * - C types : struct, union, enum, basic types. | |
16 | * - Architectures : LP32, ILP32, ILP64, LLP64, LP64. | |
17 | * | |
18 | * Additionnal structures supported : | |
19 | * - embedded variable size strings | |
20 | * - embedded variable size arrays | |
21 | * - embedded variable size sequences | |
22 | * | |
23 | * Notes : | |
24 | * (1) | |
25 | * enums are limited to integer type, as this is what is used in C. Note, | |
26 | * however, that ISO/IEC 9899:TC2 specify that the type of enum can be char, | |
27 | * unsigned int or int. This is implementation defined (compiler). That's why we | |
28 | * add a check for sizeof enum. | |
29 | * | |
30 | * (2) | |
31 | * Because of archtecture defined type sizes, we need to ask for ltt_align | |
32 | * (which gives the alignment) by passing basic types, not their actual sizes. | |
33 | * It's up to ltt_align to determine sizes of types. | |
34 | * | |
35 | * Note that, from | |
36 | * http://www.usenix.org/publications/login/standards/10.data.html | |
37 | * (Andrew Josey <a.josey@opengroup.org>) : | |
38 | * | |
39 | * Data Type LP32 ILP32 ILP64 LLP64 LP64 | |
40 | * char 8 8 8 8 8 | |
41 | * short 16 16 16 16 16 | |
42 | * int32 32 | |
43 | * int 16 32 64 32 32 | |
44 | * long 32 32 64 32 64 | |
45 | * long long (int64) 64 | |
46 | * pointer 32 32 64 64 64 | |
47 | * | |
48 | * With these constraints : | |
49 | * sizeof(char) <= sizeof(short) <= sizeof(int) | |
50 | * <= sizeof(long) = sizeof(size_t) | |
51 | * | |
52 | * and therefore sizeof(long) <= sizeof(pointer) <= sizeof(size_t) | |
53 | * | |
54 | * Which means we only have to remember which is the biggest type in a structure | |
55 | * to know the structure's alignment. | |
56 | */ | |
57 | ||
2d2d14a7 | 58 | #define _GNU_SOURCE |
59 | #include <limits.h> | |
60 | #include <stdlib.h> | |
92d82357 | 61 | #include <errno.h> |
62 | #include <sys/types.h> | |
63 | #include <sys/stat.h> | |
64 | #include <fcntl.h> | |
65 | #include <stdio.h> | |
66 | #include <string.h> | |
67 | #include <unistd.h> | |
2d2d14a7 | 68 | #include <assert.h> |
92d82357 | 69 | |
70 | #include "genevent.h" | |
71 | #include "parser.h" | |
72 | ||
73 | ||
74 | #define TRUE 1 | |
75 | #define FALSE (!TRUE) | |
76 | ||
2d2d14a7 | 77 | /* Debugging printf */ |
78 | #ifdef DEBUG | |
79 | #define dprintf(...) \ | |
80 | do {\ | |
81 | printf(__FILE__ ",%u,%s: ",\ | |
82 | __LINE__, __func__);\ | |
83 | printf(__VA_ARGS__);\ | |
84 | } while(0) | |
85 | #else | |
86 | #define dprintf(...) | |
87 | #endif | |
88 | ||
92d82357 | 89 | /* Code printing */ |
90 | ||
2d2d14a7 | 91 | void print_tabs(unsigned int tabs, FILE *fd) |
92 | { | |
93 | for(unsigned int i = 0; i<tabs;i++) | |
94 | fprintf(fd, "\t"); | |
95 | } | |
96 | ||
2d2d14a7 | 97 | /* print type. |
98 | * | |
99 | * Copied from construct_types_and_fields in LTTV facility.c */ | |
100 | ||
101 | int print_type(type_descriptor_t * td, FILE *fd, unsigned int tabs, | |
102 | char *nest_name, char *field_name) | |
103 | { | |
104 | char basename[PATH_MAX]; | |
105 | unsigned int basename_len = 0; | |
106 | ||
107 | strcpy(basename, nest_name); | |
108 | basename_len = strlen(basename); | |
109 | ||
110 | /* For a named type, we use the type_name directly */ | |
111 | if(td->type_name != NULL) { | |
112 | strncpy(basename, td->type_name, PATH_MAX); | |
113 | basename_len = strlen(basename); | |
114 | } else { | |
115 | /* For a unnamed type, there must be a field name */ | |
7b175edc | 116 | if((basename_len != 0) |
117 | && (basename[basename_len-1] != '_') | |
118 | && (field_name[0] != '\0')) { | |
2d2d14a7 | 119 | strncat(basename, "_", PATH_MAX - basename_len); |
120 | basename_len = strlen(basename); | |
121 | } | |
122 | strncat(basename, field_name, PATH_MAX - basename_len); | |
123 | } | |
124 | ||
125 | switch(td->type) { | |
126 | case INT_FIXED: | |
127 | fprintf(fd, "%s", intOutputTypes[getSizeindex(td->size)]); | |
128 | break; | |
129 | case UINT_FIXED: | |
130 | fprintf(fd, "%s", uintOutputTypes[getSizeindex(td->size)]); | |
131 | break; | |
132 | case CHAR: | |
133 | fprintf(fd, "signed char"); | |
134 | break; | |
135 | case UCHAR: | |
136 | fprintf(fd, "unsigned char"); | |
137 | break; | |
138 | case SHORT: | |
139 | fprintf(fd, "short"); | |
140 | break; | |
141 | case USHORT: | |
142 | fprintf(fd, "unsigned short"); | |
143 | break; | |
144 | case INT: | |
145 | fprintf(fd, "int"); | |
146 | break; | |
147 | case UINT: | |
148 | fprintf(fd, "unsigned int"); | |
149 | break; | |
150 | case FLOAT: | |
151 | fprintf(fd, "%s", floatOutputTypes[getSizeindex(td->size)]); | |
152 | break; | |
153 | case POINTER: | |
458989d8 | 154 | fprintf(fd, "const void *"); |
2d2d14a7 | 155 | break; |
156 | case LONG: | |
157 | fprintf(fd, "long"); | |
158 | break; | |
159 | case ULONG: | |
160 | fprintf(fd, "unsigned long"); | |
161 | break; | |
162 | case SIZE_T: | |
163 | fprintf(fd, "size_t"); | |
164 | break; | |
165 | case SSIZE_T: | |
166 | fprintf(fd, "ssize_t"); | |
167 | break; | |
168 | case OFF_T: | |
169 | fprintf(fd, "off_t"); | |
170 | break; | |
171 | case STRING: | |
3d9b9b0c | 172 | fprintf(fd, "const char *"); |
2d2d14a7 | 173 | break; |
174 | case ENUM: | |
175 | fprintf(fd, "enum lttng_%s", basename); | |
176 | break; | |
177 | case ARRAY: | |
178 | fprintf(fd, "lttng_array_%s", basename); | |
179 | break; | |
180 | case SEQUENCE: | |
181 | fprintf(fd, "lttng_sequence_%s", basename); | |
182 | break; | |
183 | case STRUCT: | |
184 | fprintf(fd, "struct lttng_%s", basename); | |
185 | break; | |
186 | case UNION: | |
187 | fprintf(fd, "union lttng_%s", basename); | |
188 | break; | |
189 | default: | |
190 | printf("print_type : unknown type\n"); | |
191 | return 1; | |
192 | } | |
193 | ||
194 | return 0; | |
195 | } | |
196 | ||
7e97b039 | 197 | /* Print logging function argument */ |
198 | int print_arg(type_descriptor_t * td, FILE *fd, unsigned int tabs, | |
199 | char *nest_name, char *field_name) | |
200 | { | |
201 | char basename[PATH_MAX]; | |
202 | unsigned int basename_len = 0; | |
203 | ||
204 | strcpy(basename, nest_name); | |
205 | basename_len = strlen(basename); | |
206 | ||
207 | /* For a named type, we use the type_name directly */ | |
208 | if(td->type_name != NULL) { | |
209 | strncpy(basename, td->type_name, PATH_MAX); | |
210 | basename_len = strlen(basename); | |
211 | } else { | |
212 | /* For a unnamed type, there must be a field name */ | |
213 | if((basename_len != 0) | |
214 | && (basename[basename_len-1] != '_') | |
215 | && (field_name[0] != '\0')) { | |
216 | strncat(basename, "_", PATH_MAX - basename_len); | |
217 | basename_len = strlen(basename); | |
218 | } | |
219 | strncat(basename, field_name, PATH_MAX - basename_len); | |
220 | } | |
221 | ||
222 | print_tabs(tabs, fd); | |
223 | ||
224 | switch(td->type) { | |
225 | case INT_FIXED: | |
226 | fprintf(fd, "%s", intOutputTypes[getSizeindex(td->size)]); | |
3ace7bc4 | 227 | fprintf(fd, "lttng_param_%s", field_name); |
7e97b039 | 228 | break; |
229 | case UINT_FIXED: | |
230 | fprintf(fd, "%s", uintOutputTypes[getSizeindex(td->size)]); | |
3ace7bc4 | 231 | fprintf(fd, "lttng_param_%s", field_name); |
7e97b039 | 232 | break; |
233 | case CHAR: | |
234 | fprintf(fd, "signed char"); | |
3ace7bc4 | 235 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 236 | break; |
237 | case UCHAR: | |
238 | fprintf(fd, "unsigned char"); | |
3ace7bc4 | 239 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 240 | break; |
241 | case SHORT: | |
242 | fprintf(fd, "short"); | |
3ace7bc4 | 243 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 244 | break; |
245 | case USHORT: | |
246 | fprintf(fd, "unsigned short"); | |
3ace7bc4 | 247 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 248 | break; |
249 | case INT: | |
250 | fprintf(fd, "int"); | |
3ace7bc4 | 251 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 252 | break; |
253 | case UINT: | |
254 | fprintf(fd, "unsigned int"); | |
3ace7bc4 | 255 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 256 | break; |
257 | case FLOAT: | |
258 | fprintf(fd, "%s", floatOutputTypes[getSizeindex(td->size)]); | |
3ace7bc4 | 259 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 260 | break; |
261 | case POINTER: | |
458989d8 | 262 | fprintf(fd, "const void *"); |
3ace7bc4 | 263 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 264 | break; |
265 | case LONG: | |
266 | fprintf(fd, "long"); | |
3ace7bc4 | 267 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 268 | break; |
269 | case ULONG: | |
270 | fprintf(fd, "unsigned long"); | |
3ace7bc4 | 271 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 272 | break; |
273 | case SIZE_T: | |
274 | fprintf(fd, "size_t"); | |
3ace7bc4 | 275 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 276 | break; |
277 | case SSIZE_T: | |
278 | fprintf(fd, "ssize_t"); | |
3ace7bc4 | 279 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 280 | break; |
281 | case OFF_T: | |
282 | fprintf(fd, "off_t"); | |
3ace7bc4 | 283 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 284 | break; |
285 | case STRING: | |
3d9b9b0c | 286 | fprintf(fd, "const char *"); |
3ace7bc4 | 287 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 288 | break; |
289 | case ENUM: | |
290 | fprintf(fd, "enum lttng_%s", basename); | |
3ace7bc4 | 291 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 292 | break; |
293 | case ARRAY: | |
294 | fprintf(fd, "lttng_array_%s", basename); | |
3ace7bc4 | 295 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 296 | break; |
297 | case SEQUENCE: | |
298 | fprintf(fd, "lttng_sequence_%s *", basename); | |
3ace7bc4 | 299 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 300 | break; |
301 | case STRUCT: | |
302 | fprintf(fd, "struct lttng_%s *", basename); | |
3ace7bc4 | 303 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 304 | break; |
305 | case UNION: | |
306 | fprintf(fd, "union lttng_%s *", basename); | |
3ace7bc4 | 307 | fprintf(fd, " lttng_param_%s", field_name); |
7e97b039 | 308 | break; |
309 | default: | |
310 | printf("print_type : unknown type\n"); | |
311 | return 1; | |
312 | } | |
313 | ||
314 | return 0; | |
315 | } | |
316 | ||
317 | ||
a3e6ce64 | 318 | /* Does the type has a fixed size ? (as know from the compiler) |
319 | * | |
320 | * 1 : fixed size | |
321 | * 0 : variable length | |
322 | */ | |
323 | int has_type_fixed_size(type_descriptor_t *td) | |
324 | { | |
325 | switch(td->type) { | |
326 | case INT_FIXED: | |
327 | case UINT_FIXED: | |
328 | case CHAR: | |
329 | case UCHAR: | |
330 | case SHORT: | |
331 | case USHORT: | |
332 | case INT: | |
333 | case UINT: | |
334 | case FLOAT: | |
335 | case POINTER: | |
336 | case LONG: | |
337 | case ULONG: | |
338 | case SIZE_T: | |
339 | case SSIZE_T: | |
340 | case OFF_T: | |
341 | case ENUM: | |
342 | case UNION: /* The union must have fixed size children. Must be checked by | |
343 | the parser */ | |
344 | return 1; | |
345 | break; | |
346 | case STRING: | |
347 | case SEQUENCE: | |
348 | return 0; | |
349 | break; | |
350 | case STRUCT: | |
351 | { | |
352 | int has_type_fixed = 0; | |
353 | for(unsigned int i=0;i<td->fields.position;i++){ | |
354 | field_t *field = (field_t*)(td->fields.array[i]); | |
355 | type_descriptor_t *type = field->type; | |
356 | ||
357 | has_type_fixed = has_type_fixed_size(type); | |
358 | if(!has_type_fixed) return 0; | |
359 | } | |
360 | return 1; | |
361 | } | |
362 | break; | |
363 | case ARRAY: | |
364 | assert(td->size >= 0); | |
2e415130 | 365 | return has_type_fixed_size(((field_t*)td->fields.array[0])->type); |
366 | break; | |
367 | case NONE: | |
368 | printf("There is a type defined to NONE : bad.\n"); | |
369 | assert(0); | |
a3e6ce64 | 370 | break; |
371 | } | |
2e415130 | 372 | return 0; //make gcc happy. |
a3e6ce64 | 373 | } |
374 | ||
375 | ||
376 | ||
377 | ||
378 | ||
2d2d14a7 | 379 | /* print type declaration. |
380 | * | |
381 | * Copied from construct_types_and_fields in LTTV facility.c */ | |
382 | ||
383 | int print_type_declaration(type_descriptor_t * td, FILE *fd, unsigned int tabs, | |
384 | char *nest_name, char *field_name) | |
385 | { | |
386 | char basename[PATH_MAX]; | |
387 | unsigned int basename_len = 0; | |
388 | ||
64a6ab10 | 389 | if(td->custom_write) return 0; /* Does print custom type */ |
390 | ||
7b175edc | 391 | strncpy(basename, nest_name, PATH_MAX); |
2d2d14a7 | 392 | basename_len = strlen(basename); |
393 | ||
394 | /* For a named type, we use the type_name directly */ | |
395 | if(td->type_name != NULL) { | |
396 | strncpy(basename, td->type_name, PATH_MAX); | |
397 | basename_len = strlen(basename); | |
398 | } else { | |
7b175edc | 399 | /* For a unnamed type, there must be a field name, except for |
400 | * the array. */ | |
401 | if((basename_len != 0) | |
402 | && (basename[basename_len-1] != '_' | |
403 | && (field_name[0] != '\0'))) { | |
2d2d14a7 | 404 | strncat(basename, "_", PATH_MAX - basename_len); |
405 | basename_len = strlen(basename); | |
406 | } | |
407 | strncat(basename, field_name, PATH_MAX - basename_len); | |
2d2d14a7 | 408 | } |
409 | ||
410 | switch(td->type) { | |
411 | case ENUM: | |
412 | fprintf(fd, "enum lttng_%s", basename); | |
413 | fprintf(fd, " {\n"); | |
414 | for(unsigned int i=0;i<td->labels.position;i++){ | |
415 | print_tabs(1, fd); | |
70f46ac3 | 416 | fprintf(fd, "LTTNG_%s = %d", ((char*)td->labels.array[i]), |
417 | (*(int*)td->labels_values.array[i])); | |
2d2d14a7 | 418 | fprintf(fd, ",\n"); |
419 | } | |
420 | fprintf(fd, "};\n"); | |
421 | fprintf(fd, "\n"); | |
422 | break; | |
423 | ||
424 | case ARRAY: | |
7b175edc | 425 | dprintf("%s\n", basename); |
2d2d14a7 | 426 | assert(td->size >= 0); |
a67cd958 | 427 | if(((field_t*)td->fields.array[0])->type->type_name == NULL) { |
2d2d14a7 | 428 | /* Not a named nested type : we must print its declaration first */ |
a67cd958 | 429 | if(print_type_declaration(((field_t*)td->fields.array[0])->type, |
2d2d14a7 | 430 | fd, 0, basename, "")) return 1; |
431 | } | |
2e415130 | 432 | fprintf(fd, "#define LTTNG_ARRAY_SIZE_%s %zu\n", basename, |
2d2d14a7 | 433 | td->size); |
7e97b039 | 434 | fprintf(fd, "typedef "); |
a67cd958 | 435 | if(print_type(((field_t*)td->fields.array[0])->type, |
436 | fd, tabs, basename, "")) return 1; | |
2d2d14a7 | 437 | fprintf(fd, " lttng_array_%s[LTTNG_ARRAY_SIZE_%s];\n", basename, |
438 | basename); | |
439 | fprintf(fd, "\n"); | |
440 | break; | |
441 | case SEQUENCE: | |
a67cd958 | 442 | /* We assume that the sequence length type does not need to be declared. |
443 | */ | |
444 | if(((field_t*)td->fields.array[1])->type->type_name == NULL) { | |
2d2d14a7 | 445 | /* Not a named nested type : we must print its declaration first */ |
a67cd958 | 446 | if(print_type_declaration(((field_t*)td->fields.array[1])->type, |
2d2d14a7 | 447 | fd, 0, basename, "")) return 1; |
448 | } | |
449 | fprintf(fd, "typedef struct lttng_sequence_%s lttng_sequence_%s;\n", | |
450 | basename, | |
451 | basename); | |
452 | fprintf(fd, "struct lttng_sequence_%s", basename); | |
453 | fprintf(fd, " {\n"); | |
454 | print_tabs(1, fd); | |
a3e6ce64 | 455 | if(print_type(((field_t*)td->fields.array[0])->type, |
456 | fd, tabs, basename, "")) return 1; | |
40c18b13 | 457 | fprintf(fd, " len;\n"); |
2d2d14a7 | 458 | print_tabs(1, fd); |
8c9e9076 | 459 | fprintf(fd, "const "); |
a67cd958 | 460 | if(print_type(((field_t*)td->fields.array[1])->type, |
461 | fd, tabs, basename, "")) return 1; | |
2d2d14a7 | 462 | fprintf(fd, " *array;\n"); |
d428224c | 463 | fprintf(fd, "};\n"); /* We do not LTT_ALIGN, because we never copy |
464 | it to the buffer directly. */ | |
2d2d14a7 | 465 | fprintf(fd, "\n"); |
466 | break; | |
467 | ||
468 | case STRUCT: | |
469 | for(unsigned int i=0;i<td->fields.position;i++){ | |
470 | field_t *field = (field_t*)(td->fields.array[i]); | |
471 | type_descriptor_t *type = field->type; | |
472 | if(type->type_name == NULL) { | |
473 | /* Not a named nested type : we must print its declaration first */ | |
474 | if(print_type_declaration(type, | |
475 | fd, 0, basename, field->name)) return 1; | |
476 | } | |
477 | } | |
478 | fprintf(fd, "struct lttng_%s", basename); | |
479 | fprintf(fd, " {\n"); | |
480 | for(unsigned int i=0;i<td->fields.position;i++){ | |
481 | field_t *field = (field_t*)(td->fields.array[i]); | |
482 | type_descriptor_t *type = field->type; | |
483 | print_tabs(1, fd); | |
47299663 | 484 | if(print_type(type, fd, tabs, basename, field->name)) return 1; |
2d2d14a7 | 485 | fprintf(fd, " "); |
486 | fprintf(fd, "%s", field->name); | |
487 | fprintf(fd, ";\n"); | |
488 | } | |
d428224c | 489 | fprintf(fd, "} LTT_ALIGN;\n"); |
2d2d14a7 | 490 | fprintf(fd, "\n"); |
491 | break; | |
492 | case UNION: | |
2d2d14a7 | 493 | for(unsigned int i=0;i<td->fields.position;i++){ |
494 | field_t *field = (field_t*)(td->fields.array[i]); | |
495 | type_descriptor_t *type = field->type; | |
496 | if(type->type_name == NULL) { | |
497 | /* Not a named nested type : we must print its declaration first */ | |
47299663 | 498 | if(print_type_declaration(type, |
499 | fd, 0, basename, field->name)) return 1; | |
2d2d14a7 | 500 | } |
501 | } | |
502 | fprintf(fd, "union lttng_%s", basename); | |
503 | fprintf(fd, " {\n"); | |
504 | for(unsigned i=0;i<td->fields.position;i++){ | |
505 | field_t *field = (field_t*)(td->fields.array[i]); | |
506 | type_descriptor_t *type = field->type; | |
507 | print_tabs(1, fd); | |
47299663 | 508 | if(print_type(type, fd, tabs, basename, field->name)) return 1; |
2d2d14a7 | 509 | fprintf(fd, " "); |
510 | fprintf(fd, "%s", field->name); | |
511 | fprintf(fd, ";\n"); | |
512 | } | |
d428224c | 513 | fprintf(fd, "} LTT_ALIGN;\n"); |
2d2d14a7 | 514 | fprintf(fd, "\n"); |
515 | break; | |
516 | default: | |
517 | dprintf("print_type_declaration : unknown type or nothing to declare.\n"); | |
518 | break; | |
519 | } | |
520 | ||
521 | return 0; | |
522 | } | |
523 | ||
a67cd958 | 524 | |
a3e6ce64 | 525 | /* print type alignment. |
526 | * | |
527 | * Copied from construct_types_and_fields in LTTV facility.c | |
528 | * | |
529 | * basename is the name which identifies the type (along with a prefix | |
530 | * (possibly)). */ | |
a67cd958 | 531 | |
a3e6ce64 | 532 | int print_type_alignment(type_descriptor_t * td, FILE *fd, unsigned int tabs, |
3261899d | 533 | char *nest_name, char *field_name, char *obj_prefix) |
a67cd958 | 534 | { |
a3e6ce64 | 535 | char basename[PATH_MAX]; |
536 | unsigned int basename_len = 0; | |
537 | ||
538 | strncpy(basename, nest_name, PATH_MAX); | |
539 | basename_len = strlen(basename); | |
540 | ||
541 | /* For a named type, we use the type_name directly */ | |
542 | if(td->type_name != NULL) { | |
543 | strncpy(basename, td->type_name, PATH_MAX); | |
544 | basename_len = strlen(basename); | |
a67cd958 | 545 | } else { |
a3e6ce64 | 546 | /* For a unnamed type, there must be a field name, except for |
547 | * the array. */ | |
548 | if((basename_len != 0) | |
549 | && (basename[basename_len-1] != '_' | |
34c1d1b5 | 550 | && field_name != NULL |
a3e6ce64 | 551 | && (field_name[0] != '\0'))) { |
552 | strncat(basename, "_", PATH_MAX - basename_len); | |
553 | basename_len = strlen(basename); | |
a67cd958 | 554 | } |
34c1d1b5 | 555 | if(field_name != NULL) |
556 | strncat(basename, field_name, PATH_MAX - basename_len); | |
a67cd958 | 557 | } |
a3e6ce64 | 558 | |
3d9b9b0c | 559 | if(field_name[0] == '\0') { |
560 | /* We are in a write function : it's the obj that we must align. */ | |
561 | switch(td->type) { | |
562 | case SEQUENCE: | |
3261899d | 563 | fprintf(fd, "lttng_get_alignment_sequence_%s(%s)", basename, |
564 | obj_prefix); | |
3d9b9b0c | 565 | break; |
566 | case STRUCT: | |
3261899d | 567 | fprintf(fd, "lttng_get_alignment_struct_%s(%s)", basename, |
568 | obj_prefix); | |
3d9b9b0c | 569 | break; |
570 | case UNION: | |
3261899d | 571 | fprintf(fd, "lttng_get_alignment_union_%s(%s)", basename, |
572 | obj_prefix); | |
3d9b9b0c | 573 | break; |
574 | case ARRAY: | |
3261899d | 575 | fprintf(fd, "lttng_get_alignment_array_%s(%s)", basename, |
576 | obj_prefix); | |
a2ff13ed | 577 | case STRING: |
578 | fprintf(fd, "sizeof(char)"); | |
3d9b9b0c | 579 | break; |
8f78c30f | 580 | case INT_FIXED: |
581 | case UINT_FIXED: | |
582 | case CHAR: | |
583 | case UCHAR: | |
584 | case SHORT: | |
585 | case USHORT: | |
586 | case INT: | |
587 | case UINT: | |
588 | case FLOAT: | |
589 | case POINTER: | |
590 | case LONG: | |
591 | case ULONG: | |
592 | case SIZE_T: | |
593 | case SSIZE_T: | |
594 | case OFF_T: | |
595 | case ENUM: | |
596 | fprintf(fd, "sizeof("); | |
597 | if(print_type(td, fd, 0, basename, "")) return 1; | |
598 | fprintf(fd, ")"); | |
599 | break; | |
600 | ||
3d9b9b0c | 601 | default: |
602 | printf("error : type unexpected\n"); | |
603 | return 1; | |
604 | break; | |
605 | } | |
606 | } else { | |
607 | ||
608 | switch(td->type) { | |
609 | case INT_FIXED: | |
610 | case UINT_FIXED: | |
611 | case CHAR: | |
612 | case UCHAR: | |
613 | case SHORT: | |
614 | case USHORT: | |
615 | case INT: | |
616 | case UINT: | |
617 | case FLOAT: | |
618 | case POINTER: | |
619 | case LONG: | |
620 | case ULONG: | |
621 | case SIZE_T: | |
622 | case SSIZE_T: | |
623 | case OFF_T: | |
624 | case ENUM: | |
625 | fprintf(fd, "sizeof("); | |
626 | if(print_type(td, fd, 0, basename, "")) return 1; | |
627 | fprintf(fd, ")"); | |
628 | break; | |
629 | case STRING: | |
630 | fprintf(fd, "sizeof(char)"); | |
631 | break; | |
632 | case SEQUENCE: | |
3261899d | 633 | fprintf(fd, "lttng_get_alignment_sequence_%s(&%s%s)", basename, |
634 | obj_prefix, field_name); | |
3d9b9b0c | 635 | break; |
636 | case STRUCT: | |
3261899d | 637 | fprintf(fd, "lttng_get_alignment_struct_%s(&%s%s)", basename, |
638 | obj_prefix, field_name); | |
3d9b9b0c | 639 | break; |
640 | case UNION: | |
3261899d | 641 | fprintf(fd, "lttng_get_alignment_union_%s(&%s%s)", basename, |
642 | obj_prefix, field_name); | |
3d9b9b0c | 643 | break; |
644 | case ARRAY: | |
3261899d | 645 | fprintf(fd, "lttng_get_alignment_array_%s(%s%s)", basename, |
646 | obj_prefix, field_name); | |
3d9b9b0c | 647 | break; |
648 | case NONE: | |
649 | printf("error : type NONE unexpected\n"); | |
650 | return 1; | |
651 | break; | |
652 | } | |
a3e6ce64 | 653 | } |
3d9b9b0c | 654 | |
a3e6ce64 | 655 | return 0; |
a67cd958 | 656 | } |
657 | ||
a3e6ce64 | 658 | /* print type write. |
659 | * | |
660 | * Copied from construct_types_and_fields in LTTV facility.c | |
661 | * | |
662 | * basename is the name which identifies the type (along with a prefix | |
663 | * (possibly)). */ | |
a67cd958 | 664 | |
a3e6ce64 | 665 | int print_type_write(type_descriptor_t * td, FILE *fd, unsigned int tabs, |
458989d8 | 666 | char *nest_name, char *field_name, char *obj_prefix, int get_ptr) |
a67cd958 | 667 | { |
a67cd958 | 668 | char basename[PATH_MAX]; |
669 | unsigned int basename_len = 0; | |
458989d8 | 670 | char get_ptr_char[2] = ""; |
64a6ab10 | 671 | char custom[PATH_MAX] = ""; |
a3e6ce64 | 672 | |
673 | strncpy(basename, nest_name, PATH_MAX); | |
a67cd958 | 674 | basename_len = strlen(basename); |
675 | ||
676 | /* For a named type, we use the type_name directly */ | |
677 | if(td->type_name != NULL) { | |
678 | strncpy(basename, td->type_name, PATH_MAX); | |
679 | basename_len = strlen(basename); | |
680 | } else { | |
a3e6ce64 | 681 | /* For a unnamed type, there must be a field name, except for |
682 | * the array. */ | |
a67cd958 | 683 | if((basename_len != 0) |
a3e6ce64 | 684 | && (basename[basename_len-1] != '_' |
685 | && (field_name[0] != '\0'))) { | |
a67cd958 | 686 | strncat(basename, "_", PATH_MAX - basename_len); |
687 | basename_len = strlen(basename); | |
688 | } | |
689 | strncat(basename, field_name, PATH_MAX - basename_len); | |
690 | } | |
691 | ||
458989d8 | 692 | if(get_ptr) { |
693 | strcpy(get_ptr_char, "&"); | |
694 | } | |
695 | ||
64a6ab10 | 696 | if(td->custom_write) { |
697 | strcpy(custom, "_custom"); | |
698 | } | |
699 | ||
a67cd958 | 700 | switch(td->type) { |
701 | case INT_FIXED: | |
702 | case UINT_FIXED: | |
703 | case CHAR: | |
704 | case UCHAR: | |
705 | case SHORT: | |
706 | case USHORT: | |
707 | case INT: | |
708 | case UINT: | |
709 | case FLOAT: | |
710 | case POINTER: | |
711 | case LONG: | |
712 | case ULONG: | |
713 | case SIZE_T: | |
714 | case SSIZE_T: | |
715 | case OFF_T: | |
716 | case ENUM: | |
a67cd958 | 717 | print_tabs(tabs, fd); |
8f78c30f | 718 | fprintf(fd, "align = "); |
719 | if(print_type_alignment(td, fd, 0, basename, "", "obj")) return 1; | |
720 | fprintf(fd, ";\n"); | |
721 | fprintf(fd, "\n"); | |
722 | print_tabs(tabs, fd); | |
723 | fprintf(fd, "if(*len == 0) {\n"); | |
724 | print_tabs(tabs+1, fd); | |
725 | fprintf(fd, "*to += ltt_align(*to, align); /* align output */\n"); | |
726 | print_tabs(tabs, fd); | |
727 | fprintf(fd, "} else {\n"); | |
728 | print_tabs(tabs+1, fd); | |
729 | fprintf(fd, "*len += ltt_align(*to+*len, align); /* alignment, ok to do a memcpy of it */\n"); | |
730 | print_tabs(tabs, fd); | |
731 | fprintf(fd, "}\n"); | |
732 | fprintf(fd, "\n"); | |
733 | ||
734 | print_tabs(tabs, fd); | |
735 | fprintf(fd, "*len += "); | |
a3e6ce64 | 736 | fprintf(fd, "sizeof("); |
2e415130 | 737 | if(print_type(td, fd, 0, basename, "")) return 1; |
a67cd958 | 738 | fprintf(fd, ");\n"); |
8f78c30f | 739 | |
a67cd958 | 740 | break; |
741 | case STRING: | |
a67cd958 | 742 | print_tabs(tabs, fd); |
3261899d | 743 | fprintf(fd, |
64a6ab10 | 744 | "lttng_write%s_string_%s(buffer, to_base, to, from, len, %s%s);\n", |
745 | custom, basename, obj_prefix, field_name); | |
a3e6ce64 | 746 | break; |
747 | case SEQUENCE: | |
748 | print_tabs(tabs, fd); | |
3261899d | 749 | fprintf(fd, |
64a6ab10 | 750 | "lttng_write%s_sequence_%s(buffer, to_base, to, from, len, %s%s%s);", |
751 | custom, basename, get_ptr_char, obj_prefix, field_name); | |
a3e6ce64 | 752 | break; |
753 | case STRUCT: | |
754 | print_tabs(tabs, fd); | |
3261899d | 755 | fprintf(fd, |
64a6ab10 | 756 | "lttng_write%s_struct_%s(buffer, to_base, to, from, len, %s%s%s);", |
757 | custom, basename, get_ptr_char, obj_prefix, field_name); | |
a3e6ce64 | 758 | break; |
759 | case UNION: | |
760 | print_tabs(tabs, fd); | |
3261899d | 761 | fprintf(fd, |
64a6ab10 | 762 | "lttng_write%s_union_%s(buffer, to_base, to, from, len, %s%s%s);", |
763 | custom, basename, get_ptr_char, obj_prefix, field_name); | |
a67cd958 | 764 | break; |
765 | case ARRAY: | |
a67cd958 | 766 | print_tabs(tabs, fd); |
3261899d | 767 | fprintf(fd, |
64a6ab10 | 768 | "lttng_write%s_array_%s(buffer, to_base, to, from, len, %s%s);", |
769 | custom, basename, obj_prefix, field_name); | |
a3e6ce64 | 770 | break; |
2e415130 | 771 | case NONE: |
772 | printf("Error : type NONE unexpected\n"); | |
773 | return 1; | |
774 | break; | |
a3e6ce64 | 775 | } |
a67cd958 | 776 | |
a3e6ce64 | 777 | return 0; |
778 | } | |
a67cd958 | 779 | |
63c831c5 | 780 | /* print need local vars ?. |
781 | * | |
782 | * Copied from print_type_write | |
783 | * | |
784 | * Does the type_write call needs local size and from variables ? | |
785 | * return value : 1 yes, 0 no. | |
786 | */ | |
787 | ||
788 | int has_type_local(type_descriptor_t * td) | |
789 | { | |
790 | switch(td->type) { | |
791 | case INT_FIXED: | |
792 | case UINT_FIXED: | |
793 | case CHAR: | |
794 | case UCHAR: | |
795 | case SHORT: | |
796 | case USHORT: | |
797 | case INT: | |
798 | case UINT: | |
799 | case FLOAT: | |
800 | case POINTER: | |
801 | case LONG: | |
802 | case ULONG: | |
803 | case SIZE_T: | |
804 | case SSIZE_T: | |
805 | case OFF_T: | |
806 | case ENUM: | |
807 | return 1; | |
808 | break; | |
809 | case STRING: | |
810 | case SEQUENCE: | |
811 | case STRUCT: | |
812 | case UNION: | |
813 | case ARRAY: | |
814 | return 0; | |
815 | break; | |
816 | case NONE: | |
817 | printf("Error : type NONE unexpected\n"); | |
818 | return 1; | |
819 | break; | |
820 | } | |
821 | ||
822 | return 0; | |
823 | } | |
824 | ||
a67cd958 | 825 | |
a67cd958 | 826 | |
a3e6ce64 | 827 | /* print type alignment function. |
828 | * | |
829 | * Copied from construct_types_and_fields in LTTV facility.c | |
830 | * | |
831 | * basename is the name which identifies the type (along with a prefix | |
832 | * (possibly)). */ | |
833 | ||
834 | int print_type_alignment_fct(type_descriptor_t * td, FILE *fd, | |
835 | unsigned int tabs, | |
836 | char *nest_name, char *field_name) | |
837 | { | |
838 | char basename[PATH_MAX]; | |
839 | unsigned int basename_len = 0; | |
840 | ||
64a6ab10 | 841 | if(td->custom_write) return 0; /* Does print custom type */ |
842 | ||
a3e6ce64 | 843 | strncpy(basename, nest_name, PATH_MAX); |
844 | basename_len = strlen(basename); | |
845 | ||
846 | /* For a named type, we use the type_name directly */ | |
847 | if(td->type_name != NULL) { | |
848 | strncpy(basename, td->type_name, PATH_MAX); | |
849 | basename_len = strlen(basename); | |
850 | } else { | |
851 | /* For a unnamed type, there must be a field name, except for | |
852 | * the array. */ | |
853 | if((basename_len != 0) | |
854 | && (basename[basename_len-1] != '_' | |
855 | && (field_name[0] != '\0'))) { | |
856 | strncat(basename, "_", PATH_MAX - basename_len); | |
857 | basename_len = strlen(basename); | |
858 | } | |
859 | strncat(basename, field_name, PATH_MAX - basename_len); | |
860 | } | |
861 | ||
862 | switch(td->type) { | |
863 | case SEQUENCE: | |
864 | /* Function header */ | |
865 | fprintf(fd, "static inline size_t lttng_get_alignment_sequence_%s(\n", | |
866 | basename); | |
867 | print_tabs(2, fd); | |
2e415130 | 868 | if(print_type(td, fd, 0, basename, "")) return 1; |
a3e6ce64 | 869 | fprintf(fd, " *obj)\n"); |
870 | fprintf(fd, "{\n"); | |
871 | print_tabs(1, fd); | |
872 | fprintf(fd, "size_t align=0, localign;"); | |
873 | fprintf(fd, "\n"); | |
874 | print_tabs(1, fd); | |
875 | fprintf(fd, "localign = "); | |
876 | if(print_type_alignment(((field_t*)td->fields.array[0])->type, | |
3261899d | 877 | fd, 0, basename, "len", "obj->")) return 1; |
a3e6ce64 | 878 | fprintf(fd, ";\n"); |
879 | print_tabs(1, fd); | |
880 | fprintf(fd, "align = max(align, localign);\n"); | |
881 | fprintf(fd, "\n"); | |
882 | print_tabs(1, fd); | |
883 | fprintf(fd, "localign = "); | |
884 | if(print_type_alignment(((field_t*)td->fields.array[1])->type, | |
3261899d | 885 | fd, 0, basename, "array[0]", "obj->")) return 1; |
a3e6ce64 | 886 | fprintf(fd, ";\n"); |
887 | print_tabs(1, fd); | |
888 | fprintf(fd, "align = max(align, localign);\n"); | |
889 | fprintf(fd, "\n"); | |
890 | print_tabs(1, fd); | |
891 | fprintf(fd, "return align;\n"); | |
892 | break; | |
893 | case STRUCT: | |
894 | /* Function header */ | |
895 | fprintf(fd, "static inline size_t lttng_get_alignment_struct_%s(\n", | |
896 | basename); | |
897 | print_tabs(2, fd); | |
2e415130 | 898 | if(print_type(td, fd, 0, basename, "")) return 1; |
a3e6ce64 | 899 | fprintf(fd, " *obj)\n"); |
900 | fprintf(fd, "{\n"); | |
901 | print_tabs(1, fd); | |
902 | fprintf(fd, "size_t align=0, localign;"); | |
903 | fprintf(fd, "\n"); | |
904 | for(unsigned int i=0;i<td->fields.position;i++){ | |
905 | field_t *field = (field_t*)(td->fields.array[i]); | |
906 | type_descriptor_t *type = field->type; | |
907 | print_tabs(1, fd); | |
908 | fprintf(fd, "localign = "); | |
3261899d | 909 | if(print_type_alignment(type, fd, 0, basename, field->name, "obj->")) |
910 | return 1; | |
a3e6ce64 | 911 | fprintf(fd, ";\n"); |
912 | print_tabs(1, fd); | |
913 | fprintf(fd, "align = max(align, localign);\n"); | |
914 | fprintf(fd, "\n"); | |
915 | } | |
916 | print_tabs(1, fd); | |
917 | fprintf(fd, "return align;\n"); | |
918 | ||
a67cd958 | 919 | break; |
a3e6ce64 | 920 | case UNION: |
921 | /* Function header */ | |
922 | fprintf(fd, "static inline size_t lttng_get_alignment_union_%s(\n", | |
923 | basename); | |
924 | print_tabs(2, fd); | |
2e415130 | 925 | if(print_type(td, fd, 0, basename, "")) return 1; |
a3e6ce64 | 926 | fprintf(fd, " *obj)\n"); |
927 | fprintf(fd, "{\n"); | |
928 | print_tabs(1, fd); | |
929 | fprintf(fd, "size_t align=0, localign;"); | |
930 | fprintf(fd, "\n"); | |
931 | for(unsigned int i=0;i<td->fields.position;i++){ | |
932 | field_t *field = (field_t*)(td->fields.array[i]); | |
933 | type_descriptor_t *type = field->type; | |
934 | print_tabs(1, fd); | |
935 | fprintf(fd, "localign = "); | |
3261899d | 936 | if(print_type_alignment(type, fd, 0, basename, field->name, "obj->")) |
937 | return 1; | |
a3e6ce64 | 938 | fprintf(fd, ";\n"); |
939 | print_tabs(1, fd); | |
940 | fprintf(fd, "align = max(align, localign);\n"); | |
941 | fprintf(fd, "\n"); | |
942 | } | |
943 | print_tabs(1, fd); | |
944 | fprintf(fd, "return align;\n"); | |
945 | ||
946 | break; | |
947 | case ARRAY: | |
948 | /* Function header */ | |
949 | fprintf(fd, "static inline size_t lttng_get_alignment_array_%s(\n", | |
950 | basename); | |
951 | print_tabs(2, fd); | |
2e415130 | 952 | if(print_type(td, fd, 0, basename, "")) return 1; |
a3e6ce64 | 953 | fprintf(fd, " obj)\n"); |
954 | fprintf(fd, "{\n"); | |
955 | print_tabs(1, fd); | |
956 | fprintf(fd, "return \n"); | |
957 | if(print_type_alignment(((field_t*)td->fields.array[0])->type, | |
3261899d | 958 | fd, 0, basename, "", "obj[0]")) |
959 | return 1; | |
a3e6ce64 | 960 | fprintf(fd, ";\n"); |
961 | break; | |
962 | default: | |
71e09db9 | 963 | dprintf("print_type_alignment_fct : type has no alignment function.\n"); |
34c1d1b5 | 964 | return 0; |
a3e6ce64 | 965 | break; |
966 | } | |
967 | ||
968 | ||
969 | /* Function footer */ | |
970 | fprintf(fd, "}\n"); | |
971 | fprintf(fd, "\n"); | |
972 | ||
2e415130 | 973 | return 0; |
a3e6ce64 | 974 | } |
975 | ||
976 | /* print type write function. | |
977 | * | |
978 | * Copied from construct_types_and_fields in LTTV facility.c | |
979 | * | |
980 | * basename is the name which identifies the type (along with a prefix | |
981 | * (possibly)). */ | |
982 | ||
983 | int print_type_write_fct(type_descriptor_t * td, FILE *fd, unsigned int tabs, | |
984 | char *nest_name, char *field_name) | |
985 | { | |
986 | char basename[PATH_MAX]; | |
987 | unsigned int basename_len = 0; | |
988 | ||
64a6ab10 | 989 | if(td->custom_write) return 0; /* Does print custom type */ |
990 | ||
a3e6ce64 | 991 | strncpy(basename, nest_name, PATH_MAX); |
992 | basename_len = strlen(basename); | |
993 | ||
994 | /* For a named type, we use the type_name directly */ | |
995 | if(td->type_name != NULL) { | |
996 | strncpy(basename, td->type_name, PATH_MAX); | |
997 | basename_len = strlen(basename); | |
998 | } else { | |
999 | /* For a unnamed type, there must be a field name, except for | |
1000 | * the array. */ | |
1001 | if((basename_len != 0) | |
1002 | && (basename[basename_len-1] != '_' | |
1003 | && (field_name[0] != '\0'))) { | |
1004 | strncat(basename, "_", PATH_MAX - basename_len); | |
1005 | basename_len = strlen(basename); | |
1006 | } | |
1007 | strncat(basename, field_name, PATH_MAX - basename_len); | |
1008 | } | |
1009 | ||
34c1d1b5 | 1010 | switch(td->type) { |
1011 | case SEQUENCE: | |
1012 | case STRUCT: | |
1013 | case UNION: | |
1014 | case ARRAY: | |
a2ff13ed | 1015 | case STRING: |
34c1d1b5 | 1016 | break; |
1017 | default: | |
71e09db9 | 1018 | dprintf("print_type_write_fct : type has no write function.\n"); |
34c1d1b5 | 1019 | return 0; |
1020 | break; | |
1021 | } | |
1022 | ||
a3e6ce64 | 1023 | /* Print header */ |
1024 | switch(td->type) { | |
a67cd958 | 1025 | case SEQUENCE: |
34c1d1b5 | 1026 | fprintf(fd, "static inline void lttng_write_sequence_%s(\n", |
a3e6ce64 | 1027 | basename); |
a67cd958 | 1028 | break; |
a3e6ce64 | 1029 | case STRUCT: |
6e27ba88 | 1030 | fprintf(fd, "static inline void lttng_write_struct_%s(\n", basename); |
a67cd958 | 1031 | break; |
a3e6ce64 | 1032 | case UNION: |
6e27ba88 | 1033 | fprintf(fd, "static inline void lttng_write_union_%s(\n", basename); |
a3e6ce64 | 1034 | break; |
1035 | case ARRAY: | |
6e27ba88 | 1036 | fprintf(fd, "static inline void lttng_write_array_%s(\n", basename); |
a3e6ce64 | 1037 | break; |
a2ff13ed | 1038 | case STRING: |
1039 | fprintf(fd, "static inline void lttng_write_string_%s(\n", basename); | |
1040 | break; | |
a3e6ce64 | 1041 | default: |
1042 | printf("print_type_write_fct : type has no write function.\n"); | |
a67cd958 | 1043 | break; |
a67cd958 | 1044 | } |
1045 | ||
a3e6ce64 | 1046 | print_tabs(2, fd); |
1047 | fprintf(fd, "void *buffer,\n"); | |
1048 | print_tabs(2, fd); | |
1049 | fprintf(fd, "size_t *to_base,\n"); | |
1050 | print_tabs(2, fd); | |
1051 | fprintf(fd, "size_t *to,\n"); | |
1052 | print_tabs(2, fd); | |
458989d8 | 1053 | fprintf(fd, "const void **from,\n"); |
a3e6ce64 | 1054 | print_tabs(2, fd); |
1055 | fprintf(fd, "size_t *len,\n"); | |
1056 | print_tabs(2, fd); | |
2e415130 | 1057 | if(print_type(td, fd, 0, basename, "")) return 1; |
a3e6ce64 | 1058 | |
1059 | switch(td->type) { | |
1060 | case SEQUENCE: | |
1061 | fprintf(fd, " *obj)\n"); | |
1062 | break; | |
1063 | case STRUCT: | |
1064 | fprintf(fd, " *obj)\n"); | |
1065 | break; | |
1066 | case UNION: | |
1067 | fprintf(fd, " *obj)\n"); | |
1068 | break; | |
1069 | case ARRAY: | |
1070 | fprintf(fd, " obj)\n"); | |
1071 | break; | |
a2ff13ed | 1072 | case STRING: |
1073 | fprintf(fd, " obj)\n"); | |
1074 | break; | |
a3e6ce64 | 1075 | default: |
1076 | printf("print_type_write_fct : type has no write function.\n"); | |
1077 | break; | |
1078 | } | |
1079 | ||
1080 | fprintf(fd, "{\n"); | |
3ace7bc4 | 1081 | |
f5f2fde4 | 1082 | switch(td->type) { |
1083 | case STRING: | |
1084 | print_tabs(1, fd); | |
1085 | fprintf(fd, "size_t size;\n"); | |
1086 | break; | |
1087 | default: | |
1088 | break; | |
1089 | } | |
1090 | ||
a3e6ce64 | 1091 | print_tabs(1, fd); |
3ace7bc4 | 1092 | fprintf(fd, "size_t align;\n"); |
a3e6ce64 | 1093 | fprintf(fd, "\n"); |
1094 | ||
1095 | switch(td->type) { | |
1096 | case SEQUENCE: | |
1097 | case STRING: | |
1098 | print_tabs(1, fd); | |
1099 | fprintf(fd, "/* Flush pending memcpy */\n"); | |
1100 | print_tabs(1, fd); | |
1101 | fprintf(fd, "if(*len != 0) {\n"); | |
1102 | print_tabs(2, fd); | |
1103 | fprintf(fd, "if(buffer != NULL)\n"); | |
1104 | print_tabs(3, fd); | |
1105 | fprintf(fd, "memcpy(buffer+*to_base+*to, *from, *len);\n"); | |
1106 | print_tabs(1, fd); | |
1107 | fprintf(fd, "}\n"); | |
1108 | print_tabs(1, fd); | |
1109 | fprintf(fd, "*to += *len;\n"); | |
1110 | print_tabs(1, fd); | |
1111 | fprintf(fd, "*len = 0;\n"); | |
1112 | fprintf(fd, "\n"); | |
1113 | break; | |
1114 | case STRUCT: | |
1115 | case UNION: | |
1116 | case ARRAY: | |
1117 | break; | |
1118 | default: | |
1119 | printf("print_type_write_fct : type has no write function.\n"); | |
1120 | break; | |
1121 | } | |
1122 | ||
1123 | print_tabs(1, fd); | |
34c1d1b5 | 1124 | fprintf(fd, "align = "); |
0231ef76 | 1125 | if(print_type_alignment(td, fd, 0, basename, "", "obj")) return 1; |
a3e6ce64 | 1126 | fprintf(fd, ";\n"); |
1127 | fprintf(fd, "\n"); | |
1128 | print_tabs(1, fd); | |
1129 | fprintf(fd, "if(*len == 0) {\n"); | |
1130 | print_tabs(2, fd); | |
1131 | fprintf(fd, "*to += ltt_align(*to, align); /* align output */\n"); | |
1132 | print_tabs(1, fd); | |
1133 | fprintf(fd, "} else {\n"); | |
1134 | print_tabs(2, fd); | |
1135 | fprintf(fd, "*len += ltt_align(*to+*len, align); /* alignment, ok to do a memcpy of it */\n"); | |
1136 | print_tabs(1, fd); | |
1137 | fprintf(fd, "}\n"); | |
1138 | fprintf(fd, "\n"); | |
1139 | ||
1140 | /* First, check if the type has a fixed size. If it is the case, then the size | |
1141 | * to write is know by the compiler : simply use a sizeof() */ | |
1142 | if(has_type_fixed_size(td)) { | |
1143 | print_tabs(1, fd); | |
1144 | fprintf(fd, "/* Contains only fixed size fields : use compiler sizeof() */\n"); | |
1145 | fprintf(fd, "\n"); | |
1146 | print_tabs(1, fd); | |
f5f2fde4 | 1147 | fprintf(fd, "*len += sizeof("); |
2e415130 | 1148 | if(print_type(td, fd, 0, basename, field_name)) return 1; |
a3e6ce64 | 1149 | fprintf(fd, ");\n"); |
1150 | } else { | |
1151 | /* The type contains nested variable size subtypes : | |
1152 | * we must write field by field. */ | |
1153 | print_tabs(1, fd); | |
1154 | fprintf(fd, "/* Contains variable sized fields : must explode the structure */\n"); | |
1155 | fprintf(fd, "\n"); | |
1156 | ||
1157 | switch(td->type) { | |
1158 | case SEQUENCE: | |
1159 | print_tabs(1, fd); | |
1160 | fprintf(fd, "/* Copy members */\n"); | |
3261899d | 1161 | // print_tabs(1, fd); |
1162 | // fprintf(fd, "size = sizeof(\n"); | |
a3e6ce64 | 1163 | if(print_type_write(((field_t*)td->fields.array[0])->type, |
458989d8 | 1164 | fd, 1, basename, "len", "obj->", 1)) return 1; |
3261899d | 1165 | fprintf(fd, "\n"); |
1166 | // fprintf(fd, ");\n"); | |
1167 | // print_tabs(1, fd); | |
1168 | // fprintf(fd, "*to += ltt_align(*to, size);\n"); | |
a3e6ce64 | 1169 | print_tabs(1, fd); |
1170 | fprintf(fd, "if(buffer != NULL)\n"); | |
1171 | print_tabs(2, fd); | |
8f78c30f | 1172 | fprintf(fd, "memcpy(buffer+*to_base+*to, &obj->len, *len);\n"); |
a3e6ce64 | 1173 | print_tabs(1, fd); |
8f78c30f | 1174 | fprintf(fd, "*to += *len;\n"); |
1175 | print_tabs(1, fd); | |
1176 | fprintf(fd, "*len = 0;\n"); | |
a3e6ce64 | 1177 | fprintf(fd, "\n"); |
8f78c30f | 1178 | |
a3e6ce64 | 1179 | /* Write the child : varlen child or not ? */ |
1180 | if(has_type_fixed_size(((field_t*)td->fields.array[1])->type)) { | |
1181 | /* Fixed size len child : use a multiplication of its size */ | |
3261899d | 1182 | // print_tabs(1, fd); |
1183 | // fprintf(fd, "size = sizeof(\n"); | |
8f78c30f | 1184 | |
1185 | //print_tabs(1, fd); | |
1186 | /* We know that *len does not contain alignment because of the | |
1187 | * previous align output. len is always 0 here. */ | |
a3e6ce64 | 1188 | if(print_type_write(((field_t*)td->fields.array[1])->type, |
8f78c30f | 1189 | fd, 1, basename, "array[0]", "obj->", 1)) |
1190 | return 1; | |
3261899d | 1191 | // fprintf(fd, ");\n"); |
8f78c30f | 1192 | fprintf(fd, "\n"); |
a3e6ce64 | 1193 | print_tabs(1, fd); |
8f78c30f | 1194 | fprintf(fd, "*len = obj->len * (*len);\n"); |
a3e6ce64 | 1195 | print_tabs(1, fd); |
1196 | fprintf(fd, "if(buffer != NULL)\n"); | |
1197 | print_tabs(2, fd); | |
8f78c30f | 1198 | fprintf(fd, "memcpy(buffer+*to_base+*to, obj->array, *len);\n"); |
1199 | print_tabs(1, fd); | |
1200 | fprintf(fd, "*to += *len;\n"); | |
a3e6ce64 | 1201 | print_tabs(1, fd); |
8f78c30f | 1202 | fprintf(fd, "*len = 0;\n"); |
a3e6ce64 | 1203 | fprintf(fd, "\n"); |
1204 | } else { | |
1205 | print_tabs(1, fd); | |
1206 | fprintf(fd, "/* Variable length child : iter. */\n"); | |
1207 | print_tabs(1, fd); | |
1208 | fprintf(fd, "for(unsigned int i=0; i<obj->len; i++) {\n"); | |
1209 | if(print_type_write(((field_t*)td->fields.array[1])->type, | |
458989d8 | 1210 | fd, 2, basename, "array[i]", "obj->", 1)) return 1; |
a3e6ce64 | 1211 | print_tabs(1, fd); |
1212 | fprintf(fd, "}\n"); | |
1213 | } | |
1214 | fprintf(fd, "\n"); | |
1215 | print_tabs(1, fd); | |
1216 | fprintf(fd, "/* Realign the *to_base on arch size, set *to to 0 */\n"); | |
1217 | print_tabs(1, fd); | |
2a5eec7d | 1218 | fprintf(fd, "*to += ltt_align(*to, sizeof(void *));\n"); |
a3e6ce64 | 1219 | print_tabs(1, fd); |
1220 | fprintf(fd, "*to_base = *to_base+*to;\n"); | |
1221 | print_tabs(1, fd); | |
1222 | fprintf(fd, "*to = 0;\n"); | |
1223 | fprintf(fd, "\n"); | |
a2ff13ed | 1224 | print_tabs(1, fd); |
a3e6ce64 | 1225 | fprintf(fd, "/* Put source *from just after the C sequence */\n"); |
1226 | print_tabs(1, fd); | |
1227 | fprintf(fd, "*from = obj+1;\n"); | |
1228 | break; | |
1229 | case STRING: | |
a2ff13ed | 1230 | print_tabs(1, fd); |
caabcb43 | 1231 | fprintf(fd, "size = strlen(obj) + 1; /* Include final NULL char. */\n"); |
a3e6ce64 | 1232 | print_tabs(1, fd); |
1233 | fprintf(fd, "if(buffer != NULL)\n"); | |
1234 | print_tabs(2, fd); | |
1235 | fprintf(fd, "memcpy(buffer+*to_base+*to, obj, size);\n"); | |
1236 | print_tabs(1, fd); | |
1237 | fprintf(fd, "*to += size;\n"); | |
1238 | fprintf(fd, "\n"); | |
1239 | print_tabs(1, fd); | |
1240 | fprintf(fd, "/* Realign the *to_base on arch size, set *to to 0 */\n"); | |
1241 | print_tabs(1, fd); | |
2a5eec7d | 1242 | fprintf(fd, "*to += ltt_align(*to, sizeof(void *));\n"); |
a3e6ce64 | 1243 | print_tabs(1, fd); |
1244 | fprintf(fd, "*to_base = *to_base+*to;\n"); | |
1245 | print_tabs(1, fd); | |
1246 | fprintf(fd, "*to = 0;\n"); | |
1247 | fprintf(fd, "\n"); | |
a3e6ce64 | 1248 | print_tabs(1, fd); |
a2ff13ed | 1249 | fprintf(fd, "/* Put source *from just after the C string */\n"); |
1250 | print_tabs(1, fd); | |
1251 | fprintf(fd, "*from += size;\n"); | |
a3e6ce64 | 1252 | break; |
1253 | case STRUCT: | |
1254 | for(unsigned int i=0;i<td->fields.position;i++){ | |
1255 | field_t *field = (field_t*)(td->fields.array[i]); | |
1256 | type_descriptor_t *type = field->type; | |
1257 | if(print_type_write(type, | |
458989d8 | 1258 | fd, 1, basename, field->name, "obj->", 1)) return 1; |
a3e6ce64 | 1259 | fprintf(fd, "\n"); |
1260 | } | |
1261 | break; | |
1262 | case UNION: | |
1263 | printf("ERROR : A union CANNOT contain a variable size child.\n"); | |
1264 | return 1; | |
1265 | break; | |
1266 | case ARRAY: | |
1267 | /* Write the child : varlen child or not ? */ | |
1268 | if(has_type_fixed_size(((field_t*)td->fields.array[0])->type)) { | |
1269 | /* Error : if an array has a variable size, then its child must also | |
1270 | * have a variable size. */ | |
1271 | assert(0); | |
1272 | } else { | |
1273 | print_tabs(1, fd); | |
1274 | fprintf(fd, "/* Variable length child : iter. */\n"); | |
1275 | print_tabs(1, fd); | |
1276 | fprintf(fd, "for(unsigned int i=0; i<LTTNG_ARRAY_SIZE_%s; i++) {\n", basename); | |
3261899d | 1277 | if(print_type_write(((field_t*)td->fields.array[0])->type, |
458989d8 | 1278 | fd, 2, basename, "", "obj->array[i]", 1)) return 1; |
a3e6ce64 | 1279 | print_tabs(1, fd); |
1280 | fprintf(fd, "}\n"); | |
1281 | } | |
1282 | break; | |
1283 | default: | |
1284 | printf("print_type_write_fct : type has no write function.\n"); | |
1285 | break; | |
1286 | } | |
1287 | ||
1288 | ||
1289 | } | |
1290 | ||
1291 | ||
1292 | /* Function footer */ | |
1293 | fprintf(fd, "}\n"); | |
1294 | fprintf(fd, "\n"); | |
a67cd958 | 1295 | return 0; |
1296 | } | |
1297 | ||
1298 | ||
1299 | ||
47299663 | 1300 | /* Print the logging function of an event. This is the core of genevent */ |
a3e6ce64 | 1301 | int print_event_logging_function(char *basename, facility_t *fac, |
1302 | event_t *event, FILE *fd) | |
47299663 | 1303 | { |
1304 | fprintf(fd, "static inline void trace_%s(\n", basename); | |
3d9b9b0c | 1305 | int has_argument = 0; |
63c831c5 | 1306 | int has_type_fixed = 0; |
3d9b9b0c | 1307 | |
1308 | /* Does it support per trace tracing ? */ | |
1309 | if(event->per_trace) { | |
1310 | print_tabs(2, fd); | |
1311 | fprintf(fd, "struct ltt_trace_struct *dest_trace"); | |
1312 | has_argument = 1; | |
1313 | } | |
1314 | ||
1315 | /* Does it support per tracefile tracing ? */ | |
1316 | if(event->per_tracefile) { | |
1317 | if(has_argument) { | |
1318 | fprintf(fd, ","); | |
1319 | fprintf(fd, "\n"); | |
1320 | } | |
1321 | fprintf(fd, "unsigned int tracefile_index"); | |
1322 | has_argument = 1; | |
1323 | } | |
1324 | ||
47299663 | 1325 | for(unsigned int j = 0; j < event->fields.position; j++) { |
1326 | /* For each field, print the function argument */ | |
1327 | field_t *f = (field_t*)event->fields.array[j]; | |
1328 | type_descriptor_t *t = f->type; | |
3d9b9b0c | 1329 | if(has_argument) { |
47299663 | 1330 | fprintf(fd, ","); |
1331 | fprintf(fd, "\n"); | |
1332 | } | |
3d9b9b0c | 1333 | if(print_arg(t, fd, 2, basename, f->name)) return 1; |
1334 | has_argument = 1; | |
47299663 | 1335 | } |
3d9b9b0c | 1336 | if(!has_argument) { |
47299663 | 1337 | print_tabs(2, fd); |
1338 | fprintf(fd, "void"); | |
1339 | } | |
1340 | fprintf(fd,")\n"); | |
71e09db9 | 1341 | fprintf(fd, |
1342 | "#if (!defined(CONFIG_LTT) || !defined(CONFIG_LTT_FACILITY_%s))\n", | |
1343 | fac->capname); | |
47299663 | 1344 | fprintf(fd, "{\n"); |
1345 | fprintf(fd, "}\n"); | |
1346 | fprintf(fd,"#else\n"); | |
1347 | fprintf(fd, "{\n"); | |
7e97b039 | 1348 | /* Print the function variables */ |
a67cd958 | 1349 | print_tabs(1, fd); |
a3e6ce64 | 1350 | fprintf(fd, "unsigned int index;\n"); |
1351 | print_tabs(1, fd); | |
1352 | fprintf(fd, "struct ltt_channel_struct *channel;\n"); | |
1353 | print_tabs(1, fd); | |
1354 | fprintf(fd, "struct ltt_trace_struct *trace;\n"); | |
1355 | print_tabs(1, fd); | |
1356 | fprintf(fd, "struct rchan_buf *relayfs_buf;\n"); | |
1357 | print_tabs(1, fd); | |
1358 | fprintf(fd, "void *buffer = NULL;\n"); | |
1359 | print_tabs(1, fd); | |
458989d8 | 1360 | fprintf(fd, "size_t real_to_base = 0; /* The buffer is allocated on arch_size alignment */\n"); |
1361 | print_tabs(1, fd); | |
1362 | fprintf(fd, "size_t *to_base = &real_to_base;\n"); | |
a3e6ce64 | 1363 | print_tabs(1, fd); |
458989d8 | 1364 | fprintf(fd, "size_t real_to = 0;\n"); |
a3e6ce64 | 1365 | print_tabs(1, fd); |
458989d8 | 1366 | fprintf(fd, "size_t *to = &real_to;\n"); |
a3e6ce64 | 1367 | print_tabs(1, fd); |
458989d8 | 1368 | fprintf(fd, "size_t real_len = 0;\n"); |
1369 | print_tabs(1, fd); | |
1370 | fprintf(fd, "size_t *len = &real_len;\n"); | |
30d72138 | 1371 | print_tabs(1, fd); |
6e27ba88 | 1372 | fprintf(fd, "size_t reserve_size;\n"); |
1373 | print_tabs(1, fd); | |
a3e6ce64 | 1374 | fprintf(fd, "size_t slot_size;\n"); |
30d72138 | 1375 | print_tabs(1, fd); |
63c831c5 | 1376 | |
ac963fe3 | 1377 | if(event->fields.position > 0) { |
63c831c5 | 1378 | for(unsigned int i=0;i<event->fields.position;i++){ |
1379 | /* Search for at least one child with fixed size. It means | |
1380 | * we need local variables.*/ | |
1381 | field_t *field = (field_t*)(event->fields.array[i]); | |
1382 | type_descriptor_t *type = field->type; | |
1383 | has_type_fixed = has_type_local(type); | |
1384 | if(has_type_fixed) break; | |
1385 | } | |
1386 | ||
1387 | if(has_type_fixed) { | |
8f78c30f | 1388 | fprintf(fd, "size_t align;\n"); |
63c831c5 | 1389 | print_tabs(1, fd); |
1390 | } | |
1391 | ||
ac963fe3 | 1392 | fprintf(fd, "const void *real_from;\n"); |
1393 | print_tabs(1, fd); | |
1394 | fprintf(fd, "const void **from = &real_from;\n"); | |
1395 | print_tabs(1, fd); | |
1396 | } | |
8e290e8b | 1397 | fprintf(fd, "u64 tsc;\n"); |
30d72138 | 1398 | print_tabs(1, fd); |
458989d8 | 1399 | fprintf(fd, "size_t before_hdr_pad, after_hdr_pad, header_size;\n"); |
a3e6ce64 | 1400 | fprintf(fd, "\n"); |
7e97b039 | 1401 | |
a3e6ce64 | 1402 | print_tabs(1, fd); |
1403 | fprintf(fd, "if(ltt_traces.num_active_traces == 0) return;\n"); | |
1404 | fprintf(fd, "\n"); | |
1405 | ||
a67cd958 | 1406 | /* Calculate event variable len + event data alignment offset. |
7e97b039 | 1407 | * Assume that the padding for alignment starts at a void* |
a67cd958 | 1408 | * address. |
1409 | * This excludes the header size and alignment. */ | |
1410 | ||
a3e6ce64 | 1411 | print_tabs(1, fd); |
1412 | fprintf(fd, "/* For each field, calculate the field size. */\n"); | |
1413 | print_tabs(1, fd); | |
458989d8 | 1414 | fprintf(fd, "/* size = *to_base + *to + *len */\n"); |
a3e6ce64 | 1415 | print_tabs(1, fd); |
30d72138 | 1416 | fprintf(fd, "/* Assume that the padding for alignment starts at a\n"); |
a3e6ce64 | 1417 | print_tabs(1, fd); |
30d72138 | 1418 | fprintf(fd, " * sizeof(void *) address. */\n"); |
a3e6ce64 | 1419 | fprintf(fd, "\n"); |
a67cd958 | 1420 | |
a3e6ce64 | 1421 | for(unsigned int i=0;i<event->fields.position;i++){ |
2e415130 | 1422 | field_t *field = (field_t*)(event->fields.array[i]); |
a3e6ce64 | 1423 | type_descriptor_t *type = field->type; |
458989d8 | 1424 | /* Set from */ |
1425 | print_tabs(1, fd); | |
1426 | switch(type->type) { | |
1427 | case SEQUENCE: | |
1428 | case UNION: | |
1429 | case ARRAY: | |
1430 | case STRUCT: | |
1431 | case STRING: | |
3ace7bc4 | 1432 | fprintf(fd, "*from = lttng_param_%s;\n", field->name); |
458989d8 | 1433 | break; |
1434 | default: | |
3ace7bc4 | 1435 | fprintf(fd, "*from = <tng_param_%s;\n", field->name); |
458989d8 | 1436 | break; |
1437 | } | |
1438 | ||
a3e6ce64 | 1439 | if(print_type_write(type, |
3ace7bc4 | 1440 | fd, 1, basename, field->name, "lttng_param_", 0)) return 1; |
a3e6ce64 | 1441 | fprintf(fd, "\n"); |
a67cd958 | 1442 | } |
6e27ba88 | 1443 | print_tabs(1, fd); |
458989d8 | 1444 | fprintf(fd, "reserve_size = *to_base + *to + *len;\n"); |
47299663 | 1445 | |
7e97b039 | 1446 | /* Take locks : make sure the trace does not vanish while we write on |
1447 | * it. A simple preemption disabling is enough (using rcu traces). */ | |
a3e6ce64 | 1448 | print_tabs(1, fd); |
1449 | fprintf(fd, "preempt_disable();\n"); | |
1450 | print_tabs(1, fd); | |
1451 | fprintf(fd, "ltt_nesting[smp_processor_id()]++;\n"); | |
1452 | ||
1453 | /* Get facility index */ | |
1454 | ||
1455 | if(event->per_tracefile) { | |
1456 | print_tabs(1, fd); | |
1457 | fprintf(fd, "index = tracefile_index;\n"); | |
1458 | } else { | |
1459 | print_tabs(1, fd); | |
1460 | fprintf(fd, | |
1461 | "index = ltt_get_index_from_facility(ltt_facility_%s_%X,\n"\ | |
458989d8 | 1462 | "\t\t\t\t\t\tevent_%s_%s);\n", |
1463 | fac->name, fac->checksum, fac->name, event->name); | |
a3e6ce64 | 1464 | } |
1465 | fprintf(fd,"\n"); | |
1466 | ||
7e97b039 | 1467 | |
1468 | /* For each trace */ | |
a3e6ce64 | 1469 | print_tabs(1, fd); |
1470 | fprintf(fd, "list_for_each_entry_rcu(trace, <t_traces.head, list) {\n"); | |
1471 | print_tabs(2, fd); | |
1472 | fprintf(fd, "if(!trace->active) continue;\n\n"); | |
1473 | ||
1474 | if(event->per_trace) { | |
1475 | print_tabs(2, fd); | |
1476 | fprintf(fd, "if(dest_trace != trace) continue;\n\n"); | |
1477 | } | |
1478 | ||
1479 | print_tabs(2, fd); | |
2e415130 | 1480 | fprintf(fd, "channel = ltt_get_channel_from_index(trace, index);\n"); |
a3e6ce64 | 1481 | print_tabs(2, fd); |
458989d8 | 1482 | fprintf(fd, "relayfs_buf = channel->rchan->buf[smp_processor_id()];\n"); |
a3e6ce64 | 1483 | fprintf(fd, "\n"); |
1484 | ||
7e97b039 | 1485 | |
1486 | /* Relay reserve */ | |
a3e6ce64 | 1487 | /* If error, increment event lost counter (done by ltt_reserve_slot) and |
1488 | * return */ | |
1489 | print_tabs(2, fd); | |
1490 | fprintf(fd, "slot_size = 0;\n"); | |
1491 | print_tabs(2, fd); | |
30d72138 | 1492 | fprintf(fd, "buffer = ltt_reserve_slot(trace, relayfs_buf,\n"); |
1493 | print_tabs(3, fd); | |
6e27ba88 | 1494 | fprintf(fd, "reserve_size, &slot_size, &tsc,\n"); |
30d72138 | 1495 | print_tabs(3, fd); |
458989d8 | 1496 | fprintf(fd, "&before_hdr_pad, &after_hdr_pad, &header_size);\n"); |
a3e6ce64 | 1497 | /* If error, return */ |
1498 | print_tabs(2, fd); | |
43f7f14f | 1499 | fprintf(fd, "if(!buffer) continue; /* buffer full */\n\n"); |
8f78c30f | 1500 | //print_tabs(2, fd); |
1501 | // for DEBUG only | |
1502 | // fprintf(fd, "goto commit; /* DEBUG : never actually write. */\n\n"); | |
1503 | print_tabs(2, fd); | |
1504 | fprintf(fd, "*to_base = *to = *len = 0;\n"); | |
1505 | fprintf(fd, "\n"); | |
1506 | ||
458989d8 | 1507 | /* Write event header */ |
1508 | print_tabs(2, fd); | |
1509 | fprintf(fd, "ltt_write_event_header(trace, channel, buffer,\n"); | |
1510 | print_tabs(3, fd); | |
1511 | fprintf(fd, "ltt_facility_%s_%X, event_%s_%s,\n", fac->name, fac->checksum, | |
1512 | fac->name, event->name); | |
1513 | print_tabs(3, fd); | |
1514 | fprintf(fd, "reserve_size, before_hdr_pad, tsc);\n"); | |
1515 | print_tabs(2, fd); | |
1516 | fprintf(fd, "*to_base += before_hdr_pad + after_hdr_pad + header_size;\n"); | |
2a5eec7d | 1517 | fprintf(fd, "\n"); |
7e97b039 | 1518 | |
8f78c30f | 1519 | /* write data. */ |
a3e6ce64 | 1520 | |
1521 | for(unsigned int i=0;i<event->fields.position;i++){ | |
2e415130 | 1522 | field_t *field = (field_t*)(event->fields.array[i]); |
a3e6ce64 | 1523 | type_descriptor_t *type = field->type; |
8f78c30f | 1524 | |
a3e6ce64 | 1525 | /* Set from */ |
30d72138 | 1526 | print_tabs(2, fd); |
1527 | switch(type->type) { | |
1528 | case SEQUENCE: | |
1529 | case UNION: | |
1530 | case ARRAY: | |
1531 | case STRUCT: | |
1532 | case STRING: | |
3ace7bc4 | 1533 | fprintf(fd, "*from = lttng_param_%s;\n", field->name); |
30d72138 | 1534 | break; |
1535 | default: | |
3ace7bc4 | 1536 | fprintf(fd, "*from = <tng_param_%s;\n", field->name); |
30d72138 | 1537 | break; |
1538 | } | |
1539 | ||
a3e6ce64 | 1540 | |
1541 | if(print_type_write(type, | |
3ace7bc4 | 1542 | fd, 2, basename, field->name, "lttng_param_", 0)) return 1; |
a3e6ce64 | 1543 | fprintf(fd, "\n"); |
7e97b039 | 1544 | |
a3e6ce64 | 1545 | /* Don't forget to flush pending memcpy */ |
1546 | print_tabs(2, fd); | |
1547 | fprintf(fd, "/* Flush pending memcpy */\n"); | |
1548 | print_tabs(2, fd); | |
8f78c30f | 1549 | fprintf(fd, "if(*len != 0) {\n"); |
a3e6ce64 | 1550 | print_tabs(3, fd); |
458989d8 | 1551 | fprintf(fd, "memcpy(buffer+*to_base+*to, *from, *len);\n"); |
a3e6ce64 | 1552 | print_tabs(3, fd); |
458989d8 | 1553 | fprintf(fd, "*to += *len;\n"); |
a3e6ce64 | 1554 | //print_tabs(3, fd); |
1555 | //fprintf(fd, "from += len;\n"); | |
1556 | print_tabs(3, fd); | |
458989d8 | 1557 | fprintf(fd, "*len = 0;\n"); |
a3e6ce64 | 1558 | print_tabs(2, fd); |
1559 | fprintf(fd, "}\n"); | |
1560 | fprintf(fd, "\n"); | |
1561 | } | |
1562 | ||
1563 | ||
7e97b039 | 1564 | /* commit */ |
8f78c30f | 1565 | // for DEBUG only. |
1566 | //fprintf(fd, "commit:\n"); /* DEBUG! */ | |
a3e6ce64 | 1567 | print_tabs(2, fd); |
1568 | fprintf(fd, "ltt_commit_slot(relayfs_buf, buffer, slot_size);\n\n"); | |
7e97b039 | 1569 | |
a3e6ce64 | 1570 | print_tabs(1, fd); |
1571 | fprintf(fd, "}\n\n"); | |
1572 | ||
7e97b039 | 1573 | /* Release locks */ |
a3e6ce64 | 1574 | print_tabs(1, fd); |
1575 | fprintf(fd, "ltt_nesting[smp_processor_id()]--;\n"); | |
1576 | print_tabs(1, fd); | |
1577 | fprintf(fd, "preempt_enable_no_resched();\n"); | |
2d2d14a7 | 1578 | |
47299663 | 1579 | fprintf(fd, "}\n"); |
71e09db9 | 1580 | fprintf(fd, "#endif //(!defined(CONFIG_LTT) || !defined(CONFIG_LTT_FACILITY_%s))\n\n", |
1581 | fac->capname); | |
47299663 | 1582 | return 0; |
1583 | } | |
2d2d14a7 | 1584 | |
1585 | ||
1586 | /* ltt-facility-name.h : main logging header. | |
1587 | * log_header */ | |
1588 | ||
1589 | void print_log_header_head(facility_t *fac, FILE *fd) | |
1590 | { | |
1591 | fprintf(fd, "#ifndef _LTT_FACILITY_%s_H_\n", fac->capname); | |
1592 | fprintf(fd, "#define _LTT_FACILITY_%s_H_\n\n", fac->capname); | |
3d9b9b0c | 1593 | fprintf(fd, "#include <linux/types.h>\n"); |
ffaf5031 | 1594 | if(!fac->arch) |
1595 | fprintf(fd, "#include <linux/ltt/ltt-facility-id-%s.h>\n", fac->name); | |
1596 | else | |
1597 | fprintf(fd, "#include <asm/ltt/ltt-facility-id-%s_%s.h>\n", | |
1598 | fac->name, | |
1599 | fac->arch); | |
3d9b9b0c | 1600 | fprintf(fd, "#include <linux/ltt-core.h>\n"); |
47299663 | 1601 | fprintf(fd, "\n"); |
2d2d14a7 | 1602 | } |
1603 | ||
1604 | ||
1605 | ||
2d2d14a7 | 1606 | int print_log_header_types(facility_t *fac, FILE *fd) |
1607 | { | |
1608 | sequence_t *types = &fac->named_types.values; | |
1609 | fprintf(fd, "/* Named types */\n"); | |
1610 | fprintf(fd, "\n"); | |
1611 | ||
1612 | for(unsigned int i = 0; i < types->position; i++) { | |
1613 | /* For each named type, print the definition */ | |
458989d8 | 1614 | if(print_type_declaration(types->array[i], fd, |
1615 | 0, "", "")) return 1; | |
34c1d1b5 | 1616 | /* Print also the align function */ |
458989d8 | 1617 | if(print_type_alignment_fct(types->array[i], fd, |
1618 | 0, "", "")) return 1; | |
34c1d1b5 | 1619 | /* Print also the write function */ |
458989d8 | 1620 | if(print_type_write_fct(types->array[i], fd, |
1621 | 0, "", "")) return 1; | |
2d2d14a7 | 1622 | } |
1623 | return 0; | |
1624 | } | |
1625 | ||
1626 | int print_log_header_events(facility_t *fac, FILE *fd) | |
1627 | { | |
47299663 | 1628 | sequence_t *events = &fac->events; |
1629 | char basename[PATH_MAX]; | |
1630 | unsigned int facname_len; | |
1631 | ||
1632 | strncpy(basename, fac->name, PATH_MAX); | |
1633 | facname_len = strlen(basename); | |
1634 | strncat(basename, "_", PATH_MAX-facname_len); | |
1635 | facname_len = strlen(basename); | |
1636 | ||
1637 | for(unsigned int i = 0; i < events->position; i++) { | |
1638 | event_t *event = (event_t*)events->array[i]; | |
1639 | strncpy(&basename[facname_len], event->name, PATH_MAX-facname_len); | |
1640 | ||
1641 | /* For each event, print structure, and then logging function */ | |
1642 | fprintf(fd, "/* Event %s structures */\n", | |
1643 | event->name); | |
1644 | for(unsigned int j = 0; j < event->fields.position; j++) { | |
1645 | /* For each unnamed type, print the definition */ | |
1646 | field_t *f = (field_t*)event->fields.array[j]; | |
1647 | type_descriptor_t *t = f->type; | |
34c1d1b5 | 1648 | if(t->type_name == NULL) { |
47299663 | 1649 | if((print_type_declaration(t, fd, 0, basename, f->name))) return 1; |
34c1d1b5 | 1650 | /* Print also the align function */ |
1651 | if((print_type_alignment_fct(t, fd, 0, basename, f->name))) return 1; | |
1652 | /* Print also the write function */ | |
1653 | if((print_type_write_fct(t, fd, 0, basename, f->name))) return 1; | |
1654 | } | |
47299663 | 1655 | } |
34c1d1b5 | 1656 | |
47299663 | 1657 | fprintf(fd, "\n"); |
2d2d14a7 | 1658 | |
47299663 | 1659 | fprintf(fd, "/* Event %s logging function */\n", |
1660 | event->name); | |
1661 | ||
a3e6ce64 | 1662 | if(print_event_logging_function(basename, fac, event, fd)) return 1; |
47299663 | 1663 | |
1664 | fprintf(fd, "\n"); | |
1665 | } | |
1666 | ||
2d2d14a7 | 1667 | return 0; |
1668 | } | |
1669 | ||
1670 | ||
1671 | void print_log_header_tail(facility_t *fac, FILE *fd) | |
1672 | { | |
1673 | fprintf(fd, "#endif //_LTT_FACILITY_%s_H_\n",fac->capname); | |
1674 | } | |
1675 | ||
1676 | int print_log_header(facility_t *fac) | |
1677 | { | |
1678 | char filename[PATH_MAX]; | |
1679 | unsigned int filename_size = 0; | |
1680 | FILE *fd; | |
1681 | dprintf("%s\n", fac->name); | |
1682 | ||
1683 | strcpy(filename, "ltt-facility-"); | |
1684 | filename_size = strlen(filename); | |
1685 | ||
1686 | strncat(filename, fac->name, PATH_MAX - filename_size); | |
1687 | filename_size = strlen(filename); | |
1688 | ||
ffaf5031 | 1689 | if(fac->arch) { |
1690 | strncat(filename, "_", PATH_MAX - filename_size); | |
1691 | filename_size = strlen(filename); | |
1692 | ||
1693 | strncat(filename, fac->arch, PATH_MAX - filename_size); | |
1694 | filename_size = strlen(filename); | |
1695 | } | |
1696 | ||
2d2d14a7 | 1697 | strncat(filename, ".h", PATH_MAX - filename_size); |
1698 | filename_size = strlen(filename); | |
1699 | ||
1700 | ||
1701 | fd = fopen(filename, "w"); | |
1702 | if(fd == NULL) { | |
1703 | printf("Error opening file %s for writing : %s\n", | |
1704 | filename, strerror(errno)); | |
1705 | return errno; | |
1706 | } | |
1707 | ||
1708 | /* Print file head */ | |
1709 | print_log_header_head(fac, fd); | |
1710 | ||
1711 | /* print named types in declaration order */ | |
1712 | if(print_log_header_types(fac, fd)) return 1; | |
1713 | ||
1714 | /* Print events */ | |
1715 | if(print_log_header_events(fac, fd)) return 1; | |
1716 | ||
1717 | /* Print file tail */ | |
1718 | print_log_header_tail(fac, fd); | |
1719 | ||
1720 | ||
1721 | fclose(fd); | |
1722 | ||
1723 | return 0; | |
1724 | } | |
1725 | ||
1726 | ||
1727 | /* ltt-facility-id-name.h : facility id. | |
1728 | * log_id_header */ | |
1729 | int print_id_header(facility_t *fac) | |
1730 | { | |
1731 | char filename[PATH_MAX]; | |
1732 | unsigned int filename_size = 0; | |
1733 | FILE *fd; | |
71e09db9 | 1734 | char basename[PATH_MAX]; |
1735 | char basename_len = 0; | |
1736 | ||
2d2d14a7 | 1737 | dprintf("%s\n", fac->name); |
1738 | ||
1739 | strcpy(filename, "ltt-facility-id-"); | |
1740 | filename_size = strlen(filename); | |
1741 | ||
1742 | strncat(filename, fac->name, PATH_MAX - filename_size); | |
1743 | filename_size = strlen(filename); | |
1744 | ||
ffaf5031 | 1745 | if(fac->arch) { |
1746 | strncat(filename, "_", PATH_MAX - filename_size); | |
1747 | filename_size = strlen(filename); | |
1748 | ||
1749 | strncat(filename, fac->arch, PATH_MAX - filename_size); | |
1750 | filename_size = strlen(filename); | |
1751 | } | |
1752 | ||
2d2d14a7 | 1753 | strncat(filename, ".h", PATH_MAX - filename_size); |
1754 | filename_size = strlen(filename); | |
1755 | ||
1756 | ||
1757 | fd = fopen(filename, "w"); | |
1758 | if(fd == NULL) { | |
1759 | printf("Error opening file %s for writing : %s\n", | |
1760 | filename, strerror(errno)); | |
1761 | return errno; | |
1762 | } | |
1763 | ||
71e09db9 | 1764 | fprintf(fd, "#ifndef _LTT_FACILITY_ID_%s_H_\n",fac->capname); |
1765 | fprintf(fd, "#define _LTT_FACILITY_ID_%s_H_\n\n",fac->capname); | |
1766 | fprintf(fd, "#ifdef CONFIG_LTT\n"); | |
1767 | ||
1768 | fprintf(fd,"#include <linux/ltt-facilities.h>\n\n"); | |
1769 | ||
1770 | fprintf(fd,"/**** facility handle ****/\n\n"); | |
1771 | fprintf(fd,"extern ltt_facility_t ltt_facility_%s_%X;\n", | |
1772 | fac->name, fac->checksum); | |
1773 | fprintf(fd,"extern ltt_facility_t ltt_facility_%s;\n\n\n",fac->name); | |
1774 | ||
1775 | strncpy(basename, fac->name, PATH_MAX); | |
1776 | basename_len = strlen(basename); | |
1777 | strncat(basename, "_", PATH_MAX - basename_len); | |
1778 | basename_len++; | |
1779 | ||
1780 | fprintf(fd,"/**** event index ****/\n\n"); | |
1781 | fprintf(fd,"enum %s_event {\n",fac->name); | |
1782 | ||
1783 | for(unsigned int i = 0; i < fac->events.position; i++) { | |
1784 | event_t *event = (event_t*)fac->events.array[i]; | |
1785 | strncpy(basename+basename_len, event->name, PATH_MAX-basename_len); | |
1786 | print_tabs(1, fd); | |
1787 | fprintf(fd, "event_%s,\n", basename); | |
1788 | } | |
1789 | print_tabs(1, fd); | |
1790 | fprintf(fd, "facility_%s_num_events\n", fac->name); | |
1791 | fprintf(fd, "};\n"); | |
1792 | fprintf(fd, "\n"); | |
1793 | ||
1794 | ||
1795 | fprintf(fd, "#endif //CONFIG_LTT\n"); | |
1796 | fprintf(fd, "#endif //_LTT_FACILITY_ID_%s_H_\n",fac->capname); | |
1797 | ||
1798 | ||
2d2d14a7 | 1799 | fclose(fd); |
1800 | ||
1801 | return 0; | |
1802 | } | |
1803 | ||
1804 | ||
1805 | /* ltt-facility-loader-name.h : facility specific loader info. | |
1806 | * loader_header */ | |
1807 | int print_loader_header(facility_t *fac) | |
1808 | { | |
1809 | char filename[PATH_MAX]; | |
1810 | unsigned int filename_size = 0; | |
1811 | FILE *fd; | |
1812 | dprintf("%s\n", fac->name); | |
1813 | ||
1814 | strcpy(filename, "ltt-facility-loader-"); | |
1815 | filename_size = strlen(filename); | |
1816 | ||
1817 | strncat(filename, fac->name, PATH_MAX - filename_size); | |
1818 | filename_size = strlen(filename); | |
1819 | ||
ffaf5031 | 1820 | if(fac->arch) { |
1821 | strncat(filename, "_", PATH_MAX - filename_size); | |
1822 | filename_size = strlen(filename); | |
1823 | ||
1824 | strncat(filename, fac->arch, PATH_MAX - filename_size); | |
1825 | filename_size = strlen(filename); | |
1826 | } | |
1827 | ||
2d2d14a7 | 1828 | strncat(filename, ".h", PATH_MAX - filename_size); |
1829 | filename_size = strlen(filename); | |
1830 | ||
1831 | ||
1832 | fd = fopen(filename, "w"); | |
1833 | if(fd == NULL) { | |
1834 | printf("Error opening file %s for writing : %s\n", | |
1835 | filename, strerror(errno)); | |
1836 | return errno; | |
1837 | } | |
1838 | ||
71e09db9 | 1839 | fprintf(fd, "#ifndef _LTT_FACILITY_LOADER_%s_H_\n", fac->capname); |
1840 | fprintf(fd, "#define _LTT_FACILITY_LOADER_%s_H_\n\n", fac->capname); | |
1841 | fprintf(fd, "#ifdef CONFIG_LTT\n\n"); | |
1842 | fprintf(fd,"#include <linux/ltt-facilities.h>\n"); | |
ffaf5031 | 1843 | if(!fac->arch) |
1844 | fprintf(fd,"#include <linux/ltt/ltt-facility-id-%s.h>\n\n", | |
1845 | fac->name); | |
1846 | else | |
1847 | fprintf(fd,"#include <asm/ltt/ltt-facility-id-%s_%s.h>\n\n", | |
1848 | fac->name, | |
1849 | fac->arch); | |
71e09db9 | 1850 | fprintf(fd,"ltt_facility_t\tltt_facility_%s;\n", fac->name); |
1851 | fprintf(fd,"ltt_facility_t\tltt_facility_%s_%X;\n\n", | |
1852 | fac->name, fac->checksum); | |
1853 | ||
1854 | fprintf(fd,"#define LTT_FACILITY_SYMBOL\t\t\t\t\t\t\tltt_facility_%s\n", | |
1855 | fac->name); | |
1856 | fprintf(fd,"#define LTT_FACILITY_CHECKSUM_SYMBOL\t\tltt_facility_%s_%X\n", | |
1857 | fac->name, fac->checksum); | |
1858 | fprintf(fd,"#define LTT_FACILITY_CHECKSUM\t\t\t\t\t\t0x%X\n", fac->checksum); | |
1859 | fprintf(fd,"#define LTT_FACILITY_NAME\t\t\t\t\t\t\t\t\"%s\"\n", fac->name); | |
1860 | fprintf(fd,"#define LTT_FACILITY_NUM_EVENTS\t\t\t\t\tfacility_%s_num_events\n\n", | |
1861 | fac->name); | |
1862 | fprintf(fd, "#endif //CONFIG_LTT\n\n"); | |
1863 | fprintf(fd, "#endif //_LTT_FACILITY_LOADER_%s_H_\n", fac->capname); | |
1864 | ||
2d2d14a7 | 1865 | fclose(fd); |
1866 | ||
1867 | return 0; | |
1868 | } | |
1869 | ||
1870 | /* ltt-facility-loader-name.c : generic faciilty loader | |
1871 | * loader_c */ | |
1872 | int print_loader_c(facility_t *fac) | |
1873 | { | |
1874 | char filename[PATH_MAX]; | |
1875 | unsigned int filename_size = 0; | |
1876 | FILE *fd; | |
1877 | dprintf("%s\n", fac->name); | |
1878 | ||
1879 | strcpy(filename, "ltt-facility-loader-"); | |
1880 | filename_size = strlen(filename); | |
1881 | ||
1882 | strncat(filename, fac->name, PATH_MAX - filename_size); | |
1883 | filename_size = strlen(filename); | |
1884 | ||
ffaf5031 | 1885 | if(fac->arch) { |
1886 | strncat(filename, "_", PATH_MAX - filename_size); | |
1887 | filename_size = strlen(filename); | |
1888 | ||
1889 | strncat(filename, fac->arch, PATH_MAX - filename_size); | |
1890 | filename_size = strlen(filename); | |
1891 | } | |
1892 | ||
2d2d14a7 | 1893 | strncat(filename, ".c", PATH_MAX - filename_size); |
1894 | filename_size = strlen(filename); | |
1895 | ||
1896 | ||
1897 | fd = fopen(filename, "w"); | |
1898 | if(fd == NULL) { | |
1899 | printf("Error opening file %s for writing : %s\n", | |
1900 | filename, strerror(errno)); | |
1901 | return errno; | |
1902 | } | |
1903 | ||
71e09db9 | 1904 | fprintf(fd, "/*\n"); |
ffaf5031 | 1905 | if(!fac->arch) |
1906 | fprintf(fd, " * ltt-facility-loader-%s.c\n", fac->name); | |
1907 | else | |
1908 | fprintf(fd, " * ltt-facility-loader-%s_%s.c\n", fac->name, fac->arch); | |
71e09db9 | 1909 | fprintf(fd, " *\n"); |
1910 | fprintf(fd, " * (C) Copyright 2005 - \n"); | |
1911 | fprintf(fd, " * Mathieu Desnoyers (mathieu.desnoyers@polymtl.ca)\n"); | |
1912 | fprintf(fd, " *\n"); | |
1913 | fprintf(fd, " * Contains the LTT facility loader.\n"); | |
1914 | fprintf(fd, " *\n"); | |
1915 | fprintf(fd, " */\n"); | |
1916 | fprintf(fd, "\n"); | |
1917 | fprintf(fd, "\n"); | |
1918 | fprintf(fd, "#include <linux/ltt-facilities.h>\n"); | |
1919 | fprintf(fd, "#include <linux/module.h>\n"); | |
1920 | fprintf(fd, "#include <linux/init.h>\n"); | |
1921 | fprintf(fd, "#include <linux/config.h>\n"); | |
ffaf5031 | 1922 | if(!fac->arch) |
1923 | fprintf(fd, "#include \"ltt-facility-loader-%s.h\"\n", fac->name); | |
1924 | else | |
1925 | fprintf(fd, "#include \"ltt-facility-loader-%s_%s.h\"\n", | |
1926 | fac->name, fac->arch); | |
71e09db9 | 1927 | fprintf(fd, "\n"); |
1928 | fprintf(fd, "\n"); | |
1929 | fprintf(fd, "#ifdef CONFIG_LTT\n"); | |
1930 | fprintf(fd, "\n"); | |
1931 | fprintf(fd, "EXPORT_SYMBOL(LTT_FACILITY_SYMBOL);\n"); | |
1932 | fprintf(fd, "EXPORT_SYMBOL(LTT_FACILITY_CHECKSUM_SYMBOL);\n"); | |
1933 | fprintf(fd, "\n"); | |
1934 | fprintf(fd, "static const char ltt_facility_name[] = LTT_FACILITY_NAME;\n"); | |
1935 | fprintf(fd, "\n"); | |
1936 | fprintf(fd, "#define SYMBOL_STRING(sym) #sym\n"); | |
1937 | fprintf(fd, "\n"); | |
1938 | fprintf(fd, "static struct ltt_facility facility = {\n"); | |
1939 | fprintf(fd, "\t.name = ltt_facility_name,\n"); | |
1940 | fprintf(fd, "\t.num_events = LTT_FACILITY_NUM_EVENTS,\n"); | |
1941 | fprintf(fd, "\t.checksum = LTT_FACILITY_CHECKSUM,\n"); | |
1942 | fprintf(fd, "\t.symbol = SYMBOL_STRING(LTT_FACILITY_SYMBOL),\n"); | |
1943 | fprintf(fd, "};\n"); | |
1944 | fprintf(fd, "\n"); | |
1945 | fprintf(fd, "#ifndef MODULE\n"); | |
1946 | fprintf(fd, "\n"); | |
1947 | fprintf(fd, "/* Built-in facility. */\n"); | |
1948 | fprintf(fd, "\n"); | |
1949 | fprintf(fd, "static int __init facility_init(void)\n"); | |
1950 | fprintf(fd, "{\n"); | |
1951 | fprintf(fd, "\tprintk(KERN_INFO \"LTT : ltt-facility-%s init in kernel\\n\");\n", fac->name); | |
1952 | fprintf(fd, "\n"); | |
1953 | fprintf(fd, "\tLTT_FACILITY_SYMBOL = ltt_facility_builtin_register(&facility);\n"); | |
1954 | fprintf(fd, "\tLTT_FACILITY_CHECKSUM_SYMBOL = LTT_FACILITY_SYMBOL;\n"); | |
1955 | fprintf(fd, "\t\n"); | |
1956 | fprintf(fd, "\treturn LTT_FACILITY_SYMBOL;\n"); | |
1957 | fprintf(fd, "}\n"); | |
1958 | fprintf(fd, "__initcall(facility_init);\n"); | |
1959 | fprintf(fd, "\n"); | |
1960 | fprintf(fd, "\n"); | |
1961 | fprintf(fd, "\n"); | |
1962 | fprintf(fd, "#else \n"); | |
1963 | fprintf(fd, "\n"); | |
1964 | fprintf(fd, "/* Dynamic facility. */\n"); | |
1965 | fprintf(fd, "\n"); | |
1966 | fprintf(fd, "static int __init facility_init(void)\n"); | |
1967 | fprintf(fd, "{\n"); | |
1968 | fprintf(fd, "\tprintk(KERN_INFO \"LTT : ltt-facility-%s init dynamic\\n\");\n", fac->name); | |
1969 | fprintf(fd, "\n"); | |
1970 | fprintf(fd, "\tLTT_FACILITY_SYMBOL = ltt_facility_dynamic_register(&facility);\n"); | |
1971 | fprintf(fd, "\tLTT_FACILITY_CHECKSUM_SYMBOL = LTT_FACILITY_SYMBOL;\n"); | |
1972 | fprintf(fd, "\n"); | |
1973 | fprintf(fd, "\treturn LTT_FACILITY_SYMBOL;\n"); | |
1974 | fprintf(fd, "}\n"); | |
1975 | fprintf(fd, "\n"); | |
1976 | fprintf(fd, "static void __exit facility_exit(void)\n"); | |
1977 | fprintf(fd, "{\n"); | |
1978 | fprintf(fd, "\tint err;\n"); | |
1979 | fprintf(fd, "\n"); | |
1980 | fprintf(fd, "\terr = ltt_facility_dynamic_unregister(LTT_FACILITY_SYMBOL);\n"); | |
1981 | fprintf(fd, "\tif(err != 0)\n"); | |
1982 | fprintf(fd, "\t\tprintk(KERN_ERR \"LTT : Error in unregistering facility.\\n\");\n"); | |
1983 | fprintf(fd, "\n"); | |
1984 | fprintf(fd, "}\n"); | |
1985 | fprintf(fd, "\n"); | |
1986 | fprintf(fd, "module_init(facility_init)\n"); | |
1987 | fprintf(fd, "module_exit(facility_exit)\n"); | |
1988 | fprintf(fd, "\n"); | |
1989 | fprintf(fd, "\n"); | |
1990 | fprintf(fd, "MODULE_LICENSE(\"GPL\");\n"); | |
1991 | fprintf(fd, "MODULE_AUTHOR(\"Mathieu Desnoyers\");\n"); | |
1992 | fprintf(fd, "MODULE_DESCRIPTION(\"Linux Trace Toolkit Facility\");\n"); | |
1993 | fprintf(fd, "\n"); | |
1994 | fprintf(fd, "#endif //MODULE\n"); | |
1995 | fprintf(fd, "\n"); | |
1996 | fprintf(fd, "#endif //CONFIG_LTT\n"); | |
2d2d14a7 | 1997 | |
1998 | fclose(fd); | |
1999 | ||
2000 | return 0; | |
2001 | } | |
2002 | ||
2003 | ||
2004 | ||
92d82357 | 2005 | /* open facility */ |
2006 | /* code taken from ltt_facility_open in ltt/facility.c in lttv */ | |
2007 | ||
2008 | /***************************************************************************** | |
2009 | *Function name | |
2010 | * ltt_facility_open : open facilities | |
2011 | *Input params | |
2012 | * pathname : the path name of the facility | |
2013 | * | |
2014 | * Open the facility corresponding to the right checksum. | |
2015 | * | |
2016 | *returns the facility on success, NULL on error. | |
2017 | ****************************************************************************/ | |
2018 | facility_t *ltt_facility_open(char * pathname) | |
2019 | { | |
2020 | int ret = 0; | |
2021 | char *token; | |
2022 | parse_file_t in; | |
2023 | facility_t * fac = NULL; | |
92d82357 | 2024 | char buffer[BUFFER_SIZE]; |
2025 | int generated = FALSE; | |
2026 | ||
2027 | in.buffer = &(buffer[0]); | |
2028 | in.lineno = 0; | |
2029 | in.error = error_callback; | |
2030 | in.name = pathname; | |
2031 | in.unget = 0; | |
2032 | ||
2033 | in.fp = fopen(in.name, "r"); | |
2034 | if(in.fp == NULL) { | |
2035 | ret = 1; | |
2036 | goto open_error; | |
2037 | } | |
2038 | ||
2039 | while(1){ | |
2040 | token = getToken(&in); | |
2041 | if(in.type == ENDFILE) break; | |
2042 | ||
2043 | if(generated) { | |
2044 | printf("More than one facility in the file. Only using the first one.\n"); | |
2045 | break; | |
2046 | } | |
2047 | ||
2048 | if(strcmp(token, "<")) in.error(&in,"not a facility file"); | |
2049 | token = getName(&in); | |
2050 | ||
2051 | if(strcmp("facility",token) == 0) { | |
2052 | fac = malloc(sizeof(facility_t)); | |
2053 | fac->name = NULL; | |
2054 | fac->description = NULL; | |
2055 | sequence_init(&(fac->events)); | |
2056 | table_init(&(fac->named_types)); | |
2057 | sequence_init(&(fac->unnamed_types)); | |
2058 | ||
2059 | parseFacility(&in, fac); | |
2060 | ||
2061 | //check if any namedType is not defined | |
2062 | checkNamedTypesImplemented(&fac->named_types); | |
2063 | ||
2e415130 | 2064 | generateChecksum(fac->name, &fac->checksum, &fac->events); |
a67cd958 | 2065 | |
92d82357 | 2066 | generated = TRUE; |
2067 | } | |
2068 | else { | |
2069 | printf("facility token was expected in file %s\n", in.name); | |
2070 | ret = 1; | |
2071 | goto parse_error; | |
2072 | } | |
2073 | } | |
2074 | ||
2075 | parse_error: | |
2076 | fclose(in.fp); | |
2077 | open_error: | |
2078 | ||
2079 | if(!generated) { | |
2080 | printf("Cannot find facility %s\n", pathname); | |
2081 | fac = NULL; | |
2082 | } | |
2083 | ||
2084 | return fac; | |
2085 | } | |
2086 | ||
2087 | /* Close the facility */ | |
2088 | void ltt_facility_close(facility_t *fac) | |
2089 | { | |
2090 | free(fac->name); | |
2091 | free(fac->capname); | |
2092 | free(fac->description); | |
2093 | freeEvents(&fac->events); | |
2094 | sequence_dispose(&fac->events); | |
2095 | freeNamedType(&fac->named_types); | |
2096 | table_dispose(&fac->named_types); | |
2097 | freeTypes(&fac->unnamed_types); | |
2098 | sequence_dispose(&fac->unnamed_types); | |
2099 | free(fac); | |
2100 | } | |
2101 | ||
2102 | ||
2103 | /* Show help */ | |
2104 | void show_help(int argc, char ** argv) | |
2105 | { | |
2106 | printf("Genevent help : \n"); | |
2107 | printf("\n"); | |
2108 | printf("Use %s name.xml\n", argv[0]); | |
2109 | printf("to create :\n"); | |
2110 | printf("ltt-facility-name.h\n"); | |
2111 | printf("ltt-facility-id-name.h\n"); | |
2112 | printf("ltt-facility-loader-name.h\n"); | |
2113 | printf("ltt-facility-loader-name.c\n"); | |
2114 | printf("In the current directory.\n"); | |
2115 | printf("\n"); | |
2116 | } | |
2117 | ||
2118 | /* Parse program arguments */ | |
2119 | /* Return values : | |
2120 | * 0 : continue program | |
2121 | * -1 : stop program, return 0 | |
2122 | * > 0 : stop program, return value as exit. | |
2123 | */ | |
2124 | int check_args(int argc, char **argv) | |
2125 | { | |
2126 | if(argc < 2) { | |
2127 | printf("Not enough arguments\n"); | |
2128 | show_help(argc, argv); | |
2129 | return EINVAL; | |
2130 | } | |
2131 | ||
2132 | if(strcmp(argv[1], "-h") == 0) { | |
2133 | show_help(argc, argv); | |
2134 | return -1; | |
2135 | } | |
2136 | ||
2137 | return 0; | |
2138 | } | |
2139 | ||
2140 | int main(int argc, char **argv) | |
2141 | { | |
2142 | int err = 0; | |
2143 | facility_t *fac; | |
2144 | ||
2145 | err = check_args(argc, argv); | |
2146 | if(err > 0) return err; | |
2147 | else if(err < 0) return 0; | |
2148 | ||
2149 | /* open the facility */ | |
2150 | fac = ltt_facility_open(argv[1]); | |
2151 | if(fac == NULL) { | |
2152 | printf("Error opening file %s for reading : %s\n", | |
2153 | argv[1], strerror(errno)); | |
2154 | return errno; | |
2155 | } | |
2156 | ||
2157 | /* generate the output C files */ | |
2158 | ||
2159 | ||
2d2d14a7 | 2160 | /* ltt-facility-name.h : main logging header. |
2161 | * log_header */ | |
2162 | err = print_log_header(fac); | |
2163 | if(err) return err; | |
92d82357 | 2164 | |
2d2d14a7 | 2165 | /* ltt-facility-id-name.h : facility id. |
2166 | * log_id_header */ | |
2167 | err = print_id_header(fac); | |
2168 | if(err) return err; | |
92d82357 | 2169 | |
2d2d14a7 | 2170 | /* ltt-facility-loader-name.h : facility specific loader info. |
2171 | * loader_header */ | |
2172 | err = print_loader_header(fac); | |
2173 | if(err) return err; | |
2174 | ||
2175 | /* ltt-facility-loader-name.c : generic faciilty loader | |
2176 | * loader_c */ | |
2177 | err = print_loader_c(fac); | |
2178 | if(err) return err; | |
92d82357 | 2179 | |
2180 | /* close the facility */ | |
2181 | ltt_facility_close(fac); | |
2182 | ||
2183 | return 0; | |
2184 | } | |
2185 | ||
2186 |