/*

* main.c main loop of emulator.

*

* This file is part of the minicom communications package,

* Copyright 1991-1995 Miquel van Smoorenburg.

*

* This program is free software; you can redistribute it and/or

* modify it under the terms of the GNU General Public License

* as published by the Free Software Foundation; either version

* 2 of the License, or (at your option) any later version.

*

* You should have received a copy of the GNU General Public License along

* with this program; if not, write to the Free Software Foundation, Inc.,

* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

*

* fmg 1/11/94 color mods

* jl 22.06.97 log it when DCD drops

* jl 02.06.98 added call duration to the "Gone offline" log line

* jl 14.06.99 moved lockfile creation to before serial port opening

*

*/

#ifdef HAVE_CONFIG_H

#include <config.h>

#endif

#include "port.h"

#include "minicom.h"

#include "intl.h"

#include "sysdep.h"

#ifdef HAVE_ERRNO_H

#include <errno.h>

#endif

#include <stdbool.h>

#ifdef SVR4_LOCKS

#include <sys/types.h>

#include <sys/stat.h>

#include <sys/mkdev.h>

#endif /* SVR4_LOCKS */

static jmp_buf albuf;

/* Compile SCCS ID into executable. */

const char *Version = VERSION;

/*

* Find out name to use for lockfile when locking tty.

*/

static char *mbasename(char *s, char *res, int reslen)

{

char *p;

if (strncmp(s, "/dev/", 5) == 0) {

/* In /dev */

strncpy(res, s + 5, reslen - 1);

res[reslen-1] = 0;

for (p = res; *p; p++)

if (*p == '/')

*p = '_';

} else {

/* Outside of /dev. Do something sensible. */

if ((p = strrchr(s, '/')) == NULL)

p = s;

else

p++;

strncpy(res, p, reslen - 1);

res[reslen-1] = 0;

}

return res;

}

/*

* Leave.

*/

void leave(const char *s)

{

if (stdwin)

mc_wclose(stdwin, 1);

if (portfd > 0) {

m_restorestate(portfd);

close(portfd);

}

lockfile_remove();

if (P_CALLIN[0])

fastsystem(P_CALLIN, NULL, NULL, NULL);

fprintf(stderr, "%s", s);

exit(1);

}

/*

* Return text describing command-key.

*/

char *esc_key(void)

{

static char buf[16];

if (!alt_override && P_ESCAPE[0] == '^' && P_ESCAPE[1] != '[') {

sprintf(buf, "CTRL-%c ", P_ESCAPE[1]);

return buf;

}

#if defined(i386) || defined(__i386__)

sprintf(buf, "ESC,");

#else

sprintf(buf, "Meta-");

#endif

return buf;

}

static void get_alrm(int dummy)

{

(void)dummy;

errno = ETIMEDOUT;

longjmp(albuf, 1);

}

#ifdef USE_SOCKET

/*

* If portfd is a socket, we try to (re)connect

*/

void term_socket_connect(void)

{

if (!portfd_is_socket || portfd_is_connected)

return;

if ((portfd = socket(AF_UNIX, SOCK_STREAM, 0)) == -1)

return;

if (connect(portfd, (struct sockaddr *)&portfd_sock_addr,

sizeof(portfd_sock_addr)) == -1)

term_socket_close();

else

portfd_is_connected = 1;

}

/*

* Close the connection if the socket delivers "eof" (read returns 0)

*/

void term_socket_close(void)

{

close(portfd);

portfd_is_connected = 0;

portfd = -1;

}

#endif /* USE_SOCKET */

/*

* Open the terminal.

*

* \return -1 on error, 0 on success

*/

int open_term(int doinit, int show_win_on_error, int no_msgs)

{

struct stat stt;

union {

char bytes[128];

int kermit;

} buf;

int fd, n = 0;

int pid;

#ifdef HAVE_ERRNO_H

int s_errno;

#endif

#ifdef USE_SOCKET

#define SOCKET_PREFIX "unix#"

portfd_is_socket = portfd_is_connected = 0;

if (strncmp(dial_tty, SOCKET_PREFIX, strlen(SOCKET_PREFIX)) == 0) {

portfd_is_socket = 1;

}

#endif

if (portfd_is_socket)

goto nolock;

#if !HAVE_LOCKDEV

/* First see if the lock file directory is present. */

if (P_LOCK[0] && stat(P_LOCK, &stt) == 0) {

#ifdef SVR4_LOCKS

stat(dial_tty, &stt);

sprintf(lockfile, "%s/LK.%03d.%03d.%03d",

P_LOCK, major(stt.st_dev),

major(stt.st_rdev), minor(stt.st_rdev));

#else /* SVR4_LOCKS */

snprintf(lockfile, sizeof(lockfile),

"%s/LCK..%s",

P_LOCK, mbasename(dial_tty, buf.bytes, sizeof(buf.bytes)));

#endif /* SVR4_LOCKS */

}

else

lockfile[0] = 0;

if (doinit > 0 && lockfile[0] && (fd = open(lockfile, O_RDONLY)) >= 0) {

n = read(fd, buf.bytes, 127);

close(fd);

if (n > 0) {

pid = -1;

if (n == 4)

/* Kermit-style lockfile. */

pid = buf.kermit;

else {

/* Ascii lockfile. */

buf.bytes[n] = 0;

sscanf(buf.bytes, "%d", &pid);

}

if (pid > 0 && kill((pid_t)pid, 0) < 0 &&

errno == ESRCH) {

fprintf(stderr, _("Lockfile is stale. Overriding it..\n"));

sleep(1);

unlink(lockfile);

} else

n = 0;

}

if (n == 0) {

if (stdwin)

mc_wclose(stdwin, 1);

fprintf(stderr, _("Device %s is locked.\n"), dial_tty);

return -1;

}

}

#endif

if (doinit > 0 && lockfile_create() != 0)

return -1;

nolock:

/* Run a special program to disable callin if needed. */

if (doinit > 0 && P_CALLOUT[0]) {

if (fastsystem(P_CALLOUT, NULL, NULL, NULL) < 0) {

if (stdwin)

mc_wclose(stdwin, 1);

fprintf(stderr, _("Could not setup for dial out.\n"));

lockfile_remove();

return -1;

}

}

/* Now open the tty device. */

if (setjmp(albuf) == 0) {

portfd = -1;

signal(SIGALRM, get_alrm);

alarm(20);

#ifdef USE_SOCKET

if (portfd_is_socket) {

portfd_sock_addr.sun_family = AF_UNIX;

strncpy(portfd_sock_addr.sun_path,

dial_tty + strlen(SOCKET_PREFIX),

sizeof(portfd_sock_addr.sun_path)-1);

portfd_sock_addr.sun_path[sizeof(portfd_sock_addr.sun_path)-1] = 0;

term_socket_connect();

}

#endif /* USE_SOCKET */

if (!portfd_is_socket) {

#if defined(O_NDELAY) && defined(F_SETFL)

portfd = open(dial_tty, O_RDWR|O_NDELAY|O_NOCTTY);

if (portfd >= 0) {

/* Cancel the O_NDELAY flag. */

n = fcntl(portfd, F_GETFL, 0);

fcntl(portfd, F_SETFL, n & ~O_NDELAY);

}

#else

if (portfd < 0)

portfd = open(dial_tty, O_RDWR|O_NOCTTY);

#endif

}

if (portfd >= 0) {

if (doinit > 0)

m_savestate(portfd);

port_init();

}

}

#ifdef HAVE_ERRNO_H

s_errno = errno;

#endif

alarm(0);

signal(SIGALRM, SIG_IGN);

if (portfd < 0 && !portfd_is_socket) {

if (!no_msgs) {

if (doinit > 0) {

if (stdwin)

mc_wclose(stdwin, 1);

#ifdef HAVE_ERRNO_H

fprintf(stderr, _("minicom: cannot open %s: %s\n"),

dial_tty, strerror(s_errno));

#else

fprintf(stderr, _("minicom: cannot open %s. Sorry.\n"), dial_tty);

#endif

lockfile_remove();

return -1;

}

if (show_win_on_error)

werror(_("Cannot open %s!"), dial_tty);

}

lockfile_remove();

return -1;

}

/* Set CLOCAL mode */

m_nohang(portfd);

/* Set Hangup on Close if program crashes. (Hehe) */

m_hupcl(portfd, 1);

if (doinit > 0)

m_flush(portfd);

return 0;

}

/* Function to write output. */

static void do_output(const char *s, int len)

{

char buf[256];

if (len == 0)

len = strlen(s);

if (P_PARITY[0] == 'M') {

int f;

for (f = 0; f < len && f < (int)sizeof(buf); f++)

buf[f] = *s++ | 0x80;

len = f;

s = buf;

}

int r;

int b = vt_ch_delay ? 1 : len;

while (len && (r = write(portfd, s, b)) >= 0)

{

s += r;

len -= r;

if (vt_ch_delay)

usleep(vt_ch_delay * 1000);

else

b = len;

}

}

/* Function to handle keypad mode switches. */

static void kb_handler(int a, int b)

{

cursormode = b;

keypadmode = a;

curs_status();

}

/*

* Initialize screen and status line.

*/

void init_emul(int type, int do_init)

{

int x = -1, y = -1;

char attr = 0;

int maxy;

int ypos;

if (st) {

mc_wclose(st, 1);

tempst = 0;

st = NULL;

}

if (us) {

x = us->curx;

y = us->cury;

attr = us->attr;

mc_wclose(us, 0);

}

/* See if we have space for a fixed status line */

maxy = LINES - 1;

if ((use_status || LINES > 24) &&

P_STATLINE[0] == 'e') {

if (use_status) {

ypos = LINES;

maxy = LINES - 1;

} else {

ypos = LINES - 1;

maxy = LINES - 2;

}

st = mc_wopen(0, ypos, COLS - 1, ypos, BNONE,

st_attr, sfcolor, sbcolor, 1, 0, 1);

mc_wredraw(st, 1);

}

/* MARK updated 02/17/95 - Customizable size for history buffer */

num_hist_lines = atoi(P_HISTSIZE);

if (num_hist_lines < 0)

num_hist_lines = 0;

if (num_hist_lines > 5000)

num_hist_lines = 5000;

/* Open a new main window, and define the configured history buffer size. */

us = mc_wopen(0, 0, COLS - 1, maxy,

BNONE, XA_NORMAL, tfcolor, tbcolor, 1, num_hist_lines, 0);

if (x >= 0) {

mc_wlocate(us, x, y);

mc_wsetattr(us, attr);

}

us->autocr = 0;

us->wrap = wrapln;

terminal = type;

lines = LINES - (st != NULL);

cols = COLS;

/* Install and reset the terminal emulator. */

if (do_init) {

vt_install(do_output, kb_handler, us);

vt_init(type, tfcolor, tbcolor, us->wrap, addlf, addcr);

} else

vt_pinit(us, -1, -1);

if (st)

show_status();

}

/*

* Locate the cursor at the correct position in

* the user screen.

*/

static void ret_csr(void)

{

mc_wlocate(us, us->curx, us->cury);

mc_wflush();

}

/*

* Show baudrate, parity etc.

*/

void mode_status(void)

{

if (st) { /* if swich off status line - NOT print !!! ([email protected]) */

mc_wlocate(st, 20, 0);

if (portfd_is_socket) {

mc_wprintf(st, "unix-socket");

} else {

if (P_SHOWSPD[0] == 'l')

mc_wprintf(st, "%6ld %s%s%s", linespd, P_BITS, P_PARITY, P_STOPB);

else

mc_wprintf(st, "%6.6s %s%s%s", P_BAUDRATE, P_BITS, P_PARITY, P_STOPB);

}

ret_csr();

}

}

/*

* Show offline or online time.

* If real dcd is not supported, Online and Offline will be

* shown in capitals.

*/

void time_status(bool time_update_only)

{

if (!st)

return;

if (time_update_only && disable_online_time)

return;

mc_wlocate(st, 63, 0);

if (disable_online_time)

{

char b[20];

mc_wprintf(st, " %s", mbasename(P_PORT, b, sizeof(b)));

}

else

{

if (online < 0)

mc_wprintf(st, " %12.12s ", P_HASDCD[0] == 'Y' ? _("Offline") : _("OFFLINE"));

else

mc_wprintf(st, " %s %02ld:%02ld", P_HASDCD[0] == 'Y' ? _("Online") : _("ONLINE"),

online / 3600, (online / 60) % 60);

}

ret_csr();

}

/*

* Show in which mode the cursor keys are (normal or application)

*/

void curs_status(void)

{

if (!st)

return;

mc_wlocate(st, 33, 0);

mc_wprintf(st, cursormode == NORMAL ? "NOR" : "APP");

ret_csr();

}

static char status_message[80];

static int status_display_msg_until;

static int status_message_showing;

void status_set_display(const char *text, int duration_s)

{

time_t t;

unsigned l;

strncpy(status_message, text, sizeof(status_message));

status_message[sizeof(status_message) - 1] = 0;

l = strlen(status_message);

for (; l < sizeof(status_message) - 1; ++l)

status_message[l] = ' ';

if (duration_s == 0)

duration_s = 2;

time(&t);

status_display_msg_until = duration_s + t;

status_message_showing = 1;

}

static void status_display_message(void)

{

if (!st)

return;

mc_wlocate(st, 0, 0);

mc_wprintf(st, " %s", status_message);

ret_csr();

}

time_t old_online = -2;

/*

* Update the online time.

*/

static void update_status_time(void)

{

time_t now;

time(&now);

if (status_message_showing) {

if (now > status_display_msg_until) {

/* time over for status message, restore standard status line */

status_message_showing = 0;

if (st)

show_status();

} else

status_display_message();

}

if (old_online == online || online <= (old_online + 59))

return;

if (P_LOGCONN[0] == 'Y' && old_online >= 0 && online < 0)

do_log(_("Gone offline (%ld:%02ld:%02ld)"),

old_online / 3600, (old_online / 60) % 60, old_online % 60);

old_online = online;

if (!status_message_showing)

time_status(true);

mc_wflush();

}

/**

* Get status of device. It might happen that the device disappears (e.g.

* due to a USB-serial unplug).

*

* \return 1 if device seems ok, 0 if it seems not available

*/

static int get_device_status(int fd)

{

struct termios t;

if (fd < 0)

return 0;

if (portfd_is_socket && portfd_is_connected)

return 1;

return !tcgetattr(fd, &t);

}

/* Update the timer display. This can also be called from updown.c */

void timer_update(void)

{

static time_t t1, start;

int dcd_support = P_HASDCD[0] == 'Y';

/* See if we're online. */

if ((!dcd_support && bogus_dcd)

|| (dcd_support && m_getdcd(portfd) == 1)) {

/* We are online at the moment. */

if (online < 0) {

/* This was a transition from off to online */

time(&start);

t1 = start;

online = 0;

#ifdef _DCDFLOW

/* DCD has gotten high, we can turn on hw flow control */

if (P_HASRTS[0] == 'Y')

m_sethwf(portfd, 1);

#endif

}

} else {

/* We are offline at the moment. */

#ifdef _DCDFLOW

if (online >= 0) {

/* DCD has dropped, turn off hw flow control. */

m_sethwf(portfd, 0);

}

#endif

if (online >= 0 && old_online >= 0) {

/* First update the timer for call duration.. */

time(&t1);

online = t1 - start;

}

/* ..and THEN notify that we are now offline */

online = -1;

}

/* Update online time */

if (online >= 0) {

time(&t1);

online = t1 - start;

}

update_status_time();

}

/*

* Show the status line

*/

void show_status(void)

{

st->direct = 0;

mc_wlocate(st, 0, 0);

mc_wprintf(st,

_(" %7.7sZ for help | | | Minicom %-6.6s | | "),

esc_key(), VERSION);

mode_status();

time_status(false);

curs_status();

mc_wlocate(st, 56, 0);

switch(terminal) {

case VT100:

mc_wputs(st, "VT102");

break;

case ANSI:

mc_wputs(st, "ANSI");

break;

}

mc_wredraw(st, 1);

ret_csr();

}

/*

* Show the name of the script running now.

*/

void scriptname(const char *s)

{

if (st == NULL)

return;

mc_wlocate(st, 39, 0);

if (*s == 0)

mc_wprintf(st, "Minicom %-6.6s", VERSION);

else

mc_wprintf(st, "script %-7.7s", s);

ret_csr();

}

/*

* Show status line temporarily

*/

static void showtemp(void)

{

if (st)

return;

st = mc_wopen(0, LINES - 1, COLS - 1, LINES - 1,

BNONE, st_attr, sfcolor, sbcolor, 1, 0, 1);

show_status();

tempst = 1;

}

/*

* The main terminal loop:

* - If there are characters received send them

* to the screen via the appropriate translate function.

*/

int do_terminal(void)

{

char buf[128];

int buf_offset = 0;

int c;

int x;

int blen;

int zauto = 0;

static const char zsig[] = "**\030B00";

int zpos = 0;

const char *s;

dirflush = 0;

WIN *error_on_open_window = NULL;

dirty_goto:

/* Show off or online time */

update_status_time();

/* If the status line was shown temporarily, delete it again. */

if (tempst) {

tempst = 0;

mc_wclose(st, 1);

st = NULL;

}

/* Auto Zmodem? */

if (P_PAUTO[0] >= 'A' && P_PAUTO[0] <= 'Z')

zauto = P_PAUTO[0];

/* Set the terminal modes */

setcbreak(2); /* Raw, no echo */

keyboard(KSTART, 0);

/* Main loop */

while (1) {

/* See if window size changed */

if (size_changed) {

size_changed = 0;

wrapln = us->wrap;

/* I got the resize code going again! Yeah! */

mc_wclose(us, 0);

us = NULL;

if (st)

mc_wclose(st, 0);

st = NULL;

mc_wclose(stdwin, 0);

if (win_init(tfcolor, tbcolor, XA_NORMAL) < 0)

leave(_("Could not re-initialize window system."));

/* Set the terminal modes */

setcbreak(2); /* Raw, no echo */

init_emul(terminal, 0);

}

/* Update the timer. */

timer_update();

/* check if device is ok, if not, try to open it */

if (!get_device_status(portfd_connected)) {

/* Ok, it's gone, most probably someone unplugged the USB-serial, we

* need to free the FD so that a replug can get the same device

* filename, open it again and be back */

int reopen = portfd == -1;

close(portfd);

lockfile_remove();

portfd = -1;

if (open_term(reopen, reopen, 1) < 0) {

if (!error_on_open_window)

error_on_open_window = mc_tell(_("Cannot open %s!"), dial_tty);

} else {

if (error_on_open_window) {

mc_wclose(error_on_open_window, 1);

error_on_open_window = NULL;

}

}

}

/* Check for I/O or timer. */

x = check_io(portfd_connected, 0, 1000,

buf + buf_offset, sizeof(buf) - buf_offset, &blen);

blen += buf_offset;

buf_offset = 0;

/* Data from the modem to the screen. */

if ((x & 1) == 1) {

char obuf[sizeof(buf)];

char *ptr;

if (using_iconv()) {

char *otmp = obuf;

size_t output_len = sizeof(obuf);

size_t input_len = blen;

ptr = buf;

do_iconv(&ptr, &input_len, &otmp, &output_len);

// something happened at all?

if (output_len < sizeof(obuf))

{

if (input_len)

{ // something remained, we need to adapt buf accordingly

memmove(buf, ptr, input_len);

buf_offset = input_len;

}

blen = sizeof(obuf) - output_len;

ptr = obuf;

}

else

ptr = buf;

} else {

ptr = buf;

}

while (blen-- > 0) {

/* Auto zmodem detect */

if (zauto) {

if (zsig[zpos] == *ptr)

zpos++;

else

zpos = 0;

}

if (P_PARITY[0] == 'M' || P_PARITY[0] == 'S')

*ptr &= 0x7f;

if (display_hex) {

unsigned char c = *ptr++;

unsigned char u = c >> 4;

c &= 0xf;

vt_out(u > 9 ? 'a' + (u - 10) : '0' + u);

vt_out(c > 9 ? 'a' + (c - 10) : '0' + c);

vt_out(' ');

} else

vt_out(*ptr++);

if (zauto && zsig[zpos] == 0) {

dirflush = 1;

keyboard(KSTOP, 0);

updown('D', zauto - 'A');

dirflush = 0;

zpos = 0;

blen = 0;

goto dirty_goto;

}

}

mc_wflush();

}

/* Read from the keyboard and send to modem. */

if ((x & 2) == 2) {

/* See which key was pressed. */

c = keyboard(KGETKEY, 0);

if (c == EOF)

return EOF;

if (c < 0) /* XXX - shouldn't happen */

c += 256;

/* Was this a command key? */

if ((escape == 128 && c > 224 && c < 252) ||

(escape != 27 && c == escape) ||

(c > K_META)) {

/* Stop keyserv process if we have it. */

keyboard(KSTOP, 0);

/* Show status line temporarily */

showtemp();

if (c == escape) /* CTRL A */

c = keyboard(KGETKEY, 0);

/* Restore keyboard modes */

setcbreak(1); /* Cbreak, no echo */

if (c > K_META)

c -= K_META;

if (c > 128)

c -= 128;

if (c > ' ') {

dirflush = 1;

m_flush(0);

return c;

}

/* CTRLA - CTRLA means send one CTRLA */

#if 0

write(portfd, &c, 1);

#else

vt_send(c);

#endif

goto dirty_goto;

}

/* No, just a key to be sent. */

if (c >= K_F1 && c <= K_F10 && P_MACENAB[0] == 'Y') {

s = "";

switch(c) {

case K_F1: s = P_MAC1; break;

case K_F2: s = P_MAC2; break;

case K_F3: s = P_MAC3; break;

case K_F4: s = P_MAC4; break;

case K_F5: s = P_MAC5; break;

case K_F6: s = P_MAC6; break;

case K_F7: s = P_MAC7; break;

case K_F8: s = P_MAC8; break;

case K_F9: s = P_MAC9; break;

case K_F10: s = P_MAC10; break;

}

if (*s)

mputs(s, 1);

else

vt_send(c);

} else

vt_send(c);

}

}

}