Return to io.c CVS log

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

researchv10 Norman

#include "common.h"
#define MAXINTONLINE 10
static int intcnt, intonline, firstint;

oreset()
{
	intcnt = 0;
	intonline = 0;
	firstint = 1;
}

ointcnt() { return(intcnt); }

oputint(i)
{
	if(!firstint) putc(',', outfile);
	else firstint = 0;
	fprintf(outfile, "%d", i);
	intonline++;
	intcnt++;
	if(intonline >= MAXINTONLINE) { putc('\n', outfile); intonline = 0; }
}

oputoct(i)
{
	if(!firstint) putc(',', outfile);
	else firstint = 0;
	fprintf(outfile, "0%o", i);
	intonline++;
	intcnt++;
	if(intonline >= MAXINTONLINE) { putc('\n', outfile); intonline = 0; }
}

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