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
  34 #ifndef lint
  35 #if 0
  36 static char sccsid[] = "@(#)map.c       8.1 (Berkeley) 6/9/93";
  37 #endif
  38 static const char rcsid[] =
  39   "$FreeBSD: src/usr.bin/tset/map.c,v 1.7 1999/08/30 08:27:30 peter Exp $";
  40 #endif /* not lint */
  41
  42 #include <sys/types.h>
  43 #include <err.h>
  44 #include <stdlib.h>
  45 #include <string.h>
  46 #include <termios.h>
  47 #include "extern.h"
  48
  49 extern speed_t Ospeed;
  50 speed_t tset_baudrate __P((char *));
  51
  52 /* Baud rate conditionals for mapping. */
  53 #define GT              0x01
  54 #define EQ              0x02
  55 #define LT              0x04
  56 #define NOT             0x08
  57 #define GE              (GT | EQ)
  58 #define LE              (LT | EQ)
  59
  60 typedef struct map {
  61         struct map *next;       /* Linked list of maps. */
  62         char *porttype;         /* Port type, or "" for any. */
  63         char *type;             /* Terminal type to select. */
  64         int conditional;        /* Baud rate conditionals bitmask. */
  65         speed_t speed;          /* Baud rate to compare against. */
  66 } MAP;
  67
  68 MAP *cur, *maplist;
  69
  70 /*
  71  * Syntax for -m:
  72  * [port-type][test baudrate]:terminal-type
  73  * The baud rate tests are: >, <, @, =, !
  74  */
  75 void
  76 add_mapping(port, arg)
  77         char *port, *arg;
  78 {
  79         MAP *mapp;
  80         char *copy, *p, *termp;
  81
  82         copy = strdup(arg);
  83         mapp = malloc((u_int)sizeof(MAP));
  84         if (copy == NULL || mapp == NULL)
  85                 errx(1, "malloc");
  86         mapp->next = NULL;
  87         if (maplist == NULL)
  88                 cur = maplist = mapp;
  89         else {
  90                 cur->next = mapp;
  91                 cur =  mapp;
  92         }
  93
  94         mapp->porttype = arg;
  95         mapp->conditional = 0;
  96
  97         arg = strpbrk(arg, "><@=!:");
  98
  99         if (arg == NULL) {                      /* [?]term */
 100                 mapp->type = mapp->porttype;
 101                 mapp->porttype = NULL;
 102                 goto done;
 103         }
 104
 105         if (arg == mapp->porttype)              /* [><@=! baud]:term */
 106                 termp = mapp->porttype = NULL;
 107         else
 108                 termp = arg;
 109
 110         for (;; ++arg)                          /* Optional conditionals. */
 111                 switch(*arg) {
 112                 case '<':
 113                         if (mapp->conditional & GT)
 114                                 goto badmopt;
 115                         mapp->conditional |= LT;
 116                         break;
 117                 case '>':
 118                         if (mapp->conditional & LT)
 119                                 goto badmopt;
 120                         mapp->conditional |= GT;
 121                         break;
 122                 case '@':
 123                 case '=':                       /* Not documented. */
 124                         mapp->conditional |= EQ;
 125                         break;
 126                 case '!':
 127                         mapp->conditional |= NOT;
 128                         break;
 129                 default:
 130                         goto next;
 131                 }
 132
 133 next:   if (*arg == ':') {
 134                 if (mapp->conditional)
 135                         goto badmopt;
 136                 ++arg;
 137         } else {                                /* Optional baudrate. */
 138                 arg = index(p = arg, ':');
 139                 if (arg == NULL)
 140                         goto badmopt;
 141                 *arg++ = '\0';
 142                 mapp->speed = tset_baudrate(p);
 143         }
 144
 145         if (*arg == '\0')                       /* Non-optional type. */
 146                 goto badmopt;
 147
 148         mapp->type = arg;
 149
 150         /* Terminate porttype, if specified. */
 151         if (termp != NULL)
 152                 *termp = '\0';
 153
 154         /* If a NOT conditional, reverse the test. */
 155         if (mapp->conditional & NOT)
 156                 mapp->conditional = ~mapp->conditional & (EQ | GT | LT);
 157
 158         /* If user specified a port with an option flag, set it. */
 159 done:   if (port) {
 160                 if (mapp->porttype)
 161 badmopt:                errx(1, "illegal -m option format: %s", copy);
 162                 mapp->porttype = port;
 163         }
 164
 165 #ifdef MAPDEBUG
 166         (void)printf("port: %s\n", mapp->porttype ? mapp->porttype : "ANY");
 167         (void)printf("type: %s\n", mapp->type);
 168         (void)printf("conditional: ");
 169         p = "";
 170         if (mapp->conditional & GT) {
 171                 (void)printf("GT");
 172                 p = "/";
 173         }
 174         if (mapp->conditional & EQ) {
 175                 (void)printf("%sEQ", p);
 176                 p = "/";
 177         }
 178         if (mapp->conditional & LT)
 179                 (void)printf("%sLT", p);
 180         (void)printf("\nspeed: %d\n", mapp->speed);
 181 #endif
 182 }
 183
 184 /*
 185  * Return the type of terminal to use for a port of type 'type', as specified
 186  * by the first applicable mapping in 'map'.  If no mappings apply, return
 187  * 'type'.
 188  */
 189 char *
 190 mapped(type)
 191         char *type;
 192 {
 193         MAP *mapp;
 194         int match;
 195
 196         for (mapp = maplist; mapp; mapp = mapp->next)
 197                 if (mapp->porttype == NULL || !strcmp(mapp->porttype, type)) {
 198                         switch (mapp->conditional) {
 199                         case 0:                 /* No test specified. */
 200                                 match = 1;
 201                                 break;
 202                         case EQ:
 203                                 match = (Ospeed == mapp->speed);
 204                                 break;
 205                         case GE:
 206                                 match = (Ospeed >= mapp->speed);
 207                                 break;
 208                         case GT:
 209                                 match = (Ospeed > mapp->speed);
 210                                 break;
 211                         case LE:
 212                                 match = (Ospeed <= mapp->speed);
 213                                 break;
 214                         case LT:
 215                                 match = (Ospeed < mapp->speed);
 216                                 break;
 217                         }
 218                         if (match)
 219                                 return (mapp->type);
 220                 }
 221         /* No match found; return given type. */
 222         return (type);
 223 }
 224
 225 typedef struct speeds {
 226         char    *string;
 227         speed_t speed;
 228 } SPEEDS;
 229
 230 SPEEDS speeds[] = {
 231         "0",            B0,
 232         "134.5",        B134,
 233         "exta",         B19200,
 234         "extb",         B38400,
 235         NULL
 236 };
 237
 238 speed_t
 239 tset_baudrate(rate)
 240         char *rate;
 241 {
 242         SPEEDS *sp;
 243         speed_t speed;
 244
 245         /* The baudrate number can be preceded by a 'B', which is ignored. */
 246         if (*rate == 'B')
 247                 ++rate;
 248
 249         for (sp = speeds; sp->string; ++sp)
 250                 if (!strcasecmp(rate, sp->string))
 251                         return (sp->speed);
 252         speed = atol(rate);
 253         if (speed == 0)
 254                 errx(1, "unknown baud rate %s", rate);
 255         return speed;
 256 }