1 /*- 2 * Copyright (c) 1980 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.proprietary.c% 6 */ 7 8 #ifndef lint 9 static char sccsid[] = "@(#)s_stop.c 5.2 (Berkeley) 04/12/91"; 10 #endif /* not lint */ 11 12 #include <stdio.h> 13 14 s_stop(s, n) 15 char *s; 16 long int n; 17 { 18 int i; 19 20 if(n > 0) 21 { 22 fprintf(stderr, "STOP: "); 23 for(i = 0; i<n ; i++) 24 putc(*s++, stderr); 25 putc('\n', stderr); 26 } 27 f_exit(); 28 _cleanup(); 29 exit(0); 30 } 31