1 /*-
2 * SPDX-License-Identifier: BSD-3-Clause
3 *
4 * Copyright (c) 1991, 1993
5 * The Regents of the University of California. All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 * may be used to endorse or promote products derived from this software
17 * without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31
32 #include <sys/cdefs.h>
33
34 __FBSDID("$FreeBSD$");
35
36 #ifndef lint
37 static const char sccsid[] = "@(#)map.c 8.1 (Berkeley) 6/9/93";
38 #endif
39
40 #include <sys/types.h>
41
42 #include <err.h>
43 #include <stdlib.h>
44 #include <string.h>
45 #include <termios.h>
46
47 #include "extern.h"
48
49 static speed_t tset_baudrate(char *);
50
51 /* Baud rate conditionals for mapping. */
52 #define GT 0x01
53 #define EQ 0x02
54 #define LT 0x04
55 #define NOT 0x08
56 #define GE (GT | EQ)
57 #define LE (LT | EQ)
58
59 typedef struct map {
60 struct map *next; /* Linked list of maps. */
61 char *porttype; /* Port type, or "" for any. */
62 char *type; /* Terminal type to select. */
63 int conditional; /* Baud rate conditionals bitmask. */
64 speed_t speed; /* Baud rate to compare against. */
65 } MAP;
66
67 static MAP *cur, *maplist;
68
69 /*
70 * Syntax for -m:
71 * [port-type][test baudrate]:terminal-type
72 * The baud rate tests are: >, <, @, =, !
73 */
74 void
add_mapping(const char * port,char * arg)75 add_mapping(const char *port, char *arg)
76 {
77 MAP *mapp;
78 char *copy, *p, *termp;
79
80 copy = strdup(arg);
81 mapp = malloc(sizeof(MAP));
82 if (copy == NULL || mapp == NULL)
83 errx(1, "malloc");
84 mapp->next = NULL;
85 if (maplist == NULL)
86 cur = maplist = mapp;
87 else {
88 cur->next = mapp;
89 cur = mapp;
90 }
91
92 mapp->porttype = arg;
93 mapp->conditional = 0;
94
95 arg = strpbrk(arg, "><@=!:");
96
97 if (arg == NULL) { /* [?]term */
98 mapp->type = mapp->porttype;
99 mapp->porttype = NULL;
100 goto done;
101 }
102
103 if (arg == mapp->porttype) /* [><@=! baud]:term */
104 termp = mapp->porttype = NULL;
105 else
106 termp = arg;
107
108 for (;; ++arg) /* Optional conditionals. */
109 switch(*arg) {
110 case '<':
111 if (mapp->conditional & GT)
112 goto badmopt;
113 mapp->conditional |= LT;
114 break;
115 case '>':
116 if (mapp->conditional & LT)
117 goto badmopt;
118 mapp->conditional |= GT;
119 break;
120 case '@':
121 case '=': /* Not documented. */
122 mapp->conditional |= EQ;
123 break;
124 case '!':
125 mapp->conditional |= NOT;
126 break;
127 default:
128 goto next;
129 }
130
131 next: if (*arg == ':') {
132 if (mapp->conditional)
133 goto badmopt;
134 ++arg;
135 } else { /* Optional baudrate. */
136 arg = strchr(p = arg, ':');
137 if (arg == NULL)
138 goto badmopt;
139 *arg++ = '\0';
140 mapp->speed = tset_baudrate(p);
141 }
142
143 if (*arg == '\0') /* Non-optional type. */
144 goto badmopt;
145
146 mapp->type = arg;
147
148 /* Terminate porttype, if specified. */
149 if (termp != NULL)
150 *termp = '\0';
151
152 /* If a NOT conditional, reverse the test. */
153 if (mapp->conditional & NOT)
154 mapp->conditional = ~mapp->conditional & (EQ | GT | LT);
155
156 /* If user specified a port with an option flag, set it. */
157 done: if (port) {
158 if (mapp->porttype)
159 badmopt: errx(1, "illegal -m option format: %s", copy);
160 mapp->porttype = strdup(port);
161 }
162 free(copy);
163
164 #ifdef MAPDEBUG
165 (void)printf("port: %s\n", mapp->porttype ? mapp->porttype : "ANY");
166 (void)printf("type: %s\n", mapp->type);
167 (void)printf("conditional: ");
168 p = "";
169 if (mapp->conditional & GT) {
170 (void)printf("GT");
171 p = "/";
172 }
173 if (mapp->conditional & EQ) {
174 (void)printf("%sEQ", p);
175 p = "/";
176 }
177 if (mapp->conditional & LT)
178 (void)printf("%sLT", p);
179 (void)printf("\nspeed: %d\n", mapp->speed);
180 #endif
181 }
182
183 /*
184 * Return the type of terminal to use for a port of type 'type', as specified
185 * by the first applicable mapping in 'map'. If no mappings apply, return
186 * 'type'.
187 */
188 const char *
mapped(const char * type)189 mapped(const char *type)
190 {
191 MAP *mapp;
192 int match;
193
194 match = 0;
195 for (mapp = maplist; mapp; mapp = mapp->next)
196 if (mapp->porttype == NULL || !strcmp(mapp->porttype, type)) {
197 switch (mapp->conditional) {
198 case 0: /* No test specified. */
199 match = 1;
200 break;
201 case EQ:
202 match = (Ospeed == mapp->speed);
203 break;
204 case GE:
205 match = (Ospeed >= mapp->speed);
206 break;
207 case GT:
208 match = (Ospeed > mapp->speed);
209 break;
210 case LE:
211 match = (Ospeed <= mapp->speed);
212 break;
213 case LT:
214 match = (Ospeed < mapp->speed);
215 break;
216 }
217 if (match)
218 return (mapp->type);
219 }
220 /* No match found; return given type. */
221 return (type);
222 }
223
224 typedef struct speeds {
225 const char *string;
226 speed_t speed;
227 } SPEEDS;
228
229 static SPEEDS speeds[] = {
230 { "0", B0 },
231 { "134.5", B134 },
232 { "exta", B19200 },
233 { "extb", B38400 },
234 { NULL, 0 }
235 };
236
237 static speed_t
tset_baudrate(char * rate)238 tset_baudrate(char *rate)
239 {
240 SPEEDS *sp;
241 speed_t speed;
242
243 /* The baudrate number can be preceded by a 'B', which is ignored. */
244 if (*rate == 'B')
245 ++rate;
246
247 for (sp = speeds; sp->string; ++sp)
248 if (!strcasecmp(rate, sp->string))
249 return (sp->speed);
250 speed = atol(rate);
251 if (speed == 0)
252 errx(1, "unknown baud rate %s", rate);
253 return speed;
254 }
255