1/*	$NetBSD: ipft_hx.c,v 1.9 2012/02/15 17:55:06 riz Exp $	*/
2
3/*
4 * Copyright (C) 2000-2005 by Darren Reed.
5 *
6 * See the IPFILTER.LICENCE file for details on licencing.
7 */
8#if !defined(lint)
9static const char sccsid[] = "@(#)ipft_hx.c	1.1 3/9/96 (C) 1996 Darren Reed";
10static const char rcsid[] = "@(#)Id: ipft_hx.c,v 1.11.4.4 2006/06/16 17:21:03 darrenr Exp";
11#endif
12
13#include <ctype.h>
14
15#include "ipf.h"
16#include "ipt.h"
17
18
19extern	int	opts;
20
21static	int	hex_open __P((char *));
22static	int	hex_close __P((void));
23static	int	hex_readip __P((char *, int, char **, int *));
24static	char	*readhex __P((char *, char *));
25
26struct	ipread	iphex = { hex_open, hex_close, hex_readip, 0 };
27static	FILE	*tfp = NULL;
28static	int	tfd = -1;
29
30static	int	hex_open(fname)
31char	*fname;
32{
33	if (tfp && tfd != -1) {
34		rewind(tfp);
35		return tfd;
36	}
37
38	if (!strcmp(fname, "-")) {
39		tfd = 0;
40		tfp = stdin;
41	} else {
42		tfd = open(fname, O_RDONLY);
43		if (tfd != -1)
44			tfp = fdopen(tfd, "r");
45	}
46	return tfd;
47}
48
49
50static	int	hex_close()
51{
52	int	cfd = tfd;
53
54	tfd = -1;
55	return close(cfd);
56}
57
58
59static	int	hex_readip(buf, cnt, ifn, dir)
60char	*buf, **ifn;
61int	cnt, *dir;
62{
63	register char *s, *t, *u;
64	char	line[513];
65	ip_t	*ip;
66
67	/*
68	 * interpret start of line as possibly "[ifname]" or
69	 * "[in/out,ifname]".
70	 */
71	if (ifn)
72		*ifn = NULL;
73	if (dir)
74		*dir = 0;
75 	ip = (ip_t *)buf;
76	while (fgets(line, sizeof(line)-1, tfp)) {
77		if ((s = strchr(line, '\n'))) {
78			if (s == line)
79				return (char *)ip - buf;
80			*s = '\0';
81		}
82		if ((s = strchr(line, '#')))
83			*s = '\0';
84		if (!*line)
85			continue;
86		if ((opts & OPT_DEBUG) != 0) {
87			printf("input: %s", line);
88		}
89
90		if ((*line == '[') && (s = strchr(line, ']'))) {
91			t = line + 1;
92			if (s - t > 0) {
93				*s++ = '\0';
94				if ((u = strchr(t, ',')) && (u < s)) {
95					u++;
96					if (ifn)
97						*ifn = strdup(u);
98					if (dir) {
99						if (*t == 'i')
100							*dir = 0;
101						else if (*t == 'o')
102							*dir = 1;
103					}
104				} else if (ifn)
105					*ifn = t;
106			}
107		} else
108			s = line;
109		t = (char *)ip;
110		ip = (ip_t *)readhex(s, (char *)ip);
111		if ((opts & OPT_DEBUG) != 0) {
112			if (opts & OPT_ASCII) {
113				if (t < (char *)ip)
114					putchar('\t');
115				while (t < (char *)ip) {
116					if (ISPRINT(*t) && ISASCII(*t))
117						putchar(*t);
118					else
119						putchar('.');
120					t++;
121				}
122			}
123			putchar('\n');
124			fflush(stdout);
125		}
126	}
127	if (feof(tfp))
128		return 0;
129	return -1;
130}
131
132
133static	char	*readhex(src, dst)
134register char	*src, *dst;
135{
136	int	state = 0;
137	char	c;
138
139	while ((c = *src++)) {
140		if (ISSPACE(c)) {
141			if (state) {
142				dst++;
143				state = 0;
144			}
145			continue;
146		} else if ((c >= '0' && c <= '9') || (c >= 'a' && c <= 'f') ||
147			   (c >= 'A' && c <= 'F')) {
148			c = ISDIGIT(c) ? (c - '0') : (TOUPPER(c) - 55);
149			if (state == 0) {
150				*dst = (c << 4);
151				state++;
152			} else {
153				*dst++ |= c;
154				state = 0;
155			}
156		} else
157			break;
158	}
159	return dst;
160}
161