forked from fuzzball-muck/fuzzball-muf
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathlib-mpi.muf
45 lines (41 loc) · 1.64 KB
/
lib-mpi.muf
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
@program lib-mpi
1 99999 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.
)
$doccmd @list __PROG__=!@1-13
$version 1.0
: 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 $libdef parse_desc
public parse_drop $libdef parse_drop
public parse_fail $libdef parse_fail
public parse_idesc $libdef parse_idesc
public parse_ofail $libdef parse_ofail
public parse_odrop $libdef parse_odrop
public parse_osucc $libdef parse_osucc
public parse_succ $libdef parse_succ
.
c
q
@register lib-mpi=lib/mpi
@set $lib/mpi=3
@set $lib/mpi=L
@set $lib/mpi=V
@set $lib/mpi=W