|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T c
Length: 742 (0x2e6)
Types: TextFile
Names: »closex.SYS_V.c«
└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
└─⟦this⟧ »./tex82/Unsupported/MFpxl/mflib/closex.SYS_V.c«
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
└─⟦beba6c409⟧ »unix3.0/Unsupported.tar.Z«
└─⟦25c524ae4⟧
└─⟦this⟧ »Unsupported/MFpxl/mflib/closex.SYS_V.c«
#ifndef lint
static char RCSid[] = "$Header: closex.c,v 1.0 86/01/31 20:56:49 richards Released $";
#endif
/*
** CLOSEX.C: external routines
** procedure closea(var f: text) -- close an ascii (text) file
** procedure closew(var f: wordfile) -- close a word file
*/
#include "h00vars.h"
#include "mftypes.h"
closea(f)
text f;
{
mf_close((struct iorec *)f); /* use common close code */
}
closew(f)
wordfile f;
{
mf_close((struct iorec *)f); /* use common close code */
}
/*
** mf_close(filep)
** mf_close does the proper things to pc's runtime system
** file data structure to close a file
*/
mf_close(filep)
register struct iorec *filep;
{
register struct iorec *next;
if (filep->fbuf != NULL)
CLOSE(filep);
}