#! /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 shell archive."
# Contents:  README lspatch koobera.math.uic.edu
# Wrapped by lmjm@phoenix.doc.ic.ac.uk on Mon Dec 23 18:00:12 1996
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'README' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'README'\"
else
echo shar: Extracting \"'README'\" \(99 characters\)
sed "s/^X//" >'README' <<'END_OF_FILE'
XPatch to allow processing of Daniel Bernstein's EPLF directory listings
Xand an example of its use.
END_OF_FILE
if test 99 -ne `wc -c <'README'`; then
    echo shar: \"'README'\" unpacked with wrong size!
fi
# end of 'README'
fi
if test -f 'lspatch' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'lspatch'\"
else
echo shar: Extracting \"'lspatch'\" \(1320 characters\)
sed "s/^X//" >'lspatch' <<'END_OF_FILE'
X*** lsparse.pl.old	Mon Dec 23 17:58:08 1996
X--- lsparse.pl	Mon Dec 23 17:53:14 1996
X***************
X*** 1178,1183 ****
X--- 1178,1231 ----
X  	return( '', 0, 0, 0, 0 );
X  }
X  
X+ 
X+ # --------------------- EPLF by Dan Bernstein
X+ # +i8388621.48638,m848117771,r,s1336,     qmsmac.html
X+ # +i8388621.88705,m850544954,/,   txt
X+ #
X+ sub lsparse'line_eplf
X+ {
X+ 	local( $fh ) = @_;
X+ 
X+ 	if( $lsparse'readtime ){
X+ 		alarm( $lsparse'readtime );
X+ 	}
X+ 
X+ 	if( eof( $fh ) ){
X+ 		alarm( 0 );
X+ 		return( "", 0, 0, 0 );
X+ 	}
X+ 
X+ 	while( <$fh> ){
X+ 		s/\015//g;
X+ 
X+ 		# Store listing
X+ 		print main'STORE $_;
X+ 
X+ # +i8388621.48638,m848117771,r,s1336,     qmsmac.html
X+ # +i8388621.88705,m850544954,/,   txt
X+ 		if( ! m:^\+i(\d+\.\d+),m(\d+),(/|[rw],s(\d+)),\s+(.*)$: ){
X+ 			printf( "Unmatched line: %s\n", $_ );
X+ 			next;
X+ 		}
X+ 		local( $dev_ino, $time, $dirrw, $size, $file ) = ($1, $2, $3, $4, $5);
X+ 		local( $mode );
X+ 		if( $dirrw =~ m:^/: ){
X+ 			$type = 'd';
X+ 			$size = 0;
X+ 			$mode = 0755;
X+ 		}
X+ 		else {
X+ 			$type = 'f';
X+ 			$mode = ($dirrw =~ /r/ ? 0444 : 0666 );
X+ 		}
X+ 		return( $file, $size, $time, $type, $mode );
X+ 	}
X+ 	alarm( 0 );
X+ 	return( '', 0, 0, 0, 0 );
X+ }
X+ 
X+ 
X  # --------------------- CTAN files list
X  #    22670 Mon Jul 20 12:36:34 1992 pub/tex/biblio/bibtex/contrib/aaai-named.bst
X  #
END_OF_FILE
if test 1320 -ne `wc -c <'lspatch'`; then
    echo shar: \"'lspatch'\" unpacked with wrong size!
fi
# end of 'lspatch'
fi
if test -f 'koobera.math.uic.edu' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'koobera.math.uic.edu'\"
else
echo shar: Extracting \"'koobera.math.uic.edu'\" \(239 characters\)
sed "s/^X//" >'koobera.math.uic.edu' <<'END_OF_FILE'
Xpackage=DanBer
X	comment=Various programs by Daniel Bernstein
X	site=koobera.math.uic.edu
X	remote_dir=/pub/software
X	local_dir+Mirrors/koobera.math.uic.edu/pub/software
X	compress_patt=
X	remote_fs=eplf
X	recurse_hard=true
X	flags_nonrecursive=
END_OF_FILE
if test 239 -ne `wc -c <'koobera.math.uic.edu'`; then
    echo shar: \"'koobera.math.uic.edu'\" unpacked with wrong size!
fi
# end of 'koobera.math.uic.edu'
fi
echo shar: End of shell archive.
exit 0

.