pcreat.c 918 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. /* Author: J.W. Stevenson */
  19. #include <unistd.h>
  20. #include <pc_file.h>
  21. #include <pc_err.h>
  22. extern _cls();
  23. extern _trp();
  24. /* procedure pcreat(var f:text; s:string); */
  25. pcreat(f,s) struct file *f; char *s; {
  26. _cls(f); /* initializes _curfil */
  27. f->ptr = f->bufadr;
  28. f->flags = WRBIT|EOFBIT|ELNBIT|TXTBIT|MAGIC;
  29. f->fname = s;
  30. f->size = 1;
  31. f->count = PC_BUFLEN;
  32. f->buflen = PC_BUFLEN;
  33. if ((f->ufd = creat(s,0644)) < 0)
  34. _trp(EREWR);
  35. }