wrc.c 767 B

1234567891011121314151617181920212223242526272829303132333435363738394041
  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 _wf();
  20. extern _outcpt();
  21. _wrc(c,f) int c; struct file *f; {
  22. *f->ptr = c;
  23. _wf(f);
  24. _outcpt(f);
  25. }
  26. _wln(f) struct file *f; {
  27. #ifdef CPM
  28. _wrc('\r',f);
  29. #endif
  30. _wrc('\n',f);
  31. f->flags |= ELNBIT;
  32. }
  33. _pag(f) struct file *f; {
  34. _wrc('\014',f);
  35. f->flags |= ELNBIT;
  36. }