Annotation of OpenXM_contrib/gnuplot/term/multitos.trm, Revision 1.1
1.1 ! maekawa 1: /*
! 2: * $Id: $
! 3: */
! 4:
! 5: /* GNUPLOT - multitos.trm */
! 6:
! 7: /*[
! 8: * Copyright 1994, 1998
! 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: * This file is included by ../term.c.
! 39: *
! 40: * This terminal driver supports:
! 41: * mtos : ATARI Systems MiNT/MULTITOS/MAGIC with external client
! 42: *
! 43: * AUTHOR
! 44: * Dirk Stadler (email: dirk_stadler@n.maus.de, dirk@lstm.uni-erlangen.de)
! 45: *
! 46: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
! 47: *
! 48: */
! 49:
! 50: #include "driver.h"
! 51:
! 52: #ifdef TERM_REGISTER
! 53: register_term(mtos)
! 54: #endif
! 55:
! 56: #ifdef TERM_PROTO
! 57:
! 58: /* function-prototypes */
! 59: TERM_PUBLIC void MTOS_options(void);
! 60: TERM_PUBLIC void MTOS_init(void);
! 61: TERM_PUBLIC void MTOS_reset(void);
! 62: TERM_PUBLIC void MTOS_graphics(void);
! 63: TERM_PUBLIC void MTOS_text(void);
! 64: TERM_PUBLIC void MTOS_move(unsigned int x, unsigned int y);
! 65: TERM_PUBLIC void MTOS_vector(unsigned int x, unsigned int y);
! 66: TERM_PUBLIC void MTOS_linetype(int lt);
! 67: TERM_PUBLIC int MTOS_text_angle(int ang);
! 68: TERM_PUBLIC void MTOS_put_text(unsigned int x, unsigned int y, char *str);
! 69: TERM_PUBLIC int MTOS_justify_text(enum JUSTIFY mode);
! 70: TERM_PUBLIC void MTOS_point(unsigned int x, unsigned int y, int number);
! 71:
! 72: /* default to ST high resolution */
! 73: #define MTOS_XMAX 640
! 74: #define MTOS_YMAX 400
! 75: #define MTOS_VCHAR 18
! 76: #define MTOS_HCHAR 12
! 77: #define MTOS_HTIC 5
! 78: #define MTOS_VTIC MTOS_HTIC
! 79:
! 80: #define GOT_MTOS_PROTO
! 81: #endif /* TERM_PROTO */
! 82:
! 83: #ifndef TERM_PROTO_ONLY
! 84: #ifdef TERM_BODY
! 85:
! 86: #include <unistd.h>
! 87: #include <fcntl.h>
! 88: #include <param.h>
! 89: #include <process.h>
! 90: #include <signal.h>
! 91: #include <support.h>
! 92: #include <sys/stat.h>
! 93: #include <time.h>
! 94: #include <errno.h>
! 95: #include <aesbind.h>
! 96: #include <osbind.h>
! 97: #include <mintbind.h>
! 98:
! 99: int MTOS_pause(char *str);
! 100: static void MTOS_quit(void);
! 101: void MTOS_open_pipe(void);
! 102: static void write_pid(void);
! 103: static void init_exit(void);
! 104:
! 105: /* commands for GPCLIENT */
! 106: #define SET_GRAPHICS 'G'
! 107: #define SET_TEXT 'E'
! 108: #define SET_LINE 'L'
! 109: #define SET_ANGLE 'A'
! 110: #define SET_JUSTIFY 'J'
! 111: #define SET_POINTMODE 'D'
! 112: #define GR_MOVE 'M'
! 113: #define GR_DRAW 'V'
! 114: #define GR_RESET 'R'
! 115: #define GR_TEXT 'T'
! 116:
! 117: #define PAUSE 'P'
! 118: #define PID 'I'
! 119: #define QUIT 'Q'
! 120:
! 121: /* for creating pipes */
! 122: #define PIPE1 "u:\\pipe\\GPLT%d"
! 123: #define PIPE2 "u:\\pipe\\gpclient.tmp"
! 124: #define NAMESIZE 25
! 125: #define SIZE ((unsigned)sizeof(short))
! 126:
! 127: /* default name for client */
! 128: #define GPCLIENT1 "gpclient.prg"
! 129: #define GPCLIENT2 "gpclient"
! 130:
! 131: /* environment */
! 132: #define MYENV "GNUPLOTPATH"
! 133: #define PATH "PATH"
! 134:
! 135: /* some global variables */
! 136: static char MTOS_mode = 0;
! 137: static int handle = -1;
! 138: static int pid = -1;
! 139:
! 140: TERM_PUBLIC void MTOS_options()
! 141: {
! 142: term_options[0] = NUL;
! 143: }
! 144:
! 145: TERM_PUBLIC void MTOS_init()
! 146: {
! 147: char pipe[NAMESIZE];
! 148: char *file, cmd[MAXPATHLEN+1];
! 149: char const *const ext[] = { "prg", "app", NULL };
! 150:
! 151: if (handle < 0) {
! 152: if (aesid < 0) {
! 153: if ((aesid = appl_init()) < 0)
! 154: int_error("APPL_INIT failed !", NO_CARET);
! 155: }
! 156: file = findfile(GPCLIENT2, getenv(MYENV), ext);
! 157: if (!file)
! 158: safe_strncpy(cmd, GPCLIENT1, sizeof(cmd));
! 159: else if (file && !strchr(file, '\\') && !strchr(file, '/'))
! 160: safe_strncpy(cmd, file, sizeof(cmd));
! 161: else
! 162: unx2dos(file, cmd);
! 163: if (!shel_find(cmd))
! 164: int_error("Cannot find GPCLIENT !", NO_CARET);
! 165:
! 166: sprintf(&pipe[1], PIPE1, aesid);
! 167:
! 168: if ((handle = open(&pipe[1], O_RDWR | O_CREAT)) < 0) {
! 169: if ((handle = (int) Fcreate(&pipe[1], 0)) < 0)
! 170: int_error("Cannot open PIPE to GPCLIENT !", NO_CARET);
! 171: }
! 172: pipe[0] = (char) (strlen(&pipe[1]) + 1);
! 173:
! 174: if (!shel_write(1, 1, 100, cmd, pipe)) {
! 175: close(handle);
! 176: handle = -1;
! 177: int_error("Cannot spawn GPCLIENT !", NO_CARET);
! 178: }
! 179: init_exit();
! 180: }
! 181: if (aesid > -1)
! 182: menu_register(aesid, " Terminal: mtos");
! 183: }
! 184:
! 185: TERM_PUBLIC void MTOS_reset()
! 186: {
! 187: short buff;
! 188:
! 189: buff = (short) GR_RESET;
! 190: write(handle, &buff, SIZE);
! 191: }
! 192:
! 193: TERM_PUBLIC void MTOS_text()
! 194: {
! 195: short buff;
! 196:
! 197: buff = (short) SET_TEXT;
! 198: if (MTOS_mode != SET_TEXT)
! 199: write(handle, &buff, SIZE);
! 200: MTOS_mode = SET_TEXT;
! 201: }
! 202:
! 203: TERM_PUBLIC void MTOS_graphics()
! 204: {
! 205: short buff;
! 206:
! 207: buff = (short) SET_GRAPHICS;
! 208: write(handle, &buff, SIZE);
! 209: MTOS_mode = SET_GRAPHICS;
! 210: }
! 211:
! 212: TERM_PUBLIC void MTOS_move(unsigned int x, unsigned int y)
! 213: {
! 214: short x_1, y_1, buff;
! 215:
! 216: x_1 = (short) x;
! 217: y_1 = (short) y;
! 218: buff = (short) GR_MOVE;
! 219: write(handle, &buff, SIZE);
! 220: write(handle, &x_1, SIZE);
! 221: write(handle, &y_1, SIZE);
! 222: }
! 223:
! 224: TERM_PUBLIC void MTOS_vector(unsigned int x, unsigned int y)
! 225: {
! 226: short x_1, y_1, buff;
! 227:
! 228: x_1 = (short) x;
! 229: y_1 = (short) y;
! 230: buff = (short) GR_DRAW;
! 231: write(handle, &buff, SIZE);
! 232: write(handle, &x_1, SIZE);
! 233: write(handle, &y_1, SIZE);
! 234: }
! 235:
! 236: TERM_PUBLIC void MTOS_linetype(int lt)
! 237: {
! 238: short lt_1, buff;
! 239:
! 240: lt_1 = (short) lt;
! 241: buff = (short) SET_LINE;
! 242: write(handle, &buff, SIZE);
! 243: write(handle, <_1, SIZE);
! 244: }
! 245:
! 246: TERM_PUBLIC int MTOS_text_angle(int ang)
! 247: {
! 248: short ta_1, buff;
! 249:
! 250: ta_1 = (short) ang;
! 251: buff = (short) SET_ANGLE;
! 252: write(handle, &buff, SIZE);
! 253: write(handle, &ta_1, SIZE);
! 254: return (TRUE);
! 255: }
! 256:
! 257: TERM_PUBLIC void MTOS_put_text(unsigned int x, unsigned int y, char *str)
! 258: {
! 259: short x_1, y_1, len, buff;
! 260:
! 261: x_1 = (short) x;
! 262: y_1 = (short) y;
! 263: len = (short) strlen(str) + 1;
! 264: buff = (short) GR_TEXT;
! 265: write(handle, &buff, SIZE);
! 266: write(handle, &x_1, SIZE);
! 267: write(handle, &y_1, SIZE);
! 268: write(handle, &len, SIZE);
! 269: write(handle, str, (unsigned) len);
! 270: }
! 271:
! 272: TERM_PUBLIC int MTOS_justify_text(enum JUSTIFY mode)
! 273: {
! 274: short j_mode, buff;
! 275:
! 276: j_mode = (short) mode;
! 277: buff = (short) SET_JUSTIFY;
! 278: write(handle, &buff, SIZE);
! 279: write(handle, &j_mode, SIZE);
! 280: return (TRUE);
! 281: }
! 282:
! 283: TERM_PUBLIC void MTOS_point(unsigned int x, unsigned int y, int number)
! 284: {
! 285: short mode, buff;
! 286:
! 287: buff = (short) SET_POINTMODE;
! 288: mode = 1;
! 289: write(handle, &buff, SIZE);
! 290: write(handle, &mode, SIZE);
! 291: do_point(x, y, number);
! 292: mode = 0;
! 293: write(handle, &buff, SIZE);
! 294: write(handle, &mode, SIZE);
! 295: }
! 296:
! 297: int MTOS_pause(char *str)
! 298: {
! 299: short len, buff;
! 300:
! 301: len = (short) strlen(str) + 1;
! 302: buff = (short) PAUSE;
! 303: write(handle, &buff, SIZE);
! 304: write(handle, &len, SIZE);
! 305: write(handle, str, (unsigned) len);
! 306: read(handle, &len, SIZE);
! 307: return ((int) len);
! 308: }
! 309:
! 310: static void MTOS_quit()
! 311: {
! 312: short buff;
! 313:
! 314: if (pid > -1)
! 315: kill(pid, SIGTERM);
! 316: if (handle > -1) {
! 317: buff = (short) QUIT;
! 318: write(handle, &buff, SIZE);
! 319: close(handle);
! 320: }
! 321: }
! 322:
! 323: void MTOS_open_pipe()
! 324: {
! 325: char pipe[NAMESIZE];
! 326: short len;
! 327:
! 328: if (handle < 0) {
! 329: if ((handle = open(PIPE2, O_RDWR)) < 0)
! 330: return;
! 331: read(handle, &len, SIZE);
! 332: if (len > 0) {
! 333: read(handle, pipe, (unsigned) len);
! 334: close(handle);
! 335: if ((handle = open(pipe, O_RDWR)) < 0) {
! 336: fprintf(stderr, "\n\n\33p Can't open Pipe: (%s) Error: (%s) !\33q\n\n", pipe,sys_errlist[errno]);
! 337: fflush(stderr);
! 338: return;
! 339: }
! 340: }
! 341: init_exit();
! 342: }
! 343: }
! 344:
! 345: static void write_pid()
! 346: {
! 347: short buff, mypid, gpclpid;
! 348:
! 349: mypid = (short) getpid();
! 350: buff = (short) PID;
! 351: while (write(handle, &buff, SIZE) <= 0)
! 352: Fselect(100, 0L, 0L, 0L);
! 353: while (read(handle, &gpclpid, SIZE) <= 0)
! 354: Fselect(100, 0L, 0L, 0L);
! 355: write(handle, &mypid, SIZE);
! 356: pid = (int) gpclpid;
! 357: }
! 358:
! 359: static void init_exit()
! 360: {
! 361: Cconout(7);
! 362: write_pid();
! 363: atexit(MTOS_quit);
! 364: }
! 365:
! 366: #endif /* TERM_BODY */
! 367:
! 368: #ifdef TERM_TABLE
! 369:
! 370: TERM_TABLE_START(mtos_driver)
! 371: "mtos", "Atari MiNT/MULTITOS/Magic Terminal",
! 372: MTOS_XMAX, MTOS_YMAX, MTOS_VCHAR, MTOS_HCHAR,
! 373: MTOS_VTIC, MTOS_HTIC, MTOS_options, MTOS_init, MTOS_reset,
! 374: MTOS_text, null_scale, MTOS_graphics, MTOS_move, MTOS_vector,
! 375: MTOS_linetype, MTOS_put_text, MTOS_text_angle,
! 376: MTOS_justify_text, MTOS_point, do_arrow, set_font_null,
! 377: 0, TERM_CAN_MULTIPLOT, 0, 0
! 378: TERM_TABLE_END(mtos_driver)
! 379:
! 380: #undef LAST_TERM
! 381: #define LAST_TERM mtos_driver
! 382:
! 383: #endif /* TERM_TABLE */
! 384:
! 385: #endif /* TERM_PROTO_ONLY */
! 386:
! 387: #ifdef TERM_HELP
! 388: START_HELP(mtos)
! 389: "1 mtos",
! 390: "?commands set terminal mtos",
! 391: "?set terminal mtos",
! 392: "?set term mtos",
! 393: "?terminal mtos",
! 394: "?term mtos",
! 395: "?mtos",
! 396: " The `mtos` terminal has no options. It sends data via a pipe to an external",
! 397: " program called GPCLIENT. It runs under MULTITOS, Magic 3.x, MagicMAC. and",
! 398: " MiNT. If you cannot find GPCLIENT, than mail to dirk@lstm.uni-erlangen.de."
! 399: END_HELP(mtos)
! 400: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to multitos.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term