git.maemo.org Git - gnuplot/blob - src/corplot.c

   1 #ifndef lint
   2 static char *RCSid() { return RCSid("$Id: corplot.c,v 1.6 2004/07/25 12:25:00 broeker Exp $"); }
   3 #endif
   4
   5 /* GNUPLOT - corplot.c */
   6
   7 /*[
   8  * Copyright 1986 - 1993, 1998, 2004   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 "syscfg.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 int
  55 main()
  56 {
  57     unsigned int segm, start;
  58     char *m;
  59     if (!(m = malloc(BOUNDARY))) {
  60         printf("malloc() failed\n");
  61         exit(1);
  62     }
  63     segm = segment(m);
  64     start = round(segm, BOUNDARY / 16);
  65
  66     if (realloc(m, BOUNDARY + (start - segm) * 16) != m) {
  67         printf("can't realloc() memory\n");
  68         exit(2);
  69     }
  70     if ((segm = start >> 11) >= 8) {
  71         printf("not enough room in first 256K\n");
  72         exit(3);
  73     }
  74     corscreen[sizeof(corscreen) - 2] = '0' + segm;
  75     if (putenv(corscreen))
  76         perror("putenv");
  77
  78     if (spawnlp(P_WAIT, prog, prog, NULL))
  79         perror("spawnlp");
  80 }