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