on bfaa358 help sign in
48 lines 908 B history raw
1### `++glue`
3Skip delimiter
5Parsing composer: connects an `++edge` `vex` with a following `++rule` `sab` by
6parsing the `++rule` `bus` (the delimiting symbol) and throwing out the
7result.
9Accepts
10-------
12`bus` is a `++rule`.
14`sab` is a `++rule`.
16`vex` is an `++edge`.
18Produces
19--------
23Source
24------
26 ++ glue :: add rule
27 ~/ %glue
28 |* bus/rule
29 ~/ %fun
30 |* {vex/edge sab/rule}
31 (plug vex ;~(pfix bus sab))
32 ::
34Examples
35--------
37 ~zod/try=> (scan "200|mal|bon" ;~((glue bar) dem sym sym))
38 [q=200 7.102.829 7.237.474]
39 ~zod/try=> `[@u @tas @tas]`(scan "200|mal|bon" ;~((glue bar) dem sym sym))
40 [200 %mal %bon]
41 ~zod/try=> (scan "200|;|bon" ;~((glue bar) dem sem sym))
42 [q=200 ~~~3b. 7.237.474]
43 ~zod/try=> (scan "200.;.bon" ;~((glue dot) dem sem sym))
44 [q=200 ~~~3b. 7.237.474]
48***