mirror of
https://github.com/urbit/shrub.git
synced 2024-12-13 16:03:36 +03:00
added into, reload, and solid
This commit is contained in:
Ubuntu
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] ::
|
||||
[%nice ~] ::
|
||||
[%meta p=vase] ::
|
||||
[%veer p=@ta q=path r=@t] ::
|
||||
[%vega p=path] ::
|
||||
== ::
|
||||
++ hapt ,[p=ship q=path] ::
|
||||
++ move ,[p=bone q=(mold note gift)] ::
|
||||
@ -42,6 +44,8 @@
|
||||
[%nice ~] ::
|
||||
[%rush p=mark q=*] ::
|
||||
[%rust p=mark q=*] ::
|
||||
[%veer p=@ta q=path r=@t] ::
|
||||
[%vega p=path] ::
|
||||
== == == ::
|
||||
--
|
||||
!:
|
||||
@ -227,6 +231,10 @@
|
||||
^- [(list move) _+>]
|
||||
:: ~& [%shell-pour -.sih (,@ta +<.sih)]
|
||||
::=+ sih=((hard sign) sih)
|
||||
?: ?=(%veer +<.sih) :: vomit
|
||||
[[ost %give +.sih]~ +>.$]
|
||||
?: ?=(%vega +<.sih) :: vomit
|
||||
[[ost %give +.sih]~ +>.$]
|
||||
?~ pax ~& %no-path !!
|
||||
?+ &1.pax ~& %strange-path !!
|
||||
%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] ::
|
||||
[%mean p=ares] ::
|
||||
[%nice ~] ::
|
||||
[%veer p=@ta q=path r=@t] ::
|
||||
[%vega p=path] ::
|
||||
== ::
|
||||
++ hapt ,[p=ship q=path] ::
|
||||
++ move ,[p=bone q=(mold note gift)] ::
|
||||
@ -38,6 +40,8 @@
|
||||
[%nice ~] ::
|
||||
[%rust 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
|
||||
|= [ost=bone pax=path sih=sign]
|
||||
^- [(list move) _+>]
|
||||
?: ?=(%veer +<.sih) :: vomit
|
||||
[[ost %give +.sih]~ +>.$]
|
||||
?: ?=(%vega +<.sih) :: vomit
|
||||
[[ost %give +.sih]~ +>.$]
|
||||
?: &(!?=(~ pax) !?=(~ |1.pax) ?=(%hi &1.pax) ?=(%in &2.pax))
|
||||
?+ +<.sih !!
|
||||
%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