mirror of
https://github.com/urbit/shrub.git
synced 2024-12-12 10:29:01 +03:00
Supports old syntax for gradual reset.
This commit is contained in:
C. Guy Yarvin
parent
26df7ded6e
commit
402cc8a920
166
arvo/hoon.hoon
166
arvo/hoon.hoon
@ -9565,11 +9565,16 @@
|
||||
(stag %dtts ;~(pfix tis (ifix [pel per] ;~(glam wide wide))))
|
||||
:- '?'
|
||||
;~ pose
|
||||
(stag %cbwt ;~(pfix wut (ifix [pel per] (most ace wide))))
|
||||
%+ stag %bccm
|
||||
(stag %fern ;~(pfix wut (ifix [pel per] (most ace toil))))
|
||||
:: (stag %cbwt ;~(pfix wut (ifix [pel per] (most ace wide))))
|
||||
::
|
||||
(cold [%cbzz %bean] wut)
|
||||
==
|
||||
:- '['
|
||||
rupl
|
||||
:- ','
|
||||
(stag %bccm ;~(pfix com hill))
|
||||
:- '^'
|
||||
;~ pose
|
||||
(stag %cnzz rope)
|
||||
@ -9651,13 +9656,72 @@
|
||||
==
|
||||
==
|
||||
++ sump (ifix [kel ker] (stag %cltr (most ace wide)))
|
||||
:: ++ noil
|
||||
:: |= tol=?
|
||||
:: =< ;~ pfix buc
|
||||
:: %- stew
|
||||
:: ^. stet ^. limo
|
||||
:: :~
|
||||
:: ['^' (rung ket %herb exqd)]
|
||||
:: ==
|
||||
:: ==
|
||||
:: |%
|
||||
:: ++ toad
|
||||
:: |* har=__(exqa)
|
||||
:: =+ dur=(ifix [pel per] $:har(tol |))
|
||||
:: ?:(tol ;~(pose ;~(pfix gap $:har(tol &)) dur) dur)
|
||||
:: ::
|
||||
:: ++ rung
|
||||
:: |* {dif+rule tuq+* har+__(exqa)}
|
||||
:: ;~(pfix dif (stag tuq (toad har)))
|
||||
:: ::
|
||||
:: ++ gunk ~+((glue muck))
|
||||
:: ++ muck ?:(tol gap ace)
|
||||
:: ++ butt |*(zor=rule ?:(tol ;~(sfix zor ;~(plug gap duz)) zor))
|
||||
:: ++ loaf ?:(tol howl toil)
|
||||
:: ++ lobe ?:(tol tall wide)
|
||||
:: ++ exqa |.(loaf)
|
||||
:: ++ exqb |.(;~(gunk loaf loaf))
|
||||
:: ++ exqc |.((butt (most muck loaf)))
|
||||
:: ++ exqd |.(lobe)
|
||||
:: ++ exqe |.(;~(gunk sym loaf))
|
||||
:: --
|
||||
++ noil
|
||||
|= tol=?
|
||||
=< ;~ pfix buc
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~
|
||||
['|' (rung bar %reed exqb)]
|
||||
['&' (rung pam %bush exqb)]
|
||||
['?' (rung wut %fern exqc)]
|
||||
['_' (rung cab %weed exqd)]
|
||||
['^' (rung ket %herb exqd)]
|
||||
['=' (rung tis %bark exqe)]
|
||||
:- '+'
|
||||
%+ cook
|
||||
|=({a+tile b+tile} [%weed [%brls a [%bctr b]]])
|
||||
;~(pfix lus (toad exqb))
|
||||
:- '%'
|
||||
;~ pfix cen
|
||||
%+ sear
|
||||
|= a=(list tile) ^- (unit tile)
|
||||
=- ?~(b ~ ?~(u.b ~ [~ %kelp i.u.b t.u.b]))
|
||||
^= b
|
||||
|- ^- (unit (list line))
|
||||
?~ a [~ ~]
|
||||
=+ c=$(a t.a)
|
||||
?~ c ~
|
||||
?. ?=({{$leaf *} *} i.a) ~
|
||||
[~ [p.i.a q.i.a] u.c]
|
||||
(toad exqc)
|
||||
==
|
||||
:- ':'
|
||||
;~ pfix col
|
||||
%+ cook
|
||||
|=(a+(list tile) ?~(a !! ?~(t.a i.a [i.a $(a t.a)])))
|
||||
(toad exqc)
|
||||
==
|
||||
==
|
||||
==
|
||||
|%
|
||||
@ -10122,43 +10186,113 @@
|
||||
^. stet ^. limo
|
||||
:~
|
||||
:- '%'
|
||||
fail
|
||||
;~ pfix cen
|
||||
;~ pose
|
||||
(stag %leaf (stag %tas (cold %$ buc)))
|
||||
(stag %leaf (stag %f (cold & pam)))
|
||||
(stag %leaf (stag %f (cold | bar)))
|
||||
(stag %leaf (stag %t qut))
|
||||
%+ cook
|
||||
|= lot=coin ^- tile
|
||||
?- -.lot
|
||||
$~ [%leaf p.lot]
|
||||
$blob
|
||||
?@(p.lot [%leaf %$ p.lot] [$(p.lot -.p.lot) $(p.lot +.p.lot)])
|
||||
::
|
||||
$many
|
||||
?~(p.lot [%leaf %n ~] [$(lot i.p.lot) $(p.lot t.p.lot)])
|
||||
==
|
||||
nuck:so
|
||||
==
|
||||
==
|
||||
:- '&'
|
||||
fail
|
||||
(stag %leaf (stag %f (cold & pam)))
|
||||
:- '*'
|
||||
(stag %herb wide)
|
||||
(cold [%axil %noun] tar)
|
||||
:- '?'
|
||||
(stag %herb wide)
|
||||
;~ pose
|
||||
(stag %fern ;~(pfix wut (ifix [pel per] (most ace toil))))
|
||||
(stag %axil (cold %bean wut))
|
||||
==
|
||||
:- '@'
|
||||
(stag %herb wide)
|
||||
;~(pfix pat (stag %axil (stag %atom mota)))
|
||||
:- '^'
|
||||
(stag %herb wide)
|
||||
;~ pose
|
||||
(stag %herb (stag %cnzz rope))
|
||||
(cold [%axil %cell] ket)
|
||||
==
|
||||
:- '('
|
||||
(stag %herb wide)
|
||||
:- '{'
|
||||
(stag %herb wide)
|
||||
:- '.'
|
||||
(stag %herb wide)
|
||||
(stag %herb (stag %cnzz rope))
|
||||
:- '['
|
||||
fail
|
||||
%+ ifix [sel ser]
|
||||
%+ cook
|
||||
|= a+(list tile)
|
||||
?~(a !! ?~(t.a i.a [i.a $(a t.a)]))
|
||||
(most ace toil)
|
||||
:- '_'
|
||||
(stag %herb wide)
|
||||
;~ pose
|
||||
(stag %weed ;~(pfix cab wide))
|
||||
(stag %herb wide)
|
||||
==
|
||||
:- ['0' '9']
|
||||
fail
|
||||
(stag %leaf bisk:so)
|
||||
:- ['a' 'z']
|
||||
;~ pose
|
||||
%+ sear
|
||||
|=(a+tile `(unit tile)`~)
|
||||
(stag %bark ;~(plug sym ;~(pfix tis toil)))
|
||||
(stag %herb wide)
|
||||
==
|
||||
:- '$'
|
||||
(stag %herb wide)
|
||||
;~ pose
|
||||
(noil |)
|
||||
(stag %herb wide)
|
||||
==
|
||||
:- '|'
|
||||
fail
|
||||
(stag %leaf (stag %f (cold | bar)))
|
||||
:- '~'
|
||||
fail
|
||||
(stag %leaf (stag %n (cold ~ sig)))
|
||||
==
|
||||
:: ++ toil
|
||||
:: %+ knee *tile |. ~+
|
||||
:: %- stew
|
||||
:: ^. stet ^. limo
|
||||
:: :~
|
||||
:: :- '%'
|
||||
:: fail
|
||||
:: :- '&'
|
||||
:: fail
|
||||
:: :- '*'
|
||||
:: (stag %herb wide)
|
||||
:: :- '?'
|
||||
:: (stag %herb wide)
|
||||
:: :- '@'
|
||||
:: (stag %herb wide)
|
||||
:: :- '^'
|
||||
:: (stag %herb wide)
|
||||
:: :- '('
|
||||
:: (stag %herb wide)
|
||||
:: :- '{'
|
||||
:: (stag %herb wide)
|
||||
:: :- '.'
|
||||
:: (stag %herb wide)
|
||||
:: :- '['
|
||||
:: fail
|
||||
:: :- '_'
|
||||
:: (stag %herb wide)
|
||||
:: :- ['0' '9']
|
||||
:: fail
|
||||
:: :- ['a' 'z']
|
||||
:: (stag %herb wide)
|
||||
:: :- '$'
|
||||
:: (stag %herb wide)
|
||||
:: :- '|'
|
||||
:: fail
|
||||
:: :- '~'
|
||||
:: fail
|
||||
:: ==
|
||||
++ wart
|
||||
|* zor=rule
|
||||
%+ here
|
||||
|
||||
Loading…
Reference in New Issue
Block a user