games-request@tekred.TEK.COM (08/05/87)
Submitted by: cunniff%hpda@hplabs.HP.COM (Ross Cunniff)
Comp.sources.games: Volume 2, Issue 28
Archive-name: adl/Part11
#! /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 11 (of 11)."
# Contents: COPYRIGHT adlcomp/COPYRIGHT adlcomp/README
# adlcomp/adlglob.c adlrun/COPYRIGHT adlrun/README adlrun/adlarith.c
# adlrun/rtglob.c include/COPYRIGHT include/Makefile include/README
# include/virtmem.h include/vstring.h man/adlrun.6 misc/COPYRIGHT
# misc/Makefile misc/README misc/adltouch.c samples/COPYRIGHT
# samples/Makefile samples/README samples/aard/COPYRIGHT
# samples/aard/README samples/aard/aard.adl
# samples/aard/constant.adl samples/demos/COPYRIGHT
# samples/demos/Makefile samples/demos/README samples/mpu/COPYRIGHT
# samples/mpu/Makefile samples/mpu/README samples/mpu/constant.adl
# samples/mpu/locnames.adl samples/mpu/mpu.adl util/COPYRIGHT
# util/Makefile util/README
# Wrapped by billr@tekred on Tue Aug 4 16:27:54 1987
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f COPYRIGHT -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"COPYRIGHT\"
else
echo shar: Extracting \"COPYRIGHT\" \(489 characters\)
sed "s/^X//" >COPYRIGHT <<'END_OF_COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X Copyright 1987 by Ross Cunniff
X All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained. Send modifications to:
X
X UUCP: ...{hplabs,ucbvax}!hpda!cunniff
X ARPA: cunniff%hpda@hplabs.ARPA
X USMAIL: Ross Cunniff
X 636 La Grande, #7
X Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_COPYRIGHT
if test 489 -ne `wc -c <COPYRIGHT`; then
echo shar: \"COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f adlcomp/COPYRIGHT -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"adlcomp/COPYRIGHT\"
else
echo shar: Extracting \"adlcomp/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >adlcomp/COPYRIGHT <<'END_OF_adlcomp/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X Copyright 1987 by Ross Cunniff
X All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained. Send modifications to:
X
X UUCP: ...{hplabs,ucbvax}!hpda!cunniff
X ARPA: cunniff%hpda@hplabs.ARPA
X USMAIL: Ross Cunniff
X 636 La Grande, #7
X Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_adlcomp/COPYRIGHT
if test 489 -ne `wc -c <adlcomp/COPYRIGHT`; then
echo shar: \"adlcomp/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f adlcomp/README -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"adlcomp/README\"
else
echo shar: Extracting \"adlcomp/README\" \(549 characters\)
sed "s/^X//" >adlcomp/README <<'END_OF_adlcomp/README'
XThis directory contains the sources for adlcomp(6).
XThe files in this directory are as follows:
X
X adlcomp.c -- Main program for adlcomp
X adllex.c -- Lexical analyzer for adlcomp
X adlglob.c -- Global variables
X adlmisc.c -- Miscellaneous goodies
X adlmsg.c -- Message writing routines
X adlobj.c -- Object manipulations.
X codegen.c -- One pass code generator for routcomp.c
X compdict.c -- Symbol table routines
X predef.c -- Predefined tokens for adlcomp
X routcomp.c -- Routine compiler
X
XTo make adlcomp, simply type "make" in this directory.
END_OF_adlcomp/README
if test 549 -ne `wc -c <adlcomp/README`; then
echo shar: \"adlcomp/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f adlcomp/adlglob.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"adlcomp/adlglob.c\"
else
echo shar: Extracting \"adlcomp/adlglob.c\" \(801 characters\)
sed "s/^X//" >adlcomp/adlglob.c <<'END_OF_adlcomp/adlglob.c'
X#include "adltypes.h"
X#include "adlprog.h"
X
X
Xstruct header hdr; /* Actual header */
Xstruct verbrec *verbspace; /* Verb contents */
Xstruct objrec *objspace; /* Object contents */
Xstruct preprec *prepspace; /* Preposition contents */
Xstruct vp_syn *verbsyn; /* Verb synonyms */
Xint16 *varspace; /* Stack & variables */
Xint16 *nounspace; /* Noun indices */
Xaddress *routspace; /* Routine indexes */
Xint32 *str_tab; /* String table */
X
Xint16 bitpat[16] = { 0x0001, 0x0002, 0x0004, 0x0008,
X 0x0010, 0x0020, 0x0040, 0x0080,
X 0x0100, 0x0200, 0x0400, 0x0800,
X 0x1000, 0x2000, 0x4000, 0x8000 },
X
X ibitpat[16] = { 0xFFFE, 0xFFFD, 0xFFFB, 0xFFF7,
X 0xFFEF, 0xFFDF, 0xFFBF, 0xFF7F,
X 0xFEFF, 0xFDFF, 0xFBFF, 0xF7FF,
X 0xEFFF, 0xDFFF, 0xBFFF, 0x7FFF };
X
X/*** EOF global.c ***/
END_OF_adlcomp/adlglob.c
if test 801 -ne `wc -c <adlcomp/adlglob.c`; then
echo shar: \"adlcomp/adlglob.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f adlrun/COPYRIGHT -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"adlrun/COPYRIGHT\"
else
echo shar: Extracting \"adlrun/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >adlrun/COPYRIGHT <<'END_OF_adlrun/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X Copyright 1987 by Ross Cunniff
X All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained. Send modifications to:
X
X UUCP: ...{hplabs,ucbvax}!hpda!cunniff
X ARPA: cunniff%hpda@hplabs.ARPA
X USMAIL: Ross Cunniff
X 636 La Grande, #7
X Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_adlrun/COPYRIGHT
if test 489 -ne `wc -c <adlrun/COPYRIGHT`; then
echo shar: \"adlrun/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f adlrun/README -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"adlrun/README\"
else
echo shar: Extracting \"adlrun/README\" \(956 characters\)
sed "s/^X//" >adlrun/README <<'END_OF_adlrun/README'
XThis directory contains the sources for adlrun, the ADL runtime package.
XThe files are as follows:
X
X adlarith.c - Code to handle builtin arithmetic routines
X adldwim.c - Code to handle "dwimming"
X adlerr.c - Code to print out runtime errors
X adlfuncs.c - Code to properly execute builtin routines
X adlintrn.c - Code to handle internal variable routines
X adlmach.c - The ADL virtual machine
X adlmacro.c - The ADL Runtime Macro package
X adlmiscr.c - Code to handle miscellaneous builtin routines
X adlobjr.c - Code to handle builtin object routines
X adlrun.c - Main program for adlrun
X adlscrn.c - Screen formatting code
X adlspec.c - Code to handle the routine $spec
X adlstr.c - Code to handle builtin string routines
X adltrans.c - Code to handle $setv, $hit, and $miss
X rtdict.c - Code for the dictionary
X rtglob.c - Global declarations
X rtlex.c - Run Time Lexical Analyzer
X rtparse.c - Run Time Parser
X
XTo make adlrun, simply type "make" in this directory
END_OF_adlrun/README
if test 956 -ne `wc -c <adlrun/README`; then
echo shar: \"adlrun/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f adlrun/adlarith.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"adlrun/adlarith.c\"
else
echo shar: Extracting \"adlrun/adlarith.c\" \(859 characters\)
sed "s/^X//" >adlrun/adlarith.c <<'END_OF_adlrun/adlarith.c'
X#include <stdio.h>
X
X#include "adltypes.h"
X#include "adlprog.h"
X#include "builtins.h"
X#include "adlrun.h"
X
X
Xint16
Xmyrand( n )
Xint16
X n;
X{
X return 1 + ( RAND % n );
X}
X
X
Xdo_div()
X{
X assertargs( "$div", 2 );
X if( ARG(2) == 0 )
X error( 1 ); /* Divide by zero */
X RETVAL = ARG(1) / ARG(2);
X}
X
X
Xdo_mod()
X{
X assertargs( "$mod", 2 );
X if( ARG(2) == 0 )
X error( 1 ); /* Divide by zero */
X RETVAL = ARG(1) % ARG(2);
X}
X
X
Xdo_and()
X{
X int16
X i, /* Loop counter */
X tval; /* Temporary save area */
X
X tval = -1; /* Bit pattern of all ones */
X for( i = 1; i < RETVAL; i++ )
X tval &= ARG( i );
X RETVAL = tval;
X}
X
X
Xdo_or()
X{
X int16
X i, /* Loop counter */
X tval; /* Storage area */
X
X tval = 0; /* Bit pattern of all zeros */
X for( i = 1; i < RETVAL; i++ )
X tval |= ARG( i );
X RETVAL = tval;
X}
X
X/*** EOF adlarith.c ***/
END_OF_adlrun/adlarith.c
if test 859 -ne `wc -c <adlrun/adlarith.c`; then
echo shar: \"adlrun/adlarith.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f adlrun/rtglob.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"adlrun/rtglob.c\"
else
echo shar: Extracting \"adlrun/rtglob.c\" \(801 characters\)
sed "s/^X//" >adlrun/rtglob.c <<'END_OF_adlrun/rtglob.c'
X#include "adltypes.h"
X#include "adlprog.h"
X
X
Xstruct header hdr; /* Actual header */
Xstruct verbrec *verbspace; /* Verb contents */
Xstruct objrec *objspace; /* Object contents */
Xstruct preprec *prepspace; /* Preposition contents */
Xstruct vp_syn *verbsyn; /* Verb synonyms */
Xint16 *varspace; /* Stack & variables */
Xint16 *nounspace; /* Noun indices */
Xaddress *routspace; /* Routine indexes */
Xint32 *str_tab; /* String table */
X
Xint16 bitpat[16] = { 0x0001, 0x0002, 0x0004, 0x0008,
X 0x0010, 0x0020, 0x0040, 0x0080,
X 0x0100, 0x0200, 0x0400, 0x0800,
X 0x1000, 0x2000, 0x4000, 0x8000 },
X
X ibitpat[16] = { 0xFFFE, 0xFFFD, 0xFFFB, 0xFFF7,
X 0xFFEF, 0xFFDF, 0xFFBF, 0xFF7F,
X 0xFEFF, 0xFDFF, 0xFBFF, 0xF7FF,
X 0xEFFF, 0xDFFF, 0xBFFF, 0x7FFF };
X
X/*** EOF global.c ***/
END_OF_adlrun/rtglob.c
if test 801 -ne `wc -c <adlrun/rtglob.c`; then
echo shar: \"adlrun/rtglob.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f include/COPYRIGHT -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"include/COPYRIGHT\"
else
echo shar: Extracting \"include/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >include/COPYRIGHT <<'END_OF_include/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X Copyright 1987 by Ross Cunniff
X All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained. Send modifications to:
X
X UUCP: ...{hplabs,ucbvax}!hpda!cunniff
X ARPA: cunniff%hpda@hplabs.ARPA
X USMAIL: Ross Cunniff
X 636 La Grande, #7
X Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_include/COPYRIGHT
if test 489 -ne `wc -c <include/COPYRIGHT`; then
echo shar: \"include/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f include/Makefile -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"include/Makefile\"
else
echo shar: Extracting \"include/Makefile\" \(248 characters\)
sed "s/^X//" >include/Makefile <<'END_OF_include/Makefile'
X# AR = shar -c -v
XAR = post -c -v -p 6 17
XB = ..
XD = include/
X
Xshar : include.shar
X
Xinclude.shar : README Makefile *.h
X ( cd ${B} ; ${AR} \
X ${D}README ${D}COPYRIGHT ${D}Makefile ${D}*.h \
X > ${D}include.shar )
X
Xclean :
X rm -f core include.shar
END_OF_include/Makefile
if test 248 -ne `wc -c <include/Makefile`; then
echo shar: \"include/Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f include/README -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"include/README\"
else
echo shar: Extracting \"include/README\" \(502 characters\)
sed "s/^X//" >include/README <<'END_OF_include/README'
XThis directory contains header files for adlcomp, adlrun, and adldebug.
XThe files are as follows:
X
X adlcomp.h - Types, variables, and macros for adlcomp
X adldef.h - Token types for adlcomp and adlrun
X adlprog.h - Structures for all ADL programs
X adlrun.h - Types, variables, and macros for adlrun
X adltypes.h - Types for all ADL programs
X builtins.h - Builtin function values
X virtmem.h - Virtual memory structures
X vstring.h - Virtual string routines
X
XFor more information, see the ADL documentation.
END_OF_include/README
if test 502 -ne `wc -c <include/README`; then
echo shar: \"include/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f include/virtmem.h -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"include/virtmem.h\"
else
echo shar: Extracting \"include/virtmem.h\" \(929 characters\)
sed "s/^X//" >include/virtmem.h <<'END_OF_include/virtmem.h'
X/* Include <stdio.h> and "adltypes.h" before including this file */
X
X#define BSIZE 512
X#define NUMP 16
X
X
Xstruct pt_entry {
X struct pt_entry *prev, /* Previous page in lru list */
X *next; /* Next page in lru list */
X int16 pnum; /* Page number */
X char buffer[BSIZE]; /* Actual data buffer */
X};
X
X
Xstruct pagetab {
X struct pt_entry *lru,
X *mru,
X ptabs[NUMP];
X int pfile;
X int32 offset,
X nhits,
X nmiss,
X nswap;
X int16 numpages,
X maxpage,
X dirty;
X};
X
X
Xextern
X vm_init( /*int which; int32 offs; struct pagetab *handle; int16 dirty*/ ),
X vm_flush( /* struct pagetab *handle */ ),
X vm_put8( /* char data; int32 where; struct pagetab *handle */ ),
X vm_put16( /* int16 data; int32 where; struct pagetab *handle */ );
X
Xextern char
X vm_get8( /* int32 where; struct pagetab *handle */ );
X
Xextern int16
X vm_get16( /* int32 where; struct pagetab *handle */ );
X
X/*** EOF virtmem.h ***/
END_OF_include/virtmem.h
if test 929 -ne `wc -c <include/virtmem.h`; then
echo shar: \"include/virtmem.h\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f include/vstring.h -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"include/vstring.h\"
else
echo shar: Extracting \"include/vstring.h\" \(512 characters\)
sed "s/^X//" >include/vstring.h <<'END_OF_include/vstring.h'
Xextern int16
X newstr( /* str */ ), /* Sets up str as a new permanent string */
X newtstr( /* str */ ), /* Sets up str as a new temporary string */
X vs_save( /* int16 */ ), /* Sets up virtstr( int16 ) as a new "CMOS"
X string */
X numstr(); /* Returns the number of permanent strings
X defined */
X
Xextern int32
X numchar(); /* Returns the number of permanent chars
X allocated */
Xextern char
X *virtstr( /* index */ ); /* Returns the virtstr at index */
X
X/*** EOF vstring.h ***/
END_OF_include/vstring.h
if test 512 -ne `wc -c <include/vstring.h`; then
echo shar: \"include/vstring.h\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f man/adlrun.6 -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"man/adlrun.6\"
else
echo shar: Extracting \"man/adlrun.6\" \(1504 characters\)
sed "s/^X//" >man/adlrun.6 <<'END_OF_man/adlrun.6'
X
X
X
X ADLRUN(6) (HP) ADLRUN(6)
X
X
X
X
X NAME
X adlrun - run an ADL game
X
X SYNOPSIS
X adlrun [ infile ] [ -d ] [ -h ] [ -r savefile ]
X
X DESCRIPTION
X Adlrun reads a datafile, infile, (or adlcomp.out, if infile
X is not specified) which contains tables and routines
X necessary to play a generalized Adventure(6)-like game. The
X game is terminated either by a quit command recognized by
X the ADL program, or by an end-of-file or interrupt. The
X following options are recognized:
X
X -d Turns on instruction tracing during execution
X (a rather messy process).
X
X -h Prints out header lines of the form "Room name
X Score: Moves:" if the ADL program allows for
X it.
X
X -r savefile Restores the state of the game to the state
X previously saved in savefile. Savefile must
X be a valid ADL save file.
X
X ENVIRONMENT
X TERM On versions of adlrun which use termcap, the
X environment variable TERM should contain the name of
X the terminal type desired.
X
X LINES
X LINES should be set to the number of lines of text on
X the screen.
X
X CONFORMANCE
X The ($spec 6 prog arg1 ...) (execute a program) function is
X only implemented on computers running a version of the UN*X
X operating system.
X
X EXAMPLE
X adlrun -h aard
X
X SEE ALSO
X adlcomp(6)
X adldebug(6)
X Brengle and Cunniff: The ADL Programmer's Reference Manual
X
X
X
X
X
X
X
X
X Hewlett-Packard Company - 1 - Jun 18, 1987
X
X
X
END_OF_man/adlrun.6
if test 1504 -ne `wc -c <man/adlrun.6`; then
echo shar: \"man/adlrun.6\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f misc/COPYRIGHT -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"misc/COPYRIGHT\"
else
echo shar: Extracting \"misc/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >misc/COPYRIGHT <<'END_OF_misc/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X Copyright 1987 by Ross Cunniff
X All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained. Send modifications to:
X
X UUCP: ...{hplabs,ucbvax}!hpda!cunniff
X ARPA: cunniff%hpda@hplabs.ARPA
X USMAIL: Ross Cunniff
X 636 La Grande, #7
X Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_misc/COPYRIGHT
if test 489 -ne `wc -c <misc/COPYRIGHT`; then
echo shar: \"misc/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f misc/Makefile -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"misc/Makefile\"
else
echo shar: Extracting \"misc/Makefile\" \(1025 characters\)
sed "s/^X//" >misc/Makefile <<'END_OF_misc/Makefile'
X# Where utility routines live
XUTL = ../util
X
X# Where include files live
XINC = ../include
X
X# Flags for CC
XCFLAGS = -O -DHPUX -I${INC}
X
X# Commands for shar
X# AR = shar -c -v
XAR = post -c -v -p 7 17
XB = ..
XD = misc/
X
X# Where adldebug and adltouch will be installed
XBIN = /users/cunniff/bin
X
X# The utilities used by adldebug
XUTIL = ${UTL}/virtmem.o ${UTL}/vstring.o ${UTL}/mytime.o
X
X# The rules
Xall : adldebug adltouch
X
Xinstall : adldebug adltouch
X strip adldebug adltouch
X cp adldebug adltouch ${BIN}
X chmod 755 ${BIN}/adldebug ${BIN}/adltouch
X
Xshar : misc.shar
X
Xclean :
X rm -f misc.shar adldebug.o adltouch.o adldebug adltouch
X
Xmisc.shar : README Makefile *.c
X ( cd ${B} ; ${AR} \
X ${D}README ${D}COPYRIGHT ${D}Makefile ${D}*.c \
X > ${D}misc.shar )
X
Xadldebug : adldebug.o ${UTIL}
X ${CC} -o adldebug adldebug.o ${UTIL}
X
Xadldebug.o : adldebug.c \
X ${INC}/adltypes.h ${INC}/adlprog.h \
X ${INC}/adldef.h ${INC}/vstring.h \
X ${INC}/virtmem.h
X
Xadltouch : adltouch.o
X ${CC} -o adltouch adltouch.o
X
Xadltouch.o : adltouch.c
END_OF_misc/Makefile
if test 1025 -ne `wc -c <misc/Makefile`; then
echo shar: \"misc/Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f misc/README -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"misc/README\"
else
echo shar: Extracting \"misc/README\" \(293 characters\)
sed "s/^X//" >misc/README <<'END_OF_misc/README'
XThis directory contains the source for a couple of programs
Xthat mess around with ADL(6) binaries. The programs are:
X
X adldebug.c - ADL debugger
X adltouch.c - Re-date an ADL save file
X
XTo make either of these files, just type "make <name>", where
X<name> is one of adldebug, adltouch, or all.
END_OF_misc/README
if test 293 -ne `wc -c <misc/README`; then
echo shar: \"misc/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f misc/adltouch.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"misc/adltouch.c\"
else
echo shar: Extracting \"misc/adltouch.c\" \(546 characters\)
sed "s/^X//" >misc/adltouch.c <<'END_OF_misc/adltouch.c'
X/* Adltouch - touch an ADL save file */
X
X#include <stdio.h>
X
X#if MSDOS
X# define RB "rb+"
X#else
X# define RB "r+"
X#endif
X
Xmain( argc, argv )
Xint
X argc;
Xchar
X *argv[];
X{
X FILE
X *f;
X long
X l,
X atol();
X
X if( argc != 3 ) {
X printf( "Usage: adltouch <file> <number>\n" );
X exit( 1 );
X }
X
X if( !(f = fopen( argv[ 1 ], RB )) ) {
X printf( "Error opening file %s\n", argv[ 1 ] );
X exit( 2 );
X }
X
X l = atol( argv[ 2 ] );
X fseek( f, 0L, 0 );
X fwrite( &l, sizeof( long ), 1, f );
X fclose( f );
X}
X
X/*** EOF adltouch.c ***/
END_OF_misc/adltouch.c
if test 546 -ne `wc -c <misc/adltouch.c`; then
echo shar: \"misc/adltouch.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/COPYRIGHT -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/COPYRIGHT\"
else
echo shar: Extracting \"samples/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >samples/COPYRIGHT <<'END_OF_samples/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X Copyright 1987 by Ross Cunniff
X All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained. Send modifications to:
X
X UUCP: ...{hplabs,ucbvax}!hpda!cunniff
X ARPA: cunniff%hpda@hplabs.ARPA
X USMAIL: Ross Cunniff
X 636 La Grande, #7
X Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_samples/COPYRIGHT
if test 489 -ne `wc -c <samples/COPYRIGHT`; then
echo shar: \"samples/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/Makefile -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/Makefile\"
else
echo shar: Extracting \"samples/Makefile\" \(557 characters\)
sed "s/^X//" >samples/Makefile <<'END_OF_samples/Makefile'
X# AR = shar -c -v
XAR = post -c -v -p 8 17
XB = ..
XD = samples/
X
Xall :
X (cd aard; make all)
X (cd mpu; make all)
X (cd demos; make all)
X
Xtouch :
X (cd aard; make all -t)
X (cd mpu; make all -t)
X (cd demos; make all -t)
X
Xshar : samples.shar
X (cd aard; make shar)
X (cd mpu; make shar)
X (cd demos; make shar)
X
Xsamples.shar : README Makefile standard.adl
X ( cd ${B} ; ${AR} \
X ${D}README ${D}COPYRIGHT ${D}Makefile \
X ${D}standard.adl \
X > ${D}samples.shar )
X
Xclean :
X (cd aard; make clean)
X (cd mpu; make clean)
X (cd demos; make clean)
X rm -f core samples.shar
END_OF_samples/Makefile
if test 557 -ne `wc -c <samples/Makefile`; then
echo shar: \"samples/Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/README -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/README\"
else
echo shar: Extracting \"samples/README\" \(428 characters\)
sed "s/^X//" >samples/README <<'END_OF_samples/README'
XThis directory contains the following subdirectories:
X
X aard -- A complete ADL specification
X demos -- Demonstrations of specific ADL features.
X mpu -- A sample ADL game originally used to
X test ADL features.
X
XIt also contains the file "standard.adl" which contains elegant
Xand useful routines to help standardize ADL scenarios. It is
Xused by both aard and mpu.
X
XTo make them, simply type "make" in this directory.
END_OF_samples/README
if test 428 -ne `wc -c <samples/README`; then
echo shar: \"samples/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/aard/COPYRIGHT -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/aard/COPYRIGHT\"
else
echo shar: Extracting \"samples/aard/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >samples/aard/COPYRIGHT <<'END_OF_samples/aard/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X Copyright 1987 by Ross Cunniff
X All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained. Send modifications to:
X
X UUCP: ...{hplabs,ucbvax}!hpda!cunniff
X ARPA: cunniff%hpda@hplabs.ARPA
X USMAIL: Ross Cunniff
X 636 La Grande, #7
X Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_samples/aard/COPYRIGHT
if test 489 -ne `wc -c <samples/aard/COPYRIGHT`; then
echo shar: \"samples/aard/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/aard/README -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/aard/README\"
else
echo shar: Extracting \"samples/aard/README\" \(509 characters\)
sed "s/^X//" >samples/aard/README <<'END_OF_samples/aard/README'
XThis directory contains the sources for the ADL game "aard".
XThe files on this directory are as follows:
X
X aard.adl -- File that binds the rest together
X constant.adl -- Constant declarations
X locales.adl -- Descriptions of locales
X locnames.adl -- Names of locales
X objects.adl -- Objects found + descriptions
X objrouts.adl -- Funny object routines
X routines.adl -- General purpose routines
X transit.adl -- Transition routines
X verbs.adl -- Verbs and verb actions
X
XTo make aard, simply type "make".
END_OF_samples/aard/README
if test 509 -ne `wc -c <samples/aard/README`; then
echo shar: \"samples/aard/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/aard/aard.adl -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/aard/aard.adl\"
else
echo shar: Extracting \"samples/aard/aard.adl\" \(964 characters\)
sed "s/^X//" >samples/aard/aard.adl <<'END_OF_samples/aard/aard.adl'
XINCLUDE "standard.adl";
X
XINCLUDE "constant.adl";
XINCLUDE "routines.adl";
XINCLUDE "locnames.adl";
X
XNOUN me(mrm1);
Xme(pmax) = 250;
Xme(NOTAKE) = TRUE;
Xme(ACTION) = ActAction;
X
XINCLUDE "objects.adl";
XINCLUDE "locales.adl";
XINCLUDE "verbs.adl";
XINCLUDE "objrouts.adl";
XINCLUDE "transit.adl";
X
XMoveFeet = { Your feet just keep following you... }
X ($move feet ($loc .ME))
X;
X
XSTART =
X ($sdem MoveFeet)
X (StdInit me)
X ($setv n s e w u d enter exit 0 0)
X ($prompt PROMPT)
X ($sdem endgame)
X;
X
XDWIMI = (Dwimmer %1);
XDWIMD = (Dwimmer %1);
X
X{*** CHEAT ROUTINES ***}
X
Xchetr =
X (IF ($eq ($prop .ME debug) 0) THEN
X ($exit 1)
X )
X;
X
X
XVERB cheat;
Xcheat(ACTION) =
X ($setp .ME debug ($not ($prop .ME debug)))
X;
X
XVERB beam;
Xbeam(ACTION) =
X (chetr)
X ($move .ME ($dobj))
X;
X
X
XVERB tractor;
Xtractor(ACTION) =
X (chetr)
X ($move ($dobj) ($loc .ME))
X ($say "The ")
X (($sdesc ($dobj)))
X ($say " magically appears.\n")
X;
X
X{ *** EOF aard.adl *** }
END_OF_samples/aard/aard.adl
if test 964 -ne `wc -c <samples/aard/aard.adl`; then
echo shar: \"samples/aard/aard.adl\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/aard/constant.adl -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/aard/constant.adl\"
else
echo shar: Extracting \"samples/aard/constant.adl\" \(358 characters\)
sed "s/^X//" >samples/aard/constant.adl <<'END_OF_samples/aard/constant.adl'
X{ *** Object properties * }
X
Xkludge = 2; signed = 2;
Xtlakst = 2; fedmky = 2;
Xropstf = 2; readl = 3;
Xwellbt = 2; cutflg = 2;
Xearplg = 3; tookbt = 2;
Xdarkbt = 2; rtied = 3;
Xstond = 2; killd = 2;
Xwiped = 2; blokd = 2;
Xtooky = 2; abrad = 3;
Xhitbr = 2; dugbt = 2;
Xdebug = 7;
X
Xrarea = 19; pfound = 17;
Xpplace = 18; pscore = 17;
Xpmax = 18; ratvl = 19;
Xweight = 20;
END_OF_samples/aard/constant.adl
if test 358 -ne `wc -c <samples/aard/constant.adl`; then
echo shar: \"samples/aard/constant.adl\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/demos/COPYRIGHT -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/demos/COPYRIGHT\"
else
echo shar: Extracting \"samples/demos/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >samples/demos/COPYRIGHT <<'END_OF_samples/demos/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X Copyright 1987 by Ross Cunniff
X All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained. Send modifications to:
X
X UUCP: ...{hplabs,ucbvax}!hpda!cunniff
X ARPA: cunniff%hpda@hplabs.ARPA
X USMAIL: Ross Cunniff
X 636 La Grande, #7
X Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_samples/demos/COPYRIGHT
if test 489 -ne `wc -c <samples/demos/COPYRIGHT`; then
echo shar: \"samples/demos/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/demos/Makefile -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/demos/Makefile\"
else
echo shar: Extracting \"samples/demos/Makefile\" \(658 characters\)
sed "s/^X//" >samples/demos/Makefile <<'END_OF_samples/demos/Makefile'
XAR = post -c -v -p 12 17
XB = ../..
XD = samples/demos/
X
Xall : actdemo baby multi tiny
X
Xclean :
X rm -f core actdemo tiny baby multi demos.shar
X
Xshar : demos.shar
X
Xdemos.shar : README COPYRIGHT Makefile \
X actdemo.adl baby.adl multi.adl \
X tiny.adl
X ( cd ${B} ; ${AR} \
X ${D}README ${D}COPYRIGHT ${D}Makefile \
X ${D}actdemo.adl ${D}baby.adl ${D}multi.adl \
X ${D}tiny.adl \
X > ${D}demos.shar )
X
Xactdemo : actdemo.adl ../standard.adl
X adlcomp actdemo.adl -o actdemo -i ..
X
Xbaby : baby.adl ../standard.adl
X adlcomp baby.adl -i.. -o baby
X
Xmulti : multi.adl
X adlcomp multi.adl -o multi
X
Xtiny : tiny.adl ../standard.adl
X adlcomp tiny.adl -i.. -o tiny
END_OF_samples/demos/Makefile
if test 658 -ne `wc -c <samples/demos/Makefile`; then
echo shar: \"samples/demos/Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/demos/README -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/demos/README\"
else
echo shar: Extracting \"samples/demos/README\" \(365 characters\)
sed "s/^X//" >samples/demos/README <<'END_OF_samples/demos/README'
XThis directory contains several dungeons intended to demonstrate specific
Xfeatures of ADL. They are as follows:
X
X actdemo.adl -- Demonstrates multiple Actors and fuses
X baby.adl -- Demonstrates standard.adl
X multi.adl -- Demonstrates multiple Players
X tiny.adl -- Dungeon included in ADL document
X
XTo make these dungeons, simply type "make" in this directory.
END_OF_samples/demos/README
if test 365 -ne `wc -c <samples/demos/README`; then
echo shar: \"samples/demos/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/mpu/COPYRIGHT -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/mpu/COPYRIGHT\"
else
echo shar: Extracting \"samples/mpu/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >samples/mpu/COPYRIGHT <<'END_OF_samples/mpu/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X Copyright 1987 by Ross Cunniff
X All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained. Send modifications to:
X
X UUCP: ...{hplabs,ucbvax}!hpda!cunniff
X ARPA: cunniff%hpda@hplabs.ARPA
X USMAIL: Ross Cunniff
X 636 La Grande, #7
X Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_samples/mpu/COPYRIGHT
if test 489 -ne `wc -c <samples/mpu/COPYRIGHT`; then
echo shar: \"samples/mpu/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/mpu/Makefile -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/mpu/Makefile\"
else
echo shar: Extracting \"samples/mpu/Makefile\" \(689 characters\)
sed "s/^X//" >samples/mpu/Makefile <<'END_OF_samples/mpu/Makefile'
X# AR = shar -c -v
XAR1 = post -c -v -p 13 17
XAR2 = post -c -v -p 14 17
XB = ../..
XD = samples/mpu/
X
Xall : mpu
X
Xmpu : *.adl ../../adlcomp/adlcomp ../standard.adl
X adlcomp mpu.adl -i.. -o mpu
X
Xshar : mpu1.shar mpu2.shar
X
Xclean :
X rm -f mpu core mpu1.shar mpu2.shar
X
Xmpu1.shar : README COPYRIGHT Makefile locales.adl \
X mpu.adl routines.adl verbs.adl
X ( cd ${B} ; ${AR1} \
X ${D}README ${D}COPYRIGHT ${D}Makefile \
X ${D}locales.adl ${D}mpu.adl ${D}routines.adl \
X ${D}verbs.adl \
X > ${D}mpu1.shar )
X
Xmpu2.shar : constant.adl locnames.adl objects.adl \
X transit.adl
X ( cd ${B} ; ${AR2} \
X ${D}constant.adl ${D}locnames.adl \
X ${D}objects.adl ${D}transit.adl \
X > ${D}mpu2.shar )
END_OF_samples/mpu/Makefile
if test 689 -ne `wc -c <samples/mpu/Makefile`; then
echo shar: \"samples/mpu/Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/mpu/README -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/mpu/README\"
else
echo shar: Extracting \"samples/mpu/README\" \(468 characters\)
sed "s/^X//" >samples/mpu/README <<'END_OF_samples/mpu/README'
XThis directory contains the sources for the ADL game "mpu".
XThe files on this directory are as follows:
X
X constant.adl -- Constant declarations
X locales.adl -- Descriptions of locales
X locnames.adl -- Names of locales
X mpu.adl -- File that binds the rest together
X objects.adl -- Objects found + descriptions
X routines.adl -- General purpose routines
X transit.adl -- Transition routines
X verbs.adl -- Verbs and verb routines
X
XTo make mpu, simply type "make".
END_OF_samples/mpu/README
if test 468 -ne `wc -c <samples/mpu/README`; then
echo shar: \"samples/mpu/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/mpu/constant.adl -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/mpu/constant.adl\"
else
echo shar: Extracting \"samples/mpu/constant.adl\" \(1303 characters\)
sed "s/^X//" >samples/mpu/constant.adl <<'END_OF_samples/mpu/constant.adl'
X
X{ *** Intrinsic Properties *** }
X
XSHRNK = 1; { Has it been shrunk? }
XCRYST = 2; { Is it one of our magic thingies? }
XKILLED = 3; { Is the dragon dead? }
X
XMISC1 = 7; { Miscellaneous Property (Semantics per object) }
XHOLED = MISC1;
X
XRDLOC = 17; { Location on Highway 7 }
XLoc21 = RDLOC; { Location in river bed }
XWEIGH = 18;
XHOLDS = 19;
XHAS = 20;
XPOINT = 21;
X
X{ Constants }
XCAPAC = 250; { More than I can carry }
X
XPMAX = 400; { Maximum number of points }
X
XBEND1LOC = 3; { Location of first bend in river bed }
XBEND2LOC = 6; { Location of second bend in river bed }
XGRATELOC = 11; { Location of grate in river bed }
X
XShazm = "ShaZam"; { The Wizard's incantation }
X
X{ Globals }
XVAR
X RBTouch, { Has he touched the red and blue crystals? }
X HWY7, { My location on highway 7 }
X RiverLoc, { My location in river bed }
X SCORE, { My current score }
X Tempr, { Dragon's Upset? }
X Cel6x, { Where he came from to enter Cel06 }
X Wizrd, { Wizardly Ability }
X GO, { Did the player move on this turn? }
X GOVERB, { Was the player's verb one of motion (n,s,e,w,etc.)? }
X IncFlag; { Should the turn counter be incremented? }
X
X(IncFlag) = TRUE; { Defaults to TRUE }
X
X
XROUTINE
X LOOK, GrowX, Grow, ShrnX, Shrink, WzTgl,
X Dump7, Get7, Entr7, East7, West7, CRout, DRdem,
X TWN5y, cg, Sayer;
END_OF_samples/mpu/constant.adl
if test 1303 -ne `wc -c <samples/mpu/constant.adl`; then
echo shar: \"samples/mpu/constant.adl\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/mpu/locnames.adl -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/mpu/locnames.adl\"
else
echo shar: Extracting \"samples/mpu/locnames.adl\" \(1522 characters\)
sed "s/^X//" >samples/mpu/locnames.adl <<'END_OF_samples/mpu/locnames.adl'
XNOUN .road;
XNOUN .gard;
XNOUN .frst; fdsc = ($say "You're lost in the forest.\n");
XNOUN .farm;
XNOUN .town;
X
XNOUN road1(.road); road1(LIGHT) = TRUE;
XNOUN road2(.road); road2(LIGHT) = TRUE;
XNOUN road3(.road); road3(LIGHT) = TRUE;
XNOUN road4(.road); road4(LIGHT) = TRUE;
XNOUN road5(.road); road5(LIGHT) = TRUE;
XNOUN road6(.road); road6(LIGHT) = TRUE;
XNOUN road7(.road); road7(LIGHT) = TRUE;
XNOUN Roadx; { Where things on Highway 7 get held }
XNOUN riverx; { Where things in the river bed get held }
X
XNOUN gard1(.gard); gard1(LIGHT) = TRUE;
XNOUN gard2(.gard); gard2(LIGHT) = TRUE;
X
XNOUN frst1(.frst); frst1(LIGHT) = TRUE;
X
XNOUN farm1(.farm); farm1(LIGHT) = TRUE;
XNOUN farm2(.farm); farm2(LIGHT) = TRUE;
XNOUN farm3(.farm); farm3(LIGHT) = TRUE;
XNOUN farm4(.farm); farm4(LIGHT) = TRUE;
XNOUN farm5(.farm); farm5(LIGHT) = TRUE;
XNOUN farm6(.farm); farm6(LIGHT) = TRUE;
XNOUN farm7(.farm); farm7(LIGHT) = TRUE;
X
XNOUN town1(.town); town1(LIGHT) = TRUE;
XNOUN town2(.town); town2(LIGHT) = TRUE;
XNOUN town3(.town); town3(LIGHT) = TRUE;
XNOUN town4(.town); town4(LIGHT) = TRUE;
XNOUN .bank;
XNOUN town5(.bank); town5(LIGHT) = TRUE;
XNOUN town6(.town); town6(LIGHT) = TRUE;
X
XNOUN
X cel01, cel02, cel03, cel04, cel05, cel06, cel07,
X cel08, cel09, cel10, cel11, cel12, cel13, cel14,
X cel15, cel16, cel17, cel18, cel19, cel20, cel21;
X
Xcel21(LIGHT) = TRUE;
X
XNOUN
X desert, field;
X
Xfield(LIGHT) = TRUE;
Xdesert(LIGHT) = TRUE;
END_OF_samples/mpu/locnames.adl
if test 1522 -ne `wc -c <samples/mpu/locnames.adl`; then
echo shar: \"samples/mpu/locnames.adl\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/mpu/mpu.adl -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"samples/mpu/mpu.adl\"
else
echo shar: Extracting \"samples/mpu/mpu.adl\" \(364 characters\)
sed "s/^X//" >samples/mpu/mpu.adl <<'END_OF_samples/mpu/mpu.adl'
XINCLUDE "standard.adl";
X
XINCLUDE "constant.adl";
XINCLUDE "locnames.adl";
XINCLUDE "verbs.adl";
XINCLUDE "objects.adl";
XINCLUDE "routines.adl";
XINCLUDE "locales.adl";
XINCLUDE "transit.adl";
X
XNOUN me(road1);
Xme(HOLDS) = CAPAC;
Xme(WEIGH) = CAPAC;
Xme(NOTAKE) = TRUE;
X
X
XSTART =
X ($sdem LOOK)
X (StdInit me)
X ($prompt PROMPT)
X ($setv n s e w ne nw se sw u d)
X;
END_OF_samples/mpu/mpu.adl
if test 364 -ne `wc -c <samples/mpu/mpu.adl`; then
echo shar: \"samples/mpu/mpu.adl\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f util/COPYRIGHT -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"util/COPYRIGHT\"
else
echo shar: Extracting \"util/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >util/COPYRIGHT <<'END_OF_util/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X Copyright 1987 by Ross Cunniff
X All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained. Send modifications to:
X
X UUCP: ...{hplabs,ucbvax}!hpda!cunniff
X ARPA: cunniff%hpda@hplabs.ARPA
X USMAIL: Ross Cunniff
X 636 La Grande, #7
X Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_util/COPYRIGHT
if test 489 -ne `wc -c <util/COPYRIGHT`; then
echo shar: \"util/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f util/Makefile -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"util/Makefile\"
else
echo shar: Extracting \"util/Makefile\" \(529 characters\)
sed "s/^X//" >util/Makefile <<'END_OF_util/Makefile'
XINC = ../include
X# AR = shar -c -v
XAR = post -c -v -p 9 17
XB = ..
XD = util/
X
XDFLAGS = -O
XCFLAGS = -I${INC} ${DFLAGS}
X
XOBJS = vstring.o virtmem.o mytime.o
X
Xall : ${OBJS}
X
Xshar : util.shar
X
Xutil.shar : README Makefile *.c
X ( cd ${B} ; ${AR} \
X ${D}README ${D}COPYRIGHT ${D}Makefile \
X ${D}mytime.c ${D}virtmem.c ${D}vstring.c \
X > ${D}util.shar )
X
Xmytime.o : mytime.c
X
Xvirtmem.o : virtmem.c ${INC}/adltypes.h ${INC}/virtmem.h
X
Xvstring.o : vstring.c ${INC}/adltypes.h ${INC}/virtmem.h
X
Xclean :
X rm -f ${OBJS} core util.shar
END_OF_util/Makefile
if test 529 -ne `wc -c <util/Makefile`; then
echo shar: \"util/Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f util/README -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"util/README\"
else
echo shar: Extracting \"util/README\" \(264 characters\)
sed "s/^X//" >util/README <<'END_OF_util/README'
XThis directory contains utility libraries for the ADL adventure system.
XThey are as follows:
X
X mytime.c - time(OS) for MS-DOS
X virtcode.c - Virtual code routines
X vstring.c - Virtual string routines
X
XTo make the object files, simply type "make" in this directory.
END_OF_util/README
if test 264 -ne `wc -c <util/README`; then
echo shar: \"util/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
echo shar: End of archive 11 \(of 11\).
cp /dev/null ark11isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 11 archives.
rm -f ark[1-9]isdone ark[1-9][0-9]isdone
echo Making adl.doc
(cd man; cat doc.aa doc.ab doc.ac >adl.doc; rm doc.a[a-c])
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0