@program lib-mpi
1 9999 d
1 i
( Lib-MPI   version 1.0  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.
)

: 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=_docs:@list $lib/mpi=1-14
@set $lib/mpi=_version:1.0
