Attachment #13358 for bug #46359

View | Details | Raw Unified | Return to bug 46359
Collapse All | Expand All

Lines 727-734 Link Here

(-)screen.orig/ansi.c (-3 / +3 lines)
727	break;	727	break;
728	}	728	}
729	# ifdef DW_CHARS	729	# ifdef DW_CHARS
730	if (curr->w_encoding == UTF8 && utf8_isdouble(c))	730	if (curr->w_encoding == UTF8 && utf8_isdouble(c))
731	curr->w_mbcs = 0xff;	731	curr->w_mbcs = 0xff;
732	# endif	732	# endif
733	font = curr->w_rend.font;	733	font = curr->w_rend.font;
734	# endif	734	# endif
Lines 3027-3033 Link Here
3027	WMsg(p, err, str)	3027	WMsg(p, err, str)
3028	struct win *p;	3028	struct win *p;
3029	int err;	3029	int err;
3030	const char *str;	3030	char *str;
3031	{	3031	{
3032	extern struct layer *flayer;	3032	extern struct layer *flayer;
3033	struct layer *oldflayer = flayer;	3033	struct layer *oldflayer = flayer;




#include <sys/ioctl.h>
#include <fcntl.h>
#include <signal.h>
#include <syslog.h>
#include "screen.h"
#include "extern.h"

#ifdef USE_PAM
#include <security/pam_userpass.h>
#endif

#include <pwd.h>

static int WriteMessage __P((int, struct msg *));

#endif
static sigret_t AttachSigCont __P(SIGPROTOARG);

extern int real_uid, real_gid, eff_uid, eff_gid;
extern int ServerSocket;
extern struct display *displays;
extern char *SockName, *SockMatch, SockPath[];

/* ADDED by Rainer Pruy 10/15/87 */
/* POLISHED by mls. 03/10/91 */

static char LockEnd[] = "Welcome back to screen !!\n";

static sigret_t
LockHup SIGDEFARG

    {
      signal(SIGCHLD, SIG_DFL);
      debug1("lockterminal: '%s' seems executable, execl it!\n", prg);
      fflush(NULL);
      if ((pid = fork()) == 0)
        {
          /* Child */


#ifdef USE_PAM

#if 0
/*
 *  PAM support by Pablo Averbuj <pablo@averbuj.com>
 */

    &PAM_conv,
    NULL
};
#endif


static struct pam_conv conv = {
    &pam_userpass_conv,
    &userpass
};
#endif

/* -- original copyright by Luigi Cannelloni 1985 (luigi@faui70.UUCP) -- */

{
  char fullname[100], *cp1, message[100 + 100];
#ifdef USE_PAM
  pam_handle_t *pamh = 0;
  int pam_error;
  char *tty_name;
  char *pass, mypass[16 + 1], salt[3];
#endif
  char *pass = 0, mypass[16 + 1], salt[3];
  int using_pam = 1;

      if (using_pam)
        {
#ifdef USE_PAM
      PAM_conversation.appdata_ptr = cp1;
      pam_error = pam_start("screen", ppp->pw_name, &PAM_conversation, &pamh);
      if (pam_error != PAM_SUCCESS)
	AttacherFinit(SIGARG);		/* goodbye */
      status = pam_start("screen", ppp->pw_name, &conv, &pamh);

      if (status == PAM_SUCCESS)
	{
	  /* Let the PAM modules make use of our SGID privileges. */
	  xsetegid(init_eff_gid);
	  if ((status = pam_authenticate(pamh, 0)) != PAM_SUCCESS)
            {
	       xsetegid(real_gid);
	       pam_end(pamh, status);
	       continue;
	    }
	  xsetegid(real_gid);

      if (strncmp(attach_tty, "/dev/", 5) == 0)
	tty_name = attach_tty + 5;
      else
	tty_name = attach_tty;
      pam_error = pam_set_item(pamh, PAM_TTY, tty_name);
      if (pam_error != PAM_SUCCESS)
	AttacherFinit(SIGARG);		/* goodbye */

      pam_error = pam_authenticate(pamh, 0);
      pam_end(pamh, pam_error);
      PAM_conversation.appdata_ptr = 0;
      if (pam_error == PAM_SUCCESS)
	break;
#endif
        }

Lines 1-2 Link Here

(-)screen.orig/autogen.sh (-1 / +1 lines)
1	#!/bin/sh	1	#!/bin/sh
2	exec autoreconf	2	autoreconf -i




 *                Bill Barry         barryb@dots.physics.orst.edu
 *
 * Copyright (c) 1995 by Science Access Project, Oregon State University.
 *
 *
 * 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

extern struct display *display;

struct key2rc {
	int key;
	int nr;
	char *arg1;
	char *arg2;
};

static int  tsi_ctype = 1;       /* cursor type, 0,1,2 */

static int  tsi_line_type; /* indicates number of cells on powerbraille
                              display 01=20 cells 02=40 cells 03=80 cells */
static int tsi_line_type; /* indicates number of cells on powerbraille
                          display 01=20 cells 02=40 cells 03=80 cells */

static int  display_status_tsi __P((void));
static int  write_line_tsi __P((char*, int, int));
static void buttonpress_tsi __P((structkey2rc*));
static void buttonpress_navigator_40 __P((void));
static void buttonpress_powerbraille_40 __P((void));
static void buttonpress_powerbraille_80 __P((void));

int
bd_init_powerbraille_40()
{
	bd.write_line_braille = write_line_tsi;
	bd.buttonpress = buttonpress_powerbraille_40;
	bd.bd_response_test = display_status_tsi;
	bd.bd_ncells = 40;
	tsi_line_type = 2;
	return 0;
}

int
bd_init_powerbraille_80()
{
	bd.write_line_braille = write_line_tsi;
	bd.buttonpress = buttonpress_powerbraille_80;
	bd.bd_response_test = display_status_tsi;
	bd.bd_ncells = 80;
	tsi_line_type = 3;
	return 0;
}

int
bd_init_navigator_40()
{
	bd.write_line_braille = write_line_tsi;
	bd.buttonpress = buttonpress_navigator_40;
	bd.bd_response_test = display_status_tsi;
	bd.bd_ncells = 40;
	tsi_line_type = 2;
	return 0;
}

static int
display_status_tsi()
{
	char obuf[3], ibuf[20];
	int r;

	obuf[0] = 0xff;
	obuf[1] = 0xff;
	obuf[2] = 0x0a;
	r = read(bd.bd_fd, ibuf, 20);		/* flush the input port */
	r = write(bd.bd_fd, obuf, 3);
	if (r != 3)
		return -1;

  /* we have written to the display asking for a response
     we wait 1 second for the response, read it and if no
     response we wait 2 seconds, if still no response,
     return -1 to indicate no braille  display available */

	sleep(1);
	r = read(bd.bd_fd, ibuf, 2);
	if (r == -1) {
		sleep(2);
		r = read(bd.bd_fd, ibuf, 2);
	}

	debug2("first chars from braille display %d %d\n", ibuf[0], ibuf[1]);
	if (r != 2 || ibuf[0] != 0 || ibuf[1] != 5)
		return -1;

	r = read(bd.bd_fd, ibuf, 2);
	if (r != 2)
		return -1;

	debug2("braille display size:%d dots:%d\n", ibuf[0], ibuf[1]);
	bd.bd_ncells = (unsigned char)ibuf[0];
	if (bd.bd_ncells <= 1)
		return -1;

	r = read(bd.bd_fd, ibuf, 1);
	if (r != 1)
		return -1;

	if (ibuf[0] == 'V')
		r = read(bd.bd_fd, ibuf, 3);
	else
		r = read(bd.bd_fd, ibuf + 1, 2) + 1;

	if (r != 3)
		return -1;

	ibuf[3] = 0;
	debug1("braille display version %s\n", ibuf);
	bd.bd_version = atof(ibuf);
	return 0;
}
		

static int
write_line_tsi(char *bstr, int line_length, int cursor_pos)
char *bstr;
int line_length, cursor_pos; 
{
	int obp, i;
	bd.bd_obuf[0] = 0xff;
	bd.bd_obuf[1] = 0xff;
	bd.bd_obuf[2] = tsi_line_type;
	bd.bd_obuf[3] = 0x07;
	bd.bd_obuf[4] = cursor_pos;
	bd.bd_obuf[5] = tsi_ctype;
	obp = 6;

	for (i = 0; i < line_length; i++) {
		bd.bd_obuf[2*i + obp] = 0;
		bd.bd_obuf[2*i + 1 + obp] = bd.bd_btable[(int)(unsigned char)bstr[i]];
	}
	for (i = line_length; i < bd.bd_ncells; i++) {
		bd.bd_obuf[2*i + obp] = 0;
		bd.bd_obuf[2*i + 1 + obp] = bd.bd_btable[(int)' '];
	}
      bd.bd_obuf[2*i+1+obp] = bd.bd_btable[(int)' '];
    }      

	bd.bd_obuflen = 2*bd.bd_ncells + obp;
	return 0;
}

static struct key2rc keys_navigator_40[] = {
	{0x4000000,     RC_STUFF,          "-k", "kl"}, /* 1 */
	{0x10000000,    RC_STUFF,          "-k", "kr"}, /* 3 */
	{0x8000000,     RC_STUFF,          "-k", "ku"}, /* 2 */
	{0x20000000,    RC_STUFF,          "-k", "kd"}, /* 4 */
	{0x2000,        RC_BD_BC_LEFT,     0,       0}, /* 6 */
	{0x8000,        RC_BD_BC_RIGHT,    0,       0}, /* 8 */
	{0x4000,        RC_BD_BC_UP,       0,       0}, /* 7 */
	{0x10000,       RC_BD_BC_DOWN,     0,       0}, /* 9 */
	{0x6000,        RC_BD_UPPER_LEFT,  0,       0}, /* 6, 7 */
	{0xc000,        RC_BD_UPPER_RIGHT, 0,       0}, /* 7, 8 */
	{0x12000,       RC_BD_LOWER_LEFT,  0,       0}, /* 6, 9 */
	{0x18000,       RC_BD_LOWER_RIGHT, 0,       0}, /* 8, 9 */
	{0xa000,        RC_BD_INFO,        "1032",  0}, /* bc 6, 8 */
	{0x14000000,    RC_BD_INFO,        "2301",  0}, /* sc 1, 3 */
	{0x4008000,     RC_BD_INFO,        "3330",  0}, /* bc+sc 1, 8 */
	{0x8010000,     RC_BD_BELL,        0,       0}, /* 2, 9 */
	{0x8004000,     RC_BD_EIGHTDOT,    0,       0}, /* 2, 7 */
	{0x40000000,    RC_STUFF,          "\015",  0}, /* 5 */
	{0x20000,       RC_BD_LINK,        0,       0}, /* 10 */
	{0x10002000,    RC_BD_SCROLL,      0,       0}, /* 3, 6 */
	{0x20010000,    RC_BD_NCRC,        "+",     0}, /* 4, 9 */
	{0x14000,       RC_BD_SKIP,        0,       0}, /* 7, 9*/
	{-1,            RC_ILLEGAL,        0,       0}
};

static struct key2rc keys_powerbraille_40[] = {
	{0x4000000,     RC_STUFF,          "-k", "kl"}, /* 1 */
	{0x10000000,    RC_STUFF,          "-k", "kr"}, /* 3 */
	{0x8000000,     RC_STUFF,          "-k", "ku"}, /* 2 */
	{0x20000000,    RC_STUFF,          "-k", "kd"}, /* 4 */
	{0x2000,        RC_BD_BC_LEFT,     0,       0}, /* 6 */
	{0x8000,        RC_BD_BC_RIGHT,    0,       0}, /* 8 */
	{0x4000,        RC_BD_BC_UP,       0,       0}, /* 7 */
	{0x10000,       RC_BD_BC_DOWN,     0,       0}, /* 9 */
	{0x8002000,     RC_BD_UPPER_LEFT,  0,       0}, /* 2, 6 */
	{0xc000,        RC_BD_UPPER_RIGHT, 0,       0}, /* 7, 8 */
	{0x20002000,    RC_BD_LOWER_LEFT,  0,       0}, /* 3, 6 */
	{0x18000,       RC_BD_LOWER_RIGHT, 0,       0}, /* 8, 9 */
	{0x8008000,     RC_BD_INFO,        "1032",  0}, /* bc 2, 8 */
	{0x6000,        RC_BD_INFO,        "2301",  0}, /* 6, 7 */
	{0x8004000,     RC_BD_INFO,        "3330",  0}, /* bc+sc 2, 7 */
	{0x8010000,     RC_BD_BELL,        0,       0}, /* 2, 9 */
	{0x20008000,    RC_BD_EIGHTDOT,    0,       0}, /* 4, 6 */
	{0x40000000,    RC_STUFF,          "\015",  0}, /* 5 */
	{0x20000,       RC_BD_LINK,        0,       0}, /* 10 */
	{0xa000,        RC_BD_SCROLL,      0,       0}, /* 6, 8 */
	{0x20010000,    RC_BD_NCRC,        "+",     0}, /* 4, 9 */
	{0x20004000,    RC_BD_SKIP,        0,       0}, /* 4, 7 */
	{-1,            RC_ILLEGAL,        0,       0}
};


static struct key2rc keys_powerbraille_80[] = {
	{0x4000000,     RC_STUFF,          "-k", "kl"}, /* 1 */
	{0x10000000,    RC_STUFF,          "-k", "kr"}, /* 3 */
	{0x8000000,     RC_STUFF,          "-k", "ku"}, /* 2 */
	{0x20000000,    RC_STUFF,          "-k", "kd"}, /* 4 */
	{0x40000,       RC_BD_BC_LEFT,     0,       0}, /* 6 */
	{0x100000,      RC_BD_BC_RIGHT,    0,       0}, /* 8 */
	{0x4000,        RC_BD_BC_UP,       0,       0}, /* 7 */
	{0x10000,       RC_BD_BC_DOWN,     0,       0}, /* 9 */
	{0x44000,       RC_BD_UPPER_LEFT,  0,       0}, /* 6, 7 */
	{0x104000,      RC_BD_UPPER_RIGHT, 0,       0}, /* 7, 8 */
	{0x50000,       RC_BD_LOWER_LEFT,  0,       0}, /* 6, 9 */
	{0x110000,      RC_BD_LOWER_RIGHT, 0,       0}, /* 8, 9 */
	{0x8100000,     RC_BD_INFO,        "1032",  0}, /* 2, 8 */
	{0x8040000,     RC_BD_INFO,        "2301",  0}, /* 2, 6 */
	{0x140000,      RC_BD_INFO,        "3330",  0}, /* 6, 8 */
	{0x8010000,     RC_BD_BELL,        0,       0}, /* 2, 9 */
	{0x8004000,     RC_BD_EIGHTDOT,    0,       0}, /* 2, 7 */
	{0x40000000,    RC_STUFF,          "\015",  0}, /* 5 */
	{0x20000,       RC_BD_LINK,        0,       0}, /* 10 */
	{0x20004000,    RC_BD_SCROLL,      0,       0}, /* 4, 7 */
	{0x20010000,    RC_BD_NCRC,        "+",     0}, /* 4, 9 */
	{0x40010000,    RC_BD_SKIP,        0,       0}, /* 5, 9 */
	{-1,            RC_ILLEGAL,        0,       0}
};

static void
buttonpress_tsi(struct key2rc *tab)
struct key2rc *tab;
{
	int i, nb;
	int bkeys;
	unsigned char buf[10];
	nb = read(bd.bd_fd, buf, 10);
	debug1("buttonpress_tsi: read %d bytes\n", nb);
	for (i = 0, bkeys = 0; i < nb; i++) {
		switch (buf[i] & 0xE0) {
			case 0x00: bkeys += ((int)(buf[i] & 0x1f)); break;
			case 0x20: bkeys += ((int)(buf[i] & 0x1f) << 5); break;
			case 0x40: bkeys += ((int)(buf[i] & 0x1f) << 9); break;
			case 0x60: bkeys += ((int)(buf[i] & 0x1f) << 13); break;
			case 0xA0: bkeys += ((int)(buf[i] & 0x1f) << 18); break;
			case 0xC0: bkeys += ((int)(buf[i] & 0x1f) << 22); break;
			case 0xE0: bkeys += ((int)(buf[i] & 0x1f) << 26); break;
			default: break;
		}
	default: break;
	}
	debug1("bkeys %x\n", bkeys);
  debug1("bkeys %x\n", bkeys);
  for (i = 0; tab[i].key != -1; i++)
    if (bkeys == tab[i].key)
      break;
  debug1("bkey index %d\n", i);
  if (tab[i].key != -1 && tab[i].nr != RC_ILLEGAL)
    {
      char *args[3];
      int argl[2];
      
      struct action act;
      args[0] = tab[i].arg1;
      args[1] = tab[i].arg2;
      args[2] = 0;
      argl[0] = args[0] ? strlen(args[0]) : 0;
      argl[1] = args[1] ? strlen(args[1]) : 0;
      act.nr = tab[i].nr;
      act.args = args;
      act.argl = argl;
      display = bd.bd_dpy;
      DoAction(&act, -2);
    }
}

	for (i = 0; tab[i].key != -1; i++)
		if (bkeys == tab[i].key)
			break;

	debug1("bkey index %d\n", i);

	if (tab[i].key != -1 && tab[i].nr != RC_ILLEGAL) {
		char *args[3];
		int argl[2];

		struct action act;
		args[0] = tab[i].arg1;
		args[1] = tab[i].arg2;
		args[2] = 0;
		argl[0] = args[0] ? strlen(args[0]) : 0;
		argl[1] = args[1] ? strlen(args[1]) : 0;
		act.nr = tab[i].nr;
		act.args = args;
		act.argl = argl;
		display = bd.bd_dpy;
		DoAction(&act, -2);
	}
}

static void
buttonpress_navigator_40()
{
	buttonpress_tsi(keys_navigator_40);
}

static void
buttonpress_powerbraille_40()
{
	buttonpress_tsi(keys_powerbraille_40);
}

static void
buttonpress_powerbraille_80()
{
	buttonpress_tsi(keys_powerbraille_80);
}

#endif /* HAVE_BRAILLE */






Version 4.9.0 (30/01/2022):
  * Hardstatus option for used encoding (escape string '%e')
  * OpenBSD uses native openpty() from its utils.h
  * Fixes:
    - fix combining char handling that could lead to a segfault
    - CVE-2021-26937: possible denial of service via a crafted UTF-8 character sequence (bug #60030)
    - make screen exit code be 0 when checking --help
    - session names limit is 80 symbols (bug #61534)
    - option -X ignores specified user in multiuser env (bug #37437)
    - a lot of reformations/fixes/cleanups (man page and source code)

Version 4.8.0 (05/02/2020):
  * Improve startup time by only polling for files to close
  * Fixes:
	- Fix for segfault if termcap doesn't have Km entry
	- Make screen exit code be 0 when checking --version
	- Fix potential memory corruption when using OSC 49

Version 4.7.0 (02/10/2019):
Version 4.7.0 (02/10/2019)
  * Add support for SGR (1006) mouse mode
  * Add support for OSC 11
  * Update Unicode ambiguous and wide tables to 12.1.0
  * Fixes:
	- cross-compilation support (bug #43223)
	- a lot of manpage fixes and cleanups

Version 4.6.2 (23/10/2017):
  * Fixes:

  * Introduce Xx string escape showing the executed command of a window
  * Implement dead/zombie window polling, allowing for auto reconnecting
  * Allow setting hardstatus on first line
  * New Commands:
	- 'sort' command sorting windows by title
	- 'bumpleft', 'bumpright' - manually move windows on window list
	- 'collapse' removing numbering 'gaps' between windows, by renumbering
	- 'windows' command now accepts arguments for use with querying
  * 'windows' command now accepts arguments for use with querying

Version 4.2.1 (28/04/2014):
  * allow for terminal with long $TERM (up to 32 characters)

  New Commands:
  * 'unbindall' to unbind all commands
  * 'up', 'down', 'left', 'right' sub-commands for 'focus'
  * 'rendition' to specify rendition to use in caption/hardstatus for window-names that have bell/monitor/silence/so turned on.
    window-names that have bell/monitor/silence/so turned on.
  * 'layout', with the following sub-commands
	- 'title'
	- 'number'

=======================

.screenrc:
  screen now only opens the windows you explicitly ask for.
  If you specify none, you still get one window, of course.

screen 3.0. Patchlevel 5
========================

  by a colon. Oldchar and newchar are either single ascii characters, 
  or the two character sequence ^x, where x is an ascii character, or
  a 3 digit octal value prepended with '\'. the string "\040=.:^M=q"
  rebinds '.' to set marks, and the return key will abort copy mode.

set scrollback 100
  resizes the scrollback history buffer to 100 lines. a default of 50


^A : set vbell_msg "Wuff Wuff"

Thousand enhancements: help resizable, copy'n'paste in main
  socket loop, and no more '\0' hackin'. :WS=\E8;%d;%dt:

screen can now resize windows under sunview.

  bind 'O' set login off
  is valid in your .screenrc as well as typed at the ':' prompt.
  a bonus is ":set all" which is synonym to ":help".
  At the Colon prompt also KeyNames can be entered, although that makes
  not always sense.

^A x uses a builtin lockprg, if 
  a) we don't find our lockprg, or
  b) user supplies us with the environment variable LOCKPRG set to "builtin"
  the builtin locks until your login password is typed. on systems using
  "shadow password files" you are prompted for a password.



rare markroutine bug fixed.

we don't open every file the attacher tells us.

we have now our wonderful "Wuff, Wuff" visual_bell





#include <signal.h>
#include <fcntl.h>], [int x = SIGCHLD | FNDELAY;], , AC_DEFINE(SYSV))

AC_CHECKING(for sequent/ptx)
AC_EGREP_CPP(YES_IS_DEFINED,
[#ifdef _SEQUENT_
  YES_IS_DEFINED;
#endif
], LIBS="$LIBS -lsocket -linet";seqptx=1)

AC_CHECKING(SVR4)
AC_EGREP_CPP(yes,
[main () {
#if defined(SVR4) || defined(__SVR4)
  yes;
#endif
], AC_NOTE(- you have a SVR4 system) AC_DEFINE(SVR4) svr4=1)
if test -n "$svr4" ; then
oldlibs="$LIBS"
LIBS="$LIBS -lelf"
AC_CHECKING(SVR4)
AC_TRY_LINK([#include <utmpx.h>
],,
[AC_CHECK_HEADER(dwarf.h, AC_DEFINE(BUGGYGETLOGIN),
[AC_CHECK_HEADER(elf.h, AC_DEFINE(BUGGYGETLOGIN))])]
,LIBS="$oldlibs")
fi

AC_CHECK_HEADERS([stropts.h string.h strings.h])

AC_CHECKING(for Solaris 2.x)
AC_EGREP_CPP(YES_IS_DEFINED,
[#if defined(SVR4) && defined(sun)
  YES_IS_DEFINED;
#endif
], LIBS="$LIBS -lsocket -lnsl -lkstat")

dnl
dnl    ****  typedefs ****
dnl

#define S_IFIFO 0010000
#endif

char *fin = "/tmp/conftest$$";

main()
{

], AC_NOTE(- your fifos are usable) fifo=1,
AC_NOTE(- your fifos are not usable),
AC_NOTE(- skipping check because we are cross compiling; assuming fifos are usable) fifo=1)
rm -f /tmp/conftest*

if test -n "$fifo"; then
AC_CHECKING(for broken fifo implementation)

#define S_IFIFO 0010000
#endif

char *fin = "/tmp/conftest$$";

main()
{

], AC_NOTE(- your implementation is ok), 
AC_NOTE(- you have a broken implementation) AC_DEFINE(BROKEN_PIPE) fifobr=1,
AC_NOTE(- skipping check because we are cross compiling; assuming fifo implementation is ok))
rm -f /tmp/conftest*
fi

dnl

#include <sys/socket.h>
#include <sys/un.h>

char *son = "/tmp/conftest$$";

main()
{

], AC_NOTE(- your sockets are usable) sock=1,
AC_NOTE(- your sockets are not usable),
AC_NOTE(- skipping check because we are cross compiling; assuming sockets are usable) sock=1)
rm -f /tmp/conftest*

if test -n "$sock"; then
AC_CHECKING(socket implementation)

#include <sys/socket.h>
#include <sys/un.h>

char *son = "/tmp/conftest$$";

main()
{

AC_NOTE(- unix domain sockets are not kept in the filesystem)
AC_DEFINE(SOCK_NOT_IN_FS) socknofs=1,
AC_NOTE(- skipping check because we are cross compiling; assuming sockets are normal))
rm -f /tmp/conftest*
fi



#include <sys/stat.h>
#include <fcntl.h>

char *nam = "/tmp/conftest$$";

#ifdef NAMEDPIPE


tgetent((char *)0, (char *)0);
#endif
],,
LIBS="-ltermcap $olibs"
AC_CHECKING(libtermcap)
AC_TRY_LINK(,tgetent((char *)0, (char *)0);,,
LIBS="-ltermlib $olibs"

AC_MSG_ERROR(!!! no tgetent - no screen)))))))))

AC_TRY_RUN([

extern char *tgoto(char *,int,int);

main()
{
 exit(strcmp(tgoto("%p1%d", 0, 1), "1") ? 0 : 1);

dnl    ****  PTY specific things  ****
dnl
if test "$cross_compiling" = no ; then
AC_CHECKING(for /dev/ptc)
if test -r /dev/ptc; then
AC_DEFINE(HAVE_DEV_PTC)
fi
fi

if test "$cross_compiling" = no ; then
AC_CHECKING(for SVR4 ptys)
sysvr4ptys=
if test -c /dev/ptmx ; then
AC_TRY_LINK([],[ptsname(0);grantpt(0);unlockpt(0);],[AC_DEFINE(HAVE_SVR4_PTYS)
sysvr4ptys=1])
fi
fi

AC_CHECK_FUNCS(getpt)


dnl
dnl    ****  loadav  ****
dnl
if test "$cross_compiling" = no ; then
AC_CHECKING(for libutil(s))
test -f /usr/lib/libutils.a && LIBS="$LIBS -lutils"
test -f /usr/lib/libutil.a && LIBS="$LIBS -lutil"
fi

AC_CHECKING(getloadavg)
AC_TRY_LINK(,[getloadavg((double *)0, 0);],

LIBS="$LIBS -lcrypt"
AC_CHECKING(crypt)
AC_TRY_LINK(,,,LIBS="$oldlibs")
if test "$cross_compiling" = no ; then
test -f /lib/libsec.a || test -f /usr/lib/libsec.a && LIBS="$LIBS -lsec"
test -f /lib/libshadow.a || test -f /usr/lib/libshadow.a && LIBS="$LIBS -lshadow"
fi

oldlibs="$LIBS"
LIBS="$LIBS -lsun"
AC_CHECKING(IRIX sun library)


AC_CHECK_FUNCS(rename fchmod fchown strerror lstat _exit utimes vsnprintf getcwd setlocale strftime)

AC_CHECK_LIB(dl, dlopen)

AC_ARG_ENABLE(pam, [  --enable-pam            enable PAM support])
if test "$enable_pam" = "yes"; then
    AC_MSG_CHECKING(for PAM support)
    oldlibs="$LIBS"
    LIBS="$LIBS -lpam"
    AC_TRY_LINK([#include <security/pam_appl.h>], [
	pam_start(0, 0, 0, 0);
	pam_authenticate(0, 0);
	pam_end(0,0);
    ], AC_MSG_RESULT(yes);AC_DEFINE(USE_PAM),
       AC_MSG_RESULT(no);LIBS="$oldlibs")

    if test "$cf_result" = yes; then
	AC_DEFINE(USE_PAM)
    else
    	LIBS="$oldlibs"
    fi
    AC_MSG_RESULT($cf_result);
fi

AC_ARG_ENABLE(use-locale,





#include <sys/types.h>
#include <signal.h>
#include <setjmp.h>
#include <fcntl.h>
#ifndef sun
# include <sys/ioctl.h>

  return display;
}

static sigjmp_buf alarm_jump;

static sigret_t
FlushSigAlarm SIGDEFARG
{
#ifdef DEBUG
    debug("FlushSigAlarm\n");
#endif
    siglongjmp (alarm_jump, 1);
}


void
FreeDisplay()

      Flush(3);
      if (!display)
	return;
      SetTTY(D_userfd, &D_OldMode);
        signal(SIGALRM, FlushSigAlarm);
        alarm(10);
        SetTTY(D_userfd, &D_OldMode);
        alarm(0);
      }
      fcntl(D_userfd, F_SETFL, 0);
    }
  freetty();

{
  char *buf;
#ifdef UTF8
  int extrabytes = strlen(hstatusstring) - strlen_onscreen((unsigned char *)hstatusstring, NULL);
#else
  int extrabytes = 0;
#endif

	  if (y == cv->c_ye + 1 && from >= cv->c_xs && from <= cv->c_xe)
	    {
#ifdef UTF8
	      int extrabytes = strlen(captionstring) - strlen_onscreen((unsigned char *)captionstring, NULL);
#else
	      int extrabytes = 0;
#endif

    AddChar(' ');
}


void
Flush(progress)
int progress;

	      break;
	    }
	}
      wr = write(D_userfd, p, l);
        signal(SIGALRM, FlushSigAlarm);
	alarm(10);
	wr = write(D_userfd, p, l);
	alarm(0);
      } else {
	debug1("Warning: We spent too long in flush: %d\n", errno);
	return;
      }
      if (wr <= 0)
	{
	  if (errno == EINTR)

    {
      debug("display activity stopped sleep\n");
      if (eat)
        read(D_userfd, &buf, 1);
	  ;
    }
  debug2("DisplaySleep(%d) ending, eat was %d\n", n, eat);
}

   */
  int size;
  char bufspace[MAX_MOUSE_SEQUENCE + IOSIZE];
  unsigned char *buf = (unsigned char*)bufspace + MAX_MOUSE_SEQUENCE;

  struct canvas *cv;


	if (p->w_zdisplay == display)
	  {
	    flayer = &p->w_layer;
	    bufp = (char *)buf;
	    while (size > 0)
	      LayProcess(&bufp, &size);
	    return;

      return;
    }
#endif
  (*D_processinput)((char *)buf, size);
}

static void

	}
    }
#endif
  fflush(NULL);
  switch (pid = (int)fork())
    {
    case -1:

	}
      debug1("=== RunBlanker: pid %d\n", (int)getpid());
#endif
      close(0);
      close(1);
      close(2);
      if (open(m, O_RDWR))
	Panic(errno, "Cannot open %s", m);
      dup(0);
      dup(0);
          Panic(errno, "Cannot redirect %s to %s", "stdout", m);
        if (dup2(fd, 2) < 0)
          Panic(errno, "Cannot redirect %s to %s", "stderr", m);
        if (fd > 2)
          close(fd);
      }
      close(D_blankerev.fd);
      if (slave != -1)
	close(slave);

Lines 61-67 Link Here

(-)screen.orig/display.h (-2 / +2 lines)
61	struct mouse_parse	61	struct mouse_parse
62	{	62	{
63	char sgrmode; /* non-zero if parsing an SGR sequence */	63	char sgrmode; /* non-zero if parsing an SGR sequence */
64	char state; /* current state of parsing */	64	int state; /* current state of parsing */
65	int params[3]; /* parsed params: button, x, y */	65	int params[3]; /* parsed params: button, x, y */
66	};	66	};
67		67
Lines 112-118 Link Here
112	int d_mousetrack; /* set when user wants to use mouse even when the window	112	int d_mousetrack; /* set when user wants to use mouse even when the window
113	does not */	113	does not */
114	#ifdef RXVT_OSC	114	#ifdef RXVT_OSC
115	int d_xtermosc[4]; /* osc used */	115	int d_xtermosc[5]; /* osc used */
116	#endif	116	#endif
117	struct mchar d_lpchar; /* missing char */	117	struct mchar d_lpchar; /* missing char */
118	struct timeval d_status_time; /* time of status display */	118	struct timeval d_status_time; /* time of status display */

Lines 191-197 Link Here

(-)screen.orig/doc/FAQ (-1 / +1 lines)
191	Q: The "talk" command does not work when Screen is active.	191	Q: The "talk" command does not work when Screen is active.
192		192
193	A: Talk and several other programs rely on entries in the Utmp-	193	A: Talk and several other programs rely on entries in the Utmp-
194	Database (/var/run/utmp). On some systems this Database is world	194	Database (/etc/utmp). On some systems this Database is world
195	writable, on others it is not. If it is not, screen must be	195	writable, on others it is not. If it is not, screen must be
196	installed with the appropriate permissions (user or group s-bit)	196	installed with the appropriate permissions (user or group s-bit)
197	just like any program that uses PTYs (rlogin, xterm, ...). When	197	just like any program that uses PTYs (rlogin, xterm, ...). When




.\" vi:set wm=5
.TH SCREEN 1 "2022 Jan 30" "GNU Screen 4.9.0"
.
.
.if t .ds Q ``
.if t .ds U ''
.UC 4
.SH NAME
screen \- screen manager with VT100/ANSI terminal emulation


.I Screen
will also print out control characters in caret notation.
.PP
The standard way to create a new window is to type \fBC-a c\fP.
This creates a new window running a shell and switches to that
window immediately, regardless of the state of the process running
in the current window.
Similarly, you can create a new window with a custom command in it by
first binding the command to a keystroke (in your .screenrc file or at the
\fBC-a :\fP command line) and
then using it just like the \fBC-a c\fP command.
In addition, new windows can be created by running a command like:
.IP
screen emacs prog.c

the invoking shell to the application (emacs in this case), because it is
forked from the parent screen process, not from the invoking shell.
.PP
If \*Q/etc/utmp\*U is writable by
.IR screen ,
an appropriate record will be written to this file for each window, and
removed when the window is terminated.

you'll need to make sure you have correctly selected your terminal type,
just as you would for any other termcap/terminfo program.
(You can do this by using
.IR test
for example.)
.PP
If you're impatient and want to get started without doing a lot more reading,
you should remember this one command:  \fBC-a ?\fP.
Typing these two characters will display a list of the available
.I screen
commands and their bindings. Each keystroke is discussed in

The use of this option is discouraged.
.TP 5
.BR \-l " and " \-ln
turns login mode on or off (for /etc/utmp updating).
This can also be defined through the \*Qdeflogin\*U .screenrc command.
.TP 5
.BR \-ls " [" \fImatch ]

Sessions marked as `dead' should be thoroughly checked and removed. 
Ask your system administrator if you are not sure. Remove sessions with the 
\fB-wipe\fP option. 
.IP "" 5
Note:
  If sockets are missing (and because of this, your sessions are not
listed), you may send a SIGCHLD to its `SCREEN'
process and the process will re-establish the socket (think of
someone cleaning /tmp thoroughly).
.TP 5
.B \-L
tells

When creating a new session, this option can be used to specify a
meaningful name for the session. This name identifies the session for
\*Qscreen \-list\*U and \*Qscreen \-r\*U actions. It substitutes the
default [\fItty.host\fP] suffix. This name should not be longer
then 80 symbols.
.TP 5
.BI "\-t " name
sets the title (a.\|k.\|a.) for the default shell or specified program.

When
.I screen
is invoked, it executes initialization commands from the files
\*Q/usr/local/etc/screenrc\*U and
\*Q.screenrc\*U in the user's home directory. These are the \*Qprogrammer's
defaults\*U that can be overridden in the following ways: for the
global screenrc file 

and each occurrence of `^G' is replaced by the definition for bell
in your termcap (usually an audible bell).
The default message is
.PP
.nf
	'Activity in window %n'
.fi
.PP
Note that monitoring is off for all windows by default, but can be altered
by use of the \*Qmonitor\*U command (C-a M).
.RE
.TP
.BR "allpartial [ on | off ]"
.RS 0
.PP
If set to on, only the current cursor line is refreshed on window change.

default redraw behavior of newly created windows.
.RE
.TP
.BR "altscreen [ on | off ]"
.RS 0
.PP
If set to on, "alternate screen" support is enabled in virtual terminals,

Make bright colored text also bold.
.RE
.TP
.BR "autodetach [ on | off ]"
.RS 0
.PP
Sets whether 

and all the processes it contains. Autodetach is on by default.
.RE
.TP
.BR "autonuke [ on | off ]"
.RS 0
.PP
Sets whether a clear screen sequence should nuke all the output

with the numerical id \fIid\fP.
.RE
.TP
.BR "bce [ on | off ]"
.RS 0
.PP
Change background-color-erase setting. If \*Qbce\*U is set to on, all

and each occurrence of `^G' is replaced by the definition for bell
in your termcap (usually an audible bell).
The default message is
.PP
.nf
	'Bell in window %n'
.fi
.PP
An empty message can be supplied to the \*Qbell_msg\*U command to suppress
output of a message line (bell_msg "").
Without parameter, the current message is shown.

escape (besides ^A).
.RE
.TP
.BR "break " [ \fIduration\fR ]
.RS 0
.PP
Send a break signal for \fIduration\fP*0.25 seconds to this window.

Swaps window with next one on window list.
.RE
.TP
.BR "c1 [ on | off ]"
.RS 0
.PP
Change c1 code processing. \fBC1 on\fP tells screen to treat
the input characters between 128 and 159 as control functions.
Such an 8-bit code is normally the same as ESC followed by the
corresponding 7-bit code. The default setting is to process c1

you may regard \*QC-a esc\*U (copy mode) as its `Vi command mode'.
.RE
.TP
.BR "command [ \-c " \fIclass\fP" ]"
.RS 0
.PP
This command has the same effect as typing the screen escape

class.  See also \*Qbind\*U and \*Qbindkey\*U.
.RE
.TP
.BR "compacthist [ on | off ]"
.RS 0
.PP
This tells screen whether to suppress trailing blank lines when
scrolling up text into the history buffer.
.RE
.TP
.BR "console [ on | off ]"
.RS 0
.PP
Grabs or un-grabs the machines console output to a window.

\fBB\fP, \fBE\fP@move the cursor WORD by WORD (as in vi).
_
\fBf/F\fP, \fBt/T\fP@T{
move the cursor forward/backward to the next occurrence of the
target. (eg, '3fy' will move the cursor to the 3rd 'y' to the right.)
T}
_

_
.TE
.\"\fBf\fP,\fBt\fP, \fBF\fP, \fBT\fP@T{
.\"move the cursor forward/backward to the next occurrence of the target.
.\"T}

.PP

Example: \*QC-a C-[ H 10 j 5 Y\*U will copy lines
11 to 15 into the paste buffer.
.PP
The following search keys are defined:
.IP
\fB/\fP \fIVi\fP-like search forward.
.IP

No longer exists, use \*Qreadreg\*U instead.
.RE
.TP
.BR "crlf [ on | off ]"
.RS 0
.PP
This affects the copying of text regions with the `C-a [' command. If it is set

When no parameter is given, the state is toggled.
.RE
.TP
.BR "debug [ on | off ]"
.RS 0
.PP
Turns runtime debugging on or off. If 

be turned off once and forever.
.RE
.TP
.BR "defc1 [ on | off ]"
.RS 0
.PP
Same as the \fBc1\fP command except that the default setting for new
windows is changed. Initial setting is `on'.
.RE
.TP
.BR "defautonuke [ on | off ]"
.RS 0
.PP
Same as the \fBautonuke\fP command except that the default setting for new displays is changed. Initial setting is `off'.

want to have a dependency on the terminal type.
.RE
.TP
.BR "defbce [ on | off ]"
.RS 0
.PP
Same as the \fBbce\fP command except that the default setting for new

argument.
.RE
.TP
.BR "defdynamictitle [ on | off ]"
.RS 0
.PP
Set default behaviour for new windows regarding if screen should change window

characters for users that will be added later.
.RE
.TP
.BR "defflow [ on | off | auto [ interrupt ]]
.RS 0
.PP
Same as the \fBflow\fP command except that the default setting for new windows 
is changed. Initial setting is `auto'.
Specifying \fBdefflow auto interrupt\fP is the same as the command-line options
.B \-fa
and
.BR \-i . 
.RE
.TP
.BR "defgr [ on | off ]"
.RS 0
.PP
Same as the \fBgr\fP command except that the default setting for new

terminal.
.RE
.TP
.BR "deflog [ on | off ]"
.RS 0
.PP
Same as the \fBlog\fP command except that the default setting for new windows 
is changed. Initial setting is `off'.
.RE
.TP
.BR "deflogin [ on | off ]"
.RS 0
.PP
Same as the \fBlogin\fP command except that the default setting for new windows 

When no \*Qdefmode\*U command is given, mode 0622 is used.
.RE
.TP
.BR "defmonitor [ on | off]"
.RS 0
.PP
Same as the \fBmonitor\fP command except that the default setting for new 
windows is changed. Initial setting is `off'.
.RE
.TP
.BR "defmousetrack [ on | off ]"
.RS 0
.PP
Same as the \fBmousetrack\fP command except that the default setting for new
windows is changed. Initial setting is `off'.
.RE
.TP
.BR "defnonblock [ on | off | \fInumsecs\fP]
.RS 0
.PP
Same as the \fBnonblock\fP command except that the default setting for

Synonym to the \fBshell\fP .screenrc command. See there.
.RE
.TP
.BR "defsilence [ on | off ]"
.RS 0
.PP
Same as the \fBsilence\fP command except that the default setting for new

windows is changed. Initial setting is 0 milliseconds, meaning `off'.
.RE
.TP
.BR "defutf8 [ on | off ]"
.RS 0
.PP
Same as the \fButf8\fP command except that the default setting for new

\*Q\-U\*U, otherwise `off'.
.RE
.TP
.BR "defwrap [ on | off ]"
.RS 0
.PP
Same as the \fBwrap\fP command except that the default setting for new 

\*Qwrap\*U command (\*QC-a r\*U) or by means of "C-a : wrap on|off".
.RE
.TP
.BR "defwritelock [ on | off | auto ]"
.RS 0
.PP
Same as the \fBwritelock\fP command except that the default setting for new 

.IR tic .
.RE
.TP
.BR "dynamictitle [ on | off ]"
.RS 0
.PP
Change behaviour for windows regarding if screen should change window title

The echo command may be used to annoy 
.I screen
users with a 'message of the
day'. Typically installed in a global /local/etc/screenrc. 
The option \*Q\-n\*U may be used to suppress the line feed.
See also \*Qsleep\*U.
Echo is also useful for online checking of environment variables.

automatically if the window is displayed more than once.
.RE
.TP
.BR "flow [ on | off | auto]"
.RB [ on | off | "auto\fR]\fP"
.RS 0
.PP
Sets the flow-control mode for this window.

Default is set by `defflow'.
.RE
.TP
.BR "focus [ next | prev | up | down | left | right | top | bottom ]"
.RS 0
.PP
Move the input focus to the next region. This is done in a cyclic

This forces any currently selected region to be automatically
resized at least a certain \fIwidth\fP and \fIheight\fP. All
other surrounding regions will be resized in order to accommodate.
This constraint follows every time the \*Qfocus\*U command is
used. The \*Qresize\*U command can be used to increase either
dimension of a region, but never below what is set with
\*Qfocusminsize\*U. The underscore `_' is a synonym for

Without any parameters, the minimum width and height is shown.
.RE
.TP
.BR "gr [ on | off ]"
.RS 0
.PP
Turn GR charset switching on/off. Whenever screen sees an input

scrollback buffer.
.RE
.TP
.BR "hardcopy_append [ on | off ]"
.RS 0
.PP
If set to "on", 

current working directory.
.RE
.TP
.BR "hardstatus [ on | off ]"
.TP
.BR "hardstatus [ always ] firstline | lastline | message | ignore [ string ]"
.TP
.BR "hardstatus string [ string ]"
.RS 0
.PP
This command configures the use and emulation of the terminal's

.BR help [ \fIclass\fP ]
.RS 0
.PP
Not really a online help, but displays a help
displays a help 
.I screen 
showing you all the key bindings.
The first pages list all the internal commands followed by their current

If no arguments are given, the current settings are displayed.
.RE
.TP
.BR "ignorecase [ on | off ]"
.RS 0
.PP
Tell screen to ignore the case of characters in searches. Default is

(shell) running in the window receives a HANGUP condition, 
the window structure is removed and 
.I screen 
(your display) switches to another window.  When the last window is destroyed,
window.  When the last window is destroyed, 
.I screen
exits.
After a kill 

\fBlayout autosave\fP command.
.RE
.TP
.BR "layout autosave [ on | off]"
.RS 0
.PP
Change or display the status of automatcally saving layouts. The

Display the disclaimer page. This is done whenever
.I screen
is started without options, which should be often enough. See also 
the \fBstartup_message\fP command.
.RE
.TP
.B lockscreen

shell. This feature should rather be called `lockterminal'.
.RE
.TP
.BR "log [ on | off ]"
.RS 0
.PP
Start/stop writing output of the current window to a file 

default value is 10 seconds.
.RE
.TP
.BR "login [ on | off ]"
.RS 0
.PP
Adds or removes the entry in the utmp database file for the current window.

Insert the command character (C-a) in the current window's input stream.
.RE
.TP
.BR "monitor [ on | off ]"
.RS 0
.PP
Toggles activity monitoring of windows.

Monitoring is initially off for all windows.
.RE
.TP
.BR "mousetrack [ on | off ]"
.RS 0
.PP
This command determines whether

been split in various ways can be selected by pointing to them
with a mouse and left-clicking them. Without specifying \fBon\fP
or \fBoff\fP, the current state is displayed. The default state
is determined by the \fBdefmousetrack\fP command.
.RE
.TP
.BI "msgminwait " sec

is not disturbed by other activity. The default is 5 seconds.
.RE
.TP
.BR "multiuser [ on | off ]"
.RS 0
.PP
Switch between singleuser and multiuser mode. Standard

session. 
.RE
.TP
.BR "nethack [ on | off ]"
.RS 0
.PP
Changes the kind of error messages used by

much funnier to read. Anyway, standard messages often tend to be unclear as
well.
.br
This option is only available if
available if
.I screen
was compiled with the NETHACK flag defined. The
default setting is then determined by the presence of the environment 

This command can be used repeatedly to cycle through the list of windows.
.RE
.PP
.BR "nonblock [ on | off | numsecs ]"
.RB [ on | off | \fInumsecs ]
.RS 0
.PP
Tell screen how to deal with user interfaces (displays) that cease to

\fIother\fP has the same effect as \fInext\fP.
.RE
.TP
.BR "partial [ on | off ]"
.RS 0
.PP
Defines whether the display should be refreshed (as with \fIredisplay\fP) after

.PP
Present a crypted password in your \*Q.screenrc\*U file and
.I screen
will ask for it, whenever someone attempts to resume a detached.
This is useful if you have privileged programs running under
if you have privileged programs running under
.I screen
and you want to protect your session from reattach attempts by another user
masquerading as your uid (i.e. any superuser.)

of the current window. The register '.' is treated as the
paste buffer. If no parameter is given the user is prompted for a single 
register to paste.
The paste buffer can be filled with the \fBcopy\fP, \fBhistory\fP and
\fBreadbuf\fP commands.
Other registers can be filled with the \fBregister\fP, \fBreadreg\fP and
\fBpaste\fP commands.
If \fBpaste\fP is called with a second argument, the contents of the specified
registers is pasted into the named destination register rather than
the window. If '.' is used as the second argument, the displays paste buffer is
the destination.
Note, that \fBpaste\fP uses a wide variety of resources: Whenever a second
argument is specified no current window is needed. When the source specification
only contains registers (not the paste buffer) then there need not be a current
display (terminal attached), as the registers are a global resource. The
paste buffer exists once for every user.
.RE
.TP
.BR "pastefont [ on | off ]"
.RS 0
.PP
Tell 

Reads the contents of the specified file into the paste buffer.
You can tell screen the encoding of the file via the \fB\-e\fP option.
If no file is specified, the screen-exchange filename is used.
See also \fBbufferfile\fP command.
.RE
.TP
.IR "\fBreadreg\fP " [ encoding "] [" register " [" filename ]]

.B "removebuf"
.RS 0
.PP
Unlinks the screen-exchange file used by the commands
\fBwritebuf\fP and \fBreadbuf\fP.
.RE
.TP
.B "rendition [ bell | monitor | silence | so ] attr [ color ]"
.RS 0
.PP
Change the way
.I screen
renders the titles of windows that have monitor or bell flags set in
caption or hardstatus or windowlist. See the \*QSTRING ESCAPES\*U
chapter for the syntax of the modifiers.
The default for monitor is currently \*Q=b \*U (bold, active colors),
for bell \*Q=ub \*U (underline, bold and active colors), and \*Q=u \*U
for silence.
.RE
.TP
.B "reset"

.I screen
will prompt for how you would like to resize the current region.

See \*Qfocusminsize\*U if you want to restrict the minimum size a region
can have.
.RE
.RE

and value. The environment is inherited by all subsequently forked shells.
.RE
.TP
.BR "setsid [ on | off ]"
.RS 0
.PP
Normally screen uses different sessions and process groups for

entitled \*QTITLES (naming windows)\*U.
.RE
.TP
.BR "silence [ on | off | sec ]"
.RS 0
.PP
Toggles silence monitoring of windows.

With this current implementation of screen, scrolling data
will appear much slower in a vertically split region than one
that is not. This should be taken into consideration if you need
to use system commands such as \fBcat\fP or \fBtail -f\fP.
.RE
.TP
.B "startup_message [ on | off ]"
.RS 0
.PP
Select whether you want to see the copyright notice during startup.
Default is `on', as you probably noticed.
.RE
.PP
.BR "status [ top | up | down | bottom ] [ left | right ]"
.RB [ left | right ]
.RS 0
.PP
The status window by default is in bottom-left corner. This command can move

Unset an environment variable.
.RE
.TP
.BR "utf8 [ on | off [ on | off ]]"
.RS 0
.PP
Change the encoding used in the current window. If utf8 is enabled, the

window.
.RE
.TP
.BR "vbell [ on | off ]"
.RS 0
.PP
Sets the visual bell setting for this window. Omitting the parameter

visual bell message. The default is 1 second.
.RE
.TP
.BR "verbose [ on | off ]"
.RS 0
.PP
If verbose is switched on, the command name is echoed, whenever a window

vice versa.
.RE
.TP
.BR "windowlist [ \-b ] [ \-m ] [ \-g ]"
.TP
.IR "\fBwindowlist string\fR " [ string ]
.TP

The default command without any parameter is limited to a size of 1024 bytes.
.RE
.TP
.BR "wrap [ on | off ]"
.RS 0
.PP
Sets the line-wrap setting for the current window.

command and defaults to \*Q/tmp/screen\-exchange\*U.
.RE
.TP
.BR "writelock [ on | off | auto]"
.RS 0
.PP
In addition to access control lists, not all users may be able to write to

current window.
.RE
.TP
.BR "zmodem [ off | auto | catch | pass ]"
.TP
.IR "\fBzmodem sendcmd\fR " [ string ]
.TP

the escape character itself
.IP E
sets %? to true if the escape character has been pressed.
.IP e
encoding
.IP f
flags of the window, see \*Qwindows\*U for meanings of the various flags
.IP F

.IP r
reverse
.IP s
/standout
.IP B
blinking
.PD

history recall commands.
.PP
Here's some .screenrc examples:
.sp
.nf
	screen \-t top 2 nice top
.fi
.sp
Adding this line to your .screenrc would start a nice-d version of the
\*Qtop\*U command in window 2 named \*Qtop\*U rather than \*Qnice\*U.
.sp

These commands would start a shell with the given shelltitle.
The title specified is an auto-title that would expect the prompt and
the typed command to look something like the following:
.sp
.nf
	/usr/joe/src/dir> trn
.fi
.sp
(it looks after the '> ' for the command name).
The window status would show the name \*Qtrn\*U while the command was
running, and revert to \*Qcsh\*U upon completion.
.sp
.nf
	bind R screen \-t '% |root:' su
.fi
.sp
Having this command in your .screenrc would bind the key
sequence \*QC-a R\*U to the \*Qsu\*U command and give it an
auto-title name of \*Qroot:\*U.

If these invisible characters aren't a multiple of 8 then backspacing over
a tab will result in an incorrect display.
One way to get around this is to use a prompt like this:
.sp
.nf
	set prompt='^[[0000m^[k^[\e% '
.fi
.sp
The escape-sequence \*Q<esc>[0000m\*U not only normalizes the character
attributes, but all the zeros round the length of the invisible characters
up to 8.
Bash users will probably want to echo the escape sequence in the
PROMPT_COMMAND:
.sp
.nf
	PROMPT_COMMAND='printf "\e033k\e033\e134"'
.fi
.sp
(I used \*Q\e134\*U to output a `\e' because of a bug in bash v1.04).



.I screen
distribution package for private and global initialization files.
.IP $SYSSCREENRC 
.IP /usr/local/etc/screenrc
.I screen
initialization commands
.IP $SCREENRC
.IP $HOME/.screenrc
Read in after /usr/local/etc/screenrc
.IP $SCREENDIR/S\-<login>
.IP /local/screens/S\-<login>
Socket directories (default)

or
.IP /etc/termcap
Terminal capability databases
.IP /etc/utmp
Login records
.IP $LOCKPRG
Program that locks a terminal.


.SH "SEE ALSO"
termcap(5), utmp(5), vi(1), captoinfo(1), tic(1)


.SH AUTHORS
Originally created by Oliver Laumann. For a long time maintained
and developed by Juergen Weigert, Michael Schroeder, Micah Cowan


.SH COPYLEFT
.nf
Copyright (c) 2018-2022
	Alexander Naumov <alexander_naumov@opensuse.org>
	Amadeusz Slawinski <amade@asmblr.net>
Copyright (c) 2015-2017

	Michael Schroeder <mlschroe@immd4.informatik.uni\-erlangen.de>
Copyright (C) 1987 Oliver Laumann
.fi

.PP
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

.I screen
available via anonymous ftp from ftp.gnu.org/gnu/screen/ or any other 
.I GNU 
distribution site. The home page of
.I screen
is https://savannah.gnu.org/projects/screen/ and the git repo
is https://git.savannah.gnu.org/cgit/screen.git.
If you want to help, send a note to
.BR screen-devel@gnu.org.

.SH BUGS
.PD

must be installed as set-uid with owner root on most systems in order
to be able to correctly change the owner of the tty device file for
each window.
Special permission may also be required to write the file \*Q/etc/utmp\*U.
.IP \(bu
Entries in \*Q/etc/utmp\*U are not removed when
.I screen
is killed with SIGKILL.
This will cause some programs (like "w" or "rwho")

file from which the session is booted, or have to be changed manually.
.IP \(bu
A weird imagination is most useful to gain full advantage of all the features.
.PP
Send bug-reports, fixes, enhancements, t-shirts, money, beer & pizza to
.BR screen-devel@gnu.org .

.SH "SEE ALSO"
.BR termcap(5),
.BR utmp(5),
.BR vi(1),
.BR captoinfo(1),
.BR tic(1),
.BR tty(4),
.BR pty(7)




@documentencoding ISO-8859-15
@setfilename screen.info
@settitle Screen User's Manual
@dircategory General Commands
@finalout
@setchapternewpage odd
@c %**end of header
@set version 4.9.0

@direntry
* Screen: (screen).             Full-screen window manager.
@end direntry

@c For examples, use a literal escape in info.

@ifinfo
This file documents the @code{Screen} virtual terminal manager.

Copyright (c) 1993-2022 Free Software Foundation, Inc.

Permission is granted to make and distribute verbatim copies of
this manual provided the copyright notice and this permission notice

@title Screen
@subtitle The virtual terminal manager
@subtitle for Version @value{version}
@subtitle Jan 2022

@page
@vskip 0pt plus 1filll
Copyright @copyright{} 1993-2022 Free Software Foundation, Inc.

Permission is granted to make and distribute verbatim copies of
this manual provided the copyright notice and this permission notice

the invoking shell to the application (emacs in this case), because it is
forked from the parent screen process, not from the invoking shell.

If @file{/etc/utmp} is writable by @code{screen}, an appropriate record
will be written to this file for each window, and removed when the
window is closed.  This is useful for working with @code{talk},
@code{script}, @code{shutdown}, @code{rsend}, @code{sccs} and other


@item -l
@itemx -ln
Turn login mode on or off (for @file{/etc/utmp} updating).  This option
is equivalent to the @code{deflogin} command (@pxref{Login}).

@item -ls [@var{match}]

Ask your system administrator if you are not sure.
Remove sessions with the @samp{-wipe} option.

@emph{Note}:
  If sockets are missing (and because of this, your sessions are not
  listed), you may send a @code{SIGCHLD} to its `SCREEN'
  process and the process will re-establish the socket (think of
  someone cleaning @file{/tmp} thoroughly).


@item -L
Tell @code{screen} to turn on automatic output logging for the
windows.

@cindex screenrc
When @code{screen} is invoked, it executes initialization commands from
the files @file{.screenrc} in the user's home directory and
@file{/usr/local/etc/screenrc}.  These defaults can be overridden in the 
following ways:
For the global screenrc file @code{screen} searches for the environment
variable @code{$SYSSCREENRC} (this override feature may be disabled at
compile-time).  The user specific screenrc file is
searched for in @code{$SCREENRC}, then 
@file{@code{$HOME}/.screenrc}.  The command line option @samp{-c}
specifies which file to use (@pxref{Invoking Screen}).  Commands in these
files are used to set options, bind commands to keys, and to
automatically establish one or more windows at the beginning of
your @code{screen} session.  Commands are listed one per line, with

@item logfile @var{filename}
Place where to collect logfiles.  @xref{Log}.
@item login [@var{state}]
Log the window in @file{/etc/utmp}.  @xref{Login}.
@item logtstamp [@var{state}]
Configure logfile time-stamps.  @xref{Log}.
@item mapdefault

Without any arguments, @code{screen} will prompt for how you would
like to resize the current region.

See @code{focusminsize} if you want to restrict the minimum size a region can have.

@end deffn


* Naming Windows::		Control the name of the window
* Console::			See the host's console messages
* Kill::                        Destroy an unwanted window
* Login::                       Control @file{/etc/utmp} logging
* Mode::                        Control the file mode of the pty
* Monitor::                     Watch for activity or inactivity in a window
* Windows::			List the active windows

@kindex L
@deffn Command login [state]
(@kbd{C-a L})@*
Adds or removes the entry in @file{/etc/utmp} for the current window.
This controls whether or not the window is @dfn{logged in}.  In addition
to this toggle, it is convenient to have ``log in'' and ``log out''
keys.  For instance, @code{bind I login on} and @code{bind O 


@noindent
@kbd{f}/@kbd{F}, @kbd{t}/@kbd{T} move the cursor forward/backward to the 
next occurrence of the target. (eg, '3fy' will move the cursor to the 3rd
'y' to the right.)

@noindent

(none)@*
Stuff the string @var{string} in the input buffer of the current window.
This is like the @code{paste} command, but with much less overhead.
Without a parameter, @code{screen} will prompt for a string to stuff.
You cannot paste large buffers with the @code{stuff} command. It is most
useful for key bindings. @xref{Bindkey}.
@end deffn

load averages over 1, 5, and 15 minutes (if this is available on your
system).  For window-specific information use @code{info} (@pxref{Info}).
If a @var{string} is specified, it changes the format of the time report
like it is described in the string escapes chapter (@pxref{String Escapes}).
Screen uses a default of @samp{%c:%s %M %d %H%? %l%?}.
@end deffn

@node Verbose, Version, Time, Miscellaneous

weekday name
@item E
sets %? to true if the escape character has been pressed.
@item e
encoding
@item f
flags of the window. @xref{Windows}, for meanings of the various flags.
@item F

global initialization files.

@item @code{$SYSSCREENRC}
@itemx /local/etc/screenrc
@code{screen} initialization commands

@item @code{$SCREENRC}
@itemx @code{$HOME}/.iscreenrc
@itemx @code{$HOME}/.screenrc
Read in after /local/etc/screenrc

@item @code{$SCREENDIR}/S-@var{login}


@itemx /etc/termcap
Terminal capability databases

@item /etc/utmp
Login records

@item @code{$LOCKPRG}

in order to be able to
correctly change the owner of the tty device file for each window.
Special permission may also be required to write the file
@file{/etc/utmp}.

@item
Entries in @file{/etc/utmp} are not removed when @code{screen} is killed
with SIGKILL.  This will cause some programs (like "w" or "rwho") to
advertise that a user is logged on who really isn't.


@section Reporting Bugs
@cindex bug report

If you find a bug in @code{Screen}, please send mail to
@w{@samp{screen-devel@@gnu.org}}.  Include the version number
of @code{Screen} which you are using.  Also include in your message the
hardware and operating system, the compiler used to compile, a

Lines 1264-1270 Link Here

(-)screen.orig/encoding.c (-1 / +1 lines)
1264	};	1264	};
1265		1265
1266	if (c >= 0xdf00 && c <= 0xdfff)	1266	if (c >= 0xdf00 && c <= 0xdfff)
1267	return 1; /* dw combining sequence */	1267	return 1; /* dw combining sequence */
1268	return ((bisearch(c, wide, sizeof(wide) / sizeof(struct interval) - 1)) \|\|	1268	return ((bisearch(c, wide, sizeof(wide) / sizeof(struct interval) - 1)) \|\|
1269	(cjkwidth &&	1269	(cjkwidth &&
1270	bisearch(c, ambiguous,	1270	bisearch(c, ambiguous,




#
# This is an example for the global screenrc file.
# You may want to install this file as /usr/local/etc/screenrc.
# Check config.h for the exact location.
#
# Flaws of termcap and standard settings are done here.

bind O login off
bind } history

# Red Hat Hack^H^H^H^HPatch
# This makes screen treat backspaces '^?' as
# deletes. There should be a fix in the code
# for the way termcap inheritance works,
# but I dont know where to put it, and this works.
bindkey -d -k kb stuff \010
# /Red Hat Patch




register ] "\033:se ai\015a"
bind ^] paste [.]

# Red Hat Hack^H^H^H^HPatch
# This makes screen treat backspaces '^?' as
# deletes. There should be a fix in the code
# for the way termcap inheritance works,
# but I dont know where to put it, and this works.
bindkey -d -k kb stuff \010
# /Red Hat Patch


################
#
# default windows

Lines 75-81 Link Here

(-)screen.orig/extern.h (-1 / +1 lines)
75	extern int GetAnsiStatus __P((struct win , char ));	75	extern int GetAnsiStatus __P((struct win , char ));
76	extern void WNewAutoFlow __P((struct win *, int));	76	extern void WNewAutoFlow __P((struct win *, int));
77	extern void WBell __P((struct win *, int));	77	extern void WBell __P((struct win *, int));
78	extern void WMsg __P((struct win , int, const char ));	78	extern void WMsg __P((struct win , int, char ));
79	extern void WChangeSize __P((struct win *, int, int));	79	extern void WChangeSize __P((struct win *, int, int));
80	extern void WindowChanged __P((struct win *, int));	80	extern void WindowChanged __P((struct win *, int));
81	extern int MFindUsedLine __P((struct win *, int, int));	81	extern int MFindUsedLine __P((struct win *, int, int));

Lines 191-197 Link Here

(-)screen.orig/FAQ (-1 / +1 lines)
191	Q: The "talk" command does not work when Screen is active.	191	Q: The "talk" command does not work when Screen is active.
192		192
193	A: Talk and several other programs rely on entries in the Utmp-	193	A: Talk and several other programs rely on entries in the Utmp-
194	Database (/var/run/utmp). On some systems this Database is world	194	Database (/etc/utmp). On some systems this Database is world
195	writable, on others it is not. If it is not, screen must be	195	writable, on others it is not. If it is not, screen must be
196	installed with the appropriate permissions (user or group s-bit)	196	installed with the appropriate permissions (user or group s-bit)
197	just like any program that uses PTYs (rlogin, xterm, ...). When	197	just like any program that uses PTYs (rlogin, xterm, ...). When




extern struct display *display, *displays;
extern struct win *fore;
extern struct layer *flayer;
extern int    ServerSocket;
extern int    real_uid, eff_uid;
extern int    real_gid, eff_gid;
extern char  *extra_incap, *extra_outcap;
extern char  *home, *RcFileName;
extern char   SockPath[], *SockName;
#ifdef COPY_PASTE
extern char  *BufferFile;
#endif
extern int    hardcopy_append;
extern char  *hardcopydir;

static char *CatExtra __P((char *, char *));
static char *findrcfile __P((char *));

static char  *CatExtra __P((char *, char *));
static char  *findrcfile __P((char *));

char *rc_name = "";
int rc_recursion = 0;

static char *
CatExtra(register char *str1, register char *str2)
{
	register char *cp;
	register int len1, len2, add_colon;

	len1 = strlen(str1);
	if (len1 == 0)
		return str2;
	add_colon = (str1[len1 - 1] != ':');
	if (str2) {
		len2 = strlen(str2);
		if ((cp = realloc(str2, (unsigned)len1 + len2 + add_colon + 1)) == NULL)
			Panic(0, "%s", strnomem);
		bcopy(cp, cp + len1 + add_colon, len2 + 1);
	} else {
		if ((cp = malloc((unsigned)len1 + add_colon + 1)) == NULL)
			Panic(0, "%s", strnomem);
		cp[len1 + add_colon] = '\0';
	}
	bcopy(str1, cp, len1);
	if (add_colon)
		cp[len1] = ':';
	return cp;
}

static char *
findrcfile(char *rcfile)
{
	char buf[256];
	char *p;

	/* Tilde prefix support courtesy <hesso@pool.math.tu-berlin.de>,
	 * taken from a Debian patch. */
	if (rcfile && *rcfile == '~') {
		static char rcfilename_tilde_exp[MAXPATHLEN + 1];
		char *slash_position = strchr(rcfile, '/');

		if (slash_position == rcfile + 1) {
			char *home = getenv("HOME");
			if (!home) {
				Msg(0, "%s: source: tilde expansion failed", rc_name);
				return NULL;
			}
			snprintf(rcfilename_tilde_exp, MAXPATHLEN, "%s/%s", home, rcfile + 2);
		} else if (slash_position) {
			struct passwd *p;
			*slash_position = 0;
			p = getpwnam(rcfile + 1);
			if (!p) {
				Msg(0, "%s: source: tilde expansion failed for user %s", rc_name, rcfile + 1);
				return NULL;
			}
			snprintf(rcfilename_tilde_exp, MAXPATHLEN, "%s/%s", p->pw_dir, slash_position + 1);
		} else {
			Msg(0, "%s: source: illegal tilde expression.", rc_name);
			return NULL;
		}
		rcfile = rcfilename_tilde_exp;
	}

	if (rcfile) {
		char *rcend = rindex(rc_name, '/');
		if (*rcfile != '/' && rcend && (rcend - rc_name) + strlen(rcfile) + 2 < sizeof(buf)) {
			strncpy(buf, rc_name, rcend - rc_name + 1);
			strcpy(buf + (rcend - rc_name) + 1, rcfile);
			if (access(buf, R_OK) == 0)
				return SaveStr(buf);
		}
		debug1("findrcfile: you specified '%s'\n", rcfile);
		return SaveStr(rcfile);
	}

	debug("findrcfile: you specified nothing...\n");
	if ((p = getenv("SCREENRC")) != NULL && *p != '\0') {
		debug1("  $SCREENRC has: '%s'\n", p);
		return SaveStr(p);
	} else {
		debug("  ...nothing in $SCREENRC, defaulting $HOME/.screenrc\n");
		if (strlen(home) > sizeof(buf) - 12)
			Panic(0, "Rc: home too large");
		sprintf(buf, "%s/.screenrc", home);
		return SaveStr(buf);
	}
}

/*

 * 1) rcfilename = "/etc/screenrc"
 * 2) rcfilename = RcFileName
 */
int
StartRc(char *rcfilename, int nopanic)
{
	register int argc, len;
	register char *p, *cp;
	char buf[2048];
	char *args[MAXARGS];
	int argl[MAXARGS];
	FILE *fp;
	char *oldrc_name = rc_name;

	/* always fix termcap/info capabilities */
	extra_incap = CatExtra("TF", extra_incap);

	/* Special settings for vt100 and others */
	if (display && (!strncmp(D_termname, "vt", 2) || !strncmp(D_termname, "xterm", 5)))
		extra_incap = CatExtra("xn:f0=\033Op:f1=\033Oq:f2=\033Or:f3=\033Os:f4=\033Ot:f5=\033Ou:f6=\033Ov:f7=\033Ow:f8=\033Ox:f9=\033Oy:f.=\033On:f,=\033Ol:fe=\033OM:f+=\033Ok:f-=\033Om:f*=\033Oj:f/=\033Oo:fq=\033OX", extra_incap);

	rc_name = findrcfile(rcfilename);
	if (rc_name == NULL || (fp = secfopen(rc_name, "r")) == NULL) {
		const char *rc_nonnull = rc_name ? rc_name : rcfilename;
		if (!rc_recursion && RcFileName && !strcmp(RcFileName, rc_nonnull)) {
		/*
		 * User explicitly gave us that name,
		 * this is the only case, where we get angry, if we can't read
		 * the file.
		 */
			debug3("StartRc: '%s','%s', '%s'\n", RcFileName, rc_name ? rc_name : "(null)", rcfilename);
			if (!nopanic)
				Panic(0, "Unable to open \"%s\".", rc_nonnull);
				/* possibly NOTREACHED */
		}

		debug1("StartRc: '%s' no good. ignored\n", rc_nonnull);
		if (rc_name)
			Free(rc_name);
		rc_name = oldrc_name;
		return 1;
	}
	while (fgets(buf, sizeof buf, fp) != NULL) {
		if ((p = rindex(buf, '\n')) != NULL)
			*p = '\0';

		if ((argc = Parse(buf, sizeof buf, args, argl)) == 0)
			continue;

		if (strcmp(args[0], "echo") == 0) {
			if (!display)
				continue;
			if (argc < 2 || (argc == 3 && strcmp(args[1], "-n")) || argc > 3) {
				Msg(0, "%s: 'echo [-n] \"string\"' expected.", rc_name);
				continue;
			}
			AddStr(args[argc - 1]);
			if (argc != 3) {
				AddStr("\r\n");
				Flush(0);
			}
		} else if (strcmp(args[0], "sleep") == 0) {
			if (!display)
				continue;
			debug("sleeeeeeep\n");
			if (argc != 2) {
				Msg(0, "%s: sleep: one numeric argument expected.", rc_name);
				continue;
			}
			DisplaySleep1000(1000 * atoi(args[1]), 1);
		}
#ifdef TERMINFO
    else if (!strcmp(args[0], "termcapinfo") || !strcmp(args[0], "terminfo")) {
#else
		else if (!strcmp(args[0], "termcapinfo") || !strcmp(args[0], "termcap")) {
#endif
			if (!display)
				continue;
			if (argc < 3 || argc > 4) {
				Msg(0, "%s: %s: incorrect number of arguments.", rc_name, args[0]);
				continue;
			}

			for (p = args[1]; p && *p; p = cp) {
				if ((cp = index(p, '|')) != 0)
					*cp++ = '\0';
				len = strlen(p);
				if (p[len - 1] == '*') {
					if (!(len - 1) || !strncmp(p, D_termname, len - 1))
						break;
				} else if (!strcmp(p, D_termname))
					break;
			}
			if (!(p && *p))
				continue;
			extra_incap = CatExtra(args[2], extra_incap);
			if (argc == 4)
				extra_outcap = CatExtra(args[3], extra_outcap);
		} else if (!strcmp(args[0], "source")) {
			if (rc_recursion <= 10) {
				rc_recursion++;
				(void)StartRc(args[1], 0);
				rc_recursion--;
			}
		}
	}
	fclose(fp);
	Free(rc_name);
	rc_name = oldrc_name;
	return 0;
}

void
FinishRc(char *rcfilename)
{
	char buf[2048];
	FILE *fp;
	char *oldrc_name = rc_name;

	rc_name = findrcfile(rcfilename);

	if (rc_name == NULL || (fp = secfopen(rc_name, "r")) == NULL) {
		const char *rc_nonnull = rc_name ? rc_name : rcfilename;
		if (rc_recursion)
			Msg(errno, "%s: source %s", oldrc_name, rc_nonnull);
		else if (RcFileName && !strcmp(RcFileName, rc_nonnull)) {
      /*
       * User explicitly gave us that name,
       * this is the only case, where we get angry, if we can't read
       * the file.
       */
			debug3("FinishRc:'%s','%s','%s'\n", RcFileName, rc_name ? rc_name : "(null)", rcfilename);
			Panic(0, "Unable to open \"%s\".", rc_nonnull);
			/* NOTREACHED */
		}
		debug1("FinishRc: '%s' no good. ignored\n", rc_nonnull);
		if (rc_name)
			Free(rc_name);
		rc_name = oldrc_name;
		return;
	}

	debug("finishrc is going...\n");
	while (fgets(buf, sizeof buf, fp) != NULL)
		RcLine(buf, sizeof buf);
	(void)fclose(fp);
	Free(rc_name);
	rc_name = oldrc_name;
}

void
do_source(char *rcfilename)
{
	if (rc_recursion > 10) {
		Msg(0, "%s: source: recursion limit reached", rc_name);
		return;
	}
	rc_recursion++;
	FinishRc(rcfilename);
	rc_recursion--;
}


/*
 * Running a Command Line in the environment determined by the display.
 * The fore window is taken from the display as well as the user.
 * This is bad when we run detached.
 */
void
RcLine(char *ubuf, int ubufl)
{
	char *args[MAXARGS];
	int argl[MAXARGS];
#ifdef MULTIUSER
	extern struct acluser *EffectiveAclUser;      /* acl.c */
	extern struct acluser *users;                 /* acl.c */
#endif

	if (display) {
		fore = D_fore;
		flayer = D_forecv->c_layer;
	} else
		flayer = fore ? fore->w_savelayer : 0;
	if (Parse(ubuf, ubufl, args, argl) <= 0)
		return;
    return;

#ifdef MULTIUSER
	if (!display) {
      /* the session owner does it, when there is no display here */
		EffectiveAclUser = users;
		debug("RcLine: WARNING, no display no user! Session owner executes command\n");
	}
#endif

	DoCommand(args, argl);

#ifdef MULTIUSER
	EffectiveAclUser = 0;
#endif
}

/*  needs display for copybuffer access and termcap dumping  */
void
WriteFile(struct acluser *user, char *fn, int dump)
{
  /* dump==0:	create .termcap,
   * dump==1:	hardcopy,
   * #ifdef COPY_PASTE
   * dump==2:	BUFFERFILE
   * #endif COPY_PASTE
   * dump==1:	scrollback,
   */
	register int i, j, k;
	register char *p;
	register FILE *f;
	char fnbuf[1024];
	char *mode = "w";

#ifdef COPY_PASTE
	int public = 0;
# ifdef HAVE_LSTAT
	struct stat stb, stb2;
	int fd, exists = 0;
# endif
#endif

	switch (dump) {
	case DUMP_TERMCAP:
		if (fn == 0) {
			i = SockName - SockPath;
			if (i > (int)sizeof(fnbuf) - 9)
				i = 0;
			strncpy(fnbuf, SockPath, i);
			strcpy(fnbuf + i, ".termcap");
			fn = fnbuf;
		}
		break;

	case DUMP_HARDCOPY:
	case DUMP_SCROLLBACK:
		if (fn == 0) {
			if (fore == 0)
				return;
			if (hardcopydir && *hardcopydir && strlen(hardcopydir) < sizeof(fnbuf) - 21)
				sprintf(fnbuf, "%s/hardcopy.%d", hardcopydir, fore->w_number);
			else
				sprintf(fnbuf, "hardcopy.%d", fore->w_number);
			fn = fnbuf;
		}
		if (hardcopy_append && !access(fn, W_OK))
			mode = "a";
		break;

#ifdef COPY_PASTE
	case DUMP_EXCHANGE:
		if (fn == 0) {
			strncpy(fnbuf, BufferFile, sizeof(fnbuf) - 1);
			fnbuf[sizeof(fnbuf) - 1] = 0;
			fn = fnbuf;
		}
		public = !strcmp(fn, DEFAULT_BUFFERFILE);
# ifdef HAVE_LSTAT
		exists = !lstat(fn, &stb);
		if (public && exists && (S_ISLNK(stb.st_mode) || stb.st_nlink > 1)) {
			Msg(0, "No write to links, please.");
			return;
		}
# endif
		break;
#endif
	}

	debug2("WriteFile(%d) %s\n", dump, fn);
	if (UserContext() > 0) {
		debug("Writefile: usercontext\n");
#ifdef COPY_PASTE
		if (dump == DUMP_EXCHANGE && public) {
# ifdef HAVE_LSTAT
			if (exists) {
				if ((fd = open(fn, O_WRONLY, 0666)) >= 0) {
					if (fstat(fd, &stb2) == 0 && stb.st_dev == stb2.st_dev && stb.st_ino == stb2.st_ino)
						ftruncate(fd, 0);
					else {
						close(fd);
						fd = -1;
					}
				}
			} else
				fd = open(fn, O_WRONLY|O_CREAT|O_EXCL, 0666);
			f = fd >= 0 ? fdopen(fd, mode) : 0;
      }
      else
        fd = open(fn, O_WRONLY|O_CREAT|O_EXCL, 0666);
      f = fd >= 0 ? fdopen(fd, mode) : 0;
# else
			f = fopen(fn, mode);
# endif
		} else
    else
#endif /* COPY_PASTE */
			f = fopen(fn, mode);
		if (f == NULL) {
			debug2("WriteFile: fopen(%s,\"%s\") failed\n", fn, mode);
			UserReturn(0);
		} else {
			switch (dump) {
			case DUMP_HARDCOPY:
			case DUMP_SCROLLBACK:
				if (!fore)
					break;
				if (*mode == 'a') {
					putc('>', f);
					for (j = fore->w_width - 2; j > 0; j--)
						putc('=', f);
					fputs("<\n", f);
				}
				if (dump == DUMP_SCROLLBACK) {
              if (dump == DUMP_SCROLLBACK) {
#ifdef COPY_PASTE
					for (i = fore->w_histheight - fore->w_scrollback_height; i < fore->w_histheight; i++) {
						p = (char *)(WIN(i)->image);
						for (k = fore->w_width - 1;
						    k >= 0 && p[k] == ' '; k--)
							;
						for (j = 0; j <= k; j++)
							putc(p[j], f);
						putc('\n', f);
					}
#endif
				}
				for (i = 0; i < fore->w_height; i++) {
					p = (char *)fore->w_mlines[i].image;
					for (k = fore->w_width - 1;
					    k >= 0 && p[k] == ' '; k--)
						;
					for (j = 0; j <= k; j++)
						putc(p[j], f);
					putc('\n', f);
				}
				break;

			case DUMP_TERMCAP:
				DumpTermcap(fore->w_aflag, f);
				break;

#ifdef COPY_PASTE
			case DUMP_EXCHANGE:
				p = user->u_plop.buf;
				for (i = user->u_plop.len; i-- > 0; p++)
					if (*p == '\r' && (i == 0 || p[1] != '\n'))
						putc('\n', f);
					else
						putc(*p, f);
				break;
#endif
			}
			(void)fclose(f);
			UserReturn(1);
		}
	}
	if (UserStatus() <= 0)
		Msg(0, "Cannot open \"%s\"", fn);
	else if (display && !*rc_name) {
		switch (dump) {
		case DUMP_TERMCAP:
			Msg(0, "Termcap entry written to \"%s\".", fn);
			break;
		case DUMP_HARDCOPY:
		case DUMP_SCROLLBACK:
			Msg(0, "Screen image %s to \"%s\".", (*mode == 'a') ? "appended" : "written", fn);
			break;
#ifdef COPY_PASTE
		case DUMP_EXCHANGE:
			Msg(0, "Copybuffer written to \"%s\".", fn);
#endif
		}
	}
}

#ifdef COPY_PASTE

/*
 * returns an allocated buffer which holds a copy of the file named fn.
 * lenp (if nonzero) points to a location, where the buffer size should be
 * stored.
 */
char *
ReadFile(char *fn, int *lenp)
{
	int i, l, size;
	char c, *bp, *buf;
	struct stat stb;

	ASSERT(lenp);
	debug1("ReadFile(%s)\n", fn);

	if ((i = secopen(fn, O_RDONLY, 0)) < 0) {
		Msg(errno, "no %s -- no slurp", fn);
		return NULL;
	}

	if (fstat(i, &stb)) {
		Msg(errno, "no good %s -- no slurp", fn);
		close(i);
		return NULL;
	}
	size = stb.st_size;

	if ((buf = malloc(size)) == NULL) {
		close(i);
		Msg(0, "%s", strnomem);
		return NULL;
	}
	errno = 0;

	if ((l = read(i, buf, size)) != size) {
		if (l < 0)
			l = 0;
		Msg(errno, "Got only %d bytes from %s", l, fn);
	} else {
		if (read(i, &c, 1) > 0)
			Msg(0, "Slurped only %d characters (of %d) into buffer - try again", l, size);
		else
			Msg(0, "Slurped %d characters into buffer", l);
	}
	close(i);
	*lenp = l;
	for (bp = buf; l-- > 0; bp++)
		if (*bp == '\n' && (bp == buf || bp[-1] != '\r'))
			*bp = '\r';
	return buf;
}

void
KillBuffers()
{
	if (UserContext() > 0)
		UserReturn(unlink(BufferFile) ? errno : 0);
	errno = UserStatus();
	Msg(errno, "%s %sremoved", BufferFile, errno ? "not " : "");
}
#endif	/* COPY_PASTE */


/* (Almost) secure open and fopen...  */

FILE *
secfopen(char *name, char *mode)
{
	FILE *fi;
#ifndef USE_SETEUID
	int flags, fd;
#endif

	debug2("secfopen(%s, %s)\n", name, mode);
#ifdef USE_SETEUID
	xseteuid(real_uid);
	xsetegid(real_gid);
	fi = fopen(name, mode);
	xseteuid(eff_uid);
	xsetegid(eff_gid);
	return fi;

#else
	if (eff_uid == real_uid)
		return fopen(name, mode);
	if (mode[0] && mode[1] == '+')
		flags = O_RDWR;
	else
		flags = (mode[0] == 'r') ? O_RDONLY : O_WRONLY;
	if (mode[0] == 'w')
		flags |= O_CREAT | O_TRUNC;
	else if (mode[0] == 'a')
		flags |= O_CREAT | O_APPEND;
	else if (mode[0] != 'r') {
		errno = EINVAL;
		return 0;
	}
	if ((fd = secopen(name, flags, 0666)) < 0)
		return 0;
	if ((fi = fdopen(fd, mode)) == 0) {
		close(fd);
		return 0;
	}
	return fi;
#endif
}

int
secopen(char *name, int flags, int mode)
{
	int fd;
#ifndef USE_SETEUID
	int q;
	struct stat stb;
#endif

	debug3("secopen(%s, 0x%x, 0%03o)\n", name, flags, mode);
#ifdef USE_SETEUID
	xseteuid(real_uid);
	xsetegid(real_gid);
	fd = open(name, flags, mode);
	xseteuid(eff_uid);
	xsetegid(eff_gid);
	return fd;
#else
	if (eff_uid == real_uid)
		return open(name, flags, mode);

	/* Truncation/creation is done in UserContext */
	if ((flags & O_TRUNC) || ((flags & O_CREAT) && access(name, F_OK))) {
		if (UserContext() > 0) {
			if ((fd = open(name, flags, mode)) >= 0) {
				close(fd);
				UserReturn(0);
			}
			if (errno == 0)
				errno = EACCES;
			UserReturn(errno);
		}
		if ((q = UserStatus())) {
			if (q > 0)
				errno = q;
			return -1;
		}
	}
	if (access(name, F_OK))
		return -1;
	if ((fd = open(name, flags & ~(O_TRUNC | O_CREAT), 0)) < 0)
		return -1;
	debug("open successful\n");
	if (fstat(fd, &stb)) {
		close(fd);
		return -1;
	}
	debug("fstat successful\n");
	if (stb.st_uid != real_uid) {
		switch (flags & (O_RDONLY | O_WRONLY | O_RDWR)) {
		case O_RDONLY:
			q = 0004;
			break;
		case O_WRONLY:
			q = 0002;
			break;
		default:
			q = 0006;
			break;
		}
		if ((stb.st_mode & q) != q) {
			debug1("secopen: permission denied (%03o)\n", stb.st_mode & 07777);
			close(fd);
			errno = EACCES;
			return -1;
		}
	}
	debug1("secopen ok - returning %d\n", fd);
	return fd;
#endif
}

int
printpipe(struct win *p, char *cmd)
{
	int pi[2];
	if (pipe(pi)) {
		WMsg(p, errno, "printing pipe");
		return -1;
	}
	switch (fork()) {
	case -1:
		WMsg(p, errno, "printing fork");
		return -1;
	case 0:
		display = p->w_pdisplay;
		displays = 0;
		ServerSocket = -1;
#ifdef DEBUG
		if (dfp && dfp != stderr)
			fclose(dfp);
#endif
		close(0);
		dup(pi[0]);
		closeallfiles(0);
		if (setgid(real_gid) || setuid(real_uid))
			Panic(errno, "printpipe setuid");
		eff_uid = real_uid;
		eff_gid = real_gid;

#ifdef SIGPIPE
		signal(SIGPIPE, SIG_DFL);
#endif
		execl("/bin/sh", "sh", "-c", cmd, (char *)0);
		Panic(errno, "/bin/sh");
	default:
		break;
	}
	close(pi[0]);
	return pi[1];
}

int
readpipe(char **cmdv)
{
	int pi[2];

	if (pipe(pi)) {
		Msg(errno, "pipe");
		return -1;
	}

	switch (fork()) {
	case -1:
		Msg(errno, "fork");
		return -1;
	case 0:
		displays = 0;
		ServerSocket = -1;
#ifdef DEBUG
		if (dfp && dfp != stderr)
			fclose(dfp);
#endif
		close(1);
		if (dup(pi[1]) != 1) {
			close(pi[1]);
			Panic(0, "dup");
		}
		closeallfiles(1);

		if (setgid(real_gid) || setuid(real_uid)) {
			close(1);
			Panic(errno, "setuid/setgid");
		}
		eff_uid = real_uid;
		eff_gid = real_gid;
#ifdef SIGPIPE
		signal(SIGPIPE, SIG_DFL);
#endif
		execvp(*cmdv, cmdv);
		close(1);
		Panic(errno, "%s", *cmdv);
	default:
		break;
	}
	close(pi[1]);
	return pi[0];
}

Lines 4-10 Link Here

(-)screen.orig/HACKING (-1 / +1 lines)
4	The local variable nr is set to an integer value representing the	4	The local variable nr is set to an integer value representing the
5	command to be evaluated; for every command `foo', there is an	5	command to be evaluated; for every command `foo', there is an
6	integer value RC_FOO for use as nr's value to represent it. Find	6	integer value RC_FOO for use as nr's value to represent it. Find
7	the matching case label to follow procesing of the command.	7	the matching case label to follow processing of the command.
8		8
9	The RC_FOO values are defined in comm.h, which is automatically	9	The RC_FOO values are defined in comm.h, which is automatically
10	generated by comm.sh, based on the names of the commands	10	generated by comm.sh, based on the names of the commands

Lines 111-118 Link Here

(-)screen.orig/help.c (-1 / +2 lines)
111	printf("\nError: ");	111	printf("\nError: ");
112	printf(message, arg);	112	printf(message, arg);
113	printf("\n");	113	printf("\n");
		114	exit(1);
114	}	115	}
115	exit(1);	116	exit(0);
116	}	117	}
117		118
118	/* Here come the help page routines */	119	/* Here come the help page routines */




not. At least it must be on a filesystem that supports sockets/fifos.
SOCKDIR must not point into an AFS (Andrew File System) mounted directory. 
If you are uncertain about your NFS implementation, use a UFS directory for 
SOCKDIR. Personally, I favour a user's home directory and recommend the the
/tmp/ area. 
The path for ETCSCREENRC may also need to be adapted.


--------------------
You may well run screen from your private binary directory and with a 
private socket directory like $HOME/.screen. But to have a full featured
screen and (from a user's point of view) more secure pty's you should
consult a system administrator and discuss installing screen setuid-root
in some globally accessible directory like /usr/local/bin.


The files screenrc and etc/etcscreenrc are instructive samples that
demonstrate what can/should be done from your private .screenrc and from
$ETCSCREENRC -- do not just copy them. Read them.  Look through the 
etcscreenrc file for system wide defaults that you like to set, e.g.
autodetach off, startup_message off, vbell on, ...
Since version 3.2.15 the screenrc file syntax changed slightly. All rc files
from previous versions should be run through the 'newsyntax' script that comes 




echo -n "booting screen"

# let it flash, not horn!
#vbell on                          # "vbell" doesn't work any longer, sorry.
#vbell_msg "  Wuff,  Wuff!!  "     # this is the default message
#bell "Bimmmel No. %"		   # sounds the bell and shows a message


# Printing in the leftmost column is not save. We express that fact as :LP@:
#
# Emacs tends to smear it's highlighted status bar across the screen, producing
# ugly areas of bright background, if termcap isn't perfectly sober.
# Give a little :ms@: in the termcap, this may help.
#
# And who invented the initialisation for facit terminals? We tell him that 
# we don't like smooth scroll, by specifying :ti=\E[?l:.
# \E[?3l   80 Zeichen
# \E[?3h   132 Zeichen
# LP       Last column Printable

# ICL 6402 testing:
termcap icl* G0:S0=\E$[start]:E0=\E%[end]:C0=j9k<l6m3n?q\:t7u=v;w>x5 GS=\E(0^O:GE=\E(B^O:G1=k:G2=l:G3=m:G4=j:GV=x:GH=q:GR=u:GL=t:GU=w:GD=v:GC=n

# Flow control produces trouble. ^S und ^Q will never reach screen, as our
# terminals catch them locally. Who can explain that to me?:
#flow on|off|auto [interrupt]

# Long lines get wrapped around (the back of your terminal). This is the
# default for vt100. But now programs make different asumptions about your
# terminal. You may find two linefeeds where you'd expect one, or you may
# be confronted with a truncated line. Currently there is no fix, but pressing

# the autoaka allows you to see the currently executing shell command in the
# window name field. To use that, your shell prompt must contain ^[k^[\ or
# you will see the string "(init)" as a name.
# in my .cshrc I may use this for a wonderful tcsh-prompt:
#	set prompt="%{^[k^[\\%}%h %c2(%m)%# "
#
# defining a shellaka that contains a pipe-symbol (|) activates the
# autoaka feature. To the left of that | you specify a constant part of
# your prompt as a trigger, to the right you may place a default string
# as in

# ... now a little bit of key bindings
# In case we don't have write permission for /etc/utmp (no s-bit)
# we create even local windows via rlogin. -> Et voila: a utmp-slot
# utmp-slots are strongly recommended to keep sccs and talk happy.
# (thus we have ^A# or. ^Ac for window creation with or without utmp-slot.)
# but if we run suid-root, we produce all the rlogins with -ln, 
# as nobody shall refer to these pty's.
bind '!' screen -ln -k faui41 rlogin faui41

# What happens, when you 'think emacs' and want to erase a whole
# line? You type ^A^K right? Under screen it should be ^Aa^K. But...
# killing the window would be a real punishment for a little mistyping.
bind k		#wow! I even mange to type ^Ak by accident.
#bind ^k
#bind K kill





{
  VA_LIST(ap)
  char buf[MAXPATHLEN*2];
  char *p = buf;
  const int errlen = err ? 100 : 0;
  struct canvas *cv;

  VA_START(ap, fmt);
  fmt = DoNLS(fmt);
  (void)vsnprintf(p, sizeof(buf) - 100, fmt, VA_ARGS(ap));
  VA_END(ap);

  if (len < 0) {
    strncpy(buf, fmt, sizeof(buf) - errlen);
    buf[sizeof(buf) - errlen - 1] = 0;
  }
  if (err) {
    p += strlen(p);
    *p++ = ':';
    *p++ = ' ';
    strncpy(p, strerror(err), buf + sizeof(buf) - p - 1);
    buf[sizeof(buf) - 1] = 0;
  }

  debug2("LMsg('%s') (%#x);\n", buf, (unsigned int)flayer);
  for (display = displays; display; display = display->d_next) {
    for (cv = D_cvlist; cv; cv = cv->c_next)

  for (l = lay; l; l = l->l_next) {
    if (l->l_layfn == &WinLf || l->l_layfn == &BlankLf)
      break;
    debug1("- killing %#x\n", l);
    if (oldflayer == l)
      oldflayer = 0;
    for (cv = l->l_cvlist; cv; cv = ncv) {

    Msg(0, "No memory for layer struct");
      return -1;
  }
  debug2("Entering new layer on top of %#x: %#x\n", (unsigned int)flayer, newlay);
  data = 0;
  if (datasize) {
    if ((data = calloc(1, datasize)) == 0) {

Lines 106-112 Link Here

(-)screen.orig/layer.h (-1 / +1 lines)
106	debug("LayCallUp\n"); \	106	debug("LayCallUp\n"); \
107	flayer = flayer->l_next; \	107	flayer = flayer->l_next; \
108	oldcvlist = flayer->l_cvlist; \	108	oldcvlist = flayer->l_cvlist; \
109	debug1("oldcvlist: %p\n", oldcvlist); \	109	debug1("oldcvlist: %x\n", oldcvlist); \
110	flayer->l_cvlist = oldlay->l_cvlist; \	110	flayer->l_cvlist = oldlay->l_cvlist; \
111	for (cv = flayer->l_cvlist; cv; cv = cv->c_lnext) \	111	for (cv = flayer->l_cvlist; cv; cv = cv->c_lnext) \
112	cv->c_layer = flayer; \	112	cv->c_layer = flayer; \

Lines 515-521 Link Here

(-)screen.orig/list_window.c (-1 / +1 lines)
515		515
516	if (onblank)	516	if (onblank)
517	{	517	{
518	debug3("flayer %p %d %x\n", flayer, flayer->l_width, flayer->l_height);	518	debug3("flayer %x %d %x\n", flayer, flayer->l_width, flayer->l_height);
519	if (!display)	519	if (!display)
520	{	520	{
521	LMsg(0, "windowlist -b: display required");	521	LMsg(0, "windowlist -b: display required");





  if ((fp = secfopen("/proc/loadavg", "r")) == NULL)
    return 0;
  *buf = 0;
  fgets(buf, sizeof(buf), fp);
  fclose(fp);
  if (s == NULL)
    return 0;
  /* can't use fscanf because the decimal point symbol depends on
   * the locale but the kernel uses always '.'.
   */
  s = buf;
  for (i = 0; i < (LOADAV_NUM > 3 ? 3 : LOADAV_NUM); i++)
    {
      d = e = 0;




	sched.c teln.c nethack.c encoding.c canvas.c layout.c viewport.c \
	list_display.c list_generic.c list_window.c
OFILES=	screen.o ansi.o fileio.o mark.o misc.o resize.o socket.o \
	search.o tty.o term.o window.o utmp.o loadav.o putenv.o help.o \
	termcap.o input.o attacher.o pty.o process.o display.o comm.o \
	kmapdef.o acls.o braille.o braille_tsi.o logfile.o layer.o \
	list_generic.o list_display.o list_window.o \

	-if [ -f $(DESTDIR)$(bindir)/screen ] && [ ! -f $(DESTDIR)$(bindir)/screen.old ]; then mv $(DESTDIR)$(bindir)/screen $(DESTDIR)$(bindir)/screen.old; fi
	rm -f $(DESTDIR)$(bindir)/screen
	(cd $(DESTDIR)$(bindir) && ln -f -s $(SCREEN) screen)
	cp $(srcdir)/utf8encodings/?? $(DESTDIR)$(SCREENENCODINGS)

###############################################################################
install: installdirs install_bin
	cd doc ; $(MAKE) install
	-if [ -d $(DESTDIR)/usr/lib/terminfo ]; then \
		PATH="$$PATH:/usr/5bin" tic ${srcdir}/terminfo/screeninfo.src; \
		chmod 644 $(DESTDIR)/usr/lib/terminfo/s/screen*; \
	fi
# Better do this by hand. E.g. under RCS...
#	cat ${srcdir}/terminfo/screencap >> /etc/termcap
	@echo "termcap entry (${srcdir}/terminfo/screencap) should be installed manually."


installdirs:
# Path leading to ETCSCREENRC and Socketdirectory not checked.
	$(srcdir)/etc/mkinstalldirs $(DESTDIR)$(bindir) $(DESTDIR)$(SCREENENCODINGS)
	cd doc ; $(MAKE) installdirs

uninstall: .version




 * !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 */

static int  is_letter __P((char));
static void nextword __P((int *, int *, int, int));
static int  linestart __P((int));
static int  lineend __P((int));
static int  rem __P((int, int, int, int, int, char *, int));
static int  eq __P((int, int));
static int  MarkScrollDownDisplay __P((int));
static int  MarkScrollUpDisplay __P((int));


int pastefont = 1;
#endif

struct LayFuncs MarkLf = {
	MarkProcess,
	MarkAbort,
	MarkRedisplayLine,
	DefClearLine,
	MarkRewrite,
	DefResize,
	DefRestore,
	0
  0
};

int join_with_cr = 0;
int compacthist = 0;

unsigned char mark_key_tab[256]; /* this array must be initialised first! */

static struct markdata *markdata;


/*
 * VI like is_letter: 0 - whitespace
 *                    1 - letter
 *                    2 - other
 */
static int
is_letter(char c)
{
	if ((c >= 'a' && c <= 'z') ||
	    (c >= 'A' && c <= 'Z') ||
	    (c >= '0' && c <= '9') ||
	    c == '_' || c == '.' ||
	    c == '@' || c == ':' ||
	    c == '%' || c == '!' ||
	    c == '-' || c == '+')
    /* thus we can catch email-addresses as a word :-) */
		return 1;
	else if (c != ' ')
		return 2;
	return 0;
}

static int
linestart(int y)
int y;
{
	register int x;
	register unsigned char *i;

	for (x = markdata->left_mar, i = WIN(y)->image + x; x < fore->w_width - 1; x++)
		if (*i++ != ' ')
			break;
	if (x == fore->w_width - 1)
		x = markdata->left_mar;
	return x;
}

static int
lineend(int y)
int y;
{
	register int x;
	register unsigned char *i;

	for (x = markdata->right_mar, i = WIN(y)->image + x; x >= 0; x--)
		if (*i-- != ' ')
			break;
	if (x < 0)
		x = markdata->left_mar;
	return x;
}

/*

static int
nextchar(int *xp, int *yp, int direction, char target, int num)
{
	int width;            /* width of the current window. */
	int x;                /* x coordinate of the current cursor position. */
	int step;             /* amount to increment x (+1 or -1) */
	int adjust;           /* Final adjustment of cursor position. */
	char *displayed_line; /* Line in which search takes place. */

	debug("nextchar\n");

	x = *xp;
	step = 1;
	adjust = 0;
	width = fore->w_width;
	displayed_line = (char *)WIN(*yp)->image;

	switch (direction) {
	case 't':
		adjust = -1; /* fall through */
	case 'f':
		step = 1;
		break;
	case 'T':
		adjust = 1; /* fall through */
	case 'F':
		step = -1;
		break;
	default:
		ASSERT(0);
	}

	x += step;

	debug1("ml->image = %s\n", displayed_line);
	debug2("num = %d, width = %d\n", num, width);
	debug2("x = %d target = %c\n", x, target);

	for (; x >= 0 && x <= width; x += step) {
		if (displayed_line[x] == target) {
			if (--num == 0) {
				*xp = x + adjust;
				return 0;
			}
		}
	}
	return -1;
}

/*

 *  NW_BIG:             match WORDs not words
 */

#define NW_BACK      (1<<0)
#define NW_ENDOFWORD (1<<1)
#define NW_MUSTMOVE  (1<<2)
#define NW_BIG       (1<<3)



static void
nextword(int *xp, int *yp, int flags, int num)
int *xp, *yp, flags, num;
{
	int xx = fore->w_width, yy = fore->w_histheight + fore->w_height;
	register int sx, oq, q, x, y;
	struct mline *ml;

	x = *xp;
	y = *yp;
	sx = (flags & NW_BACK) ? -1 : 1;
	if ((flags & NW_ENDOFWORD) && (flags & NW_MUSTMOVE))
		x += sx;
	ml = WIN(y);
	for (oq = -1;; x += sx, oq = q) {
		if (x >= xx || x < 0)
			q = 0;
		else if (flags & NW_BIG)
			q = ml->image[x] == ' ';
		else
			q = is_letter(ml->image[x]);

		if (oq >= 0 && oq != q) {
			if (oq == 0 || !(flags & NW_ENDOFWORD))
				*xp = x;
			else
				*xp = x - sx;
			*yp = y;

			if ((!(flags & NW_ENDOFWORD) && q) || ((flags & NW_ENDOFWORD) && oq)) {
				if (--num <= 0)
					return;
			}
		}

		if (x == xx) {
			x = -1;
			if (++y >= yy)
				return;
			ml = WIN(y);
		} else if (x < 0) {
			x = xx;
			if (--y < 0)
				return;
			ml = WIN(y);
		}
	  if (--y < 0)
	    return;
	  ml = WIN(y);
	}
    }
}


/*
 * y1, y2 are WIN coordinates
 *
 * redisplay: 0  -  just copy
 *            1  -  redisplay + copy
 *            2  -  count + copy, don't redisplay
 */

static int
rem(int x1, int y1, int x2, int y2, int redisplay, char *pt, int yend)
int x1, y1, x2, y2, redisplay, yend;
char *pt;
{
	int i, j, from, to, ry, c;
	int l = 0;
	unsigned char *im;
	struct mline *ml;
#ifdef FONT
	int cf, cfx, font;
	unsigned char *fo, *fox;
#endif

	markdata->second = 0;
	if (y2 < y1 || ((y2 == y1) && (x2 < x1))) {
		i = y2;
		y2 = y1;
		y1 = i;
		i = x2;
		x2 = x1;
		x1 = i;
	}
	ry = y1 - markdata->hist_offset;

	i = y1;
	if (redisplay != 2 && pt == 0 && ry < 0) {
		i -= ry;
		ry = 0;
	}
	for (; i <= y2; i++, ry++) {
		if (redisplay != 2 && pt == 0 && ry > yend)
			break;
		ml = WIN(i);
		from = (i == y1) ? x1 : 0;

		if (from < markdata->left_mar)
			from = markdata->left_mar;
		for (to = fore->w_width, im = ml->image + to; to >= 0; to--)
			if (*im-- != ' ')
				break;
		if (i == y2 && x2 < to)
			to = x2;
		if (to > markdata->right_mar)
			to = markdata->right_mar;
		if (redisplay == 1 && from <= to && ry >= 0 && ry <= yend)
			MarkRedisplayLine(ry, from, to, 0);
		if (redisplay != 2 && pt == 0)	/* don't count/copy */
			continue;
		j = from;
	continue;
      j = from;
#ifdef DW_CHARS
		if (dw_right(ml, j, fore->w_encoding))
			j--;
#endif
		im = ml->image + j;
#ifdef FONT
		fo = ml->font + j;
		fox = ml->fontx + j;
		font = ASCII;
#endif
		for (; j <= to; j++) {
			c = (unsigned char)*im++;
	  c = (unsigned char)*im++;
#ifdef FONT
			cf = (unsigned char)*fo++;
			cfx = (unsigned char)*fox++;
# ifdef UTF8
			if (fore->w_encoding == UTF8) {
				c |= cf << 8 | cfx << 16;
				if (c == UCS_HIDDEN)
					continue;
				c = ToUtf8_comb(pt, c);
				l += c;
				if (pt)
					pt += c;
				continue;
			}
	    }
# endif
# ifdef DW_CHARS
			if (is_dw_font(cf)) {
				c = c << 8 | (unsigned char)*im++;
				fo++;
				j++;
			}
	    }
# endif
			if (pastefont) {
				c = EncodeChar(pt, c | cf << 16, fore->w_encoding, &font);
				l += c;
				if (pt)
					pt += c;
				continue;
			}
	    }
#endif /* FONT */
			if (pt)
				*pt++ = c;
			l++;
		}
#ifdef FONT
		if (pastefont && font != ASCII) {
			if (pt) {
				strcpy(pt, "\033(B");
				pt += 3;
			}
			l += 3;
		}
	  l += 3;
	}
#endif
		if (i != y2 && (to != fore->w_width - 1 || ml->image[to + 1] == ' ')) {
			/*
			 * this code defines, what glues lines together
			 */
			switch (markdata->nonl) {
			case 0:		/* lines separated by newlines */
				if (pt)
					*pt++ = '\r';
				l++;
				if (join_with_cr) {
					if (pt)
						*pt++ = '\n';
					l++;
				}
				break;
			case 1:		/* nothing to separate lines */
				break;
			case 2:		/* lines separated by blanks */
				if (pt)
					*pt++ = ' ';
				l++;
				break;
			case 3:		/* seperate by comma, for csh junkies */
				if (pt)
					*pt++ = ',';
				l++;
				break;
			}
		}
	      break;
	    case 1:		/* nothing to separate lines */
	      break;
	    case 2:		/* lines separated by blanks */
	      if (pt)
		*pt++ = ' ';
	      l++;
	      break;
	    case 3:		/* seperate by comma, for csh junkies */
	      if (pt)
	        *pt++ = ',';
	      l++;
	      break;
	    }
	}
	return l;
  return l;
}

/* Check if two chars are identical. All digits are treated

 */

static int
eq(int a, int b)
int a, b;
{
	if (a == b)
		return 1;
	if (a == 0 || b == 0)
		return 1;
	if (a <= '9' && a >= '0' && b <= '9' && b >= '0')
		return 1;
	return 0;
}


/**********************************************************************/

int
GetHistory()	/* return value 1 if copybuffer changed */
{
	int i = 0, q = 0, xx, yy, x, y;
	unsigned char *linep;
	struct mline *ml;

	ASSERT(display && fore);
	x = fore->w_x;
	if (x >= fore->w_width)
		x = fore->w_width - 1;
	y = fore->w_y + fore->w_histheight;
	debug2("cursor is at x=%d, y=%d\n", x, y);
	ml = WIN(y);
	for (xx = x - 1, linep = ml->image + xx; xx >= 0; xx--)
		if ((q = *linep--) != ' ')
			break;
	debug3("%c at (%d,%d)\n", q, xx, y);
	for (yy = y - 1; yy >= 0; yy--) {
		ml = WIN(yy);
		linep = ml->image;
		if (xx < 0 || eq(linep[xx], q)) {		/* line is matching... */
			for (i = fore->w_width - 1, linep += i; i >= x; i--)
				if (*linep-- != ' ')
					break;
			if (i >= x)
				break;
		}
	}
	if (yy < 0)
		return 0;
	if (D_user->u_plop.buf)
		UserFreeCopyBuffer(D_user);
	if ((D_user->u_plop.buf = (char *)malloc((unsigned)(i - x + 2))) ==
	    NULL) {
		LMsg(0, "Not enough memory... Sorry.");
		return 0;
	}
	bcopy((char *)linep - i + x + 1, D_user->u_plop.buf, i - x + 1);
	D_user->u_plop.len = i - x + 1;
  bcopy((char *)linep - i + x + 1, D_user->u_plop.buf, i - x + 1);
  D_user->u_plop.len = i - x + 1;
#ifdef ENCODINGS
	D_user->u_plop.enc = fore->w_encoding;
#endif
	return 1;
}

/**********************************************************************/

void
MarkRoutine()
{
	int x, y;

	ASSERT(fore && display && D_user);

	debug2("MarkRoutine called: fore nr %d, display %s\n", fore->w_number, D_usertty);
         fore->w_number, D_usertty);

	if (InitOverlayPage(sizeof(*markdata), &MarkLf, 1))
		return;
	flayer->l_encoding = fore->w_encoding;
	flayer->l_mode = 1;
	markdata = (struct markdata *)flayer->l_data;
	markdata->md_user = D_user;	/* XXX: Correct? */
	markdata->md_window = fore;
	markdata->second = 0;
	markdata->rep_cnt = 0;
	markdata->append_mode = 0;
	markdata->write_buffer = 0;
	markdata->nonl = 0;
	markdata->left_mar = 0;
	markdata->right_mar = fore->w_width - 1;
	markdata->hist_offset = fore->w_histheight;
	x = fore->w_x;
	y = D2W(fore->w_y);
	if (x >= fore->w_width)
		x = fore->w_width - 1;

	LGotoPos(flayer, x, W2D(y));
	LMsg(0, "Copy mode - Column %d Line %d(+%d) (%d,%d)", x + 1, W2D(y + 1), fore->w_histheight, fore->w_width, fore->w_height);
	markdata->cx = markdata->x1 = x;
	markdata->cy = markdata->y1 = y;
	flayer->l_x = x;
	flayer->l_y = W2D(y);
  flayer->l_y = W2D(y);
}

static void
MarkProcess(char **inbufp, int *inlenp)
char **inbufp;
int *inlenp;
{
	char *inbuf, *pt;
	int inlen;
	int cx, cy, x2, y2, j, yend;
	int newcopylen = 0, od;
	int in_mark;
	int rep_cnt;
	struct acluser *md_user;

/*
  char *extrap = 0, extrabuf[100];
*/

	markdata = (struct markdata *)flayer->l_data;
	fore = markdata->md_window;
	md_user = markdata->md_user;
	if (inbufp == 0) {
		MarkAbort();
		return;
	}

	LGotoPos(flayer, markdata->cx, W2D(markdata->cy));
	inbuf = *inbufp;
	inlen = *inlenp;
	pt = inbuf;
	in_mark = 1;
	while (in_mark && (inlen /* || extrap */)) {
		unsigned char ch = (unsigned char)*pt++;
		inlen--;
		if (flayer->l_mouseevent.start) {
			int r = LayProcessMouse(flayer, ch);
			if (r == -1)
				LayProcessMouseSwitch(flayer, 0);
			else {
				if (r)
					ch = 0222;
				else
					continue;
			}
		}
		od = mark_key_tab[(int)ch];
		rep_cnt = markdata->rep_cnt;
		if (od >= '0' && od <= '9' && !markdata->f_cmd.flag) {
			if (rep_cnt < 1001 && (od != '0' || rep_cnt != 0)) {
				markdata->rep_cnt = 10 * rep_cnt + od - '0';
				continue;
      if (od >= '0' && od <= '9' && !markdata->f_cmd.flag)
        {
	  if (rep_cnt < 1001 && (od != '0' || rep_cnt != 0))
	    {
	      markdata->rep_cnt = 10 * rep_cnt + od - '0';
	      continue;
 	      /*
	       * Now what is that 1001 here? Well, we have a screen with
	       * 25 * 80 = 2000 characters. Movement is at most across the full

	       * words, as they should be more advanced. jw.
	       * Oh, wrong. We still give even the experienced user a factor of ten.
	       */
			}
		}
		cx = markdata->cx;
		cy = markdata->cy;

		if (markdata->f_cmd.flag) {
			debug2("searching for %c:%d\n", od, rep_cnt);
			markdata->f_cmd.flag = 0;
			markdata->rep_cnt = 0;

			if (isgraph(od)) {
				markdata->f_cmd.target = od;
				rep_cnt = (rep_cnt) ? rep_cnt : 1;
				nextchar(&cx, &cy, markdata->f_cmd.direction, od, rep_cnt);
				revto(cx, cy);
				continue;
			}
		}

processchar:
		switch (od) {
		case 'f': /* fall through */
		case 'F': /* fall through */
		case 't': /* fall through */
		case 'T': /* fall through */
	case 'T': /* fall through */
	  /*
	   * Set f_cmd to do a search on the next key stroke.
	   * If we break, rep_cnt will be reset, so we

	   * break here so later followon code will be
	   * hit.
	   */
			markdata->f_cmd.flag = 1;
			markdata->f_cmd.direction = od;
			debug("entering char search\n");
			continue;
		case ';':
		case ',':
			if (!markdata->f_cmd.target)
				break;
			if (!rep_cnt)
				rep_cnt = 1;
			nextchar(&cx,
			         &cy,
			         od == ';' ? markdata->f_cmd.direction : (markdata->f_cmd.direction ^ 0x20),
			         markdata->f_cmd.target,
			         rep_cnt);
			         revto(cx, cy);
			break;
		case 'o':
		case 'x':
			if (!markdata->second)
				break;
			markdata->cx = markdata->x1;
			markdata->cy = markdata->y1;
			markdata->x1 = cx;
			markdata->y1 = cy;
			revto(markdata->cx, markdata->cy);
			break;
		case '\014':	/* CTRL-L Redisplay */
			Redisplay(0);
			LGotoPos(flayer, cx, W2D(cy));
			break;
		case 0202:	/* M-C-b */
		case '\010':	/* CTRL-H Backspace */
		case 'h':
			if (rep_cnt == 0)
				rep_cnt = 1;
			revto(cx - rep_cnt, cy);
			break;
		case 0216:	/* M-C-p */
		case '\016':	/* CTRL-N */
		case 'j':
			if (rep_cnt == 0)
				rep_cnt = 1;
			revto(cx, cy + rep_cnt);
			break;
		case '+':
			if (rep_cnt == 0)
				rep_cnt = 1;
			j = cy + rep_cnt;
			if (j > fore->w_histheight + fore->w_height - 1)
				j = fore->w_histheight + fore->w_height - 1;
			revto(linestart(j), j);
			break;
		case '-':
			if (rep_cnt == 0)
				rep_cnt = 1;
			cy -= rep_cnt;
			if (cy < 0)
				cy = 0;
			revto(linestart(cy), cy);
			break;
		case '^':
			revto(linestart(cy), cy);
			break;
		case '\n':
			revto(markdata->left_mar, cy + 1);
			break;
		case 0220:	/* M-C-p */
		case '\020':	/* CTRL-P */
		case 'k':
			if (rep_cnt == 0)
				rep_cnt = 1;
			revto(cx, cy - rep_cnt);
			break;
		case 0206:	/* M-C-f */
		case 'l':
			if (rep_cnt == 0)
				rep_cnt = 1;
			revto(cx + rep_cnt, cy);
			break;
		case '\001':	/* CTRL-A from tcsh/emacs */
		case '0':
			revto(markdata->left_mar, cy);
			break;
		case '\004':    /* CTRL-D down half screen */
			if (rep_cnt == 0)
				rep_cnt = (fore->w_height + 1) >> 1;
			revto_line(cx, cy + rep_cnt, W2D(cy));
			break;
		case '$':
			revto(lineend(cy), cy);
			break;
		case '\022':	/* CTRL-R emacs style backwards search */
			ISearch(-1);
			in_mark = 0;
			break;
		case '\023':	/* CTRL-S emacs style search */
			ISearch(1);
			in_mark = 0;
			break;
		case '\025':	/* CTRL-U up half screen */
			if (rep_cnt == 0)
				rep_cnt = (fore->w_height + 1) >> 1;
			revto_line(cx, cy - rep_cnt, W2D(cy));
			break;
		case '\007':	/* CTRL-G show cursorpos */
			if (markdata->left_mar == 0 && markdata->right_mar == fore->w_width - 1)
				LMsg(0, "Column %d Line %d(+%d)", cx + 1, W2D(cy) + 1, markdata->hist_offset);
			else
				LMsg(0, "Column %d(%d..%d) Line %d(+%d)",
				    cx + 1, markdata->left_mar + 1,
				    markdata->right_mar + 1, W2D(cy) + 1,
				    markdata->hist_offset);
			break;
		case '\002':	/* CTRL-B  back one page */
			if (rep_cnt == 0)
				rep_cnt = 1;
			rep_cnt *= fore->w_height;
			revto(cx, cy - rep_cnt);
			break;
		case '\006':	/* CTRL-F  forward one page */
			if (rep_cnt == 0)
				rep_cnt = 1;
			rep_cnt *= fore->w_height;
			revto(cx, cy + rep_cnt);
			break;
		case '\005':	/* CTRL-E  scroll up */
			if (rep_cnt == 0)
				rep_cnt = 1;
			rep_cnt = MarkScrollUpDisplay(rep_cnt);
			if (cy < D2W(0))
				revto(cx, D2W(0));
			else
				LGotoPos(flayer, cx, W2D(cy));
			break;
		case '\031': /* CTRL-Y  scroll down */
			if (rep_cnt == 0)
				rep_cnt = 1;
			rep_cnt = MarkScrollDownDisplay(rep_cnt);
			if (cy > D2W(fore->w_height - 1))
				revto(cx, D2W(fore->w_height - 1));
			else
				LGotoPos(flayer, cx, W2D(cy));
			break;
		case '@':
	  /* it may be useful to have a key that does nothing */
			break;
		case '%':
	  /* rep_cnt is a percentage for the history buffer */
			if (rep_cnt < 0)
				rep_cnt = 0;
			if (rep_cnt > 100)
				rep_cnt = 100;

			revto_line(markdata->left_mar,
			    fore->w_histheight - fore->w_scrollback_height +
			    (int)(rep_cnt * (fore->w_scrollback_height +
			    fore->w_height) / 100.0), (fore->w_height - 1) / 2);
			break;
		case 0201:
		case 'g':
			rep_cnt = 1;
	  /* FALLTHROUGH */
		case 0205:
		case 'G':
	  /* rep_cnt is here the WIN line number */
			if (rep_cnt == 0)
				rep_cnt = fore->w_histheight + fore->w_height;
			revto_line(markdata->left_mar, --rep_cnt, (fore->w_height - 1) / 2);
			break;
		case 'H':
			revto(markdata->left_mar, D2W(0));
			break;
		case 'M':
			revto(markdata->left_mar, D2W((fore->w_height - 1) / 2));
			break;
		case 'L':
			revto(markdata->left_mar, D2W(fore->w_height - 1));
			break;
		case '|':
			revto(--rep_cnt, cy);
			break;
		case 'w':
			if (rep_cnt == 0)
				rep_cnt = 1;
			nextword(&cx, &cy, NW_MUSTMOVE, rep_cnt);
			revto(cx, cy);
			break;
		case 'e':
		case 'E':
			if (rep_cnt == 0)
				rep_cnt = 1;
			nextword(&cx, &cy, NW_ENDOFWORD|NW_MUSTMOVE | (od == 'E' ? NW_BIG : 0), rep_cnt);
			revto(cx, cy);
			break;
		case 'b':
		case 'B':
			if (rep_cnt == 0)
				rep_cnt = 1;
			nextword(&cx, &cy, NW_BACK|NW_ENDOFWORD|NW_MUSTMOVE | (od == 'B' ? NW_BIG : 0), rep_cnt);
			revto(cx, cy);
			break;
		case 'a':
			markdata->append_mode = 1 - markdata->append_mode;
			debug1("append mode %d--\n", markdata->append_mode);
			LMsg(0, (markdata->append_mode) ? ":set append" : ":set noappend");
			break;
		case 'v':
		case 'V':
	  /* this sets start column to column 9 for VI :set nu users */
			if (markdata->left_mar == 8)
				rep_cnt = 1;
			else
				rep_cnt = 9;
	  /* FALLTHROUGH */
		case 'c':
		case 'C':
	  /* set start column (c) and end column (C) */
			if (markdata->second) {
				rem(markdata->x1, markdata->y1, cx, cy, 1, (char *)0, fore->w_height - 1); /* Hack */
				markdata->second = 1;	/* rem turns off second */
			}
			rep_cnt--;
			if (rep_cnt < 0)
				rep_cnt = cx;
			if (od != 'C') {
				markdata->left_mar = rep_cnt;
				if (markdata->left_mar > markdata->right_mar)
					markdata->left_mar = markdata->right_mar;
			} else {
				markdata->right_mar = rep_cnt;
				if (markdata->left_mar > markdata->right_mar)
					markdata->right_mar = markdata->left_mar;
			}
			if (markdata->second) {
				markdata->cx = markdata->x1;
				markdata->cy = markdata->y1;
				revto(cx, cy);
			}
			if (od == 'v' || od == 'V')
				LMsg(0, (markdata->left_mar != 8) ? ":set nonu" : ":set nu");
			break;
		case 'J':
		/* how do you join lines in VI ? */
			markdata->nonl = (markdata->nonl + 1) % 4;
			switch (markdata->nonl) {
			case 0:
				if (join_with_cr)
					LMsg(0, "Multiple lines (CR/LF)");
				else
					LMsg(0, "Multiple lines (LF)");
				break;
			case 1:
				LMsg(0, "Lines joined");
				break;
			case 2:
				LMsg(0, "Lines joined with blanks");
				break;
			case 3:
				LMsg(0, "Lines joined with comma");
				break;
			}
			break;
		case '/':
			Search(1);
			in_mark = 0;
			break;
		case '?':
			Search(-1);
			in_mark = 0;
			break;
		case 'n':
			Search(0);
			break;
		case 'N':
			markdata->isdir = -markdata->isdir;
			Search(0);
			markdata->isdir = -markdata->isdir;
			break;
		case 'y':
		case 'Y':
			if (markdata->second == 0) {
				revto(linestart(cy), cy);
				markdata->second++;
				cx = markdata->x1 = markdata->cx;
				cy = markdata->y1 = markdata->cy;
			}
			if (--rep_cnt > 0)
				revto(cx, cy + rep_cnt);
			revto(lineend(markdata->cy), markdata->cy);
			if (od == 'y')
				break;
	    }
	  if (--rep_cnt > 0)
	    revto(cx, cy + rep_cnt);
	  revto(lineend(markdata->cy), markdata->cy);
	  if (od == 'y')
	    break;
	  /* FALLTHROUGH */
		case 'W':
			if (od == 'W') {
				if (rep_cnt == 0)
					rep_cnt = 1;
				if (!markdata->second) {
					nextword(&cx, &cy, NW_BACK|NW_ENDOFWORD, 1);
					revto(cx, cy);
					markdata->second++;
					cx = markdata->x1 = markdata->cx;
					cy = markdata->y1 = markdata->cy;
				}
				nextword(&cx, &cy, NW_ENDOFWORD, rep_cnt);
				revto(cx, cy);
			}
			cx = markdata->cx;
			cy = markdata->cy;
	  cx = markdata->cx;
	  cy = markdata->cy;
	  /* FALLTHROUGH */
		case 'A':
			if (od == 'A')
				markdata->append_mode = 1;
	  /* FALLTHROUGH */
		case '>':
			if (od == '>')
				markdata->write_buffer = 1;
	  /* FALLTHROUGH */
		case ' ':
		case '\r':
			if (!markdata->second) {
				markdata->second++;
				markdata->x1 = cx;
				markdata->y1 = cy;
				revto(cx, cy);
				LMsg(0, "First mark set - Column %d Line %d", cx + 1, W2D(cy) + 1);
				break;
			} else {
				int append_mode = markdata->append_mode;
				int write_buffer = markdata->write_buffer;

				x2 = cx;
				y2 = cy;
				newcopylen = rem(markdata->x1, markdata->y1, x2, y2, 2, (char *)0, 0); /* count */
				if (md_user->u_plop.buf && !append_mode)
					UserFreeCopyBuffer(md_user);
				yend = fore->w_height - 1;
				if (fore->w_histheight - markdata->hist_offset < fore->w_height) {
					markdata->second = 0;
					yend -= MarkScrollUpDisplay(fore->w_histheight - markdata->hist_offset);
				}
				if (newcopylen > 0) {
		  markdata->second = 0;
		  yend -= MarkScrollUpDisplay(fore->w_histheight - markdata->hist_offset);
		}
	      if (newcopylen > 0)
		{
		  /* the +3 below is for : cr + lf + \0 */
					if (md_user->u_plop.buf)
						md_user->u_plop.buf = realloc(md_user->u_plop.buf, (unsigned)(md_user->u_plop.len + newcopylen + 3));
					else {
						md_user->u_plop.len = 0;
						md_user->u_plop.buf = malloc((unsigned)(newcopylen + 3));
					}
					if (!md_user->u_plop.buf) {
						MarkAbort();
						in_mark = 0;
						LMsg(0, "Not enough memory... Sorry.");
						md_user->u_plop.len = 0;
						md_user->u_plop.buf = 0;
						break;
					}
					if (append_mode) {
						switch (markdata->nonl) {
		    }
		  if (append_mode)
		    {
		      switch (markdata->nonl)
			{
			/*
			 * this code defines, what glues lines together
			 */
						case 0:
							if (join_with_cr) {
								md_user->u_plop.buf[md_user->u_plop.len] = '\r';
								md_user->u_plop.len++;
							}
							md_user->u_plop.buf[md_user->u_plop.len] = '\n';
							md_user->u_plop.len++;
							break;
						case 1:
							break;
						case 2:
							md_user->u_plop.buf[md_user->u_plop.len] = ' ';
							md_user->u_plop.len++;
							break;
						case 3:
							md_user->u_plop.buf[md_user->u_plop.len] = ',';
							md_user->u_plop.len++;
							break;
						}
					}
					md_user->u_plop.len += rem(markdata->x1,
					                           markdata->y1,
					                           x2,
					                           y2,
					                           markdata->hist_offset == fore->w_histheight,
					                           md_user->u_plop.buf + md_user->u_plop.len,
					                           yend);
#ifdef ENCODINGS
					md_user->u_plop.enc = fore->w_encoding;
#endif
				}
				if (markdata->hist_offset != fore->w_histheight) {
					LAY_CALL_UP(LRefreshAll(flayer, 0));
				}
				ExitOverlayPage();
				WindowChanged(fore, 'P');

				if (append_mode)
					LMsg(0, "Appended %d characters to buffer", newcopylen);
				else
					LMsg(0, "Copied %d characters into buffer", md_user->u_plop.len);

				if (write_buffer)
					WriteFile(md_user, (char *)0, DUMP_EXCHANGE);
				in_mark = 0;
				break;
			}

	case 0222:
	  if (flayer->l_mouseevent.start)
	    {
	      int button = flayer->l_mouseevent.buffer[0];
	      if (button == 'a')
		{
		  /* Scroll down */
		  od = 'j';
		}
	      else if (button == '`')
		{
		  /* Scroll up */
		  od = 'k';
		}
	      else if (button == ' ')
		{
		  /* Left click */
		  cx = flayer->l_mouseevent.buffer[1];
		  cy = D2W(flayer->l_mouseevent.buffer[2]);
		  revto(cx, cy);
		  od = ' ';
		}
	      else
		od = 0;
	      LayProcessMouseSwitch(flayer, 0);
	      if (od)
		goto processchar;
	    }
	  else
	    LayProcessMouseSwitch(flayer, 1);
	  break;

		case 0222:
			if (flayer->l_mouseevent.start) {
				int button = flayer->l_mouseevent.buffer[0];
				if (button == 'a') {
					/* Scroll down */
					od = 'j';
				} else if (button == '`') {
					/* Scroll up */
					od = 'k';
				} else if (button == ' ') {
					/* Left click */
					cx = flayer->l_mouseevent.buffer[1];
					cy = D2W(flayer->l_mouseevent.buffer[2]);
					revto(cx, cy);
					od = ' ';
				} else
					od = 0;
				LayProcessMouseSwitch(flayer, 0);
				if (od)
					goto processchar;
			} else
				LayProcessMouseSwitch(flayer, 1);
			break;

		default:
			MarkAbort();
			LMsg(0, "Copy mode aborted");
			in_mark = 0;
			break;
		}
		if (in_mark)	/* markdata may be freed */
			markdata->rep_cnt = 0;
	}
	if (in_mark) {
		flayer->l_x = markdata->cx;
		flayer->l_y = W2D(markdata->cy);
	}
	*inbufp = pt;
	*inlenp = inlen;
}

void
revto(int tx, int ty)
{
	revto_line(tx, ty, -1);
}

/* tx, ty: WINDOW,  line: DISPLAY */
void
revto_line(int tx, int ty, int line)
{
	int fx, fy;
	int x, y, t, revst, reven, qq, ff, tt, st, en, ce = 0;
	int ystart = 0, yend = fore->w_height - 1;
	int i, ry;
	unsigned char *wi;
	struct mline *ml;
	struct mchar mc;

	if (tx < 0)
		tx = 0;
	else if (tx > fore->w_width - 1)
		tx = fore->w_width - 1;
	if (ty < fore->w_histheight - fore->w_scrollback_height)
		ty = fore->w_histheight - fore->w_scrollback_height;
	else if (ty > fore->w_histheight + fore->w_height - 1)
		ty = fore->w_histheight + fore->w_height - 1;

	fx = markdata->cx;
	fy = markdata->cy;

#ifdef DW_CHARS
	/* don't just move inside of a kanji, the user wants to see something */
	ml = WIN(ty);
	if (ty == fy && fx + 1 == tx && dw_right(ml, tx, fore->w_encoding) && tx < D_width - 1)
		tx++;
	if (ty == fy && fx - 1 == tx && dw_right(ml, fx, fore->w_encoding) && tx)
		tx--;
#endif

	markdata->cx = tx;
	markdata->cy = ty;

  /*
   * if we go to a position that is currently offscreen
   * then scroll the screen
   */
	i = 0;

	if (line >= 0 && line < fore->w_height)
		i = W2D(ty) - line;
	else if (ty < markdata->hist_offset)
		i = ty - markdata->hist_offset;
	else if (ty > markdata->hist_offset + (fore->w_height - 1))
		i = ty - markdata->hist_offset - (fore->w_height - 1);

	if (i > 0)
		yend -= MarkScrollUpDisplay(i);
	else if (i < 0)
		ystart += MarkScrollDownDisplay(-i);

	if (markdata->second == 0) {
		flayer->l_x = tx;
		flayer->l_y = W2D(ty);
		LGotoPos(flayer, tx, W2D(ty));
		return;
	}

	qq = markdata->x1 + markdata->y1 * fore->w_width;
	ff = fx + fy * fore->w_width; /* "from" offset in WIN coords */
	tt = tx + ty * fore->w_width; /* "to" offset  in WIN coords*/

	if (ff > tt) {
		st = tt;
		en = ff;
		x = tx;
		y = ty;
	} else {
		st = ff;
		en = tt;
		x = fx;
		y = fy;
	}

	if (st > qq) {
		st++;
		x++;
    en--;
  if (tt > qq)
    {
      revst = qq; reven = tt;
    }
  else
    {
      revst = tt; reven = qq;
    }
  ry = y - markdata->hist_offset;
  if (ry < ystart)
    {
      y += (ystart - ry);
      x = 0;
      st = y * fore->w_width;
      ry = ystart;
    }
  ml = WIN(y);
  for (t = st; t <= en; t++, x++)
    {
      if (x >= fore->w_width)
	{
	  x = 0;
	  y++, ry++;
	  ml = WIN(y);
	}
      if (ry > yend)
	break;
      if (t == st || x == 0)
	{
	  wi = ml->image + fore->w_width;
	  for (ce = fore->w_width; ce >= 0; ce--, wi--)
	    if (*wi != ' ')
	      break;
	}

	if (en < qq)
		en--;

	if (tt > qq) {
		revst = qq;
		reven = tt;
	} else {
		revst = tt;
		reven = qq;
	}
	ry = y - markdata->hist_offset;

	if (ry < ystart) {
		y += (ystart - ry);
		x = 0;
		st = y * fore->w_width;
		ry = ystart;
	}
	ml = WIN(y);

	for (t = st; t <= en; t++, x++) {
		if (x >= fore->w_width) {
			x = 0;
			y++, ry++;
			ml = WIN(y);
		}
		if (ry > yend)
			break;
		if (t == st || x == 0) {
			wi = ml->image + fore->w_width;
			for (ce = fore->w_width; ce >= 0; ce--, wi--)
				if (*wi != ' ')
					break;
		}

		if (x <= ce && x >= markdata->left_mar && x <= markdata->right_mar) {
#ifdef DW_CHARS
			if (dw_right(ml, x, fore->w_encoding)) {
				if (t == revst)
					revst--;
				t--;
				x--;
			}
	      }
#endif
			if (t >= revst && t <= reven) {
				mc = mchar_so;
	      mc = mchar_so;
#ifdef FONT
				if (pastefont) {
					mc.font = ml->font[x];
					mc.fontx = ml->fontx[x];
				}
		}
#endif
				mc.image = ml->image[x];
			} else
				copy_mline2mchar(&mc, ml, x);
	    copy_mline2mchar(&mc, ml, x);
#ifdef DW_CHARS
			if (dw_left(ml, x, fore->w_encoding)) {
				mc.mbcs = ml->image[x + 1];
				LPutChar(flayer, &mc, x, W2D(y));
				t++;
			}
	    }
#endif
			LPutChar(flayer, &mc, x, W2D(y));
#ifdef DW_CHARS
			if (dw_left(ml, x, fore->w_encoding))
				x++;
#endif
		}
	}
	flayer->l_x = tx;
	flayer->l_y = W2D(ty);
	LGotoPos(flayer, tx, W2D(ty));
  LGotoPos(flayer, tx, W2D(ty));
}

static void
MarkAbort()
{
	int yend, redisp;

	debug("MarkAbort\n");
	markdata = (struct markdata *)flayer->l_data;
	fore = markdata->md_window;
	yend = fore->w_height - 1;
	redisp = markdata->second;
	if (fore->w_histheight - markdata->hist_offset < fore->w_height) {
		markdata->second = 0;
		yend -= MarkScrollUpDisplay(fore->w_histheight - markdata->hist_offset);
	}
	if (markdata->hist_offset != fore->w_histheight) {
		LAY_CALL_UP(LRefreshAll(flayer, 0));
	} else {
		rem(markdata->x1, markdata->y1, markdata->cx, markdata->cy, redisp, (char *)0, yend);
	}
	ExitOverlayPage();
	WindowChanged(fore, 'P');
      rem(markdata->x1, markdata->y1, markdata->cx, markdata->cy, redisp, (char *)0, yend);
    }
  ExitOverlayPage();
  WindowChanged(fore, 'P');
}


static void
MarkRedisplayLine(int y, int xs, int xe, int isblank) /* NOTE: y is in DISPLAY coords system! */
int y;	/* NOTE: y is in DISPLAY coords system! */
int xs, xe;
int isblank;
{
	int wy, x, i, rm;
	int sta, sto, cp;                                 /* NOTE: these 3 are in WINDOW coords system */
	unsigned char *wi;
	struct mline *ml;
	struct mchar mchar_marked;

	if (y < 0)	/* No special full page handling */
		return;

	markdata = (struct markdata *)flayer->l_data;
	fore = markdata->md_window;

	mchar_marked = mchar_so;

	wy = D2W(y);
	ml = WIN(wy);

	if (markdata->second == 0) {
		if (dw_right(ml, xs, fore->w_encoding) && xs > 0)
			xs--;
		if (dw_left(ml, xe, fore->w_encoding) && xe < fore->w_width - 1)
			xe++;
		if (xs == 0 && y > 0 && wy > 0 && WIN(wy - 1)->image[flayer->l_width] == 0)
			LCDisplayLineWrap(flayer, ml, y, xs, xe, isblank);
		else
			LCDisplayLine(flayer, ml, y, xs, xe, isblank);
		return;
	}

	sta = markdata->y1 * fore->w_width + markdata->x1;
	sto = markdata->cy * fore->w_width + markdata->cx;
	if (sta > sto) {
		i = sta;
		sta = sto;
		sto = i;
	}
	cp = wy * fore->w_width + xs;

	rm = markdata->right_mar;
	for (x = fore->w_width, wi = ml->image + fore->w_width; x >= 0; x--, wi--)
		if (*wi != ' ')
			break;
	if (x < rm)
		rm = x;

	for (x = xs; x <= xe; x++, cp++)
		if (cp >= sta && x >= markdata->left_mar)
			break;
#ifdef DW_CHARS
	if (dw_right(ml, x, fore->w_encoding))
		x--;
#endif
	if (x > xs)
		LCDisplayLine(flayer, ml, y, xs, x - 1, isblank);
	for (; x <= xe; x++, cp++) {
		if (cp > sto || x > rm)
			break;
	break;
#ifdef FONT
		if (pastefont) {
			mchar_marked.font = ml->font[x];
			mchar_marked.fontx = ml->fontx[x];
		}
	}
#endif
		mchar_marked.image = ml->image[x];
#ifdef DW_CHARS
		mchar_marked.mbcs = 0;
		if (dw_left(ml, x, fore->w_encoding)) {
			mchar_marked.mbcs = ml->image[x + 1];
			cp++;
		}
	}
#endif
		LPutChar(flayer, &mchar_marked, x, y);
#ifdef DW_CHARS
		if (dw_left(ml, x, fore->w_encoding))
			x++;
#endif
	}
	if (x <= xe)
		LCDisplayLine(flayer, ml, y, x, xe, isblank);
}


/*
 * This ugly routine is to speed up GotoPos()
 */
static int
MarkRewrite(int ry, int xs, int xe, struct mchar *rend, int doit)
int ry, xs, xe, doit;
struct mchar *rend;
{
	int dx, x, y, st, en, t, rm;
	unsigned char *i;
	struct mline *ml;
	struct mchar mchar_marked;

	mchar_marked = mchar_so;

	debug3("MarkRewrite %d, %d-%d\n", ry, xs, xe);
	markdata = (struct markdata *)flayer->l_data;
	fore = markdata->md_window;
	y = D2W(ry);
	ml = WIN(y);
#ifdef UTF8
	if (fore->w_encoding && fore->w_encoding != UTF8 && D_encoding == UTF8 && ContainsSpecialDeffont(ml, xs, xe, fore->w_encoding))
		return EXPENSIVE;
#endif
	dx = xe - xs + 1;
	if (doit) {
		i = ml->image + xs;
		while (dx--)
			PUTCHAR(*i++);
		return 0;
	}

	if (markdata->second == 0)
		st = en = -1;
	else {
		st = markdata->y1 * fore->w_width + markdata->x1;
		en = markdata->cy * fore->w_width + markdata->cx;
		if (st > en) {
			t = st;
			st = en;
			en = t;
		}
	}
	t = y * fore->w_width + xs;
	for (rm = fore->w_width, i = ml->image + fore->w_width; rm >= 0; rm--)
		if (*i-- != ' ')
			break;
	if (rm > markdata->right_mar)
		rm = markdata->right_mar;
	x = xs;
	while (dx--) {
		if (t >= st && t <= en && x >= markdata->left_mar && x <= rm) {
    {
      if (t >= st && t <= en && x >= markdata->left_mar && x <= rm)
        {
#ifdef FONT
			if (pastefont) {
				mchar_marked.font = ml->font[x];
				mchar_marked.fontx = ml->fontx[x];
			}
	    }
#endif
			rend->image = mchar_marked.image;
			if (!cmp_mchar(rend, &mchar_marked))
				return EXPENSIVE;
		} else {
			rend->image = ml->image[x];
			if (!cmp_mchar_mline(rend, ml, x))
				return EXPENSIVE;
		}
		x++;
	}
	return xe - xs + 1;
    }
  return xe - xs + 1;
}


/*
 * scroll the screen contents up/down.
 */
static int
MarkScrollUpDisplay(int n)
{
	int i;

	debug1("MarkScrollUpDisplay(%d)\n", n);
	if (n <= 0)
		return 0;
	if (n > fore->w_histheight - markdata->hist_offset)
		n = fore->w_histheight - markdata->hist_offset;

	markdata->hist_offset += n;
	i = (n < flayer->l_height) ? n : (flayer->l_height);
	LScrollV(flayer, i, 0, flayer->l_height - 1, 0);
	while (i-- > 0)
		MarkRedisplayLine(flayer->l_height - i - 1, 0, flayer->l_width - 1, 1);
	return n;
}

static int
MarkScrollDownDisplay(int n)
int n;
{
	int i;

	debug1("MarkScrollDownDisplay(%d)\n", n);
	if (n <= 0)
		return 0;
	if (n > markdata->hist_offset)
		n = markdata->hist_offset;
	markdata->hist_offset -= n;
	i = (n < flayer->l_height) ? n : (flayer->l_height);
	LScrollV(flayer, -i, 0, fore->w_height - 1, 0);
	while (i-- > 0)
		MarkRedisplayLine(i, 0, flayer->l_width - 1, 1);
	return n;
}

void
MakePaster(struct paster *pa, char *buf, int len, int bufiscopy)
struct paster *pa;
char *buf;
int len;
int bufiscopy;
{
	FreePaster(pa);
	pa->pa_pasteptr = buf;
	pa->pa_pastelen = len;
	if (bufiscopy)
		pa->pa_pastebuf = buf;
	pa->pa_pastelayer = flayer;
	DoProcess(Layer2Window(flayer), &pa->pa_pasteptr, &pa->pa_pastelen, pa);
}

void
FreePaster(struct paster *pa)
struct paster *pa;
{
	if (pa->pa_pastebuf)
		free(pa->pa_pastebuf);
	pa->pa_pastebuf = 0;
	pa->pa_pasteptr = 0;
	pa->pa_pastelen = 0;
	pa->pa_pastelayer = 0;
	evdeq(&pa->pa_slowev);
}

#endif /* COPY_PASTE */




    f = rl.rlim_max;
  else
#endif /* SVR4 */
#if defined(SYSV) && defined(NOFILE) && !defined(ISC)
  f = sysconf(_SC_OPEN_MAX);
#elif defined(SYSV) && defined(NOFILE) && !defined(ISC)
  f = NOFILE;
  while (--f > 2)
    if (f != except)

    return 1;
  Usersigcld = signal(SIGCHLD, SIG_DFL);
  debug("UserContext: forking.\n");
  fflush(NULL);
  switch (UserPID = fork())
    {
    case -1:

Lines 27-33 Link Here

(-)screen.orig/NEWS.3.5 (-1 / +1 lines)
27	Please run the 'newsyntax' script on your old screenrc files!	27	Please run the 'newsyntax' script on your old screenrc files!
28		28
29	* Emacs style isearch added to copy mode. Try ^A ESC ^R screen ^R ^R	29	* Emacs style isearch added to copy mode. Try ^A ESC ^R screen ^R ^R
30	to locate the last three occurences of the word 'screen' in the	30	to locate the last three occurrences of the word 'screen' in the
31	history buffer.	31	history buffer.
32		32
33	* New command 'silence'. Alarms the user whenever there was inactivity	33	* New command 'silence'. Alarms the user whenever there was inactivity

Lines 95-100 Link Here

(-)screen.orig/osdef.h.in (-1 / +4 lines)
95	extern int setegid __P((int));	95	extern int setegid __P((int));
96	#endif	96	#endif
97		97
		98	extern char crypt __P((char , char *));
		99	extern int putenv __P((char *));
		100
98	extern int tgetent __P((char , char ));	101	extern int tgetent __P((char , char ));
99	extern char tgetstr __P((char , char **));	102	extern char tgetstr __P((char , char **));
100	extern int tgetnum __P((char *));	103	extern int tgetnum __P((char *));
Lines 108-114 Link Here
108	extern int setpgid __P((int, int));	111	extern int setpgid __P((int, int));
109	extern int tcsetpgrp __P((int, int));	112	extern int tcsetpgrp __P((int, int));
110	#endif	113	#endif
111	extern int ioctl __P((int, int, char *));	114	extern int ioctl __P((int, unsigned long, char *));
112		115
113	extern int kill __P((int, int));	116	extern int kill __P((int, int));
114		117

Lines 27-33 Link Here

(-)screen.orig/osdef.sh (-1 lines)
27	#ifdef linux	27	#ifdef linux
28	#include <string.h>	28	#include <string.h>
29	#include <stdlib.h>	29	#include <stdlib.h>
30	#include <unistd.h>
31	#endif	30	#endif
32	#include <sys/socket.h>	31	#include <sys/socket.h>
33	#ifndef NOSYSLOG	32	#ifndef NOSYSLOG

Lines 281-287 Link Here

(-)screen.orig/os.h (-1 / +1 lines)
281	# ifdef _PATH_UTMP	281	# ifdef _PATH_UTMP
282	# define UTMPFILE _PATH_UTMP	282	# define UTMPFILE _PATH_UTMP
283	# else	283	# else
284	# define UTMPFILE "/var/run/utmp"	284	# define UTMPFILE "/etc/utmp"
285	# endif /* _PATH_UTMP */	285	# endif /* _PATH_UTMP */
286	# endif	286	# endif
287	# endif	287	# endif

Lines 532-538 Link Here

(-)screen.orig/patchlevel.h (-2 / +2 lines)
532		532
533	#define ORIGIN "GNU"	533	#define ORIGIN "GNU"
534	#define REV 4	534	#define REV 4
535	#define VERS 8	535	#define VERS 9
536	#define PATCHLEVEL 0	536	#define PATCHLEVEL 0
537	#define DATE "05-Feb-20"	537	#define DATE "30-Jan-22"
538	#define STATE ""	538	#define STATE ""




#ifdef COPY_PASTE
    case RC_BUFFERFILE:
      if (*args == 0)
	BufferFile = SaveStr(DEFAULT_BUFFERFILE);
      else if (ParseSaveStr(act, &BufferFile))
        break;
      if (msgok)

static int
MoreWindows()
{
  char *m = "No other window.";
  if (windows && (fore == 0 || windows->w_next))
    return 1;
  if (fore == 0)

      Msg(0, "No window available");
      return 0;
    }
  Msg(0, m, fore->w_number);	/* other arg for nethack */
  return 0;
}


  if (ktab[(int)(unsigned char)*buf].nr != RC_POW_DETACH)
    {
      if (display)
        write(D_userfd, "\007", 1);
          ;
      Msg(0, "Detach aborted.");
    }
  else

Lines 31-36 Link Here

(-)screen.orig/pty.c (-5 / +6 lines)
31	#include <fcntl.h>	31	#include <fcntl.h>
32	#include <signal.h>	32	#include <signal.h>
33		33
		34	#if defined(__OpenBSD__)
		35	#include <utils.h> /* for openpty() */
		36	#endif
		37
34	#include "config.h"	38	#include "config.h"
35	#include "screen.h"	39	#include "screen.h"
36		40
Lines 77-86 Link Here
77	extern int eff_uid;	81	extern int eff_uid;
78		82
79	/* used for opening a new pty-pair: */	83	/* used for opening a new pty-pair: */
80	#ifndef HAVE_GETPT	84	static char PtyName[32], TtyName[32];
81	static char PtyName[32];
82	#endif
83	static char TtyName[32];
84		85
85	#if !(defined(sequent) \|\| defined(_SEQUENT_) \|\| defined(HAVE_SVR4_PTYS))	86	#if !(defined(sequent) \|\| defined(_SEQUENT_) \|\| defined(HAVE_SVR4_PTYS))
86	# ifdef hpux	87	# ifdef hpux
Lines 262-271 Link Here
262	#endif	263	#endif
263	sigret_t (*sigcld)__P(SIGPROTOARG);	264	sigret_t (*sigcld)__P(SIGPROTOARG);
264		265
		266	strcpy(PtyName, "/dev/ptmx");
265	#if defined(HAVE_GETPT) && (defined(linux) \|\| defined(__GLIBC__))	267	#if defined(HAVE_GETPT) && (defined(linux) \|\| defined(__GLIBC__))
266	if ((f = getpt()) == -1)	268	if ((f = getpt()) == -1)
267	#else	269	#else
268	strcpy(PtyName, "/dev/ptmx");
269	if ((f = open(PtyName, O_RDWR \| O_NOCTTY)) == -1)	270	if ((f = open(PtyName, O_RDWR \| O_NOCTTY)) == -1)
270	#endif	271	#endif
271	return -1;	272	return -1;




      he = MAXWIDTH;
    }

  if (wi > 1000)
    {
      Msg(0, "Window width too large, truncated");
      wi = 1000;
    }
  if (he > 1000)
    {
      Msg(0, "Window height too large, truncated");
      he = 1000;
    }

  if (p->w_width == wi && p->w_height == he && p->w_histheight == hi)
    {
      debug("ChangeWindowSize: No change.\n");




#endif

void
evenq(struct event *ev)
struct event *ev;
{
	struct event *evp, **evpp;
	debug3("New event fd %d type %d queued %d\n", ev -> fd, ev -> type, ev -> queued);
	if (ev->queued)
		return;
	evpp = &evs;
	if (ev->type == EV_TIMEOUT) {
		calctimeout = 1;
		evpp = &tevs;
	}
	for (; (evp = *evpp); evpp = &evp->next)
		if (ev->pri > evp->pri)
			break;
	ev->next = evp;
	*evpp = ev;
	ev->queued = 1;
  ev->queued = 1;
}

void
evdeq(struct event *ev)
struct event *ev;
{
	struct event *evp, **evpp;
	debug3("Deq event fd %d type %d queued %d\n", ev -> fd, ev -> type, ev -> queued);
	if (!ev->queued)
		return;
	evpp = &evs;
	if (ev->type == EV_TIMEOUT) {
		calctimeout = 1;
		evpp = &tevs;
	}
	for (; (evp = *evpp); evpp = &evp->next)
		if (evp == ev)
			break;
	ASSERT(evp);
	*evpp = ev->next;
	ev->queued = 0;
	if (ev == nextev)
		nextev = nextev->next;
    nextev = nextev->next;
}

static struct event *
calctimo()
{
	struct event *ev, *min;
	long mins;

	if ((min = tevs) == 0)
		return 0;
	mins = min->timeout.tv_sec;
	for (ev = tevs->next; ev; ev = ev->next) {
		ASSERT(ev->type == EV_TIMEOUT);
		if (mins < ev->timeout.tv_sec)
			continue;
		if (mins > ev->timeout.tv_sec || min->timeout.tv_usec > ev->timeout.tv_usec) {
			min = ev;
			mins = ev->timeout.tv_sec;
		}
	  mins = ev->timeout.tv_sec;
	}
	return min;
  return min;
}

void
sched()
{
	struct event *ev;
	fd_set r, w, *set;
	struct event *timeoutev = 0;
	struct timeval timeout;
	int nsel;

	for (;;) {
		if (calctimeout)
			timeoutev = calctimo();
		if (timeoutev) {
			gettimeofday(&timeout, NULL);
			/* tp - timeout */
			timeout.tv_sec = timeoutev->timeout.tv_sec - timeout.tv_sec;
			timeout.tv_usec = timeoutev->timeout.tv_usec - timeout.tv_usec;

			if (timeout.tv_usec < 0) {
				timeout.tv_usec += 1000000;
				timeout.tv_sec--;
			}
			if (timeout.tv_sec < 0) {
				timeout.tv_usec = 0;
				timeout.tv_sec = 0;
			}
		}
	      timeout.tv_sec = 0;
	    }
	}
#ifdef DEBUG
		debug("waiting for events");
		if (timeoutev)
			debug2(" timeout %d secs %d usecs", timeout.tv_sec, timeout.tv_usec);
		debug(":\n");
		for (ev = evs; ev; ev = ev->next)
			debug3(" - fd %d type %d pri %d\n", ev->fd, ev->type, ev->pri);
		if (tevs)
			debug("timed events:\n");
		for (ev = tevs; ev; ev = ev->next)
			debug3(" - pri %d sec %d usec %d\n", ev->pri,
			    ev->timeout.tv_sec, ev->timeout.tv_usec);
#endif

		FD_ZERO(&r);
		FD_ZERO(&w);
		for (ev = evs; ev; ev = ev->next) {
			if (ev->condpos && *ev->condpos <= (ev->condneg ? *ev->condneg : 0)) {
				debug2(" - cond ev fd %d type %d failed\n", ev->fd, ev->type);
				continue;
			}
			if (ev->type == EV_READ)
				FD_SET(ev->fd, &r);
			else if (ev->type == EV_WRITE)
				FD_SET(ev->fd, &w);
		}
        }

#ifdef DEBUG
		debug("readfds:");
		for (nsel = 0; nsel < FD_SETSIZE; nsel++)
			if (FD_ISSET(nsel, &r))
				debug1(" %d", nsel);
		debug("\n");
		debug("writefds:");
		for (nsel = 0; nsel < FD_SETSIZE; nsel++)
			if (FD_ISSET(nsel, &w))
				debug1(" %d", nsel);
		debug("\n");
#endif

		nsel = select(FD_SETSIZE, &r, &w, (fd_set *)0, timeoutev ? &timeout : (struct timeval *)0);
		if (nsel < 0) {
			if (errno != EINTR) {
	  if (errno != EINTR)
	    {
#if defined(sgi) && defined(SVR4)
				if (errno == EIO && sgihack())
					continue;
#endif
#if defined(__osf__) || defined(M_UNIX)
				/* OSF/1 3.x, SCO bug: EBADF */
				/* OSF/1 4.x bug: EIO */
				if ((errno == EIO || errno == EBADF) && sgihack())
					continue;
#endif
				Panic(errno, "select");
			}
			nsel = 0;
		} else if (nsel == 0) {		/* timeout */
			debug("TIMEOUT!\n");
			ASSERT(timeoutev);
			evdeq(timeoutev);
			timeoutev->handler(timeoutev, timeoutev->data);
		}
	  timeoutev->handler(timeoutev, timeoutev->data);
	}
#ifdef SELECT_BROKEN
      /*
       * Sequents select emulation counts a descriptor which is
       * readable and writeable only as one hit. Waaaaa.
       */
		if (nsel)
			nsel = 2 * FD_SETSIZE;
#endif

		for (ev = evs; ev; ev = nextev) {
			nextev = ev->next;
			if (ev->type != EV_ALWAYS) {
				set = ev->type == EV_READ ? &r : &w;
				if (nsel == 0 || !FD_ISSET(ev->fd, set))
					continue;
				nsel--;
			}
			if (ev->condpos &&
			    *ev->condpos <= (ev->condneg ? *ev->condneg : 0))
				continue;
			debug2(" + hit ev fd %d type %d!\n", ev->fd, ev->type);
			ev->handler(ev, ev->data);
		}
	}
    }
}

void
SetTimeout(struct event *ev, int timo)
{
	ASSERT(ev->type == EV_TIMEOUT);
	debug2("event %x new timeout %d ms\n", ev, timo);
	gettimeofday(&ev->timeout, NULL);
	ev->timeout.tv_sec += timo / 1000;
	ev->timeout.tv_usec += (timo % 1000) * 1000;

	if (ev->timeout.tv_usec > 1000000) {
		ev->timeout.tv_usec -= 1000000;
		ev->timeout.tv_sec++;
	}
	if (ev->queued)
		calctimeout = 1;
  if (ev->queued)
    calctimeout = 1;
}


#if (defined(sgi) && defined(SVR4)) || defined(__osf__) || defined(M_UNIX)
/* do we still need it?
                    @anaumov */
extern struct display *display, *displays;
static int
sgihack()
{
	fd_set r, w;
	struct timeval tv;

	debug("IRIX5.2 workaround: searching for bad display\n");
	for (display = displays; display;) {
		FD_ZERO(&r);
		FD_ZERO(&w);
		FD_SET(D_userfd, &r);
		FD_SET(D_userfd, &w);
		tv.tv_sec = tv.tv_usec = 0;
		if (select(FD_SETSIZE, &r, &w, (fd_set *)0, &tv) == -1) {
			if (errno == EINTR)
				continue;
			Hangup();	/* goodbye display */
			return 1;
		}
		display = display->d_next;
	}
	return 0;
    }
  return 0;
}

#endif




FILE *dfp;
#endif

char bufferfile[MAXPATHLEN];

extern char Term[], screenterm[], **environ, Termcap[];
int force_vt = 1;

static void  SigChldHandler __P((void));
static sigret_t SigChld __P(SIGPROTOARG);
static sigret_t SigInt __P(SIGPROTOARG);
#if 0
static sigret_t CoreDump __P(SIGPROTOARG);
#endif
static sigret_t FinitHandler __P(SIGPROTOARG);
static void  DoWait __P((void));
static void  serv_read_fn __P((struct event *, char *));


char HostName[MAXSTR];
int MasterPid, PanicPid;
int real_uid, real_gid, eff_uid, eff_gid;
int default_startup;
int ZombieKey_destroy, ZombieKey_resurrect, ZombieKey_onerror;
char *preselect = NULL;		/* only used in Attach() */

 */
#include "extern.h"

char strnomem[] = "Out of memory.";

static int InterruptPlease;
static int GotSigChld;

  timestring = SaveStr("%c:%s %M %d %H%? %l%?");
  wlisttit = SaveStr(" Num Name%=Flags");
  wliststr = SaveStr("%4n %t%=%f");
#ifdef COPY_PASTE
  BufferFile = SaveStr(DEFAULT_BUFFERFILE);
#endif
  ShellProg = NULL;
#ifdef POW_DETACH
  PowDetachString = 0;

  real_uid = getuid();
  real_gid = getgid();
  eff_uid = geteuid();
  eff_gid = getegid();

  logreopen_register(lf_secreopen);


              if (--ac == 0)
                exit_with_usage(myname, "Specify session-name with -S", NULL);
              SockMatch = *++av;
              debug1("SockMatch: '%s'\n", SockMatch);
              debug1("SockMatch len: '%d'\n", (int)strlen(SockMatch));
              if (strlen(SockMatch) > 80)
                exit_with_usage(myname, "Session-name is too long (max length is 80 symbols)", NULL);
            }
            if (!*SockMatch)
              exit_with_usage(myname, "Empty session-name?", NULL);

      break;
  }

#if 0
  if (eff_uid != real_uid)
    {
      /* if running with s-bit, we must install a special signal
       * handler routine that resets the s-bit, so that we get a
       * core file anyway.
       */
#ifdef SIGBUS /* OOPS, linux has no bus errors! */
  signal(SIGBUS, CoreDump);
#endif /* SIGBUS */
  signal(SIGSEGV, CoreDump);

#endif

#ifdef USE_LOCALE
  setlocale(LC_ALL, "");

#endif /* DEBUG */
    }

#ifdef COPY_PASTE
    snprintf(bufferfile, sizeof(bufferfile), "%s/.screen-exchange", home);
    BufferFile = SaveStr(bufferfile);
#endif

#ifdef _MODE_T
    oumask = umask(0);		/* well, unsigned never fails? jw. */
#else

      if (access(SockPath, F_OK)) {
        if (mkdir(SockPath, 0700) == -1 && errno != EEXIST)
          Panic(errno, "Cannot make directory '%s'", SockPath);
        (void) chown(SockPath, real_uid, real_gid);
      }
    }
#endif

    eexit(0);
  }
  signal(SIG_BYE, AttacherFinit);	/* prevent races */

  if (cmdflag) {

#ifdef MULTIUSER
    if (multi)
      real_uid = multi_uid;
#endif

    /* attach_tty is not mandatory */
    SetTtyname(false, &st);
    if (!*av)
      Panic(0, "Please specify a command.");
    if (!strncmp("sessionname", *av, 11)) {
      if (!*++av)
        Panic(0, "Please specify a parameter.");
      if (strlen(*av) > 80)
        Panic(0, "Parameter of command 'sessionname' is too long.");
    *--av;
    }
    SET_GUID();
    SendCmdMessage(sty, SockMatch, av, queryflag >= 0);
    exit(0);

  nwin_compose(&nwin_default, &nwin_options, &nwin_default);

  if (!detached || dflag != 2)
    MasterPid = fork();
      fflush(NULL);
      MasterPid = fork();
    }
  else
    MasterPid = 0;


  }
  else
    n = -1;
  freopen("/dev/null", "r", stdin);
  freopen("/dev/null", "w", stdout);
    const char devnull[] = "/dev/null";
    int nullfdr, nullfdw;

    if (fflush(NULL))
      Panic(errno, "Cannot flush stdio streams");

    nullfdr = open(devnull, O_RDONLY|O_NOCTTY|O_NOFOLLOW|O_NONBLOCK);
    if (nullfdr < 0)
      Panic(errno, "Cannot open '%s' for reading", devnull);

    nullfdw = open(devnull, O_WRONLY|O_NOCTTY|O_NOFOLLOW|O_NONBLOCK);
    if (nullfdw < 0)
      Panic(errno, "Cannot open '%s' for writing", devnull);

    if (dup2(nullfdr, fileno(stdin)) < 0)
      Panic(errno, "Cannot reditect '%s' to '%s'", "stdin", devnull);

    close(nullfdr);

    if (dup2(nullfdw, fileno(stdout)) < 0)
      Panic(errno, "Cannot reditect '%s' to '%s'", "stdout", devnull);

#ifdef DEBUG
  if (dfp != stderr)
#endif
  freopen("/dev/null", "w", stderr);
  debug("-- screen.back debug started\n");

    close(nullfdw);

    debug("-- screen.back debug started\n");
  }

  /*  This guarantees that the session owner is listed, even when we
   *  start detached. From now on we should not refer to 'LoginName'

  SIGRETURN;
}

#if 0
static sigret_t CoreDump SIGDEFARG
{
  /* if running with s-bit, we must reset the s-bit, so that we get a


  SIGRETURN;
}
#endif

static void DoWait()
{

{
  if (display == 0)
    return;
  debug1("Hangup %x\n", display);
  if (D_userfd >= 0) {
    close(D_userfd);
    D_userfd = -1;

#endif

#define	PROCESS_MESSAGE(B) do { \
    char *p = B;	\
    VA_LIST(ap)	\
    ssize_t len; \
    const int errlen = err ? 100 : 0; \
    VA_START(ap, fmt);	\
    fmt = DoNLS(fmt);	\
    (void)vsnprintf(p, sizeof(B) - 100, fmt, VA_ARGS(ap));	\
    VA_END(ap);	\
    if (len < 0) \
    { \
      strncpy(B, fmt, sizeof(B) - errlen);	\
      B[sizeof(B) - errlen - 1] = 0;	\
      len = strlen(B);	\
    } \
    if (err)	\
      {	\
	p += strlen(p);	\
	*p++ = ':';	\
	*p++ = ' ';	\
	strncpy(p, strerror(err), B + sizeof(B) - p - 1);	\
	B[sizeof(B) - 1] = 0;	\
      }	\
	} \
    } \
  } while (0)

DEFINE_VARARGS_FN(Msg)

    display = olddisplay;
  }
  else
    printf("%s\r\n", buf);
      ssize_t len = strlen(buf);
      if (write(fileno(stderr), buf, len) > 0)
	if (write(fileno(stderr), "\r\n", 2) > 0)
	  ;
    }

  if (queryflag >= 0)
    write(queryflag, buf, strlen(buf));

{
  char buf[MAXPATHLEN*2];
  PROCESS_MESSAGE(buf);
  ssize_t len = strlen(buf);

  debug3("Panic('%s'); display=%x displays=%x\n", buf, display, displays);
  if (displays == 0 && display == 0) {
    printf("%s\r\n", buf);
    if (PanicPid)
      Kill(PanicPid, SIG_BYE);
      if (PanicPid)
	Kill(PanicPid, SIG_BYE);
  }
  else if (displays == 0) {
      /* no displays but a display - must have forked.

#endif
      SetTTY(D_userfd, &D_OldMode);
      fcntl(D_userfd, F_SETFL, 0);
      write(D_userfd, buf, strlen(buf));
      write(D_userfd, "\n", 1);
          ;
      freetty();
      if (D_userpid)
        Kill(D_userpid, SIG_BYE);

      p += strlen(p) - 1;
      break;

#ifdef ENCODINGS
    case 'e':
      *p = 0;
      D_encoding = nwin_options.encoding > 0 ? nwin_options.encoding : 0;
      if (win && win->w_encoding) {
        *p++ = ' ';
        strcpy(p, EncodingName(win->w_encoding));
      }
      p += strlen(p) - 1;
      break;
#endif

    case '{':
    {
      char rbuf[128];

    else
      now.tv_sec += tick - (now.tv_sec % tick);
    ev->timeout = now;
    debug2("NEW timeout %d %d\n", ev->timeout.tv_sec, tick);
  }
  return winmsg_buf;
}



#ifdef PSEUDOS
      write(W_UWP(fore) ? fore->w_pwin->p_ptyfd : fore->w_ptyfd, &ibuf, 1);
      debug1("Backend wrote interrupt to %d", fore->w_number);
      debug1("%s\n", W_UWP(fore) ? " (pseudowin)" : "");
      }
#else
      write(fore->w_ptyfd, &ibuf, 1);
      debug1("Backend wrote interrupt to %d\n", fore->w_number);
      else
        debug1("Backend FAILED to write interrupt to %d\n", fore->w_number);
#endif
    }
    InterruptPlease = 0;




#include "layer.h"
#include "term.h"

extern char bufferfile[MAXPATHLEN];

#ifdef DEBUG
# define STATIC		/* a function that the debugger should see */

 */
#define MAXHISTHEIGHT		3000
#define DEFAULTHISTHEIGHT	100
#if defined(NAME_MAX) && NAME_MAX < 16
# define DEFAULT_BUFFERFILE     "/tmp/screen-xchg"
#else
# define DEFAULT_BUFFERFILE	"/tmp/screen-exchange"
#endif


#if defined(hpux) && !(defined(VSUSP) && defined(VDSUSP) && defined(VWERASE) && defined(VLNEXT))

#define SILENCE_FOUND   2 /* Window is silent */
#define SILENCE_DONE    3 /* Window is silent and user is notified */

extern char strnomem[];

/*
 * line modes used by Input()




 *  VI style Search
 */

static int  matchword __P((char*, int, int, int));
static void searchend __P((char*, int, char *));
static void backsearchend __P((char*, int, char *));

void
Search(int dir)
int dir;
{
	struct markdata *markdata;
	if (dir == 0) {
		markdata = (struct markdata *)flayer->l_data;
		if (markdata->isdir > 0)
			searchend(0, 0, NULL);
		else if (markdata->isdir < 0)
			backsearchend(0, 0, NULL);
		else
			LMsg(0, "No previous pattern");
	} else
		Input((dir > 0 ? "/" : "?"), sizeof(markdata->isstr) - 1,
		    INP_COOKED, (dir > 0 ? searchend : backsearchend), NULL, 0);
    Input((dir > 0 ? "/" : "?"), sizeof(markdata->isstr)-1, INP_COOKED,
          (dir > 0 ? searchend : backsearchend), NULL, 0);
}

static void
searchend(char *buf, int len, char *data)
char *buf;
int len;
char *data;	/* dummy */
{
	int x = 0, sx, ex, y;
	struct markdata *markdata;
	struct win *p;

	markdata = (struct markdata *)flayer->l_data;
	p = markdata->md_window;
	markdata->isdir = 1;
	if (len)
		strcpy(markdata->isstr, buf);
	sx = markdata->cx + 1;
	ex = flayer->l_width - 1;
	for (y = markdata->cy; y < p->w_histheight + flayer->l_height;
	    y++, sx = 0) {
		if ((x = matchword(markdata->isstr, y, sx, ex)) >= 0)
			break;
	}
	if (y >= p->w_histheight + flayer->l_height) {
		LGotoPos(flayer, markdata->cx, W2D(markdata->cy));
		LMsg(0, "Pattern not found");
	} else
		revto(x, y);
  else
    revto(x, y);
}

static void
backsearchend(char *buf, int len, char *data)
char *buf;
int len;
char *data;	/* dummy */
{
	int sx, ex, x = -1, y;
	struct markdata *markdata;

	markdata = (struct markdata *)flayer->l_data;
	markdata->isdir = -1;

	if (len)
		strcpy(markdata->isstr, buf);
	ex = markdata->cx - 1;

	for (y = markdata->cy; y >= 0; y--, ex = flayer->l_width - 1) {
		sx = 0;
		while ((sx = matchword(markdata->isstr, y, sx, ex)) >= 0)
			x = sx++;
		if (x >= 0)
			break;
	}
    {
      LGotoPos(flayer, markdata->cx, W2D(markdata->cy));
      LMsg(0, "Pattern not found");
    }
  else
    revto(x, y);
}

	if (y < 0) {
		LGotoPos(flayer, markdata->cx, W2D(markdata->cy));
		LMsg(0, "Pattern not found");
	} else
		revto(x, y);
}

/*
 * Search for a string that matches pattern.  The first character of the

 * or -1 if there's no match.
 */
static int
matchword(char *pattern, int y, int sx, int ex)
char *pattern;
int y, sx, ex;
{
	unsigned char *cp, *pp, *cpe;
	int cy;

	fore = ((struct markdata *)flayer->l_data)->md_window;

	for (; sx <= ex; sx++) {
		cy = y;
		cp = WIN(cy)->image + sx;
		cpe = WIN(cy)->image + flayer->l_width;
		pp = (unsigned char *)pattern;
		for (;;) {
			if (*cp != *pp)
				if (!search_ic || ((*cp ^ *pp) & 0xdf) ||
				    (*cp | 0x20) < 'a' || (*cp | 0x20) > 'z')
					break;
			cp++;
			pp++;
			if (*pp == 0)
				return sx;
			if (cp == cpe) {
		if (cp == cpe) {
		/*
		* We have a partial match, but we've hit
		* the end of this line.  Does it wrap onto
		* the following line?  If not, we're done.
		*/
				if (*cp == ' ' ||
				    cy >=
				    fore->w_histheight + flayer->l_height - 1)
					break;

		/*
		* This line does wrap, so look on the next
		* line for the rest of our match.
		*/
				cy++;
				cp = WIN(cy)->image;
				cpe = WIN(cy)->image + flayer->l_width;
			}
		}
	}
	return -1;
  return -1;
}


/********************************************************************
 *  Emacs style ISearch
 */

static char *isprompts[] = {
	"I-search backward: ", "failing I-search backward: ",
	"I-search: ", "failing I-search: "
};

static int  is_redo __P((struct markdata*));
static void is_process __P((char*, int, char *));
static int  is_bm __P((char*, int, int, int, int));
static int  is_bm __P((char *, int, int, int, int));


static int
is_bm(char *str, int l, int p, int end, int dir)
char *str;
int l, p, end, dir;
{
	int tab[256];
	int i, q;
	unsigned char *s, c;
	int w = flayer->l_width;

  /* *sigh* to make WIN work */
	fore = ((struct markdata *)flayer->l_next->l_data)->md_window;
	debug2("is_bm: searching for %s len %d\n", str, l);
	debug3("start at %d end %d dir %d\n", p, end, dir);

	if (p < 0 || p + l > end)
		return -1;
	if (l == 0)
		return p;
	if (dir < 0)
		str += l - 1;
	for (i = 0; i < 256; i++)
		tab[i] = l * dir;

	for (i = 0; i < l - 1; i++, str += dir) {
		q = *(unsigned char *)str;
		tab[q] = (l - 1 - i) * dir;
		if (search_ic && (q | 0x20) >= 'a' && ((q | 0x20) <= 'z'))
			tab[q ^ 0x20] = (l - 1 - i) * dir;
  if (dir > 0)
    p += l - 1;
  debug1("first char to match: %c\n", *str);
  while (p >= 0 && p < end)
    {
      q = p;
      s = (unsigned char *)str;
      for (i = 0;;)
	{
          c = (WIN(q / w))->image[q % w];
	  if (i == 0)
            p += tab[(int)(unsigned char) c];
	  if (c != *s)
	    if (!search_ic || ((c ^ *s) & 0xdf) || (c | 0x20) < 'a' || (c | 0x20) > 'z')
	      break;
	  q -= dir;
	  s -= dir;
	  if (++i == l)
	    return q + (dir > 0 ? 1 : -l);
	}
    }
  return -1;
}

	if (dir > 0)
		p += l - 1;

	debug1("first char to match: %c\n", *str);

	while (p >= 0 && p < end) {
		q = p;
		s = (unsigned char *)str;
		for (i = 0;;) {
			c = (WIN(q / w))->image[q % w];
			if (i == 0)
				p += tab[(int)(unsigned char)c];
			if (c != *s)
				if (!search_ic || ((c ^ *s) & 0xdf) ||
				    (c | 0x20) < 'a' || (c | 0x20) > 'z')
					break;
			q -= dir;
			s -= dir;
			if (++i == l)
				return q + (dir > 0 ? 1 : -l);
		}
	}
	return -1;
}

/*ARGSUSED*/
static void
is_process(char *p, int n, char *data)	/* i-search */
char *p;
int n;
char *data;	/* dummy */
{
	int pos, x, y, dir;
	struct markdata *markdata;

	if (n == 0)
		return;
	ASSERT(p);
	markdata = (struct markdata *)flayer->l_next->l_data;

	pos = markdata->cx + markdata->cy * flayer->l_width;
	LGotoPos(flayer, markdata->cx, W2D(markdata->cy));

	switch (*p) {
	case '\007':	/* CTRL-G */
		pos = markdata->isstartpos;
      pos = markdata->isstartpos;
      /*FALLTHROUGH*/
	case '\033':	/* ESC */
		*p = 0;
		break;
	case '\013':	/* CTRL-K */
	case '\027':	/* CTRL-W */
		markdata->isistrl = 1;
      /*FALLTHROUGH*/
	case '\b':
	case '\177':
		if (markdata->isistrl == 0)
			return;
		markdata->isistrl--;
		pos = is_redo(markdata);
		*p = '\b';
		break;
	case '\023':	/* CTRL-S */
	case '\022': 	/* CTRL-R */
		if (markdata->isistrl >= (int)sizeof(markdata->isistr))
			return;
		dir = (*p == '\023') ? 1 : -1;
		pos += dir;
		if (markdata->isdir == dir && markdata->isistrl == 0) {
			strcpy(markdata->isistr, markdata->isstr);
			markdata->isistrl = markdata->isstrl = strlen(markdata->isstr);
			break;
		}
		markdata->isdir = dir;
		markdata->isistr[markdata->isistrl++] = *p;
		break;
	default:
		if (*p < ' ' ||
		    markdata->isistrl >=
		    (int)sizeof(markdata->isistr) ||
		    markdata->isstrl >= (int)sizeof(markdata->isstr) - 1)
			return;
		markdata->isstr[markdata->isstrl++] = *p;
		markdata->isistr[markdata->isistrl++] = *p;
		markdata->isstr[markdata->isstrl] = 0;
		debug2("New char: %c - left %d\n", *p,
		    (int)sizeof(markdata->isistr) - markdata->isistrl);
	}
	if (*p && *p != '\b')
		pos = is_bm(markdata->isstr, markdata->isstrl, pos,
		    flayer->l_width *
		    (markdata->md_window->w_histheight + flayer->l_height),
		    markdata->isdir);
	if (pos >= 0) {
		x = pos % flayer->l_width;
		y = pos / flayer->l_width;
		LAY_CALL_UP(LayRedisplayLine(INPUTLINE, 0, flayer -> l_width - 1,
		0) ; revto(x, y) ; if(W2D(markdata -> cy) == INPUTLINE) revto_line(markdata
		-> cx, markdata -> cy, INPUTLINE > 0 ? INPUTLINE - 1 : 1) ;);
	}
	if (*p)
		inp_setprompt(isprompts[markdata->isdir + (pos < 0) + 1],
		    markdata->isstrl ? markdata->isstr : "");
	flayer->l_x = markdata->cx;
	flayer->l_y = W2D(markdata->cy);
	LGotoPos(flayer, flayer->l_x, flayer->l_y);
	if (!*p) {
	(
          LayRedisplayLine(INPUTLINE, 0, flayer->l_width - 1, 0);
          revto(x, y);
          if (W2D(markdata->cy) == INPUTLINE)
	    revto_line(markdata->cx, markdata->cy, INPUTLINE > 0 ? INPUTLINE - 1 : 1);
        );
    }
  if (*p)
    inp_setprompt(isprompts[markdata->isdir + (pos < 0) + 1], markdata->isstrl ? markdata->isstr : "");
  flayer->l_x = markdata->cx;
  flayer->l_y = W2D(markdata->cy);
  LGotoPos(flayer, flayer->l_x, flayer->l_y);
  if (!*p)
    {
      /* we are about to finish, keep cursor position */
		flayer->l_next->l_x = markdata->cx;
		flayer->l_next->l_y = W2D(markdata->cy);
	}
}

static int
is_redo(struct markdata *markdata)
struct markdata *markdata;
{
	int i, pos, npos, dir;
	char c;

	npos = pos = markdata->isstartpos;
	dir = markdata->isstartdir;
	markdata->isstrl = 0;

	for (i = 0; i < markdata->isistrl; i++) {
		c = markdata->isistr[i];
		if (c == '\022')		/* ^R */
			pos += (dir = -1);
		else if (c == '\023')	/* ^S */
			pos += (dir = 1);
		else
			markdata->isstr[markdata->isstrl++] = c;
		if (pos >= 0) {
			npos = is_bm(markdata->isstr, markdata->isstrl, pos,
			    flayer->l_width *
			    (markdata->md_window->w_histheight +
			     flayer->l_height), dir);
			if (npos >= 0)
				pos = npos;
		}
	}
	markdata->isstr[markdata->isstrl] = 0;
	markdata->isdir = dir;
	return npos;
  return npos;
}

void
ISearch(int dir)
int dir;
{
	struct markdata *markdata;

	markdata = (struct markdata *)flayer->l_data;
	markdata->isdir = markdata->isstartdir = dir;
	markdata->isstartpos = markdata->cx + markdata->cy * flayer->l_width;
	markdata->isistrl = markdata->isstrl = 0;

	if (W2D(markdata->cy) == INPUTLINE)
		revto_line(markdata->cx, markdata->cy,
		    INPUTLINE > 0 ? INPUTLINE - 1 : 1);

	Input(isprompts[dir + 1], sizeof(markdata->isstr) - 1, INP_RAW,
	    is_process, NULL, 0);

	LGotoPos(flayer, markdata->cx, W2D(markdata->cy));
	flayer->l_x = markdata->cx;
	flayer->l_y = W2D(markdata->cy);
}

#endif /* COPY_PASTE */




    }
  if (ndead && !quietflag)
    {
      char *m = "Remove dead screens with 'screen -wipe'.";
      if (wipeflag)
        Msg(0, "%d socket%s wiped out.", nwipe, nwipe > 1 ? "s" : "");
      else
        Msg(0, m, ndead > 1 ? "s" : "", ndead > 1 ? "" : "es");	/* other args for nethack */
    }
  if (firsts != -1)
    {

# ifdef USE_SETEUID
  (void) unlink(SockPath);
  if (mkfifo(SockPath, SOCKMODE) < 0)
    Panic(0, "mkfifo %s failed", SockPath);
#  ifdef BROKEN_PIPE
  s = open(SockPath, O_RDWR | O_NONBLOCK, 0);
#  else

  m.m_tty[sizeof(m.m_tty) - 1] = 0;
  m.protocol_revision = MSG_REVISION;
  debug1("SendErrorMsg(): writing to '%s'\n", SockPath);
  (void) write(s, (char *) &m, sizeof m);
    {
      close(s);
      return -1;
    }
  close(s);
  return 0;
}

    {
      char *oldrcname = rc_name;
      rc_name = "-X";
      debug3("Running command on display %x window %x (%d)\n", display, fore, fore ? fore->w_number : -1);
      flayer = fore ? &fore->w_layer : 0;
      if (fore && fore->w_savelayer && (fore->w_blocked || fore->w_savelayer->l_cvlist == 0))
	flayer = fore->w_savelayer;

Lines 280-286 Link Here

(-)screen.orig/teln.c (-3 / +3 lines)
280	break;	280	break;
281	}	281	}
282	if (l)	282	if (l)
283	memmove(p + 1, p, l);	283	bcopy(p, p + 1, l);
284	if (c == TC_IAC)	284	if (c == TC_IAC)
285	*p++ = c;	285	*p++ = c;
286	else if (c == '\r')	286	else if (c == '\r')
Lines 369-375 Link Here
369	if (free-- > 0)	369	if (free-- > 0)
370	{	370	{
371	if (len)	371	if (len)
372	memmove(rp + 1, rp, len);	372	bcopy(rp, rp + 1, len);
373	rp++;	373	rp++;
374	*wp++ = '\r';	374	*wp++ = '\r';
375	}	375	}
Lines 397-403 Link Here
397	Msg(0, "Warning: telnet protocol overrun!");	397	Msg(0, "Warning: telnet protocol overrun!");
398	return;	398	return;
399	}	399	}
400	memcpy(p->w_inbuf + p->w_inlen, str, len);	400	bcopy(str, p->w_inbuf + p->w_inlen, len);
401	p->w_inlen += len;	401	p->w_inlen += len;
402	}	402	}
403		403

Lines 1068-1074 Link Here

(-)screen.orig/termcap.c (-1 / +1 lines)
1068	{	1068	{
1069	if (i >= T_KEYPAD) /* don't put keypad codes in TERMCAP */	1069	if (i >= T_KEYPAD) /* don't put keypad codes in TERMCAP */
1070	continue; /* - makes it too big */	1070	continue; /* - makes it too big */
1071	#if (TERMCAP_BUF < 1024)	1071	#if (TERMCAP_BUFSIZE < 1024)
1072	if (i >= T_FEXTRA && i < T_BACKTAB) /* also skip extra vt220 keys */	1072	if (i >= T_FEXTRA && i < T_BACKTAB) /* also skip extra vt220 keys */
1073	continue;	1073	continue;
1074	if (i > T_BACKTAB && i < T_NAVIGATE) /* more vt220 keys */	1074	if (i > T_BACKTAB && i < T_NAVIGATE) /* more vt220 keys */




  slot_t slot;

  slot = wi->w_slot;
#ifdef GETUTENT
  debug1("RemoveUtmp slot=%p\n", slot);
#else
  debug1("RemoveUtmp slot=%#x\n", slot);
#endif
  if (!utmpok)
    return -1;
  if (slot == (slot_t)0 || slot == (slot_t)-1)

#ifdef HAVE_UTEMPTER
  if (eff_uid && wi && wi->w_ptyfd != -1)
    {
      /* sigh, linux hackers made the helper functions void */
      if (SLOT_USED(u))
	addToUtmp(wi->w_tty, host, wi->w_ptyfd);
      else
	removeLineFromUtmp(wi->w_tty, wi->w_ptyfd);
      return 1;	/* pray for success */
    }
#endif
  setutent();




  if (wp->w_type == W_TYPE_PTY)
    {
      /* pty 4 SALE */
      (void)chmod(wp->w_tty, 0666);
      (void)chown(wp->w_tty, 0, 0);
      if (fchmod(wp->w_ptyfd, 0666) < 0)
	;
    }
  close(wp->w_ptyfd);
  wp->w_ptyfd = -1;

      args = ShellArgs;
      proc = *args;
    }
  fflush(stdout);
  fflush(stderr);
  switch (pid = fork())
    {
    case -1:

#endif
      if (slave != -1)
	{
	  close(0);
	  dup(slave);
	  close(slave);
	  if (slave > 0)
	    close(slave);
	  closeallfiles(win->w_ptyfd);
	  slave = dup(0);
	    Panic(errno, "ForkWindow dup2");
	  if (slave > 0)
	    close(0);
	}
      else
        closeallfiles(win->w_ptyfd);

	}
      debug1("=== ForkWindow: pid %d\n", (int)getpid());
#endif
      /* Close the three /dev/null descriptors */
      close(0);
      close(1);
      close(2);
      newfd = -1;
      /*
       * distribute filedescriptors between the ttys
       */
      newfd = -1;
#ifdef PSEUDOS
      pat = pwin ? pwin->p_fdpat : 
		   ((F_PFRONT<<(F_PSHIFT*2)) | (F_PFRONT<<F_PSHIFT) | F_PFRONT);

		  if (newfd < 0)
		    Panic(errno, "Cannot open %s", ttyn);
		}
	      else
		dup(newfd);
	    }
	  else
	    {
	      dup(win->w_ptyfd);
		Panic(errno, "Cannot duplicate %s", win->w_tty);
	      wfdused = 1;
	    }
	}

# else
      newfd = open(ttyn, O_RDWR);
# endif
      if (newfd != 0)
	Panic(errno, "Cannot open %s", ttyn);
      dup(0);
      dup(0);
      if (dup2(newfd, 1) < 0)
	Panic(errno, "Cannot duplicate %s", ttyn);
      if (dup2(newfd, 2) < 0)
	Panic(errno, "Cannot duplicate %s", ttyn);
#endif /* PSEUDOS */
      close(win->w_ptyfd);
      if (slave != -1)
      if (slave > 2)
        close(slave);
      if (newfd >= 0)
	{

	  /* Always turn off nonblocking mode */
	  (void)fcntl(newfd, F_SETFL, 0);
	}
      if (newfd > 2)
	close(newfd);
#ifndef TIOCSWINSZ
      sprintf(libuf, "LINES=%d", h);
      sprintf(cobuf, "COLUMNS=%d", w);

    }
#endif
  /* should be able to use CloseDevice() here */
  (void)chmod(pwin->p_tty, 0666);
  (void)chown(pwin->p_tty, 0, 0);
  if (fchmod(pwin->p_ptyfd, 0666) < 0)
    ;
  if (pwin->p_ptyfd >= 0)
    close(pwin->p_ptyfd);
  evdeq(&pwin->p_readev);

Return to bug 46359

Lines 28-34 Link Here

(-)screen.orig/display.c (-49 / +15 lines)
28		28
29	#include <sys/types.h>	29	#include <sys/types.h>
30	#include <signal.h>	30	#include <signal.h>
31	#include <setjmp.h>
32	#include <fcntl.h>	31	#include <fcntl.h>
33	#ifndef sun	32	#ifndef sun
34	# include <sys/ioctl.h>	33	# include <sys/ioctl.h>
Lines 327-343 Link Here
327	return display;	326	return display;
328	}	327	}
329		328
330	static sigjmp_buf alarm_jump;
331
332	static sigret_t
333	FlushSigAlarm SIGDEFARG
334	{
335	#ifdef DEBUG
336	debug("FlushSigAlarm\n");
337	#endif
338	siglongjmp (alarm_jump, 1);
339	}
340
341		329
342	void	330	void
343	FreeDisplay()	331	FreeDisplay()
Lines 358-369 Link Here
358	Flush(3);	346	Flush(3);
359	if (!display)	347	if (!display)
360	return;	348	return;
361	if (sigsetjmp(alarm_jump,1)==0) {	349	SetTTY(D_userfd, &D_OldMode);
362	signal(SIGALRM, FlushSigAlarm);
363	alarm(10);
364	SetTTY(D_userfd, &D_OldMode);
365	alarm(0);
366	}
367	fcntl(D_userfd, F_SETFL, 0);	350	fcntl(D_userfd, F_SETFL, 0);
368	}	351	}
369	freetty();	352	freetty();
Lines 2332-2338 Link Here
2332	{	2315	{
2333	char *buf;	2316	char *buf;
2334	#ifdef UTF8	2317	#ifdef UTF8
2335	int extrabytes = strlen(hstatusstring) - strlen_onscreen(hstatusstring, NULL);	2318	int extrabytes = strlen(hstatusstring) - strlen_onscreen((unsigned char *)hstatusstring, NULL);
2336	#else	2319	#else
2337	int extrabytes = 0;	2320	int extrabytes = 0;
2338	#endif	2321	#endif
Lines 2435-2441 Link Here
2435	if (y == cv->c_ye + 1 && from >= cv->c_xs && from <= cv->c_xe)	2418	if (y == cv->c_ye + 1 && from >= cv->c_xs && from <= cv->c_xe)
2436	{	2419	{
2437	#ifdef UTF8	2420	#ifdef UTF8
2438	int extrabytes = strlen(captionstring) - strlen_onscreen(captionstring, NULL);	2421	int extrabytes = strlen(captionstring) - strlen_onscreen((unsigned char *)captionstring, NULL);
2439	#else	2422	#else
2440	int extrabytes = 0;	2423	int extrabytes = 0;
2441	#endif	2424	#endif
Lines 3040-3046 Link Here
3040	AddChar(' ');	3023	AddChar(' ');
3041	}	3024	}
3042		3025
3043
3044	void	3026	void
3045	Flush(progress)	3027	Flush(progress)
3046	int progress;	3028	int progress;
Lines 3092-3106 Link Here
3092	break;	3074	break;
3093	}	3075	}
3094	}	3076	}
3095	if (sigsetjmp (alarm_jump,1) == 0) {	3077	wr = write(D_userfd, p, l);
3096	signal(SIGALRM, FlushSigAlarm);
3097	alarm(10);
3098	wr = write(D_userfd, p, l);
3099	alarm(0);
3100	} else {
3101	debug1("Warning: We spent too long in flush: %d\n", errno);
3102	return;
3103	}
3104	if (wr <= 0)	3078	if (wr <= 0)
3105	{	3079	{
3106	if (errno == EINTR)	3080	if (errno == EINTR)
Lines 3208-3215 Link Here
3208	{	3182	{
3209	debug("display activity stopped sleep\n");	3183	debug("display activity stopped sleep\n");
3210	if (eat)	3184	if (eat)
3211	if (read(D_userfd, &buf, 1) < 1)	3185	read(D_userfd, &buf, 1);
3212	;
3213	}	3186	}
3214	debug2("DisplaySleep(%d) ending, eat was %d\n", n, eat);	3187	debug2("DisplaySleep(%d) ending, eat was %d\n", n, eat);
3215	}	3188	}
Lines 3432-3438 Link Here
3432	*/	3405	*/
3433	int size;	3406	int size;
3434	char bufspace[MAX_MOUSE_SEQUENCE + IOSIZE];	3407	char bufspace[MAX_MOUSE_SEQUENCE + IOSIZE];
3435	unsigned char *buf = bufspace + MAX_MOUSE_SEQUENCE;	3408	unsigned char buf = (unsigned char)bufspace + MAX_MOUSE_SEQUENCE;
3436		3409
3437	struct canvas *cv;	3410	struct canvas *cv;
3438		3411
Lines 3507-3513 Link Here
3507	if (p->w_zdisplay == display)	3480	if (p->w_zdisplay == display)
3508	{	3481	{
3509	flayer = &p->w_layer;	3482	flayer = &p->w_layer;
3510	bufp = buf;	3483	bufp = (char *)buf;
3511	while (size > 0)	3484	while (size > 0)
3512	LayProcess(&bufp, &size);	3485	LayProcess(&bufp, &size);
3513	return;	3486	return;
Lines 3790-3796 Link Here
3790	return;	3763	return;
3791	}	3764	}
3792	#endif	3765	#endif
3793	(*D_processinput)(buf, size);	3766	(D_processinput)((char )buf, size);
3794	}	3767	}
3795		3768
3796	static void	3769	static void
Lines 4015-4021 Link Here
4015	}	3988	}
4016	}	3989	}
4017	#endif	3990	#endif
4018	fflush(NULL);
4019	switch (pid = (int)fork())	3991	switch (pid = (int)fork())
4020	{	3992	{
4021	case -1:	3993	case -1:
Lines 4063-4081 Link Here
4063	}	4035	}
4064	debug1("=== RunBlanker: pid %d\n", (int)getpid());	4036	debug1("=== RunBlanker: pid %d\n", (int)getpid());
4065	#endif	4037	#endif
4066	{	4038	close(0);
4067	int fd = open(m, O_RDWR);	4039	close(1);
4068	if (fd < 0)	4040	close(2);
4069	Panic(errno, "Cannot open %s", m);	4041	if (open(m, O_RDWR))
4070	if (dup2(fd, 0) < 0)	4042	Panic(errno, "Cannot open %s", m);
4071	Panic(errno, "Cannot redirect %s to %s", "stdin", m);	4043	dup(0);
4072	if (dup2(fd, 1) < 0)	4044	dup(0);
4073	Panic(errno, "Cannot redirect %s to %s", "stdout", m);
4074	if (dup2(fd, 2) < 0)
4075	Panic(errno, "Cannot redirect %s to %s", "stderr", m);
4076	if (fd > 2)
4077	close(fd);
4078	}
4079	close(D_blankerev.fd);	4045	close(D_blankerev.fd);
4080	if (slave != -1)	4046	if (slave != -1)
4081	close(slave);	4047	close(slave);

Lines 876-901 Link Here

(-)screen.orig/layer.c (-14 / +10 lines)
876	{	876	{
877	VA_LIST(ap)	877	VA_LIST(ap)
878	char buf[MAXPATHLEN*2];	878	char buf[MAXPATHLEN*2];
879	ssize_t len;	879	char *p = buf;
880	const int errlen = err ? 100 : 0;
881	struct canvas *cv;	880	struct canvas *cv;
882		881
883	VA_START(ap, fmt);	882	VA_START(ap, fmt);
884	fmt = DoNLS(fmt);	883	fmt = DoNLS(fmt);
885	len = vsnprintf(buf, sizeof(buf) - errlen, fmt, VA_ARGS(ap));	884	(void)vsnprintf(p, sizeof(buf) - 100, fmt, VA_ARGS(ap));
886	VA_END(ap);	885	VA_END(ap);
887		886
888	if (len < 0) {
889	strncpy(buf, fmt, sizeof(buf) - errlen);
890	buf[sizeof(buf) - errlen - 1] = 0;
891	}
892	if (err) {	887	if (err) {
893	const char *strerr = strerror(err);	888	p += strlen(p);
894	if (strerr) {	889	*p++ = ':';
895	strncat(buf, ": ", 2);	890	*p++ = ' ';
896	strncat(buf, strerr, errlen - 3);	891	strncpy(p, strerror(err), buf + sizeof(buf) - p - 1);
897	}	892	buf[sizeof(buf) - 1] = 0;
898	}	893	}
		894
899	debug2("LMsg('%s') (%#x);\n", buf, (unsigned int)flayer);	895	debug2("LMsg('%s') (%#x);\n", buf, (unsigned int)flayer);
900	for (display = displays; display; display = display->d_next) {	896	for (display = displays; display; display = display->d_next) {
901	for (cv = D_cvlist; cv; cv = cv->c_next)	897	for (cv = D_cvlist; cv; cv = cv->c_next)
Lines 943-949 Link Here
943	for (l = lay; l; l = l->l_next) {	939	for (l = lay; l; l = l->l_next) {
944	if (l->l_layfn == &WinLf \|\| l->l_layfn == &BlankLf)	940	if (l->l_layfn == &WinLf \|\| l->l_layfn == &BlankLf)
945	break;	941	break;
946	debug1("- killing %p\n", l);	942	debug1("- killing %#x\n", l);
947	if (oldflayer == l)	943	if (oldflayer == l)
948	oldflayer = 0;	944	oldflayer = 0;
949	for (cv = l->l_cvlist; cv; cv = ncv) {	945	for (cv = l->l_cvlist; cv; cv = ncv) {
Lines 977-983 Link Here
977	Msg(0, "No memory for layer struct");	973	Msg(0, "No memory for layer struct");
978	return -1;	974	return -1;
979	}	975	}
980	debug2("Entering new layer on top of %p: %p\n", (unsigned int)flayer, newlay);	976	debug2("Entering new layer on top of %#x: %#x\n", (unsigned int)flayer, newlay);
981	data = 0;	977	data = 0;
982	if (datasize) {	978	if (datasize) {
983	if ((data = calloc(1, datasize)) == 0) {	979	if ((data = calloc(1, datasize)) == 0) {

Lines 2741-2747 Link Here

(-)screen.orig/process.c (-4 / +4 lines)
2741	#ifdef COPY_PASTE	2741	#ifdef COPY_PASTE
2742	case RC_BUFFERFILE:	2742	case RC_BUFFERFILE:
2743	if (*args == 0)	2743	if (*args == 0)
2744	BufferFile = SaveStr(bufferfile);	2744	BufferFile = SaveStr(DEFAULT_BUFFERFILE);
2745	else if (ParseSaveStr(act, &BufferFile))	2745	else if (ParseSaveStr(act, &BufferFile))
2746	break;	2746	break;
2747	if (msgok)	2747	if (msgok)
Lines 5401-5406 Link Here
5401	static int	5401	static int
5402	MoreWindows()	5402	MoreWindows()
5403	{	5403	{
		5404	char *m = "No other window.";
5404	if (windows && (fore == 0 \|\| windows->w_next))	5405	if (windows && (fore == 0 \|\| windows->w_next))
5405	return 1;	5406	return 1;
5406	if (fore == 0)	5407	if (fore == 0)
Lines 5408-5414 Link Here
5408	Msg(0, "No window available");	5409	Msg(0, "No window available");
5409	return 0;	5410	return 0;
5410	}	5411	}
5411	Msg(0, "No other window%s.", fore->w_number > 1 ? "s" : "");	5412	Msg(0, m, fore->w_number); /* other arg for nethack */
5412	return 0;	5413	return 0;
5413	}	5414	}
5414		5415
Lines 6273-6280 Link Here
6273	if (ktab[(int)(unsigned char)*buf].nr != RC_POW_DETACH)	6274	if (ktab[(int)(unsigned char)*buf].nr != RC_POW_DETACH)
6274	{	6275	{
6275	if (display)	6276	if (display)
6276	if (write(D_userfd, "\007", 1) < 1)	6277	write(D_userfd, "\007", 1);
6277	;
6278	Msg(0, "Detach aborted.");	6278	Msg(0, "Detach aborted.");
6279	}	6279	}
6280	else	6280	else

Lines 683-699 Link Here

(-)screen.orig/resize.c (-11 lines)
683	he = MAXWIDTH;	683	he = MAXWIDTH;
684	}	684	}
685		685
686	if (wi > 1000)
687	{
688	Msg(0, "Window width too large, truncated");
689	wi = 1000;
690	}
691	if (he > 1000)
692	{
693	Msg(0, "Window height too large, truncated");
694	he = 1000;
695	}
696
697	if (p->w_width == wi && p->w_height == he && p->w_histheight == hi)	686	if (p->w_width == wi && p->w_height == he && p->w_histheight == hi)
698	{	687	{
699	debug("ChangeWindowSize: No change.\n");	688	debug("ChangeWindowSize: No change.\n");

Lines 505-515 Link Here

(-)screen.orig/utmp.c (-7 / +4 lines)
505	slot_t slot;	505	slot_t slot;
506		506
507	slot = wi->w_slot;	507	slot = wi->w_slot;
508	#ifdef GETUTENT
509	debug1("RemoveUtmp slot=%p\n", slot);
510	#else
511	debug1("RemoveUtmp slot=%#x\n", slot);	508	debug1("RemoveUtmp slot=%#x\n", slot);
512	#endif
513	if (!utmpok)	509	if (!utmpok)
514	return -1;	510	return -1;
515	if (slot == (slot_t)0 \|\| slot == (slot_t)-1)	511	if (slot == (slot_t)0 \|\| slot == (slot_t)-1)
Lines 581-591 Link Here
581	#ifdef HAVE_UTEMPTER	577	#ifdef HAVE_UTEMPTER
582	if (eff_uid && wi && wi->w_ptyfd != -1)	578	if (eff_uid && wi && wi->w_ptyfd != -1)
583	{	579	{
584	utempter_set_helper ("/usr/lib/screen/utempter"); /* %_libexecdir */	580	/* sigh, linux hackers made the helper functions void */
585	if (SLOT_USED(u))	581	if (SLOT_USED(u))
586	return utempter_add_record (wi->w_ptyfd, host);	582	addToUtmp(wi->w_tty, host, wi->w_ptyfd);
587	else	583	else
588	return utempter_remove_record (wi->w_ptyfd);	584	removeLineFromUtmp(wi->w_tty, wi->w_ptyfd);
		585	return 1; /* pray for success */
589	}	586	}
590	#endif	587	#endif
591	setutent();	588	setutent();

Lines 33-46 Link Here

(-)screen.orig/attacher.c (-47 / +22 lines)
33	#include <sys/ioctl.h>	33	#include <sys/ioctl.h>
34	#include <fcntl.h>	34	#include <fcntl.h>
35	#include <signal.h>	35	#include <signal.h>
36	#include <syslog.h>
37	#include "screen.h"	36	#include "screen.h"
38	#include "extern.h"	37	#include "extern.h"
39		38
40	#ifdef USE_PAM
41	#include <security/pam_userpass.h>
42	#endif
43
44	#include <pwd.h>	39	#include <pwd.h>
45		40
46	static int WriteMessage __P((int, struct msg *));	41	static int WriteMessage __P((int, struct msg *));
Lines 59-65 Link Here
59	#endif	54	#endif
60	static sigret_t AttachSigCont __P(SIGPROTOARG);	55	static sigret_t AttachSigCont __P(SIGPROTOARG);
61		56
62	extern int real_uid, real_gid, eff_uid, eff_gid, init_eff_gid;	57	extern int real_uid, real_gid, eff_uid, eff_gid;
63	extern int ServerSocket;	58	extern int ServerSocket;
64	extern struct display *displays;	59	extern struct display *displays;
65	extern char SockName, SockMatch, SockPath[];	60	extern char SockName, SockMatch, SockPath[];
Lines 704-710 Link Here
704	/* ADDED by Rainer Pruy 10/15/87 */	699	/* ADDED by Rainer Pruy 10/15/87 */
705	/* POLISHED by mls. 03/10/91 */	700	/* POLISHED by mls. 03/10/91 */
706		701
707	static const char LockEnd[] = "Welcome back to screen !!\n";	702	static char LockEnd[] = "Welcome back to screen !!\n";
708		703
709	static sigret_t	704	static sigret_t
710	LockHup SIGDEFARG	705	LockHup SIGDEFARG
Lines 741-747 Link Here
741	{	736	{
742	signal(SIGCHLD, SIG_DFL);	737	signal(SIGCHLD, SIG_DFL);
743	debug1("lockterminal: '%s' seems executable, execl it!\n", prg);	738	debug1("lockterminal: '%s' seems executable, execl it!\n", prg);
744	fflush(NULL);
745	if ((pid = fork()) == 0)	739	if ((pid = fork()) == 0)
746	{	740	{
747	/* Child */	741	/* Child */
Lines 821-827 Link Here
821		815
822	#ifdef USE_PAM	816	#ifdef USE_PAM
823		817
824	#if 0
825	/*	818	/*
826	* PAM support by Pablo Averbuj <pablo@averbuj.com>	819	* PAM support by Pablo Averbuj <pablo@averbuj.com>
827	*/	820	*/
Lines 876-888 Link Here
876	&PAM_conv,	869	&PAM_conv,
877	NULL	870	NULL
878	};	871	};
879	#endif
880		872
881	static pam_userpass_t userpass;	873
882	static struct pam_conv conv = {
883	&pam_userpass_conv,
884	&userpass
885	};
886	#endif	874	#endif
887		875
888	/* -- original copyright by Luigi Cannelloni 1985 (luigi@faui70.UUCP) -- */	876	/* -- original copyright by Luigi Cannelloni 1985 (luigi@faui70.UUCP) -- */
Lines 891-900 Link Here
891	{	879	{
892	char fullname[100], *cp1, message[100 + 100];	880	char fullname[100], *cp1, message[100 + 100];
893	#ifdef USE_PAM	881	#ifdef USE_PAM
894	int status;	882	pam_handle_t *pamh = 0;
895	pam_handle_t *pamh = NULL;	883	int pam_error;
896	#else	884	char *tty_name;
897	char *pass, mypass[16 + 1], salt[3];
898	#endif	885	#endif
899	char *pass = 0, mypass[16 + 1], salt[3];	886	char *pass = 0, mypass[16 + 1], salt[3];
900	int using_pam = 1;	887	int using_pam = 1;
Lines 976-1010 Link Here
976	if (using_pam)	963	if (using_pam)
977	{	964	{
978	#ifdef USE_PAM	965	#ifdef USE_PAM
979	userpass.user = ppp->pw_name;	966	PAM_conversation.appdata_ptr = cp1;
980	userpass.pass = cp1;	967	pam_error = pam_start("screen", ppp->pw_name, &PAM_conversation, &pamh);
981		968	if (pam_error != PAM_SUCCESS)
982	openlog("screen", LOG_PID, LOG_AUTH);	969	AttacherFinit(SIGARG); /* goodbye */
983	status = pam_start("screen", ppp->pw_name, &conv, &pamh);
984
985	if (status == PAM_SUCCESS)
986	{
987	/* Let the PAM modules make use of our SGID privileges. */
988	xsetegid(init_eff_gid);
989	if ((status = pam_authenticate(pamh, 0)) != PAM_SUCCESS)
990	{
991	xsetegid(real_gid);
992	pam_end(pamh, status);
993	continue;
994	}
995	xsetegid(real_gid);
996		970
997	status = pam_end(pamh, PAM_SUCCESS);	971	if (strncmp(attach_tty, "/dev/", 5) == 0)
998	if (status == PAM_SUCCESS)	972	tty_name = attach_tty + 5;
999	{	973	else
1000	memset(cp1, 0, strlen(cp1));	974	tty_name = attach_tty;
1001	userpass.pass = NULL;	975	pam_error = pam_set_item(pamh, PAM_TTY, tty_name);
1002	break;	976	if (pam_error != PAM_SUCCESS)
1003	}	977	AttacherFinit(SIGARG); /* goodbye */
1004	}	978
1005		979	pam_error = pam_authenticate(pamh, 0);
1006	#else	980	pam_end(pamh, pam_error);
1007	if (!strncmp(crypt(cp1, pass), pass, strlen(pass)))	981	PAM_conversation.appdata_ptr = 0;
		982	if (pam_error == PAM_SUCCESS)
1008	break;	983	break;
1009	#endif	984	#endif
1010	}	985	}

Lines 6-12 Link Here

(-)screen.orig/braille_tsi.c (-215 / +210 lines)
6	* Bill Barry barryb@dots.physics.orst.edu	6	* Bill Barry barryb@dots.physics.orst.edu
7	*	7	*
8	* Copyright (c) 1995 by Science Access Project, Oregon State University.	8	* Copyright (c) 1995 by Science Access Project, Oregon State University.
9	*	9	*
10	*	10	*
11	* This program is free software; you can redistribute it and/or modify	11	* This program is free software; you can redistribute it and/or modify
12	* it under the terms of the GNU General Public License as published by	12	* it under the terms of the GNU General Public License as published by
Lines 36-56 Link Here
36	extern struct display *display;	36	extern struct display *display;
37		37
38	struct key2rc {	38	struct key2rc {
39	int key;	39	int key;
40	int nr;	40	int nr;
41	char *arg1;	41	char *arg1;
42	char *arg2;	42	char *arg2;
43	};	43	};
44		44
		45	static int tsi_ctype = 1; /* cursor type, 0,1,2 */
45		46
46	static int tsi_ctype = 1; /* cursor type, 0,1,2 */	47	static int tsi_line_type; /* indicates number of cells on powerbraille
47		48	display 01=20 cells 02=40 cells 03=80 cells */
48	static int tsi_line_type; /* indicates number of cells on powerbraille
49	display 01=20 cells 02=40 cells 03=80 cells */
50		49
51	static int display_status_tsi __P((void));	50	static int display_status_tsi __P((void));
52	static int write_line_tsi __P((char *, int, int));	51	static int write_line_tsi __P((char*, int, int));
53	static void buttonpress_tsi __P((struct key2rc *));	52	static void buttonpress_tsi __P((structkey2rc*));
54	static void buttonpress_navigator_40 __P((void));	53	static void buttonpress_navigator_40 __P((void));
55	static void buttonpress_powerbraille_40 __P((void));	54	static void buttonpress_powerbraille_40 __P((void));
56	static void buttonpress_powerbraille_80 __P((void));	55	static void buttonpress_powerbraille_80 __P((void));
Lines 58-319 Link Here
58	int	57	int
59	bd_init_powerbraille_40()	58	bd_init_powerbraille_40()
60	{	59	{
61	bd.write_line_braille = write_line_tsi;	60	bd.write_line_braille = write_line_tsi;
62	bd.buttonpress = buttonpress_powerbraille_40;	61	bd.buttonpress = buttonpress_powerbraille_40;
63	bd.bd_response_test = display_status_tsi;	62	bd.bd_response_test = display_status_tsi;
64	bd.bd_ncells = 40;	63	bd.bd_ncells = 40;
65	tsi_line_type = 2;	64	tsi_line_type = 2;
66	return 0;	65	return 0;
67	}	66	}
68		67
69	int	68	int
70	bd_init_powerbraille_80()	69	bd_init_powerbraille_80()
71	{	70	{
72	bd.write_line_braille = write_line_tsi;	71	bd.write_line_braille = write_line_tsi;
73	bd.buttonpress = buttonpress_powerbraille_80;	72	bd.buttonpress = buttonpress_powerbraille_80;
74	bd.bd_response_test = display_status_tsi;	73	bd.bd_response_test = display_status_tsi;
75	bd.bd_ncells = 80;	74	bd.bd_ncells = 80;
76	tsi_line_type = 3;	75	tsi_line_type = 3;
77	return 0;	76	return 0;
78	}	77	}
79		78
80	int	79	int
81	bd_init_navigator_40()	80	bd_init_navigator_40()
82	{	81	{
83	bd.write_line_braille = write_line_tsi;	82	bd.write_line_braille = write_line_tsi;
84	bd.buttonpress = buttonpress_navigator_40;	83	bd.buttonpress = buttonpress_navigator_40;
85	bd.bd_response_test = display_status_tsi;	84	bd.bd_response_test = display_status_tsi;
86	bd.bd_ncells = 40;	85	bd.bd_ncells = 40;
87	tsi_line_type = 2;	86	tsi_line_type = 2;
88	return 0;	87	return 0;
89	}	88	}
90		89
91	static int	90	static int
92	display_status_tsi()	91	display_status_tsi()
93	{	92	{
94	char obuf[3],ibuf[20];	93	char obuf[3], ibuf[20];
95	int r;	94	int r;
96		95
97	obuf[0] = 0xff;	96	obuf[0] = 0xff;
98	obuf[1] = 0xff;	97	obuf[1] = 0xff;
99	obuf[2] = 0x0a;	98	obuf[2] = 0x0a;
100	r = read(bd.bd_fd, ibuf, 20); /* flush the input port */	99	r = read(bd.bd_fd, ibuf, 20); /* flush the input port */
101	r = write(bd.bd_fd, obuf, 3);	100	r = write(bd.bd_fd, obuf, 3);
102	if (r != 3)	101	if (r != 3)
103	return -1;	102	return -1;
104		103
105	/* we have written to the display asking for a response	104	/* we have written to the display asking for a response
106	we wait 1 second for the response, read it and if no	105	we wait 1 second for the response, read it and if no
107	response we wait 2 seconds, if still no response,	106	response we wait 2 seconds, if still no response,
108	return -1 to indicate no braille display available */	107	return -1 to indicate no braille display available */
109	sleep(1);	108
110	r = read(bd.bd_fd, ibuf, 2);	109	sleep(1);
111	if (r == -1)	110	r = read(bd.bd_fd, ibuf, 2);
112	{	111	if (r == -1) {
113	sleep(2);	112	sleep(2);
114	r = read(bd.bd_fd, ibuf, 2);	113	r = read(bd.bd_fd, ibuf, 2);
115	}	114	}
116	debug2("first chars from braille display %d %d\n",ibuf[0],ibuf[1]);	115
117	if (r != 2 \|\| ibuf[0] != 0 \|\| ibuf[1] != 5)	116	debug2("first chars from braille display %d %d\n", ibuf[0], ibuf[1]);
118	return -1;	117	if (r != 2 \|\| ibuf[0] != 0 \|\| ibuf[1] != 5)
119		118	return -1;
120	r= read(bd.bd_fd,ibuf,2);	119
121	if (r != 2)	120	r = read(bd.bd_fd, ibuf, 2);
122	return -1;	121	if (r != 2)
123	debug2("braille display size:%d dots:%d\n", ibuf[0], ibuf[1]);	122	return -1;
124	bd.bd_ncells = (unsigned char)ibuf[0];	123
125	if (bd.bd_ncells <= 1)	124	debug2("braille display size:%d dots:%d\n", ibuf[0], ibuf[1]);
126	return -1;	125	bd.bd_ncells = (unsigned char)ibuf[0];
127	r = read(bd.bd_fd,ibuf,1);	126	if (bd.bd_ncells <= 1)
128	if (r != 1)	127	return -1;
129	return -1;	128
130	if (ibuf[0] == 'V')	129	r = read(bd.bd_fd, ibuf, 1);
131	r = read(bd.bd_fd, ibuf, 3);	130	if (r != 1)
132	else	131	return -1;
133	r = read(bd.bd_fd, ibuf + 1, 2) + 1;	132
134	if (r != 3)	133	if (ibuf[0] == 'V')
135	return -1;	134	r = read(bd.bd_fd, ibuf, 3);
136	ibuf[3] = 0;	135	else
137	debug1("braille display version %s\n", ibuf);	136	r = read(bd.bd_fd, ibuf + 1, 2) + 1;
138	bd.bd_version = atof(ibuf);	137
139	return 0;	138	if (r != 3)
		139	return -1;
		140
		141	ibuf[3] = 0;
		142	debug1("braille display version %s\n", ibuf);
		143	bd.bd_version = atof(ibuf);
		144	return 0;
140	}	145	}
141
142		146
143	static int	147	static int
144	write_line_tsi (bstr,line_length, cursor_pos)	148	write_line_tsi(char *bstr, int line_length, int cursor_pos)
145	char *bstr;
146	int line_length, cursor_pos;
147	{	149	{
148	int obp, i;	150	int obp, i;
149	bd.bd_obuf[0] = 0xff;	151	bd.bd_obuf[0] = 0xff;
150	bd.bd_obuf[1] = 0xff;	152	bd.bd_obuf[1] = 0xff;
151	bd.bd_obuf[2] = tsi_line_type;	153	bd.bd_obuf[2] = tsi_line_type;
152	bd.bd_obuf[3] = 0x07;	154	bd.bd_obuf[3] = 0x07;
153	bd.bd_obuf[4] = cursor_pos;	155	bd.bd_obuf[4] = cursor_pos;
154	bd.bd_obuf[5] = tsi_ctype;	156	bd.bd_obuf[5] = tsi_ctype;
155	obp=6;	157	obp = 6;
156		158
157	for (i=0; i < line_length; i++)	159	for (i = 0; i < line_length; i++) {
158	{	160	bd.bd_obuf[2*i + obp] = 0;
159	bd.bd_obuf[2*i+obp] = 0;	161	bd.bd_obuf[2*i + 1 + obp] = bd.bd_btable[(int)(unsigned char)bstr[i]];
160	bd.bd_obuf[2*i+1+obp] = bd.bd_btable[(int)(unsigned char)bstr[i]];	162	}
161	}	163	for (i = line_length; i < bd.bd_ncells; i++) {
162	for (i=line_length; i < bd.bd_ncells; i++)	164	bd.bd_obuf[2*i + obp] = 0;
163	{	165	bd.bd_obuf[2*i + 1 + obp] = bd.bd_btable[(int)' '];
164	bd.bd_obuf[2*i+obp] = 0;	166	}
165	bd.bd_obuf[2*i+1+obp] = bd.bd_btable[(int)' '];
166	}
167		167
168	bd.bd_obuflen = 2*bd.bd_ncells + obp ;	168	bd.bd_obuflen = 2*bd.bd_ncells + obp;
169	return 0;	169	return 0;
170	}	170	}
171		171
172	static struct key2rc keys_navigator_40[] = {	172	static struct key2rc keys_navigator_40[] = {
173	{0x4000000, RC_STUFF, "-k", "kl"}, /* 1 */	173	{0x4000000, RC_STUFF, "-k", "kl"}, /* 1 */
174	{0x10000000, RC_STUFF, "-k", "kr"}, /* 3 */	174	{0x10000000, RC_STUFF, "-k", "kr"}, /* 3 */
175	{0x8000000, RC_STUFF, "-k", "ku"}, /* 2 */	175	{0x8000000, RC_STUFF, "-k", "ku"}, /* 2 */
176	{0x20000000, RC_STUFF, "-k", "kd"}, /* 4 */	176	{0x20000000, RC_STUFF, "-k", "kd"}, /* 4 */
177	{0x2000, RC_BD_BC_LEFT, 0, 0}, /* 6 */	177	{0x2000, RC_BD_BC_LEFT, 0, 0}, /* 6 */
178	{0x8000, RC_BD_BC_RIGHT, 0, 0}, /* 8 */	178	{0x8000, RC_BD_BC_RIGHT, 0, 0}, /* 8 */
179	{0x4000, RC_BD_BC_UP, 0, 0}, /* 7 */	179	{0x4000, RC_BD_BC_UP, 0, 0}, /* 7 */
180	{0x10000, RC_BD_BC_DOWN, 0, 0}, /* 9 */	180	{0x10000, RC_BD_BC_DOWN, 0, 0}, /* 9 */
181	{0x6000, RC_BD_UPPER_LEFT, 0, 0}, /* 6, 7 */	181	{0x6000, RC_BD_UPPER_LEFT, 0, 0}, /* 6, 7 */
182	{0xc000, RC_BD_UPPER_RIGHT, 0, 0}, /* 7, 8 */	182	{0xc000, RC_BD_UPPER_RIGHT, 0, 0}, /* 7, 8 */
183	{0x12000, RC_BD_LOWER_LEFT, 0, 0}, /* 6, 9 */	183	{0x12000, RC_BD_LOWER_LEFT, 0, 0}, /* 6, 9 */
184	{0x18000, RC_BD_LOWER_RIGHT, 0, 0}, /* 8, 9 */	184	{0x18000, RC_BD_LOWER_RIGHT, 0, 0}, /* 8, 9 */
185	{0xa000, RC_BD_INFO, "1032", 0}, /* bc 6, 8 */	185	{0xa000, RC_BD_INFO, "1032", 0}, /* bc 6, 8 */
186	{0x14000000, RC_BD_INFO, "2301", 0}, /* sc 1, 3 */	186	{0x14000000, RC_BD_INFO, "2301", 0}, /* sc 1, 3 */
187	{0x4008000, RC_BD_INFO, "3330", 0}, /* bc+sc 1, 8 */	187	{0x4008000, RC_BD_INFO, "3330", 0}, /* bc+sc 1, 8 */
188	{0x8010000, RC_BD_BELL, 0, 0}, /* 2, 9 */	188	{0x8010000, RC_BD_BELL, 0, 0}, /* 2, 9 */
189	{0x8004000, RC_BD_EIGHTDOT, 0, 0}, /* 2, 7 */	189	{0x8004000, RC_BD_EIGHTDOT, 0, 0}, /* 2, 7 */
190	{0x40000000, RC_STUFF, "\015", 0}, /* 5 */	190	{0x40000000, RC_STUFF, "\015", 0}, /* 5 */
191	{0x20000, RC_BD_LINK, 0, 0}, /* 10 */	191	{0x20000, RC_BD_LINK, 0, 0}, /* 10 */
192	{0x10002000, RC_BD_SCROLL, 0, 0}, /* 3, 6 */	192	{0x10002000, RC_BD_SCROLL, 0, 0}, /* 3, 6 */
193	{0x20010000, RC_BD_NCRC, "+", 0}, /* 4, 9 */	193	{0x20010000, RC_BD_NCRC, "+", 0}, /* 4, 9 */
194	{0x14000, RC_BD_SKIP, 0, 0}, /* 7, 9*/	194	{0x14000, RC_BD_SKIP, 0, 0}, /* 7, 9*/
195	{-1, RC_ILLEGAL, 0, 0}	195	{-1, RC_ILLEGAL, 0, 0}
196	};	196	};
197		197
198	static struct key2rc keys_powerbraille_40[] = {	198	static struct key2rc keys_powerbraille_40[] = {
199	{0x4000000, RC_STUFF, "-k", "kl"}, /* 1 */	199	{0x4000000, RC_STUFF, "-k", "kl"}, /* 1 */
200	{0x10000000, RC_STUFF, "-k", "kr"}, /* 3 */	200	{0x10000000, RC_STUFF, "-k", "kr"}, /* 3 */
201	{0x8000000, RC_STUFF, "-k", "ku"}, /* 2 */	201	{0x8000000, RC_STUFF, "-k", "ku"}, /* 2 */
202	{0x20000000, RC_STUFF, "-k", "kd"}, /* 4 */	202	{0x20000000, RC_STUFF, "-k", "kd"}, /* 4 */
203	{0x2000, RC_BD_BC_LEFT, 0, 0}, /* 6 */	203	{0x2000, RC_BD_BC_LEFT, 0, 0}, /* 6 */
204	{0x8000, RC_BD_BC_RIGHT, 0, 0}, /* 8 */	204	{0x8000, RC_BD_BC_RIGHT, 0, 0}, /* 8 */
205	{0x4000, RC_BD_BC_UP, 0, 0}, /* 7 */	205	{0x4000, RC_BD_BC_UP, 0, 0}, /* 7 */
206	{0x10000, RC_BD_BC_DOWN, 0, 0}, /* 9 */	206	{0x10000, RC_BD_BC_DOWN, 0, 0}, /* 9 */
207	{0x8002000, RC_BD_UPPER_LEFT, 0, 0}, /* 2, 6 */	207	{0x8002000, RC_BD_UPPER_LEFT, 0, 0}, /* 2, 6 */
208	{0xc000, RC_BD_UPPER_RIGHT, 0, 0}, /* 7, 8 */	208	{0xc000, RC_BD_UPPER_RIGHT, 0, 0}, /* 7, 8 */
209	{0x20002000, RC_BD_LOWER_LEFT, 0, 0}, /* 3, 6 */	209	{0x20002000, RC_BD_LOWER_LEFT, 0, 0}, /* 3, 6 */
210	{0x18000, RC_BD_LOWER_RIGHT, 0, 0}, /* 8, 9 */	210	{0x18000, RC_BD_LOWER_RIGHT, 0, 0}, /* 8, 9 */
211	{0x8008000, RC_BD_INFO, "1032", 0}, /* bc 2, 8 */	211	{0x8008000, RC_BD_INFO, "1032", 0}, /* bc 2, 8 */
212	{0x6000, RC_BD_INFO, "2301", 0}, /* 6, 7 */	212	{0x6000, RC_BD_INFO, "2301", 0}, /* 6, 7 */
213	{0x8004000, RC_BD_INFO, "3330", 0}, /* bc+sc 2, 7 */	213	{0x8004000, RC_BD_INFO, "3330", 0}, /* bc+sc 2, 7 */
214	{0x8010000, RC_BD_BELL, 0, 0}, /* 2, 9 */	214	{0x8010000, RC_BD_BELL, 0, 0}, /* 2, 9 */
215	{0x20008000, RC_BD_EIGHTDOT, 0, 0}, /* 4, 6 */	215	{0x20008000, RC_BD_EIGHTDOT, 0, 0}, /* 4, 6 */
216	{0x40000000, RC_STUFF, "\015", 0}, /* 5 */	216	{0x40000000, RC_STUFF, "\015", 0}, /* 5 */
217	{0x20000, RC_BD_LINK, 0, 0}, /* 10 */	217	{0x20000, RC_BD_LINK, 0, 0}, /* 10 */
218	{0xa000, RC_BD_SCROLL, 0, 0}, /* 6, 8 */	218	{0xa000, RC_BD_SCROLL, 0, 0}, /* 6, 8 */
219	{0x20010000, RC_BD_NCRC, "+", 0}, /* 4, 9 */	219	{0x20010000, RC_BD_NCRC, "+", 0}, /* 4, 9 */
220	{0x20004000, RC_BD_SKIP, 0, 0}, /* 4, 7 */	220	{0x20004000, RC_BD_SKIP, 0, 0}, /* 4, 7 */
221	{-1, RC_ILLEGAL, 0, 0}	221	{-1, RC_ILLEGAL, 0, 0}
222	};	222	};
223		223
224
225	static struct key2rc keys_powerbraille_80[] = {	224	static struct key2rc keys_powerbraille_80[] = {
226	{0x4000000, RC_STUFF, "-k", "kl"}, /* 1 */	225	{0x4000000, RC_STUFF, "-k", "kl"}, /* 1 */
227	{0x10000000, RC_STUFF, "-k", "kr"}, /* 3 */	226	{0x10000000, RC_STUFF, "-k", "kr"}, /* 3 */
228	{0x8000000, RC_STUFF, "-k", "ku"}, /* 2 */	227	{0x8000000, RC_STUFF, "-k", "ku"}, /* 2 */
229	{0x20000000, RC_STUFF, "-k", "kd"}, /* 4 */	228	{0x20000000, RC_STUFF, "-k", "kd"}, /* 4 */
230	{0x40000, RC_BD_BC_LEFT, 0, 0}, /* 6 */	229	{0x40000, RC_BD_BC_LEFT, 0, 0}, /* 6 */
231	{0x100000, RC_BD_BC_RIGHT, 0, 0}, /* 8 */	230	{0x100000, RC_BD_BC_RIGHT, 0, 0}, /* 8 */
232	{0x4000, RC_BD_BC_UP, 0, 0}, /* 7 */	231	{0x4000, RC_BD_BC_UP, 0, 0}, /* 7 */
233	{0x10000, RC_BD_BC_DOWN, 0, 0}, /* 9 */	232	{0x10000, RC_BD_BC_DOWN, 0, 0}, /* 9 */
234	{0x44000, RC_BD_UPPER_LEFT, 0, 0}, /* 6, 7 */	233	{0x44000, RC_BD_UPPER_LEFT, 0, 0}, /* 6, 7 */
235	{0x104000, RC_BD_UPPER_RIGHT, 0, 0}, /* 7, 8 */	234	{0x104000, RC_BD_UPPER_RIGHT, 0, 0}, /* 7, 8 */
236	{0x50000, RC_BD_LOWER_LEFT, 0, 0}, /* 6, 9 */	235	{0x50000, RC_BD_LOWER_LEFT, 0, 0}, /* 6, 9 */
237	{0x110000, RC_BD_LOWER_RIGHT, 0, 0}, /* 8, 9 */	236	{0x110000, RC_BD_LOWER_RIGHT, 0, 0}, /* 8, 9 */
238	{0x8100000, RC_BD_INFO, "1032", 0}, /* 2, 8 */	237	{0x8100000, RC_BD_INFO, "1032", 0}, /* 2, 8 */
239	{0x8040000, RC_BD_INFO, "2301", 0}, /* 2, 6 */	238	{0x8040000, RC_BD_INFO, "2301", 0}, /* 2, 6 */
240	{0x140000, RC_BD_INFO, "3330", 0}, /* 6, 8 */	239	{0x140000, RC_BD_INFO, "3330", 0}, /* 6, 8 */
241	{0x8010000, RC_BD_BELL, 0, 0}, /* 2, 9 */	240	{0x8010000, RC_BD_BELL, 0, 0}, /* 2, 9 */
242	{0x8004000, RC_BD_EIGHTDOT, 0, 0}, /* 2, 7 */	241	{0x8004000, RC_BD_EIGHTDOT, 0, 0}, /* 2, 7 */
243	{0x40000000, RC_STUFF, "\015", 0}, /* 5 */	242	{0x40000000, RC_STUFF, "\015", 0}, /* 5 */
244	{0x20000, RC_BD_LINK, 0, 0}, /* 10 */	243	{0x20000, RC_BD_LINK, 0, 0}, /* 10 */
245	{0x20004000, RC_BD_SCROLL, 0, 0}, /* 4, 7 */	244	{0x20004000, RC_BD_SCROLL, 0, 0}, /* 4, 7 */
246	{0x20010000, RC_BD_NCRC, "+", 0}, /* 4, 9 */	245	{0x20010000, RC_BD_NCRC, "+", 0}, /* 4, 9 */
247	{0x40010000, RC_BD_SKIP, 0, 0}, /* 5, 9 */	246	{0x40010000, RC_BD_SKIP, 0, 0}, /* 5, 9 */
248	{-1, RC_ILLEGAL, 0, 0}	247	{-1, RC_ILLEGAL, 0, 0}
249	};	248	};
250		249
251	static void	250	static void
252	buttonpress_tsi(tab)	251	buttonpress_tsi(struct key2rc *tab)
253	struct key2rc *tab;
254	{	252	{
255	int i, nb;	253	int i, nb;
256	int bkeys;	254	int bkeys;
257	unsigned char buf[10];	255	unsigned char buf[10];
258	nb = read(bd.bd_fd, buf, 10);	256	nb = read(bd.bd_fd, buf, 10);
259	debug1("buttonpress_tsi: read %d bytes\n", nb);	257	debug1("buttonpress_tsi: read %d bytes\n", nb);
260	for (i=0, bkeys=0; i < nb; i++)	258	for (i = 0, bkeys = 0; i < nb; i++) {
261	{	259	switch (buf[i] & 0xE0) {
262	switch (buf[i] & 0xE0)	260	case 0x00: bkeys += ((int)(buf[i] & 0x1f)); break;
263	{	261	case 0x20: bkeys += ((int)(buf[i] & 0x1f) << 5); break;
264	case 0x00: bkeys += ((int)(buf[i] & 0x1f) ); break;	262	case 0x40: bkeys += ((int)(buf[i] & 0x1f) << 9); break;
265	case 0x20: bkeys += ((int)(buf[i] & 0x1f) << 5 ); break;	263	case 0x60: bkeys += ((int)(buf[i] & 0x1f) << 13); break;
266	case 0x40: bkeys += ((int)(buf[i] & 0x1f) << 9 ); break;	264	case 0xA0: bkeys += ((int)(buf[i] & 0x1f) << 18); break;
267	case 0x60: bkeys += ((int)(buf[i] & 0x1f) << 13 ); break;	265	case 0xC0: bkeys += ((int)(buf[i] & 0x1f) << 22); break;
268	case 0xA0: bkeys += ((int)(buf[i] & 0x1f) << 18 ); break;	266	case 0xE0: bkeys += ((int)(buf[i] & 0x1f) << 26); break;
269	case 0xC0: bkeys += ((int)(buf[i] & 0x1f) << 22 ); break;	267	default: break;
270	case 0xE0: bkeys += ((int)(buf[i] & 0x1f) << 26 ); break;	268	}
271	default: break;
272	}	269	}
273	}	270	debug1("bkeys %x\n", bkeys);
274	debug1("bkeys %x\n", bkeys);
275	for (i = 0; tab[i].key != -1; i++)
276	if (bkeys == tab[i].key)
277	break;
278	debug1("bkey index %d\n", i);
279	if (tab[i].key != -1 && tab[i].nr != RC_ILLEGAL)
280	{
281	char *args[3];
282	int argl[2];
283
284	struct action act;
285	args[0] = tab[i].arg1;
286	args[1] = tab[i].arg2;
287	args[2] = 0;
288	argl[0] = args[0] ? strlen(args[0]) : 0;
289	argl[1] = args[1] ? strlen(args[1]) : 0;
290	act.nr = tab[i].nr;
291	act.args = args;
292	act.argl = argl;
293	display = bd.bd_dpy;
294	DoAction(&act, -2);
295	}
296	}
297		271
		272	for (i = 0; tab[i].key != -1; i++)
		273	if (bkeys == tab[i].key)
		274	break;
		275
		276	debug1("bkey index %d\n", i);
		277
		278	if (tab[i].key != -1 && tab[i].nr != RC_ILLEGAL) {
		279	char *args[3];
		280	int argl[2];
		281
		282	struct action act;
		283	args[0] = tab[i].arg1;
		284	args[1] = tab[i].arg2;
		285	args[2] = 0;
		286	argl[0] = args[0] ? strlen(args[0]) : 0;
		287	argl[1] = args[1] ? strlen(args[1]) : 0;
		288	act.nr = tab[i].nr;
		289	act.args = args;
		290	act.argl = argl;
		291	display = bd.bd_dpy;
		292	DoAction(&act, -2);
		293	}
		294	}
298		295
299	static void	296	static void
300	buttonpress_navigator_40()	297	buttonpress_navigator_40()
301	{	298	{
302	buttonpress_tsi(keys_navigator_40);	299	buttonpress_tsi(keys_navigator_40);
303	}	300	}
304		301
305	static void	302	static void
306	buttonpress_powerbraille_40()	303	buttonpress_powerbraille_40()
307	{	304	{
308	buttonpress_tsi(keys_powerbraille_40);	305	buttonpress_tsi(keys_powerbraille_40);
309	}	306	}
310		307
311	static void	308	static void
312	buttonpress_powerbraille_80()	309	buttonpress_powerbraille_80()
313	{	310	{
314	buttonpress_tsi(keys_powerbraille_80);	311	buttonpress_tsi(keys_powerbraille_80);
315	}	312	}
316		313
317	#endif /* HAVE_BRAILLE */	314	#endif /* HAVE_BRAILLE */
318
319

Lines 1-18 Link Here

(-)screen.orig/ChangeLog (-21 / +29 lines)
1	Version 4.8.0 (05/02/2020)	1	Version 4.9.0 (30/01/2022):
		2	* Hardstatus option for used encoding (escape string '%e')
		3	* OpenBSD uses native openpty() from its utils.h
		4	* Fixes:
		5	- fix combining char handling that could lead to a segfault
		6	- CVE-2021-26937: possible denial of service via a crafted UTF-8 character sequence (bug #60030)
		7	- make screen exit code be 0 when checking --help
		8	- session names limit is 80 symbols (bug #61534)
		9	- option -X ignores specified user in multiuser env (bug #37437)
		10	- a lot of reformations/fixes/cleanups (man page and source code)
		11
		12	Version 4.8.0 (05/02/2020):
2	* Improve startup time by only polling for files to close	13	* Improve startup time by only polling for files to close
3	Fixes:	14	* Fixes:
4	- Fix for segfault if termcap doesn't have Km entry	15	- Fix for segfault if termcap doesn't have Km entry
5	- Make screen exit code be 0 when checking --version	16	- Make screen exit code be 0 when checking --version
6	- Fix potential memory corruption when using OSC 49	17	- Fix potential memory corruption when using OSC 49
7		18
8		19	Version 4.7.0 (02/10/2019):
9	Version 4.7.0 (02/10/2019)
10	* Add support for SGR (1006) mouse mode	20	* Add support for SGR (1006) mouse mode
11	* Add support for OSC 11	21	* Add support for OSC 11
12	* Update Unicode ambiguous and wide tables to 12.1.0	22	* Update Unicode ambiguous and wide tables to 12.1.0
13	* Fixes:	23	* Fixes:
14	- cross-compilation support (bug #43223)	24	- cross-compilation support (bug #43223)
15	- a lot of manpage fixes and cleanups	25	- a lot of manpage fixes and cleanups
16		26
17	Version 4.6.2 (23/10/2017):	27	Version 4.6.2 (23/10/2017):
18	* Fixes:	28	* Fixes:
Lines 62-73 Link Here
62	* Introduce Xx string escape showing the executed command of a window	72	* Introduce Xx string escape showing the executed command of a window
63	* Implement dead/zombie window polling, allowing for auto reconnecting	73	* Implement dead/zombie window polling, allowing for auto reconnecting
64	* Allow setting hardstatus on first line	74	* Allow setting hardstatus on first line
65		75	* New Commands:
66	New Commands:	76	- 'sort' command sorting windows by title
67	* 'sort' command sorting windows by title	77	- 'bumpleft', 'bumpright' - manually move windows on window list
68	* 'bumpleft', 'bumpright' - manually move windows on window list	78	- 'collapse' removing numbering 'gaps' between windows, by renumbering
69	* 'collapse' removing numbering 'gaps' between windows, by renumbering	79	- 'windows' command now accepts arguments for use with querying
70	* 'windows' command now accepts arguments for use with querying
71		80
72	Version 4.2.1 (28/04/2014):	81	Version 4.2.1 (28/04/2014):
73	* allow for terminal with long $TERM (up to 32 characters)	82	* allow for terminal with long $TERM (up to 32 characters)
Lines 79-86 Link Here
79	New Commands:	88	New Commands:
80	* 'unbindall' to unbind all commands	89	* 'unbindall' to unbind all commands
81	* 'up', 'down', 'left', 'right' sub-commands for 'focus'	90	* 'up', 'down', 'left', 'right' sub-commands for 'focus'
82	* 'rendition' to specify rendition to use in caption/hardstatus for	91	* 'rendition' to specify rendition to use in caption/hardstatus for window-names that have bell/monitor/silence/so turned on.
83	window-names that have bell/monitor/silence/so turned on.
84	* 'layout', with the following sub-commands	92	* 'layout', with the following sub-commands
85	- 'title'	93	- 'title'
86	- 'number'	94	- 'number'
Lines 372-379 Link Here
372	=======================	380	=======================
373		381
374	.screenrc:	382	.screenrc:
375	screen now only opens the windows you explicitly ask for. if you	383	screen now only opens the windows you explicitly ask for.
376	specify none, you still get one window, of course.	384	If you specify none, you still get one window, of course.
377		385
378	screen 3.0. Patchlevel 5	386	screen 3.0. Patchlevel 5
379	========================	387	========================
Lines 391-397 Link Here
391	by a colon. Oldchar and newchar are either single ascii characters,	399	by a colon. Oldchar and newchar are either single ascii characters,
392	or the two character sequence ^x, where x is an ascii character, or	400	or the two character sequence ^x, where x is an ascii character, or
393	a 3 digit octal value prepended with '\'. the string "\040=.:^M=q"	401	a 3 digit octal value prepended with '\'. the string "\040=.:^M=q"
394	rebinds '.' to set marks, and the return rey will abort copy mode.	402	rebinds '.' to set marks, and the return key will abort copy mode.
395		403
396	set scrollback 100	404	set scrollback 100
397	resizes the scrollback history buffer to 100 lines. a default of 50	405	resizes the scrollback history buffer to 100 lines. a default of 50
Lines 426-432 Link Here
426		434
427	^A : set vbell_msg "Wuff Wuff"	435	^A : set vbell_msg "Wuff Wuff"
428		436
429	Thousand enhancements: help resizible, copy'n'paste in main	437	Thousand enhancements: help resizable, copy'n'paste in main
430	socket loop, and no more '\0' hackin'. :WS=\E8;%d;%dt:	438	socket loop, and no more '\0' hackin'. :WS=\E8;%d;%dt:
431		439
432	screen can now resize windows under sunview.	440	screen can now resize windows under sunview.
Lines 454-465 Link Here
454	bind 'O' set login off	462	bind 'O' set login off
455	is valid in your .screenrc as well as typed at the ':' prompt.	463	is valid in your .screenrc as well as typed at the ':' prompt.
456	a bonus is ":set all" which is synonym to ":help".	464	a bonus is ":set all" which is synonym to ":help".
457	At the Colon prompt also KeyNames can be entered, alothough that makes	465	At the Colon prompt also KeyNames can be entered, although that makes
458	not always sense.	466	not always sense.
459		467
460	^A x uses a builtin lockprg, if	468	^A x uses a builtin lockprg, if
461	a) we don't find our lockprg, or	469	a) we don't find our lockprg, or
462	b) user supplies us with the environmet variable LOCKPRG set to "builtin"	470	b) user supplies us with the environment variable LOCKPRG set to "builtin"
463	the builtin locks until your login password is typed. on systems using	471	the builtin locks until your login password is typed. on systems using
464	"shadow password files" you are prompted for a password.	472	"shadow password files" you are prompted for a password.
465		473
Lines 480-486 Link Here
480		488
481	rare markroutine bug fixed.	489	rare markroutine bug fixed.
482		490
483	we dont open every file the attacher tells us.	491	we don't open every file the attacher tells us.
484		492
485	we have now our wonderful "Wuff, Wuff" visual_bell	493	we have now our wonderful "Wuff, Wuff" visual_bell
486		494

Lines 172-177 Link Here

(-)screen.orig/configure.ac (-29 / +70 lines)
172	#include <signal.h>	172	#include <signal.h>
173	#include <fcntl.h>], [int x = SIGCHLD \| FNDELAY;], , AC_DEFINE(SYSV))	173	#include <fcntl.h>], [int x = SIGCHLD \| FNDELAY;], , AC_DEFINE(SYSV))
174		174
		175	AC_CHECKING(for sequent/ptx)
		176	AC_EGREP_CPP(YES_IS_DEFINED,
		177	[#ifdef _SEQUENT_
		178	YES_IS_DEFINED;
		179	#endif
		180	], LIBS="$LIBS -lsocket -linet";seqptx=1)
		181
		182	AC_CHECKING(SVR4)
		183	AC_EGREP_CPP(yes,
		184	[main () {
		185	#if defined(SVR4) \|\| defined(__SVR4)
		186	yes;
		187	#endif
		188	], AC_NOTE(- you have a SVR4 system) AC_DEFINE(SVR4) svr4=1)
		189	if test -n "$svr4" ; then
		190	oldlibs="$LIBS"
		191	LIBS="$LIBS -lelf"
		192	AC_CHECKING(SVR4)
		193	AC_TRY_LINK([#include <utmpx.h>
		194	],,
		195	[AC_CHECK_HEADER(dwarf.h, AC_DEFINE(BUGGYGETLOGIN),
		196	[AC_CHECK_HEADER(elf.h, AC_DEFINE(BUGGYGETLOGIN))])]
		197	,LIBS="$oldlibs")
		198	fi
		199
		200	AC_CHECK_HEADERS([stropts.h string.h strings.h])
		201
		202	AC_CHECKING(for Solaris 2.x)
		203	AC_EGREP_CPP(YES_IS_DEFINED,
		204	[#if defined(SVR4) && defined(sun)
		205	YES_IS_DEFINED;
		206	#endif
		207	], LIBS="$LIBS -lsocket -lnsl -lkstat")
		208
175	dnl	209	dnl
176	dnl ** typedefs **	210	dnl ** typedefs **
177	dnl	211	dnl
Lines 280-286 Link Here
280	#define S_IFIFO 0010000	314	#define S_IFIFO 0010000
281	#endif	315	#endif
282		316
283	char *fin = "conftest$$";	317	char *fin = "/tmp/conftest$$";
284		318
285	main()	319	main()
286	{	320	{
Lines 328-334 Link Here
328	], AC_NOTE(- your fifos are usable) fifo=1,	362	], AC_NOTE(- your fifos are usable) fifo=1,
329	AC_NOTE(- your fifos are not usable),	363	AC_NOTE(- your fifos are not usable),
330	AC_NOTE(- skipping check because we are cross compiling; assuming fifos are usable) fifo=1)	364	AC_NOTE(- skipping check because we are cross compiling; assuming fifos are usable) fifo=1)
331	rm -f conftest*	365	rm -f /tmp/conftest*
332		366
333	if test -n "$fifo"; then	367	if test -n "$fifo"; then
334	AC_CHECKING(for broken fifo implementation)	368	AC_CHECKING(for broken fifo implementation)
Lines 351-357 Link Here
351	#define S_IFIFO 0010000	385	#define S_IFIFO 0010000
352	#endif	386	#endif
353		387
354	char *fin = "conftest$$";	388	char *fin = "/tmp/conftest$$";
355		389
356	main()	390	main()
357	{	391	{
Lines 377-383 Link Here
377	], AC_NOTE(- your implementation is ok),	411	], AC_NOTE(- your implementation is ok),
378	AC_NOTE(- you have a broken implementation) AC_DEFINE(BROKEN_PIPE) fifobr=1,	412	AC_NOTE(- you have a broken implementation) AC_DEFINE(BROKEN_PIPE) fifobr=1,
379	AC_NOTE(- skipping check because we are cross compiling; assuming fifo implementation is ok))	413	AC_NOTE(- skipping check because we are cross compiling; assuming fifo implementation is ok))
380	rm -f conftest*	414	rm -f /tmp/conftest*
381	fi	415	fi
382		416
383	dnl	417	dnl
Lines 401-407 Link Here
401	#include <sys/socket.h>	435	#include <sys/socket.h>
402	#include <sys/un.h>	436	#include <sys/un.h>
403		437
404	char *son = "conftest$$";	438	char *son = "/tmp/conftest$$";
405		439
406	main()	440	main()
407	{	441	{
Lines 440-446 Link Here
440	], AC_NOTE(- your sockets are usable) sock=1,	474	], AC_NOTE(- your sockets are usable) sock=1,
441	AC_NOTE(- your sockets are not usable),	475	AC_NOTE(- your sockets are not usable),
442	AC_NOTE(- skipping check because we are cross compiling; assuming sockets are usable) sock=1)	476	AC_NOTE(- skipping check because we are cross compiling; assuming sockets are usable) sock=1)
443	rm -f conftest*	477	rm -f /tmp/conftest*
444		478
445	if test -n "$sock"; then	479	if test -n "$sock"; then
446	AC_CHECKING(socket implementation)	480	AC_CHECKING(socket implementation)
Lines 457-463 Link Here
457	#include <sys/socket.h>	491	#include <sys/socket.h>
458	#include <sys/un.h>	492	#include <sys/un.h>
459		493
460	char *son = "conftest$$";	494	char *son = "/tmp/conftest$$";
461		495
462	main()	496	main()
463	{	497	{
Lines 480-486 Link Here
480	AC_NOTE(- unix domain sockets are not kept in the filesystem)	514	AC_NOTE(- unix domain sockets are not kept in the filesystem)
481	AC_DEFINE(SOCK_NOT_IN_FS) socknofs=1,	515	AC_DEFINE(SOCK_NOT_IN_FS) socknofs=1,
482	AC_NOTE(- skipping check because we are cross compiling; assuming sockets are normal))	516	AC_NOTE(- skipping check because we are cross compiling; assuming sockets are normal))
483	rm -f conftest*	517	rm -f /tmp/conftest*
484	fi	518	fi
485		519
486		520
Lines 502-508 Link Here
502	#include <sys/stat.h>	536	#include <sys/stat.h>
503	#include <fcntl.h>	537	#include <fcntl.h>
504		538
505	char *nam = "conftest$$";	539	char *nam = "/tmp/conftest$$";
506		540
507	#ifdef NAMEDPIPE	541	#ifdef NAMEDPIPE
508		542
Lines 601-607 Link Here
601	tgetent((char )0, (char )0);	635	tgetent((char )0, (char )0);
602	#endif	636	#endif
603	],,	637	],,
604	LIBS="-ltinfo $olibs"	638	LIBS="-ltermcap $olibs"
605	AC_CHECKING(libtermcap)	639	AC_CHECKING(libtermcap)
606	AC_TRY_LINK(,tgetent((char )0, (char )0);,,	640	AC_TRY_LINK(,tgetent((char )0, (char )0);,,
607	LIBS="-ltermlib $olibs"	641	LIBS="-ltermlib $olibs"
Lines 622-630 Link Here
622	AC_MSG_ERROR(!!! no tgetent - no screen)))))))))	656	AC_MSG_ERROR(!!! no tgetent - no screen)))))))))
623		657
624	AC_TRY_RUN([	658	AC_TRY_RUN([
625
626	extern char tgoto(char ,int,int);
627
628	main()	659	main()
629	{	660	{
630	exit(strcmp(tgoto("%p1%d", 0, 1), "1") ? 0 : 1);	661	exit(strcmp(tgoto("%p1%d", 0, 1), "1") ? 0 : 1);
Lines 638-648 Link Here
638	dnl ** PTY specific things **	669	dnl ** PTY specific things **
639	dnl	670	dnl
640	if test "$cross_compiling" = no ; then	671	if test "$cross_compiling" = no ; then
		672	AC_CHECKING(for /dev/ptc)
		673	if test -r /dev/ptc; then
		674	AC_DEFINE(HAVE_DEV_PTC)
		675	fi
		676	fi
		677
		678	if test "$cross_compiling" = no ; then
641	AC_CHECKING(for SVR4 ptys)	679	AC_CHECKING(for SVR4 ptys)
642	sysvr4ptys=	680	sysvr4ptys=
		681	if test -c /dev/ptmx ; then
643	AC_TRY_LINK([],[ptsname(0);grantpt(0);unlockpt(0);],[AC_DEFINE(HAVE_SVR4_PTYS)	682	AC_TRY_LINK([],[ptsname(0);grantpt(0);unlockpt(0);],[AC_DEFINE(HAVE_SVR4_PTYS)
644	sysvr4ptys=1])	683	sysvr4ptys=1])
645	fi	684	fi
		685	fi
646		686
647	AC_CHECK_FUNCS(getpt)	687	AC_CHECK_FUNCS(getpt)
648		688
Lines 824-829 Link Here
824	dnl	864	dnl
825	dnl ** loadav **	865	dnl ** loadav **
826	dnl	866	dnl
		867	if test "$cross_compiling" = no ; then
		868	AC_CHECKING(for libutil(s))
		869	test -f /usr/lib/libutils.a && LIBS="$LIBS -lutils"
		870	test -f /usr/lib/libutil.a && LIBS="$LIBS -lutil"
		871	fi
827		872
828	AC_CHECKING(getloadavg)	873	AC_CHECKING(getloadavg)
829	AC_TRY_LINK(,[getloadavg((double *)0, 0);],	874	AC_TRY_LINK(,[getloadavg((double *)0, 0);],
Lines 1053-1058 Link Here
1053	LIBS="$LIBS -lcrypt"	1098	LIBS="$LIBS -lcrypt"
1054	AC_CHECKING(crypt)	1099	AC_CHECKING(crypt)
1055	AC_TRY_LINK(,,,LIBS="$oldlibs")	1100	AC_TRY_LINK(,,,LIBS="$oldlibs")
		1101	if test "$cross_compiling" = no ; then
		1102	test -f /lib/libsec.a \|\| test -f /usr/lib/libsec.a && LIBS="$LIBS -lsec"
		1103	test -f /lib/libshadow.a \|\| test -f /usr/lib/libshadow.a && LIBS="$LIBS -lshadow"
		1104	fi
		1105
1056	oldlibs="$LIBS"	1106	oldlibs="$LIBS"
1057	LIBS="$LIBS -lsun"	1107	LIBS="$LIBS -lsun"
1058	AC_CHECKING(IRIX sun library)	1108	AC_CHECKING(IRIX sun library)
Lines 1194-1219 Link Here
1194		1244
1195	AC_CHECK_FUNCS(rename fchmod fchown strerror lstat _exit utimes vsnprintf getcwd setlocale strftime)	1245	AC_CHECK_FUNCS(rename fchmod fchown strerror lstat _exit utimes vsnprintf getcwd setlocale strftime)
1196		1246
1197	AC_CHECK_LIB(dl, dlopen)
1198
1199	AC_ARG_ENABLE(pam, [ --enable-pam enable PAM support])	1247	AC_ARG_ENABLE(pam, [ --enable-pam enable PAM support])
1200	if test "$enable_pam" = "yes"; then	1248	if test "$enable_pam" = "yes"; then
1201	AC_MSG_CHECKING(for PAM support)	1249	AC_MSG_CHECKING(for PAM support)
1202	oldlibs="$LIBS"	1250	oldlibs="$LIBS"
1203	cf_result=no	1251	LIBS="$LIBS -lpam"
1204		1252	AC_TRY_LINK([#include <security/pam_appl.h>], [
1205	AC_CHECK_LIB(pam, pam_start, LIBS="$LIBS -lpam";cf_result=yes, cf_result=no)	1253	pam_start(0, 0, 0, 0);
1206		1254	pam_authenticate(0, 0);
1207	if test "$cf_result" = yes; then	1255	pam_end(0,0);
1208	AC_CHECK_LIB(pam_userpass, pam_userpass_conv, LIBS="$LIBS -lpam_userpass";cf_result=yes, cf_result=no)	1256	], AC_MSG_RESULT(yes);AC_DEFINE(USE_PAM),
1209	fi	1257	AC_MSG_RESULT(no);LIBS="$oldlibs")
1210
1211	if test "$cf_result" = yes; then
1212	AC_DEFINE(USE_PAM)
1213	else
1214	LIBS="$oldlibs"
1215	fi
1216	AC_MSG_RESULT($cf_result);
1217	fi	1258	fi
1218		1259
1219	AC_ARG_ENABLE(use-locale,	1260	AC_ARG_ENABLE(use-locale,

Lines 4-17 Link Here

(-)screen.orig/doc/screen.texinfo (-30 / +26 lines)
4	@documentencoding ISO-8859-15	4	@documentencoding ISO-8859-15
5	@setfilename screen.info	5	@setfilename screen.info
6	@settitle Screen User's Manual	6	@settitle Screen User's Manual
7	@dircategory Terminals	7	@dircategory General Commands
8	@finalout	8	@finalout
9	@setchapternewpage odd	9	@setchapternewpage odd
10	@c %**end of header	10	@c %**end of header
11	@set version 4.8.0	11	@set version 4.9.0
12		12
13	@direntry	13	@direntry
14	* Screen: (screen). The virtual terminal manager.	14	* Screen: (screen). Full-screen window manager.
15	@end direntry	15	@end direntry
16		16
17	@c For examples, use a literal escape in info.	17	@c For examples, use a literal escape in info.
Lines 25-31 Link Here
25	@ifinfo	25	@ifinfo
26	This file documents the @code{Screen} virtual terminal manager.	26	This file documents the @code{Screen} virtual terminal manager.
27		27
28	Copyright (c) 1993-2018 Free Software Foundation, Inc.	28	Copyright (c) 1993-2022 Free Software Foundation, Inc.
29		29
30	Permission is granted to make and distribute verbatim copies of	30	Permission is granted to make and distribute verbatim copies of
31	this manual provided the copyright notice and this permission notice	31	this manual provided the copyright notice and this permission notice
Lines 53-63 Link Here
53	@title Screen	53	@title Screen
54	@subtitle The virtual terminal manager	54	@subtitle The virtual terminal manager
55	@subtitle for Version @value{version}	55	@subtitle for Version @value{version}
56	@subtitle Feb 2020	56	@subtitle Jan 2022
57		57
58	@page	58	@page
59	@vskip 0pt plus 1filll	59	@vskip 0pt plus 1filll
60	Copyright @copyright{} 1993-2018 Free Software Foundation, Inc.	60	Copyright @copyright{} 1993-2022 Free Software Foundation, Inc.
61		61
62	Permission is granted to make and distribute verbatim copies of	62	Permission is granted to make and distribute verbatim copies of
63	this manual provided the copyright notice and this permission notice	63	this manual provided the copyright notice and this permission notice
Lines 185-191 Link Here
185	the invoking shell to the application (emacs in this case), because it is	185	the invoking shell to the application (emacs in this case), because it is
186	forked from the parent screen process, not from the invoking shell.	186	forked from the parent screen process, not from the invoking shell.
187		187
188	If @file{/var/run/utmp} is writable by @code{screen}, an appropriate record	188	If @file{/etc/utmp} is writable by @code{screen}, an appropriate record
189	will be written to this file for each window, and removed when the	189	will be written to this file for each window, and removed when the
190	window is closed. This is useful for working with @code{talk},	190	window is closed. This is useful for working with @code{talk},
191	@code{script}, @code{shutdown}, @code{rsend}, @code{sccs} and other	191	@code{script}, @code{shutdown}, @code{rsend}, @code{sccs} and other
Lines 314-320 Link Here
314		314
315	@item -l	315	@item -l
316	@itemx -ln	316	@itemx -ln
317	Turn login mode on or off (for @file{/var/run/utmp} updating). This option	317	Turn login mode on or off (for @file{/etc/utmp} updating). This option
318	is equivalent to the @code{deflogin} command (@pxref{Login}).	318	is equivalent to the @code{deflogin} command (@pxref{Login}).
319		319
320	@item -ls [@var{match}]	320	@item -ls [@var{match}]
Lines 333-345 Link Here
333	Ask your system administrator if you are not sure.	333	Ask your system administrator if you are not sure.
334	Remove sessions with the @samp{-wipe} option.	334	Remove sessions with the @samp{-wipe} option.
335		335
336	@emph{Note}:
337	If sockets are missing (and because of this, your sessions are not
338	listed), you may send a @code{SIGCHLD} to its `SCREEN'
339	process and the process will re-establish the socket (think of
340	someone cleaning @file{/tmp} thoroughly).
341
342
343	@item -L	336	@item -L
344	Tell @code{screen} to turn on automatic output logging for the	337	Tell @code{screen} to turn on automatic output logging for the
345	windows.	338	windows.
Lines 504-517 Link Here
504	@cindex screenrc	497	@cindex screenrc
505	When @code{screen} is invoked, it executes initialization commands from	498	When @code{screen} is invoked, it executes initialization commands from
506	the files @file{.screenrc} in the user's home directory and	499	the files @file{.screenrc} in the user's home directory and
507	@file{/etc/screenrc}. These defaults can be overridden in the	500	@file{/usr/local/etc/screenrc}. These defaults can be overridden in the
508	following ways:	501	following ways:
509	For the global screenrc file @code{screen} searches for the environment	502	For the global screenrc file @code{screen} searches for the environment
510	variable @code{$SYSSCREENRC} (this override feature may be disabled at	503	variable @code{$SYSSCREENRC} (this override feature may be disabled at
511	compile-time). The user specific screenrc file is	504	compile-time). The user specific screenrc file is
512	searched for in @code{$SCREENRC}, then	505	searched for in @code{$SCREENRC}, then
513	@file{@code{$HOME}/.screenrc}. The command line option @samp{-c}	506	@file{@code{$HOME}/.screenrc}. The command line option @samp{-c}
514	specifies which file to use (@pxref{Invoking Screen}. Commands in these	507	specifies which file to use (@pxref{Invoking Screen}). Commands in these
515	files are used to set options, bind commands to keys, and to	508	files are used to set options, bind commands to keys, and to
516	automatically establish one or more windows at the beginning of	509	automatically establish one or more windows at the beginning of
517	your @code{screen} session. Commands are listed one per line, with	510	your @code{screen} session. Commands are listed one per line, with
Lines 1096-1102 Link Here
1096	@item logfile @var{filename}	1089	@item logfile @var{filename}
1097	Place where to collect logfiles. @xref{Log}.	1090	Place where to collect logfiles. @xref{Log}.
1098	@item login [@var{state}]	1091	@item login [@var{state}]
1099	Log the window in @file{/var/run/utmp}. @xref{Login}.	1092	Log the window in @file{/etc/utmp}. @xref{Login}.
1100	@item logtstamp [@var{state}]	1093	@item logtstamp [@var{state}]
1101	Configure logfile time-stamps. @xref{Log}.	1094	Configure logfile time-stamps. @xref{Log}.
1102	@item mapdefault	1095	@item mapdefault
Lines 2219-2225 Link Here
2219	Without any arguments, @code{screen} will prompt for how you would	2212	Without any arguments, @code{screen} will prompt for how you would
2220	like to resize the current region.	2213	like to resize the current region.
2221		2214
2222	See @code{focusminsize} if you want to restrict the minimun size a region can have.	2215	See @code{focusminsize} if you want to restrict the minimum size a region can have.
2223		2216
2224	@end deffn	2217	@end deffn
2225		2218
Lines 2412-2418 Link Here
2412	* Naming Windows:: Control the name of the window	2405	* Naming Windows:: Control the name of the window
2413	* Console:: See the host's console messages	2406	* Console:: See the host's console messages
2414	* Kill:: Destroy an unwanted window	2407	* Kill:: Destroy an unwanted window
2415	* Login:: Control @file{/var/run/utmp} logging	2408	* Login:: Control @file{/etc/utmp} logging
2416	* Mode:: Control the file mode of the pty	2409	* Mode:: Control the file mode of the pty
2417	* Monitor:: Watch for activity or inactivity in a window	2410	* Monitor:: Watch for activity or inactivity in a window
2418	* Windows:: List the active windows	2411	* Windows:: List the active windows
Lines 2621-2627 Link Here
2621	@kindex L	2614	@kindex L
2622	@deffn Command login [state]	2615	@deffn Command login [state]
2623	(@kbd{C-a L})@*	2616	(@kbd{C-a L})@*
2624	Adds or removes the entry in @file{/var/run/utmp} for the current window.	2617	Adds or removes the entry in @file{/etc/utmp} for the current window.
2625	This controls whether or not the window is @dfn{logged in}. In addition	2618	This controls whether or not the window is @dfn{logged in}. In addition
2626	to this toggle, it is convenient to have ``log in'' and ``log out''	2619	to this toggle, it is convenient to have ``log in'' and ``log out''
2627	keys. For instance, @code{bind I login on} and @code{bind O	2620	keys. For instance, @code{bind I login on} and @code{bind O
Lines 3696-3702 Link Here
3696		3689
3697	@noindent	3690	@noindent
3698	@kbd{f}/@kbd{F}, @kbd{t}/@kbd{T} move the cursor forward/backward to the	3691	@kbd{f}/@kbd{F}, @kbd{t}/@kbd{T} move the cursor forward/backward to the
3699	next occurence of the target. (eg, '3fy' will move the cursor to the 3rd	3692	next occurrence of the target. (eg, '3fy' will move the cursor to the 3rd
3700	'y' to the right.)	3693	'y' to the right.)
3701		3694
3702	@noindent	3695	@noindent
Lines 3877-3883 Link Here
3877	(none)@*	3870	(none)@*
3878	Stuff the string @var{string} in the input buffer of the current window.	3871	Stuff the string @var{string} in the input buffer of the current window.
3879	This is like the @code{paste} command, but with much less overhead.	3872	This is like the @code{paste} command, but with much less overhead.
3880	Without a paramter, @code{screen} will prompt for a string to stuff.	3873	Without a parameter, @code{screen} will prompt for a string to stuff.
3881	You cannot paste large buffers with the @code{stuff} command. It is most	3874	You cannot paste large buffers with the @code{stuff} command. It is most
3882	useful for key bindings. @xref{Bindkey}.	3875	useful for key bindings. @xref{Bindkey}.
3883	@end deffn	3876	@end deffn
Lines 5328-5334 Link Here
5328	load averages over 1, 5, and 15 minutes (if this is available on your	5321	load averages over 1, 5, and 15 minutes (if this is available on your
5329	system). For window-specific information use @code{info} (@pxref{Info}).	5322	system). For window-specific information use @code{info} (@pxref{Info}).
5330	If a @var{string} is specified, it changes the format of the time report	5323	If a @var{string} is specified, it changes the format of the time report
5331	like it is described in the string escapes chapter (@pxref{String Escapes}). Screen uses a default of @samp{%c:%s %M %d %H%? %l%?}.	5324	like it is described in the string escapes chapter (@pxref{String Escapes}).
		5325	Screen uses a default of @samp{%c:%s %M %d %H%? %l%?}.
5332	@end deffn	5326	@end deffn
5333		5327
5334	@node Verbose, Version, Time, Miscellaneous	5328	@node Verbose, Version, Time, Miscellaneous
Lines 5578-5583 Link Here
5578	weekday name	5572	weekday name
5579	@item E	5573	@item E
5580	sets %? to true if the escape character has been pressed.	5574	sets %? to true if the escape character has been pressed.
		5575	@item e
		5576	encoding
5581	@item f	5577	@item f
5582	flags of the window. @xref{Windows}, for meanings of the various flags.	5578	flags of the window. @xref{Windows}, for meanings of the various flags.
5583	@item F	5579	@item F
Lines 5809-5821 Link Here
5809	global initialization files.	5805	global initialization files.
5810		5806
5811	@item @code{$SYSSCREENRC}	5807	@item @code{$SYSSCREENRC}
5812	@itemx /etc/screenrc	5808	@itemx /local/etc/screenrc
5813	@code{screen} initialization commands	5809	@code{screen} initialization commands
5814		5810
5815	@item @code{$SCREENRC}	5811	@item @code{$SCREENRC}
5816	@itemx @code{$HOME}/.iscreenrc	5812	@itemx @code{$HOME}/.iscreenrc
5817	@itemx @code{$HOME}/.screenrc	5813	@itemx @code{$HOME}/.screenrc
5818	Read in after /etc/screenrc	5814	Read in after /local/etc/screenrc
5819		5815
5820	@item @code{$SCREENDIR}/S-@var{login}	5816	@item @code{$SCREENDIR}/S-@var{login}
5821		5817
Lines 5842-5848 Link Here
5842	@itemx /etc/termcap	5838	@itemx /etc/termcap
5843	Terminal capability databases	5839	Terminal capability databases
5844		5840
5845	@item /var/run/utmp	5841	@item /etc/utmp
5846	Login records	5842	Login records
5847		5843
5848	@item @code{$LOCKPRG}	5844	@item @code{$LOCKPRG}
Lines 5954-5963 Link Here
5954	in order to be able to	5950	in order to be able to
5955	correctly change the owner of the tty device file for each window.	5951	correctly change the owner of the tty device file for each window.
5956	Special permission may also be required to write the file	5952	Special permission may also be required to write the file
5957	@file{/var/run/utmp}.	5953	@file{/etc/utmp}.
5958		5954
5959	@item	5955	@item
5960	Entries in @file{/var/run/utmp} are not removed when @code{screen} is killed	5956	Entries in @file{/etc/utmp} are not removed when @code{screen} is killed
5961	with SIGKILL. This will cause some programs (like "w" or "rwho") to	5957	with SIGKILL. This will cause some programs (like "w" or "rwho") to
5962	advertise that a user is logged on who really isn't.	5958	advertise that a user is logged on who really isn't.
5963		5959
Lines 5995-6001 Link Here
5995	@section Reporting Bugs	5991	@section Reporting Bugs
5996	@cindex bug report	5992	@cindex bug report
5997		5993
5998	If you find a bug in @code{Screen}, please send electronic mail to	5994	If you find a bug in @code{Screen}, please send mail to
5999	@w{@samp{screen-devel@@gnu.org}}. Include the version number	5995	@w{@samp{screen-devel@@gnu.org}}. Include the version number
6000	of @code{Screen} which you are using. Also include in your message the	5996	of @code{Screen} which you are using. Also include in your message the
6001	hardware and operating system, the compiler used to compile, a	5997	hardware and operating system, the compiler used to compile, a

Lines 1-6 Link Here

(-)screen.orig/etc/etcscreenrc (-8 / +1 lines)
1	#	1	#
2	# This is an example for the global screenrc file.	2	# This is an example for the global screenrc file.
3	# You may want to install this file as /etc/screenrc.	3	# You may want to install this file as /usr/local/etc/screenrc.
4	# Check config.h for the exact location.	4	# Check config.h for the exact location.
5	#	5	#
6	# Flaws of termcap and standard settings are done here.	6	# Flaws of termcap and standard settings are done here.
Lines 92-101 Link Here
92	bind O login off	92	bind O login off
93	bind } history	93	bind } history
94		94
95	# Red Hat Hack^H^H^H^HPatch
96	# This makes screen treat backspaces '^?' as
97	# deletes. There should be a fix in the code
98	# for the way termcap inheritance works,
99	# but I dont know where to put it, and this works.
100	bindkey -d -k kb stuff \010
101	# /Red Hat Patch

Lines 130-144 Link Here

(-)screen.orig/etc/screenrc (-9 lines)
130	register ] "\033:se ai\015a"	130	register ] "\033:se ai\015a"
131	bind ^] paste [.]	131	bind ^] paste [.]
132		132
133	# Red Hat Hack^H^H^H^HPatch
134	# This makes screen treat backspaces '^?' as
135	# deletes. There should be a fix in the code
136	# for the way termcap inheritance works,
137	# but I dont know where to put it, and this works.
138	bindkey -d -k kb stuff \010
139	# /Red Hat Patch
140
141
142	################	133	################
143	#	134	#
144	# default windows	135	# default windows

Lines 40-46 Link Here

(-)screen.orig/INSTALL (-3 / +3 lines)
40	not. At least it must be on a filesystem that supports sockets/fifos.	40	not. At least it must be on a filesystem that supports sockets/fifos.
41	SOCKDIR must not point into an AFS (Andrew File System) mounted directory.	41	SOCKDIR must not point into an AFS (Andrew File System) mounted directory.
42	If you are uncertain about your NFS implementation, use a UFS directory for	42	If you are uncertain about your NFS implementation, use a UFS directory for
43	SOCKDIR. Personally, I favour a users home directory and recommend the the	43	SOCKDIR. Personally, I favour a user's home directory and recommend the the
44	/tmp/ area.	44	/tmp/ area.
45	The path for ETCSCREENRC may also need to be adapted.	45	The path for ETCSCREENRC may also need to be adapted.
46		46
Lines 58-64 Link Here
58	--------------------	58	--------------------
59	You may well run screen from your private binary directory and with a	59	You may well run screen from your private binary directory and with a
60	private socket directory like $HOME/.screen. But to have a full featured	60	private socket directory like $HOME/.screen. But to have a full featured
61	screen and (from a users point of view) more secure pty's you should	61	screen and (from a user's point of view) more secure pty's you should
62	consult a system administrator and discuss installing screen setuid-root	62	consult a system administrator and discuss installing screen setuid-root
63	in some globally accessible directory like /usr/local/bin.	63	in some globally accessible directory like /usr/local/bin.
64		64
Lines 94-100 Link Here
94	The files screenrc and etc/etcscreenrc are instructive samples that	94	The files screenrc and etc/etcscreenrc are instructive samples that
95	demonstrate what can/should be done from your private .screenrc and from	95	demonstrate what can/should be done from your private .screenrc and from
96	$ETCSCREENRC -- do not just copy them. Read them. Look through the	96	$ETCSCREENRC -- do not just copy them. Read them. Look through the
97	etcscreenrc file for system wide defaults that you like to set. e.g.	97	etcscreenrc file for system wide defaults that you like to set, e.g.
98	autodetach off, startup_message off, vbell on, ...	98	autodetach off, startup_message off, vbell on, ...
99	Since version 3.2.15 the screenrc file syntax changed slightly. All rc files	99	Since version 3.2.15 the screenrc file syntax changed slightly. All rc files
100	from previous versions should be run through the 'newsyntax' script that comes	100	from previous versions should be run through the 'newsyntax' script that comes

Lines 17-23 Link Here

(-)screen.orig/.iscreenrc (-10 / +10 lines)
17	echo -n "booting screen"	17	echo -n "booting screen"
18		18
19	# let it flash, not horn!	19	# let it flash, not horn!
20	#vbell on # "vbell" don't work any longer, sorry.	20	#vbell on # "vbell" doesn't work any longer, sorry.
21	#vbell_msg " Wuff, Wuff!! " # this is the default message	21	#vbell_msg " Wuff, Wuff!! " # this is the default message
22	#bell "Bimmmel No. %" # sounds the bell and shows a message	22	#bell "Bimmmel No. %" # sounds the bell and shows a message
23		23
Lines 45-55 Link Here
45	# Printing in the leftmost column is not save. We express that fact as :LP@:	45	# Printing in the leftmost column is not save. We express that fact as :LP@:
46	#	46	#
47	# Emacs tends to smear it's highlighted status bar across the screen, producing	47	# Emacs tends to smear it's highlighted status bar across the screen, producing
48	# ugly areas of bright background, if termcap is'nt perfectly sober.	48	# ugly areas of bright background, if termcap isn't perfectly sober.
49	# Give a little :ms@: in the termcap, this may help.	49	# Give a little :ms@: in the termcap, this may help.
50	#	50	#
51	# And who invented the initialisation for facit terminals? We tell him that	51	# And who invented the initialisation for facit terminals? We tell him that
52	# we non't like smooth scroll, by specifying :ti=\E[?l:.	52	# we don't like smooth scroll, by specifying :ti=\E[?l:.
53	# \E[?3l 80 Zeichen	53	# \E[?3l 80 Zeichen
54	# \E[?3h 132 Zeichen	54	# \E[?3h 132 Zeichen
55	# LP Last column Printable	55	# LP Last column Printable
Lines 92-102 Link Here
92	# ICL 6402 testing:	92	# ICL 6402 testing:
93	termcap icl* G0:S0=\E$[start]:E0=\E%[end]:C0=j9k<l6m3n?q\:t7u=v;w>x5 GS=\E(0^O:GE=\E(B^O:G1=k:G2=l:G3=m:G4=j:GV=x:GH=q:GR=u:GL=t:GU=w:GD=v:GC=n	93	termcap icl* G0:S0=\E$[start]:E0=\E%[end]:C0=j9k<l6m3n?q\:t7u=v;w>x5 GS=\E(0^O:GE=\E(B^O:G1=k:G2=l:G3=m:G4=j:GV=x:GH=q:GR=u:GL=t:GU=w:GD=v:GC=n
94		94
95	# Flowcontrol produces trouble. ^S und ^Q will never reach screen, as our	95	# Flow control produces trouble. ^S und ^Q will never reach screen, as our
96	# terminals catch them locally. Who can explain that to me?:	96	# terminals catch them locally. Who can explain that to me?:
97	#flow on\|off\|auto [interrupt]	97	#flow on\|off\|auto [interrupt]
98		98
99	# Long Lines get wrapped around (the back of your terminal). This is the	99	# Long lines get wrapped around (the back of your terminal). This is the
100	# default for vt100. But now programs make different asumptions about your	100	# default for vt100. But now programs make different asumptions about your
101	# terminal. You may find two linefeeds where you'd expect one, or you may	101	# terminal. You may find two linefeeds where you'd expect one, or you may
102	# be confronted with a truncated line. Currently there is no fix, but pressing	102	# be confronted with a truncated line. Currently there is no fix, but pressing
Lines 106-115 Link Here
106	# the autoaka allows you to see the currently executing shell command in the	106	# the autoaka allows you to see the currently executing shell command in the
107	# window name field. To use that, your shell prompt must contain ^[k^[\ or	107	# window name field. To use that, your shell prompt must contain ^[k^[\ or
108	# you will see the string "(init)" as a name.	108	# you will see the string "(init)" as a name.
109	# in my .cshrc I may use this for a wonderfull tcsh-prompt:	109	# in my .cshrc I may use this for a wonderful tcsh-prompt:
110	# set prompt="%{^[k^[\\%}%h %c2(%m)%# "	110	# set prompt="%{^[k^[\\%}%h %c2(%m)%# "
111	#	111	#
112	# defining a shellaka that contains a pipe-symbol (\|) activites the	112	# defining a shellaka that contains a pipe-symbol (\|) activates the
113	# autoaka feature. To the left of that \| you specify a constant part of	113	# autoaka feature. To the left of that \| you specify a constant part of
114	# your prompt as a trigger, to the right you may place a default string	114	# your prompt as a trigger, to the right you may place a default string
115	# as in	115	# as in
Lines 121-128 Link Here
121	# ... now a little bit of key bindings	121	# ... now a little bit of key bindings
122	# In case we don't have write permission for /etc/utmp (no s-bit)	122	# In case we don't have write permission for /etc/utmp (no s-bit)
123	# we create even local windows via rlogin. -> Et voila: a utmp-slot	123	# we create even local windows via rlogin. -> Et voila: a utmp-slot
124	# utmp-slots are strongly recomended to keep sccs and talk happy.	124	# utmp-slots are strongly recommended to keep sccs and talk happy.
125	# (thus we have ^A# or. ^Ac for windowcreation with or without utmp-slot.)	125	# (thus we have ^A# or. ^Ac for window creation with or without utmp-slot.)
126	# but if we run suid-root, we produce all the rlogins with -ln,	126	# but if we run suid-root, we produce all the rlogins with -ln,
127	# as nobody shall refer to these pty's.	127	# as nobody shall refer to these pty's.
128	bind '!' screen -ln -k faui41 rlogin faui41	128	bind '!' screen -ln -k faui41 rlogin faui41
Lines 151-157 Link Here
151	# What happens, when you 'think emacs' and want to erase a whole	151	# What happens, when you 'think emacs' and want to erase a whole
152	# line? You type ^A^K right? Under screen it should be ^Aa^K. But...	152	# line? You type ^A^K right? Under screen it should be ^Aa^K. But...
153	# killing the window would be a real punishment for a little mistyping.	153	# killing the window would be a real punishment for a little mistyping.
154	bind k #wow! I even amange to type ^Ak by accident.	154	bind k #wow! I even mange to type ^Ak by accident.
155	#bind ^k	155	#bind ^k
156	#bind K kill	156	#bind K kill
157		157

Lines 85-97 Link Here

(-)screen.orig/loadav.c (-3 / +3 lines)
85		85
86	if ((fp = secfopen("/proc/loadavg", "r")) == NULL)	86	if ((fp = secfopen("/proc/loadavg", "r")) == NULL)
87	return 0;	87	return 0;
88	s = fgets(buf, sizeof(buf), fp);	88	*buf = 0;
		89	fgets(buf, sizeof(buf), fp);
89	fclose(fp);	90	fclose(fp);
90	if (s == NULL)
91	return 0;
92	/* can't use fscanf because the decimal point symbol depends on	91	/* can't use fscanf because the decimal point symbol depends on
93	* the locale but the kernel uses always '.'.	92	* the locale but the kernel uses always '.'.
94	*/	93	*/
		94	s = buf;
95	for (i = 0; i < (LOADAV_NUM > 3 ? 3 : LOADAV_NUM); i++)	95	for (i = 0; i < (LOADAV_NUM > 3 ? 3 : LOADAV_NUM); i++)
96	{	96	{
97	d = e = 0;	97	d = e = 0;

Lines 67-73 Link Here

(-)screen.orig/Makefile.in (-8 / +8 lines)
67	sched.c teln.c nethack.c encoding.c canvas.c layout.c viewport.c \	67	sched.c teln.c nethack.c encoding.c canvas.c layout.c viewport.c \
68	list_display.c list_generic.c list_window.c	68	list_display.c list_generic.c list_window.c
69	OFILES= screen.o ansi.o fileio.o mark.o misc.o resize.o socket.o \	69	OFILES= screen.o ansi.o fileio.o mark.o misc.o resize.o socket.o \
70	search.o tty.o term.o window.o utmp.o loadav.o help.o \	70	search.o tty.o term.o window.o utmp.o loadav.o putenv.o help.o \
71	termcap.o input.o attacher.o pty.o process.o display.o comm.o \	71	termcap.o input.o attacher.o pty.o process.o display.o comm.o \
72	kmapdef.o acls.o braille.o braille_tsi.o logfile.o layer.o \	72	kmapdef.o acls.o braille.o braille_tsi.o logfile.o layer.o \
73	list_generic.o list_display.o list_window.o \	73	list_generic.o list_display.o list_window.o \
Lines 91-105 Link Here
91	-if [ -f $(DESTDIR)$(bindir)/screen ] && [ ! -f $(DESTDIR)$(bindir)/screen.old ]; then mv $(DESTDIR)$(bindir)/screen $(DESTDIR)$(bindir)/screen.old; fi	91	-if [ -f $(DESTDIR)$(bindir)/screen ] && [ ! -f $(DESTDIR)$(bindir)/screen.old ]; then mv $(DESTDIR)$(bindir)/screen $(DESTDIR)$(bindir)/screen.old; fi
92	rm -f $(DESTDIR)$(bindir)/screen	92	rm -f $(DESTDIR)$(bindir)/screen
93	(cd $(DESTDIR)$(bindir) && ln -f -s $(SCREEN) screen)	93	(cd $(DESTDIR)$(bindir) && ln -f -s $(SCREEN) screen)
94	cp $(srcdir)/utf8encodings/?? $(RPM_BUILD_ROOT)$(SCREENENCODINGS)	94	cp $(srcdir)/utf8encodings/?? $(DESTDIR)$(SCREENENCODINGS)
95		95
96	###############################################################################	96	###############################################################################
97	install: installdirs install_bin	97	install: installdirs install_bin
98	pushd doc ; $(MAKE) install; popd	98	cd doc ; $(MAKE) install
99	-(export TERMINFO="$(DESTDIR)$(datadir)/terminfo"; if [ -d "$$TERMINFO" ]; then \	99	-if [ -d $(DESTDIR)/usr/lib/terminfo ]; then \
100	tic ${srcdir}/terminfo/screeninfo.src; \	100	PATH="$$PATH:/usr/5bin" tic ${srcdir}/terminfo/screeninfo.src; \
101	chmod 644 "$$TERMINFO"/s/screen*; \	101	chmod 644 $(DESTDIR)/usr/lib/terminfo/s/screen*; \
102	fi)	102	fi
103	# Better do this by hand. E.g. under RCS...	103	# Better do this by hand. E.g. under RCS...
104	# cat ${srcdir}/terminfo/screencap >> /etc/termcap	104	# cat ${srcdir}/terminfo/screencap >> /etc/termcap
105	@echo "termcap entry (${srcdir}/terminfo/screencap) should be installed manually."	105	@echo "termcap entry (${srcdir}/terminfo/screencap) should be installed manually."
Lines 107-113 Link Here
107		107
108	installdirs:	108	installdirs:
109	# Path leading to ETCSCREENRC and Socketdirectory not checked.	109	# Path leading to ETCSCREENRC and Socketdirectory not checked.
110	$(srcdir)/etc/mkinstalldirs $(DESTDIR)$(bindir) $(RPM_BUILD_ROOT)$(SCREENENCODINGS)	110	$(srcdir)/etc/mkinstalldirs $(DESTDIR)$(bindir) $(DESTDIR)$(SCREENENCODINGS)
111	cd doc ; $(MAKE) installdirs	111	cd doc ; $(MAKE) installdirs
112		112
113	uninstall: .version	113	uninstall: .version

Lines 378-386 Link Here

(-)screen.orig/misc.c (-4 / +1 lines)
378	f = rl.rlim_max;	378	f = rl.rlim_max;
379	else	379	else
380	#endif /* SVR4 */	380	#endif /* SVR4 */
381	#ifdef _SC_OPEN_MAX	381	#if defined(SYSV) && defined(NOFILE) && !defined(ISC)
382	f = sysconf(_SC_OPEN_MAX);
383	#elif defined(SYSV) && defined(NOFILE) && !defined(ISC)
384	f = NOFILE;	382	f = NOFILE;
385	while (--f > 2)	383	while (--f > 2)
386	if (f != except)	384	if (f != except)
Lines 437-443 Link Here
437	return 1;	435	return 1;
438	Usersigcld = signal(SIGCHLD, SIG_DFL);	436	Usersigcld = signal(SIGCHLD, SIG_DFL);
439	debug("UserContext: forking.\n");	437	debug("UserContext: forking.\n");
440	fflush(NULL);
441	switch (UserPID = fork())	438	switch (UserPID = fork())
442	{	439	{
443	case -1:	440	case -1:

Lines 47-290 Link Here

(-)screen.orig/sched.c (-199 / +181 lines)
47	#endif	47	#endif
48		48
49	void	49	void
50	evenq(ev)	50	evenq(struct event *ev)
51	struct event *ev;
52	{	51	{
53	struct event evp, *evpp;	52	struct event evp, *evpp;
54	debug3("New event fd %d type %d queued %d\n", ev->fd, ev->type, ev->queued);	53	debug3("New event fd %d type %d queued %d\n", ev -> fd, ev -> type, ev -> queued);
55	if (ev->queued)	54	if (ev->queued)
56	return;	55	return;
57	evpp = &evs;	56	evpp = &evs;
58	if (ev->type == EV_TIMEOUT)	57	if (ev->type == EV_TIMEOUT) {
59	{	58	calctimeout = 1;
60	calctimeout = 1;	59	evpp = &tevs;
61	evpp = &tevs;	60	}
62	}	61	for (; (evp = *evpp); evpp = &evp->next)
63	for (; (evp = *evpp); evpp = &evp->next)	62	if (ev->pri > evp->pri)
64	if (ev->pri > evp->pri)	63	break;
65	break;	64	ev->next = evp;
66	ev->next = evp;	65	*evpp = ev;
67	*evpp = ev;	66	ev->queued = 1;
68	ev->queued = 1;
69	}	67	}
70		68
71	void	69	void
72	evdeq(ev)	70	evdeq(struct event *ev)
73	struct event *ev;
74	{	71	{
75	struct event evp, *evpp;	72	struct event evp, *evpp;
76	debug3("Deq event fd %d type %d queued %d\n", ev->fd, ev->type, ev->queued);	73	debug3("Deq event fd %d type %d queued %d\n", ev -> fd, ev -> type, ev -> queued);
77	if (!ev->queued)	74	if (!ev->queued)
78	return;	75	return;
79	evpp = &evs;	76	evpp = &evs;
80	if (ev->type == EV_TIMEOUT)	77	if (ev->type == EV_TIMEOUT) {
81	{	78	calctimeout = 1;
82	calctimeout = 1;	79	evpp = &tevs;
83	evpp = &tevs;	80	}
84	}	81	for (; (evp = *evpp); evpp = &evp->next)
85	for (; (evp = *evpp); evpp = &evp->next)	82	if (evp == ev)
86	if (evp == ev)	83	break;
87	break;	84	ASSERT(evp);
88	ASSERT(evp);	85	*evpp = ev->next;
89	*evpp = ev->next;	86	ev->queued = 0;
90	ev->queued = 0;	87	if (ev == nextev)
91	if (ev == nextev)	88	nextev = nextev->next;
92	nextev = nextev->next;
93	}	89	}
94		90
95	static struct event *	91	static struct event *
96	calctimo()	92	calctimo()
97	{	93	{
98	struct event ev, min;	94	struct event ev, min;
99	long mins;	95	long mins;
100		96
101	if ((min = tevs) == 0)	97	if ((min = tevs) == 0)
102	return 0;	98	return 0;
103	mins = min->timeout.tv_sec;	99	mins = min->timeout.tv_sec;
104	for (ev = tevs->next; ev; ev = ev->next)	100	for (ev = tevs->next; ev; ev = ev->next) {
105	{	101	ASSERT(ev->type == EV_TIMEOUT);
106	ASSERT(ev->type == EV_TIMEOUT);	102	if (mins < ev->timeout.tv_sec)
107	if (mins < ev->timeout.tv_sec)	103	continue;
108	continue;	104	if (mins > ev->timeout.tv_sec \|\| min->timeout.tv_usec > ev->timeout.tv_usec) {
109	if (mins > ev->timeout.tv_sec \|\| min->timeout.tv_usec > ev->timeout.tv_usec)	105	min = ev;
110	{	106	mins = ev->timeout.tv_sec;
111	min = ev;	107	}
112	mins = ev->timeout.tv_sec;
113	}	108	}
114	}	109	return min;
115	return min;
116	}	110	}
117		111
118	void	112	void
119	sched()	113	sched()
120	{	114	{
121	struct event *ev;	115	struct event *ev;
122	fd_set r, w, *set;	116	fd_set r, w, *set;
123	struct event *timeoutev = 0;	117	struct event *timeoutev = 0;
124	struct timeval timeout;	118	struct timeval timeout;
125	int nsel;	119	int nsel;
126		120
127	for (;;)	121	for (;;) {
128	{	122	if (calctimeout)
129	if (calctimeout)	123	timeoutev = calctimo();
130	timeoutev = calctimo();	124	if (timeoutev) {
131	if (timeoutev)	125	gettimeofday(&timeout, NULL);
132	{	126	/* tp - timeout */
133	gettimeofday(&timeout, NULL);	127	timeout.tv_sec = timeoutev->timeout.tv_sec - timeout.tv_sec;
134	/* tp - timeout */	128	timeout.tv_usec = timeoutev->timeout.tv_usec - timeout.tv_usec;
135	timeout.tv_sec = timeoutev->timeout.tv_sec - timeout.tv_sec;	129
136	timeout.tv_usec = timeoutev->timeout.tv_usec - timeout.tv_usec;	130	if (timeout.tv_usec < 0) {
137	if (timeout.tv_usec < 0)	131	timeout.tv_usec += 1000000;
138	{	132	timeout.tv_sec--;
139	timeout.tv_usec += 1000000;	133	}
140	timeout.tv_sec--;	134	if (timeout.tv_sec < 0) {
141	}	135	timeout.tv_usec = 0;
142	if (timeout.tv_sec < 0)	136	timeout.tv_sec = 0;
143	{	137	}
144	timeout.tv_usec = 0;	138	}
145	timeout.tv_sec = 0;
146	}
147	}
148	#ifdef DEBUG	139	#ifdef DEBUG
149	debug("waiting for events");	140	debug("waiting for events");
150	if (timeoutev)	141	if (timeoutev)
151	debug2(" timeout %ld secs %ld usecs", timeout.tv_sec, timeout.tv_usec);	142	debug2(" timeout %d secs %d usecs", timeout.tv_sec, timeout.tv_usec);
152	debug(":\n");	143	debug(":\n");
153	for (ev = evs; ev; ev = ev->next)	144	for (ev = evs; ev; ev = ev->next)
154	debug3(" - fd %d type %d pri %d\n", ev->fd, ev->type, ev->pri);	145	debug3(" - fd %d type %d pri %d\n", ev->fd, ev->type, ev->pri);
155	if (tevs)	146	if (tevs)
156	debug("timed events:\n");	147	debug("timed events:\n");
157	for (ev = tevs; ev; ev = ev->next)	148	for (ev = tevs; ev; ev = ev->next)
158	debug3(" - pri %d sec %ld usec %ld\n", ev->pri, ev->timeout.tv_sec, ev->timeout.tv_usec);	149	debug3(" - pri %d sec %d usec %d\n", ev->pri,
159	#endif	150	ev->timeout.tv_sec, ev->timeout.tv_usec);
160		151	#endif
161	FD_ZERO(&r);	152
162	FD_ZERO(&w);	153	FD_ZERO(&r);
163	for (ev = evs; ev; ev = ev->next)	154	FD_ZERO(&w);
164	{	155	for (ev = evs; ev; ev = ev->next) {
165	if (ev->condpos && ev->condpos <= (ev->condneg ? ev->condneg : 0))	156	if (ev->condpos && ev->condpos <= (ev->condneg ? ev->condneg : 0)) {
166	{	157	debug2(" - cond ev fd %d type %d failed\n", ev->fd, ev->type);
167	debug2(" - cond ev fd %d type %d failed\n", ev->fd, ev->type);	158	continue;
168	continue;	159	}
169	}	160	if (ev->type == EV_READ)
170	if (ev->type == EV_READ)	161	FD_SET(ev->fd, &r);
171	FD_SET(ev->fd, &r);	162	else if (ev->type == EV_WRITE)
172	else if (ev->type == EV_WRITE)	163	FD_SET(ev->fd, &w);
173	FD_SET(ev->fd, &w);	164	}
174	}
175		165
176	#ifdef DEBUG	166	#ifdef DEBUG
177	debug("readfds:");	167	debug("readfds:");
178	for (nsel = 0; nsel < FD_SETSIZE; nsel++)	168	for (nsel = 0; nsel < FD_SETSIZE; nsel++)
179	if (FD_ISSET(nsel, &r))	169	if (FD_ISSET(nsel, &r))
180	debug1(" %d", nsel);	170	debug1(" %d", nsel);
181	debug("\n");	171	debug("\n");
182	debug("writefds:");	172	debug("writefds:");
183	for (nsel = 0; nsel < FD_SETSIZE; nsel++)	173	for (nsel = 0; nsel < FD_SETSIZE; nsel++)
184	if (FD_ISSET(nsel, &w))	174	if (FD_ISSET(nsel, &w))
185	debug1(" %d", nsel);	175	debug1(" %d", nsel);
186	debug("\n");	176	debug("\n");
187	#endif	177	#endif
188		178
189	nsel = select(FD_SETSIZE, &r, &w, (fd_set )0, timeoutev ? &timeout : (struct timeval ) 0);	179	nsel = select(FD_SETSIZE, &r, &w, (fd_set )0, timeoutev ? &timeout : (struct timeval )0);
190	if (nsel < 0)	180	if (nsel < 0) {
191	{	181	if (errno != EINTR) {
192	if (errno != EINTR)
193	{
194	#if defined(sgi) && defined(SVR4)	182	#if defined(sgi) && defined(SVR4)
195	if (errno == EIO && sgihack())	183	if (errno == EIO && sgihack())
196	continue;	184	continue;
197	#endif	185	#endif
198	#if defined(__osf__) \|\| defined(M_UNIX)	186	#if defined(__osf__) \|\| defined(M_UNIX)
199	/* OSF/1 3.x, SCO bug: EBADF */	187	/* OSF/1 3.x, SCO bug: EBADF */
200	/* OSF/1 4.x bug: EIO */	188	/* OSF/1 4.x bug: EIO */
201	if ((errno == EIO \|\| errno == EBADF) && sgihack())	189	if ((errno == EIO \|\| errno == EBADF) && sgihack())
202	continue;	190	continue;
203	#endif	191	#endif
204	Panic(errno, "select");	192	Panic(errno, "select");
205	}	193	}
206	nsel = 0;	194	nsel = 0;
207	}	195	} else if (nsel == 0) { /* timeout */
208	else if (nsel == 0) /* timeout */	196	debug("TIMEOUT!\n");
209	{	197	ASSERT(timeoutev);
210	debug("TIMEOUT!\n");	198	evdeq(timeoutev);
211	ASSERT(timeoutev);	199	timeoutev->handler(timeoutev, timeoutev->data);
212	evdeq(timeoutev);	200	}
213	timeoutev->handler(timeoutev, timeoutev->data);
214	}
215	#ifdef SELECT_BROKEN	201	#ifdef SELECT_BROKEN
216	/*	202	/*
217	* Sequents select emulation counts a descriptor which is	203	* Sequents select emulation counts a descriptor which is
218	* readable and writeable only as one hit. Waaaaa.	204	* readable and writeable only as one hit. Waaaaa.
219	*/	205	*/
220	if (nsel)	206	if (nsel)
221	nsel = 2 * FD_SETSIZE;	207	nsel = 2 * FD_SETSIZE;
222	#endif	208	#endif
223		209
224	for (ev = evs; ev; ev = nextev)	210	for (ev = evs; ev; ev = nextev) {
225	{	211	nextev = ev->next;
226	nextev = ev->next;	212	if (ev->type != EV_ALWAYS) {
227	if (ev->type != EV_ALWAYS)	213	set = ev->type == EV_READ ? &r : &w;
228	{	214	if (nsel == 0 \|\| !FD_ISSET(ev->fd, set))
229	set = ev->type == EV_READ ? &r : &w;	215	continue;
230	if (nsel == 0 \|\| !FD_ISSET(ev->fd, set))	216	nsel--;
231	continue;	217	}
232	nsel--;	218	if (ev->condpos &&
233	}	219	ev->condpos <= (ev->condneg ? ev->condneg : 0))
234	if (ev->condpos && ev->condpos <= (ev->condneg ? ev->condneg : 0))	220	continue;
235	continue;	221	debug2(" + hit ev fd %d type %d!\n", ev->fd, ev->type);
236	debug2(" + hit ev fd %d type %d!\n", ev->fd, ev->type);	222	ev->handler(ev, ev->data);
237	ev->handler(ev, ev->data);	223	}
238	}	224	}
239	}
240	}	225	}
241		226
242	void	227	void
243	SetTimeout(ev, timo)	228	SetTimeout(struct event *ev, int timo)
244	struct event *ev;	229	{
245	int timo;	230	ASSERT(ev->type == EV_TIMEOUT);
246	{	231	debug2("event %x new timeout %d ms\n", ev, timo);
247	ASSERT(ev->type == EV_TIMEOUT);	232	gettimeofday(&ev->timeout, NULL);
248	debug2("event %p new timeout %d ms\n", ev, timo);	233	ev->timeout.tv_sec += timo / 1000;
249	gettimeofday(&ev->timeout, NULL);	234	ev->timeout.tv_usec += (timo % 1000) * 1000;
250	ev->timeout.tv_sec += timo / 1000;	235
251	ev->timeout.tv_usec += (timo % 1000) * 1000;	236	if (ev->timeout.tv_usec > 1000000) {
252	if (ev->timeout.tv_usec > 1000000)	237	ev->timeout.tv_usec -= 1000000;
253	{	238	ev->timeout.tv_sec++;
254	ev->timeout.tv_usec -= 1000000;	239	}
255	ev->timeout.tv_sec++;	240	if (ev->queued)
256	}	241	calctimeout = 1;
257	if (ev->queued)
258	calctimeout = 1;
259	}	242	}
260		243
261
262	#if (defined(sgi) && defined(SVR4)) \|\| defined(__osf__) \|\| defined(M_UNIX)	244	#if (defined(sgi) && defined(SVR4)) \|\| defined(__osf__) \|\| defined(M_UNIX)
263		245	/* do we still need it?
		246	@anaumov */
264	extern struct display display, displays;	247	extern struct display display, displays;
265	static int sgihack()	248	static int
		249	sgihack()
266	{	250	{
267	fd_set r, w;	251	fd_set r, w;
268	struct timeval tv;	252	struct timeval tv;
269		253
270	debug("IRIX5.2 workaround: searching for bad display\n");	254	debug("IRIX5.2 workaround: searching for bad display\n");
271	for (display = displays; display; )	255	for (display = displays; display;) {
272	{	256	FD_ZERO(&r);
273	FD_ZERO(&r);	257	FD_ZERO(&w);
274	FD_ZERO(&w);	258	FD_SET(D_userfd, &r);
275	FD_SET(D_userfd, &r);	259	FD_SET(D_userfd, &w);
276	FD_SET(D_userfd, &w);	260	tv.tv_sec = tv.tv_usec = 0;
277	tv.tv_sec = tv.tv_usec = 0;	261	if (select(FD_SETSIZE, &r, &w, (fd_set *)0, &tv) == -1) {
278	if (select(FD_SETSIZE, &r, &w, (fd_set *)0, &tv) == -1)	262	if (errno == EINTR)
279	{	263	continue;
280	if (errno == EINTR)	264	Hangup(); /* goodbye display */
281	continue;	265	return 1;
282	Hangup(); /* goodbye display */	266	}
283	return 1;	267	display = display->d_next;
284	}	268	}
285	display = display->d_next;	269	return 0;
286	}
287	return 0;
288	}	270	}
289		271
290	#endif	272	#endif

Lines 122-128 Link Here

(-)screen.orig/screen.c (-99 / +65 lines)
122	FILE *dfp;	122	FILE *dfp;
123	#endif	123	#endif
124		124
125	char bufferfile[MAXPATHLEN];
126		125
127	extern char Term[], screenterm[], **environ, Termcap[];	126	extern char Term[], screenterm[], **environ, Termcap[];
128	int force_vt = 1;	127	int force_vt = 1;
Lines 154-162 Link Here
154	static void SigChldHandler __P((void));	153	static void SigChldHandler __P((void));
155	static sigret_t SigChld __P(SIGPROTOARG);	154	static sigret_t SigChld __P(SIGPROTOARG);
156	static sigret_t SigInt __P(SIGPROTOARG);	155	static sigret_t SigInt __P(SIGPROTOARG);
157	#if 0
158	static sigret_t CoreDump __P(SIGPROTOARG);	156	static sigret_t CoreDump __P(SIGPROTOARG);
159	#endif
160	static sigret_t FinitHandler __P(SIGPROTOARG);	157	static sigret_t FinitHandler __P(SIGPROTOARG);
161	static void DoWait __P((void));	158	static void DoWait __P((void));
162	static void serv_read_fn __P((struct event , char ));	159	static void serv_read_fn __P((struct event , char ));
Lines 239-245 Link Here
239		236
240	char HostName[MAXSTR];	237	char HostName[MAXSTR];
241	int MasterPid, PanicPid;	238	int MasterPid, PanicPid;
242	int real_uid, real_gid, eff_uid, eff_gid, init_eff_gid;	239	int real_uid, real_gid, eff_uid, eff_gid;
243	int default_startup;	240	int default_startup;
244	int ZombieKey_destroy, ZombieKey_resurrect, ZombieKey_onerror;	241	int ZombieKey_destroy, ZombieKey_resurrect, ZombieKey_onerror;
245	char preselect = NULL; / only used in Attach() */	242	char preselect = NULL; / only used in Attach() */
Lines 271-277 Link Here
271	*/	268	*/
272	#include "extern.h"	269	#include "extern.h"
273		270
274	const char strnomem[] = "Out of memory.";	271	char strnomem[] = "Out of memory.";
275		272
276	static int InterruptPlease;	273	static int InterruptPlease;
277	static int GotSigChld;	274	static int GotSigChld;
Lines 470-475 Link Here
470	timestring = SaveStr("%c:%s %M %d %H%? %l%?");	467	timestring = SaveStr("%c:%s %M %d %H%? %l%?");
471	wlisttit = SaveStr(" Num Name%=Flags");	468	wlisttit = SaveStr(" Num Name%=Flags");
472	wliststr = SaveStr("%4n %t%=%f");	469	wliststr = SaveStr("%4n %t%=%f");
		470	#ifdef COPY_PASTE
		471	BufferFile = SaveStr(DEFAULT_BUFFERFILE);
		472	#endif
473	ShellProg = NULL;	473	ShellProg = NULL;
474	#ifdef POW_DETACH	474	#ifdef POW_DETACH
475	PowDetachString = 0;	475	PowDetachString = 0;
Lines 509-515 Link Here
509	real_uid = getuid();	509	real_uid = getuid();
510	real_gid = getgid();	510	real_gid = getgid();
511	eff_uid = geteuid();	511	eff_uid = geteuid();
512	init_eff_gid = eff_gid = getegid();	512	eff_gid = getegid();
513		513
514	logreopen_register(lf_secreopen);	514	logreopen_register(lf_secreopen);
515		515
Lines 778-783 Link Here
778	if (--ac == 0)	778	if (--ac == 0)
779	exit_with_usage(myname, "Specify session-name with -S", NULL);	779	exit_with_usage(myname, "Specify session-name with -S", NULL);
780	SockMatch = *++av;	780	SockMatch = *++av;
		781	debug1("SockMatch: '%s'\n", SockMatch);
		782	debug1("SockMatch len: '%d'\n", (int)strlen(SockMatch));
		783	if (strlen(SockMatch) > 80)
		784	exit_with_usage(myname, "Session-name is too long (max length is 80 symbols)", NULL);
781	}	785	}
782	if (!*SockMatch)	786	if (!*SockMatch)
783	exit_with_usage(myname, "Empty session-name?", NULL);	787	exit_with_usage(myname, "Empty session-name?", NULL);
Lines 806-824 Link Here
806	break;	810	break;
807	}	811	}
808		812
809	#if 0
810	if (eff_uid != real_uid)
811	{
812	/* if running with s-bit, we must install a special signal
813	* handler routine that resets the s-bit, so that we get a
814	* core file anyway.
815	*/
816	#ifdef SIGBUS /* OOPS, linux has no bus errors! */	813	#ifdef SIGBUS /* OOPS, linux has no bus errors! */
817	signal(SIGBUS, CoreDump);	814	signal(SIGBUS, CoreDump);
818	#endif /* SIGBUS */	815	#endif /* SIGBUS */
819	signal(SIGSEGV, CoreDump);	816	signal(SIGSEGV, CoreDump);
820		817
821	#endif
822		818
823	#ifdef USE_LOCALE	819	#ifdef USE_LOCALE
824	setlocale(LC_ALL, "");	820	setlocale(LC_ALL, "");
Lines 1042-1052 Link Here
1042	#endif /* DEBUG */	1038	#endif /* DEBUG */
1043	}	1039	}
1044		1040
1045	#ifdef COPY_PASTE
1046	snprintf(bufferfile, sizeof(bufferfile), "%s/.screen-exchange", home);
1047	BufferFile = SaveStr(bufferfile);
1048	#endif
1049
1050	#ifdef _MODE_T	1041	#ifdef _MODE_T
1051	oumask = umask(0); /* well, unsigned never fails? jw. */	1042	oumask = umask(0); /* well, unsigned never fails? jw. */
1052	#else	1043	#else
Lines 1130-1135 Link Here
1130	if (access(SockPath, F_OK)) {	1121	if (access(SockPath, F_OK)) {
1131	if (mkdir(SockPath, 0700) == -1 && errno != EEXIST)	1122	if (mkdir(SockPath, 0700) == -1 && errno != EEXIST)
1132	Panic(errno, "Cannot make directory '%s'", SockPath);	1123	Panic(errno, "Cannot make directory '%s'", SockPath);
		1124	(void) chown(SockPath, real_uid, real_gid);
1133	}	1125	}
1134	}	1126	}
1135	#endif	1127	#endif
Lines 1203-1213 Link Here
1203	eexit(0);	1195	eexit(0);
1204	}	1196	}
1205	signal(SIG_BYE, AttacherFinit); /* prevent races */	1197	signal(SIG_BYE, AttacherFinit); /* prevent races */
		1198
1206	if (cmdflag) {	1199	if (cmdflag) {
		1200
		1201	#ifdef MULTIUSER
		1202	if (multi)
		1203	real_uid = multi_uid;
		1204	#endif
		1205
1207	/* attach_tty is not mandatory */	1206	/* attach_tty is not mandatory */
1208	SetTtyname(false, &st);	1207	SetTtyname(false, &st);
1209	if (!*av)	1208	if (!*av)
1210	Panic(0, "Please specify a command.");	1209	Panic(0, "Please specify a command.");
		1210	if (!strncmp("sessionname", *av, 11)) {
		1211	if (!*++av)
		1212	Panic(0, "Please specify a parameter.");
		1213	if (strlen(*av) > 80)
		1214	Panic(0, "Parameter of command 'sessionname' is too long.");
		1215	*--av;
		1216	}
1211	SET_GUID();	1217	SET_GUID();
1212	SendCmdMessage(sty, SockMatch, av, queryflag >= 0);	1218	SendCmdMessage(sty, SockMatch, av, queryflag >= 0);
1213	exit(0);	1219	exit(0);
Lines 1244-1253 Link Here
1244	nwin_compose(&nwin_default, &nwin_options, &nwin_default);	1250	nwin_compose(&nwin_default, &nwin_options, &nwin_default);
1245		1251
1246	if (!detached \|\| dflag != 2)	1252	if (!detached \|\| dflag != 2)
1247	{	1253	MasterPid = fork();
1248	fflush(NULL);
1249	MasterPid = fork();
1250	}
1251	else	1254	else
1252	MasterPid = 0;	1255	MasterPid = 0;
1253		1256
Lines 1320-1359 Link Here
1320	}	1323	}
1321	else	1324	else
1322	n = -1;	1325	n = -1;
1323		1326	freopen("/dev/null", "r", stdin);
1324	{	1327	freopen("/dev/null", "w", stdout);
1325	const char devnull[] = "/dev/null";
1326	int nullfdr, nullfdw;
1327
1328	if (fflush(NULL))
1329	Panic(errno, "Cannot flush stdio streams");
1330
1331	nullfdr = open(devnull, O_RDONLY\|O_NOCTTY\|O_NOFOLLOW\|O_NONBLOCK);
1332	if (nullfdr < 0)
1333	Panic(errno, "Cannot open '%s' for reading", devnull);
1334
1335	nullfdw = open(devnull, O_WRONLY\|O_NOCTTY\|O_NOFOLLOW\|O_NONBLOCK);
1336	if (nullfdw < 0)
1337	Panic(errno, "Cannot open '%s' for writing", devnull);
1338
1339	if (dup2(nullfdr, fileno(stdin)) < 0)
1340	Panic(errno, "Cannot reditect '%s' to '%s'", "stdin", devnull);
1341
1342	close(nullfdr);
1343
1344	if (dup2(nullfdw, fileno(stdout)) < 0)
1345	Panic(errno, "Cannot reditect '%s' to '%s'", "stdout", devnull);
1346		1328
1347	#ifdef DEBUG	1329	#ifdef DEBUG
1348	if (dfp != stderr)	1330	if (dfp != stderr)
1349	#endif	1331	#endif
1350	if (dup2(nullfdw, fileno(stderr)) < 0)	1332	freopen("/dev/null", "w", stderr);
1351	Panic(errno, "Cannot reditect '%s' to '%s'", "stderr", devnull);	1333	debug("-- screen.back debug started\n");
1352
1353	close(nullfdw);
1354
1355	debug("-- screen.back debug started\n");
1356	}
1357		1334
1358	/* This guarantees that the session owner is listed, even when we	1335	/* This guarantees that the session owner is listed, even when we
1359	* start detached. From now on we should not refer to 'LoginName'	1336	* start detached. From now on we should not refer to 'LoginName'
Lines 1672-1678 Link Here
1672	SIGRETURN;	1649	SIGRETURN;
1673	}	1650	}
1674		1651
1675	#if 0
1676	static sigret_t CoreDump SIGDEFARG	1652	static sigret_t CoreDump SIGDEFARG
1677	{	1653	{
1678	/* if running with s-bit, we must reset the s-bit, so that we get a	1654	/* if running with s-bit, we must reset the s-bit, so that we get a
Lines 1723-1729 Link Here
1723		1699
1724	SIGRETURN;	1700	SIGRETURN;
1725	}	1701	}
1726	#endif
1727		1702
1728	static void DoWait()	1703	static void DoWait()
1729	{	1704	{
Lines 1896-1902 Link Here
1896	{	1871	{
1897	if (display == 0)	1872	if (display == 0)
1898	return;	1873	return;
1899	debug1("Hangup %p\n", display);	1874	debug1("Hangup %x\n", display);
1900	if (D_userfd >= 0) {	1875	if (D_userfd >= 0) {
1901	close(D_userfd);	1876	close(D_userfd);
1902	D_userfd = -1;	1877	D_userfd = -1;
Lines 2108-2136 Link Here
2108	#endif	2083	#endif
2109		2084
2110	#define PROCESS_MESSAGE(B) do { \	2085	#define PROCESS_MESSAGE(B) do { \
		2086	char *p = B; \
2111	VA_LIST(ap) \	2087	VA_LIST(ap) \
2112	ssize_t len; \
2113	const int errlen = err ? 100 : 0; \
2114	VA_START(ap, fmt); \	2088	VA_START(ap, fmt); \
2115	fmt = DoNLS(fmt); \	2089	fmt = DoNLS(fmt); \
2116	len = vsnprintf(B, sizeof(B) - errlen, fmt, VA_ARGS(ap)); \	2090	(void)vsnprintf(p, sizeof(B) - 100, fmt, VA_ARGS(ap)); \
2117	VA_END(ap); \	2091	VA_END(ap); \
2118	if (len < 0) \
2119	{ \
2120	strncpy(B, fmt, sizeof(B) - errlen); \
2121	B[sizeof(B) - errlen - 1] = 0; \
2122	len = strlen(B); \
2123	} \
2124	if (err) \	2092	if (err) \
2125	{ \	2093	{ \
2126	const char *strerr = strerror(err); \	2094	p += strlen(p); \
2127	if (strerr) \	2095	*p++ = ':'; \
2128	{ \	2096	*p++ = ' '; \
2129	strncat(B, ": ", 2); \	2097	strncpy(p, strerror(err), B + sizeof(B) - p - 1); \
2130	strncat(B, strerr, errlen - 3); \	2098	B[sizeof(B) - 1] = 0; \
2131	len = strlen(B); \	2099	} \
2132	} \
2133	} \
2134	} while (0)	2100	} while (0)
2135		2101
2136	DEFINE_VARARGS_FN(Msg)	2102	DEFINE_VARARGS_FN(Msg)
Lines 2157-2168 Link Here
2157	display = olddisplay;	2123	display = olddisplay;
2158	}	2124	}
2159	else	2125	else
2160	{	2126	printf("%s\r\n", buf);
2161	ssize_t len = strlen(buf);
2162	if (write(fileno(stderr), buf, len) > 0)
2163	if (write(fileno(stderr), "\r\n", 2) > 0)
2164	;
2165	}
2166		2127
2167	if (queryflag >= 0)	2128	if (queryflag >= 0)
2168	write(queryflag, buf, strlen(buf));	2129	write(queryflag, buf, strlen(buf));
Lines 2175-2189 Link Here
2175	{	2136	{
2176	char buf[MAXPATHLEN*2];	2137	char buf[MAXPATHLEN*2];
2177	PROCESS_MESSAGE(buf);	2138	PROCESS_MESSAGE(buf);
2178	ssize_t len = strlen(buf);
2179		2139
2180	debug3("Panic('%s'); display=%p displays=%p\n", buf, display, displays);	2140	debug3("Panic('%s'); display=%x displays=%x\n", buf, display, displays);
2181	if (displays == 0 && display == 0) {	2141	if (displays == 0 && display == 0) {
2182	if (write(fileno(stderr), buf, len) > 0)	2142	printf("%s\r\n", buf);
2183	if (write(fileno(stderr), "\r\n", 2) > 0)	2143	if (PanicPid)
2184	;	2144	Kill(PanicPid, SIG_BYE);
2185	if (PanicPid)
2186	Kill(PanicPid, SIG_BYE);
2187	}	2145	}
2188	else if (displays == 0) {	2146	else if (displays == 0) {
2189	/* no displays but a display - must have forked.	2147	/* no displays but a display - must have forked.
Lines 2206-2214 Link Here
2206	#endif	2164	#endif
2207	SetTTY(D_userfd, &D_OldMode);	2165	SetTTY(D_userfd, &D_OldMode);
2208	fcntl(D_userfd, F_SETFL, 0);	2166	fcntl(D_userfd, F_SETFL, 0);
2209	if (write(D_userfd, buf, len) > 0)	2167	write(D_userfd, buf, strlen(buf));
2210	if (write(D_userfd, "\n", 1) > 0)	2168	write(D_userfd, "\n", 1);
2211	;
2212	freetty();	2169	freetty();
2213	if (D_userpid)	2170	if (D_userpid)
2214	Kill(D_userpid, SIG_BYE);	2171	Kill(D_userpid, SIG_BYE);
Lines 2816-2821 Link Here
2816	p += strlen(p) - 1;	2773	p += strlen(p) - 1;
2817	break;	2774	break;
2818		2775
		2776	#ifdef ENCODINGS
		2777	case 'e':
		2778	*p = 0;
		2779	D_encoding = nwin_options.encoding > 0 ? nwin_options.encoding : 0;
		2780	if (win && win->w_encoding) {
		2781	*p++ = ' ';
		2782	strcpy(p, EncodingName(win->w_encoding));
		2783	}
		2784	p += strlen(p) - 1;
		2785	break;
		2786	#endif
		2787
2819	case '{':	2788	case '{':
2820	{	2789	{
2821	char rbuf[128];	2790	char rbuf[128];
Lines 3065-3071 Link Here
3065	else	3034	else
3066	now.tv_sec += tick - (now.tv_sec % tick);	3035	now.tv_sec += tick - (now.tv_sec % tick);
3067	ev->timeout = now;	3036	ev->timeout = now;
3068	debug2("NEW timeout %ld %d\n", ev->timeout.tv_sec, tick);	3037	debug2("NEW timeout %d %d\n", ev->timeout.tv_sec, tick);
3069	}	3038	}
3070	return winmsg_buf;	3039	return winmsg_buf;
3071	}	3040	}
Lines 3193-3207 Link Here
3193		3162
3194		3163
3195	#ifdef PSEUDOS	3164	#ifdef PSEUDOS
3196	if (write(W_UWP(fore) ? fore->w_pwin->p_ptyfd : fore->w_ptyfd, &ibuf, 1) == 1) {	3165	write(W_UWP(fore) ? fore->w_pwin->p_ptyfd : fore->w_ptyfd, &ibuf, 1);
3197	debug1("Backend wrote interrupt to %d", fore->w_number);	3166	debug1("Backend wrote interrupt to %d", fore->w_number);
3198	debug1("%s\n", W_UWP(fore) ? " (pseudowin)" : "");	3167	debug1("%s\n", W_UWP(fore) ? " (pseudowin)" : "");
3199	}
3200	#else	3168	#else
3201	if (write(fore->w_ptyfd, &ibuf, 1) == 1)	3169	write(fore->w_ptyfd, &ibuf, 1);
3202	debug1("Backend wrote interrupt to %d\n", fore->w_number);	3170	debug1("Backend wrote interrupt to %d\n", fore->w_number);
3203	else
3204	debug1("Backend FAILED to write interrupt to %d\n", fore->w_number);
3205	#endif	3171	#endif
3206	}	3172	}
3207	InterruptPlease = 0;	3173	InterruptPlease = 0;

Lines 49-55 Link Here

(-)screen.orig/screen.h (-2 / +6 lines)
49	#include "layer.h"	49	#include "layer.h"
50	#include "term.h"	50	#include "term.h"
51		51
52	extern char bufferfile[MAXPATHLEN];
53		52
54	#ifdef DEBUG	53	#ifdef DEBUG
55	# define STATIC /* a function that the debugger should see */	54	# define STATIC /* a function that the debugger should see */
Lines 104-109 Link Here
104	*/	103	*/
105	#define MAXHISTHEIGHT 3000	104	#define MAXHISTHEIGHT 3000
106	#define DEFAULTHISTHEIGHT 100	105	#define DEFAULTHISTHEIGHT 100
		106	#if defined(NAME_MAX) && NAME_MAX < 16
		107	# define DEFAULT_BUFFERFILE "/tmp/screen-xchg"
		108	#else
		109	# define DEFAULT_BUFFERFILE "/tmp/screen-exchange"
		110	#endif
107		111
108		112
109	#if defined(hpux) && !(defined(VSUSP) && defined(VDSUSP) && defined(VWERASE) && defined(VLNEXT))	113	#if defined(hpux) && !(defined(VSUSP) && defined(VDSUSP) && defined(VWERASE) && defined(VLNEXT))
Lines 275-281 Link Here
275	#define SILENCE_FOUND 2 /* Window is silent */	279	#define SILENCE_FOUND 2 /* Window is silent */
276	#define SILENCE_DONE 3 /* Window is silent and user is notified */	280	#define SILENCE_DONE 3 /* Window is silent and user is notified */
277		281
278	extern const char strnomem[];	282	extern char strnomem[];
279		283
280	/*	284	/*
281	* line modes used by Input()	285	* line modes used by Input()

Lines 46-137 Link Here

(-)screen.orig/search.c (-275 / +259 lines)
46	* VI style Search	46	* VI style Search
47	*/	47	*/
48		48
49	static int matchword __P((char *, int, int, int));	49	static int matchword __P((char*, int, int, int));
50	static void searchend __P((char , int, char ));	50	static void searchend __P((char, int, char ));
51	static void backsearchend __P((char , int, char ));	51	static void backsearchend __P((char, int, char ));
52		52
53	void	53	void
54	Search(dir)	54	Search(int dir)
55	int dir;
56	{	55	{
57	struct markdata *markdata;	56	struct markdata *markdata;
58	if (dir == 0)	57	if (dir == 0) {
59	{	58	markdata = (struct markdata *)flayer->l_data;
60	markdata = (struct markdata *)flayer->l_data;	59	if (markdata->isdir > 0)
61	if (markdata->isdir > 0)	60	searchend(0, 0, NULL);
62	searchend(0, 0, NULL);	61	else if (markdata->isdir < 0)
63	else if (markdata->isdir < 0)	62	backsearchend(0, 0, NULL);
64	backsearchend(0, 0, NULL);	63	else
65	else	64	LMsg(0, "No previous pattern");
66	LMsg(0, "No previous pattern");	65	} else
67	}	66	Input((dir > 0 ? "/" : "?"), sizeof(markdata->isstr) - 1,
68	else	67	INP_COOKED, (dir > 0 ? searchend : backsearchend), NULL, 0);
69	Input((dir > 0 ? "/" : "?"), sizeof(markdata->isstr)-1, INP_COOKED,
70	(dir > 0 ? searchend : backsearchend), NULL, 0);
71	}	68	}
72		69
73	static void	70	static void
74	searchend(buf, len, data)	71	searchend(char buf, int len, char data)
75	char *buf;
76	int len;
77	char data; / dummy */
78	{	72	{
79	int x = 0, sx, ex, y;	73	int x = 0, sx, ex, y;
80	struct markdata *markdata;	74	struct markdata *markdata;
81	struct win *p;	75	struct win *p;
82		76
83	markdata = (struct markdata *)flayer->l_data;	77	markdata = (struct markdata *)flayer->l_data;
84	p = markdata->md_window;	78	p = markdata->md_window;
85	markdata->isdir = 1;	79	markdata->isdir = 1;
86	if (len)	80	if (len)
87	strcpy(markdata->isstr, buf);	81	strcpy(markdata->isstr, buf);
88	sx = markdata->cx + 1;	82	sx = markdata->cx + 1;
89	ex = flayer->l_width - 1;	83	ex = flayer->l_width - 1;
90	for (y = markdata->cy; y < p->w_histheight + flayer->l_height; y++, sx = 0)	84	for (y = markdata->cy; y < p->w_histheight + flayer->l_height;
91	{	85	y++, sx = 0) {
92	if ((x = matchword(markdata->isstr, y, sx, ex)) >= 0)	86	if ((x = matchword(markdata->isstr, y, sx, ex)) >= 0)
93	break;	87	break;
94	}	88	}
95	if (y >= p->w_histheight + flayer->l_height)	89	if (y >= p->w_histheight + flayer->l_height) {
96	{	90	LGotoPos(flayer, markdata->cx, W2D(markdata->cy));
97	LGotoPos(flayer, markdata->cx, W2D(markdata->cy));	91	LMsg(0, "Pattern not found");
98	LMsg(0, "Pattern not found");	92	} else
99	}	93	revto(x, y);
100	else
101	revto(x, y);
102	}	94	}
103		95
104	static void	96	static void
105	backsearchend(buf, len, data)	97	backsearchend(char buf, int len, char data)
106	char *buf;
107	int len;
108	char data; / dummy */
109	{	98	{
110	int sx, ex, x = -1, y;	99	int sx, ex, x = -1, y;
111	struct markdata *markdata;	100	struct markdata *markdata;
112		101
113	markdata = (struct markdata *)flayer->l_data;	102	markdata = (struct markdata *)flayer->l_data;
114	markdata->isdir = -1;	103	markdata->isdir = -1;
115	if (len)	104
116	strcpy(markdata->isstr, buf);	105	if (len)
117	ex = markdata->cx - 1;	106	strcpy(markdata->isstr, buf);
118	for (y = markdata->cy; y >= 0; y--, ex = flayer->l_width - 1)	107	ex = markdata->cx - 1;
119	{	108
120	sx = 0;	109	for (y = markdata->cy; y >= 0; y--, ex = flayer->l_width - 1) {
121	while ((sx = matchword(markdata->isstr, y, sx, ex)) >= 0)	110	sx = 0;
122	x = sx++;	111	while ((sx = matchword(markdata->isstr, y, sx, ex)) >= 0)
123	if (x >= 0)	112	x = sx++;
124	break;	113	if (x >= 0)
125	}	114	break;
126	if (y < 0)	115	}
127	{
128	LGotoPos(flayer, markdata->cx, W2D(markdata->cy));
129	LMsg(0, "Pattern not found");
130	}
131	else
132	revto(x, y);
133	}
134		116
		117	if (y < 0) {
		118	LGotoPos(flayer, markdata->cx, W2D(markdata->cy));
		119	LMsg(0, "Pattern not found");
		120	} else
		121	revto(x, y);
		122	}
135		123
136	/*	124	/*
137	* Search for a string that matches pattern. The first character of the	125	* Search for a string that matches pattern. The first character of the
Lines 141-399 Link Here
141	* or -1 if there's no match.	129	* or -1 if there's no match.
142	*/	130	*/
143	static int	131	static int
144	matchword(pattern, y, sx, ex)	132	matchword(char *pattern, int y, int sx, int ex)
145	char *pattern;
146	int y, sx, ex;
147	{	133	{
148	unsigned char ip, cp, pp, cpe;	134	unsigned char cp, pp, *cpe;
149	int cy;	135	int cy;
150		136
151	fore = ((struct markdata *)flayer->l_data)->md_window;	137	fore = ((struct markdata *)flayer->l_data)->md_window;
152		138
153	for (;sx <= ex; sx++)	139	for (; sx <= ex; sx++) {
154	{	140	cy = y;
155	cy = y;	141	cp = WIN(cy)->image + sx;
156	cp = WIN(cy)->image + sx;	142	cpe = WIN(cy)->image + flayer->l_width;
157	cpe = WIN(cy)->image + flayer->l_width;	143	pp = (unsigned char *)pattern;
158	pp = (unsigned char *)pattern;	144	for (;;) {
159	for (;;)	145	if (cp != pp)
160	{	146	if (!search_ic \|\| ((cp ^ pp) & 0xdf) \|\|
161	if (cp != pp)	147	(cp \| 0x20) < 'a' \|\| (cp \| 0x20) > 'z')
162	if (!search_ic \|\| ((cp ^ pp) & 0xdf) \|\| (cp \| 0x20) < 'a' \|\| (cp \| 0x20) > 'z')	148	break;
163	break;	149	cp++;
164	cp++;	150	pp++;
165	pp++;	151	if (*pp == 0)
166	if (*pp == 0)	152	return sx;
167	return sx;	153	if (cp == cpe) {
168	if (cp == cpe) {
169	/*	154	/*
170	* We have a partial match, but we've hit	155	* We have a partial match, but we've hit
171	* the end of this line. Does it wrap onto	156	* the end of this line. Does it wrap onto
172	* the following line? If not, we're done.	157	* the following line? If not, we're done.
173	*/	158	*/
174	if (*cp == ' ' \|\| cy >= fore->w_histheight + flayer->l_height - 1)	159	if (*cp == ' ' \|\|
175	break;	160	cy >=
		161	fore->w_histheight + flayer->l_height - 1)
		162	break;
176		163
177	/*	164	/*
178	* This line does wrap, so look on the next	165	* This line does wrap, so look on the next
179	* line for the rest of our match.	166	* line for the rest of our match.
180	*/	167	*/
181	cy++;	168	cy++;
182	cp = WIN(cy)->image;	169	cp = WIN(cy)->image;
183	cpe = WIN(cy)->image + flayer->l_width;	170	cpe = WIN(cy)->image + flayer->l_width;
		171	}
184	}	172	}
185	}	173	}
186	}	174	return -1;
187	return -1;
188	}	175	}
189		176
190
191	/********************************************************************	177	/********************************************************************
192	* Emacs style ISearch	178	* Emacs style ISearch
193	*/	179	*/
194		180
195	static char *isprompts[] = {	181	static char *isprompts[] = {
196	"I-search backward: ", "failing I-search backward: ",	182	"I-search backward: ", "failing I-search backward: ",
197	"I-search: ", "failing I-search: "	183	"I-search: ", "failing I-search: "
198	};	184	};
199		185
200		186	static int is_redo __P((struct markdata*));
201	static int is_redo __P((struct markdata *));	187	static void is_process __P((char, int, char ));
202	static void is_process __P((char , int, char ));	188	static int is_bm __P((char*, int, int, int, int));
203	static int is_bm __P((char *, int, int, int, int));
204
205		189
206	static int	190	static int
207	is_bm(str, l, p, end, dir)	191	is_bm(char *str, int l, int p, int end, int dir)
208	char *str;
209	int l, p, end, dir;
210	{	192	{
211	int tab[256];	193	int tab[256];
212	int i, q;	194	int i, q;
213	unsigned char *s, c;	195	unsigned char *s, c;
214	int w = flayer->l_width;	196	int w = flayer->l_width;
215		197
216	/* sigh to make WIN work */	198	/* sigh to make WIN work */
217	fore = ((struct markdata *)flayer->l_next->l_data)->md_window;	199	fore = ((struct markdata *)flayer->l_next->l_data)->md_window;
218	debug2("is_bm: searching for %s len %d\n", str, l);	200	debug2("is_bm: searching for %s len %d\n", str, l);
219	debug3("start at %d end %d dir %d\n", p, end, dir);	201	debug3("start at %d end %d dir %d\n", p, end, dir);
220	if (p < 0 \|\| p + l > end)	202
221	return -1;	203	if (p < 0 \|\| p + l > end)
222	if (l == 0)	204	return -1;
223	return p;	205	if (l == 0)
224	if (dir < 0)	206	return p;
225	str += l - 1;	207	if (dir < 0)
226	for (i = 0; i < 256; i++)	208	str += l - 1;
227	tab[i] = l * dir;	209	for (i = 0; i < 256; i++)
228	for (i = 0; i < l - 1; i++, str += dir)	210	tab[i] = l * dir;
229	{	211
230	q = (unsigned char )str;	212	for (i = 0; i < l - 1; i++, str += dir) {
231	tab[q] = (l - 1 - i) * dir;	213	q = (unsigned char )str;
232	if (search_ic && (q \| 0x20) >= 'a' && ((q \| 0x20) <= 'z'))	214	tab[q] = (l - 1 - i) * dir;
233	tab[q ^ 0x20] = (l - 1 - i) * dir;	215	if (search_ic && (q \| 0x20) >= 'a' && ((q \| 0x20) <= 'z'))
234	}	216	tab[q ^ 0x20] = (l - 1 - i) * dir;
235	if (dir > 0)
236	p += l - 1;
237	debug1("first char to match: %c\n", *str);
238	while (p >= 0 && p < end)
239	{
240	q = p;
241	s = (unsigned char *)str;
242	for (i = 0;;)
243	{
244	c = (WIN(q / w))->image[q % w];
245	if (i == 0)
246	p += tab[(int)(unsigned char) c];
247	if (c != *s)
248	if (!search_ic \|\| ((c ^ *s) & 0xdf) \|\| (c \| 0x20) < 'a' \|\| (c \| 0x20) > 'z')
249	break;
250	q -= dir;
251	s -= dir;
252	if (++i == l)
253	return q + (dir > 0 ? 1 : -l);
254	}	217	}
255	}
256	return -1;
257	}
258		218
		219	if (dir > 0)
		220	p += l - 1;
		221
		222	debug1("first char to match: %c\n", *str);
		223
		224	while (p >= 0 && p < end) {
		225	q = p;
		226	s = (unsigned char *)str;
		227	for (i = 0;;) {
		228	c = (WIN(q / w))->image[q % w];
		229	if (i == 0)
		230	p += tab[(int)(unsigned char)c];
		231	if (c != *s)
		232	if (!search_ic \|\| ((c ^ *s) & 0xdf) \|\|
		233	(c \| 0x20) < 'a' \|\| (c \| 0x20) > 'z')
		234	break;
		235	q -= dir;
		236	s -= dir;
		237	if (++i == l)
		238	return q + (dir > 0 ? 1 : -l);
		239	}
		240	}
		241	return -1;
		242	}
259		243
260	/ARGSUSED/	244	/ARGSUSED/
261	static void	245	static void
262	is_process(p, n, data) /* i-search */	246	is_process(char p, int n, char data) /* i-search */
263	char *p;
264	int n;
265	char data; / dummy */
266	{	247	{
267	int pos, x, y, dir;	248	int pos, x, y, dir;
268	struct markdata *markdata;	249	struct markdata *markdata;
269		250
270	if (n == 0)	251	if (n == 0)
271	return;	252	return;
272	ASSERT(p);	253	ASSERT(p);
273	markdata = (struct markdata *)flayer->l_next->l_data;	254	markdata = (struct markdata *)flayer->l_next->l_data;
274		255
275	pos = markdata->cx + markdata->cy * flayer->l_width;	256	pos = markdata->cx + markdata->cy * flayer->l_width;
276	LGotoPos(flayer, markdata->cx, W2D(markdata->cy));	257	LGotoPos(flayer, markdata->cx, W2D(markdata->cy));
277		258
278	switch (*p)	259	switch (*p) {
279	{	260	case '\007': /* CTRL-G */
280	case '\007': /* CTRL-G */	261	pos = markdata->isstartpos;
281	pos = markdata->isstartpos;
282	/FALLTHROUGH/	262	/FALLTHROUGH/
283	case '\033': /* ESC */	263	case '\033': /* ESC */
284	*p = 0;	264	*p = 0;
285	break;	265	break;
286	case '\013': /* CTRL-K */	266	case '\013': /* CTRL-K */
287	case '\027': /* CTRL-W */	267	case '\027': /* CTRL-W */
288	markdata->isistrl = 1;	268	markdata->isistrl = 1;
289	/FALLTHROUGH/	269	/FALLTHROUGH/
290	case '\b':	270	case '\b':
291	case '\177':	271	case '\177':
292	if (markdata->isistrl == 0)	272	if (markdata->isistrl == 0)
293	return;	273	return;
294	markdata->isistrl--;	274	markdata->isistrl--;
295	pos = is_redo(markdata);	275	pos = is_redo(markdata);
296	*p = '\b';	276	*p = '\b';
297	break;	277	break;
298	case '\023': /* CTRL-S */	278	case '\023': /* CTRL-S */
299	case '\022': /* CTRL-R */	279	case '\022': /* CTRL-R */
300	if (markdata->isistrl >= (int)sizeof(markdata->isistr))	280	if (markdata->isistrl >= (int)sizeof(markdata->isistr))
301	return;	281	return;
302	dir = (*p == '\023') ? 1 : -1;	282	dir = (*p == '\023') ? 1 : -1;
303	pos += dir;	283	pos += dir;
304	if (markdata->isdir == dir && markdata->isistrl == 0)	284	if (markdata->isdir == dir && markdata->isistrl == 0) {
305	{	285	strcpy(markdata->isistr, markdata->isstr);
306	strcpy(markdata->isistr, markdata->isstr);	286	markdata->isistrl = markdata->isstrl = strlen(markdata->isstr);
307	markdata->isistrl = markdata->isstrl = strlen(markdata->isstr);	287	break;
308	break;	288	}
		289	markdata->isdir = dir;
		290	markdata->isistr[markdata->isistrl++] = *p;
		291	break;
		292	default:
		293	if (*p < ' ' \|\|
		294	markdata->isistrl >=
		295	(int)sizeof(markdata->isistr) \|\|
		296	markdata->isstrl >= (int)sizeof(markdata->isstr) - 1)
		297	return;
		298	markdata->isstr[markdata->isstrl++] = *p;
		299	markdata->isistr[markdata->isistrl++] = *p;
		300	markdata->isstr[markdata->isstrl] = 0;
		301	debug2("New char: %c - left %d\n", *p,
		302	(int)sizeof(markdata->isistr) - markdata->isistrl);
309	}	303	}
310	markdata->isdir = dir;	304	if (p && p != '\b')
311	markdata->isistr[markdata->isistrl++] = *p;	305	pos = is_bm(markdata->isstr, markdata->isstrl, pos,
312	break;	306	flayer->l_width *
313	default:	307	(markdata->md_window->w_histheight + flayer->l_height),
314	if (*p < ' ' \|\| markdata->isistrl >= (int)sizeof(markdata->isistr)	308	markdata->isdir);
315	\|\| markdata->isstrl >= (int)sizeof(markdata->isstr) - 1)	309	if (pos >= 0) {
316	return;	310	x = pos % flayer->l_width;
317	markdata->isstr[markdata->isstrl++] = *p;	311	y = pos / flayer->l_width;
318	markdata->isistr[markdata->isistrl++] = *p;	312	LAY_CALL_UP(LayRedisplayLine(INPUTLINE, 0, flayer -> l_width - 1,
319	markdata->isstr[markdata->isstrl] = 0;	313	0) ; revto(x, y) ; if(W2D(markdata -> cy) == INPUTLINE) revto_line(markdata
320	debug2("New char: %c - left %d\n", *p, (int)sizeof(markdata->isistr) - markdata->isistrl);	314	-> cx, markdata -> cy, INPUTLINE > 0 ? INPUTLINE - 1 : 1) ;);
321	}	315	}
322	if (p && p != '\b')	316	if (*p)
323	pos = is_bm(markdata->isstr, markdata->isstrl, pos, flayer->l_width * (markdata->md_window->w_histheight + flayer->l_height), markdata->isdir);	317	inp_setprompt(isprompts[markdata->isdir + (pos < 0) + 1],
324	if (pos >= 0)	318	markdata->isstrl ? markdata->isstr : "");
325	{	319	flayer->l_x = markdata->cx;
326	x = pos % flayer->l_width;	320	flayer->l_y = W2D(markdata->cy);
327	y = pos / flayer->l_width;	321	LGotoPos(flayer, flayer->l_x, flayer->l_y);
328	LAY_CALL_UP	322	if (!*p) {
329	(
330	LayRedisplayLine(INPUTLINE, 0, flayer->l_width - 1, 0);
331	revto(x, y);
332	if (W2D(markdata->cy) == INPUTLINE)
333	revto_line(markdata->cx, markdata->cy, INPUTLINE > 0 ? INPUTLINE - 1 : 1);
334	);
335	}
336	if (*p)
337	inp_setprompt(isprompts[markdata->isdir + (pos < 0) + 1], markdata->isstrl ? markdata->isstr : "");
338	flayer->l_x = markdata->cx;
339	flayer->l_y = W2D(markdata->cy);
340	LGotoPos(flayer, flayer->l_x, flayer->l_y);
341	if (!*p)
342	{
343	/* we are about to finish, keep cursor position */	323	/* we are about to finish, keep cursor position */
344	flayer->l_next->l_x = markdata->cx;	324	flayer->l_next->l_x = markdata->cx;
345	flayer->l_next->l_y = W2D(markdata->cy);	325	flayer->l_next->l_y = W2D(markdata->cy);
346	}	326	}
347	}	327	}
348		328
349	static int	329	static int
350	is_redo(markdata)	330	is_redo(struct markdata *markdata)
351	struct markdata *markdata;
352	{	331	{
353	int i, pos, npos, dir;	332	int i, pos, npos, dir;
354	char c;	333	char c;
355		334
356	npos = pos = markdata->isstartpos;	335	npos = pos = markdata->isstartpos;
357	dir = markdata->isstartdir;	336	dir = markdata->isstartdir;
358	markdata->isstrl = 0;	337	markdata->isstrl = 0;
359	for (i = 0; i < markdata->isistrl; i++)	338
360	{	339	for (i = 0; i < markdata->isistrl; i++) {
361	c = markdata->isistr[i];	340	c = markdata->isistr[i];
362	if (c == '\022') /* ^R */	341	if (c == '\022') /* ^R */
363	pos += (dir = -1);	342	pos += (dir = -1);
364	else if (c == '\023') /* ^S */	343	else if (c == '\023') /* ^S */
365	pos += (dir = 1);	344	pos += (dir = 1);
366	else	345	else
367	markdata->isstr[markdata->isstrl++] = c;	346	markdata->isstr[markdata->isstrl++] = c;
368	if (pos >= 0)	347	if (pos >= 0) {
369	{	348	npos = is_bm(markdata->isstr, markdata->isstrl, pos,
370	npos = is_bm(markdata->isstr, markdata->isstrl, pos, flayer->l_width * (markdata->md_window->w_histheight + flayer->l_height), dir);	349	flayer->l_width *
371	if (npos >= 0)	350	(markdata->md_window->w_histheight +
372	pos = npos;	351	flayer->l_height), dir);
		352	if (npos >= 0)
		353	pos = npos;
		354	}
373	}	355	}
374	}	356	markdata->isstr[markdata->isstrl] = 0;
375	markdata->isstr[markdata->isstrl] = 0;	357	markdata->isdir = dir;
376	markdata->isdir = dir;	358	return npos;
377	return npos;
378	}	359	}
379		360
380	void	361	void
381	ISearch(dir)	362	ISearch(int dir)
382	int dir;
383	{	363	{
384	struct markdata *markdata;	364	struct markdata *markdata;
385		365
386	markdata = (struct markdata *)flayer->l_data;	366	markdata = (struct markdata *)flayer->l_data;
387	markdata->isdir = markdata->isstartdir = dir;	367	markdata->isdir = markdata->isstartdir = dir;
388	markdata->isstartpos = markdata->cx + markdata->cy * flayer->l_width;	368	markdata->isstartpos = markdata->cx + markdata->cy * flayer->l_width;
389	markdata->isistrl = markdata->isstrl = 0;	369	markdata->isistrl = markdata->isstrl = 0;
390	if (W2D(markdata->cy) == INPUTLINE)	370
391	revto_line(markdata->cx, markdata->cy, INPUTLINE > 0 ? INPUTLINE - 1 : 1);	371	if (W2D(markdata->cy) == INPUTLINE)
392	Input(isprompts[dir + 1], sizeof(markdata->isstr) - 1, INP_RAW,	372	revto_line(markdata->cx, markdata->cy,
393	is_process, NULL, 0);	373	INPUTLINE > 0 ? INPUTLINE - 1 : 1);
394	LGotoPos(flayer, markdata->cx, W2D(markdata->cy));	374
395	flayer->l_x = markdata->cx;	375	Input(isprompts[dir + 1], sizeof(markdata->isstr) - 1, INP_RAW,
396	flayer->l_y = W2D(markdata->cy);	376	is_process, NULL, 0);
		377
		378	LGotoPos(flayer, markdata->cx, W2D(markdata->cy));
		379	flayer->l_x = markdata->cx;
		380	flayer->l_y = W2D(markdata->cy);
397	}	381	}
398		382
399	#endif /* COPY_PASTE */	383	#endif /* COPY_PASTE */

Lines 393-402 Link Here

(-)screen.orig/socket.c (-8 / +5 lines)
393	}	393	}
394	if (ndead && !quietflag)	394	if (ndead && !quietflag)
395	{	395	{
		396	char *m = "Remove dead screens with 'screen -wipe'.";
396	if (wipeflag)	397	if (wipeflag)
397	Msg(0, "%d socket%s wiped out.", nwipe, nwipe > 1 ? "s" : "");	398	Msg(0, "%d socket%s wiped out.", nwipe, nwipe > 1 ? "s" : "");
398	else	399	else
399	Msg(0, "Remove dead screen%s with 'screen -wipe'.", ndead > 1 ? "s" : "");	400	Msg(0, m, ndead > 1 ? "s" : "", ndead > 1 ? "" : "es"); /* other args for nethack */
400	}	401	}
401	if (firsts != -1)	402	if (firsts != -1)
402	{	403	{
Lines 462-468 Link Here
462	# ifdef USE_SETEUID	463	# ifdef USE_SETEUID
463	(void) unlink(SockPath);	464	(void) unlink(SockPath);
464	if (mkfifo(SockPath, SOCKMODE) < 0)	465	if (mkfifo(SockPath, SOCKMODE) < 0)
465	Panic(errno, "mkfifo %s failed", SockPath);	466	Panic(0, "mkfifo %s failed", SockPath);
466	# ifdef BROKEN_PIPE	467	# ifdef BROKEN_PIPE
467	s = open(SockPath, O_RDWR \| O_NONBLOCK, 0);	468	s = open(SockPath, O_RDWR \| O_NONBLOCK, 0);
468	# else	469	# else
Lines 753-763 Link Here
753	m.m_tty[sizeof(m.m_tty) - 1] = 0;	754	m.m_tty[sizeof(m.m_tty) - 1] = 0;
754	m.protocol_revision = MSG_REVISION;	755	m.protocol_revision = MSG_REVISION;
755	debug1("SendErrorMsg(): writing to '%s'\n", SockPath);	756	debug1("SendErrorMsg(): writing to '%s'\n", SockPath);
756	if (write(s, &m, sizeof(m)) < sizeof(m))	757	(void) write(s, (char *) &m, sizeof m);
757	{
758	close(s);
759	return -1;
760	}
761	close(s);	758	close(s);
762	return 0;	759	return 0;
763	}	760	}
Lines 1879-1885 Link Here
1879	{	1876	{
1880	char *oldrcname = rc_name;	1877	char *oldrcname = rc_name;
1881	rc_name = "-X";	1878	rc_name = "-X";
1882	debug3("Running command on display %p window %p (%d)\n", display, fore, fore ? fore->w_number : -1);	1879	debug3("Running command on display %x window %x (%d)\n", display, fore, fore ? fore->w_number : -1);
1883	flayer = fore ? &fore->w_layer : 0;	1880	flayer = fore ? &fore->w_layer : 0;
1884	if (fore && fore->w_savelayer && (fore->w_blocked \|\| fore->w_savelayer->l_cvlist == 0))	1881	if (fore && fore->w_savelayer && (fore->w_blocked \|\| fore->w_savelayer->l_cvlist == 0))
1885	flayer = fore->w_savelayer;	1882	flayer = fore->w_savelayer;

Lines 979-988 Link Here

(-)screen.orig/window.c (-35 / +23 lines)
979	if (wp->w_type == W_TYPE_PTY)	979	if (wp->w_type == W_TYPE_PTY)
980	{	980	{
981	/* pty 4 SALE */	981	/* pty 4 SALE */
982	if (fchown(wp->w_ptyfd, 0, 0) < 0)	982	(void)chmod(wp->w_tty, 0666);
983	;	983	(void)chown(wp->w_tty, 0, 0);
984	if (fchmod(wp->w_ptyfd, 0666) < 0)
985	;
986	}	984	}
987	close(wp->w_ptyfd);	985	close(wp->w_ptyfd);
988	wp->w_ptyfd = -1;	986	wp->w_ptyfd = -1;
Lines 1247-1253 Link Here
1247	args = ShellArgs;	1245	args = ShellArgs;
1248	proc = *args;	1246	proc = *args;
1249	}	1247	}
1250	fflush(NULL);	1248	fflush(stdout);
		1249	fflush(stderr);
1251	switch (pid = fork())	1250	switch (pid = fork())
1252	{	1251	{
1253	case -1:	1252	case -1:
Lines 1294-1309 Link Here
1294	#endif	1293	#endif
1295	if (slave != -1)	1294	if (slave != -1)
1296	{	1295	{
1297	/* preserver slave across closeallfiles(), along with w_ptyfd */	1296	close(0);
1298	if (dup2(slave, 0) < 0)	1297	dup(slave);
1299	Panic(errno, "ForkWindow dup2");	1298	close(slave);
1300	if (slave > 0)
1301	close(slave);
1302	closeallfiles(win->w_ptyfd);	1299	closeallfiles(win->w_ptyfd);
1303	if (dup2(0, slave) < 0)	1300	slave = dup(0);
1304	Panic(errno, "ForkWindow dup2");
1305	if (slave > 0)
1306	close(0);
1307	}	1301	}
1308	else	1302	else
1309	closeallfiles(win->w_ptyfd);	1303	closeallfiles(win->w_ptyfd);
Lines 1320-1329 Link Here
1320	}	1314	}
1321	debug1("=== ForkWindow: pid %d\n", (int)getpid());	1315	debug1("=== ForkWindow: pid %d\n", (int)getpid());
1322	#endif	1316	#endif
		1317	/* Close the three /dev/null descriptors */
		1318	close(0);
		1319	close(1);
		1320	close(2);
		1321	newfd = -1;
1323	/*	1322	/*
1324	* distribute filedescriptors between the ttys	1323	* distribute filedescriptors between the ttys
1325	*/	1324	*/
1326	newfd = -1;
1327	#ifdef PSEUDOS	1325	#ifdef PSEUDOS
1328	pat = pwin ? pwin->p_fdpat :	1326	pat = pwin ? pwin->p_fdpat :
1329	((F_PFRONT<<(F_PSHIFT*2)) \| (F_PFRONT<<F_PSHIFT) \| F_PFRONT);	1327	((F_PFRONT<<(F_PSHIFT*2)) \| (F_PFRONT<<F_PSHIFT) \| F_PFRONT);
Lines 1346-1358 Link Here
1346	if (newfd < 0)	1344	if (newfd < 0)
1347	Panic(errno, "Cannot open %s", ttyn);	1345	Panic(errno, "Cannot open %s", ttyn);
1348	}	1346	}
1349	if (dup2(newfd, i) < 0)	1347	else
1350	Panic(errno, "Cannot duplicate %s", ttyn);	1348	dup(newfd);
1351	}	1349	}
1352	else	1350	else
1353	{	1351	{
1354	if (dup2(win->w_ptyfd, i) < 0)	1352	dup(win->w_ptyfd);
1355	Panic(errno, "Cannot duplicate %s", win->w_tty);
1356	wfdused = 1;	1353	wfdused = 1;
1357	}	1354	}
1358	}	1355	}
Lines 1375-1392 Link Here
1375	# else	1372	# else
1376	newfd = open(ttyn, O_RDWR);	1373	newfd = open(ttyn, O_RDWR);
1377	# endif	1374	# endif
1378	if (newfd < 0)	1375	if (newfd != 0)
1379	Panic(errno, "Cannot open %s", ttyn);	1376	Panic(errno, "Cannot open %s", ttyn);
1380	if (dup2(newfd, 0) < 0)	1377	dup(0);
1381	Panic(errno, "Cannot duplicate %s", ttyn);	1378	dup(0);
1382	if (dup2(newfd, 1) < 0)
1383	Panic(errno, "Cannot duplicate %s", ttyn);
1384	if (dup2(newfd, 2) < 0)
1385	Panic(errno, "Cannot duplicate %s", ttyn);
1386	#endif /* PSEUDOS */	1379	#endif /* PSEUDOS */
1387	if (win->w_ptyfd > 2)	1380	close(win->w_ptyfd);
1388	close(win->w_ptyfd);	1381	if (slave != -1)
1389	if (slave > 2)
1390	close(slave);	1382	close(slave);
1391	if (newfd >= 0)	1383	if (newfd >= 0)
1392	{	1384	{
Lines 1432-1439 Link Here
1432	/* Always turn off nonblocking mode */	1424	/* Always turn off nonblocking mode */
1433	(void)fcntl(newfd, F_SETFL, 0);	1425	(void)fcntl(newfd, F_SETFL, 0);
1434	}	1426	}
1435	if (newfd > 2)
1436	close(newfd);
1437	#ifndef TIOCSWINSZ	1427	#ifndef TIOCSWINSZ
1438	sprintf(libuf, "LINES=%d", h);	1428	sprintf(libuf, "LINES=%d", h);
1439	sprintf(cobuf, "COLUMNS=%d", w);	1429	sprintf(cobuf, "COLUMNS=%d", w);
Lines 1710-1719 Link Here
1710	}	1700	}
1711	#endif	1701	#endif
1712	/* should be able to use CloseDevice() here */	1702	/* should be able to use CloseDevice() here */
1713	if (fchown(pwin->p_ptyfd, 0, 0) < 0)	1703	(void)chmod(pwin->p_tty, 0666);
1714	;	1704	(void)chown(pwin->p_tty, 0, 0);
1715	if (fchmod(pwin->p_ptyfd, 0666) < 0)
1716	;
1717	if (pwin->p_ptyfd >= 0)	1705	if (pwin->p_ptyfd >= 0)
1718	close(pwin->p_ptyfd);	1706	close(pwin->p_ptyfd);
1719	evdeq(&pwin->p_readev);	1707	evdeq(&pwin->p_readev);