Commit | Line | Data |
---|---|---|
9d4cb48c KM |
1 | /* Copyright (c) 1979 Regents of the University of California */ |
2 | ||
86997b19 | 3 | static char sccsid[] = "@(#)PUT.c 1.3 %G%"; |
9d4cb48c KM |
4 | |
5 | #include "h00vars.h" | |
9d4cb48c KM |
6 | |
7 | PUT(curfile) | |
8 | ||
9 | register struct iorec *curfile; | |
10 | { | |
11 | if (curfile->funit & FREAD) { | |
86997b19 KM |
12 | ERROR("%s: Attempt to write, but open for reading\n", |
13 | curfile->pfname); | |
9d4cb48c KM |
14 | return; |
15 | } | |
492cc5d3 | 16 | fwrite(curfile->fileptr, (int)curfile->fsize, 1, curfile->fbuf); |
9d4cb48c | 17 | if (ferror(curfile->fbuf)) { |
86997b19 | 18 | PERROR("Could not write to ", curfile->pfname); |
9d4cb48c KM |
19 | return; |
20 | } | |
21 | } |