Amiga-Request@cs.odu.edu (Amiga Sources/Binaries Moderator) (06/28/90)
Submitted-by: Matt Dillon <@uunet.uu.net:overload!dillon>
Posting-number: Volume 90, Issue 179
Archive-name: unix/uucp-1.06d/part01
[ This is UUCP 1.06D from Matt Dillon.
This distribution consists of three disks --
Disk 1 contains the core system
Disk 2 contains manual pages and other utilities
Disk 3 contains the uucp source
This group of postings consists of disk three.
Disks one and two have already been posted in comp.binaries.amiga.
Care should be taken not to mix the parts of the different disks.
Only disks one and two are needed to use UUCP. You can ignore the sources.
With this package and a willing UUCP neighbor, it's possible to have an
Amiga participate directly in USENET and UUCP (news, mail, etc.).
...tad ]
#!/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 1 (of 12)."
# Contents: uucp2 uucp2/src uucp2/src/GUtil uucp2/src/GUtil/DMakefile
# uucp2/src/GUtil/DMakefile.dcc uucp2/src/GUtil/version.doc
# uucp2/src/TODO uucp2/src/anews uucp2/src/anews/DMakefile
# uucp2/src/anews/DMakefile.dcc uucp2/src/anews/version.doc
# uucp2/src/clean uucp2/src/clean-dcc uucp2/src/dmail
# uucp2/src/dmail/TODO uucp2/src/dmail/execom.h
# uucp2/src/dmail/version.doc uucp2/src/getty
# uucp2/src/getty/DMakefile uucp2/src/getty/DMakefile.dcc
# uucp2/src/getty/icept.asm uucp2/src/getty/syms.c
# uucp2/src/getty/version.doc uucp2/src/include
# uucp2/src/include/expand_path.h uucp2/src/include/getfiles.h
# uucp2/src/include/log.h uucp2/src/include/protos.h
# uucp2/src/include/pwd.h uucp2/src/include/rcs.h
# uucp2/src/include/sendmail_protos.h uucp2/src/include/sys
# uucp2/src/include/sys/file.h uucp2/src/include/sys/stat.h
# uucp2/src/include/sys/time.h uucp2/src/include/sys/types.h
# uucp2/src/include/version.h uucp2/src/lib
# uucp2/src/lib/expand_path.c uucp2/src/lib/getenv.c
# uucp2/src/lib/getuser.c uucp2/src/lib/isdir.c uucp2/src/lib/lsys.c
# uucp2/src/lib/makeproto.c uucp2/src/lib/mntreq.c
# uucp2/src/lib/seq.c uucp2/src/lib/setstdin.c uucp2/src/lib/sleep.c
# uucp2/src/lib/string.c uucp2/src/lib/syms.c
# uucp2/src/lib/tmpfile.c uucp2/src/lib/validuser.c uucp2/src/mkall
# uucp2/src/mkall-dcc uucp2/src/news uucp2/src/news/DMakefile
# uucp2/src/news/DMakefile.dcc uucp2/src/news/version.doc
# uucp2/src/sendmail uucp2/src/sendmail/DMakefile
# uucp2/src/sendmail/DMakefile.dcc uucp2/src/sendmail/defs.h
# uucp2/src/sendmail/version.doc uucp2/src/unix uucp2/src/util
# uucp2/src/util/DMakefile uucp2/src/util/DMakefile.dcc
# uucp2/src/util/expandm.c uucp2/src/util/uident.c
# uucp2/src/util/version.doc uucp2/src/uucico
# uucp2/src/uucico/includes.h uucp2/src/uucico/uuhosts.c
# uucp2/src/uucico/uuname.c uucp2/src/uuser
# uucp2/src/uuser/DMakefile uucp2/src/uuser/DMakefile.dcc
# uucp2/src/uuser/mountlist uucp2/src/uuser/version.doc
# Wrapped by tadguy@xanth on Thu Jun 28 08:21:07 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test ! -d 'uucp2' ; then
echo shar: Creating directory \"'uucp2'\"
mkdir 'uucp2'
fi
if test ! -d 'uucp2/src' ; then
echo shar: Creating directory \"'uucp2/src'\"
mkdir 'uucp2/src'
fi
if test ! -d 'uucp2/src/GUtil' ; then
echo shar: Creating directory \"'uucp2/src/GUtil'\"
mkdir 'uucp2/src/GUtil'
fi
if test -f 'uucp2/src/GUtil/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/GUtil/DMakefile'\"
else
echo shar: Extracting \"'uucp2/src/GUtil/DMakefile'\" \(671 characters\)
sed "s/^X//" >'uucp2/src/GUtil/DMakefile' <<'END_OF_FILE'
X
X# DMakefile
X#
X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X#
X# $Header: Beta:src/uucp/src/GUtil/RCS/DMakefile,v 1.1 90/02/02 11:58:54 dillon Exp Locker: dillon $
X
XOD= ltmp:uucp/
XSYMS= uucp:src/lib/all.m
XSRCS= uuserdump.c gnote.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XCFLAGS= -iuucp:src/include/ -cq -v
XEXE= uucp:c/
XLIBS= ltmp:uucp/lib/uucp.lib lib:lc.lib lib:amiga.lib
X
Xall: $(EXE)uuserdump $(EXE)gnote
X
X$(EXE)uuserdump: $(OD)uuserdump.o
X blink from lib:cres.o %(right) TO %(left) lib $(LIBS)
X
X$(EXE)gnote: $(OD)gnote.o
X blink from lib:cres.o %(right) TO %(left) lib $(LIBS)
X
X$(OBJS) : $(SRCS)
X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
X
END_OF_FILE
if test 671 -ne `wc -c <'uucp2/src/GUtil/DMakefile'`; then
echo shar: \"'uucp2/src/GUtil/DMakefile'\" unpacked with wrong size!
fi
# end of 'uucp2/src/GUtil/DMakefile'
fi
if test -f 'uucp2/src/GUtil/DMakefile.dcc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/GUtil/DMakefile.dcc'\"
else
echo shar: Extracting \"'uucp2/src/GUtil/DMakefile.dcc'\" \(585 characters\)
sed "s/^X//" >'uucp2/src/GUtil/DMakefile.dcc' <<'END_OF_FILE'
X
X# DMakefile for DICE
X#
X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X#
X# $Header: Beta:src/uucp/src/GUtil/RCS/DMakefile,v 1.1 90/02/02 11:58:54 dillon Exp Locker: dillon $
X
XOD= dtmp:uucp/
XSRCS= uuserdump.c gnote.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XCFLAGS= -I uucp:src/include/
XEXE= uucp:c/
XLIBS= $(OD)lib/uucp.lib
X
Xall: $(EXE)uuserdump $(EXE)gnote
X
X$(EXE)uuserdump: $(OD)uuserdump.o
X dcc %(right) $(LIBS) -o %(left) -r -s
X
X$(EXE)gnote: $(OD)gnote.o
X dcc %(right) $(LIBS) -o %(left) -r -s
X
X$(OBJS) : $(SRCS)
X dcc $(CFLAGS) %(right) -o %(left) -c -r
X
END_OF_FILE
if test 585 -ne `wc -c <'uucp2/src/GUtil/DMakefile.dcc'`; then
echo shar: \"'uucp2/src/GUtil/DMakefile.dcc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/GUtil/DMakefile.dcc'
fi
if test -f 'uucp2/src/GUtil/version.doc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/GUtil/version.doc'\"
else
echo shar: Extracting \"'uucp2/src/GUtil/version.doc'\" \(323 characters\)
sed "s/^X//" >'uucp2/src/GUtil/version.doc' <<'END_OF_FILE'
X
X VERSION.DOC
X
XUUSERDUMP
X
X .01
X No changes, but warning (1.06 release) that Getty now uses a
X 5 minute timeout instead of a 1 second timeout, so the code
X currently waits for wayyy to long before hanging up automatically
X
X .00
X Initial Release
X
X
XGNOTE
X .01
X See UUSERDUMP notes for .01
X
X .00
X Initial Release
X
X
END_OF_FILE
if test 323 -ne `wc -c <'uucp2/src/GUtil/version.doc'`; then
echo shar: \"'uucp2/src/GUtil/version.doc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/GUtil/version.doc'
fi
if test -f 'uucp2/src/TODO' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/TODO'\"
else
echo shar: Extracting \"'uucp2/src/TODO'\" \(848 characters\)
sed "s/^X//" >'uucp2/src/TODO' <<'END_OF_FILE'
X
X AZTEC
X
X UUSER: timeout, ^C, flow control
X
X alias: mail directly to alias ... ok
X mail to alias@overload.UUCP ... goes to email.
X
X uucico: -r1 hunt doesn't work always
X uucico: implement alternate send-expect stuff
X uucico: exit code when cannot connect!
X uucico: detect BUSY return
X
X sendmail: sort the To: list and remove duplicates due to aliases
X sendmail: return erronous email to sender... Mailer-Daemon
X sendmail: too-many-hops stuff
X sendmail: From line ... 'forwarded by user' form (delete)
X
X pathalias: Implement some sort of automatic domain routing mechanism
X based on a '|' alias and cron based domain updater.
X
X news: we need news routing! slated for 1.07
X
X aliases: it is possible to get into a stack loop when
X using the <file feature in the Aliases file.
END_OF_FILE
if test 848 -ne `wc -c <'uucp2/src/TODO'`; then
echo shar: \"'uucp2/src/TODO'\" unpacked with wrong size!
fi
# end of 'uucp2/src/TODO'
fi
if test ! -d 'uucp2/src/anews' ; then
echo shar: Creating directory \"'uucp2/src/anews'\"
mkdir 'uucp2/src/anews'
fi
if test -f 'uucp2/src/anews/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/anews/DMakefile'\"
else
echo shar: Extracting \"'uucp2/src/anews/DMakefile'\" \(452 characters\)
sed "s/^X//" >'uucp2/src/anews/DMakefile' <<'END_OF_FILE'
X
XOD= ltmp:uucp/anews/
X
XASRCS= news.c showart.c reply.c followup.c mscan.c unpackmail.c sendpacket.c raw.c
X
XAOBJS= $(ASRCS:"*.c":"$(OD)*.o")
X
XAOBS = $(ASRCS:"*.c":"*.o")
X
XAEXE= uucp:c/anews
X
XCFLAGS = -iuucp:src/include/ -cq -v -b0
XLIBS= ltmp:uucp/lib/uucp.lib lib:lc.lib lib:amiga.lib
X
Xall : $(AEXE)
X
X$(AEXE) : $(AOBJS)
X cd $(OD)
X blink from lib:c.o $(AOBS) to %(left) lib $(LIBS)
X cd
X
X$(AOBJS) : $(ASRCS)
X lc $(CFLAGS) -o%(left) %(right)
X
X
END_OF_FILE
if test 452 -ne `wc -c <'uucp2/src/anews/DMakefile'`; then
echo shar: \"'uucp2/src/anews/DMakefile'\" unpacked with wrong size!
fi
# end of 'uucp2/src/anews/DMakefile'
fi
if test -f 'uucp2/src/anews/DMakefile.dcc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/anews/DMakefile.dcc'\"
else
echo shar: Extracting \"'uucp2/src/anews/DMakefile.dcc'\" \(454 characters\)
sed "s/^X//" >'uucp2/src/anews/DMakefile.dcc' <<'END_OF_FILE'
X
X# DMakefile for DCC (dillon's compiler)
X
XOD= dtmp:uucp/anews/
X
XASRCS= news.c showart.c reply.c followup.c mscan.c unpackmail.c sendpacket.c raw.c
X
XAOBJS= $(ASRCS:"*.c":"$(OD)*.o")
X
XAOBS = $(ASRCS:"*.c":"*.o")
X
XAEXE= uucp:c/anews
X
XCFLAGS = -I uucp:src/include/
XLIBS= dtmp:uucp/lib/uucp.lib
X
Xall : $(AEXE)
X
X$(AEXE) : $(AOBJS)
X cd $(OD)
X dcc $(AOBS) $(LIBS) -o %(left) -s -r
X cd
X
X$(AOBJS) : $(ASRCS)
X dcc $(CFLAGS) %(right) -o %(left) -r -c
X
END_OF_FILE
if test 454 -ne `wc -c <'uucp2/src/anews/DMakefile.dcc'`; then
echo shar: \"'uucp2/src/anews/DMakefile.dcc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/anews/DMakefile.dcc'
fi
if test -f 'uucp2/src/anews/version.doc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/anews/version.doc'\"
else
echo shar: Extracting \"'uucp2/src/anews/version.doc'\" \(565 characters\)
sed "s/^X//" >'uucp2/src/anews/version.doc' <<'END_OF_FILE'
X
XANEWS:
X .03 (1.06)
X Now handles r/Reply and f/Followup properly. Fixed memory
X free bug in followup.
X
X Tries to use <user>.signature file before .signature in
X your UULIB:
X
X .02
X Now handles reply,Reply, and posting
X
X Now accepts -r rows -c columns arguments to command
X line to set window size (does not yet do so automatically)
X
X Now accepts -p group on the command line to explicitly
X post to a newsgroup.
X
X 'q' and 'Q' bump you back to the top level instead of
X exiting.
X
X 'Q' does not delete any articles when you bump back.
X
X .01 1.03D release
X
END_OF_FILE
if test 565 -ne `wc -c <'uucp2/src/anews/version.doc'`; then
echo shar: \"'uucp2/src/anews/version.doc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/anews/version.doc'
fi
if test -f 'uucp2/src/clean' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/clean'\"
else
echo shar: Extracting \"'uucp2/src/clean'\" \(161 characters\)
sed "s/^X//" >'uucp2/src/clean' <<'END_OF_FILE'
Xdelete ltmp:uucp/#?.o quiet
Xdelete ltmp:uucp/lib/#? quiet
Xdelete ltmp:uucp/anews/#?.o quiet
Xdelete ltmp:uucp/dnews/#?.o quiet
Xdelete ltmp:uucp/dmail/#?.o quiet
X
END_OF_FILE
if test 161 -ne `wc -c <'uucp2/src/clean'`; then
echo shar: \"'uucp2/src/clean'\" unpacked with wrong size!
fi
# end of 'uucp2/src/clean'
fi
if test -f 'uucp2/src/clean-dcc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/clean-dcc'\"
else
echo shar: Extracting \"'uucp2/src/clean-dcc'\" \(161 characters\)
sed "s/^X//" >'uucp2/src/clean-dcc' <<'END_OF_FILE'
Xdelete dtmp:uucp/#?.o quiet
Xdelete dtmp:uucp/lib/#? quiet
Xdelete dtmp:uucp/anews/#?.o quiet
Xdelete dtmp:uucp/dnews/#?.o quiet
Xdelete dtmp:uucp/dmail/#?.o quiet
X
END_OF_FILE
if test 161 -ne `wc -c <'uucp2/src/clean-dcc'`; then
echo shar: \"'uucp2/src/clean-dcc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/clean-dcc'
fi
if test ! -d 'uucp2/src/dmail' ; then
echo shar: Creating directory \"'uucp2/src/dmail'\"
mkdir 'uucp2/src/dmail'
fi
if test -f 'uucp2/src/dmail/TODO' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/dmail/TODO'\"
else
echo shar: Extracting \"'uucp2/src/dmail/TODO'\" \(420 characters\)
sed "s/^X//" >'uucp2/src/dmail/TODO' <<'END_OF_FILE'
X
X $Header: Beta:src/uucp/src/dmail/RCS/TODO,v 1.1 90/02/02 12:03:56 dillon Exp Locker: dillon $
X
XLIST tabs....
Xother junk, fix bugs (malloc stuff)
X
X-multiple dimension arrayed variables, add ability to do a natural join
X coupled to a command.
X
X-Automatically remove fields on forward, mail, and reply.
X
XResend support:
X New To: on top.
X New Cc: .... etc etc etc
X prepend Resent- to Date, From, Message-Id, *To, *Cc
X
X
END_OF_FILE
if test 420 -ne `wc -c <'uucp2/src/dmail/TODO'`; then
echo shar: \"'uucp2/src/dmail/TODO'\" unpacked with wrong size!
fi
# end of 'uucp2/src/dmail/TODO'
fi
if test -f 'uucp2/src/dmail/execom.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/dmail/execom.h'\"
else
echo shar: Extracting \"'uucp2/src/dmail/execom.h'\" \(463 characters\)
sed "s/^X//" >'uucp2/src/dmail/execom.h' <<'END_OF_FILE'
X
X/*
X * EXECOM.H
X *
X * $Header: Beta:src/uucp/src/dmail/RCS/execom.h,v 1.1 90/02/02 12:03:53 dillon Exp Locker: dillon $
X *
X * (C) Copyright 1985-1990 by Matthew Dillon, All Rights Reserved.
X */
X
Xstruct COMMAND {
X int (*func)();
X int stat;
X int val;
X char *name;
X};
X
Xextern struct COMMAND Command[];
Xextern char *Desc[];
X
X#define C_NO 0x01 /* Not implimented yet */
X#define C_COND 0x02 /* Is conditional, execute despite if */
X
X
END_OF_FILE
if test 463 -ne `wc -c <'uucp2/src/dmail/execom.h'`; then
echo shar: \"'uucp2/src/dmail/execom.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/dmail/execom.h'
fi
if test -f 'uucp2/src/dmail/version.doc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/dmail/version.doc'\"
else
echo shar: Extracting \"'uucp2/src/dmail/version.doc'\" \(770 characters\)
sed "s/^X//" >'uucp2/src/dmail/version.doc' <<'END_OF_FILE'
X
X $Header: Beta:src/uucp/src/dmail/RCS/version.doc,v 1.1 90/02/02 12:03:45 dillon Exp Locker: dillon $
X
X DMAIL
X
X .04 1.06 fixes, Cc: line on reply fixed, deletes t:Original.
X
X .03 ENV:USER enviroment variable overides config UserName
X entry when DMail is looking for mail.
X
X .02 signature file ($header variable) is now appended to the
X END of included text instead of the beginning.
X
X .01 unmark and associated commands (like pre) no longer return
X an error if there are no articles to unmark.
X
X If new mail comes in while we are reading mail dmail no
X longer looses it when you update the mail file.
X
X DMail now recognizes new mail. If the last select you did
X was a 'sel all' it becomes immediately available for
X viewing.
X
X .00 Initial port from UNIX
X
END_OF_FILE
if test 770 -ne `wc -c <'uucp2/src/dmail/version.doc'`; then
echo shar: \"'uucp2/src/dmail/version.doc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/dmail/version.doc'
fi
if test ! -d 'uucp2/src/getty' ; then
echo shar: Creating directory \"'uucp2/src/getty'\"
mkdir 'uucp2/src/getty'
fi
if test -f 'uucp2/src/getty/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/getty/DMakefile'\"
else
echo shar: Extracting \"'uucp2/src/getty/DMakefile'\" \(708 characters\)
sed "s/^X//" >'uucp2/src/getty/DMakefile' <<'END_OF_FILE'
X
X# Note, getty cannot currently be made resident due to device vectoring
X#
X# $Header: Beta:src/uucp/src/getty/RCS/DMakefile,v 1.1 90/02/02 12:13:26 dillon Exp Locker: dillon $
X#
X#
X
XOD= ltmp:uucp/
XSYMS= uucp:src/lib/all.m
XSRCS= getty.c passwd.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XCFLAGS= -iuucp:src/include/ -cim -cq
XAFLAGS = -ilattice:asminclude/
XEXE= uucp:c/
XLIBS= ltmp:uucp/lib/uucp.lib lib:lc.lib lib:amiga.lib
X
XASRCS= icept.asm
XAOBJS= $(ASRCS:"*.asm":"$(OD)*.o")
X
Xall: $(EXE)getty
X
X$(EXE)getty: $(OBJS) $(AOBJS)
X blink from lib:c.o $(OBJS) $(AOBJS) SC TO %(left) lib $(LIBS)
X
X$(OBJS) : $(SRCS)
X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
X
X$(AOBJS) : $(ASRCS)
X asm $(AFLAGS) -o%(left) %(right)
X
END_OF_FILE
if test 708 -ne `wc -c <'uucp2/src/getty/DMakefile'`; then
echo shar: \"'uucp2/src/getty/DMakefile'\" unpacked with wrong size!
fi
# end of 'uucp2/src/getty/DMakefile'
fi
if test -f 'uucp2/src/getty/DMakefile.dcc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/getty/DMakefile.dcc'\"
else
echo shar: Extracting \"'uucp2/src/getty/DMakefile.dcc'\" \(626 characters\)
sed "s/^X//" >'uucp2/src/getty/DMakefile.dcc' <<'END_OF_FILE'
X
X# Note, getty cannot currently be made resident due to device vectoring
X#
X# $Header: Beta:src/uucp/src/getty/RCS/DMakefile,v 1.1 90/02/02 12:13:26 dillon Exp Locker: dillon $
X#
X#
X
XOD= dtmp:uucp/
XSRCS= getty.c passwd.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XCFLAGS= -I uucp:src/include/
XAFLAGS = -ilattice:asminclude/
XEXE= uucp:c/
XLIBS= dtmp:uucp/lib/uucp.lib
X
XASRCS= icept.asm
XAOBJS= $(ASRCS:"*.asm":"$(OD)*.o")
X
Xall: $(EXE)getty
X
X$(EXE)getty: $(OBJS) $(AOBJS)
X dcc $(OBJS) $(AOBJS) $(LIBS) -o %(left) -s
X
X$(OBJS) : $(SRCS)
X dcc $(CFLAGS) %(right) -o %(left) -c
X
X$(AOBJS) : $(ASRCS)
X asm $(AFLAGS) -o%(left) %(right)
X
END_OF_FILE
if test 626 -ne `wc -c <'uucp2/src/getty/DMakefile.dcc'`; then
echo shar: \"'uucp2/src/getty/DMakefile.dcc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/getty/DMakefile.dcc'
fi
if test -f 'uucp2/src/getty/icept.asm' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/getty/icept.asm'\"
else
echo shar: Extracting \"'uucp2/src/getty/icept.asm'\" \(684 characters\)
sed "s/^X//" >'uucp2/src/getty/icept.asm' <<'END_OF_FILE'
X
X ; ICEPT.ASM
X ;
X ; $Header: Beta:src/uucp/src/getty/RCS/icept.asm,v 1.1 90/02/02 12:13:28 dillon Exp Locker: dillon $
X ;
X ; Intercept OpenDevice() for serial.device and force
X ; SERF_SHARED.
X ;
X ; A1 holds IOExtSer request ptr. D0-D1/A0-A1 are NOT
X ; scratch.
X ;
X ; You CANNOT use A4 relative addressing since this routine
X ; is called from a different context.
X
X include "exec/types.i"
X include "devices/serial.i"
X
X section text,CODE
X
X xdef _AsmIntercept
X xdef _AsmRoute
X
XRouteVector dc.l 0
X
X_AsmRoute: lea RouteVector(pc),A0
X move.l 4(sp),(A0)
X rts
X
X_AsmIntercept:
X or.b #SERF_SHARED,IO_SERFLAGS(A1)
X move.l RouteVector(pc),-(sp)
X rts
X
X END
X
END_OF_FILE
if test 684 -ne `wc -c <'uucp2/src/getty/icept.asm'`; then
echo shar: \"'uucp2/src/getty/icept.asm'\" unpacked with wrong size!
fi
# end of 'uucp2/src/getty/icept.asm'
fi
if test -f 'uucp2/src/getty/syms.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/getty/syms.c'\"
else
echo shar: Extracting \"'uucp2/src/getty/syms.c'\" \(298 characters\)
sed "s/^X//" >'uucp2/src/getty/syms.c' <<'END_OF_FILE'
X
X/*
X * SYMS.C
X *
X * $Header: Beta:src/uucp/src/getty/RCS/syms.c,v 1.1 90/02/02 12:13:30 dillon Exp Locker: dillon $
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * almost-dummy file for precomp symbol table gen.
X */
X
X#include <exec/types.h>
X#include <proto/all.h>
X
END_OF_FILE
if test 298 -ne `wc -c <'uucp2/src/getty/syms.c'`; then
echo shar: \"'uucp2/src/getty/syms.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/getty/syms.c'
fi
if test -f 'uucp2/src/getty/version.doc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/getty/version.doc'\"
else
echo shar: Extracting \"'uucp2/src/getty/version.doc'\" \(233 characters\)
sed "s/^X//" >'uucp2/src/getty/version.doc' <<'END_OF_FILE'
X
X
X $Header: Beta:src/uucp/src/getty/RCS/version.doc,v 1.1 90/02/02 12:13:37 dillon Exp Locker: dillon $
X
X GETTY
X
X .02 Getty now intercepts the OpenDevice vector for the
X device in question and forces SERF_SHARED.
X
X .01
X
X .00
X
END_OF_FILE
if test 233 -ne `wc -c <'uucp2/src/getty/version.doc'`; then
echo shar: \"'uucp2/src/getty/version.doc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/getty/version.doc'
fi
if test ! -d 'uucp2/src/include' ; then
echo shar: Creating directory \"'uucp2/src/include'\"
mkdir 'uucp2/src/include'
fi
if test -f 'uucp2/src/include/expand_path.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/include/expand_path.h'\"
else
echo shar: Extracting \"'uucp2/src/include/expand_path.h'\" \(56 characters\)
sed "s/^X//" >'uucp2/src/include/expand_path.h' <<'END_OF_FILE'
X
Xextern char *expand_path(const char *, const char *);
X
END_OF_FILE
if test 56 -ne `wc -c <'uucp2/src/include/expand_path.h'`; then
echo shar: \"'uucp2/src/include/expand_path.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/include/expand_path.h'
fi
if test -f 'uucp2/src/include/getfiles.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/include/getfiles.h'\"
else
echo shar: Extracting \"'uucp2/src/include/getfiles.h'\" \(246 characters\)
sed "s/^X//" >'uucp2/src/include/getfiles.h' <<'END_OF_FILE'
X
X/*
X * GETFILES.H
X */
X
X#ifndef _GETFILES_H
X#define _GETFILES_H
X
Xtypedef struct dir_list {
X struct dir_list *next;
X char name[1];
X} dir_list;
X
X#ifndef _LIST_SORT_C
Xextern void *list_sort(void *_list, int (*_cmp)(void *, void *));
X#endif
X
X#endif
X
END_OF_FILE
if test 246 -ne `wc -c <'uucp2/src/include/getfiles.h'`; then
echo shar: \"'uucp2/src/include/getfiles.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/include/getfiles.h'
fi
if test -f 'uucp2/src/include/log.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/include/log.h'\"
else
echo shar: Extracting \"'uucp2/src/include/log.h'\" \(431 characters\)
sed "s/^X//" >'uucp2/src/include/log.h' <<'END_OF_FILE'
X
X/*
X * LOG.H
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * $Header: Beta:src/uucp/src/include/RCS/log.h,v 1.1 90/02/02 11:40:06 dillon Exp Locker: dillon $
X */
X
Xextern int LogToStdout;
Xextern int LogLevel;
Xextern char *LogProgram;
Xextern char *LogHost;
Xextern char *LogWho;
Xextern char *LogFile;
X
X#define DEBUG(level, msg, moremsg) if (LogLevel > level) printf(msg, moremsg)
X
END_OF_FILE
if test 431 -ne `wc -c <'uucp2/src/include/log.h'`; then
echo shar: \"'uucp2/src/include/log.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/include/log.h'
fi
if test -f 'uucp2/src/include/protos.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/include/protos.h'\"
else
echo shar: Extracting \"'uucp2/src/include/protos.h'\" \(490 characters\)
sed "s/^X//" >'uucp2/src/include/protos.h' <<'END_OF_FILE'
X
X/*
X * AMIGA prototypes used by UUCP programs. This is where compiler
X * dependancies go.
X */
X
X#ifdef _DCC
X
Xextern void *AllocMem();
Xextern void *GetMsg();
Xextern void *CreatePort();
Xextern void *OpenWindow();
Xextern void *OpenLibrary();
X
Xextern void *RemHead();
Xextern void *RemTail();
X
Xextern void *FindPort();
Xextern void *SetFunction();
X
X#else
X#ifdef MCH_AMIGA
X#define __saveds
X#include <functions.h> /* Manx */
X#else
X#include <proto/all.h> /* Lattice */
X#endif
X#endif
END_OF_FILE
if test 490 -ne `wc -c <'uucp2/src/include/protos.h'`; then
echo shar: \"'uucp2/src/include/protos.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/include/protos.h'
fi
if test -f 'uucp2/src/include/pwd.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/include/pwd.h'\"
else
echo shar: Extracting \"'uucp2/src/include/pwd.h'\" \(644 characters\)
sed "s/^X//" >'uucp2/src/include/pwd.h' <<'END_OF_FILE'
X
X/*
X * PWD.H
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * $Header: Beta:src/uucp/src/include/RCS/pwd.h,v 1.1 90/02/02 11:40:16 dillon Exp Locker: dillon $
X */
X
Xstruct passwd {
X char *pw_name;
X char *pw_passwd;
X long pw_uid;
X long pw_gid;
X long pw_quota;
X char *pw_comment;
X char *pw_gecos;
X char *pw_dir;
X char *pw_shell;
X char *pw_shell_arg0; /* arg0 broken out from pw_shell */
X char *pw_shell_argn; /* remaining args from pw_shell */
X};
X
Xextern struct passwd *getpwuid();
Xextern struct passwd *getpwnam();
X
Xextern char *PasswdFile;
X
END_OF_FILE
if test 644 -ne `wc -c <'uucp2/src/include/pwd.h'`; then
echo shar: \"'uucp2/src/include/pwd.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/include/pwd.h'
fi
if test -f 'uucp2/src/include/rcs.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/include/rcs.h'\"
else
echo shar: Extracting \"'uucp2/src/include/rcs.h'\" \(190 characters\)
sed "s/^X//" >'uucp2/src/include/rcs.h' <<'END_OF_FILE'
X
X/*
X * RCS.H
X *
X * RCSID macro
X *
X * $Header: Beta:src/uucp/src/include/RCS/rcs.h,v 1.1 90/02/02 11:40:08 dillon Exp Locker: dillon $";
X */
X
X#define RCSID(id) static char *RCSId = id;
X
END_OF_FILE
if test 190 -ne `wc -c <'uucp2/src/include/rcs.h'`; then
echo shar: \"'uucp2/src/include/rcs.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/include/rcs.h'
fi
if test -f 'uucp2/src/include/sendmail_protos.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/include/sendmail_protos.h'\"
else
echo shar: Extracting \"'uucp2/src/include/sendmail_protos.h'\" \(280 characters\)
sed "s/^X//" >'uucp2/src/include/sendmail_protos.h' <<'END_OF_FILE'
X
X/* MACHINE GENERATED */
X
X
X/* sendmail.c */
X
X
X/* parse.c */
X
XPrototype int ParseAddress(char *, char *, int);
X
X/* domain.c */
X
XPrototype DomainLookup(char *, int, char *, char *, char *);
XPrototype CompareDomain(char **, short, char **, short);
END_OF_FILE
if test 280 -ne `wc -c <'uucp2/src/include/sendmail_protos.h'`; then
echo shar: \"'uucp2/src/include/sendmail_protos.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/include/sendmail_protos.h'
fi
if test ! -d 'uucp2/src/include/sys' ; then
echo shar: Creating directory \"'uucp2/src/include/sys'\"
mkdir 'uucp2/src/include/sys'
fi
if test -f 'uucp2/src/include/sys/file.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/include/sys/file.h'\"
else
echo shar: Extracting \"'uucp2/src/include/sys/file.h'\" \(248 characters\)
sed "s/^X//" >'uucp2/src/include/sys/file.h' <<'END_OF_FILE'
X
X/*
X * FILE.H
X *
X * UNIX compat.
X *
X * $Header: Beta:src/uucp/src/include/sys/RCS/file.h,v 1.1 90/02/02 11:38:45 dillon Exp Locker: dillon $
X *
X */
X
X#include <fcntl.h>
X
X#define LOCK_EX 0x01
X#define LOCK_UN 0x02
X#define LOCK_NB 0x04
X
END_OF_FILE
if test 248 -ne `wc -c <'uucp2/src/include/sys/file.h'`; then
echo shar: \"'uucp2/src/include/sys/file.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/include/sys/file.h'
fi
if test -f 'uucp2/src/include/sys/stat.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/include/sys/stat.h'\"
else
echo shar: Extracting \"'uucp2/src/include/sys/stat.h'\" \(351 characters\)
sed "s/^X//" >'uucp2/src/include/sys/stat.h' <<'END_OF_FILE'
X
X/*
X * STAT.H
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * Expand as applicable for library routines in uucp:src/lib
X *
X * $Header: Beta:src/uucp/src/include/sys/RCS/stat.h,v 1.1 90/02/02 11:38:48 dillon Exp Locker: dillon $
X *
X */
X
Xstruct stat {
X long st_ino;
X long st_mtime;
X long st_ctime;
X};
X
END_OF_FILE
if test 351 -ne `wc -c <'uucp2/src/include/sys/stat.h'`; then
echo shar: \"'uucp2/src/include/sys/stat.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/include/sys/stat.h'
fi
if test -f 'uucp2/src/include/sys/time.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/include/sys/time.h'\"
else
echo shar: Extracting \"'uucp2/src/include/sys/time.h'\" \(219 characters\)
sed "s/^X//" >'uucp2/src/include/sys/time.h' <<'END_OF_FILE'
X
X/*
X * SYS/TIME.H
X *
X * UNIX Compat
X *
X * $Header: Beta:src/uucp/src/include/sys/RCS/time.h,v 1.1 90/02/02 11:38:49 dillon Exp Locker: dillon $
X *
X */
X
X#ifndef SYS_TIME_H
X#define SYS_TIME_H
X#include <time.h>
X#endif
X
END_OF_FILE
if test 219 -ne `wc -c <'uucp2/src/include/sys/time.h'`; then
echo shar: \"'uucp2/src/include/sys/time.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/include/sys/time.h'
fi
if test -f 'uucp2/src/include/sys/types.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/include/sys/types.h'\"
else
echo shar: Extracting \"'uucp2/src/include/sys/types.h'\" \(235 characters\)
sed "s/^X//" >'uucp2/src/include/sys/types.h' <<'END_OF_FILE'
X
X/*
X * SYS/TYPES.H
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * UNIX compatibility?
X *
X * $Header: Beta:src/uucp/src/include/sys/RCS/types.h,v 1.1 90/02/02 11:38:51 dillon Exp Locker: dillon $
X */
X
X
END_OF_FILE
if test 235 -ne `wc -c <'uucp2/src/include/sys/types.h'`; then
echo shar: \"'uucp2/src/include/sys/types.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/include/sys/types.h'
fi
if test -f 'uucp2/src/include/version.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/include/version.h'\"
else
echo shar: Extracting \"'uucp2/src/include/version.h'\" \(846 characters\)
sed "s/^X//" >'uucp2/src/include/version.h' <<'END_OF_FILE'
X
X/*
X * VERSION.H
X *
X * $Header: Beta:src/uucp/src/include/RCS/version.h,v 1.1 90/02/02 12:15:46 dillon Exp Locker: dillon $
X *
X * Major version number (minor version numbers kept in subsidary
X * files.
X */
X
X#ifndef _CONFIG_H
X#include "config.h"
X#endif
X
X#define VERSION "V1.06D"
X
X#define COPYRIGHT \
X "(C) Copyright 1987 by John Gilmore\n" \
X "Copying and use of this program are controlled by the terms of the Free\n" \
X "Software Foundation's GNU Emacs General Public License.\n" \
X "Amiga Changes Copyright 1988 by William Loftus. All rights reserved.\n" \
X "Additional chgs Copyright 1989 by Matthew Dillon, All Rights Reserved.\n"
X
X#define DCOPYRIGHT \
X "(c)Copyright 1990, Matthew Dillon, all rights reserved\n"
X
X#define IDENT(subv) static char *Ident = "@($)" __FILE__ " " VERSION subv " " __DATE__
X
END_OF_FILE
if test 846 -ne `wc -c <'uucp2/src/include/version.h'`; then
echo shar: \"'uucp2/src/include/version.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/include/version.h'
fi
if test ! -d 'uucp2/src/lib' ; then
echo shar: Creating directory \"'uucp2/src/lib'\"
mkdir 'uucp2/src/lib'
fi
if test -f 'uucp2/src/lib/expand_path.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/lib/expand_path.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/expand_path.c'\" \(753 characters\)
sed "s/^X//" >'uucp2/src/lib/expand_path.c' <<'END_OF_FILE'
X
X/*
X * EXPAND_PATH.C
X *
X * $Header: Beta:src/uucp/src/lib/RCS/lockfile.c,v 1.1 90/02/02 12:08:31 dillon Exp Locker: dillon $
X */
X
X#include <stdio.h>
X#include <string.h>
X#include "config.h"
X
XPrototype char *expand_path(const char *, const char *);
X
Xchar *
Xexpand_path(const char *path, const char *file_name)
X{
X register const char *p;
X static char name[256];
X
X /*
X * If the file_name is a full path name, use that.
X */
X
X p = strchr(file_name, ':');
X
X if ((p != NULL) && (p != file_name))
X return ((char *)file_name);
X
X /*
X * If the path ends in ':' or '/', don't add separator!
X */
X
X p = &path[strlen(path)-1];
X sprintf(name, (*p == ':' || *p == '/') ? "%s%s" : "%s/%s", path, file_name);
X return (name);
X}
X
END_OF_FILE
if test 753 -ne `wc -c <'uucp2/src/lib/expand_path.c'`; then
echo shar: \"'uucp2/src/lib/expand_path.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/expand_path.c'
fi
if test -f 'uucp2/src/lib/getenv.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/lib/getenv.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/getenv.c'\" \(1026 characters\)
sed "s/^X//" >'uucp2/src/lib/getenv.c' <<'END_OF_FILE'
X
X/*
X * GETENV.C
X *
X * $Header: Beta:src/uucp/src/lib/RCS/getenv.c,v 1.1 90/02/02 12:08:18 dillon Exp Locker: dillon $
X *
X * Lattice's screws up.
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X */
X
X#include "protos.h"
X#include <stdio.h>
X#include <stdlib.h>
X#include <string.h>
X#include "config.h"
X
XPrototype char *gettmpenv(const char *);
XPrototype char *getenv(const char *);
X
Xchar *
Xgettmpenv(id)
Xconst char *id;
X{
X static char *buf;
X static char *res = NULL;
X long fh;
X long len;
X
X buf = malloc(strlen(id) + 8);
X sprintf(buf, "ENV:%s", id);
X fh = Open(buf, 1005);
X free(buf);
X if (fh) {
X Seek(fh, 0L, 1);
X len = Seek(fh, 0L, -1);
X if (len < 0) {
X Close(fh);
X return(NULL);
X }
X if (res)
X free(res);
X res = malloc(len + 1);
X Read(fh, res, len);
X Close(fh);
X res[len] = 0;
X return(res);
X }
X return(NULL);
X}
X
Xchar *
Xgetenv(id)
Xconst char *id;
X{
X char *res = gettmpenv(id);
X char *perm = NULL;
X
X if (res)
X perm = strdup(res);
X return(perm);
X}
X
END_OF_FILE
if test 1026 -ne `wc -c <'uucp2/src/lib/getenv.c'`; then
echo shar: \"'uucp2/src/lib/getenv.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/getenv.c'
fi
if test -f 'uucp2/src/lib/getuser.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/lib/getuser.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/getuser.c'\" \(809 characters\)
sed "s/^X//" >'uucp2/src/lib/getuser.c' <<'END_OF_FILE'
X
X/*
X * GETUSER.C
X */
X
X#include <stdio.h>
X#include <stdlib.h>
X#include <fcntl.h>
X#include "config.h"
X
XPrototype char *GetUserName(void);
XPrototype char *GetRealName(void);
X
Xchar *
XGetUserName()
X{
X static char username[64];
X char *user;
X
X if (username[0])
X return(username);
X if ((user = getenv("USERNAME")) || (user = getenv("USER"))) {
X strncpy(username, user, sizeof(username)-1);
X username[sizeof(username)-1] = 0;
X free(user);
X return(username);
X }
X return(FindConfig(USERNAME));
X}
X
X
Xchar *
XGetRealName()
X{
X static char realname[64];
X char *real;
X
X if (realname[0])
X return(realname);
X if (real = getenv("REALNAME")) {
X strncpy(realname, real, sizeof(realname)-1);
X realname[sizeof(realname)-1] = 0;
X free(real);
X return(realname);
X }
X return(FindConfig(REALNAME));
X}
X
END_OF_FILE
if test 809 -ne `wc -c <'uucp2/src/lib/getuser.c'`; then
echo shar: \"'uucp2/src/lib/getuser.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/getuser.c'
fi
if test -f 'uucp2/src/lib/isdir.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/lib/isdir.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/isdir.c'\" \(1066 characters\)
sed "s/^X//" >'uucp2/src/lib/isdir.c' <<'END_OF_FILE'
X
X/*
X * IsDir
X *
X * Confirms that the specified path is a directory.
X *
X * Copyright 1990 by J. Gregory Noel, All Rights Reserved.
X */
X
X#include <libraries/dos.h>
X#include <stdio.h>
X#include <stdlib.h>
X#include "protos.h"
X#include "version.h"
X
XIDENT(".01");
X
XPrototype int IsDir(const char *);
X
X/*
X * The fib must be longword aligned and thus cannot be allocated
X * on the stack or statically.
X */
X
Xint
XIsDir(const char *path)
X{
X BPTR lock;
X struct FileInfoBlock *fib;
X int r = 0;
X
X if (fib = malloc(sizeof(struct FileInfoBlock))) {
X if (lock = Lock(path, ACCESS_READ)) {
X if (Examine(lock, fib)) {
X if (fib->fib_DirEntryType > 0)
X r = 1;
X }
X UnLock(lock);
X }
X free(fib);
X }
X return(r);
X}
X
X#ifdef TEST
Xextern int main(int argc, char **argv);
Xmain(int argc, char **argv)
X{
X char command[100];
X
X if (argc < 2) while (gets(command)) {
X printf("IsDir(%s) returned %d\n", command, IsDir(command));
X } else while (*++argv != NULL) {
X printf("IsDir(%s) returned %d\n", *argv, IsDir(*argv));
X }
X return 0;
X}
X
X#endif
X
X
END_OF_FILE
if test 1066 -ne `wc -c <'uucp2/src/lib/isdir.c'`; then
echo shar: \"'uucp2/src/lib/isdir.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/isdir.c'
fi
if test -f 'uucp2/src/lib/lsys.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/lib/lsys.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/lsys.c'\" \(857 characters\)
sed "s/^X//" >'uucp2/src/lib/lsys.c' <<'END_OF_FILE'
X
X/*
X * LSYS.C
X *
X * $Header: Beta:src/uucp/src/lib/RCS/lsys.c,v 1.1 90/02/02 12:08:20 dillon Exp Locker: dillon $
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X */
X
X#include <exec/types.h>
X#include <stdio.h>
X#include "config.h"
X
XPrototype int is_in_L_sys_file(const char *);
X
Xint
Xis_in_L_sys_file(system_name)
Xconst char *system_name;
X{
X static char buf[256];
X static char system[128];
X FILE *fd;
X char *lsysFile = MakeConfigPath(UULIB, "L.sys");
X
X if (!(fd = fopen(lsysFile, "r"))) {
X printf("Couldn't open %s\n", lsysFile);
X exit(1);
X }
X
X sprintf(system, "%s ", system_name);
X
X while (fgets(buf, sizeof buf, fd)) {
X if (buf[0] == '#' || buf[0] == '\n')
X continue;
X if (strncmp(buf, system, strlen(system)) == 0) {
X fclose(fd);
X return TRUE;
X }
X }
X fclose(fd);
X return FALSE;
X}
X
X
END_OF_FILE
if test 857 -ne `wc -c <'uucp2/src/lib/lsys.c'`; then
echo shar: \"'uucp2/src/lib/lsys.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/lsys.c'
fi
if test -f 'uucp2/src/lib/makeproto.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/lib/makeproto.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/makeproto.c'\" \(723 characters\)
sed "s/^X//" >'uucp2/src/lib/makeproto.c' <<'END_OF_FILE'
X
X/*
X * MAKEPROTO.C
X */
X
X#include <stdio.h>
X
Xvoid ScanFile();
X
Xmain(ac, av)
Xchar *av[];
X{
X short i;
X
X for (i = 1; i < ac; ++i) {
X char *ptr = av[i];
X if (*ptr != '-') {
X ScanFile(ptr);
X continue;
X }
X ptr += 2;
X switch(ptr[-1]) {
X case 'o':
X freopen(ptr, "w", stdout);
X printf("\n/* MACHINE GENERATED */\n\n");
X break;
X }
X }
X return(0);
X}
X
Xvoid
XScanFile(file)
Xchar *file;
X{
X FILE *fi = fopen(file, "r");
X char buf[512];
X
X if (fi == NULL) {
X fprintf(stderr, "makeproto: couldn't open %s\n", file);
X return;
X }
X printf("\n/* %-20s */\n\n", file);
X while (fgets(buf, sizeof(buf), fi)) {
X if (strncmp(buf, "Prototype", 9) == 0)
X fputs(buf, stdout);
X }
X fclose(fi);
X}
X
END_OF_FILE
if test 723 -ne `wc -c <'uucp2/src/lib/makeproto.c'`; then
echo shar: \"'uucp2/src/lib/makeproto.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/makeproto.c'
fi
if test -f 'uucp2/src/lib/mntreq.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/lib/mntreq.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/mntreq.c'\" \(756 characters\)
sed "s/^X//" >'uucp2/src/lib/mntreq.c' <<'END_OF_FILE'
X
X/*
X * MNTREQ.C
X *
X * $Header: Beta:src/uucp/src/lib/RCS/mntreq.c,v 1.1 90/02/02 12:08:27 dillon Exp Locker: dillon $
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X */
X
X#include <exec/types.h>
X#include <libraries/dos.h>
X#include <libraries/dosextens.h>
X#include <stdio.h>
X#include "config.h"
X
Xtypedef struct Process PROC;
X
XPrototype void mountrequest(int);
X
Xvoid
Xmountrequest(bool)
Xint bool;
X{
X static APTR original_pr_WindowPtr = NULL;
X register PROC *proc;
X
X proc = (PROC *)FindTask(0);
X if (!bool && proc->pr_WindowPtr != (APTR)-1) {
X original_pr_WindowPtr = proc->pr_WindowPtr;
X proc->pr_WindowPtr = (APTR)-1;
X }
X if (bool && proc->pr_WindowPtr == (APTR)-1)
X proc->pr_WindowPtr = original_pr_WindowPtr;
X}
X
END_OF_FILE
if test 756 -ne `wc -c <'uucp2/src/lib/mntreq.c'`; then
echo shar: \"'uucp2/src/lib/mntreq.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/mntreq.c'
fi
if test -f 'uucp2/src/lib/seq.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/lib/seq.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/seq.c'\" \(865 characters\)
sed "s/^X//" >'uucp2/src/lib/seq.c' <<'END_OF_FILE'
X
X/*
X * SEQ.C
X *
X * $Header: Beta:src/uucp/src/lib/RCS/seq.c,v 1.1 90/02/02 12:08:40 dillon Exp Locker: dillon $
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * Returns a unique sequence number
X */
X
X#include <stdio.h>
X#include "config.h"
X
XPrototype int GetSequence(int);
X
Xint
XGetSequence(bump)
Xint bump;
X{
X char *seqLockFile = "seq";
X FILE *fp;
X char *fileName = MakeConfigPath(UULIB, "seq");
X int seq;
X char buf[32];
X
X LockFile(seqLockFile);
X fp = fopen(fileName, "r");
X if (fp) {
X fgets(buf, 32, fp);
X seq = atoi(buf);
X fclose(fp);
X } else {
X perror(fileName);
X seq = -1;
X }
X
X if (bump && seq >= 0) {
X fp = fopen(fileName, "w");
X if (fp) {
X fprintf(fp,"%d", seq + bump);
X fclose(fp);
X } else {
X perror(fileName);
X seq = -1;
X }
X }
X UnLockFile(seqLockFile);
X return(seq);
X}
X
END_OF_FILE
if test 865 -ne `wc -c <'uucp2/src/lib/seq.c'`; then
echo shar: \"'uucp2/src/lib/seq.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/seq.c'
fi
if test -f 'uucp2/src/lib/setstdin.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/lib/setstdin.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/setstdin.c'\" \(990 characters\)
sed "s/^X//" >'uucp2/src/lib/setstdin.c' <<'END_OF_FILE'
X
X/*
X * SETSTDIN.C
X *
X * $Header: Beta:src/uucp/src/lib/RCS/setstdin.c,v 1.1 90/02/02 12:08:28 dillon Exp Locker: dillon $
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * Sets stdin, stdout, and stderr to UUSER: handler
X */
X
X#include <stdio.h>
X#include "config.h"
X
XPrototype int SetStdin(int, char **);
X
Xint
XSetStdin(ac, av)
Xint ac;
Xchar **av;
X{
X short i;
X short getty = 0; /* from getty */
X char *device = "serial.device"; /* device name */
X long unit = 0; /* unit no. */
X char buf[64];
X FILE *f1, *f2, *f3;
X
X for (i = 1; i < ac; ++i) {
X char *ptr = av[i];
X if (*ptr != '-')
X continue;
X if (ptr[1] == 'D')
X device = av[++i];
X if (ptr[1] == 'U')
X unit = atoi(av[++i]);
X if (ptr[1] == 'G')
X getty = 1;
X }
X sprintf(buf, "UUSER:%s/%d/R1000G%d", device, unit, getty);
X f1 = freopen(buf, "r", stdin);
X f2 = freopen(buf, "w+", stdout);
X f3 = freopen(buf, "w+", stderr);
X return(f1 && f2 && f3);
X}
X
END_OF_FILE
if test 990 -ne `wc -c <'uucp2/src/lib/setstdin.c'`; then
echo shar: \"'uucp2/src/lib/setstdin.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/setstdin.c'
fi
if test -f 'uucp2/src/lib/sleep.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/lib/sleep.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/sleep.c'\" \(337 characters\)
sed "s/^X//" >'uucp2/src/lib/sleep.c' <<'END_OF_FILE'
X
X/*
X * SLEEP.C
X *
X * $Header: Beta:src/uucp/src/lib/RCS/sleep.c,v 1.1 90/02/02 12:08:34 dillon Exp Locker: dillon $
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X */
X
X#include <stdio.h>
X#include "protos.h"
X#include "config.h"
X
XPrototype void sleep(int);
X
Xvoid
Xsleep(n)
Xint n;
X{
X if (n)
X Delay(50*n);
X}
X
END_OF_FILE
if test 337 -ne `wc -c <'uucp2/src/lib/sleep.c'`; then
echo shar: \"'uucp2/src/lib/sleep.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/sleep.c'
fi
if test -f 'uucp2/src/lib/string.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/lib/string.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/string.c'\" \(868 characters\)
sed "s/^X//" >'uucp2/src/lib/string.c' <<'END_OF_FILE'
X
X/*
X * STRING.C
X *
X * $Header: Beta:src/uucp/src/lib/RCS/string.c,v 1.1 90/02/02 12:08:41 dillon Exp Locker: dillon $
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X */
X
X#include <stdio.h>
X#include "config.h"
X
XPrototype int strcmpi(const char *, const char *);
XPrototype int strncmpi(const char *, const char *, int);
X
Xint
Xstrcmpi(s, d)
Xconst char *s;
Xconst char *d;
X{
X short c1, c2;
X for (;;) {
X c1 = *s++;
X c2 = *d++;
X
X if (c1 == 0 || c2 == 0)
X return(c1 || c2); /* 0= both are 0 */
X if (((c1 ^ c2) | 0x20) != 0x20)
X return(1);
X }
X return(0);
X}
X
Xint
Xstrncmpi(s, d, n)
Xconst char *s;
Xconst char *d;
Xint n;
X{
X short c1, c2;
X while (n--) {
X c1 = *s++;
X c2 = *d++;
X
X if (c1 == 0 || c2 == 0)
X return(c1 || c2); /* 0= both are 0 */
X if (((c1 ^ c2) | 0x20) != 0x20)
X return(1);
X }
X return(0);
X}
X
END_OF_FILE
if test 868 -ne `wc -c <'uucp2/src/lib/string.c'`; then
echo shar: \"'uucp2/src/lib/string.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/string.c'
fi
if test -f 'uucp2/src/lib/syms.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/lib/syms.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/syms.c'\" \(155 characters\)
sed "s/^X//" >'uucp2/src/lib/syms.c' <<'END_OF_FILE'
X
X/*
X * $Header: Beta:src/uucp/src/lib/RCS/syms.c,v 1.1 90/02/02 12:08:23 dillon Exp Locker: dillon $
X */
X
X#include <exec/types.h>
X#include <proto/all.h>
X
END_OF_FILE
if test 155 -ne `wc -c <'uucp2/src/lib/syms.c'`; then
echo shar: \"'uucp2/src/lib/syms.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/syms.c'
fi
if test -f 'uucp2/src/lib/tmpfile.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/lib/tmpfile.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/tmpfile.c'\" \(570 characters\)
sed "s/^X//" >'uucp2/src/lib/tmpfile.c' <<'END_OF_FILE'
X
X/*
X * TMPFILE.C
X *
X * $Header: Beta:src/uucp/src/lib/RCS/tmpfile.c,v 1.1 90/02/02 12:08:29 dillon Exp Locker: dillon $
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * create a temporary file
X *
X * template limited to 16 chars
X */
X
X#include <stdio.h>
X#include "config.h"
X
XPrototype char *TmpFileName(const char *);
X
Xchar *
XTmpFileName(template)
Xconst char *template;
X{
X static char Template[256];
X static unsigned short Idx;
X
X sprintf(Template, "%s-%08lx.TMP", template, (long)FindTask(NULL) + Idx++);
X return(Template);
X}
X
END_OF_FILE
if test 570 -ne `wc -c <'uucp2/src/lib/tmpfile.c'`; then
echo shar: \"'uucp2/src/lib/tmpfile.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/tmpfile.c'
fi
if test -f 'uucp2/src/lib/validuser.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/lib/validuser.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/validuser.c'\" \(534 characters\)
sed "s/^X//" >'uucp2/src/lib/validuser.c' <<'END_OF_FILE'
X
X/*
X * VALIDUSER.C
X *
X * $Header: Beta:src/uucp/src/lib/RCS/validuser.c,v 1.1 90/02/02 12:08:42 dillon Exp Locker: dillon $
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X */
X
X#include "stdio.h"
X#include "config.h"
X
XPrototype int ValidUser(const char *);
X
Xint
XValidUser(str)
Xconst char *str;
X{
X if (*str == '|' || *str == '@')
X return(0);
X while (*str) {
X if (*str < 32 || *str > 126)
X return(0);
X if (*str == ':')
X return(0);
X if (*str == '/')
X return(0);
X ++str;
X }
X return(1);
X}
X
END_OF_FILE
if test 534 -ne `wc -c <'uucp2/src/lib/validuser.c'`; then
echo shar: \"'uucp2/src/lib/validuser.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/validuser.c'
fi
if test -f 'uucp2/src/mkall' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/mkall'\"
else
echo shar: Extracting \"'uucp2/src/mkall'\" \(328 characters\)
sed "s/^X//" >'uucp2/src/mkall' <<'END_OF_FILE'
X
Xcd lib
Xecho lib
Xdmake
Xcd /dnews
Xecho dnews
Xdmake
Xcd /anews
Xecho anews
Xdmake
Xcd /news
Xecho news
Xdmake
Xcd /unix
Xecho unix
Xdmake
Xcd /uucico
Xecho uucico
Xdmake
Xcd /util
Xecho util
Xdmake
Xcd /gutil
Xecho gutil
Xdmake
Xcd /dmail
Xecho dmail
Xdmake
Xcd /uuser
Xecho uuser
Xdmake
Xcd /getty
Xecho getty
Xdmake
Xcd /sendmail
Xecho sendmail
Xdmake
Xcd /
X
END_OF_FILE
if test 328 -ne `wc -c <'uucp2/src/mkall'`; then
echo shar: \"'uucp2/src/mkall'\" unpacked with wrong size!
fi
# end of 'uucp2/src/mkall'
fi
if test -f 'uucp2/src/mkall-dcc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/mkall-dcc'\"
else
echo shar: Extracting \"'uucp2/src/mkall-dcc'\" \(532 characters\)
sed "s/^X//" >'uucp2/src/mkall-dcc' <<'END_OF_FILE'
X
Xcd lib
Xecho lib
Xdmake -f DMakefile.dcc
Xcd /dnews
Xecho dnews
Xdmake -f DMakefile.dcc
Xcd /anews
Xecho anews
Xdmake -f DMakefile.dcc
Xcd /news
Xecho news
Xdmake -f DMakefile.dcc
Xcd /unix
Xecho unix
Xdmake -f DMakefile.dcc
Xcd /uucico
Xecho uucico
Xdmake -f DMakefile.dcc
Xcd /util
Xecho util
Xdmake -f DMakefile.dcc
Xcd /gutil
Xecho gutil
Xdmake -f DMakefile.dcc
Xcd /dmail
Xecho dmail
Xdmake -f DMakefile.dcc
Xcd /uuser
Xecho uuser
Xdmake -f DMakefile.dcc
Xcd /getty
Xecho getty
Xdmake -f DMakefile.dcc
Xcd /sendmail
Xecho sendmail
Xdmake -f DMakefile.dcc
Xcd /
X
END_OF_FILE
if test 532 -ne `wc -c <'uucp2/src/mkall-dcc'`; then
echo shar: \"'uucp2/src/mkall-dcc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/mkall-dcc'
fi
if test ! -d 'uucp2/src/news' ; then
echo shar: Creating directory \"'uucp2/src/news'\"
mkdir 'uucp2/src/news'
fi
if test -f 'uucp2/src/news/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/news/DMakefile'\"
else
echo shar: Extracting \"'uucp2/src/news/DMakefile'\" \(504 characters\)
sed "s/^X//" >'uucp2/src/news/DMakefile' <<'END_OF_FILE'
X
XOD= ltmp:uucp/
X
XRSRCS= rnews.c
XPSRCS= postnews.c
X
XROBJS= $(RSRCS:"*.c":"$(OD)*.o")
XPOBJS= $(PSRCS:"*.c":"$(OD)*.o")
X
XPEXE= uucp:c/postnews
XREXE= uucp:c/rnews
X
XCFLAGS = -iuucp:src/include/ -cq -v -b0
XLIBS= ltmp:uucp/lib/uucp.lib lib:lc.lib lib:amiga.lib
X
Xall : $(PEXE) $(REXE)
X
X$(PEXE) : $(POBJS)
X blink from lib:c.o $(POBJS) to %(left) lib $(LIBS)
X
X$(REXE) : $(ROBJS)
X blink from lib:c.o $(ROBJS) to %(left) lib $(LIBS)
X
X$(POBJS) $(ROBJS) : $(PSRCS) $(RSRCS)
X lc $(CFLAGS) -o%(left) %(right)
X
X
END_OF_FILE
if test 504 -ne `wc -c <'uucp2/src/news/DMakefile'`; then
echo shar: \"'uucp2/src/news/DMakefile'\" unpacked with wrong size!
fi
# end of 'uucp2/src/news/DMakefile'
fi
if test -f 'uucp2/src/news/DMakefile.dcc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/news/DMakefile.dcc'\"
else
echo shar: Extracting \"'uucp2/src/news/DMakefile.dcc'\" \(493 characters\)
sed "s/^X//" >'uucp2/src/news/DMakefile.dcc' <<'END_OF_FILE'
X
X# DMakefile for DCC (dillon's compiler)
X
XOD= dtmp:uucp/
X
XRSRCS= rnews.c
XPSRCS= postnews.c
X
XROBJS= $(RSRCS:"*.c":"$(OD)*.o")
XPOBJS= $(PSRCS:"*.c":"$(OD)*.o")
X
XPEXE= uucp:c/postnews
XREXE= uucp:c/rnews
X
XCFLAGS = -I uucp:src/include/
XLIBS= dtmp:uucp/lib/uucp.lib
X
Xall : $(PEXE) $(REXE)
X
X$(PEXE) : $(POBJS)
X dcc $(POBJS) $(LIBS) -o %(left) -s -r
X
X$(REXE) : $(ROBJS)
X dcc $(ROBJS) $(LIBS) -o %(left) -s -r
X
X$(POBJS) $(ROBJS) : $(PSRCS) $(RSRCS)
X dcc $(CFLAGS) %(right) -o %(left) -r -c
X
END_OF_FILE
if test 493 -ne `wc -c <'uucp2/src/news/DMakefile.dcc'`; then
echo shar: \"'uucp2/src/news/DMakefile.dcc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/news/DMakefile.dcc'
fi
if test -f 'uucp2/src/news/version.doc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/news/version.doc'\"
else
echo shar: Extracting \"'uucp2/src/news/version.doc'\" \(995 characters\)
sed "s/^X//" >'uucp2/src/news/version.doc' <<'END_OF_FILE'
X
XRNEWS:
X .04 (1.06)
X RNewsDebug config variable support added to make debugging
X news easy.
X
X .03 (1.06)
X rnews extensively rewritten to increase efficiency.
X The sequence number now rolls over at 32767->0
X
X .02 (1.05) uses library routines to obtain various directories
X and files.
X
XANEWS:
X .03 (1.06)
X Now handles r/Reply and f/Followup properly. Fixed memory
X free bug in followup.
X
X Tries to use <user>.signature file before .signature in
X your UULIB:
X
X .02
X Now handles reply,Reply, and posting
X
X Now accepts -r rows -c columns arguments to command
X line to set window size (does not yet do so automatically)
X
X Now accepts -p group on the command line to explicitly
X post to a newsgroup.
X
X 'q' and 'Q' bump you back to the top level instead of
X exiting.
X
X 'Q' does not delete any articles when you bump back.
X
X .01 1.03D release
X
XPOSTNEWS:
X .03
X Rewritten completely w/ new options to support third-party
X news handlers (and DNews)
X
X .02
X First numbered release 1.05D
X
END_OF_FILE
if test 995 -ne `wc -c <'uucp2/src/news/version.doc'`; then
echo shar: \"'uucp2/src/news/version.doc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/news/version.doc'
fi
if test ! -d 'uucp2/src/sendmail' ; then
echo shar: Creating directory \"'uucp2/src/sendmail'\"
mkdir 'uucp2/src/sendmail'
fi
if test -f 'uucp2/src/sendmail/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/sendmail/DMakefile'\"
else
echo shar: Extracting \"'uucp2/src/sendmail/DMakefile'\" \(750 characters\)
sed "s/^X//" >'uucp2/src/sendmail/DMakefile' <<'END_OF_FILE'
X
X#
X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X#
X# $Header: Beta:src/uucp/src/sendmail/RCS/DMakefile,v 1.1 90/02/02 12:14:58 dillon Exp Locker: dillon $
X#
X
XOD= ltmp:uucp/
XSYMS= uucp:src/lib/all.m
XSRCS= sendmail.c parse.c domain.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XCFLAGS= -iuucp:src/include/ -cim -cq
XEXE= uucp:c/
XLIBS= ltmp:uucp/lib/uucp.lib lib:lc.lib lib:amiga.lib
XPROTOS= uucp:src/include/sendmail_protos.h
XMAKEPROTO= ltmp:uucp/lib/makeproto
X
Xall: $(PROTOS) $(EXE)sendmail
X
X$(EXE)sendmail: $(OBJS)
X blink from lib:cres.o $(OBJS) SC SD TO %(left) lib $(LIBS)
X copy $(EXE)sendmail $(EXE)rmail
X
X$(OBJS) : $(SRCS)
X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
X
X$(PROTOS) : $(SRCS)
X $(MAKEPROTO) -o%(left) %(right)
X
END_OF_FILE
if test 750 -ne `wc -c <'uucp2/src/sendmail/DMakefile'`; then
echo shar: \"'uucp2/src/sendmail/DMakefile'\" unpacked with wrong size!
fi
# end of 'uucp2/src/sendmail/DMakefile'
fi
if test -f 'uucp2/src/sendmail/DMakefile.dcc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/sendmail/DMakefile.dcc'\"
else
echo shar: Extracting \"'uucp2/src/sendmail/DMakefile.dcc'\" \(668 characters\)
sed "s/^X//" >'uucp2/src/sendmail/DMakefile.dcc' <<'END_OF_FILE'
X
X#
X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X#
X# $Header: Beta:src/uucp/src/sendmail/RCS/DMakefile,v 1.1 90/02/02 12:14:58 dillon Exp Locker: dillon $
X#
X
XOD= dtmp:uucp/
XSRCS= sendmail.c parse.c domain.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XCFLAGS= -I uucp:src/include/
XEXE= uucp:c/
XLIBS= dtmp:uucp/lib/uucp.lib
XPROTOS= uucp:src/include/sendmail_protos.h
XMAKEPROTO= dtmp:uucp/lib/makeproto
X
Xall: $(PROTOS) $(EXE)sendmail
X
X$(EXE)sendmail: $(OBJS)
X dcc $(OBJS) -o %(left) $(LIBS) -s -r
X copy $(EXE)sendmail $(EXE)rmail
X
X$(OBJS) : $(SRCS)
X dcc $(CFLAGS) %(right) -o %(left) -c -r
X
X$(PROTOS) : $(SRCS)
X $(MAKEPROTO) -o%(left) %(right)
X
END_OF_FILE
if test 668 -ne `wc -c <'uucp2/src/sendmail/DMakefile.dcc'`; then
echo shar: \"'uucp2/src/sendmail/DMakefile.dcc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/sendmail/DMakefile.dcc'
fi
if test -f 'uucp2/src/sendmail/defs.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/sendmail/defs.h'\"
else
echo shar: Extracting \"'uucp2/src/sendmail/defs.h'\" \(335 characters\)
sed "s/^X//" >'uucp2/src/sendmail/defs.h' <<'END_OF_FILE'
X
X/*
X * DEFS.H
X */
X
X#include <exec/types.h>
X#include <exec/lists.h>
X#include <stdio.h>
X#include <stdlib.h>
X#include <string.h>
X#include "version.h"
X#include "sendmail_protos.h"
X
X#ifndef LATTICE
Xextern void AddTail(void *, void *);
Xextern void AddHead(void *, void *);
Xextern void *RemHead(void *);
Xextern void *RemTail(void *);
X#endif
END_OF_FILE
if test 335 -ne `wc -c <'uucp2/src/sendmail/defs.h'`; then
echo shar: \"'uucp2/src/sendmail/defs.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/sendmail/defs.h'
fi
if test -f 'uucp2/src/sendmail/version.doc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/sendmail/version.doc'\"
else
echo shar: Extracting \"'uucp2/src/sendmail/version.doc'\" \(725 characters\)
sed "s/^X//" >'uucp2/src/sendmail/version.doc' <<'END_OF_FILE'
X
X
X $Header: Beta:src/uucp/src/sendmail/RCS/version.doc,v 1.1 90/02/02 12:15:06 dillon Exp Locker: dillon $
X
XSENDMAIL:
X
X .06
X Uses USERNAME and REALNAME ENV: variables if they exist, else
X falls back to Config entries.
X
X .05
X Intermediate
X
X .04
X Runs program specified by 'MailReadyCmd' Config entry when
X local mail sent.
X
X Fixes local mail. sending mail to yourself 'myself!user' instead
X of just 'user' now works properly. Also fixes bug in some
X versions of UUPC (e.g. Mac UUPC) that do not remove the
X destination machine from the rmail line.
X
X Without this fix improperly formatted rmail lines from other
X UUPCs will route through our default route instead of to us.
X
X .03
X
END_OF_FILE
if test 725 -ne `wc -c <'uucp2/src/sendmail/version.doc'`; then
echo shar: \"'uucp2/src/sendmail/version.doc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/sendmail/version.doc'
fi
if test ! -d 'uucp2/src/unix' ; then
echo shar: Creating directory \"'uucp2/src/unix'\"
mkdir 'uucp2/src/unix'
fi
if test ! -d 'uucp2/src/util' ; then
echo shar: Creating directory \"'uucp2/src/util'\"
mkdir 'uucp2/src/util'
fi
if test -f 'uucp2/src/util/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/util/DMakefile'\"
else
echo shar: Extracting \"'uucp2/src/util/DMakefile'\" \(928 characters\)
sed "s/^X//" >'uucp2/src/util/DMakefile' <<'END_OF_FILE'
X
X# DMakefile
X#
X# $Header: Beta:src/uucp/src/MUtil/RCS/DMakefile,v 1.3 90/04/03 20:44:46 dillon Exp Locker: dillon $
X#
X
XOD=ltmp:uucp/
XSRCS= from.c man.c expandm.c trimfile.c inform.c uusplit.c uident.c trimnews.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XSYMS= uucp:src/lib/all.m
XCFLAGS= -iuucp:src/include/ -iuucp:src/ -cq -v
XEXE= uucp:c/
XLIBS= ltmp:uucp/lib/uucp.lib lib:lc.lib lib:amiga.lib
X
XBLINK= blink from lib:cres.o %(right) TO %(left) SC SD LIB $(LIBS)
X
Xall: $(EXE)expand $(EXE)from $(EXE)man $(EXE)expandm $(EXE)trimfile \
X $(EXE)inform $(EXE)uusplit $(EXE)uident
X
X$(EXE)inform: $(OD)inform.o
X $(BLINK)
X
X$(EXE)trimfile: $(OD)trimfile.o
X $(BLINK)
X
X$(EXE)expandm: $(OD)expandm.o
X $(BLINK)
X
X$(EXE)from: $(OD)from.o
X $(BLINK)
X
X$(EXE)man: $(OD)man.o
X $(BLINK)
X
X$(EXE)uusplit: $(OD)uusplit.o
X $(BLINK)
X
X$(EXE)uident: $(OD)uident.o
X $(BLINK)
X
X$(OBJS) : $(SRCS)
X lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
X
END_OF_FILE
if test 928 -ne `wc -c <'uucp2/src/util/DMakefile'`; then
echo shar: \"'uucp2/src/util/DMakefile'\" unpacked with wrong size!
fi
# end of 'uucp2/src/util/DMakefile'
fi
if test -f 'uucp2/src/util/DMakefile.dcc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/util/DMakefile.dcc'\"
else
echo shar: Extracting \"'uucp2/src/util/DMakefile.dcc'\" \(910 characters\)
sed "s/^X//" >'uucp2/src/util/DMakefile.dcc' <<'END_OF_FILE'
X
X# DMakefile
X#
X# $Header: Beta:src/uucp/src/MUtil/RCS/DMakefile,v 1.3 90/04/03 20:44:46 dillon Exp Locker: dillon $
X#
X
XOD=dtmp:uucp/
XSRCS= from.c man.c expandm.c trimfile.c inform.c uusplit.c uident.c trimnews.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XCFLAGS= -I uucp:src/include/ -I uucp:src/
XEXE= uucp:c/
XLIBS= dtmp:uucp/lib/uucp.lib
X
XDLINK= dcc %(right) $(LIBS) -o %(left) -r -s
X
Xall: $(EXE)expand $(EXE)from $(EXE)man $(EXE)expandm $(EXE)trimfile \
X $(EXE)inform $(EXE)uusplit $(EXE)uident $(EXE)trimnews
X
X$(EXE)inform: $(OD)inform.o
X $(DLINK)
X
X$(EXE)trimnews: $(OD)trimnews.o
X $(DLINK)
X
X$(EXE)trimfile: $(OD)trimfile.o
X $(DLINK)
X
X$(EXE)expandm: $(OD)expandm.o
X $(DLINK)
X
X$(EXE)from: $(OD)from.o
X $(DLINK)
X
X$(EXE)man: $(OD)man.o
X $(DLINK)
X
X$(EXE)uusplit: $(OD)uusplit.o
X $(DLINK)
X
X$(EXE)uident: $(OD)uident.o
X $(DLINK)
X
X$(OBJS) : $(SRCS)
X dcc $(CFLAGS) %(right) -o %(left) -c -r
X
END_OF_FILE
if test 910 -ne `wc -c <'uucp2/src/util/DMakefile.dcc'`; then
echo shar: \"'uucp2/src/util/DMakefile.dcc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/util/DMakefile.dcc'
fi
if test -f 'uucp2/src/util/expandm.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/util/expandm.c'\"
else
echo shar: Extracting \"'uucp2/src/util/expandm.c'\" \(578 characters\)
sed "s/^X//" >'uucp2/src/util/expandm.c' <<'END_OF_FILE'
X
X/*
X * EXPANDM.C expands alias via uulib:Aliases and prints
X * results
X *
X * $Header: Beta:src/uucp/src/MUtil/RCS/expandm.c,v 1.1 90/02/02 12:11:56 dillon Exp Locker: dillon $
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * EXPANDM alias
X */
X
X#include <stdio.h>
X#include "config.h"
X
Xmain(ac, av)
Xchar *av[];
X{
X short i;
X void callBack();
X
X LoadAliases();
X for (i = 1; i < ac; ++i) {
X printf("%s:", av[i]);
X UserAliasList(av[i], callBack);
X }
X puts("");
X}
X
Xvoid
XcallBack(name)
Xchar *name;
X{
X printf(" %s", name);
X}
X
END_OF_FILE
if test 578 -ne `wc -c <'uucp2/src/util/expandm.c'`; then
echo shar: \"'uucp2/src/util/expandm.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/util/expandm.c'
fi
if test -f 'uucp2/src/util/uident.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/util/uident.c'\"
else
echo shar: Extracting \"'uucp2/src/util/uident.c'\" \(1066 characters\)
sed "s/^X//" >'uucp2/src/util/uident.c' <<'END_OF_FILE'
X
X/*
X * UIDENT.C
X *
X * $Header: Beta:src/uucp/src/GUtil/RCS/uident.c,v 1.1 90/02/02 11:58:56 dillon Exp Locker: dillon $
X *
X * (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X *
X * UIDENT files...
X *
X * Searches for @($) <string> \0 and prints out
X */
X
X#include <stdio.h>
X#include <fcntl.h>
X#include "version.h"
X
XIDENT(".02");
X
Xvoid FindIdent(char *, int);
X
Xchar Buf[8192];
X
Xvoid
Xmain(ac, av)
Xchar **av;
X{
X short i;
X int fd;
X
X for (i = 1; i < ac; ++i) {
X fd = open(av[i], O_RDONLY);
X if (fd > 0)
X FindIdent(av[i], fd);
X else
X printf("%-15s (unable to open)", av[i]);
X puts("");
X fflush(stdout);
X if (fd > 0)
X close(fd);
X }
X}
X
Xvoid
XFindIdent(file, fd)
Xchar *file;
Xint fd;
X{
X long n;
X long i;
X long x = 0;
X
X while ((n = read(fd, Buf + x, sizeof(Buf) - x)) > 0) {
X n += x;
X for (i = n - 128; i >= 0; --i) {
X if (Buf[i] == '@' && Buf[i+1] == '(' && Buf[i+2] == '$' && Buf[i+3] == ')') {
X printf("%-15s %s\n", file, Buf + i);
X }
X }
X x = 128;
X if (n < x)
X x = n;
X movmem(Buf + n - x, Buf, x);
X }
X}
X
END_OF_FILE
if test 1066 -ne `wc -c <'uucp2/src/util/uident.c'`; then
echo shar: \"'uucp2/src/util/uident.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/util/uident.c'
fi
if test -f 'uucp2/src/util/version.doc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/util/version.doc'\"
else
echo shar: Extracting \"'uucp2/src/util/version.doc'\" \(192 characters\)
sed "s/^X//" >'uucp2/src/util/version.doc' <<'END_OF_FILE'
X
X VERSION.DOC
X
XFROM.C
X .02 Adds \n to each output line (oops!)
X
X .01 Prints message # and formats better
X
X .00
X
XUIDENT.C
X .02 Properly handles multiple idents in a single executable
X
X .01
X
END_OF_FILE
if test 192 -ne `wc -c <'uucp2/src/util/version.doc'`; then
echo shar: \"'uucp2/src/util/version.doc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/util/version.doc'
fi
if test ! -d 'uucp2/src/uucico' ; then
echo shar: Creating directory \"'uucp2/src/uucico'\"
mkdir 'uucp2/src/uucico'
fi
if test -f 'uucp2/src/uucico/includes.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/uucico/includes.h'\"
else
echo shar: Extracting \"'uucp2/src/uucico/includes.h'\" \(631 characters\)
sed "s/^X//" >'uucp2/src/uucico/includes.h' <<'END_OF_FILE'
X
X/*
X * INCLUDES.H
X *
X * $Header: Beta:src/uucp/src/uucico/RCS/includes.h,v 1.1 90/02/02 11:55:53 dillon Exp Locker: dillon $
X */
X
X#define NAMESIZE 256
X
X#include <exec/types.h>
X#include <fcntl.h>
X#include <exec/exec.h>
X#include <devices/serial.h>
X#include <devices/keymap.h>
X#include <devices/timer.h>
X#include <libraries/dos.h>
X
X#include "protos.h" /* other system protos */
X
X#include <stdio.h>
X#include <stdlib.h>
X#include <string.h>
X#include <ctype.h>
X#include <time.h>
X#include <signal.h>
X#include "config.h" /* lib protos and config stuff */
X#include "uucico_protos.h" /* uucico protos */
X
END_OF_FILE
if test 631 -ne `wc -c <'uucp2/src/uucico/includes.h'`; then
echo shar: \"'uucp2/src/uucico/includes.h'\" unpacked with wrong size!
fi
# end of 'uucp2/src/uucico/includes.h'
fi
if test -f 'uucp2/src/uucico/uuhosts.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/uucico/uuhosts.c'\"
else
echo shar: Extracting \"'uucp2/src/uucico/uuhosts.c'\" \(802 characters\)
sed "s/^X//" >'uucp2/src/uucico/uuhosts.c' <<'END_OF_FILE'
X
X/*
X * UUHOSTS -- List all UUCP sites connected to our system
X *
X * $Header: Beta:src/uucp/src/uucico/RCS/uuhosts.c,v 1.1 90/02/02 11:55:57 dillon Exp Locker: dillon $
X *
X *
X * Usage: UUHOSTS
X *
X * Copyright 1988 by William Loftus. All rights reserved.
X *
X * ARPA: wpl@prc.unisys.com
X * UUCP: wpl@burdvax.UUCP
X * USMAIL: Unisys/Paoli Research Center;PO BOX 517;Paoli, PA 19301-0517
X *
X */
X
X#include <stdio.h>
X#include "version.h"
X
XIDENT(".02");
X
Xvoid
Xmain()
X{
X char buf[256];
X FILE *fd;
X
X if (!(fd = fopen(MakeConfigPath(UULIB, "L.sys"), "r"))) {
X printf("Couldn't open L.sys file\n");
X exit(1);
X }
X
X while (fgets(buf, sizeof buf, fd)) {
X if (buf[0] == '#' || buf[0] == '\n')
X continue;
X buf[(int)strchr(buf,' ') - (int)buf] = '\0';
X printf("%s\n", buf);
X }
X fclose(fd);
X}
X
END_OF_FILE
if test 802 -ne `wc -c <'uucp2/src/uucico/uuhosts.c'`; then
echo shar: \"'uucp2/src/uucico/uuhosts.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/uucico/uuhosts.c'
fi
if test -f 'uucp2/src/uucico/uuname.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/uucico/uuname.c'\"
else
echo shar: Extracting \"'uucp2/src/uucico/uuname.c'\" \(859 characters\)
sed "s/^X//" >'uucp2/src/uucico/uuname.c' <<'END_OF_FILE'
X
X/*
X * UUNAME.C
X *
X * $Header: Beta:src/uucp/src/uucico/RCS/uuname.c,v 1.1 90/02/02 11:56:07 dillon Exp Locker: dillon $
X *
X * UUHOSTS -- List all UUCP sites connected to our system
X *
X * Usage: UUHOSTS
X *
X * Copyright 1988 by William Loftus. All rights reserved.
X *
X * ARPA: wpl@prc.unisys.com
X * UUCP: wpl@burdvax.UUCP
X * USMAIL: Unisys/Paoli Research Center;PO BOX 517;Paoli, PA 19301-0517
X */
X
X#include <stdio.h>
X#include <stdlib.h>
X#include <string.h>
X#include "version.h"
X
XIDENT(".01");
X
Xvoid
Xmain()
X{
X char buf[256];
X FILE *fd;
X
X if (!(fd = fopen(MakeConfigPath(UULIB, "L.sys"), "r"))) {
X printf("Couldn't open L.sys file\n");
X exit(1);
X }
X
X while (fgets(buf, sizeof buf, fd)) {
X if (buf[0] == '#' || buf[0] == '\n')
X continue;
X buf[(int)strchr(buf,' ') - (int)buf] = '\0';
X printf("%s\n", buf);
X }
X
X fclose(fd);
X}
X
X
END_OF_FILE
if test 859 -ne `wc -c <'uucp2/src/uucico/uuname.c'`; then
echo shar: \"'uucp2/src/uucico/uuname.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/uucico/uuname.c'
fi
if test ! -d 'uucp2/src/uuser' ; then
echo shar: Creating directory \"'uucp2/src/uuser'\"
mkdir 'uucp2/src/uuser'
fi
if test -f 'uucp2/src/uuser/DMakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/uuser/DMakefile'\"
else
echo shar: Extracting \"'uucp2/src/uuser/DMakefile'\" \(645 characters\)
sed "s/^X//" >'uucp2/src/uuser/DMakefile' <<'END_OF_FILE'
X
X# DMakefile for uuser:
X#
X# $Header: Beta:src/uucp/src/uuser/RCS/DMakefile,v 1.1 90/02/02 12:10:12 dillon Exp Locker: dillon $
X#
X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X
XOD= ltmp:uucp/
XSYMS= uucp:src/lib/all.m
XSRCS= uuser.c misc.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XCFLAGS= -iuucp:src/include/ -cimq -v
XLEXE= uucp:l/
X#LIBS= ltmp:uucp/lib/uucp.lib lib:lc.lib lib:amiga.lib
XLIBS= lib:lc.lib lib:amiga.lib
X
Xall: $(LEXE)uuser-handler
X
X# BUG, A4 never loaded!
X#
X#$(LEXE)uuser-handler : $(OBJS)
X# blink from $(OBJS) ADDSYM TO %(left) lib $(LIBS)
X#
X#$(OBJS) : $(SRCS)
X# lc $(CFLAGS) -H$(SYMS) -o%(left) %(right)
X
END_OF_FILE
if test 645 -ne `wc -c <'uucp2/src/uuser/DMakefile'`; then
echo shar: \"'uucp2/src/uuser/DMakefile'\" unpacked with wrong size!
fi
# end of 'uucp2/src/uuser/DMakefile'
fi
if test -f 'uucp2/src/uuser/DMakefile.dcc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/uuser/DMakefile.dcc'\"
else
echo shar: Extracting \"'uucp2/src/uuser/DMakefile.dcc'\" \(465 characters\)
sed "s/^X//" >'uucp2/src/uuser/DMakefile.dcc' <<'END_OF_FILE'
X
X# DMakefile for uuser:
X#
X# $Header: Beta:src/uucp/src/uuser/RCS/DMakefile,v 1.1 90/02/02 12:10:12 dillon Exp Locker: dillon $
X#
X# (C) Copyright 1989-1990 by Matthew Dillon, All Rights Reserved.
X
XOD= dtmp:uucp/
XSRCS= uuser.c misc.c
XOBJS= $(SRCS:"*.c":"$(OD)*.o")
XCFLAGS= -I uucp:src/include/
XLEXE= uucp:l/
X
Xall: $(LEXE)uuser-handler
X
X$(LEXE)uuser-handler : $(OBJS)
X dcc $(OBJS) -o %(left) -s
X
X$(OBJS) : $(SRCS)
X dcc $(CFLAGS) %(right) -o %(left) -c
X
END_OF_FILE
if test 465 -ne `wc -c <'uucp2/src/uuser/DMakefile.dcc'`; then
echo shar: \"'uucp2/src/uuser/DMakefile.dcc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/uuser/DMakefile.dcc'
fi
if test -f 'uucp2/src/uuser/mountlist' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/uuser/mountlist'\"
else
echo shar: Extracting \"'uucp2/src/uuser/mountlist'\" \(100 characters\)
sed "s/^X//" >'uucp2/src/uuser/mountlist' <<'END_OF_FILE'
X
XUUSER: Handler = uucp:l/uuser-handler
X Stacksize = 6000
X Priority = 5
X GlobVec = 1
X#
X
END_OF_FILE
if test 100 -ne `wc -c <'uucp2/src/uuser/mountlist'`; then
echo shar: \"'uucp2/src/uuser/mountlist'\" unpacked with wrong size!
fi
# end of 'uucp2/src/uuser/mountlist'
fi
if test -f 'uucp2/src/uuser/version.doc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'uucp2/src/uuser/version.doc'\"
else
echo shar: Extracting \"'uucp2/src/uuser/version.doc'\" \(107 characters\)
sed "s/^X//" >'uucp2/src/uuser/version.doc' <<'END_OF_FILE'
X
X
XUUSER:
X .02 Various bugs fixed ... I *hope* this fixes the
X freezing up problem!
X
X .01 Initial release
X
END_OF_FILE
if test 107 -ne `wc -c <'uucp2/src/uuser/version.doc'`; then
echo shar: \"'uucp2/src/uuser/version.doc'\" unpacked with wrong size!
fi
# end of 'uucp2/src/uuser/version.doc'
fi
echo shar: End of archive 1 \(of 12\).
cp /dev/null ark1isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 12 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
--
Mail submissions (sources or binaries) to <amiga@cs.odu.edu>.
Mail comments to the moderator at <amiga-request@cs.odu.edu>.
Post requests for sources, and general discussion to comp.sys.amiga.