xref: /csrg-svn/lib/libplot/f77plot/label.c (revision 17633)
1*17633Sjak #ifndef lint
2*17633Sjak static char sccsid[] = "@(#)label.c	1.1 (Berkeley) 01/02/85";
3*17633Sjak #endif
4*17633Sjak label_(s, len)
5*17633Sjak register char *s;
6*17633Sjak long len;
7*17633Sjak {
8*17633Sjak 	char buf[260];
9*17633Sjak 	register char *cp, *cend;
10*17633Sjak 
11*17633Sjak 	cp = buf;
12*17633Sjak 	cend = cp + (len < 255 ? len : 255 );
13*17633Sjak 	while ( cp < cend )
14*17633Sjak 		*cp++ = *s++;
15*17633Sjak 	*cp = 0;
16*17633Sjak 	label( buf );
17*17633Sjak }
18