urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 13:37:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

host/join parsers

Browse Source
This commit is contained in:
Anton Dyudin 2014-12-10 15:33:22 -08:00
parent 976ddaf907
commit 45ff25509a
1 changed files with 53 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
main/app/talk/core.hook
View File

@ -18,6 +18,8 @@
[%back p=?(%da %dr %ud) q=@] :: backlog [%back p=?(%da %dr %ud) q=@] :: backlog
[%def p=mess] :: use current prompt [%def p=mess] :: use current prompt
[%how ~] :: help [%how ~] :: help
[%join p=station] :: subscribe /=main to
[%host p=span] :: create /=foo
[%priv p=@p q=mess] :: private [%priv p=@p q=mess] :: private
[%who ~] :: who [%who ~] :: who
== :: == ::
@ -63,20 +65,35 @@
!: !:
:::: ::::
:: ::
=| lat=@da =| [our=@p lat=@da]
|% |%
++ talk ++ talk
=< =<
:: %+ cook |=(a=^talk a) %+ cook |=(a=work a)
;~ pose ;~ pose
(cold [%how ~] wut) (cold [%how ~] wut)
(cold [%who ~] tis) (cold [%who ~] tis)
(stag %back dat) (stag %back dat)
(stag %priv ;~(plug ;~(pfix sig fed:ag) ;~(pfix ace mess))) (stag %priv ;~(plug ;~(pfix sig fed:ag) ;~(pfix ace mess)))
(stag %all ;~(pfix pam mess)) (stag %all ;~(pfix pam mess))
(comd %join stati)
(comd %host urs:ab)
(stag %def mess) (stag %def mess)
== ==
|% |%
++ peach :: either ++each branch
|* a=_[rule rule]
|= tub=nail
^- (like (each ,_(wonk (-.a)) ,_(wonk (+.a))))
%. tub
;~(pose (stag %& -.a) (stag %| +.a))
::
++ comd :: ! command
|* [a=@tas b=_rule]
%- full
;~((glue (plus ace)) ;~(pfix zap (cold a (jest a))) b)
::
::
++ dat ++ dat
%+ sear %+ sear
|= p=coin |= p=coin
@ -89,12 +106,12 @@
:_ text :_ text
|= a=@t |= a=@t
^- (unit ,[p=@t q=tank]) ^- (unit ,[p=@t q=tank])
=+ hun=(rush a wide:(vang | &1:% &2:% (scot %da lat) |3:%)) =+ hun=(rush a wide:(vang | [&1:% &2:% (scot %da lat) |3:%]))
?~ hun ~ ?~ hun ~
?~(a ~ [~ a (sell (slap sed u.hun))]) ?~(a ~ [~ a (sell (slap sed u.hun))])
:: ::
++ mess ++ mess
%+ cook |=(a=^mess a) ^- $+(nail (like ^mess))
;~ pose ;~ pose
(stag %do ;~(pfix pat text)) (stag %do ;~(pfix pat text))
(stag %exp ;~(pfix hax expn)) (stag %exp ;~(pfix hax expn))
@ -103,6 +120,12 @@
== ==
:: ::
++ text (boss 256 (star prn)) ++ text (boss 256 (star prn))
++ stati
^- $+(nail (like station))
%+ peach
;~(plug ;~(pose (cold our tis) (ifix sig^fas fed:ag)) urs:ab)
%+ sear (soft partner)
;~((glue fas) sym (cook crip (star prn))) :: XX [a-z0-9_]{1,15}
-- --
-- --
!: !:
@ -114,28 +137,35 @@
|= [ost=bone txt=cord] |= [ost=bone txt=cord]
^- [(list move) _+>] ^- [(list move) _+>]
?: =(0 txt) [~ +>.$] ?: =(0 txt) [~ +>.$]
=+ rey=(rush txt talk(lat lat.hid)) =+ rey=(rush txt talk(lat lat.hid, our our.hid))
?~ rey ?~ rey
[(send /out %give %rush %tang [%leaf "invalid input"] ~) +>.$] [(send /out %give %rush %tang [%leaf "invalid input"] ~) +>.$]
?> ?=([%def %say @] u.rey) ?+ -.u.rey !!
%def
?> ?=(%say -.p.u.rey)
=+ ^= tho =+ ^= tho
^- thought ^- thought
:* (shaf %foo eny.hid) :* (shaf %foo eny.hid)
[[`station`[%& our.hid %main] %pending] ~ ~] [[`station`[%& our.hid %main] %pending] ~ ~]
`statement`[lat.hid +.u.rey] `statement`[lat.hid p.u.rey]
== ==
:_ +>.$ :_ +>.$
:_ ~ :_ ~
^- move ^- move
:* ost :* ost %pass /command
%pass %g %mess [our.hid /rodeo] our.hid
/command
%g
%mess
[our.hid /rodeo]
our.hid
[%radio-command !>(`command`[%publish tho ~])] [%radio-command !>(`command`[%publish tho ~])]
== ==
%host
=+ cof=`config`[~ [%| ~]]
:_ +>.$
:_ ~
^- move
:* ost %pass /command
%g %mess [our.hid /rodeo] our.hid
[%radio-command !>(`command`[%design p.u.rey ~ cof])]
==
==
:: ::
++ pour-report ++ pour-report
|= [ost=bone rep=report] |= [ost=bone rep=report]