Commit | Line | Data |
---|---|---|
c20f7c0e KM |
1 | /* Copyright (c) 1979 Regents of the University of California */ |
2 | ||
44dfd6de | 3 | static char sccsid[] = "@(#)WRITES.c 1.3 %G%"; |
c20f7c0e KM |
4 | |
5 | #include "h00vars.h" | |
6 | #include "h01errs.h" | |
7 | ||
8 | WRITES(curfile, d1, d2, d3, d4) | |
9 | ||
10 | register struct iorec *curfile; | |
492cc5d3 | 11 | FILE *d1; |
44dfd6de | 12 | int d2, d3; |
492cc5d3 | 13 | char *d4; |
c20f7c0e KM |
14 | { |
15 | if (curfile->funit & FREAD) { | |
16 | ERROR(EWRITEIT, curfile->pfname); | |
17 | return; | |
18 | } | |
44dfd6de | 19 | fwrite(d1, d2, d3, d4); |
c20f7c0e KM |
20 | if (ferror(curfile->fbuf)) { |
21 | ERROR(EWRITE, curfile->pfname); | |
22 | return; | |
23 | } | |
24 | } |