Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!cmcl2!brl-adm!umd5!uvaarpa!virginia!uvacs!edison!nev
From: nev@edison.GE.COM (Niles VanDenburg)
Newsgroups: comp.emacs
Subject: MicroEMACS 3.9e VMS type-ahead
Message-ID: <1244@edison.GE.COM>
Date: Mon, 30-Nov-87 14:12:04 EST
Article-I.D.: edison.1244
Posted: Mon Nov 30 14:12:04 1987
Date-Received: Fri, 4-Dec-87 21:13:20 EST
Organization: General Electric Company, Charlottesville, VA
Lines: 29
Keywords: VMS, MicroEMACS, type-ahead


addition to MicroEMACS 3.9e to give the usual type-ahead capability when 
running under VMS

Add to termio.c after line 493:


#if     VMS
        int     status;
        int     iosb[2];
        int     cnt[2];
	static int count = 0;
	
	if (count == 0) {
	        status = SYS$QIOW(EFN, iochan, IO$_SENSEMODE|IO$M_TYPEAHDCNT,
        	         iosb, 0, 0, cnt, 0, 0, 0, 0, 0);
        	if (status != SS$_NORMAL) {
                	exit(status);
                }
                count = cnt[0] & 0xFFFF;
        } else {
        	--count;
        }
        return (count != 0);
#endif

flames -> hades

Niles VanDenburg   nev@edison.GE.COM