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

restore eyre-sec dojo changes

Browse Source
This commit is contained in:
Philip C Monk 2016-02-23 17:25:29 -05:00
parent c16488d6af
commit ebc8aa36d7
1 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
app/dojo.hoon
View File

@ -1,13 +1,13 @@
:: :: :: :: :: ::
:::: /hoon/dojo/app :: :::: :::: /hoon/dojo/app :: ::::
:: :: :: :: :: ::
/? 310 :: arvo kelvin /? 314 :: arvo kelvin
/- sole :: console structures /- sole :: console structures
/+ sole :: console library /+ sole :: console library
[. sole] [. sole]
:: :: :: :: :: ::
:::: :: :::: :::: :: ::::
:: :: :: !: :: ::
=> |% :: external structures => |% :: external structures
++ house :: all state ++ house :: all state
$: $4 $: $4
@ -32,7 +32,7 @@
{$pill p/path} :: noun to unix pill {$pill p/path} :: noun to unix pill
:: {$tree p/path} :: noun to unix tree :: {$tree p/path} :: noun to unix tree
{$file p/beam} :: save to clay {$file p/beam} :: save to clay
{$http p/?($post $put) q/purl} :: http outbound {$http p/?($post $put) q/iden r/purl} :: http outbound
{$poke p/goal} :: poke app {$poke p/goal} :: poke app
{$show p/?($0 $1 $2 $3)} :: print val+span+twig {$show p/?($0 $1 $2 $3)} :: print val+span+twig
{$verb p/term} :: store variable {$verb p/term} :: store variable
@ -41,8 +41,8 @@
$: p/@ud :: assembly index $: p/@ud :: assembly index
q/dojo-build :: general build q/dojo-build :: general build
== :: == ::
++ dojo-build :: one ford step ++ dojo-build :: one arvo step
$% {$ur p/purl} :: http GET request $% {$ur p/iden q/purl} :: http GET request
{$ge p/dojo-model} :: generator {$ge p/dojo-model} :: generator
{$dv p/path} :: core from source {$dv p/path} :: core from source
{$ex p/twig} :: hoon expression {$ex p/twig} :: hoon expression
@ -87,7 +87,7 @@
++ card :: general card ++ card :: general card
$% {$diff $sole-effect sole-effect} :: $% {$diff $sole-effect sole-effect} ::
{$send wire {ship term} clap} :: {$send wire {ship term} clap} ::
{$hiss wire mark {$hiss hiss}} :: {$hiss wire {$~ iden} mark {$hiss hiss}} ::
{$exec wire @p (unit {beak silk})} :: {$exec wire @p (unit {beak silk})} ::
{$deal wire sock term club} :: {$deal wire sock term club} ::
{$info wire @p toro} :: {$info wire @p toro} ::
@ -167,8 +167,8 @@
;~(plug (cold %file tar) dp-beam) ;~(plug (cold %file tar) dp-beam)
;~(plug (cold %flat pat) (most fas qut)) ;~(plug (cold %flat pat) (most fas qut))
;~(plug (cold %pill dot) (most fas sym)) ;~(plug (cold %pill dot) (most fas sym))
;~(plug (cold %http lus) (easy %post) auri:epur) ;~(plug (cold %http lus) (easy %post) dp-iden-url)
;~(plug (cold %http hep) (easy %put) auri:epur) ;~(plug (cold %http hep) (easy %put) dp-iden-url)
(stag %show (cook $?($1 $2 $3) (cook lent (stun [1 3] wut)))) (stag %show (cook $?($1 $2 $3) (cook lent (stun [1 3] wut))))
== ==
++ dp-hooves :: hoof list ++ dp-hooves :: hoof list
@ -198,7 +198,7 @@
++ dp-build :: ++dojo-build ++ dp-build :: ++dojo-build
%+ knee *dojo-build |. ~+ %+ knee *dojo-build |. ~+
;~ pose ;~ pose
;~(plug (cold %ur lus) auri:epur) ;~(plug (cold %ur lus) dp-iden-url)
;~(plug (cold %ge lus) dp-model) ;~(plug (cold %ge lus) dp-model)
;~(plug (cold %as pam) sym ;~(pfix ace dp-source)) ;~(plug (cold %as pam) sym ;~(pfix ace dp-source))
;~(plug (cold %do cab) dp-twig ;~(pfix ace dp-source)) ;~(plug (cold %do cab) dp-twig ;~(pfix ace dp-source))
@ -220,6 +220,9 @@
=+ vez=(vang | dp-path) =+ vez=(vang | dp-path)
(sear plex:vez (stag %conl poor:vez)) (sear plex:vez (stag %conl poor:vez))
:: ::
++ dp-iden-url
(cook |=([a=(unit iden) b=purl] [(fall a *iden) b]) auru:epur)
::
++ dp-model ;~(plug dp-server dp-config) :: ++dojo-model ++ dp-model ;~(plug dp-server dp-config) :: ++dojo-model
++ dp-path (tope he-beam) :: ++path ++ dp-path (tope he-beam) :: ++path
++ dp-server (stag 0 (most fas sym)) :: ++dojo-server ++ dp-server (stag 0 (most fas sym)) :: ++dojo-server
@ -266,10 +269,10 @@
(he-card(poy `+>+<(pux `way)) %exec way our.hid `[he-beak kas]) (he-card(poy `+>+<(pux `way)) %exec way our.hid `[he-beak kas])
:: ::
++ dy-eyre :: send work to eyre ++ dy-eyre :: send work to eyre
|= {way/wire req/hiss} |= {way/wire usr/iden req/hiss}
^+ +>+> ^+ +>+>
?> ?=($~ pux) ?> ?=($~ pux)
(he-card(poy `+>+<(pux `way)) %hiss way %httr %hiss req) (he-card(poy `+>+<(pux `way)) %hiss way `usr %httr %hiss req)
:: ::
++ dy-stop :: stop work ++ dy-stop :: stop work
^+ +> ^+ +>
@ -481,7 +484,7 @@
?> ?=($mime p.cay) ?> ?=($mime p.cay)
=+ mim=;;(mime q.q.cay) =+ mim=;;(mime q.q.cay)
=+ maf=(~(add ja *math) %content-span (moon p.mim)) =+ maf=(~(add ja *math) %content-span (moon p.mim))
(dy-eyre /show [q.p.mad p.p.mad maf ~ q.mim]) (dy-eyre /show q.p.mad [r.p.mad p.p.mad maf ~ q.mim])
:: ::
$show $show
%+ dy-print cay %+ dy-print cay
@ -506,6 +509,7 @@
:- "HTTP {<p.hit>}" :- "HTTP {<p.hit>}"
%+ weld %+ weld
(turn q.hit |=({a/@t b/@t} "{(trip a)}: {(trip b)}")) (turn q.hit |=({a/@t b/@t} "{(trip a)}: {(trip b)}"))
:- ""
(turn `wain`?~(r.hit ~ (lore q.u.r.hit)) trip) (turn `wain`?~(r.hit ~ (lore q.u.r.hit)) trip)
== ==
:: ::
@ -533,7 +537,7 @@
++ dy-shown ++ dy-shown
$? twig $? twig
$^ {dy-shown dy-shown} $^ {dy-shown dy-shown}
$% {$ur purl} $% {$ur iden purl}
{$dv path} {$dv path}
{$as mark dy-shown} {$as mark dy-shown}
{$do twig dy-shown} {$do twig dy-shown}
@ -662,7 +666,7 @@
$| $|
=+ hiz=;;(hiss +<.q.vax) =+ hiz=;;(hiss +<.q.vax)
=. ..dy (he-diff %tan leaf+"< {(earn p.hiz)}" ~) =. ..dy (he-diff %tan leaf+"< {(earn p.hiz)}" ~)
(dy-eyre(pro `(slap (slot 7 vax) limb+%q)) /scar hiz) (dy-eyre(pro `(slap (slot 7 vax) limb+%q)) /scar ~. hiz)
== ==
:: ::
++ dy-sigh-scar :: scraper result ++ dy-sigh-scar :: scraper result
@ -681,7 +685,7 @@
?> ?=(^ cud) ?> ?=(^ cud)
=+ bil=q.u.cud :: XX =* =+ bil=q.u.cud :: XX =*
?: ?=($ur -.bil) ?: ?=($ur -.bil)
(dy-eyre /hand [p.bil %get ~ ~]) (dy-eyre /hand p.bil [q.bil %get ~ ~])
%- dy-ford %- dy-ford
^- (pair path silk) ^- (pair path silk)
?- -.bil ?- -.bil