one step further...
authorlego <lego@f5534014-38df-0310-8fa8-9805f1628bb7>
Sat, 1 Oct 2005 15:19:36 +0000 (15:19 +0000)
committerlego <lego@f5534014-38df-0310-8fa8-9805f1628bb7>
Sat, 1 Oct 2005 15:19:36 +0000 (15:19 +0000)
 TPG now uses the ignore feature of tvbparse
 named sub_rules can have cardinality

epan/tvbparse.c:
   do not crash on zero cardinality

git-svn-id: http://anonsvn.wireshark.org/wireshark/trunk@16065 f5534014-38df-0310-8fa8-9805f1628bb7

epan/tpg.c
epan/tpg.h
epan/tvbparse.c
plugins/tpg/http.tpg
plugins/tpg/packet-http.c
tools/tpg/tpg.yp

index 2813b795c07cdfc44102af1fd4f52a52941f2818..5a29b8ba4a6e841ea6eac739d430390114a8a198 100644 (file)
@@ -47,10 +47,11 @@ extern tpg_parser_data_t* tpg_start(proto_tree* root_tree,
                                     tvbuff_t* tvb,
                                     int offset,
                                     int len,
+                                    tvbparse_wanted_t* ignore,
                                     void* private_data) {
     tpg_parser_data_t* tpg = ep_alloc(sizeof(tpg_parser_data_t));
     tpg->private_data = private_data;
-    tpg->tt = tvbparse_init(tvb,offset,len,tpg,NULL);
+    tpg->tt = tvbparse_init(tvb,offset,len,tpg,ignore);
 
     tpg->stack = ep_stack_new();
     ep_stack_push(tpg->stack,root_tree);
index 84b3ba02f0a742bfc2f3da36890f8c2cfab3179f..4f0170e755a0174144e8088518fed391ce3192a4 100644 (file)
@@ -45,7 +45,9 @@ extern tpg_parser_data_t* tpg_start(proto_tree* root_tree,
                                     tvbuff_t* tvb,
                                     int offset,
                                     int len,
+                                    tvbparse_wanted_t* ignore,
                                     void* private_data);
+
 #define TPG_START(tree,tvb,offset,len,data) tpg_start((tree),(tvb),(offset),(len),(data))
 
 #define TPG_GET(tpg, wanted)  tvbparse_get((tpg)->tt,(wanted))
index f6950e75fa5b74e16c8f8687306e22d226c877d1..78dbffbde22d647863e13a8d35b43b06072a4c29 100644 (file)
@@ -663,7 +663,7 @@ tvbparse_elem_t* tvbparse_get(tvbparse_t* tt,
                        tvbparse_wanted_t* w = g_ptr_array_index(wanted->elems,0);
                        
             if ( wanted->min == 0 ) {
-                new_tok(tt,wanted->id,tt->offset,0,wanted);
+                tok = new_tok(tt,wanted->id,tt->offset,0,wanted);
             }
             
                        while (got_so_far < wanted->max) {
@@ -672,8 +672,12 @@ tvbparse_elem_t* tvbparse_get(tvbparse_t* tt,
                                if(new) {
                                        if (tok) {
                                                tok->len = (new->offset - tok->offset) + new->len;
-                                               tok->sub->last->next = new;
-                                               tok->sub->last = new;
+                        if (tok->sub) {
+                            tok->sub->last->next = new;
+                            tok->sub->last = new;
+                        } else {
+                            tok->sub = new;                            
+                        }
                                        } else {
                                                tok = new_tok(tt, wanted->id, new->offset, new->len, wanted);
                                                tok->sub = new;
index 9bc45d7537984f045d957d3446275c75bc91a121..790f1cf06503d6252d5c4e46f0f5921af2a2f5fa 100644 (file)
@@ -39,8 +39,7 @@ typedef struct _http_info_value_t
 %}
 
 %parser_name http .
-%export req_resp header crlf .
-
+%export req_resp header crlf sp.
 
 %tt_type %{ http_info_value_t %}
 
@@ -57,7 +56,7 @@ typedef struct _http_info_value_t
 %field response hyttp.response "Response" FT_STRING .
 %field response_code hyttp.response.code "Response Code" FT_UINT32 BASE_DEC %{ http_response_codes %} .
 
-%sequence %tree response = http_version & sp & [0-9]+<response_code:RESPONSE> & ... ( crlf ) . <response:%plain_text>  %{
+%sequence %tree response = http_version & [0-9]+<response_code:RESPONSE> & ... ( crlf ) . <response:%plain_text>  %{
     TT_DATA->is_response = TRUE;
     TT_DATA->response_code = TPG_UINT(RESPONSE);
 %}
@@ -66,7 +65,7 @@ typedef struct _http_info_value_t
 %field request hyttp.request "Request" FT_STRING .
 %field method hyttp.request.method "Request Method" FT_STRING  .
 %field uri hyttp.request.uri "Request URI" FT_STRING  .
-%sequence %tree request  = [A-Z]+<method:METHOD> & sp & [^ ]+<uri:URI> & sp & http_version & crlf . <request:%plain_text>  %{
+%sequence %tree request  = [A-Z]+<method:METHOD> & [^ ]+<uri:URI> & http_version & crlf . <request:%plain_text>  %{
     TT_DATA->is_response = FALSE;
     TT_DATA->request_method = TPG_STRING(METHOD);
     TT_DATA->request_uri = TPG_STRING(URI);
@@ -76,82 +75,95 @@ typedef struct _http_info_value_t
 
 %field media hyttp.content_type.media "Content-Type Media" FT_STRING  .
 
-%sequence media  = [a-z]+ & "/"  & [a-z]+ . <media:MEDIA> %{
+%sequence media  = [a-zA-Z0-9-]+ & "/"  & [a-zA-Z0-9-]+ . <media:MEDIA> %{
         TT_DATA->media = TPG_STRING(MEDIA);
 %}
 
-%sequence content_type_value = media & ... ( crlf   %leave ) . <content_type>
 
-%field content_type hyttp.content_type "Content-Type" FT_STRING  .
-%sequence content_type_hdr = 'Content-type: ' & content_type_value & crlf .
+%sequence quoted_string = ["] & [^"]* & ["] .
+
+%choice value = [a-zA-Z0-9-]+ | quoted_string. 
+
+%field charset hyttp.content_type.charset "Content-Type Charset" FT_STRING  .
+
+%sequence parameter  = [a-zA-Z0-9-]+ & [=] & value.
+%sequence charset_parameter = 'charset' & '=' & [a-z0-9-]+<charset> .
+
+%choice content_type_param = charset_parameter | parameter .
+
+%sequence content_type_params =  [;] & content_type_param .
+
+%sequence content_type_value = media  & content_type_params* .
+
+%sequence content_type_hdr = 'Content-type:' & content_type_value & crlf .
 
 %field content_length hyttp.headers.content_length "Content-Length" FT_UINT32 BASE_DEC .
-%sequence content_length = 'Content-length: '  & [0-9]+<content_length:LENGTH>  & crlf. %{
+%sequence content_length = 'Content-length:'  & [0-9]+<content_length:LENGTH>  & crlf. %{
     TT_DATA->content_length = TPG_UINT(LENGTH);
 %}
 
 %field transfer_encoding hyttp.transfer_encoding "Transfer-Encoding" FT_STRING  .
-%sequence transfer_encoding = 'Transfer-encoding: ' & ...<transfer_encoding:ENCODING> ( crlf     %leave )  & crlf.  %{
+%sequence transfer_encoding = 'Transfer-encoding:' & ...<transfer_encoding:ENCODING> ( crlf     %leave )  & crlf.  %{
     TT_DATA->transfer_encoding = TPG_STRING(ENCODING);
 %}
 
 %field authorization hyttp.authorization "Authorization" FT_STRING  .
-%sequence authorization = 'Authorization: ' & ...<authorization> ( crlf     %leave ) & crlf.
+%sequence authorization = 'Authorization:' & ...<authorization> ( crlf     %leave ) & crlf.
 
 %field proxy_authorization hyttp.proxy_authorization "Proxy-Authorization" FT_STRING  .
-%sequence proxy_author = 'Proxy-authorization: ' & ...<proxy_authorization> ( crlf     %leave ) & crlf.
+%sequence proxy_author = 'Proxy-authorization:' & ...<proxy_authorization> ( crlf     %leave ) & crlf.
 
 %field proxy_authen hyttp.proxy_authenti "Proxy-Authenticate" FT_STRING  .
-%sequence proxy_authen = 'Proxy-authenticate: ' & ...<proxy_authen> ( crlf     %leave ) & crlf.
+%sequence proxy_authen = 'Proxy-authenticate:' & ...<proxy_authen> ( crlf     %leave ) & crlf.
 
 %field www_auth hyttp.www_authenticate "WWW-Authenticate" FT_STRING  .
-%sequence www_auth = 'WWW-authenticate: ' & ...<www_auth> ( crlf     %leave ) & crlf.
+%sequence www_auth = 'WWW-authenticate:' & ...<www_auth> ( crlf     %leave ) & crlf.
 
 %field content_encoding hyttp.content_encoding "Content-Encoding" FT_STRING  .
-%sequence content_encoding = 'Content-Encoding: ' & ...<content_encoding> ( crlf     %leave ) & crlf.
+%sequence content_encoding = 'Content-Encoding:' & ...<content_encoding> ( crlf     %leave ) & crlf.
 
 %field user_agent hyttp.content_encoding "User-Agent" FT_STRING  .
-%sequence user_agent = 'User-Agent: ' & ...<user_agent> ( crlf     %leave ) & crlf.
+%sequence user_agent = 'User-Agent:' & ...<user_agent> ( crlf     %leave ) & crlf.
 
 %field host hyttp.host "Host" FT_STRING  .
-%sequence host  = 'Host: ' & ...<host:HOST> ( crlf     %leave ) & crlf. %{
+%sequence host  = 'Host:' & ...<host:HOST> ( crlf     %leave ) & crlf. %{
     TT_DATA->http_host = TPG_STRING(HOST);
 %}
 
 %field accept hyttp.accept "Accept" FT_STRING  .
-%sequence accept  = 'Accept: ' & ...<accept> ( crlf     %leave ) & crlf.
+%sequence accept  = 'Accept:' & ...<accept> ( crlf     %leave ) & crlf.
 
 %field accept_language hyttp.accept_language "Accept-Language" FT_STRING  .
-%sequence accept_language  = 'Accept-language: ' & ...<accept_language> ( crlf     %leave ) & crlf.
+%sequence accept_language  = 'Accept-language:' & ...<accept_language> ( crlf     %leave ) & crlf.
 
 %field accept_encoding hyttp.accept_encoding "Accept-Language" FT_STRING  .
-%sequence accept_encoding  = 'Accept-encoding: ' & ...<accept_encoding> ( crlf     %leave ) & crlf.
+%sequence accept_encoding  = 'Accept-encoding:' & ...<accept_encoding> ( crlf     %leave ) & crlf.
 
 %field accept_ranges hyttp.accept_encoding "Accept-Ranges" FT_STRING  .
-%sequence accept_ranges  = 'Accept-Ranges: ' & ...<accept_ranges> ( crlf     %leave ) & crlf.
+%sequence accept_ranges  = 'Accept-Ranges:' & ...<accept_ranges> ( crlf     %leave ) & crlf.
 
 %field keep_alive hyttp.keep_alive "Keep-Alive" FT_UINT32 BASE_DEC .
-%sequence keep_alive  = 'Keep-Alive: ' & ...<keep_alive> ( crlf     %leave ) & crlf.
+%sequence keep_alive  = 'Keep-Alive:' & ...<keep_alive> ( crlf     %leave ) & crlf.
 
 %field connection hyttp.connection "Connection" FT_STRING .
-%sequence connection  = 'Connection: ' & ...<connection> ( crlf     %leave ) & crlf.
+%sequence connection  = 'Connection:' & ...<connection> ( crlf     %leave ) & crlf.
 
 %field referer hyttp.referer "Referer" FT_STRING .
-%sequence referer  = 'Referer: ' & ...<referer> ( crlf     %leave ) & crlf.
+%sequence referer  = 'Referer:' & ...<referer> ( crlf     %leave ) & crlf.
 
 %field cookie hyttp.cookie "Cookie" FT_STRING .
-%sequence cookie  = 'Cookie: ' & ...<cookie> ( crlf     %leave ) & crlf.
+%sequence cookie  = 'Cookie:' & ...<cookie> ( crlf     %leave ) & crlf.
 
 %field etag hyttp.etag "Etag" FT_STRING .
-%sequence etag  = 'Etag: ' & ["] & [^"]+<etag> & ["] & crlf .
+%sequence etag  = 'Etag:' & ["] & [^"]+<etag> & ["] & crlf .
 
 %field last_modified hyttp.last_modified "Last-Modified" FT_STRING .
-%sequence last_modified  = 'Last-Modified: ' & ...<last_modified> ( crlf     %leave ) & crlf.
+%sequence last_modified  = 'Last-Modified:' & ...<last_modified> ( crlf     %leave ) & crlf.
 
 %field server hyttp.server "Server" FT_STRING .
-%sequence server  = 'Server: ' & ...<server> ( crlf     %leave ) & crlf.
+%sequence server  = 'Server:' & ...<server> ( crlf     %leave ) & crlf.
 
-%sequence other_header = [A-Z] & [a-zA-Z-]+ & ": " & ... ( crlf     %leave ) &  crlf.
+%sequence other_header = [A-Z] & [a-zA-Z-]+ & ":" & ... ( crlf     %leave ) &  crlf.
 
 %field header hyttp.headers.line "HTTP Header Line" FT_BOOLEAN  .
 %choice %tree header =
index c37ea25235907ef8211fe7f2f3cfd38365adb322..c54df654bc7cc87c9933baf938665eac70c3de2b 100644 (file)
@@ -33,12 +33,13 @@ static void dissect_http(tvbuff_t* tvb, packet_info* pinfo _U_, proto_tree* tree
     proto_item* pi = proto_tree_add_item(tree,proto_http,tvb,0,-1,FALSE);
     proto_tree* pt = proto_item_add_subtree(pi,ett_http);
     
-    tpg = tpg_start(pt,tvb,0,-1,msgdata);
+    tpg = tpg_start(pt,tvb,0,-1,http_tpg_data.wanted_http_sp, msgdata);
     
     if (( reqresp = TPG_GET(tpg,http_tpg_data.wanted_http_req_resp) )) {
         tvbparse_elem_t* hdr;
         
-        while(( hdr = TPG_GET(tpg,http_tpg_data.wanted_http_header) )) ;
+        while(( hdr = TPG_GET(tpg,http_tpg_data.wanted_http_header) ))
+            ;
         
         if ( TPG_GET(tpg,http_tpg_data.wanted_http_crlf) ) {
             pi = proto_tree_add_boolean(pt,hf_http_is_response,tvb,0,0,msgdata->is_response);
index 983d587d3f21e0f9aad3c10729c7adb8bc6d171e..98b7e9556c5d5dbfc931ff6db75c7316daeb0cd1 100644 (file)
@@ -50,10 +50,16 @@ sub from_to {
     $b;
 }
 
+
+sub to_hexesc {
+    sprintf "\\x%.2x", unpack("C",$_[0]);
+}
+
 sub chars_control {
     $_ = $_[0];
     s/([a-zA-Z0-9])-([a-zA-Z0-9])/from_to($1,$2)/ge;
     s/"/\\"/g;
+    s/\\(.)/to_hexesc($1)/ge;
     "\"$_\"";
 }
 
@@ -113,6 +119,13 @@ statement:
         abort($_[0],"%value_string $name already defined") if exists ${${$parser_info}{vs}}{$name};
         ${${$parser_info}{vs}}{$name} = $_[1];
     }
+    | ignore_statement {
+        ${$parser_info}{ignore} = $_[1]; 
+    }   
+    ;
+
+ignore_statement:
+    '%ignore' LOWERCASE {$_[2]}
     ;
 
 rule_statement:
@@ -151,7 +164,7 @@ tree:
 
 complete_rule:
     base_rule cardinality qualification {hj($_[1],hj($_[2],$_[3]))}
-    | named_rule
+    | named_rule cardinality { hj($_[1],$_[2]) } 
     | until_rule
     ;