PC Curses bug (and fixes)
Dean Pentcheff
dean at violet.berkeley.edu
Thu Feb 18 16:06:08 AEST 1988
In article <924 at silver.bacs.indiana.edu> creps at silver.UUCP (Steve Creps) writes:
> In the file clrtobot.c in the PC Curses package, there is a routine
>named clrbot(). I'm pretty sure this should actually be named clrtobot().
Yes: looking at the documentation and the code, it should be.
> While I'm at it, another problem I haven't had time to check into is
>a possible bug in cursesio.asm. I've had my machine lock up before...
Yes: I found problems in the Turbo C version (which I suspect was essentially
unchanged from any other PC version).
Attached below is a shar file which contains replacement and additional
files for PC Curses, based on the Turbo C version posted by Michael Ewan.
These are in no way to be considered "official" fixes - they are just
fixes that I've tried that seem to work (on a No-Name 286 clone [Phoenix
bios] and a Zenith Z-151).
My modification notes are appended to Michael Ewan's in the file "readme.too".
In general, I suspect that most of these modifications are _not_ peculiar to
the Turbo C version. The only ones that probably are use Turbo C's special
bios call routines.
Good luck. If anyone finds problems herein, I'd appreciate knowing about it.
-Dean
-----------------
Dean Pentcheff (dean at violet.berkeley.edu)
-----------------
"A university is a place where people pay high prices for goods which they then
proceed to leave on the counter when they go out of the store." Loren Eiseley
---CutCutCutCutCutCutCutCutCutCutCutCutCutCutCutCutCutCutCutCutCutCutCutCut---
:
: Shell Archive. Created Wed Feb 17 21:51:12 PST 1988
: Run under /bin/sh to create:
: readme.too
: makefile
: cursesio.asm
: charget.c
: clrtobot.c
: curses.cmd
: curses.lst
: curspriv.h
: getch.c
: setmode.c
: xlist
echo readme.too '(2143 characters)'
if test -f readme.too
then
echo readme.too already exists - will not overwrite
else
sed 's/^X//' << 'SHARMARKER' > readme.too
X
X
X The makefile and 'c' sources in this archive have been ported for
X Borland TurboC. The libraries have been compiled using TurboC.
X
X Be sure to use the supplied make.exe if you re-compile the sources.
X I tried the 'make' supplied with TurboC and found this one much
X better. Also the makefile is specific to this 'make'.
X
X
X Michael Ewan
X Tektronix Inc.
X PO Box 500
X Beaverton OR 97077
X
X 503-627-6468
X
X sytek at tekgen.TEK.COM
X ...!tektronix!tekgen!owl!mike
X---------------
XModifications by Dean Pentcheff (dean at violet.berkeley.edu)
X
X12/87 Changed the makefile a little. Switched to the Turbo librarian
X tlib (added tlib-compatible response file curses.lst).
X12/87 Added the setmode.c module, which adds the terminfo-compatible
X routines: reset_prog_mode(), reset_shell_mode(), set_prog_mode(),
X and set_shell_mode();
X1/88 Modified a few lines in cursesio.asm (search on NDP to find them).
X Some to fit Turbo object module conventions, one fix to allow the
X assembly language keypress checker to work (fixes raw() mode).
X1/88 Moved an #undef line in charget to fix another problem with raw().
X1/88 Added the option of #defining UCMASM if you are working with an
X assembler as old as mine that refuses to output lowercase symbols.
X If UCMASM is defined before #including <curspriv.h>, then the
X names of the asm routines in the C code will be uppercased.
X1/88 Moved the "#undef getch" to the top of charget.c, so it covers the
X flushinp() routine as well.
X1/88 Added the getch.c module, which is a new version of getch(). Turbo's
X getch() calls a DOS function which ignores ^C/^Break, which caused
X cbreak() mode (when nodelay() is _not_ invoked) to improperly ignore
X those ^C/^Break too. The substituted getch() fixes that, at the cost
X of a linker warning message, since getch() is duplicated in the
X Turbo library.
X1/88 Made the file "xlist" as a Turbo librarian response file to extract
X modules from the pcurses.lib modules. This can be useful if you want
X to extract all the modules from the library prior to recompiling one
X of them, to avoid having to recompile everything.
X2/88 Fixed clrbot() to make it clrtobot() in clrtobot.c
SHARMARKER
len=`wc -c readme.too | sed "s/^ *\([0-9][0-9]*\) .*/\1/"`
if test 2143 -ne $len
then
echo readme.too should be 2143, but is $len characters long
fi
fi
echo makefile '(10209 characters)'
if test -f makefile
then
echo makefile already exists - will not overwrite
else
sed 's/^X//' << 'SHARMARKER' > makefile
X#################################################################
X# PCCURSES #
X# Makefile to generate scurses.lib, ccurses.lib, mcurses.lib, #
X# lcurses.lib for turbo c. #
X# #
X# This makefile will generate subdirectories and call itself #
X# recursively... #
X# #
X# Use the enclosed make rather than turboc make or MSC make #
X#################################################################
X# 1.0: Release: 870515 #
X#################################################################
X
X# The following are the directories where your lib and include files
X# will be installed
X
XLIBDIR= \usr\tc\lib
XINCDIR= \usr\tc\include
XCC = tcc
X# suppress the Parameter "XXXXXX" is never used warning,
X# include defines to fix up for braindamaged uppercase only MASM
XCFLAGS = -w-par -DUCMASM
X
X# General definitions:
X
XCOBJS= attrib.obj beep.obj boxes.obj charadd.obj \
X chardel.obj charget.obj charins.obj charpick.obj \
X clrtobot.obj clrtoeol.obj endwin.obj initscr.obj \
X linedel.obj lineins.obj longname.obj move.obj \
X mvcursor.obj newwin.obj options.obj overlay.obj \
X prntscan.obj refresh.obj scrreg.obj setterm.obj \
X stradd.obj strget.obj termmisc.obj tabsize.obj \
X unctrl.obj update.obj winclear.obj windel.obj \
X winerase.obj winmove.obj winscrol.obj wintouch.obj \
X setmode.obj getch.obj
X
XASMOBJS= cursesio.obj
X
XOBJS= $(COBJS) $(ASMOBJS)
X
X#################################################################
X# 'all' is all that can (and usually is) done #
X#################################################################
X
Xall: small compact medium large
X
X#################################################################
X# The following copies the header files to their proper place #
X#################################################################
X
Xheaders: $(INCDIR)\curses.h $(INCDIR)\curspriv.h
X
X$(INCDIR)\curses.h: curses.h
X copy curses.h $(INCDIR)\curses.h
X
X$(INCDIR)\curspriv.h: curspriv.h
X copy curspriv.h $(INCDIR)\curspriv.h
X
X#################################################################
X# The following will create a subdirectory for each memory #
X# model, and initiate the make:ing in each one. #
X#################################################################
X
X#################################################################
X# create work directory if non-existent, go to it, and #
X# perform the job - small model #
X#################################################################
X
Xsmall: headers \
X smodel \
X smodel\farnear.inc \
X smodel\smalhuge.inc
X cd smodel
X make -f ..\makefile $(MAKEFLAGS) "MODEL=s" $(LIBDIR)\scurses.lib
X cd ..
X
Xsmodel:
X mkdir smodel
X
Xsmodel\farnear.inc: nearcall.inc
X copy nearcall.inc smodel\farnear.inc
X
Xsmodel\smalhuge.inc: smaldata.inc
X copy smaldata.inc smodel\smalhuge.inc
X
X#################################################################
X# create work directory if non-existent, go to it, and #
X# perform the job - compact model #
X#################################################################
X
Xcompact: headers \
X cmodel \
X cmodel\farnear.inc \
X cmodel\smalhuge.inc
X cd cmodel
X -make -f ..\makefile $(MAKEFLAGS) "MODEL=c" $(LIBDIR)\ccurses.lib
X cd ..
X
Xcmodel:
X mkdir cmodel
X
Xcmodel\farnear.inc: nearcall.inc
X copy nearcall.inc cmodel\farnear.inc
X
Xcmodel\smalhuge.inc: hugedata.inc
X copy hugedata.inc cmodel\smalhuge.inc
X
X#################################################################
X# create work directory if non-existent, go to it, and #
X# perform the job - medium model #
X#################################################################
X
Xmedium: headers \
X mmodel \
X mmodel\farnear.inc \
X mmodel\smalhuge.inc
X cd mmodel
X -make -f ..\makefile $(MAKEFLAGS) "MODEL=m" $(LIBDIR)\mcurses.lib
X cd ..
X
Xmmodel:
X mkdir mmodel
X
Xmmodel\farnear.inc: farcall.inc
X copy farcall.inc mmodel\farnear.inc
X
Xmmodel\smalhuge.inc: smaldata.inc
X copy smaldata.inc mmodel\smalhuge.inc
X
X#################################################################
X# create work directory if non-existent, go to it, and #
X# perform the job - large model #
X#################################################################
X
Xlarge: headers \
X lmodel \
X lmodel\farnear.inc \
X lmodel\smalhuge.inc
X cd lmodel
X -make -f ..\makefile $(MAKEFLAGS) "MODEL=l" $(LIBDIR)\lcurses.lib
X cd ..
X
Xlmodel:
X mkdir lmodel
X
Xlmodel\farnear.inc: farcall.inc
X copy farcall.inc lmodel\farnear.inc
X
Xlmodel\smalhuge.inc: hugedata.inc
X copy hugedata.inc lmodel\smalhuge.inc
X
X#################################################################
X# Put together the library in file tmp.lib, then copy it to #
X# the appropriate name for the memory model in question, and #
X# delete the temporary file #
X#################################################################
X
X$(LIBDIR)\$(MODEL)curses.lib: $(OBJS)
X del tmp.lib
X# lib @..\curses.cmd
X tlib @..\curses.lst
X copy tmp.lib $(LIBDIR)\$(MODEL)curses.lib
X del tmp.lib
X
X#################################################################
X# commands and dependencies for individual modules #
X#################################################################
X
Xattrib.obj: ..\attrib.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -oattrib ..\attrib.c
X
Xbeep.obj: ..\beep.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -obeep ..\beep.c
X
Xboxes.obj: ..\boxes.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -oboxes ..\boxes.c
X
Xcharadd.obj: ..\charadd.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -ocharadd ..\charadd.c
X
Xchardel.obj: ..\chardel.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -ochardel ..\chardel.c
X
Xcharget.obj: ..\charget.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -ocharget ..\charget.c
X
Xcharins.obj: ..\charins.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -ocharins ..\charins.c
X
Xcharpick.obj: ..\charpick.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -ocharpick ..\charpick.c
X
Xclrtobot.obj: ..\clrtobot.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -oclrtobot ..\clrtobot.c
X
Xclrtoeol.obj: ..\clrtoeol.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -oclrtoeol ..\clrtoeol.c
X
Xendwin.obj: ..\endwin.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -oendwin ..\endwin.c
X
Xinitscr.obj: ..\initscr.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -oinitscr ..\initscr.c
X
Xlinedel.obj: ..\linedel.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -olinedel ..\linedel.c
X
Xlineins.obj: ..\lineins.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -olineins ..\lineins.c
X
Xlongname.obj: ..\longname.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -olongname ..\longname.c
X
Xmove.obj: ..\move.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -omove ..\move.c
X
Xmvcursor.obj: ..\mvcursor.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -omvcursor ..\mvcursor.c
X
Xnewwin.obj: ..\newwin.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -onewwin ..\newwin.c
X
Xoptions.obj: ..\options.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -ooptions ..\options.c
X
Xoverlay.obj: ..\overlay.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -ooverlay ..\overlay.c
X
Xprntscan.obj: ..\prntscan.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -oprntscan ..\prntscan.c
X
Xrefresh.obj: ..\refresh.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -orefresh ..\refresh.c
X
Xscrreg.obj: ..\scrreg.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -oscrreg ..\scrreg.c
X
Xsetterm.obj: ..\setterm.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -osetterm ..\setterm.c
X
Xstradd.obj: ..\stradd.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -ostradd ..\stradd.c
X
Xstrget.obj: ..\strget.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -ostrget ..\strget.c
X
Xtabsize.obj: ..\tabsize.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -otabsize ..\tabsize.c
X
Xtermmisc.obj: ..\termmisc.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -otermmisc ..\termmisc.c
X
Xunctrl.obj: ..\unctrl.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -ounctrl ..\unctrl.c
X
Xupdate.obj: ..\update.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -oupdate ..\update.c
X
Xwinclear.obj: ..\winclear.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -owinclear ..\winclear.c
X
Xwindel.obj: ..\windel.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -owindel ..\windel.c
X
Xwinerase.obj: ..\winerase.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -owinerase ..\winerase.c
X
Xwinmove.obj: ..\winmove.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -owinmove ..\winmove.c
X
Xwinscrol.obj: ..\winscrol.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -owinscrol ..\winscrol.c
X
Xwintouch.obj: ..\wintouch.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -owintouch ..\wintouch.c
X
Xcursesio.obj: ..\cursesio.asm
X# masm ..\cursesio.asm/mx,cursesio.obj,nul,nul;
X masm ..\cursesio.asm/x,cursesio.obj,nul,nul;
X
Xsetmode.obj: ..\setmode.c ..\curses.h ..\curspriv.h
X $(CC) $(CFLAGS) -m$(MODEL) -c -O -osetmode ..\setmode.c
X
Xgetch.obj: ..\getch.c
X $(CC) $(CFLAGS) -A- -m$(MODEL) -c -O -ogetch ..\getch.c
X
X#################################################################
X# Perform a backup of the files in the directory where the #
X# 'make backup' command was issued - copies all files to the #
X# directory \pcurses on the A: floppy #
X#################################################################
X
Xbackup:
X @echo ***** backup of curses *****
X @echo Insert backup diskette in drive A: and hit any key!
X @pause
X mkdir a:\pcurses
X del a:\pcurses\*.*
X copy *.* a:\pcurses
X
X#################################################################
X# Remove all temporary files and work directories that were #
X# created #
X#################################################################
X
Xclean:
X del smodel\*.*
X del cmodel\*.*
X del mmodel\*.*
X del lmodel\*.*
X rmdir smodel
X rmdir cmodel
X rmdir mmodel
X rmdir lmodel
SHARMARKER
len=`wc -c makefile | sed "s/^ *\([0-9][0-9]*\) .*/\1/"`
if test 10209 -ne $len
then
echo makefile should be 10209, but is $len characters long
fi
fi
echo cursesio.asm '(8978 characters)'
if test -f cursesio.asm
then
echo cursesio.asm already exists - will not overwrite
else
sed 's/^X//' << 'SHARMARKER' > cursesio.asm
X ;TITLE PCcurses BIOS Control Functions for MicroSoft 'C' v.4.0
X TITLE PCcurses BIOS Control Functions for Turbo C 1.5
X NAME CURSESIO
X PAGE 46,132
X ;****************************************************************
X ;* CURSESIO.ASM *
X ;* *
X ;* This file contains 'C' functions for the MicroSoft 'C' com- *
X ;* piler v.4.0. It exercises a number of BIOS video calls, and *
X ;* is intended for inclusion in a curses library package. *
X ;* *
X ;* The two files FARNEAR.INC and SMALHUGE.INC each contain one *
X ;* EQUate. These define the module's memory model. *
X ;* *
X ;****************************************************************
X ;* This version of curses is based on ncurses, a curses version *
X ;* originally written by Pavel Curtis at Cornell University. *
X ;* I have made substantial changes to make it run on IBM PC's, *
X ;* and therefore consider myself free to make it public domain. *
X ;* Bjorn Larsson (...mcvax!enea!infovax!bl) *
X ;****************************************************************
X ;* Author: Bjorn Larsson *
X ;* Revised: *
X ;* 1.0: Release: 870515 *
X ;****************************************************************
X ;* Modified by N. Dean Pentcheff (dean at violet.berkeley.edu) for *
X ;* Turbo C 1.5. Search for "NDP" to see changes. *
X ;* 1/88 *
X ;****************************************************************
X ;
X INCLUDE FARNEAR.INC ;DEFINE FAR OR NEAR CALL SEQUENCE
X INCLUDE SMALHUGE.INC ;DEFINE FAR OR NEAR DATA ACCESS
X ;
XSYSTEM EQU 21H ;SYSTEM CALL
XBRKCHK EQU 33H ;BREAK SET/CHECK FUNCTION CODE
X ;
X if far_call ; NDP 1/88 Turbo C 1.5
XCURSESIO_TEXT SEGMENT BYTE PUBLIC 'CODE' ; NDP 1/88
X ASSUME CS: CURSESIO_TEXT ; NDP 1/88
X else ; NDP 1/88
X_TEXT SEGMENT BYTE PUBLIC 'CODE'
X ASSUME CS: _TEXT
Xendif ; NDP 1/88
X ;
X ;****************************************************************
X ;* Function entry and exit macros, and parameter fetch macro. *
X ;* Used by all functions. *
X ;****************************************************************
X ;
Xc_entry MACRO f_name
X ;
X if far_call
X&f_name proc far
X else
X&f_name proc near
X endif
X push bp
X mov bp,sp
X push di
X push si
X ;
X ENDM
X ;
Xc_exit MACRO f_name
X ;
X pop si
X pop di
X pop bp
X ret
X&f_name endp
X ;
X ENDM
X ;
Xg_parm MACRO reg,p_num
X if far_call
X mov ®,[bp+&p_num*2+4]
X else
X mov ®,[bp+&p_num*2+2]
X endif
X ;
X ENDM
X ;
X PAGE
X ;****************************************************************
X ;* _cursescattr *
X ;* *
X ;* void _cursescattr(chr,attr) *
X ;* *
X ;* Writes char 'chr' with attributes 'attr' to the current cur- *
X ;* sor location. *
X ;****************************************************************
X PUBLIC __cursescattr
X ;
X c_entry __cursescattr
X MOV AH,9
X MOV BH,0 ;USE PAGE 0
X g_parm AL,2 ;GET CHR PARAMETER
X g_parm BL,3 ;GET ATTR PARAMETER
X MOV CX,1 ;PUT 1 CHARACTER
X INT 10H
X c_exit __cursescattr
X ;
X ;****************************************************************
X ;* _cursescursor *
X ;* *
X ;* void _cursescursor(row,column) *
X ;* *
X ;* Sets the cursor position in video page 0. 'row' and 'column' *
X ;* are the cursor address. If 'row' is set to 25, no cursor at *
X ;* all is displayed. *
X ;****************************************************************
X PUBLIC __cursescursor
X ;
X c_entry __cursescursor
X MOV AH,2
X MOV BH,0 ;USE PAGE 0
X g_parm DH,2 ;GET ROW PARAMETER
X g_parm DL,3 ;GET COLUMN PARAMETER
X INT 10H
X c_exit __cursescursor
X ;
X ;****************************************************************
X ;* _cursesgcols *
X ;* *
X ;* int _cursesgcols() *
X ;* *
X ;* Return the current number of columns on the screen. *
X ;****************************************************************
X PUBLIC __cursesgcols
X ;
X c_entry __cursesgcols
X MOV AH,15
X INT 10H
X MOV AL,AH
X XOR AH,AH
X c_exit __cursesgcols
X ;
X ;****************************************************************
X ;* _cursesputc *
X ;* *
X ;* void _cursesputc(chr,colour) *
X ;* *
X ;* Output character 'chr' to screen in tty fashion. If a colour *
X ;* mode is active, the character is written with colour *
X ;* 'colour'. *
X ;****************************************************************
X PUBLIC __cursesputc
X ;
X c_entry __cursesputc
X MOV AH,14
X g_parm AL,1 ;GET CHR PARAMETER
X g_parm BL,2 ;GET COLOUR PARAMETER
X INT 10H
X c_exit __cursesputc
X ;
X ;****************************************************************
X ;* _cursesscroll *
X ;* *
X ;* void _cursesscroll(urow,lcol,lrow,rcol,lines,attr) *
X ;* *
X ;* Scroll a window in the current page up or down. Urow, lcol, *
X ;* lrow,rcol are the window coordinats. lines is the number of *
X ;* lines to scroll. If 0, clears the window, if < 0 scrolls *
X ;* down, > 0 scrolls up. Blanks areas that are left, and sets *
X ;* character attributes to attr. If in a colour graphics mode, *
X ;* fills them with the colour 'attr' instead. *
X ;****************************************************************
X PUBLIC __cursesscroll
X ;
X c_entry __cursesscroll
X g_parm AL,5 ;GET LINES PARAMETER
X MOV AH,6
X TEST AL,80H
X JZ SHORT CS_1
X ;
X MOV AH,7
X NEG AL
X ;
XCS_1: g_parm CH,1 ;GET UROW PARAMETER
X g_parm CL,2 ;GET LCOL PARAMETER
X g_parm DH,3 ;GET LROW PARAMETER
X g_parm DL,4 ;GET RCOL PARAMETER
X g_parm BH,6 ;GET ATTR PARAMETER
X INT 10H
X c_exit __cursesscroll
X ;
X ;****************************************************************
X ;* _cursesgcmode *
X ;* *
X ;* int _cursesgcmode() *
X ;* *
X ;* Return the current cursor type. Bits 8-15 of the return *
X ;* value is the start scan row, and bits 0-7 is the end scan *
X ;* row. *
X ;****************************************************************
X PUBLIC __cursesgcmode
X ;
X c_entry __cursesgcmode
X MOV AH,3
X INT 10H
X MOV AX,CX
X c_exit __cursesgcmode
X ;
X ;****************************************************************
X ;* _cursescmode *
X ;* *
X ;* void _cursescmode(startrow,endrow) *
X ;* *
X ;* Sets the cursor type to begin in scan line startrow and end *
X ;* in scan line endrow. Both values should be 0-31. *
X ;****************************************************************
X PUBLIC __cursescmode
X ;
X c_entry __cursescmode
X MOV AH,1
X g_parm CH,1 ;GET STARTROW PARAMETER
X g_parm CL,2 ;GET ENDROW PARAMETER
X INT 10H
X c_exit __cursescmode
X ;
X ;****************************************************************
X ;* _curseskey *
X ;* *
X ;* int _curseskey() *
X ;* *
X ;* Returns the next key code struck at the keyboard. If the low *
X ;* 8 bits are non-0, the uper bits contain the extended cha- *
X ;* racter code. If bit 0-7 are non-zero, the upper bits = 0. *
X ;****************************************************************
X PUBLIC __curseskey
X ;
X c_entry __curseskey
X MOV AH,0
X INT 16H
X CMP AL,0
X JZ SHORT EXTKEY
X AND AX,0FFH
XEXTKEY:
X c_exit __curseskey
X ;
X ;****************************************************************
X ;* _curseskeytst *
X ;* *
X ;* int _curseskeytst() *
X ;* *
X ;* Returns 1 if a character is available, 0 otherwise. *
X ;****************************************************************
X ;* NDP 1/88 *
X ;* The change below bothers me. The original should be correct *
X ;* according to the documentation in Peter Norton's Programmer's*
X ;* Guide to the IBM PC. The modification agrees with Norton's *
X ;* example (which contradicts his description), and seems to *
X ;* work here. This has been tested on a Phoenix-BIOS AT clone *
X ;* and a Zenith Z-151 PC clone (Zenith BIOS). *
X ;****************************************************************
X PUBLIC __curseskeytst
X ;
X c_entry __curseskeytst
X MOV AH,1
X INT 16H
X JNZ SHORT TST1 ; NDP 1/88 Changed from JZ to JNZ
X MOV AX,0
X JMP SHORT EXTTST
XTST1: MOV AX,1
XEXTTST:
X c_exit __curseskeytst
X ;
X ;****************************************************************
X ;* _cursesgcb *
X ;* *
X ;* int _cursesgcb() *
X ;* *
X ;* Returns 1 if MSDOS BREAK CHECK is on, otherwise 0. *
X ;****************************************************************
X PUBLIC __cursesgcb
X ;
X c_entry __cursesgcb
X MOV AX,BRKCHK*256+0
X INT SYSTEM
X XOR AH,AH
X MOV AL,DL
X c_exit __cursesgcb
X ;
X ;****************************************************************
X ;* _cursesscb *
X ;* *
X ;* void _cursesscb(setting) *
X ;* *
X ;* Sets MSDOS BREAK CHECK according to 'setting'. *
X ;****************************************************************
X PUBLIC __cursesscb
X ;
X c_entry __cursesscb
X MOV AX,BRKCHK*256+1
X g_parm DL,1
X AND DL,DL
X JZ SHORT SCB1
X MOV DL,1
XSCB1: INT SYSTEM
X c_exit __cursesscb
X ;
X if far_call ; NDP 1/88 Turbo C 1.5
XCURSESIO_TEXT ENDS ; NDP 1/88
X else ; NDP 1/88
X_TEXT ENDS
X endif ; NDP 1/88
X if1
X %OUT Pass 1 Completed
X else
X %OUT Assembly Completed
X endif
X END
SHARMARKER
len=`wc -c cursesio.asm | sed "s/^ *\([0-9][0-9]*\) .*/\1/"`
if test 8978 -ne $len
then
echo cursesio.asm should be 8978, but is $len characters long
fi
fi
echo charget.c '(8573 characters)'
if test -f charget.c
then
echo charget.c already exists - will not overwrite
else
sed 's/^X//' << 'SHARMARKER' > charget.c
X/****************************************************************/
X/* Getch() routines of the PCcurses package */
X/* */
X/****************************************************************/
X/* This version of curses is based on ncurses, a curses version */
X/* originally written by Pavel Curtis at Cornell University. */
X/* I have made substantial changes to make it run on IBM PC's, */
X/* and therefore consider myself free to make it public domain. */
X/* Bjorn Larsson (...mcvax!enea!infovax!bl) */
X/****************************************************************/
X/* 1.0: Release: 870515 */
X/****************************************************************/
X
X#include <curses.h>
X#include <curspriv.h>
X
X/* NDP 1/88 Moved undef from just sysgetch() to here so it covers
X flushinp(). This caused raw() call to crash */
X#undef getch /* we use MSC getch() below */
X
Xstatic int rawgetch(); /* get raw char via BIOS */
Xstatic int sysgetch(); /* get char via system */
Xstatic int validchar(); /* keypad xlate and char check */
X
Xstatic int buffer[_INBUFSIZ]; /* character buffer */
Xstatic int pindex = 0; /* putter index */
Xstatic int gindex = 1; /* getter index */
Xstatic WINDOW *w; /* to reduce stack usage */
Xstatic int ungind = 0; /* wungetch() push index */
Xstatic int ungch[NUNGETCH]; /* array of ungotten chars */
X
X/* table for key code translation of function keys in keypad mode */
X/* These values are for strict IBM keyboard compatibles only */
X
Xstatic int kptab[] =
X {
X 0x3b,KEY_F(1), 0x3c,KEY_F(2), 0x3d,KEY_F(3), 0x3e,KEY_F(4),
X 0x3f,KEY_F(5), 0x40,KEY_F(6), 0x41,KEY_F(7), 0x42,KEY_F(8),
X 0x43,KEY_F(9), 0x44,KEY_F(10), 0x47,KEY_HOME, 0x48,KEY_UP,
X 0x49,KEY_PPAGE, 0x4b,KEY_LEFT, 0x4d,KEY_RIGHT, 0x4f,KEY_LL,
X 0x50,KEY_DOWN, 0x51,KEY_NPAGE, 0x52,KEY_IC, 0x53,KEY_DC,
X 0x54,KEY_F(11), 0x55,KEY_F(12), 0x56,KEY_F(13), 0x57,KEY_F(14),
X 0x58,KEY_F(15), 0x59,KEY_F(16), 0x5a,KEY_F(17), 0x5b,KEY_F(18),
X 0x5c,KEY_F(19), 0x5d,KEY_F(20), 0x5e,KEY_F(21), 0x5f,KEY_F(22),
X 0x60,KEY_F(23), 0x61,KEY_F(24), 0x62,KEY_F(25), 0x63,KEY_F(26),
X 0x64,KEY_F(27), 0x65,KEY_F(28), 0x66,KEY_F(29), 0x67,KEY_F(30),
X 0x73,KEY_LEFT, 0x74,KEY_RIGHT, 0x75,KEY_LL, 0x76,KEY_NPAGE,
X 0x77,KEY_HOME, 0x84,KEY_PPAGE, 0x100, -1
X };
X
X
X/****************************************************************/
X/* Wgetch(win) gets a character from the terminal, in normal, */
X/* cbreak or raw mode, optionally echoing to window 'win'. */
X/****************************************************************/
X
Xint wgetch(win)
X WINDOW *win;
X {
X int key;
X int cbr;
X
X if (ungind) /* if ungotten char exists */
X return(ungch[--ungind]); /* remove and return it */
X
X if ((!_cursvar.raw) && (!_cursvar.cbreak)) /* if normal */
X if (gindex < pindex) /* and data in buffer */
X return(buffer[gindex++]);
X
X w = win; /* static for speed & stack */
X pindex = 0; /* prepare to buffer data */
X gindex = 0;
X while(1) /* loop for any buffering */
X {
X if (_cursvar.raw) /* get a raw character */
X key = rawgetch();
X else /* get a system character */
X {
X cbr = _cursesgcb(); /* get ^BREAK status */
X _cursesscb(_cursvar.orgcbr); /* if break return proper */
X key = sysgetch();
X _cursesscb(cbr); /* restore as it was */
X }
X if (w->_nodelay && (key == -1)) /* if nodelay and no char */
X return(-1);
X if ((key == '\r') && _cursvar.autocr && !_cursvar.raw) /* translate cr */
X key = '\n';
X if (_cursvar.echo && (key < 0x100)) /* check if echo */
X {
X waddch(w,key);
X wrefresh(w);
X }
X if (_cursvar.raw || _cursvar.cbreak) /* if no buffering */
X return(key);
X if (pindex < _INBUFSIZ-2) /* if no overflow, */
X buffer[pindex++] = key; /* put data in buffer */
X if ((key == '\n') || (key == '\r')) /* if we got a line */
X return(buffer[gindex++]);
X } /* while */
X } /* wgetch */
X
X/****************************************************************/
X/* Flushinp() kills any pending input characters. */
X/****************************************************************/
X
Xvoid flushinp()
X {
X while(_curseskeytst()) /* empty keyboard buffer */
X _curseskey();
X while(kbhit()) /* empty system's buffers */
X getch();
X gindex = 1; /* set indices to kill buffer */
X pindex = 0;
X ungind = 0; /* clear ungch array */
X } /* flushinp */
X
X/****************************************************************/
X/* Wungetch() pushes back it's argument on the input stream. If */
X/* OK, returns 1, otherwise returns 0. */
X/****************************************************************/
X
Xint wungetch(ch)
X int ch;
X {
X if (ungind >= NUNGETCH) /* pushback stack full */
X return(0);
X ungch[ungind++] = ch;
X return(1);
X } /* wungetch() */
X
X/****************************************************************/
X/* Mvgetch() first moves the stdscr cursor to a new location, */
X/* then does a wgetch() on stdscr. */
X/****************************************************************/
X
Xint mvgetch(y,x)
X int y;
X int x;
X {
X wmove(stdscr,y,x);
X wgetch(stdscr);
X } /* mvgetch */
X
X/****************************************************************/
X/* Mvwgetch() first moves the cursor of window 'win' to a new */
X/* location, then does a wgetch() in 'win'. */
X/****************************************************************/
X
Xint mvwgetch(win,y,x)
X WINDOW *win;
X int y;
X int x;
X {
X wmove(win,y,x);
X wgetch(win);
X } /* mvwgetch */
X
X/****************************************************************/
X/* rawgetch() gets a character without any interpretation at */
X/* all and returns it. If keypad mode is active for the desig- */
X/* nated window, function key translation will be performed. */
X/* Otherwise, function keys are ignored.If nodelay mode is */
X/* active in the window, then rawgetch() returns -1 if no cha- */
X/* racter is available. */
X/****************************************************************/
X
Xstatic int rawgetch()
X {
X int c;
X
X if (w->_nodelay && !_curseskeytst())
X return(-1);
X while(1) /* loop to get valid char */
X {
X if ((c = validchar(_curseskey())) >= 0)
X return(c);
X } /* while */
X } /* rawgetch */
X
X/****************************************************************/
X/* Sysgetch() gets a character with normal ^S, ^Q, ^P and ^C */
X/* interpretation and returns it. If keypad mode is active for */
X/* the designated window, function key translation will be per- */
X/* formed. Otherwise, function keys are ignored. If nodelay */
X/* mode is active in the window, then sysgetch() returns -1 if */
X/* no character is available. */
X/****************************************************************/
X
Xstatic int sysgetch()
X {
X int c;
X
X if (w->_nodelay && !kbhit())
X return(-1);
X while(1)
X {
X c = getch();
X if (c) /* if not a function key */
X return(c & 0xff); /* avoids sign-extending */
X c = getch();
X if ((c = validchar(c << 8)) >= 0) /* get & check next char */
X return(c);
X } /* while */
X } /* sysgetch */
X
X/****************************************************************/
X/* Validchar(c) chacks that 'c' is a valid character, and */
X/* if so returns it, with function key translation applied if */
X/* 'w' has keypad mode set. If char is invalid, returns -1. */
X/****************************************************************/
X
Xstatic int validchar(c)
X int c;
X {
X int *scanp;
X
X if (c == 0x0300) /* special case, ^@ = NULL */
X return(0);
X if (!(c & 0xff00)) /* normal character */
X return(c);
X if (!(w->_keypad)) /* skip f keys if not keypad mode */
X return(-1);
X c = (c >> 8) & 0xff;
X scanp = kptab;
X while(*scanp <= c) /* search for value */
X { /* (stops on table entry 0x100) */
X if (*scanp++ == c)
X return(*scanp); /* found, return it */
X scanp++;
X }
X return(-1); /* not found, invalid */
X } /* validchar */
X
X/****************************************************************/
X/* _cursespendch() returns 1 if there is any character avai- */
X/* lable, and 0 if there is none. this is not for programmer */
X/* usage, but for the updatew routines. */
X/****************************************************************/
X
Xbool _cursespendch()
X {
X if (ungind) /* ungotten char */
X return(TRUE);
X if (pindex > gindex) /* buffered char */
X return(TRUE);
X if (_cursvar.raw) /* raw mode test */
X return(_curseskeytst());
X return(kbhit()); /* normal mode test */
X } /* _cursespendch */
SHARMARKER
len=`wc -c charget.c | sed "s/^ *\([0-9][0-9]*\) .*/\1/"`
if test 8573 -ne $len
then
echo charget.c should be 8573, but is $len characters long
fi
fi
echo clrtobot.c '(3150 characters)'
if test -f clrtobot.c
then
echo clrtobot.c already exists - will not overwrite
else
sed 's/^X//' << 'SHARMARKER' > clrtobot.c
X/****************************************************************/
X/* Wclrtobot() routine of the PCcurses package */
X/* */
X/****************************************************************/
X/* This version of curses is based on ncurses, a curses version */
X/* originally written by Pavel Curtis at Cornell University. */
X/* I have made substantial changes to make it run on IBM PC's, */
X/* and therefore consider myself free to make it public domain. */
X/* Bjorn Larsson (...mcvax!enea!infovax!bl) */
X/****************************************************************/
X/* 1.0: Release: 870515 */
X/* NDP 2/88 Fixed "clrbot()" to be "clrtobot()" */
X/****************************************************************/
X
X#include <curses.h>
X#include <curspriv.h>
X
X/****************************************************************/
X/* Wclrtobot() fills the right half of the cursor line of */
X/* window 'win', and all lines below it with blanks. */
X/****************************************************************/
X
Xint wclrtobot(win)
X WINDOW *win;
X {
X int y;
X int minx;
X static int startx;
X static int *ptr;
X static int *end;
X static int *maxx;
X static int blank;
X
X blank = ' ' | (win->_attrs & ATR_MSK);
X startx = win->_curx;
X for (y = win->_cury; y <= win->_regbottom; y++)
X {
X minx = _NO_CHANGE;
X end = &win->_line[y][win->_maxx];
X for (ptr = &win->_line[y][startx]; ptr <= end; ptr++)
X {
X if (*ptr != blank)
X {
X maxx = ptr;
X if (minx == _NO_CHANGE)
X minx = ptr - win->_line[y];
X *ptr = blank;
X } /* if */
X } /* for */
X if (minx != _NO_CHANGE)
X {
X if ((win->_minchng[y] > minx) || (win->_minchng[y] == _NO_CHANGE))
X win->_minchng[y] = minx;
X if (win->_maxchng[y] < maxx - win->_line[y])
X win->_maxchng[y] = maxx - win->_line[y];
X } /* if */
X startx = 0;
X } /* for */
X return(OK);
X } /* wclrtobot */
X
X/****************************************************************/
X/* Clrtobot() fills the right half of the cursor line of */
X/* stdscr, and all lines below it with blanks. */
X/****************************************************************/
X
Xint clrtobot() /* NDP 2/88 Used to be clrbot() */
X {
X return(wclrtobot(stdscr));
X } /* clrtobot */
X
X/****************************************************************/
X/* Mvclrtobot() moves the cursor to a new position in stdscr */
X/* and fills the right half of the cursor line, and all lines */
X/* below it with blanks. */
X/****************************************************************/
X
Xint mvclrtobot(y,x)
X int y;
X int x;
X {
X if (wmove(stdscr,y,x) == ERR)
X return(ERR);
X return(wclrtobot(stdscr));
X } /* mvclrtobot */
X
X/****************************************************************/
X/* Mvwclrtobot() moves the cursor to a new position in window */
X/* 'win', and fills the right half of the cursor line, and all */
X/* lines below it with blanks. */
X/****************************************************************/
X
Xint mvwclrtobot(win,y,x)
X WINDOW *win;
X int y;
X int x;
X {
X if (wmove(win,y,x) == ERR)
X return(ERR);
X return(wclrtobot(win));
X } /* mvwclrtobot */
SHARMARKER
len=`wc -c clrtobot.c | sed "s/^ *\([0-9][0-9]*\) .*/\1/"`
if test 3150 -ne $len
then
echo clrtobot.c should be 3150, but is $len characters long
fi
fi
echo curses.cmd '(615 characters)'
if test -f curses.cmd
then
echo curses.cmd already exists - will not overwrite
else
sed 's/^X//' << 'SHARMARKER' > curses.cmd
Xtmp
Xy
Xattrib.obj &
X+beep.obj &
X+boxes.obj &
X+charadd.obj &
X+chardel.obj &
X+charget.obj &
X+charins.obj &
X+charpick.obj &
X+clrtobot.obj &
X+clrtoeol.obj &
X+cursesio.obj &
X+endwin.obj &
X+initscr.obj &
X+linedel.obj &
X+lineins.obj &
X+longname.obj &
X+move.obj &
X+mvcursor &
X+newwin.obj &
X+options.obj &
X+overlay.obj &
X+prntscan.obj &
X+refresh.obj &
X+scrreg.obj &
X+setterm.obj &
X+stradd.obj &
X+strget.obj &
X+tabsize.obj &
X+termmisc.obj &
X+unctrl.obj &
X+update.obj &
X+winclear.obj &
X+windel.obj &
X+winerase.obj &
X+winmove.obj &
X+winscrol.obj &
X+wintouch.obj &
X+setmode.obj
Xnul
SHARMARKER
len=`wc -c curses.cmd | sed "s/^ *\([0-9][0-9]*\) .*/\1/"`
if test 615 -ne $len
then
echo curses.cmd should be 615, but is $len characters long
fi
fi
echo curses.lst '(636 characters)'
if test -f curses.lst
then
echo curses.lst already exists - will not overwrite
else
sed 's/^X//' << 'SHARMARKER' > curses.lst
Xtmp &
X+attrib.obj &
X+beep.obj &
X+boxes.obj &
X+charadd.obj &
X+chardel.obj &
X+charget.obj &
X+charins.obj &
X+charpick.obj &
X+clrtobot.obj &
X+clrtoeol.obj &
X+cursesio.obj &
X+endwin.obj &
X+initscr.obj &
X+linedel.obj &
X+lineins.obj &
X+longname.obj &
X+move.obj &
X+mvcursor &
X+newwin.obj &
X+options.obj &
X+overlay.obj &
X+prntscan.obj &
X+refresh.obj &
X+scrreg.obj &
X+setterm.obj &
X+stradd.obj &
X+strget.obj &
X+tabsize.obj &
X+termmisc.obj &
X+unctrl.obj &
X+update.obj &
X+winclear.obj &
X+windel.obj &
X+winerase.obj &
X+winmove.obj &
X+winscrol.obj &
X+wintouch.obj &
X+setmode &
X+getch,
Xnul
SHARMARKER
len=`wc -c curses.lst | sed "s/^ *\([0-9][0-9]*\) .*/\1/"`
if test 636 -ne $len
then
echo curses.lst should be 636, but is $len characters long
fi
fi
echo curspriv.h '(3386 characters)'
if test -f curspriv.h
then
echo curspriv.h already exists - will not overwrite
else
sed 's/^X//' << 'SHARMARKER' > curspriv.h
X/****************************************************************/
X/* CURSPRIV.H */
X/* Header file for definitions and declarations for the */
X/* PCcurses package. These definitions should not be gene- */
X/* rally accessible to programmers. */
X/****************************************************************/
X/* This version of curses is based on ncurses, a curses version */
X/* originally written by Pavel Curtis at Cornell University. */
X/* I have made substantial changes to make it run on IBM PC's, */
X/* and therefore consider myself free to make it public domain. */
X/* Bjorn Larsson (...mcvax!enea!infovax!bl) */
X/****************************************************************/
X/* 1.0: Release: 870515 */
X/****************************************************************/
X
X/* window properties */
X
X#define _SUBWIN 1 /* window is a subwindow */
X#define _ENDLINE 2 /* last winline is last screen line */
X#define _FULLWIN 4 /* window fills screen */
X#define _SCROLLWIN 8 /* window lwr rgt is screen lwr rgt */
X
X/* Miscellaneous */
X
X#define _INBUFSIZ 200 /* size of terminal input buffer */
X#define _NO_CHANGE -1 /* flags line edge unchanged */
X
X#define _BREAKCHAR 0x03 /* ^C character */
X#define _DCCHAR 0x08 /* Delete Char char (BS) */
X#define _DLCHAR 0x1b /* Delete Line char (ESC) */
X#define _GOCHAR 0x11 /* ^Q character */
X#define _PRINTCHAR 0x10 /* ^P character */
X#define _STOPCHAR 0x13 /* ^S character */
X#define NUNGETCH 10 /* max # chars to ungetch() */
X
X/* character mask definitions */
X
X#define CHR_MSK ((int) 0x00ff) /* ASCIIZ character mask */
X#define ATR_MSK ((int) 0xff00) /* attribute mask */
X#define ATR_NRM ((int) 0x0000) /* no special attributes */
X
X/* type declarations */
X
Xtypedef struct
X {
X WINDOW *tmpwin; /* window used for updates */
X int cursrow; /* position of physical cursor */
X int curscol;
X bool autocr; /* if lf -> crlf */
X bool cbreak; /* if terminal unbuffered */
X bool echo; /* if terminal echo */
X bool raw; /* if terminal raw mode */
X bool refrbrk; /* if premature refresh brk allowed */
X bool orgcbr; /* original MSDOS ^-BREAK setting */
X } cursv;
X
X/* External variables */
X
Xextern cursv _cursvar; /* curses variables */
X
X/* 'C' standard library function declarations */
X
Xextern char *calloc();
Xextern char *malloc();
Xextern void free();
Xextern int sprintf();
Xextern int sscanf();
X
X/* curses internal functions, not to be used by programmers */
X
X/* For those of us with braindamaged assemblers that only
X * produce upper case public identifiers...
X */
X#ifdef UCMASM
X#define _cursescattr _CURSESCATTR
X#define _cursescmode _CURSESCMODE
X#define _cursescursor _CURSESCURSOR
X#define _cursesgcb _CURSESGCB
X#define _cursesgcmode _CURSESGCMODE
X#define _cursesgcols _CURSESGCOLS
X#define _curseskey _CURSESKEY
X#define _cursesscroll _CURSESSCROLL
X#define _curseskeytst _CURSESKEYTST
X#define _cursesputc _CURSESPUTC
X#define _cursesscb _CURSESSCB
X#endif
X
Xextern void _cursescattr();
Xextern void _cursescmode();
Xextern void _cursescursor();
Xextern int _cursesgcb();
Xextern int _cursesgcmode();
Xextern int _cursesgcols();
Xextern int _curseskey();
Xextern int _curseskeytst();
Xextern void _cursesscroll(); /* NDP 1/88 Was missing. */
Xextern bool _cursespendch(); /* NDP Note: not asm, in charget() */
Xextern void _cursesputc();
Xextern void _cursesscb();
SHARMARKER
len=`wc -c curspriv.h | sed "s/^ *\([0-9][0-9]*\) .*/\1/"`
if test 3386 -ne $len
then
echo curspriv.h should be 3386, but is $len characters long
fi
fi
echo getch.c '(2088 characters)'
if test -f getch.c
then
echo getch.c already exists - will not overwrite
else
sed 's/^X//' << 'SHARMARKER' > getch.c
X/*
X * Replacement for Turbo C getch().
X * Turbo C getch() uses BDOS function 7, which doesn't respond to
X * ^C or ^Break, whereas we would like it to do so.
X * This uses BDOS function 7, which does not respond to ^C/^Break, but
X * simulates BDOS function 8, which _does_ respond to ^C/^Break. The
X * simulation is done to avoid echoing the annoying '^C' to the screen.
X * Must be compiled with tc Option/Compiler/Source/Ansionly OFF, to allow
X * Turbo's PC-specific stuff (with tcc, compile with flag: '-A-').
X * Compile with TESTPROG #defined to see a demo.
X * When linked, the linker may warn you that symbol _getch is duplicated.
X * As long as this module is linked in before the libraries are searched,
X * this version of getch() will override the library version.
X * N. Dean Pentcheff 1/88 dean at violet.berkeley.edu
X * Arguments: none
X * Returns: (int) The code corresponding to the keypress, or '0' to indicate
X * that a special key was pressed (another getch() call will return
X * the special code for that special key). Note that the top byte
X * is always cleared to 0.
X */
X
X#include <dos.h>
X#define KEYIN_NOECHO 7 /* DOS function: noecho input, ignore ^C */
X#define BRKINT 35 /* BIOS interrupt for ^C/^Break action */
X#define BREAK 3 /* ASCII ^C and ^Break */
X
Xint
Xgetch(void)
X{
X register int ch;
X union REGS regs;
X
X do {
X ch = 0xff & bdos(KEYIN_NOECHO, 0, 0); /* mask high byte */
X if (ch == BREAK) /* if ^C or ^Break */
X int86(BRKINT, ®s, ®s); /* simulate ^Break */
X } while (ch == BREAK); /* until not ^Break */
X return(ch);
X}
X
X
X#ifdef TESTPROG
X#include <stdio.h>
Xvoid
Xmain(void)
X{
X register int ch;
X register int count;
X int handler(void); /* ^Break handler */
X
X printf("Press keys or Break characters. Type 'x' to quit\n");
X ctrlbrk(handler);
X count = 0;
X while ((ch = getch()) != 'x') {
X printf("%c(%03d) ", ch, ch);
X if (++count % 10 == 0)
X putchar('\n');
X }
X}
X
Xint
Xhandler(void)
X{
X putchar(7);
X printf("\nInterrupt: \'x\' to quit\n");
X return(1);
X}
X#endif TESTPROG
SHARMARKER
len=`wc -c getch.c | sed "s/^ *\([0-9][0-9]*\) .*/\1/"`
if test 2088 -ne $len
then
echo getch.c should be 2088, but is $len characters long
fi
fi
echo setmode.c '(2111 characters)'
if test -f setmode.c
then
echo setmode.c already exists - will not overwrite
else
sed 's/^X//' << 'SHARMARKER' > setmode.c
X/*
X * setmode.c
X * PC Curses versions of:
X * reset_prog_mode();
X * reset_shell_mode();
X * set_prog_mode();
X * set_shell_mode();
X * N. Dean Pentcheff (dean at violet.berkeley.edu)
X * 1/88
X */
X
X#include <curses.h>
X#include <curspriv.h>
X
Xstruct cttyset {
X bool been_set;
X bool oautocr;
X bool ocbreak;
X bool oecho;
X bool oraw;
X};
X
Xstatic struct cttyset sh_tty = {FALSE}; /* tty modes for shell_mode */
Xstatic struct cttyset pr_tty = {FALSE}; /* tty modes for prog_mode */
X
X/****************************************************************/
X/* Def_prog_mode saves the current tty status, to be recalled */
X/* later by reset_prog_mode */
X/****************************************************************/
X
Xvoid def_prog_mode()
X{
X pr_tty.been_set = TRUE;
X pr_tty.oautocr = _cursvar.autocr;
X pr_tty.ocbreak = _cursvar.cbreak;
X pr_tty.oecho = _cursvar.echo;
X pr_tty.oraw = _cursvar.raw;
X} /* def_prog_mode */
X
X
X/****************************************************************/
X/* Reset_prog_mode resets tty modes to the values saved in a */
X/* call to def_prog_mode. */
X/****************************************************************/
Xvoid reset_prog_mode()
X{
X if (pr_tty.been_set == TRUE) {
X _cursvar.autocr = pr_tty.oautocr;
X _cursvar.cbreak = pr_tty.ocbreak;
X _cursvar.echo = pr_tty.oecho;
X _cursvar.raw = pr_tty.oraw;
X }
X}
X
X/****************************************************************/
X/* Def_shell_mode saves the tty status, to be recalled by */
X/* reset_shell_mode. A noop in PC Curses */
X/****************************************************************/
Xvoid def_shell_mode()
X{
X return;
X}
X
X/****************************************************************/
X/* Reset_shell_mode resets the tty status to the status it had */
X/* before curses began. */
X/****************************************************************/
Xvoid reset_shell_mode()
X{
X _cursvar.autocr = TRUE;
X _cursvar.cbreak = FALSE;
X _cursvar.echo = TRUE;
X _cursvar.raw = FALSE;
X}
SHARMARKER
len=`wc -c setmode.c | sed "s/^ *\([0-9][0-9]*\) .*/\1/"`
if test 2111 -ne $len
then
echo setmode.c should be 2111, but is $len characters long
fi
fi
echo xlist '(455 characters)'
if test -f xlist
then
echo xlist already exists - will not overwrite
else
sed 's/^X//' << 'SHARMARKER' > xlist
X*ATTRIB &
X*BEEP &
X*BOXES &
X*CHARADD &
X*CHARDEL &
X*CHARGET &
X*CHARINS &
X*CHARPICK &
X*CLRTOBOT &
X*CLRTOEOL &
X*CURSESIO &
X*ENDWIN &
X*INITSCR &
X*LINEDEL &
X*LINEINS &
X*LONGNAME &
X*MOVE &
X*MVCURSOR &
X*NEWWIN &
X*OPTIONS &
X*OVERLAY &
X*PRNTSCAN &
X*REFRESH &
X*SCRREG &
X*SETMODE &
X*SETTERM &
X*STRADD &
X*STRGET &
X*TABSIZE &
X*TERMMISC &
X*UNCTRL &
X*UPDATE &
X*WINCLEAR &
X*WINDEL &
X*WINERASE &
X*WINMOVE &
X*WINSCROL &
X*WINTOUCH
SHARMARKER
len=`wc -c xlist | sed "s/^ *\([0-9][0-9]*\) .*/\1/"`
if test 455 -ne $len
then
echo xlist should be 455, but is $len characters long
fi
fi
echo shar: done
: End of Shell Archive. Created Wed Feb 17 21:51:25 PST 1988
-----------------
Dean Pentcheff (dean at violet.berkeley.edu)
-----------------
"A university is a place where people pay high prices for goods which they then
proceed to leave on the counter when they go out of the store." Loren Eiseley
More information about the Comp.sources.bugs
mailing list