Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/misc/volume24/gnuplot3/part11

Text File | 1991-10-27 | 49KB | 1,778 lines

Newsgroups: comp.sources.misc
From: [e-mail] (Elber Gershon)
Subject:  v24i033:  gnuplot3 - interactive function plotting utility, Part11/26
Message-ID: <[e-mail]>
X-Md4-Signature: 4fef2995497b6a848484ce063ddaf813
Date: Mon, 28 Oct 1991 00:21:39 GMT
Approved: [e-mail]

Submitted-by: [e-mail] (Elber Gershon)
Posting-number: Volume 24, Issue 33
Archive-name: gnuplot3/part11
Environment: UNIX, MS-DOS, VMS
Supersedes: gnuplot2: Volume 11, Issue 65-79

#!/bin/sh
# this is Part.11 (part 11 of a multipart archive)
# do not concatenate these parts, unpack them in order with /bin/sh
# file gnuplot/docs/titlepage.tex continued
#
if test ! -r _shar_seq_.tmp; then
    echo 'Please unpack part 1 first!'
    exit 1
fi
(read Scheck
 if test "$Scheck" != 11; then
    echo Please unpack part "$Scheck" next!
    exit 1
 else
    exit 0
 fi
) < _shar_seq_.tmp || exit 1
if test ! -f _shar_wnt_.tmp; then
    echo 'x - still skipping gnuplot/docs/titlepage.tex'
else
echo 'x - continuing file gnuplot/docs/titlepage.tex'
sed 's/^X//' << 'SHAR_EOF' >> 'gnuplot/docs/titlepage.tex' &&
X   {\huge\bf GNUPLOT}\\
X   \vspace{3ex}
X   {\Large An Interactive Plotting Program}\\
X   \vspace{2ex}
X   \large
X   Thomas Williams \& Colin Kelley\\
X   \vspace{2ex}
X   Version 3.0 organized by: Gershon Elber \\
X   Version 3.0 major contributors (alphabetic order):\\
X  John Campbell\\
X  Gershon Elber\\
X  David Kotz\\
X  Ed Kubaitis\\
X  Russell Lang\\
X  Tom Tkacik\\
X  Alex Woo\\
X
X   \vspace{3ex}
X   Mailing list for comments: \verb+pixar![e-mail]+\\
X   Mailing list for bug reports: \verb+pixar![e-mail]+
X
X   \vfill
X   {\small This manual is for GNUPLOT version 3.0.}
X
X   \end{center}
\newpage
X
\tableofcontents
\newpage
X
\setcounter{page}{1}
\pagestyle{myheadings}
\markboth{GNUPLOT 3.0}{GNUPLOT 3.0}
SHAR_EOF
echo 'File gnuplot/docs/titlepage.tex is complete' &&
chmod 0644 gnuplot/docs/titlepage.tex ||
echo 'restore of gnuplot/docs/titlepage.tex failed'
Wc_c="`wc -c < 'gnuplot/docs/titlepage.tex'`"
test 1027 -eq "$Wc_c" ||
    echo 'gnuplot/docs/titlepage.tex: original size 1027, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= gnuplot/docs/toc_entry.sty ==============
if test -f 'gnuplot/docs/toc_entry.sty' -a X"$1" != X"-c"; then
    echo 'x - skipping gnuplot/docs/toc_entry.sty (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting gnuplot/docs/toc_entry.sty (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/docs/toc_entry.sty' &&
%
% TOC_ENTRY.STY of 13 Dec 90
% written by Stefan Timphus
%
% Will produce the right space for sectionnumbers in the tableofcontents
% Necessary for entries where the number for each kind of section
% is greater 10 (e.g. "12.14.18 Sectionname")
% When using the original definition the first letter of the sectionname
% overwrites the last number of the sectionnumber
%
% call adjustments with command \adjustSTYLENAME
%
X
\typeout{`toc_entry.sty' 1.0 of 13 Dec 90}
X
%
% HERE ARE THE ORIGINAL DEFINITIONS
%
X
% article.sty
%
%\def\l@subsection{\@dottedtocline{2}{1.5em}{2.3em}}
%\def\l@subsubsection{\@dottedtocline{3}{3.8em}{3.2em}}
%\def\l@paragraph{\@dottedtocline{4}{7.0em}{4.1em}}
%\def\l@subparagraph{\@dottedtocline{5}{10em}{5em}}
X
% report.sty and book.sty
%
%\def\l@section{\@dottedtocline{1}{1.5em}{2.3em}}
%\def\l@subsection{\@dottedtocline{2}{3.8em}{3.2em}}
%\def\l@subsubsection{\@dottedtocline{3}{7.0em}{4.1em}}
%\def\l@paragraph{\@dottedtocline{4}{10em}{5em}}
%\def\l@subparagraph{\@dottedtocline{5}{12em}{6em}}
X
%
% MODIFICATIONS
%
X
\newlength{\twonum}
X        \settowidth{\twonum}{99.99.}
\newlength{\threenum}
X        \settowidth{\threenum}{99.99.99.}
\newlength{\fournum}
X        \settowidth{\fournum}{99.99.99.99.}
\newlength{\fivenum}
X        \settowidth{\fivenum}{99.99.99.99.99.}
\newlength{\sixnum}
X        \settowidth{\sixnum}{99.99.99.99.99.99.}
X
\newcommand{\adjustarticle}
{\def\l@subsection{\@dottedtocline{2}{1.5em}{\twonum}}
\def\l@subsubsection{\@dottedtocline{3}{4.0em}{\threenum}}
\def\l@paragraph{\@dottedtocline{4}{7.8em}{\fournum}}
\def\l@subparagraph{\@dottedtocline{5}{10.4em}{\fivenum}}}
X
\newcommand{\adjustreport}
{\def\l@section{\@dottedtocline{1}{1.5em}{\twonum}}
\def\l@subsection{\@dottedtocline{2}{4.0em}{\threenum}}
\def\l@subsubsection{\@dottedtocline{3}{7.8em}{\fournum}}
\def\l@paragraph{\@dottedtocline{4}{10.4em}{\fivenum}}
\def\l@subparagraph{\@dottedtocline{5}{12.6em}{\sixnum}}}
X
\newcommand{\adjustbook}{\adjustreport}
X
% end of TOC_ENTRY.STY
SHAR_EOF
chmod 0644 gnuplot/docs/toc_entry.sty ||
echo 'restore of gnuplot/docs/toc_entry.sty failed'
Wc_c="`wc -c < 'gnuplot/docs/toc_entry.sty'`"
test 2009 -eq "$Wc_c" ||
    echo 'gnuplot/docs/toc_entry.sty: original size 2009, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= gnuplot/docs/Makefile.ami ==============
if test -f 'gnuplot/docs/Makefile.ami' -a X"$1" != X"-c"; then
    echo 'x - skipping gnuplot/docs/Makefile.ami (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting gnuplot/docs/Makefile.ami (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/docs/Makefile.ami' &&
#
# Makefile for GNUPLOT documentation (Aztec C v5.xx Version)
#
# Note that the top-level file for documentation is gnuplot.doc.
# See README.
#
# To print manual:
#    make gnuplot.dvi             (for latex)
#    (print or view gnuplot.dvi)
# OR
#    make gnuplot.nroff           (for nroff)
#    (print or view gnuplot.nroff)
#   or
#    make "TROFF=itroff" troff    (for troff; use your troff for itroff here)
#
# $Id: Makefile,v 1.1 90/01/11 15:43:03 dfk Exp Locker: dfk $
X
# usually overridden by ../Makefile
HELPDEST = /usr/local/lib/
X
# substitute your troff command (and any flags) for this one
TROFF=itroff
X
# substitute cp if you do not have the install program
INSTALL=install
X
# Compiler flags
# -DSYSV if att sys V
# -DMSDOS if MSDOS PS
# -traditional -g -O if gcc (set 'CC = gcc')
# no extra flags for BSD
CFLAGS =
CC = cc
LN =ln
LFLAGS = -lm -lc
X
# default is what is needed for interactive gnuplot
default: gnuplot.hlp gnuplot.gih
X
### [tn]roff documentation
troff: gnuplot.ms titlepage.ms
X    tbl gnuplot.ms | eqn | $(TROFF) -ms
X
# for screen viewing, or printers with backspace/overstrike, remove the -Tlpr
nroff gnuplot.nroff: gnuplot.ms titlepage.ms
X    tbl gnuplot.ms | neqn | nroff -ms -Tlpr > gnuplot.nroff
X
ms gnuplot.ms: doc2ms gnuplot.doc
X    doc2ms < gnuplot.doc > gnuplot.ms
X
doc2ms: doc2ms.c
X    $(CC) $(CFLAGS) -o doc2ms.o doc2ms.c
X    $(LN) -o doc2ms doc2ms.o $(LFLAGS)
X
### LaTeX documentation
tex gnuplot.tex: doc2tex gnuplot.doc
X    doc2tex < gnuplot.doc > gnuplot.tex
X
dvi gnuplot.dvi: gnuplot.tex titlepage.tex
X    latex gnuplot.tex
X    latex gnuplot.tex
X
doc2tex: doc2tex.c
X    $(CC) $(CFLAGS) -o doc2tex.o doc2tex.c
X    $(LN) -o doc2tex doc2tex.o $(LFLAGS)
X
# this is how to make gnuplot.hlp
hlp gnuplot.hlp: doc2hlp gnuplot.doc
X    doc2hlp < gnuplot.doc > gnuplot.hlp
X
doc2hlp: doc2hlp.c
X    $(CC) $(CFLAGS) -o doc2hlp.o doc2hlp.c
X    $(LN) -o doc2hlp doc2hlp.o $(LFLAGS)
X
# this is how to make gnuplot.gih
gih gnuplot.gih: doc2gih gnuplot.doc
X    doc2gih < gnuplot.doc > gnuplot.gih
X
doc2gih: doc2gih.c
X    $(CC) $(CFLAGS) -o doc2gih.o doc2gih.c
X    $(LN) -o doc2gih doc2gih.o $(LFLAGS)
X
# this is how to check the gnuplot.doc file
check: checkdoc gnuplot.doc
X    checkdoc < gnuplot.doc
X
checkdoc: checkdoc.c
X    $(CC) $(CFLAGS) -o checkdoc.o checkdoc.c
X    $(LN) -o checkdoc checkdoc.o $(LFLAGS)
X
# For Unix and MSDOS only
install-unix: gnuplot.gih
X    $(INSTALL) gnuplot.gih $(HELPDEST)
X
# for VMS only
install-vms: gnuplot.hlp
X    $(INSTALL) gnuplot.hlp $(HELPDEST)
X
# remove all derived files
clean:
X    rm -f doc2ms gnuplot.nroff gnuplot.ms
X    rm -f doc2tex gnuplot.tex gnuplot.dvi gnuplot.aux gnuplot.log gnuplot.toc
X    rm -f doc2hlp gnuplot.hlp
X    rm -f doc2gih gnuplot.gih
X    rm -f checkdoc *~ *.o core a.out
SHAR_EOF
chmod 0644 gnuplot/docs/Makefile.ami ||
echo 'restore of gnuplot/docs/Makefile.ami failed'
Wc_c="`wc -c < 'gnuplot/docs/Makefile.ami'`"
test 2688 -eq "$Wc_c" ||
    echo 'gnuplot/docs/Makefile.ami: original size 2688, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= gnuplot/corgraph.asm ==============
if test -f 'gnuplot/corgraph.asm' -a X"$1" != X"-c"; then
    echo 'x - skipping gnuplot/corgraph.asm (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting gnuplot/corgraph.asm (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/corgraph.asm' &&
TITLE    Corona graphics module
;    Colin Kelley
;    January 1987
X
include header.mac
X
if1
include lineproc.mac
endif
X
X
_text    segment
X
public    _GrInit,_GrReset,_GrOnly,_TxOnly,_GrandTx,_Cor_line,_Cor_mask
X
corpixel proc near
X    ror word ptr linemask,1
X    jc cont
X    ret
cont:    push bp
X    mov bp,sp
X    push ax
X    push bx
X    push cx
X    mov es,ScSeg
X    shl bx,1            ; y
X    mov bx,word ptr LookUp[bx] ; bx has y mem address
X    mov cl,al            ; x
X    and cl,7
X    shr ax,1
X    shr ax,1
X    shr ax,1            ; ax /= 8
X    add bx,ax
X    mov al,1
X    shl al,cl            ; al contains bit mask
X    or byte ptr es:[bx],al
X    pop cx
X    pop bx
X    pop ax
X    pop bp
X    ret
X
lineproc _Cor_line, corpixel
X
beginproc _GrInit
X    push bp
X    mov bp,sp
X    push di
X    mov ax, [bp+X]            ; screen number (0 - 7)
X    mov cl,11
X    shl ax,cl            ; multiply by 2048 to get segment
X    mov ScSeg,ax            ; save segment for later
X    push ax
X    mov es, ax
X    xor ax,ax
X    mov di,ax
X    mov cx, 4000h
X    cld
X    rep stosw
X    pop cx
X    call near ptr GrAddr
X    mov ax,es
X    pop di
X    pop bp
X    ret
_GrInit    endp
X
beginproc _GrReset
X    mov cx, 0
X    call near ptr GrAddr
X    ret
_GrReset endp
X
GrAddr    proc near
X    mov dx,3b4h            ; address of 6845
X    mov al,0ch            ; register 12
X    out dx,al
X    inc dx
X    mov al,ch            ; Graphics Segment High
X    out dx,al
X    dec dx
X    mov al,0dh            ; register 13
X    out dx,al
X    mov al,cl            ; Graphics Segment Low
X    inc dx
X    out dx,al
X    ret
GrAddr    endp
X
beginproc _GrOnly
X    mov dx,3b8h
X    mov al,0a0h
X    out dx,al
X    ret
_GrOnly    endp
X
beginproc _TxOnly
X    mov dx,3b8h
X    mov al,28h
X    out dx,al
X    ret
_TxOnly    endp
X
beginproc _GrandTx
X    mov dx,3b8h
X    mov al,0a8h
X    out dx,al
X    ret
_GrandTx endp
X
beginproc _Cor_mask
X    push bp
X    mov bp,sp
X    mov ax,[bp+x]            ; mask
X    mov linemask,ax
X    pop bp
X    ret
_Cor_mask endp
X
corpixel endp
X
_text    ends
X
X
_data    segment
linemask dw -1
ScSeg    dw 0
_data    ends
X
const    segment
X
K    equ 1024
X
mem_mac    MACRO x
X    dw x,2*K+x,4*K+x,6*K+x,8*K+x,10*K+x,12*K+x,14*K+x,16*K+x
X    dw 18*K+x,20*K+x,22*K+x,24*K+x
X    ENDM
LookUp    equ $
X    mem_mac 0
X    mem_mac 80
X    mem_mac (80*2)
X    mem_mac (80*3)
X    mem_mac (80*4)
X    mem_mac (80*5)
X    mem_mac (80*6)
X    mem_mac (80*7)
X    mem_mac (80*8)
X    mem_mac (80*9)
X    mem_mac (80*10)
X    mem_mac (80*11)
X    mem_mac (80*12)
X    mem_mac (80*13)
X    mem_mac (80*14)
X    mem_mac (80*15)
X    mem_mac (80*16)
X    mem_mac (80*17)
X    mem_mac (80*18)
X    mem_mac (80*19)
X    mem_mac (80*20)
X    mem_mac (80*21)
X    mem_mac (80*22)
X    mem_mac (80*23)
X    mem_mac (80*24)
X
const    ends
X
X    end
SHAR_EOF
chmod 0666 gnuplot/corgraph.asm ||
echo 'restore of gnuplot/corgraph.asm failed'
Wc_c="`wc -c < 'gnuplot/corgraph.asm'`"
test 2272 -eq "$Wc_c" ||
    echo 'gnuplot/corgraph.asm: original size 2272, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= gnuplot/corplot.c ==============
if test -f 'gnuplot/corplot.c' -a X"$1" != X"-c"; then
    echo 'x - skipping gnuplot/corplot.c (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting gnuplot/corplot.c (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/corplot.c' &&
/* GNUPLOT - corplot.c */
/*
X * Copyright (C) 1986, 1987, 1990, 1991   Thomas Williams, Colin Kelley
X *
X * Permission to use, copy, and distribute this software and its
X * documentation for any purpose with or without fee is hereby granted,
X * provided that the above copyright notice appear in all copies and
X * that both that copyright notice and this permission notice appear
X * in supporting documentation.
X *
X * Permission to modify the software is granted, but not the right to
X * distribute the modified code.  Modifications are to be distributed
X * as patches to released version.
X *
X * This software is provided "as is" without express or implied warranty.
X *
X *
X * AUTHORS
X *
X *   Original Software:
X *     Thomas Williams,  Colin Kelley.
X *
X *   Gnuplot 2.0 additions:
X *       Russell Lang, Dave Kotz, John Campbell.
X *
X *   Gnuplot 3.0 additions:
X *       Gershon Elber and many others.
X *
X * Send your comments or suggestions to
X *  pixar![e-mail].
X * This is a mailing list; to join it send a note to
X *  pixar![e-mail].
X * Send bug reports to
X *  pixar![e-mail].
X */
#include <stdio.h>
#include <process.h>
#include <dos.h>
X
#define BOUNDARY 32768
#define segment(addr) (FP_SEG(m) + ((FP_OFF(m)+15) >> 4));
#define round(value,boundary) (((value) + (boundary) - 1) & ~((boundary) - 1))
X
char *malloc(),*realloc();
X
char prog[] = "gnuplot";
char corscreen[] = "CORSCREEN=0";
X
main()
{
register unsigned int segm,start;
char *m;
X    if (!(m = malloc(BOUNDARY))) {
X        printf("malloc() failed\n");
X        exit(1);
X    }
X    segm = segment(m);
X    start = round(segm,BOUNDARY/16);
X
X    if (realloc(m,BOUNDARY+(start-segm)*16) != m) {
X        printf("can't realloc() memory\n");
X        exit(2);
X    }
X
X    if ((segm = start >> 11) >= 8) {
X        printf("not enough room in first 256K\n");
X        exit(3);
X    }
X
X    corscreen[sizeof(corscreen)-2] = '0' + segm;
X    if (putenv(corscreen))
X        perror("putenv");
X
X    if (spawnlp(P_WAIT,prog,prog,NULL))
X        perror("spawnlp");
}
SHAR_EOF
chmod 0666 gnuplot/corplot.c ||
echo 'restore of gnuplot/corplot.c failed'
Wc_c="`wc -c < 'gnuplot/corplot.c'`"
test 1979 -eq "$Wc_c" ||
    echo 'gnuplot/corplot.c: original size 1979, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= gnuplot/eval.c ==============
if test -f 'gnuplot/eval.c' -a X"$1" != X"-c"; then
    echo 'x - skipping gnuplot/eval.c (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting gnuplot/eval.c (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/eval.c' &&
/* GNUPLOT - eval.c */
/*
X * Copyright (C) 1986, 1987, 1990, 1991   Thomas Williams, Colin Kelley
X *
X * Permission to use, copy, and distribute this software and its
X * documentation for any purpose with or without fee is hereby granted,
X * provided that the above copyright notice appear in all copies and
X * that both that copyright notice and this permission notice appear
X * in supporting documentation.
X *
X * Permission to modify the software is granted, but not the right to
X * distribute the modified code.  Modifications are to be distributed
X * as patches to released version.
X *
X * This software is provided "as is" without express or implied warranty.
X *
X *
X * AUTHORS
X *
X *   Original Software:
X *     Thomas Williams,  Colin Kelley.
X *
X *   Gnuplot 2.0 additions:
X *       Russell Lang, Dave Kotz, John Campbell.
X *
X *   Gnuplot 3.0 additions:
X *       Gershon Elber and many others.
X *
X * Send your comments or suggestions to
X *  pixar![e-mail].
X * This is a mailing list; to join it send a note to
X *  pixar![e-mail].
X * Send bug reports to
X *  pixar![e-mail].
X */
X
#include <stdio.h>
#include "plot.h"
X
extern int c_token;
extern struct ft_entry ft[];
extern struct udvt_entry *first_udv;
extern struct udft_entry *first_udf;
extern struct at_type at;
extern struct lexical_unit token[];
X
struct value *integer();
X
X
X
struct udvt_entry *
add_udv(t_num)  /* find or add value and return pointer */
int t_num;
{
register struct udvt_entry **udv_ptr = &first_udv;
X
X    /* check if it's already in the table... */
X
X    while (*udv_ptr) {
X        if (equals(t_num,(*udv_ptr)->udv_name))
X            return(*udv_ptr);
X        udv_ptr = &((*udv_ptr)->next_udv);
X    }
X
X    *udv_ptr = (struct udvt_entry *)
X      alloc((unsigned int)sizeof(struct udvt_entry), "value");
X    (*udv_ptr)->next_udv = NULL;
X    copy_str((*udv_ptr)->udv_name,t_num);
X    (*udv_ptr)->udv_value.type = INT;    /* not necessary, but safe! */
X    (*udv_ptr)->udv_undef = TRUE;
X    return(*udv_ptr);
}
X
X
struct udft_entry *
add_udf(t_num)  /* find or add function and return pointer */
int t_num; /* index to token[] */
{
register struct udft_entry **udf_ptr = &first_udf;
X
X    while (*udf_ptr) {
X        if (equals(t_num,(*udf_ptr)->udf_name))
X            return(*udf_ptr);
X        udf_ptr = &((*udf_ptr)->next_udf);
X    }
X     *udf_ptr = (struct udft_entry *)
X      alloc((unsigned int)sizeof(struct udft_entry), "function");
X    (*udf_ptr)->next_udf = (struct udft_entry *) NULL;
X    (*udf_ptr)->definition = NULL;
X    (*udf_ptr)->at = NULL;
X    copy_str((*udf_ptr)->udf_name,t_num);
X    (void) integer(&((*udf_ptr)->dummy_values[0]), 0);
X    (void) integer(&((*udf_ptr)->dummy_values[1]), 0);
X    return(*udf_ptr);
}
X
X
union argument *
add_action(sf_index)
enum operators sf_index;        /* index of p-code function */
{
X    if (at.a_count >= MAX_AT_LEN)
X        int_error("action table overflow",NO_CARET);
X    at.actions[at.a_count].index = sf_index;
X    return(&(at.actions[at.a_count++].arg));
}
X
X
int standard(t_num)  /* return standard function index or 0 */
{
register int i;
X    for (i = (int)SF_START; ft[i].f_name != NULL; i++) {
X        if (equals(t_num,ft[i].f_name))
X            return(i);
X    }
X    return(0);
}
X
X
X
execute_at(at_ptr)
struct at_type *at_ptr;
{
register int i,index,count,offset;
X
X    count = at_ptr->a_count;
X    for (i = 0; i < count;) {
X        index = (int)at_ptr->actions[i].index;
X        offset = (*ft[index].func)(&(at_ptr->actions[i].arg));
X        if (is_jump(index))
X            i += offset;
X        else
X            i++;
X    }
}
X
/*
X
X 'ft' is a table containing C functions within this program.
X
X An 'action_table' contains pointers to these functions and arguments to be
X passed to them.
X
X at_ptr is a pointer to the action table which must be executed (evaluated)
X
X so the iterated line exectues the function indexed by the at_ptr and
X passes the address of the argument which is pointed to by the arg_ptr
X
*/
SHAR_EOF
chmod 0666 gnuplot/eval.c ||
echo 'restore of gnuplot/eval.c failed'
Wc_c="`wc -c < 'gnuplot/eval.c'`"
test 3799 -eq "$Wc_c" ||
    echo 'gnuplot/eval.c: original size 3799, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= gnuplot/gnuplot.el ==============
if test -f 'gnuplot/gnuplot.el' -a X"$1" != X"-c"; then
    echo 'x - skipping gnuplot/gnuplot.el (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting gnuplot/gnuplot.el (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/gnuplot.el' &&
;
; gnu-plot.el - Definitions of GNU-PLOT mode for emacs editor.
;
; Author:    Gershon Elber
;         Computer Science Dept.
;         University of Utah
; Date:    Tue May 14 1991
; Copyright (c) 1991, Gershon Elber
;
; This file defines an environment to run edit and execute GNU-PLOT programs.
; Such a program should have a '.gp' extension in order it to be in
; gnu-plot-mode major mode. Two new functions are provided to communicate
; between the editted file and the plotting program:
; 1. send-line-to-gnu-plot - sends a single line to the plotting program for
;    execution. The line sent is the line the cursor is on,
;    Bounded to Meta-E be default.
; 2. send-region-to-gnu-plot - sends the region from the current mark
;    (mark-marker) to current position (point-marker) to the plotting program.
;    This function is convenient for sending a large block of commands.
;    Bounded to Meta-R be default.
; Both functions checks for existance of a buffer named gnu-plot-program
; and a process named "gnu-plot" hooked to it, and will restart a new process
; or buffer if none exists. The program to execute as process "gnu-plot" is
; defined by the gnu-plot-program constant below.
;
X
(defvar gnu-plot-program "gnuplot"
X  "*The executable to run for gnu-plot-program buffer.")
X
(defvar gnu-plot-echo-program t
X  "*Control echo of executed commands to gnu-plot-program buffer.")
X
(defvar gnu-plot-mode-map nil "")
(if gnu-plot-mode-map
X    ()
X  (setq gnu-plot-mode-map (make-sparse-keymap))
X  (define-key gnu-plot-mode-map "\M-e" 'send-line-to-gnu-plot)
X  (define-key gnu-plot-mode-map "\M-r" 'send-region-to-gnu-plot))
X
;;;
;;; Define the gnu-plot-mode
;;;
(defun gnu-plot-mode ()
X  "Major mode for editing and executing GNU-PLOT files.
X
see send-line-to-gnu-plot and send-region-to-gnu-plot for more."
X  (interactive)
X  (use-local-map gnu-plot-mode-map)
X  (setq major-mode 'gnu-plot-mode)
X  (setq mode-name "Gnu-Plot")
X  (run-hooks 'gnu-plot-mode-hook))
X
;;;
;;; Define send-line-to-gnu-plot - send from current cursor position to next
;;; semicolin detected.
;;;
(defun send-line-to-gnu-plot ()
X  "Sends one line of code from current buffer to the GNU-PLOT program.
X
Use to execute a line in the GNU-PLOT plotting program. The line send is
the line the cursor (point) is on.
X
The GNU-PLOT plotting program buffer name is gnu-plot-program and the
process name is 'gnu-plot'. If none exists, a new one is created.
X
The name of the gnu-plot program program to execute is stored in
gnu-plot-program variable and may be changed."
X  (interactive)
X  (if (equal major-mode 'gnu-plot-mode)
X    (progn
X      (make-gnu-plot-buffer)        ; In case we should start a new one.
X      (beginning-of-line)
X      (let ((start-mark (point-marker)))
X    (next-line 1)
X    (let* ((crnt-buffer (buffer-name))
X           (end-mark (point-marker))
X           (string-copy (buffer-substring start-mark end-mark)))
X      (switch-to-buffer-other-window (get-buffer "gnu-plot-program"))
X      (end-of-buffer)
X      (if gnu-plot-echo-program
X        (insert string-copy))
X      (set-marker (process-mark (get-process "gnu-plot")) (point-marker))
X      (if (not (pos-visible-in-window-p))
X        (recenter 3))
X      (switch-to-buffer-other-window (get-buffer crnt-buffer))
X      (process-send-region "gnu-plot" start-mark end-mark)
X      (goto-char end-mark))))
X    (message "Should be invoked in gnu-plot-mode only.")))
X
;;;
;;; Define send-region-to-gnu-plot - send from current cursor position to
;;; current marker.
;;;
(defun send-region-to-gnu-plot ()
X  "Sends a region of code from current buffer to the GNU-PLOT program.
X
When this function is invoked on an GNU-PLOT file it send the region
from current point to current mark to the gnu-plot plotting program.
X
The GNU-PLOT plotting program buffer name is gnu-plot-program and the
process name is 'gnu-plot'. If none exists, a new one is created.
X
The name of the gnu-plot program program to execute is stored in
gnu-plot-program variable and may be changed."
X  (interactive)
X  (if (equal major-mode 'gnu-plot-mode)
X    (progn
X      (make-gnu-plot-buffer)     ; In case we should start a new one.
X      (copy-region-as-kill (mark-marker) (point-marker))
X      (let ((crnt-buffer (buffer-name)))
X    (switch-to-buffer-other-window (get-buffer "gnu-plot-program"))
X    (end-of-buffer)
X    (if gnu-plot-echo-program
X      (yank))
X    (set-marker (process-mark (get-process "gnu-plot")) (point-marker))
X    (if (not (pos-visible-in-window-p))
X      (recenter 3))
X    (switch-to-buffer-other-window (get-buffer crnt-buffer))
X    (process-send-region "gnu-plot" (mark-marker) (point-marker))))
X    (message "Should be invoked in gnu-plot-mode only.")))
X
;;;
;;; Switch to "gnu-plot-program" buffer if exists. If not, creates one and
;;; execute the program defined by gnu-plot-program.
;;;
(defun make-gnu-plot-buffer ()
X  "Switch to iris-program buffer or create one if none exists"
X  (interactive)
X  (if (get-buffer "gnu-plot-program")
X    (if (not (get-process "gnu-plot"))
X      (progn
X    (message "Starting GNU-PLOT plotting program...")
X    (start-process "gnu-plot" "gnu-plot-program" gnu-plot-program)
X    (process-send-string "gnu-plot" "\n")
X    (message "Done.")))
X    (progn
X      (message "Starting GNU-PLOT plotting program...")
X      (start-process "gnu-plot" "gnu-plot-program" gnu-plot-program)
X      (process-send-string "gnu-plot" "\n")
X      (message "Done."))))
X
;;;
;;; Autoload gnu-plot-mode on any file with gp extension.
;;;
(setq auto-mode-alist (append '(("\\.gp$" . gnu-plot-mode))
X                  auto-mode-alist))
SHAR_EOF
chmod 0666 gnuplot/gnuplot.el ||
echo 'restore of gnuplot/gnuplot.el failed'
Wc_c="`wc -c < 'gnuplot/gnuplot.el'`"
test 5487 -eq "$Wc_c" ||
    echo 'gnuplot/gnuplot.el: original size 5487, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= gnuplot/gnuplot_x11.c ==============
if test -f 'gnuplot/gnuplot_x11.c' -a X"$1" != X"-c"; then
    echo 'x - skipping gnuplot/gnuplot_x11.c (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting gnuplot/gnuplot_x11.c (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/gnuplot_x11.c' &&
/*-----------------------------------------------------------------------------
X *   gnuplot_x11 - X11 outboard terminal driver for gnuplot 3
X *
X *   Requires installation of companion inboard x11 driver in gnuplot/term.c
X *
X *   Acknowledgements:
X *      Chris Peterson (MIT) - original Xlib gnuplot support (and Xaw examples)
X *      Dana Chee (Bellcore)  - mods to original support for gnuplot 2.0
X *      Arthur Smith (Cornell) - graphical-label-widget idea (xplot)
X *      Hendri Hondorp (University of Twente, The Netherlands) - Motif xgnuplot
X *
X *   This code is provided as is and with no warranties of any kind.
X *
X *   Ed Kubaitis - Computing Services Office -  University of Illinois, Urbana
X *---------------------------------------------------------------------------*/
X
#include <stdio.h>
#include <signal.h>
#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <Label.h>          /* use -Idir for location on your system */
#ifdef MOTIF
#include <Xm.h>             /* use -Idir for location on your system */
#define LabelWC xmLabelWidgetClass
#define LabelBPM XmNbackgroundPixmap
#else
#define LabelWC labelWidgetClass
#define LabelBPM XtNbitmap
#endif
X
#define Color (D>1)
#define Ncolors 11
unsigned long colors[Ncolors];
char color_keys[Ncolors][30] =   { "text", "border", "axis",
X   "line1", "line2", "line3", "line4", "line5", "line6", "line7", "line8" };
char color_values[Ncolors][30] = { "black", "black", "black",
X   "red",  "green", "blue",  "magenta", "cyan", "sienna", "orange", "coral" };
X
char dashes[10][5] = { {0}, {1,6,0},
X   {0}, {4,2,0}, {1,3,0}, {4,4,0}, {1,5,0}, {4,4,4,1,0}, {4,2,0}, {1,3,0}
X   };
X
Widget w_top, w_label; Window win; Display *dpy;
Pixmap pixmap;  GC gc = (GC)NULL;
Dimension W = 640 , H = 450;  int D;
Arg args[5];
static void gnuplot(), resize();
X
int cx=0, cy=0, vchar, nc = 0, ncalloc = 0;
double xscale, yscale;
#define X(x) (Dimension) (x * xscale)
#define Y(y) (Dimension) ((4095-y) * yscale)
enum JUSTIFY { LEFT, CENTRE, RIGHT } jmode;
#define Nbuf 1024
char buf[Nbuf];
String *commands = NULL;
X
typedef struct {       /* See "X Toolkit Intrinsics Programming Manual"      */
X  XFontStruct *font;   /* Nye and O'Reilly, O'Reilly & Associates, pp. 80-85 */
X  unsigned long fg;
X  unsigned long bg;
X  } RValues, *RVptr;
RValues rv;
X
XXtResource resources[] = {
X   { XtNfont, XtCFont, XtRFontStruct, sizeof(XFontStruct *),
X     XtOffset(RVptr, font), XtRString, "fixed" },
X   { XtNforeground, XtCForeground, XtRPixel, sizeof(Pixel),
X     XtOffset(RVptr, fg), XtRString, XtDefaultForeground },
X   { XtNbackground, XtCBackground, XtRPixel, sizeof(Pixel),
X     XtOffset(RVptr, bg), XtRString, XtDefaultBackground },
X   };
X
/*-----------------------------------------------------------------------------
X *   main program - fire up application and callbacks
X *---------------------------------------------------------------------------*/
X
main(argc, argv) int argc; char *argv[]; {
X
X   signal(SIGINT, SIG_IGN);
#ifdef SIGTSTP
X   signal(SIGTSTP, SIG_IGN);
#endif
X
X   /* initialize application */
X   w_top = XtInitialize("gnuplot", "Gnuplot", NULL, 0, &argc, argv);
X   XtSetArg(args[0], XtNwidth, W);
X   XtSetArg(args[1], XtNheight, H);
X   w_label = XtCreateManagedWidget ("", LabelWC, w_top, args, (Cardinal)2);
X   XtRealizeWidget(w_top);
X
X   /* extract needed information */
X   dpy = XtDisplay(w_top); win = XtWindow(w_label);
X   D = DisplayPlanes(dpy,DefaultScreen(dpy));
X   if (Color) {
X      char option[20], *value;
X      XColor used, exact; int n;
X
X      for(n=0; n<Ncolors; n++) {
X     strcpy(option, color_keys[n]);
X     strcat(option, "Color");
X     value = XGetDefault(dpy, "gnuplot", option);
X     if (!value) { value = color_values[n]; }
X     if (XAllocNamedColor(dpy, DefaultColormap(dpy,0), value, &used,&exact))
X        colors[n] = used.pixel;
X     else {
X        fprintf(stderr, "gnuplot: cannot allocate %s:%s\n", option, value);
X        fprintf(stderr, "gnuplot: assuming %s:black\n", option);
X        colors[n] = BlackPixel(dpy,0);
X        }
X     }
X      }
X   XtSetArg(args[0], XtNwidth, &W);
X   XtSetArg(args[1], XtNheight,&H);
X   XtGetValues(w_label, args, (Cardinal)2);
X   XtGetApplicationResources(w_top, &rv, resources, XtNumber(resources),NULL,0);
X   vchar = (rv.font->ascent + rv.font->descent);
X
X   /* add callbacks on input-from-gnuplot-on-stdin & window-resized */
X   XtAddInput(0, XtInputReadMask, gnuplot, NULL);
X   XtAddEventHandler(w_label, StructureNotifyMask, FALSE, resize, NULL);
X
X   XtMainLoop();
X   }
X
/*-----------------------------------------------------------------------------
X *   display - display accumulated commands from inboard driver
X *---------------------------------------------------------------------------*/
X
display() {
X   int n, x, y, sw, sl, lt, width, type;
X   char *buf, *str;
X
X   /* set scaling factor between internal driver & window geometry */
X   xscale = (double)W / 4096.;  yscale = (double)H / 4096.;
X
X   /* create new pixmap & GC */
X   if (gc) { XFreeGC(dpy, gc); XFreePixmap(dpy, pixmap); }
X   pixmap = XCreatePixmap(dpy, RootWindow(dpy,DefaultScreen(dpy)), W, H, D);
X   gc = XCreateGC(dpy, pixmap, 0, NULL);
X   XSetFont(dpy, gc, rv.font->fid);
X
X   /* erase pixmap */
#ifndef MOTIF
X   if (Color) { /* Athena needs different erase for color and mono */
#endif
X      XSetForeground(dpy, gc, rv.bg);
X      XFillRectangle(dpy, pixmap, gc, 0, 0, W, H);
X      XSetForeground(dpy, gc, rv.fg);
X      XSetBackground(dpy, gc, rv.bg);
#ifndef MOTIF
X      }
X   else {
X      XSetFunction(dpy, gc, GXxor);
X      XCopyArea(dpy, pixmap, pixmap, gc, 0, 0, W, H, 0, 0);
X      XSetFunction(dpy, gc, GXcopyInverted);
X      }
#endif
X
X   /* connect new pixmap to label widget */
X   XtSetArg(args[0], LabelBPM, pixmap);
X   XtSetValues(w_label, args, (Cardinal)1);
X
X   /* loop over accumulated commands from inboard driver */
X   for (n=0; n<nc; n++) {
X      buf = commands[n];
X
X      /*   X11_vector(x,y) - draw vector  */
X      if (*buf == 'V') {
X     sscanf(buf, "V%4d%4d", &x, &y);
X     XDrawLine(dpy, pixmap, gc, X(cx), Y(cy), X(x), Y(y));
X     cx = x; cy = y;
X     }
X
X      /*   X11_move(x,y) - move  */
X      else if (*buf == 'M')
X     sscanf(buf, "M%4d%4d", &cx, &cy);
X
X      /*   X11_put_text(x,y,str) - draw text   */
X      else if (*buf == 'T') {
X     sscanf(buf, "T%4d%4d", &x, &y);
X     str = buf + 9; sl = strlen(str) - 1;
X     sw = XTextWidth(rv.font, str, sl);
X     switch(jmode) {
X        case LEFT:   sw = 0;     break;
X        case CENTRE: sw = -sw/2; break;
X        case RIGHT:  sw = -sw;   break;
X        }
X     if (!Color)
X        XDrawString(dpy, pixmap, gc, X(x)+sw, Y(y)+vchar/3, str, sl);
X     else {
X        XSetForeground(dpy, gc, colors[0]);
X        XDrawString(dpy, pixmap, gc, X(x)+sw, Y(y)+vchar/3, str, sl);
X        XSetForeground(dpy, gc, colors[lt+1]);
X        }
X     }
X
X      /*   X11_justify_text(mode) - set text justification mode  */
X      else if (*buf == 'J')
X     sscanf(buf, "J%4d", &jmode);
X
X      /*   X11_linetype(type) - set line type  */
X      else if (*buf == 'L') {
X     sscanf(buf, "L%4d", <);
X     lt = (lt%8)+2;
X     width = (lt == 0) ? 2 : 0;
X     if (Color) {
X        if (lt != 1)
X           type = LineSolid;
X        else {
X           type = LineOnOffDash;
X           XSetDashes(dpy, gc, 0, dashes[lt], strlen(dashes[lt]));
X           }
X        XSetForeground(dpy, gc, colors[lt+1]);
X        }
X     else {
X        type  = (lt == 0 || lt == 2) ? LineSolid : LineOnOffDash;
X        if (dashes[lt][0])
X           XSetDashes(dpy, gc, 0, dashes[lt], strlen(dashes[lt]));
X        }
X     XSetLineAttributes( dpy,gc, width, type, CapButt, JoinBevel);
X     }
X      }
X
X   /* trigger expose events to display pixmap */
X   XClearArea(dpy, win, 0, 0, 0, 0, True);
X   }
X
/*-----------------------------------------------------------------------------
X *   gnuplot - Xt callback on input from gnuplot inboard X11 driver
X *   resize - Xt callback when window resized
X *---------------------------------------------------------------------------*/
X
static void
gnuplot(cd, s, id) char *cd; int *s; XtInputId *id; {
X
X   while (fgets(buf, Nbuf, stdin)) {
X     if (*buf == 'G') {                           /* enter graphics mode */
X     if (commands) {
X        int n; for (n=0; n<nc; n++) XtFree(commands[n]);
X        XtFree(commands);
X        }
X     commands = NULL; nc = ncalloc = 0;
X         }
X      else if (*buf == 'E') { display(); break; } /* leave graphics mode */
X      else if (*buf == 'R') { exit(0); }          /* leave X11/x11 mode  */
X      else {
X     if (nc >= ncalloc) {
X        ncalloc = ncalloc*2 + 1;
X        commands = (String *)XtRealloc(commands, ncalloc * sizeof(String));
X        }
X     commands[nc++] = XtNewString(buf);
X     }
X      }
X   if (feof(stdin) || ferror(stdin)) exit(0);
X   }
X
static void
resize(w, cd, e) Widget w; char *cd; XConfigureEvent *e; {
X   if (e->type != ConfigureNotify) return;
X   W = e->width; H = e->height;
X   display();
X   }
SHAR_EOF
chmod 0644 gnuplot/gnuplot_x11.c ||
echo 'restore of gnuplot/gnuplot_x11.c failed'
Wc_c="`wc -c < 'gnuplot/gnuplot_x11.c'`"
test 8774 -eq "$Wc_c" ||
    echo 'gnuplot/gnuplot_x11.c: original size 8774, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= gnuplot/linkopt.tc ==============
if test -f 'gnuplot/linkopt.tc' -a X"$1" != X"-c"; then
    echo 'x - skipping gnuplot/linkopt.tc (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting gnuplot/linkopt.tc (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/linkopt.tc' &&
c:\tc\lib\C0l +
bitmap command eval graphics graph3d help internal misc parse +
plot scanner setshow standard term util version contour +
egavgaf hercf cgaf attf +
,gnuplot,gnuplot, +
c:\tc\lib\emu +
c:\tc\lib\mathl +
c:\tc\lib\cl +
c:\tc\lib\graphics
SHAR_EOF
chmod 0666 gnuplot/linkopt.tc ||
echo 'restore of gnuplot/linkopt.tc failed'
Wc_c="`wc -c < 'gnuplot/linkopt.tc'`"
test 252 -eq "$Wc_c" ||
    echo 'gnuplot/linkopt.tc: original size 252, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= gnuplot/lasergnu ==============
if test -f 'gnuplot/lasergnu' -a X"$1" != X"-c"; then
    echo 'x - skipping gnuplot/lasergnu (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting gnuplot/lasergnu (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/lasergnu' &&
#!/bin/csh -f
#
# Print gnuplot output on an Imagen or Postscript laser printer.
X
set print_banner = on    # Print a banner page unless told otherwise.
set input_files = ()    # the plot input command files
set lpr_opts = ()        # options to lpr
X
# Default printer set by shell variable PRINTER.
if (! $?PRINTER) then
X    if ($?LASER) then
X          set PRINTER=$LASER
X    else
X           set PRINTER="lw0"
X    endif
endif
set printer = (-P$PRINTER)
X
# File for plot commands, and for plot output
set TMP=/tmp/plot$$
set outfile=$TMP.out    # the output file
onintr cleanup
X
# default is Imagen mode for Imagen printer; see -p option
set setterm="set terminal imagen"
set LANG="-Limpress"
X
set usage="usage: lasergnu [-Pprinter] [-b] [-p] [-t title] [-f file] ['plot command']...."
X
# Loop through the command-line arguments.
X
top:
X    if ($#argv > 0) then
X
X        switch ("$argv[1]")
X
X        case -b*:    # Do not print a banner page.
X        case -J*:    # Compatible with imprint.
X            set print_banner = off
X                     set lpr_opts=($lpr_opts -h)
X            shift argv
X            goto top
X
X        case -f?*:    # Specify file containing plot commands
X            set input_files = ($input_files `echo $argv[1] | sed 's/^-f//'`)
X            shift argv
X            goto top
X
X        case -f:    # Specify file containing plot commands
X            shift argv
X            if ($#argv > 0) then
X                set input_files = ($input_files $argv[1])
X                shift argv
X            else
X                echo "Usage: -f file ..."
X                echo "Type    lasergnu -help    for help."
X                exit (1)
X            endif
X            goto top
X
X        case -t?*:    # Specify title of plot
X            echo set title \""`echo $argv[1] | sed 's/^-t//'`"\" >> $TMP
X            shift argv
X            goto top
X
X        case -t:    # Specify title of plot
X            shift argv
X            if ($#argv > 0) then
X                echo set title \""$1"\" >> $TMP
X                shift argv
X            else
X                echo "Usage: -t title ..."
X                echo "Type    lasergnu -help    for help."
X                exit (1)
X            endif
X            goto top
X          case -help:
X            echo "$usage"
X            exit(1)
X
X        case -P?*:    # Set the printer, exactly as by itroff.
X            set printer = $argv[1]
X            shift argv
X            goto top
X
X        case -P:    # Set the printer, exactly as by itroff.
X            shift argv
X            if ($#argv > 0) then
X                set printer = (-P$argv[1])
X                shift argv
X            else
X                echo "Usage: -P printer ..."
X                echo "Type    lasergnu -help    for help."
X                exit (1)
X            endif
X            goto top
X
X                # use impress
X           case -I:
X                echo Imagen is the default mode now
X             shift argv
X                goto top
X
X                # use postscript instead of impress language
X           case -p:
X                set setterm="set term postscript"
X                set LANG="-Lpostscript"
X             shift argv
X                goto top
X
X        case -?*:
X            echo "I do not recognize option $argv[1]."
X            echo "$usage"
X            exit (1)
X
X        default:
X              echo "$argv[1]"    >> $TMP
X            shift argv
X            goto top
X
X        endsw
X    endif
X
# try to devine the printer type
if ($printer =~ -Plw*) then
X    set setterm="set term postscript"
X    set LANG="-Lpostscript"
endif
X
if ($printer =~ -Pim*) then
X    set setterm="set term imagen"
X    set LANG="-Limpress"
endif
X
# Set up input file
echo $setterm > $TMP.plt
echo set output \"$outfile\" >> $TMP.plt
if (-e $TMP) cat $TMP >> $TMP.plt
X
# If input file is specified AND command line contains plot commands, then
#    do command line args first, then plot commands in input file.
gnuplot $TMP.plt $input_files
X
if ($status == 0 && -e $outfile && ! -z $outfile) then
X    # The printer is whatever printer was last specified,
X    # or the default printer if none was specified.
X    if ($LANG == -Limpress) then
X        /usr/local/bin/ipr $LANG $printer \
X           -D"jobheader $print_banner" \
X           -D"pagereversal on" \
X           -D"program lasergnu" $outfile
X    else if ($LANG == -Lpostscript) then
X           lpr $lpr_opts $printer $outfile
X    endif
else
X    echo "lasergnu: error in plotting or empty plot; nothing printed."
endif
X
cleanup:
rm -f $TMP* $outfile
SHAR_EOF
chmod 0644 gnuplot/lasergnu ||
echo 'restore of gnuplot/lasergnu failed'
Wc_c="`wc -c < 'gnuplot/lasergnu'`"
test 3801 -eq "$Wc_c" ||
    echo 'gnuplot/lasergnu: original size 3801, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= gnuplot/header.mac ==============
if test -f 'gnuplot/header.mac' -a X"$1" != X"-c"; then
    echo 'x - skipping gnuplot/header.mac (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting gnuplot/header.mac (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/header.mac' &&
if1
LARGE    equ 1            ; define your memory model here
X
ifdef    SMALL
X    ; default, so do nothing
X    else
X
ifdef    MEDIUM
X    LARGE_CODE equ 1
X    else
X
ifdef    COMPACT
X    LARGE_DATA equ 1
X    else
X
ifdef    LARGE
X    LARGE_DATA equ 1
X    LARGE_CODE equ 1
X
else
X    %out No memory model defined--assuming SMALL
X
endif    ; LARGE
endif    ; COMPACT
endif    ; MEDIUM
endif    ; SMALL
X
X
beginproc macro procname
X
ifdef    LARGE_CODE
X    procname proc far
else
X    procname proc near
endif    ; LARGE_CODE
X
X    endm    ; beginproc
X
X
endif    ; if1
X
X
_TEXT    SEGMENT    BYTE PUBLIC 'CODE'
_TEXT    ENDS
_DATA    SEGMENT WORD PUBLIC 'DATA'
_DATA    ENDS
CONST    SEGMENT WORD PUBLIC 'CONST'
CONST    ENDS
_BSS    SEGMENT WORD PUBLIC 'BSS'
_BSS    ENDS
X
DGROUP    GROUP    CONST, _BSS, _DATA
X    assume cs:_text, ds:dgroup, ss:dgroup, es:dgroup
X
; define X as the offset of first argument on stack frame
X
ifdef LARGE_CODE
X    X    equ 6            ; return offset and segment + old BP
else
X    X    equ 4            ; return offset + old BP
endif    ; LARGE_CODE
SHAR_EOF
chmod 0666 gnuplot/header.mac ||
echo 'restore of gnuplot/header.mac failed'
Wc_c="`wc -c < 'gnuplot/header.mac'`"
test 918 -eq "$Wc_c" ||
    echo 'gnuplot/header.mac: original size 918, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= gnuplot/readline.c ==============
if test -f 'gnuplot/readline.c' -a X"$1" != X"-c"; then
    echo 'x - skipping gnuplot/readline.c (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting gnuplot/readline.c (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/readline.c' &&
/* GNUPLOT - readline.c */
/*
X * Copyright (C) 1986, 1987, 1990, 1991   Thomas Williams, Colin Kelley
X *
X * Permission to use, copy, and distribute this software and its
X * documentation for any purpose with or without fee is hereby granted,
X * provided that the above copyright notice appear in all copies and
X * that both that copyright notice and this permission notice appear
X * in supporting documentation.
X *
X * Permission to modify the software is granted, but not the right to
X * distribute the modified code.  Modifications are to be distributed
X * as patches to released version.
X *
X * This software is provided "as is" without express or implied warranty.
X *
X *
X * AUTHORS
X *
X *   Original Software:
X *     Tom Tkacik
X *
X *   Msdos port and some enhancements:
X *     Gershon Elber and many others.
X *
X * Send your comments or suggestions to
X *  pixar![e-mail].
X * This is a mailing list; to join it send a note to
X *  pixar![e-mail].
X * Send bug reports to
X *  pixar![e-mail].
X */
X
#ifdef READLINE
X
/* a small portable version of GNU's readline */
X
/* do not need any terminal capabilities except backspace,
/* and space overwrites a character */
X
/* NANO-EMACS line editing facility */
/* printable characters print as themselves (insert not overwrite) */
/* ^A moves to the beginning of the line */
/* ^B moves back a single character */
/* ^E moves to the end of the line */
/* ^F moves forward a single character */
/* ^K kills from current position to the end of line */
/* ^P moves back through history */
/* ^N moves forward through history */
/* ^H and DEL delete the previous character */
/* ^D deletes the current character, or EOF if line is empty */
/* ^L/^R redraw line in case it gets trashed */
/* ^U kills the entire line */
/* ^W kills last word */
/* LF and CR return the entire line regardless of the cursor postition */
/* EOF with an empty line returns (char *)NULL */
X
/* all other characters are ignored */
X
#include <stdio.h>
#include <ctype.h>
#include <signal.h>
X
/* SIGTSTP defines job control */
/* if there is job control then we need termios.h instead of termio.h */
#ifdef SIGTSTP
#define TERMIOS
#endif
X
X
#ifndef MSDOS
X
/* UNIX specific stuff */
#ifdef TERMIOS
#include <termios.h>
static struct termios orig_termio, rl_termio;
#else
#include <termio.h>
static struct termio orig_termio, rl_termio;
#endif /* TERMIOS */
static int term_set = 0;    /* =1 if rl_termio set */
X
#else
X
/* MSDOS specific stuff */
#define getc(stdin) msdos_getch()
static char msdos_getch();
X
#endif /* MSDOS */
X
X
/* is it <string.h> or <strings.h>?   just declare what we need */
extern int strlen();
extern char *strcpy();
extern char *malloc();
X
#define MAXBUF    1024
#define BACKSPACE 0x08    /* ^H */
#define SPACE    ' '
X
struct hist {
X    char *line;
X    struct hist *prev;
X    struct hist *next;
};
X
static struct hist *history = NULL;  /* no history yet */
static struct hist *cur_entry = NULL;
X
static char cur_line[MAXBUF];  /* current contents of the line */
static int cur_pos = 0;    /* current position of the cursor */
static int max_pos = 0;    /* maximum character position */
X
X
void add_history();
static void fix_line();
static void redraw_line();
static void clear_line();
static void clear_eoline();
static void copy_line();
static void set_termio();
static void reset_termio();
X
char *
readline(prompt)
char *prompt;
{
X
X    char cur_char;
X    char *new_line;
X
X    /* set the termio so we can do our own input processing */
X    set_termio();
X
X    /* print the prompt */
X    fputs(prompt, stderr);
X    cur_line[0] = '\0';
X    cur_pos = 0;
X    max_pos = 0;
X    cur_entry = NULL;
X
X    /* get characters */
X    for(;;) {
X        cur_char = getc(stdin);
X        if(isprint(cur_char)) {
X            int i;
X            for(i=max_pos; i>cur_pos; i--) {
X                cur_line[i] = cur_line[i-1];
X            }
X            putc(cur_char, stderr);
X            cur_line[cur_pos] = cur_char;
X            cur_pos += 1;
X            max_pos += 1;
X            if (cur_pos < max_pos)
X                fix_line();
X            cur_line[max_pos] = '\0';
X
X        /* else interpret unix terminal driver characters */
#ifdef VERASE
X        } else if(cur_char == orig_termio.c_cc[VERASE] ){  /* DEL? */
X            if(cur_pos > 0) {
X                int i;
X                cur_pos -= 1;
X                putc(BACKSPACE, stderr);
X                for(i=cur_pos; i<max_pos; i++)
X                    cur_line[i] = cur_line[i+1];
X                max_pos -= 1;
X                fix_line();
X            }
#endif /* VERASE */
#ifdef VEOF
X        } else if(cur_char == orig_termio.c_cc[VEOF] ){   /* ^D? */
X            if(max_pos == 0) {
X                reset_termio();
X                return((char *)NULL);
X            }
X            if((cur_pos < max_pos)&&(cur_char == 004)) { /* ^D */
X                int i;
X                for(i=cur_pos; i<max_pos; i++)
X                    cur_line[i] = cur_line[i+1];
X                max_pos -= 1;
X                fix_line();
X            }
#endif /* VEOF */
#ifdef VKILL
X        } else if(cur_char == orig_termio.c_cc[VKILL] ){  /* ^U? */
X            clear_line(prompt);
#endif /* VKILL */
#ifdef VWERASE
X        } else if(cur_char == orig_termio.c_cc[VWERASE] ){  /* ^W? */
X            while((cur_pos > 0) &&
X                  (cur_line[cur_pos-1] == SPACE)) {
X                cur_pos -= 1;
X                putc(BACKSPACE, stderr);
X            }
X            while((cur_pos > 0) &&
X                  (cur_line[cur_pos-1] != SPACE)) {
X                cur_pos -= 1;
X                putc(BACKSPACE, stderr);
X            }
X            clear_eoline();
X            max_pos = cur_pos;
#endif /* VWERASE */
#ifdef VREPRINT
X        } else if(cur_char == orig_termio.c_cc[VREPRINT] ){  /* ^R? */
X            putc('\n',stderr); /* go to a fresh line */
X            redraw_line(prompt);
#else
#ifdef VRPRNT   /* on Ultrix VREPRINT is VRPRNT */
X        } else if(cur_char == orig_termio.c_cc[VRPRNT] ){  /* ^R? */
X            putc('\n',stderr); /* go to a fresh line */
X            redraw_line(prompt);
#endif /* VRPRNT */
#endif /* VREPRINT */
#ifdef VSUSP
X        } else if(cur_char == orig_termio.c_cc[VSUSP]) {
X            reset_termio();
X            kill(0, SIGTSTP);
X
X            /* process stops here */
X
X            set_termio();
X            /* print the prompt */
X            redraw_line(prompt);
#endif /* VSUSP */
X        } else {
X            /* do normal editing commands */
X            /* some of these are also done above */
X            int i;
X            switch(cur_char) {
X                case EOF:
X                reset_termio();
X                return((char *)NULL);
X                case 001: /* ^A */
X                while(cur_pos > 0) {
X                    cur_pos -= 1;
X                    putc(BACKSPACE, stderr);
X                }
X                break;
X                case 002: /* ^B */
X                if(cur_pos > 0) {
X                    cur_pos -= 1;
X                    putc(BACKSPACE, stderr);
X                }
X                break;
X                case 005: /* ^E */
X                while(cur_pos < max_pos) {
X                    putc(cur_line[cur_pos], stderr);
X                    cur_pos += 1;
X                }
X                break;
X                case 006: /* ^F */
X                if(cur_pos < max_pos) {
X                    putc(cur_line[cur_pos], stderr);
X                    cur_pos += 1;
X                }
X                break;
X                case 013: /* ^K */
X                clear_eoline();
X                max_pos = cur_pos;
X                break;
X                case 020: /* ^P */
X                if(history != NULL) {
X                    if(cur_entry == NULL) {
X                        cur_entry = history;
X                        clear_line(prompt);
X                        copy_line(cur_entry->line);
X                    } else if(cur_entry->prev != NULL) {
X                        cur_entry = cur_entry->prev;
X                        clear_line(prompt);
X                        copy_line(cur_entry->line);
X                    }
X                }
X                break;
X                case 016: /* ^N */
X                if(cur_entry != NULL) {
X                    cur_entry = cur_entry->next;
X                    clear_line(prompt);
X                    if(cur_entry != NULL)
X                        copy_line(cur_entry->line);
X                    else
X                        cur_pos = max_pos = 0;
X                }
X                break;
X                case 014: /* ^L */
X                case 022: /* ^R */
X                putc('\n',stderr); /* go to a fresh line */
X                redraw_line(prompt);
X                break;
X                case 0177: /* DEL */
X                case 010: /* ^H */
X                if(cur_pos > 0) {
X                    cur_pos -= 1;
X                    putc(BACKSPACE, stderr);
X                    for(i=cur_pos; i<max_pos; i++)
X                        cur_line[i] = cur_line[i+1];
X                    max_pos -= 1;
X                    fix_line();
X                }
X                break;
X                case 004: /* ^D */
X                if(max_pos == 0) {
X                    reset_termio();
X                    return((char *)NULL);
X                }
X                if(cur_pos < max_pos) {
X                    for(i=cur_pos; i<max_pos; i++)
X                        cur_line[i] = cur_line[i+1];
X                    max_pos -= 1;
X                    fix_line();
X                }
X                break;
X                case 025:  /* ^U */
X                clear_line(prompt);
X                break;
X                case 027:  /* ^W */
SHAR_EOF
true || echo 'restore of gnuplot/readline.c failed'
fi
echo 'End of  part 11'
echo 'File gnuplot/readline.c is continued in part 12'
echo 12 > _shar_seq_.tmp
exit 0

exit 0 # Just in case...
--
Kent Landfield                   INTERNET: [e-mail]
Sterling Software, IMD           UUCP:     uunet!sparky!kent
Phone:    [phone]         FAX:      [phone]
Please send comp.sources.misc-related mail to [e-mail].