NetBSD/sbin/wsconsctl/util.c

385 lines
9.9 KiB
C

/* $NetBSD: util.c,v 1.18 2004/04/02 22:16:52 heas Exp $ */
/*-
* Copyright (c) 1998 The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Juergen Hannken-Illjes.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the NetBSD
* Foundation, Inc. and its contributors.
* 4. Neither the name of The NetBSD Foundation nor the names of its
* contributors may be used to endorse or promote products derived
* from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
#include <sys/time.h>
#include <dev/wscons/wsconsio.h>
#include <dev/wscons/wsksymdef.h>
#include <err.h>
#include <string.h>
#include <stdio.h>
#include <unistd.h>
#include "wsconsctl.h"
#define TABLEN(t) (sizeof(t)/sizeof(t[0]))
extern struct wskbd_map_data kbmap; /* from keyboard.c */
extern struct wskbd_map_data newkbmap; /* from map_parse.y */
struct nameint {
int value;
char *name;
};
static struct nameint kbtype_tab[] = {
{ WSKBD_TYPE_LK201, "lk201" },
{ WSKBD_TYPE_LK401, "lk401" },
{ WSKBD_TYPE_PC_XT, "pc-xt" },
{ WSKBD_TYPE_PC_AT, "pc-at" },
{ WSKBD_TYPE_USB, "usb" },
{ WSKBD_TYPE_HPC_KBD, "hpc-kbd" },
{ WSKBD_TYPE_HPC_BTN, "hpc-btn" },
{ WSKBD_TYPE_ARCHIMEDES, "archimedes" },
{ WSKBD_TYPE_RISCPC, "riscpc" },
{ WSKBD_TYPE_ADB, "adb" },
{ WSKBD_TYPE_HIL, "hil" },
{ WSKBD_TYPE_AMIGA, "amiga" },
{ WSKBD_TYPE_MAPLE, "maple" },
{ WSKBD_TYPE_ATARI, "atari" },
{ WSKBD_TYPE_SUN, "sun" },
{ WSKBD_TYPE_SUN5, "sun-type5" },
};
static struct nameint mstype_tab[] = {
{ WSMOUSE_TYPE_VSXXX, "dec-tc" },
{ WSMOUSE_TYPE_PS2, "ps2" },
{ WSMOUSE_TYPE_USB, "usb" },
{ WSMOUSE_TYPE_LMS, "logitech-bus" },
{ WSMOUSE_TYPE_MMS, "ms-inport" },
{ WSMOUSE_TYPE_TPANEL, "touch-panel" },
{ WSMOUSE_TYPE_NEXT, "next" },
{ WSMOUSE_TYPE_ARCHIMEDES, "archimedes" },
{ WSMOUSE_TYPE_HIL, "hil" },
{ WSMOUSE_TYPE_AMIGA, "amiga" },
{ WSMOUSE_TYPE_MAXINE, "dec-maxine" },
{ WSMOUSE_TYPE_MAPLE, "maple" },
};
static struct nameint dpytype_tab[] = {
{ WSDISPLAY_TYPE_UNKNOWN, "unknown" },
{ WSDISPLAY_TYPE_PM_MONO, "dec-pm-mono" },
{ WSDISPLAY_TYPE_PM_COLOR, "dec-pm-color" },
{ WSDISPLAY_TYPE_CFB, "dec-cfb" },
{ WSDISPLAY_TYPE_XCFB, "dec-xcfb" },
{ WSDISPLAY_TYPE_MFB, "dec-mfb" },
{ WSDISPLAY_TYPE_SFB, "dec-sfb" },
{ WSDISPLAY_TYPE_ISAVGA, "vga-isa" },
{ WSDISPLAY_TYPE_PCIVGA, "vga-pci" },
{ WSDISPLAY_TYPE_TGA, "dec-tga-pci" },
{ WSDISPLAY_TYPE_SFBP, "dec-sfb+" },
{ WSDISPLAY_TYPE_PCIMISC, "generic-pci" },
{ WSDISPLAY_TYPE_NEXTMONO, "next-mono" },
{ WSDISPLAY_TYPE_PX, "dec-px" },
{ WSDISPLAY_TYPE_PXG, "dec-pxg" },
{ WSDISPLAY_TYPE_TX, "dec-tx" },
{ WSDISPLAY_TYPE_HPCFB, "generic-hpc" },
{ WSDISPLAY_TYPE_VIDC, "arm-vidc" },
{ WSDISPLAY_TYPE_SPX, "dec-spx" },
{ WSDISPLAY_TYPE_GPX, "dec-gpx" },
{ WSDISPLAY_TYPE_LCG, "dec-lcg" },
{ WSDISPLAY_TYPE_VAX_MONO, "dec-vax-mono" },
{ WSDISPLAY_TYPE_SB_P9100, "sparcbook-p9100" },
{ WSDISPLAY_TYPE_EGA, "ega" },
{ WSDISPLAY_TYPE_DCPVR, "dreamcast-pvr" },
{ WSDISPLAY_TYPE_GATOR, "hp-gator" },
{ WSDISPLAY_TYPE_TOPCAT, "hp-topcat" },
{ WSDISPLAY_TYPE_RENAISSANCE, "hp-renaissance" },
{ WSDISPLAY_TYPE_CATSEYE, "hp-catseye" },
{ WSDISPLAY_TYPE_DAVINCI, "hp-davinci" },
{ WSDISPLAY_TYPE_TIGER, "hp-tiger" },
{ WSDISPLAY_TYPE_HYPERION, "hp-hyperion" },
{ WSDISPLAY_TYPE_AMIGACC, "amiga-cc" },
{ WSDISPLAY_TYPE_SUN24, "sun24" },
{ WSDISPLAY_TYPE_NEWPORT, "sgi-newport" },
{ WSDISPLAY_TYPE_GR2, "sgi-gr2" },
{ WSDISPLAY_TYPE_SUNCG12, "suncg12" },
{ WSDISPLAY_TYPE_SUNCG14, "suncg14" },
{ WSDISPLAY_TYPE_SUNTCX, "suntcx" },
{ WSDISPLAY_TYPE_SUNFFB, "sunffb" },
};
static struct nameint kbdenc_tab[] = {
KB_ENCTAB
};
static struct nameint kbdvar_tab[] = {
KB_VARTAB
};
static struct field *field_tab;
static int field_tab_len;
static char *int2name __P((int, int, struct nameint *, int));
static int name2int __P((char *, struct nameint *, int));
static void print_kmap __P((struct wskbd_map_data *));
void
field_setup(ftab, len)
struct field *ftab;
int len;
{
field_tab = ftab;
field_tab_len = len;
}
struct field *
field_by_name(name)
char *name;
{
int i;
for (i = 0; i < field_tab_len; i++)
if (strcmp(field_tab[i].name, name) == 0)
return(field_tab + i);
errx(1, "%s: not found", name);
}
struct field *
field_by_value(addr)
void *addr;
{
int i;
for (i = 0; i < field_tab_len; i++)
if (field_tab[i].valp == addr)
return(field_tab + i);
errx(1, "internal error: field_by_value: not found");
}
static char *
int2name(val, uflag, tab, len)
int val;
int uflag;
struct nameint *tab;
int len;
{
static char tmp[20];
int i;
for (i = 0; i < len; i++)
if (tab[i].value == val)
return(tab[i].name);
if (uflag) {
snprintf(tmp, sizeof(tmp), "unknown_%d", val);
return(tmp);
} else
return(NULL);
}
static int
name2int(val, tab, len)
char *val;
struct nameint *tab;
int len;
{
int i;
for (i = 0; i < len; i++)
if (strcmp(tab[i].name, val) == 0)
return(tab[i].value);
return(-1);
}
void
pr_field(f, sep)
struct field *f;
char *sep;
{
char *p;
u_int flags;
int i;
if (sep)
printf("%s%s", f->name, sep);
switch (f->format) {
case FMT_UINT:
printf("%u", *((u_int *) f->valp));
break;
case FMT_STRING:
printf("\"%s\"", *((char **) f->valp));
break;
case FMT_KBDTYPE:
p = int2name(*((u_int *) f->valp), 1,
kbtype_tab, TABLEN(kbtype_tab));
printf("%s", p);
break;
case FMT_MSTYPE:
p = int2name(*((u_int *) f->valp), 1,
mstype_tab, TABLEN(mstype_tab));
printf("%s", p);
break;
case FMT_DPYTYPE:
p = int2name(*((u_int *) f->valp), 1,
dpytype_tab, TABLEN(dpytype_tab));
printf("%s", p);
break;
case FMT_KBDENC:
p = int2name(KB_ENCODING(*((u_int *) f->valp)), 1,
kbdenc_tab, TABLEN(kbdenc_tab));
printf("%s", p);
flags = KB_VARIANT(*((u_int *) f->valp));
for (i = 0; i < 32; i++) {
if (!(flags & (1 << i)))
continue;
p = int2name(flags & (1 << i), 1,
kbdvar_tab, TABLEN(kbdvar_tab));
printf(".%s", p);
}
break;
case FMT_KBMAP:
print_kmap((struct wskbd_map_data *) f->valp);
break;
default:
errx(1, "internal error: pr_field: no format %d", f->format);
break;
}
printf("\n");
}
void
rd_field(f, val, merge)
struct field *f;
char *val;
int merge;
{
int i;
u_int u;
char *p;
struct wscons_keymap *mp;
switch (f->format) {
case FMT_UINT:
if (sscanf(val, "%u", &u) != 1)
errx(1, "%s: not a number", val);
if (merge)
*((u_int *) f->valp) += u;
else
*((u_int *) f->valp) = u;
break;
case FMT_STRING:
if ((*((char **) f->valp) = strdup(val)) == NULL)
err(1, "strdup");
break;
case FMT_KBDENC:
p = strchr(val, '.');
if (p != NULL)
*p++ = '\0';
i = name2int(val, kbdenc_tab, TABLEN(kbdenc_tab));
if (i == -1)
errx(1, "%s: not a valid encoding", val);
*((u_int *) f->valp) = i;
while (p) {
val = p;
p = strchr(p, '.');
if (p != NULL)
*p++ = '\0';
i = name2int(val, kbdvar_tab, TABLEN(kbdvar_tab));
if (i == -1)
errx(1, "%s: not a valid variant", val);
*((u_int *) f->valp) |= i;
}
break;
case FMT_KBMAP:
if (! merge)
kbmap.maplen = 0;
map_scan_setinput(val);
yyparse();
if (merge) {
if (newkbmap.maplen < kbmap.maplen)
newkbmap.maplen = kbmap.maplen;
for (i = 0; i < kbmap.maplen; i++) {
mp = newkbmap.map + i;
if (mp->command == KS_voidSymbol &&
mp->group1[0] == KS_voidSymbol &&
mp->group1[1] == KS_voidSymbol &&
mp->group2[0] == KS_voidSymbol &&
mp->group2[1] == KS_voidSymbol)
*mp = kbmap.map[i];
}
}
kbmap.maplen = newkbmap.maplen;
bcopy(newkbmap.map, kbmap.map,
kbmap.maplen*sizeof(struct wscons_keymap));
break;
default:
errx(1, "internal error: rd_field: no format %d", f->format);
break;
}
}
static void
print_kmap(map)
struct wskbd_map_data *map;
{
int i;
struct wscons_keymap *mp;
for (i = 0; i < map->maplen; i++) {
mp = map->map + i;
if (mp->command == KS_voidSymbol &&
mp->group1[0] == KS_voidSymbol &&
mp->group1[1] == KS_voidSymbol &&
mp->group2[0] == KS_voidSymbol &&
mp->group2[1] == KS_voidSymbol)
continue;
printf("\n");
printf("keycode %u =", i);
if (mp->command != KS_voidSymbol)
printf(" %s", ksym2name(mp->command));
printf(" %s", ksym2name(mp->group1[0]));
if (mp->group1[0] != mp->group1[1] ||
mp->group1[0] != mp->group2[0] ||
mp->group1[0] != mp->group2[1]) {
printf(" %s", ksym2name(mp->group1[1]));
if (mp->group1[0] != mp->group2[0] ||
mp->group1[1] != mp->group2[1]) {
printf(" %s", ksym2name(mp->group2[0]));
printf(" %s", ksym2name(mp->group2[1]));
}
}
}
}