Return to listman.c CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol

researchv10 Norman

#include <stdio.h>
#define MANUAL "spitv35.man"

main()
{
	register int c, linecnt;
	register FILE *f;

	f = fopen (MANUAL, "r");
	if (f == NULL) {
		perror (MANUAL);
		exit (1);
	}

	linecnt = 0;
	while ((c = getc (f)) != EOF) {
		putchar (c);
		if (c == '\n') {
			linecnt++;
			if (linecnt == 62) {
				linecnt = 0;
				putchar ('\f');
			}
		}
		if (c == '\r')
			getc (f);
	}
}

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