[unix-history] / usr / src / libF77 / s_stop.c

#include <stdio.h>

s_stop(s, n)
char *s;
long int n;
{
int i;

if(n > 0)
	{
	fprintf(stderr, "STOP ");
	for(i = 0; i<n ; ++i)
		putc(*s++, stderr);
	fprintf(stderr, " statement executed\n");
	}
f_exit();
exit(0);
}
Commit	Line	Data
0c9e74ab TL	1	#include <stdio.h>
	2
	3	s_stop(s, n)
	4	char *s;
	5	long int n;
	6	{
	7	int i;
	8
	9	if(n > 0)
	10	{
	11	fprintf(stderr, "STOP ");
	12	for(i = 0; i<n ; ++i)
	13	putc(*s++, stderr);
	14	fprintf(stderr, " statement executed\n");
	15	}
	16	f_exit();
	17	exit(0);
	18	}