|
|
1.1 ! root 1: /* ! 2: * Copyright (c) 1980, 1986 Regents of the University of California. ! 3: * All rights reserved. The Berkeley software License Agreement ! 4: * specifies the terms and conditions for redistribution. ! 5: */ ! 6: ! 7: #ifndef lint ! 8: static char sccsid[] = "@(#)close.c 6.1 (Berkeley) 8/29/86"; ! 9: #endif not lint ! 10: ! 11: ! 12: #include "grnplot.h" ! 13: ! 14: /*--------------------------------------------------------- ! 15: * Closepl ends the gremlin file ! 16: * ! 17: * Results: None. ! 18: * ! 19: * Side Effects: ! 20: *--------------------------------------------------------- ! 21: */ ! 22: closepl() ! 23: { ! 24: if (!ingrnfile) return; ! 25: endvector(); ! 26: printf("-1\n"); ! 27: ingrnfile = 0; ! 28: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.