"Beginning installation of lib-mpi...
@program lib-mpi
1 9999 d
1 i
( lib-MPI: $Date: 2000/01/11 15:23:07 $ $Revision: 1.2 $
  Originally taken from the FuzzBall MUF Library
  Author: Foxen                                                               )
( --------------------------------------------------------------------------- )
(  Version Created 2/7/94 by Foxen

  A library to facilitate parsing of MPI within the standard @desc, @succ, etc
  messages.  These are drop in replacements for the DESC, SUCC, etc primitives.

  PARSE_DESC  [d -- s]  Like DESC, but parses embedded MPI and returns result.
  PARSE_IDESC [d -- s]  Like IDESC, but parses embedded MPI and returns result.
  PARSE_SUCC  [d -- s]  Like SUCC, but parses embedded MPI and returns result.
  PARSE_OSUCC [d -- s]  Like OSUCC, but parses embedded MPI and returns result.
  PARSE_FAIL  [d -- s]  Like FAIL, but parses embedded MPI and returns result.
  PARSE_OFAIL [d -- s]  Like OFAIL, but parses embedded MPI and returns result.
  PARSE_DROP  [d -- s]  Like DROP, but parses embedded MPI and returns result.
  PARSE_ODROP [d -- s]  Like ODROP, but parses embedded MPI and returns result.
)
( --------------------------------------------------------------------------- )
(
  $Log: lib-mpi,v $
  Revision 1.2  2000/01/11 15:23:07  feaelin
  Documentation corrections.

  Revision 1.1  1998/08/23 16:45:24  glow
  Initial revision

)
( --------------------------------------------------------------------------- )
: parse_desc  "_/de"  "(@Desc)"  1 parseprop ;
: parse_idesc "_/ide" "(@Idesc)" 1 parseprop ;
: parse_succ  "_/sc"  "(@Succ)"  1 parseprop ;
: parse_osucc "_/osc" "(@Osucc)" 0 parseprop ;
: parse_fail  "_/fl"  "(@Fail)"  1 parseprop ;
: parse_ofail "_/ofl" "(@Ofail)" 0 parseprop ;
: parse_drop  "_/dr"  "(@Drop)"  1 parseprop ;
: parse_odrop "_/odr" "(@Odrop)" 0 parseprop ;
public parse_desc
public parse_idesc
public parse_succ
public parse_osucc
public parse_fail
public parse_ofail
public parse_drop
public parse_odrop
.
c
q
@register lib-mpi=lib/mpi
@set $lib/mpi=L
@set $lib/mpi=W
@set $lib/mpi=_defs/parse_desc:"$lib/mpi" match "parse_desc" call
@set $lib/mpi=_defs/parse_idesc:"$lib/mpi" match "parse_idesc" call
@set $lib/mpi=_defs/parse_succ:"$lib/mpi" match "parse_succ" call
@set $lib/mpi=_defs/parse_osucc:"$lib/mpi" match "parse_osucc" call
@set $lib/mpi=_defs/parse_fail:"$lib/mpi" match "parse_fail" call
@set $lib/mpi=_defs/parse_ofail:"$lib/mpi" match "parse_ofail" call
@set $lib/mpi=_defs/parse_drop:"$lib/mpi" match "parse_drop" call
@set $lib/mpi=_defs/parse_odrop:"$lib/mpi" match "parse_odrop" call
@set $lib/mpi=/_/de:lib-mpi:List lines 1-15 for documentation.
@set $lib/mpi=_docs:@list $lib/mpi=1-15
@set $lib/mpi=_lib-version:1.0FM$Revision: 1.2 $
"Installation of lib-mpi complete.