mirror of
https://github.com/ilyakooo0/urbit.git
synced 2025-01-05 13:55:54 +03:00
Merge remote-tracking branch 'urbit/master' into newbreach
Conflicts: urb/urbit.pill pill created from fakezod
This commit is contained in:
commit
2a665d6c84
@ -2147,7 +2147,11 @@
|
||||
++ gap (cold ~ ;~(plug gaq (star ;~(pose vul gah))))
|
||||
++ gaq ;~(pose (just `@`10) ;~(plug gah ;~(pose gah vul)) vul)
|
||||
++ gay ;~(pose gap (easy ~))
|
||||
++ vul (cold ~ ;~(plug col col (star (shim 32 126)) (just ^-(@ 10))))
|
||||
++ vul %- cold :- ~
|
||||
;~ plug col col
|
||||
(star ;~(pose (shim 32 126) (shim 128 255)))
|
||||
(just `@`10)
|
||||
==
|
||||
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||
:: section 2eH, parsing (idioms) ::
|
||||
::
|
||||
@ -2259,6 +2263,7 @@
|
||||
=+ cur=(cut 3 [inx 1] b)
|
||||
?& ?| &((gte cur 'a') (lte cur 'z'))
|
||||
&(=('-' cur) !=(0 inx) !=(len inx))
|
||||
&(&((gte cur '0') (lte cur '9')) !=(0 inx))
|
||||
==
|
||||
$(inx +(inx))
|
||||
==
|
||||
@ -2268,6 +2273,7 @@
|
||||
=+ cur=(cut 3 [inx 1] b)
|
||||
?& ?| &((gte cur 'a') (lte cur 'z'))
|
||||
&((gte cur 'A') (lte cur 'Z'))
|
||||
&(&((gte cur '0') (lte cur '9')) !=(0 inx))
|
||||
|(=('-' cur) =('~' cur) =('_' cur) =('.' cur))
|
||||
==
|
||||
$(inx +(inx))
|
||||
|
@ -1283,7 +1283,7 @@
|
||||
;~ pose :: proper query
|
||||
%+ more
|
||||
;~(pose pam sem)
|
||||
;~(plug fque ;~(pfix tis fquu))
|
||||
;~(plug fque ;~(pose ;~(pfix tis fquu) (easy '')))
|
||||
::
|
||||
%+ cook :: funky query
|
||||
|=(a=tape [[%$ (crip a)] ~])
|
||||
|
@ -6,7 +6,7 @@
|
||||
:_ ~
|
||||
:_ ~
|
||||
^- gift
|
||||
:+ %mu [%atom %t]
|
||||
:- %te
|
||||
=- |- ^- (list ,@t)
|
||||
?~(foz ~ (weld i.foz $(foz t.foz)))
|
||||
^= foz
|
||||
|
@ -33,6 +33,7 @@
|
||||
;~ pose
|
||||
(stag %do ;~(pfix pat text))
|
||||
(stag %ex ;~(pfix hax expn))
|
||||
(stag %do (full (easy '')))
|
||||
(stag %qu text)
|
||||
==
|
||||
++ text (boss 256 (star ;~(pose (shim 32 126) (shim 128 255))))
|
||||
@ -43,7 +44,7 @@
|
||||
^- tank
|
||||
?- -.dum
|
||||
%do =+ msg=?:(=(0 p.dum) "remains quietly present" (trip p.dum))
|
||||
[%leaf "{chr}{nym} {(trip p.dum)}"]
|
||||
[%leaf "{chr}{nym} {msg}"]
|
||||
%ex [%rose [" " "" ""] [%leaf "{chr}{nym} {(trip p.dum)}"] q.dum ~]
|
||||
%qu [%leaf "{chr}{nym}: {(trip p.dum)}"]
|
||||
==
|
||||
@ -169,7 +170,6 @@
|
||||
++ toke :: user action
|
||||
|= txt=@t
|
||||
^+ +>
|
||||
?: =(0 txt) +>
|
||||
=+ rey=(rush txt chat)
|
||||
?~ rey
|
||||
(show %leaf "invalid input")
|
||||
|
@ -92,6 +92,18 @@
|
||||
(wcat ;~(plug ;~(plug pam hax ;~(sfix (plus nud) sem)) (easy ";")))
|
||||
inlt
|
||||
==
|
||||
;~ mcat
|
||||
%- wcat
|
||||
;~ plug
|
||||
;~ plug
|
||||
pam hax
|
||||
;~(pose (just 'x') (just 'X'))
|
||||
;~(sfix (plus ;~(pose nud low hig)) sem)
|
||||
==
|
||||
(easy ";")
|
||||
==
|
||||
inlt
|
||||
==
|
||||
;~ mcat
|
||||
(wcat ;~(plug ;~(plug pam ;~(sfix (plus alf) sem)) (easy ";")))
|
||||
inlt
|
||||
|
Loading…
Reference in New Issue
Block a user