2 * We don't use unput, so don't generate code for it.
7 * We don't read from the terminal.
9 %option never-interactive
12 * Prefix scanner routines with "Dtd_Parse_" rather than "yy", so this scanner
13 * can coexist with other scanners.
15 %option prefix="Dtd_Parse_"
17 %option outfile="dtd_parse.c"
22 * an XML dissector for Wireshark
23 * lexical analyzer for DTDs
25 * Copyright 2004, Luis E. Garcia Ontanon <luis.ontanon@gmail.com>
29 * Wireshark - Network traffic analyzer
30 * By Gerald Combs <gerald@wireshark.org>
31 * Copyright 1998 Gerald Combs
33 * This program is free software; you can redistribute it and/or
34 * modify it under the terms of the GNU General Public License
35 * as published by the Free Software Foundation; either version 2
36 * of the License, or (at your option) any later version.
38 * This program is distributed in the hope that it will be useful,
39 * but WITHOUT ANY WARRANTY; without even the implied warranty of
40 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
41 * GNU General Public License for more details.
43 * You should have received a copy of the GNU General Public License
44 * along with this program; if not, write to the Free Software
45 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
52 #include "dtd_grammar.h"
53 #include "dtd_parse.h"
54 #include "dtd_parse_lex.h"
56 #ifdef NEED_G_ASCII_STRCASECMP_H
57 #include "g_ascii_strcasecmp.h"
60 struct _proto_xmlpi_attr {
66 static GString* input_string;
69 static gchar* location;
70 static gchar* attr_name;
72 static int my_yyinput(char* buff,guint size);
74 static dtd_token_data_t* new_token(gchar*);
76 static dtd_build_data_t* build_data;
78 static void set_proto_name (gchar* val) { if(build_data->proto_name) g_free(build_data->proto_name); build_data->proto_name = g_strdup(val); }
79 static void set_media_type (gchar* val) { if(build_data->media_type) g_free(build_data->media_type); build_data->media_type = g_strdup(val); }
80 static void set_proto_root (gchar* val) { if(build_data->proto_root) g_free(build_data->proto_root); build_data->proto_root = g_strdup(val); }
81 static void set_description (gchar* val) { if(build_data->description) g_free(build_data->description); build_data->description = g_strdup(val); }
82 static void set_recursive (gchar* val) { build_data->recursion = ( g_ascii_strcasecmp(val,"yes") == 0 ) ? TRUE : FALSE; }
84 static struct _proto_xmlpi_attr proto_attrs[] =
86 { "proto_name", set_proto_name },
87 { "media", set_media_type },
88 { "root", set_proto_root },
89 { "description", set_description },
90 { "hierarchy", set_recursive },
94 #ifdef DEBUG_DTD_PARSER
95 #define DEBUG_DTD_TOKEN fprintf(stderr,"->%s (%i)%s\n",location,token_type,yytext)
97 #define DEBUG_DTD_TOKEN
100 #define DTD_PARSE(token_type) \
102 DtdParse(pParser, (token_type), new_token(yytext), build_data); \
103 if(build_data->error->len > 0) yyterminate(); \
107 #define YY_INPUT(buff,result,max_size) ( (result) = my_yyinput((buff),(max_size)) )
110 * Flex (v 2.5.35) uses this symbol to "exclude" unistd.h
113 #define YY_NO_UNISTD_H
123 location_xmlpi "wireshark:location"
124 protocol_xmlpi "wireshark:protocol"
126 get_attr_quote =[:blank:]*["]
129 get_location_xmlpi [^[:blank:]]+
133 notation_tag "<!"[:blank:]*NOTATION
137 whitespace [[:blank:]\r\n]+
174 name [A-Za-z0-9][-a-zA-Z0-9_]*
178 %START DTD XMLPI LOCATION DONE PROTOCOL GET_ATTR_QUOTE GET_ATTR_VAL GET_ATTR_CLOSE_QUOTE IN_COMMENT IN_NOTATION
184 <DTD>{comment_start} { BEGIN IN_COMMENT; }
187 <IN_COMMENT>{comment_stop} { BEGIN DTD; }
189 <DTD>{notation_tag} { BEGIN IN_NOTATION; }
191 <IN_NOTATION>{special_stop} { BEGIN DTD; }
197 <XMLPI>{location_xmlpi} {
201 <XMLPI>{protocol_xmlpi} {
206 <XMLPI>{stop_xmlpi} BEGIN DTD;
208 <LOCATION>{get_location_xmlpi} {
209 if(location) g_free(location);
210 location = g_strdup(yytext);
214 <DONE>{stop_xmlpi} BEGIN DTD;
217 attr_name = g_strdup(yytext);
218 g_strdown(attr_name);
219 BEGIN GET_ATTR_QUOTE;
222 <GET_ATTR_QUOTE>{get_attr_quote} { BEGIN GET_ATTR_VAL; }
225 g_string_sprintfa(build_data->error,
226 "error in wireshark:protocol xmpli at %s : could not find attribute value!",
231 <GET_ATTR_VAL>[^"]+ {
233 struct _proto_xmlpi_attr* pa;
234 gboolean got_it = FALSE;
236 for(pa = proto_attrs; pa->name; pa++) {
237 if (g_ascii_strcasecmp(attr_name,pa->name) == 0) {
245 g_string_sprintfa(build_data->error,
246 "error in wireshark:protocol xmpli at %s : no such parameter %s!",
247 location, attr_name);
254 BEGIN GET_ATTR_CLOSE_QUOTE;
257 <GET_ATTR_CLOSE_QUOTE>{dquote} { BEGIN PROTOCOL;}
259 <PROTOCOL>{stop_xmlpi} BEGIN DTD;
261 <DTD>{special_start} { DTD_PARSE(TOKEN_TAG_START); }
262 <DTD>{special_stop} { DTD_PARSE(TOKEN_TAG_STOP); }
264 <DTD>{attlist_kw} { DTD_PARSE(TOKEN_ATTLIST_KW); }
265 <DTD>{element_kw} { DTD_PARSE(TOKEN_ELEMENT_KW); }
266 <DTD>{doctype_kw} { DTD_PARSE(TOKEN_DOCTYPE_KW); }
268 <DTD>{pcdata} { DTD_PARSE(TOKEN_ELEM_DATA); }
269 <DTD>{any} { DTD_PARSE(TOKEN_ELEM_DATA); }
270 <DTD>{cdata} { DTD_PARSE(TOKEN_ELEM_DATA); }
271 <DTD>{empty} { DTD_PARSE(TOKEN_EMPTY_KW); }
273 <DTD>{iD} { DTD_PARSE(TOKEN_ATT_TYPE); }
274 <DTD>{idref} { DTD_PARSE(TOKEN_ATT_TYPE); }
275 <DTD>{idrefs} { DTD_PARSE(TOKEN_ATT_TYPE); }
276 <DTD>{nmtoken} { DTD_PARSE(TOKEN_ATT_TYPE); }
277 <DTD>{nmtokens} { DTD_PARSE(TOKEN_ATT_TYPE); }
278 <DTD>{entity} { DTD_PARSE(TOKEN_ATT_TYPE); }
279 <DTD>{entities} { DTD_PARSE(TOKEN_ATT_TYPE); }
280 <DTD>{notation} { DTD_PARSE(TOKEN_ATT_TYPE); }
281 <DTD>{cdata_t} { DTD_PARSE(TOKEN_ATT_TYPE); }
282 <DTD>{defaulT} { DTD_PARSE(TOKEN_ATT_DEF_WITH_VALUE); }
283 <DTD>{fixed} { DTD_PARSE(TOKEN_ATT_DEF_WITH_VALUE); }
284 <DTD>{required} { DTD_PARSE(TOKEN_ATT_DEF); }
285 <DTD>{implied} { DTD_PARSE(TOKEN_ATT_DEF); }
287 <DTD>{star} { DTD_PARSE(TOKEN_STAR); }
288 <DTD>{question} { DTD_PARSE(TOKEN_QUESTION); }
289 <DTD>{plus} { DTD_PARSE(TOKEN_PLUS); }
290 <DTD>{comma} { DTD_PARSE(TOKEN_COMMA); }
291 <DTD>{open_parens} { DTD_PARSE(TOKEN_OPEN_PARENS); }
292 <DTD>{close_parens} { DTD_PARSE(TOKEN_CLOSE_PARENS); }
293 <DTD>{open_bracket} { DTD_PARSE(TOKEN_OPEN_BRACKET); }
294 <DTD>{close_bracket} { DTD_PARSE(TOKEN_CLOSE_BRACKET); }
295 <DTD>{pipe} { DTD_PARSE(TOKEN_PIPE); }
298 <DTD>{squoted} { DTD_PARSE(TOKEN_QUOTED); }
299 <DTD>{name} { DTD_PARSE(TOKEN_NAME); }
303 static dtd_token_data_t* new_token(gchar* text) {
304 dtd_token_data_t* t = g_malloc(sizeof(dtd_token_data_t));
306 t->text = g_strdup(text);
307 t->location = g_strdup(location);
313 static int my_yyinput(char* buff, guint size) {
315 if (offset >= len ) {
317 } else if ( offset + size <= len ) {
318 memcpy(buff, input_string->str + offset,size);
323 memcpy(buff, input_string->str + offset,size);
329 extern dtd_build_data_t* dtd_parse(GString* s) {
333 len = input_string->len;
335 pParser = DtdParseAlloc(g_malloc);
337 #ifdef DEBUG_DTD_PARSER
338 DtdParseTrace(stderr, ">>");
341 build_data = g_malloc(sizeof(dtd_build_data_t));
343 build_data->proto_name = NULL;
344 build_data->media_type = NULL;
345 build_data->description = NULL;
346 build_data->proto_root = NULL;
347 build_data->recursion = FALSE;
349 build_data->elements = g_ptr_array_new();
350 build_data->attributes = g_ptr_array_new();
352 build_data->error = g_string_new("");
360 DtdParse(pParser, 0, NULL,build_data);
364 if (location) g_free(location);
368 DtdParseFree(pParser, g_free );
374 * We want to stop processing when we get to the end of the input.
375 * (%option noyywrap is not used because if used then
376 * some flex versions (eg: 2.5.35) generate code which causes
377 * warnings by the Windows VC compiler).