|
|
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.