1 /* text2atm.c - Converts textual representation of ATM address to binary
2 		encoding */
3 
4 /* Written 1995-2000 by Werner Almesberger, EPFL-LRC/ICA */
5 
6 #if HAVE_CONFIG_H
7 #include <config.h>
8 #endif
9 
10 #include <stdio.h>
11 #include <ctype.h>
12 #include <string.h>
13 #include <limits.h>
14 
15 #include "atm.h"
16 #include "atmsap.h"
17 #include "atmres.h"
18 
19 
try_pvc(const char * text,struct sockaddr_atmpvc * addr,int flags)20 static int try_pvc(const char *text,struct sockaddr_atmpvc *addr,int flags)
21 {
22     int part[3];
23     int i;
24 
25     part[0] = part[1] = part[2] = 0;
26     i = 0;
27     while (1) {
28 	if (!*text) return FATAL; /* empty or ends with a dot */
29 	if (i == 3) return TRY_OTHER; /* too long */
30 	if (isdigit(*text)) {
31 	    if (*text == '0' && isdigit(text[1])) return TRY_OTHER;
32 		/* no leading zeroes */
33 	    do {
34 		if (part[i] > INT_MAX/10) return TRY_OTHER;/* number too big */
35 		part[i] = part[i]*10+*text++-'0';
36 	    }
37 	    while (isdigit(*text));
38 	    i++;
39 	    if (!*text) break;
40 	    if (*text++ != '.') return TRY_OTHER; /* non-PVC character */
41 	    continue;
42 	}
43 	if (*text == '*') {
44 	    if (!(flags & T2A_WILDCARD)) return FATAL; /* not allowed */
45 	    part[i++] = ATM_ITF_ANY; /* all *_ANY have the same value */
46 	}
47 	else {
48 	    if (*text != '?') return TRY_OTHER; /* invalid character */
49 	    if (!(flags & T2A_UNSPEC)) return FATAL; /* not allowed */
50 	    part[i++] = ATM_VPI_UNSPEC; /* all *_UNSPEC have the same
51 					   value */
52 	}
53 	if (!*++text) break;
54 	if (*text++ != '.') return FATAL; /* dot required */
55     }
56     if (i < 2) return TRY_OTHER; /* no dots */
57     if (i == 2) {
58 	part[2] = part[1];
59 	part[1] = part[0];
60 	part[0] = 0; /* default interface */
61     }
62     if (part[0] > SHRT_MAX || part[2] > ATM_MAX_VCI)
63 	return TRY_OTHER; /* too big */
64     if (part[1] > (flags & T2A_NNI ? ATM_MAX_VPI_NNI : ATM_MAX_VPI))
65 	return TRY_OTHER; /* too big */
66     if (part[0] == ATM_VPI_UNSPEC) return FATAL; /* bad */
67     addr->sap_family = AF_ATMPVC;
68     addr->sap_addr.itf = part[0];
69     addr->sap_addr.vpi = part[1];
70     addr->sap_addr.vci = part[2];
71     return 0;
72 }
73 
74 
do_try_nsap(const char * text,struct sockaddr_atmsvc * addr,int flags)75 static int do_try_nsap(const char *text,struct sockaddr_atmsvc *addr,int flags)
76 {
77     const char *walk;
78     int count,pos,dot;
79     int offset,len;
80     char value;
81 
82     count = dot = 0;
83     for (walk = text; *walk; walk++)
84 	if (isdigit(*walk)) {
85 	    if (count++ == 15) break;
86 	    dot = 1;
87 	}
88 	else if (*text != '.') break;
89 	    else if (!dot) return FATAL; /* two dots in a row */
90 		else dot = 0;
91     if (*walk != ':') {
92 	pos = 0;
93 	offset = 0;
94     }
95     else {
96 	if (!dot || *text == '0') return FATAL;
97 	addr->sas_addr.prv[0] = ATM_AFI_E164;
98 	addr->sas_addr.prv[1] = 0;
99 	memset(addr->sas_addr.prv+1,0,8);
100 	for (pos = 18-count-1; *text; text++) {
101 	    if (*text == '.') continue;
102 	    if (*text == ':') break;
103 	    else {
104 		if (pos & 1) addr->sas_addr.prv[pos >> 1] |= *text-'0';
105 		else addr->sas_addr.prv[pos >> 1] = (*text-'0') << 4;
106 		pos++;
107 	    }
108  	}
109 	addr->sas_addr.prv[8] |= 0xf;
110 	text++;
111 	pos++;
112 	offset = 72;
113     }
114     for (dot = 0; *text; text++)
115 	if (isxdigit(*text)) {
116 	    if (pos == ATM_ESA_LEN*2) return TRY_OTHER; /* too long */
117 	    value = isdigit(*text) ? *text-'0' : (islower(*text) ?
118 	      toupper(*text) : *text)-'A'+10;
119 	    if (pos & 1) addr->sas_addr.prv[pos >> 1] |= value;
120 	    else addr->sas_addr.prv[pos >> 1] = value << 4;
121 	    pos++;
122 	    dot = 1;
123 	}
124 	else
125 	    if (*text == '/' && (flags & T2A_WILDCARD)) break;
126 	    else if (*text != '.') return TRY_OTHER;
127 		else {
128 		    if (!dot) return FATAL; /* two dots in a row */
129 		    dot = 0;
130 		}
131     if (!dot) return FATAL;
132     if (pos > 1 && !*addr->sas_addr.prv)
133 	return TRY_OTHER; /* no leading zeroes */
134     if (!*text)
135 	return pos != ATM_ESA_LEN*2 ? TRY_OTHER : ATM_ESA_LEN*2;
136 	  /* handle bad length */
137     len = 0;
138     while (*++text) {
139 	if (!isdigit(*text)) return -1; /* non-digit in length */
140 	if (len >= pos*4) return -1; /* too long */
141 	len = len*10+*text-'0';
142     }
143     if (len > 7 && addr->sas_addr.prv[0] != ATM_AFI_E164) offset = 72;
144     if (len < offset) return FATAL;
145     return len > pos*4 ? TRY_OTHER : len;
146 }
147 
148 
try_nsap(const char * text,struct sockaddr_atmsvc * addr,int flags)149 static int try_nsap(const char *text,struct sockaddr_atmsvc *addr,int flags)
150 {
151     int result;
152 
153     result = do_try_nsap(text,addr,flags);
154     if (result < 0) return result;
155     addr->sas_family = AF_ATMSVC;
156     *addr->sas_addr.pub = 0;
157     return result;
158 }
159 
160 
try_e164(const char * text,struct sockaddr_atmsvc * addr,int flags)161 static int try_e164(const char *text,struct sockaddr_atmsvc *addr,int flags)
162 {
163     int i,dot,result;
164 
165     if (*text == ':' || *text == '+') text++;
166     for (i = dot = 0; *text; text++)
167 	if (isdigit(*text)) {
168 	    if (i == ATM_E164_LEN) return TRY_OTHER; /* too long */
169 	    addr->sas_addr.pub[i++] = *text;
170 	    dot = 1;
171 	}
172 	else if (*text != '.') break;
173 	    else {
174 		if (!dot) return TRY_OTHER; /* two dots in a row */
175 		dot = 0;
176 	    }
177     if (!dot) return TRY_OTHER;
178     addr->sas_addr.pub[i] = 0;
179     *addr->sas_addr.prv = 0;
180     result = 0;
181     if (*text) {
182 	if (*text++ != '+') return TRY_OTHER;
183 	else {
184 	    result = do_try_nsap(text,addr,flags);
185 	    if (result < 0) return FATAL;
186 	}
187     }
188     addr->sas_family = AF_ATMSVC;
189     return result;
190 }
191 
192 
search(FILE * file,const char * text,struct sockaddr * addr,int length,int flags)193 static int search(FILE *file,const char *text,struct sockaddr *addr,int length,
194   int flags)
195 {
196     char line[MAX_ATM_NAME_LEN+1];
197     const char *here;
198     int result;
199 
200     while (fgets(line,MAX_ATM_NAME_LEN,file)) {
201 	if (!strtok(line,"\t\n ")) continue;
202 	while ((here = strtok(NULL,"\t\n ")))
203 	    if (!strcasecmp(here,text)) {
204 		here = strtok(line,"\t\n ");
205 		result = text2atm(here,addr,length,flags);
206 		if (result >= 0) return result;
207 	    }
208     }
209     return TRY_OTHER;
210 }
211 
212 
try_name(const char * text,struct sockaddr * addr,int length,int flags)213 static int try_name(const char *text,struct sockaddr *addr,int length,
214   int flags)
215 {
216     FILE *file;
217     int result;
218 
219     if (!(file = fopen(HOSTS_ATM,"r"))) return TRY_OTHER;
220     result = search(file,text,addr,length,flags);
221     (void) fclose(file);
222     return result;
223 }
224 
225 
text2atm(const char * text,struct sockaddr * addr,int length,int flags)226 int text2atm(const char *text,struct sockaddr *addr,int length,int flags)
227 {
228     int result;
229 
230     if (!*text) return -1;
231     if (!(flags & (T2A_PVC | T2A_SVC))) flags |= T2A_PVC | T2A_SVC;
232     if (length < sizeof(struct sockaddr_atmpvc)) return -1;
233     if (flags & T2A_PVC) {
234 	result = try_pvc(text,(struct sockaddr_atmpvc *) addr,flags);
235 	if (result != TRY_OTHER) return result;
236     }
237     if ((flags & T2A_SVC) && length >= sizeof(struct sockaddr_atmsvc)) {
238 	result = try_nsap(text,(struct sockaddr_atmsvc *) addr,flags);
239 	if (result != TRY_OTHER) return result;
240 	result = try_e164(text,(struct sockaddr_atmsvc *) addr,flags);
241 	if (result != TRY_OTHER) return result;
242     }
243     if (!(flags & T2A_NAME)) return -1;
244     result = try_name(text,addr,length,flags & ~T2A_NAME);
245     if (result == TRY_OTHER && !(flags & T2A_LOCAL))
246 	result = ans_byname(text,(struct sockaddr_atmsvc *) addr,length,flags);
247     if (result != TRY_OTHER) return result;
248     return -1;
249 }
250