home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Source Code 1992 March
/
Source_Code_CD-ROM_Walnut_Creek_March_1992.iso
/
usenet
/
altsrcs
/
2
/
2977
< prev
next >
Wrap
Internet Message Format
|
1991-03-04
|
55KB
From: guido@cwi.nl (Guido van Rossum)
Newsgroups: alt.sources
Subject: STDWIN 0.9.5, Part 16/19
Message-ID: <3080@charon.cwi.nl>
Date: 4 Mar 91 11:58:28 GMT
Archive-name: stdwin/part16
#! /bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of archive 16 (of 19)."
# Contents: Appls/bed/file.c Appls/bed/fmenu.c Appls/dpv/dpvdoc.h
# Appls/dpv/dpvmachine.c Appls/dpv/dpvmachine.h Appls/test/bike.c
# Appls/test/bits.c Appls/test/charset.c Appls/test/dklok.c
# H/lists.h H/patchlevel.h H/winreq.h Packs/vt/vtresize.c
# Packs/vt/vtvtrm.c Ports/mac/caret.c Ports/vtrm/DIST/pag.c
# Ports/x11/scroll.c
# Wrapped by guido@voorn.cwi.nl on Mon Mar 4 12:37:34 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'Appls/bed/file.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/bed/file.c'\"
else
echo shar: Extracting \"'Appls/bed/file.c'\" \(2953 characters\)
sed "s/^X//" >'Appls/bed/file.c' <<'END_OF_FILE'
X#include <stdio.h>
X#include "bed.h"
X
Xextern char *rindex () ;
X
Xextern int sqrsize ;
X
Xextern int map_width ;
Xextern int map_height ;
X
Xextern char *raster ;
Xextern int raster_lenght ;
Xextern int stride ;
X
Xextern char *fname ;
Xextern char *title ;
X
Xextern WINDOW *win ;
X
Xextern bool changed ;
X
Xchar
X*strip (fname)
X char *fname ;
X{
X char *p ;
X
X if ((p = rindex (fname, '/')) == NULL && /* UNIX */
X (p = rindex (fname, '\\')) == NULL && /* GEMDOS & MSDOS */
X (p = rindex (fname, ':')) == NULL)
X return (fname) ;
X return (p + 1) ;
X}
X
Xbool
Xinput(fp)
X FILE *fp;
X{
X int value ;
X char ibuf[81] ;
X char *id ;
X char *p ;
X char *type ;
X int i ;
X
X for (;;) {
X if (fgets (ibuf, 81, fp) == NULL)
X /*
X ** EOF
X */
X break ;
X
X if (strlen (ibuf) == 80) {
X /*
X ** Line too long, not a bitmap file
X */
X fclose (fp) ;
X return (FALSE) ;
X }
X
X if (strncmp (ibuf, "#define ", 8) == 0) {
X id = ibuf + 8 ;
X if ((type = rindex (id, '_')) == NULL)
X type = id ;
X else
X type++ ;
X
X if (!strncmp (type, "width", 5)) {
X map_width = atoi (type + 5) ;
X }
X
X if (!strncmp (type, "height", 6)) {
X map_height = atoi (type + 6) ;
X }
X
X continue ;
X }
X
X if (strncmp (ibuf, "static unsigned char ", 21) == 0)
X id = ibuf + 21 ;
X else if (strncmp (ibuf, "static char ", 12) == 0)
X id = ibuf + 12 ;
X else
X continue ;
X
X if ((type = rindex (id, '_')) == NULL)
X type = id ;
X else
X type++ ;
X
X if (strncmp (type, "bits[]", 6) != 0)
X continue ;
X
X newraster () ;
X
X for (i = 0, p = raster ; i < raster_lenght ; ++i, ++p) {
X if (fscanf (fp, " 0x%2x%*[,}]%*[ \n]", &value) != 1) {
X free (raster) ;
X raster = NULL ;
X fclose (fp) ;
X return (FALSE) ;
X }
X *p = value ;
X }
X }
X
X fclose (fp) ;
X return (TRUE) ;
X}
X
Xbool
Xreadbitmap ()
X{
X FILE *fp ;
X char namebuf[256] ;
X
X if (fname == NULL) {
X namebuf[0] = 0 ;
X
X if (!waskfile ("Read file", namebuf, sizeof (namebuf), FALSE))
X return (FALSE) ;
X
X fname = strdup (namebuf) ;
X title = strip (fname) ;
X
X wsettitle (win, title) ;
X }
X
X fp = fopen (fname, "r") ;
X if (fp == NULL) {
X perror(fname);
X return (FALSE) ;
X }
X
X return (input(fp)) ;
X}
X
Xvoid
Xoutput(fp)
X FILE *fp ;
X{
X int i ;
X
X fprintf (fp, "#define %s_width\t%d\n", title, map_width) ;
X fprintf (fp, "#define %s_height\t%d\n", title, map_height) ;
X fprintf (fp, "static char %s_bits[] {\n 0x%02x", title,
X raster[0] & 0xFF) ;
X
X for (i = 1 ; i < raster_lenght ; ++i) {
X fprintf (fp, i % 12 ? ", " : ",\n ") ;
X fprintf (fp, "0x%02x", raster[i] & 0xFF) ;
X }
X fprintf (fp, "};\n") ;
X}
X
Xbool
Xwritebitmap()
X{
X FILE *fp;
X char namebuf[256];
X
X namebuf[0] = '\0' ;
X if (fname == NULL) {
X if (!waskfile ("Save as", namebuf, sizeof (namebuf), TRUE))
X return (FALSE) ;
X fname = strdup (namebuf) ;
X title = strip (namebuf) ;
X wsettitle (win, title) ;
X }
X
X fp = fopen (fname, "w") ;
X if (fp == NULL) {
X wperror (fname) ;
X return (FALSE) ;
X }
X
X output (fp) ;
X fclose (fp) ;
X return (TRUE) ;
X}
X
END_OF_FILE
if test 2953 -ne `wc -c <'Appls/bed/file.c'`; then
echo shar: \"'Appls/bed/file.c'\" unpacked with wrong size!
fi
# end of 'Appls/bed/file.c'
fi
if test -f 'Appls/bed/fmenu.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/bed/fmenu.c'\"
else
echo shar: Extracting \"'Appls/bed/fmenu.c'\" \(2781 characters\)
sed "s/^X//" >'Appls/bed/fmenu.c' <<'END_OF_FILE'
X#include <stdio.h>
X#include "bed.h"
X#include "menu.h"
X
Xextern char *strip () ;
X
Xextern int sqrsize ;
X
Xextern int map_width ;
Xextern int map_height ;
X
Xextern char *fname ;
Xextern char *title ;
X
Xextern WINDOW *win ;
X
Xextern char *raster ;
X
Xextern bool changed ;
X
Xvoid
Xdo_open_file ()
X{
X if (changed) {
X switch (waskync ("Save changes ?", 1)) {
X case 1:
X if (!writebitmap ())
X return ;
X break ;
X case -1 :
X return ;
X }
X
X changed = FALSE ;
X }
X if (fname != NULL) {
X free (fname) ;
X fname = title = NULL ;
X }
X
X if (!readbitmap ()) {
X if (fname != NULL) {
X free (fname) ;
X fname = title = NULL ;
X wsettitle (win, "Untitled") ;
X }
X
X newraster () ;
X }
X}
X
Xvoid
Xdo_new_map ()
X{
X char str[20] ;
X
X if (changed) {
X switch (waskync ("Save changes ?", 1)) {
X case 1 :
X if (!writebitmap ())
X return ;
X break ;
X case -1 :
X return ;
X }
X
X changed = FALSE ;
X }
X
X if (fname != NULL) {
X free (fname) ;
X fname = title = NULL ;
X wsettitle (win, "Untitled") ;
X }
X
X *str = 0 ;
X
X if (waskstr ("Enter width of new raster", str, 20)) {
X while ((map_width = atoi (str)) <= 0) {
X *str = 0 ;
X if (!waskstr ("Please enter a number greater 0",
X str, 20)) {
X map_width = -1 ;
X break ;
X }
X }
X
X if (waskstr ("Enter height of new raster", str, 20)) {
X while ((map_height = atoi (str)) <= 0) {
X *str = 0 ;
X if (!waskstr ("Please enter a number greater 0",
X str, 20))
X break ;
X }
X }
X else
X map_width = -1 ;
X }
X
X if (map_width == -1) {
X map_width = DEF_COLS ;
X map_height = DEF_ROWS ;
X }
X
X newraster () ;
X}
X
Xbool
Xdo_quit ()
X{
X if (changed) {
X switch (waskync ("Save changes ?", 1)) {
X case 1 :
X if (!writebitmap ())
X return (FALSE) ;
X break ;
X case -1 :
X return (FALSE) ;
X }
X
X changed = FALSE ;
X }
X wclose (win) ;
X free (raster) ;
X raster = NULL ;
X return (TRUE) ;
X}
X
Xbool
Xdo_file_menu (ep)
X EVENT *ep ;
X{
X switch (ep->u.m.item) {
X case OPEN_ITEM:
X do_open_file () ;
X setsqrsize () ;
X wchange (win, 0, 0, map_width * sqrsize,
X map_height * sqrsize) ;
X wsetdocsize (win, map_width * sqrsize, map_height * sqrsize) ;
X break ;
X case NEW_ITEM:
X do_new_map () ;
X setsqrsize () ;
X wchange (win, 0, 0, map_width * sqrsize,
X map_height * sqrsize) ;
X wsetdocsize (win, map_width * sqrsize, map_height * sqrsize) ;
X break ;
X case SAVE_ITEM:
X if (changed) {
X if (writebitmap ())
X changed = FALSE ;
X }
X break ;
X case SAVE_AS_ITEM: {
X char namebuf[256] ;
X
X strcpy (namebuf, fname) ;
X if (waskstr ("Save as ?", namebuf, 256, FALSE)) {
X char *savedname = fname ;
X
X fname = strdup (namebuf) ;
X title = strip (fname) ;
X (void) writebitmap () ;
X free (fname) ;
X fname = savedname ;
X title = strip (fname) ;
X }
X break ;
X }
X case QUIT_ITEM:
X return (do_quit ()) ;
X }
X
X return (FALSE) ;
X}
END_OF_FILE
if test 2781 -ne `wc -c <'Appls/bed/fmenu.c'`; then
echo shar: \"'Appls/bed/fmenu.c'\" unpacked with wrong size!
fi
# end of 'Appls/bed/fmenu.c'
fi
if test -f 'Appls/dpv/dpvdoc.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/dpv/dpvdoc.h'\"
else
echo shar: Extracting \"'Appls/dpv/dpvdoc.h'\" \(2487 characters\)
sed "s/^X//" >'Appls/dpv/dpvdoc.h' <<'END_OF_FILE'
X/* dpv -- ditroff previewer. Description of input language. */
X
X/* This isn't really a source file but disguised as one it is
X more likely to be distributed with the rest of the source */
X
X/******************************************************************************
X
X output language from ditroff:
X all numbers are character strings
X
X (These comments should suffice to write my own ditroff output
X filter, but I'm lazy... Note that the parser expects its input to
X be error-free -- it contains unchecked fscanf calls all over.
X Also it is not clear whether relative motions may have negative
X numbers as parameters. For filters descending from BWK's prototype
X this works for 'v' but not for 'h', as 'v' uses fscan but 'h'
X reads characters until it finds a non-digit... GvR)
X
X{ push environment (font, size, position)
X} pop environment
X#..\n comment
Xsn size in points
Xfn font as number from 1 to n
Xcx ascii character x
XCxyz funny char \(xyz. terminated by white space
XHn go to absolute horizontal position n
XVn go to absolute vertical position n (down is positive)
Xhn go n units horizontally (relative)
Xvn ditto vertically
Xnnc move right nn, then print c (exactly 2 digits!)
X (this wart is an optimization that shrinks output file size
X about 35% and run-time about 15% while preserving ascii-ness)
Xpn new page begins (number n) -- set v to 0
XP spread ends -- output it. (Put in by vsort).
Xnb a end of line (information only -- no action needed)
X b = space before line, a = after
Xw paddable word space -- no action needed
X
XDt ..\n draw operation 't':
X Dl x y line from here by x,y (drawing char .)
X (affects position by x, y -- GvR)
X Dc d circle of diameter d with left side here
X De x y ellipse of axes x,y with left side here
X Da x y x1 y1 arc; see drawarc in dpvoutput.c for description
X D~ x y x y ... B-spline curve by x,y then x,y ...
X
Xx ..\n device control functions:
X x i init
X x T s name of device is s
X x r n h v resolution is n/inch h = min horizontal motion, v = min vert
X x p pause (can restart)
X x s stop -- done for ever
X x t generate trailer
X x f n s font position n contains font s
X (there appears to be some disagreement whether this also
X selects s as the current font -- GvR)
X x H n set character height to n
X x S n set slant to N
X
X Subcommands like "i" are often spelled out like "init".
X
X******************************************************************************/
END_OF_FILE
if test 2487 -ne `wc -c <'Appls/dpv/dpvdoc.h'`; then
echo shar: \"'Appls/dpv/dpvdoc.h'\" unpacked with wrong size!
fi
# end of 'Appls/dpv/dpvdoc.h'
fi
if test -f 'Appls/dpv/dpvmachine.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/dpv/dpvmachine.c'\"
else
echo shar: Extracting \"'Appls/dpv/dpvmachine.c'\" \(2989 characters\)
sed "s/^X//" >'Appls/dpv/dpvmachine.c' <<'END_OF_FILE'
X/* dpv -- ditroff previewer. Ditroff virtual machine. */
X
X#include "dpv.h"
X#include "dpvmachine.h"
X#include "dpvoutput.h"
X
X/* Basic state */
X
Xint size; /* current point size */
Xint font; /* current font */
Xint hpos; /* horizontal position we are to be at next; left=0 */
Xint vpos; /* current vertical position (down positive) */
X
X/* Environment */
X
X
Xstruct state state[MAXSTATE];
Xstruct state *statep = state;
X
X/* Mounted font table */
X
Xfontinfo fonts;
Xint nfonts = 0; /* start with no fonts mounted */
X
X/* Page info */
X
Xint ipage; /* internal page number */
X
X/* Global info */
X
Xint res = 432; /* resolution for which input was prepared */
X /* default is old troff resolution */
X
X/* Load font info for font s on position n; optional file name s1 */
X
Xloadfont(n, s, s1)
X int n;
X char *s, *s1;
X{
X if (n < 0 || n > NFONTS)
X error(FATAL, "can't load font %d", n);
X fonts.name[n]= strdup(s);
X}
X
X/* Initialize device */
X
Xt_init()
X{
X /* Start somewhere */
X hpos = vpos = 0;
X size= 10;
X font= 1;
X usefont();
X}
X
X/* Begin a new block */
X
Xt_push()
X{
X if (statep >= state+MAXSTATE)
X error(FATAL, "{ nested too deep");
X statep->ssize = size;
X statep->sfont = font;
X statep->shpos = hpos;
X statep->svpos = vpos;
X ++statep;
X}
X
X/* Pop to previous state */
X
Xt_pop()
X{
X if (--statep < state)
X error(FATAL, "extra }");
X size = statep->ssize;
X font = statep->sfont;
X hpos = statep->shpos;
X vpos = statep->svpos;
X usefont();
X}
X
X/* Called at the start of a new page.
X Returns < 0 if it is time to stop. */
X
Xint
Xt_page(n)
X int n;
X{
X if (nextpage(n) < 0)
X return -1;
X vpos = hpos = 0;
X usefont();
X return 0;
X}
X
X/* Do whatever for the end of a line */
X
Xt_newline()
X{
X hpos = 0; /* because we're now back at the left margin */
X}
X
X/* Convert integer to internal size number */
X
Xt_size(n)
X int n;
X{
X return n;
X}
X
X/* Set character height to n */
X
X/*ARGSUSED*/
Xt_charht(n)
X int n;
X{
X static bool warned;
X if (!warned) {
X error(WARNING, "Setting character height not implemented");
X warned= TRUE;
X }
X}
X
X/* Set slant to n */
X
X/*ARGSUSED*/
Xt_slant(n)
X int n;
X{
X static bool warned;
X if (!warned) {
X error(WARNING, "Setting slant not implemented");
X warned= TRUE;
X }
X}
X
X/* Convert string to font number */
X
Xt_font(s)
X char *s;
X{
X return atoi(s);
X}
X
X/* Print string s as text */
X
Xt_text(s)
X char *s;
X{
X int c;
X char str[100];
X
X /* XXX This function doesn't work any more since lastw is not set */
X
X while (c = *s++) {
X if (c == '\\') {
X switch (c = *s++) {
X case '\\':
X case 'e':
X put1('\\');
X break;
X case '(':
X str[0] = *s++;
X str[1] = *s++;
X str[2] = EOS;
X put1s(str);
X break;
X }
X } else {
X put1(c);
X }
X /*hmot(lastw);*/
X }
X}
X
X/* Reset; argument is 'p' for pause, 's' for start */
X
Xt_reset(c)
X int c;
X{
X if (c == 's')
X lastpage();
X}
X
X/* Absolute vertical motion to position n */
X
Xvgoto(n)
X int n;
X{
X vpos = n;
X recheck();
X}
X
X/* Set point size to n */
X
Xsetsize(n)
Xint n;
X{
X size = n;
X usefont();
X}
X
X/* Set font to n */
X
Xsetfont(n)
Xint n;
X{
X font = n;
X usefont();
X}
END_OF_FILE
if test 2989 -ne `wc -c <'Appls/dpv/dpvmachine.c'`; then
echo shar: \"'Appls/dpv/dpvmachine.c'\" unpacked with wrong size!
fi
# end of 'Appls/dpv/dpvmachine.c'
fi
if test -f 'Appls/dpv/dpvmachine.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/dpv/dpvmachine.h'\"
else
echo shar: Extracting \"'Appls/dpv/dpvmachine.h'\" \(2383 characters\)
sed "s/^X//" >'Appls/dpv/dpvmachine.h' <<'END_OF_FILE'
X/* dpv -- ditroff previewer. Definitions for ditroff virtual machine. */
X
X/* The ditroff machine has the following state information:
X
X Basic state:
X - hpos, vpos print head position on current page
X - size current point size
X - font current font number (range 0..NFONTS-1)
X
X Environment:
X - a stack containing up to MAXSTATE copies of the basic state
X
X Mounted font table:
X - a mapping from font number to (ditroff) font names
X (i.e., which font is mounted on which logical position)
X
X Page info:
X - current page number
X
X Global info (not used much):
X - typesetter name
X - resolution assumed when preparing
X - page dimensions
X - etc.?
X
X To restart the machine at a given page, we need to save and restore
X the basic state, environment and mounted font table.
X It could be argued that at page boundaries the environment stack
X should be empty, and that the mounted font table should be initialized
X once and for ever.
X The latter isn't the case in practice; ".fp" requests can be and are
X used anywhere in ditroff source files.
X Because the environment pushes the (page-relative) position, it is
X unlikely that restoring an environment on a different page makes any
X sense, so we could assume this (and check that the input conforms).
X*/
X
X/* Array dimensions */
X
X#define NFONTS 65 /* total number of fonts usable */
X#define MAXSTATE 6 /* number of environments rememberable */
X
X/* Basic state */
X
Xextern int hpos; /* horizontal position we are to be at next; left=0 */
Xextern int vpos; /* current vertical position (down positive) */
Xextern int size; /* current point size */
Xextern int font; /* current font */
X
X#define hmot(n) hpos += n
X#define hgoto(n) hpos = n
X#define vmot(n) vgoto(vpos + (n))
Xextern vgoto();
X
X/* Environment */
X
Xstruct state {
X int ssize;
X int sfont;
X int shpos;
X int svpos;
X};
X
Xextern struct state state[MAXSTATE];
Xextern struct state *statep;
X
Xextern t_push();
Xextern t_pop();
X
X/* Mounted font table */
X
Xtypedef struct _fontinfo {
X char *name[NFONTS];
X} fontinfo;
X
Xextern fontinfo fonts; /* current mounted font table */
Xextern int nfonts; /* number of used entries (0..nfonts-1) */
X
X/* Page info */
X
Xextern int ipage; /* internal page number */
X
X/* Global typesetter info */
X
Xextern int res; /* resolution for which input was prepared */
X /* default is old troff resolution */
END_OF_FILE
if test 2383 -ne `wc -c <'Appls/dpv/dpvmachine.h'`; then
echo shar: \"'Appls/dpv/dpvmachine.h'\" unpacked with wrong size!
fi
# end of 'Appls/dpv/dpvmachine.h'
fi
if test -f 'Appls/test/bike.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/test/bike.c'\"
else
echo shar: Extracting \"'Appls/test/bike.c'\" \(2785 characters\)
sed "s/^X//" >'Appls/test/bike.c' <<'END_OF_FILE'
X#include "stdwin.h"
X#include "tilist.h"
X
X#define NFRONT 3
X#define NBACK 6
X
X#define VSTEP 50
X#define HSCALE 470
X
X#define TIPWIDTH 40
X
Xint front[NFRONT] = {28, 38, 48};
Xint back[NBACK] = {28, 24, 20, 17, 15, 13};
X
Xdouble verzet[NFRONT][NBACK];
Xdouble lowest, highest;
X
XWINDOW *win;
X
XTILIST *til;
X
XTEXTITEM *fronttips[NFRONT];
XTEXTITEM *backtips[NBACK];
X
Xcalculate()
X{
X int f, b;
X double v;
X
X lowest = 1e10;
X highest = 0.0;
X for (f = 0; f < NFRONT; ++f) {
X for (b = 0; b < NBACK; ++b) {
X v = (double)front[f] / (double)back[b];
X verzet[f][b] = v;
X if (v < lowest)
X lowest = v;
X if (v > highest)
X highest = v;
X }
X }
X}
X
Xsetuptil()
X{
X int f, b;
X int h, v;
X
X til = tilcreate(win);
X
X h = 0;
X v = 2;
X for (b = 0; b < NBACK; ++b) {
X backtips[b] = tiladd(til, h, v, h+TIPWIDTH-2, 0, 1);
X h += TIPWIDTH;
X }
X
X h = 0;
X v = 0;
X for (f = 0; f < NFRONT; ++f) {
X v += VSTEP;
X fronttips[f] = tiladd(til, h, v, h+TIPWIDTH-2, 0, 1);
X }
X
X settilvalues();
X}
X
Xsettilvalues()
X{
X int f, b;
X char buf[100];
X
X for (f = 0; f < NFRONT; ++f) {
X sprintf(buf, "%d", front[f]);
X tilsettext(fronttips[f], buf);
X }
X for (b = 0; b < NBACK; ++b) {
X sprintf(buf, "%d", back[b]);
X tilsettext(backtips[b], buf);
X }
X}
X
Xgettilvalues()
X{
X int f, b;
X char *text;
X
X for (f = 0; f < NFRONT; ++f) {
X text = tilgettext(fronttips[f]);
X sscanf(text, "%d", &front[f]);
X }
X for (b = 0; b < NBACK; ++b) {
X text = tilgettext(backtips[b]);
X sscanf(text, "%d", &back[b]);
X }
X settilvalues();
X calculate();
X wchange(win, 0, 0, 30000, 30000);
X}
X
Xvoid
Xdrawproc(win, left, top, right, bottom)
X WINDOW *win;
X int left, top, right, bottom;
X{
X int f, b;
X int h, v;
X int lasth;
X
X tildraw(til, left, top, right, bottom);
X
X v = VSTEP;
X for (f = 0; f < NFRONT; ++f) {
X for (b = 0; b < NBACK; ++b) {
X h = (verzet[f][b] - lowest) *
X (HSCALE - 2*TIPWIDTH) / (highest - lowest);
X h += 2*TIPWIDTH;
X wcprintf(50, h, v-2-wlineheight(), "%d", back[b]);
X wdrawbox(h-2, v-2, h+2, v+2);
X wcprintf(50, h, v+2, "%.2f", verzet[f][b]);
X if (b > 0) {
X wpaint(lasth+2, v-1, h-2, v+1);
X }
X lasth = h;
X }
X v += VSTEP;
X }
X}
X
Xmain(argc, argv)
X int argc;
X char **argv;
X{
X winitargs(&argc, &argv);
X calculate();
X wsetdefwinsize(HSCALE + 4*wcharwidth('0'), (NFRONT+1) * VSTEP);
X win = wopen("Bike", drawproc);
X wsetdocsize(win, HSCALE + 4*wcharwidth('0'), (NFRONT+1) * VSTEP);
X setuptil();
X for (;;) {
X EVENT e;
X wgetevent(&e);
X if (tilevent(til, &e))
X continue;
X switch (e.type) {
X case WE_COMMAND:
X switch (e.u.command) {
X case WC_CLOSE:
X quit();
X /*NOTREACHED*/
X case WC_CANCEL:
X settilvalues();
X break;
X case WC_RETURN:
X gettilvalues();
X break;
X }
X break;
X case WE_CLOSE:
X quit();
X /*NOTREACHED*/
X }
X }
X}
X
Xquit()
X{
X wclose(win);
X wdone();
X exit(0);
X /*NOTREACHED*/
X}
END_OF_FILE
if test 2785 -ne `wc -c <'Appls/test/bike.c'`; then
echo shar: \"'Appls/test/bike.c'\" unpacked with wrong size!
fi
# end of 'Appls/test/bike.c'
fi
if test -f 'Appls/test/bits.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/test/bits.c'\"
else
echo shar: Extracting \"'Appls/test/bits.c'\" \(2694 characters\)
sed "s/^X//" >'Appls/test/bits.c' <<'END_OF_FILE'
X/* Here's a very simple bitmap editor.
X A window shows a magnified 64x64 bitmap
X which you can edit by clicking the mouse.
X Clicking on a bit that's off turns it on,
X clicking on one that's on turns it off.
X Drag the mouse to set or clear more bits.
X Additional facilities like saving to a file
X are left as exercises for the reader. */
X
X#include "stdwin.h"
X
X/* Bitmap dimensions */
X
X#define WIDTH 64
X#define HEIGHT 64
X
X/* The bitmap */
X
Xchar bit[WIDTH][HEIGHT];
X
X/* Magnification factors.
X (Should really be calculated from screen dimensions). */
X
Xint xscale= 5;
Xint yscale= 5;
X
X/* The window */
X
XWINDOW *win;
X
X/* Main program */
X
Xmain(argc, argv)
X int argc;
X char **argv;
X{
X winitargs(&argc, &argv);
X setup();
X mainloop();
X wdone();
X exit(0);
X}
X
X/* Create the window */
X
Xsetup()
X{
X extern void drawproc(); /* Forward */
X
X wsetdefwinsize(WIDTH*xscale, HEIGHT*yscale);
X win= wopen("Bitmap Editor Demo", drawproc);
X wsetdocsize(win, WIDTH*xscale, HEIGHT*yscale);
X}
X
X/* Main event loop */
X
Xmainloop()
X{
X int value= 0;
X
X for (;;) {
X EVENT e;
X
X wgetevent(&e);
X
X switch (e.type) {
X
X case WE_MOUSE_DOWN:
X value= !getbit(e.u.where.h/xscale, e.u.where.v/yscale);
X /* Fall through to next cases */
X case WE_MOUSE_MOVE:
X case WE_MOUSE_UP:
X setbit(e.u.where.h/xscale, e.u.where.v/yscale, value);
X break;
X
X case WE_COMMAND:
X switch (e.u.command) {
X case WC_CLOSE:
X case WC_CANCEL:
X return;
X }
X
X case WE_CLOSE:
X return;
X
X }
X }
X}
X
X/* Draw procedure */
X
Xvoid
Xdrawproc(win, left, top, right, bottom)
X WINDOW *win;
X{
X#ifdef UNOPTIMIZED
X int h, v;
X
X for (v= top/yscale; v*yscale < bottom; ++v) {
X for (h= left/xscale; h*xscale < right; ++h) {
X if (getbit(h, v))
X wpaint(h*xscale, v*yscale,
X (h+1)*xscale, (v+1)*yscale);
X }
X }
X#else
X int h, v;
X int start;
X
X for (v= top/yscale; v*yscale < bottom; ++v) {
X start = -1;
X for (h= left/xscale; h*xscale < right; ++h) {
X if (getbit(h, v)) {
X if (start == -1)
X start = h;
X } else {
X if (start != -1) {
X wpaint(start*xscale, v*yscale,
X h*xscale, (v+1)*yscale);
X start = -1;
X }
X }
X }
X if (start != -1)
X wpaint(start*xscale, v*yscale, h*xscale, (v+1)*yscale);
X }
X#endif
X}
X
X/* Macro to test for bit coordinates in range */
X
X#define INRANGE(h, v) ((v) >= 0 && (v) < HEIGHT && (h) >= 0 && (h) < WIDTH)
X
X/* Return a bit's value; return 0 if outside range */
X
Xint
Xgetbit(h, v)
X{
X if (INRANGE(h, v))
X return bit[h][v];
X else
X return 0;
X}
X
X/* Change a bit's value (if in range) and arrange for it to be drawn. */
X
Xsetbit(h, v, value)
X{
X if (INRANGE(h, v) && bit[h][v] != value) {
X bit[h][v]= value;
X wchange(win, h*xscale, v*yscale, (h+1)*xscale, (v+1)*yscale);
X }
X}
END_OF_FILE
if test 2694 -ne `wc -c <'Appls/test/bits.c'`; then
echo shar: \"'Appls/test/bits.c'\" unpacked with wrong size!
fi
# end of 'Appls/test/bits.c'
fi
if test -f 'Appls/test/charset.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/test/charset.c'\"
else
echo shar: Extracting \"'Appls/test/charset.c'\" \(2954 characters\)
sed "s/^X//" >'Appls/test/charset.c' <<'END_OF_FILE'
X/* Display character set.
X usage: charset [-font font] [minchar [maxchar]] */
X
X#include "tools.h"
X#include "stdwin.h"
X
Xint minchar= 0; /* First char to draw */
Xint maxchar= 255;
X
Xmain(argc, argv)
X int argc;
X char **argv;
X{
X int *which= &minchar;
X int i;
X
X winitargs(&argc, &argv);
X
X for (i= 1; i < argc; ++i) {
X if (isnumeric(argv[i])) {
X *which= atoi(argv[i]);
X which= &maxchar;
X }
X else
X break;
X }
X if (i < argc) {
X wdone();
X fprintf(stderr, "usage: %s [minchar [maxchar]]\n", argv[0]);
X exit(2);
X }
X
X if (maxchar < minchar) {
X wdone();
X fprintf(stderr, "%s: maxchar < minchar\n", argv[0]);
X exit(2);
X }
X
X setup();
X mainloop();
X wdone();
X exit(0);
X}
X
Xbool
Xisnumeric(str)
X char *str;
X{
X while (*str != EOS) {
X if (!isdigit(*str))
X return FALSE;
X ++str;
X }
X return TRUE;
X}
X
XWINDOW *win;
Xint ncols, nrows;
Xint colwidth, rowheight;
X
Xvoid drawproc(win, l, t, r, b)
X WINDOW *win;
X{
X int lineheight= wlineheight();
X int i= (t/rowheight) * ncols;
X for (; i <= maxchar-minchar; ++i) {
X int c= minchar+i;
X int col= i%ncols;
X int row= i/ncols;
X int h= col*colwidth;
X int v= row*rowheight;
X int charwidth= wcharwidth(c);
X if (v >= b)
X break;
X wdrawchar(h + (colwidth - charwidth) / 2,
X v + (rowheight - lineheight) / 2,
X c);
X }
X}
X
Xsetup()
X{
X int scrwidth, scrheight;
X int maxwidth= 1;
X int i;
X
X wgetscrsize(&scrwidth, &scrheight);
X while (minchar <= maxchar && wcharwidth(minchar) == 0)
X ++minchar;
X while (maxchar >= minchar && wcharwidth(maxchar) == 0)
X --maxchar;
X if (minchar > maxchar) {
X wdone();
X fprintf(stderr, "no chars in given range\n");
X exit(1);
X }
X for (i= minchar; i <= maxchar; i++) {
X int w= wcharwidth(i);
X if (w > maxwidth)
X maxwidth= w;
X }
X colwidth= maxwidth * 2;
X rowheight= wlineheight() * 3 / 2;
X ncols= 16;
X if ((ncols+2) * colwidth > scrwidth) {
X ncols= scrwidth/colwidth - 2;
X if (ncols < 1)
X ncols= 1;
X }
X nrows= (maxchar - minchar + ncols) / ncols;
X if (nrows < 1)
X nrows= 1;
X wsetdefwinsize(ncols*colwidth, nrows*rowheight);
X wsetmaxwinsize(ncols*colwidth, nrows*rowheight);
X win= wopen("Character Set", drawproc);
X if (win == NULL) {
X wdone();
X fprintf(stderr, "can't open window\n");
X exit(1);
X }
X (void) wmenucreate(1, "Press q to quit");
X}
X
Xmainloop()
X{
X for (;;) {
X EVENT e;
X wgetevent(&e);
X switch (e.type) {
X case WE_CHAR:
X switch (e.u.character) {
X case 'q':
X case 'Q':
X return;
X }
X break;
X case WE_COMMAND:
X switch (e.u.command) {
X case WC_CANCEL:
X case WC_CLOSE:
X wclose(win);
X return;
X }
X break;
X case WE_CLOSE:
X wclose(win);
X return;
X case WE_MOUSE_DOWN:
X charinfo(e.u.where.h, e.u.where.v);
X break;
X }
X }
X}
X
Xcharinfo(h, v)
X int h, v;
X{
X int row= v/rowheight;
X int col= h/colwidth;
X int i= minchar + row*ncols + col;
X if (i >= minchar && i <= maxchar) {
X char buf[256];
X sprintf(buf, "Char '%c' (%d. 0x%x), width %d",
X i>=' ' && i<0x7f ? i : '?', i, i, wcharwidth(i));
X wmessage(buf);
X }
X else
X wfleep();
X}
END_OF_FILE
if test 2954 -ne `wc -c <'Appls/test/charset.c'`; then
echo shar: \"'Appls/test/charset.c'\" unpacked with wrong size!
fi
# end of 'Appls/test/charset.c'
fi
if test -f 'Appls/test/dklok.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/test/dklok.c'\"
else
echo shar: Extracting \"'Appls/test/dklok.c'\" \(2557 characters\)
sed "s/^X//" >'Appls/test/dklok.c' <<'END_OF_FILE'
X/* Digital clock */
X
X#ifdef ns32000
X#define void int
X#endif
X
X#include <ctype.h>
X#include <stdio.h>
X#include <time.h>
X
X#include "stdwin.h"
X
X#include "sevenseg.h"
X
Xextern long time();
X
Xint text_only; /* Non-zero on text-only device */
X
XWINDOW *win; /* Our window */
X
X#define NIMAGE 5 /* Number of chars in image */
Xchar image[NIMAGE+1]; /* Text to draw, plus trailing \0 */
X
Xint aleft, atop, aright, abottom; /* Rect in which to draw */
X
Xgetinfo()
X{
X wgetwinsize(win, &aright, &abottom);
X wsetdocsize(win, aright, abottom);
X newtime();
X}
X
Xnewtime()
X{
X unsigned long now;
X struct tm *tp;
X
X wchange(win, aleft, atop, aright, abottom);
X time(&now);
X tp= localtime(&now);
X wsettimer(win, 10 * (60 - now%60));
X sprintf(image, "%02d:%02d", tp->tm_hour, tp->tm_min);
X
X}
X
Xvoid
Xdrawdigit(digit, left, top, right, bottom, dh, dv)
X int digit;
X int left, top, right, bottom;
X int dh, dv; /* Segment thickness */
X{
X int bits= sevenseg[digit];
X int mid= (top + bottom) / 2;
X void (*func)();
X
X if (text_only)
X func= winvert;
X else
X func= wpaint;
X
X if (bits & (1<<6))
X func(left, top, right, top+dv);
X if (bits & (1<<5))
X func(left, top, left+dh, mid);
X if (bits & (1<<4))
X func(right-dh, top, right, mid);
X if (bits & (1<<3))
X func(left, mid-dv/2, right, mid+dv-dv/2);
X if (bits & (1<<2))
X func(left, mid, left+dh, bottom);
X if (bits & (1<<1))
X func(right-dh, mid, right, bottom);
X if (bits & (1<<0))
X func(left, bottom-dv, right, bottom);
X}
X
Xvoid
Xdrawproc(win, left, top, right, bottom)
X WINDOW *win;
X int left, top, right, bottom;
X{
X int width= aright - aleft;
X int height= abottom - atop;
X int dh= width / (NIMAGE*6 + 1);
X int dv= height / 9;
X int spacing;
X int i;
X
X if (dh < 1)
X dh= 1;
X if (dv < 1)
X dv= 1;
X
X spacing= dh*6;
X
X for (i= 0; i < NIMAGE && image[i] != '\0'; ++i) {
X if (isdigit(image[i])) {
X drawdigit(image[i] - '0',
X aleft + dh + i*spacing, atop + dv,
X aleft + dh + (i+1)*spacing - dh, abottom - dv,
X dh, dv);
X }
X }
X}
X
Xmain(argc, argv)
X int argc;
X char **argv;
X{
X winitargs(&argc, &argv);
X setup();
X mainloop();
X wdone();
X exit(0);
X}
X
Xsetup()
X{
X if (wlineheight() == 1) {
X text_only= 1;
X wmessage("Text-only version");
X }
X win= wopen("DIGITAL CLOCK", drawproc);
X getinfo();
X}
X
Xmainloop()
X{
X for (;;) {
X EVENT e;
X wgetevent(&e);
X switch (e.type) {
X case WE_COMMAND:
X switch (e.u.command) {
X case WC_CLOSE:
X case WC_CANCEL:
X wclose(win);
X return 0;
X }
X break;
X case WE_CLOSE:
X wclose(win);
X return 0;
X case WE_SIZE:
X getinfo();
X break;
X case WE_TIMER:
X newtime();
X break;
X }
X }
X}
END_OF_FILE
if test 2557 -ne `wc -c <'Appls/test/dklok.c'`; then
echo shar: \"'Appls/test/dklok.c'\" unpacked with wrong size!
fi
# end of 'Appls/test/dklok.c'
fi
if test -f 'H/lists.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'H/lists.h'\"
else
echo shar: Extracting \"'H/lists.h'\" \(3065 characters\)
sed "s/^X//" >'H/lists.h' <<'END_OF_FILE'
X/* Package to manipulate dynamic arrays represented like
X argc/argv (but not necessarily containing character pointers).
X Operations provided are macros that expand to groups of statements;
X their arguments should be side-effect-free. The arguments argc and
X argv should be single identifiers, since they are assigned to.
X (L_DECLARE expands to a series of declarations.)
X
X This code was written because I found myself writing code very
X similar to it times and times over, or, worse, using fixed-length
X arrays out of laziness. It's slow for large arrays (although this
X could be improved easily by rounding up the sizes passed to
X malloc/realloc), but this shouldn't be a problem for the applications
X I am currently using it for. It sure helped me write some array
X processing code faster.
X
X Operations:
X
X L_DECLARE(argc, argv, type) declare a list with element type 'type'
X L_INIT(argc, argv) initialize a list
X L_DEALLOC(argc, argv) deallocate a list
X L_SETSIZE(argc, argv, type, size) set list to size 'size'
X L_EXTEND(argc, argv, type, count) append 'count' unitinialized elements
X L_APPEND(argc, argv, type, elem) append a given element
X L_REMOVE(argc, argv, type, index) remove element number 'index'
X L_INSERT(argc, argv, type, index, elem) insert 'elem' at 'index'
X L_SORT(argc, argv, type, compare) sort the list ('compare' is a function)
X
X (There should also be operations to insert in the middle and to
X remove elements.)
X
X NB: the 'type' argument could be discarded (except for L_DECLARE)
X if we could live with warnings about assignments from malloc/realloc
X to other pointer types.
X
X*/
X
X/* This file only works when included by "stdwtools.h" !!! */
X
X/* You could define GOOD_REALLOC if your realloc() calls malloc() when
X passed a NULL pointer */
X
X#ifdef GOOD_REALLOC
X#define _REALLOC(p, size) realloc(p, size)
X#else
X#define _REALLOC(p, size) ((p) ? realloc(p, size) : malloc(size))
X#endif
X
X#define L_DECLARE(argc, argv, type) int argc = 0; type *argv = 0
X
X#define L_INIT(argc, argv) argc = 0; argv = 0
X
X#define L_DEALLOC(argc, argv) argc = 0; FREE(argv)
X
X#define L_SETSIZE(argc, argv, type, size) \
X argv = (type *) _REALLOC((UNIVPTR) argv, \
X (unsigned) (size) * sizeof(type)); \
X argc = (argv == 0) ? 0 : size
X
X#define L_EXTEND(argc, argv, type, count) \
X L_SETSIZE(argc, argv, type, argc+count)
X
X#define L_APPEND(argc, argv, type, elem) \
X argv = (type *) _REALLOC((UNIVPTR) argv, \
X (unsigned) (argc+1) * sizeof(type)); \
X if (argv == 0) \
X argc = 0; \
X else \
X argv[argc++] = elem
X
X#define L_REMOVE(argc, argv, type, index) \
X { \
X int k_; \
X for (k_ = index+1; k_ < argc; ++k_) \
X argv[k_-1] = argv[k_]; \
X L_SETSIZE(argc, argv, type, argc-1); \
X }
X
X#define L_INSERT(argc, argv, type, index, item) \
X { \
X int k_; \
X L_SETSIZE(argc, argv, type, argc+1); \
X for (k_ = argc-1; k_ > index; --k_) \
X argv[k_] = argv[k_-1]; \
X argv[index] = item; \
X }
X
X#define L_SORT(argc, argv, type, compare) \
X qsort((UNIVPTR)argv, argc, sizeof(type), compare)
END_OF_FILE
if test 3065 -ne `wc -c <'H/lists.h'`; then
echo shar: \"'H/lists.h'\" unpacked with wrong size!
fi
# end of 'H/lists.h'
fi
if test -f 'H/patchlevel.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'H/patchlevel.h'\"
else
echo shar: Extracting \"'H/patchlevel.h'\" \(21 characters\)
sed "s/^X//" >'H/patchlevel.h' <<'END_OF_FILE'
X#define PATCHLEVEL 5
END_OF_FILE
if test 21 -ne `wc -c <'H/patchlevel.h'`; then
echo shar: \"'H/patchlevel.h'\" unpacked with wrong size!
fi
# end of 'H/patchlevel.h'
fi
if test -f 'H/winreq.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'H/winreq.h'\"
else
echo shar: Extracting \"'H/winreq.h'\" \(3052 characters\)
sed "s/^X//" >'H/winreq.h' <<'END_OF_FILE'
X/* STDWIN Server -- Window (Manager) Requests. */
X
X/* Command codes in transaction header. */
X
X#define WIN_FIRST 1100
X
X#define WIN_HELLO (WIN_FIRST+1) /* Say hello to server */
X#define WIN_DROPDEAD (WIN_FIRST+2) /* Die, if idle */
X#define WIN_OPEN (WIN_FIRST+3) /* Open new window */
X#define WIN_CLOSE (WIN_FIRST+4) /* Close window */
X#define WIN_DRAW (WIN_FIRST+5) /* Drawing commands; see subcodes */
X#define WIN_GETEVENT (WIN_FIRST+6) /* Get event */
X#define WIN_FLEEP (WIN_FIRST+7) /* Flash or beep */
X#define WIN_ACTIVATE (WIN_FIRST+8) /* Make window active */
X#define WIN_SETDOCSIZE (WIN_FIRST+9) /* Set document size */
X#define WIN_SETTITLE (WIN_FIRST+10) /* Set window title */
X#define WIN_SHOW (WIN_FIRST+11) /* Show part of document */
X#define WIN_SETORIGIN (WIN_FIRST+12) /* Set window origin in document */
X#define WIN_CHANGE (WIN_FIRST+13) /* Change part of document */
X#define WIN_SCROLL (WIN_FIRST+14) /* Scroll part of document */
X#define WIN_MESSAGE (WIN_FIRST+15) /* Output message */
X#define WIN_ASKSTR (WIN_FIRST+16) /* Ask string */
X#define WIN_ASKYNC (WIN_FIRST+17) /* Ask yes/no/cancel question */
X#define WIN_SETCARET (WIN_FIRST+18) /* Set caret position */
X#define WIN_STATUS (WIN_FIRST+19) /* Get window status */
X#define WIN_GETFONTTAB (WIN_FIRST+20) /* Get font width table */
X#define WIN_SETTIMER (WIN_FIRST+21) /* Set window timer */
X#define WIN_SETCLIP (WIN_FIRST+22) /* Set clipboard string */
X#define WIN_GETCLIP (WIN_FIRST+23) /* Get clipboard string */
X#define WIN_POLLEVENT (WIN_FIRST+24) /* Poll for event */
X
X#define MENU_FIRST (WIN_FIRST+50)
X
X#define MENU_CREATE (MENU_FIRST+1)
X#define MENU_DELETE (MENU_FIRST+2)
X#define MENU_ADDITEM (MENU_FIRST+3)
X#define MENU_SETITEM (MENU_FIRST+4)
X#define MENU_ATTACH (MENU_FIRST+5)
X#define MENU_DETACH (MENU_FIRST+6)
X#define MENU_ENABLE (MENU_FIRST+7)
X#define MENU_CHECK (MENU_FIRST+8)
X
X
X/* Subcodes in data buffer for WIN_DRAW. */
X
X#define DRW_LINE 1
X#define DRW_BOX 2
X#define DRW_CIRCLE 3
X#define DRW_ERASE 4
X#define DRW_PAINT 5
X#define DRW_SHADE 6
X#define DRW_INVERT 7
X#define DRW_TEXT 8
X#define DRW_FONT 9
X#define DRW_STYLE 10
X#define DRW_ELARC 11
X#define DRW_XORLINE 12
X
X/* Error codes for h_status. */
X
X#define WER_OK 0 /* ok */
X#define WER_FAIL -101 /* don't know why it failed */
X#define WER_COMBAD -102 /* bad command */
X#define WER_CAPBAD -103 /* bad capability */
X#define WER_NOSPACE -104 /* no space left */
X#define WER_ABORT -105 /* call aborted */
X#define WER_NODATA -106 /* No or insufficient data provided */
X
X/* Event packing parameters.
X (This is a kludge! Should be variable-length and have a length byte
X in the data!) */
X
X#define EVSHORTS 7
X#define EVPACKSIZE (EVSHORTS * sizeof(short))
X
X/* Server's buffer size. */
X
X#define SVRBUFSIZE 4096
X /* I suppose this should really be negotiated between server and
X client, e.g., WIN_HELLO should return the server's buffer
X size. */
X
X/* Font width table length. */
X
X#define FONTTABLEN 256 /* Number of chars in a font */
X
X/* Pseudo-event sent when SIGAMOEBA received */
X
X#define WE_ALERT 22
END_OF_FILE
if test 3052 -ne `wc -c <'H/winreq.h'`; then
echo shar: \"'H/winreq.h'\" unpacked with wrong size!
fi
# end of 'H/winreq.h'
fi
if test -f 'Packs/vt/vtresize.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Packs/vt/vtresize.c'\"
else
echo shar: Extracting \"'Packs/vt/vtresize.c'\" \(3023 characters\)
sed "s/^X//" >'Packs/vt/vtresize.c' <<'END_OF_FILE'
X/* Resize function */
X
X#include "vtimpl.h"
X
X/* Resize the screen.
X When growing, blanks are added to the right and/or at the top (!);
X when shrinking, characters are lost at those edges.
X It is really a disaster if we run out of memory halfway
X (much more so than in vtopen);
X in this case the caller should immediately call vtclose,
X and expect some memory leaks... */
X
Xbool
Xvtresize(vt, rows, cols, save)
X VT *vt;
X int rows, cols;
X int save;
X{
X int rowdiff;
X int i;
X
X rows += save;
X rowdiff = rows - vt->rows;
X if (cols != vt->cols) {
X if (cols < vt->cols) {
X /* Clear the corresponding screen area */
X vtchange(vt, 0, cols, vt->rows, vt->cols);
X vt->cols = cols;
X }
X i = vt->rows;
X if (rows < i)
X i = rows;
X while (--i >= 0) {
X if (!RESIZE(vt->data[i], char, cols))
X return FALSE;
X if (!RESIZE(vt->flags[i], unsigned char, cols))
X return FALSE;
X if (vt->llen[i] > cols)
X vt->llen[i] = cols;
X }
X if (cols > vt->cols) {
X /* Clear the corresponding screen area */
X vtchange(vt, 0, vt->cols, rows, cols);
X vt->cols = cols;
X }
X }
X
X if (rowdiff != 0) {
X if (rowdiff < 0) {
X /* Get the last line into its new position */
X vtscrollup(vt, 0, vt->rows, -rowdiff);
X /* Free the excess lines */
X for (i = rows; i < vt->rows; ++i) {
X FREE(vt->data[i]);
X FREE(vt->flags[i]);
X }
X /* Clear the corresponding screen area */
X vtchange(vt, rows, 0, vt->rows, cols);
X vt->rows = rows;
X }
X
X if (!RESIZE(vt->data, char *, rows))
X return FALSE;
X if (!RESIZE(vt->flags, unsigned char *, rows))
X return FALSE;
X if (!RESIZE(vt->llen, short, rows))
X return FALSE;
X
X if (rowdiff > 0) {
X /* Add new lines */
X for (i = vt->rows; i < rows; ++i) {
X if ((vt->data[i] = NALLOC(char, cols)) == NULL)
X return FALSE;
X if ((vt->flags[i] = NALLOC(unsigned char, cols)) == NULL)
X return FALSE;
X vt->llen[i] = 0;
X }
X /* Clear the corresponding screen area */
X vtchange(vt, vt->rows, 0, rows, cols);
X vt->rows = rows;
X /* Get the last line into its new position */
X vtscrolldown(vt, 0, rows, rowdiff);
X }
X }
X
X if (rowdiff != 0 || save != vt->topterm) {
X vt->topterm = save;
X vtsetscroll(vt, 0, 0); /* Reset scrolling region */
X }
X
X wsetdocsize(vt->win,
X vt->cols * vt->cwidth, vt->rows * vt->cheight);
X
X i = vt->cur_row + rowdiff;
X CLIPMIN(i, save);
X vtsetcursor(vt, i, vt->cur_col);
X
X return TRUE;
X}
X
X/* Adapt the screen size to the new window dimensions.
X The 'save' parameter is computed so as to keep the total amount
X of rows the same (if possible).
X Return value as for vtresize (i.e., FALSE is a disaster). */
X
Xbool
Xvtautosize(vt)
X VT *vt;
X{
X int width, height;
X int newrows, newcols, newsave;
X wgetwinsize(vt->win, &width, &height);
X newrows = height / vt->cheight;
X newcols = width / vt->cwidth;
X newsave = vt->rows - newrows;
X D( printf("vtautosize: size now %dx%d (char = %dx%d) => %dx%d\n",
X width,height, vt->cwidth,vt->cheight, newrows,newcols) );
X CLIPMIN(newsave, 0);
X return vtresize(vt, newrows, newcols, newsave);
X}
END_OF_FILE
if test 3023 -ne `wc -c <'Packs/vt/vtresize.c'`; then
echo shar: \"'Packs/vt/vtresize.c'\" unpacked with wrong size!
fi
# end of 'Packs/vt/vtresize.c'
fi
if test -f 'Packs/vt/vtvtrm.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Packs/vt/vtvtrm.c'\"
else
echo shar: Extracting \"'Packs/vt/vtvtrm.c'\" \(2629 characters\)
sed "s/^X//" >'Packs/vt/vtvtrm.c' <<'END_OF_FILE'
X/* VTRM implementation using VT as lower layer.
X Unfortunately, this isn't too useful on the input part:
X you'll really want to use wgetevent directly to get access
X to mouse clicks, menu events etc.
X Another problem is that there is no portable way to direct normal
X output (e.g., from printf and putchar) to the VTRM window.
X One other thing: you'll have to call wdone() when you really exit. */
X
X/* XXX This has never been tested... */
X
X#include "vtimpl.h"
X#include "vtrm.h"
X
Xstatic VT *vt;
Xstatic bool active;
X
Xint
Xtrmstart(rows_return, cols_return, flags_return)
X int *rows_return, *cols_return, *flags_return;
X{
X if (active)
X return TE_TWICE; /* Already started */
X if (vt == NULL) {
X winit();
X wsetdefwinsize(24*wcharwidth('0'), 80*wlineheight());
X vt= vtopen("VTRM", 24, 80, 0);
X if (vt == NULL)
X return TE_NOMEM; /* Failure */
X }
X *rows_return= 24;
X *cols_return= 80;
X *flags_return=
X HAS_STANDOUT | CAN_SCROLL | CAN_SENSE;
X return TE_OK;
X}
X
Xtrmend()
X{
X active= FALSE;
X}
X
Xtrmputdata(row, col, data)
X int row, col;
X char *data;
X{
X char *start= data;
X int mask= 0;
X vtsetcursor(vt, row, col);
X do {
X if ((*data & 0x80) != mask) {
X if (data > start) {
X if (mask) {
X char *p;
X for (p= start; p < data; ++p)
X *p &= 0x7f;
X vt->gflags= VT_INVERSE;
X }
X vtputstring(vt, start, data-start);
X if (mask) {
X char *p;
X for (p= start; p < data; ++p)
X *p |= 0x80;
X vt->gflags= 0;
X }
X start= data;
X }
X mask= *data & 0x80;
X }
X } while (*data++ != EOS);
X /* XXX This is likely to omit the final data? */
X vteolclear(vt, vt->cur_row, vt->cur_col);
X}
X
Xtrmscrollup(r1, r2, n)
X int r1, r2;
X int n;
X{
X if (n > 0)
X vtscrollup(vt, r1, r2+1, n);
X else if (n < 0)
X vtscrolldown(vt, r1, r2+1, -n);
X}
X
Xtrmsync(row, col)
X int row, col;
X{
X vtsetcursor(vt, row, col);
X}
X
Xstatic lasth, lastv;
X
Xint
Xtrminput()
X{
X EVENT e;
X for (;;) {
X switch (e.type) {
X case WE_COMMAND:
X switch (e.type) {
X case WC_CANCEL:
X return '\003';
X case WC_RETURN:
X return '\r';
X case WC_TAB:
X return '\t';
X case WC_BACKSPACE:
X return '\b';
X case WC_LEFT:
X return '\034';
X case WC_RIGHT:
X return '\035';
X case WC_UP:
X return '\036';
X case WC_DOWN:
X return '\037';
X }
X break;
X case WE_CHAR:
X return e.u.character;
X break;
X case WE_MOUSE_DOWN:
X case WE_MOUSE_MOVE:
X case WE_MOUSE_UP:
X lasth= e.u.where.h;
X lastv= e.u.where.v;
X if (e.type == WE_MOUSE_UP)
X return '\007';
X break;
X }
X }
X}
X
Xint
Xtrmsense(row_return, col_return)
X int *row_return, *col_return;
X{
X *row_return= lastv / vtcheight(vt);
X *col_return= lasth / vtcwidth(vt);
X}
END_OF_FILE
if test 2629 -ne `wc -c <'Packs/vt/vtvtrm.c'`; then
echo shar: \"'Packs/vt/vtvtrm.c'\" unpacked with wrong size!
fi
# end of 'Packs/vt/vtvtrm.c'
fi
if test -f 'Ports/mac/caret.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Ports/mac/caret.c'\"
else
echo shar: Extracting \"'Ports/mac/caret.c'\" \(2827 characters\)
sed "s/^X//" >'Ports/mac/caret.c' <<'END_OF_FILE'
X/* MAC STDWIN -- TEXT CARET HANDLING. */
X
X/* The 'caret' is a blinking vertical bar indicating the text insertion point.
X Each window has its own caret position (hcaret, vcaret) telling where the
X insertion point is; if either is negative no caret is shown.
X Only the caret of the active window is actually visible.
X The blinking is done by repeatedly calling (in the event loop when idling)
X blinkcaret(), which flips the caret's state if it's been stable long enough.
X The file-static variable lastflip records when the caret has last changed
X state.
X A struct member caret_on indicates per window whether the caret is
X currently drawn or not. (A file-static variable would really suffice.)
X
X NB: all routines except w{set,no}caret assume win->w is the current GrafPort.
X*/
X
X#include "macwin.h"
X
X#ifdef MPW
X#include <Events.h>
X#endif
X
X/* Function prototypes */
XSTATIC void invertcaret _ARGS((WINDOW *win));
XSTATIC void flipcaret _ARGS((WINDOW *win));
X
Xstatic long lastflip = 0; /* Time when the caret last blinked */
X
X/* Invert the caret's pixels. */
X
Xstatic void
Xinvertcaret(win)
X WINDOW *win;
X{
X Rect r;
X FontInfo finfo;
X
X if (win->hcaret < 0 || win->vcaret < 0)
X return;
X GetFontInfo(&finfo);
X makerect(win, &r,
X win->hcaret-1,
X win->vcaret,
X win->hcaret,
X win->vcaret + finfo.leading + finfo.ascent + finfo.descent);
X InvertRect(&r);
X}
X
X/* Flip the caret state, if the window has a caret.
X Also set lastflip, so blinkcaret() below knows when to flip it again. */
X
Xstatic void
Xflipcaret(win)
X WINDOW *win;
X{
X if (win->hcaret < 0 || win->vcaret < 0)
X return;
X invertcaret(win);
X win->caret_on = !win->caret_on;
X lastflip= TickCount();
X}
X
X/* Make sure the caret is invisible.
X This is necessary before operations like handling mouse clicks,
X bringing up dialog boxes, or when the window goes inactive. */
X
Xvoid
Xrmcaret(win)
X WINDOW *win;
X{
X if (win->caret_on)
X flipcaret(win);
X}
X
X/* Blink the caret, if there is one.
X This should be called sufficiently often from the main event loop.
X We only blink if enough ticks have passed since the last flip,
X whether caused by us or by an explicit call to rmcaret(). */
X
Xvoid
Xblinkcaret(win)
X WINDOW *win;
X{
X if (win->hcaret < 0 || win->vcaret < 0)
X return;
X if (TickCount() >= lastflip + GetCaretTime())
X flipcaret(win);
X}
X
X/* User-callable routine to specify the caret position.
X The caret is not drawn now, but when the next blink is due. */
X
Xvoid
Xwsetcaret(win, h, v)
X WINDOW *win;
X int h, v;
X{
X SetPort(win->w);
X rmcaret(win);
X win->hcaret = h;
X win->vcaret = v;
X}
X
X/* User-callable routine to specify that the window has no caret.
X This is indicated by setting (hcaret, vcaret) to (-1, -1). */
X
Xvoid
Xwnocaret(win)
X WINDOW *win;
X{
X SetPort(win->w);
X rmcaret(win); /* See remark in wsetcaret() */
X win->hcaret = win->vcaret= -1;
X}
END_OF_FILE
if test 2827 -ne `wc -c <'Ports/mac/caret.c'`; then
echo shar: \"'Ports/mac/caret.c'\" unpacked with wrong size!
fi
# end of 'Ports/mac/caret.c'
fi
if test -f 'Ports/vtrm/DIST/pag.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Ports/vtrm/DIST/pag.c'\"
else
echo shar: Extracting \"'Ports/vtrm/DIST/pag.c'\" \(2582 characters\)
sed "s/^X//" >'Ports/vtrm/DIST/pag.c' <<'END_OF_FILE'
X/* VTRM example -- a trivial pager.
X There are zillions of things this pager doesn't do, or would
X crash on, but it is a nice demonstration of the use of VTRM. */
X
X#include <stdio.h>
X
Xchar *index();
X
X#define CTRL(c) ((c)&0x1F)
X
X#include "trm.h"
X
Xint lines, columns, flags;
XFILE *fp;
X
X/* Main program -- scan arguments, open file, set-up VTRM, main loop. */
X
Xmain(argc, argv)
X int argc;
X char **argv;
X{
X int n, c;
X
X if (argc != 2) {
X fprintf(stderr, "usage: %s file\n", argv[0]);
X exit(2);
X }
X
X if ((fp= fopen(argv[1], "r")) == NULL) {
X perror(argv[1]);
X exit(1);
X }
X
X if ((n= trmstart(&lines, &columns, &flags)) != 0) {
X fprintf(stderr, "trmstart error %d\n", n);
X exit(3);
X }
X
X page();
X
X for (;;) {
X prompt();
X c= trminput();
X
X switch (c) {
X
X case ' ': /* Display one more page */
X page();
X break;
X
X case '\n': /* Display one more line */
X case '\r':
X line();
X break;
X
X case 'q': /* Quit */
X case CTRL('C'): /* or Interrupt */
X trmputdata(lines-1, lines-1, 0, "");
X trmsync(lines-1, 0);
X trmend();
X exit(2);
X
X case CTRL('Z'): /* Suspend */
X trmputdata(lines-1, lines-1, 0, "");
X trmsync(lines-1, 0);
X trmend();
X trmsuspend();
X if (trmstart(&lines, &columns, &flags))
X exit(3);
X page();
X break;
X
X default: /* Error */
X trmbell();
X break;
X
X }
X }
X}
X
Xint left; /* Lines left on current page */
X
X/* Output one page, using line() as a subroutine.
X BUG: if the last line takes up more space than available, it is
X displayed in its entirety, scrolling up more than a page in total. */
X
Xpage()
X{
X left= lines-1;
X do {
X line();
X } while (left > 0);
X}
X
X/* Output one line. The line is displayed at the bottom,
X assuming the botom line of the screen is free.
X Update count of lines left on display. Exit if EOF hit. */
X
Xline()
X{
X char linebuf[BUFSIZ];
X char *p;
X int n;
X
X if (fgets(linebuf, sizeof linebuf, fp) == NULL) {
X trmend();
X exit(0);
X }
X if (p= index(linebuf, '\n'))
X *p= '\0';
X n= need(linebuf);
X trmscrollup(0, lines-1, n);
X trmputdata(lines-n-1, lines-2, 0, linebuf);
X left -= n;
X}
X
X/* Compute the number of screen lines required.
X Assumes only printing characters. */
X
Xneed(buf)
X char *buf;
X{
X int len= strlen(buf);
X
X if (len == 0)
X return 1;
X else
X return (len+columns-1) / columns;
X}
X
X/* Issue a prompt on the bottom line.
X Assumes this line is already free. */
X
Xprompt()
X{
X static int beenhere= 0;
X static char pr[]= "--More--";
X
X if (!beenhere++) {
X char *p;
X
X for (p= pr; *p; ++p)
X *p |= 0x80;
X }
X trmputdata(lines-1, lines-1, 0, pr);
X trmsync(lines-1, strlen(pr));
X}
END_OF_FILE
if test 2582 -ne `wc -c <'Ports/vtrm/DIST/pag.c'`; then
echo shar: \"'Ports/vtrm/DIST/pag.c'\" unpacked with wrong size!
fi
# end of 'Ports/vtrm/DIST/pag.c'
fi
if test -f 'Ports/x11/scroll.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Ports/x11/scroll.c'\"
else
echo shar: Extracting \"'Ports/x11/scroll.c'\" \(2894 characters\)
sed "s/^X//" >'Ports/x11/scroll.c' <<'END_OF_FILE'
X/* X11 STDWIN -- Scroll bars */
X
X#include "x11.h"
X
X#define IMARGIN 2 /* See window.c */
X
X/* Macro to compute the thumb position and size.
X Don't call when docwidth (docheight) is zero. */
X
X/* dir is x or y; dim is width or height; bar is hbar or vbar */
X#define BARCOMPUTE(dir, dim, bar) { \
X range= win->bar.dim; \
X start= range * (-win->wa.dir) / win->doc.dim; \
X size= range * win->wi.dim / win->doc.dim; \
X _wdebug(4, "BARCOMPUTE: start=%d, size=%d", start, size); \
X }
X
X/* Functions to draw the scroll bars.
X Currently, the thumb is a rectangle separated by the scroll bar's
X borders by a one-pixel wide space */
X
X_wdrawhbar(win)
X WINDOW *win;
X{
X _wdebug(3, "draw hbar");
X XClearWindow(_wd, win->hbar.wid);
X if (win->doc.width > win->wi.width) {
X int start, size, range;
X BARCOMPUTE(x, width, hbar);
X XSetTile(_wd, win->gc, _w_gray());
X XSetFillStyle(_wd, win->gc, FillTiled);
X XFillRectangle(_wd, win->hbar.wid, win->gc,
X start + 1, 1, size - 1, win->hbar.height - 2);
X XSetFillStyle(_wd, win->gc, FillSolid);
X }
X}
X
X_wdrawvbar(win)
X WINDOW *win;
X{
X _wdebug(3, "draw vbar");
X XClearWindow(_wd, win->vbar.wid);
X if (win->doc.height > win->wi.height) {
X int start, size, range;
X BARCOMPUTE(y, height, vbar);
X XSetTile(_wd, win->gc, _w_gray());
X XSetFillStyle(_wd, win->gc, FillTiled);
X XFillRectangle(_wd, win->vbar.wid, win->gc,
X 1, start + 1, win->vbar.width - 2, size - 1);
X XSetFillStyle(_wd, win->gc, FillSolid);
X }
X}
X
X/* Functions to interpret scroll bar hits.
X Matching the Toolkit scroll bars, we should implement:
X - button 1: scroll forward, amount determined by position
X - button 2: position scroll bar begin at pointer
X - buttom 3: scroll back, amount determined by position
X*/
X
X/* dir is x or y; dim is width or height; bar is hbar or vbar;
X drawcall is _wdraw{h,v}bar; imargin is IMARGIN or 0. */
X#define HITCODE(dir, dim, bar, drawcall, imargin) { \
X WINDOW *win= bsp->win; \
X int start, size, range, nstart; \
X if (win->doc.dim <= win->wi.dim - imargin) \
X return; \
X BARCOMPUTE(dir, dim, bar); \
X switch (bsp->button) { \
X case 1: \
X if (bsp->down) return; \
X nstart= start + \
X (bsp->dir * win->wi.dim + win->doc.dim/2) \
X / win->doc.dim; \
X break; \
X default: \
X nstart= bsp->dir; \
X break; \
X case 3: \
X if (bsp->down) return; \
X nstart= start - \
X (bsp->dir * win->wi.dim + win->doc.dim/2) \
X / win->doc.dim; \
X break; \
X } \
X CLIPMAX(nstart, range-size); \
X CLIPMIN(nstart, 0); \
X if (nstart != start) { \
X win->wa.dir= \
X -(nstart * win->doc.dim / win->bar.dim); \
X _wmove(&win->wa); \
X drawcall(win); \
X } \
X }
X
X_whithbar(bsp, ep)
X struct button_state *bsp;
X EVENT *ep;
X{
X _wdebug(3, "hit hbar");
X HITCODE(x, width, hbar, _wdrawhbar, IMARGIN);
X}
X
X_whitvbar(bsp, ep)
X struct button_state *bsp;
X EVENT *ep;
X{
X _wdebug(3, "hit vbar");
X HITCODE(y, height, vbar, _wdrawvbar, 0);
X}
END_OF_FILE
if test 2894 -ne `wc -c <'Ports/x11/scroll.c'`; then
echo shar: \"'Ports/x11/scroll.c'\" unpacked with wrong size!
fi
# end of 'Ports/x11/scroll.c'
fi
echo shar: End of archive 16 \(of 19\).
cp /dev/null ark16isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 19 archives.
rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0
