Annotation of OpenXM_contrib/gnuplot/corplot.c, Revision 1.1.1.1
1.1 maekawa 1: #ifndef lint
2: static char *RCSid = "$Id: corplot.c,v 1.8 1998/03/22 22:31:27 drd Exp $";
3: #endif
4:
5: /* GNUPLOT - corplot.c */
6:
7: /*[
8: * Copyright 1986 - 1993, 1998 Thomas Williams, Colin Kelley
9: *
10: * Permission to use, copy, and distribute this software and its
11: * documentation for any purpose with or without fee is hereby granted,
12: * provided that the above copyright notice appear in all copies and
13: * that both that copyright notice and this permission notice appear
14: * in supporting documentation.
15: *
16: * Permission to modify the software is granted, but not the right to
17: * distribute the complete modified source code. Modifications are to
18: * be distributed as patches to the released version. Permission to
19: * distribute binaries produced by compiling modified sources is granted,
20: * provided you
21: * 1. distribute the corresponding source modifications from the
22: * released version in the form of a patch file along with the binaries,
23: * 2. add special version identification to distinguish your version
24: * in addition to the base release version number,
25: * 3. provide your name and address as the primary contact for the
26: * support of your modified version, and
27: * 4. retain our contact information in regard to use of the base
28: * software.
29: * Permission to distribute the released version of the source code along
30: * with corresponding source modifications in the form of a patch file is
31: * granted with same provisions 2 through 4 for binary distributions.
32: *
33: * This software is provided "as is" without express or implied warranty
34: * to the extent permitted by applicable law.
35: ]*/
36:
37:
38: #include <stdio.h>
39: #include <process.h>
40: #include <dos.h>
41: #if (defined(ATARI) || defined(MTOS)) && defined(__PUREC__)
42: #include <plot.h>
43: #endif
44:
45: #define BOUNDARY 32768
46: #define segment(addr) (FP_SEG(m) + ((FP_OFF(m)+15) >> 4));
47: #define round(value,boundary) (((value) + (boundary) - 1) & ~((boundary) - 1))
48:
49: char *malloc(),*realloc();
50:
51: char prog[] = "gnuplot";
52: char corscreen[] = "CORSCREEN=0";
53:
54: main()
55: {
56: register unsigned int segm,start;
57: char *m;
58: if (!(m = malloc(BOUNDARY))) {
59: printf("malloc() failed\n");
60: exit(1);
61: }
62: segm = segment(m);
63: start = round(segm,BOUNDARY/16);
64:
65: if (realloc(m,BOUNDARY+(start-segm)*16) != m) {
66: printf("can't realloc() memory\n");
67: exit(2);
68: }
69:
70: if ((segm = start >> 11) >= 8) {
71: printf("not enough room in first 256K\n");
72: exit(3);
73: }
74:
75: corscreen[sizeof(corscreen)-2] = '0' + segm;
76: if (putenv(corscreen))
77: perror("putenv");
78:
79: if (spawnlp(P_WAIT,prog,prog,NULL))
80: perror("spawnlp");
81: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>