From 2cd2d2b595e2ba75116f9c4535b9da40ecf8c441 Mon Sep 17 00:00:00 2001 From: Hidetoshi Shimokawa Date: Thu, 23 Sep 2004 06:38:29 +0000 Subject: [PATCH] dconschat - user interface to dcons(4) Obtained from: FreeBSD --- usr.sbin/Makefile | 3 +- usr.sbin/dconschat/Makefile | 13 + usr.sbin/dconschat/dconschat.8 | 315 +++++++++++ usr.sbin/dconschat/dconschat.c | 971 +++++++++++++++++++++++++++++++++ 4 files changed, 1301 insertions(+), 1 deletion(-) create mode 100644 usr.sbin/dconschat/Makefile create mode 100644 usr.sbin/dconschat/dconschat.8 create mode 100644 usr.sbin/dconschat/dconschat.c diff --git a/usr.sbin/Makefile b/usr.sbin/Makefile index fd8db45ad9..f1a0ab0a5c 100644 --- a/usr.sbin/Makefile +++ b/usr.sbin/Makefile @@ -1,6 +1,6 @@ # From: @(#)Makefile 5.20 (Berkeley) 6/12/93 # $FreeBSD: src/usr.sbin/Makefile,v 1.183.2.14 2003/04/16 11:01:51 ru Exp $ -# $DragonFly: src/usr.sbin/Makefile,v 1.13 2004/09/21 21:25:28 joerg Exp $ +# $DragonFly: src/usr.sbin/Makefile,v 1.14 2004/09/23 06:38:29 simokawa Exp $ # XXX MISSING: mkproto SUBDIR= IPXrouted \ @@ -25,6 +25,7 @@ SUBDIR= IPXrouted \ cron \ crunch \ daemon \ + dconschat \ dev_mkdb \ diskpart \ edquota \ diff --git a/usr.sbin/dconschat/Makefile b/usr.sbin/dconschat/Makefile new file mode 100644 index 0000000000..25aecd87fa --- /dev/null +++ b/usr.sbin/dconschat/Makefile @@ -0,0 +1,13 @@ +# $FreeBSD: src/usr.sbin/dconschat/Makefile,v 1.1 2003/10/24 15:44:10 simokawa Exp $ +# $DragonFly: src/usr.sbin/dconschat/Makefile,v 1.1 2004/09/23 06:38:29 simokawa Exp $ + +PROG= dconschat +SRCS= dconschat.c +MAN= dconschat.8 + +CFLAGS+= -I${.CURDIR}/../../sys + +DPADD= ${LIBKVM} +LDADD= -lkvm + +.include diff --git a/usr.sbin/dconschat/dconschat.8 b/usr.sbin/dconschat/dconschat.8 new file mode 100644 index 0000000000..140aed10ba --- /dev/null +++ b/usr.sbin/dconschat/dconschat.8 @@ -0,0 +1,315 @@ +.\" Copyright (c) 2003 Hidetoshi Shimokawa +.\" All rights reserved. +.\" +.\" 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. +.\" +.\" THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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. +.\" +.\" $FreeBSD: src/usr.sbin/dconschat/dconschat.8,v 1.5 2004/06/13 18:03:42 ru Exp $ +.\" $DragonFly: src/usr.sbin/dconschat/dconschat.8,v 1.1 2004/09/23 06:38:29 simokawa Exp $ +.\" +.\" +.Dd February 11, 2003 +.Dt DCONSCHAT 8 +.Os +.Sh NAME +.Nm dconschat +.Nd user interface to +.Xr dcons 4 +.Sh SYNOPSIS +.Nm +.Op Fl brvwRT1 +.Op Fl h Ar hz +.Op Fl C Ar console_port +.Op Fl G Ar gdb_port +.Op Fl M Ar core +.Op Fl N Ar system +.Nm +.Op Fl brvwR1 +.Op Fl h Ar hz +.Op Fl C Ar console_port +.Op Fl G Ar gdb_port +.Op Fl a Ar address +.Op Fl u Ar bus_num +.Fl t Ar target_eui64 +.Sh DESCRIPTION +The +.Nm +utility is designed to provide a way for users to access +.Xr dcons 4 +(dumb console device) on a local or remote system. +The +.Nm +utility interacts with +.Xr dcons 4 +using +.Xr kvm 3 +or +.Xr firewire 4 , +and interacts with the user over TTY or TCP/IP. +To access remote +.Xr dcons 4 +using +.Xr firewire 4 , +you have to specify target EUI64 address using the +.Fl t +option. +.Pp +The +.Nm +utility and the +.Xr dcons 4 +driver communicate using 2 ports, one for the console port and another +for remote +.Xr gdb 1 +port. +Users are supposed to access +.Nm +using TTY, +.Xr telnet 1 +and +.Xr gdb 1 . +You can specify listen ports for console and +.Xr gdb 1 +port using the +.Fl C +and +.Fl G +options respectively. +The port number 0 has special meaning that +current TTY (stdin/stdout) is used instead of TCP/IP. +A negative port number will disable the port. +To quit +.Nm , +send a CR + +.Ql ~ ++ +.Ql \&. +sequence to the console port, +or send signal to the process. +.Pp +By analogy with +.Xr pty 4 +device, the +.Xr dcons 4 +acts as a slave device and +.Nm +acts as a master device with +.Xr telnetd 8 . +.Bl -tag -width indent +.It Fl b +Translate Ctrl-C to ALT_BREAK (CR + +.Ql ~ ++ Ctrl-B) on +.Xr gdb 1 +port. +.It Fl r +Replay old buffer on connection. +.It Fl v +Verbose debug output. +Multiple +.Fl v +options increase verbosity. +.It Fl w +Listen on a wildcard address rather than localhost. +.It Fl R +Read-only. +Do not write anything to the +.Xr dcons 4 +buffer. +.It Fl T +Enable ad-hoc workaround for the TELNET protocol to +remove unnecessary byte sequences. +It should be set when you access +.Nm +using +.Xr telnet 1 . +.It Fl 1 +One-shot. +Read available buffer, then exit. +This implies the +.Fl r +option. +.It Fl h Ar hz +Specify polling rate. +The default value is 100. +.It Fl C Ar console_port +Specify the console port. +The default value is 0 (stdin/stdout). +.It Fl G Ar gdb_port +Specify +.Xr gdb 1 +port. +The default value is \-1 (disabled). +.It Fl M Ar core +Specify core file. +.It Fl N Ar system +Specify system file such as +.Pa /boot/kernel/kernel . +.It Fl t Ar target_eui64 +Specify the 64-bit extended unique identifier of the target, +and use FireWire to access remote +.Xr dcons 4 . +.It Fl a Ar address +Specify the physical I/O address of the +.Xr dcons 4 +buffer. +See +.Xr dcons 4 +for details. +If this option is not specified, +.Nm +tries to get the address from the Configuration ROM on the target. +You are supposed to enable +.Xr dcons_crom 4 +on the target to omit this option. +.It Fl u Ar bus_num +Specify FireWire bus number. +The default is 0. +.El +.Sh EXAMPLES +To use +.Nm +with FireWire for remote +.Xr dcons 4 , +you have to specify the EUI64 of the target. +You can obtain EUI64 by running +.Xr fwcontrol 8 +without options. +The first EUI64 is of the host running +.Xr fwcontrol 8 +and others on the bus follow. +.Bd -literal -offset indent +# fwcontrol +2 devices (info_len=2) +node EUI64 status + 1 77-66-55-44-33-22-11-00 0 + 0 00-11-22-33-44-55-66-77 1 +.Ed +.Pp +The EUI64 does not change unless you change the hardware +as the ethernet address. +.Pp +Now we can run +.Nm . +.Bd -literal -offset indent +# dconschat -br -G 12345 -t 00-11-22-33-44-55-66-77 +.Ed +.Pp +You will get console output of the target and login prompt if a +.Xr getty 8 +is running on +.Xr dcons 4 . +You can break to DDB with ALT_BREAK (CR + +.Ql ~ ++ Ctrl-B) +if +.Dv DDB +and +.Dv ALT_BREAK_TO_DEBUGGER +are enabled in the target kernel. +To quit the session, type CR + +.Ql ~ ++ +.Ql \&. +in the console port. +.Pp +Using +.Xr gdb 1 +port is almost the same as remote +.Xr gdb 1 +over serial line except +using TCP/IP instead of +.Pa /dev/cu* . +See +.Sx "On-line Kernel Debugging Using Remote GDB" +section of +.%T "The FreeBSD Developers Handbook" +and +.Xr gdb 4 +for details. +.Bd -literal -offset indent +% gdb -k kernel.debug +(kgdb) target remote :12345 +.Ed +.Pp +Once +.Xr gdb 1 +is attached and you specified the +.Fl b +option to +.Nm , +typing Ctrl-C in +.Xr gdb 1 +causes a break to debugger. +.Pp +The following command gets the console log from the crash dump: +.Bd -literal -offset indent +# dconschat -1 -M vmcore.0 -N kernel.0 +.Ed +.Pp +If you want access to the console using +.Xr telnet 1 , +try the following: +.Bd -literal -offset indent +# dconschat -rTC 5555 & +# telnet localhost 5555 +.Ed +.Pp +You may want to keep logging console output of several machines. +.Nm conserver-com +in the Ports collection may help you. +Insert the following lines in +.Pa conserver.cf : +.Bd -literal -offset indent +console local { + master localhost; + type exec; + exec /usr/sbin/dconschat -rh 25; +} +console remote { + master localhost; + type exec; + exec /usr/sbin/dconschat -rh 25 -t 00-11-22-33-44-55-66-77; +} +.Ed +.Sh FILES +.Bl -tag -width indent -compact +.It Pa /dev/fwmem0.0 +.It Pa /dev/mem +.It Pa /dev/kmem +.El +.Sh SEE ALSO +.Xr gdb 1 , +.Xr telnet 1 , +.Xr kvm 3 , +.Xr dcons 4 , +.Xr dcons_crom 4 , +.Xr ddb 4 , +.Xr firewire 4 , +.Xr fwohci 4 , +.Xr gdb 4 , +.Xr eui64 5 , +.Xr fwcontrol 8 +.Sh AUTHORS +.An Hidetoshi Shimokawa Aq simokawa@FreeBSD.org +.Sh BUGS +This utility is +.Ud . diff --git a/usr.sbin/dconschat/dconschat.c b/usr.sbin/dconschat/dconschat.c new file mode 100644 index 0000000000..ac12e040ff --- /dev/null +++ b/usr.sbin/dconschat/dconschat.c @@ -0,0 +1,971 @@ +/* + * Copyright (C) 2003 + * Hidetoshi Shimokawa. All rights reserved. + * + * 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 Hidetoshi Shimokawa. + * + * 4. Neither the name of the author 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 REGENTS 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 REGENTS 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. + * + * $Id: dconschat.c,v 1.76 2003/10/23 06:21:13 simokawa Exp $ + * $FreeBSD: src/usr.sbin/dconschat/dconschat.c,v 1.6 2004/05/26 22:59:54 brooks Exp $ + * $DragonFly: src/usr.sbin/dconschat/dconschat.c,v 1.1 2004/09/23 06:38:29 simokawa Exp $ + */ + +#include +#include +#include +#include +#include +#include +#include +#include + +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#include +#ifdef __DragonFly__ +#include +#include +#include +#else +#include +#include +#include +#endif + +#include +#include + +#include + +#define DCONS_POLL_HZ 100 +#define DCONS_POLL_OFFLINE 2 /* sec */ + +#define RETRY 3 + +#ifdef CSRVAL_VENDOR_PRIVATE +#define USE_CROM 1 +#else +#define USE_CROM 0 +#endif + +int verbose = 0; +int tc_set = 0; +int poll_hz = DCONS_POLL_HZ; + +#define IS_CONSOLE(p) ((p)->port == 0) +#define IS_GDB(p) ((p)->port == 1) + +static struct dcons_state { + int fd; + kvm_t *kd; + int kq; + off_t paddr; +#define F_READY (1 << 1) +#define F_RD_ONLY (1 << 2) +#define F_ALT_BREAK (1 << 3) +#define F_TELNET (1 << 4) +#define F_USE_CROM (1 << 5) +#define F_ONE_SHOT (1 << 6) +#define F_REPLAY (1 << 7) + int flags; + enum { + TYPE_KVM, + TYPE_FW + } type; + int escape_state; + struct dcons_port { + int port; + struct dcons_ch o; + struct dcons_ch i; + u_int32_t optr; + u_int32_t iptr; + int s; + int infd; + int outfd; + struct addrinfo *res; + int skip_read; + } port[DCONS_NPORT]; + struct timespec to; + struct timespec zero; + struct termios tsave; +} sc; + +static int +dread(struct dcons_state *dc, void *buf, size_t n, off_t offset) +{ + switch (dc->type) { + case TYPE_FW: + return (pread(dc->fd, buf, n, offset)); + case TYPE_KVM: + return (kvm_read(dc->kd, offset, buf, n)); + } + return (-1); +} + +static int +dwrite(struct dcons_state *dc, void *buf, size_t n, off_t offset) +{ + if ((dc->flags & F_RD_ONLY) != 0) + return (n); + + switch (dc->type) { + case TYPE_FW: + return (pwrite(dc->fd, buf, n, offset)); + case TYPE_KVM: + return (kvm_write(dc->kd, offset, buf, n)); + } + return (-1); +} + +static void +dconschat_cleanup(int sig) +{ + struct dcons_state *dc; + + dc = ≻ + if (tc_set != 0) + tcsetattr(STDIN_FILENO, TCSADRAIN, &dc->tsave); + + if (sig > 0) + printf("\n[dconschat exiting with signal %d ...]\n", sig); + else + printf("\n[dconschat exiting...]\n"); + exit(0); +} + +#if USE_CROM +static int +dconschat_get_crom(struct dcons_state *dc) +{ + off_t addr; + int i, state = 0; + u_int32_t buf, hi = 0, lo = 0; + struct csrreg *reg; + + reg = (struct csrreg *)&buf; + addr = 0xffff; + addr = (addr << 32) | 0xf0000400; + for (i = 20; i < 0x400; i += 4) { + if (dread(dc, &buf, 4, addr + i) < 0) { + if (verbose) + warn("crom read faild"); + return (-1); + } + buf = ntohl(buf); + if (verbose) + printf("%d %02x %06x\n", state, reg->key, reg->val); + switch (state) { + case 0: + if (reg->key == CSRKEY_SPEC && + reg->val == CSRVAL_VENDOR_PRIVATE) + state = 1; + break; + case 1: + if (reg->key == CSRKEY_VER && + reg->val == DCONS_CSR_VAL_VER) + state = 2; + break; + case 2: + if (reg->key == DCONS_CSR_KEY_HI) + hi = reg->val; + else if (reg->key == DCONS_CSR_KEY_LO) { + lo = reg->val; + goto out; + } + break; + } + } + /* not found */ + return (-1); +out: + if (verbose) + printf("addr: %06x %06x\n", hi, lo); + dc->paddr = ((off_t)hi << 24) | lo; + return (0); +} +#endif + +static void +dconschat_ready(struct dcons_state *dc, int ready, char *reason) +{ + static char oldreason[64] = ""; + int old; + + old = (dc->flags & F_READY) ? 1 : 0; + + if (ready) { + dc->flags |= F_READY; + if (ready != old) + printf("[dcons connected]\r\n"); + oldreason[0] = 0; + } else { + dc->flags &= ~F_READY; + if (strncmp(oldreason, reason, sizeof(oldreason)) != 0) { + printf("[dcons disconnected (%s)]\r\n", reason); + strlcpy(oldreason, reason, sizeof(oldreason)); + } + } +} + +static int +dconschat_fetch_header(struct dcons_state *dc) +{ + char ebuf[64]; + struct dcons_buf dbuf; + int j; + +#if USE_CROM + if (dc->paddr == 0 && (dc->flags & F_USE_CROM) != 0) { + if (dconschat_get_crom(dc)) { + dconschat_ready(dc, 0, "get crom failed"); + return (-1); + } + } +#endif + + if (dread(dc, &dbuf, DCONS_HEADER_SIZE, dc->paddr) < 0) { + dconschat_ready(dc, 0, "read header failed"); + return (-1); + } + if (dbuf.magic != htonl(DCONS_MAGIC)) { + if ((dc->flags & F_USE_CROM) !=0) + dc->paddr = 0; + snprintf(ebuf, sizeof(ebuf), "wrong magic 0x%08x", dbuf.magic); + dconschat_ready(dc, 0, ebuf); + return (-1); + } + if (ntohl(dbuf.version) != DCONS_VERSION) { + snprintf(ebuf, sizeof(ebuf), +#if __FreeBSD_version < 500000 + "wrong version %ld,%d", +#else + "wrong version %d,%d", +#endif + ntohl(dbuf.version), DCONS_VERSION); + /* XXX exit? */ + dconschat_ready(dc, 0, ebuf); + return (-1); + } + + for (j = 0; j < DCONS_NPORT; j++) { + struct dcons_ch *o, *i; + off_t newbuf; + int new = 0; + + o = &dc->port[j].o; + newbuf = dc->paddr + ntohl(dbuf.ooffset[j]); + o->size = ntohl(dbuf.osize[j]); + + if (newbuf != o->buf) { + /* buffer address has changes */ + new = 1; + o->gen = ntohl(dbuf.optr[j]) >> DCONS_GEN_SHIFT; + o->pos = ntohl(dbuf.optr[j]) & DCONS_POS_MASK; + o->buf = newbuf; + } + + i = &dc->port[j].i; + i->size = ntohl(dbuf.isize[j]); + i->gen = ntohl(dbuf.iptr[j]) >> DCONS_GEN_SHIFT; + i->pos = ntohl(dbuf.iptr[j]) & DCONS_POS_MASK; + i->buf = dc->paddr + ntohl(dbuf.ioffset[j]); + + if (verbose) { + printf("port %d size offset gen pos\n", j); +#if __FreeBSD_version < 500000 + printf("output: %5d %6ld %5d %5d\n" + "input : %5d %6ld %5d %5d\n", +#else + printf("output: %5d %6d %5d %5d\n" + "input : %5d %6d %5d %5d\n", +#endif + o->size, ntohl(dbuf.ooffset[j]), o->gen, o->pos, + i->size, ntohl(dbuf.ioffset[j]), i->gen, i->pos); + } + + if (IS_CONSOLE(&dc->port[j]) && new && + (dc->flags & F_REPLAY) !=0) { + if (o->gen > 0) + o->gen --; + else + o->pos = 0; + } + } + dconschat_ready(dc, 1, NULL); + return(0); +} + +static int +dconschat_get_ptr (struct dcons_state *dc) { + int dlen, i; + u_int32_t ptr[DCONS_NPORT*2+1]; + static int retry = RETRY; + +again: + dlen = dread(dc, &ptr, sizeof(ptr), + dc->paddr + __offsetof(struct dcons_buf, magic)); + + if (dlen < 0) { + if (errno == ETIMEDOUT) + if (retry -- > 0) + goto again; + dconschat_ready(dc, 0, "get ptr failed"); + return(-1); + } + if (ptr[0] != htonl(DCONS_MAGIC)) { + dconschat_ready(dc, 0, "wrong magic"); + return(-1); + } + retry = RETRY; + for (i = 0; i < DCONS_NPORT; i ++) { + dc->port[i].optr = ntohl(ptr[i + 1]); + dc->port[i].iptr = ntohl(ptr[DCONS_NPORT + i + 1]); + } + return(0); +} + +#define MAX_XFER 2048 +static int +dconschat_read_dcons(struct dcons_state *dc, int port, char *buf, int len) +{ + struct dcons_ch *ch; + u_int32_t ptr, pos, gen, next_gen; + int rlen, dlen, lost; + int retry = RETRY; + + ch = &dc->port[port].o; + ptr = dc->port[port].optr; + gen = ptr >> DCONS_GEN_SHIFT; + pos = ptr & DCONS_POS_MASK; + if (gen == ch->gen && pos == ch->pos) + return (-1); + + next_gen = DCONS_NEXT_GEN(ch->gen); + /* XXX sanity check */ + if (gen == ch->gen) { + if (pos > ch->pos) + goto ok; + lost = ch->size * DCONS_GEN_MASK - ch->pos; + ch->pos = 0; + } else if (gen == next_gen) { + if (pos <= ch->pos) + goto ok; + lost = pos - ch->pos; + ch->pos = pos; + } else { + lost = gen - ch->gen; + if (lost < 0) + lost += DCONS_GEN_MASK; + if (verbose) + printf("[genskip %d]", lost); + lost = lost * ch->size - ch->pos; + ch->pos = 0; + ch->gen = gen; + } + /* generation skipped !! */ + /* XXX discard */ + if (verbose) + printf("[lost %d]", lost); +ok: + if (gen == ch->gen) + rlen = pos - ch->pos; + else + rlen = ch->size - ch->pos; + + if (rlen > MAX_XFER) + rlen = MAX_XFER; + if (rlen > len) + rlen = len; + +#if 1 + if (verbose) + printf("[%d]", rlen); fflush(stdout); +#endif + +again: + dlen = dread(dc, buf, rlen, ch->buf + ch->pos); + if (dlen < 0) { + if (errno == ETIMEDOUT) + if (retry -- > 0) + goto again; + dconschat_ready(dc, 0, "read buffer failed"); + return(-1); + } + if (dlen != rlen) + warnx("dlen(%d) != rlen(%d)\n", dlen, rlen); + ch->pos += dlen; + if (ch->pos >= ch->size) { + ch->gen = next_gen; + ch->pos = 0; + if (verbose) + printf("read_dcons: gen=%d", ch->gen); + } + return (dlen); +} + +static int +dconschat_write_dcons(struct dcons_state *dc, int port, char *buf, int blen) +{ + struct dcons_ch *ch; + u_int32_t ptr; + int len, wlen; + int retry = RETRY; + + ch = &dc->port[port].i; + ptr = dc->port[port].iptr; + + /* the others may advance the pointer sync with it */ + ch->gen = ptr >> DCONS_GEN_SHIFT; + ch->pos = ptr & DCONS_POS_MASK; + + while(blen > 0) { + wlen = MIN(blen, ch->size - ch->pos); + wlen = MIN(wlen, MAX_XFER); + len = dwrite(dc, buf, wlen, ch->buf + ch->pos); + if (len < 0) { + if (errno == ETIMEDOUT) + if (retry -- > 0) + continue; /* try again */ + dconschat_ready(dc, 0, "write buffer failed"); + return(-1); + } + ch->pos += len; + buf += len; + blen -= len; + if (ch->pos >= ch->size) { + ch->gen = DCONS_NEXT_GEN(ch->gen); + ch->pos = 0; + if (verbose) + printf("write_dcons: gen=%d", ch->gen); + + } + } + + ptr = DCONS_MAKE_PTR(ch); + dc->port[port].iptr = ptr; + + if (verbose > 2) + printf("(iptr: 0x%x)", ptr); +again: + len = dwrite(dc, &ptr, sizeof(u_int32_t), + dc->paddr + __offsetof(struct dcons_buf, iptr[port])); + if (len < 0) { + if (errno == ETIMEDOUT) + if (retry -- > 0) + goto again; + dconschat_ready(dc, 0, "write ptr failed"); + return(-1); + } + return(0); +} + +static int +dconschat_write_socket(int fd, char *buf, int len) +{ + write(fd, buf, len); + if (verbose > 1) { + buf[len] = 0; + printf("[%s]", buf); + } + return (0); +} + +static void +dconschat_init_socket(struct dcons_state *dc, int port, char *host, int sport) +{ + struct addrinfo hints, *res; + int on = 1, error; + char service[10]; + struct kevent kev; + struct dcons_port *p; + + p = &dc->port[port]; + p->port = port; + p->infd = p->outfd = -1; + + if (sport < 0) + return; + + if (sport == 0) { + + /* Use stdin and stdout */ + p->infd = STDIN_FILENO; + p->outfd = STDOUT_FILENO; + p->s = -1; + if (tc_set == 0 && + tcgetattr(STDIN_FILENO, &dc->tsave) == 0) { + struct termios traw; + + traw = dc->tsave; + cfmakeraw(&traw); + tcsetattr(STDIN_FILENO, TCSADRAIN, &traw); + tc_set = 1; + } + EV_SET(&kev, p->infd, EVFILT_READ, EV_ADD, NOTE_LOWAT, 1, + (void *)p); + kevent(dc->kq, &kev, 1, NULL, 0, &dc->zero); + return; + } + + memset(&hints, 0, sizeof(hints)); + hints.ai_flags = AI_PASSIVE; +#if 1 /* gdb can talk v4 only */ + hints.ai_family = PF_INET; +#else + hints.ai_family = PF_UNSPEC; +#endif + hints.ai_socktype = SOCK_STREAM; + hints.ai_protocol = 0; + + if (verbose) + printf("%s:%d for port %d\n", + host == NULL ? "*" : host, sport, port); + snprintf(service, sizeof(service), "%d", sport); + error = getaddrinfo(host, service, &hints, &res); + if (error) + errx(1, "tcp/%s: %s\n", service, gai_strerror(error)); + p->res = res; + p->s = socket(res->ai_family, res->ai_socktype, res->ai_protocol); + if (p->s < 0) + err(1, "socket"); + setsockopt(p->s, SOL_SOCKET, SO_REUSEADDR, &on, sizeof(on)); + + if (bind(p->s, p->res->ai_addr, p->res->ai_addrlen) < 0) { + err(1, "bind"); + } + if (listen(p->s, 1) < 0) + err(1, "listen"); + EV_SET(&kev, p->s, EVFILT_READ, EV_ADD | EV_ONESHOT, 0, 0, (void *)p); + error = kevent(dc->kq, &kev, 1, NULL, 0, &dc->to); + if (error < 0) + err(1, "kevent"); + return; +} + +static int +dconschat_accept_socket(struct dcons_state *dc, struct dcons_port *p) +{ + int foo, ns, flags; + struct kevent kev; + + /* accept connection */ + foo = p->res->ai_addrlen; + ns = accept(p->s, p->res->ai_addr, &foo); + if (ns < 0) + err(1, "accept"); + if (verbose) + printf("port%d accepted\n", p->port); + + flags = fcntl(ns, F_GETFL, 0); + flags |= O_NDELAY; + fcntl(ns, F_SETFL, flags); +#if 1 + if (IS_CONSOLE(p) && (dc->flags & F_TELNET) != 0) { + char sga[] = {IAC, WILL, TELOPT_SGA}; + char linemode[] = {IAC, DONT, TELOPT_LINEMODE}; + char echo[] = {IAC, WILL, TELOPT_ECHO}; + char bin[] = {IAC, DO, TELOPT_BINARY}; + + write(ns, sga, sizeof(sga)); + write(ns, linemode, sizeof(linemode)); + write(ns, echo, sizeof(echo)); + write(ns, bin, sizeof(bin)); + p->skip_read = 0; + } +#endif + + p->infd = p->outfd = ns; + EV_SET(&kev, ns, EVFILT_READ, EV_ADD, NOTE_LOWAT, 1, (void *)p); + kevent(dc->kq, &kev, 1, NULL, 0, &dc->zero); + return(0); +} + +static int +dconschat_read_filter(struct dcons_state *dc, struct dcons_port *p, + u_char *sp, int slen, u_char *dp, int *dlen) +{ + static u_char abreak[3] = {13 /* CR */, 126 /* ~ */, 2 /* ^B */}; + + while (slen > 0) { + if (IS_CONSOLE(p)) { + if ((dc->flags & F_TELNET) != 0) { + /* XXX Telent workarounds */ + if (p->skip_read -- > 0) { + sp ++; + slen --; + continue; + } + if (*sp == IAC) { + if (verbose) + printf("(IAC)"); + p->skip_read = 2; + sp ++; + slen --; + continue; + } + if (*sp == 0) { + if (verbose) + printf("(0 stripped)"); + sp ++; + slen --; + continue; + } + } + switch (dc->escape_state) { + case STATE1: + if (*sp == KEY_TILDE) + dc->escape_state = STATE2; + else + dc->escape_state = STATE0; + break; + case STATE2: + dc->escape_state = STATE0; + if (*sp == '.') + dconschat_cleanup(0); + } + if (*sp == KEY_CR) + dc->escape_state = STATE1; + } else if (IS_GDB(p)) { + /* GDB: ^C -> CR+~+^B */ + if (*sp == 0x3 && (dc->flags & F_ALT_BREAK) != 0) { + bcopy(abreak, dp, 3); + dp += 3; + sp ++; + *dlen += 3; + /* discard rest of the packet */ + slen = 0; + break; + } + } + *dp++ = *sp++; + (*dlen) ++; + slen --; + } + return (*dlen); + +} + +static int +dconschat_read_socket(struct dcons_state *dc, struct dcons_port *p) +{ + struct kevent kev; + int len, wlen; + char rbuf[MAX_XFER], wbuf[MAX_XFER+2]; + + if ((len = read(p->infd, rbuf, sizeof(rbuf))) > 0) { + wlen = 0; + dconschat_read_filter(dc, p, rbuf, len, wbuf, &wlen); + /* XXX discard if not ready*/ + if (wlen > 0 && (dc->flags & F_READY) != 0) { + dconschat_write_dcons(dc, p->port, wbuf, wlen); + if (verbose > 1) { + wbuf[wlen] = 0; + printf("(%s)\n", wbuf); + } + if (verbose) { + printf("(%d)", wlen); + fflush(stdout); + } + } + } else { + if (verbose) { + if (len == 0) + warnx("port%d: closed", p->port); + else + warn("port%d: read", p->port); + } + EV_SET(&kev, p->infd, EVFILT_READ, + EV_DELETE, 0, 0, NULL); + kevent(dc->kq, &kev, 1, NULL, 0, &dc->zero); + close(p->infd); + close(p->outfd); + /* XXX exit for pipe case XXX */ + EV_SET(&kev, p->s, EVFILT_READ, + EV_ADD | EV_ONESHOT, 0, 0, (void *) p); + kevent(dc->kq, &kev, 1, NULL, 0, &dc->zero); + p->infd = p->outfd = -1; + } + return(0); +} +#define NEVENT 5 +static int +dconschat_proc_socket(struct dcons_state *dc) +{ + struct kevent elist[NEVENT], *e; + int i, n; + struct dcons_port *p; + + n = kevent(dc->kq, NULL, 0, elist, NEVENT, &dc->to); + for (i = 0; i < n; i ++) { + e = &elist[i]; + p = (struct dcons_port *)e->udata; + if (e->ident == p->s) { + dconschat_accept_socket(dc, p); + } else { + dconschat_read_socket(dc, p); + } + } + return(0); +} + +static int +dconschat_proc_dcons(struct dcons_state *dc) +{ + int port, len, err; + char buf[MAX_XFER]; + struct dcons_port *p; + + err = dconschat_get_ptr(dc); + if (err) { + /* XXX we should stop write operation too. */ + return err; + } + for (port = 0; port < DCONS_NPORT; port ++) { + p = &dc->port[port]; + if (p->infd < 0) + continue; + while ((len = dconschat_read_dcons(dc, port, buf, + sizeof(buf))) > 0) { + dconschat_write_socket(p->outfd, buf, len); + dconschat_get_ptr(dc); + } + if ((dc->flags & F_ONE_SHOT) != 0 && len <= 0) + dconschat_cleanup(0); + } + return 0; +} + +static int +dconschat_start_session(struct dcons_state *dc) +{ + int counter = 0; + + while (1) { + if ((dc->flags & F_READY) == 0 && + (++counter % (poll_hz * DCONS_POLL_OFFLINE)) == 0) + dconschat_fetch_header(dc); + if ((dc->flags & F_READY) != 0) + dconschat_proc_dcons(dc); + dconschat_proc_socket(dc); + } + return (0); +} + +static void +usage(void) +{ + fprintf(stderr, + "usage: dconschat [-brvwRT1] [-h hz] [-C port] [-G port]\n" + "\t\t\t[-M core] [-N system]\n" + "\t\t\t[-u unit] [-a address] [-t target_eui64]\n" + "\t-b translate ctrl-C to CR+~+ctrl-B on gdb port\n" + "\t-v verbose\n" + "\t-w listen on wildcard address rather than localhost\n" + "\t-r replay old buffer on connection\n" + "\t-R read-only\n" + "\t-T enable Telnet protocol workaround on console port\n" + "\t-1 one shot: read buffer and exit\n" + "\t-h polling rate\n" + "\t-C port number for console port\n" + "\t-G port number for gdb port\n" + "\t(for KVM)\n" + "\t-M core file\n" + "\t-N system file\n" + "\t(for FireWire)\n" + "\t-u specify unit number of the bus\n" + "\t-t EUI64 of target host (must be specified)\n" + "\t-a physical address of dcons buffer on target host\n" + ); + exit(0); +} +int +main(int argc, char **argv) +{ + struct dcons_state *dc; + struct fw_eui64 eui; + struct eui64 target; + char devname[256], *core = NULL, *system = NULL; + int i, ch, error; + int unit=0, wildcard=0; + int port[DCONS_NPORT]; + + bzero(&sc, sizeof(sc)); + dc = ≻ + dc->flags |= USE_CROM ? F_USE_CROM : 0; + + /* defualt ports */ + port[0] = 0; /* stdin/out for console */ + port[1] = -1; /* disable gdb port */ + + while ((ch = getopt(argc, argv, "a:bh:rt:u:vwC:G:M:N:RT1")) != -1) { + switch(ch) { + case 'a': + dc->paddr = strtoull(optarg, NULL, 0); + dc->flags &= ~F_USE_CROM; + break; + case 'b': + dc->flags |= F_ALT_BREAK; + break; + case 'h': + poll_hz = strtoul(optarg, NULL, 0); + if (poll_hz == 0) + poll_hz = DCONS_POLL_HZ; + break; + case 'r': + dc->flags |= F_REPLAY; + break; + case 't': + if (eui64_hostton(optarg, &target) != 0 && + eui64_aton(optarg, &target) != 0) + errx(1, "invalid target: %s", optarg); + eui.hi = ntohl(*(u_int32_t*)&(target.octet[0])); + eui.lo = ntohl(*(u_int32_t*)&(target.octet[4])); + dc->type = TYPE_FW; + break; + case 'u': + unit = strtol(optarg, NULL, 0); + break; + case 'v': + verbose ++; + break; + case 'w': + wildcard = 1; + break; + case 'C': + port[0] = strtol(optarg, NULL, 0); + break; + case 'G': + port[1] = strtol(optarg, NULL, 0); + break; + case 'M': + core = optarg; + break; + case 'N': + system = optarg; + break; + case 'R': + dc->flags |= F_RD_ONLY; + break; + case 'T': + dc->flags |= F_TELNET; + break; + case '1': + dc->flags |= F_ONE_SHOT | F_REPLAY; + break; + default: + usage(); + } + } + if (dc->paddr == 0 && (dc->flags & F_USE_CROM) == 0) { + warnx("no address specified"); + usage(); + } + + if (port[0] < 0 && port[1] < 0) { + warnx("no port specified"); + usage(); + } + + /* set signal handler */ + signal(SIGHUP, dconschat_cleanup); + signal(SIGINT, dconschat_cleanup); + signal(SIGPIPE, dconschat_cleanup); + signal(SIGTERM, dconschat_cleanup); + + /* init firewire */ + switch (dc->type) { + case TYPE_FW: +#define MAXDEV 10 + for (i = 0; i < MAXDEV; i ++) { + snprintf(devname, sizeof(devname), + "/dev/fwmem%d.%d", unit, i); + dc->fd = open(devname, O_RDWR); + if (dc->fd >= 0) + goto found; + } + err(1, "open"); +found: + error = ioctl(dc->fd, FW_SDEUI64, &eui); + if (error) + err(1, "ioctl"); + break; + case TYPE_KVM: + { + struct nlist nl[] = {{"dcons_buf"}, {""}}; + void *dcons_buf; + + dc->kd = kvm_open(system, core, NULL, + (dc->flags & F_RD_ONLY) ? O_RDONLY : O_RDWR, "dconschat"); + if (dc->kd == NULL) + errx(1, "kvm_open"); + + if (kvm_nlist(dc->kd, nl) < 0) + errx(1, "kvm_nlist: %s", kvm_geterr(dc->kd)); + + if (kvm_read(dc->kd, nl[0].n_value, &dcons_buf, + sizeof(void *)) < 0) + errx(1, "kvm_read: %s", kvm_geterr(dc->kd)); + dc->paddr = (uintptr_t)dcons_buf; + if (verbose) + printf("dcons_buf: 0x%x\n", (uint)dc->paddr); + break; + } + } + dconschat_fetch_header(dc); + + /* iniit sockets */ + dc->kq = kqueue(); + if (poll_hz == 1) { + dc->to.tv_sec = 1; + dc->to.tv_nsec = 0; + } else { + dc->to.tv_sec = 0; + dc->to.tv_nsec = 1000 * 1000 * 1000 / poll_hz; + } + dc->zero.tv_sec = 0; + dc->zero.tv_nsec = 0; + for (i = 0; i < DCONS_NPORT; i++) + dconschat_init_socket(dc, i, + wildcard ? NULL : "localhost", port[i]); + + dconschat_start_session(dc); + + for (i = 0; i < DCONS_NPORT; i++) { + freeaddrinfo(dc->port[i].res); + } + return (0); +} -- 2.41.0