Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!cbosgd!ihnp4!inuxc!iuvax!pur-ee!j.cc.purdue.edu!h.cc.purdue.edu!s.cc.purdue.edu!qix
From: qix@s.cc.purdue.edu.UUCP
Newsgroups: comp.binaries.amiga
Subject: P: a pipe-handler (uuencoded executable)
Message-ID: <467@s.cc.purdue.edu>
Date: Wed, 8-Jul-87 02:53:09 EDT
Article-I.D.: s.467
Posted: Wed Jul 8 02:53:09 1987
Date-Received: Sat, 11-Jul-87 10:46:09 EDT
Sender: doc@s.cc.purdue.edu
Reply-To: doc@s.cc.purdue.edu (Craig Norborg)
Distribution: world
Organization: Purdue University Computing Center
Lines: 492
Approved: doc@s.cc.purdue.edu
Here are the binaries to Ed Puckett's pipe handler. Sources are
in comp.sources.amiga.
# This is a shell archive.
# Remove everything above and including the cut line.
# Then run the rest of the file through sh.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# Xshar: Extended Shell Archiver.
# This archive created: Wed Jul 8 01:43:28 1987
# By: Craig Norborg (Purdue University Computing Center)
# Run the following text with /bin/sh to create:
# README
# loader_Mount
# ph.uue
# phl.uue
cat << \SHAR_EOF > README
README file for pipe-handler (version 1.2 13-Jun-87)
====================================================
This program and source are freely distributable, provided the file headers
remain intact (i.e., my name is on them!!!).
Ed Puckett accepts no responsibility for others' use of this program.
...but you shouldn't have any problems!
WHAT IS THIS?
-------------
Pipe-handler is an AmigaDOS device. It supports OPEN, CLOSE, READ and
WRITE (of course), and also LOCK, EXAMINE, EXNEXT. Therefore, you can
CD to the handler, use Dir and List on it, and ASSIGN to it as well as
to individual pipes in it. Here is a complete list of the packet
types it supports:
MODE_READWRITE
ACTION_FINDINPUT (syn: MODE_READONLY, MODE_OLDFILE)
ACTION_FINDOUTPUT (syn: MODE_NEWFILE)
ACTION_END
ACTION_READ
ACTION_WRITE
ACTION_LOCATE_OBJECT
ACTION_COPY_DIR
ACTION_FREE_LOCK
ACTION_EXAMINE_OBJECT
ACTION_EXAMINE_NEXT
ACTION_PARENT
You cannot Seek() pipes nor can you create pipe subdirectories.
INSTALLATION
------------
1. Perform the following:
Copy pipe-handler-l L:pipe-handler-loader
Copy pipe-handler L:pipe-handler
2. Add to S:Startup-Sequence (do not include !'s - they denote start of line):
!Mount P:
!Dir >NIL: P:
3. Add to DEVS:Mountlist (do not include !'s - they denote start of line):
!P: Handler = L:pipe-handler-loader
! Stacksize = 3000
! Priority = 5
!#
4. Reboot
NOTES ON INSTALLATION
---------------------
* The handler, once installed, requires approximately 18k of memory. This
memory cannot be reclaimed (unless you reboot and do not load the handler).
Each pipe requires additional memory while it exists (its buffer size +
about 100 bytes or so).
* You can skip the reboot, and just perform the "Mount" and "Dir" from the
startup-sequence manually.
* After the "Dir", the pipe-handler is loaded into the system, and the files
"L:pipe-handler-loader" and "L:pipe-handler" will not be accessed until the
next reboot. This means you may remove them from L: if you want (until
next reboot). I do this because I copy L: into Ram:.
* TO CHANGE THE HANDLER NAME: change "P:" to whatever you want (e.g., "PIPE:")
in the following 2 files:
DEVS:Mountlist (1 occurrence)
S:Startup-Sequence (2 occurrences)
* Feel free to shorten or otherwise change the names "pipe-handler-loader"
and "pipe-handler". Just be sure to reflect those changes in
"S:Startup-Sequence" and "DEVS:Mountlist".
TAPS
----
The handler also supports "taps". These are essentially tees off of the
pipe, and can specify any destination to which a copy of the pipe's stream
is to be sent. One interesting application of this is tapping to a
CON: window; you can then see what is going through the pipe, and you
can also stop pipe throughput by typing a character into this window.
Taps can also be other pipes.
For an interesting demo of taps, EXECUTE the file "tap_demo".
All pipe I/O is asynchronous, so you will not be able to lock up the
handler by stopping one of its pipes. A single reader / single writer
discipline in enforced.
Pipe buffers are dynamically allocated. A pipe is removed from memory
when all openers have closed it and it is empty. The size of a pipe buffer
may be specified as part of its name. Otherwise, pipe buffers have a default
size of 4096 bytes.
Pipes behave in most respects like ordinary files. Some differences follow:
Pipes block for writing (i.e., the write request is suspended) when the
pipe's buffer is full, and block for reading when the pipe's buffer is
empty. Thus, pipes are sort of like bounded ram: files. EOF is returned
for reading when the pipe's buffer is empty and no process has the pipe
open for writing.
NAME SYNTAX
-----------
In addition to the pipe's identifier, its name can specify its size
and a tap. The syntax is
name[/size][/[tapname]]
where the parts enclosed in "[]" are optional. The size must begin with
a digit in the range 0-9. If first digit is not "0", the size is
interpreted as decimal. If the size begins with "0x", it is interpreted
as hexadecimal. Otherwise, if the size begins with "0" but not "0x", it
is interpreted as octal.
If an empty tapname is specified, the default tap CON:10/15/300/70/name
is used (where "name" is the pipe's name given).
EXAMPLES OF PIPE NAMES
----------------------
The following assume that the pipe-handler is mounted as device P:
P:x Opens a pipe named "x" with buffer size 4096
P:x/100 Opens a pipe named "x" with buffer size 100
P:hold/ Opens a pipe named "hold" with buffer size
4096, and also opens a window which displays
the data which passes through the pipe.
P:xyzzy/plugh Opens a pipe named "xyzzy" with buffer size
4096, and also directs the data passing
through into the file "plugh". (Note that
taps may be specified without specifying
a size.)
P:thru/0x40/ram:thru-log Opens a pipe named "thru" with buffer size
64 (decimal), and also directs the data
passing through the pipe into the file
"ram:thru-log".
WHAT IS THIS SILLY "LOADER" FILE?
---------------------------------
According to _The_AmigaDOS_Manual_ (Bantam Books, Feb 1986), page 291:
If you write your device handler in C, you cannot use the automatic
load and process creation provided by the kernel. In this case you
must load the code yourself . . . .
Well, I know others have gotten around this, and I did, too. The "prelude"
version of the handler (see the Makefile) does it all with one file.
However, I noticed that doing it this way, the handler would take about
3 seconds to "Mount" (after first access to it). This made me very nervous -
visions of wild linking through memory, etc. The loader version mounts
almost immediately.
Anyway, due to my (possibly unfounded) paranoia, I instead use the BCPL-like
assembly module "pipe-handler-loader" which LoadSeg()'s pipe-handler. There
are undoubtedly better ways of handling this, but this works and, for me,
it is not too annoying to put up with the extra file.
COMPILATION
-----------
The supplied C source files were compiled with Lattice v3.03.
The assembly programs were assembled using the Commodore Assembler.
See the Makefile for information on creating a debugging version
(this puts up a window and tells you what packets are received by
the handler - fun!). Basically, you just compile with a -DDEBUG
option and link in the debugging modules.
The Makefile will make either a "prelude" version (no "loader file)
or a "loader" version (the default).
I use an EXECUTE file "cc" to driver the compiler. It is supplied.
INQUIRIES / COMMENTS / SUGGESTIONS
----------------------------------
Ed Puckett
US Mail: MIT Branch PO - PO Box 61
Cambridge, MA 02139
E Mail: ...!ihnp4!mit-eddie!mit-oz!qix
SHAR_EOF
cat << \SHAR_EOF > loader_Mount
/* An example MOUNTLIST file enabling a 5" disk to be mounted
as DF1: and an interactive serial port mounted as AUX:
*/
DF1: Device = trackdisk.device
Unit = 1
Flags = 1
Surfaces = 2
BlocksPerTrack = 11
Reserved = 2
Interleave = 0
LowCyl = 0 ; HighCyl = 39
Buffers = 5
BufMemType = 3
#
/* This is provided as an example of an alternative type of
non-filing device mount. Please note that L:aux-handler
is not provided, and thus this mount does not work.
*/
AUX: Handler = L:aux-handler
Stacksize = 700
Priority = 5
#
P: Handler = L:pipe-handler-loader
Stacksize = 3000
Priority = 5
#
SHAR_EOF
cat << \SHAR_EOF > ph.uue
begin 777 pipe-handler
M #\P 4 !, #R " T < Z@ D
M @ D >@ &! !/ $ & #0 !$ , !0
M #D . 1P ^D #R3E;_Y$CG( C^0 0 ,0J=(>0 !1.
MN0 .A0CR/ $$J 9P "QB!N @@* 4Y8!R'B\!2'D +P!.N0
M 2!/[P ,+7P __P@;O_\$!!* &<0# .F8$0A!@!E*N__Q@YD*G3KD
M P6(\M0/_X!H !<(\ $(&[_^'( (4$ F"!Y !! H E(@$C
M+P O 4ZY %"/(\ (2H!G (Z< @>0 00* /<@'AH7 (GD
M ($"D #W0!X:(M0?_T@H(B;@ (("D '.6 (\ (GD (T@ ")'(
M(\@ >(\@ B2'D F+4'_["U"__!.N0 "18CR!N @O$"\H 1.
MN0 *A0CR\N_^Q.N0 $18CRU _^C KO_P2H!G("\Y "&$ >98CRU
M_^1*@&<,+P!.N0 !*Y8CV#@("[_Z,"N__1*@&>\+SD $80 !NEB/+4#_
MY$J 9Z@@0" H AR8 2! "&L 3BPNQ@(9O!.^Q@& '6 18 8
M8 _@ !=@ #F #V ,X 38 M@ A@ "> 5V ((
M !28 : ^]@ !0 #[F #8 /M8 ' ^Q@ "0J3G5.5O_X+7D >
M__Q*KO_\9T8@;O_\6(@O""\N A.N0 EQ0CR! $A M0/_X2@%F'"(N B0
M@2!N__Q8B-' $!!* &8(("[__$Y>3G4@;O_\+5#__&"T< !.7DYU /L
M $0 $ ,B #&@ PP , "]@ 78 %* \@ .P
M #. O@ + "6 A@ "0 6 #@ 8 " #;@
M 0H $$ _@ % ^ @ 0 .( 1@ 0 ( "
M0 C (> "# , ) "9@ E( %@ !@ H +&
M "M@ J8 *6 "A@ G8 ! $0 *@ ! $@ 1@
M ( $P T8 ,H #$@ 38 +H !*@ '0 <
M _( /J " 9&]S+FQI8G)A3G5.5O_\
M2.< !"IN A*E6<$*E5@^"JN P@;@ ,0I!,WR 3EY.=4Y6__PM;@ (__P@
M;O_\2I!G'B 0(FX #+/ 9@H@0")N__PBD& *(&[__"U0__Q@VDY>3G4
M _( /I ZDY6__Q(>0 !(>0 !A (D4(]!^0 !$B;@ ,(H@B
M;@ 0(KP ! (&X %$*0<&PO "!N PO$"\N AA #>3^\ #' Z+P @;@ ,
M+Q!A &Z4(\@0!(0+4#__ P! #IF%%*(+P@B;@ ,+Q$M2/_\80 !P%"/<"\O
M "!N PO$&$ 8A0CRU __P@0$H09P AD(04J[__"!N__P0$$B 2,!R.2\!
M3G52KO_\
M(&[__")N !0BB! 02@!F!B*\ ' !3EY.=4Y6__A(YP,,*FX ""AN P<
M%4B&2,92C2 N !!3@+R ;P(L 'X OH9L"AB54HU2C%*'8/)"%$S?,,!.7DYU
M3E;_]$CG PPJ;@ ((&X #%*(*$@@+@ 04X L 'X OH9L$B!,4HP0%1" 4HU*
M &<$4H=@ZB '(&X #!" 3-\PP$Y>3G5.5@ 2.<' "XN @L+@ ,*BX $+Z&
M;0B^A6X$< %@ G 3-\ X$Y>3G5.5@ 2.B\!3G5.5@
M2.+@ /$!5* &<(L =G!%*-8/(@#4S?((!.7DYU3E8 $CG PJ
M;@ (*&X #"!-4HT0%!" 4HQ* &;R3-\P $Y>3G5.5O_^2.< #"IN @H;@ ,
M2A5G+A 52(!(P"\ 80#_4EB/$A1(@4C!+P$?0 ,80#_0%B/$B\ "+( 9@92
MC5*,8,X@#4S?, !.7DYU3E;_]' *+4#__"U\ $O_X(&X "! 0# ,&8B
M$"@ 4B 2, O &$ _OI8CPP %AF#' 0+4#__%2N A@%B!N @0$ P #!F
M"G (+4#__%*N @@;@ ,0I @;@ ($!!(@$C +P!A /ZZ6(](@$C +P O+O_X
M80#^[%"/(B[_^)"!(B[__%.!+P%"IR\ +4#_]&$ _F1/[P ,2H!G1" \ 0
M )"N__0B+O_\3KD (&X #"(0LH!C!G 3EY.=2 N__P@;@ ,(A!.N0
M @@" N__31D%*N A@ /]Z(&X "! 0# +V<(2@!G!' 8 )P 4Y>3G4
M ^P " !0 K0 & P 8 $6 & P !
M #@ U@ ! #P W@ #\@ ^H )0T]..C$P+S$U
M+S,P,"\W,"\ ,#$R,S0U-C
M3G5.5O_T2.3G5.5O_T2.(&[_[! 02@!G%"\(+RX "&$ !010CTS?! !.
M7DYU(&X ""UH C__" H !CE@)'(+4#_]"U(_^!*@&<2)$ B:@ $+4G_X+/\
M &8L(&[_\! 02@!F$"!N @A? -( $& LXO+O_P3KD -H6(\M
M0/_@8"0@;O_P$!!* &<0(&X ""%\ T@ 08 "HB!N_^!8B"U(__ @;@ (
M("@ %.6 <@$O 7(,+P$M0/_X3KD 4(\M0/_D2H!F#G!G(&X ""% !!@
M )D2J[_X&8 5@,K@ ^W__&80(&X ""%\ S0 08 "0G!G(&X ""%
M !!P 2\ +SP "63KD 4(\M0/_@2H!G (<+R[_Z$ZY %B/(&[_
MX"% '!*@&B-N P ?B-(
M ((O"2\I (9.N0 !%I0CR\N_^!(>0 !Y.N0 !10CV .XO+O_@+RX
M#&$ 5)0CTJ 9Q @;@ ((7P #2 !!@ #D(&[_Y""N_^ @+O_\(4 !"!N
M @A? ,H $ R #[68J(&[_X! H '0( 9@ L"!N_^1"J ((&[_
MX! H '0 !$4 =&!8#*X /N__QF*B!N_^ 0* !T" 69\< $@;O_D
M(4 ""!N_^ 0* !T A% '1@)"!N_^ 0* !T @ TH 9E!P B!N_^0A
M0 ((&[_X!%\ , =$JN QG'B!N_^!*J !^9PHO* !^80 #@%B/(&[_X"%N
M P ?B!N__@A;O_D "1P 2!N @A0 ,0J@ $"!N A*J ,9BA*KO_D9Q!P
M#"\ +R[_Y$ZY &%"/2JX #&<8+RX #&$ RY8CV ,+R[_X$ZY %B/
M(&X ""\0+R@ !$ZY J%"/3-\$ $Y>3G5.5O_P0J[_\$JN AG;@RN G
M$/_P;&0@+@ (Y8 M0/_\(D @:0 (L?D $9D @:0 D+4C_^+'\ &<.
M(% M2/_TL?P 9@9P $Y>3G4@;O_TL>X #&8&< %.7DYU(&[_]"UH 'X
M"& &< !.7DYU4J[_\&",< !.7DYU3E;_^"!N @M: 4__P@;O_\+5#_^$JH
M AG"@RH @ (9A @;O_X$"@ = ( __X10 !T(&[__" H @,@ %G
M!%6 9A @;O_X$"@ = ( __T10 !T< PO "\N__Q.N0 !A0CR\N__A.N0
M 0Q8CW !(&X ""% Q"J 0+Q O* $3KD "H4(].7DYU3E8 "\N A(
M>0 !Y.N0 #I0CR)N @@:0!P("@ "@: #R\ +PA.N0 !A0CW 4
M+P @;@ (+R@ ADZY &%"/(&X "$JH 'YG"B\H 'YA &26(\O/ )8O
M+@ (3KD 84(].7DYU3E;_Z$CG(#!*K@ ,9P M' !+P!P;"\ 3KD
M4(\M0/_\2H!G ":+SP 0 !<"PO $ZY %"/+4#_^$J 9VYP 2\ 3G4@;O_X
M(F[_]"-( 0C;O_\ PD;O_\+RH "' +P O "\J "0O/ ^\O"$ZY $
M?$_O !@O+O_T2'D B3KD 4(],WP0 3EY.=0 #[ $
M R@ , ! &^@ != 02 ! ( >* &U@ !0H
M )\ ! , >0 &W !1 *" P 0 9R !Z
M #0 ! !P 7P ' "0 !WP ;( ', !?X <$ %
MU@ !-H " "@ \@ )P @ !( 9< %Z@ !4 3
M &3 !/8 /: '0 !BX 8> @ !6@ 5" %+@ !,X
M .J !T ;X << %P !:@ 6, !F 68 $2
M _( /I !@4Y6__1*K@ ,9S(,K@ $ #&3G5.5O_V+RX "$ZY %B/'7P ?__2B[__V< .Q"+O__(FX
M""!I ' @$+"H 1F!DHH AG7")N @@:0!V+4C_^K'\ &=(+R@ #"\H
M @O*0!P3KD !63^\ #"U __9*@&<2(&[_^M&H B1J ,'7P ?__(&[_
M^DJH QFG"\(+RX "&$ .!0CV".(FX ""!I ' @$+"H 1F"$HH AF /]L
M(FX ""!I 'HM2/_ZL?P 9P#_5B\H PO* (+RD <$ZY !1D_O PM
M0/_V2H!G$B!N__K1J (D:@ #!U\ '__R!N__I*J ,9I@O""\N AA:E"/
M8(PB;@ ((&D <" 0L*@ !&922B@ "&9,$"D = @ %F0DJI 'IF/")N @@
M:0!V+4C_^K'\ &<*+P@O"6$F4(]@XB!N @0* !T" &802J@ @F8*
M+PA.N0 !0!8CTY>3G5.5O_T2.< ,"!N PM: $__PB;O_\("D ')"H PC
M0 ,< C0 02J@ $&8Z)&X "-3\ '8O""\*3KD Z4(\@;O_\+Q O* $
M3KD "H4(]P%"\ +RX #$ZY &%"/8 UB!N C0_ !Z+RX #"\(3KD
M Z4(\@;@ (2J@ ?F< )(O.0 AA "R6(\M0/_X2H!F)"!N__PO$"\H
M 1.N0 *A0CW 4+P O+@ ,3KD 84(]@>B!N__@B;@ ,(T@ !"-N__P
M""1N @@*@!^Y8 D0"\J @F;O_\+RL '"\K !@O*@ D3G5.5O_X2.< ("\\ $ 7 4+P!.N0
M !0CRU __Q*@&8*< !,WP0 3EY.=2\\ $ 7 P+P!.N0 !0CRU __A*
M@&8:3G4@;O_\$7P !0 ((F[_^"%)
M HD;@ ((4H #B*((TH !" )3-\$ $Y>3G5.5@ 2JX "&3G5.5O_\+7D
M B__Q*KO_\9RHB;O_\(&D !+'N AF$B\)2'D B3KD Z4(]@"B!N
M__PM4/_\8-!*KO_\9@XO+@ (80#_4EB/3EY.=2!N @@* ((&X "" H !CE@$AN__A(;O_T2&[__"\ 3KD
M3^\ $$J 9A @;@ ((7P #2 !!@ "H2J[_\&<4(F[_\"!I 0M2/_LL?P
M 9EH@;O_\$!!* &82(#D Y(@@;@ ((4 #&!P+R[__$ZY #:%B/
M+4#_[$J 9@X@;@ ((7P #- !!@3B!N_^P@* "&Y(@@;@ ((4 #"!N_^Q2
MJ ""8#(@;O_\$!!* &<.(&X ""%\ T@ 08!H@;O_L("@ AN2((&X ""%
M P@;O_L4J@ @B!N @O$"\H 1.N0 *A0CTY>3G5.5O_X(&X "" H !0A
M0 ,< A0 0("@ %.6 +4#__$J 9Q8B0"!I 0M2/_XL?P 9P12J ""
M(&X ""\0+R@ !$ZY J%"/3EY.=4Y6__@@;@ (("@ %.6 +4#__$J 9@Y"
MJ ,(7P #3 !!@,")N__P@:0 $+4C_^+'\ &<.4Z@ @B\(3KD $,
M6(]P 2!N @A0 ,0J@ $"!N @O$"\H 1.N0 *A0CTY>3G5.5O_T2.<
M(' !(&X ""% QP "% ! @* 8Y8 B* 4Y8$M0/_\+4'_^$J!9@Y"J ,
M(7P #- !!@=B)N__@@:0 $+4C_]+'\ &8N2'D F< O "\ < $O
M ' #+P!(>0 O.0 !XO+O_\80 "!D_O "!@-"!N__18B"1N__0B:@!P
MU/P BB\*< $O "\I IP_R\ < ,O "\(0J3G5.5O_\86!P
M "!N @A0 0("@ %.6 +4#__$J 9@Y"J ,(7P #3 !!@)"!N__Q*J $
M9@H@;@ (0J@ #& 0(#D Y(@@;@ ((4 #"!N @O$"\H 1.N0 *A0
MCTY>3G5*N0 !F'D'Y " (5H "@/____Q"IR\ (\ 8010CTYU
M3E8 "!N A"D"%N P !'#^(4 ""%Y ! ,(#D Y(@A0 03EY.
M=4Y6 @;@ ((*X #"%N !@ !%"(<&PO "\(+RX $$ZY !7D_O P@;@ (
M(6X % !T(6X & !X(6X ' !\(6X ( " T/P A' ,+P O""\N "1.N0 0!/
M[P ,(&X "$(H )!.7DYU #[ $ T ( ! $>@
M!'( % @ T8 )X "<@ EX 8 @ 0 2H
M> $ ) !X 0 + $4 !#0 0. N@ $ ,
M $/ ( 2 '@ ! ' $P !-P 0H #O@ LH
M ( !E@ 48 #\@ ^H ! _( /K !@
M _( /I #2\"+P-*@6 B+PI.N0 !A/[P ,3-\$
M!$YU #[ $ 0 C@ @ 3 -@ !0 !N R@
M $H " K@ -8 #\ $N3#D # $N3#@
M*@ $N3#< 5 $N3#8 B $N3#4 ? $N3#0
M E $N3#, 1@ $N3#( ) $N3#$ E@ $N
M3#$W H $N3#$V G $N3#$U I $N3#$T J@
M $N3#$S M $N3#$R W@ $N3#$Q ! $N3#$P
M -?1&5L971E4&]R= "< U]#0 !!.KO]\+%].=2\.+'D 0(B\ "$ZN_U(L
M7TYU+PXL>0 ! B+P (3J[_0"Q?3G4 /L P $ H %
M 0 #\ -?1&%T95-T86UP D U]$979I8V500 P@+P (3J[^PBQ?3G4O#BQY #" O
M A.KOZV+%].=2\.+'D ,("\ "$ZN_K L7TYU+PXL>0 PB;P (3J[^
MGBQ?3G4O#BQY #")O A.KOZ8+%].=2\.+'D ,3.\# (3J[^DBQ?
M3G4 "\.+'D ,(&\ "$ZN_HPL7TYU+PXL>0 PB;P (3J[^8BQ?3G4O
M#BQY #")O @@+P ,3J[]V"Q?3G4O#BQY #$SO P "" O !!.KOV0
M+%].=0 #[ T ! !! .P #8 Q *P "8
MA ' !< 2 #0 < ! /P E]#;W!Y365M
M ! -?3W!E;DQI8G)A phl.uue
begin 777 pipe-handler-l
M #\P ! R #Z0 #( RG_P 0Y8DO
M00 0J\ !$/Z (9"@"QX 1.KOW8+T "&8 XO? 'H !& %A#^@!P
M(@DL;P (3J[_:B] QF .+WP #- 1@ J0_H /B*/("\ #.6(($ @
M+P +P!.J $+GH )B(O PL;P (3J[_9")O @L> $3J[^8B O 3?_
M !!.=0 !D;W,N;&EB0!,.G!I<&4M:&%N9&QE<@ $
+ $ 0 _(N
end
SHAR_EOF