mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 01:08:54 +03:00
added into, reload, and solid
This commit is contained in:
parent
154eaf622f
commit
7165dc93da
18
main/app/into/core.hook
Normal file
18
main/app/into/core.hook
Normal file
@ -0,0 +1,18 @@
|
|||||||
|
!:
|
||||||
|
|_ [hid=hide ~]
|
||||||
|
++ poke-into-args
|
||||||
|
|= [ost=bone you=ship pax=path dat=@ ~]
|
||||||
|
:_ +>.$
|
||||||
|
:* [ost %pass /cp %c %info our.hid (foal pax dat)]
|
||||||
|
[ost %give %nice ~]
|
||||||
|
%+ turn (~(tap by sup.hid))
|
||||||
|
|= [ost=bone *]
|
||||||
|
:^ ost %give %rush
|
||||||
|
:- %tang :_ ~
|
||||||
|
leaf/"written"
|
||||||
|
==
|
||||||
|
++ peer
|
||||||
|
|=
|
||||||
|
*
|
||||||
|
`+>
|
||||||
|
--
|
22
main/app/reload/core.hook
Normal file
22
main/app/reload/core.hook
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
!:
|
||||||
|
|_ [hid=hide ~]
|
||||||
|
++ poke-reload-args
|
||||||
|
|= [ost=bone you=ship all=(list ,@tas)]
|
||||||
|
:_ +>.$
|
||||||
|
%+ welp
|
||||||
|
%+ turn all
|
||||||
|
|= nam=@tas
|
||||||
|
=+ tip=(end 3 1 nam)
|
||||||
|
=+ pax=[(scot %p our.hid) %arvo (scot %da lat.hid) nam %hoon ~]
|
||||||
|
[ost %give %veer ?:(=('z' tip) %$ tip) pax (,@ .^(%cx pax))]
|
||||||
|
:- [ost %give %nice ~]
|
||||||
|
%+ turn (~(tap by sup.hid))
|
||||||
|
|= [ost=bone *]
|
||||||
|
:^ ost %give %rush
|
||||||
|
:- %tang :_ ~
|
||||||
|
leaf/"done"
|
||||||
|
++ peer
|
||||||
|
|=
|
||||||
|
*
|
||||||
|
`+>
|
||||||
|
--
|
@ -15,6 +15,8 @@
|
|||||||
[%mean p=ares] ::
|
[%mean p=ares] ::
|
||||||
[%nice ~] ::
|
[%nice ~] ::
|
||||||
[%meta p=vase] ::
|
[%meta p=vase] ::
|
||||||
|
[%veer p=@ta q=path r=@t] ::
|
||||||
|
[%vega p=path] ::
|
||||||
== ::
|
== ::
|
||||||
++ hapt ,[p=ship q=path] ::
|
++ hapt ,[p=ship q=path] ::
|
||||||
++ move ,[p=bone q=(mold note gift)] ::
|
++ move ,[p=bone q=(mold note gift)] ::
|
||||||
@ -42,6 +44,8 @@
|
|||||||
[%nice ~] ::
|
[%nice ~] ::
|
||||||
[%rush p=mark q=*] ::
|
[%rush p=mark q=*] ::
|
||||||
[%rust p=mark q=*] ::
|
[%rust p=mark q=*] ::
|
||||||
|
[%veer p=@ta q=path r=@t] ::
|
||||||
|
[%vega p=path] ::
|
||||||
== == == ::
|
== == == ::
|
||||||
--
|
--
|
||||||
!:
|
!:
|
||||||
@ -227,6 +231,10 @@
|
|||||||
^- [(list move) _+>]
|
^- [(list move) _+>]
|
||||||
:: ~& [%shell-pour -.sih (,@ta +<.sih)]
|
:: ~& [%shell-pour -.sih (,@ta +<.sih)]
|
||||||
::=+ sih=((hard sign) sih)
|
::=+ sih=((hard sign) sih)
|
||||||
|
?: ?=(%veer +<.sih) :: vomit
|
||||||
|
[[ost %give +.sih]~ +>.$]
|
||||||
|
?: ?=(%vega +<.sih) :: vomit
|
||||||
|
[[ost %give +.sih]~ +>.$]
|
||||||
?~ pax ~& %no-path !!
|
?~ pax ~& %no-path !!
|
||||||
?+ &1.pax ~& %strange-path !!
|
?+ &1.pax ~& %strange-path !!
|
||||||
%print
|
%print
|
||||||
|
51
main/app/solid/core.hook
Normal file
51
main/app/solid/core.hook
Normal file
@ -0,0 +1,51 @@
|
|||||||
|
!:
|
||||||
|
|_ [hid=hide ~]
|
||||||
|
++ poke-solid-args
|
||||||
|
|= [ost=bone you=ship ~]
|
||||||
|
:_ +>.$
|
||||||
|
=+ top=`path`/(scot %p our.hid)/arvo/(scot %da lat.hid)
|
||||||
|
=+ pax=`path`(weld top `path`[%hoon ~])
|
||||||
|
~& %solid-start
|
||||||
|
=+ gen=(reck pax)
|
||||||
|
~& %solid-parsed
|
||||||
|
=+ ken=q:(~(mint ut %noun) %noun gen)
|
||||||
|
~& %solid-compiled
|
||||||
|
=+ ^= all
|
||||||
|
=+ all=.*(0 ken)
|
||||||
|
=+ ^= vay ^- (list ,[p=@tas q=@tas])
|
||||||
|
:~ [%$ %zuse]
|
||||||
|
[%g %gall]
|
||||||
|
[%f %ford]
|
||||||
|
[%a %ames]
|
||||||
|
[%b %batz]
|
||||||
|
[%c %clay]
|
||||||
|
[%d %dill]
|
||||||
|
[%e %eyre]
|
||||||
|
==
|
||||||
|
|- ^+ all
|
||||||
|
?~ vay all
|
||||||
|
=+ pax=(weld top `path`[q.i.vay ~])
|
||||||
|
=+ txt=((hard ,@) .^(%cx (weld pax `path`[%hoon ~])))
|
||||||
|
=+ sam=[lat.hid `ovum`[[%gold ~] [%veer p.i.vay pax txt]]]
|
||||||
|
~& [%solid-veer i.vay]
|
||||||
|
=+ gat=.*(all .*(all [0 42]))
|
||||||
|
=+ nex=+:.*([-.gat [sam +>.gat]] -.gat)
|
||||||
|
$(vay t.vay, all nex)
|
||||||
|
:_ ~ :_ ~
|
||||||
|
~& %solid-jamming
|
||||||
|
=+ pac=(jam [ken all])
|
||||||
|
~& %solid-finished
|
||||||
|
=+ nax=/(scot %p our.hid)/try/(scot %da lat.hid)/urbit/pill
|
||||||
|
:* [ost %pass /cp %c %info our.hid (foal nax pac)]
|
||||||
|
[ost %give %nice ~]
|
||||||
|
%+ turn (~(tap by sup.hid))
|
||||||
|
|= [ost=bone *]
|
||||||
|
:^ ost %give %rush
|
||||||
|
:- %tang :_ ~
|
||||||
|
leaf/"done"
|
||||||
|
==
|
||||||
|
++ peer
|
||||||
|
|=
|
||||||
|
*
|
||||||
|
`+>
|
||||||
|
--
|
@ -21,6 +21,8 @@
|
|||||||
[%rust gilt] ::
|
[%rust gilt] ::
|
||||||
[%mean p=ares] ::
|
[%mean p=ares] ::
|
||||||
[%nice ~] ::
|
[%nice ~] ::
|
||||||
|
[%veer p=@ta q=path r=@t] ::
|
||||||
|
[%vega p=path] ::
|
||||||
== ::
|
== ::
|
||||||
++ hapt ,[p=ship q=path] ::
|
++ hapt ,[p=ship q=path] ::
|
||||||
++ move ,[p=bone q=(mold note gift)] ::
|
++ move ,[p=bone q=(mold note gift)] ::
|
||||||
@ -38,6 +40,8 @@
|
|||||||
[%nice ~] ::
|
[%nice ~] ::
|
||||||
[%rust p=%term-line q=term-line] ::
|
[%rust p=%term-line q=term-line] ::
|
||||||
[%rush p=%term-line q=term-line] ::
|
[%rush p=%term-line q=term-line] ::
|
||||||
|
[%veer p=@ta q=path r=@t] ::
|
||||||
|
[%vega p=path] ::
|
||||||
== == ==
|
== == ==
|
||||||
--
|
--
|
||||||
::
|
::
|
||||||
@ -208,6 +212,10 @@
|
|||||||
++ pour
|
++ pour
|
||||||
|= [ost=bone pax=path sih=sign]
|
|= [ost=bone pax=path sih=sign]
|
||||||
^- [(list move) _+>]
|
^- [(list move) _+>]
|
||||||
|
?: ?=(%veer +<.sih) :: vomit
|
||||||
|
[[ost %give +.sih]~ +>.$]
|
||||||
|
?: ?=(%vega +<.sih) :: vomit
|
||||||
|
[[ost %give +.sih]~ +>.$]
|
||||||
?: &(!?=(~ pax) !?=(~ |1.pax) ?=(%hi &1.pax) ?=(%in &2.pax))
|
?: &(!?=(~ pax) !?=(~ |1.pax) ?=(%hi &1.pax) ?=(%in &2.pax))
|
||||||
?+ +<.sih !!
|
?+ +<.sih !!
|
||||||
%nice `+>.$
|
%nice `+>.$
|
||||||
|
15
main/mar/into-args/door.hook
Normal file
15
main/mar/into-args/door.hook
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
::
|
||||||
|
:::: /hoon/core/zing/pro
|
||||||
|
::
|
||||||
|
/? 314
|
||||||
|
/- into-args
|
||||||
|
|_ arg=into-args
|
||||||
|
::
|
||||||
|
++ grab :: convert from
|
||||||
|
|%
|
||||||
|
++ noun :: convert from %noun
|
||||||
|
|= src=*
|
||||||
|
^+ +>+
|
||||||
|
+>+(arg (into-args src))
|
||||||
|
--
|
||||||
|
--
|
15
main/mar/reload-args/door.hook
Normal file
15
main/mar/reload-args/door.hook
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
::
|
||||||
|
:::: /hoon/core/zing/pro
|
||||||
|
::
|
||||||
|
/? 314
|
||||||
|
/- reload-args
|
||||||
|
|_ arg=reload-args
|
||||||
|
::
|
||||||
|
++ grab :: convert from
|
||||||
|
|%
|
||||||
|
++ noun :: convert from %noun
|
||||||
|
|= src=*
|
||||||
|
^+ +>+
|
||||||
|
+>+(arg (reload-args src))
|
||||||
|
--
|
||||||
|
--
|
15
main/mar/solid-args/door.hook
Normal file
15
main/mar/solid-args/door.hook
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
::
|
||||||
|
:::: /hoon/core/zing/pro
|
||||||
|
::
|
||||||
|
/? 314
|
||||||
|
/- solid-args
|
||||||
|
|_ arg=solid-args
|
||||||
|
::
|
||||||
|
++ grab :: convert from
|
||||||
|
|%
|
||||||
|
++ noun :: convert from %noun
|
||||||
|
|= src=*
|
||||||
|
^+ +>+
|
||||||
|
+>+(arg (solid-args src))
|
||||||
|
--
|
||||||
|
--
|
1
main/sur/into-args/gate.hook
Normal file
1
main/sur/into-args/gate.hook
Normal file
@ -0,0 +1 @@
|
|||||||
|
,[pax=path dat=@ ~]
|
1
main/sur/reload-args/gate.hook
Normal file
1
main/sur/reload-args/gate.hook
Normal file
@ -0,0 +1 @@
|
|||||||
|
,[(list ,@tas)]
|
1
main/sur/solid-args/gate.hook
Normal file
1
main/sur/solid-args/gate.hook
Normal file
@ -0,0 +1 @@
|
|||||||
|
,[~]
|
Loading…
Reference in New Issue
Block a user