STDWIN 0.9.5, Part 19/19
Guido van Rossum
guido at cwi.nl
Mon Mar 4 21:58:40 AEST 1991
Archive-name: stdwin/part19
#! /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 19 (of 19)."
# Contents: Appls/bed/Make.proto Appls/bed/bed.h Appls/bed/menu.h
# Appls/dpv/Make.proto Appls/dpv/To.do Appls/dpv/dpv.h
# Appls/dpv/funnyproto Appls/dpv/makefunny Appls/dpv/symbol
# Appls/dpv/symbola Appls/klok/Make.proto Appls/klok/amsetdate.c
# Appls/miniedit/Make.proto Appls/miniedit/regexp.h
# Appls/miniedit/regmagic.h Appls/repeat/Make.proto
# Appls/test/README Appls/test/test0.c Appls/test/test2.c
# Appls/tetris/Make.proto Conf/fastmkdep Conf/mkall
# Conf/proto.arch.mips Conf/proto.arch.sgi Conf/proto.arch.sun3
# Conf/proto.arch.sun4 Conf/proto.arch.tahoe Conf/proto.arch.vax
# Conf/proto.os.sunos Conf/proto.os.ultrix Conf/proto.port.alfa
# Conf/proto.port.x11 Conf/putlibmf Conf/putobjs Conf/putprogmf
# Conf/puttargets Conf/slowmkdep Doc/README Gen/waskync.c
# Gen/wperror.c Gen/wsetclip.c Gen/wsetcutbuffer.c
# Gen/wsetselection.c Gen/wstyle.c H/endian.h H/filedefs.h
# H/sigtype.h H/stdwconf.h H/style.h H/tilist.h H/vtserial.h
# Packs/vt/To.do Packs/vt/vtpanic.c Packs/vt/vtsend.c
# Packs/vt/vtusesend.c Ports/alfa/BUGS Ports/alfa/Make.proto
# Ports/alfa/menu.h Ports/mac_mpw/README Ports/msdos/README
# Ports/msdos/dir.h Ports/msdos/lib. Ports/x11/Make.proto
# Wrapped by guido at voorn.cwi.nl on Mon Mar 4 12:37:39 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'Appls/bed/Make.proto' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/bed/Make.proto'\"
else
echo shar: Extracting \"'Appls/bed/Make.proto'\" \(264 characters\)
sed "s/^X//" >'Appls/bed/Make.proto' <<'END_OF_FILE'
X
X#
X# Makefile prototype for bed (bitmap editor) application
X#
X
XBED= $(APPLS)/bed
X
XSRCS= \
X $(BED)/bed.c \
X $(BED)/file.c \
X $(BED)/fmenu.c \
X $(BED)/mouse.c \
X $(BED)/mmenu.c \
X $(BED)/opmenu.c
X
XSRCLIBS= -lm
X
Xall: bed
X
X_bootstrap:
X @putprogmf bed $(SRCS)
END_OF_FILE
if test 264 -ne `wc -c <'Appls/bed/Make.proto'`; then
echo shar: \"'Appls/bed/Make.proto'\" unpacked with wrong size!
fi
# end of 'Appls/bed/Make.proto'
fi
if test -f 'Appls/bed/bed.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/bed/bed.h'\"
else
echo shar: Extracting \"'Appls/bed/bed.h'\" \(80 characters\)
sed "s/^X//" >'Appls/bed/bed.h' <<'END_OF_FILE'
X#include "stdwin.h"
X#include "tools.h"
X
X#define DEF_ROWS 48
X#define DEF_COLS 48
END_OF_FILE
if test 80 -ne `wc -c <'Appls/bed/bed.h'`; then
echo shar: \"'Appls/bed/bed.h'\" unpacked with wrong size!
fi
# end of 'Appls/bed/bed.h'
fi
if test -f 'Appls/bed/menu.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/bed/menu.h'\"
else
echo shar: Extracting \"'Appls/bed/menu.h'\" \(520 characters\)
sed "s/^X//" >'Appls/bed/menu.h' <<'END_OF_FILE'
X#define FILE_MENU 1
X
X#define OPEN_ITEM 0
X#define NEW_ITEM 1
X#define SAVE_ITEM 3
X#define SAVE_AS_ITEM 4
X#define QUIT_ITEM 6
X
X#define MODE_MENU 2
X
X#define PENCIL_ITEM 0
X#define LINE_ITEM 1
X#define CIRCLE_ITEM 2
X#define SELECT_ITEM 3
X
X#define OP_MENU 3
X
X#define CLEAR_ITEM 0
X#define SET_ITEM 1
X#define INVERT_ITEM 2
X#define TRANS_MAJ_ITEM 4
X#define TRANS_MIN_ITEM 5
X#define ROT_LEFT_ITEM 6
X#define ROT_RIGHT_ITEM 7
X#define FLIP_HOR_ITEM 8
X#define FLIP_VERT_ITEM 9
X#define ZOOM_IN 10
X#define ZOOM_OUT 11
X
X#define NOPS 11
END_OF_FILE
if test 520 -ne `wc -c <'Appls/bed/menu.h'`; then
echo shar: \"'Appls/bed/menu.h'\" unpacked with wrong size!
fi
# end of 'Appls/bed/menu.h'
fi
if test -f 'Appls/dpv/Make.proto' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/dpv/Make.proto'\"
else
echo shar: Extracting \"'Appls/dpv/Make.proto'\" \(357 characters\)
sed "s/^X//" >'Appls/dpv/Make.proto' <<'END_OF_FILE'
X
X#
X# Makefile prototype for dpv application
X#
X
XDPV= $(APPLS)/dpv
X
XSRCS= \
X $(DPV)/dpv.c \
X $(DPV)/dpvcontrol.c \
X $(DPV)/dpvfonts.c \
X $(DPV)/dpvfunny.c \
X $(DPV)/dpvmachine.c \
X $(DPV)/dpvoutput.c \
X $(DPV)/dpvparse.c \
X $(DPV)/dpvrestart.c
X
XSRCLIBS= -lm
X
Xall: dpv choose
X
X_bootstrap:
X @putprogmf dpv $(SRCS)
X @putprogmf choose $(DPV)/choose.c
X
END_OF_FILE
if test 357 -ne `wc -c <'Appls/dpv/Make.proto'`; then
echo shar: \"'Appls/dpv/Make.proto'\" unpacked with wrong size!
fi
# end of 'Appls/dpv/Make.proto'
fi
if test -f 'Appls/dpv/To.do' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/dpv/To.do'\"
else
echo shar: Extracting \"'Appls/dpv/To.do'\" \(270 characters\)
sed "s/^X//" >'Appls/dpv/To.do' <<'END_OF_FILE'
XIncorporate Robbert's changes to arcs (see ../ndpv)
X
XRe-read the input (so user can rerun ditroff w/o need to restart dpv)
X
XRead the print menu from a file
X
XAdd ditroff new names to funny char table
X
XShow external page numbers; use external page numbers in GOTO command
END_OF_FILE
if test 270 -ne `wc -c <'Appls/dpv/To.do'`; then
echo shar: \"'Appls/dpv/To.do'\" unpacked with wrong size!
fi
# end of 'Appls/dpv/To.do'
fi
if test -f 'Appls/dpv/dpv.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/dpv/dpv.h'\"
else
echo shar: Extracting \"'Appls/dpv/dpv.h'\" \(461 characters\)
sed "s/^X//" >'Appls/dpv/dpv.h' <<'END_OF_FILE'
X/* dpv -- ditroff previewer. Global definitions */
X
X#include "tools.h"
X#include <stdwin.h>
X
X#define DEBUGABLE /* defined if can set dbg flag (-d) */
X
X#define ABORT 2 /* exit code for aborts */
X#define FATAL 1 /* type of error */
X#define WARNING 0 /* non-fatal (also !FATAL) */
X
Xextern int dbg; /* amount of debugging output wanted */
X
Xextern char *progname; /* program name, for error messages */
Xextern char *funnyfile; /* alternate funnytab filename */
END_OF_FILE
if test 461 -ne `wc -c <'Appls/dpv/dpv.h'`; then
echo shar: \"'Appls/dpv/dpv.h'\" unpacked with wrong size!
fi
# end of 'Appls/dpv/dpv.h'
fi
if test -f 'Appls/dpv/funnyproto' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/dpv/funnyproto'\"
else
echo shar: Extracting \"'Appls/dpv/funnyproto'\" \(164 characters\)
sed "s/^X//" >'Appls/dpv/funnyproto' <<'END_OF_FILE'
Xff - "ff"
Xfi - "fi"
Xfl - "fl"
XFi - "ffi"
XFl - "ffl"
XAE - "AE"
XOE - "OE"
Xae - "ae"
Xoe - "oe"
X\- - "-"
X\_ - "_"
Xhy - "-"
Xru - "_"
Xem - "-"
Xaa - "'"
Xga - "`"
Xct - "c"
END_OF_FILE
if test 164 -ne `wc -c <'Appls/dpv/funnyproto'`; then
echo shar: \"'Appls/dpv/funnyproto'\" unpacked with wrong size!
fi
# end of 'Appls/dpv/funnyproto'
fi
if test -f 'Appls/dpv/makefunny' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/dpv/makefunny'\"
else
echo shar: Extracting \"'Appls/dpv/makefunny'\" \(109 characters\)
sed "s/^X//" >'Appls/dpv/makefunny' <<'END_OF_FILE'
X#!/bin/sh
X# Make funny character translation tables
X
Xfor file
Xdo
X sed "s/ - / `basename $file` /" $file
Xdone
END_OF_FILE
if test 109 -ne `wc -c <'Appls/dpv/makefunny'`; then
echo shar: \"'Appls/dpv/makefunny'\" unpacked with wrong size!
fi
chmod +x 'Appls/dpv/makefunny'
# end of 'Appls/dpv/makefunny'
fi
if test -f 'Appls/dpv/symbol' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/dpv/symbol'\"
else
echo shar: Extracting \"'Appls/dpv/symbol'\" \(630 characters\)
sed "s/^X//" >'Appls/dpv/symbol' <<'END_OF_FILE'
XoA - 0x22
XoE - 0x24
Xcn - 0x27
X** - 0x2A
Xpl - 0x2B
Xmi - 0x2D
Xsl - 0x2F
Xeq - 0x3D
X=~ - 0x40
X*A - 0x41
X*B - 0x42
X*X - 0x43
X*D - 0x44
X*E - 0x45
X*F - 0x46
X*G - 0x47
X*Y - 0x48
X*I - 0x49
X*K - 0x4B
X*L - 0x4C
X*M - 0x4D
X*N - 0x4E
X*O - 0x4F
X*P - 0x50
X*H - 0x51
X*R - 0x52
X*S - 0x53
X*T - 0x54
X*U - 0x55
Xts - 0x56
X*W - 0x57
X*C - 0x58
X*Q - 0x59
X*Z - 0x5A
Xul - 0x5F
Xrn - 0x60
X*a - 0x61
X*b - 0x62
X*x - 0x63
X*d - 0x64
X*e - 0x65
X*f - 0x66
X*g - 0x67
X*y - 0x68
X*i - 0x69
X*f - 0x6A
X*k - 0x6B
X*l - 0x6C
X*m - 0x6D
X*n - 0x6E
X*o - 0x6F
X*p - 0x70
X*h - 0x71
X*r - 0x72
X*s - 0x73
X*t - 0x74
X*u - 0x75
X*w - 0x77
X*c - 0x78
X*q - 0x79
X*z - 0x7A
Xor - 0x7C
Xap - 0x7E
END_OF_FILE
if test 630 -ne `wc -c <'Appls/dpv/symbol'`; then
echo shar: \"'Appls/dpv/symbol'\" unpacked with wrong size!
fi
# end of 'Appls/dpv/symbol'
fi
if test -f 'Appls/dpv/symbola' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/dpv/symbola'\"
else
echo shar: Extracting \"'Appls/dpv/symbola'\" \(630 characters\)
sed "s/^X//" >'Appls/dpv/symbola' <<'END_OF_FILE'
Xfm - 0x22
X<= - 0x23
Xsl - 0x24
Xif - 0x25
X$D - 0x26
Xbs - 0x29
Xlr - 0x2B
X<- - 0x2C
Xua - 0x2D
X-> - 0x2E
Xda - 0x2F
Xde - 0x30
X+- - 0x31
X>= - 0x33
Xmu - 0x34
Xpt - 0x35
Xpd - 0x36
Xbu - 0x37
Xdi - 0x38
X!= - 0x39
X== - 0x3A
X~= - 0x3B
Xbr - 0x3D
XAh - 0x40
Xc* - 0x44
Xc+ - 0x45
Xes - 0x46
Xca - 0x47
Xcu - 0x48
Xsp - 0x49
Xip - 0x4A
Xsb - 0x4C
Xib - 0x4D
Xmo - 0x4E
Xnm - 0x4F
Xan - 0x50
Xgr - 0x51
Xrg - 0x52
Xco - 0x53
Xsr - 0x56
Xno - 0x58
XAN - 0x59
XOR - 0x5A
X<> - 0x5B
XDl - 0x5C
XDu - 0x5D
XDr - 0x5E
XDd - 0x5F
Xfo - 0x61
Xlc - 0x69
Xlf - 0x6B
Xlt - 0x6C
Xlk - 0x6D
Xlb - 0x6E
Xbv - 0x6F
Xbs - 0x70
Xfc - 0x71
Xis - 0x72
Xrc - 0x79
Xrf - 0x7B
Xrt - 0x7C
Xrk - 0x7D
Xrb - 0x7E
END_OF_FILE
if test 630 -ne `wc -c <'Appls/dpv/symbola'`; then
echo shar: \"'Appls/dpv/symbola'\" unpacked with wrong size!
fi
# end of 'Appls/dpv/symbola'
fi
if test -f 'Appls/klok/Make.proto' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/klok/Make.proto'\"
else
echo shar: Extracting \"'Appls/klok/Make.proto'\" \(186 characters\)
sed "s/^X//" >'Appls/klok/Make.proto' <<'END_OF_FILE'
X
X#
X# Makefile prototype for klok application
X#
X
XKLOK= $(APPLS)/klok
X
XSRCS= \
X $(KLOK)/klok.c \
X $(KLOK)/bsdsetdate.c
X
XSRCLIBS= -lm
X
Xall: klok
X
X_bootstrap:
X @putprogmf klok $(SRCS)
X
END_OF_FILE
if test 186 -ne `wc -c <'Appls/klok/Make.proto'`; then
echo shar: \"'Appls/klok/Make.proto'\" unpacked with wrong size!
fi
# end of 'Appls/klok/Make.proto'
fi
if test -f 'Appls/klok/amsetdate.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/klok/amsetdate.c'\"
else
echo shar: Extracting \"'Appls/klok/amsetdate.c'\" \(638 characters\)
sed "s/^X//" >'Appls/klok/amsetdate.c' <<'END_OF_FILE'
X/* Set the date and time -- Amoeba version */
X
X#include <amtools.h>
X#include <module/tod.h>
X#include <ampolicy.h>
X
X#include <time.h>
X
X/* Set the date and time from a struct tm.
X The input time is in local time.
X If 'minchange' is zero, minutes and seconds are not taken
X from the input but from the current system time. */
X
Xint
Xsetdatetime(tp, minchange)
X struct tm *tp;
X int minchange; /* nonzero if we must reset minutes and seconds, too */
X{
X time_t new;
X errstat err;
X
X new = mktime(tp);
X if (!minchange)
X new = new/3600*3600 + time((time_t *)0)%3600;
X if (tod_settime(new, 0) != STD_OK) {
X return -1;
X }
X else
X return 0;
X}
END_OF_FILE
if test 638 -ne `wc -c <'Appls/klok/amsetdate.c'`; then
echo shar: \"'Appls/klok/amsetdate.c'\" unpacked with wrong size!
fi
# end of 'Appls/klok/amsetdate.c'
fi
if test -f 'Appls/miniedit/Make.proto' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/miniedit/Make.proto'\"
else
echo shar: Extracting \"'Appls/miniedit/Make.proto'\" \(224 characters\)
sed "s/^X//" >'Appls/miniedit/Make.proto' <<'END_OF_FILE'
X
X#
X# Makefile prototype for miniedit application
X#
X
XMINIEDIT= $(APPLS)/miniedit
X
XSRCS= \
X $(MINIEDIT)/miniedit.c \
X $(MINIEDIT)/regexp.c \
X $(MINIEDIT)/regsub.c
X
Xall: miniedit
X
X_bootstrap:
X @putprogmf miniedit $(SRCS)
X
END_OF_FILE
if test 224 -ne `wc -c <'Appls/miniedit/Make.proto'`; then
echo shar: \"'Appls/miniedit/Make.proto'\" unpacked with wrong size!
fi
# end of 'Appls/miniedit/Make.proto'
fi
if test -f 'Appls/miniedit/regexp.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/miniedit/regexp.h'\"
else
echo shar: Extracting \"'Appls/miniedit/regexp.h'\" \(683 characters\)
sed "s/^X//" >'Appls/miniedit/regexp.h' <<'END_OF_FILE'
X/*
X * Definitions etc. for regexp(3) routines.
X *
X * Caveat: this is V8 regexp(3) [actually, a reimplementation thereof],
X * not the System V one.
X */
X
X#ifdef THINK_C
X#define STATIC /**/
X#endif
X#define MULTILINE
X
X#define NSUBEXP 10
Xtypedef struct regexp {
X char *startp[NSUBEXP];
X char *endp[NSUBEXP];
X char regstart; /* Internal use only. */
X char reganch; /* Internal use only. */
X char *regmust; /* Internal use only. */
X int regmlen; /* Internal use only. */
X char program[1]; /* Unwarranted chumminess with compiler. */
X} regexp;
X
Xextern regexp *regcomp();
Xextern int regexec();
X#ifdef MULTILINE
Xextern int reglexec();
X#endif
Xextern void regsub();
Xextern void regerror();
END_OF_FILE
if test 683 -ne `wc -c <'Appls/miniedit/regexp.h'`; then
echo shar: \"'Appls/miniedit/regexp.h'\" unpacked with wrong size!
fi
# end of 'Appls/miniedit/regexp.h'
fi
if test -f 'Appls/miniedit/regmagic.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/miniedit/regmagic.h'\"
else
echo shar: Extracting \"'Appls/miniedit/regmagic.h'\" \(153 characters\)
sed "s/^X//" >'Appls/miniedit/regmagic.h' <<'END_OF_FILE'
X/*
X * The first byte of the regexp internal "program" is actually this magic
X * number; the start node begins in the second byte.
X */
X#define MAGIC 0234
END_OF_FILE
if test 153 -ne `wc -c <'Appls/miniedit/regmagic.h'`; then
echo shar: \"'Appls/miniedit/regmagic.h'\" unpacked with wrong size!
fi
# end of 'Appls/miniedit/regmagic.h'
fi
if test -f 'Appls/repeat/Make.proto' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/repeat/Make.proto'\"
else
echo shar: Extracting \"'Appls/repeat/Make.proto'\" \(161 characters\)
sed "s/^X//" >'Appls/repeat/Make.proto' <<'END_OF_FILE'
X
X#
X# Makefile prototype for repeat application
X#
X
XREPEAT= $(APPLS)/repeat
X
XSRCS= \
X $(REPEAT)/repeat.c
X
Xall: repeat
X
X_bootstrap:
X @putprogmf repeat $(SRCS)
X
END_OF_FILE
if test 161 -ne `wc -c <'Appls/repeat/Make.proto'`; then
echo shar: \"'Appls/repeat/Make.proto'\" unpacked with wrong size!
fi
# end of 'Appls/repeat/Make.proto'
fi
if test -f 'Appls/test/README' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/test/README'\"
else
echo shar: Extracting \"'Appls/test/README'\" \(63 characters\)
sed "s/^X//" >'Appls/test/README' <<'END_OF_FILE'
XThis is a random collection of sometimes-useful test programs.
END_OF_FILE
if test 63 -ne `wc -c <'Appls/test/README'`; then
echo shar: \"'Appls/test/README'\" unpacked with wrong size!
fi
# end of 'Appls/test/README'
fi
if test -f 'Appls/test/test0.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/test/test0.c'\"
else
echo shar: Extracting \"'Appls/test/test0.c'\" \(167 characters\)
sed "s/^X//" >'Appls/test/test0.c' <<'END_OF_FILE'
X/* Minimal test -- just call winit() and wdone(). */
X
X#include "stdwin.h"
X
Xmain(argc, argv)
X int argc;
X char **argv;
X{
X winitargs(&argc, &argv);
X wdone();
X exit(0);
X}
END_OF_FILE
if test 167 -ne `wc -c <'Appls/test/test0.c'`; then
echo shar: \"'Appls/test/test0.c'\" unpacked with wrong size!
fi
# end of 'Appls/test/test0.c'
fi
if test -f 'Appls/test/test2.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/test/test2.c'\"
else
echo shar: Extracting \"'Appls/test/test2.c'\" \(544 characters\)
sed "s/^X//" >'Appls/test/test2.c' <<'END_OF_FILE'
X/* Typical test -- a window saying Hello, world. */
X
X#include "stdwin.h"
X
Xvoid
Xdrawproc(win, l, t, r, b)
X WINDOW *win;
X{
X wdrawtext(0, 0, "Hello, world", -1);
X}
X
Xmain(argc, argv)
X int argc;
X char **argv;
X{
X WINDOW *win;
X winitargs(&argc, &argv);
X win= wopen("Hello test", drawproc);
X for (;;) {
X EVENT e;
X wgetevent(&e);
X if (e.type == WE_CHAR && e.u.character == 'q')
X break;
X if (e.type == WE_CLOSE ||
X e.type == WE_COMMAND &&
X (e.u.command == WC_CLOSE || e.u.command == WC_CANCEL))
X break;
X }
X wclose(win);
X wdone();
X exit(0);
X}
END_OF_FILE
if test 544 -ne `wc -c <'Appls/test/test2.c'`; then
echo shar: \"'Appls/test/test2.c'\" unpacked with wrong size!
fi
# end of 'Appls/test/test2.c'
fi
if test -f 'Appls/tetris/Make.proto' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Appls/tetris/Make.proto'\"
else
echo shar: Extracting \"'Appls/tetris/Make.proto'\" \(161 characters\)
sed "s/^X//" >'Appls/tetris/Make.proto' <<'END_OF_FILE'
X
X#
X# Makefile prototype for tetris application
X#
X
XTETRIS= $(APPLS)/tetris
X
XSRCS= \
X $(TETRIS)/tetris.c
X
Xall: tetris
X
X_bootstrap:
X @putprogmf tetris $(SRCS)
X
END_OF_FILE
if test 161 -ne `wc -c <'Appls/tetris/Make.proto'`; then
echo shar: \"'Appls/tetris/Make.proto'\" unpacked with wrong size!
fi
# end of 'Appls/tetris/Make.proto'
fi
if test -f 'Conf/fastmkdep' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/fastmkdep'\"
else
echo shar: Extracting \"'Conf/fastmkdep'\" \(304 characters\)
sed "s/^X//" >'Conf/fastmkdep' <<'END_OF_FILE'
X#! /bin/sh
X
X# Update the dependencies of the Makefile in place.
X# usage: $0 $(CFLAGS) $(SRCS)
X
X{
X sed '/^# DO NOT DELETE THIS LINE/,$d' Makefile &&
X echo &&
X echo '# DO NOT DELETE THIS LINE -- make depend depends on it.' &&
X echo &&
X cc -M $*
X} >>Mf.dep &&
Xmv Makefile Makefile.bak &&
Xmv Mf.dep Makefile
END_OF_FILE
if test 304 -ne `wc -c <'Conf/fastmkdep'`; then
echo shar: \"'Conf/fastmkdep'\" unpacked with wrong size!
fi
chmod +x 'Conf/fastmkdep'
# end of 'Conf/fastmkdep'
fi
if test -f 'Conf/mkall' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/mkall'\"
else
echo shar: Extracting \"'Conf/mkall'\" \(140 characters\)
sed "s/^X//" >'Conf/mkall' <<'END_OF_FILE'
Xecho + mkmf $*
Xmkmf $*
Xfor dir in `ls ../Appls`
Xdo
X if test -f ../Appls/$dir/Make.proto
X then
X echo + mkmf $* $dir
X mkmf $* $dir
X fi
Xdone
END_OF_FILE
if test 140 -ne `wc -c <'Conf/mkall'`; then
echo shar: \"'Conf/mkall'\" unpacked with wrong size!
fi
chmod +x 'Conf/mkall'
# end of 'Conf/mkall'
fi
if test -f 'Conf/proto.arch.mips' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/proto.arch.mips'\"
else
echo shar: Extracting \"'Conf/proto.arch.mips'\" \(172 characters\)
sed "s/^X//" >'Conf/proto.arch.mips' <<'END_OF_FILE'
X
X#
X# Definitions pertaining to the DEC mips architecture
X#
X
X# The name of this architecture
XARCH= mips
X
X# Script to add dependencies to Makefile
XMKDEP= $(CONF)/fastmkdep
END_OF_FILE
if test 172 -ne `wc -c <'Conf/proto.arch.mips'`; then
echo shar: \"'Conf/proto.arch.mips'\" unpacked with wrong size!
fi
# end of 'Conf/proto.arch.mips'
fi
if test -f 'Conf/proto.arch.sgi' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/proto.arch.sgi'\"
else
echo shar: Extracting \"'Conf/proto.arch.sgi'\" \(500 characters\)
sed "s/^X//" >'Conf/proto.arch.sgi' <<'END_OF_FILE'
X
X#
X# Definitions pertaining to architecture SGI (Silicon Graphics)
X#
X
X# Define the name of this architecture here.
X# This is used as a subdirectory name where all the objects for this
X# architecture live: $(TOP)/Build/$(ARCH)
X#
XARCH= sgi
X
X# The system libraries to link with programs that use termcap and X11
X#
XLIBTERMCAP= -ltermcap
XLIBX11= -lX11 -lbsd
X
X# Pretend it's an ANSI compiler (not quite true but close)
X# This assumes IRIX 3.3 or higher
X#
XARCHOPTS= -prototypes -acpp
XARCHDEFS= -D__STDC__
END_OF_FILE
if test 500 -ne `wc -c <'Conf/proto.arch.sgi'`; then
echo shar: \"'Conf/proto.arch.sgi'\" unpacked with wrong size!
fi
# end of 'Conf/proto.arch.sgi'
fi
if test -f 'Conf/proto.arch.sun3' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/proto.arch.sun3'\"
else
echo shar: Extracting \"'Conf/proto.arch.sun3'\" \(270 characters\)
sed "s/^X//" >'Conf/proto.arch.sun3' <<'END_OF_FILE'
X
X#
X# Definitions pertaining to Sun3 (mc680x0) architecture
X#
X
X# Define the name of this architecture here.
X# This is used as a subdirectory name where all the objects for this
X# architecture live: $(TOP)/Build/$(ARCH)
X#
XARCH= sun3
X
XOSINCLS= -I/usr/local/X/usr/include
X
END_OF_FILE
if test 270 -ne `wc -c <'Conf/proto.arch.sun3'`; then
echo shar: \"'Conf/proto.arch.sun3'\" unpacked with wrong size!
fi
# end of 'Conf/proto.arch.sun3'
fi
if test -f 'Conf/proto.arch.sun4' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/proto.arch.sun4'\"
else
echo shar: Extracting \"'Conf/proto.arch.sun4'\" \(231 characters\)
sed "s/^X//" >'Conf/proto.arch.sun4' <<'END_OF_FILE'
X
X#
X# Definitions pertaining to Sun4 (SPARC) architecture
X#
X
X# Define the name of this architecture here.
X# This is used as a subdirectory name where all the objects for this
X# architecture live: $(TOP)/Build/$(ARCH)
X#
XARCH= sun4
X
END_OF_FILE
if test 231 -ne `wc -c <'Conf/proto.arch.sun4'`; then
echo shar: \"'Conf/proto.arch.sun4'\" unpacked with wrong size!
fi
# end of 'Conf/proto.arch.sun4'
fi
if test -f 'Conf/proto.arch.tahoe' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/proto.arch.tahoe'\"
else
echo shar: Extracting \"'Conf/proto.arch.tahoe'\" \(174 characters\)
sed "s/^X//" >'Conf/proto.arch.tahoe' <<'END_OF_FILE'
X
X#
X# Definitions pertaining to the TAHOE architecture
X#
X
X# The name of this architecture
XARCH= tahoe
X
X# Program to update Makefile dependencies
X#
XMKDEP= $(CONF)/slowmkdep
END_OF_FILE
if test 174 -ne `wc -c <'Conf/proto.arch.tahoe'`; then
echo shar: \"'Conf/proto.arch.tahoe'\" unpacked with wrong size!
fi
# end of 'Conf/proto.arch.tahoe'
fi
if test -f 'Conf/proto.arch.vax' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/proto.arch.vax'\"
else
echo shar: Extracting \"'Conf/proto.arch.vax'\" \(174 characters\)
sed "s/^X//" >'Conf/proto.arch.vax' <<'END_OF_FILE'
X
X#
X# Definitions pertaining to the DEC VAX architecture
X#
X
X# The name of this architecture
XARCH= vax
X
X# Program to update Makefile dependencies
X#
XMKDEP= $(CONF)/slowmkdep
END_OF_FILE
if test 174 -ne `wc -c <'Conf/proto.arch.vax'`; then
echo shar: \"'Conf/proto.arch.vax'\" unpacked with wrong size!
fi
# end of 'Conf/proto.arch.vax'
fi
if test -f 'Conf/proto.os.sunos' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/proto.os.sunos'\"
else
echo shar: Extracting \"'Conf/proto.os.sunos'\" \(444 characters\)
sed "s/^X//" >'Conf/proto.os.sunos' <<'END_OF_FILE'
X
X#
X# Definitions pertaining to SunOS (hopefully all versions)
X#
X
X# Define the name of this O.S. here.
X#
XOS= sunos
X
X# BSD-based systems will need ranlib to be called after a library is
X# changed.
X#
XRANLIB= ranlib # for BSD-based systems
X
X# The mkdep using cc -M will work for any architecture (I hope)
X#
XMKDEP= $(CONF)/fastmkdep
X
X# The system libraries to link with programs that use termcap and X11
X#
XLIBTERMCAP= -ltermcap
XLIBX11= -lX11
X
END_OF_FILE
if test 444 -ne `wc -c <'Conf/proto.os.sunos'`; then
echo shar: \"'Conf/proto.os.sunos'\" unpacked with wrong size!
fi
# end of 'Conf/proto.os.sunos'
fi
if test -f 'Conf/proto.os.ultrix' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/proto.os.ultrix'\"
else
echo shar: Extracting \"'Conf/proto.os.ultrix'\" \(182 characters\)
sed "s/^X//" >'Conf/proto.os.ultrix' <<'END_OF_FILE'
X
X#
X# Definitions pertaining to DEC Ultrix (tested with 2.2 or 3.0)
X#
X
XOS= ultrix
XRANLIB= ranlib
X
X# MKDEP is defined in proto.arch.{vax,mips}
X
XLIBTERMCAP= -ltermcap
XLIBX11= -lX11
X
END_OF_FILE
if test 182 -ne `wc -c <'Conf/proto.os.ultrix'`; then
echo shar: \"'Conf/proto.os.ultrix'\" unpacked with wrong size!
fi
# end of 'Conf/proto.os.ultrix'
fi
if test -f 'Conf/proto.port.alfa' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/proto.port.alfa'\"
else
echo shar: Extracting \"'Conf/proto.port.alfa'\" \(544 characters\)
sed "s/^X//" >'Conf/proto.port.alfa' <<'END_OF_FILE'
X
X#
X# Definitions pertaining to the alphanumeric port (using termcap)
X#
X
X# Define the name of this port.
X# This is used as a subdirectory name where all the objects for this
X# port for a given architecture live: $(TOP)/Build/$(ARCH)/$(PORT)
X#
XPORT= alfa
X
X# Libraries to link with for the X11 port.
X# The first part is boilerplate, the rest depends on which other
X# libraries your port needs.
X#
XPORTOWNLIBS= $(PORTBUILD)/lib/lib.a
XPORTSYSLIBS= $(LIBTERMCAP)
XPORTLIBS= $(PORTOWNLIBS) $(PORTSYSLIBS)
X
X# NB: -ltermcap is really OS-specific, sigh.
X
END_OF_FILE
if test 544 -ne `wc -c <'Conf/proto.port.alfa'`; then
echo shar: \"'Conf/proto.port.alfa'\" unpacked with wrong size!
fi
# end of 'Conf/proto.port.alfa'
fi
if test -f 'Conf/proto.port.x11' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/proto.port.x11'\"
else
echo shar: Extracting \"'Conf/proto.port.x11'\" \(201 characters\)
sed "s/^X//" >'Conf/proto.port.x11' <<'END_OF_FILE'
X
X#
X# Definitions pertaining to the X11 port
X#
X
XPORT= x11
X
X# Libraries to link with for the X11 port
XPORTOWNLIBS= $(PORTBUILD)/lib/lib.a
XPORTSYSLIBS= $(LIBX11)
XPORTLIBS= $(PORTOWNLIBS) $(PORTSYSLIBS)
X
END_OF_FILE
if test 201 -ne `wc -c <'Conf/proto.port.x11'`; then
echo shar: \"'Conf/proto.port.x11'\" unpacked with wrong size!
fi
# end of 'Conf/proto.port.x11'
fi
if test -f 'Conf/putlibmf' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/putlibmf'\"
else
echo shar: Extracting \"'Conf/putlibmf'\" \(548 characters\)
sed "s/^X//" >'Conf/putlibmf' <<'END_OF_FILE'
X#!/bin/sh
X
X# Construct a segment of a Makefile for a library.
X# Writes to stdout.
X#
X# usage: putlibmf target $(SRCS)
X
X# Check that we have enough arguments
X#
Xcase $# in
X0|1) echo "usage: $0 target $(SRCS)" 1>&2; exit 2;;
Xesac
X
X
X# Extract arguments; remaining arguments are source files
X#
XTARGET=$1; shift
X
Xputobjs "OBJS" $*
X
X# Construct rule to build target
X#
Xecho
Xecho "$TARGET: \$(OBJS)"
Xecho " ar cr @$TARGET \$(OBJS)"
Xecho " \$(RANLIB) @$TARGET"
Xecho " mv @$TARGET $TARGET"
X# ^^these are tabs!
Xecho
Xecho ".PRECIOUS: $TARGET"
X
Xputtargets $*
END_OF_FILE
if test 548 -ne `wc -c <'Conf/putlibmf'`; then
echo shar: \"'Conf/putlibmf'\" unpacked with wrong size!
fi
chmod +x 'Conf/putlibmf'
# end of 'Conf/putlibmf'
fi
if test -f 'Conf/putobjs' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/putobjs'\"
else
echo shar: Extracting \"'Conf/putobjs'\" \(310 characters\)
sed "s/^X//" >'Conf/putobjs' <<'END_OF_FILE'
X#! /bin/sh
X#
X# Construct OBJS macro definition
X# usage: putobjs macroname sourcefile ...
X
X# Find out which echo we have, sigh
Xcase `echo -n` in
X-n) N=; C='\c';;
X*) N=-n; C=;;
Xesac
X
Xecho
X
Xecho $N "$1=$C"
X
Xshift
X
Xfor file
Xdo
X case $file in
X *.c) echo " \\"; echo $N " `basename $file .c`.o$C";;
X esac
Xdone
X
Xecho
END_OF_FILE
if test 310 -ne `wc -c <'Conf/putobjs'`; then
echo shar: \"'Conf/putobjs'\" unpacked with wrong size!
fi
chmod +x 'Conf/putobjs'
# end of 'Conf/putobjs'
fi
if test -f 'Conf/putprogmf' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/putprogmf'\"
else
echo shar: Extracting \"'Conf/putprogmf'\" \(575 characters\)
sed "s/^X//" >'Conf/putprogmf' <<'END_OF_FILE'
X#!/bin/sh
X
X# Construct a segment of a Makefile for a program.
X#
X# usage: putprogmf target "$(CFLAGS)" $(SRCS)
X
X# Check that we have enough arguments
X#
Xcase $# in
X0|1) echo "usage: $0 target $(SRCS)" 1>&2; exit 2;;
Xesac
X
X# Extract arguments; remaining arguments are source files
X#
XTARGET=$1; shift
X
Xputobjs "OBJS_$TARGET" $*
X
X# Construct rule to build target
X#
Xecho
Xecho "$TARGET: \$(OBJS_$TARGET) $(PORTOWNLIBS)"
Xecho " \$(CC) \$(CFLAGS) \$(OBJS_$TARGET) \$(LIBS) -o @$TARGET"
Xecho " mv @$TARGET $TARGET"
X# ^^these are tabs!
Xecho
Xecho ".PRECIOUS: $TARGET"
X
Xputtargets $*
END_OF_FILE
if test 575 -ne `wc -c <'Conf/putprogmf'`; then
echo shar: \"'Conf/putprogmf'\" unpacked with wrong size!
fi
chmod +x 'Conf/putprogmf'
# end of 'Conf/putprogmf'
fi
if test -f 'Conf/puttargets' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/puttargets'\"
else
echo shar: Extracting \"'Conf/puttargets'\" \(254 characters\)
sed "s/^X//" >'Conf/puttargets' <<'END_OF_FILE'
X#! /bin/sh
X#
X# Construct rules to build individual .o files
X# usage: puttargets $(SRCS)
X
Xfor file
Xdo
X case $file in
X *.c) obj=`basename $file .c`.o
X echo
X echo "$obj: $file"
X echo " \$(CC) -c \$(CFLAGS) $file"
X # ^^this is a tab!
X ;;
X esac
Xdone
END_OF_FILE
if test 254 -ne `wc -c <'Conf/puttargets'`; then
echo shar: \"'Conf/puttargets'\" unpacked with wrong size!
fi
chmod +x 'Conf/puttargets'
# end of 'Conf/puttargets'
fi
if test -f 'Conf/slowmkdep' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Conf/slowmkdep'\"
else
echo shar: Extracting \"'Conf/slowmkdep'\" \(156 characters\)
sed "s/^X//" >'Conf/slowmkdep' <<'END_OF_FILE'
X#! /bin/sh
X
X# This script should eventually update the Makefile to contain
X# dependencies. For now, call Todd Brunhoff's makedepend.
X
Xmakedepend -Dunix $*
END_OF_FILE
if test 156 -ne `wc -c <'Conf/slowmkdep'`; then
echo shar: \"'Conf/slowmkdep'\" unpacked with wrong size!
fi
chmod +x 'Conf/slowmkdep'
# end of 'Conf/slowmkdep'
fi
if test -f 'Doc/README' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Doc/README'\"
else
echo shar: Extracting \"'Doc/README'\" \(487 characters\)
sed "s/^X//" >'Doc/README' <<'END_OF_FILE'
XUnfortunately the documentation for STDWIN is in a sorry state.
XThere is nothing here that even remotely resembles a user manual;
X"paper.ms" comes closest to a full description.
X
XABOUT the old STDWIN blurb that I used to mail out
Xpaper.ms the original STDWIN report
Xseldoc.ms describes using X11 Selections and Cut Buffers in STDWIN
Xmacros.ms macrose used by seldoc.ms
Xvtrmdoc.ms describes the VTRM package used by ../Ports/alfa
Xman/ manpages for dpv, packages and X11 stdwin
X
X--Guido
END_OF_FILE
if test 487 -ne `wc -c <'Doc/README'`; then
echo shar: \"'Doc/README'\" unpacked with wrong size!
fi
# end of 'Doc/README'
fi
if test -f 'Gen/waskync.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Gen/waskync.c'\"
else
echo shar: Extracting \"'Gen/waskync.c'\" \(726 characters\)
sed "s/^X//" >'Gen/waskync.c' <<'END_OF_FILE'
X/* STDWIN -- ASK YES/NO QUESTIONS. */
X
X#include "tools.h"
X#include "stdwin.h"
X
X/* Ask a yes/no question.
X Return value: yes ==> 1, no ==> 0, cancel (^C) ==> -1.
X Only the first non-blank character of the string typed is checked.
X The 'deflt' parameter is returned when an empty string is typed. */
X
Xint
Xwaskync(question, def)
X char *question;
X int def;
X{
X char buf[100];
X char *p= "";
X
X switch (def) {
X case 1: p= "Yes"; break;
X case 0: p= "No"; break;
X }
X strcpy(buf, p);
X for (;;) {
X if (!waskstr(question, buf, sizeof buf))
X return -1;
X p= buf;
X while (isspace(*p))
X ++p;
X if (*p == EOS)
X return def;
X switch (*p) {
X case 'y':
X case 'Y': return 1;
X case 'n':
X case 'N': return 0;
X }
X wfleep();
X }
X}
END_OF_FILE
if test 726 -ne `wc -c <'Gen/waskync.c'`; then
echo shar: \"'Gen/waskync.c'\" unpacked with wrong size!
fi
# end of 'Gen/waskync.c'
fi
if test -f 'Gen/wperror.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Gen/wperror.c'\"
else
echo shar: Extracting \"'Gen/wperror.c'\" \(229 characters\)
sed "s/^X//" >'Gen/wperror.c' <<'END_OF_FILE'
X/* STDWIN -- UNIVERSAL WPERROR. */
X
X#include "tools.h"
X#include "stdwin.h"
X
X/* STDWIN equivalent of perror(). */
X
Xvoid
Xwperror(name)
X char *name;
X{
X char buf[256];
X
X sprintf(buf, "%s: Error %d.", name, errno);
X wmessage(buf);
X}
END_OF_FILE
if test 229 -ne `wc -c <'Gen/wperror.c'`; then
echo shar: \"'Gen/wperror.c'\" unpacked with wrong size!
fi
# end of 'Gen/wperror.c'
fi
if test -f 'Gen/wsetclip.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Gen/wsetclip.c'\"
else
echo shar: Extracting \"'Gen/wsetclip.c'\" \(249 characters\)
sed "s/^X//" >'Gen/wsetclip.c' <<'END_OF_FILE'
X/* Simplified Cut Buffer Interface */
X
X#include "stdwin.h"
X#include "tools.h"
X
Xvoid
Xwsetclip(data, len)
X char *data;
X int len;
X{
X wrotatecutbuffers(1);
X wsetcutbuffer(0, data, len);
X}
X
Xchar *
Xwgetclip()
X{
X int len;
X return wgetcutbuffer(0, &len);
X}
END_OF_FILE
if test 249 -ne `wc -c <'Gen/wsetclip.c'`; then
echo shar: \"'Gen/wsetclip.c'\" unpacked with wrong size!
fi
# end of 'Gen/wsetclip.c'
fi
if test -f 'Gen/wsetcutbuffer.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Gen/wsetcutbuffer.c'\"
else
echo shar: Extracting \"'Gen/wsetcutbuffer.c'\" \(615 characters\)
sed "s/^X//" >'Gen/wsetcutbuffer.c' <<'END_OF_FILE'
X/* Default Cut Buffer Interface */
X
X#include "stdwin.h"
X#include "tools.h"
X
Xstatic char *cb0data = NULL;
Xstatic int cb0len = 0;
X
Xvoid
Xwsetcutbuffer(ibuffer, data, len)
X int ibuffer;
X char *data;
X int len;
X{
X if (ibuffer != 0)
X return;
X if (cb0data != NULL)
X free(cb0data);
X cb0len = 0;
X cb0data = malloc(len+1);
X if (cb0data != NULL) {
X memcpy(cb0data, data, len);
X cb0data[len]= EOS;
X cb0len = len;
X }
X}
X
Xchar *
Xwgetcutbuffer(ibuffer, len_return)
X int ibuffer;
X int *len_return;
X{
X if (ibuffer != 0)
X return NULL;
X *len_return = cb0len;
X return cb0data;
X}
X
X/*ARGSUSED*/
Xvoid
Xwrotatecutbuffers(n)
X int n;
X{
X}
END_OF_FILE
if test 615 -ne `wc -c <'Gen/wsetcutbuffer.c'`; then
echo shar: \"'Gen/wsetcutbuffer.c'\" unpacked with wrong size!
fi
# end of 'Gen/wsetcutbuffer.c'
fi
if test -f 'Gen/wsetselection.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Gen/wsetselection.c'\"
else
echo shar: Extracting \"'Gen/wsetselection.c'\" \(354 characters\)
sed "s/^X//" >'Gen/wsetselection.c' <<'END_OF_FILE'
X/* Dummy Selection Interface (always fails) */
X
X#include "stdwin.h"
X#include "tools.h"
X
X/*ARGSUSED*/
Xint
Xwsetselection(win, sel, data, len)
X WINDOW *win;
X int sel;
X char *data;
X int len;
X{
X return 0;
X}
X
X/*ARGSUSED*/
Xchar *
Xwgetselection(sel, len_return)
X int sel;
X int *len_return;
X{
X return NULL;
X}
X
X/*ARGSUSED*/
Xvoid
Xwresetselection(sel)
X int sel;
X{
X}
END_OF_FILE
if test 354 -ne `wc -c <'Gen/wsetselection.c'`; then
echo shar: \"'Gen/wsetselection.c'\" unpacked with wrong size!
fi
# end of 'Gen/wsetselection.c'
fi
if test -f 'Gen/wstyle.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Gen/wstyle.c'\"
else
echo shar: Extracting \"'Gen/wstyle.c'\" \(609 characters\)
sed "s/^X//" >'Gen/wstyle.c' <<'END_OF_FILE'
X/* STDWIN -- TEXT ATTRIBUTES. */
X
X#include "tools.h"
X#include "stdwin.h"
X#include "style.h"
X
XTEXTATTR wattr;
X
X/* Setting text drawing parameters. */
X
Xvoid
Xwsetplain()
X{
X wattr.style= PLAIN;
X}
X
Xvoid
Xwsethilite()
X{
X wattr.style |= HILITE;
X}
X
Xvoid
Xwsetinverse()
X{
X wattr.style |= INVERSE;
X}
X
Xvoid
Xwsetitalic()
X{
X wattr.style |= ITALIC;
X}
X
Xvoid
Xwsetbold()
X{
X wattr.style |= BOLD;
X}
X
Xvoid
Xwsetbolditalic()
X{
X wattr.style |= BOLD|ITALIC;
X}
X
Xvoid
Xwsetunderline()
X{
X wattr.style |= UNDERLINE;
X}
X
Xvoid
Xwgettextattr(attr)
X TEXTATTR *attr;
X{
X *attr= wattr;
X}
X
Xvoid
Xwsettextattr(attr)
X TEXTATTR *attr;
X{
X wattr= *attr;
X}
END_OF_FILE
if test 609 -ne `wc -c <'Gen/wstyle.c'`; then
echo shar: \"'Gen/wstyle.c'\" unpacked with wrong size!
fi
# end of 'Gen/wstyle.c'
fi
if test -f 'H/endian.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'H/endian.h'\"
else
echo shar: Extracting \"'H/endian.h'\" \(139 characters\)
sed "s/^X//" >'H/endian.h' <<'END_OF_FILE'
X/* Definitions for byte order. */
X
X#define LIL_ENDIAN 1234 /* VAX style */
X#define BIG_ENDIAN 4321 /* 68000 style */
X
Xextern int endian;
END_OF_FILE
if test 139 -ne `wc -c <'H/endian.h'`; then
echo shar: \"'H/endian.h'\" unpacked with wrong size!
fi
# end of 'H/endian.h'
fi
if test -f 'H/filedefs.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'H/filedefs.h'\"
else
echo shar: Extracting \"'H/filedefs.h'\" \(228 characters\)
sed "s/^X//" >'H/filedefs.h' <<'END_OF_FILE'
X/* File name parsing details: */
X#define SEP '/' /* Separator in path names */
X#define CURDIR "." /* Current directory */
X
X/* Flags for access(2) system call: */
X#define RMODE 4
X#define WMODE 2
X#define XMODE 1
X#define NOMODE 0
END_OF_FILE
if test 228 -ne `wc -c <'H/filedefs.h'`; then
echo shar: \"'H/filedefs.h'\" unpacked with wrong size!
fi
# end of 'H/filedefs.h'
fi
if test -f 'H/sigtype.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'H/sigtype.h'\"
else
echo shar: Extracting \"'H/sigtype.h'\" \(479 characters\)
sed "s/^X//" >'H/sigtype.h' <<'END_OF_FILE'
X/* The type of signal handlers is somewhat problematic.
X This file encapsulates my knowledge about it:
X - on the Mac (THINK C), it's int
X - on other systems, it's usually void, except it's int on vax Ultrix.
X Pass -DSIGTYPE=... to cc if you know better. */
X
X#ifndef SIGTYPE
X
X#ifdef THINK_C
X
X#define SIGTYPE int
X
X#else /* !THINK_C */
X
X#if defined(vax) && !defined(AMOEBA)
X#define SIGTYPE int
X#else
X#define SIGTYPE void
X#endif
X
X#endif /* !THINK_C */
X
X#endif /* !SIGTYPE */
END_OF_FILE
if test 479 -ne `wc -c <'H/sigtype.h'`; then
echo shar: \"'H/sigtype.h'\" unpacked with wrong size!
fi
# end of 'H/sigtype.h'
fi
if test -f 'H/stdwconf.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'H/stdwconf.h'\"
else
echo shar: Extracting \"'H/stdwconf.h'\" \(775 characters\)
sed "s/^X//" >'H/stdwconf.h' <<'END_OF_FILE'
X/* "configure.h" -- mess with predefined symbols.
X This file is supposed to be portable between all OSes.
X It is also reentrant.
X*/
X
X/* MPW defines "macintosh"; THINK C defines "THINK_C".
X Some portable code tests for "macintosh" to detect any Mac implementation;
X the distinction between MPW and THINK C is made by checking for
X "MPW" or "THINK_C".
X*/
X
X/* If "macintosh" defined but not "THINK_C", it must be MPW */
X/* XXX (I hope I remember this right -- I haven't used MPW for years) */
X#ifdef macintosh
X#ifndef THINK_C
X#define MPW
X#endif
X#endif
X
X/* Under THINK C, turn on "macintosh" if not already on */
X#ifdef THINK_C
X#ifndef macintosh
X#define macintosh
X#endif
X#endif
X
X#ifdef THINK_C
X/* #define THINK_C_3_0 /*** TURN THIS ON FOR THINK C 3.0 ****/
X#endif
END_OF_FILE
if test 775 -ne `wc -c <'H/stdwconf.h'`; then
echo shar: \"'H/stdwconf.h'\" unpacked with wrong size!
fi
# end of 'H/stdwconf.h'
fi
if test -f 'H/style.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'H/style.h'\"
else
echo shar: Extracting \"'H/style.h'\" \(184 characters\)
sed "s/^X//" >'H/style.h' <<'END_OF_FILE'
X/* STDWIN -- TEXT ATTRIBUTES. */
X
X#define PLAIN 0x00
X#define HILITE 0x01
X#define INVERSE 0x02
X#define ITALIC 0x04
X#define BOLD 0x08
X#define UNDERLINE 0x10
X
Xextern TEXTATTR wattr;
END_OF_FILE
if test 184 -ne `wc -c <'H/style.h'`; then
echo shar: \"'H/style.h'\" unpacked with wrong size!
fi
# end of 'H/style.h'
fi
if test -f 'H/tilist.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'H/tilist.h'\"
else
echo shar: Extracting \"'H/tilist.h'\" \(555 characters\)
sed "s/^X//" >'H/tilist.h' <<'END_OF_FILE'
X/* Text Item Lists */
X
Xstruct _textitem {
X TEXTEDIT *tp;
X int left, top, right, bottom;
X int active;
X struct _textitem *next;
X struct _textitemlist *back;
X};
X
Xstruct _textitemlist {
X WINDOW *win;
X struct _textitem *list;
X struct _textitem *focus;
X};
X
X#define TEXTITEM struct _textitem
X#define TILIST struct _textitemlist
X
XTILIST *tilcreate();
Xvoid tildestroy();
Xvoid tildraw();
Xint tilevent();
Xvoid tilnextfocus();
X
XTEXTITEM *tiladd();
XTEXTITEM *tilinsert();
Xvoid tilremove();
X
Xvoid tilsetactive();
Xvoid tilfocus();
Xvoid tilsettext();
Xchar *tilgettext();
END_OF_FILE
if test 555 -ne `wc -c <'H/tilist.h'`; then
echo shar: \"'H/tilist.h'\" unpacked with wrong size!
fi
# end of 'H/tilist.h'
fi
if test -f 'H/vtserial.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'H/vtserial.h'\"
else
echo shar: Extracting \"'H/vtserial.h'\" \(532 characters\)
sed "s/^X//" >'H/vtserial.h' <<'END_OF_FILE'
X/* Definitions for serial interface */
X
X/* Public interface to the serial line drivers (which have a
X machine-dependent implementation but a common interface) */
X
Xbool openserial _ARGS((void));
Xbool closeserial _ARGS((void));
Xbool sendserial _ARGS((char *buf, int len)); /* Blocking write */
Xint receiveserial _ARGS((char *buf, int len)); /* Non-blocking read */
Xbool breakserial _ARGS((void));
Xbool speedserial _ARGS((int baudrate));
X
X/* Pseudo event reported when input from serial line available */
X
X#define WE_SERIAL_AVAIL 42
END_OF_FILE
if test 532 -ne `wc -c <'H/vtserial.h'`; then
echo shar: \"'H/vtserial.h'\" unpacked with wrong size!
fi
# end of 'H/vtserial.h'
fi
if test -f 'Packs/vt/To.do' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Packs/vt/To.do'\"
else
echo shar: Extracting \"'Packs/vt/To.do'\" \(130 characters\)
sed "s/^X//" >'Packs/vt/To.do' <<'END_OF_FILE'
XSelection should remain visible
X
XHandle selections involving EOL more like xterm
X
XNeed to remove aterm dependencies:
X extra_downs
END_OF_FILE
if test 130 -ne `wc -c <'Packs/vt/To.do'`; then
echo shar: \"'Packs/vt/To.do'\" unpacked with wrong size!
fi
# end of 'Packs/vt/To.do'
fi
if test -f 'Packs/vt/vtpanic.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Packs/vt/vtpanic.c'\"
else
echo shar: Extracting \"'Packs/vt/vtpanic.c'\" \(233 characters\)
sed "s/^X//" >'Packs/vt/vtpanic.c' <<'END_OF_FILE'
X/* Panic function, not if NDEBUG. The application may provide a better one. */
X
X#include "vtimpl.h"
X
X#ifndef NDEBUG
X
Xvoid
Xvtpanic(msg)
X char *msg;
X{
X fprintf(stderr, "vtpanic: %s\n", msg);
X wdone();
X abort();
X}
X
X#endif /* NDEBUG */
END_OF_FILE
if test 233 -ne `wc -c <'Packs/vt/vtpanic.c'`; then
echo shar: \"'Packs/vt/vtpanic.c'\" unpacked with wrong size!
fi
# end of 'Packs/vt/vtpanic.c'
fi
if test -f 'Packs/vt/vtsend.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Packs/vt/vtsend.c'\"
else
echo shar: Extracting \"'Packs/vt/vtsend.c'\" \(143 characters\)
sed "s/^X//" >'Packs/vt/vtsend.c' <<'END_OF_FILE'
X/* Default vtsend function */
X
X#include "vtimpl.h"
X
Xvoid
Xvtsend(vt, text, len)
X VT *vt;
X char *text;
X int len;
X{
X vtansiputs(vt, text, len);
X}
END_OF_FILE
if test 143 -ne `wc -c <'Packs/vt/vtsend.c'`; then
echo shar: \"'Packs/vt/vtsend.c'\" unpacked with wrong size!
fi
# end of 'Packs/vt/vtsend.c'
fi
if test -f 'Packs/vt/vtusesend.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Packs/vt/vtusesend.c'\"
else
echo shar: Extracting \"'Packs/vt/vtusesend.c'\" \(344 characters\)
sed "s/^X//" >'Packs/vt/vtusesend.c' <<'END_OF_FILE'
X/* VT functions that send data back to the serial port. */
X
X#include "vtimpl.h"
X
Xvoid
Xvtsendid(vt)
X VT *vt;
X{
X vtsend(vt, "\033[?0;0;0c", -1);
X}
X
Xvoid
Xvtsendpos(vt)
X VT *vt;
X{
X char buf[256];
X int row = vt->cur_row - vt->topterm + 1;
X int col = vt->cur_col + 1;
X CLIPMIN(row, 1);
X sprintf(buf, "\033[%d;%dR", row, col);
X vtsend(vt, buf, -1);
X}
END_OF_FILE
if test 344 -ne `wc -c <'Packs/vt/vtusesend.c'`; then
echo shar: \"'Packs/vt/vtusesend.c'\" unpacked with wrong size!
fi
# end of 'Packs/vt/vtusesend.c'
fi
if test -f 'Ports/alfa/BUGS' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Ports/alfa/BUGS'\"
else
echo shar: Extracting \"'Ports/alfa/BUGS'\" \(262 characters\)
sed "s/^X//" >'Ports/alfa/BUGS' <<'END_OF_FILE'
XWhen there are multiple windows with global & local menus, opening the
Xmenus shows the local menus of the highest window instead of those of
Xthe active window. (Some menus of other windows may also be shown.)
XThe menu bar is drawn correctly though. ("menu.c")
END_OF_FILE
if test 262 -ne `wc -c <'Ports/alfa/BUGS'`; then
echo shar: \"'Ports/alfa/BUGS'\" unpacked with wrong size!
fi
# end of 'Ports/alfa/BUGS'
fi
if test -f 'Ports/alfa/Make.proto' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Ports/alfa/Make.proto'\"
else
echo shar: Extracting \"'Ports/alfa/Make.proto'\" \(519 characters\)
sed "s/^X//" >'Ports/alfa/Make.proto' <<'END_OF_FILE'
X#
X# Makefile prototype for X11 port
X#
X
XSRCS= \
X $(ALFA)/bind.c \
X $(ALFA)/draw.c \
X $(ALFA)/event.c \
X $(ALFA)/keymap.c \
X $(ALFA)/measure.c \
X $(ALFA)/menu.c \
X $(ALFA)/scroll.c \
X $(ALFA)/stdwin.c \
X $(ALFA)/syswin.c \
X $(ALFA)/timer.c \
X $(TOOLS)/strdup.c \
X $(GEN)/waskfile.c \
X $(GEN)/waskync.c \
X $(GEN)/wperror.c \
X $(GEN)/wstyle.c \
X $(GEN)/wsetclip.c \
X $(GEN)/wsetcutbuffer.c \
X $(GEN)/wsetselection.c \
X $(VTRM_ALL) \
X $(TEXTEDIT_PACK)
X
Xall: lib.a
X
X_bootstrap:
X @putlibmf lib.a $(SRCS)
END_OF_FILE
if test 519 -ne `wc -c <'Ports/alfa/Make.proto'`; then
echo shar: \"'Ports/alfa/Make.proto'\" unpacked with wrong size!
fi
# end of 'Ports/alfa/Make.proto'
fi
if test -f 'Ports/alfa/menu.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Ports/alfa/menu.h'\"
else
echo shar: Extracting \"'Ports/alfa/menu.h'\" \(699 characters\)
sed "s/^X//" >'Ports/alfa/menu.h' <<'END_OF_FILE'
X/* TERMCAP STDWIN -- MENU DEFINITIONS */
X
Xstruct item {
X char *text; /* The item's text */
X char *shortcut; /* Visible representation of the shortcuts */
X tbool enabled; /* Can be selected */
X tbool checked; /* Check mark left of menu text */
X};
X
Xstruct _menu {
X int id; /* Menu id, reported by wgetevent */
X char *title; /* Menu title string */
X bool local; /* Set if must explicitly attach to windows */
X bool dirty; /* Set if items have changed */
X int left, right; /* Left & right edge of title in menu bar */
X int maxwidth; /* Max width of items */
X int nitems; /* Number of items */
X struct item *itemlist; /* List of items */
X};
X
Xstruct menubar {
X int nmenus;
X MENU **menulist;
X};
END_OF_FILE
if test 699 -ne `wc -c <'Ports/alfa/menu.h'`; then
echo shar: \"'Ports/alfa/menu.h'\" unpacked with wrong size!
fi
# end of 'Ports/alfa/menu.h'
fi
if test -f 'Ports/mac_mpw/README' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Ports/mac_mpw/README'\"
else
echo shar: Extracting \"'Ports/mac_mpw/README'\" \(399 characters\)
sed "s/^X//" >'Ports/mac_mpw/README' <<'END_OF_FILE'
XThis directory contains extra files needed to build stdwin for the Mac
Xunder MPW 2.0.2. Take these files together with all the files from the
Xmac subdirectory, plus strdup.c, getopt.c and wtextbreak.c from
Xelsewhere in the stdwin tree. The Makefile will build the library.
X
XDisclaimer: this hasn't been tested fully yet -- it is just provided in
Xcase you are stuck with MPW.
X
X--Guido (8 Jan 1991)
END_OF_FILE
if test 399 -ne `wc -c <'Ports/mac_mpw/README'`; then
echo shar: \"'Ports/mac_mpw/README'\" unpacked with wrong size!
fi
# end of 'Ports/mac_mpw/README'
fi
if test -f 'Ports/msdos/README' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Ports/msdos/README'\"
else
echo shar: Extracting \"'Ports/msdos/README'\" \(270 characters\)
sed "s/^X//" >'Ports/msdos/README' <<'END_OF_FILE'
XSorry, there is no real STDWIN port for MS-DOS yet. What you can is
Xto port the alfa version with the help of the file "ptrm.c" in this
Xdirectory, which is a substitute (using the MS-DOS console driver) for
Xthe VTRM module used by the alfa version for all its tty I/O.
END_OF_FILE
if test 270 -ne `wc -c <'Ports/msdos/README'`; then
echo shar: \"'Ports/msdos/README'\" unpacked with wrong size!
fi
# end of 'Ports/msdos/README'
fi
if test -f 'Ports/msdos/dir.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Ports/msdos/dir.h'\"
else
echo shar: Extracting \"'Ports/msdos/dir.h'\" \(223 characters\)
sed "s/^X//" >'Ports/msdos/dir.h' <<'END_OF_FILE'
X/*
X * Interface for MS-DOS version of UNIX directory access package.
X * (opendir, readdir, closedir).
X */
X
Xstruct direct {
X char d_namlen;
X char d_name[13];
X};
X
Xtypedef char DIR;
X
XDIR *opendir();
Xstruct direct *readdir();
XEND_OF_FILE
echo shar: 1 control character may be missing from \"'Ports/msdos/dir.h'\"
if test 223 -ne `wc -c <'Ports/msdos/dir.h'`; then
echo shar: \"'Ports/msdos/dir.h'\" unpacked with wrong size!
fi
# end of 'Ports/msdos/dir.h'
fi
if test -f 'Ports/msdos/lib.' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Ports/msdos/lib.'\"
else
echo shar: Extracting \"'Ports/msdos/lib.'\" \(626 characters\)
sed "s/^X//" >'Ports/msdos/lib.' <<'END_OF_FILE'
X.c.obj:
X cl -c -AL -DSYSV $*.c
X
XTOOLS= strdup.obj getopt.obj monocase.obj
X
Xstrdup.obj:
X
Xgetopt.obj:
X
Xmonocase.obj:
X
XTEXTEDIT= textedit.obj textbrk.obj par.obj \
X askfile.obj askync.obj style.obj
X
Xtextedit.obj:
X
Xtextbrk.obj:
X
Xpar.obj:
X
Xaskfile.obj:
X
Xaskync.obj:
X
Xstyle.obj:
X
XPTRM= ptrm.obj
X
Xptrm.obj:
X
XALFA= bind.obj draw.obj event.obj keymap.obj measure.obj \
X menu.obj scroll.obj stdwin.obj syswin.obj
X
Xbind.obj: alfa.h
X
Xdraw.obj: alfa.h
X
Xevent.obj: alfa.h
X
Xkeymap.obj: alfa.h
X
Xmeasure.obj: alfa.h
X
Xmenu.obj: alfa.h
X
Xscroll.obj: alfa.h
X
Xstdwin.obj: alfa.h
X
Xsyswin.obj: alfa.h
X
XALL= $(TOOLS) $(TEXTEDIT) $(PTRM) $(ALFA)
END_OF_FILE
if test 626 -ne `wc -c <'Ports/msdos/lib.'`; then
echo shar: \"'Ports/msdos/lib.'\" unpacked with wrong size!
fi
# end of 'Ports/msdos/lib.'
fi
if test -f 'Ports/x11/Make.proto' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Ports/x11/Make.proto'\"
else
echo shar: Extracting \"'Ports/x11/Make.proto'\" \(542 characters\)
sed "s/^X//" >'Ports/x11/Make.proto' <<'END_OF_FILE'
X#
X# Makefile prototype for X11 port
X#
X
XSRCS= \
X $(X11)/caret.c \
X $(X11)/cursor.c \
X $(X11)/cutbuffer.c \
X $(X11)/dialog.c \
X $(X11)/draw.c \
X $(X11)/error.c \
X $(X11)/event.c \
X $(X11)/font.c \
X $(X11)/general.c \
X $(X11)/llevent.c \
X $(X11)/menu.c \
X $(X11)/selection.c \
X $(X11)/scroll.c \
X $(X11)/timer.c \
X $(X11)/window.c \
X $(TOOLS)/strdup.c \
X $(GEN)/waskfile.c \
X $(GEN)/wperror.c \
X $(GEN)/wsetclip.c \
X $(GEN)/wtextbreak.c \
X $(TEXTEDIT_PACK) \
X $(VT_PACK)
X
Xall: lib.a
X
X_bootstrap:
X @putlibmf lib.a $(SRCS)
END_OF_FILE
if test 542 -ne `wc -c <'Ports/x11/Make.proto'`; then
echo shar: \"'Ports/x11/Make.proto'\" unpacked with wrong size!
fi
# end of 'Ports/x11/Make.proto'
fi
echo shar: End of archive 19 \(of 19\).
cp /dev/null ark19isdone
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
More information about the Alt.sources
mailing list