Fix the wireless settings button for AirPCap devices in the
[obnox/wireshark/wip.git] / gtk / text_import.c
1 /* text_import.c
2  * State machine for text import
3  * November 2010, Jaap Keuter <jaap.keuter@xs4all.nl>
4  *
5  * $Id$
6  *
7  * Wireshark - Network traffic analyzer
8  * By Gerald Combs <gerald@wireshark.org>
9  * Copyright 1998 Gerald Combs
10  *
11  * Based on text2pcap.c by Ashok Narayanan <ashokn@cisco.com>
12  *
13  * This program is free software; you can redistribute it and/or
14  * modify it under the terms of the GNU General Public License
15  * as published by the Free Software Foundation; either version 2
16  * of the License, or (at your option) any later version.
17  *
18  * This program is distributed in the hope that it will be useful,
19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
21  * GNU General Public License for more details.
22  *
23  * You should have received a copy of the GNU General Public License
24  * along with this program; if not, write to the Free Software
25  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301,
26  * USA.
27  */
28
29 /*******************************************************************************
30  *
31  * This utility reads in an ASCII hexdump of this common format:
32  *
33  * 00000000  00 E0 1E A7 05 6F 00 10 5A A0 B9 12 08 00 46 00 .....o..Z.....F.
34  * 00000010  03 68 00 00 00 00 0A 2E EE 33 0F 19 08 7F 0F 19 .h.......3......
35  * 00000020  03 80 94 04 00 00 10 01 16 A2 0A 00 03 50 00 0C .............P..
36  * 00000030  01 01 0F 19 03 80 11 01 1E 61 00 0C 03 01 0F 19 .........a......
37  *
38  * Each bytestring line consists of an offset, one or more bytes, and
39  * text at the end. An offset is defined as a hex string of more than
40  * two characters. A byte is defined as a hex string of exactly two
41  * characters. The text at the end is ignored, as is any text before
42  * the offset. Bytes read from a bytestring line are added to the
43  * current packet only if all the following conditions are satisfied:
44  *
45  * - No text appears between the offset and the bytes (any bytes appearing after
46  *   such text would be ignored)
47  *
48  * - The offset must be arithmetically correct, i.e. if the offset is 00000020, then
49  *   exactly 32 bytes must have been read into this packet before this. If the offset
50  *   is wrong, the packet is immediately terminated
51  *
52  * A packet start is signalled by a zero offset.
53  *
54  * Lines starting with #TEXT2PCAP are directives. These allow the user
55  * to embed instructions into the capture file which allows text2pcap
56  * to take some actions (e.g. specifying the encapsulation
57  * etc.). Currently no directives are implemented.
58  *
59  * Lines beginning with # which are not directives are ignored as
60  * comments. Currently all non-hexdump text is ignored by text2pcap;
61  * in the future, text processing may be added, but lines prefixed
62  * with '#' will still be ignored.
63  *
64  * The output is a libpcap packet containing Ethernet frames by
65  * default. This program takes options which allow the user to add
66  * dummy Ethernet, IP and UDP or TCP headers to the packets in order
67  * to allow dumps of L3 or higher protocols to be decoded.
68  *
69  * Considerable flexibility is built into this code to read hexdumps
70  * of slightly different formats. For example, any text prefixing the
71  * hexdump line is dropped (including mail forwarding '>'). The offset
72  * can be any hex number of four digits or greater.
73  *
74  * This converter cannot read a single packet greater than 64K. Packet
75  * snaplength is automatically set to 64K.
76  */
77
78 #ifdef HAVE_CONFIG_H
79 # include "config.h"
80 #endif
81
82 /*
83  * Just make sure we include the prototype for strptime as well
84  * (needed for glibc 2.2) but make sure we do this only if not
85  * yet defined.
86  */
87 #ifndef __USE_XOPEN
88 #  define __USE_XOPEN
89 #endif
90 #ifndef _XOPEN_SOURCE
91 #  define _XOPEN_SOURCE
92 #endif
93
94 /*
95  * Defining _XOPEN_SOURCE is needed on some platforms, e.g. platforms
96  * using glibc, to expand the set of things system header files define.
97  *
98  * Unfortunately, on other platforms, such as some versions of Solaris
99  * (including Solaris 10), it *reduces* that set as well, causing
100  * strptime() not to be declared, presumably because the version of the
101  * X/Open spec that _XOPEN_SOURCE implies doesn't include strptime() and
102  * blah blah blah namespace pollution blah blah blah.
103  *
104  * So we define __EXTENSIONS__ so that "strptime()" is declared.
105  */
106 #ifndef __EXTENSIONS__
107 #  define __EXTENSIONS__
108 #endif
109
110 #include <ctype.h>
111 #include <stdio.h>
112 #include <stdlib.h>
113 #include <string.h>
114 #include <wsutil/file_util.h>
115
116 #include <time.h>
117 #include <glib.h>
118
119 #ifdef HAVE_UNISTD_H
120 # include <unistd.h>
121 #endif
122
123 #include <errno.h>
124 #include <assert.h>
125
126 #include <epan/tvbuff.h>
127 #include <wsutil/crc32.h>
128 #include <epan/in_cksum.h>
129
130 #ifdef NEED_STRPTIME_H
131 # include "wsutil/strptime.h"
132 #endif
133
134 #include "text_import.h"
135 #include "text_import_scanner.h"
136
137 /*--- Options --------------------------------------------------------------------*/
138
139 /* Debug level */
140 static int debug = 0;
141
142 /* Dummy Ethernet header */
143 static int hdr_ethernet = FALSE;
144 static unsigned long hdr_ethernet_proto = 0;
145
146 /* Dummy IP header */
147 static int hdr_ip = FALSE;
148 static long hdr_ip_proto = 0;
149
150 /* Dummy UDP header */
151 static int hdr_udp = FALSE;
152 static unsigned long hdr_dest_port = 0;
153 static unsigned long hdr_src_port = 0;
154
155 /* Dummy TCP header */
156 static int hdr_tcp = FALSE;
157
158 /* Dummy SCTP header */
159 static int hdr_sctp = FALSE;
160 static unsigned long hdr_sctp_src  = 0;
161 static unsigned long hdr_sctp_dest = 0;
162 static unsigned long hdr_sctp_tag  = 0;
163
164 /* Dummy DATA chunk header */
165 static int hdr_data_chunk = FALSE;
166 static unsigned char  hdr_data_chunk_type = 0;
167 static unsigned char  hdr_data_chunk_bits = 3;
168 static unsigned long  hdr_data_chunk_tsn  = 0;
169 static unsigned short hdr_data_chunk_sid  = 0;
170 static unsigned short hdr_data_chunk_ssn  = 0;
171 static unsigned long  hdr_data_chunk_ppid = 0;
172
173
174 /*--- Local data -----------------------------------------------------------------*/
175
176 /* This is where we store the packet currently being built */
177 static unsigned char *packet_buf;
178 static unsigned long curr_offset = 0;
179 static unsigned long max_offset = IMPORT_MAX_PACKET;
180 static unsigned long packet_start = 0;
181 static void start_new_packet (void);
182
183 /* This buffer contains strings present before the packet offset 0 */
184 #define PACKET_PREAMBLE_MAX_LEN 2048
185 static unsigned char packet_preamble[PACKET_PREAMBLE_MAX_LEN+1];
186 static int packet_preamble_len = 0;
187
188 /* Time code of packet, derived from packet_preamble */
189 static time_t ts_sec = 0;
190 static guint32 ts_usec = 0;
191 static char *ts_fmt = NULL;
192 static struct tm timecode_default;
193
194 static wtap_dumper* wdh;
195
196 /* HDR_ETH Offset base to parse */
197 static unsigned long offset_base = 16;
198
199 /* ----- State machine -----------------------------------------------------------*/
200
201 /* Current state of parser */
202 typedef enum {
203     INIT,             /* Waiting for start of new packet */
204     START_OF_LINE,    /* Starting from beginning of line */
205     READ_OFFSET,      /* Just read the offset */
206     READ_BYTE,        /* Just read a byte */
207     READ_TEXT         /* Just read text - ignore until EOL */
208 } parser_state_t;
209 static parser_state_t state = INIT;
210
211 static const char *state_str[] = {"Init",
212                            "Start-of-line",
213                            "Offset",
214                            "Byte",
215                            "Text"
216 };
217
218 static const char *token_str[] = {"",
219                            "Byte",
220                            "Offset",
221                            "Directive",
222                            "Text",
223                            "End-of-line"
224 };
225
226 /* ----- Skeleton Packet Headers --------------------------------------------------*/
227
228 typedef struct {
229     guint8  dest_addr[6];
230     guint8  src_addr[6];
231     guint16 l3pid;
232 } hdr_ethernet_t;
233
234 static hdr_ethernet_t HDR_ETHERNET = {
235     {0x20, 0x52, 0x45, 0x43, 0x56, 0x00},
236     {0x20, 0x53, 0x45, 0x4E, 0x44, 0x00},
237     0};
238
239 typedef struct {
240     guint8  ver_hdrlen;
241     guint8  dscp;
242     guint16 packet_length;
243     guint16 identification;
244     guint8  flags;
245     guint8  fragment;
246     guint8  ttl;
247     guint8  protocol;
248     guint16 hdr_checksum;
249     guint32 src_addr;
250     guint32 dest_addr;
251 } hdr_ip_t;
252
253 static hdr_ip_t HDR_IP =
254   {0x45, 0, 0, 0x3412, 0, 0, 0xff, 0, 0, 0x01010101, 0x02020202};
255
256 static struct {         /* pseudo header for checksum calculation */
257     guint32 src_addr;
258     guint32 dest_addr;
259     guint8  zero;
260     guint8  protocol;
261     guint16 length;
262 } pseudoh;
263
264 typedef struct {
265     guint16 source_port;
266     guint16 dest_port;
267     guint16 length;
268     guint16 checksum;
269 } hdr_udp_t;
270
271 static hdr_udp_t HDR_UDP = {0, 0, 0, 0};
272
273 typedef struct {
274     guint16 source_port;
275     guint16 dest_port;
276     guint32 seq_num;
277     guint32 ack_num;
278     guint8  hdr_length;
279     guint8  flags;
280     guint16 window;
281     guint16 checksum;
282     guint16 urg;
283 } hdr_tcp_t;
284
285 static hdr_tcp_t HDR_TCP = {0, 0, 0, 0, 0x50, 0, 0, 0, 0};
286
287 typedef struct {
288     guint16 src_port;
289     guint16 dest_port;
290     guint32 tag;
291     guint32 checksum;
292 } hdr_sctp_t;
293
294 static hdr_sctp_t HDR_SCTP = {0, 0, 0, 0};
295
296 typedef struct {
297     guint8  type;
298     guint8  bits;
299     guint16 length;
300     guint32 tsn;
301     guint16 sid;
302     guint16 ssn;
303     guint32 ppid;
304 } hdr_data_chunk_t;
305
306 static hdr_data_chunk_t HDR_DATA_CHUNK = {0, 0, 0, 0, 0, 0, 0};
307
308 /* Link-layer type; see net/bpf.h for details */
309 static unsigned long pcap_link_type = 1;   /* Default is DLT-EN10MB */
310
311 /*----------------------------------------------------------------------
312  * Parse a single hex number
313  * Will abort the program if it can't parse the number
314  * Pass in TRUE if this is an offset, FALSE if not
315  */
316 static unsigned long
317 parse_num (const char *str, int offset)
318 {
319     unsigned long num;
320     char *c;
321
322     num = strtoul(str, &c, offset ? offset_base : 16);
323     if (c==str) {
324         fprintf(stderr, "FATAL ERROR: Bad hex number? [%s]\n", str);
325     }
326     return num;
327 }
328
329 /*----------------------------------------------------------------------
330  * Write this byte into current packet
331  */
332 static void
333 write_byte (const char *str)
334 {
335     unsigned long num;
336
337     num = parse_num(str, FALSE);
338     packet_buf[curr_offset] = (unsigned char) num;
339     curr_offset ++;
340     if (curr_offset >= max_offset) /* packet full */
341         start_new_packet();
342 }
343
344 /*----------------------------------------------------------------------
345  * Remove bytes from the current packet
346  */
347 static void
348 unwrite_bytes (unsigned long nbytes)
349 {
350     curr_offset -= nbytes;
351 }
352
353 /*----------------------------------------------------------------------
354  * Determin SCTP chunk padding length
355  */
356 static unsigned long
357 number_of_padding_bytes (unsigned long length)
358 {
359   unsigned long remainder;
360
361   remainder = length % 4;
362
363   if (remainder == 0)
364     return 0;
365   else
366     return 4 - remainder;
367 }
368
369 /*----------------------------------------------------------------------
370  * Write current packet out
371  */
372 void
373 write_current_packet (void)
374 {
375     int prefix_length = 0;
376     int proto_length = 0;
377     int ip_length = 0;
378     int eth_trailer_length = 0;
379     int prefix_index = 0;
380     int i, padding_length;
381
382     if (curr_offset > 0) {
383         /* Write the packet */
384
385         /* Compute packet length */
386         prefix_length = 0;
387         if (hdr_data_chunk) { prefix_length += sizeof(HDR_DATA_CHUNK); }
388         if (hdr_sctp) { prefix_length += sizeof(HDR_SCTP); }
389         if (hdr_udp) { prefix_length += sizeof(HDR_UDP); proto_length = prefix_length + curr_offset; }
390         if (hdr_tcp) { prefix_length += sizeof(HDR_TCP); proto_length = prefix_length + curr_offset; }
391         if (hdr_ip) {
392             prefix_length += sizeof(HDR_IP);
393             ip_length = prefix_length + curr_offset + ((hdr_data_chunk) ? number_of_padding_bytes(curr_offset) : 0);
394         }
395         if (hdr_ethernet) { prefix_length += sizeof(HDR_ETHERNET); }
396
397         /* Make room for dummy header */
398         memmove(&packet_buf[prefix_length], packet_buf, curr_offset);
399
400         if (hdr_ethernet) {
401             /* Pad trailer */
402             if (prefix_length + curr_offset < 60) {
403                 eth_trailer_length = 60 - (prefix_length + curr_offset);
404             }
405         }
406
407         /* Write Ethernet header */
408         if (hdr_ethernet) {
409             HDR_ETHERNET.l3pid = g_htons(hdr_ethernet_proto);
410             memcpy(&packet_buf[prefix_index], &HDR_ETHERNET, sizeof(HDR_ETHERNET));
411             prefix_index += sizeof(HDR_ETHERNET);
412         }
413
414         /* Write IP header */
415         if (hdr_ip) {
416             vec_t cksum_vector[1];
417
418             HDR_IP.packet_length = g_htons(ip_length);
419             HDR_IP.protocol = (guint8) hdr_ip_proto;
420             HDR_IP.hdr_checksum = 0;
421             cksum_vector[0].ptr = (guint8 *)&HDR_IP; cksum_vector[0].len = sizeof(HDR_IP);
422             HDR_IP.hdr_checksum = in_cksum(cksum_vector, 1);
423
424             memcpy(&packet_buf[prefix_index], &HDR_IP, sizeof(HDR_IP));
425             prefix_index += sizeof(HDR_IP);
426         }
427
428         /* initialize pseudo header for checksum calculation */
429         pseudoh.src_addr    = HDR_IP.src_addr;
430         pseudoh.dest_addr   = HDR_IP.dest_addr;
431         pseudoh.zero        = 0;
432         pseudoh.protocol    = (guint8) hdr_ip_proto;
433         pseudoh.length      = g_htons(proto_length);
434
435         /* Write UDP header */
436         if (hdr_udp) {
437             vec_t cksum_vector[3];
438             
439             HDR_UDP.source_port = g_htons(hdr_src_port);
440             HDR_UDP.dest_port = g_htons(hdr_dest_port);
441             HDR_UDP.length = g_htons(proto_length);
442
443             HDR_UDP.checksum = 0;
444             cksum_vector[0].ptr = (guint8 *)&pseudoh; cksum_vector[0].len = sizeof(pseudoh);
445             cksum_vector[1].ptr = (guint8 *)&HDR_UDP; cksum_vector[1].len = sizeof(HDR_UDP);
446             cksum_vector[2].ptr = &packet_buf[prefix_length]; cksum_vector[2].len = curr_offset;
447             HDR_UDP.checksum = in_cksum(cksum_vector, 3);
448
449             memcpy(&packet_buf[prefix_index], &HDR_UDP, sizeof(HDR_UDP));
450             prefix_index += sizeof(HDR_UDP);
451         }
452
453         /* Write TCP header */
454         if (hdr_tcp) {
455             vec_t cksum_vector[3];
456             
457             HDR_TCP.source_port = g_htons(hdr_src_port);
458             HDR_TCP.dest_port = g_htons(hdr_dest_port);
459             /* HDR_TCP.seq_num already correct */
460             HDR_TCP.window = g_htons(0x2000);
461
462             HDR_TCP.checksum = 0;
463             cksum_vector[0].ptr = (guint8 *)&pseudoh; cksum_vector[0].len = sizeof(pseudoh);
464             cksum_vector[1].ptr = (guint8 *)&HDR_TCP; cksum_vector[1].len = sizeof(HDR_TCP);
465             cksum_vector[2].ptr = &packet_buf[prefix_length]; cksum_vector[2].len = curr_offset;
466             HDR_TCP.checksum = in_cksum(cksum_vector, 3);
467
468             memcpy(&packet_buf[prefix_index], &HDR_TCP, sizeof(HDR_TCP));
469             prefix_index += sizeof(HDR_TCP);
470         }
471
472         /* Compute DATA chunk header and append padding */
473         if (hdr_data_chunk) {
474             HDR_DATA_CHUNK.type   = hdr_data_chunk_type;
475             HDR_DATA_CHUNK.bits   = hdr_data_chunk_bits;
476             HDR_DATA_CHUNK.length = g_htons(curr_offset + sizeof(HDR_DATA_CHUNK));
477             HDR_DATA_CHUNK.tsn    = g_htonl(hdr_data_chunk_tsn);
478             HDR_DATA_CHUNK.sid    = g_htons(hdr_data_chunk_sid);
479             HDR_DATA_CHUNK.ssn    = g_htons(hdr_data_chunk_ssn);
480             HDR_DATA_CHUNK.ppid   = g_htonl(hdr_data_chunk_ppid);
481
482             padding_length = number_of_padding_bytes(curr_offset);
483             for (i=0; i<padding_length; i++)
484                 packet_buf[prefix_length+curr_offset+i] = 0;
485             curr_offset += padding_length;
486         }
487
488         /* Write SCTP header */
489         if (hdr_sctp) {
490             HDR_SCTP.src_port  = g_htons(hdr_sctp_src);
491             HDR_SCTP.dest_port = g_htons(hdr_sctp_dest);
492             HDR_SCTP.tag       = g_htonl(hdr_sctp_tag);
493             HDR_SCTP.checksum  = g_htonl(0);
494
495             HDR_SCTP.checksum  = crc32c_calculate(&HDR_SCTP, sizeof(HDR_SCTP), CRC32C_PRELOAD);
496             if (hdr_data_chunk)
497                 HDR_SCTP.checksum  = crc32c_calculate(&HDR_DATA_CHUNK, sizeof(HDR_DATA_CHUNK), HDR_SCTP.checksum);
498             HDR_SCTP.checksum  = g_htonl(~crc32c_calculate(&packet_buf[prefix_length], curr_offset, HDR_SCTP.checksum));
499
500             memcpy(&packet_buf[prefix_index], &HDR_SCTP, sizeof(HDR_SCTP));
501             prefix_index += sizeof(HDR_SCTP);
502         }
503
504         /* Write DATA chunk header */
505         if (hdr_data_chunk) {
506             memcpy(&packet_buf[prefix_index], &HDR_DATA_CHUNK, sizeof(HDR_DATA_CHUNK));
507             prefix_index += sizeof(HDR_DATA_CHUNK);
508         }
509
510         /* Write Ethernet trailer */
511         if (hdr_ethernet && eth_trailer_length > 0) {
512             memset(&packet_buf[prefix_length+curr_offset], 0, eth_trailer_length);
513         }
514
515         HDR_TCP.seq_num = g_htonl(g_ntohl(HDR_TCP.seq_num) + curr_offset);
516
517         {
518             /* Write the packet */
519             struct wtap_pkthdr pkthdr;
520             int err;
521        
522             pkthdr.ts.secs = (guint32)ts_sec;
523             pkthdr.ts.nsecs = ts_usec * 1000;
524             if (ts_fmt == NULL) { ts_usec++; }  /* fake packet counter */
525             pkthdr.caplen = pkthdr.len = prefix_length + curr_offset + eth_trailer_length;;
526             pkthdr.pkt_encap = pcap_link_type;
527
528             wtap_dump(wdh, &pkthdr, NULL, packet_buf, &err);
529         }
530     }
531
532     packet_start += curr_offset;
533     curr_offset = 0;
534 }
535
536
537 /*----------------------------------------------------------------------
538  * Append a token to the packet preamble.
539  */
540 static void
541 append_to_preamble(char *str)
542 {
543     size_t toklen;
544
545     if (packet_preamble_len != 0) {
546         if (packet_preamble_len == PACKET_PREAMBLE_MAX_LEN)
547             return;     /* no room to add more preamble */
548         /* Add a blank separator between the previous token and this token. */
549         packet_preamble[packet_preamble_len++] = ' ';
550     }
551     toklen = strlen(str);
552     if (toklen != 0) {
553         if (packet_preamble_len + toklen > PACKET_PREAMBLE_MAX_LEN)
554             return;     /* no room to add the token to the preamble */
555         g_strlcpy(&packet_preamble[packet_preamble_len], str, PACKET_PREAMBLE_MAX_LEN);
556         packet_preamble_len += (int) toklen;
557         if (debug >= 2) {
558             char *c;
559             char xs[PACKET_PREAMBLE_MAX_LEN];
560             g_strlcpy(xs, packet_preamble, PACKET_PREAMBLE_MAX_LEN);
561             while ((c = strchr(xs, '\r')) != NULL) *c=' ';
562             fprintf (stderr, "[[append_to_preamble: \"%s\"]]", xs);
563         }
564     }
565 }
566
567 /*----------------------------------------------------------------------
568  * Parse the preamble to get the timecode.
569  */
570
571 static void
572 parse_preamble (void)
573 {
574         struct tm timecode;
575         char *subsecs;
576         char *p;
577         int  subseclen;
578         int  i;
579
580         /*
581          * If no "-t" flag was specified, don't attempt to parse a packet
582          * preamble to extract a time stamp.
583          */
584         if (ts_fmt == NULL)
585             return;
586
587         /*
588          * Initialize to today localtime, just in case not all fields
589          * of the date and time are specified.
590          */
591
592         timecode = timecode_default;
593         ts_usec = 0;
594
595         /*
596          * Null-terminate the preamble.
597          */
598         packet_preamble[packet_preamble_len] = '\0';
599
600         /* Ensure preamble has more than two chars before atempting to parse.
601          * This should cover line breaks etc that get counted.
602          */
603         if ( strlen(packet_preamble) > 2 ) {
604                 /* Get Time leaving subseconds */
605                 subsecs = strptime( packet_preamble, ts_fmt, &timecode );
606                 if (subsecs != NULL) {
607                         /* Get the long time from the tm structure */
608                         /*  (will return -1 if failure)            */
609                         ts_sec  = mktime( &timecode );
610                 } else
611                         ts_sec = -1;    /* we failed to parse it */
612
613                 /* This will ensure incorrectly parsed dates get set to zero */
614                 if ( -1 == ts_sec )
615                 {
616                         /* Sanitize - remove all '\r' */
617                         char *c;
618                         while ((c = strchr(packet_preamble, '\r')) != NULL) *c=' ';
619                         fprintf (stderr, "Failure processing time \"%s\" using time format \"%s\"\n   (defaulting to Jan 1,1970 00:00:00 GMT)\n",
620                                  packet_preamble, ts_fmt);
621                         if (debug >= 2) {
622                                 fprintf(stderr, "timecode: %02d/%02d/%d %02d:%02d:%02d %d\n",
623                                         timecode.tm_mday, timecode.tm_mon, timecode.tm_year,
624                                         timecode.tm_hour, timecode.tm_min, timecode.tm_sec, timecode.tm_isdst);
625                         }
626                         ts_sec  = 0;  /* Jan 1,1970: 00:00 GMT; tshark/wireshark will display date/time as adjusted by timezone */
627                         ts_usec = 0;
628                 }
629                 else
630                 {
631                         /* Parse subseconds */
632                         ts_usec = strtol(subsecs, &p, 10);
633                         if (subsecs == p) {
634                                 /* Error */
635                                 ts_usec = 0;
636                         } else {
637                                 /*
638                                  * Convert that number to a number
639                                  * of microseconds; if it's N digits
640                                  * long, it's in units of 10^(-N) seconds,
641                                  * so, to convert it to units of
642                                  * 10^-6 seconds, we multiply by
643                                  * 10^(6-N).
644                                  */
645                                 subseclen = (int) (p - subsecs);
646                                 if (subseclen > 6) {
647                                         /*
648                                          * *More* than 6 digits; 6-N is
649                                          * negative, so we divide by
650                                          * 10^(N-6).
651                                          */
652                                         for (i = subseclen - 6; i != 0; i--)
653                                                 ts_usec /= 10;
654                                 } else if (subseclen < 6) {
655                                         for (i = 6 - subseclen; i != 0; i--)
656                                                 ts_usec *= 10;
657                                 }
658                         }
659                 }
660         }
661         if (debug >= 2) {
662                 char *c;
663                 while ((c = strchr(packet_preamble, '\r')) != NULL) *c=' ';
664                 fprintf(stderr, "[[parse_preamble: \"%s\"]]\n", packet_preamble);
665                 fprintf(stderr, "Format(%s), time(%u), subsecs(%u)\n", ts_fmt, (guint32)ts_sec, ts_usec);
666         }
667
668
669         /* Clear Preamble */
670         packet_preamble_len = 0;
671 }
672
673 /*----------------------------------------------------------------------
674  * Start a new packet
675  */
676 static void
677 start_new_packet (void)
678 {
679     if (debug>=1)
680         fprintf(stderr, "Start new packet\n");
681
682     /* Write out the current packet, if required */
683     write_current_packet();
684
685     /* Ensure we parse the packet preamble as it may contain the time */
686     parse_preamble();
687 }
688
689 /*----------------------------------------------------------------------
690  * Process a directive
691  */
692 static void
693 process_directive (char *str)
694 {
695     fprintf(stderr, "\n--- Directive [%s] currently unsupported ---\n", str+10);
696
697 }
698
699 /*----------------------------------------------------------------------
700  * Parse a single token (called from the scanner)
701  */
702 void
703 parse_token (token_t token, char *str)
704 {
705     unsigned long num;
706
707     /*
708      * This is implemented as a simple state machine of five states.
709      * State transitions are caused by tokens being received from the
710      * scanner. The code should be self_documenting.
711      */
712
713     if (debug>=2) {
714         /* Sanitize - remove all '\r' */
715         char *c;
716         if (str!=NULL) { while ((c = strchr(str, '\r')) != NULL) *c=' '; }
717
718         fprintf(stderr, "(%s, %s \"%s\") -> (",
719                 state_str[state], token_str[token], str ? str : "");
720     }
721
722     switch(state) {
723
724     /* ----- Waiting for new packet -------------------------------------------*/
725     case INIT:
726         switch(token) {
727         case T_TEXT:
728             append_to_preamble(str);
729             break;
730         case T_DIRECTIVE:
731             process_directive(str);
732             break;
733         case T_OFFSET:
734             num = parse_num(str, TRUE);
735             if (num==0) {
736                 /* New packet starts here */
737                 start_new_packet();
738                 state = READ_OFFSET;
739             }
740             break;
741         default:
742             break;
743         }
744         break;
745
746     /* ----- Processing packet, start of new line -----------------------------*/
747     case START_OF_LINE:
748         switch(token) {
749         case T_TEXT:
750             append_to_preamble(str);
751             break;
752         case T_DIRECTIVE:
753             process_directive(str);
754             break;
755         case T_OFFSET:
756             num = parse_num(str, TRUE);
757             if (num==0) {
758                 /* New packet starts here */
759                 start_new_packet();
760                 packet_start = 0;
761                 state = READ_OFFSET;
762             } else if ((num - packet_start) != curr_offset) {
763                 /*
764                  * The offset we read isn't the one we expected.
765                  * This may only mean that we mistakenly interpreted
766                  * some text as byte values (e.g., if the text dump
767                  * of packet data included a number with spaces around
768                  * it).  If the offset is less than what we expected,
769                  * assume that's the problem, and throw away the putative
770                  * extra byte values.
771                  */
772                 if (num < curr_offset) {
773                     unwrite_bytes(curr_offset - num);
774                     state = READ_OFFSET;
775                 } else {
776                     /* Bad offset; switch to INIT state */
777                     if (debug>=1)
778                         fprintf(stderr, "Inconsistent offset. Expecting %0lX, got %0lX. Ignoring rest of packet\n",
779                                 curr_offset, num);
780                     write_current_packet();
781                     state = INIT;
782                 }
783             } else
784                 state = READ_OFFSET;
785             break;
786         default:
787             break;
788         }
789         break;
790
791     /* ----- Processing packet, read offset -----------------------------------*/
792     case READ_OFFSET:
793         switch(token) {
794         case T_BYTE:
795             /* Record the byte */
796             state = READ_BYTE;
797             write_byte(str);
798             break;
799         case T_TEXT:
800         case T_DIRECTIVE:
801         case T_OFFSET:
802             state = READ_TEXT;
803             break;
804         case T_EOL:
805             state = START_OF_LINE;
806             break;
807         default:
808             break;
809         }
810         break;
811
812     /* ----- Processing packet, read byte -------------------------------------*/
813     case READ_BYTE:
814         switch(token) {
815         case T_BYTE:
816             /* Record the byte */
817             write_byte(str);
818             break;
819         case T_TEXT:
820         case T_DIRECTIVE:
821         case T_OFFSET:
822             state = READ_TEXT;
823             break;
824         case T_EOL:
825             state = START_OF_LINE;
826             break;
827         default:
828             break;
829         }
830         break;
831
832     /* ----- Processing packet, read text -------------------------------------*/
833     case READ_TEXT:
834         switch(token) {
835         case T_EOL:
836             state = START_OF_LINE;
837             break;
838         default:
839             break;
840         }
841         break;
842
843     default:
844         fprintf(stderr, "FATAL ERROR: Bad state (%d)", state);
845         exit(-1);
846     }
847
848     if (debug>=2)
849         fprintf(stderr, ", %s)\n", state_str[state]);
850
851 }
852
853 /*----------------------------------------------------------------------
854  * take in the import config information
855  */
856 void
857 text_import_setup(text_import_info_t *info)
858 {
859     packet_buf = (unsigned char *)g_malloc(sizeof(HDR_ETHERNET) + sizeof(HDR_IP) +
860                                            sizeof(HDR_SCTP) + sizeof(HDR_DATA_CHUNK) +
861                                            IMPORT_MAX_PACKET);
862
863     if (!packet_buf)
864     {
865         fprintf(stderr, "FATAL ERROR: no memory for packet buffer");
866         exit(-1);
867     }
868     
869     /* Lets start from the beginning */
870     state = INIT;
871     curr_offset = 0;
872     packet_start = 0;
873     packet_preamble_len = 0;
874     ts_sec = time(0);            /* initialize to current time */
875     timecode_default = *localtime(&ts_sec);
876     timecode_default.tm_isdst = -1;     /* Unknown for now, depends on time given to the strptime() function */
877     ts_usec = 0;
878
879     /* Dummy headers */
880     hdr_ethernet = FALSE;
881     hdr_ip = FALSE;
882     hdr_udp = FALSE;
883     hdr_tcp = FALSE;
884     hdr_sctp = FALSE;
885     hdr_data_chunk = FALSE;
886
887     offset_base = (info->offset_type == OFFSET_HEX) ? 16 :
888                   (info->offset_type == OFFSET_OCT) ? 8 :
889                   (info->offset_type == OFFSET_DEC) ? 10 :
890                   16;
891
892     if (info->date_timestamp)
893     {
894         ts_fmt = info->date_timestamp_format;
895     }
896
897     pcap_link_type = info->encapsulation;
898
899     wdh = info->wdh;
900
901     switch (info->dummy_header_type)
902     {
903         case HEADER_ETH:
904             hdr_ethernet = TRUE;
905             hdr_ethernet_proto = info->pid;
906             break;
907
908         case HEADER_IPV4:
909             hdr_ip = TRUE;
910             hdr_ip_proto = info->protocol;
911             hdr_ethernet = TRUE;
912             hdr_ethernet_proto = 0x800;
913             break;
914
915         case HEADER_UDP:
916             hdr_udp = TRUE;
917             hdr_tcp = FALSE;
918             hdr_src_port = info->src_port;
919             hdr_dest_port = info->dst_port;
920             hdr_ip = TRUE;
921             hdr_ip_proto = 17;
922             hdr_ethernet = TRUE;
923             hdr_ethernet_proto = 0x800;
924             break;
925
926         case HEADER_TCP:
927             hdr_tcp = TRUE;
928             hdr_udp = FALSE;
929             hdr_src_port = info->src_port;
930             hdr_dest_port = info->dst_port;
931             hdr_ip = TRUE;
932             hdr_ip_proto = 6;
933             hdr_ethernet = TRUE;
934             hdr_ethernet_proto = 0x800;
935             break;
936
937         case HEADER_SCTP:
938             hdr_sctp = TRUE;
939             hdr_sctp_src = info->src_port;
940             hdr_sctp_dest = info->dst_port;
941             hdr_sctp_tag = info->tag;
942             hdr_ip = TRUE;
943             hdr_ip_proto = 132;
944             hdr_ethernet = TRUE;
945             hdr_ethernet_proto = 0x800;
946             break;
947
948         case HEADER_SCTP_DATA:
949             hdr_sctp = TRUE;
950             hdr_data_chunk = TRUE;
951             hdr_sctp_src = info->src_port;
952             hdr_sctp_dest = info->dst_port;
953             hdr_data_chunk_ppid = info->ppi;
954             hdr_ip = TRUE;
955             hdr_ip_proto = 132;
956             hdr_ethernet = TRUE;
957             hdr_ethernet_proto = 0x800;
958             break;
959
960         default:
961             break;
962     }
963
964     max_offset = info->max_frame_length;
965 }
966
967 /*----------------------------------------------------------------------
968  * Clean up after text import
969  */
970 void
971 text_import_cleanup(void)
972 {
973     g_free(packet_buf);
974 }