home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / f2c / f77lib / s_stop.c < prev    next >
C/C++ Source or Header  |  1999-12-18  |  489b  |  34 lines
  1. #include "stdio.h"
  2. #include "f2c.h"
  3.  
  4. #ifdef KR_headers
  5. extern void f_exit();
  6. VOID s_stop(s, n) char *s; ftnlen n;
  7. #else
  8. #undef abs
  9. #include "stdlib.h"
  10. #ifdef __cplusplus
  11. extern "C" void f_exit(void);
  12. #else
  13. extern void f_exit(void);
  14. #endif
  15. void s_stop(char *s, ftnlen n)
  16. #endif
  17. {
  18. int i;
  19.  
  20. if(n > 0)
  21.     {
  22.     fprintf(stderr, "STOP ");
  23.     for(i = 0; i<n ; ++i)
  24. #ifdef _AMIGA
  25.         fputc(*s++, stderr);
  26. #else
  27.         putc(*s++, stderr);
  28. #endif
  29.     fprintf(stderr, " statement executed\n");
  30.     }
  31. f_exit();
  32. exit(0);
  33. }
  34.