Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!husc6!mit-eddie!uw-beaver!tektronix!tekgen!tekred!games-request
From: games-request@tekred.TEK.COM
Newsgroups: comp.sources.games
Subject: v01i063:  kriegspiel - A Chess Variant, Part04/04
Message-ID: <1353@tekred.TEK.COM>
Date: Mon, 29-Jun-87 14:25:57 EDT
Article-I.D.: tekred.1353
Posted: Mon Jun 29 14:25:57 1987
Date-Received: Wed, 1-Jul-87 04:54:45 EDT
Expires: Wed, 29-Jul-87 14:25:21 EDT
Sender: billr@tekred.TEK.COM
Lines: 100
Approved: billr@tekred.TEK.COM

Submitted by: Steve Schoch <schoch@ames.arpa>
Comp.sources.games: Volume 1, Issue 63
Archive-name: kriegspiel/Part04



#! /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 4 (of 4)."
# Contents:  README2 error.c
# Wrapped by billr@tekred on Fri Jun 26 18:21:19 1987
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f README2 -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"README2\"
else
echo shar: Extracting \"README2\" \(617 characters\)
sed "s/^X//" >README2 <<'END_OF_README2'
XTo: games@tekred.TEK.COM
XSubject: Kriegspiel (a chess variant)
X
XThis program was first written by Bert Enderton, then by David Wolfe
X<wolfe@ernie.berkeley.edu>, then later written to work with the X window
Xsystem by Steve Schoch <schoch@ames.arpa>.  The files in this shar will
Xmake two versions of the program: one using curses(3), and one using
Xthe X window system libraries.
X
XIt compiles on a 4.3 BSD system, and can easily be made to work with other
XBSD's, but the IPC would need to be changed quite a bit to work with other
XOS's.  If anyone on ther internet would like to play me a game of ks,
Xgive me a shout!
X
END_OF_README2
if test 617 -ne `wc -c <README2`; then
    echo shar: \"README2\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f error.c -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"error.c\"
else
echo shar: Extracting \"error.c\" \(446 characters\)
sed "s/^X//" >error.c <<'END_OF_error.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: error.c,v 1.3 87/02/12 10:57:44 schoch Exp $";
X#endif
X
X#include "externs.h"
X#include <errno.h>
X#include <signal.h>
X
Xerror (s)
X	char *s;
X{
X#ifndef XKS
X	clear();
X	refresh();
X	endwin();
X#endif
X	if (errno == EPIPE)
X		dead = TRUE;
X	else {
X		if (s != (char *) NULL)
X			if (errno)
X				perror (s);
X			else
X				fprintf(stderr, "%s\n", s);
X		if (out)
X			fclose(out);
X		if (inp)
X			fclose(inp);
X		exit (0);
X	}
X}
END_OF_error.c
if test 446 -ne `wc -c <error.c`; then
    echo shar: \"error.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
echo shar: End of archive 4 \(of 4\).
cp /dev/null ark4isdone
MISSING=""
for I in 1 2 3 4 ; do
    if test ! -f ark${I}isdone ; then
	MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 4 archives.
    rm -f ark[1-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit