2 % (c) The GRASP/AQUA Project, Glasgow University, 1994
4 \subsection[writeFile.lc]{hPutStr Runtime Support}
12 writeFile(buf, fp, bytes)
18 char *p = (char *) buf;
23 /* Disallow short writes */
24 while ((count = fwrite(p, 1, bytes, (FILE *) fp)) < bytes) {
32 clearerr((FILE *) fp);