1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
#! /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.patch-2 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.patch-2' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'README.patch-2'\"
else
echo shar: Extracting \"'README.patch-2'\" \(99 characters\)
sed "s/^X//" >'README.patch-2' <<'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.patch-2'`; then
echo shar: \"'README.patch-2'\" 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
|
