ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-12 05:04:56 +03:00
Code Issues Packages Projects Releases Wiki Activity

PIDs

Browse Source
This commit is contained in:
Anton Dyudin 2014-09-25 17:10:17 -07:00 committed by Anton Dyudin
parent fb2e290b32
commit dd0ea9574c
5 changed files with 27 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
main/app/demo/core.hook
View File

@ -17,7 +17,9 @@
:* [ost %give %nice ~] :* [ost %give %nice ~]
%+ turn (~(tap by sup.hid)) %+ turn (~(tap by sup.hid))
|= [ost=bone *] |= [ost=bone *]
[ost %give %rush %txt (cat 3 p.arg (cat 3 ' says ' (scot %ud q.arg)))] :- ost
:^ %give %rush %tang
[rose/[" " ~ ~]^~[leaf/<p.arg> leaf/"says" leaf/(scow %ud q.arg)]]~
== ==
:: ::
++ peer ++ peer

7
main/app/ls/core.hook
View File

@ -1,14 +1,17 @@
!: !:
|_ [hid=hide ~] |_ [hid=hide ~]
++ poke-ls-args ++ poke-ls-args
|= [ost=bone you=ship arg=path] |= [ost=bone you=ship arg=path ~]
=+ lon=((hard arch) .^(%cy arg)) =+ lon=((hard arch) .^(%cy arg))
:_ +>.$ :_ +>.$
:* [ost %give %nice ~] :* ::[ost %pass / %g %cide %$]
[ost %give %nice ~]
%+ turn (~(tap by sup.hid)) %+ turn (~(tap by sup.hid))
|= [ost=bone *] |= [ost=bone *]
:^ ost %give %rush :^ ost %give %rush
:- %tang :- %tang
:_ ~
:+ %rose [" " ~ ~]
(turn (~(tap by r.lon) ~) |=([a=@ta b=*] leaf/(trip a))) (turn (~(tap by r.lon) ~) |=([a=@ta b=*] leaf/(trip a)))
== ==
++ peer ++ peer

27
main/app/shell/core.hook
View File

@ -1,9 +1,10 @@
:: Terminal :: Shell
:: ::
:::: /hook/core/terminal/app :::: /hook/core/shell/app
:: ::
/? 314 /? 314
/- term-line /- term-line
/= seeb /~ !>(.)
:: ::
:::: structures :::: structures
:: ::
@ -23,7 +24,7 @@
[%meta p=vase] :: [%meta p=vase] ::
== == == :: == == == ::
++ coma :: ++ coma ::
$% [%start p=cord q=twig] :: $% [%start p=term q=(list twig)] ::
[%end p=cord] :: [%end p=cord] ::
[%path p=path] :: [%path p=path] ::
[%hoon p=twig] :: [%hoon p=twig] ::
@ -40,7 +41,7 @@
!: !:
:::: program :::: program
:: ::
|_ [hid=hide pax=_`path`/=try=] |_ [hid=hide pid=@u pax=_`path`/=try=]
++ maybe ++ maybe
|* fel=_rule |* fel=_rule
;~ pose ;~ pose
@ -49,7 +50,7 @@
== ==
:: ::
++ args ++ args
;~(pfix ace wide:(vang | pax)) (star ;~(pfix ace wide:(vang | pax)))
:: ::
++ parse ++ parse
^- $+(nail (like coma)) ^- $+(nail (like coma))
@ -79,28 +80,32 @@
== ==
:: ::
%start %start
=+ cil=(scot %ud pid)
=. pid +(pid)
:_ +>.$ :_ +>.$
=* cil p.u.com
:~ :^ ost %pass /child/[cil]/main :~ :^ ost %pass /child/[cil]/main
:+ %g %meta !> :+ %g %meta !>
:* %mess [our.hid cil imp.hid] you :* %mess [our.hid cil imp.hid] you
(cat 3 cil '-args') (slap seed q.u.com) (cat 3 p.u.com '-args') (slap seeb [%clsg q.u.com])
== ==
[ost %pass /child/[cil]/lines %g %show [our.hid cil imp.hid] you /lines] [ost %pass /child/[cil]/lines %g %show [our.hid cil imp.hid] you /lines]
[ost %pass /child/[cil] %g %sire cil cil] :: XX strange order? [ost %pass /child/[cil] %g %sire p.u.com cil] :: XX strange order?
(print ost you leaf/"running {(trip p.u.com)}" ~) (print ost you leaf/"running {(trip p.u.com)}" ~)
== ==
:: ::
%end %end
:_ +>.$ :_ +>.$
=* cil p.u.com =* cil p.u.com
:~ (print ost you leaf/"killing {(trip cil)}" ~) :* (print ost you leaf/"killing {(trip cil)}" ~)
[ost %pass /child/[cil] %g %cide cil] %+ murn (~(tap by cub.hid)) |= [a=span b=term]
?. =(b cil) ~
%- some
[ost %pass /child/[a] %g %cide a]
== ==
:: ::
%hoon %hoon
:_ +>.$ :_ +>.$
:~ (print ost you (sell (slap seed p.u.com)) ~) :~ (print ost you (sell (slap seeb p.u.com)) ~)
[ost %give %nice ~] [ost %give %nice ~]
== ==
== ==

4
main/mar/ls-args/door.hook
View File

@ -2,13 +2,13 @@
:::: /hoon/core/zing/pro :::: /hoon/core/zing/pro
:: ::
/? 314 /? 314
|_ pax=path |_ pax=[path ~]
:: ::
++ grab :: convert from ++ grab :: convert from
|% |%
++ noun :: convert from %noun ++ noun :: convert from %noun
|= src=* |= src=*
^+ +>+ ^+ +>+
+>+(pax (path src)) +>+(pax (,[path ~] src))
-- --
-- --

2
main/sur/demo-args/gate.hook
View File

@ -1 +1 @@
,[p=@t q=@ud] ,[p=@t q=@ud ~]