通讯/手机编程

开发平台：

Windows_Unix

ckutio.c：源码内容

#ifdef aegis
char *ckxv = "Aegis Communications support, 7.0.231, 31 Dec 1999";
#else
#ifdef Plan9
char *ckxv = "Plan 9 Communications support, 7.0.231, 31 Dec 1999";
#else
char *ckxv = "UNIX Communications support, 7.0.231, 31 Dec 1999";
#endif /* Plan9 */
#endif /* aegis */
/* C K U T I O */
/* C-Kermit interrupt, communications control and I/O functions for UNIX */
/*
Author: Frank da Cruz (fdc@columbia.edu),
Columbia University Academic Information Systems, New York City.
Trustees of Columbia University in the City of New York.
copyright text in the ckcmai.c module for disclaimer and permissions.
*/
/*
NOTE TO CONTRIBUTORS: This file, and all the other C-Kermit files, must be
compatible with C preprocessors that support only #ifdef, #else, #endif,
#define, and #undef. Please do not use #if, logical operators, or other
preprocessor features in any of the portable C-Kermit modules. You can,
of course, use these constructions in platform-specific modules when they
are supported by all compilers/preprocessors that could be used on that
platform.
*/
extern int nettype; /* Defined in ckcmai.c */
/* Includes */
#include "ckcsym.h" /* This must go first */
#include "ckcdeb.h" /* This must go second */
#ifdef OSF13
#ifdef CK_ANSIC
#ifdef _NO_PROTO
#undef _NO_PROTO
#endif /* _NO_PROTO */
#endif /* CK_ANSIC */
#endif /* OSF13 */
#include <errno.h> /* System error numbers */
#ifdef __386BSD__
#define ENOTCONN 57
#else
#ifdef __bsdi__
#define ENOTCONN 57
#else
#ifdef __FreeBSD__
#define ENOTCONN 57
#endif /* __FreeBSD__ */
#endif /* __bsdi__ */
#endif /* __386BSD__ */
#ifdef SCO_OSR504
#define NBBY 8
#endif /* SCO_OSR504 */
#ifdef Plan9
#define SELECT
#include <sys/time.h>
#include <select.h>
#define FD_SETSIZE (3 * sizeof(long) * 8)
static struct timeval tv;
#endif /* Plan9 */
#ifdef CLIX
#include <sys/time.h>
#endif /* CLIX */
#include "ckcnet.h" /* Symbols for network types. */
#ifdef CK_SSL
#include "ck_ssl.h"
#endif /* CK_SSL */
/*
The directory-related includes are here because we need to test some
file-system-related symbols to find out which system we're being compiled
under. For example, MAXNAMLEN is defined in BSD4.2 but not 4.1.
*/
#ifdef SDIRENT /* Directory bits... */
#define DIRENT
#endif /* SDIRENT */
#ifdef XNDIR
#include <sys/ndir.h>
#else /* !XNDIR */
#ifdef NDIR
#include <ndir.h>
#else /* !NDIR, !XNDIR */
#ifdef RTU
#include "/usr/lib/ndir.h"
#else /* !RTU, !NDIR, !XNDIR */
#ifdef DIRENT
#ifdef SDIRENT
#include <sys/dirent.h>
#else
#include <dirent.h>
#endif /* SDIRENT */
#else /* !RTU, !NDIR, !XNDIR, !DIRENT, i.e. all others */
#include <sys/dir.h>
#endif /* DIRENT */
#endif /* RTU */
#endif /* NDIR */
#endif /* XNDIR */
#ifdef QNX
#include <sys/dev.h>
#endif /* QNX */
#ifdef HPUX5
#ifndef TCPSOCKET
/* I don't know why this is needed here since we never reference bzero(). */
/* But without it C-Kermit won't link in an HP-UX 5.xx non-TCP build. */
void
bzero(s,n) char *s; int n; {
extern char * memset();
memset(s,0,n);
}
#endif /* TCPSOCKET */
#endif /* HPUX5 */
/* Definition of HZ, used in msleep() */
#ifdef MIPS
#define HZ ( 1000 / CLOCK_TICK )
#else
#ifdef ATTSV
#ifndef NAP
#ifndef TRS16
#include <sys/param.h>
#else
#define HZ ( 1000 / CLOCK_TICK )
#endif /* TRS16 */
#ifdef NAPHACK
#define nap(x) (void)syscall(3112, (x))
#define NAP
#endif /* NAPHACK */
#endif /* NAP */
#endif /* ATTSV */
#endif /* MIPS */
#ifdef M_UNIX
#undef NGROUPS_MAX /* Prevent multiple definition warnings */
#endif /* M_UNIX */
/*
NOTE: HP-UX 8.0 has a <sys/poll.h>, but there is no corresponding
library routine, so _poll comes up undefined at link time.
*/
#ifdef CK_POLL
#ifndef AIXRS /* IBM AIX needs special handling */
#include <poll.h> /* "standard" (SVID) i/o multiplexing, etc */
#else /* AIXRS */
#ifdef SVR4 /* AIX 3.2 is like SVID... */
#include <poll.h>
#else /* But AIX 3.1 is not ... */
#include <sys/poll.h> /* The include file is in include/sys */
#define events reqevents /* And it does not map IBM-specific member */
#define revents rtnevents /* names to the System V equivalents */
#endif /* SVR4 */
#endif /* AIXRS */
#endif /* CK_POLL */
#include <signal.h> /* Signals */
/* For setjmp and longjmp */
#ifndef ZILOG
#include <setjmp.h>
#else
#include <setret.h>
#endif /* ZILOG */
/* Maximum length for the name of a tty device */
#ifndef DEVNAMLEN
#define DEVNAMLEN 32
#endif /* DEVNAMLEN */
#ifdef NETCONN
#undef DEVNAMLEN
#define DEVNAMLEN 256 /* Longer field for host:service */
#endif /* NETCONN */
/*
The following test differentiates between 4.1 BSD and 4.2 & later.
If you have a 4.1BSD system with the DIRENT library, this test could
mistakenly diagnose 4.2BSD and then later enable the use of system calls
that aren't defined. If indeed there are such systems, we can use some
other way of testing for 4.1BSD, or add yet another compile-time switch.
*/
#ifdef BSD4
#ifdef MAXNAMLEN
#ifndef FT21 /* Except for Fortune. */
#ifndef FT18
#ifndef BELLV10 /* And Bell Labs Research UNIX V10 */
#define BSD42
#endif /* BELLV10 */
#endif /* FT18 */
#endif /* FT21 */
#endif /* MAXNAMLEN */
#endif /* BSD4 */
/*
Minix 2.0 support added by Terry McConnell,
Syracuse University <tmc@barnyard.syr.edu>
No more sgtty interface, posix compliant.
*/
#ifdef MINIX2
#define _MINIX /* Needed for some Minix header files */
#undef MINIX /* Old minix 1.0: used sgtty interface */
#define BSD44ORPOSIX
#define SVORPOSIX
#define DCLTIMEVAL
#define NOFILEH
#include <sys/types.h>
#include <sys/ioctl.h>
#include <termios.h>
#include <limits.h>
#undef TIOCGETC /* defined in sys/ioctl.h, but not really supported */
#define TANDEM 0
#endif /* MINIX2 */
/*
MINIX 1.0 support added by Charles Hedrick,
Rutgers University <hedrick@aramis.rutgers.edu>.
MINIX also has V7 enabled.
*/
#ifdef MINIX
#define TANDEM 0
#define MYREAD
#define NOSYSIOCTLH
#include <limits.h>
#endif /* MINIX */
#ifdef CK_REDIR /* <sys/wait.h> needed only for REDIRECT command. */
/*
If anybody can figure out how to make this work with NeXTSTEP, be
my guest! (NeXTBlah/NeXTBlah/bsd/sys/wait.h does not define WEXITSTATUS)
*/
#ifndef CK_WAIT_H /* If wait.h not already included... */
#include <sys/wait.h> /* Include it */
#endif /* CK_WAIT_H */
#endif /* CK_REDIR */
#include "ckuver.h" /* Version herald */
char *ckxsys = HERALD;
#ifdef CK_UTSNAME
#include <sys/utsname.h>
#ifdef UW7
#ifndef SYS_NMLN
#define SYS_NMLN 257
#endif /* NMLN */
#endif /* UW7 */
#ifdef HPUX9PLUS
static int hpis800 = 0;
#endif /* HPUX9PLUS */
#ifdef SYS_NMLN
#define CK_SYSNMLN SYS_NMLN
#else
#ifdef _SYS_NMLN
#define CK_SYSNMLN _SYS_NMLN
#else
#ifdef UTSLEN
#define CK_SYSNMLN UTSLEN
#else
#define CK_SYSNMLN 31
#endif /* UTSLEN */
#endif /* _SYS_NMLN */
#endif /* SYS_NMLN */
char unm_mch[CK_SYSNMLN+1] = { '', '' };
char unm_mod[CK_SYSNMLN+1] = { '', '' };
char unm_nam[CK_SYSNMLN+1] = { '', '' };
char unm_rel[CK_SYSNMLN+1] = { '', '' };
char unm_ver[CK_SYSNMLN+1] = { '', '' };
#endif /* CK_UTSNAME */
#ifdef CIE
#include <stat.h> /* For chasing symlinks, etc. */
#else
#include <sys/stat.h>
#endif /* CIE */
/* UUCP lockfile material... */
#ifndef NOUUCP
#ifdef USETTYLOCK
#ifdef USE_UU_LOCK
#include <libutil.h>
#endif /* USE_UU_LOCK */
#else /* USETTYLOCK */
/* Name of UUCP tty device lockfile */
#ifdef LINUXFSSTND
#ifndef HDBUUCP
#define HDBUUCP
#endif /* HDBUUCP */
#endif /* LINUXFSSTND */
#ifdef ACUCNTRL
#define LCKDIR
#endif /* ACUCNTRL */
/*
PIDSTRING means use ASCII string to represent pid in lockfile.
*/
#ifndef PIDSTRING
#ifdef HDBUUCP
#define PIDSTRING
#else
#ifdef BSD44
#define PIDSTRING
#else
#ifdef RTAIX
#define PIDSTRING
#else
#ifdef AIXRS
#define PIDSTRING
#else
#ifdef COHERENT
#define PIDSTRING
#endif /* COHERENT */
#endif /* AIXRS */
#endif /* RTAIX */
#endif /* BSD44 */
#endif /* HDBUUCP */
#endif /* PIDSTRING */
/* Now the PIDSTRING exceptions... */
#ifdef PIDSTRING
#ifdef HPUX
#undef PIDSTRING
#endif /* HPUX */
#endif /* PIDSTRING */
#ifdef __bsdi__ /* BSDI (at least thru 1.1) */
#ifdef PIDSTRING
#undef PIDSTRING
#endif /* PIDSTRING */
#endif /* __bsdi__ */
#ifdef OSF32 /* Digital UNIX (OSF/1) 3.2 */
#ifdef PIDSTRING
#undef PIDSTRING
#endif /* PIDSTRING */
#endif /* OSF32 */
/*
LOCK_DIR is the name of the lockfile directory.
If LOCK_DIR is already defined (e.g. on command line), we don't change it.
*/
#ifndef LOCK_DIR
#ifdef BSD44
#ifdef __386BSD__
#define LOCK_DIR "/var/spool/lock"
#else
#ifdef __FreeBSD__
#define LOCK_DIR "/var/spool/lock"
#else
#ifdef __NetBSD__
#define LOCK_DIR "/var/spool/lock"
#else
#define LOCK_DIR "/var/spool/uucp"
#endif /* __NetBSD__ */
#endif /* __FreeBSD__ */
#endif /* __386BSD__ */
#else
#ifdef DGUX430
#define LOCK_DIR "/var/spool/locks"
#else
#ifdef HPUX10
#define LOCK_DIR "/var/spool/locks"
#else
#ifdef RTAIX /* IBM RT PC AIX 2.2.1 */
#define LOCK_DIR "/etc/locks"
#else
#ifdef AIXRS
#define LOCK_DIR "/etc/locks"
#else
#ifdef ISIII
#define LOCK_DIR "/etc/locks"
#else
#ifdef HDBUUCP
#ifdef M_SYS5
#define LOCK_DIR "/usr/spool/uucp"
#else
#ifdef M_UNIX
#define LOCK_DIR "/usr/spool/uucp"
#else
#ifdef SVR4
#define LOCK_DIR "/var/spool/locks"
#else
#ifdef SUNOS4
#define LOCK_DIR "/var/spool/locks"
#else
#ifdef LINUXFSSTND
#define LOCK_DIR "/var/lock";
#else
#define LOCK_DIR "/usr/spool/locks"
#endif /* LINUXFSSTND */
#endif /* SUNOS4 */
#endif /* SVR4 */
#endif /* M_UNIX */
#endif /* M_SYS5 */
#else
#ifdef LCKDIR
#define LOCK_DIR "/usr/spool/uucp/LCK"
#else
#ifdef COHERENT
#define LOCK_DIR "/usr/spool/uucp"
#else
#define LOCK_DIR "/usr/spool/uucp"
#endif /* COHERENT */
#endif /* LCKDIR */
#endif /* HDBUUCP */
#endif /* ISIII */
#endif /* AIXRS */
#endif /* RTAIX */
#endif /* HPUX10 */
#endif /* DGUX430 */
#endif /* BSD44 */
#endif /* !LOCK_DIR (outside ifndef) */
#ifdef OSF2 /* OSF/1 2.0 or later */
#ifdef LOCK_DIR /* (maybe 1.x too, who knows...) */
#undef LOCK_DIR
#define LOCK_DIR "/var/spool/locks"
#endif /* LOCK_DIR */
#endif /* OSF2 */
#ifdef SVR4
#ifndef BSD44
#ifndef LOCKF
#define LOCKF /* Use lockf() on tty device in SVR4 */
#endif /* LOCKF */
#endif /* BSD44 */
#endif /* SVR4 */
#ifdef NOLOCKF /* But NOLOCKF cancels LOCKF */
#ifdef LOCKF
#undef LOCKF
#endif /* LOCKF */
#endif /* NOLOCKF */
/* More about this below... */
#endif /* USETTYLOCK */
#endif /* NOUUCP */
/*
MYREAD means use our internally defined nonblocking buffered read routine.
*/
#ifdef ATTSV
#define MYREAD
#endif /* ATTSV */
#ifdef ATT7300
#ifndef MYREAD
#define MYREAD
#endif /* MYREAD */
/* bits for attmodem: internal modem in use, restart getty */
#define ISMODEM 1
#define DOGETY 512
#endif /* ATT7300 */
#ifdef BSD42
#define MYREAD
#endif /* BSD42 */
#ifdef POSIX
#define MYREAD
#endif /* POSIX */
#ifdef __bsdi__
#ifndef O_NDELAY
#define O_NDELAY O_NONBLOCK
#endif /* O_NDELAY */
#endif /* __bsdi__ */
/*
Variables available to outside world:
dftty -- Pointer to default tty name string, like "/dev/tty".
dfloc -- 0 if dftty is console, 1 if external line.
dfprty -- Default parity
dfflow -- Default flow control
ckxech -- Flag for who echoes console typein:
1 - The program (system echo is turned off)
0 - The system (or front end, or terminal).
functions that want to do their own echoing should check this flag
before doing so.
flfnam -- Name of lock file, including its path, e.g.,
"/usr/spool/uucp/LCK..cul0" or "/etc/locks/tty77"
lkflfn -- Name of link to lock file, including its paths
haslock -- Flag set if this kermit established a uucp lock.
lockpid -- PID of other process that has desired line open, as string.
backgrd -- Flag indicating program executing in background ( & on
end of shell command). Used to ignore INT and QUIT signals.
rtu_bug -- Set by stptrap(). RTU treats ^Z as EOF (but only when we handle
SIGTSTP)
Functions for assigned communication line (either external or console tty):
sysinit() -- System dependent program initialization
syscleanup() -- System dependent program shutdown
ttopen(ttname,local,mdmtyp,timo) -- Open the named tty for exclusive access.
ttclos() -- Close & reset the tty, releasing any access lock.
ttsspd(cps) -- Set the transmission speed of the tty.
ttgspd() -- Get (read) the the transmission speed of the tty.
ttpkt(speed,flow,parity) -- Put the tty in packet mode and set the speed.
ttvt(speed,flow) -- Put the tty in virtual terminal mode.
or in DIALING or CONNECTED modem control state.
ttres() -- Restore original tty modes.
ttscarr(carrier) -- Set carrier control mode, on/off/auto.
ttinl(dest,max,timo) -- Timed read line from the tty.
ttinc(timo) -- Timed read character from tty.
myread() -- Raw mode bulk buffer read, gives subsequent
chars one at a time and simulates FIONREAD.
myunrd(c) -- Places c back in buffer to be read (one only)
ttchk() -- See how many characters in tty input buffer.
ttxin(n,buf) -- Read n characters from tty (untimed).
ttol(string,length) -- Write a string to the tty.
ttoc(c) -- Write a character to the tty.
ttflui() -- Flush tty input buffer.
ttsndb() -- Send BREAK signal.
ttsndlb() -- Send Long BREAK signal.
ttlock(ttname) -- "Lock" tty device against uucp collisions.
ttunlck() -- Unlock tty device.
For ATT7300/Unix PC, System V:
attdial(ttname,speed,telnbr) -- dials ATT7300/Unix PC internal modem
offgetty(ttname) -- Turns off getty(1m) for comms line
ongetty(ttname) -- Restores getty() to comms line
*/
/*
Functions for console terminal:
congm() -- Get console terminal modes.
concb(esc) -- Put the console in single-character wakeup mode with no echo.
conbin(esc) -- Put the console in binary (raw) mode.
conres() -- Restore the console to mode obtained by congm().
conoc(c) -- Unbuffered output, one character to console.
conol(s) -- Unbuffered output, null-terminated string to the console.
conola(s) -- Unbuffered output, array of strings to the console.
conxo(n,s) -- Unbuffered output, n characters to the console.
conchk() -- Check if characters available at console (bsd 4.2).
Check if escape char (^) typed at console (System III/V).
coninc(timo) -- Timed get a character from the console.
congks(timo) -- Timed get keyboard scan code.
conint() -- Enable terminal interrupts on the console if not background.
connoi() -- Disable terminal interrupts on the console if not background.
Time functions
msleep(m) -- Millisecond sleep
ztime(&s) -- Return pointer to date/time string
rtimer() -- Reset timer
gtimer() -- Get elapsed time since last call to rtimer()
*/
/* Conditional Includes */
/* Whether to include <sys/file.h> */
#ifdef RTU /* RTU doesn't */
#define NOFILEH
#endif /* RTU */
#ifdef CIE /* CIE does. */
#undef NOFILEH
#endif /* CIE */
#ifdef BSD41 /* 4.1 BSD doesn't */
#define NOFILEH
#endif /* BSD41 */
#ifdef is68k /* is68k (whatever that is) */
#define NOFILEH
#endif /* is68k */
#ifdef MINIX /* MINIX */
#define NOFILEH
#endif /* MINIX */
#ifdef COHERENT /* Coherent */
#define NOFILEH
#endif /* COHERENT */
#ifndef NOFILEH /* Now include if selected. */
#include <sys/file.h>
#endif /* NOFILEH */
/* POSIX */
#ifdef BSD44ORPOSIX /* POSIX uses termios.h */
#define TERMIOS
#ifdef __bsdi__
#ifdef POSIX
#undef _POSIX_SOURCE /* Get extra stuff from termios.h */
#endif /* POSIX */
#endif /* __bsdi__ */
#include <termios.h>
#ifdef LINUX
#include <sys/ioctl.h>
#endif /* LINUX */
#ifdef QNX16
#include <ioctl.h>
#endif /* QNX16 */
#ifdef __bsdi__
#ifdef POSIX
#define _POSIX_SOURCE
#endif /* POSIX */
#endif /* __bsdi__ */
#ifndef BSD44 /* Really POSIX */
#ifndef CK_QNX32 /* was CK_QNX32 */
#define NOSYSIOCTLH /* No ioctl's allowed. */
#undef ultrix /* Turn off any ultrix features. */
#endif /* CK_QNX32 */
#endif /* BSD44 */
#endif /* POSIX */
/* System III, System V */
#ifdef ATTSV
#ifndef BSD44
#ifndef POSIX
#include <termio.h>
#endif /* POSIX */
#endif /* BSD44 */
#ifdef TERMIOX
/* Need this for termiox structure, RTS/CTS and DTR/CD flow control */
#include <termiox.h>
struct termiox rctsx;
#else
#ifdef STERMIOX
#ifdef SCO_OSR504
/* Sorry, this is truly disgusting but it's SCO's fault. */
#ifndef _SVID3
#define _CK_SVID3_X
#define _SVID3
#endif /* _SVID3 */
#endif /* SCO_OSR504 */
#include <sys/termiox.h>
struct termiox rctsx;
#ifdef CK_SVID3_X
#undef _SVID3
#undef CK_SVID3_X
#endif /* CK_SVID3_X */
#endif /* STERMIOX */
#endif /* TERMIOX */
#endif /* ATTSV */
#ifdef COHERENT /* Use termio.h, not sgtty.h for Coherent */
#include <termio.h>
#endif /* COHERENT */
#ifdef MINIX /* MINIX uses ioctl's */
#define NOSYSIOCTLH /* but has no <sys/ioctl.h> */
#endif /* MINIX */
/* Others */
#ifndef NOSYSIOCTLH /* Others use ioctl() */
#ifdef SUN4S5
/*
This is to get rid of cpp warning messages that occur because all of
these symbols are defined by both termios.h and ioctl.h on the SUN.
*/
#undef ECHO
#undef NL0
#undef NL1
#undef TAB0
#undef TAB1
#undef TAB2
#undef XTABS
#undef CR0
#undef CR1
#undef CR2
#undef CR3
#undef FF0
#undef FF1
#undef BS0
#undef BS1
#undef TOSTOP
#undef FLUSHO
#undef PENDIN
#undef NOFLSH
#endif /* SUN4S5 */
#include <sys/ioctl.h>
#endif /* NOSYSIOCTLH */
/*
We really, really, REALLY want FIONREAD, because it is the only way to find
out not just *if* stuff is waiting to be read, but how much, which is
critical to our sliding-window and streaming procedures, not to mention
efficiency of CONNECT, etc.
*/
#ifdef BELLV10
#include <sys/filio.h> /* For FIONREAD */
#ifdef FIONREAD
#define MYREAD
#endif /* MYREAD */
#endif /* BELLV10 */
#ifndef FIONREAD
/* It wasn't found in ioctl.h or term*.h - try these places: */
#ifdef UNIXWARE
#include <sys/filio.h>
#else
#ifdef SOLARIS
#include <sys/filio.h>
#endif /* SOLARIS */
#endif /* UNIXWARE */
#endif /* FIONREAD */
#ifdef XENIX /* Was M_UNIX but XENIX implies M_UNIX and applies to XENIX too */
/*
<sys/socket.h> included above via "ckcnet.h" defines FIONREAD as
something. Due to this, in_chk() uses the FIONREAD instead of RDCHK
and the hot keys during file transfer (X to cancel file etc) do not
work because FIONREAD doesn't work even though it is defined.
NOTE: This might also be true elsewhere.
*/
#ifdef FIONREAD
#undef FIONREAD
#endif /* FIONREAD */
#endif /* XENIX */
#ifdef CK_SCOV5 /* Ditto for SCO OpenServer 5.0 */
#ifdef FIONREAD
#undef FIONREAD
#endif /* FIONREAD */
#endif /* XENIX */
/* Whether to include <fcntl.h> */
#ifndef is68k /* Only a few don't have this one. */
#ifndef BSD41
#ifndef FT21
#ifndef FT18
#ifndef COHERENT
#include <fcntl.h>
#endif /* COHERENT */
#endif /* FT18 */
#endif /* FT21 */
#endif /* BSD41 */
#endif /* not is68k */
#ifdef COHERENT
#ifdef _I386
#include <fcntl.h>
#else
#include <sys/fcntl.h>
#endif /* _I386 */
#endif /* COHERENT */
#ifdef ATT7300 /* Unix PC, internal modem dialer */
#include <sys/phone.h>
#endif /* ATT7300 */
#ifdef HPUX /* HP-UX variations. */
#define HPUXJOBCTL
#include <sys/modem.h> /* HP-UX modem signals */
#ifdef hp9000s500 /* Model 500 */
#undef HPUXJOBCTL
#endif /* hp9000s500 */
#ifdef HPUXPRE65
#undef HPUXJOBCTL
typedef long mflag;
#endif /* HPUXPRE65 */
#ifdef HPUXJOBCTL
#include <sys/bsdtty.h> /* HP-UX Berkeley tty support */
#endif /* HPUXJOBCTL */
#endif /* HPUX */
/*
Which time.h files to include... See ckcdeb.h for defaults.
Note that 0, 1, 2, or all 3 of these can be included according to
the symbol definitions.
*/
#ifndef NOTIMEH
#ifdef TIMEH
#include <time.h>
#endif /* TIMEH */
#endif /* NOTIMEH */
#ifndef NOSYSTIMEH
#ifdef SYSTIMEH
#include <sys/time.h>
#endif /* SYSTIMEH */
#endif /* NOSYSTIMEH */
#ifndef NOSYSTIMEBH
#ifdef SYSTIMEBH
#include <sys/timeb.h>
#endif /* SYSTIMEBH */
#endif /* NOSYSTIMEBH */
#ifdef DCLTIMEVAL
/*
In certain POSIX builds (like Unixware 7), <[sys/]time.h> refuses to
define the structs we need to access the higher speeds, so we have to
do it ourselves.
*/
struct timeval {
long tv_sec;
long tv_usec;
};
struct timezone {
int tz_minuteswest;
int tz_dsttime;
};
#endif /* DCLTIMEVAL */
#ifdef __linux__
/* THIS IS OBSOLETE since about Linux 0.92 */
#ifdef OLINUXHISPEED
#include <linux/serial.h>
#endif /* OLINUXHISPEED */
#ifdef __alpha__ /* Linux on DEC Alpha */
#ifndef __GLIBC__ /* But not with glibc */
#include <asm/termios.h>
#endif /* __GLIBC__ */
#endif /* __alpha__ */
#endif /* __linux__ */
#ifdef NOIEXTEN /* This is broken on some systems */
#undef IEXTEN /* like Convex/OS 9.1 */
#endif /* NOIEXTEN */
#ifndef IEXTEN /* Turn off ^O/^V processing. */
#define IEXTEN 0 /* Needed, at least, on BSDI. */
#endif /* IEXTEN */
/*
Pick up definitions needed for select() if we don't have them already.
Normally they come from <sys/types.h> but some systems get them from
<sys/select.h>... Rather than hardwire all of them into the source, we
include it if SELECT_H is defined in compile-time CFLAGS.
*/
#ifndef SCO_OSR504
#ifdef SELECT_H
#include <sys/select.h>
#endif /* SELECT_H */
#endif /* SCO_OSR504 */
#ifdef aegis
#include "/sys/ins/base.ins.c"
#include "/sys/ins/error.ins.c"
#include "/sys/ins/ios.ins.c"
#include "/sys/ins/sio.ins.c"
#include "/sys/ins/pad.ins.c"
#include "/sys/ins/time.ins.c"
#include "/sys/ins/pfm.ins.c"
#include "/sys/ins/pgm.ins.c"
#include "/sys/ins/ec2.ins.c"
#include "/sys/ins/type_uids.ins.c"
#include <default_acl.h>
#undef TIOCEXCL
#undef FIONREAD
#endif /* aegis */
#ifdef sxaE50 /* PFU Compact A SX/A TISP V10/L50 */
#undef FIONREAD
#endif /* sxaE50 */
/* The following #defines are catch-alls for those systems */
/* that didn't have or couldn't find <file.h>... */
#ifndef FREAD
#define FREAD 0x01
#endif /* FREAD */
#ifndef FWRITE
#define FWRITE 0x10
#endif /* FWRITE */
#ifndef O_RDONLY
#define O_RDONLY 000
#endif /* O_RDONLY */
#ifdef SVORPOSIX
/*
Modem signals are also forbidden in the POSIX world. But some POSIX-based
platforms let us at them anyway if we know where to look.
*/
#ifndef NEEDMDMDEFS
/* Doesn't work for Linux */
#ifdef UNIXWARE7
#define NEEDMDMDEFS
#endif /* UNIXWARE7 */
#endif /* NEEDMDMDEFS */
#ifdef NEEDMDMDEFS
#ifndef TIOCMGET
#define TIOCMGET (('t'<<8)|29)
#endif /* TIOCMGET */
#ifndef TIOCM_DTR
#define TIOCM_DTR 0x0002
#endif /* TIOCM_DTR */
#ifndef TIOCM_RTS
#define TIOCM_RTS 0x0004
#endif /* TIOCM_RTS */
#ifndef TIOCM_CTS
#define TIOCM_CTS 0x0020
#endif /* TIOCM_CTS */
#ifndef TIOCM_CAR
#define TIOCM_CAR 0x0040
#endif /* TIOCM_CAR */
#ifndef TIOCM_RNG
#define TIOCM_RNG 0x0080
#endif /* TIOCM_RNG */
#ifndef TIOCM_DSR
#define TIOCM_DSR 0x0100
#endif /* TIOCM_DSR */
#endif /* NEEDMDMDEFS */
#endif /* SVORPOSIX */
/* Declarations */
#ifdef OXOS
#undef TCGETA
#undef TCSETA
#undef TCSETAW
#undef TCSETAF
#define TCGETA TCGETS
#define TCSETA TCSETS
#define TCSETAW TCSETSW
#define TCSETAF TCSETSF
#define termio termios
#endif /* OXOS */
#ifdef SVORPOSIX /* AT&T Sys V or POSIX */
#ifdef UNIXWAREPOSIX /* UnixWare 7 POSIX build */
/*
In Unixware POSIX builds, <[sys/]time.h> refuses to define the
structs we need to access the higher speeds, so we have to do it
ourselves.
*/
struct timeval {
long tv_sec;
long tv_usec;
};
struct timezone {
int tz_minuteswest;
int tz_dsttime;
};
#endif /* UNIXWAREPOSIX */
#endif /* SVORPOSIX */
#ifdef __GNUC__
#ifdef XENIX
/*
Because Xenix <time.h> doesn't declare time() if we're using gcc.
*/
time_t time();
#endif /* XENIX */
#endif /* __GNUC__ */
/* Special stuff for V7 input buffer peeking */
#ifdef V7
int kmem[2] = { -1, -1};
char *initrawq(), *qaddr[2]={0,0};
#define CON 0
#define TTY 1
#endif /* V7 */
/* dftty is the device name of the default device for file transfer */
/* dfloc is 0 if dftty is the user's console terminal, 1 if an external line */
#ifdef BEOS
char * dftty = NULL;
char *dfmdm = "none";
int dfloc = 0; /* that goes in local mode by default */
#else
#ifndef DFTTY
#ifdef PROVX1
char *dftty = "/dev/com1.dout"; /* Only example so far of a system */
char *dfmdm = "none";
int dfloc = 1; /* that goes in local mode by default */
#else
char *dftty = CTTNAM; /* Remote by default, use normal */
char *dfmdm = "none";
int dfloc = 0; /* controlling terminal name. */
#endif /* PROVX1 */
#else
char *dftty = DFTTY; /* Default location specified on */
char *dfmdm = "none"; /* command line. */
int dfloc = 1; /* controlling terminal name. */
#endif /* DFTTY */
#endif /* BEOS */
char cttnam[DEVNAMLEN+1] = { '', '' }; /* Determined at runtime */
#ifdef RTU
int rtu_bug = 0; /* set to 1 when returning from SIGTSTP */
#endif /* RTU */
int dfprty = DEFPAR; /* Default parity (0 = none) */
int ttprty = 0; /* The parity that is in use. */
static int ttpmsk = 0xff; /* Parity stripping mask. */
int ttmdm = 0; /* Modem in use. */
int ttcarr = CAR_AUT; /* Carrier handling mode. */
int dfflow = FLO_NONE; /* Default flow control is NONE */
int backgrd = 0; /* Assume in foreground (no '&' ) */
#ifdef F_SETFL
int iniflags = -1; /* fcntl flags for ttyfd */
#endif /* F_SETFL */
int fdflag = 0; /* Flag for redirected stdio */
int ttfdflg = 0; /* Open File descriptor was given */
int tvtflg = 0; /* Flag that ttvt has been called */
long ttspeed = -1L; /* For saving speed */
int ttflow = -9; /* For saving flow */
int ttld = -1; /* Line discipline */
#ifdef sony_news
static int km_con = -1; /* Kanji mode for console tty */
static int km_ext = -1; /* Kanji mode for external device */
#endif /* sony_news */
#ifdef PARSENSE
static int needpchk = 1; /* Need parity check */
#else
static int needpchk = 0;
#endif /* PARSENSE */
#ifdef HWPARITY
/*
Unfortunately we must do this with global variables rather than through the
tt...() APIs to avoid changing the APIs and the many modules that use them.
If hwparity != 0, this indicates 8 data bits + parity, rather than 7 data
bits + parity or 8 data bits and no parity, and overrides the regular parity
variable, which is communicated to this module thru ttpkt(), and represented
locally by the ttprty variable.
*/
extern int hwparity; /* Hardware parity */
extern int stopbits; /* Stop bits */
#endif /* HWPARITY */
#ifdef TCPSOCKET
#ifdef TCP_NODELAY
static int nodelay_sav = -1;
#endif /* TCP_NODELAY */
#endif /* TCPSOCKET */
static int sigint_ign = 0; /* SIGINT is ignored */
/*
Having this module rely on external globals is bad, but fixing this
requires overhaul of the ck*tio.c modules for all the different operating
systems supported by C-Kermit. Left for a future release.
*/
extern int ttnproto; /* Defined in ckcnet.c */
extern int ttnet; /* Defined in ckcnet.c */
extern int nopush, xfrcan, xfrchr, xfrnum; /* Defined in ckcmai.c */
extern int suspend, wasclosed;
extern int inserver, local;
int ckxech = 0; /* 0 if system normally echoes console characters, else 1 */
int ckmaxfiles = 0; /* Max number of open files */
#ifdef CK_ENCRYPTION /* Kerberos */
#include "ckuath.h"
extern int me_encrypt, u_encrypt;
#endif /* CK_ENCRYPTION */
/* Declarations of variables global within this module */
#ifdef TTLEBUF /* See ckcnet.h */
int ttpush = -1;
#define LEBUFSIZ 4096
static CHAR le_buf[LEBUFSIZ];
static int le_start = 0, le_end = 0, le_data = 0;
#endif /* TTLEBUF */
static time_t tcount = (time_t)0; /* Elapsed time counter */
static SIGTYP (*saval)() = NULL; /* For saving alarm() handler */
static SIGTYP (*savquit)() = NULL; /* and other signal handlers */
#ifdef SIGUSR1
static SIGTYP (*savusr1)() = NULL;
#endif /* SIGUSR1 */
#ifdef SIGUSR2
static SIGTYP (*savusr2)() = NULL;
#endif /* SIGUSR2 */
#ifdef SIGPIPE
static SIGTYP (*savpipe)() = NULL;
#endif /* SIGPIPE */
#ifdef SIGDANGER
static SIGTYP (*savdanger)() = NULL;
#endif /* SIGDANGER */
#ifndef NOJC
static SIGTYP (*jchdlr)() = NULL; /* For checking suspend handler */
#endif /* NOJC */
static int jcshell = -1; /* And flag for result */
/*
BREAKNULS is defined for systems that simulate sending a BREAK signal
by sending a bunch of NUL characters at low speed.
*/
#ifdef PROVX1
#ifndef BREAKNULS
#define BREAKNULS
#endif /* BREAKNULS */
#endif /* PROVX1 */
#ifdef V7
#ifndef BREAKNULS
#define BREAKNULS
#endif /* BREAKNULS */
#endif /* V7 */
#ifdef BREAKNULS
static char /* A string of nulls */
*brnuls = "";
#endif /* BREAKNULS */
#ifdef CK_POSIX_SIG /* Longjump buffers */
static sigjmp_buf sjbuf; /* POSIX signal handling */
#else
static jmp_buf sjbuf;
#endif /* CK_POSIX_SIG */
#ifdef V7
static jmp_buf jjbuf;
#endif /* V7 */
/* static */ /* (Not static any more) */
int ttyfd = -1; /* TTY file descriptor */
int ttpipe = 0; /* NETCMD: Use pipe instead of ttyfd */
int ttpty = 0; /* NETPTY: Use pty instead of ttfyd */
#ifdef NETCMD
static int pipe0[2], pipe1[2]; /* Pipes for net i/o */
static PID_T ttpid = 0; /* Process ID for fork */
static int fdin, fdout; /* File descriptors for pipe */
static FILE * ttout = NULL; /* File pointer for output pipe */
#ifdef DCLFDOPEN
/* fdopen() needs declaring because it's not declared in <stdio.h> */
_PROTOTYP( FILE * fdopen, (int, char *) );
#endif /* DCLFDOPEN */
#endif /* NETCMD */
extern int pexitstat, quiet;
#ifdef Plan9
int ttyctlfd = -1; /* TTY control channel - What? UNIX doesn't have one? */
int consctlfd = -1; /* Console control channel */
int noisefd = -1; /* tone channel */
static int ttylastspeed = -1; /* So we can lie about the speed */
#endif /* Plan9 */
int telnetfd = 0; /* File descriptor is for telnet */
int x25fd = 0; /* File descriptor is for X.25 */
char lockpid[16] = { '', '' }; /* PID stored in lockfile, as string */
static int lkf = 0, /* Line lock flag */
cgmf = 0, /* Flag that console modes saved */
xlocal = 0, /* Flag for tty local or remote */
curcarr = 0; /* Carrier mode: require/ignore. */
static int netconn = 0; /* 1 if network connection active */
static char escchr; /* Escape or attn character */
#ifdef CK_SCO32V4
#include <sys/time.h>
#endif /* CK_SCO32V4 */
#ifdef HAVE_TV
static struct timeval tv; /* For getting time, from sys/time.h */
#endif /* HAVE_TV */
#ifdef HAVE_TZ
static struct timezone tz;
#endif /* HAVE_TZ */
#ifdef OSF
static struct timeb ftp; /* And from sys/timeb.h */
#endif /* OSF */
#ifdef BSD29
static long xclock; /* For getting time from sys/time.h */
static struct timeb ftp; /* And from sys/timeb.h */
#endif /* BSD29 */
#ifdef BSD41
static long xclock; /* For getting time from sys/time.h */
static struct timeb ftp; /* And from sys/timeb.h */
#endif /* BSD41 */
#ifdef BELLV10
static long xclock; /* For getting time from sys/time.h */
static struct timeb ftp; /* And from sys/timeb.h */
#endif /* BELLV10 */
#ifdef FT21
static long xclock; /* For getting time from sys/time.h */
static struct timeb ftp; /* And from sys/timeb.h */
#endif /* FT21 */
#ifdef TOWER1
static long xclock; /* For getting time from sys/time.h */
static struct timeb ftp; /* And from sys/timeb.h */
#endif /* TOWER1 */
#ifdef COHERENT
static long xclock; /* For getting time from sys/time.h */
static struct timeb ftp; /* And from sys/timeb.h */
#endif /* COHERENT */
#ifdef V7
static long xclock;
#endif /* V7 */
/* sgtty/termio information... */
#ifdef BSD44ORPOSIX /* POSIX or BSD44 */
static struct termios
ttold, ttraw, tttvt, ttcur,
ccold, ccraw, cccbrk;
#else /* BSD, V7, etc */
#ifdef COHERENT /* Hack alert... */
#define ATTSV
#endif /* COHERENT */
#ifdef ATTSV
static struct termio ttold = {0}; /* Init'd for word alignment, */
static struct termio ttraw = {0}; /* which is important for some */
static struct termio tttvt = {0}; /* systems, like Zilog... */
static struct termio ttcur = {0};
static struct termio ccold = {0};
static struct termio ccraw = {0};
static struct termio cccbrk = {0};
#else
static struct sgttyb /* sgtty info... */
ttold, ttraw, tttvt, ttcur, /* for communication line */
ccold, ccraw, cccbrk; /* and for console */
#ifdef BELLV10
static struct ttydevb /* Device info... */
tdold, tdcur; /* for communication device */
#endif /* BELLV10 */
#ifdef TIOCGETC
static struct tchars tchold, tchnoi;
static int tcharf;
#endif /* TIOCGETC */
#ifdef TIOCGLTC
static struct ltchars ltchold, ltchnoi;
static int ltcharf;
#endif /* TIOCGLTC */
int lmodef = 0; /* Local modes */
int lmode = 0;
#endif /* ATTSV */
#endif /* BSD44ORPOSIX */
#ifdef COMMENT
/* It picks up the speeds but they don't work */
#ifdef UNIXWARE /* For higher serial speeds */
#ifdef UW7 /* in Unixware 7.0 */
#include <sys/asyc.h> /* This picks up 57600 and 115200 */
#endif /* UW7 */
#endif /* UNIXWARE */
#endif /* COMMENT */
#ifdef PROVX1
static struct sgttyb ttbuf;
#endif /* PROVX1 */
#ifdef ultrix
/* do we really need this? */
static struct sgttyb vanilla;
#endif /* ultrix */
#ifdef ATT7300
static int attmodem = 0; /* ATT7300 internal-modem status */
struct updata dialer = {0}; /* Condition dialer for data call */
#endif /* ATT7300 */
#ifndef NOUUCP
#define FLFNAML 128
#ifndef USETTYLOCK
#ifdef RTAIX
char lkflfn[128] = { '', '' }; /* and possible link to it */
#endif /* RTAIX */
char lock2[128] = { '', '' }; /* Name of second lockfile */
#endif /* USETTYLOCK */
#else
#define FLFNAML 7
#endif /* NOUUCP */
char flfnam[FLFNAML+1] = { '', '' }; /* UUCP lock file path name */
int haslock = 0; /* =1 if this kermit locked uucp */
#ifndef OXOS
#ifdef SVORPOSIX
static int conesc = 0; /* set to 1 if esc char (^) typed */
#else
#ifdef V7
static int conesc = 0;
#else
#ifdef C70
static int conesc = 0;
#endif /* C70 */
#endif /* V7 */
#endif /* SVORPOSIX */
#endif /* OXOS */
static char ttnmsv[DEVNAMLEN+1]; /* Local copy of comm device name */
#ifdef USETTYLOCK
static char lockname[DEVNAMLEN+1]; /* Ditto, the part after "/dev/". */
#endif /* USETTYLOCK */
#ifdef aegis
static status_$t st; /* error status return value */
static short concrp = 0; /* true if console is CRP pad */
#define CONBUFSIZ 10
static char conbuf[CONBUFSIZ]; /* console readahead buffer */
static int conbufn = 0; /* # chars in readahead buffer */
static char *conbufp; /* next char in readahead buffer */
static uid_$t ttyuid; /* tty type uid */
static uid_$t conuid; /* stdout type uid */
/* APOLLO Aegis main()
* establish acl usage and cleanup handling
* this makes sure that CRP pads
* get restored to a usable mode
*/
main(argc,argv) int argc; char **argv; {
status_$t status;
pfm_$cleanup_rec dirty;
PID_T pid = getpid();
/* acl usage according to invoking environment */
default_acl(USE_DEFENV);
/* establish a cleanup continuation */
status = pfm_$cleanup(dirty);
if (status.all != pfm_$cleanup_set) {
/* only handle faults for the original process */
if (pid == getpid() && status.all > pgm_$max_severity) {
/* blew up in main process */
status_$t quo;
pfm_$cleanup_rec clean;
/* restore the console in any case */
conres();
/* attempt a clean exit */
debug(F101, "cleanup fault status", "", status.all);
/* doexit(), then send status to continuation */
quo = pfm_$cleanup(clean);
if (quo.all == pfm_$cleanup_set)
doexit(pgm_$program_faulted,-1);
else if (quo.all > pgm_$max_severity)
pfm_$signal(quo); /* blew up in doexit() */
}
/* send to the original continuation */
pfm_$signal(status);
/*NOTREACHED*/
}
return(ckcmai(argc, argv));
}
#endif /* aegis */
/* ANSI-style prototypes for internal functions. */
/* Functions used outside this module are prototyped in ckcker.h. */
#ifdef apollo
_PROTOTYP( SIGTYP timerh, () );
_PROTOTYP( SIGTYP cctrap, () );
_PROTOTYP( SIGTYP esctrp, () );
_PROTOTYP( SIGTYP sig_ign, () );
#else
_PROTOTYP( SIGTYP timerh, (int) );
_PROTOTYP( SIGTYP cctrap, (int) );
_PROTOTYP( SIGTYP esctrp, (int) );
#endif /* apollo */
_PROTOTYP( int do_open, (char *) );
_PROTOTYP( static int in_chk, (int, int) );
_PROTOTYP( static int ttrpid, (char *) );
_PROTOTYP( static int ttchkpid, (char *) );
_PROTOTYP( static int ttlock, (char *) );
_PROTOTYP( static int ttunlck, (void) );
_PROTOTYP( int mygetbuf, (void) );
_PROTOTYP( int myfillbuf, (void) );
_PROTOTYP( VOID conbgt, (int) );
#ifdef ACUCNTRL
_PROTOTYP( VOID acucntrl, (char *, char *) );
#endif /* ACUCNTRL */
#ifdef BSD44ORPOSIX
_PROTOTYP( int carrctl, (struct termios *, int) );
#else
#ifdef ATTSV
_PROTOTYP( int carrctl, (struct termio *, int) );
#else
_PROTOTYP( int carrctl, (struct sgttyb *, int) );
#endif /* ATTSV */
#endif /* BSD44ORPOSIX */
#ifdef ATT7300
_PROTOTYP( int attdial, (char *, long, char *) );
_PROTOTYP( int offgetty, (char *) );
_PROTOTYP( int ongetty, (char *) );
#endif /* ATT7300 */
#ifdef BEOSORBEBOX
#ifdef SELECT
/* BeOS is not capable of using SELECT on anything but sockets */
#undef SELECT
#endif /* SELECT */
#include <kernel/OS.h>
/* #ifdef BE_DR_7 */
static double time_started = 0.0;
struct ALARM_STRUCT {
thread_id thread;
int time;
};
static thread_id alarm_thread = -1;
static struct ALARM_STRUCT alarm_struct;
_PROTOTYP( long do_alarm, (void *) );
_PROTOTYP( unsigned int alarm, (unsigned int) );
_PROTOTYP( void alarm_expired, (void) );
/* #endif */ /* BE_DR_7 */
#endif /* BEOSORBEBOX */
#ifndef xunchar
#define xunchar(ch) (((ch) - 32 ) & 0xFF ) /* Character to number */
#endif /* xunchar */
#ifdef CK_ANSIC
static char *
xxlast(char *s, char c)
#else
static char *
xxlast(s,c) char *s; char c;
#endif /* CK_ANSIC */
/* xxlast */ { /* Last occurrence of character c in string s. */
int i;
for (i = (int)strlen(s); i > 0; i--)
if (s[i-1] == c ) return(s + (i - 1));
return(NULL);
}
/* Timeout handler for communication line input functions */
SIGTYP
timerh(foo) int foo; {
ttimoff();
#ifdef BEOSORBEBOX
/* #ifdef BE_DR_7 */
alarm_expired();
/* #endif */ /* BE_DR_7 */
#endif /* BEOSORBEBOX */
#ifdef CK_POSIX_SIG
siglongjmp(sjbuf,1);
#else
longjmp(sjbuf,1);
#endif /* CK_POSIX_SIG */
}
SIGTYP
xtimerh(foo) int foo; { /* Like timerh() but does */
#ifdef BEOSORBEBOX /* not reset the itslef */
/* #ifdef BE_DR_7 */
alarm_expired();
/* #endif */ /* BE_DR_7 */
#endif /* BEOSORBEBOX */
#ifdef CK_POSIX_SIG
siglongjmp(sjbuf,1);
#else
longjmp(sjbuf,1);
#endif /* CK_POSIX_SIG */
}
/* Control-C trap for communication line input functions */
int cc_int; /* Flag */
SIGTYP (* occt)(); /* For saving old SIGINT handler */
SIGTYP
cctrap(foo) int foo; { /* Needs arg for ANSI C */
cc_int = 1; /* signal() prototype. */
return;
}
/* S Y S I N I T -- System-dependent program initialization. */
/*
* ttgwsiz() returns:
* 1 tt_rows and tt_cols are known, both altered, both > 0
* 0 tt_rows and/or tt_cols are known, both altered, one or both <= 0
* -1 tt_rows and tt_cols are unknown and unaltered
*/
#ifndef NONAWS
extern int tt_rows, tt_cols;
#endif /* NONAWS */
static int
xttgwsiz() {
char *p;
int rows = 0, cols = 0;
p = getenv("LINES");
debug(F110,"xttgwsiz LINES",p,0);
if (p) {
rows = atol(p);
if (rows > 0) {
p = getenv("COLUMNS");
debug(F110,"xttgwsiz COLUMNS",p,0);
if (p) {
cols = atol(p);
if (cols > 0) {
tt_rows = rows;
tt_cols = cols;
return(1);
}
return(0);
}
}
}
return(-1);
}
#ifdef TTLEBUF
VOID
le_init() { /* LocalEchoInit() */
int i;
for (i = 0; i < LEBUFSIZ; i++)
le_buf[i] = '';
le_start = 0;
le_end = 0;
le_data = 0;
}
VOID
le_clean() { /* LocalEchoCleanup() */
le_init();
return;
}
int
le_inbuf() {
int rc = 0;
if (le_start != le_end) {
rc = (le_end -
le_start +
LEBUFSIZ) % LEBUFSIZ;
}
debug(F111,"le_inbuf","chars waiting",rc);
return(rc);
}
int
#ifdef CK_ANSIC
le_putchar(CHAR ch)
#else
le_putchar(ch) CHAR ch;
#endif /* CK_ANSIC */
/* le_putchar */ {
#ifdef COMMENT
/* In UNIX we do not have another thread taking chars out of the buffer */
while ((le_start - le_end == 1) ||
(le_start == 0 && le_end == LEBUFSIZ - 1)) {
/* Buffer is full */
debug(F111,"le_putchar","Buffer is Full",ch);
ReleaseLocalEchoMutex() ;
msleep(250);
RequestLocalEchoMutex( SEM_INDEFINITE_WAIT ) ;
}
#else
if ((le_start - le_end + LEBUFSIZ)%LEBUFSIZ == 1) {
debug(F110,"le_putchar","buffer is full",0);
return(-1);
}
#endif /* COMMENT */
le_buf[le_end++] = ch;
if (le_end == LEBUFSIZ)
le_end = 0;
le_data = 1;
return(0);
}
int
#ifdef CK_ANSIC
le_puts(CHAR * s, int n)
#else
le_puts(s,n) CHAR * s; int n;
#endif /* CK_ANSIC */
/* le_puts */ {
int rc = 0;
int i = 0;
CHAR * p = (CHAR *)"le_puts";
hexdump(p,s,n);
for (i = 0; i < n; i++)
rc = le_putchar((char)s[i]);
debug(F101,"le_puts","",rc);
return(rc);
}
int
#ifdef CK_ANSIC
le_putstr(CHAR * s)
#else
le_putstr(s) CHAR * s;
#endif /* CK_ANSIC */
/* le_puts */ {
CHAR * p;
int rc = 0;
p = (CHAR *)"le_putstr";
hexdump(p,s,(int)strlen((char *)s));
for (p = s; *p && !rc; p++)
rc = le_putchar(*p);
return(rc);
}
int
#ifdef CK_ANSIC
le_getchar(CHAR * pch)
#else /* CK_ANSIC */
le_getchar(pch) CHAR * pch;
#endif /* CK_ANSIC */
/* le_gatchar */ {
int rc = 0;
if (le_start != le_end) {
*pch = le_buf[le_start];
le_buf[le_start] = 0;
le_start++;
if (le_start == LEBUFSIZ)
le_start = 0;
if (le_start == le_end) {
le_data = 0;
}
rc++;
} else {
*pch = 0;
}
return(rc);
}
#endif /* TTLEBUF */
#ifdef COMMENT
/*
Some systems like OSF/1 use TIOCGSIZE instead of TIOCGWINSZ.
But as far as I know, whenever TIOCGSIZE is defined, it is
equated to TIOCGWINSZ. For cases where this is not done, try this:
*/
#ifndef TIOCGWINSZ
#ifdef TIOCGSIZE
#define TIOCGWINSZ TIOCGSIZE
#endif /* TIOCGSIZE */
#endif /* TIOCGWINSZ */
#endif /* COMMENT */
int
ttgwsiz() {
int x = 0;
#ifndef NONAWS
#ifdef QNX
/*
NOTE: TIOCGWSIZ works here too, but only in the 32-bit version.
This code works for both the 16- and 32-bit versions.
*/
extern int dev_size(int, int, int, int *, int *);
int r, c;
if (dev_size(0, -1, -1, &r, &c) == 0) {
debug(F101,"ttgwsiz QNX r","",r);
debug(F101,"ttgwsiz QNX c","",c);
tt_rows = r;
tt_cols = c;
return ((r > 0 && c > 0) ? 1 : 0);
} else return(xttgwsiz());
#else /* QNX */
#ifdef TIOCGWINSZ
/* Note, this was M_UNIX, changed to XENIX to allow cross compilation... */
#ifdef XENIX /* SCO UNIX 3.2v4.0 */
#include <sys/stream.h> /* typedef mblk_t needed by ptem.h */
#include <sys/ptem.h> /* for ttgwsiz() */
#endif /* XENIX */
#ifdef I386IX /* Ditto for Interactive */
#include <sys/stream.h>
#include <sys/ptem.h>
#endif /* I386IX */
/* Note, the above might be needed for some other older SVR3 Intel makes... */
struct winsize w;
#ifdef IKSD
if (inserver)
return(xttgwsiz());
#endif /* IKSD */
x = ioctl(0, (int)TIOCGWINSZ, (char *)&w);
debug(F101,"ttgwsiz TIOCGWINSZ","",x);
if (x < 0) {
return(xttgwsiz());
} else if (w.ws_row > 0 && w.ws_col > 0) {
tt_rows = w.ws_row;
tt_cols = w.ws_col;
debug(F101,"ttgwsiz tt_rows","",tt_rows);
debug(F101,"ttgwsiz tt_cols","",tt_cols);
return(1);
} else {
debug(F100,"ttgwsiz TIOCGWINSZ 00","",0);
return(xttgwsiz());
}
#else
return(xttgwsiz());
#endif /* TIOCGWINSZ */
#endif /* QNX */
#endif /* NONAWS */
}
SIGTYP
sighup(foo) int foo; { /* SIGHUP handler */
backgrd = 1;
debug(F100,"***************","",0);
debug(F100,"SIGHUP received","",0);
debug(F100,"***************","",0);
doexit(BAD_EXIT,-1);
/*NOTREACHED*/
SIGRETURN; /* Shut picky compilers up... */
}
#ifdef CK_SCO32V4
/* Exists but there is no prototype in the header files */
_PROTOTYP( char * ttyname, (int) );
#else
#ifdef SV68R3V6
_PROTOTYP( char * ttyname, (int) );
#else
#ifdef ultrix
_PROTOTYP( char * ttyname, (int) );
#else
#ifdef HPUX6
_PROTOTYP( char * ttyname, (int) );
#else
#ifdef HPUX5
_PROTOTYP( char * ttyname, (int) );
#else
#ifdef PS2AIX10
_PROTOTYP( char * ttyname, (int) );
#else
#ifdef BSD42
_PROTOTYP( char * ttyname, (int) );
#endif /* BSD42 */
#endif /* PS2AIX10 */
#endif /* HPUX5 */
#endif /* HPUX6 */
#endif /* ultrix */
#endif /* SV68R3V6 */
#endif /* CK_SCO32V4 */
#ifndef SIGUSR1 /* User-defined signals */
#define SIGUSR1 30
#endif /* SIGUSR1 */
#ifndef SIGUSR2
#define SIGUSR2 31
#endif /* SIGUSR2 */
/*
ignorsigs() sets certain signals to SIG_IGN. But when a signal is
ignored, it remains ignored across exec(), so we have to restore these
signals before exec(), which is the purpose of restorsigs().
*/
static VOID
ignorsigs() { /* Ignore these signals */
savquit = signal(SIGQUIT,SIG_IGN); /* Ignore Quit signal */
#ifdef SIGDANGER /* Ignore danger signals */
/*
This signal is sent when the system is low on swap space. Processes
that don't handle it are candidates for termination. If swap space doesn't
clear out enough, we still might be terminated via kill() -- nothing we can
do about that! Conceivably, this could be improved by installing a real
signal handler that warns the user, but that would be pretty complicated,
since we are not always in control of the screen -- e.g. during remote-mode
file transfer.
*/
savdanger = signal(SIGDANGER,SIG_IGN); /* e.g. in AIX */
#endif /* SIGDANGER */
#ifdef SIGPIPE
/*
This one comes when a TCP/IP connection is broken by the remote.
We prefer to catch this situation by examining error codes from write().
*/
savpipe = signal(SIGPIPE,SIG_IGN);
#endif /* SIGPIPE */
savusr1 = signal(SIGUSR1,SIG_IGN); /* Ignore user-defined signals */
savusr2 = signal(SIGUSR2,SIG_IGN);
}
VOID
restorsigs() { /* Restore these signals */
(VOID) signal(SIGQUIT,savquit); /* (used in ckufio.c) */
#ifdef SIGDANGER
(VOID) signal(SIGDANGER,savdanger);
#endif /* SIGDANGER */
#ifdef SIGPIPE
(VOID) signal(SIGPIPE,savpipe);
#endif /* SIGPIPE */
(VOID) signal(SIGUSR1,savusr1);
(VOID) signal(SIGUSR2,savusr2);
}
int
sysinit() {
int x;
char * s;
#ifdef CK_UTSNAME
struct utsname name;
#endif /* CK_UTSNAME */
extern char startupdir[];
/*
BEFORE ANYTHING ELSE: Initialize the setuid package.
Change to the user's real user and group ID.
If this can't be done, don't run at all.
*/
debug(F100,"sysinit calling priv_ini","",0);
if (x = priv_ini()) {
if (x & 1) fprintf(stderr,"Fatal: setuid failure.n");
if (x & 2) fprintf(stderr,"Fatal: setgid failure.n");
if (x & 4) fprintf(stderr,"Fatal: C-Kermit setuid to root!n");
exit(1);
}
signal(SIGINT,SIG_IGN); /* Ignore interrupts at first */
signal(SIGHUP,sighup); /* Catch SIGHUP */
#ifndef NOJC
/*
Get the initial job control state.
If it is SIG_IGN, that means the shell does not support job control,
and so we'd better not suspend ourselves.
*/
#ifdef SIGTSTP
jchdlr = signal(SIGTSTP,SIG_IGN);
if (jchdlr == SIG_IGN) {
jcshell = 0;
debug(F100,"sysinit jchdlr: SIG_IGN","",0);
} else if (jchdlr == SIG_DFL) {
debug(F100,"sysinit jchdlr: SIG_DFL","",0);
jcshell = 1;
} else {
debug(F100,"sysinit jchdlr: other","",0);
jcshell = 3;
}
(VOID) signal(SIGTSTP,jchdlr); /* Put it back... */
#endif /* SIGTSTP */
#endif /* NOJC */
conbgt(0); /* See if we're in the background */
congm(); /* Get console modes */
(VOID) signal(SIGALRM,SIG_IGN); /* Ignore alarms */
ignorsigs(); /* Ignore some other signals */
#ifdef F_SETFL
iniflags = fcntl(0,F_GETFL,0); /* Get stdin flags */
#endif /* F_SETFL */
#ifdef ultrix
gtty(0,&vanilla); /* Get sgtty info */
#else
#ifdef AUX
set42sig(); /* Don't ask! (hakanson@cs.orst.edu) */
#endif /* AUX */
#endif /* ultrix */
/*
Warning: on some UNIX systems (SVR4?), ttyname() reportedly opens /dev but
never closes it. If it is called often enough, we run out of file
descriptors and subsequent open()'s of other devices or files can fail.
*/
s = NULL;
#ifndef MINIX
if (isatty(0)) /* Name of controlling terminal */
s = ttyname(0);
else if (isatty(1))
s = ttyname(1);
else if (isatty(2))
s = ttyname(2);
debug(F110,"sysinit ttyname(0)",s,0);
#endif /* MINIX */
#ifdef BEOS
if (!dftty)
makestr(&dftty,s);
#endif /* BEOS */
if (s)
ckstrncpy((char *)cttnam,s,DEVNAMLEN+1);
#ifdef SVORPOSIX
if (!cttnam[0])
ctermid(cttnam);
#endif /* SVORPOSIX */
if (!cttnam[0])
ckstrncpy((char *)cttnam,dftty,DEVNAMLEN+1);
debug(F110,"sysinit CTTNAM",CTTNAM,0);
debug(F110,"sysinit cttnam",cttnam,0);
ttgwsiz(); /* Get window (screen) dimensions. */
#ifdef _SC_OPEN_MAX
ckmaxfiles = sysconf(_SC_OPEN_MAX);
#endif /* _SC_OPEN_MAX */
#ifdef Plan9
if (!backgrd) {
consctlfd = open("/dev/consctl", O_WRONLY);
/*noisefd = open("/dev/noise", O_WRONLY)*/
}
ckxech = 1;
#endif /* Plan9 */
#ifdef CK_UTSNAME
if (uname(&name) > -1) {
ckstrncpy(unm_mch,name.machine,CK_SYSNMLN);
ckstrncpy(unm_nam,name.sysname,CK_SYSNMLN);
ckstrncpy(unm_rel,name.release,CK_SYSNMLN);
ckstrncpy(unm_ver,name.version,CK_SYSNMLN);
#ifdef DEBUG
if (deblog) {
debug(F110,"sysinit uname machine",unm_mch,0);
debug(F110,"sysinit uname sysname",unm_nam,0);
debug(F110,"sysinit uname release",unm_rel,0);
debug(F110,"sysinit uname version",unm_ver,0);
}
#endif /* DEBUG */
#ifdef HPUX9PLUS
if (name.machine[5] == '8')
hpis800 = 1;
else
hpis800 = 0;
debug(F101,"sysinit hpis800","",hpis800);
#endif /* HPUX9PLUS */
}
#endif /* CK_UTSNAME */
#ifdef CK_ENVIRONMENT
{
extern char tn_env_acct[], tn_env_disp[], tn_env_job[],
tn_env_prnt[], tn_env_sys[], uidbuf[];
extern char * whoami();
char *p;
#ifdef CKSENDUID
uidbuf[0] = '';
#ifdef IKSD
if (!inserver) {
#endif /* IKSD */
p = getenv("USER");
debug(F110,"sysinit uidbuf from USER",uidbuf,0);
if (!p) {
p = getenv("LOGNAME");
debug(F110,"sysinit uidbuf from LOGNAME",uidbuf,0);
}
if (!p) {
p = whoami();
debug(F110,"sysinit uidbuf from whoami()",uidbuf,0);
}
if (p)
ckstrncpy(uidbuf,p,UIDBUFLEN);
#ifdef IKSD
}
#endif /* IKSD */
debug(F110,"sysinit final uidbuf",uidbuf,0);
#endif /* CKSENDUID */
if (p = getenv("JOB")) ckstrncpy(tn_env_job,p,63);
if (p = getenv("ACCT")) ckstrncpy(tn_env_acct,p,63);
if (p = getenv("PRINTER")) ckstrncpy(tn_env_prnt,p,63);
if (p = getenv("DISPLAY")) ckstrncpy(tn_env_disp,p,63);
#ifdef aegis
strcpy(tn_env_sys,"Aegis");
#else
#ifdef Plan9
strcpy(tn_env_sys,"Plan9");
#else
strcpy(tn_env_sys,"UNIX");
#endif /* Plan9 */
#endif /* aegis */
}
#endif /* CK_ENVIRONMENT */
#ifdef CK_SNDLOC
{
extern char * tn_loc;
char *p;
if (p = getenv("LOCATION"))
if (tn_loc = (char *)malloc((int)strlen(p)+1))
strcpy(tn_loc,p);
}
#endif /* CK_SNDLOC */
ckstrncpy(startupdir, zgtdir(), CKMAXPATH);
startupdir[CKMAXPATH] = '';
x = strlen(startupdir);
if (x <= 0) {
startupdir[0] = '/';
startupdir[1] = '';
} else if (startupdir[x-1] != '/') {
startupdir[x] = '/';
startupdir[x+1] = '';
}
debug(F110,"sysinit startupdir",startupdir,0);
#ifdef TTLEBUF
le_init();
#endif /* TTLEBUF */
return(0);
}
/* S Y S C L E A N U P -- System-dependent program cleanup. */
int
syscleanup() {
#ifdef F_SETFL
if (iniflags > -1)
fcntl(0,F_SETFL,iniflags); /* Restore stdin flags */
#endif /* F_SETFL */
#ifdef ultrix
stty(0,&vanilla); /* Get sgtty info */
#endif /* ultrix */
#ifdef NETCMD
if (ttpid) kill(ttpid,9);
#endif /* NETCMD */
return(0);
}
/* T T O P E N -- Open a tty for exclusive access. */
/*
Call with:
ttname: character string - device name or network host name.
lcl:
If called with lcl < 0, sets value of lcl as follows:
0: the terminal named by ttname is the job's controlling terminal.
1: the terminal named by ttname is not the job's controlling terminal.
But watch out: if a line is already open, or if requested line can't
be opened, then lcl remains (and is returned as) -1.
modem:
Less than zero: ttname is a network host name.
Zero or greater: ttname is a terminal device name.
Zero means a local connection (don't use modem signals).
Positive means use modem signals.
timo:
0 = no timer.
nonzero = number of seconds to wait for open() to return before timing out.
Returns:
0 on success
-5 if device is in use
-4 if access to device is denied
-3 if access to lock directory denied
-2 upon timeout waiting for device to open
-1 on other error
*/
static int ttotmo = 0; /* Timeout flag */
/* Flag kept here to avoid being clobbered by longjmp. */
int
ttopen(ttname,lcl,modem,timo) char *ttname; int *lcl, modem, timo; {
#ifdef BSD44
#define ctermid(x) strcpy(x,"")
#else
#ifdef SVORPOSIX
#ifndef CIE
extern char *ctermid(); /* Wish they all had this! */
#else /* CIE Regulus */
#define ctermid(x) strcpy(x,"")
#endif /* CIE */
#endif /* SVORPOSIX */
#endif /* BSD44 */
#ifdef ultrix
int temp = 0;
#endif /* ultrix */
char *x; /* Worker string pointer */
int y;
#ifndef pdp11
#define NAMEFD /* Feature to allow name to be an open file descriptor */
#endif /* pdp11 */
#ifdef NAMEFD
char *p;
debug(F101,"ttopen telnetfd","",telnetfd);
#endif /* NAMEFD */
debug(F111,"ttopen entry modem",ttname,modem);
debug(F101," ttyfd","",ttyfd);
debug(F101," lcl","",*lcl);
#ifdef MAXNAMLEN
debug(F100,"ttopen MAXNAMLEN defined","",0);
#else
debug(F100,"ttopen MAXNAMLEN *NOT* defined","",0);
#endif
#ifdef BSD4
debug(F100,"ttopen BSD4 defined","",0);
#else
debug(F100,"ttopen BSD4 *NOT* defined","",0);
#endif /* BSD4 */
#ifdef BSD42
debug(F100,"ttopen BSD42 defined","",0);
#else
debug(F100,"ttopen BSD42 *NOT* defined","",0);
#endif /* BSD42 */
#ifdef MYREAD
debug(F100,"ttopen MYREAD defined","",0);
#else
debug(F100,"ttopen MYREAD *NOT* defined","",0);
#endif /* MYREAD */
ttpmsk = 0xff;
lockpid[0] = '';
if (ttyfd > -1) { /* if device already opened */
debug(F110,"ttopen ttname",ttname,0);
debug(F110,"ttopen ttnmsv",ttnmsv,0);
if (strncmp(ttname,ttnmsv,DEVNAMLEN)) /* are new & old names equal? */
ttclos(ttyfd); /* no, close old ttname, open new */
else /* else same, ignore this call, */
return(0); /* and return. */
}
wasclosed = 0;
ttpipe = 0; /* Assume it's not a pipe */
ttpty = 0;
#ifdef NETCONN
if (modem < 0) { /* modem < 0 = special code for net */
int x;
ttmdm = modem;
modem = -modem; /* Positive network type number */
fdflag = 0; /* Stdio not redirected. */
netconn = 1; /* And it's a network connection */
debug(F111,"ttopen net",ttname,modem);
#ifdef NAMEFD
for (p = ttname; isdigit(*p); p++) ; /* Check for all digits */
if (*p == '' && (telnetfd || x25fd)) { /* Avoid X.121 addresses */
ttyfd = atoi(ttname); /* Is there a way to test it's open? */
ttfdflg = 1; /* We got an open file descriptor */
debug(F111,"ttopen got open network fd",ttname,ttyfd);
ckstrncpy(ttnmsv,ttname,DEVNAMLEN); /* Remember the "name". */
x = 1; /* Return code is "good". */
if (telnetfd) {
ttnet = NET_TCPB;
if (ttnproto != NP_TCPRAW)
ttnproto = NP_TELNET;
#ifdef SUNX25
} else if (x25fd) {
ttnet = NET_SX25;
ttnproto = NP_NONE;
#endif /* SUNX25 */
}
} else { /* Host name or address given */
#ifdef NETPTY
if (modem == NET_PTY) {
int x;
if (nopush) {
debug(F100,"ttopen PTY: nopush","",0);
return(-1);
}
ttnet = NET_PTY;
ttnproto = NP_NONE;
netconn = 1; /* but we don't use network i/o */
ttpty = 1;
debug(F110,"ttopen PTY",ttname,0);
x = do_pty(ttname);
if (x > -1) {
ckstrncpy(ttnmsv,ttname,DEVNAMLEN);
xlocal = *lcl = 1; /* It's local */
} else {
ttpty = 0;
netconn = 0;
}
return(x);
}
#endif /* NETPTY */
#ifdef NETCMD
/*
dup2() is not available on older System V platforms like AT&T 3Bx. For
those systems we punt by not defining NETCMD, but we might be able to do
better -- see workarounds for this problem in ckufio.c (search for dup2).
*/
if (modem == NET_CMD) {
if (nopush) {
debug(F100,"ttopen pipe: nopush","",0);
return(-1);
}
if (pipe(pipe0) || pipe(pipe1)) {
perror("Pipe error");
return(-1);
}
ttpid = fork(); /* Make a fork */
switch (ttpid) {
case -1: /* Error making fork */
close(pipe0[0]);
close(pipe0[1]);
close(pipe1[0]);
close(pipe1[1]);
perror("Fork error");
return(-1);
case 0: /* Child. */
close(pipe0[0]);
close(pipe1[1]);
dup2(pipe0[1], 1);
close(pipe0[1]);
dup2(pipe1[0], 0);
close(pipe1[0]);
system(ttname);
_exit(0);
default: /* Parent */
close(pipe0[1]);
close(pipe1[0]);
fdin = pipe0[0]; /* Read from pipe */
fdout = pipe1[1]; /* Write to pipe */
ttout = fdopen(fdout,"w"); /* Get stream so we can */
if (!ttout) { /* make it unbuffered. */
perror("fdopen failure");
return(-1);
}
setbuf(ttout,NULL);
ckstrncpy(ttnmsv,ttname,DEVNAMLEN);
xlocal = *lcl = 1; /* It's local */
netconn = 1; /* Call it a network connection */
ttmdm = modem; /* Remember network type */
ttyfd = fdin;
ttpipe = 1;
return(0);
}
}
#endif /* NETCMD */
#endif /* NAMEFD */
x = netopen(ttname, lcl, modem); /* (see ckcnet.h) */
if (x > -1) {
ckstrncpy(ttnmsv,ttname,DEVNAMLEN);
} else netconn = 0;
#ifdef NAMEFD
}
#endif /* NAMEFD */
#ifdef sony_news /* Sony NEWS */
if (ioctl(ttyfd,TIOCKGET,&km_ext) < 0) { /* Get Kanji mode */
perror("ttopen error getting Kanji mode (network)");
debug(F111,"ttopen error getting Kanji mode","network",0);
km_ext = -1; /* Make sure this stays undefined. */
}
#endif /* sony_news */
xlocal = *lcl = 1; /* Network connections are local. */
debug(F101,"ttopen net x","",x);
#ifdef COMMENT
/* Let netopen() do this */
if (x > -1 && !x25fd)
x = tn_ini(); /* Initialize TELNET protocol */
#endif /* COMMENT */
return(x);
} else { /* Terminal device */
#endif /* NETCONN */
#ifdef NAMEFD
/*
This code lets you give Kermit an open file descriptor for a serial
communication device, rather than a device name. Kermit assumes that the
line is already open, locked, conditioned with the right parameters, etc.
*/
for (p = ttname; isdigit(*p); p++) ; /* Check for all digits */
if (*p == '') {
ttyfd = atoi(ttname); /* Is there a way to test it's open? */
debug(F111,"ttopen got open fd",ttname,ttyfd);
ckstrncpy(ttnmsv,ttname,DEVNAMLEN); /* Remember the "name". */
if (ttyfd == 0) /* If it's stdio... */
xlocal = *lcl = 0; /* we're in remote mode */
else /* otherwise */
xlocal = *lcl = 1; /* local mode. */
netconn = 0; /* Assume it's not a network. */
tvtflg = 0; /* Might need to initialize modes. */
ttmdm = modem; /* Remember modem type. */
fdflag = 0; /* Stdio not redirected. */
ttfdflg = 1; /* Flag we were opened this way. */
#ifdef sony_news /* Sony NEWS */
/* Get device Kanji mode */
if (ioctl(ttyfd,TIOCKGET,&km_ext) < 0) {
perror("ttopen error getting Kanji mode");
debug(F101,"ttopen error getting Kanji mode","",0);
km_ext = -1; /* Make sure this stays undefined. */
}
#endif /* sony_news */
return(0); /* Return success */
}
#endif /* NAMEFD */
#ifdef NETCONN
}
#endif /* NETCONN */
/* Here we have to open a serial device of the given name. */
netconn = 0; /* So it's not a network connection */
occt = signal(SIGINT, cctrap); /* Set Control-C trap, save old one */
sigint_ign = 0;
tvtflg = 0; /* Flag for use by ttvt(). */
/* 0 = ttvt not called yet for this device */
fdflag = (!isatty(0) || !isatty(1)); /* Flag for stdio redirected */
debug(F101,"ttopen fdflag","",fdflag);
ttmdm = modem; /* Make this available to other fns */
xlocal = *lcl; /* Make this available to other fns */
/* Code for handling bidirectional tty lines goes here. */
/* Use specified method for turning off logins and suppressing getty. */
#ifdef ACUCNTRL
/* Should put call to priv_on() here, but that would be very risky! */
acucntrl("disable",ttname); /* acucntrl() program. */
/* and priv_off() here... */
#else
#ifdef ATT7300
if ((attmodem & DOGETY) == 0) /* offgetty() program. */
attmodem |= offgetty(ttname); /* Remember response. */
#endif /* ATT7300 */
#endif /* ACUCNTRL */
/*
In the following section, we open the tty device for read/write.
If a modem has been specified via "set modem" prior to "set line"
then the O_NDELAY parameter is used in the open, provided this symbol
is defined (e.g. in fcntl.h), so that the program does not hang waiting
for carrier (which in most cases won't be present because a connection
has not been dialed yet). O_NDELAY is removed later on in ttopen(). It
would make more sense to first determine if the line is local before
doing this, but because ttyname() requires a file descriptor, we have
to open it first. See do_open().
Now open the device using the desired treatment of carrier.
If carrier is REQUIRED, then open could hang forever, so an optional
timer is provided. If carrier is not required, the timer should never
go off, and should do no harm...
*/
ttotmo = 0; /* Flag no timeout */
debug(F101,"ttopen timo","",timo);
debug(F101,"ttopen xlocal","",xlocal);
if (timo > 0) {
int xx;
saval = signal(SIGALRM,timerh); /* Timed, set up timer. */
xx = alarm(timo); /* Timed open() */
debug(F101,"ttopen alarm","",xx);
if (
#ifdef CK_POSIX_SIG
sigsetjmp(sjbuf,1)
#else
setjmp(sjbuf)
#endif /* CK_POSIX_SIG */
) {
ttotmo = 1; /* Flag timeout. */
} else ttyfd = do_open(ttname);
ttimoff();
debug(F111,"ttopen","modem",modem);
debug(F101,"ttopen ttyfd","",ttyfd);
debug(F101,"ttopen alarm return","",ttotmo);
} else {
errno = 0;
ttyfd = do_open(ttname);
}
debug(F111,"ttopen ttyfd",ttname,ttyfd);
if (ttyfd < 0) { /* If couldn't open, fail. */
debug(F101,"ttopen errno","",errno);
if (errno > 0 && !quiet)
perror(ttname); /* Print message */
#ifdef ATT7300
if (attmodem & DOGETY) /* was getty(1m) running before us? */
ongetty(ttnmsv); /* yes, restart on tty line */
attmodem &= ~DOGETY; /* no phone in use, getty restored */
#else
#ifdef ACUCNTRL
/* Should put call to priv_on() here, but that would be risky! */
acucntrl("enable",ttname); /* acucntrl() program. */
/* and priv_off() here... */
#endif /* ACUNTRL */
#endif /* ATT7300 */
signal(SIGINT,occt); /* Put old Ctrl-C trap back. */
if (errno == EACCES) { /* Device is protected against user */
debug(F110,"ttopen EACCESS",ttname,0); /* Return -4 */
return(-4);
} else return(ttotmo ? -2 : -1); /* Otherwise -2 if timeout, or -1 */
}
#ifdef Plan9
/* take this opportunity to open the control channel */
if (p9openttyctl(ttname) < 0)
#else
/* Make sure it's a real tty. */
if (!isatty(ttyfd) && strcmp(ttname,"/dev/null"))
#endif /* Plan9 */
{
fprintf(stderr,"%s is not a terminal devicen",ttname);
debug(F111,"ttopen not a tty",ttname,errno);
close(ttyfd);
ttyfd = -1;
wasclosed = 1;
signal(SIGINT,occt);
return(-1);
}
#ifdef aegis
/* Apollo C runtime claims that console pads are tty devices, which
* is reasonable, but they aren't any good for packet transfer. */
ios_$inq_type_uid((short)ttyfd, ttyuid, st);
if (st.all != status_$ok) {
fprintf(stderr, "problem getting tty object type: ");
error_$print(st);
} else if (ttyuid != sio_$uid) { /* reject non-SIO lines */
close(ttyfd); ttyfd = -1;
wasclosed = 1;
errno = ENOTTY; perror(ttname);
signal(SIGINT,occt);
return(-1);
}
#endif /* aegis */
sigint_ign = (occt == SIG_IGN) ? 1 : 0;
ckstrncpy(ttnmsv,ttname,DEVNAMLEN); /* Keep copy of name locally. */
/* Caller wants us to figure out if line is controlling tty */
if (*lcl < 0) {
if (strcmp(ttname,CTTNAM) == 0) { /* "/dev/tty" always remote */
xlocal = 0;
debug(F111,"ttopen ttname=CTTNAM",ttname,xlocal);
} else if (strcmp(ttname,cttnam) == 0) {
xlocal = 0;
debug(F111,"ttopen ttname=cttnam",ttname,xlocal);
} else if (cttnam[0]) {
#ifdef BEBOX_DR7
x = ttnmsv; /* ttyname() is broken */
#else
x = ttyname(ttyfd); /* Get real name of ttname. */
#endif /* BEBOX_DR7 */
if (!x) x = "";
if (*x)
xlocal = ((strncmp(x,cttnam,DEVNAMLEN) == 0) ? 0 : 1);
else
xlocal = 1;
debug(F111,"ttopen ttyname(ttyfd) xlocal",x,xlocal);
}
}
#ifndef NOFDZERO
/* Note, the following code was added so that Unix "idle-line" snoopers */
/* would not think Kermit was idle when it was transferring files, and */
/* maybe log people out. */
if (xlocal == 0) { /* Remote mode */
if (fdflag == 0) { /* Standard i/o is not redirected */
debug(F100,"ttopen setting ttyfd = 0","",0);
#ifdef LYNXOS
/* On Lynx OS, fd 0 is open for read only. */
dup2(ttyfd,0);
#endif /* LYNXOS */
close(ttyfd); /* Use file descriptor 0 */
ttyfd = 0;
} else { /* Standard i/o is redirected */
debug(F101,"ttopen stdio redirected","",ttyfd);
}
}
#endif /* NOFDZERO */
/* Now check if line is locked -- if so fail, else lock for ourselves */
/* Note: After having done this, don't forget to delete the lock if you */
/* leave ttopen() with an error condition. */
lkf = 0; /* Check lock */
if (xlocal > 0) {
int xx; int xpid;
if ((xx = ttlock(ttname)) < 0) { /* Can't lock it. */
debug(F111,"ttopen ttlock fails",ttname,xx);
/* WARNING - This close() can hang if tty is an empty socket... */
close(ttyfd); /* Close the device. */
ttyfd = -1; /* Erase its file descriptor. */
wasclosed = 1;
signal(SIGINT,occt); /* Put old SIGINT back. */
sigint_ign = (occt == SIG_IGN) ? 1 : 0;
if (xx == -2) { /* If lockfile says device in use, */
#ifndef NOUUCP
debug(F111,"ttopen reading lockfile pid",flfnam,xx);
xpid = ttrpid(flfnam); /* Try to read pid from lockfile */
if (xpid > -1) { /* If we got a pid */
printf("Locked by process %dn",xpid); /* tell them. */
sprintf(lockpid,"%d",xpid); /* Record it too */
debug(F110,"ttopen lockpid",lockpid,0);
} else if (*flfnam) {
char *p = malloc(280); /* Print a directory listing. */
/*
Note: priv_on() won't help here, because we do not pass privs along to
to inferior processes, in this case ls. So if the real user does not have
directory-listing access to the lockfile directory, this will result in
something like "not found". That's why we try this only as a last resort.
*/
if (p) { /* If we got the space... */
extern char *DIRCMD;
sprintf(p,"%s %s",DIRCMD,flfnam);
zsyscmd(p); /* Get listing. */
if (p) { /* free the space */
free(p);
p = NULL;
}
}
}
#endif /* NOUUCP */
return(-5); /* Code for device in use */
} else return(-3); /* Access denied */
} else lkf = 1;
}
/* Got the line, now set the desired value for local. */
if (*lcl != 0) *lcl = xlocal;
/* Some special stuff for v7... */
#ifdef V7
#ifndef MINIX
if (kmem[TTY] < 0) { /* If open, then skip this. */
qaddr[TTY] = initrawq(ttyfd); /* Init the queue. */
if ((kmem[TTY] = open("/dev/kmem", 0)) < 0) {
fprintf(stderr, "Can't read /dev/kmem in ttopen.n");
perror("/dev/kmem");
exit(1);
}
}
#endif /* !MINIX */
#endif /* V7 */
/* No failure returns after this point */
#ifdef ultrix
ioctl(ttyfd, TIOCMODEM, &temp);
#ifdef TIOCSINUSE
if (xlocal && ioctl(ttyfd, TIOCSINUSE, NULL) < 0) {
if (!quiet)
perror(ttname);
}
#endif /* TIOCSINUSE */
#endif /* ultrix */
/* Get tty device settings */
#ifdef BSD44ORPOSIX /* POSIX */
tcgetattr(ttyfd,&ttold);
debug(F101,"ttopen tcgetattr ttold.c_lflag","",ttold.c_lflag);
tcgetattr(ttyfd,&ttraw);
debug(F101,"ttopen tcgetattr ttraw.c_lflag","",ttraw.c_lflag);
tcgetattr(ttyfd,&tttvt);
debug(F101,"ttopen tcgetattr tttvt.c_lflag","",tttvt.c_lflag);
#else /* BSD, V7, and all others */
#ifdef ATTSV /* AT&T UNIX */
ioctl(ttyfd,TCGETA,&ttold);
debug(F101,"ttopen ioctl TCGETA ttold.c_lflag","",ttold.c_lflag);
ioctl(ttyfd,TCGETA,&ttraw);
ioctl(ttyfd,TCGETA,&tttvt);
#else
#ifdef BELLV10
ioctl(ttyfd,TIOCGETP,&ttold);
debug(F101,"ttopen BELLV10 ttold.sg_flags","",ttold.sg_flags);
ioctl(ttyfd,TIOCGDEV,&tdold);
debug(F101,"ttopen BELLV10 tdold.flags","",tdold.flags);
#else
gtty(ttyfd,&ttold);
debug(F101,"ttopen gtty ttold.sg_flags","",ttold.sg_flags);
#endif /* BELLV10 */
#ifdef sony_news /* Sony NEWS */
if (ioctl(ttyfd,TIOCKGET,&km_ext) < 0) { /* Get console Kanji mode */
perror("ttopen error getting Kanji mode");
debug(F101,"ttopen error getting Kanji mode","",0);
km_ext = -1; /* Make sure this stays undefined. */
}
#endif /* sony_news */
#ifdef TIOCGETC
debug(F100,"ttopen TIOCGETC","",0);
tcharf = 0; /* In remote mode, also get */
if (xlocal == 0) { /* special characters */
if (ioctl(ttyfd,TIOCGETC,&tchold) < 0) {
debug(F100,"ttopen TIOCGETC failed","",0);
} else {
tcharf = 1; /* It worked. */
ioctl(ttyfd,TIOCGETC,&tchnoi); /* Get another copy */
debug(F100,"ttopen TIOCGETC ok","",0);
}
}
#else
debug(F100,"ttopen TIOCGETC not defined","",0);
#endif /* TIOCGETC */
#ifdef TIOCGLTC
debug(F100,"ttopen TIOCGLTC","",0);
ltcharf = 0; /* In remote mode, also get */
if (xlocal == 0) { /* local special characters */
if (ioctl(ttyfd,TIOCGLTC,&ltchold) < 0) {
debug(F100,"ttopen TIOCGLTC failed","",0);
} else {
ltcharf = 1; /* It worked. */
ioctl(ttyfd,TIOCGLTC,&ltchnoi); /* Get another copy */
debug(F100,"ttopen TIOCGLTC ok","",0);
}
}
#else
debug(F100,"ttopen TIOCGLTC not defined","",0);
#endif /* TIOCGLTC */
#ifdef TIOCLGET
debug(F100,"ttopen TIOCLGET","",0);
lmodef = 0;
if (ioctl(ttyfd,TIOCLGET,&lmode) < 0) {
debug(F100,"ttopen TIOCLGET failed","",0);
} else {
lmodef = 1;
debug(F100,"ttopen TIOCLGET ok","",0);
}
#endif /* TIOCLGET */
#ifdef BELLV10
ioctl(ttyfd,TIOCGETP,&ttraw);
ioctl(ttyfd,TIOCGETP,&tttvt);
#else
gtty(ttyfd,&ttraw); /* And a copy of it for packets*/
gtty(ttyfd,&tttvt); /* And one for virtual tty service */
#endif /* BELLV10 */
#endif /* ATTSV */
#endif /* BSD44ORPOSIX */
/* Section for changing line discipline. It's restored in ttres(). */
#ifdef AIXRS
#ifndef AIX41
{ union txname ld_name; int ld_idx = 0;
ttld = 0;
do {
ld_name.tx_which = ld_idx++;
ioctl(ttyfd, TXGETCD, &ld_name);
if (!strncmp(ld_name.tx_name, "rts", 3))
ttld |= 1;
} while (*ld_name.tx_name);
debug(F101,"AIX line discipline","",ttld);
}
#endif /* AIX41 */
#endif /* AIXRS */
#ifdef BSD41
/* For 4.1BSD only, force "old" tty driver, new one botches TANDEM. */
{ int k;
ioctl(ttyfd, TIOCGETD, &ttld); /* Get and save line discipline */
debug(F101,"4.1bsd line discipline","",ttld);
k = OTTYDISC; /* Switch to "old" discipline */
k = ioctl(ttyfd, TIOCSETD, &k);
debug(F101,"4.1bsd tiocsetd","",k);
}
#endif /* BSD41 */
#ifdef aegis
/* This was previously done before the last two TCGETA or gtty above,
* in both the ATTSV and not-ATTSV case. If it is not okay to have only
* one copy if it here instead, give us a shout!
*/
sio_$control((short)ttyfd, sio_$raw_nl, false, st);
if (xlocal) { /* ignore breaks from local line */
sio_$control((short)ttyfd, sio_$int_enable, false, st);
sio_$control((short)ttyfd, sio_$quit_enable, false, st);
}
#endif /* aegis */
#ifdef VXVE
ttraw.c_line = 0; /* STTY line 0 for VX/VE */
tttvt.c_line = 0; /* STTY line 0 for VX/VE */
ioctl(ttyfd,TCSETA,&ttraw);
#endif /* vxve */
/* If O_NDELAY was used during open(), then remove it now. */
#ifdef O_NDELAY
debug(F100,"ttopen O_NDELAY","",0);
if (fcntl(ttyfd, F_GETFL, 0) & O_NDELAY) {
debug(F100,"ttopen fcntl O_NDELAY","",0);
#ifndef aegis
if (fcntl(ttyfd,F_SETFL, fcntl(ttyfd, F_GETFL, 0) & ~O_NDELAY) < 0) {
debug(F100,"ttopen fcntl failure to unset O_NDELAY","",0);
perror("Can't unset O_NDELAY");
}
#endif /* aegis */
/* Some systems, notably Xenix (don't know how common this is in
* other systems), need special treatment to get rid of the O_NDELAY
* behaviour on read() with respect to carrier presence (i.e. read()
* returning 0 when carrier absent), even though the above fcntl()
* is enough to make read() wait for input when carrier is present.
* This magic, in turn, requires CLOCAL for working when the carrier
* is absent. But if xlocal == 0, presumably you already have CLOCAL
* or you have a carrier, otherwise you wouldn't be running this.
*/
debug(F101,"ttopen xlocal","",xlocal);
#ifdef ATTSV
#ifdef BSD44ORPOSIX
#ifdef COMMENT /* 12 Aug 1997 */
#ifdef __bsdi__
if (xlocal)
ttraw.c_cflag |= CLOCAL;
#else
#ifdef __FreeBSD__
if (xlocal)
ttraw.c_cflag |= CLOCAL;
#endif /* __FreeBSD__ */
#endif /* __bsdi__ */
#else /* Not COMMENT */
#ifdef CLOCAL
if (xlocal) /* Unset this if it's defined. */
ttraw.c_cflag |= CLOCAL;
#endif /* CLOCAL */
#endif /* COMMENT */
debug(F100,"ttopen calling POSIX tcseattr","",0);
if (tcsetattr(ttyfd, TCSADRAIN, &ttraw) < 0) {
debug(F100,"ttopen POSIX tcseattr fails","",0);
perror("tcsetattr");
}
#else /* !BSD44ORPOSIX */
if (xlocal) {
ttraw.c_cflag |= CLOCAL;
debug(F100,"ttopen calling ioctl(TCSETA)","",0);
errno = 0;
if (ioctl(ttyfd, TCSETA, &ttraw) < 0) {
debug(F101,"ttopen ioctl(TCSETA) fails","",errno);
perror("ioctl(TCSETA)");
}
}
#endif /* BSD44ORPOSIX */
#endif /* ATTSV */
#ifndef NOCOTFMC /* = NO Close(Open()) To Force Mode Change */
/* Reportedly lets uugetty grab the device in SCO UNIX 3.2 / XENIX 2.3 */
debug(F100,"ttopen executing close/open","",0);
close( priv_opn(ttname, O_RDWR) ); /* Magic to force change. */
#endif /* NOCOTFMC */
}
#endif /* O_NDELAY */
/* Instruct the system how to treat the carrier, and set a few other tty
* parameters.
*
* This also undoes the temporary setting of CLOCAL that may have been done
* for the close(open()) above (except in Xenix). Also throw in ~ECHO, to
* prevent the other end of the line from sitting there talking to itself,
* producing garbage when the user performs a connect.
*
* SCO Xenix unfortunately seems to ignore the actual state of CLOCAL.
* Now it thinks CLOCAL is always on. It seems the only real solution for
* Xenix is to switch between the lower and upper case device names.
*
* This section may at some future time expand into setting a complete
* collection of tty parameters, or call a function shared with ttpkt()/
* ttvt() that does so. On the other hand, the initial parameters are not
* that important, since ttpkt() or ttvt() should always fix that before
* any communication is done. Well, we'll see...
*/
if (xlocal) {
curcarr = -2;
debug(F100,"ttopen calling carrctl","",0);
carrctl(&ttraw, ttcarr == CAR_ON);
debug(F100,"ttopen carrctl ok","",0);
#ifdef COHERENT
#define SVORPOSIX
#endif /* COHERENT */
#ifdef SVORPOSIX
ttraw.c_lflag &= ~ECHO;
ttold.c_lflag &= ~ECHO;
#ifdef BSD44ORPOSIX
y = tcsetattr(ttyfd, TCSADRAIN, &ttraw);
debug(F101,"ttopen tcsetattr","",y);
#else
y = ioctl(ttyfd, TCSETA, &ttraw);
debug(F100,"ttopen ioctl","",y);
#endif /* BSD44ORPOSIX */
#else /* BSD, etc */
ttraw.sg_flags &= ~ECHO;
ttold.sg_flags &= ~ECHO;
#ifdef BELLV10
y = ioctl(ttyfd,TIOCSETP,&ttraw);
debug(F100,"ttopen ioctl","",y);
#else
y = stty(ttyfd,&ttraw);
debug(F100,"ttopen stty","",y);
#endif /* BELLV10 */
#endif /* SVORPOSIX */
#ifdef COHERENT
#undef SVORPOSIX
#endif /* COHERENT */
/* ttflui(); */ /* This fails for some reason. */
}
/* Get current speed */
#ifndef BEBOX
ttspeed = ttgspd();
#else
ttspeed = 19200;
#endif /* !BEBOX */
debug(F101,"ttopen ttspeed","",ttspeed);
/* Done, make entries in debug log, restore Ctrl-C trap, and return. */
debug(F101,"ttopen ttyfd","",ttyfd);
debug(F101,"ttopen *lcl","",*lcl);
debug(F111,"ttopen lock file",flfnam,lkf);
signal(SIGINT,occt);
sigint_ign = (occt == SIG_IGN) ? 1 : 0;
return(0);
}
/* D O _ O P E N -- Do the right kind of open() call for the tty. */
int
do_open(ttname) char *ttname; {
#ifndef O_NDELAY /* O_NDELAY not defined */
return(priv_opn(ttname,2));
#else /* O_NDELAY defined */
#ifdef ATT7300
/*
Open comms line without waiting for carrier so initial call does not hang
because state of "modem" is likely unknown at the initial call -jrd.
If this is needed for the getty stuff to work, and the open would not work
without O_NDELAY when getty is still on, then this special case is ok.
Otherwise, get rid of it. -ske
*/
return(priv_opn(ttname, O_RDWR | O_NDELAY));
#else /* !ATT7300 */
/* Normal case. Use O_NDELAY according to SET CARRIER. See ttscarr(). */
return(priv_opn(ttname, O_RDWR | ((ttcarr != CAR_ON) ? O_NDELAY : 0) ));
#endif /* !ATT7300 */
#endif /* O_NDELAY */
}
/* T T C L O S -- Close the TTY, releasing any lock. */
static int ttc_state = 0; /* ttclose() state */
static char * ttc_nam[] = { "setup", "hangup", "reset", "close" };
int
ttclos(foo) int foo; { /* Arg req'd for signal() prototype */
int xx, x = 0;
debug(F101,"ttclos ttyfd","",ttyfd);
debug(F101,"ttclos netconn","",netconn);
debug(F101,"ttclos xlocal","",xlocal);
#ifdef NOFDZERO
debug(F100,"ttclos NOFDZERO","",0);
#endif /* NOFDZERO */
#ifdef COMMENT
#ifdef TTLEBUF
le_init(); /* No need for any of this */
#endif /* TTLEBUF */
#endif /* COMMENT */
if (ttyfd < 0) /* Wasn't open. */
return(0);
if (ttfdflg) /* If we inherited ttyfd from */
return(0); /* another process, don't close it. */
tvtflg = 0; /* (some day get rid of this...) */
#ifdef IKSD
if (inserver) {
#ifdef TNCODE
tn_push(); /* Place any waiting data into input*/
tn_sopt(DO,TELOPT_LOGOUT); /* Send LOGOUT option before close */
TELOPT_UNANSWERED_DO(TELOPT_LOGOUT) = 1;
tn_reset(); /* The Reset Telnet Option table. */
#endif /* TNCODE */
#ifdef CK_SSL
if (ssl_active_flag) {
if (ssl_debug_flag)
BIO_printf(bio_err,"calling SSL_shutdown(ssl)n");
SSL_shutdown(ssl_con);
SSL_free(ssl_con);
ssl_con = NULL;
ssl_active_flag = 0;
}
if (tls_active_flag) {
if (ssl_debug_flag)
BIO_printf(bio_err,"calling SSL_shutdown(tls)n");
SSL_shutdown(tls_con);
SSL_free(tls_con);
tls_con = NULL;
tls_active_flag = 0;
}
#endif /* CK_SSL */
}
#endif /* IKSD */
#ifdef NETCMD
if (ttpipe) { /* We've been using a pipe */
/* ttpipe = 0; */
if (ttpid > 0) {
int wstat;
#ifdef OSF40
union wait statusp_w;
int statusp;
#else
int statusp;
#endif /* OSF40 */
close(fdin); /* Close these. */
close(fdout);
fdin = fdout = -1;
kill(ttpid,1); /* Kill fork with SIGHUP */
while (1) {
wstat = wait(
#ifdef OSF40
&statusp_w
#else
&statusp
#endif /* OSF40 */
);
if (wstat == ttpid || wstat == -1)
break;
#ifdef OSF40
statusp = (*(int *)&(statusp_w));
#endif /* OSF40 */
pexitstat = (statusp & 0xff) ? statusp : statusp >> 8;
}
ttpid = 0;
}
netconn = 0;
wasclosed = 1;
ttyfd = -1;
return(0);
}
#endif /* NETCMD */
#ifdef NETPTY
if (ttpty) {
#ifndef NODOPTY
end_pty();
#endif /* NODOPTY */
close(ttyfd);
netconn = 0;
wasclosed = 1;
ttpty = 0;
ttyfd = -1;
return(0);
}
#endif /* NETPTY */
#ifdef NETCONN
if (netconn) { /* If it's a network connection. */
debug(F100,"ttclos closing net","",0);
netclos(); /* Let the network module close it. */
netconn = 0; /* No more network connection. */
debug(F101,"ttclos ttyfd after netclos","",ttyfd); /* Should be -1 */
return(0);
}
#endif /* NETCONN */
if (xlocal) { /* We're closing a SET LINE device */
#ifdef FT21 /* Fortune 2.1-specific items ... */
ioctl(ttyfd,TIOCHPCL, NULL);
#endif /* FT21 */
#ifdef ultrix /* Ultrix-specific items ... */
#ifdef TIOCSINUSE
/* Unset the INUSE flag that we set in ttopen() */
ioctl(ttyfd, TIOCSINUSE, NULL);
#endif /* TIOCSINUSE */
ioctl(ttyfd, TIOCNMODEM, &x);
#ifdef COMMENT
/* What was this? */
ioctl(ttyfd, TIOCNCAR, NULL);
#endif /* COMMENT */
#endif /* ultrix */
debug(F100,"ttclos about to call ttunlck","",0);
if (ttunlck()) /* Release uucp-style lock */
fprintf(stderr,"Warning, problem releasing lockrn");
}
/* This is to prevent us from sticking in tthang() or close(). */
#ifdef O_NDELAY
#ifndef aegis
if (ttyfd > 0) { /* But skip it on stdin. */
debug(F100,"ttclos setting O_NDELAY","",0);
x = fcntl(ttyfd,F_SETFL,fcntl(ttyfd,F_GETFL, 0)|O_NDELAY);
#ifdef DEBUG
if (deblog && x == -1) {
perror("Warning - Can't set O_NDELAY");
debug(F101,"ttclos fcntl failure to set O_NDELAY","",x);
}
#endif /* DEBUG */
}
#endif /* aegis */
#endif /* O_NDELAY */
x = 0;
ttc_state = 0;
if (xlocal
#ifdef NOFDZERO
|| ttyfd > 0
#endif /* NOFDZERO */
) {
saval = signal(SIGALRM,xtimerh); /* Enable timer interrupt. */
xx = alarm(8); /* Allow 8 seconds. */
debug(F101,"ttclos alarm","",xx);
if (
#ifdef CK_POSIX_SIG
sigsetjmp(sjbuf,1)
#else
setjmp(sjbuf)
#endif /* CK_POSIX_SIG */
) { /* Timer went off? */
x = -1;
#ifdef DEBUG
debug(F111,"ttclos ALARM TRAP errno",ckitoa(ttc_state),errno);
printf("ttclos() timeout: %sn", ttc_nam[ttc_state]);
#endif /* DEBUG */
}
errno = 0;
debug(F101,"ttclos A","",ttc_state);
if (ttc_state < 1) {
ttc_state = 1;
alarm(8); /* Re-arm the timer */
debug(F101,"ttclos calling tthang()","",x);
x = tthang(); /* Hang up first, then... */
debug(F101,"ttclos tthang()","",x);
}
debug(F101,"ttclos B","",ttc_state);
if (ttc_state < 2) {
ttc_state = 2;
debug(F101,"ttclos calling ttres()","",x);
alarm(8); /* Re-arm the timer */
x = ttres(); /* Reset device modes. */
debug(F101,"ttclos ttres()","",x);
}
debug(F101,"ttclos C","",ttc_state);
if (ttc_state < 3) {
ttc_state = 3;
errno = 0;
debug(F101,"ttclos calling close","",x);
alarm(8); /* Re-arm the timer */
x = close(ttyfd); /* Close the device. */
debug(F101,"ttclos close()","",x);
}
debug(F101,"ttclos D","",ttc_state);
ttimoff(); /* Turn off timer. */
if (x < 0) {
printf("?WARNING - close failed: %sn",ttnmsv);
#ifdef DEBUG
if (deblog) {
printf("errno = %dn", errno);
debug(F101,"ttclos failed","",errno);
}
#endif /* DEBUG */
}
}
/* For bidirectional lines, restore getty if it was there before. */
#ifdef ACUCNTRL /* 4.3BSD acucntrl() method. */
if (xlocal) {
debug(F100,"ttclos ACUCNTRL","",0);
acucntrl("enable",ttnmsv); /* Enable getty on the device. */
}
#else
#ifdef ATT7300 /* ATT UNIX PC (3B1, 7300) method. */
if (xlocal) {
debug(F100,"ttclos ATT7300 ongetty","",0);
if (attmodem & DOGETY) /* Was getty(1m) running before us? */
ongetty(ttnmsv); /* Yes, restart getty on tty line */
attmodem &= ~DOGETY; /* No phone in use, getty restored */
}
#endif /* ATT7300 */
#endif /* System-dependent getty-restoring methods */
#ifdef sony_news
km_ext = -1; /* Invalidate device's Kanji-mode */
#endif /* sony_news */
ttyfd = -1; /* Invalidate the file descriptor. */
wasclosed = 1;
debug(F100,"ttclos done","",0);
return(0);
}
/* T T H A N G -- Hangup phone line or network connection. */
/*
Returns:
0 if it does nothing.
1 if it believes that it hung up successfully.
-1 if it believes that the hangup attempt failed.
*/
#define HUPTIME 500 /* Milliseconds for hangup */
/* Define HUP_POSIX to force non-POSIX builds to use the POSIX hangup method */
#ifdef UNIXWARE /* Such as Unixware 1.x, 2.x */
#ifndef POSIX
#ifndef HUP_POSIX
#define HUP_POSIX
#endif /* HUP_POSIX */
#endif /* POSIX */
#endif /* UNIXWARE */
int
tthang() {
#ifdef NOLOCAL
return(0);
#else
int x = 0; /* Sometimes used as return code. */
#ifndef POSIX
int z; /* worker */
#endif /* POSIX */
#ifdef COHERENT
#define SVORPOSIX
#endif /* COHERENT */
#ifdef SVORPOSIX /* AT&T, POSIX, HPUX declarations. */
int spdsav; /* for saving speed */
#ifdef HUP_POSIX
int spdsavi;
#else
#ifdef BSD44ORPOSIX
int spdsavi;
#endif /* BSD44ORPOSIX */
#endif /* HUP_POSIX */
#ifdef HPUX
/*
Early versions of HP-UX omitted the mflag typedef. If you get complaints
about it, just change it to long (or better still, unsigned long).
*/
mflag
dtr_down = 00000000000,
modem_rtn,
modem_sav;
char modem_state[64];
#endif /* HPUX */
int flags; /* fcntl flags */
unsigned short ttc_save;
#endif /* SVORPOSIX */
#ifdef COHERENT
#undef SVORPOSIX
#endif /* COHERENT */
if (ttyfd < 0) return(0); /* Don't do this if not open */
if (xlocal < 1) return(0); /* Don't do this if not local */
#ifdef NETCMD
if (ttpipe)
return((ttclos(0) < 0) ? -1 : 1);
#endif /* NETCMD */
#ifdef NETPTY
if (ttpty)
return((ttclos(0) < 0) ? -1 : 1);
#endif /* NETPTY */
#ifdef NETCONN
if (netconn) /* Network connection. */
return((netclos() < 0) ? -1 : 1); /* Just close it. */
#endif /* NETCONN */
/* From here down, we handle real tty devices. */
#ifdef HUP_POSIX
/*
e.g. for Unixware 2, where we don't have a full POSIX build, we
still have to use POSIX-style hangup. Thus the duplication of this
and the next case, the only difference being we use a local termios
struct here, since a different model is used elsewhere.
*/
{
struct termios ttcur;
int x;
debug(F100,"tthang HUP_POSIX style","",0);
x = tcgetattr(ttyfd, &ttcur); /* Get current attributes */
debug(F111,"tthang tcgetattr",ckitoa(errno),x);
if (x < 0) return(-1);
spdsav = cfgetospeed(&ttcur); /* Get current speed */
debug(F111,"tthang cfgetospeed",ckitoa(errno),spdsav);
spdsavi = cfgetispeed(&ttcur); /* Get current speed */
debug(F111,"tthang cfgetispeed",ckitoa(errno),spdsavi);
x = cfsetospeed(&ttcur,B0); /* Replace by 0 */
debug(F111,"tthang cfsetospeed",ckitoa(errno),x);
if (x < 0) return(-1);
x = cfsetispeed(&ttcur,B0);
debug(F111,"tthang cfsetispeed",ckitoa(errno),x);
if (x < 0) return(-1);
x = tcsetattr(ttyfd,TCSADRAIN,&ttcur);
debug(F111,"tthang tcsetattr B0",ckitoa(errno),x);
if (x < 0) return(-1);
msleep(HUPTIME); /* Sleep 0.5 sec */
x = cfsetospeed(&ttcur,spdsav); /* Restore prev speed */
if (x < 0) return(-1);
debug(F111,"tthang cfsetospeed prev",ckitoa(errno),x);
x = cfsetispeed(&ttcur,spdsavi);
debug(F111,"tthang cfsetispeed prev",ckitoa(errno),x);
if (x < 0) return(-1);
x = tcsetattr(ttyfd,TCSADRAIN,&ttcur);
debug(F111,"tthang tcsetattr restore",ckitoa(errno),x);
if (x < 0) return(-1);
return(1);
}
#else
#ifdef BSD44ORPOSIX
/*
NOTE: This should work for QNX too, but in case it doesn't, it is also
possible to toggle DTR using qnx_ioctl(ttyfd,QCTL_DEV_CTL,&new,&old);
see <sys/qioctl.h> and QNX News V10, Sep 96, p44.
Newer versions of QNX also have a tcdropline(howlong) function.
*/
{
int x;
debug(F100,"tthang POSIX style","",0);
x = tcgetattr(ttyfd, &ttcur); /* Get current attributes */
debug(F111,"tthang tcgetattr",ckitoa(errno),x);
if (x < 0) return(-1);
spdsav = cfgetospeed(&ttcur); /* Get current speed */
debug(F111,"tthang cfgetospeed",ckitoa(errno),spdsav);
spdsavi = cfgetispeed(&ttcur); /* Get current speed */
debug(F111,"tthang cfgetispeed",ckitoa(errno),spdsavi);
x = cfsetospeed(&ttcur,B0); /* Replace by 0 */
debug(F111,"tthang cfsetospeed",ckitoa(errno),x);
if (x < 0) return(-1);
x = cfsetispeed(&ttcur,B0);
debug(F111,"tthang cfsetispeed",ckitoa(errno),x);
if (x < 0) return(-1);
x = tcsetattr(ttyfd,TCSADRAIN,&ttcur);
debug(F111,"tthang tcsetattr B0",ckitoa(errno),x);
if (x < 0) return(-1);
msleep(HUPTIME); /* Sleep 0.5 sec */
x = cfsetospeed(&ttcur,spdsav); /* Restore prev speed */
if (x < 0) return(-1);
debug(F111,"tthang cfsetospeed prev",ckitoa(errno),x);
x = cfsetispeed(&ttcur,spdsavi);
debug(F111,"tthang cfsetispeed prev",ckitoa(errno),x);
if (x < 0) return(-1);
x = tcsetattr(ttyfd,TCSADRAIN,&ttcur);
debug(F111,"tthang tcsetattr restore",ckitoa(errno),x);
if (x < 0) return(-1);
return(1);
}
#else /* BSD44ORPOSIX */
#ifdef aegis /* Apollo Aegis */
sio_$control((short)ttyfd, sio_$dtr, false, st); /* DTR down */
msleep(HUPTIME); /* pause */
sio_$control((short)ttyfd, sio_$dtr, true, st); /* DTR up */
return(1);
#endif /* aegis */
#ifdef ANYBSD /* Any BSD version. */
#ifdef TIOCCDTR /* Except those that don't have this */
debug(F100,"tthang BSD style","",0);
if (ioctl(ttyfd,TIOCCDTR,0) < 0) { /* Clear DTR. */
debug(F101,"tthang TIOCCDTR fails","",errno);
return(-1);
}
msleep(HUPTIME); /* For about 1/2 sec */
errno = 0;
x = ioctl(ttyfd,TIOCSDTR,0); /* Restore DTR */
if (x < 0) {
/*
For some reason, this tends to fail with "no such device or address"
but the operation still works, probably because of the close/open
later on. So let's not scare the user unnecessarily here.
*/
debug(F101,"tthang TIOCSDTR errno","",errno); /* Log the error */
x = 1; /* Pretend we succeeded */
} else if (x == 0) x = 1; /* Success */
#ifdef COMMENT
#ifdef FT21
ioctl(ttyfd, TIOCSAVEMODES, 0);
ioctl(ttyfd, TIOCHPCL, 0);
close(ttyfd); /* Yes, must do this twice */
if ((ttyfd = open(ttnmsv,2)) < 0) /* on Fortune computers... */
return(-1); /* (but why?) */
else x = 1;
#endif /* FT21 */
#endif /* COMMENT */
#endif /* TIOCCDTR */
close(do_open(ttnmsv)); /* Clear i/o error condition */
errno = 0;
#ifdef COMMENT
/* This is definitely dangerous. Why was it here? */
z = ttvt(ttspeed,ttflow); /* Restore modes. */
debug(F101,"tthang ttvt returns","",z);
return(z < 0 ? -1 : 1);
#else
return(x);
#endif /* COMMENT */
#endif /* ANYBSD */
#ifdef ATTSV
/* AT&T UNIX section, includes HP-UX and generic AT&T System III/V... */
#ifdef HPUX
/* Hewlett Packard allows explicit manipulation of modem signals. */
#ifdef COMMENT
/* Old way... */
debug(F100,"tthang HP-UX style","",0);
if (ioctl(ttyfd,MCSETAF,&dtr_down) < 0) /* lower DTR */
return(-1); /* oops, can't. */
msleep(HUPTIME); /* Pause half a second. */
x = 1; /* Set return code */
if (ioctl(ttyfd,MCGETA,&modem_rtn) > -1) { /* Get line status. */
if ((modem_rtn & MDCD) != 0) /* Check if CD is low. */
x = -1; /* CD didn't drop, fail. */
} else x = -1;
/* Even if above calls fail, RTS & DTR should be turned back on. */
modem_rtn = MRTS | MDTR;
if (ioctl(ttyfd,MCSETAF,&modem_rtn) < 0) x = -1;
return(x);
#else
/* New way, from Hellmuth Michaelis */
debug(F100,"tthang HP-UX style, HPUXDEBUG","",0);
if (ioctl(ttyfd,MCGETA,&modem_rtn) == -1) { /* Get current status. */
debug(F100,"tthang HP-UX: can't get modem lines, NO HANGUP!","",0);
return(-1);
}
sprintf(modem_state,"%#lx",modem_rtn);
debug(F110,"tthang HP-UX: modem lines = ",modem_state,0);
modem_sav = modem_rtn; /* Save current modem signals */
modem_rtn &= ~MDTR; /* Turn DTR bit off */
sprintf(modem_state,"%#lx",modem_rtn);
debug(F110,"tthang HP-UX: DTR down = ",modem_state,0);
if (ioctl(ttyfd,MCSETAF,&modem_rtn) < 0) { /* lower DTR */
debug(F100,"tthang HP-UX: can't lower DTR!","",0);
return(-1); /* oops, can't. */
}
msleep(HUPTIME); /* Pause half a second. */
x = 1; /* Set return code */
if (ioctl(ttyfd,MCGETA,&modem_rtn) > -1) { /* Get line status. */
sprintf(modem_state,"%#lx",modem_rtn);
debug(F110,"tthang HP-UX: modem lines got = ",modem_state,0);
if ((modem_rtn & MDCD) != 0) { /* Check if CD is low. */
debug(F100,"tthang HP-UX: DCD not down","",0);
x = -1; /* CD didn't drop, fail. */
} else {
debug(F100,"tthang HP-UX: DCD down","",0);
}
} else {
x = -1;
debug(F100,"tthang HP-UX: can't get DCD status !","",0);
}
/* Even if above calls fail, DTR should be turned back on. */
modem_sav |= MDTR;
if (ioctl(ttyfd,MCSETAF,&modem_sav) < 0) {
x = -1;
debug(F100,"tthang HP-UX: can't set saved state","",0);
} else {
sprintf(modem_state,"%#lx",modem_sav);
debug(F110,"tthang HP-UX: final modem lines = ",modem_state,0);
}
return(x);
#endif /* COMMENT */
#else /* AT&T but not HP-UX */
/* SVID for AT&T System V R3 defines ioctl's for handling modem signals. */
/* It is not known how many, if any, systems actually implement them, */
/* so we include them here in ifdef's. */
/*
Unixware has the TIOCMxxx symbols defined, but calling ioctl() with them
gives error 22 (invalid argument).
*/
#ifndef _IBMR2
/*
No modem-signal twiddling for IBM RT PC or RS/6000.
In AIX 3.1 and earlier, the ioctl() call is broken.
This code could be activated for AIX 3.1 with PTF 2006 or later
(e.g. AIX 3.2), but close/open does the job too, so why bother.
*/
#ifdef TIOCMBIS /* Bit Set */
#ifdef TIOCMBIC /* Bit Clear */
#ifdef TIOCM_DTR /* DTR */
/* Clear DTR, sleep 300 msec, turn it back on. */
/* If any of the ioctl's return failure, go on to the next section. */
z = TIOCM_DTR; /* Code for DTR. */
#ifdef COMMENT
/*
This was the cause of the troubles with the Solaris Port Monitor.
The problem is: RTS never comes back on. Moral: Don't do it!
(But why doesn't it come back on? See the TIOCMBIS call...)
*/
#ifdef TIOCM_RTS /* Lower RTS too if symbol is known. */
z |= TIOCM_RTS;
#endif /* TIOCM_RTS */
#endif /* COMMENT */
debug(F101,"tthang TIOCM signal mask","",z);
if (ioctl(ttyfd,TIOCMBIC,&z) > -1) { /* Try to lower DTR. */
debug(F100,"tthang TIOCMBIC ok","",0);
msleep(HUPTIME); /* Pause half a second. */
if (ioctl(ttyfd,TIOCMBIS,&z) > -1) { /* Try to turn it back on. */
debug(F100,"tthang TIOCMBIS ok","",0);
#ifndef CLSOPN
return(1); /* Success, done. */
#endif /* CLSOPN */
} else { /* Couldn't raise, continue. */
debug(F101,"tthang TIOCMBIS errno","",errno);
}
} else { /* Couldn't lower, continue. */
debug(F101,"tthang TIOCMBIC errno","",errno);
}
#endif /* TIOCM_DTR */
#endif /* TIOCMBIC */
#endif /* TIOCMBIS */
#endif /* _IBMR2 */
/*
General AT&T UNIX case, not HPUX. The following code is highly suspect. No
two AT&T-based systems seem to do this the same way. The object is simply
to turn off DTR and then turn it back on. SVID says the universal method
for turning off DTR is to set the speed to zero, and this does seem to do
the trick in all cases. But neither SVID nor any known man pages say how to
turn DTR back on again. Some variants, like most Xenix implementations,
raise DTR again when the speed is restored to a nonzero value. Others
require the device to be closed and opened again, but this is risky because
getty could seize the device during the instant it is closed.
*/
/* Return code for ioctl failures... */
#ifdef ATT6300
x = 1; /* ATT6300 doesn't want to fail... */
#else
x = -1;
#endif /* ATT6300 */
debug(F100,"tthang get settings","",0);
if (ioctl(ttyfd,TCGETA,&ttcur) < 0) /* Get current settings. */
return(x); /* Fail if this doesn't work. */
if ((flags = fcntl(ttyfd,F_GETFL,0)) < 0) /* Get device flags. */
return(x);
ttc_save = ttcur.c_cflag; /* Remember current speed. */
spdsav = ttc_save & CBAUD;
debug(F101,"tthang speed","",spdsav);
#ifdef O_NDELAY
debug(F100,"tthang turning O_NDELAY on","",0);
fcntl(ttyfd, F_SETFL, flags | O_NDELAY); /* Activate O_NDELAY */
#endif /* O_NDELAY */
#ifdef ATT7300 /* This is the way it is SUPPOSED to work */
ttcur.c_cflag &= ~CBAUD; /* Change the speed to zero. */
#else
#ifdef RTAIX
ttcur.c_cflag &= ~CBAUD; /* Change the speed to zero. */
#else /* This way really works but may be dangerous */
#ifdef u3b2
ttcur.c_cflag = ~(CBAUD|CLOCAL); /* Special for AT&T 3B2s */
/* (CLOCAL must be OFF) */
#else
#ifdef SCO3R2 /* SCO UNIX 3.2 */
/*
This is complete nonsense, but an SCO user claimed this change made
hanging up work. Comments from other SCO UNIX 3.2 users would be
appreciated.
*/
ttcur.c_cflag = CBAUD|B0;
#else
#ifdef AIXRS /* AIX on RS/6000 */
/*
Can't set speed to zero on AIX 3.1 on RS/6000 64-port adapter,
even though you can do it on the built-in port and the 8- and 16-port
adapters. (Untested on 128-port adapter.)
*/
ttcur.c_cflag = CLOCAL|HUPCL|spdsav; /* Speed 0 causes EINVAL */
#else /* None of the above */
/*
Set everything, including the speed, to zero, except for the CLOCAL
and HUPCL bits.
*/
ttcur.c_cflag = CLOCAL|HUPCL;
#endif /* AIXRS */
#endif /* SCO3R2 */
#endif /* u3b2 */
#endif /* RTAIX */
#endif /* ATT7300 */
#ifdef COMMENT
/* and if none of those work, try one of these... */
ttcur.c_cflag = 0;
ttcur.c_cflag = CLOCAL;
ttcur.c_cflag &= ~(CBAUD|HUPCL);
ttcur.c_cflag &= ~(CBAUD|CREAD);
ttcur.c_cflag &= ~(CBAUD|CREAD|HUPCL);
/* or other combinations */
#endif /* COMMENT */
#ifdef TCXONC
debug(F100,"tthang TCXONC","",0);
if (ioctl(ttyfd, TCXONC, 1) < 0) {
debug(F101,"tthang TCXONC failed","",errno);
}
#endif /* TCXONC */
#ifdef TIOCSTART
debug(F100,"tthang TIOCSTART","",0);
if (ioctl(ttyfd, TIOCSTART, 0) < 0) {
debug(F101,"tthang TIOCSTART failed","",errno);
}
#endif /* TIOCSTART */
if (ioctl(ttyfd,TCSETAF,&ttcur) < 0) { /* Fail if we can't. */
debug(F101,"tthang TCSETAF failed","",errno);
fcntl(ttyfd, F_SETFL, flags); /* Restore flags */
return(-1); /* before returning. */
}
msleep(300); /* Give modem time to notice. */
#ifndef NOCOTFMC
/* Now, even though it doesn't say this in SVID or any man page, we have */
/* to close and reopen the device. This is not necessary for all systems, */
/* but it's impossible to predict which ones need it and which ones don't. */
#ifdef ATT7300
/*
Special handling for ATT 7300 UNIX PC and 3B1, which have "phone"
related ioctl's for their internal modems. attmodem has getty status and
modem-in-use bit. Reportedly the ATT7300/3B1 PIOCDISC call is necessary,
but also ruins the file descriptor, and no other phone(7) ioctl call can fix
it. Whateverit does, it seems to escape detection with PIOCGETA and TCGETA.
The only way to undo the damage is to close the fd and then reopen it.
*/
if (attmodem & ISMODEM) {
debug(F100,"tthang attmodem close/open","",0);
ioctl(ttyfd,PIOCUNHOLD,&dialer); /* Return call to handset. */
ioctl(ttyfd,PIOCDISC,&dialer); /* Disconnect phone. */
close(ttyfd); /* Close and reopen the fd. */
ttyfd = priv_opn(ttnmsv, O_RDWR | O_NDELAY);
attmodem &= ~ISMODEM; /* Phone no longer in use. */
}
#else /* !ATT7300 */
/* It seems we have to close and open the device for other AT&T systems */
/* too, and this is the place to do it. The following code does the */
/* famous close(open(...)) magic by default. If that doesn't work for you, */
/* then try uncommenting the following statement or putting -DCLSOPN in */
/* the makefile CFLAGS. */
/* #define CLSOPN */
#ifndef SCO32 /* Not needed by, and harmful to, SCO UNIX 3.2 / Xenix 2.3 */
#ifdef O_NDELAY
#define OPENFLGS O_RDWR | O_NDELAY
#else
#define OPENFLGS O_RDWR
#endif
#ifndef CLSOPN
/* This method is used by default, i.e. unless CLSOPN is defined. */
/* It is thought to be safer because there is no window where getty */
/* can seize control of the device. The drawback is that it might not work. */
debug(F101,"tthang close(open()), OPENFLGS","",OPENFLGS);
close(priv_opn(ttnmsv, OPENFLGS));
#else
/* This method is used if you #define CLSOPN. It is more likely to work */
/* than the previous method, but it's also more dangerous. */
debug(F101,"tthang close/open, OPENFLGS","",OPENFLGS);
close(ttyfd);
msleep(10);
ttyfd = priv_opn(ttnmsv, OPENFLGS); /* Open it again */
#endif /* CLSOPN */
#undef OPENFLGS
#endif /* SCO32 */
#endif /* ATT7300 */
#endif /* NOCOTFMC */
/* Now put all flags & modes back the way we found them. */
/* (Does the order of ioctl & fcntl matter ? ) */
debug(F100,"tthang restore settings","",0);
ttcur.c_cflag = ttc_save; /* Get old speed back. */
if (ioctl(ttyfd,TCSETAF,&ttcur) < 0) /* ioctl parameters. */
return(-1);
#ifdef O_NDELAY
/*
This is required for IBM RT and RS/6000, probably helps elsewhere too (?).
After closing a modem line, the modem will probably not be asserting
carrier any more, so we should not require carrier any more. If this
causes trouble on non-IBM UNIXes, change the #ifdef to use _IBMR2 rather
than O_NDELAY.
*/
flags &= ~O_NDELAY; /* Don't require carrier on reopen */
#endif /* O_NDELAY */
if (fcntl(ttyfd,F_SETFL,flags) < 0) /* fcntl parameters */
return(-1);
return(1);
#endif /* not HPUX */
#endif /* ATTSV */
#endif /* BSD44ORPOSIX */
#endif /* HUP_POSIX */
#endif /* NOLOCAL */
}
/*
Major change in 5A(174). We used to use LPASS8, if it was defined, to
allow 8-bit data and Xon/Xoff flow control at the same time. But this
LPASS8 business seems to have been causing trouble for everybody but me!
For example, Annex terminal servers, commonly used with Encore computers,
do not support LPASS8 even though the Encore itself does. Ditto for many
other terminal servers, TELNET connections, rlogin connections, etc etc.
Now, reportedly, even vanilla 4.3 BSD systems can't do this right on their
serial lines, even though LPASS8 is a feature of 4.3BSD. So let's turn it
off for everybody. That means we goes back to using raw mode, with no
flow control. Phooey.
NOTE: This must be done before the first reference to LPASS8 in this file,
and after the last #include statment.
*/
#ifdef LPASS8
#undef LPASS8
#endif /* LPASS8 */
/* T T R E S -- Restore terminal to "normal" mode. */
/* ske@pkmab.se: There are two choices for what this function should do.
* (1) Restore the tty to current "normal" mode, with carrier treatment
* according to ttcarr, to be used after every kermit command. (2) Restore
* the tty to the state it was in before kermit opened it. These choices
* conflict, since ttold can't hold both choices of tty parameters. ttres()
* is currently being called as in choice (1), but ttold basically holds
* the initial parameters, as in (2), and the description at the beginning
* of this file says (2).
*
* I don't think restoring tty parameters after all kermit commands makes
* much of a difference. Restoring them upon exit from kermit may be of
* some use in some cases (when the line is not restored automatically on
* close, by the operating system).
*
* I can't choose which one it should be, so I haven't changed it. It
* probably works as it is, too. It would probably even work even with
* ttres() entirely deleted...
*
* (from fdc: Actually, this function operates in remote mode too, so
* it restores the console (command) terminal to whatever mode it was
* in before packet operations began, so that commands work right again.)
*/
int
ttres() { /* Restore the tty to normal. */
int x;
if (ttyfd < 0) return(-1); /* Not open. */
if (ttfdflg) return(0); /* Don't mess with terminal modes if */
/* we got ttyfd from another process */
#ifdef NETCONN
if (netconn) { /* Network connection */
tvtflg = 0;
#ifdef TCPSOCKET
#ifdef TCP_NODELAY
{
extern int tcp_nodelay; /* Just put this back if necessary */
if (ttnet == NET_TCPB) {
if (nodelay_sav > -1) {
no_delay(nodelay_sav);
nodelay_sav = -1;
}
}
}
#endif /* TCP_NODELAY */
#endif /* TCPSOCKET */
return(0);
}
#endif /* NETCONN */
#ifdef NETCMD
if (ttpipe) return(0);
#endif /* NETCMD */
#ifdef NETPTY
if (ttpty) return(0);
#endif /* NETPTY */
/* Real terminal device, so restore its original modes */
#ifdef BSD44ORPOSIX /* For POSIX like this */
debug(F100,"ttres BSD44ORPOSIX","",0);
x = tcsetattr(ttyfd,TCSADRAIN,&ttold);
#else /* For all others... */
#ifdef ATTSV /* For AT&T versions... */
debug(F100,"ttres ATTSV","",0);
x = ioctl(ttyfd,TCSETAW,&ttold); /* Restore tty modes this way. */
#else
/* Here we restore the modes for BSD */
#ifdef LPASS8 /* Undo "pass8" if it were done */
if (lmodef) {
if (ioctl(ttyfd,TIOCLSET,&lmode) < 0)
debug(F100,"ttres TIOCLSET failed","",0);
else
debug(F100,"ttres TIOCLSET ok","",0);
}
#endif /* LPASS8 */
#ifdef CK_DTRCTS /* Undo hardware flow if it were done */
if (lmodef) {
if (ioctl(ttyfd,TIOCLSET,&lmode) < 0)
debug(F100,"ttres TIOCLSET failed","",0);
else
debug(F100,"ttres TIOCLSET ok","",0);
}
#endif /* CK_DTRCTS */
#ifdef TIOCGETC /* Put back special characters */
if (tcharf && (xlocal == 0)) {
if (ioctl(ttyfd,TIOCSETC,&tchold) < 0)
debug(F100,"ttres TIOCSETC failed","",0);
else
debug(F100,"ttres TIOCSETC ok","",0);
}
#endif /* TIOCGETC */
#ifdef TIOCGLTC /* Put back local special characters */
if (ltcharf && (xlocal == 0)) {
if (ioctl(ttyfd,TIOCSLTC,&ltchold) < 0)
debug(F100,"ttres TIOCSLTC failed","",0);
else
debug(F100,"ttres TIOCSLTC ok","",0);
}
#endif /* TIOCGLTC */
#ifdef BELLV10
debug(F100,"ttres BELLV10","",0);
x = ioctl(ttyfd,TIOCSETP,&ttold); /* Restore both structs */
x = ioctl(ttyfd,TIOCSDEV,&tdold);
#else
debug(F100,"ttres stty","",0);
x = stty(ttyfd,&ttold); /* Restore tty modes the old way. */
#endif /* BELLV10 */
if (!xlocal)
msleep(100); /* This replaces sleep(1)... */
/* Put back sleep(1) if tty is */
/* messed up after close. */
#endif /* ATTSV */
#endif /* BSD44ORPOSIX */
debug(F101,"ttres result","",x);
#ifndef QNX
if (x < 0) debug(F101,"ttres errno","",errno);
#endif /* QNX */
#ifdef AIXRS
#ifndef AIX41
x = ioctl(ttyfd, ttld & 1 ? TXADDCD : TXDELCD, "rts");
debug(F101,"ttres AIX line discipline rts restore","",x);
#endif /* AIX41 */
#endif /* AIXRS */
#ifdef BSD41
if (ttld > -1) { /* Put back line discipline */
x = ioctl(ttyfd, TIOCSETD, &ttld);
debug(F101,"ttres BSD41 line discipline restore","",x);
if (x < 0) debug(F101,"...ioctl errno","",errno);
ttld = -1;
}
#endif /* BSD41 */
#ifdef sony_news
x = xlocal ? km_ext : km_con; /* Restore Kanji mode. */
if (x != -1) { /* Make sure we know original modes. */
if (ioctl(ttyfd,TIOCKSET, &x) < 0) {
perror("ttres can't set Kanji mode");
debug(F101,"ttres error setting Kanji mode","",x);
return(-1);
}
}
debug(F100,"ttres set Kanji mode ok","",0);
#endif /* sony_news */
tvtflg = 0; /* Invalidate terminal mode settings */
debug(F101,"ttres return code","",x);
return(x);
}
#ifndef NOUUCP
/* T T C H K P I D -- Check lockfile pid */
/*
Read pid from lockfile named f, check that it's still valid.
If so, return 1.
On failure to read pid, return 1.
Otherwise, try to delete lockfile f and return 0 if successful, else 1.
*/
static int
ttchkpid(f) char *f; {
int pid, mypid, x;
pid = ttrpid(f); /* Read pid from file. */
if (pid > -1) { /* If we were able to read the pid.. */
debug(F101,"ttchkpid lock pid","",pid);
errno = 0; /* See if process still exists. */
mypid = (int)getpid(); /* Get my own pid. */
debug(F101,"ttchkpid my pid","",mypid);
if (pid == mypid) { /* It's me! */
x = -1; /* So I can delete it */
errno = ESRCH; /* pretend it's invalid */
} else { /* It's not me */
x = kill((PID_T)pid, 0); /* See if it's a live process */
debug(F101,"ttchkpid kill errno","",errno);
}
debug(F101,"ttchkpid pid test","",x);
if (x < 0 && errno == ESRCH) { /* pid is invalid */
debug(F111,"removing stale lock",f,pid);
if (!backgrd)
printf("Removing stale lock %s (pid %d terminated)n", f, pid);
priv_on();
x = unlink(f); /* Remove the lockfile. */
priv_off();
debug(F111,"ttchkpid unlink",f,x);
if (x > -1)
return(0); /* Device is not locked after all */
else if (!backgrd)
perror(f);
}
return(1);
}
return(1); /* Failure to read pid */
}
#ifdef HPUX
/* Aliases (different drivers) for HP-UX dialout devices: */
static char *devprefix[] = { "tty", "ttyd", "cul", "cua", "cuad", "culd", "" };
static int ttydexists = 0;
#endif /* HPUX */
/* T T R P I D -- Read pid from lockfile "name" */
static int
ttrpid(name) char *name; {
long len;
int x, i, fd, pid, flag;
short spid;
char buf[32];
debug(F110,"ttrpid",name,0);
if (!name) return(-1);
if (!*name) return(-1);
priv_on();
len = zchki(name); /* Get file length */
priv_off();
debug(F101,"ttrpid zchki","",len);
if (len < 0)
return(-1);
if (len > 31)
return(-1);
priv_on();
fd = open(name,O_RDONLY); /* Try to open lockfile. */
priv_off();
debug(F101,"ttrpid fd","",fd);
if (fd <= 0)
return(-1);
/*
Here we try to be flexible and allow for all different binary and string
formats at runtime, rather than a specific format for each configuration
hardwired at compile time.
*/
pid = -1;
#ifndef COHERENT
/*
COHERENT uses a string PID but without leading spaces or 0's, so there is
no way to tell from the file's length whether it contains a string or binary
pid. So for COHERENT only, we only allow string pids. For all others, we
decide based on the size of the lockfile.
*/
if (len > 4) { /* If file > 4 bytes it's a string */
#endif /* COHERENT */
x = read(fd,buf,len);
debug(F111,"ttrpid string read",buf,x);
if (x < 0) {
pid = -1;
} else {
buf[31] = '';
x = sscanf(buf,"%d",&pid); /* Get the integer pid from it. */
}
#ifndef COHERENT
} else if (len == 4) { /* 4 bytes so binary */
x = read(fd, (char *)&pid, 4); /* Read the bytes into an int */
debug(F101,"ttrpid integer read","",x);
if (x < 4)
pid = -1;
} else if (len == 2) { /* 2 bytes binary */
x = read(fd, (char *)&spid, 2); /* Read the bytes into a short */
debug(F101,"ttrpid short read","",x);
if (x < 2)
pid = -1;
else
pid = spid;
} else
pid = -1;
#endif /* COHERENT */
close(fd); /* Close the lockfile */
debug(F101,"ttrpid pid","",pid);
return(pid);
}
#endif /* NOUUCP */
/* T T L O C K */
/*
This function attempts to coordinate use of the communication device with
other copies of Kermit and any other program that follows the UUCP
device-locking conventions, which, unfortunately, vary among different UNIX
implementations. The idea is to look for a file of a certain name, the
"lockfile", in a certain directory. If such a file is found, then the line
is presumed to be in use, and Kermit should not use it. If no such file is
found, Kermit attempts to create one so that other programs will not use the
same line at the same time. Because the lockfile and/or the directory it's
in might lack write permission for the person running Kermit, Kermit could
find itself running setuid to uucp or other user that does have the
necessary permissions. At startup, Kermit has changed its effective uid to
the user's real uid, and so ttlock() must switch back to the original
effective uid in order to create the lockfile, and then back again to the
real uid to prevent unauthorized access to other directories or files owned
by the user the program is setuid to.
Totally rewritten for C-Kermit 5A to eliminate windows of vulnerability,
based on suggestions from Warren Tucker. Call with pointer to name of
tty device. Returns:
0 on success
-1 on failure
Note: Once privileges are turned on using priv_on(), it is essential that
they are turned off again before this function returns.
*/
#ifdef SVR4 /* Lockfile uses device numbers. */
/*
Although I can't find this in writing anywhere (e.g. in SVID for SVR4),
it is the behavior of the "reference version" of SVR4, i.e. the Intel
port from UNIX Systems Laboratories, then called Univel UnixWare,
then called Novell UnixWare, now called SCO Unixware... It also makes
much more sense than device-name-based lockfiles, since there can be
multiple names for the same device, symlinks, etc.
*/
#ifndef LFDEVNO /* Define this for SVR4 */
#ifndef AIXRS /* But not for RS/6000 AIX 3.2, etc. */
#ifndef BSD44 /* If anybody else needs it... */
#ifndef __386BSD__
#ifndef __FreeBSD__
#ifndef HPUX10
#ifndef IRIX51 /* SGI IRIX 5.1 or later */
#ifndef CK_SCOV5 /* SCO Open Server 5.0 */
#define LFDEVNO
#endif /* CK_SCOV5 */
#endif /* IRIX51 */
#endif /* HPUX10 */
#endif /* __FreeBSD__ */
#endif /* __386BSD__ */
#endif /* BSD44 */
#endif /* AIXRS */
#endif /* LFDEVNO */ /* ... define it here or on CC */
#endif /* SVR4 */ /* command line. */
#ifdef COHERENT
#define LFDEVNO
#endif /* COHERENT */
/*
For platforms where the lockfile name is made from inode/major/minor
device number, as in SVR4. Which, if we must have lockfiles at all, is
by far the best format, since it eliminates all the confusion that stems
from multiple names (or drivers) for the same port, not to mention
symlinks. It might even be a good idea to start using this form even
on platforms where it's not supported, alongside the normal forms for those
platforms, in order to get people used to it...
*/
#ifdef LFDEVNO
#ifndef major /* If we didn't find it */
#ifdef SVR4 /* then for Sys V R4 */
#include <sys/mkdev.h> /* look here */
#else /* or for SunOS versions */
#ifdef SUNOS4 /* ... */
#include <sys/sysmacros.h> /* look here */
#else /* Otherwise take a chance: */
#define major(dev) ( (int) ( ((unsigned)(dev) >> 8) & 0xff))
#define minor(dev) ( (int) ( (dev) & 0xff))
#endif /* SUNOS4 */
#endif /* SVR4 */
#endif /* major */
#endif /* LFDEVNO */
/* No advisory locks if F_TLOCK and F_ULOCK are not defined at this point */
#ifdef LOCKF
#ifndef F_TLOCK
#undef LOCKF
#ifndef NOLOCKF
#define NOLOCKF
#endif /* NOLOCKF */
#endif /* F_TLOCK */
#endif /* LOCKF */
#ifdef LOCKF
#ifndef F_ULOCK
#undef LOCKF
#ifndef NOLOCKF
#define NOLOCKF
#endif /* NOLOCKF */
#endif /* F_ULOCK */
#endif /* LOCKF */
static char linkto[DEVNAMLEN+1];
static char * linkdev = NULL;
#ifndef NOUUCP
#ifdef USETTYLOCK
char * uucplockdir = "";
#else
#ifdef LOCK_DIR
char * uucplockdir = LOCK_DIR;
#else
char * uucplockdir = "";
#endif /* LOCK_DIR */
#endif /* USETTYLOCK */
#else
char * uucplockdir = "";
#endif /* NOUUCP */
#ifdef QNX
int /* Visible to outside world */
qnxopencount() { /* Get QNX device open count */
struct _dev_info_entry info;
int x;
x = -1; /* Unknown */
if (ttyfd > -1) {
if (!dev_info(ttyfd, &info)) {
debug(F101,"ttlock QNX open_count","",info.open_count);
x = info.open_count;
}
}
return(x);
}
#endif /* QNX */
static int
ttlock(ttdev) char *ttdev; {
int x, n;
int islink = 0;
#ifdef NOUUCP
#ifdef QNX
extern int qnxportlock;
if ((x = qnxopencount()) < 0)
return(x);
if (x > 1) { /* 1 = me */
if (qnxportlock)
return(-2); /* Indicate device is in use */
else if (!quiet)
printf("WARNING: "%s" looks busy...n",ttdev);
}
#endif /* QNX */
strcpy(flfnam,"NOLOCK");
haslock = 1;
return(0);
#else /* !NOUUCP */
#ifdef USETTYLOCK
haslock = 0; /* Not locked yet. */
*flfnam = ''; /* Lockfile name is empty. */
if (!strncmp(ttdev,"/dev/",5) && ttdev[5])
ckstrncpy(lockname,ttdev+5,DEVNAMLEN);
else
ckstrncpy(lockname,ttdev,DEVNAMLEN);
/*
This might be overkill, but it's not clear from the man pages whether
ttylock() can be called without calling ttylocked() first, since the doc
says that ttylocked() removes any stale lockfiles, but it does not say this
about ttylock(). Also the docs don't say what ttylocked() returns in the
case when it finds and removes a stale lockfile. So one or both calls to
to ttylocked() might be superfluous, but they should do no harm. Also I'm
assuming that we have to do all the same ID swapping, etc, with these
routines as we do without them. Thus the priv_on/off() sandwich.
*/
#ifdef USE_UU_LOCK
priv_on(); /* Turn on privs */
x = uu_lock(lockname); /* Try to set the lock */
priv_off(); /* Turn privs off */
debug(F111,"ttlock uu_lock",lockname,x);
switch (x) {
case UU_LOCK_INUSE:
return(-2);
case UU_LOCK_OK:
#ifdef BSD44
sprintf(flfnam,"/var/spool/lock/LCK..%s",lockname);
#endif /* BSD44 */
haslock = 1;
return(0);
default:
return(-1);
}
#else /* USE_UU_LOCK */
priv_on(); /* Turn on privs */
if (ttylocked(lockname)) { /* This should remove any stale lock */
if (ttylocked(lockname)) { /* so check again. */
priv_off();
return(-5); /* Still locked, fail. */
}
}
x = ttylock(lockname); /* Lock it. */
priv_off(); /* Turn off privs */
debug(F111,"ttlock lockname",lockname,x);
if (x > -1) {
/*
We don't really know the name of the lockfile, but
this is what the man page says it is. In USETTYLOCK
builds, it is used only for display by SHOW COMM.
*/
sprintf(flfnam,"/etc/locks/LCK..%s",lockname);
haslock = 1;
}
return(x);
#endif /* USE_UU_LOCK */
#else /* Systems that don't have ttylock()... */
#ifndef HPUX
int lockfd; /* File descriptor for lock file. */
PID_T pid; /* Process id of this process. */
int tries; /* How many times we've tried... */
struct stat devbuf; /* For device numbers (SVR4). */
#ifdef PIDSTRING
char pid_str[12]; /* My pid in string format. */
#endif /* PIDSTRING */
char *device, *devname;
#define LFNAML 50 /* Max length for lock file name. */
char lockfil[LFNAML]; /* Lock file name */
#ifdef RTAIX
char lklockf[LFNAML]; /* Name for link to lock file */
#endif /* RTAIX */
#ifdef CKSYMLINK
char symlock[LFNAML]; /* Name for symlink lockfile name */
#endif /* CKSYMLINK */
char tmpnam[LFNAML+30]; /* Temporary lockfile name. */
char *lockdir = LOCK_DIR; /* Defined near top of this file, */
/* or on cc command line. */
haslock = 0; /* Not locked yet. */
*flfnam = ''; /* Lockfile name is empty. */
lock2[0] = ''; /* Clear secondary lockfile name. */
pid = getpid(); /* Get id of this process. */
/* Construct name of lockfile and temporary file */
/* device = name of tty device without the path, e.g. "ttyh8" */
/* lockfil = name of lock file, without path, e.g. "LCK..ttyh8" */
device = ((devname = xxlast(ttdev,'/')) != NULL ? devname+1 : ttdev);
if (stat(ttdev,&devbuf) < 0)
return(-1);
#ifdef CKSYMLINK
islink = 1; /* Assume it's a symlink */
linkto[0] = ''; /* But we don't know to what */
#ifdef COMMENT
/*
This is undependable. If it worked it would save the readlink call if
we knew the device name was not a link.
*/
#ifdef S_ISLNK
islink = S_ISLNK(devbuf.st_mode);
debug(F101,"ttlock stat S_ISLNK","",islink);
#endif /* S_ISLNK */
#endif /* COMMENT */
if (islink) {
n = readlink(ttdev,linkto,DEVNAMLEN); /* See if it's a link */
debug(F111,"ttlock readlink",ttdev,n);
if (n > -1) /* It is */
linkto[n] = '';
else /* It's not */
islink = 0;
debug(F111,"ttlock link",linkto,islink);
}
if (islink) {
linkdev = (devname = xxlast(linkto,'/')) ? devname + 1 : linkto;
debug(F110,"ttlock linkdev",linkdev,0);
}
#endif /* CKSYMLINK */
/*
On SCO platforms, if we don't have a symlink, then let's pretend the
name given for the device is a symlink, because later we will change
the name if it contains any uppercase characters.
*/
#ifdef CK_SCOV5 /* SCO Open Server 5.0 */
if (!islink) {
islink = 1;
ckstrncpy(linkto,ttdev,DEVNAMLEN);
linkdev = (devname = xxlast(linkto,'/')) ? devname + 1 : linkto;
debug(F110,"ttlock linkdev",linkdev,0);
}
#else
#ifdef M_XENIX /* SCO Xenix or UNIX */
if (!islink) {
islink = 1;
ckstrncpy(linkto,ttdev,DEVNAMLEN);
linkdev = (devname = xxlast(linkto,'/')) ? devname + 1 : linkto;
debug(F110,"ttlock linkdev",linkdev,0);
}
#endif /* M_XENIX */
#endif /* CK_SCOV5 */
#ifdef ISIII /* Interactive System III, PC/IX */
ckstrncpy(lockfil, device, DEVNAMLEN);
#else /* not ISIII */
#ifdef LFDEVNO /* Lockfilename has device numbers. */
#ifdef COHERENT
sprintf(lockfil,"LCK..%d.%d",
major(devbuf.st_rdev), /* major device number */
0x1f & minor(devbuf.st_rdev)); /* minor device number */
#else
sprintf(lockfil,"LK.%03d.%03d.%03d",
major(devbuf.st_dev), /* inode */
major(devbuf.st_rdev), /* major device number */
minor(devbuf.st_rdev)); /* minor device number */
#endif /* COHERENT */
#else /* Others... */
#ifdef PTX /* Dynix PTX */
if (device != &ttdev[5] && strncmp(ttdev,"/dev/",5)==0) {
sprintf(lockfil,"LCK..%.3s%s", &ttdev[5], device);
} else
#endif /* PTX */
sprintf(lockfil,"LCK..%s", device);
#ifdef RTAIX
ckstrncpy(lklockf,device,DEVNAMLEN);
#endif /* RTAIX */
#ifdef CKSYMLINK
symlock[0] = '';
if (islink)
sprintf(symlock,"LCK..%s", linkdev);
#endif /* CKSYMLINK */
#endif /* LFDEVNO */
#endif /* ISIII */
#ifdef CK_SCOV5 /* SCO Open Server 5.0 */
{
/* Lowercase the entire filename. */
/* SCO says we must do this in V5.0 and later. */
/* BUT... watch out for devices -- like Digiboard Portserver */
/* That can have hundreds of ports... */
char *p = (char *)(lockfil + 5);
while (*p) { if (isupper(*p)) *p = (char) tolower(*p); p++; }
}
#ifdef CKSYMLINK
if (islink) { /* If no change */
if (!strcmp(lockfil,symlock)) { /* then no second lockfile needed */
islink = 0;
symlock[0] = '';
}
}
#endif /* CKSYMLINK */
#else
#ifdef M_XENIX /* SCO Xenix or UNIX */
{
int x; char c;
x = (int)strlen(lockfil) - 1; /* Get last letter of device name. */
if (x > 0) { /* If it's uppercase, lower it. */
c = lockfil[x];
if (c >= 'A' && c <= 'Z') lockfil[x] += ('a' - 'A');
}
}
#ifdef CKSYMLINK
if (islink) {
if (!strcmp(lockfil,symlock)) { /* No change */
islink = 0; /* so no second lockfile */
symlock[0] = '';
}
}
#endif /* CKSYMLINK */
#endif /* M_XENIX */
#endif /* CK_SCOV5 */
/* flfnam = full lockfile pathname, e.g. "/usr/spool/uucp/LCK..ttyh8" */
/* tmpnam = temporary unique, e.g. "/usr/spool/uucp/LTMP..pid" */
sprintf(flfnam,"%s/%s",lockdir,lockfil);
#ifdef RTAIX
sprintf(lkflfn,"%s/%s",lockdir,lklockf);
#endif /* RTAIX */
#ifdef CKSYMLINK
/* If it's a link then also make a lockfile for the real name */
debug(F111,"ttlock link symlock",symlock,islink);
if (islink && symlock[0]) {
/* But only if the lockfile names would be different. */
/* WARNING: They won't be, e.g. for /dev/ttyd2 => /hw/ttys/ttyd2 */
sprintf(lock2,"%s/%s",lockdir,symlock); /* No, make 2nd lockfile */
debug(F110,"ttlock lock2",lock2,0);
if (!strcmp(lock2,flfnam)) { /* Are lockfile names the same? */
debug(F100,"ttlock lock2 cleared","",0);
lock2[0] = ''; /* Clear secondary lockfile name. */
}
}
#endif /* CKSYMLINK */
sprintf(tmpnam,"%s/LTMP.%05d",lockdir,(int) pid);
debug(F110,"ttlock flfnam",flfnam,0);
debug(F110,"ttlock tmpnam",tmpnam,0);
priv_on(); /* Turn on privileges if possible. */
lockfd = creat(tmpnam, 0444); /* Try to create temp lock file. */
if (lockfd < 0) { /* Create failed. */
debug(F111,"ttlock creat failed",tmpnam,errno);
if (errno == ENOENT) {
perror(lockdir);