Commit | Line | Data |
---|---|---|
b5e91f38 KM |
1 | /* Copyright (c) 1979 Regents of the University of California */ |
2 | ||
86997b19 | 3 | static char sccsid[] = "@(#)WRITEF.c 1.4 %G%"; |
b5e91f38 KM |
4 | |
5 | #include "h00vars.h" | |
b5e91f38 | 6 | |
44dfd6de | 7 | WRITEF(curfile, d1, d2, d3, d4, d5, d6, d7, d8) |
b5e91f38 KM |
8 | |
9 | register struct iorec *curfile; | |
492cc5d3 KM |
10 | FILE *d1; |
11 | char *d2; | |
44dfd6de | 12 | int d3, d4, d5, d6, d7, d8; |
b5e91f38 KM |
13 | { |
14 | if (curfile->funit & FREAD) { | |
86997b19 KM |
15 | ERROR("%s: Attempt to write, but open for reading\n", |
16 | curfile->pfname); | |
b5e91f38 KM |
17 | return; |
18 | } | |
44dfd6de | 19 | fprintf(d1, d2, d3, d4, d5, d6, d7, d8); |
b5e91f38 | 20 | if (ferror(curfile->fbuf)) { |
86997b19 | 21 | PERROR("Could not write to ", curfile->pfname); |
b5e91f38 KM |
22 | return; |
23 | } | |
24 | } |