Usenet 1994 October/usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso/misc/volume2/3b1-ptys-v2

Internet Message Format | 1991-08-07 | 31KB

From: [e-mail] (Eric Herrin)
Newsgroups: comp.sources.misc
Subject: v02i062: New Version of the UnixPC pty driver
Message-ID: <[e-mail]>
Date: 29 Feb 88 01:14:27 GMT
Approved: [e-mail]

Comp.sources.misc: Volume 2, Issue 62
Submitted-By: Eric Herrin <[e-mail]>
Archive-Name: 3b1-ptys-v2

Here's the latest version of the pty driver for the UnixPC, with all the
known bugs/problems fixed.  If anyone has any problems, let me know,
I have been pretty careful to make sure this one works without any
hitches.  Hope everyone enjoys it as much as I do.

            eric


|  Eric Herrin II: {cbosgd!ukma!eric, [e-mail], [e-mail]}      |
|  "But I soon noticed that while I thus wished to                            |
|   think everything false, it was necessarily true                           |
|   that I who thought so was something"   - Rene Descartes                   |
-------------------------  cut here -------------------------------------------
#! /bin/sh
: This is a shell archive, meaning:
: 1. Remove everything above the '#! /bin/sh' line.
: 2. Save the resulting text in a file.
: 3. Execute the file with /bin/sh '(not csh)' to create the files:
:    'Files'
:    'Install'
:    'MKflop'
:    'Makefile'
:    'Name'
:    'README.3b1'
:    'READ_ME'
:    'Remove'
:    'Remove.orig'
:    'Size'
:    'Version'
:    'number-ptys.h'
:    'pty.c'
:    'pty.h'
: This archive created: 'Sun Feb 28 13:52:08 1988
'
export PATH; PATH=/bin:$PATH
echo shar: extracting "'Files'" '(118 characters)'
if test -f 'Files'
then
    echo shar: will not over-write existing file "'Files'"
else
sed 's/^X//'  >'Files' <<'SHAR_EOF'
XSize
XName
XRemove
XInstall
XFiles
XMKflop
XMakefile
Xpty.o
XREADME.3b1
XREAD_ME
XRemove.orig
XVersion
Xnumber-ptys.h
Xpty.c
Xpty.h
SHAR_EOF
if test 118 -ne "`wc -c < 'Files'`"
then
    echo shar: error transmitting "'Files'" '(should have been 118 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'Install'" '(1929 characters)'
if test -f 'Install'
then
    echo shar: will not over-write existing file "'Install'"
else
sed 's/^X//'  >'Install' <<'SHAR_EOF'
X# Eric H. Herrin II
X# University of Kentucky Mathematical Sciences
X# [e-mail], !cbosgd!ukma!eric
X#
X# Install script for System V Pty driver
XMODULE=pty
X# put the module in the appropriate place
Xcp ${MODULE}.o /etc/lddrv/${MODULE}.o
X# add the entry to the /etc/master file
X/etc/masterupd -a char open release close read write ioctl ${MODULE}
X# get the assigned device number
XMODULEDEVNO=`/etc/masterupd -c ${MODULE}`
Xif [  ! ${MODULEDEVNO} ]
Xthen
X    echo "${MODULEDEVNO} cannot be added to the /etc/master file"
X    exit 1
Xfi
X# NOTE!!!!!!!!!!!!!!
X# To change the number of ptys, change the value in number-ptys.h.
X# VVVVVVV
XPTYCNT=`grep NUMBER_OF_PTYS number-ptys.h | \
Xsed -e "s/#define//" -e "s/NUMBER_OF_PTYS//" -e "s/ //g"`
Xecho "PTYCNT=$PTYCNT" > Remove
Xcat Remove.orig >> Remove
X# make the pty device files
Xecho "Making pty pseudo device files"
Xcnt=0
Xfor x in p q r s t u v w x y z
Xdo
X    for y in 0 1 2 3 4 5 6 7 8 9 a b c d e f
X    do
X        i=$x$y
X        if [ $cnt -ge ${PTYCNT} ]
X        then
X            break
X        fi
X        /etc/mknod /dev/pty$i c ${MODULEDEVNO}\
X `expr $cnt + $PTYCNT`
X        /etc/mknod /dev/tty$i c ${MODULEDEVNO} $cnt
X        chown root /dev/tty$i /dev/pty$i
X        chgrp root /dev/tty$i /dev/pty$i
X        chmod 0666 /dev/tty$i /dev/pty$i
X        cnt=`expr $cnt + 1`
X    done
Xdone
X
Xecho "Putting entry into InstDrv"
X# put an entry in /etc/lddrv/InstDrv for ${MODULE}
XV=`cat Version`
Xecho "Name=${MODULE} driver: Version ${V}"     >> /etc/lddrv/InstDrv
Xecho "File=${MODULE}"                 >> /etc/lddrv/InstDrv
Xecho "Comment=Pseudo tty driver (ptys!!)"     >> /etc/lddrv/InstDrv
Xcd /etc/lddrv
X# allocate and load the module
Xecho "Allocating pty module with lddrv"
X./lddrv -av -o ${MODULE}.o ${MODULE} > /dev/null 2>&1
Xif [ $? -eq 0 ]
Xthen
X    echo "Driver ${MODULE} successfully loaded"
Xelse
X    echo "Error: Driver ${MODULE} failed loading stage"
X    exit 1
Xfi
X
X# load the ${MODULE} at boot time
Xecho ${MODULE} >> /etc/lddrv/drivers
X
Xecho "Pseudo tty drivers are now installed"
Xexit 0
SHAR_EOF
if test 1929 -ne "`wc -c < 'Install'`"
then
    echo shar: error transmitting "'Install'" '(should have been 1929 characters)'
fi
chmod +x 'Install'
fi # end of overwriting check
echo shar: extracting "'MKflop'" '(120 characters)'
if test -f 'MKflop'
then
    echo shar: will not over-write existing file "'MKflop'"
else
sed 's/^X//'  >'MKflop' <<'SHAR_EOF'
Xecho "Insert floppy disk and press return"
Xread junk
X/usr/bin/fdfmt.nl
Xfind `cat Files` -print | cpio -oBc > /dev/fp021
SHAR_EOF
if test 120 -ne "`wc -c < 'MKflop'`"
then
    echo shar: error transmitting "'MKflop'" '(should have been 120 characters)'
fi
chmod +x 'MKflop'
fi # end of overwriting check
echo shar: extracting "'Makefile'" '(403 characters)'
if test -f 'Makefile'
then
    echo shar: will not over-write existing file "'Makefile'"
else
sed 's/^X//'  >'Makefile' <<'SHAR_EOF'
X#       Eric H. Herrin II
X#    University of Kentucky Mathematical Sciences Laboratories
X#     915 Patterson Office Tower
X#    University of Kentucky
X#    Lexington, KY 40506
X#    [e-mail], ..!cbosgd!ukma!eric
XDEFS=   -UDEBUG
XCFLAGS= -O -c ${DEFS}
XSHELL= /bin/sh
X
X.c.o:
X    ${CC} ${CFLAGS} $<
X
Xall: pty.o
X
Xinstall: all
X    ${SHELL} ./Install
X
Xclean:
X    rm -f pty.o
X
Xclobber: clean
X    ${SHELL} ./Remove
X
Xremove: clobber
SHAR_EOF
if test 403 -ne "`wc -c < 'Makefile'`"
then
    echo shar: error transmitting "'Makefile'" '(should have been 403 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'Name'" '(24 characters)'
if test -f 'Name'
then
    echo shar: will not over-write existing file "'Name'"
else
sed 's/^X//'  >'Name' <<'SHAR_EOF'
XPty Driver Version 2.1
SHAR_EOF
if test 24 -ne "`wc -c < 'Name'`"
then
    echo shar: error transmitting "'Name'" '(should have been 24 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'README.3b1'" '(5891 characters)'
if test -f 'README.3b1'
then
    echo shar: will not over-write existing file "'README.3b1'"
else
sed 's/^X//'  >'README.3b1' <<'SHAR_EOF'
XREADME: Eric H. Herrin II
X    University of Kentucky Mathematical Sciences Laboratories
X     915 Patterson Office Tower
X    University of Kentucky
X    Lexington, KY 40506
X    [e-mail], ..!cbosgd!ukma!eric
X
XVersion 2.1
X
XThanks to
X1.  Mike "Ford" Ditto
X    kenobi![e-mail], ...!crash!kenobi!ford
X    for his bug fix in the ptyrelease routine.
X2.  Michael Bloom
X    [e-mail]
X    for his bug fix to the master read routine in the original driver.
X    I incorporated this fix and it seems to work fine.
X
XThis directory contains the PD pty driver for System V, modified for
Xuse with the AT&T UnixPC or Convergent Technologies Safari 4 computers,
Xrunning Version 3.51 of the UNIX System V OS (it may also work on
Xearlier versions, but I have no way of verifying this).  Anyone using
Xthis driver should have no problems, but I will provide little support.
XQuestions should be sent to the above address, either with ground mail
Xor real (e-)mail.
X
X
XThis README is intended to mark the changes made to the PD pty driver to
Xsatisfy the author's request.  It was not easy or feasible to clearly mark
Xevery change in the code, thus it was decided that an explanation of the
Xprocedure would probably be enough.  A brief introduction to UnixPC
Xdevice drivers is followed by the list of changes made.  A couple of
Xhacks will also be explained.
X
XNOTE: The #ifdef DEBUG statements use eprintf() instead of printf().
X      This puts any messages into the error icon's queue of system
X      errors (the icon is the !! icon at the top of the console).
X
X
XUnixPC device drivers:
X
X    The UnixPC has a different kind of device driver from other
XSystem V machines.  They can be loaded while the machine is running or
Xat boot time, but are always linked into the OS while the kernel is
Xactive.  However nice this may be, there ARE some problems.
X
X    1.  Loadable device drivers CANNOT communicate with one another.
X        That is, one driver cannot use a data structure defined in
X        another driver (IE. they are not in the same identifier
X        name space).
X    2.  Conf.c doesn't exist, it is redone by the /etc/lddrv -av
X        program and relinked into the kernel.  Thus, one can't
X        declare common structures this way.
X
X
XChanges to the PD pty driver:
X
X    The following changes (hacks?) were made to the PD pty driver for
Xthe purpose of making it usable on the UnixPC.
X
X       Problem 1 & 2 influenced me to try to make a single driver
X       (there were two, ptm and pts).  How could one do this?
X       My solution (and I would be very interested if you can
X       think of a better one) was to create the slave devices
X       /dev/tty[p-z][0-f] with minor numbers 0-(PTYCNT/2-1) and
X       master devices /dev/pty[p-z][0-f] with minor numbers
X       (PTYCNT/2)-(PTYCNT-1).  Major numbers of both types of devices
X       are the same. I can then simply define a macro to determine
X       whether the dev_t passed to the driver was a slave or master
X       pty.  Once determined, I can perform the appropriate duties.
X       Also, it was more readable to merge the ptm and pts modules
X       into a single set of pty[open, close, ioctl, read, write]
X       routines.  I added a release routine so that the kernel will
X       know the device has properly released if one deallocates
X       the driver.
X       Another modification was the addition of ptystate[], which
X       holds the MRWAIT, MWWAIT, MOPEN flags.  This was necessary
X       because the original author insisted upon using 3 UNUSED
X       bits in the t_state field of the tty.  The UnixPC does not
X       have any free bits here.
X       A check for TTIOW was added due to the fix by Michael
X       Bloom in the master section of the ptyread() routine.  Note
X       his original fixes were for the original pty driver and
X       most of the changes were already incorporated into this driver.
X
XMaking alterations to the number of ptys, etc.
X       The number of ptys is defined in the file number-ptys.h.  This
X       number should not exceed the maximum minor device number divided by
X       two.  Ie. a maximum minor device number of 128 would allow
X       a maximum of 64 ptys.  It is currently defined at only 32, but
X       I believe this is quite liberal, especially for a machine as
X       small as a 3b1.  One could load the driver multiple times by
X       calling it a different name in the /etc/master file.  One could
X       have the first 64 ptys with major number 10, the next 64 with
X       major number 11, etc.  I think 64 should do fine for any reasonable
X       UNIX PC user (good grief, how would one use 64 ptys on a max
X          5 user machine?  Better yet, how would one get 5 users on the
X         thing?  Yuch!).  At any rate, we don't use that many ptys on
X       a large system with lots of users.... so I really don't see this
X       as a problem.
X
X
XPty driver generation and installation procedure.
X       Put the number of ptys you want in the file number-ptys.h.
X       Type "make"
X       Type "/bin/sh MKflop"
X       Insert a floppy diskette.
X       Use the UA to install the diskette.
X       (you can skip the floppy part and simply run the Install script
X       in the same directory the pty.o object is located.  But you
X       won't be able to uninstall it from the UA.  There is a
X       Remove script to do this which you will have to run manually.)
X
XAcknowledgement:  I realize the usage of a single major device number is
Xa supreme hack, and I welcome any improvements/solutions.  I do not assume
Xany responsibility for the changes I have made, nor do I imply any
Xliability on the part of the original author.  I include a complete set
Xof {Install, Remove, etc, etc} scripts so that binary floppies may be
Xmade to be installed by the UnixPC user agent.  I do not assume any
Xresponsibility for these either.  I don't assume any responsibility for
Xanything even remotely related to this stuff.
X
X
X        Eric H. Herrin II
X        University of Kentucky Mathematical Sciences Laboratories
X        [e-mail], !cbosgd!ukma!eric
X
SHAR_EOF
if test 5891 -ne "`wc -c < 'README.3b1'`"
then
    echo shar: error transmitting "'README.3b1'" '(should have been 5891 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'READ_ME'" '(1624 characters)'
if test -f 'READ_ME'
then
    echo shar: will not over-write existing file "'READ_ME'"
else
sed 's/^X//'  >'READ_ME' <<'SHAR_EOF'
XThis is a pseudo tty driver for system V machines. It works very
Xsimilar to ptys on BSD, for instance emacs works fine. To install this
Xdriver you will need to modify your `master' and `dfile' file which
Xcontains your driver specifications. As these vary from machine to machine,
Xyou will have to look up in your manual how to do that. Here is an example
Xfor a sperry s5050 alias ncr tower 32 :
X
XAdd the following two lines to the driver description section in master:
Xpts    0    237    244    pts    0    0    28    32    0    tty
Xptm    0    37    344    ptm    0    0    29    0    0
X
XThis says there are max 32 pts devices at major number 28 having associated
Xtty structures and 0 ptm devices having major number 29 with no associated
Xdata. The number of ptm devices is not configurable, as this depends on the
Xnumber of pts's.
X
XThe following two lines go in the dfile:
Xpts    0    0    0
Xptm    0    0    0
X
XProbably you will also want to increase the NCLIST parameter.
X
XIf your configuration procedure is different, you must change the shell
Xscript mkpty, which is used to create the device nodes in /dev.
X
XThe ptm devices (/dev/pty[p-z][0-9a-f]) are the controlling ones, everything
Xwritten there will show up at the associated pts device
X(/dev/tty[p-z][0-9a-f]), as well as erverything which is written on the pts
Xdevice will show up on the ptm device. The pts side will accept the usual
Xtermio ioctl calls. The master side is a bit different, as ioctl calls which
Xnormally wait for output to drain flush output. The reason for this funny
Xbehaviour is that otherwise the master side will hang. Also the master side
Xmay be opened only once, further open calls will result in an EBUSY error.
SHAR_EOF
if test 1624 -ne "`wc -c < 'READ_ME'`"
then
    echo shar: error transmitting "'READ_ME'" '(should have been 1624 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'Remove'" '(1065 characters)'
if test -f 'Remove'
then
    echo shar: will not over-write existing file "'Remove'"
else
sed 's/^X//'  >'Remove' <<'SHAR_EOF'
XPTYCNT=32
X# Eric H. Herrin II
X# University of Kentucky Mathematical Sciences
X# [e-mail], [e-mail], !cbosgd!ukma!eric
X#
X# Remove script for pty driver.
XMODULE=pty
Xecho "Removing /etc/lddrv entries and /etc/master entries"
X/etc/lddrv/lddrv -d ${MODULE}
X/etc/masterupd -d ${MODULE}
X# remove the pty device files
Xcnt=0
Xecho "Removing the pty device files"
Xfor x in p q r s t u v w x y z
Xdo
X    for y in 0 1 2 3 4 5 6 7 8 9 a b c d e f
X    do
X        i=$x$y
X        if [ ${cnt} -ge ${PTYCNT} ]
X        then
X            break
X        fi
X        /bin/rm -f /dev/pty$i
X        /bin/rm -f /dev/tty$i
X        cnt=`expr ${cnt} + 1`
X    done
Xdone
X# get rid of stuff in /etc/lddrv
Xecho "removing InstDrv entries, etc."
X/bin/rm -f /etc/lddrv/${MODULE}.o /etc/lddrv/${MODULE} \
X    /etc/lddrv/ifile.${MODULE}
Xgrep -v "^${MODULE}" /etc/lddrv/drivers > /tmp/XXX$$
Xmv /tmp/XXX$$ /etc/lddrv/drivers
Xgrep -v "${MODULE}" /etc/lddrv/InstDrv > /tmp/XXX$$
Xmv /tmp/XXX$$ /etc/lddrv/InstDrv
Xchmod +r /etc/lddrv/drivers /etc/lddrv/InstDrv
Xchmod go-w /etc/lddrv/drivers /etc/lddrv/InstDrv
Xchown root /etc/lddrv/drivers /etc/lddrv/InstDrv
SHAR_EOF
if test 1065 -ne "`wc -c < 'Remove'`"
then
    echo shar: error transmitting "'Remove'" '(should have been 1065 characters)'
fi
chmod +x 'Remove'
fi # end of overwriting check
echo shar: extracting "'Remove.orig'" '(1055 characters)'
if test -f 'Remove.orig'
then
    echo shar: will not over-write existing file "'Remove.orig'"
else
sed 's/^X//'  >'Remove.orig' <<'SHAR_EOF'
X# Eric H. Herrin II
X# University of Kentucky Mathematical Sciences
X# [e-mail], [e-mail], !cbosgd!ukma!eric
X#
X# Remove script for pty driver.
XMODULE=pty
Xecho "Removing /etc/lddrv entries and /etc/master entries"
X/etc/lddrv/lddrv -d ${MODULE}
X/etc/masterupd -d ${MODULE}
X# remove the pty device files
Xcnt=0
Xecho "Removing the pty device files"
Xfor x in p q r s t u v w x y z
Xdo
X    for y in 0 1 2 3 4 5 6 7 8 9 a b c d e f
X    do
X        i=$x$y
X        if [ ${cnt} -ge ${PTYCNT} ]
X        then
X            break
X        fi
X        /bin/rm -f /dev/pty$i
X        /bin/rm -f /dev/tty$i
X        cnt=`expr ${cnt} + 1`
X    done
Xdone
X# get rid of stuff in /etc/lddrv
Xecho "removing InstDrv entries, etc."
X/bin/rm -f /etc/lddrv/${MODULE}.o /etc/lddrv/${MODULE} \
X    /etc/lddrv/ifile.${MODULE}
Xgrep -v "^${MODULE}" /etc/lddrv/drivers > /tmp/XXX$$
Xmv /tmp/XXX$$ /etc/lddrv/drivers
Xgrep -v "${MODULE}" /etc/lddrv/InstDrv > /tmp/XXX$$
Xmv /tmp/XXX$$ /etc/lddrv/InstDrv
Xchmod +r /etc/lddrv/drivers /etc/lddrv/InstDrv
Xchmod go-w /etc/lddrv/drivers /etc/lddrv/InstDrv
Xchown root /etc/lddrv/drivers /etc/lddrv/InstDrv
SHAR_EOF
if test 1055 -ne "`wc -c < 'Remove.orig'`"
then
    echo shar: error transmitting "'Remove.orig'" '(should have been 1055 characters)'
fi
chmod +x 'Remove.orig'
fi # end of overwriting check
echo shar: extracting "'Size'" '(3 characters)'
if test -f 'Size'
then
    echo shar: will not over-write existing file "'Size'"
else
sed 's/^X//'  >'Size' <<'SHAR_EOF'
X61
SHAR_EOF
if test 3 -ne "`wc -c < 'Size'`"
then
    echo shar: error transmitting "'Size'" '(should have been 3 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'Version'" '(4 characters)'
if test -f 'Version'
then
    echo shar: will not over-write existing file "'Version'"
else
sed 's/^X//'  >'Version' <<'SHAR_EOF'
X2.1
SHAR_EOF
if test 4 -ne "`wc -c < 'Version'`"
then
    echo shar: error transmitting "'Version'" '(should have been 4 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'number-ptys.h'" '(176 characters)'
if test -f 'number-ptys.h'
then
    echo shar: will not over-write existing file "'number-ptys.h'"
else
sed 's/^X//'  >'number-ptys.h' <<'SHAR_EOF'
X/* number-ptys.h - Eric H. Herrin II
X *
X * define the number of ptys here so the actual number only has to be in
X * one place.
X *
X * Version 2.1
X */
X#define NUMBER_OF_PTYS 32
SHAR_EOF
if test 176 -ne "`wc -c < 'number-ptys.h'`"
then
    echo shar: error transmitting "'number-ptys.h'" '(should have been 176 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'pty.c'" '(9946 characters)'
if test -f 'pty.c'
then
    echo shar: will not over-write existing file "'pty.c'"
else
sed 's/^X//'  >'pty.c' <<'SHAR_EOF'
X/*
X * pty.c - Berkeley style pseudo tty driver for system V
X *
X * Copyright (c) 1987, Jens-Uwe Mager, FOCUS Computer GmbH
X * Not derived from licensed software.
X *
X * Permission is granted to freely use, copy, modify, and redistribute
X * this software, provided that no attempt is made to gain profit from it,
X * the author is not construed to be liable for any results of using the
X * software, alterations are clearly marked as such, and this notice is
X * not modified.
X */
X
X/*
X * Modified for use on the UnixPC by:
X * Eric H. Herrin II
X * University of Kentucky Mathematical Sciences Laboratories
X * [e-mail], [e-mail], !cbosgd!ukma!eric
X *
X * See README.3b1 for details of port and installation.
X * Version 2.1
X */
X
X/*
X * the following are arbitrary 3 unused bits from t_state
X * in sys/tty.h
X */
X/* The UnixPC does not have any extra bits in t_state, thus
X * one must provide other means of storing the state.
X */
X#define MRWAIT    01    /* master waiting in read */
X#define t_rloc    t_cc[0]        /* wchannel */
X#define MWWAIT    02    /* master waiting in write */
X#define t_wloc    t_cc[1]        /* wchannel */
X#define MOPEN    04    /* master is open */
X
X#include "pty.h"
X#include "sys/param.h"
X#include "sys/types.h"
X#include "sys/sysmacros.h"
X#include "sys/systm.h"
X#include "sys/file.h"
X#include "sys/conf.h"
X#include "sys/proc.h"
X#include "sys/dir.h"
X#include "sys/tty.h"
X#include "sys/signal.h"
X#include "sys/user.h"
X#include "sys/errno.h"
X#include "sys/termio.h"
X#include "sys/ttold.h"
X
X/* The tty structures must be local to this driver.  One doesn't have
X * conf.c
X */
Xstruct tty pts_tty[PTYCNT];
Xint pts_cnt = PTYCNT;
Xint ptystate[PTYCNT];
X
Xptyopen(dev, flag)
X    register dev_t        dev;
X    register int        flag;
X{
X    register struct tty *tp;
X
X    dev = minor(dev);
X    if (Master(dev) == True) {
X#        ifdef DEBUG
X        eprintf("open(master): \n");
X#        endif
X        dev -= PTYCNT;
X        tp = &pts_tty[dev];
X        if (dev >= pts_cnt) {
X            u.u_error = ENXIO;
X            return;
X        }
X        /*
X         * allow only one controlling process
X         */
X        if (ptystate[dev] & MOPEN) {
X            u.u_error = EBUSY;
X            return;
X        }
X        if (tp->t_state & WOPEN)
X            wakeup((caddr_t)&tp->t_canq);
X        tp->t_state |= CARR_ON;
X        ptystate[dev] |= MOPEN;
X    } else {
X#        ifdef DEBUG
X        eprintf("open(slave): \n");
X#        endif
X        tp = &pts_tty[dev];
X        if (dev >= pts_cnt) {
X            u.u_error = ENXIO;
X            return;
X        }
X        if ((tp->t_state & (ISOPEN|WOPEN)) == 0) {
X            ttinit(tp);
X            tp->t_proc = ptsproc;
X        }
X        /*
X           * if master is still open, don't wait for carrier
X          */
X        if (ptystate[dev] & MOPEN)
X            tp->t_state |= CARR_ON;
X        if (!(flag & FNDELAY)) {
X            while ((tp->t_state & CARR_ON) == 0) {
X                tp->t_state |= WOPEN;
X                sleep((caddr_t)&tp->t_canq, TTIPRI);
X            }
X        }
X        (*linesw[tp->t_line].l_open)(tp);
X    }
X}
X
Xptyclose(dev, flag)
X    register dev_t        dev;
X    register int        flag;
X{
X        register struct tty     *tp;
X
X    dev = minor(dev);
X    if (Master(dev) == True) {
X#        ifdef DEBUG
X        eprintf("close(master): \n");
X#        endif
X        dev -= PTYCNT;
X        tp = &pts_tty[dev];
X        if (tp->t_state & ISOPEN) {
X            signal(tp->t_pgrp, SIGHUP);
X            ttyflush(tp, FREAD|FWRITE);
X        }
X        /*
X          * virtual carrier gone
X          */
X        tp->t_state &= ~(CARR_ON);
X        ptystate[dev] &= ~MOPEN;
X    } else {
X#        ifdef DEBUG
X        eprintf("close(slave): \n");
X#        endif
X        tp = &pts_tty[dev];
X        (*linesw[tp->t_line].l_close)(tp);
X        tp->t_state &= ~CARR_ON;
X    }
X}
X
Xptyread(dev)
X        register dev_t        dev;
X{
X    register struct tty     *tp;
X    register                n;
X
X    dev = minor(dev);
X    if (Master(dev) == True) {
X#        ifdef DEBUG
X        eprintf("read(master): \n");
X#        endif
X        dev -= PTYCNT;
X                tp = &pts_tty[dev];
X
X        /* added fix for hanging master side when the slave hangs
X         * up too early.  Fix by Michael Bloom ([e-mail]).
X         */
X        if ((tp->t_state & (ISOPEN|TTIOW)) == 0) {
X            u.u_error = EIO;
X            return;
X        }
X        while (u.u_count > 0) {
X            ptsproc(tp, T_OUTPUT);
X            if ((tp->t_state & (TTSTOP|TIMEOUT))
X                || tp->t_tbuf.c_ptr == NULL || tp->t_tbuf.c_count == 0) {
X                if (u.u_fmode & FNDELAY)
X                    break;
X#                ifdef DEBUG
X                eprintf("read(master): master going to sleep\n");
X#                endif
X                ptystate[dev] |= MRWAIT;
X                sleep((caddr_t)&tp->t_rloc, TTIPRI);
X#                ifdef DEBUG
X                eprintf("read(master): master woke up\n");
X#                endif
X
X                continue;
X            }
X            n = min(u.u_count, tp->t_tbuf.c_count);
X            if (n) {
X#                ifdef DEBUG
X                eprintf("read(master): got some stuff\n");
X#                endif
X                if (copyout(tp->t_tbuf.c_ptr, u.u_base, n)) {
X                    u.u_error = EFAULT;
X                    break;
X                }
X                tp->t_tbuf.c_count -= n;
X                tp->t_tbuf.c_ptr += n;
X                u.u_base += n;
X                u.u_count -= n;
X            }
X        }
X    } else {
X#        ifdef DEBUG
X        eprintf("read(slave): \n");
X#        endif
X        tp = &pts_tty[dev];
X#        ifdef DEBUG
X        eprintf("read(slave): got some stuff\n");
X#        endif
X        (*linesw[tp->t_line].l_read)(tp);
X    }
X}
X
Xptywrite(dev)
X    register dev_t        dev;
X{
X    register struct tty     *tp;
X    register                n;
X
X    dev = minor(dev);
X    if (Master(dev) == True) {
X#        ifdef DEBUG
X        eprintf("write(master): \n");
X#        endif
X        dev -= PTYCNT;
X        tp = &pts_tty[dev];
X
X        if ((tp->t_state & ISOPEN) == 0) {
X            u.u_error = EIO;
X            return;
X        }
X        while (u.u_count > 0) {
X            if ((tp->t_state & TBLOCK) || tp->t_rbuf.c_ptr == NULL) {
X                if (u.u_fmode & FNDELAY)
X                    break;
X                ptystate[dev] |= MWWAIT;
X#                ifdef DEBUG
X                eprintf("write(master): going to sleep\n");
X#                endif
X
X                sleep((caddr_t)&tp->t_wloc, TTOPRI);
X
X#                ifdef DEBUG
X                eprintf("write: waking up\n");
X#                endif
X
X                continue;
X            }
X            n = min(u.u_count, tp->t_rbuf.c_count);
X            if (n) {
X#                ifdef DEBUG
X                eprintf("write(master): sending some stuff\n");
X#                endif
X                if (copyin(u.u_base,tp->t_rbuf.c_ptr, n)) {
X                    u.u_error = EFAULT;
X                    break;
X                }
X                tp->t_rbuf.c_count -= n;
X                u.u_base += n;
X                u.u_count -= n;
X            }
X            (*linesw[tp->t_line].l_input)(tp);
X        }
X    } else {
X#        ifdef DEBUG
X        eprintf("write(slave): \n");
X#        endif
X        tp = &pts_tty[dev];
X#        ifdef DEBUG
X        eprintf("write(slave): sending some stuff\n");
X#        endif
X        (*linesw[tp->t_line].l_write)(tp);
X    }
X}
X
Xptyioctl(dev, cmd, arg, mode)
X    dev_t        dev;
X    int        cmd, arg, mode;
X{
X    register struct tty *tp;
X
X    dev = minor(dev);
X    if (Master(dev) == True) {
X#        ifdef DEBUG
X        eprintf("ioctl(master): \n");
X#        endif
X        dev -= PTYCNT;
X        tp = &pts_tty[dev];
X        /*
X          * sorry, but we can't fiddle with the tty struct without
X          * having done LDOPEN
X          */
X        if (tp->t_state & ISOPEN) {
X            if (cmd == TCSBRK && arg ==  NULL) {
X                signal(tp->t_pgrp, SIGINT);
X                if ((tp->t_iflag & NOFLSH) == 0)
X                    ttyflush(tp, FREAD|FWRITE);
X            } else {
X                /*
X                  * we must flush output to avoid hang in ttywait
X                  */
X                if (cmd == TCSETAW || cmd == TCSETAF ||
X                   cmd == TCSBRK || cmd == TIOCSETP)
X                    ttyflush(tp, FWRITE);
X                ttiocom(tp, cmd, arg, mode);
X            }
X        }
X    } else {
X#        ifdef DEBUG
X        eprintf("ioctl(slave): \n");
X#        endif
X        tp = &pts_tty[dev];
X        ttiocom(tp, cmd, arg, mode);
X    }
X}
X
Xptsproc(tp, cmd)
Xregister struct tty *tp;
X{
X    register struct ccblock *tbuf;
X    extern ttrstrt();
X
X    switch (cmd) {
X    case T_TIME:
X#        ifdef DEBUG
X        eprintf("ptsproc: T_TIME:\n");
X#        endif
X        tp->t_state &= ~TIMEOUT;
X        goto start;
X    case T_WFLUSH:
X#        ifdef DEBUG
X        eprintf("ptsproc: T_WFLUSH:\n");
X#        endif
X        tp->t_tbuf.c_size  -= tp->t_tbuf.c_count;
X        tp->t_tbuf.c_count = 0;
X        /* fall through */
X    case T_RESUME:
X#        ifdef DEBUG
X        eprintf("ptsproc: T_RESUME:\n");
X#        endif
X        tp->t_state &= ~TTSTOP;
X        /* fall through */
X    case T_OUTPUT:
Xstart:
X#        ifdef DEBUG
X        eprintf("ptsproc: T_OUTPUT:\n");
X#        endif
X        if (tp->t_state & (TTSTOP|TIMEOUT))
X            break;
X#        ifdef DEBUG
X        eprintf("ptsproc: T_OUTPUT: past(TTSTOP|TIMEOUT)");
X#        endif
X        tbuf = &tp->t_tbuf;
X        if (tbuf->c_ptr == NULL || tbuf->c_count == 0) {
X#        ifdef DEBUG
X        eprintf("ptsproc: T_OUTPUT: tbuf empty, may break\n");
X#        endif
X            if (tbuf->c_ptr)
X                tbuf->c_ptr -= tbuf->c_size;
X            if (!(CPRES & (*linesw[tp->t_line].l_output)(tp)))
X                break;
X        }
X        if (tbuf->c_count && (ptystate[tp-pts_tty] & MRWAIT)) {
X#        ifdef DEBUG
X        eprintf("ptsproc: T_OUTPUT: waking up master\n");
X#        endif
X            ptystate[tp-pts_tty] &= ~MRWAIT;
X            wakeup((caddr_t)&tp->t_rloc);
X        }
X#        ifdef DEBUG
X        eprintf("ptsproc: T_OUTPUT: leaving end\n");
X#        endif
X        break;
X    case T_SUSPEND:
X#        ifdef DEBUG
X        eprintf("ptsproc: T_SUSPEND:\n");
X#        endif
X        tp->t_state |= TTSTOP;
X        break;
X    case T_BLOCK:
X#        ifdef DEBUG
X        eprintf("ptsproc: T_BLOCK:\n");
X#        endif
X        /*
X         * the check for ICANON appears to be neccessary
X         * to avoid a hang when overflowing input
X         */
X        if ((tp->t_iflag & ICANON) == 0)
X            tp->t_state |= TBLOCK;
X        break;
X    case T_BREAK:
X#        ifdef DEBUG
X        eprintf("ptsproc: T_BREAK:\n");
X#        endif
X        tp->t_state |= TIMEOUT;
X        timeout(ttrstrt, tp, HZ/4);
X        break;
X#ifdef T_LOG_FLUSH
X    case T_LOG_FLUSH:
X#endif
X    case T_RFLUSH:
X#        ifdef DEBUG
X        eprintf("ptsproc: T_RFLUSH:\n");
X#        endif
X        if (!(tp->t_state & TBLOCK))
X            break;
X        /* fall through */
X    case T_UNBLOCK:
X#        ifdef DEBUG
X        eprintf("ptsproc: T_UNBLOCK:\n");
X#        endif
X        tp->t_state &= ~(TTXOFF|TBLOCK);
X        /* fall through */
X    case T_INPUT:
X#        ifdef DEBUG
X        eprintf("ptsproc: T_INPUT:\n");
X#        endif
X        if (ptystate[tp-pts_tty] & MWWAIT) {
X            ptystate[tp-pts_tty] &= ~MWWAIT;
X#            ifdef DEBUG
X            eprintf("ptsproc: T_INPUT: waking up master\n");
X#            endif
X            wakeup((caddr_t)&tp->t_wloc);
X        }
X        break;
X    default:
X#        ifdef DEBUG
X        eprintf("ptsproc: default:\n");
X#        else
X        ;
X#        endif
X    }
X}
X
X/* This routine used to be a stub, however, an industrious soul found
X * the release routine caused a panic whenever the driver is released
X * and some ptys are still open.  The simple 'for' loop fixes this
X * problem.
X *
X * Credit should be given to:
X * Mike "Ford" Ditto
X * kenobi![e-mail], ...!crash!kenobi!ford
X * for finding the bug and writing the for loop.
X *
X * [Eric H. Herrin II, 10-7-87]
X */
Xptyrelease()
X{
X    register int     i;
X
X#    ifdef DEBUG
X    eprintf("ptyrelease:\n");
X#    endif
X    for (i=0; i<PTYCNT; i++)
X        if ((ptystate[i] & (ISOPEN|MOPEN)) ||
X                   (pts_tty[i].t_state & WOPEN)) {
X            u.u_error = EBUSY;
X            return;
X        }
X    return;
X}
SHAR_EOF
if test 9946 -ne "`wc -c < 'pty.c'`"
then
    echo shar: error transmitting "'pty.c'" '(should have been 9946 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'pty.h'" '(854 characters)'
if test -f 'pty.h'
then
    echo shar: will not over-write existing file "'pty.h'"
else
sed 's/^X//'  >'pty.h' <<'SHAR_EOF'
X/* pty.h - Eric H. Herrin II ([e-mail])
X *
X * some elementary definitions for the pty driver (UnixPC version)
X *
X * Version 2.1
X */
X
Xint ptsproc();
X
X#define True  (1 == 1)
X#define False (0 == 1)
X
X/*  This is the total number of ptys.  Note the maximum number here is
X *  currently 64 for the UnixPC (128 minor devices/2 minor devices per pty
X *  yields 64 total ptys).  I really don't see the need for more than 32
X *  on the 3B1, however, if someone does, then (s)he can change it.
X */
X#include "number-ptys.h"
X#define PTYCNT (dev_t)NUMBER_OF_PTYS
X
X/* some definitions to include kernel info from system header files.
X */
X#define KERNEL 1
X#define defined_io 1
X#define NOSTREAMS 1
X
X#define UNIXPC 1
X
X/* This macro returns True if the parameter is a master minor device number,
X * False otherwise.
X */
X#define Master( dev )    (minor(dev) >= PTYCNT)
SHAR_EOF
if test 854 -ne "`wc -c < 'pty.h'`"
then
    echo shar: error transmitting "'pty.h'" '(should have been 854 characters)'
fi
fi # end of overwriting check
:    End of shell archive
exit 0
--
|  Eric Herrin II: {cbosgd!ukma!eric, [e-mail], [e-mail]}      |
|  "But I soon noticed that while I thus wished to                            |
|   think everything false, it was necessarily true                           |
|   that I who thought so was something"   - Rene Descartes                   |