1*36531Smckusick /* Copyright (c) 1989 Regents of the University of California */ 2*36531Smckusick 3*36531Smckusick static char sccsid[] = "@(#)VWRITEF.c 1.1 01/09/89"; 4*36531Smckusick 5*36531Smckusick #include "h00vars.h" 6*36531Smckusick 7*36531Smckusick #ifdef notdef 8*36531Smckusick #include <stdarg.h> 9*36531Smckusick #else 10*36531Smckusick typedef char *va_list; 11*36531Smckusick #endif 12*36531Smckusick 13*36531Smckusick VWRITEF(curfile, file, format, args) 14*36531Smckusick 15*36531Smckusick register struct iorec *curfile; 16*36531Smckusick FILE *file; 17*36531Smckusick char *format; 18*36531Smckusick va_list args; 19*36531Smckusick { 20*36531Smckusick 21*36531Smckusick if (curfile->funit & FREAD) { 22*36531Smckusick ERROR("%s: Attempt to write, but open for reading\n", 23*36531Smckusick curfile->pfname); 24*36531Smckusick return; 25*36531Smckusick } 26*36531Smckusick vfprintf(file, format, args); 27*36531Smckusick if (ferror(curfile->fbuf)) { 28*36531Smckusick PERROR("Could not write to ", curfile->pfname); 29*36531Smckusick return; 30*36531Smckusick } 31*36531Smckusick } 32