1/*	$NetBSD: ipft_hx.c,v 1.4 2018/02/04 08:19:42 mrg Exp $	*/
2
3/*
4 * Copyright (C) 2012 by Darren Reed.
5 *
6 * See the IPFILTER.LICENCE file for details on licencing.
7 */
8#if !defined(lint)
9static __attribute__((__used__)) const char sccsid[] = "@(#)ipft_hx.c	1.1 3/9/96 (C) 1996 Darren Reed";
10static __attribute__((__used__)) const char rcsid[] = "@(#)Id: ipft_hx.c,v 1.1.1.2 2012/07/22 13:44:39 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((mb_t *, 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)
31	char	*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(mb, ifn, dir)
60	mb_t	*mb;
61	char	**ifn;
62	int	*dir;
63{
64	register char *s, *t, *u;
65	char	line[513];
66	ip_t	*ip;
67	char	*buf;
68
69	buf = (char *)mb->mb_buf;
70	/*
71	 * interpret start of line as possibly "[ifname]" or
72	 * "[in/out,ifname]".
73	 */
74	if (ifn)
75		*ifn = NULL;
76	if (dir)
77		*dir = 0;
78 	ip = (ip_t *)buf;
79	while (fgets(line, sizeof(line)-1, tfp)) {
80		if ((s = strchr(line, '\n'))) {
81			if (s == line) {
82				mb->mb_len = (char *)ip - buf;
83				return mb->mb_len;
84			}
85			*s = '\0';
86		}
87		if ((s = strchr(line, '#')))
88			*s = '\0';
89		if (!*line)
90			continue;
91		if ((opts & OPT_DEBUG) != 0) {
92			printf("input: %s", line);
93		}
94
95		if ((*line == '[') && (s = strchr(line, ']'))) {
96			t = line + 1;
97			if (s - t > 0) {
98				*s++ = '\0';
99				if ((u = strchr(t, ',')) && (u < s)) {
100					u++;
101					if (ifn)
102						*ifn = strdup(u);
103					if (dir) {
104						if (*t == 'i')
105							*dir = 0;
106						else if (*t == 'o')
107							*dir = 1;
108					}
109				} else if (ifn)
110					*ifn = t;
111			}
112
113			while (*s++ == '+') {
114				if (!strncasecmp(s, "mcast", 5)) {
115					mb->mb_flags |= M_MCAST;
116					s += 5;
117				}
118				if (!strncasecmp(s, "bcast", 5)) {
119					mb->mb_flags |= M_BCAST;
120					s += 5;
121				}
122				if (!strncasecmp(s, "mbcast", 6)) {
123					mb->mb_flags |= M_MBCAST;
124					s += 6;
125				}
126			}
127			while (ISSPACE(*s))
128				s++;
129		} else
130			s = line;
131		t = (char *)ip;
132		ip = (ip_t *)readhex(s, (char *)ip);
133		if ((opts & OPT_DEBUG) != 0) {
134			if (opts & OPT_ASCII) {
135				int c = *t;
136				if (t < (char *)ip)
137					putchar('\t');
138				while (t < (char *)ip) {
139					if (isprint(c) && isascii(c))
140						putchar(c);
141					else
142						putchar('.');
143					t++;
144				}
145			}
146			putchar('\n');
147			fflush(stdout);
148		}
149	}
150	if (feof(tfp))
151		return 0;
152	return -1;
153}
154
155
156static	char	*readhex(src, dst)
157register char	*src, *dst;
158{
159	int	state = 0;
160	char	c;
161
162	while ((c = *src++)) {
163		if (ISSPACE(c)) {
164			if (state) {
165				dst++;
166				state = 0;
167			}
168			continue;
169		} else if ((c >= '0' && c <= '9') || (c >= 'a' && c <= 'f') ||
170			   (c >= 'A' && c <= 'F')) {
171			c = ISDIGIT(c) ? (c - '0') : (TOUPPER(c) - 55);
172			if (state == 0) {
173				*dst = (c << 4);
174				state++;
175			} else {
176				*dst++ |= c;
177				state = 0;
178			}
179		} else
180			break;
181	}
182	return dst;
183}
184