forked from fuzzball-muck/fuzzball-muf
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathlib-mpi.muf
50 lines (48 loc) · 2.02 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
46
47
48
49
50
@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=V
@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