pexit.c 685 B

123456789101112131415161718192021222324252627282930313233
  1. /* $Id$ */
  2. /*
  3. * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
  4. *
  5. * This product is part of the Amsterdam Compiler Kit.
  6. *
  7. * Permission to use, sell, duplicate or disclose this software must be
  8. * obtained in writing. Requests for such permissions may be sent to
  9. *
  10. * Dr. Andrew S. Tanenbaum
  11. * Wiskundig Seminarium
  12. * Vrije Universiteit
  13. * Postbox 7161
  14. * 1007 MC Amsterdam
  15. * The Netherlands
  16. *
  17. */
  18. #include <pc_file.h>
  19. extern struct file **_extfl;
  20. extern _wrs();
  21. extern _wrz();
  22. extern _wln();
  23. procexit(name) char *name; {
  24. struct file *f;
  25. f = _extfl[1];
  26. _wrs(5,"exit ",f);
  27. _wrz(name,f);
  28. _wln(f);
  29. }