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