From 9f3dad58623762b85bad2279f0bfa23b0f011910 Mon Sep 17 00:00:00 2001 From: Kirk McKusick Date: Fri, 31 Oct 1980 22:45:07 -0800 Subject: [PATCH] date and time created 80/10/31 14:45:07 by mckusick SCCS-vsn: usr.bin/pascal/libpc/APPEND.c 1.1 --- usr/src/usr.bin/pascal/libpc/APPEND.c | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 usr/src/usr.bin/pascal/libpc/APPEND.c diff --git a/usr/src/usr.bin/pascal/libpc/APPEND.c b/usr/src/usr.bin/pascal/libpc/APPEND.c new file mode 100644 index 0000000000..abb00a40c4 --- /dev/null +++ b/usr/src/usr.bin/pascal/libpc/APPEND.c @@ -0,0 +1,22 @@ +/* Copyright (c) 1979 Regents of the University of California */ + +static char sccsid[] = "@(#)APPEND.c 1.1 %G%"; + +#include "h00vars.h" +#include "h01errs.h" + +APPEND(filep) + + register struct iorec *filep; +{ + filep = GETNAME (filep, 0, 0, 0); + filep->fbuf = fopen(filep->fname, "a"); + if (filep->fbuf == NULL) { + ERROR(EOPEN, filep->pfname); + return; + } + filep->funit |= (EOFF | FWRITE); + if (filep->fblk > PREDEF) { + setbuf(filep->fbuf, &filep->buf[0]); + } +} -- 2.20.1