1*40865Sbostic /*- 2*40865Sbostic * Copyright (c) 1979 The Regents of the University of California. 3*40865Sbostic * All rights reserved. 4*40865Sbostic * 5*40865Sbostic * %sccs.include.redist.c% 6*40865Sbostic */ 71716Smckusick 8*40865Sbostic #ifndef lint 9*40865Sbostic static char sccsid[] = "@(#)WRITEF.c 1.5 (Berkeley) 04/09/90"; 10*40865Sbostic #endif /* not lint */ 111716Smckusick 121716Smckusick #include "h00vars.h" 131716Smckusick 143168Smckusic WRITEF(curfile, d1, d2, d3, d4, d5, d6, d7, d8) 151716Smckusick 161716Smckusick register struct iorec *curfile; 173040Smckusic FILE *d1; 183040Smckusic char *d2; 193168Smckusic int d3, d4, d5, d6, d7, d8; 201716Smckusick { 211716Smckusick if (curfile->funit & FREAD) { 223869Smckusic ERROR("%s: Attempt to write, but open for reading\n", 233869Smckusic curfile->pfname); 241716Smckusick return; 251716Smckusick } 263168Smckusic fprintf(d1, d2, d3, d4, d5, d6, d7, d8); 271716Smckusick if (ferror(curfile->fbuf)) { 283869Smckusic PERROR("Could not write to ", curfile->pfname); 291716Smckusick return; 301716Smckusick } 311716Smckusick } 32