Source Code 1992 March/Source_Code_CD-ROM_Walnut_Creek_March_1992.iso/usenet/altsrcs/1/1578

Internet Message Format | 1990-12-28 | 54KB

From: [e-mail] (Warren Tucker)
Newsgroups: alt.sources
Subject: shar 3.32 part 1/2
Message-ID: <[e-mail]>
Date: 14 Jul 90 18:00:44 GMT

Submitted-by: [e-mail]
Archive-name: shar332/part01

Here is a new, improved flame generator.

#!/bin/sh
# This is shar332, a shell archive (shar 3.32)
# made 07/14/1990 17:58 UTC by [e-mail]
# Source directory /u1/src/shar
#
# existing files WILL be overwritten
# This format requires very little intelligence at unshar time.
# "echo" and "sed" will be needed.
#
# This shar contains:
# length  mode       name
# ------ ---------- ------------------------------------------
#   9514 -rw-r--r-- README
#   6433 -rw-r--r-- shar.1
#   1261 -rw-r--r-- unshar.1
#   1600 -rw-r--r-- Makefile
#  31324 -rw-r--r-- shar.c
#  10889 -rw-r--r-- unshar.c
#   1152 -rw-r--r-- uushar.c
#   2803 -rw-r--r-- who@where.c
#
# ============= README ==============
echo "x - extracting README (Text)"
sed 's/^X//' << 'SHAR_EOF' > README &&
XThis file last revised Wed Jun 13 18:57:32 EDT 1990
X
XHere is shar 3.30, an updated version of shar 3.11, derived from 'shar2'.
XThis offering is the work of many people. Thanks to [e-mail] (Richard H.
XGumpertz), [e-mail] (Colas Nahaboo), [e-mail] (Bill
XAten) and [e-mail] and maaaany others.
X
XThis version's shar:
X1) generates shell code which attempts to create missing directories
X2) handle deviants sun, vax, pyramid, sequent, and SCO XENIX/UNIX
X   automatically; for system V systems I did not catch, add -DSYS5
X   to CFLAGS; for other BSD-like systems, add -DBSD42
X3) if unsharing system's touch is Sys V compatible (allows touch -m),
X   the unshar process restores file dates
X4) An archive name may be specified for includion in the header
X   of the shar files( -n switch)
X5) allows automatic generation of "Submitted-by: who@where" &
X   "Archive-name: <name>/part##" headers
X6) uses getopt; no good system library should be without a copy
X   but it is readily available (like look in unshar.c)
X7) other chrome-plated junque
X
XThis version's unshar:
X1) can change directory before unsharing
X2) can unshar from standard in, from a COLLECTION of shars,
X   from a file containing multiple concatenated shars,
X   or a mixture of shar files and concatenated-shar files.
X3) does not have an Social Security number.
X
X------------------------ shar  usage -----------------------------------
Xshar 3.30
Xusage: shar [ options ] file [ file1 ... ] ]
X-V  produce "vanilla" shars demanding little of the unshar environment
X-v  verbose messages OFF while executing
X-w  don't check with 'wc -c' after unpack
X-n  Name of archive (documentation)
X-a  Generate Submitted-by: & Archive-name: headers
X-s  override automatically determined submitter name
X-x  don't overwrite existing files
X-X  interactively overwrite existing files (NOT FOR NET SHARS)
X-b  treat all files as binary, use uuencode
X-t  treat all files as text (default)
X-C  compress and uuencode all files
X-p  allow positional parameter options. The options "-b" and "-t"
X    and "-C" may be embedded, and files to the right of the
X    option will be processed in the specified mode
X-M  mixed mode. Determine if the files are text or
X    binary and archive correctly.
X-P  use temp files instead of pipes in the shar file
X-c  start the shar with a cut line
X-f  restore by filename only, rather than path
X-dXXX   use XXX to delimit the files in the shar
X-oXXX   (or -o XXX) output to file XXX.01 thru XXX.nn
X-lXX    limit output file size to XXk bytes (but don't split files)
X-LXX    limit output file size to XXk bytes (may split files)
X-S      read files to wrap from stdin, ignoring argument line
X
XThe -S option reads filenames one per line from stdin; input
Xformat must be similar to 'find' output, except that if -p
Xis specified, -b, -t or -C may be used (on lines by themselves)
Xe.g., find . -type f -print | sort | shar -C -L50 -o /tmp/big
X
XThe 'o' option is required if the 'l' or 'L' option is used
XThe 'n' option is required if the 'a' option is used
XThe 'x' and 'L' options are incompatible
X
X-a generates sharname/part## headers. If the -a argument contains
Xa '/', then /patch is not appended
XThe automatic submitter name is trivial: essentially `whoami`@`uname`
X
X------------------------ unshar usage -----------------------------------
XUnshar has no usage built in.  It has default actions when invoked
Xwith no arguments (read from stdin).
X
XUsage:     unshar [-c] [-C exit_line] [ -d directory ] [ file ] ...
X
X     The -d flag tells unshar to change directory before unsharing
X
X     It can unshar shar files concatenated in one file, with the
X     the "-c" command, which separates files by recognizing the
X     "exit 0" string at the beginning of a line
X
X     (The -C string option allows you to specify this string, thus
X     -c is equivalent to -C "exit 0")
X
X
X--------------------- history -----------------------------------------
XChanges since 3.11: kudos to [e-mail] (Richard H. Gumpertz)
X
X1.  The -l switch still specifies a maximum size for the generated
X    shar files, but now it prevents files from spanning shar parts.
X    Shars generated using this method may be unpacked in any order.
X
X2.  The old -l switch functionality is precisely emulated by using the
X    the -L switch.  That is, archived files may be split across parts.
X    Shars generated using this method must still be unpacked in order.
X
X3.  The -C switch causes files to be compressed, then uuencoded.
X    Unpacking reverses the process.
X
X4.  The -P causes the shar to use temp files instead of pipes in
X    the unshar process.
X
X5.  The -f causes files to be resotred by name only (i.e., strip
X    directory portion of input filenames before placing the name
X    into the shar.
X
X
XChanges since 3.20: kudos to [e-mail] (Colas Nahaboo)
X
X1.  The Archived-name: header no longer uses "/part" if there is
X    a "/" in the -n name.  Thus
X        -n xyzzy                     procduces:
X                                     xyzzy/part01
X                                     xyzzy/part02
X
X        -n xyzzy/patch               procduces:
X                                     xyzzy/patch01
X                                     xyzzy/patch02
X
X        -n xyzzy/patch01.            procduces:
X                                     xyzzy/patch01.01
X                                     xyzzy/patch01.02
X2.  The Archive-name part number other than part01 had no leading zero
X    in the number.
X
X3.  The "Submitted-by:" header was missing the hyphen (minus for olde
X    UNIX hackres).
X
X4.  The unshar program may now unshar a whole mailbox or concatenation
X    of shar files.
X
X    -C "string" looks for "string" at the beginning of the line to
X       break the file into individual shar files
X    -c is equivalent to -C "exit 0"
X
X    This of course will only work if there is something in the shar
X    file recognizable to terminate the shar.  Some shars dont have
X    "exit 0" at the end.  However, a clue: most/many .signatures have
X    "--" on a line right before them.
X
X5.  Unshar -d (change directory) no longer makes argv files unreachable.
X    I had never used the feature until the other day.  I guess the
X    author has used in only for unsharing from stdin.
X
XChanges since 3.21: thanks to Adri Verhoef, <[e-mail]>
X
X1.  Some vaxen do not run BSD.  I guess I knew this, but -er-
X    here is Adri's note:
X> Hi Warren,
X>
X>   I encountered a problem trying to get 'shar3.21' to compile on System V
X> on a vax.  Yes, can you believe it?  We run System V Release 3.0 on VAXen!
X> The shar3.21 code assumes that you are BSD if you're on a vax.  This is not
X> always true!  What I did to get the code compiled on System V, was:
X> (+) edit the Makefile and add -DSYS5 to CFLAGS.
X> (+) edit all the C-source files to circumcise compiler warnings
X>     ("SYS5 redefined").
X>
X
XHe made a suggestion about having a localize.sh edit a distribution
XMakefile, but for now, I'll just suggest you add -DSYS5 to CFLAGS
Xmanually.
X
X2.  [e-mail] (Jan Dj{rv, sorry about the screwed up character
X    translation, Jan) wrote man pages.  Thanks!
X
XChanges since 3.22: thanks to Dennis Boylan <dennis@nanovx>
X
X1.  The new -S option allows the list of files to be packed
X    to be read from the standard input rather than from the
X    command line.
X
X2.  A few purist checks were made to ensure fork() or malloc()
X    doesn't fail and excite the "if 20 hours of your time is
X    free then why isn't 200?" crowd (who probably will never see
X    this revision anyway :-))
X
XChanges since 3.23:
X
X1.  The -V mode was added.
X
X2.  Altos doesn't like the '@' in filenames.  The filename format
X    was changed.  Thanks to [e-mail].
X
XChanges since 3.24:
X
X1.  Man pages were revised by gam@netcom (Gordon Moffet). Thanks.
X
X2.  When -L was specified, the "Starting ..." message was not
Xproduced on standard error (with or without -v).
X
X3.  When using -X, the 'not for net' warning was printed on standard
Xoutput rather thsn standard error.
X
X4.  [e-mail] reccommends adding -F 5000 to the load
X    line of unshar when using on XENIX 286 to avoid stack overflow
X    core dumps.  I added this information to an excellkent remake
X    of the Makefile by [e-mail].
X
XChanges since 3.25:
X
X1.  Fixed one minor bug with -a/-n.  The period supplied when a
X    slash appears in the -n name was omitted.  This is a hatefully
X    small bug to fix and reissue a whole release, but
X    a) several new names are on the sharlist now and they have
X       only 3.24 to work with,
X    b) this will surely sync us all up, and
X    c) I think it will put shar to bed for a while ("no known bugs
X       at this ti ... bus error core dumped").
X
XChanges since 3.27:
X
X1.  The unshar-time test for a touch -m facility now greps for
X    'mmdd', not '[-amc]', making it more universally successful.
X
X2.  NOTE:  there is still a problem with -n arguments using
X    a 'x/y' construct, but I don't know how to properly generalize
X    it so you'll have to edit shars made with some uses of -a
X    with -n x/y.
X
X3.  This is surely my last work on this.  It does everything
X    I needed and more.  Thanks for all the help and suggestions.
X    It seems as though we didn't precipitate 'death of the shar'
X    after all :-) :-) :-).
X
X---------------------------------------------------------------------
XWarren Tucker, TuckerWare  emory!n4hgf!wht or [e-mail]
X{gatech,emory,tridom,kd4nc}!n4hgf!wht                   [phone]
[e-mail]
SHAR_EOF
# ============= shar.1 ==============
echo "x - extracting shar.1 (Text)"
sed 's/^X//' << 'SHAR_EOF' > shar.1 &&
X.TH shar 1 local
X.SH NAME
Xshar \- create shell archives
X.SH SYNOPSIS
X.nf
Xshar [ options ] [ file1 ... ]
Xshar \-S [ options ]
X.fi
X.SH DESCRIPTION
XShar 3.23 (or later)
Xcreates "shell archives" (or shar files) which are in text format
Xand can be mailed. These files may be unpacked later by executing them
Xwith /bin/sh. The resulting archive is sent to standard out unless the
X\f2\-o\f1 option is given.  A wide range of features provide extensive
Xflexibility in manufacturing shars and in specifying shar "smartness."
XArchives may be "vanilla" or comprehensive.
X.SS OPTIONS
X.PP
XOptions can be given in any order. Some options depend on each other:
X.nf
X    The \f2\-o\f1 option is required if the \f2\-l\f1 or \f2\-L\f1 option is used.
X    The \f2\-n\f1 option is required if the \f2\-a\f1 option is used.
X    The \f2\-x\f1 and \f2\-L\f1 option are incompatible.
X    See \f2\-V\f1 below.
X.fi
X.IP "\f2\-V\f1"
XProduce "vanilla" shars which rely only upon the existence of sed and
Xecho in the unsharing environment.  In addition, "if test" must also be
Xsupported if the \f2\-X\f1 option is used.  The \f2\-V\f1 silently
Xdisables options offensive to the "network cop" (or "brown shirt"), but
Xdoes warn you if it is specified with \f2\-b\f1, \f2\-C\f1, \f2\-p\f1
Xor \f2\-M\f1 (any of which does or might require uudecode or compress in
Xthe unsharing environment).
X.IP "\f2\-v\f1"
XVerbose OFF. Disables the inclusion of comments to be output when the archive
Xis unpacked.
X.IP "\f2\-w\f1"
XDo NOT check with 'wc \-c' after unpack. The default is to check.
X.IP "\f2\-n\f1 name"
XName of archive to be included in the header of the shar files.
XSee the \f2\-a\f1 switch.
X.IP "\f2\-a\f1"
XAllows automatic generation of headers:
X.nf
X    Submitted-by: who@where
X    Archive-name: <name>/part##
X.fi
XThe <name> must be given with the \f2\-n\f1 switch.
XIf name includes a '/' "/part" isn't used. Thus:
X.RS 10m
X.nf
X.ta 30m
X\-n xyzzy    produces:
X    xyzzy/part01
X    xyzzy/part02
X
X\-n xyzzy/patch    produces:
X    xyzzy/patch01
X    xyzzy/patch02
X
X\-n xyzzy/patch01.    produces:
X    xyzzy/patch01.01
X    xyzzy/patch01.02
X.RE
X.fi
X.IP ""
XThe who@where can be
Xexplicitly stated with the \f2\-s\f1 switch if the default isn't apropriate.
XWho@where is essentially built as `whoami`@`uname`.
X.IP "\f2\-s\f1 who@where"
XOverride automatically determined submitter name.
X.IP "\f2\-x\f1"
XDon't overwrite existing files. The unpack will check for an existing file
Xbefore unpacking a given file from the archive.
X.IP "\f2\-X\f1"
XInteractively overwrite existing files
X(DO NOT USE FOR SHARS SUBMITTED TO THE NET).
X.IP "\f2\-b\f1"
XTreat all files as binary, use uuencode prior to packing. This increases the
Xsize of the archive. The recipient must have uudecode in order to unpack.
X(USE OF UUENCODE IS NOT APPRECIATED BY MANY ON THE NET).
X.IP "\f2\-t\f1"
XTreat all files as text (default).
X.IP "\f2\-C\f1"
XCompress and uuencode all files prior to packing. The recipient must have
Xuudecode and uncompress in order to unpack
X(USE OF UUENCODE AND COMPRESS IS NOT APPRECIATED BY MANY ON THE NET).
X.IP "\f2\-p\f1"
XAllow positional parameter options. The options "\f2\-b\f1" and "\f2\-t\f1"
Xand "\f2\-C\f1" may be embedded, and files to the right of the
Xoption will be processed in the specified mode.
X.IP "\f2\-M\f1"
XMixed mode. Determine if the files are text or binary and archive correctly.
XFiles found to be binary are uudecoded prior to packing
X(USE OF UUENCODE IS NOT APPRECIATED BY MANY ON THE NET).
X.IP "\f2\-P\f1"
XUse temporary files instead of pipes in the shar file.
X.IP "\f2\-c\f1"
XStart the shar with a cut line. A line saying 'Cut here' is placed at the
Xstart of each output file.
X.IP "\f2\-f\f1"
XRestore by filename only, rather than path. This option causes only file
Xnames to be used, which is useful when building a shar from several
Xdirectories, or another directory.
X.IP "\f2\-d\f1 XXX"
XUse XXX to delimit the files in the shar instead of SHAR_EOF.
XThis is for those who want to personalize their shar files.
X.IP "\f2\-o\f1 XXX"
XSave the archive to files XXX.01 thru XXX.nn instead of standard out.
XMust be used when the \f2\-l\f1 or the \f2\-L\f1 switches are used
X.IP "\f2\-l\f1 XX"
XLimit the output file size to XXk bytes but don't split input files.
X.IP "\f2\-L\f1 XX"
XLimit output file size to XXk bytes and split files if necessary. The archives
Xcreated with this option must be unpacked in correct order.
X.IP "\f2\-S\f1"
XRead list of files to be packed from the standard input rather than
Xfrom the command line.  Input must be in a form similar to
Xthat generated by the find command, one filename per line.  This
Xswitch is especially useful when the command line will not hold
Xthe list of files to be packed. For example:
X.nf
X
Xfind . \-type f \-print | sort | shar \-S \-C \-L50 \-o /tmp/big
X
X.fi
XIf \f2\-p\f1 is specified on the command line, then the
Xoptions "\f2\-b\f1" and "\f2\-t\f1" and "\f2\-C\f1" may be included
Xin the standard input (on a line separate from filenames).
XThe maximum number of lines of standard input, file names
Xand options, may not exceed 1024.
X.SH EXAMPLES
X.nf
X.ta 37m
Xshar *.c > cprog.shar    # all C prog sources
Xshar \-v *.[ch] > cprog.shar    # non-verbose, .c and .h files
Xshar \-b \-l28 \-oarc.sh *.arc    # all binary .arc files, into
X    # files arc.sh.01 thru arc.sh.NN
Xshar \-f /lcl/src/u*.c > u.sh    # use only the filenames
X.ta
X.fi
X.SH WARNINGS
X.PP
XUse of the \f2\-b\f1, \f2\-M\f1 or \f2\-C\f1 may slow the archive process
Xconsiderably, depending on the number of files.
X.PP
XUse of \f2\-X\f1 produces shars which \f2WILL\f1 cause problems
Xwith many unshar procedures.  Use this feature only for archives
Xto be passed among agreeable parties.  Certainly, \f2\-X\f1 is NOT
Xfor shell archives which are to be submitted to Usenet.
XUsage of \f2\-b\f1 or \f2\-C\f1 in net shars will cause you to
Xbe flamed off the earth.
X.SH SEE ALSO
X.PP
Xunshar(1)
X.SH DIAGNOSTICS
X.PP
XError messages for illegal or incompatible options,
Xfor non-regular, missing or inaccessible files or for (unlikely)
Xmemory allocation failure.
X.SH AUTHORS
X.nf
Xshar3 is a derived work based on the efforts of:
Xdecvax!microsof!uw-beave!jim (James Gosling at CMU)
XMichael A. Thompson, Dalhousie University, Halifax, N.S., Canada
Xdavidsen@sixhub (Bill Davidsen)
[e-mail] (Richard H. Gumpertz)
[e-mail] (Colas Nahaboo)
[e-mail] (Bill Aten)
[e-mail] (Dennis Boylan)
[e-mail] (Warren Tucker)
X(other anonymous persons)
X
Xman pages:
[e-mail] (Jan Dj{rv)
X.fi
SHAR_EOF
# ============= unshar.1 ==============
echo "x - extracting unshar.1 (Text)"
sed 's/^X//' << 'SHAR_EOF' > unshar.1 &&
X.TH unshar 1 local
X.SH NAME
Xunshar \- unpack a shar file
X.SH SYNOPSIS
Xunshar [ \f2\-c\f1 ] [ \f2\-C\f1 exit_line ] [ \f2\-d\f1 directory ] [ file ... ]
X.SH DESCRIPTION
X.PP
XUnshar scans mail messages looking for the start of a shell archive. It
Xthen passes the archive through a copy of the shell to unpack it. It
Xwill accept multiple files. If no files are given, standard input is used.
X.PP
XThe \f2\-d\f1 options tells unshar to change directory before unpacking
Xany files.
X.PP
XUnshar can unpack shar files that are concatenated in one file with the
X\f2\-c\f1 option, which separates files by recognizing the "exit 0" string
Xat the beginning of a line.
XThe \f2\-C\f1 option allows you to specify the string that separates archives
Xif "exit 0" isn't appropriate. (Hint: most .signatures have a "\-\-" on a line
Xright before them). \f2\-c\f1 is equivalent to \f2\-C "exit 0"\f1.
X.SH SEE ALSO
Xshar(1)
X.SH DIAGNOSTICS
XAny message from the shell may be displayed.
X.SH AUTHORS
X.nf
XMichael Mauldin at Carnegie-Mellon University
Xguido@mcvax (Guido van Rossum at CWI, Amsterdam)
[e-mail] (Bill Davidsen)
[e-mail] (Warren Tucker)
[e-mail] (Richard H. Gumpertz)
[e-mail] (Colas Nahaboo)
X
Xman pages:
[e-mail] (Jan Dj{rv)
X.fi
X.PP
SHAR_EOF
# ============= Makefile ==============
echo "x - extracting Makefile (Text)"
sed 's/^X//' << 'SHAR_EOF' > Makefile &&
X#  CHK=0xDDF8
X#
X#  makefile for shar
X#
X#+:EDITS:
X#:05-14-1990-17:33-wht@n4hgf-add -F 5000 for XENIX 286
X#:05-14-1990-17:[e-mail]-expanded Makefile
X#:03-28-1990-14:54-wht@n4hgf-for 3.10, add who@where.c
X
XBINDIR    =/usr/local/bin
XOWNER    =root
XGROUP    =staff
XBINMODE    =0555
XMANDIR    =/usr/man/mann
XMANEXT    =n
XMANOWN    =root
XMANGRP    =staff
XMANMODE    =0444
X
X# For SUN, VAX, PYRAMID, SEQUENT and SCO XENIX/UNIX 386
XCFLAGS    = -O
XLDFLAGS    =
X
X# For SCO XENIX 286
X#CFLAGS    = -O
X#LDFLAGS    = -F 5000
X
X# For other System V systems I did not catch
X#CFLAGS    = -O -DSYS5
X#LDFLAGS    =
X
X# For other BSD-like systems
X#CFLAGS    = -O -DBSD42
X#LDFLAGS    =
X
XSHAR    = shar.o uushar.o who@where.o
XUNSHAR    = unshar.o
X
Xall: shar unshar
X
Xshar: shar.o uushar.o who@where.o
X    cc ${LDFLAGS} ${SHAR} -o shar
X
Xunshar : unshar.o
X    cc ${LDFLAGS} ${UNSHAR} -o unshar
X
Xshar.o : shar.c
X    cc ${CFLAGS} shar.c -c shar.o
X
Xunshar.o : unshar.c
X    cc ${CFLAGS} unshar.c -c unshar.o
X
Xuushar.o : uushar.c
X    cc ${CFLAGS} uushar.c -c uushar.o
X
Xwho@where.o : who@where.c
X    cc ${CFLAGS} who@where.c -c who@where.o
X
Xinstall : shar unshar
X    cp shar unshar ${BINDIR}
X    strip ${BINDIR}/shar ${BINDIR}/unshar
X    chown ${OWNER} ${BINDIR}/shar ${BINDIR}/unshar
X    chgrp ${GROUP} ${BINDIR}/shar ${BINDIR}/unshar
X    chmod ${BINMODE} ${BINDIR}/shar ${BINDIR}/unshar
X    cp shar.1   ${MANDIR}/shar.${MANEXT}
X    cp unshar.1 ${MANDIR}/unshar.${MANEXT}
X    chown ${MANOWN}  ${MANDIR}/shar.${MANEXT} ${MANDIR}/unshar.${MANEXT}
X    chgrp ${MANGRP}  ${MANDIR}/shar.${MANEXT} ${MANDIR}/unshar.${MANEXT}
X    chmod ${MANMODE} ${MANDIR}/shar.${MANEXT} ${MANDIR}/unshar.${MANEXT}
X
Xclean :
X    rm -f shar unshar *.o core
SHAR_EOF
# ============= shar.c ==============
echo "x - extracting shar.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > shar.c &&
Xchar *revision = "3.32";
X/*
X** shar.c
X
X  Defined functions:
X    Rname(file)
X    exit_incompat()
X    gen_mkdir(path)
X    gen_mkdir_script(path)
X    setTOUCH()
X    header(argc,argv)
X    helpuser()
X    main(argc,argv)
X    mode_map(mode,mode_str)
X    shar(file)
X
X*/
X/*+:EDITS:*/
X/*:07-09-1990-19:24-wht@n4hgf-back to fgrep amc -- fits more -m touches */
X/*:07-01-1990-18:37-wht@n4hgf-wait() needed after fork() */
X/*:05-19-1990-02:47-wht@n4hgf-change fgrep amc to mmdd */
X/*:05-16-1990-01:53-wht@n4hgf-Archive-name had extra period sometimes */
X/*:05-10-1990-20:39-wht@n4hgf-altos does not not like at-sign in filenames */
X/*:05-10-1990-13:38-wht@n4hgf-add -V Vanilla mode */
X/*:05-07-1990-00:06-wht@n4hgf-test all mallocs for Purity Of Essence */
X/*:05-07-1990-00:06-wht@n4hgf-add -S switch */
X/*:05-05-1990-01:37-relay.EU.net!rivm!a3-dont assume vax is running BSD */
X/*:04-18-1990-02:01-wht@n4hgf-3.20 [e-mail] did all the NICE work */
X/*:04-17-1990-14:[e-mail]-pretty up if-then-else-fi in shar file */
X/*:04-17-1990-12:[e-mail]-add Split and renamed old -l to -L */
X/*:04-17-1990-12:[e-mail]-add -c option to shar file execution */
X/*:04-17-1990-11:[e-mail]-simplify TOUCH logic in shar file */
X/*:04-17-1990-10:[e-mail]-create setTOUCH to avoid duplicate code */
X/*:04-17-1990-04:[e-mail]-add missing && to commands in shar file(s) */
X/*:04-17-1990-02:[e-mail]-add Compress */
X/*:04-16-1990-17:[e-mail]-add AvoidPipes as well as code to use pipes */
X/*:04-03-1990-20:09-wht@n4hgf-3.11 */
X/*:04-01-1990-13:20-pat@rwing-correct case on M option in getopt() call */
X/*:04-01-1990-13:50-pat@rwing-change defaults on -v, -w to be on */
X/*:03-29-1990-18:23-wht@n4hgf-add automatic sequent support */
X/*:03-28-1990-15:56-wht@n4hgf-add mode and length net.bandwidth chrome */
X/*:03-28-1990-14:23-wht@n4hgf-correct some runtime diagnostics */
X/*:11-14-1989-02:21-wht-SHAR_EOF was botched if last file char not newline */
X/*:11-02-1989-14:11-wht-add touch -am */
X
X/*
X Shar puts readable text files together in a package
X from which they are easy to extract.
X earlier attribution wht@n4hgf has:    decvax!microsof!uw-beave!jim
X                                    (James Gosling at CMU)
X*/
X/*
X *    I have made several mods to this program:
X *
X *    1) the -----Cut Here-----... now preceds the script.
X *    2) the cat has been changed to a sed which removes a prefix
X *    character from the beginning of each line of the extracted
X *    file, this prefix character is added to each line of the archived
X *    files and is not the same as the first character of the
X *    file delimeter.
X *    3) added several options:
X *        -c    - add the -----Cut Here-----... line.
X *        -d'del' - change the file delimeter to del.
X *        -s    - cause the resulting script to print the wc of
X *              the orignal file and the wc of the extracted
X *              file.
X *
X *                Michael A. Thompson
X *                Dalhousie University
X *                Halifax, N.S., Canada.
X */
X
X/*
X *    I, too, have been hacking this code. This is the version on sixhub
X *        bill davidsen ([e-mail])
X *
X *    - added support for binary files
X *    - automatic creation of limited size multiple file archives,
X *      each of which may be unpacked separately, and with sequence
X *      checking.
X *    - support for mixed text and binary files
X *    - preserve file permissions
X *    - restore to filename rather than pathname
X *
X */
X/*
X *  One good hack deserves another ... this version generates shell
X *  code which attempts to create missing directories
X *  handle deviants sun, vax, pyr (pyramid), SCO XENIX/UNIX automatically
X *  for sequent, add -DBSD42
X *  force Verbose on
X *  if unsharing system's touch Sys V compatible (allows touch -m),
X *  restore file dates
X *  -n switch puts an alpha "name" in header
X *  -a (if also -n) puts "Submitted-by:" & "Archive-name: <name>/part##
X *  use getopt
X *  as well as some other chrome-plated junque
X *  ...!gatech!emory!tridom!wht ([e-mail]) Warren Tucker
X *
X *  3.11 - Fri Apr  6 14:21:51 EDT 1990
X *  With due deference to davidsen@sixhub, more changes..... copies
X *  of this, like 3.10,  were mailed to him:
X *  From wht  Fri Apr  6 15:14:30 1990 remote from n4hgf
X *  Received: by n4hgf.UUCP (smail2.5-UNIX/386 5.3.2)
X *      id AA01781; 6 Apr 90 15:14:30 EDT (Fri)
X *  Date: Fri, 6 Apr 90 15:14:30 EDT
X *  X-Mailer: Mail User's Shell (6.5 4/17/89)
X *  From: wht@n4hgf (Warren Tucker)
X *  To: davidsen@sixhub
X *  Subject: shar 3.11
X *  X-Bang-Reply-to: gatech!n4hgf!wht -or- emory!tridom!n4hgf!wht
X *  Reply-to: [e-mail]
X *  Message-Id: <[e-mail]>
X *
X *  1. changes suggested by pat@rwing (Pat Myrto) and [e-mail]
X *  (Bill Silvert)
X *  2. fixes to who_am_i code in who@where.c
X *
X *  3.20 - Wed Apr 18 01:58:32 EDT 1990
X *  changes were made per edit notes by
XFrom: gatech!mailrus!uunet!cpsolv.CPS.COM!rhg (Richard H. Gumpertz)
X *  ...!gatech!n4hgf!wht ([e-mail]) Warren Tucker
X *
X */
X
X#include <stdio.h>
X#include <sys/types.h>
X#include <time.h>
X#include <sys/stat.h>
X
X/* assume system v unless otherwise fixed */
X#if (defined(pyr) || defined(vax) || defined(sequent)) && !defined(BSD42) && !defined(SYS5)
X#define BSD42
X#endif
X#if defined(sun)    /* this miscreant doesn't exactly fit BSD or SYSV */
X#undef BSD42
X#undef SYS5
X#endif
X#if !defined(BSD42) && !defined(sun) && !defined(SYS5)
X#define SYS5
X#endif
X
X#if defined(sun) || defined(BSD42)
X#define strchr    index
X#define strrchr    rindex
X#endif
X
Xchar *strchr();
Xchar *strrchr();
X#ifdef __STDC__ /* my concession to ANSI-pansiness */
Xvoid *malloc();
X#else
Xchar *malloc();
X#endif
XFILE *fdopen();
XFILE *popen();
X
X#define    DELIM        "SHAR_EOF"/* put after each file */
X#define PREFIX1        'X'    /* goes in front of each line */
X#define PREFIX2        'Y'    /* goes in front of each line if Delim
X                         * starts with PREFIX1 */
X#define PREFIX        (Delim[0] == PREFIX1 ? PREFIX2 : PREFIX1)
X#define WC            "wc -c"
X
Xint Archive_name = 0;    /* option to generate "Archive-name:" headers */
Xint Verbose = 1;        /* option to provide append/extract feedback */
Xint Wc_c = 1;            /* option to provide wc checking */
Xchar *Delim = DELIM;    /* pointer to delimiter string */
Xint Cut = 0;            /* option to provide cut mark */
Xint Binary = 0;            /* flag for binary files */
Xint AvoidPipes = 0;        /* use temp file instead of pipe to feed uudecode, etc.
X                           (better error detection at expense of disk space) */
Xint Vanilla = 0;        /* no Brown-Shirt mode */
Xint Compress = 0;        /* run input files through compress (requires Binary) */
Xint Mixed = 0;            /* mixed text and binary files */
Xint eXists = 0;            /* check if file exists */
Xint InterOW = 0;        /* interactive overwrite */
Xint PosParam = 0;        /* allow positional parameters */
Xint FileStrip;            /* strip directories from filenames */
X#ifdef    DEBUG
Xint de_bug = 0;            /* switch for debugging on */
X#define DeBug(f,v) if (de_bug) printf(f, v)
X#else    /* normal compile */
X#define DeBug(f,v)        /* do nothing */
X#endif
X
XFILE *fpout = stdout;
Xchar *Rname();            /* file restore name */
Xunsigned limit = 0;
Xint Split = 0;            /* Split files in the middle */
Xlong ftell();
Xlong TypePos;            /* position for archive type message */
Xlong EndHeadPos;        /* position for first file in the shar file */
Xchar outname[50];        /* base for output filename */
Xchar filename[50];        /* actual output filename */
Xchar *sharname = (char *)0;
Xchar *submitter = (char *)0;
Xint filenum = 0;        /* output file # */
Xstruct stat fst;        /* check file type, access */
X
Xmain(argc,argv)
Xchar **argv;
X{
Xint status = 0;
Xint stdin_file_list = 0;
Xchar *oname;
Xint c;
Xextern int optind;
Xextern char *optarg;
X
X    while((c = getopt(argc,argv,"VSvwd:btCxXcfMpPas:n:l:L:o:h")) != -1)
X    {
X        switch(c)
X        {
X        case 'V':
X            Vanilla = 1;
X            break;
X        case 'S':
X            stdin_file_list = 1;
X            break;
X        case 'v':
X            Verbose = 0;
X            break;
X        case 'w':
X            Wc_c = 0;
X            break;
X        case 'd':
X            Delim = optarg;
X            break;
X        case 'b': /* binary files */
X            Binary = 1;
X            Compress = 0;
X            break;
X        case 't': /* text mode */
X            Binary = 0;
X            Compress = 0;
X            break;
X        case 'C': /* Compress */
X            Binary = 1;
X            Compress = 1;
X            break;
X        case 'x': /* does the file exist */
X            eXists = 1;
X            if(InterOW || Split)
X                exit_incompat();
X            break;
X        case 'X': /* does the file exist */
X            InterOW = 1;
X            if(eXists || Split)
X                exit_incompat();
X            eXists = 1;
X            break;
X        case 'c':
X            Cut = 1;
X            break;
X        case 'f': /* filenames only */
X            FileStrip = 1;
X            break;
X        case 'M': /* mixed text and binary */
X            Mixed = 1;
X            break;
X        case 'p': /* allow positional parameters */
X            PosParam = 1;
X            break;
X        case 'P': /* use temp files instead of pipes in the shar file */
X            AvoidPipes = 1;
X            break;
X        case 'l': /* soft size limit in k */
X            if((limit = atoi(optarg)) > 1)
X                --limit;
X            Split = 0;
X            DeBug("Soft limit %dk\n",limit);
X            break;
X        case 'L': /* hard size limit in k */
X            if(eXists)
X                exit_incompat();
X            if((limit = atoi(optarg)) > 1)
X                --limit;
X            Split = (limit != 0);
X            AvoidPipes = 1;
X            DeBug("Hard limit %dk\n",limit);
X            break;
X        case 'n': /* name of archive */
X            sharname = optarg;
X            break;
X        case 's': /* submitter */
X            submitter = optarg;
X            break;
X        case 'a': /* generate Archive-name: headers */
X            Archive_name = 1;
X            break;
X        case 'o': /* specify output file */
X            oname = optarg;
X            strcpy(outname,oname);
X            strcat(outname,".");
X            filenum = 1;
X            strcpy(filename,outname);
X            strcat(filename,"01");
X            fpout = fopen(filename,"w");
X            if(!fpout)
X            { /* creation error */
X                perror("can't create output file");
X                exit(1);
X            }
X            break;
X#ifdef    DEBUG
X        case '$': /* totally undocumented $ option, debug on */
X            de_bug = 1;
X            break;
X#endif
X        default: /* invalid option */
X        case 'h': /* help */
X            helpuser();
X            break;
X        }
X    }
X
X    if(Vanilla)
X    {
X        fprintf(stderr,"Vanilla mode disabling years of progress :-)\n");
X        if(Binary || Mixed || Compress || PosParam)
X            fprintf(stderr,"WARNING: non-Text storage options overridden.\n");
X        Wc_c = 0;
X        Binary = 0;
X        Compress = 0;
X        InterOW = 0;
X        Mixed = 0;
X        PosParam = 0;
X        AvoidPipes = 0;
X    }
X
X    if(stdin_file_list)
X    {
X        char stdin_buf[258];
X        argc = 0;
X        if(!(argv = (char **)malloc(1024 * sizeof(char *))))
X            goto MEMORY_ERROR;
X        stdin_buf[0] = 0;
X        while(fgets(stdin_buf,sizeof(stdin_buf),stdin))
X        {
X            if(argc == 1024)
X            {
X                fprintf(stderr,"max files from stdin is 1024!\n");
X                exit(1);
X            }
X            if(stdin_buf[0])
X                stdin_buf[strlen(stdin_buf) - 1] = 0;
X            if(!(argv[argc] = malloc(strlen(stdin_buf) + 1)))
X            {
XMEMORY_ERROR: /* NOT likely, but free software must pure as snow! */
X                fprintf(stderr,"out of memory handling stdin input at %d\n",
X                    argc);
X                exit(1);
X            }
X            strcpy(argv[argc],stdin_buf);
X            argc++;
X            stdin_buf[0] = 0;
X        }
X        optind = 0;
X    }
X
X    if(optind >= argc)
X    {
X        fprintf(stderr,"shar: No input files\n");
X        helpuser();
X        exit(1);
X    }
X
X    if(Archive_name && !sharname)
X    {
X        fprintf(stderr,"shar: -n must accompany -a\n");
X        helpuser();
X        exit(1);
X    }
X
X    if(!submitter)
X    {
X        if(!(submitter = malloc(128)))
X        {
X            fprintf(stderr,"memory allocation failed\n"); /* NOT likely */
X            exit(1);
X        }
X        who_where(submitter);
X    }
X
X    if(header(argc-optind,&argv[optind]))
X        exit(2);
X
X    if(InterOW)
X    {
X        Verbose = 1;
X        fprintf(fpout,"wish=\n");
X        if(Archive_name)
X        {
X            fprintf(stderr,
X                "PLEASE do not submit -X shars to the usenet or other\n");
X            fprintf(stderr,
X                "public networks.  They will cause problems.\n");
X        }
X    }
X
X    EndHeadPos = ftell(fpout);
X
X    while(optind < argc)
X    { /* process positional parameters and files */
X        if(PosParam)
X        {        /* allow -b and -t and -C inline */
X            if(strcmp(argv[optind],"-b") == 0)
X            { /* set binary */
X                Binary = 1;
X                Compress = 0;
X                optind++;
X                continue;
X            }
X            if(strcmp(argv[optind],"-t") == 0)
X            { /* set mode text */
X                Binary = 0;
X                Compress = 0;
X                optind++;
X                continue;
X            }
X            if(strcmp(argv[optind],"-C") == 0)
X            { /* set compress */
X                Binary = 1;
X                Compress = 1;
X                optind++;
X                continue;
X            }
X        }
X        status += shar(argv[optind++]);
X    }
X
X    /* delete the sequence file, if any */
X    if(Split && filenum > 1)
X    {
X        fputs("rm -f shar3_seq_.tmp\n",fpout);
X        fputs("echo \"You have unpacked the last part\"\n",fpout);
X        if(!Verbose)
X            fprintf(stderr,"Created %d files\n",filenum);
X    }
X    fputs("exit 0\n",fpout);
X    exit(status);
X}
X
X/*+-----------------------------------------------------------------------
X    mode_map(mode,mode_str)    build drwxrwxrwx string
X------------------------------------------------------------------------*/
Xchar *
Xmode_map(mode,mode_str)
Xunsigned short mode;
Xchar *mode_str;
X{
Xregister unsigned ftype = mode & S_IFMT;
Xregister char *rtn;
Xstatic char result[12];
X
X    rtn = (mode_str == (char *)0) ? result : mode_str;
X
X    /*          drwxrwxrwx */
X    /*          0123456789 */
X    strcpy(rtn,"----------");
X
X#ifdef THIS_IS_NOT_NEEDED_FOR_SHAR
X    switch(ftype)
X    {
X        case S_IFIFO:    *rtn = 'p'; break; /* FIFO (named pipe) */
X        case S_IFDIR:    *rtn = 'd'; break; /* directory */
X        case S_IFCHR:    *rtn = 'c'; break; /* character special */
X        case S_IFBLK:    *rtn = 'b'; break; /* block special */
X        case S_IFREG:    *rtn = '-'; break; /* regular */
X
X#if defined(sun) | defined(BSD42)
X        case S_IFLNK:    *rtn = 'l'; break; /* symbolic link */
X        case S_IFSOCK:    *rtn = 's'; break; /* socket */
X#endif
X
X#if defined (SYS5)
X        case S_IFNAM:                        /* name space entry */
X            if(mode & S_INSEM)                /* semaphore */
X            {
X                *rtn = 's';
X                break;
X            }
X            if(mode & S_INSHD)                /* shared memory */
X            {
X                *rtn = 'm';
X                break;
X            }
X#endif
X
X        default:        *rtn = '?'; break;    /* ??? */
X    }
X#endif /* THIS_IS_NOT_NEEDED_FOR_SHAR */
X
X    if(mode & 000400) *(rtn + 1) = 'r';
X    if(mode & 000200) *(rtn + 2) = 'w';
X    if(mode & 000100) *(rtn + 3) = 'x';
X    if(mode & 004000) *(rtn + 3) = 's';
X    if(mode & 000040) *(rtn + 4) = 'r';
X    if(mode & 000020) *(rtn + 5) = 'w';
X    if(mode & 000010) *(rtn + 6) = 'x';
X    if(mode & 002000) *(rtn + 6) = 's';
X    if(mode & 000004) *(rtn + 7) = 'r';
X    if(mode & 000002) *(rtn + 8) = 'w';
X    if(mode & 000001) *(rtn + 9) = 'x';
X    if(mode & 001000) *(rtn + 9) = 't';
X
X    return(rtn);
X
X}    /* end of mode_map */
X
Xvoid
XsetTOUCH()
X{
X    if(Vanilla)
X        return;
X    fputs("if touch 2>&1 | fgrep 'amc' > /dev/null\n",fpout);
X    fputs(" then TOUCH=touch\n",fpout);
X    fputs(" else TOUCH=true\n",fpout);
X    fputs("fi\n",fpout);
X} /* end of setTOUCH */
X
Xheader(argc,argv)
Xchar **argv;
X{
Xint i;
Xint status;
XFILE *fpsource;    /* pipe temp */
Xchar s128[128];
Xlong now;
Xstruct tm *utc;
Xstruct tm *gmtime();
X
X    /* see if any conflicting options */
X    if(limit && !filenum)
X    { /* can't rename what you don't have */
X        fprintf(stderr,"Can't use -l or -L option without -o\n");
X        helpuser();
X        return(1);
X    }
X
X    for(i = 0; i < argc; i++)
X    { /* skip positional parameters */
X        if(PosParam &&
X            (strcmp(argv[i],"-b") == 0 ||
X             strcmp(argv[i],"-t") == 0 ||
X             strcmp(argv[i],"-C") == 0))
X            continue;
X
X        /* see if access and correct type */
X        if(access(argv[i],4))
X        {
X            fprintf(stderr,"shar: Can't access %s\n",argv[i]);
X            return(1);
X        }
X
X        /* get file type */
X        stat(argv[i],&fst);
X        status = fst.st_mode & S_IFMT;
X
X        /* at this point I check to see that this is a regular file */
X        if(status != S_IFREG)
X        { /* this is not a regular file */
X            fprintf(stderr,"shar: %s is not a regular file\n",argv[i]);
X            return(1);
X        }
X    }
X
X    if(Archive_name)
X    {
X        fprintf(fpout,"Submitted-by: %s\n",submitter);
X        fprintf(fpout,"Archive-name: %s%s%02d\n\n",
X            sharname,(strchr(sharname,'/')) ? "" : "/part",
X            (filenum) ? filenum : 1);
X    }
X
X    if(Cut)
X        fputs("---- Cut Here and unpack ----\n",fpout);
X    fputs("#!/bin/sh\n",fpout);
X    if(sharname)
X        fprintf(fpout,"# This is %s, a shell archive (shar %s)\n",
X            sharname,revision);
X    else
X        fprintf(fpout,"# This is a shell archive (shar %s)\n",revision);
X
X    time(&now);
X    utc = gmtime(&now);
X    fprintf(fpout,"# made %02d/%02d/%04d %02d:%02d UTC ",
X        utc->tm_mon + 1,utc->tm_mday,utc->tm_year + 1900,
X        utc->tm_hour,utc->tm_min);
X
X    fputs("by ",fpout);
X    fputs(submitter,fpout);
X    fputs("\n",fpout);
X
X#if defined(SYS5)
X    if(!(fpsource = popen("/bin/pwd","r")))
X        return(-1);
X    fgets(s128,sizeof(s128),fpsource);
X    s128[strlen(s128) - 1] = 0;
X    fclose(fpsource);
X#else
X#if defined(BSD42) || defined(sun)
X    getwd(s128);
X#else
X#include "Need_conditional_compile_fix"
X#endif
X#endif
X    fprintf(fpout,"# Source directory %s\n",s128);
X
X    fprintf(fpout,"#\n# existing files %s be overwritten\n",
X        (eXists) ? "will NOT"
X                 : ((InterOW) ? "MAY" : "WILL"));
X    if(InterOW)
X        fprintf(fpout,"# The unsharer will be INTERACTIVELY queried.\n");
X
X    if(Vanilla)
X    {
X        fprintf(fpout,
X        "# This format requires very little intelligence at unshar time.\n");
X        fputs("# ",fpout);
X        if(eXists)
X            fputs("\"if test\", ",fpout);
X        fputs("\"echo\" and \"sed\" will be needed.\n",fpout);
X    }
X
X    if(Split)
X    { /* may be split, explain */
X        fputs("#\n",fpout);
X        TypePos = ftell(fpout);
X        fprintf(fpout,"%-75s\n%-75s\n","#","#");
X    }
X
X    fputs("#\n# This shar contains:\n",fpout);
X    fputs("# length  mode       name\n",fpout);
X    fputs("# ------ ---------- ------------------------------------------\n",
X        fpout);
X    for(i = 0; i < argc; i++)
X    { /* output names of files but not parameters */
X        if(PosParam &&
X            (strcmp(argv[i],"-b") == 0 ||
X             strcmp(argv[i],"-t") == 0 ||
X             strcmp(argv[i],"-C") == 0))
X            continue;
X        stat(argv[i],&fst);
X        fst.st_mode &= ~(07000); /* turn off setuid, setgid and sticky bits */
X        fprintf(fpout,"# %6ld %s %s\n",fst.st_size,
X            mode_map(fst.st_mode,(char *)0),Rname(argv[i]));
X    }
X    fputs("#\n",fpout);
X
X    setTOUCH();
X
X    if(Split)
X    { /* now check the sequence */
X        fputs("if test -r shar3_seq_.tmp; then\n",fpout);
X        fputs("\techo \"Must unpack archives in sequence!\"\n",fpout);
X        fputs("\tnext=`cat shar3_seq_.tmp`; ",fpout);
X        fputs("echo \"Please unpack part $next next\"\n\texit 1\nfi\n",fpout);
X    }
X    return(0);
X}
X
X#define MAX_MKDIR_ALREADY    128    /* ridiculously enough */
Xchar *mkdir_already[MAX_MKDIR_ALREADY];
Xint mkdir_already_count = 0;
X
Xvoid
Xgen_mkdir(path)
Xchar *path;
X{
Xregister int ialready;
Xchar *cptr;
X
X/* if already generated code for this dir creation, dont do again */
X    for(ialready = 0; ialready < mkdir_already_count; ialready++)
X    {
X        if(!strcmp(path,mkdir_already[ialready]))
X            return;
X    }
X
X/* haven't done this one */
X    if(mkdir_already_count == MAX_MKDIR_ALREADY)
X    {
X        fprintf(stderr,"too many directories for mkdir generation\n");
X        exit(255);
X    }
X    if(!(cptr = mkdir_already[mkdir_already_count++] = malloc(strlen(path)+1)))
X    {
X        fprintf(stderr,"out of memory for mkdir generation\n");
X        exit(255);
X    }
X    strcpy(cptr,path);
X
X/* generate the text */
X    fprintf(fpout,"if test ! -d '%s'; then\n",path);
X    if(Verbose)
X        fprintf(fpout,"    echo \"x - creating directory %s\"\n",path);
X    fprintf(fpout,"    mkdir '%s'\n",path);
X    fprintf(fpout,"fi\n");
X
X}    /* end of gen_mkdir */
X
Xvoid
Xgen_mkdir_script(path)
Xregister char *path;
X{
Xregister char *cptr;
X
X    for(cptr = strchr(path,'/'); cptr; cptr = strchr(cptr + 1,'/'))
X    {
X        /* avoid empty string if leading or double '/' */
X        if(cptr == path || *(cptr - 1) == '/')
X            continue;
X        /* omit '.' */
X        if((*(cptr - 1) == '.') && ((cptr == path + 1) || (*(cptr - 2) == '/')))
X            continue;
X        *cptr = 0;                /* temporarily terminate string */
X        gen_mkdir(path);
X        *cptr = '/';
X    }
X}    /* end of gen_mkdir_script */
X
Xshar(file)
Xchar *file;
X{
Xchar line[BUFSIZ];
XFILE *fpsource;
Xlong cursize,remaining,ftell();
Xint split = 0;        /* file split flag */
Xchar *filetype;        /* text or binary */
Xchar *RstrName;        /* name for restore */
Xstruct tm *lt;
Xchar *filename_base;
X
X    /* get file size, dates, and mode for later */
X    stat(file,&fst);
X
X    /* if limit set, get the current output length */
X    if(limit)
X    {
X        cursize = ftell(fpout);
X        remaining = (limit * 1024L) - cursize;
X        DeBug("In shar: remaining size %ld\n",remaining);
X
X        if(!Split && cursize > EndHeadPos &&
X            (Binary ? fst.st_size + fst.st_size/3 : fst.st_size) > remaining)
X        { /* change to another file */
X            DeBug("Newfile, remaining %ld, ",remaining);
X            DeBug("limit still %d\n",limit);
X
X            fprintf(fpout,
X                "echo \"End of part %d, continue with part %d\"\n",
X                filenum,filenum + 1);
X            fprintf(fpout,"exit 0\n");
X
X            fclose(fpout);
X
X            /* form the next filename */
X            sprintf(filename,"%s%02d",outname,++filenum);
X            fpout = fopen(filename,"w");
X            if(Verbose)
X                fprintf(stderr,"Starting file %s\n",filename);
X            if(Archive_name)
X            {
X                fprintf(fpout,"Submitted-by: %s\n",submitter);
X                fprintf(fpout,"Archive-name: %s%s%02d\n\n",
X                    sharname,(strchr(sharname,'/')) ? "" : "/part",
X                    (filenum) ? filenum : 1);
X            }
X
X            if(Cut)
X                fputs("---- Cut Here and unpack ----\n",fpout);
X            if(!(filename_base = strrchr(filename,'/')))
X                filename_base = filename;
X            else
X                filename_base++;
X
X            fprintf(fpout,"#!/bin/sh\n");
X            fprintf(fpout,"# This is part %02d of %s\n",
X                filenum,(sharname) ? sharname : "a multipart archive");
X
X            setTOUCH();
X
X            EndHeadPos = ftell(fpout);
X        }
X    }
X
X    /* determine the name to use for restore */
X    RstrName = Rname(file);
X
X    fputs("# ============= ",fpout);
X    fputs(RstrName,fpout);
X    fputs(" ==============\n",fpout);
X
X    gen_mkdir_script(RstrName);
X
X    /* if mixed, determine the file type */
X    if(Mixed)
X    {
X        int count;
X        sprintf(line,"file %s | egrep -c \"text|shell\"",file);
X        fpsource = popen(line,"r");
X        fscanf(fpsource,"%d",&count);
X        pclose(fpsource);
X        Binary = (count != 1);
X    }
X
X    if(Binary)
X    { /* fork a uuencode process */
X        static int pid,pipex[2];
X
X        pipe(pipex);
X        fflush(fpout);
X
X        if(pid = fork())
X        { /* parent, create a file to read */
X            if(pid < 0)
X            {
X                fprintf(stderr,"could not fork!\n");
X                exit(1);
X            }
X            close(pipex[1]);
X            fpsource = fdopen(pipex[0],"r");
X            filetype = (Compress ? "Compressed" : "Binary");
X        }
X        else
X        { /* start writing the pipe with encodes */
X            FILE *outptr;
X
X            if(Compress)
X            {
X                sprintf(line, "compress -b12 < %s", file);
X                fpsource = popen(line, "r");
X            }
X            else
X                fpsource = fopen(file, "rb");
X            outptr = fdopen(pipex[1],"w");
X            fprintf(outptr,"begin 600 %s\n",
X                (Compress ? "shar3_cmp_.tmp" : RstrName));
X            encode(fpsource,outptr);
X            fprintf(outptr,"end\n");
X            if(Compress)
X                pclose(fpsource);
X            else
X            {
X                fclose(fpsource);
X            }
X            exit(0);
X        }
X    }
X    else
X    {
X        fpsource = fopen(file,"r");
X        filetype = "Text";
X    }
X
X    if(fpsource)
X    {
X        /* protect existing files */
X        if(eXists)
X        {
X            fprintf(fpout,"if test X\"$1\" != X\"-c\" -a -f '%s'; then\n",
X                RstrName);
X            if(InterOW)
X            {
X                fprintf(fpout,"\tcase $wish in\n");
X                fprintf(fpout,"\tA*|a*) echo x - overwriting '%s';;\n",
X                    RstrName);
X                fprintf(fpout,
X        "\t*) echo \"? - overwrite '%s' -- [No], [Y]es, [A]ll, [Q]uit? \"\n",
X                    RstrName);
X                fprintf(fpout,"\t\tread wish;;\n");
X                fprintf(fpout,"\tesac\n");
X                fprintf(fpout,"\tcase $wish in\n");
X                fprintf(fpout,"\tQ*|q*) echo aborted; exit 86;;\n");
X                fprintf(fpout,"\tA*|a*|Y*|y*) x=Y;;\n");
X                fprintf(fpout,"\t*) x=N;;\n");
X                fprintf(fpout,"\tesac\n");
X                fprintf(fpout,"else\n");
X                fprintf(fpout,"\tx=Y\n");
X                fprintf(fpout,"fi\n");
X                fprintf(fpout,"if test $x != Y; then\n");
X                fprintf(fpout,"\techo x - skipping '%s'\n",RstrName);
X            }
X            else
X                fprintf(fpout,"\techo \"File already exists: skipping '%s'\"\n",
X                    RstrName);
X            fprintf(fpout,"else\n");
X        }
X
X        fprintf(stderr,"shar: saving %s (%s)\n",file,filetype);
X        if(Verbose)
X        { /* info on archive and unpack */
X            fprintf(fpout,"echo \"x - extracting %s (%s)\"\n",
X                RstrName,filetype);
X        }
X        if(Binary)
X        { /* run sed through uudecode (via temp file if might get split) */
X            fprintf(fpout, "sed 's/^%c//' << '%s' %s &&\n",
X                   PREFIX,Delim,
X                (AvoidPipes ? "> shar3_tmp_.tmp" : "| uudecode"));
X        }
X        else
X        { /* just run it into the file */
X            fprintf(fpout,"sed 's/^%c//' << '%s' > %s &&\n",
X                PREFIX,Delim,RstrName);
X        }
X        while(fgets(line,BUFSIZ,fpsource))
X        { /* output a line and test the length */
X            fprintf(fpout,"%c%s",PREFIX,line);
X            if(Split && (remaining -= strlen(line) + 2) < 0)
X            { /* change to another file */
X                DeBug("Newfile, remaining %ld, ",remaining);
X                DeBug("limit still %d\n",limit);
X
X                if(line[strlen(line) - 1] != '\n')
X                    fputc('\n',fpout);
X
X                fprintf(fpout,"%s\n",Delim);
X                if(Verbose)
X                { /* output some reassurance */
X                    fprintf(fpout,
X                        "echo \"End of %s part %d\"\n",
X                            (sharname) ? sharname : "",filenum);
X                    fprintf(fpout,
X                        "echo \"File %s is continued in part %d\"\n",
X                        RstrName,filenum + 1);
X                }
X                else
X                    fprintf(fpout,
X                        "echo \"End of part %d, continue with part %d\"\n",
X                        filenum,filenum + 1);
X                fprintf(fpout,"echo \"%d\" > shar3_seq_.tmp\n",filenum + 1);
X                fprintf(fpout,"exit 0\n");
X
X                if(filenum == 1)
X                { /* rewrite the info lines on the firstheader */
X                    fseek(fpout,TypePos,0);
X                    fprintf(fpout,"%-75s\n%-75s\n",
X                        "# This is part 1 of a multipart archive",
X                        "# do not concatenate these parts, unpack them in order with /bin/sh");
X                }
X                fclose(fpout);
X
X                /* form the next filename */
X                sprintf(filename,"%s%02d",outname,++filenum);
X                fpout = fopen(filename,"w");
X
X                if(Archive_name)
X                {
X                    fprintf(fpout,"Submitted-by: %s\n",submitter);
X                    fprintf(fpout,"Archive-name: %s%s%02d\n\n",
X                        sharname,(strchr(sharname,'/')) ? "" : "/part",
X                        (filenum) ? filenum : 1);
X                }
X
X                if(Cut)
X                    fputs("---- Cut Here and unpack ----\n",fpout);
X                if(!(filename_base = strrchr(filename,'/')))
X                    filename_base = filename;
X                else
X                    filename_base++;
X
X                fprintf(fpout,"#!/bin/sh\n");
X                fprintf(fpout,
X                    "# this is %s (part %d of %s)\n",
X                    filename_base,
X                    filenum,
X                    (sharname) ? sharname : "a multipart archive");
X                fputs("# do not concatenate these parts, ",fpout);
X                fputs("unpack them in order with /bin/sh\n",fpout);
X                fprintf(fpout,"# file %s continued\n#\n",RstrName);
X
X                setTOUCH();
X
X                fputs("if test ! -r shar3_seq_.tmp; then\n",fpout);
X                fputs("\techo \"Please unpack part 1 first!\"\n",fpout);
X                fputs("\texit 1\nfi\n",fpout);
X                fputs("(read Scheck\n",fpout);
X                fprintf(fpout,
X                      " if test \"$Scheck\" != %d; then\n",filenum);
X                fputs("\techo \"Please unpack part $Scheck next!\"\n",
X                    fpout);
X                fputs("\texit 1\n",fpout);
X                fputs(" else\n\texit 0\n fi\n",fpout);
X                fputs(") < shar3_seq_.tmp || exit 1\n",fpout);
X
X                if(Verbose)
X                { /* keep everybody informed */
X                    fprintf(stderr,"Starting file %s\n",filename);
X                    fprintf(fpout,
X                        "echo \"x - Continuing file %s\"\n",RstrName);
X                }
X                fprintf(fpout,
X                    "sed 's/^%c//' << '%s' >> %s &&\n",
X                    PREFIX,Delim,
X                    (Binary ? "shar3_tmp_.tmp" : RstrName));
X                remaining = limit * 1024L;
X                split = 1;
X            }
X        }
X
X        (void) fclose(fpsource);
X        while(wait((int *)0) >= 0)
X            ;
X
X        if(line[strlen(line) - 1] != '\n')
X            fputc('\n',fpout);
X
X        fprintf(fpout,"%s\n",Delim);
X        if(split && Verbose)
X            fprintf(fpout,
X                "echo \"File %s is complete\" &&\n",RstrName);
X
X        /* if this file was uuencoded w/Split, decode it and drop the temp */
X        if(Binary && AvoidPipes)
X        {
X            if(Verbose)
X                fprintf(fpout,"echo \"uudecoding file %s\" &&\n",RstrName);
X            fprintf(fpout,
X                "uudecode < shar3_tmp_.tmp && rm -f shar3_tmp_.tmp &&\n");
X        }
X
X        /* if this file was compressed, uncompress it and drop the temp */
X        if(Compress)
X        {
X            if(Verbose)
X                fprintf(fpout,"echo \"uncompressing file %s\" &&\n",RstrName);
X            fprintf(fpout,
X                "compress -d < shar3_cmp_.tmp > %s && rm -f shar3_cmp_.tmp &&\n",
X                RstrName);
X        }
X
X        if(!Vanilla)
X        {
X            /* set the dates as they were */
X            lt = localtime(&fst.st_mtime);
X            fprintf(fpout,"$TOUCH -am %02d%02d%02d%02d%02d %s &&\n",
X                lt->tm_mon + 1,lt->tm_mday,lt->tm_hour,lt->tm_min,
X                lt->tm_year,RstrName);
X
X            /* set the permissions as they were */
X            fprintf(fpout,"chmod %04o %s ||\n",
X                fst.st_mode & 00777,RstrName);
X
X            /* report an error if any of the above failed */
X            fprintf(fpout,"echo \"restore of %s failed\"\n",RstrName);
X
X            if(Wc_c)
X            { /* validate the transferred file */
X                FILE *pfp;
X                char command[BUFSIZ];
X
X                sprintf(command,"%s %s",WC,file);
X                if((pfp = popen(command,"r")))
X                {
X                    char wc[BUFSIZ];
X
X                    fscanf(pfp,"%s",wc);
X                    fprintf(fpout,"set `%s %s`;Wc_c=$1\n",
X                        WC,RstrName);
X                    fprintf(fpout,
X                        "if test \"$Wc_c\" != \"%s\"; then\n",wc);
X                    fprintf(fpout,
X                        "\techo original size %s, current size $Wc_c\nfi\n",
X                        wc);
X                    pclose(pfp);
X                }
X            }
X        }
X
X        /* if the exists option is in place close the if */
X        if(eXists)
X            fprintf(fpout,"fi\n");
X
X        return(0);
X    }
X    else
X    {
X        fprintf(stderr,"shar: Can't open %s (%s): ",file,filetype);
X        perror("");
X        return(1);
X    }
X}
X
Xchar *
XRname(file)
Xregister char *file;
X{
X    register char *RstrName;
X
X    if(FileStrip)
X    { /* use just the filename */
X        RstrName = file+strlen(file);
X        while(RstrName > file && *RstrName != '/')
X            RstrName--;
X        if(*RstrName == '/') RstrName++;
X    }
X    else
X        RstrName = file;
X    if(!strncmp(RstrName,"./",2))
X        RstrName += 2;
X    return(RstrName);
X}
X
X/*****************************************************************
X |  exit_incompat - incompatible options
X ****************************************************************/
X
Xexit_incompat()
X{
X       fputs("You may only specify one of -L, -X or -x\n",stderr);
X    exit(1);
X}
X
Xchar *helpinfo[] =
X{
X    "-V  produce \"vanilla\" shars demanding little of the unshar environment",
X    "-v  verbose messages OFF while executing",
X    "-w  don't check with 'wc -c' after unpack",
X    "-n  Name of archive (documentation)",
X    "-a  Generate Submitted-by: & Archive-name: headers",
X    "-s  override automatically determined submitter name",
X    "-x  don't overwrite existing files",
X    "-X  interactively overwrite existing files (NOT FOR NET SHARS)",
X    "-b  treat all files as binary, use uuencode",
X    "-t  treat all files as text (default)",
X    "-C  compress and uuencode all files",
X    "-p  allow positional parameter options. The options \"-b\" and \"-t\"",
X    "    and \"-C\" may be embedded, and files to the right of the",
X    "    option will be processed in the specified mode",
X    "-M  mixed mode. Determine if the files are text or",
X    "    binary and archive correctly.",
X    "-P  use temp files instead of pipes in the shar file",
X    "-c  start the shar with a cut line",
X    "-f  restore by filename only, rather than path",
X    "-dXXX   use XXX to delimit the files in the shar",
X    "-oXXX   (or -o XXX) output to file XXX.01 thru XXX.nn",
X    "-lXX    limit output file size to XXk bytes (but don't split files)",
X    "-LXX    limit output file size to XXk bytes (may split files)",
X    "-S      read files to wrap from stdin, ignoring argument line",
X    "\nThe -S option reads filenames one per line from stdin; input",
X    "format must be similar to 'find' output, except that if -p",
X    "is specified, -b, -t or -C may be used (on lines by themselves)",
X    "e.g., find . -type f -print | sort | shar -C -L50 -o /tmp/big",
X    "\nThe 'o' option is required if the 'l' or 'L' option is used",
X    "The 'n' option is required if the 'a' option is used",
X    "The 'x' and 'L' options are incompatible",
X    "\n-a generates sharname/part## headers. If the -a argument contains",
X    "a '/', then /patch is not appended",
X    "The automatic submitter name is trivial: essentially `whoami`@`uname`",
X    (char *)0
X};
X
Xhelpuser()
X{                /* output a command format message */
X    register char **ptr;
X    fprintf(stderr,
X        "shar %s\nusage: shar [ options ] file [ file1 ... ] ]\n",revision);
X    for(ptr = helpinfo; *ptr; ptr++)
X        fprintf(stderr,"%s\n",*ptr);
X
X    exit(1);
X}
X/* vi: set tabstop=4 shiftwidth=4: */
SHAR_EOF
echo "End of part 1, continue with part 2"
exit 0

--------------------------------------------------------------------
Warren Tucker, TuckerWare emory!n4hgf!wht or [e-mail]
Sforzando (It., sfohr-tsahn'-doh).   A direction to perform the tone
or chord with special stress, or marked and sudden emphasis.