Return to corplot.c CVS log

Up to [local] / OpenXM_contrib / gnuplot

Annotation of OpenXM_contrib/gnuplot/corplot.c, Revision 1.1.1.2

1.1       maekawa     1: #ifndef lint
1.1.1.2 ! maekawa     2: static char *RCSid = "$Id: corplot.c,v 1.2 1998/10/28 21:08:12 lhecking Exp $";
1.1       maekawa     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: }