From 55bf170c9d649be7c682614423371ff4c4ba45d6 Mon Sep 17 00:00:00 2001 From: Kirk McKusick Date: Thu, 30 Oct 1980 08:36:21 -0800 Subject: [PATCH] date and time created 80/10/30 00:36:21 by mckusick SCCS-vsn: usr.bin/pascal/libpc/WRITEC.c 1.1 --- usr/src/usr.bin/pascal/libpc/WRITEC.c | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 usr/src/usr.bin/pascal/libpc/WRITEC.c diff --git a/usr/src/usr.bin/pascal/libpc/WRITEC.c b/usr/src/usr.bin/pascal/libpc/WRITEC.c new file mode 100644 index 0000000000..34513611c4 --- /dev/null +++ b/usr/src/usr.bin/pascal/libpc/WRITEC.c @@ -0,0 +1,22 @@ +/* Copyright (c) 1979 Regents of the University of California */ + +static char sccsid[] = "@(#)WRITEC.c 1.1 %G%"; + +#include "h00vars.h" +#include "h01errs.h" + +WRITEC(curfile, d1, d2) + + register struct iorec *curfile; + int d1, d2; +{ + if (curfile->funit & FREAD) { + ERROR(EWRITEIT, curfile->pfname); + return; + } + fputc(d1, d2); + if (ferror(curfile->fbuf)) { + ERROR(EWRITE, curfile->pfname); + return; + } +} -- 2.20.1