mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-20 23:18:00 +03:00
WIP trying to get dontjo working
This commit is contained in:
Ted Blackman
parent
0b3713ce07
commit
6fae175bba
1829
app/dontjo6.hoon
Normal file
1829
app/dontjo6.hoon
Normal file
File diff suppressed because it is too large
Load Diff
@ -199,7 +199,7 @@
|
|||||||
|%
|
|%
|
||||||
++ emit |=(a/card +>(..autoload (^emit a)))
|
++ emit |=(a/card +>(..autoload (^emit a)))
|
||||||
++ tracked-vanes
|
++ tracked-vanes
|
||||||
`(list @tas)`~[%ames %behn %clay %dill %eyre %ford %gall]
|
`(list @tas)`~[%ames %behn %clay %dill %eyre %ford %gall %turbo]
|
||||||
::
|
::
|
||||||
++ our-home /(scot %p our)/home/(scot %da now)
|
++ our-home /(scot %p our)/home/(scot %da now)
|
||||||
++ sys-hash |=(pax/path .^(@uvI %cz :(welp our-home /sys pax)))
|
++ sys-hash |=(pax/path .^(@uvI %cz :(welp our-home /sys pax)))
|
||||||
|
|||||||
@ -337,7 +337,7 @@
|
|||||||
$: $f ::
|
$: $f ::
|
||||||
$% {$exec p/@p q/(unit {beak silk:ford})} ::
|
$% {$exec p/@p q/(unit {beak silk:ford})} ::
|
||||||
== == ::
|
== == ::
|
||||||
$: $t ::
|
$: $b ::
|
||||||
$% {$wait p/@da} ::
|
$% {$wait p/@da} ::
|
||||||
{$rest p/@da} ::
|
{$rest p/@da} ::
|
||||||
== == == ::
|
== == == ::
|
||||||
@ -355,7 +355,7 @@
|
|||||||
$: $f ::
|
$: $f ::
|
||||||
$% {$made p/@uvH q/gage:ford} ::
|
$% {$made p/@uvH q/gage:ford} ::
|
||||||
== == ::
|
== == ::
|
||||||
$: $t ::
|
$: $b ::
|
||||||
$% {$wake $~} :: timer activate
|
$% {$wake $~} :: timer activate
|
||||||
== == ::
|
== == ::
|
||||||
$: @tas :: by any
|
$: @tas :: by any
|
||||||
@ -571,13 +571,13 @@
|
|||||||
::
|
::
|
||||||
++ bait
|
++ bait
|
||||||
|= {hen/duct tym/@da}
|
|= {hen/duct tym/@da}
|
||||||
(emit hen %pass /tyme %t %wait tym)
|
(emit hen %pass /tyme %b %wait tym)
|
||||||
::
|
::
|
||||||
:: Cancel timer.
|
:: Cancel timer.
|
||||||
::
|
::
|
||||||
++ best
|
++ best
|
||||||
|= {hen/duct tym/@da}
|
|= {hen/duct tym/@da}
|
||||||
(emit hen %pass /tyme %t %rest tym)
|
(emit hen %pass /tyme %b %rest tym)
|
||||||
::
|
::
|
||||||
:: Give subscription result.
|
:: Give subscription result.
|
||||||
::
|
::
|
||||||
|
|||||||
@ -767,6 +767,7 @@
|
|||||||
?@ +.q.vax :_(+>.$ [%| (ap-suck "move: invalid move (card)")])
|
?@ +.q.vax :_(+>.$ [%| (ap-suck "move: invalid move (card)")])
|
||||||
=+ hun=(~(get by r.zam) -.q.vax)
|
=+ hun=(~(get by r.zam) -.q.vax)
|
||||||
?. &((~(has by r.zam) -.q.vax) !=(0 -.q.vax))
|
?. &((~(has by r.zam) -.q.vax) !=(0 -.q.vax))
|
||||||
|
~& [q-vax+q.vax has-by-r-zam+(~(has by r.zam) -.q.vax)]
|
||||||
:_(+>.$ [%| (ap-suck "move: invalid card (bone {<-.q.vax>})")])
|
:_(+>.$ [%| (ap-suck "move: invalid card (bone {<-.q.vax>})")])
|
||||||
=^ pec vel (~(spot wa vel) 3 vax)
|
=^ pec vel (~(spot wa vel) 3 vax)
|
||||||
=^ cav vel (~(slot wa vel) 3 pec)
|
=^ cav vel (~(slot wa vel) 3 pec)
|
||||||
@ -1217,6 +1218,8 @@
|
|||||||
$flog `%d
|
$flog `%d
|
||||||
$drop `%c
|
$drop `%c
|
||||||
$info `%c
|
$info `%c
|
||||||
|
%kill `%t
|
||||||
|
%make `%t
|
||||||
$merg `%c
|
$merg `%c
|
||||||
$mont `%c
|
$mont `%c
|
||||||
$nuke `%a
|
$nuke `%a
|
||||||
|
|||||||
@ -519,43 +519,6 @@
|
|||||||
%vale ~
|
%vale ~
|
||||||
%volt ~
|
%volt ~
|
||||||
==
|
==
|
||||||
:: +result-to-cage
|
|
||||||
::
|
|
||||||
:: Maybe we should return vases instead of cages.
|
|
||||||
::
|
|
||||||
++ result-to-cage
|
|
||||||
|= result=build-result
|
|
||||||
^- cage
|
|
||||||
?: ?=(%error -.result)
|
|
||||||
[%tang !>(message.result)]
|
|
||||||
?- -.+.result
|
|
||||||
^ [%noun (slop q:$(result head.result) q:$(result tail.result))]
|
|
||||||
%$ cage.result
|
|
||||||
%pin $(result build-result.result)
|
|
||||||
%alts $(result build-result.result)
|
|
||||||
%bake cage.result
|
|
||||||
%bunt cage.result
|
|
||||||
%call [%noun vase.result]
|
|
||||||
%cast cage.result
|
|
||||||
%core [%noun vase.result]
|
|
||||||
%diff cage.result
|
|
||||||
%dude $(result build-result.result)
|
|
||||||
%hood [%noun !>(scaffold.result)]
|
|
||||||
%join cage.result
|
|
||||||
%mash cage.result
|
|
||||||
%mute cage.result
|
|
||||||
%pact cage.result
|
|
||||||
%path [%noun !>(rail.result)]
|
|
||||||
%plan [%noun vase.result]
|
|
||||||
%reef [%noun vase.result]
|
|
||||||
%ride [%noun vase.result]
|
|
||||||
%same $(result build-result.result)
|
|
||||||
%scry cage.result
|
|
||||||
%slim [%noun !>([type nock]:result)]
|
|
||||||
%slit [%noun !>(type.result)]
|
|
||||||
%vale cage.result
|
|
||||||
%volt cage.result
|
|
||||||
==
|
|
||||||
:: +date-from-schematic: finds the latest pin date from this schematic tree.
|
:: +date-from-schematic: finds the latest pin date from this schematic tree.
|
||||||
::
|
::
|
||||||
++ date-from-schematic
|
++ date-from-schematic
|
||||||
|
|||||||
@ -1497,6 +1497,41 @@
|
|||||||
%fszy
|
%fszy
|
||||||
=mark
|
=mark
|
||||||
== ==
|
== ==
|
||||||
|
:: +result-to-cage: extract a +cage from a +build-result
|
||||||
|
::
|
||||||
|
++ result-to-cage
|
||||||
|
|= result=build-result
|
||||||
|
^- cage
|
||||||
|
?: ?=(%error -.result)
|
||||||
|
[%tang !>(message.result)]
|
||||||
|
?- -.+.result
|
||||||
|
^ [%noun (slop q:$(result head.result) q:$(result tail.result))]
|
||||||
|
%$ cage.result
|
||||||
|
%pin $(result build-result.result)
|
||||||
|
%alts $(result build-result.result)
|
||||||
|
%bake cage.result
|
||||||
|
%bunt cage.result
|
||||||
|
%call [%noun vase.result]
|
||||||
|
%cast cage.result
|
||||||
|
%core [%noun vase.result]
|
||||||
|
%diff cage.result
|
||||||
|
%dude $(result build-result.result)
|
||||||
|
%hood [%noun !>(scaffold.result)]
|
||||||
|
%join cage.result
|
||||||
|
%mash cage.result
|
||||||
|
%mute cage.result
|
||||||
|
%pact cage.result
|
||||||
|
%path [%noun !>(rail.result)]
|
||||||
|
%plan [%noun vase.result]
|
||||||
|
%reef [%noun vase.result]
|
||||||
|
%ride [%noun vase.result]
|
||||||
|
%same $(result build-result.result)
|
||||||
|
%scry cage.result
|
||||||
|
%slim [%noun !>([type nock]:result)]
|
||||||
|
%slit [%noun !>(type.result)]
|
||||||
|
%vale cage.result
|
||||||
|
%volt cage.result
|
||||||
|
==
|
||||||
--
|
--
|
||||||
:: ::::
|
:: ::::
|
||||||
:::: ++gall :: (1g) extensions
|
:::: ++gall :: (1g) extensions
|
||||||
@ -5692,6 +5727,7 @@
|
|||||||
gift:able:eyre
|
gift:able:eyre
|
||||||
gift:able:ford
|
gift:able:ford
|
||||||
gift:able:gall
|
gift:able:gall
|
||||||
|
gift:able:ford-api
|
||||||
==
|
==
|
||||||
++ task-arvo :: in request ->$
|
++ task-arvo :: in request ->$
|
||||||
$? task:able:ames
|
$? task:able:ames
|
||||||
@ -5701,6 +5737,7 @@
|
|||||||
task:able:eyre
|
task:able:eyre
|
||||||
task:able:ford
|
task:able:ford
|
||||||
task:able:gall
|
task:able:gall
|
||||||
|
task:able:ford-api
|
||||||
==
|
==
|
||||||
++ note-arvo :: out request $->
|
++ note-arvo :: out request $->
|
||||||
$? {@tas $meta vase}
|
$? {@tas $meta vase}
|
||||||
@ -5711,6 +5748,7 @@
|
|||||||
{$e task:able:eyre}
|
{$e task:able:eyre}
|
||||||
{$f task:able:ford}
|
{$f task:able:ford}
|
||||||
{$g task:able:gall}
|
{$g task:able:gall}
|
||||||
|
{$t task:able:ford-api}
|
||||||
== ==
|
== ==
|
||||||
++ sign-arvo :: in result $<-
|
++ sign-arvo :: in result $<-
|
||||||
$% {$a gift:able:ames}
|
$% {$a gift:able:ames}
|
||||||
@ -5721,6 +5759,7 @@
|
|||||||
{$f gift:able:ford}
|
{$f gift:able:ford}
|
||||||
{$g gift:able:gall}
|
{$g gift:able:gall}
|
||||||
{$j gift:able:jael}
|
{$j gift:able:jael}
|
||||||
|
{$t gift:able:ford-api}
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ unix-task :: input from unix
|
++ unix-task :: input from unix
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user