usr.bin/tset/map.c

   1 /*      $NetBSD: map.c,v 1.10 2003/08/07 11:16:48 agc Exp $     */
   2
   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 #ifndef lint
  34 #if 0
  35 static char sccsid[] = "@(#)map.c       8.1 (Berkeley) 6/9/93";
  36 #endif
  37 __RCSID("$NetBSD: map.c,v 1.10 2003/08/07 11:16:48 agc Exp $");
  38 #endif /* not lint */
  39
  40 #include <sys/types.h>
  41 #include <err.h>
  42 #include <errno.h>
  43 #include <stdlib.h>
  44 #include <string.h>
  45 #include <termios.h>
  46 #include "extern.h"
  47
  48 int     baudrate __P((char *));
  49
  50 /* Baud rate conditionals for mapping. */
  51 #define GT              0x01
  52 #define EQ              0x02
  53 #define LT              0x04
  54 #define NOT             0x08
  55 #define GE              (GT | EQ)
  56 #define LE              (LT | EQ)
  57
  58 typedef struct map {
  59         struct map *next;       /* Linked list of maps. */
  60         const char *porttype;   /* Port type, or "" for any. */
  61         const char *type;       /* Terminal type to select. */
  62         int conditional;        /* Baud rate conditionals bitmask. */
  63         int speed;              /* Baud rate to compare against. */
  64 } MAP;
  65
  66 MAP *cur, *maplist;
  67
  68 /*
  69  * Syntax for -m:
  70  * [port-type][test baudrate]:terminal-type
  71  * The baud rate tests are: >, <, @, =, !
  72  */
  73 void
  74 add_mapping(port, arg)
  75         const char *port;
  76         char *arg;
  77 {
  78         MAP *mapp;
  79         char *copy, *p, *termp;
  80
  81         copy = strdup(arg);
  82         mapp = malloc((u_int)sizeof(MAP));
  83         if (copy == NULL || mapp == NULL)
  84                 err(1, "malloc");
  85         mapp->next = NULL;
  86         if (maplist == NULL)
  87                 cur = maplist = mapp;
  88         else {
  89                 cur->next = mapp;
  90                 cur =  mapp;
  91         }
  92
  93         mapp->porttype = arg;
  94         mapp->conditional = 0;
  95
  96         arg = strpbrk(arg, "><@=!:");
  97
  98         if (arg == NULL) {                      /* [?]term */
  99                 mapp->type = mapp->porttype;
 100                 mapp->porttype = NULL;
 101                 goto done;
 102         }
 103
 104         if (arg == mapp->porttype)              /* [><@=! baud]:term */
 105                 mapp->porttype = termp = NULL;
 106         else
 107                 termp = arg;
 108
 109         for (;; ++arg)                          /* Optional conditionals. */
 110                 switch(*arg) {
 111                 case '<':
 112                         if (mapp->conditional & GT)
 113                                 goto badmopt;
 114                         mapp->conditional |= LT;
 115                         break;
 116                 case '>':
 117                         if (mapp->conditional & LT)
 118                                 goto badmopt;
 119                         mapp->conditional |= GT;
 120                         break;
 121                 case '@':
 122                 case '=':                       /* Not documented. */
 123                         mapp->conditional |= EQ;
 124                         break;
 125                 case '!':
 126                         mapp->conditional |= NOT;
 127                         break;
 128                 default:
 129                         goto next;
 130                 }
 131
 132 next:   if (*arg == ':') {
 133                 if (mapp->conditional)
 134                         goto badmopt;
 135                 ++arg;
 136         } else {                                /* Optional baudrate. */
 137                 arg = strchr(p = arg, ':');
 138                 if (arg == NULL)
 139                         goto badmopt;
 140                 *arg++ = '\0';
 141                 mapp->speed = baudrate(p);
 142         }
 143
 144         if (*arg == '\0')                       /* Non-optional type. */
 145                 goto badmopt;
 146
 147         mapp->type = arg;
 148
 149         /* Terminate porttype, if specified. */
 150         if (termp != NULL)
 151                 *termp = '\0';
 152
 153         /* If a NOT conditional, reverse the test. */
 154         if (mapp->conditional & NOT)
 155                 mapp->conditional = ~mapp->conditional & (EQ | GT | LT);
 156
 157         /* If user specified a port with an option flag, set it. */
 158 done:   if (port) {
 159                 if (mapp->porttype)
 160 badmopt:                errx(1, "illegal -m option format: %s", copy);
 161                 mapp->porttype = port;
 162         }
 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         free(copy);
 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 const char *
 190 mapped(type)
 191         const char *type;
 192 {
 193         MAP *mapp;
 194         int match;
 195
 196         match = 0;
 197         for (mapp = maplist; mapp; mapp = mapp->next)
 198                 if (mapp->porttype == NULL || !strcmp(mapp->porttype, type)) {
 199                         switch (mapp->conditional) {
 200                         case 0:                 /* No test specified. */
 201                                 match = 1;
 202                                 break;
 203                         case EQ:
 204                                 match = (ospeed == mapp->speed);
 205                                 break;
 206                         case GE:
 207                                 match = (ospeed >= mapp->speed);
 208                                 break;
 209                         case GT:
 210                                 match = (ospeed > mapp->speed);
 211                                 break;
 212                         case LE:
 213                                 match = (ospeed <= mapp->speed);
 214                                 break;
 215                         case LT:
 216                                 match = (ospeed < mapp->speed);
 217                                 break;
 218                         }
 219                         if (match)
 220                                 return (mapp->type);
 221                 }
 222         /* No match found; return given type. */
 223         return (type);
 224 }
 225
 226 int
 227 baudrate(rate)
 228         char *rate;
 229 {
 230
 231         /* The baudrate number can be preceded by a 'B', which is ignored. */
 232         if (*rate == 'B')
 233                 ++rate;
 234
 235         return (atoi(rate));
 236 }