File:  [Research Unix] / researchv10no / cmd / basic / bite / src / clear.c
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 17:21:35 2018 UTC (8 years, 1 month ago) by root
Branches: belllabs, MAIN
CVS tags: researchv10, HEAD
researchv10 Norman

/* Copyright Bell Telephone Laboratories Whippany, N.J.

 *	***********************************
 *	***********************************
 *	****** CLEAR THE PAGE INDEX *******
 *	*** R. B. Drake WH 8C-005 X4163 ***
 *	**** Fri Aug 24 17:07:40 1979 *****
 *	***********************************
 *	***********************************
 * This routine is used
 * as part of the houskeeping required to keep the page index
 * updated, the page index must sometimes be cleared from the
 * current page up 

*/
/*   "@(#) clear.c:  V 1.1  12/21/80" */
#include "bas.h"
extern int pg;
clear()
{
int i;
	pg = (curptr - txtbuf ) /PGSIZ;
	for(i=pg;i<32;i++)
		index[i].maxlin = 0;
}

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.