Return to openpl.c CVS log

Up to [Research Unix] / researchv10no / libplot / libtr

researchv10 Norman

#include "tr.h"
openpl(s) 
char	*s;
{
	register double	t;
	/* CREATE SPACE FOR TROFF */
	t = atof(s);
	if (t <= 0. || t > 1000.) 
		printf("\n.sp\n.ne 6i\n.rs\n.sp 6i\n");
	else 
		printf("\n.sp\n.ne %s\n.rs\n.sp %s\n", s, s);
}

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