[comp.emacs] MicroEMACS 3.9e VMS type-ahead

nev@edison.GE.COM (Niles VanDenburg) (11/30/87)

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