3 /* Copyright (c) 2006 Arnaud Legrand. All rights reserved. */
5 /* This program is free software; you can redistribute it and/or modify it
6 * under the terms of the license (GNU LGPL) which comes with this package. */
9 #include "xbt/sysdep.h"
11 #include "xbt/asserts.h"
13 #include "xbt/dynar.h"
14 #include "xbt/graphxml_parse.h"
16 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(graphxml_parse, xbt,
17 "Logging specific to the graphxml parsing module");
22 static xbt_dynar_t xbt_graph_input_buffer_stack = NULL;
23 static xbt_dynar_t xbt_graph_file_to_parse_stack = NULL;
25 static void nil_function(void)
30 void_f_void_t STag_graphxml_graph_fun = nil_function;
31 void_f_void_t ETag_graphxml_graph_fun = nil_function;
32 void_f_void_t STag_graphxml_node_fun = nil_function;
33 void_f_void_t ETag_graphxml_node_fun = nil_function;
34 void_f_void_t STag_graphxml_edge_fun = nil_function;
35 void_f_void_t ETag_graphxml_edge_fun = nil_function;
37 YY_BUFFER_STATE xbt_graph_input_buffer;
38 FILE *xbt_graph_file_to_parse;
40 void xbt_graph_parse_reset_parser(void)
42 STag_graphxml_graph_fun = nil_function;
43 ETag_graphxml_graph_fun = nil_function;
44 STag_graphxml_node_fun = nil_function;
45 ETag_graphxml_node_fun = nil_function;
46 STag_graphxml_edge_fun = nil_function;
47 ETag_graphxml_edge_fun = nil_function;
50 void STag_graphxml_graph(void)
52 (*STag_graphxml_graph_fun) ();
55 void ETag_graphxml_graph(void)
57 (*ETag_graphxml_graph_fun) ();
61 void STag_graphxml_node(void)
63 (*STag_graphxml_node_fun) ();
66 void ETag_graphxml_node(void)
68 (*ETag_graphxml_node_fun) ();
72 void STag_graphxml_edge(void)
74 (*STag_graphxml_edge_fun) ();
77 void ETag_graphxml_edge(void)
79 (*ETag_graphxml_edge_fun) ();
84 void xbt_graph_parse_open(const char *file)
88 ("I hope you know what you're doing... you just gave me a NULL pointer!");
91 if (!xbt_graph_input_buffer_stack)
92 xbt_graph_input_buffer_stack =
93 xbt_dynar_new(sizeof(YY_BUFFER_STATE), NULL);
94 if (!xbt_graph_file_to_parse_stack)
95 xbt_graph_file_to_parse_stack = xbt_dynar_new(sizeof(FILE *), NULL);
97 xbt_graph_file_to_parse = fopen(file, "r"); /* FIXME should use something like surf_fopen */
98 xbt_assert1((xbt_graph_file_to_parse), "Unable to open \"%s\"\n", file);
99 xbt_graph_input_buffer =
100 xbt_graph_parse__create_buffer(xbt_graph_file_to_parse, 10);
101 xbt_graph_parse__switch_to_buffer(xbt_graph_input_buffer);
102 xbt_graph_parse_lineno = 1;
105 void xbt_graph_parse_close(void)
107 if (xbt_graph_input_buffer_stack)
108 xbt_dynar_free(&xbt_graph_input_buffer_stack);
109 if (xbt_graph_file_to_parse_stack)
110 xbt_dynar_free(&xbt_graph_file_to_parse_stack);
112 if (xbt_graph_file_to_parse) {
113 xbt_graph_parse__delete_buffer(xbt_graph_input_buffer);
114 fclose(xbt_graph_file_to_parse);
119 static int _xbt_graph_parse(void)
121 return xbt_graph_parse_lex();
124 int_f_void_t xbt_graph_parse = _xbt_graph_parse;
126 void xbt_graph_parse_get_double(double *value, const char *string)
130 ret = sscanf(string, "%lg", value);
131 xbt_assert2((ret == 1), "Parse error line %d : %s not a number",
132 xbt_graph_parse_lineno, string);