Merge remote-tracking branch 'urbit/master' into newbreach

Conflicts:
	urb/urbit.pill

pill created from fakezod
This commit is contained in:
~hatteb-mitlyd 2014-05-16 15:04:40 -07:00
commit 2a665d6c84
5 changed files with 23 additions and 5 deletions

View File

@ -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))

View File

@ -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)] ~])

View File

@ -6,7 +6,7 @@
:_ ~
:_ ~
^- gift
:+ %mu [%atom %t]
:- %te
=- |- ^- (list ,@t)
?~(foz ~ (weld i.foz $(foz t.foz)))
^= foz

View File

@ -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")

View File

@ -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