1*47940Sbostic /*- 2*47940Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*47940Sbostic * All rights reserved. 422984Skre * 5*47940Sbostic * %sccs.include.proprietary.c% 610545Sdlw */ 710545Sdlw 8*47940Sbostic #ifndef lint 9*47940Sbostic static char sccsid[] = "@(#)s_stop.c 5.2 (Berkeley) 04/12/91"; 10*47940Sbostic #endif /* not lint */ 11*47940Sbostic 1210545Sdlw #include <stdio.h> 1310545Sdlw s_stop(s,n)1410545Sdlws_stop(s, n) 1510545Sdlw char *s; 1610545Sdlw long int n; 1710545Sdlw { 1810545Sdlw int i; 1910545Sdlw 2010545Sdlw if(n > 0) 2110545Sdlw { 2210545Sdlw fprintf(stderr, "STOP: "); 2310545Sdlw for(i = 0; i<n ; i++) 2410545Sdlw putc(*s++, stderr); 2510545Sdlw putc('\n', stderr); 2610545Sdlw } 2710545Sdlw f_exit(); 2810545Sdlw _cleanup(); 2910545Sdlw exit(0); 3010545Sdlw } 31