1 /* $NetBSD: util.c,v 1.14 2002/04/07 10:40:04 hannken Exp $ */ 2 3 /*- 4 * Copyright (c) 1998 The NetBSD Foundation, Inc. 5 * All rights reserved. 6 * 7 * This code is derived from software contributed to The NetBSD Foundation 8 * by Juergen Hannken-Illjes. 9 * 10 * Redistribution and use in source and binary forms, with or without 11 * modification, are permitted provided that the following conditions 12 * are met: 13 * 1. Redistributions of source code must retain the above copyright 14 * notice, this list of conditions and the following disclaimer. 15 * 2. Redistributions in binary form must reproduce the above copyright 16 * notice, this list of conditions and the following disclaimer in the 17 * documentation and/or other materials provided with the distribution. 18 * 3. All advertising materials mentioning features or use of this software 19 * must display the following acknowledgement: 20 * This product includes software developed by the NetBSD 21 * Foundation, Inc. and its contributors. 22 * 4. Neither the name of The NetBSD Foundation nor the names of its 23 * contributors may be used to endorse or promote products derived 24 * from this software without specific prior written permission. 25 * 26 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 27 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 28 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 29 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 30 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 31 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 32 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 33 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 34 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 35 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 36 * POSSIBILITY OF SUCH DAMAGE. 37 */ 38 39 #include <sys/time.h> 40 #include <dev/wscons/wsconsio.h> 41 #include <dev/wscons/wsksymdef.h> 42 #include <err.h> 43 #include <string.h> 44 #include <stdio.h> 45 #include <unistd.h> 46 #include "wsconsctl.h" 47 48 #define TABLEN(t) (sizeof(t)/sizeof(t[0])) 49 50 extern struct wskbd_map_data kbmap; /* from keyboard.c */ 51 extern struct wskbd_map_data newkbmap; /* from map_parse.y */ 52 53 struct nameint { 54 int value; 55 char *name; 56 }; 57 58 static struct nameint kbtype_tab[] = { 59 { WSKBD_TYPE_LK201, "lk201" }, 60 { WSKBD_TYPE_LK401, "lk401" }, 61 { WSKBD_TYPE_PC_XT, "pc-xt" }, 62 { WSKBD_TYPE_PC_AT, "pc-at" }, 63 { WSKBD_TYPE_USB, "usb" }, 64 { WSKBD_TYPE_HPC_KBD, "hpc-kbd" }, 65 { WSKBD_TYPE_HPC_BTN, "hpc-btn" }, 66 { WSKBD_TYPE_ARCHIMEDES, "archimedes" }, 67 { WSKBD_TYPE_RISCPC, "riscpc" }, 68 { WSKBD_TYPE_ADB, "adb" }, 69 { WSKBD_TYPE_HIL, "hil" }, 70 { WSKBD_TYPE_AMIGA, "amiga" }, 71 }; 72 73 static struct nameint mstype_tab[] = { 74 { WSMOUSE_TYPE_VSXXX, "dec-tc" }, 75 { WSMOUSE_TYPE_PS2, "ps2" }, 76 { WSMOUSE_TYPE_USB, "usb" }, 77 { WSMOUSE_TYPE_LMS, "logitech-bus" }, 78 { WSMOUSE_TYPE_MMS, "ms-inport" }, 79 { WSMOUSE_TYPE_TPANEL, "touch-panel" }, 80 { WSMOUSE_TYPE_NEXT, "next" }, 81 { WSMOUSE_TYPE_ARCHIMEDES, "archimedes" }, 82 { WSMOUSE_TYPE_HIL, "hil" }, 83 { WSMOUSE_TYPE_AMIGA, "amiga" }, 84 { WSMOUSE_TYPE_MAXINE, "dec-maxine" }, 85 }; 86 87 static struct nameint dpytype_tab[] = { 88 { WSDISPLAY_TYPE_UNKNOWN, "unknown" }, 89 { WSDISPLAY_TYPE_PM_MONO, "dec-pm-mono" }, 90 { WSDISPLAY_TYPE_PM_COLOR, "dec-pm-color" }, 91 { WSDISPLAY_TYPE_CFB, "dec-cfb" }, 92 { WSDISPLAY_TYPE_XCFB, "dec-xcfb" }, 93 { WSDISPLAY_TYPE_MFB, "dec-mfb" }, 94 { WSDISPLAY_TYPE_SFB, "dec-sfb" }, 95 { WSDISPLAY_TYPE_ISAVGA, "vga-isa" }, 96 { WSDISPLAY_TYPE_PCIVGA, "vga-pci" }, 97 { WSDISPLAY_TYPE_TGA, "dec-tga-pci" }, 98 { WSDISPLAY_TYPE_SFBP, "dec-sfb+" }, 99 { WSDISPLAY_TYPE_PCIMISC, "generic-pci" }, 100 { WSDISPLAY_TYPE_NEXTMONO, "next-mono" }, 101 { WSDISPLAY_TYPE_PX, "dec-px" }, 102 { WSDISPLAY_TYPE_PXG, "dec-pxg" }, 103 { WSDISPLAY_TYPE_TX, "dec-tx" }, 104 { WSDISPLAY_TYPE_HPCFB, "generic-hpc" }, 105 { WSDISPLAY_TYPE_VIDC, "arm-vidc" }, 106 { WSDISPLAY_TYPE_SPX, "dec-spx" }, 107 { WSDISPLAY_TYPE_GPX, "dec-gpx" }, 108 { WSDISPLAY_TYPE_LCG, "dec-lcg" }, 109 { WSDISPLAY_TYPE_VAX_MONO, "dec-vax-mono" }, 110 { WSDISPLAY_TYPE_SB_P9100, "sparcbook-p9100" }, 111 { WSDISPLAY_TYPE_EGA, "ega" }, 112 { WSDISPLAY_TYPE_DCPVR, "dreamcast-pvr" }, 113 { WSDISPLAY_TYPE_GATOR, "hp-gator" }, 114 { WSDISPLAY_TYPE_TOPCAT, "hp-topcat" }, 115 { WSDISPLAY_TYPE_RENAISSANCE, "hp-renaissance" }, 116 { WSDISPLAY_TYPE_CATSEYE, "hp-catseye" }, 117 { WSDISPLAY_TYPE_DAVINCI, "hp-davinci" }, 118 { WSDISPLAY_TYPE_TIGER, "hp-tiger" }, 119 { WSDISPLAY_TYPE_HYPERION, "hp-hyperion" }, 120 { WSDISPLAY_TYPE_AMIGACC, "amiga-cc" }, 121 }; 122 123 static struct nameint kbdenc_tab[] = { 124 KB_ENCTAB 125 }; 126 127 static struct nameint kbdvar_tab[] = { 128 KB_VARTAB 129 }; 130 131 static struct field *field_tab; 132 static int field_tab_len; 133 134 static char *int2name __P((int, int, struct nameint *, int)); 135 static int name2int __P((char *, struct nameint *, int)); 136 static void print_kmap __P((struct wskbd_map_data *)); 137 138 void 139 field_setup(ftab, len) 140 struct field *ftab; 141 int len; 142 { 143 field_tab = ftab; 144 field_tab_len = len; 145 } 146 147 struct field * 148 field_by_name(name) 149 char *name; 150 { 151 int i; 152 153 for (i = 0; i < field_tab_len; i++) 154 if (strcmp(field_tab[i].name, name) == 0) 155 return(field_tab + i); 156 157 errx(1, "%s: not found", name); 158 } 159 160 struct field * 161 field_by_value(addr) 162 void *addr; 163 { 164 int i; 165 166 for (i = 0; i < field_tab_len; i++) 167 if (field_tab[i].valp == addr) 168 return(field_tab + i); 169 170 errx(1, "internal error: field_by_value: not found"); 171 } 172 173 static char * 174 int2name(val, uflag, tab, len) 175 int val; 176 int uflag; 177 struct nameint *tab; 178 int len; 179 { 180 static char tmp[20]; 181 int i; 182 183 for (i = 0; i < len; i++) 184 if (tab[i].value == val) 185 return(tab[i].name); 186 187 if (uflag) { 188 snprintf(tmp, sizeof(tmp), "unknown_%d", val); 189 return(tmp); 190 } else 191 return(NULL); 192 } 193 194 static int 195 name2int(val, tab, len) 196 char *val; 197 struct nameint *tab; 198 int len; 199 { 200 int i; 201 202 for (i = 0; i < len; i++) 203 if (strcmp(tab[i].name, val) == 0) 204 return(tab[i].value); 205 return(-1); 206 } 207 208 void 209 pr_field(f, sep) 210 struct field *f; 211 char *sep; 212 { 213 char *p; 214 u_int flags; 215 int i; 216 217 if (sep) 218 printf("%s%s", f->name, sep); 219 220 switch (f->format) { 221 case FMT_UINT: 222 printf("%u", *((u_int *) f->valp)); 223 break; 224 case FMT_STRING: 225 printf("\"%s\"", *((char **) f->valp)); 226 break; 227 case FMT_KBDTYPE: 228 p = int2name(*((u_int *) f->valp), 1, 229 kbtype_tab, TABLEN(kbtype_tab)); 230 printf("%s", p); 231 break; 232 case FMT_MSTYPE: 233 p = int2name(*((u_int *) f->valp), 1, 234 mstype_tab, TABLEN(mstype_tab)); 235 printf("%s", p); 236 break; 237 case FMT_DPYTYPE: 238 p = int2name(*((u_int *) f->valp), 1, 239 dpytype_tab, TABLEN(dpytype_tab)); 240 printf("%s", p); 241 break; 242 case FMT_KBDENC: 243 p = int2name(KB_ENCODING(*((u_int *) f->valp)), 1, 244 kbdenc_tab, TABLEN(kbdenc_tab)); 245 printf("%s", p); 246 247 flags = KB_VARIANT(*((u_int *) f->valp)); 248 for (i = 0; i < 32; i++) { 249 if (!(flags & (1 << i))) 250 continue; 251 p = int2name(flags & (1 << i), 1, 252 kbdvar_tab, TABLEN(kbdvar_tab)); 253 printf(".%s", p); 254 } 255 break; 256 case FMT_KBMAP: 257 print_kmap((struct wskbd_map_data *) f->valp); 258 break; 259 default: 260 errx(1, "internal error: pr_field: no format %d", f->format); 261 break; 262 } 263 264 printf("\n"); 265 } 266 267 void 268 rd_field(f, val, merge) 269 struct field *f; 270 char *val; 271 int merge; 272 { 273 int i; 274 u_int u; 275 char *p; 276 struct wscons_keymap *mp; 277 278 switch (f->format) { 279 case FMT_UINT: 280 if (sscanf(val, "%u", &u) != 1) 281 errx(1, "%s: not a number", val); 282 if (merge) 283 *((u_int *) f->valp) += u; 284 else 285 *((u_int *) f->valp) = u; 286 break; 287 case FMT_STRING: 288 if ((*((char **) f->valp) = strdup(val)) == NULL) 289 err(1, "strdup"); 290 break; 291 case FMT_KBDENC: 292 p = strchr(val, '.'); 293 if (p != NULL) 294 *p++ = '\0'; 295 296 i = name2int(val, kbdenc_tab, TABLEN(kbdenc_tab)); 297 if (i == -1) 298 errx(1, "%s: not a valid encoding", val); 299 *((u_int *) f->valp) = i; 300 301 while (p) { 302 val = p; 303 p = strchr(p, '.'); 304 if (p != NULL) 305 *p++ = '\0'; 306 i = name2int(val, kbdvar_tab, TABLEN(kbdvar_tab)); 307 if (i == -1) 308 errx(1, "%s: not a valid variant", val); 309 *((u_int *) f->valp) |= i; 310 } 311 break; 312 case FMT_KBMAP: 313 if (! merge) 314 kbmap.maplen = 0; 315 map_scan_setinput(val); 316 yyparse(); 317 if (merge) { 318 if (newkbmap.maplen < kbmap.maplen) 319 newkbmap.maplen = kbmap.maplen; 320 for (i = 0; i < kbmap.maplen; i++) { 321 mp = newkbmap.map + i; 322 if (mp->command == KS_voidSymbol && 323 mp->group1[0] == KS_voidSymbol && 324 mp->group1[1] == KS_voidSymbol && 325 mp->group2[0] == KS_voidSymbol && 326 mp->group2[1] == KS_voidSymbol) 327 *mp = kbmap.map[i]; 328 } 329 } 330 kbmap.maplen = newkbmap.maplen; 331 bcopy(newkbmap.map, kbmap.map, 332 kbmap.maplen*sizeof(struct wscons_keymap)); 333 break; 334 default: 335 errx(1, "internal error: rd_field: no format %d", f->format); 336 break; 337 } 338 } 339 340 static void 341 print_kmap(map) 342 struct wskbd_map_data *map; 343 { 344 int i; 345 struct wscons_keymap *mp; 346 347 for (i = 0; i < map->maplen; i++) { 348 mp = map->map + i; 349 350 if (mp->command == KS_voidSymbol && 351 mp->group1[0] == KS_voidSymbol && 352 mp->group1[1] == KS_voidSymbol && 353 mp->group2[0] == KS_voidSymbol && 354 mp->group2[1] == KS_voidSymbol) 355 continue; 356 printf("\n"); 357 printf("keycode %u =", i); 358 if (mp->command != KS_voidSymbol) 359 printf(" %s", ksym2name(mp->command)); 360 printf(" %s", ksym2name(mp->group1[0])); 361 if (mp->group1[0] != mp->group1[1] || 362 mp->group1[0] != mp->group2[0] || 363 mp->group1[0] != mp->group2[1]) { 364 printf(" %s", ksym2name(mp->group1[1])); 365 if (mp->group1[0] != mp->group2[0] || 366 mp->group1[1] != mp->group2[1]) { 367 printf(" %s", ksym2name(mp->group2[0])); 368 printf(" %s", ksym2name(mp->group2[1])); 369 } 370 } 371 } 372 } 373