4.3BSD - /usr/src/usr.lib/libF77/s_stop.c

   1: /*
   2:  * Copyright (c) 1980 Regents of the University of California.
   3:  * All rights reserved.  The Berkeley software License Agreement
   4:  * specifies the terms and conditions for redistribution.
   5:  *
   6:  *	@(#)s_stop.c	5.1	6/7/85
   7:  */
   8: 
   9: #include <stdio.h>
  10: 
  11: s_stop(s, n)
  12: char *s;
  13: long int n;
  14: {
  15: int i;
  16: 
  17: if(n > 0)
  18:     {
  19:     fprintf(stderr, "STOP: ");
  20:     for(i = 0; i<n ; i++)
  21:         putc(*s++, stderr);
  22:     putc('\n', stderr);
  23:     }
  24: f_exit();
  25: _cleanup();
  26: exit(0);
  27: }

Defined functions