home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Source Code 1992 March
/
Source_Code_CD-ROM_Walnut_Creek_March_1992.iso
/
usenet
/
altsrcs
/
2
/
2011
< prev
next >
Wrap
Internet Message Format
|
1990-12-28
|
28KB
From: hot@integow.uucp (Roland van Hout)
Newsgroups: alt.sources
Subject: PD plot(4) librarys (and hercules driver for interactive 386) part 8 of 9
Message-ID: <1396@integow.uucp>
Date: 28 Oct 90 03:58:19 GMT
#!/bin/sh
# This is part 08 of a multipart archive
if touch 2>&1 | fgrep '[-amc]' > /dev/null
then TOUCH=touch
else TOUCH=true
fi
# ============= herc/herc.h ==============
echo "x - extracting herc/herc.h (Text)"
sed 's/^X//' << 'SHAR_EOF' > herc/herc.h &&
Xstatic char SCCS_HERCH[] = "%W% %G% %U%";
X/*
X++++
X herc.h
X
X PURPOSE : Hercules Graphics constants and macros
X
X AUTHOR : W. Hatch
X
X COMPANY : Computational Engineering
X 14504 Greenview Drive Suite 500
X Laurel, Maryland 20708
X 301-470-3839
X usrnet: uunet!bts!bill
X
X DATE : 2/4/90
X
X CREDITS : I got useful information from all of the following
X sources which I wish to acknowledge and thank.
X
X 1.) David B. Dotty, "Programmers Guide To The Hercules
X Graphics Card", Addison-Wesley, 1988,
X
X 2.) Dan Schechter, "How To Access The Hercules Graphics
X Plane", The C Users Journal, August, 1988,
X
X 3.) geb, port (sample Hercules graphics driver)
X 1988, Reynolds Metals Co., PO Box 1200,
X Sheffield, Al. 35660, (205)-386-9657,
X
X 4.) David T. Lewis, mode.c from gnuplot, 7/13/87,
X
X 5.) Jeffery A. Turner, setmode.c, (Hercules mode set for
X Everix), 5/20/87,
X
X 6.) Janet I. Egan and Thomas J. Teixeira, "Writing a Unix
X Device Driver", Wiley, 1988,
X
X 7.) "Software Development System Volume I", Microport
X V386/3.0e,
X
X 8.) Microport Tech Support System V386 Dos Merge 386
X Version 1.1.1U, 12/15/88,
X
X 9.) Microport documentation on Display(7) forwarded
X by Bob Courtney, uunet!agc!courtney, August, 1989,
X
X 10.) Cliff Flint, sample Hercules driver code,
X uunet!ames!mailrus!umix!clif!clif, April, 1989,
X
X 11.) Machael Gordon and Colon Kelly, hercgraph.asm,
X Hercules graphics code for MS-DOS gnuplot,
X December, 1986.
X
X---*/
X/*
X------------------------------------------------------------------------
X MODIFICATIONS
XDATE-PROGRAMMER DESCRIPTION
X------------------------------------------------------------------------
X*/
X#include <sys/types.h>
X#include <sys/dir.h>
X#include <sys/signal.h>
X#include <sys/param.h>
X#include <stdio.h>
X#include <sys/user.h>
X#include <fcntl.h>
X#include <sys/file.h>
X#include <sys/ioctl.h>
X#ifndef IX386
X#include <sys/io_op.h>
X#endif
X/*----------------------------------------------------------------------*/
X/* values returned by driver functions */
X/*----------------------------------------------------------------------*/
X#define SUCCESS 0
X#define FAILURE (-1)
X
X/*----------------------------------------------------------------------*/
X/* system constants used by kernel functions */
X/*----------------------------------------------------------------------*/
X#define IPC_FLAG (IPC_CREAT|00666)
X#define PG_P 0x00000001 /* page present bit */
X
X/*----------------------------------------------------------------------*/
X/* herc page physical base addresses and sizes in units of 4096 bytes */
X/*----------------------------------------------------------------------*/
X#define HERC_TEXT_PAGE 176
X#define HERC_PAGE_0 176
X#define HERC_PAGE_1 184
X#define HERC_SIZE 8
X
X/*----------------------------------------------------------------------*/
X/* herc base addresses and sizes in bytes */
X/*----------------------------------------------------------------------*/
X#define HERC_TEXT_BUF 0xB000
X#define HERC_P0_BUF 0xB000
X#define HERC_P1_BUF 0xB800
X
X#define HERC_PAGE_BYTES 32768
X
X/*----------------------------------------------------------------------*/
X/* error message macro */
X/*----------------------------------------------------------------------*/
X#define KERROR(a) printf("ERROR herc: %s\n",a);
X
X/*----------------------------------------------------------------------*/
X/* herc ioctl commands and data structure for ioctl(dev, cmd, arg) */
X/*----------------------------------------------------------------------*/
X /* cmd values */
X# define SET_PIXEL 2
X# define CLEAR_PIXEL 3
X# define REVERSE_PIXEL 4
X# define CLEAR_SCREEN_0 5
X# define CLEAR_SCREEN_1 6
X# define SWITCH_SCREEN_0 7
X# define SWITCH_SCREEN_1 8
X
X /* HERC arg (a data structure) */
X typedef struct s_hercio {
X int cmd;
X int phys_x;
X int phys_y;
X } HERC;
X# define NO_HERC (HERC *)0
X# define VALIDHERC(a) ((a) != NO_HERC)
X
X/*----------------------------------------------------------------------*/
X/* ports and byte values to put to ports */
X/*----------------------------------------------------------------------*/
X#define CONFIG_SWITCH 0x3bf
X# define CF_TEXT_ONLY 0 /* default, prevents graphics */
X# define CF_PAGE_0 01 /* enable page 0 only */
X# define CF_PAGE_1 03 /* enable both pages */
X
X#define INDEX_REG_6845 0x3b4 /* 6845 index register */
X#define DATA_REG_6845 0x3b5 /* 6845 data register */
X
X#define DMC_PORT 0x3b8 /* display mode control port */
X# define DMC_TEXT 00 /* default, text display mode */
X# define DMC_GRAPHICS 02 /* graphics display mode */
X# define DMC_OFF_SCREEN 000
X# define DMC_ON_SCREEN 010
X# define DMC_ON_BLINK 040
X# define DMC_OFF_BLINK 000
X# define DMC_PAGE_0 000 /* dmc show page 0 */
X# define DMC_PAGE_1 0200 /* dmc show page 1 */
X
X/* text mode */
X# define NORMAL 007
X# define INTENSITY 010
X# define BLANK 000
X# define UNDERLINE 001
X# define REVERSE_VIDEO 0160
X# define BLINK 0200
X
X#define DS_PORT 0x3ba /* display status port */
X# define DS_RETRACE 0x80 /* retrace is when bit 7 is 0 */
X/*----------------------------------------------------------------------*/
X/* graphics memory byte location and bit manipulation */
X/*----------------------------------------------------------------------*/
X /* physical screen dimensions */
X /*--------------------------------------------------------------*/
X# define PHYS_X_MIN 0
X# define PHYS_X_MAX 719
X# define PHYS_Y_MIN 0
X# define PHYS_Y_MAX 347
X /*--------------------------------------------------------------*/
X /* given x, y coordinates, determine byte offset within screen */
X /* memory */
X /*--------------------------------------------------------------*/
X# define BYTE_OFFSET(x,y) (unsigned)(0x2000 * ((y)%4) + \
X 90 * ((y)/4) + (x)/8)
X
X /*--------------------------------------------------------------*/
X /* for given x coordinate, generate a byte with the correct */
X /* bit set */
X /*--------------------------------------------------------------*/
X# define X_BIT(x) (1 << (7-((x)%8)))
X
X /*--------------------------------------------------------------*/
X /* set, clear, reverse bit for given x within a given byte */
X /*--------------------------------------------------------------*/
X# define SET_BIT(byte,x) ((byte) |= (X_BIT((x))))
X# define CLEAR_BIT(byte,x) ((byte) &= (unsigned char)0xff ^ (X_BIT(x)))
X# define REVERSE_BIT(byte,x) ((byte) ^= (X_BIT(x) ))
SHAR_EOF
$TOUCH -am 1014123490 herc/herc.h &&
chmod 0644 herc/herc.h ||
echo "restore of herc/herc.h failed"
set `wc -c herc/herc.h`;Wc_c=$1
if test "$Wc_c" != "6396"; then
echo original size 6396, current size $Wc_c
fi
# ============= herc/test.c ==============
echo "x - extracting herc/test.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > herc/test.c &&
X/*======================================================================*/
X/* test - test features of herc driver */
X/* W Hatch 2/17/90 */
X/*======================================================================*/
X#include <stdio.h>
X#include "herc.h"
X#define delay sleep
X
Xint hercfd;
Xmain()
X{
X int i;
X int j;
X HERC Herc;
X char buffer[4];
X if((hercfd = open("/dev/herc", O_WRONLY)) < 0)
X {
X perror("main: open /dev/herc failed");
X exit(2);
X }
X /*--------------------------------------------------------------*/
X /* test SET_PIXEL with a pattern */
X /*--------------------------------------------------------------*/
X Herc.cmd = SET_PIXEL;
X pattern(&Herc);
X sleep(5);
X /*--------------------------------------------------------------*/
X /* test CLEAR_PIXEL by removing test pattern */
X /*--------------------------------------------------------------*/
X Herc.cmd = CLEAR_PIXEL;
X pattern(&Herc);
X sleep(5);
X /*--------------------------------------------------------------*/
X /* test REVERSE_PIXEL with same pattern */
X /*--------------------------------------------------------------*/
X Herc.cmd = REVERSE_PIXEL;
X pattern(&Herc);
X sleep(5);
X pattern(&Herc);
X sleep(5);
X close(hercfd);
X printf("hercfd: %d\n",hercfd);
X exit(0);
X
X}
Xpattern(Herc)
XHERC *Herc;
X{
X int i,j;
X for(j=100; j< 200 ; j++)
X {
X for(i=100; i< 110; i++)
X {
X Herc->phys_x = j;
X Herc->phys_y = i;
X if(write(hercfd, Herc, sizeof(HERC)) < 0)
X {
X perror("main: write hercfd failed");
X exit(2);
X }
X }
X for(i=100; i< 110; i++)
X {
X Herc->phys_y = j;
X Herc->phys_x = i;
X if(write(hercfd, Herc, sizeof(HERC)) < 0)
X {
X perror("main: write hercfd failed");
X exit(2);
X }
X }
X }
X}
SHAR_EOF
$TOUCH -am 1013182190 herc/test.c &&
chmod 0644 herc/test.c ||
echo "restore of herc/test.c failed"
set `wc -c herc/test.c`;Wc_c=$1
if test "$Wc_c" != "1690"; then
echo original size 1690, current size $Wc_c
fi
# ============= herc/ix386/n_herc ==============
if test ! -d 'herc/ix386'; then
echo "x - creating directory herc/ix386"
mkdir 'herc/ix386'
fi
echo "x - extracting herc/ix386/n_herc (Text)"
sed 's/^X//' << 'SHAR_EOF' > herc/ix386/n_herc &&
Xherc herc c 0
SHAR_EOF
$TOUCH -am 1014120790 herc/ix386/n_herc &&
chmod 0644 herc/ix386/n_herc ||
echo "restore of herc/ix386/n_herc failed"
set `wc -c herc/ix386/n_herc`;Wc_c=$1
if test "$Wc_c" != "14"; then
echo original size 14, current size $Wc_c
fi
# ============= herc/ix386/s_herc ==============
echo "x - extracting herc/ix386/s_herc (Text)"
sed 's/^X//' << 'SHAR_EOF' > herc/ix386/s_herc &&
Xherc Y 1 0 0 0 0 0 0 0
SHAR_EOF
$TOUCH -am 1014123690 herc/ix386/s_herc &&
chmod 0644 herc/ix386/s_herc ||
echo "restore of herc/ix386/s_herc failed"
set `wc -c herc/ix386/s_herc`;Wc_c=$1
if test "$Wc_c" != "23"; then
echo original size 23, current size $Wc_c
fi
# ============= herc/ix386/mdevice ==============
echo "x - extracting herc/ix386/mdevice (Text)"
sed 's/^X//' << 'SHAR_EOF' > herc/ix386/mdevice &&
X
Xherc ocrwi iHcr herc 0 15 1 1 -1
X you have to add the following line to the file /etc/conf/cf.d/mdevice:
X
X herc Iocrwi iHct herc 0 15 1 16 -1
X
SHAR_EOF
$TOUCH -am 1014121390 herc/ix386/mdevice &&
chmod 0644 herc/ix386/mdevice ||
echo "restore of herc/ix386/mdevice failed"
set `wc -c herc/ix386/mdevice`;Wc_c=$1
if test "$Wc_c" != "156"; then
echo original size 156, current size $Wc_c
fi
# ============= herc/ix386/README ==============
echo "x - extracting herc/ix386/README (Text)"
sed 's/^X//' << 'SHAR_EOF' > herc/ix386/README &&
Xcopy s_herc to /etc/conf/sdevice.d/herc
Xcopy n_herc to /etc/conf/node.d/herc
Xadd the first line in mdevice to /etc/conf/cf.d/mdevice
Xcompile the source and copy it to /etc/conf/pack.d/herc/Driver.o
Xof course you will have to create the directory first!
SHAR_EOF
$TOUCH -am 1014194190 herc/ix386/README &&
chmod 0644 herc/ix386/README ||
echo "restore of herc/ix386/README failed"
set `wc -c herc/ix386/README`;Wc_c=$1
if test "$Wc_c" != "253"; then
echo original size 253, current size $Wc_c
fi
# ============= README ==============
echo "x - extracting README (Text)"
sed 's/^X//' << 'SHAR_EOF' > README &&
XThis directory tree contains a collection of PD graphic drivers.
XAll of them support the plot(4) definition of ATT, well they support
Xthem more or less. Most of the drivers don't have bit patterns,
Xcircles and arcs built in. So if you have a lot of time here is
Xsomething to do!!!
XAlso included is a driver programm for plot. So you can now install
Xa runnable driver in /usr/lib add a line to your /usr/bin/tplot script
Xand with sag -Therc or any suitable name for the new driver you
Xcan plot an activity graph on you screen or printer.
XThe driver program was written by Wietse Venema and changed for
X386 Unix 3.xxx by Bill Hatch, I made minor changes for the
Xprinterdriver.
XSomething like sag -Thplj could also immediately spool the output
Xto lp if the line in /usr/bin/tplot is appropriate.
XRemember most of this is a collection so other people wrote it,
Xtheir names and e-mail/mail adresses can be found in the corresponding
Xdirectories.
XThe REGIS stuff and the adaption of the hpgl converter to a plot
Xlibrary for (hplj,epson,ibm) is my work, also I optimized the
Xhplj output with cursor adressing.
XThe hpgl converter was posted by the Environmental Defense Fund in
X1988, they have the copyright on this source but allowed me
Xto repost this!
XOk I know it's a terrible hack, but it works.
XAny changes or ideas or other PD plot librarys to hout@hot.mug.
XAny PD applications that use plot (gnuplot/fchart I already
Xhave) are welcome too.
XAlso I've build a plot interface for the CGI library of SCO.
XIn the tplot entry you should not forget to set the
Xenvironment variables for your outputdevices for the CGI library.
XXenix doesnot have a tplot or sag programm it has no graphics but
Xthe CGI and no system activity reports, as far as I know.
XSCO Unix should have sag, tplot and system activity data
Xand the CGI library, but I don't have a SCO Unix yet.
XAlso Included is the hercules driver posted to comp.unix.ix386 some
Xweeks ago, originally it was a driver for uPort 386 unix, I added
Xthe files for Interactive 386 V.3.2.0.2 but it should also work
Xon 2.2.
XThe guy who posted it was Bill Hatch, I didnot find any copyrights
Xso I guess its alright if I repost this with my interactive
Xchanges.
XAlso included is a plot library for sun 3 workstations from
XSjoerd Mullenders, Sjoerd has the copyright but it's allowed
Xto redistribute this if you leave the copyright message in.
XThen I have 2 other plotlibs for HPGL 7440 and for a DEC LN03
Xlaserprinter.
XThe HPGL stuff was written by Dave Trueman and Henry Spencer
Xfrom Toronto.
XThere was no copyright in the sources so I guess it's ok if I
Xrepost this.
XThe ln03 stuff was copyrighted by Nicolas Christopher from
XColumbia University but it didnot say it was allowed to
Xredistribute this so it's not included.
XAlso I have a hercules driver for uPort V.2.3 which was posted
Xand copyrighted by Microport so this one is not included as well.
XIf the people who have the rights on the uport and ln03 stuff
Xcould mail me I that they would allow me to repost these
X2 parts. I would post them in a few weeks.
X
X
SHAR_EOF
$TOUCH -am 1026190890 README &&
chmod 0644 README ||
echo "restore of README failed"
set `wc -c README`;Wc_c=$1
if test "$Wc_c" != "3061"; then
echo original size 3061, current size $Wc_c
fi
# ============= plot.c ==============
echo "x - extracting plot.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > plot.c &&
X/*
X * plot(1) clone. This filter implements the commands described in the
X * V7 UNIX manual pages, using the gl graphics library routines.
X *
X * Author: Wietse Venema (wietse@wzv.UUCP)
X *
X * Options: -Tdevice, where device is one of:
X *
X * cga (CGA) cga adapter, low (high) resolution
X * herc (HERC) hercules adapter, page 0 (page 1)
X * ega ega adapter
X * lp matrix printer
X * lj laserjet printer
X *
X * The output device can also be specified with the GLMODE environment
X * variable. See the gl graphics library documentation for details.
X */
X/* changes to provide compatibility with Microport V386 3.0e
X * W Hatch uunet!bts!bill
X * 2/18/90
X */
X
X#include <stdio.h>
X/*#include <modes.h>*/
X
Xstatic void confirm();
X
X/*
X * If the output device is specified on the command line we pass it on to
X * the gl library routines by setting the GLMODE environment variable...
X */
X
Xstruct Modetab {
X char *modename;
X int modeval;
X};
X
Xstruct Modetab modetab[] = {
X "cga", CGA_COLOR_MODE, /* cga lo-res */
X "CGA", CGA_HI_RES_MODE, /* cga hi-res */
X "herc", HERC_P0_MODE, /* hercules page 0 */
X "HERC", HERC_P1_MODE, /* hercules page 1 */
X "ega", EGA_COLOR_MODE, /* ega */
X "lp", IBM_PRINTER, /* matrix printer */
X "lj", LJ_PRINTER, /* laserjet printer */
X 0, 0,
X};
X
X/* various shorthands */
X#ifdef V386 /* 16 bit integers output by uport V386 graph(1) */
X#define READ(x) fread((char *) &s_x, sizeof(s_x), 1, stdin);\
X x=s_x
X#else
X#define READ(x) fread((char *) &x, sizeof(x), 1, stdin)
X#endif
X#define READ2(a,b) READ(a); READ(b)
X#define READ3(a,b,c) READ2(a,b); READ(c)
X#define READ4(a,b,c,d) READ2(a,b); READ2(c,d);
X#define READ6(a,b,c,d,e,f) READ4(a,b,c,d); READ2(e,f);
X
X/*
X * Process the plotfile. The program terminates with a diagnostic
X * in case of unrecognized data.
X */
X
Xmain(argc, argv)
Xint argc;
Xchar **argv;
X{
X register struct Modetab *mp;
X register int c;
X char buf[BUFSIZ];
X int x, y, x0, y0, x1, y1, x2, y2, r, glmode;
X#ifdef V386
X short int s_x, s_y, s_x0, s_y0, s_x1, s_y1, s_x2, s_y2, s_r, s_glmode;
X#endif
X static char envstring[] = "GLMODE=xxxxxx";
X
X /* process command-line arguments */
X
X while (--argc && *++argv) {
X if (strncmp(*argv, "-T", 2) == 0) {
X for (mp = modetab; mp->modename; mp++) {
X if (strcmp(*argv + 2, mp->modename) == 0) {
X sprintf(envstring, "GLMODE=%d", glmode = mp->modeval);
X putenv(envstring);
X }
X }
X } else {
X fprintf(stderr, "bad argument: %s\n", *argv);
X exit(1);
X }
X }
X
X#ifndef unix
X you may have to select binary mode for stdin
X#endif
X
X /* process the plotfile */
X
X openpl();
X
X while ((c = getchar()) != EOF) {
X#ifdef DBUG
X fprintf(stderr, "c= %c, c(int)= %d\n",c,c);
X fflush(stderr);
X#endif
X switch (c) {
X case 'm': /* move */
X READ2(x, y);
X#ifdef DBUG
X fprintf(stderr, "x: %d, y: %d\n", x, y);
X fflush(stderr);
X#endif
X move(x, y);
X break;
X case 'n': /* cont */
X READ2(x, y);
X#ifdef DBUG
X fprintf(stderr, "x: %d, y: %d\n", x, y);
X fflush(stderr);
X#endif
X cont(x, y);
X break;
X case 'p': /* point */
X READ2(x, y);
X#ifdef DBUG
X fprintf(stderr, "x: %d, y: %d\n", x, y);
X fflush(stderr);
X#endif
X point(x, y);
X break;
X case 'l': /* line */
X READ4(x1, y1, x2, y2);
X#ifdef DBUG
X fprintf(stderr, "x1: %d, y1: %d, x2: %d, y2: %d\n", x1, y1,x2,y2);
X fflush(stderr);
X#endif
X line(x1, y1, x2, y2);
X break;
X case 't': /* label */
X {
X register char *p = buf;
X
X /********
X while ((c = getchar()) != EOF && c)
X *p++ = c;
X *p = '\0';
X weh 2/18/90 --- incoming string is newline terminated
X ********/
X gets(buf);
X label(buf);
X }
X#ifdef DBUG
X fprintf(stderr, "label: %s\n", buf);
X fflush(stderr);
X#endif
X break;
X case 'a': /* arc */
X READ6(x, y, x0, y0, x1, y1);
X arc(x, y, x0, y0, x1, y1);
X break;
X case 'c': /* circle */
X READ3(x, y, r);
X circle(x, y, r);
X break;
X case 'e': /* erase */
X if (glmode <= MAXVIDEO)
X confirm();
X erase();
X break;
X case 'f': /* linemod */
X gets(buf);
X linemod(buf);
X break;
X case 's': /* space */
X READ4(x0, y0, x1, y1);
X#ifdef DBUG
X fprintf(stderr, "x0: %d, y0: %d, x1: %d, y1: %d\n", x0, y0,x1,y1);
X fflush(stderr);
X#endif
X space(x0, y0, x1, y1);
X break;
X /* corrupt */
X default:
X closepl();
X fprintf(stderr,"c= %c, %d corrupted plotfile -- giving up\n",c,c);
X fflush(stderr);
X exit(1);
X }; /* end switch */
X } /* end while */
X
X if (glmode <= MAXVIDEO)
X confirm();
X closepl();
X exit(0);
X /* NOTREACHED */
X}
X
X/* give them a chance before erase() or closepl() clobber the screen */
X
Xstatic void confirm()
X{
X FILE *fp;
X int c;
X
X if (fp = fopen("/dev/tty", "r")) {
X while ((c = getc(fp)) != EOF && c != '\n');
X fclose(fp);
X }
X}
SHAR_EOF
$TOUCH -am 1014123990 plot.c &&
chmod 0644 plot.c ||
echo "restore of plot.c failed"
set `wc -c plot.c`;Wc_c=$1
if test "$Wc_c" != "4963"; then
echo original size 4963, current size $Wc_c
fi
# ============= lpdriver.c ==============
echo "x - extracting lpdriver.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > lpdriver.c &&
X/*
X * plot(1) clone. This filter implements the commands described in the
X * V7 UNIX manual pages, using the gl graphics library routines.
X *
X * Author: Wietse Venema (wietse@wzv.UUCP)
X *
X * Options: -Tdevice, where device is one of:
X *
X * cga (CGA) cga adapter, low (high) resolution
X * herc (HERC) hercules adapter, page 0 (page 1)
X * ega ega adapter
X * lp matrix printer
X * lj laserjet printer
X *
X * The output device can also be specified with the GLMODE environment
X * variable. See the gl graphics library documentation for details.
X */
X/* changes to provide compatibility with Microport V386 3.0e
X * W Hatch uunet!bts!bill
X * 2/18/90
X */
X/*
Xchanges to get it running on interactive 386
XR.P. van Hout uunet!mcsun!hp4nl!integow!hot!hot
X*/
X
X
X#include "plotlpus.h"
X#include <stdio.h>
X/*#include <modes.h>*/
X
Xstatic void confirm();
X
X/*
X * If the output device is specified on the command line we pass it on to
X * the gl library routines by setting the GLMODE environment variable...
X */
Xfloat deltx = 4095.0;
Xfloat delty = 4095.0;
X
Xstruct Modetab {
X char *modename;
X int modeval;
X};
X
Xstruct Modetab modetab[] = {
X#ifdef bla
X "cga", CGA_COLOR_MODE, /* cga lo-res */
X "CGA", CGA_HI_RES_MODE, /* cga hi-res */
X "herc", HERC_P0_MODE, /* hercules page 0 */
X "HERC", HERC_P1_MODE, /* hercules page 1 */
X "ega", EGA_COLOR_MODE, /* ega */
X "lp", IBM_PRINTER, /* matrix printer */
X "lj", LJ_PRINTER, /* laserjet printer */
X#endif
X 0, 0,
X};
X
X/* various shorthands */
X#ifdef V386 /* 16 bit integers output by uport V386 graph(1) */
X#define READ(x) fread((char *) &s_x, sizeof(s_x), 1, stdin);\
X x=s_x
X#else
X#define READ(x) fread((char *) &x, sizeof(x), 1, stdin)
X#endif
X#define READ2(a,b) READ(a); READ(b)
X#define READ3(a,b,c) READ2(a,b); READ(c)
X#define READ4(a,b,c,d) READ2(a,b); READ2(c,d);
X#define READ6(a,b,c,d,e,f) READ4(a,b,c,d); READ2(e,f);
X
X/*
X * Process the plotfile. The program terminates with a diagnostic
X * in case of unrecognized data.
X */
X
Xmain(argc, argv)
Xint argc;
Xchar **argv;
X{
X register struct Modetab *mp;
X register int c;
X char buf[BUFSIZ];
X int x, y, x0, y0, x1, y1, x2, y2, r, glmode;
X#ifdef V386
X short int s_x, s_y, s_x0, s_y0, s_x1, s_y1, s_x2, s_y2, s_r, s_glmode;
X#endif
X static char envstring[] = "GLMODE=xxxxxx";
X int noconfirm;
X noconfirm = 0;
X /* process command-line arguments */
X
X while(argc-- > 1) {
X if(*argv[1] == '-')
X switch(argv[1][1]) {
X case 'l':
X deltx = atoi(&argv[1][2]) - 1;
X break;
X case 'w':
X delty = atoi(&argv[1][2]) - 1;
X break;
X case 's':
X printer=LASERLOW;
X break;
X case 'm':
X printer=LASERMED;
X break;
X case 'h':
X printer=LASERHIGH;
X break;
X case 'i':
X printer=IBM_PRO;
X break;
X case 'e':
X printer=EPSON;
X break;
X }
X
X argv++;
X }
X
X#ifndef unix
X you may have to select binary mode for stdin
X#endif
X
X /* process the plotfile */
X
X openpl();
X
X while ((c = getchar()) != EOF) {
X#ifdef DBUG
X fprintf(stderr, "c= %c, c(int)= %d\n",c,c);
X fflush(stderr);
X#endif
X switch (c) {
X case 'm': /* move */
X READ2(x, y);
X#ifdef DBUG
X fprintf(stderr, "x: %d, y: %d\n", x, y);
X fflush(stderr);
X#endif
X move(x, y);
X break;
X case 'n': /* cont */
X READ2(x, y);
X#ifdef DBUG
X fprintf(stderr, "x: %d, y: %d\n", x, y);
X fflush(stderr);
X#endif
X cont(x, y);
X break;
X case 'p': /* point */
X READ2(x, y);
X#ifdef DBUG
X fprintf(stderr, "x: %d, y: %d\n", x, y);
X fflush(stderr);
X#endif
X point(x, y);
X break;
X case 'l': /* line */
X READ4(x1, y1, x2, y2);
X#ifdef DBUG
X fprintf(stderr, "x1: %d, y1: %d, x2: %d, y2: %d\n", x1, y1,x2,y2);
X fflush(stderr);
X#endif
X line(x1, y1, x2, y2);
X break;
X case 't': /* label */
X {
X register char *p = buf;
X
X /********
X while ((c = getchar()) != EOF && c)
X *p++ = c;
X *p = '\0';
X weh 2/18/90 --- incoming string is newline terminated
X ********/
X gets(buf);
X label(buf);
X }
X#ifdef DBUG
X fprintf(stderr, "label: %s\n", buf);
X fflush(stderr);
X#endif
X break;
X case 'a': /* arc */
X READ6(x, y, x0, y0, x1, y1);
X arc(x, y, x0, y0, x1, y1);
X break;
X case 'c': /* circle */
X READ3(x, y, r);
X circle(x, y, r);
X break;
X case 'e': /* erase */
X/* if (glmode <= MAXVIDEO)*/
X if (!noconfirm) confirm();
X erase();
X break;
X case 'f': /* linemod */
X gets(buf);
X linemod(buf);
X break;
X case 's': /* space */
X READ4(x0, y0, x1, y1);
X#ifdef DBUG
X fprintf(stderr, "x0: %d, y0: %d, x1: %d, y1: %d\n", x0, y0,x1,y1);
X fflush(stderr);
X#endif
X space(x0, y0, x1, y1);
X break;
X /* corrupt */
X default:
X closepl();
X fprintf(stderr,"c= %c, %d corrupted plotfile -- giving up\n",c,c);
X fflush(stderr);
X exit(1);
X }; /* end switch */
X } /* end while */
X
X/* if (glmode <= MAXVIDEO)*/
X if (!noconfirm) confirm();
X else sleep(5);
X closepl();
X exit(0);
X /* NOTREACHED */
X}
X
X/* give them a chance before erase() or closepl() clobber the screen */
X
Xstatic void confirm()
X{
X FILE *fp;
X int c;
X
X if (fp = fopen("/dev/tty", "r")) {
X while ((c = getc(fp)) != EOF && c != '\n');
X fclose(fp);
X }
X}
SHAR_EOF
$TOUCH -am 1014221490 lpdriver.c &&
chmod 0644 lpdriver.c ||
echo "restore of lpdriver.c failed"
set `wc -c lpdriver.c`;Wc_c=$1
if test "$Wc_c" != "5349"; then
echo original size 5349, current size $Wc_c
fi
# ============= makefile ==============
echo "x - extracting makefile (Text)"
sed 's/^X//' << 'SHAR_EOF' > makefile &&
XCFLAGS=-O -DV386
XCC=gcc
X
Xall: therc tplotlp tReGIS thpgl tsun tCGI
X
Xtherc:
X $(CC) $(CFLAGS) driver.c -o therc -lherc -lm
X
Xtplotlp:
X $(CC) $(CFLAGS) lpdriver.c -o tplotlp -lplotlp -lm
X
XtReGIS:
X $(CC) $(CFLAGS) driver.c -o tReGIS -lReGIS -lm
X
XtCGI:
X $(CC) $(CFLAGS) driver.c -o tCGI -lcgi -lm
X
Xthpgl:
X $(CC) $(CFLAGS) driver.c -o thpgl -lhpgl -lm
X
Xtsun:
X $(CC) $(CFLAGS) driver.c -o tsun -lsun -lm
X
Xinstall: therc tplotlp tReGIS tln03 tCGI thpgl tsun
X cp therc /usr/lib
X cp tplotlp /usr/lib
X cp tReGIS /usr/lib
X cp tln03 /usr/lib
X cp tCGI /usr/lib
X cp thpgl /usr/lib
X cp tsun /usr/lib
X
SHAR_EOF
$TOUCH -am 1026194490 makefile &&
chmod 0644 makefile ||
echo "restore of makefile failed"
set `wc -c makefile`;Wc_c=$1
if test "$Wc_c" != "584"; then
echo original size 584, current size $Wc_c
fi
echo "End of part 8, continue with part 9"
exit 0
--
UUCP: ..!uunet!mcsun!hp4nl!integow!hot or hot@integow.UUCP or hot@hot.mug
Roland van Hout, Sr. software engineer, Integrity software consultants,
Pelmolenlaan 16, 3447 GW Woerden, Netherlands,
tel +31 3480-30131, fax +31 3480-30182
