1 /*- 2 * Copyright (c) 1980, 1986 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.proprietary.c% 6 */ 7 8 #ifndef lint 9 static char sccsid[] = "@(#)close.c 6.2 (Berkeley) 04/22/91"; 10 #endif /* not lint */ 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 } 29