mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-20 23:18:00 +03:00
%zuse cleanups and dependencies.
This commit is contained in:
C. Guy Yarvin
parent
b5706e0c81
commit
5c54de8782
@ -19,7 +19,7 @@
|
||||
$: say/sole-share :: command-line state
|
||||
dir/beam :: active path
|
||||
poy/(unit dojo-project) :: working
|
||||
{lib/(list hoof) sur/(list hoof)} :: lib+sur
|
||||
{lib/(list hoof:^ford) sur/(list hoof:^ford)} :: lib+sur
|
||||
var/(map term cage) :: variable state
|
||||
old/(set term) :: used TLVs
|
||||
buf/tape :: multiline buffer
|
||||
@ -33,7 +33,11 @@
|
||||
{$pill p/path} :: noun to unix pill
|
||||
:: {$tree p/path} :: noun to unix tree
|
||||
{$file p/beam} :: save to clay
|
||||
{$http p/?($post $put) q/(unit iden) r/purl} :: http outbound
|
||||
$: $http :: http outbound
|
||||
p/?($post $put)
|
||||
q/(unit knot)
|
||||
r/purl:^eyre
|
||||
==
|
||||
{$poke p/goal} :: poke app
|
||||
{$show p/?($0 $1 $2 $3)} :: print val+span+twig
|
||||
{$verb p/term} :: store variable
|
||||
@ -43,7 +47,7 @@
|
||||
q/dojo-build :: general build
|
||||
== ::
|
||||
++ dojo-build :: one arvo step
|
||||
$% {$ur p/(unit iden) q/purl} :: http GET request
|
||||
$% {$ur p/(unit knot) q/purl:^eyre} :: http GET request
|
||||
{$ge p/dojo-model} :: generator
|
||||
{$dv p/path} :: core from source
|
||||
{$ex p/twig} :: hoon expression
|
||||
@ -88,21 +92,26 @@
|
||||
++ card :: general card
|
||||
$% {$diff $sole-effect sole-effect} ::
|
||||
{$send wire {ship term} clap} ::
|
||||
{$hiss wire (unit iden) mark {$hiss hiss}} ::
|
||||
{$exec wire @p (unit {beak silk})} ::
|
||||
$: $hiss
|
||||
wire
|
||||
(unit knot)
|
||||
mark
|
||||
{$hiss hiss:^eyre}
|
||||
==
|
||||
{$exec wire @p (unit {beak silk:^ford})} ::
|
||||
{$deal wire sock term club} ::
|
||||
{$info wire @p toro} ::
|
||||
{$info wire @p toro:^clay} ::
|
||||
== ::
|
||||
++ move (pair bone card) :: user-level move
|
||||
++ sign ::
|
||||
$% {$made p/@uvH q/gage} ::
|
||||
{$unto p/cuft:^gall} ::
|
||||
$% {$made p/@uvH q/gage:^ford} ::
|
||||
{$unto p/cuft:^gall} ::
|
||||
== ::
|
||||
-- ::
|
||||
!: ::
|
||||
:::: ::
|
||||
:: ::
|
||||
|_ $: hid/bowl :: system state
|
||||
|_ $: hid/bowl:^gall :: system state
|
||||
house :: program state
|
||||
== ::
|
||||
++ he :: per session
|
||||
@ -222,7 +231,9 @@
|
||||
(sear plex:vez (stag %conl poor:vez))
|
||||
::
|
||||
++ dp-iden-url
|
||||
(cook |=({a/(unit iden) b/purl} [`(fall a *iden) b]) auru:epur)
|
||||
%+ cook
|
||||
|=({a/(unit knot) b/purl:^eyre} [`(fall a *knot) b])
|
||||
auru:epur:url:eyre
|
||||
::
|
||||
++ dp-model ;~(plug dp-server dp-config) :: ++dojo-model
|
||||
++ dp-path (tope he-beam) :: ++path
|
||||
@ -264,13 +275,13 @@
|
||||
++ dy-abet +>(poy `+<) :: resolve
|
||||
++ dy-amok +>(poy ~) :: terminate
|
||||
++ dy-ford :: send work to ford
|
||||
|= {way/wire kas/silk}
|
||||
|= {way/wire kas/silk:^ford}
|
||||
^+ +>+>
|
||||
?> ?=($~ pux)
|
||||
(he-card(poy `+>+<(pux `way)) %exec way our.hid `[he-beak kas])
|
||||
::
|
||||
++ dy-eyre :: send work to eyre
|
||||
|= {way/wire usr/(unit iden) req/hiss}
|
||||
|= {way/wire usr/(unit knot) req/hiss:^eyre}
|
||||
^+ +>+>
|
||||
?> ?=($~ pux)
|
||||
(he-card(poy `+>+<(pux `way)) %hiss way usr %httr %hiss req)
|
||||
@ -285,7 +296,7 @@
|
||||
++ dy-slam :: call by ford
|
||||
|= {way/wire gat/vase sam/vase}
|
||||
^+ +>+>
|
||||
(dy-ford way `silk`[%call [%$ %noun gat] [%$ %noun sam]])
|
||||
(dy-ford way `silk:^ford`[%call [%$ %noun gat] [%$ %noun sam]])
|
||||
::
|
||||
++ dy-errd :: reject change, abet
|
||||
|= {rev/(unit sole-edit) err/@u}
|
||||
@ -444,20 +455,24 @@
|
||||
~| bad-set+[p.p.mad p.q.cay]
|
||||
=< dy-amok
|
||||
?+ p.p.mad .
|
||||
$eny ~|(%entropy-is-eternal !!)
|
||||
$now ~|(%time-is-immutable !!)
|
||||
$our ~|(%self-is-immutable !!)
|
||||
$lib .(lib ((dy-cast (list hoof) !>(*(list hoof))) q.cay))
|
||||
$sur .(sur ((dy-cast (list hoof) !>(*(list hoof))) q.cay))
|
||||
$dir =+ ^= pax ^- path
|
||||
=+ pax=((dy-cast path !>(*path)) q.cay)
|
||||
?: ?=($~ pax) ~[(scot %p our.hid) %home '0']
|
||||
?: ?=({@ $~} pax) ~[i.pax %home '0']
|
||||
?: ?=({@ @ $~} pax) ~[i.pax i.t.pax '0']
|
||||
pax
|
||||
=. dir (need (tome pax))
|
||||
=- +>(..dy (he-diff %tan - ~))
|
||||
rose+[" " `~]^~[leaf+"=%" (smyt (tope he-beak s.dir))]
|
||||
$eny ~|(%entropy-is-eternal !!)
|
||||
$now ~|(%time-is-immutable !!)
|
||||
$our ~|(%self-is-immutable !!)
|
||||
$lib
|
||||
.(lib ((dy-cast (list hoof:^ford) !>(*(list hoof:^ford))) q.cay))
|
||||
::
|
||||
$sur
|
||||
.(sur ((dy-cast (list hoof:^ford) !>(*(list hoof:^ford))) q.cay))
|
||||
::
|
||||
$dir =+ ^= pax ^- path
|
||||
=+ pax=((dy-cast path !>(*path)) q.cay)
|
||||
?: ?=($~ pax) ~[(scot %p our.hid) %home '0']
|
||||
?: ?=({@ $~} pax) ~[i.pax %home '0']
|
||||
?: ?=({@ @ $~} pax) ~[i.pax i.t.pax '0']
|
||||
pax
|
||||
=. dir (need (tome pax))
|
||||
=- +>(..dy (he-diff %tan - ~))
|
||||
rose+[" " `~]^~[leaf+"=%" (smyt (tope he-beak s.dir))]
|
||||
==
|
||||
::
|
||||
$poke
|
||||
@ -488,8 +503,8 @@
|
||||
::
|
||||
$http
|
||||
?> ?=($mime p.cay)
|
||||
=+ mim=;;(mime q.q.cay)
|
||||
=+ maf=(~(add ja *math) %content-type (moon:bytes:eyre p.mim))
|
||||
=+ mim=;;(mime:^eyre q.q.cay)
|
||||
=+ maf=(~(add ja *math:^eyre) %content-type (moon:bytes:eyre p.mim))
|
||||
(dy-eyre /show q.p.mad [r.p.mad p.p.mad maf ~ q.mim])
|
||||
::
|
||||
$show
|
||||
@ -510,7 +525,7 @@
|
||||
?+ p.cay [(sell q.cay)]~
|
||||
$tang ;;(tang q.q.cay)
|
||||
$httr
|
||||
=+ hit=;;(httr q.q.cay)
|
||||
=+ hit=;;(httr:^eyre q.q.cay)
|
||||
=- (flop (turn `wall`- |=(a/tape leaf+(dash:us a ''))))
|
||||
:- "HTTP {<p.hit>}"
|
||||
%+ weld
|
||||
@ -543,7 +558,7 @@
|
||||
++ dy-shown
|
||||
$? twig
|
||||
$^ {dy-shown dy-shown}
|
||||
$% {$ur (unit iden) purl}
|
||||
$% {$ur (unit knot) purl:^eyre}
|
||||
{$dv path}
|
||||
{$as mark dy-shown}
|
||||
{$do twig dy-shown}
|
||||
@ -595,7 +610,7 @@
|
||||
++ dy-vase |=(num/@ud q:(dy-cage num)) :: known vase
|
||||
++ dy-silk-vase |=(vax/vase [%$ %noun vax]) :: vase to silk
|
||||
++ dy-silk-sources :: arglist to silk
|
||||
|= src/(list dojo-source) ^- silk
|
||||
|= src/(list dojo-source) ^- silk:^ford
|
||||
%- dy-silk-vase
|
||||
|-
|
||||
?~ src !>(~)
|
||||
@ -603,7 +618,7 @@
|
||||
::
|
||||
++ dy-silk-config :: configure
|
||||
|= {cay/cage cig/dojo-config}
|
||||
^- {wire silk}
|
||||
^- {wire silk:^ford}
|
||||
?. (~(nest ut [%cell [%atom %$ ~] %noun]) | p.q.cay)
|
||||
::
|
||||
:: naked gate
|
||||
@ -628,7 +643,7 @@
|
||||
:+ %mute (dy-silk-vase (fall (slew 27 gat) !>(~)))
|
||||
%+ turn (~(tap by q.cig))
|
||||
|= {a/term b/(unit dojo-source)}
|
||||
^- (pair wing silk)
|
||||
^- (pair wing silk:^ford)
|
||||
:- [a ~]
|
||||
%- dy-silk-vase
|
||||
?~(b !>([~ ~]) (dy-vase p.u.b))
|
||||
@ -683,9 +698,9 @@
|
||||
::
|
||||
$|
|
||||
=> .(vax (slap vax !,(*twig ?>(?=($| -) .)))) :: XX working spec #72
|
||||
=+ typ={$| (unit iden) hiss *}
|
||||
=+ typ={$| (unit knot) hiss:^eyre *}
|
||||
=+ [~ usr hiz ~]=((dy-cast typ !>(*typ)) vax)
|
||||
=. ..dy (he-diff %tan leaf+"< {(earn p.hiz)}" ~)
|
||||
=. ..dy (he-diff %tan leaf+"< {(earn:url:eyre p.hiz)}" ~)
|
||||
(dy-eyre(pro `(slap (slot 15 vax) limb+%r)) /scar usr hiz)
|
||||
==
|
||||
::
|
||||
@ -711,7 +726,7 @@
|
||||
?: ?=($ur -.bil)
|
||||
(dy-eyre /hand p.bil [q.bil %get ~ ~])
|
||||
%- dy-ford
|
||||
^- (pair path silk)
|
||||
^- (pair path silk:^ford)
|
||||
?- -.bil
|
||||
$ge (dy-silk-config (dy-cage p.p.p.bil) q.p.bil)
|
||||
$dv [/hand [%core he-beak (flop p.bil)]]
|
||||
@ -757,7 +772,7 @@
|
||||
::
|
||||
++ dy-mare :: build expression
|
||||
|= gen/twig
|
||||
^- silk
|
||||
^- silk:^ford
|
||||
=+ too=(dy-twig-mark gen)
|
||||
=- ?~(too - [%cast u.too -])
|
||||
:+ %ride gen
|
||||
@ -801,7 +816,7 @@
|
||||
=. egg +(egg)
|
||||
=- ?~(msg ..he-diff (he-diff %tan leaf+u.msg ~))
|
||||
^- msg/(unit tape)
|
||||
?+ (clan our.hid) ~
|
||||
?+ (clan:title:jael our.hid) ~
|
||||
$pawn ?+ egg ~
|
||||
$5 `":: To request a planet, run |ask 'your@email.co'"
|
||||
== ==
|
||||
@ -876,7 +891,7 @@
|
||||
[& %$ (weld he-prow ?~(buf "> " "< "))]
|
||||
::
|
||||
++ he-made :: result from ford
|
||||
|= {way/wire dep/@uvH reg/gage}
|
||||
|= {way/wire dep/@uvH reg/gage:^ford}
|
||||
^+ +>
|
||||
?> ?=(^ poy)
|
||||
=< he-pine
|
||||
@ -896,7 +911,7 @@
|
||||
==
|
||||
::
|
||||
++ he-sigh :: result from eyre
|
||||
|= {way/wire hit/httr}
|
||||
|= {way/wire hit/httr:^eyre}
|
||||
^+ +>
|
||||
?> ?=(^ poy)
|
||||
=< he-pine
|
||||
@ -1103,7 +1118,7 @@
|
||||
::
|
||||
++ peer-sole
|
||||
~? !=(our.hid src.hid) [%dojo-peer-stranger ost.hid src.hid]
|
||||
?> (team our.hid src.hid)
|
||||
?> (team:title:jael our.hid src.hid)
|
||||
=^ moz .
|
||||
?. (~(has by hoc) ost.hid) [~ .]
|
||||
~& [%dojo-peer-replaced ost.hid]
|
||||
|
||||
@ -50,7 +50,7 @@
|
||||
:: :: ::
|
||||
:::: :: ::
|
||||
:: :: ::
|
||||
|_ $: hid/bowl :: system state
|
||||
|_ $: hid/bowl:^gall :: system state
|
||||
hood-1 :: server state
|
||||
== ::
|
||||
++ able :: find+make part
|
||||
|
||||
@ -74,12 +74,12 @@
|
||||
== ::
|
||||
++ pear :: poke fruit
|
||||
$% {$talk-command command} ::
|
||||
{$write-comment spur ship cord} ::
|
||||
{$write-fora-post spur ship cord cord} ::
|
||||
{$write-comment path ship cord} ::
|
||||
{$write-fora-post path ship cord cord} ::
|
||||
== ::
|
||||
++ card :: general card
|
||||
$% {$diff lime} ::
|
||||
{$info wire @p @tas nori} ::
|
||||
{$info wire @p @tas nori:^clay} ::
|
||||
{$peer wire dock path} ::
|
||||
{$poke wire dock pear} ::
|
||||
{$pull wire dock $~} ::
|
||||
@ -140,7 +140,7 @@
|
||||
==
|
||||
--
|
||||
--
|
||||
|_ {hid/bowl house}
|
||||
|_ {hid/bowl:^gall house}
|
||||
++ ra :: per transaction
|
||||
|_ moves/(list move)
|
||||
++ sh :: per console
|
||||
@ -179,7 +179,7 @@
|
||||
;~ pose
|
||||
(cold [our.hid man.she] col)
|
||||
;~(pfix cen (stag our.hid sym))
|
||||
;~(pfix fas (stag (sein our.hid) sym))
|
||||
;~(pfix fas (stag (sein:title:jael our.hid) sym))
|
||||
::
|
||||
%+ cook
|
||||
|= {a/@p b/(unit term)}
|
||||
@ -238,7 +238,7 @@
|
||||
%+ stag %say
|
||||
%+ most (jest '•')
|
||||
;~ pose
|
||||
(stag %url aurf:urlp)
|
||||
(stag %url aurf:urlp:url:eyre)
|
||||
:(stag %lin | ;~(pfix pat text))
|
||||
:(stag %lin & ;~(less sem hax text))
|
||||
==
|
||||
@ -1333,9 +1333,9 @@
|
||||
=. +>.$ pa-abet:(~(pa-reform pa man pur) con)
|
||||
?:(neu +>.$ ra-homes)
|
||||
::
|
||||
++ ra-base-hart .^(hart %e /(scot %p our.hid)/host/(scot %da now.hid))
|
||||
++ ra-base-hart .^(hart:^eyre %e /(scot %p our.hid)/host/(scot %da now.hid))
|
||||
++ ra-fora-post
|
||||
|= {pax/path sup/spur hed/@t txt/@t}
|
||||
|= {pax/path sup/path hed/@t txt/@t}
|
||||
=. ..ra-emit
|
||||
%+ ra-emit ost.hid
|
||||
:* %poke
|
||||
@ -1360,7 +1360,7 @@
|
||||
[~ %app %tree 'receiving forum posts, ;join %posts for details']
|
||||
::
|
||||
++ ra-consume-fora-post
|
||||
|= {man/knot pax/path sup/spur hed/@t txt/@t} ^+ +>
|
||||
|= {man/knot pax/path sup/path hed/@t txt/@t} ^+ +>
|
||||
=+ nam=?~(sup "" (trip i.sup)) :: file name
|
||||
=+ fra=(crip (time-to-id now.hid)) :: url fragment
|
||||
%^ ra-consume &
|
||||
@ -1376,7 +1376,7 @@
|
||||
==
|
||||
::
|
||||
++ ra-comment
|
||||
|= {pax/path sup/spur txt/@t}
|
||||
|= {pax/path sup/path txt/@t}
|
||||
=. ..ra-emit
|
||||
%+ ra-emit ost.hid
|
||||
:* %poke
|
||||
@ -1401,7 +1401,7 @@
|
||||
[~ %app %tree 'receiving comments, ;join %comments for details']
|
||||
::
|
||||
++ ra-consume-comment
|
||||
|= {man/knot pax/path sup/spur txt/@t} ^+ +>
|
||||
|= {man/knot pax/path sup/path txt/@t} ^+ +>
|
||||
=+ nam=?~(sup "" (trip i.sup)) :: file name
|
||||
=+ fra=(crip (time-to-id now.hid)) :: url fragment
|
||||
%^ ra-consume &
|
||||
@ -1597,7 +1597,7 @@
|
||||
?- p.cordon.shape
|
||||
$black &
|
||||
$green &
|
||||
$brown (team our.hid her)
|
||||
$brown (team:title:jael our.hid her)
|
||||
$white (~(has in q.cordon.shape) her)
|
||||
==
|
||||
::
|
||||
@ -1918,7 +1918,7 @@
|
||||
++ sn-curt :: render name in 14
|
||||
|= mup/?
|
||||
^- tape
|
||||
=+ rac=(clan p.one)
|
||||
=+ rac=(clan:title:jael p.one)
|
||||
=+ raw=(scow %p p.one)
|
||||
=. raw ?.(mup raw ['*' (slag 2 raw)])
|
||||
?- rac
|
||||
@ -1951,7 +1951,7 @@
|
||||
?: =(q.one man)
|
||||
":"
|
||||
['%' (trip q.one)]
|
||||
?: =(p.one (sein our.hid))
|
||||
?: =(p.one (sein:title:jael our.hid))
|
||||
['/' (trip q.one)]
|
||||
=+ wun=(scow %p p.one)
|
||||
?: =(q.one (main p.one))
|
||||
@ -2101,7 +2101,7 @@
|
||||
$lin tan+~[leaf+"{?:(p.sep "" "@ ")}{(trip q.sep)}"]
|
||||
$non tan+~
|
||||
$app tan+~[rose+[": " ~ ~]^~[leaf+"[{(trip p.sep)}]" leaf+(trip q.sep)]]
|
||||
$url url+(crip (earf p.sep))
|
||||
$url url+(crip (earf:url:eyre p.sep))
|
||||
$mor mor+(turn p.sep |=(speech ^$(sep +<)))
|
||||
$fat [%mor $(sep q.sep) tan+(tr-rend-tors p.sep) ~]
|
||||
$api
|
||||
@ -2111,7 +2111,7 @@
|
||||
[": " ~ ~]
|
||||
:~ leaf+"[{(trip id.sep)} on {(trip service.sep)}]"
|
||||
leaf+(trip body.sep)
|
||||
leaf+(earf url.sep)
|
||||
leaf+(earf:url:eyre url.sep)
|
||||
==
|
||||
==
|
||||
::
|
||||
@ -2162,7 +2162,7 @@
|
||||
==
|
||||
::
|
||||
$exp (tr-chow 66 '#' ' ' (trip p.sep))
|
||||
$url =+ ful=(earf p.sep)
|
||||
$url =+ ful=(earf:url:eyre p.sep)
|
||||
?: (gth 64 (lent ful)) ['/' ' ' ful]
|
||||
:+ '/' '_'
|
||||
=+ hok=r.p.p.p.sep
|
||||
@ -2197,7 +2197,7 @@
|
||||
~? !=(src.hid our.hid) [%peer-talk-stranger src.hid]
|
||||
:: ~& [%talk-peer src.hid ost.hid pax]
|
||||
?: ?=({$sole *} pax)
|
||||
?> (team our.hid src.hid)
|
||||
?> (team:title:jael our.hid src.hid)
|
||||
~? (~(has by shells) ost.hid) [%talk-peer-replaced ost.hid pax]
|
||||
ra-abet:(ra-console:ra src.hid t.pax)
|
||||
:: ~& [%talk-peer-data ost.hid src.hid pax]
|
||||
@ -2299,11 +2299,11 @@
|
||||
[ost.hid %info /jamfile our.hid (foal paf [%talk-telegrams !>(-)])]
|
||||
::
|
||||
++ poke-talk-comment
|
||||
|= {pax/path sup/spur txt/@t} ^- (quip move +>)
|
||||
|= {pax/path sup/path txt/@t} ^- (quip move +>)
|
||||
ra-abet:(ra-comment:ra pax sup txt)
|
||||
::
|
||||
++ poke-talk-fora-post
|
||||
|= {pax/path sup/spur hed/@t txt/@t} ^- (quip move +>)
|
||||
|= {pax/path sup/path hed/@t txt/@t} ^- (quip move +>)
|
||||
ra-abet:(ra-fora-post:ra pax sup hed txt)
|
||||
::
|
||||
++ poke-talk-save
|
||||
|
||||
@ -40,14 +40,14 @@
|
||||
++ mess ::
|
||||
$% {$dill-belt p/(hypo dill-belt)} ::
|
||||
== ::
|
||||
++ move {p/duct q/(wind note gift:able)} :: local move
|
||||
++ move {p/duct q/(wind note gift:able)} :: local move
|
||||
++ note-ames :: weird ames move
|
||||
$% {$make p/(unit @t) q/@ud r/@ s/?} ::
|
||||
{$sith p/@p q/@uw r/?} ::
|
||||
== ::
|
||||
++ note-clay ::
|
||||
$% {$merg p/@p q/@tas r/@p s/@tas t/case u/germ:^clay}:: merge desks
|
||||
{$warp p/sock:^clay q/riff:^clay} :: wait for clay hack
|
||||
{$warp p/sock q/riff:^clay} :: wait for clay hack
|
||||
== ::
|
||||
++ note-dill :: note to self, odd
|
||||
$% {$crud p/@tas q/(list tank)} ::
|
||||
@ -60,7 +60,7 @@
|
||||
== ::
|
||||
++ note-gall ::
|
||||
$% {$conf dock $load ship desk} ::
|
||||
{$deal p/sock:^gall q/cush:^gall} ::
|
||||
{$deal p/sock q/cush:^gall} ::
|
||||
== ::
|
||||
++ note :: out request $->
|
||||
$? {?($a $b $c $e $f $g) $wegh $~} ::
|
||||
|
||||
@ -15,7 +15,7 @@
|
||||
++ move {p/duct q/(wind note gift:able)} :: local move
|
||||
++ note :: out request $->
|
||||
$% $: $a :: to %ames
|
||||
$% {$wont p/sock:^ames q/{path *}} ::
|
||||
$% {$wont p/sock q/{path *}} ::
|
||||
== == ::
|
||||
$: $b :: to %behn
|
||||
$% {$wait p/@da} ::
|
||||
@ -30,11 +30,11 @@
|
||||
{$meta vase} :: type check
|
||||
== == ::
|
||||
$: $f :: to %ford
|
||||
$% {$exec p/@p q/(unit {beak silk:^ford})} ::
|
||||
$% {$exec p/@p q/(unit {beak silk:^ford})} ::
|
||||
{$wasp p/@p q/@uvH r/?} ::
|
||||
== == ::
|
||||
$: $g :: to %gall
|
||||
$% {$deal p/sock:^gall q/cush:^gall} :: full transmission
|
||||
$% {$deal p/sock q/cush:^gall} :: full transmission
|
||||
== == == ::
|
||||
++ sign :: in result $<-
|
||||
$? $: $a :: by %ames
|
||||
@ -162,7 +162,7 @@
|
||||
{$deps p/?($put $delt) q/@uvH}
|
||||
{$mess p/dock q/mark r/wire s/json}
|
||||
{$poll p/{i/@uvH t/(list @uvH)}}
|
||||
{$spur p/spur:^clay}
|
||||
{$spur p/spur}
|
||||
{$subs p/?($put $delt) q/{dock $json wire path}}
|
||||
{$view p/ixor q/{$~ u/@ud}}
|
||||
==
|
||||
|
||||
@ -12,13 +12,13 @@
|
||||
++ move {p/duct q/(wind note gift:able)} :: local move
|
||||
++ note :: out request $->
|
||||
$% $: $c :: to %clay
|
||||
$% {$warp p/sock:^clay q/riff:^clay} ::
|
||||
$% {$warp p/sock q/riff:^clay} ::
|
||||
== == ::
|
||||
$: $f :: to %ford
|
||||
$% {$exec p/@p q/(unit bilk:^ford)} ::
|
||||
== == ::
|
||||
$: $g :: to %gall
|
||||
$% {$deal p/sock:^gall q/cush:^gall} ::
|
||||
$% {$deal p/sock q/cush:^gall} ::
|
||||
== == == ::
|
||||
++ sign :: in result $<-
|
||||
$% $: $c :: by %clay
|
||||
|
||||
@ -9604,12 +9604,12 @@
|
||||
++ beam {{p/ship q/desk r/case} s/path} :: global name
|
||||
++ beak {p/ship q/desk r/case} :: path prefix
|
||||
++ bone @ud :: opaque duct
|
||||
++ care ?($$ $u $v $w $x $y $z) :: namespace mode
|
||||
++ case :: version
|
||||
$% {$da p/@da} :: date
|
||||
{$tas p/@tas} :: label
|
||||
{$ud p/@ud} :: sequence
|
||||
== ::
|
||||
++ coop (unit ares) :: possible error
|
||||
++ desk @tas :: ship desk case spur
|
||||
++ cage (cask vase) :: global metadata
|
||||
++ cask |*(a/$-(* *) (pair mark a)) :: global data
|
||||
@ -9621,11 +9621,19 @@
|
||||
++ dock (pair @p term) :: message target
|
||||
++ duct (list wire) :: causal history
|
||||
++ hypo |*(a/$-(* *) (pair span a)) :: span associated
|
||||
++ hobo |* a/$-(* *) :: kiss wrapper
|
||||
++ hobo |* a/$-(* *) :: task wrapper
|
||||
$? $% {$soft p/*} ::
|
||||
== ::
|
||||
a ::
|
||||
== ::
|
||||
++ json :: normal json value
|
||||
$@ $~ :: null
|
||||
$% {$a p/(list json)} :: array
|
||||
{$b p/?} :: boolean
|
||||
{$o p/(map @t json)} :: object
|
||||
{$n p/@ta} :: number
|
||||
{$s p/@t} :: string
|
||||
== ::
|
||||
++ kirk (unit (set monk)) :: audience
|
||||
++ lens :: observation core
|
||||
$_ ^? ::
|
||||
@ -9651,9 +9659,12 @@
|
||||
++ mass (pair cord (each noun (list mash))) :: memory usage
|
||||
++ mill (each vase milt) :: vase+metavase
|
||||
++ milt {p/* q/*} :: metavase
|
||||
++ mime {p/mite q/octs} :: mimetyped data
|
||||
++ mite (list @ta) :: mime type
|
||||
++ monk (each ship {p/@tas q/@ta}) :: general identity
|
||||
++ muse {p/@tas q/duct r/arvo} :: sourced move
|
||||
++ move {p/duct q/arvo} :: arvo move
|
||||
++ octs {p/@ud q/@t} :: octet-stream
|
||||
++ ovum {p/wire q/curd} :: spanless ovum
|
||||
++ pane (list {p/@tas q/vase}) :: kernel modules
|
||||
++ pass @ :: public key
|
||||
@ -9667,6 +9678,14 @@
|
||||
++ slyd $- {* (unit (set monk)) term beam} :: super advanced
|
||||
(unit (unit (cask))) ::
|
||||
++ slyt $-({* *} (unit (unit))) :: old namespace
|
||||
++ sack {p/ship q/ship} :: incoming [our his}
|
||||
++ scar :: opaque duct
|
||||
$: p/@ud :: bone sequence
|
||||
q/(map duct bone) :: by duct
|
||||
r/(map bone duct) :: by bone
|
||||
== ::
|
||||
++ sock {p/ship q/ship} :: outgoing [our his]
|
||||
++ spur path :: ship desk case spur
|
||||
++ time @da :: galactic time
|
||||
++ vile :: reflexive constants
|
||||
$: typ/span :: -:!>(*span)
|
||||
@ -10038,7 +10057,7 @@
|
||||
++ scry :: read namespace
|
||||
~/ %scry
|
||||
|= $: fur/(unit (set monk))
|
||||
ren/care
|
||||
ren/@t
|
||||
bed/beam
|
||||
==
|
||||
^- (unit (unit (cask)))
|
||||
@ -10123,7 +10142,7 @@
|
||||
^- (unit (unit (cask)))
|
||||
=> .(fur ?^(fur fur `[[%& p.bed] ~ ~])) :: XX heinous
|
||||
=+ lal=(end 3 1 ron)
|
||||
=+ ren=(care (rsh 3 1 ron))
|
||||
=+ ren=(rsh 3 1 ron)
|
||||
|- ^- (unit (unit (cask)))
|
||||
?~ q.niz ~
|
||||
?. =(lal p.i.q.niz) $(q.niz t.q.niz)
|
||||
|
||||
@ -1950,7 +1950,7 @@
|
||||
why/shop
|
||||
syd/desk
|
||||
lot/coin
|
||||
tyl/spur:^clay
|
||||
tyl/spur
|
||||
==
|
||||
^- (unit (unit cage))
|
||||
~
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
!: :: /van/zuse
|
||||
:: :: !%reference
|
||||
:: :: !%reference/1
|
||||
:: %zuse: arvo library.
|
||||
::
|
||||
:: %zuse is two nested cores: the first for models
|
||||
@ -18,6 +18,8 @@
|
||||
:: - %gall: application ("ball")
|
||||
:: - %jael: security ("jail")
|
||||
::
|
||||
:: with %zuse in your core,
|
||||
::
|
||||
:: every model or engine in %zuse is attached to some
|
||||
:: vane, but any vane can use it (in its namespace),
|
||||
:: as can any normal user-level code.
|
||||
@ -33,7 +35,7 @@
|
||||
::
|
||||
|%
|
||||
:: ::::
|
||||
:::: ++ ^ames :: networking
|
||||
:::: ++^ames :: networking
|
||||
:: ::::
|
||||
++ ames ^?
|
||||
|%
|
||||
@ -77,16 +79,16 @@
|
||||
{$wegh $~} :: report memory
|
||||
{$wont p/sock q/path r/*} :: e2e send message
|
||||
== ::
|
||||
-- :: able ::
|
||||
++ acru :: asym cryptosuite
|
||||
$_ ^? |% :: opaque object
|
||||
-- ::able ::
|
||||
++ acru $_ ^? :: asym cryptosuite
|
||||
|% :: opaque object
|
||||
++ as ^? :: asym ops
|
||||
|% ++ seal |~({a/pass b/@ c/@} *@) :: encrypt to a
|
||||
++ sign |~({a/@ b/@} *@) :: certify as us
|
||||
++ sure |~({a/@ b/@} *(unit @)) :: authenticate from us
|
||||
++ tear |~ {a/pass b/@} :: accept from a
|
||||
*(unit {p/@ q/@}) ::
|
||||
-- ::
|
||||
-- ::as ::
|
||||
++ de |~({a/@ b/@} *(unit @)) :: symmetric de, soft
|
||||
++ dy |~({a/@ b/@} *@) :: symmetric de, hard
|
||||
++ en |~({a/@ b/@} *@) :: symmetric en
|
||||
@ -95,14 +97,13 @@
|
||||
++ pac *@uvG :: default passcode
|
||||
++ pub *pass :: public key
|
||||
++ sec *ring :: private key
|
||||
-- ::
|
||||
-- ::ex ::
|
||||
++ nu ^? :: reconstructors
|
||||
|% ++ pit |~({a/@ b/@} ^?(..nu)) :: from [width seed]
|
||||
++ nol |~(a/@ ^?(..nu)) :: from naked ring
|
||||
++ com |~(a/@ ^?(..nu)) :: from naked pass
|
||||
-- ::
|
||||
-- ::
|
||||
++ ares (unit {p/term q/(list tank)}) :: possible error
|
||||
|% ++ pit |~({a/@ b/@} ^?(..nu)) :: from [width seed]
|
||||
++ nol |~(a/@ ^?(..nu)) :: from naked ring
|
||||
++ com |~(a/@ ^?(..nu)) :: from naked pass
|
||||
-- ::nu ::
|
||||
-- ::acru ::
|
||||
++ bait {p/skin q/@ud r/dove} :: fmt nrecvd spec
|
||||
++ boon :: fort output
|
||||
$% {$beer p/ship} :: gained ownership
|
||||
@ -128,7 +129,6 @@
|
||||
qim/(map hand code) :: inbound
|
||||
== ::
|
||||
++ code @uvI :: symmetric key
|
||||
++ coop (unit ares) :: e2e ack
|
||||
++ deyd {p/@ q/step r/?} :: sig stage fake?
|
||||
++ dore :: foreign contact
|
||||
$: wod/road :: connection to
|
||||
@ -208,16 +208,9 @@
|
||||
puq/(qeu {p/@ud q/soul}) :: packet queue
|
||||
== ::
|
||||
== ::
|
||||
++ scar :: opaque duct
|
||||
$: p/@ud :: bone sequence
|
||||
q/(map duct bone) :: by duct
|
||||
r/(map bone duct) :: by bone
|
||||
== ::
|
||||
++ skin ?($none $open $fast $full) :: encoding stem
|
||||
++ snow {p/@ud q/@ud r/(set @ud)} :: window exceptions
|
||||
++ soap {p/{p/life q/life} q/path r/@ud} :: statement id
|
||||
++ sack {p/ship q/ship} :: incoming [our him]
|
||||
++ sock {p/ship q/ship} :: outgoing [from to]
|
||||
++ soup {p/path q/@ud} :: new statement id
|
||||
++ soul :: packet in travel
|
||||
$: gom/soup :: message identity
|
||||
@ -252,7 +245,7 @@
|
||||
++ wyll (list deyd) :: certificate
|
||||
-- :: ames
|
||||
:: ::::
|
||||
:::: ++ ^behn :: scheduling
|
||||
:::: ++^behn :: scheduling
|
||||
:: ::::
|
||||
++ behn ^?
|
||||
|%
|
||||
@ -271,7 +264,7 @@
|
||||
-- :: able
|
||||
-- :: behn
|
||||
:: ::::
|
||||
:::: # ^clay :: storage
|
||||
:::: ++^clay :: storage
|
||||
:: ::::
|
||||
++ clay ^?
|
||||
|%
|
||||
@ -309,7 +302,6 @@
|
||||
$: fil/(unit {p/lobe q/cage}) :: file
|
||||
dir/(map @ta ankh) :: folders
|
||||
== ::
|
||||
++ ares (unit {p/term q/(list tank)}) :: possible error
|
||||
++ beam {{p/ship q/desk r/case} s/path} :: global name
|
||||
++ beak {p/ship q/desk r/case} :: path prefix
|
||||
++ blob :: fs blob
|
||||
@ -389,10 +381,7 @@
|
||||
++ riot (unit rant) :: response+complete
|
||||
++ rump {p/care q/case r/@tas s/path} :: relative path
|
||||
++ saba {p/ship q/@tas r/moar s/dome} :: patch+merge
|
||||
++ sack {p/ship q/ship} :: incoming [our him]
|
||||
++ sock {p/ship q/ship} :: outgoing [our him]
|
||||
++ soba (list {p/path q/miso}) :: delta
|
||||
++ spur path :: ship desk case spur
|
||||
++ suba (list {p/path q/misu}) :: delta
|
||||
++ tako @ :: yaki ref
|
||||
++ toro {p/@ta q/nori} :: general change
|
||||
@ -437,9 +426,9 @@
|
||||
r/tako :: self-reference
|
||||
t/@da :: date
|
||||
== ::
|
||||
-- :: clay
|
||||
-- ::clay
|
||||
:: ::::
|
||||
:::: ++ ^dill :: console
|
||||
:::: ++^dill :: console
|
||||
:: ::::
|
||||
++ dill ^?
|
||||
|%
|
||||
@ -463,7 +452,7 @@
|
||||
{$boot p/*} :: weird %dill boot
|
||||
{$crud p/@tas q/(list tank)} :: error with trace
|
||||
{$flog p/flog} :: wrapped error
|
||||
{$flow p/@tas q/(list gill:gall)} :: terminal config
|
||||
{$flow p/@tas q/(list gill:gall)} :: terminal config
|
||||
{$hail $~} :: terminal refresh
|
||||
{$heft $~} :: memory report
|
||||
{$hook $~} :: this term hung up
|
||||
@ -477,7 +466,7 @@
|
||||
{$vega p/path} :: reboot by path
|
||||
{$verb $~} :: verbose mode
|
||||
== ::
|
||||
-- :: able
|
||||
-- ::able
|
||||
++ blew {p/@ud q/@ud} :: columns rows
|
||||
++ belt :: old belt
|
||||
$% {$aro p/?($d $l $r $u)} :: arrow key
|
||||
@ -564,9 +553,7 @@
|
||||
{$west p/sack q/{path @ud *}} :: network request
|
||||
== ::
|
||||
-- :: able
|
||||
++ ares (unit {p/term q/(list tank)}) :: possible error
|
||||
++ clip (each @if @is) :: client IP
|
||||
++ coop (unit ares) :: e2e ack
|
||||
++ cred :: credential
|
||||
$: hut/hart :: client host
|
||||
aut/(jug @tas @t) :: client identities
|
||||
@ -611,14 +598,6 @@
|
||||
r/httq ::
|
||||
== ::
|
||||
++ iden knot :: username
|
||||
++ json :: normal json value
|
||||
$@ $~ :: null
|
||||
$% {$a p/(list json)} :: array
|
||||
{$b p/?} :: boolean
|
||||
{$o p/(map @t json)} :: object
|
||||
{$n p/@ta} :: number
|
||||
{$s p/@t} :: string
|
||||
== ::
|
||||
++ love :: http response
|
||||
$% {$ham p/manx} :: html node
|
||||
{$mid p/mite q/octs} :: mime-typed data
|
||||
@ -638,7 +617,6 @@
|
||||
$put :: PUT
|
||||
$trac :: TRACE
|
||||
== ::
|
||||
++ mime {p/mite q/octs} :: mimetyped data
|
||||
++ mite (list @ta) :: mime type
|
||||
++ moth {p/meth q/math r/(unit octs)} :: http operation
|
||||
++ octs {p/@ud q/@t} :: octet-stream
|
||||
@ -652,7 +630,6 @@
|
||||
{$| p/pork q/quay} :: relative
|
||||
== ::
|
||||
++ rout {p/(list host) q/path r/oryx s/path} :: http route (new)
|
||||
++ sack {p/ship q/ship} :: incoming [our him]
|
||||
-- :: eyre
|
||||
:: ::::
|
||||
:::: # ^ford :: build
|
||||
@ -736,7 +713,6 @@
|
||||
{$vale p/mark q/*} :: validate
|
||||
{$volt p/(cask *)} :: unsafe add type
|
||||
== ::
|
||||
++ spur path :: ship desk case spur
|
||||
-- :: ford
|
||||
:: ::::
|
||||
:::: # ^gall :: application
|
||||
@ -756,12 +732,13 @@
|
||||
$% {$conf p/dock q/culm} :: configure app
|
||||
{$init p/ship} :: set owner
|
||||
{$deal p/sock q/cush} :: full transmission
|
||||
{$went p/sack q/path r/@ud s/coop:pki:jael} :: response confirm
|
||||
{$went p/sack q/path r/@ud s/coop} :: response confirm
|
||||
{$west p/sack q/path r/@ud s/*} :: network request
|
||||
{$wegh $~} :: report memory
|
||||
== ::
|
||||
-- :: able
|
||||
++ ares (unit {p/term q/(list tank)}) :: possible error
|
||||
++ bitt (map bone (pair ship path)) :: incoming subs
|
||||
++ boat (map (pair bone wire) (trel bean ship path)):: outgoing subs
|
||||
++ bowl :: standard app state
|
||||
$: $: our/ship :: host
|
||||
src/ship :: guest
|
||||
@ -776,15 +753,6 @@
|
||||
now/@da :: current time
|
||||
byk/beak :: load source
|
||||
== == ::
|
||||
++ bitt (map bone (pair ship path)) :: incoming subs
|
||||
++ boat (map (pair bone wire) (trel bean ship path)):: outgoing subs
|
||||
++ coop (unit ares) :: e2e ack
|
||||
++ gill (pair ship term) :: general contact
|
||||
++ scar :: opaque duct
|
||||
$: p/@ud :: bone sequence
|
||||
q/(map duct bone) :: by duct
|
||||
r/(map bone duct) :: by bone
|
||||
== ::
|
||||
++ club :: agent action
|
||||
$% {$peel p/mark q/path} :: translated peer
|
||||
{$peer p/path} :: subscribe
|
||||
@ -809,11 +777,10 @@
|
||||
== ::
|
||||
++ cush (pair term club) :: internal task
|
||||
++ dude term :: server identity
|
||||
++ gill (pair ship term) :: general contact
|
||||
++ scup (pair ship desk) :: autoupdate
|
||||
++ well (pair desk term) ::
|
||||
++ sack {p/ship q/ship} :: incoming [our his}
|
||||
++ sock {p/ship q/ship} :: outgoing [from to]
|
||||
++ suss (trel dude @tas @da) :: config report
|
||||
++ well (pair desk term) ::
|
||||
-- :: gall
|
||||
:: ::::
|
||||
:::: # ^jael :: security
|
||||
@ -939,7 +906,6 @@
|
||||
:: bit is set, the new life of this ship may have
|
||||
:: lost information that the old life had.
|
||||
::
|
||||
++ ares (unit {p/term q/(list tank)}) :: possible error
|
||||
++ arms (map chip (pair @ta @t)) :: stated identity
|
||||
++ bull :: cert metadata
|
||||
$: dad/ship :: parent
|
||||
@ -953,7 +919,6 @@
|
||||
$had :: fictitious name
|
||||
$mid :: middle name
|
||||
== ::
|
||||
++ coop (unit ares) :: e2e ack
|
||||
++ deed :: certificate deed
|
||||
$: doc/bull :: metadata
|
||||
pub/pass :: public key
|
||||
@ -1065,9 +1030,7 @@
|
||||
{$west p/ship q/path r/*} :: to %gall
|
||||
== == == ::
|
||||
-- :: able
|
||||
++ ares (unit {p/term q/(list tank)}) :: possible error
|
||||
++ code @uvI :: symmetric key
|
||||
++ coop (unit ares) :: e2e ack
|
||||
++ lane :: packet route
|
||||
$% {$if p/@da q/@ud r/@if} :: IP4/public UDP/addr
|
||||
{$is p/@ud q/(unit lane) r/@is} :: IPv6 w+alternates
|
||||
|
||||
@ -14,7 +14,7 @@
|
||||
++ drum-pith-0 _!! :: forgotten
|
||||
++ drum-pith-1 ::
|
||||
$: sys/(unit bone) :: local console
|
||||
eel/(set gill) :: connect to
|
||||
eel/(set gill:^gall) :: connect to
|
||||
ray/(set well:^gall) ::
|
||||
fur/(map dude:^gall (unit server)) :: servers
|
||||
bin/(map bone source) :: terminals
|
||||
@ -38,7 +38,7 @@
|
||||
off/@ud :: window offset
|
||||
kil/kill :: kill buffer
|
||||
inx/@ud :: ring index
|
||||
fug/(map gill (unit target)) :: connections
|
||||
fug/(map gill:^gall (unit target)) :: connections
|
||||
mir/(pair @ud (list @c)) :: mirrored terminal
|
||||
== ::
|
||||
++ master :: master buffer
|
||||
@ -56,15 +56,18 @@
|
||||
str/(list @c) :: search string
|
||||
== ::
|
||||
++ target :: application target
|
||||
$: blt/(pair (unit dill-belt) (unit dill-belt)) :: curr & prev belts
|
||||
$: $= blt :: curr & prev belts
|
||||
%+ pair
|
||||
(unit dill-belt:^dill)
|
||||
(unit dill-belt:^dill)
|
||||
ris/(unit search) :: reverse-i-search
|
||||
hit/history :: all past input
|
||||
pom/sole-prompt :: static prompt
|
||||
inp/sole-command :: input state
|
||||
== ::
|
||||
++ ukase :: master command
|
||||
$% {$add p/(list gill)} :: attach to
|
||||
{$del p/(list gill)} :: detach from
|
||||
$% {$add p/(list gill:^gall)} :: attach to
|
||||
{$del p/(list gill:^gall)} :: detach from
|
||||
{$new p/(list well:^gall)} :: create
|
||||
== ::
|
||||
--
|
||||
@ -75,7 +78,7 @@
|
||||
++ deft-apes :: default servers
|
||||
|= our/ship
|
||||
%- ~(gas in *(set well:^gall))
|
||||
=+ myr=(clan our)
|
||||
=+ myr=(clan:title:jael our)
|
||||
?: =(%pawn myr)
|
||||
[[%base %talk] [%base %dojo] ~]
|
||||
?: =(%earl myr)
|
||||
@ -84,11 +87,11 @@
|
||||
::
|
||||
++ deft-fish :: default connects
|
||||
|= our/ship
|
||||
%- ~(gas in *(set gill))
|
||||
^- (list gill)
|
||||
=+ myr=(clan our)
|
||||
%- ~(gas in *(set gill:^gall))
|
||||
^- (list gill:^gall)
|
||||
=+ myr=(clan:title:jael our)
|
||||
?: =(%earl myr)
|
||||
[[(sein our) %talk] [our %dojo] ~]
|
||||
[[(sein:title:jael our) %talk] [our %dojo] ~]
|
||||
[[our %talk] [our %dojo] ~]
|
||||
::
|
||||
++ deft-mast :: default master
|
||||
@ -133,17 +136,17 @@
|
||||
==
|
||||
::
|
||||
++ drum-path :: encode path
|
||||
|= gyl/gill
|
||||
|= gyl/gill:^gall
|
||||
[%drum %phat (scot %p p.gyl) q.gyl ~]
|
||||
::
|
||||
++ drum-phat :: decode path
|
||||
|= way/wire ^- gill
|
||||
|= way/wire ^- gill:^gall
|
||||
?>(?=({@ @ $~} way) [(slav %p i.way) i.t.way])
|
||||
--
|
||||
!:
|
||||
::::
|
||||
::
|
||||
|= {bowl drum-part} :: main drum work
|
||||
|= {bowl:^gall drum-part} :: main drum work
|
||||
=+ (fall (~(get by bin) ost) (deft-pipe our))
|
||||
=* dev -
|
||||
=> |% :: arvo structures
|
||||
@ -152,7 +155,7 @@
|
||||
{$talk-command command:talk} ::
|
||||
== ::
|
||||
++ lime :: update
|
||||
$% {$dill-blit dill-blit} ::
|
||||
$% {$dill-blit dill-blit:^dill} ::
|
||||
== ::
|
||||
++ card :: general card
|
||||
$% {$conf wire dock $load ship term} ::
|
||||
@ -163,7 +166,7 @@
|
||||
== ::
|
||||
++ move (pair bone card) :: user-level move
|
||||
--
|
||||
|_ {moz/(list move) biz/(list dill-blit)}
|
||||
|_ {moz/(list move) biz/(list dill-blit:^dill)}
|
||||
++ diff-sole-effect-phat ::
|
||||
|= {way/wire fec/sole-effect}
|
||||
=< se-abet =< se-view
|
||||
@ -175,11 +178,11 @@
|
||||
|= pax/path =< se-abet
|
||||
^+ +>
|
||||
~| [%drum-unauthorized our+our src+src] :: ourself
|
||||
?> (team our src) :: or our own moon
|
||||
?> (team:title:jael our src) :: or our own moon
|
||||
se-view:(se-text "[{<src>}, driving {<our>}]")
|
||||
::
|
||||
++ poke-dill-belt ::
|
||||
|= bet/dill-belt
|
||||
|= bet/dill-belt:^dill
|
||||
=< se-abet =< se-view
|
||||
(se-belt bet)
|
||||
::
|
||||
@ -189,17 +192,18 @@
|
||||
(se-born wel)
|
||||
::
|
||||
++ poke-link ::
|
||||
|= gyl/gill
|
||||
|= gyl/gill:^gall
|
||||
=< se-abet =< se-view
|
||||
(se-link gyl)
|
||||
::
|
||||
++ poke-unlink ::
|
||||
|= gyl/gill
|
||||
|= gyl/gill:^gall
|
||||
=< se-abet =< se-view
|
||||
(se-klin gyl)
|
||||
::
|
||||
++ poke-exit ::
|
||||
|=($~ se-abet:(se-blit-sys `dill-blit`[%qit ~])) ::
|
||||
|= $~
|
||||
se-abet:(se-blit-sys `dill-blit:^dill`[%qit ~])
|
||||
::
|
||||
++ poke-put ::
|
||||
|= {pax/path txt/@}
|
||||
@ -275,7 +279,7 @@
|
||||
^+ .
|
||||
%+ roll (~(tap in eel))
|
||||
=< .(con +>)
|
||||
|= {gil/gill con/_.} ^+ con
|
||||
|= {gil/gill:^gall con/_.} ^+ con
|
||||
=. +>.$ con
|
||||
?: (~(has by fug) gil)
|
||||
+>.$
|
||||
@ -295,21 +299,21 @@
|
||||
^+ .
|
||||
%- ~(rep by fug)
|
||||
=< .(con +>)
|
||||
|= {{gil/gill *} con/_.} ^+ con
|
||||
|= {{gil/gill:^gall *} con/_.} ^+ con
|
||||
=. +>.$ con
|
||||
?: (~(has in eel) gil)
|
||||
+>.$
|
||||
(se-nuke gil)
|
||||
::
|
||||
++ se-aint :: ignore result
|
||||
|= gyl/gill
|
||||
|= gyl/gill:^gall
|
||||
^- ?
|
||||
?. (~(has by bin) ost) &
|
||||
=+ gyr=(~(get by fug) gyl)
|
||||
|(?=($~ gyr) ?=({$~ $~} gyr))
|
||||
::
|
||||
++ se-alas :: recalculate index
|
||||
|= gyl/gill
|
||||
|= gyl/gill:^gall
|
||||
^+ +>
|
||||
=+ [xin=0 wag=se-amor]
|
||||
?: =(~ wag) +>.$(inx 0)
|
||||
@ -319,8 +323,8 @@
|
||||
$(wag t.wag, xin +(xin))
|
||||
::
|
||||
++ se-amor :: live targets
|
||||
^- (list gill)
|
||||
(skim (~(tap in eel)) |=(gill ?=({$~ $~ *} (~(get by fug) +<))))
|
||||
^- (list gill:^gall)
|
||||
(skim (~(tap in eel)) |=(gill:^gall ?=({$~ $~ *} (~(get by fug) +<))))
|
||||
::
|
||||
++ se-anon :: rotate index
|
||||
=+ wag=se-amor
|
||||
@ -329,13 +333,13 @@
|
||||
+(inx (mod +(inx) (lent se-amor)))
|
||||
::
|
||||
++ se-agon :: current gill
|
||||
^- (unit gill)
|
||||
^- (unit gill:^gall)
|
||||
=+ wag=se-amor
|
||||
?~ wag ~
|
||||
`(snag inx se-amor)
|
||||
::
|
||||
++ se-belt :: handle input
|
||||
|= bet/dill-belt
|
||||
|= bet/dill-belt:^dill
|
||||
^+ +>
|
||||
?: ?=($rez -.bet)
|
||||
+>(edg (dec p.bet))
|
||||
@ -368,7 +372,7 @@
|
||||
+>(ray (~(put in ray) wel), eel (~(put in eel) [our q.wel]))
|
||||
::
|
||||
++ se-drop :: disconnect
|
||||
|= {pej/? gyl/gill}
|
||||
|= {pej/? gyl/gill:^gall}
|
||||
^+ +>
|
||||
=+ lag=se-agon
|
||||
?. (~(has by fug) gyl) +>.$
|
||||
@ -392,7 +396,7 @@
|
||||
$(wol t.wol, +>.^$ (se-blit %out (tuba i.wol)))
|
||||
::
|
||||
++ se-joke :: prepare connection
|
||||
|= gyl/gill
|
||||
|= gyl/gill:^gall
|
||||
^+ +>
|
||||
=+ lag=se-agon
|
||||
?~ lag +>.$
|
||||
@ -400,14 +404,14 @@
|
||||
(se-alas(fug (~(put by fug) gyl ~)) u.lag)
|
||||
::
|
||||
++ se-join :: confirm connection
|
||||
|= gyl/gill
|
||||
|= gyl/gill:^gall
|
||||
^+ +>
|
||||
=. +> (se-text "[linked to {<gyl>}]")
|
||||
?> =(~ (~(got by fug) gyl))
|
||||
(se-alas(fug (~(put by fug) gyl `*target)) gyl)
|
||||
::
|
||||
++ se-nuke :: teardown
|
||||
|= gyl/gill
|
||||
|= gyl/gill:^gall
|
||||
^+ +>
|
||||
(se-drop:(se-pull gyl) & gyl)
|
||||
::
|
||||
@ -434,16 +438,16 @@
|
||||
^- tape
|
||||
=+ lag=se-agon
|
||||
=+ ^= pry
|
||||
|= gill ^- tape
|
||||
|= gill:^gall ^- tape
|
||||
=+((trip q.+<) ?:(=(our p.+>-) - :(welp (scow %p p.+>-) "/" -)))
|
||||
=+ ^= yey
|
||||
|= gill ^- tape
|
||||
|= gill:^gall ^- tape
|
||||
=+((pry +<) ?:(=(lag `+>-) ['*' -] -))
|
||||
=+ ^= yal ^- (list tape)
|
||||
%+ weld
|
||||
^- (list tape)
|
||||
%+ turn (~(tap by fug))
|
||||
|= {a/gill b/(unit target)}
|
||||
|= {a/gill:^gall b/(unit target)}
|
||||
=+ c=(yey a)
|
||||
?~(b ['?' c] c)
|
||||
^- (list tape)
|
||||
@ -455,19 +459,19 @@
|
||||
:(welp i.yal ", " $(yal t.yal))
|
||||
::
|
||||
++ se-klin :: disconnect app
|
||||
|= gyl/gill
|
||||
|= gyl/gill:^gall
|
||||
+>(eel (~(del in eel) gyl))
|
||||
::
|
||||
++ se-link :: connect to app
|
||||
|= gyl/gill
|
||||
|= gyl/gill:^gall
|
||||
+>(eel (~(put in eel) gyl))
|
||||
::
|
||||
++ se-blit :: give output
|
||||
|= bil/dill-blit
|
||||
|= bil/dill-blit:^dill
|
||||
+>(biz [bil biz])
|
||||
::
|
||||
++ se-blit-sys :: output to system console
|
||||
|= bil/dill-blit ^+ +>
|
||||
|= bil/dill-blit:^dill ^+ +>
|
||||
?~ sys ~&(%se-blit-no-sys +>)
|
||||
(se-emit [u.sys %diff %dill-blit bil])
|
||||
::
|
||||
@ -518,30 +522,30 @@
|
||||
(se-blit %out (tuba txt))
|
||||
::
|
||||
++ se-poke :: send a poke
|
||||
|= {gyl/gill par/pear}
|
||||
|= {gyl/gill:^gall par/pear}
|
||||
(se-emit ost %poke (drum-path gyl) gyl par)
|
||||
::
|
||||
++ se-peer :: send a peer
|
||||
|= gyl/gill
|
||||
|= gyl/gill:^gall
|
||||
(se-emit(fug (~(put by fug) gyl ~)) ost %peer (drum-path gyl) gyl /sole)
|
||||
::
|
||||
++ se-pull :: cancel subscription
|
||||
|= gyl/gill
|
||||
|= gyl/gill:^gall
|
||||
(se-emit ost %pull (drum-path gyl) gyl ~)
|
||||
::
|
||||
++ se-tame :: switch connection
|
||||
|= gyl/gill
|
||||
|= gyl/gill:^gall
|
||||
^+ ta
|
||||
~(. ta [& gyl] (need (~(got by fug) gyl)))
|
||||
::
|
||||
++ se-diff :: receive results
|
||||
|= {gyl/gill fec/sole-effect}
|
||||
|= {gyl/gill:^gall fec/sole-effect}
|
||||
^+ +>
|
||||
ta-abet:(ta-fec:(se-tame gyl) fec)
|
||||
::
|
||||
++ ta :: per target
|
||||
|_ $: $: liv/? :: don't delete
|
||||
gyl/gill :: target app
|
||||
gyl/gill:^gall :: target app
|
||||
== ::
|
||||
target :: target state
|
||||
== ::
|
||||
|
||||
@ -11,7 +11,7 @@
|
||||
|% :: ::
|
||||
++ helm-part {$helm $0 helm-pith} :: helm state
|
||||
++ helm-pith :: helm content
|
||||
$: bur/(unit (pair ship mace)) :: requesting ticket
|
||||
$: bur/(unit (pair ship mace:^ames)) :: requesting ticket
|
||||
hoc/(map bone helm-session) :: consoles
|
||||
== ::
|
||||
++ helm-session ::
|
||||
@ -25,7 +25,7 @@
|
||||
$: his/@p :: identity
|
||||
tic/@p :: ticket
|
||||
eny/@t :: entropy
|
||||
ges/gens :: description
|
||||
ges/gens:^ames :: description
|
||||
== ::
|
||||
++ hood-init :: report init
|
||||
$: him/ship ::
|
||||
@ -46,25 +46,25 @@
|
||||
:: :: ::
|
||||
:::: :: ::
|
||||
!: :: ::
|
||||
|= {bowl helm-part} :: main helm work
|
||||
|= {bowl:^gall helm-part} :: main helm work
|
||||
=+ sez=(fall (~(get by hoc) ost) *helm-session)
|
||||
=> |% :: arvo structures
|
||||
++ card ::
|
||||
$% {$cash wire p/@p q/buck} ::
|
||||
{$conf wire dock $load ship term} ::
|
||||
{$flog wire flog} ::
|
||||
{$funk wire @p @p @} ::
|
||||
{$serv wire ?(desk beam)} ::
|
||||
{$poke wire dock pear} ::
|
||||
{$wont wire sock path *} :: send message
|
||||
== ::
|
||||
++ move (pair bone card) :: user-level move
|
||||
++ pear :: poke fruit
|
||||
$% {$hood-unsync desk ship desk} ::
|
||||
{$talk-command command:talk} ::
|
||||
{$ask-mail cord} ::
|
||||
{$helm-hi cord} ::
|
||||
== ::
|
||||
=> |% :: arvo structures
|
||||
++ card ::
|
||||
$% {$cash wire p/@p q/buck:^ames} ::
|
||||
{$conf wire dock $load ship term} ::
|
||||
{$flog wire flog:^dill} ::
|
||||
{$funk wire @p @p @} ::
|
||||
{$serv wire ?(desk beam)} ::
|
||||
{$poke wire dock pear} ::
|
||||
{$wont wire sock path *} :: send message
|
||||
== ::
|
||||
++ move (pair bone card) :: user-level move
|
||||
++ pear :: poke fruit
|
||||
$% {$hood-unsync desk ship desk} ::
|
||||
{$talk-command command:talk} ::
|
||||
{$ask-mail cord} ::
|
||||
{$helm-hi cord} ::
|
||||
== ::
|
||||
--
|
||||
|_ moz/(list move)
|
||||
++ abet :: resolve
|
||||
@ -82,7 +82,7 @@
|
||||
=+ buz=(shaz :(mix (jam ges) eny))
|
||||
=+ loy=(pit:nu:crub:crypto:ames 512 buz)
|
||||
%- emit(bur `[his [0 sec:ex:loy]~])
|
||||
[%wont /helm/ticket [our (sein his)] /a/ta his tic ges pub:ex:loy]
|
||||
[%wont /helm/ticket [our (sein:title:jael his)] /a/ta his tic ges pub:ex:loy]
|
||||
::
|
||||
++ poke-spawn
|
||||
|= {him/ship key/@pG} =< abet
|
||||
@ -198,13 +198,13 @@
|
||||
~
|
||||
::
|
||||
++ poke-wyll :: hear certificate
|
||||
|= wil/(unit wyll)
|
||||
|= wil/(unit wyll:^ames)
|
||||
?> ?=(^ bur)
|
||||
?> ?=(^ wil)
|
||||
=< abet
|
||||
%- emil(bur ~)
|
||||
:~ [%cash /helm p.u.bur q.u.bur u.wil]
|
||||
[%poke /helm [our %hood] %hood-unsync %base (sein our) %kids]
|
||||
[%poke /helm [our %hood] %hood-unsync %base (sein:title:jael our) %kids]
|
||||
==
|
||||
::
|
||||
++ poke-verb :: toggle verbose
|
||||
|
||||
@ -19,7 +19,7 @@
|
||||
++ term |=(a/^term (gsub '-' '_' a)) :: single atom
|
||||
++ path |=(a/^path (turn a term)) :: path elements
|
||||
++ quay :: query string keys
|
||||
|= a/^quay ^+ a
|
||||
|= a/quay:^eyre ^+ a
|
||||
%+ turn a
|
||||
|=({p/@t q/@t} [(term p) q])
|
||||
--
|
||||
|
||||
@ -6,6 +6,8 @@
|
||||
::
|
||||
:::: ~fyr
|
||||
::
|
||||
=, ^eyre
|
||||
=, url:eyre
|
||||
|%
|
||||
++ parse-url
|
||||
|= a/$@(cord:purl purl) ^- purl
|
||||
|
||||
@ -5,6 +5,7 @@
|
||||
:: :: ::
|
||||
:::: :: ::
|
||||
:: :: ::
|
||||
=, ^clay
|
||||
=, space:clay
|
||||
|% :: ::
|
||||
++ kiln-part {$kiln $0 kiln-pith} :: kiln state
|
||||
@ -52,11 +53,11 @@
|
||||
:: :: ::
|
||||
:::: :: ::
|
||||
!: :: ::
|
||||
|= {bowl kiln-part} :: main kiln work
|
||||
|= {bowl:^gall kiln-part} :: main kiln work
|
||||
?> =(src our)
|
||||
=> |% :: arvo structures
|
||||
++ card ::
|
||||
$% {$exec wire @p $~ {beak silk}} ::
|
||||
$% {$exec wire @p $~ {beak silk:^ford}} ::
|
||||
{$drop wire @p @tas} ::
|
||||
{$info wire @p @tas nori} ::
|
||||
{$mont wire @tas @p @tas path} ::
|
||||
@ -212,7 +213,7 @@
|
||||
abet:abet:(mere:(take way) are)
|
||||
::
|
||||
++ take-made ::
|
||||
|= {way/wire dep/@uvH reg/gage}
|
||||
|= {way/wire dep/@uvH reg/gage:^ford}
|
||||
abet:abet:(made:(take way) dep reg)
|
||||
::
|
||||
++ take-coup-fancy ::
|
||||
@ -424,11 +425,11 @@
|
||||
(ford-fail p.res)
|
||||
::
|
||||
++ gage-to-cages
|
||||
|= gag/gage ^- (list (pair cage cage))
|
||||
|= gag/gage:^ford ^- (list (pair cage cage))
|
||||
(unwrap-tang (gage-to-tage gag))
|
||||
::
|
||||
++ gage-to-tage
|
||||
|= gag/gage
|
||||
|= gag/gage:^ford
|
||||
^- (each (list (pair cage cage)) tang)
|
||||
?. ?=($tabl -.gag)
|
||||
(mule |.(`$~`(ford-fail >%strange-gage< ~)))
|
||||
@ -495,11 +496,11 @@
|
||||
%- blab :_ ~
|
||||
:* ost %exec /kiln/[syd]
|
||||
our ~ [our tic %da now] %tabl
|
||||
^- (list (pair silk silk))
|
||||
^- (list (pair silk:^ford silk:^ford))
|
||||
:: ~& > kiln-mashing+[p.are syd=syd +<.abet]
|
||||
%+ turn (~(tap in p.are))
|
||||
|= pax/path
|
||||
^- (pair silk silk)
|
||||
^- (pair silk:^ford silk:^ford)
|
||||
:- [%$ %path -:!>(*path) pax]
|
||||
=+ base=[%file [our tic %da now] (flop pax)]
|
||||
=+ alis=[%file [her sud cas] (flop pax)]
|
||||
@ -563,7 +564,7 @@
|
||||
(welp (tape-to-tanks "\0a{c}{a}") >b< ~)
|
||||
::
|
||||
++ made
|
||||
|= {dep/@uvH reg/gage}
|
||||
|= {dep/@uvH reg/gage:^ford}
|
||||
^+ +>
|
||||
?: ?=($| -.reg)
|
||||
=+ "failed to mash"
|
||||
|
||||
@ -9,17 +9,17 @@
|
||||
::::
|
||||
::
|
||||
[. ^talk]
|
||||
|_ bol/bowl
|
||||
|_ bol/bowl:^gall
|
||||
++ main :: main story
|
||||
|= our/ship ^- cord
|
||||
=+ can=(clan our)
|
||||
=+ can=(clan:title:jael our)
|
||||
?+ can %porch
|
||||
$czar %court
|
||||
$king %floor
|
||||
==
|
||||
::
|
||||
++ said-url :: app url
|
||||
|= url/purl
|
||||
|= url/purl:^eyre
|
||||
:^ ost.bol %poke /said-url
|
||||
:+ [our.bol %talk] %talk-command
|
||||
^- command
|
||||
@ -28,7 +28,7 @@
|
||||
^- thought
|
||||
:+ (shaf %thot eny.bol)
|
||||
[[[%& our.bol (main our.bol)] [*envelope %pending]] ~ ~]
|
||||
[now.bol *bouquet [%app dap.bol (crip (earn url))]] :: XX
|
||||
[now.bol *bouquet [%app dap.bol (crip (earn:url:eyre url))]] :: XX
|
||||
::
|
||||
++ said :: app message
|
||||
|= {our/@p dap/term now/@da eny/@uvJ mes/(list tank)}
|
||||
|
||||
@ -6,8 +6,10 @@
|
||||
/- twitter
|
||||
/+ interpolate, hep-to-cab
|
||||
=+ sur-twit:^twitter :: XX
|
||||
=, ^eyre
|
||||
=, bytes:eyre
|
||||
=, js:eyre
|
||||
=, url:eyre
|
||||
=, xml:eyre
|
||||
!:
|
||||
:::: functions
|
||||
|
||||
@ -690,7 +690,7 @@
|
||||
~& %rekey-stub .
|
||||
::
|
||||
++ poke-report :: report wyll
|
||||
|= {her/@p wyl/wyll} ::
|
||||
|= {her/@p wyl/wyll:^ames} ::
|
||||
=< abet
|
||||
=. log-transaction (log-transaction %report +<)
|
||||
?> =(src src) :: self-authenticated
|
||||
|
||||
@ -13,22 +13,22 @@
|
||||
::::
|
||||
::
|
||||
|%
|
||||
++ data $%({$json json} {$mime mime})
|
||||
++ card $% {$exec wire @p $~ {beak silk}}
|
||||
{$info wire @p toro}
|
||||
++ data $%({$json json} {$mime mime:^eyre})
|
||||
++ card $% {$exec wire @p $~ {beak silk:^ford}}
|
||||
{$info wire @p toro:^clay}
|
||||
==
|
||||
--
|
||||
!:
|
||||
::::
|
||||
::
|
||||
|= {bowl part}
|
||||
|= {bowl:^gall part}
|
||||
=* par +<+
|
||||
|_ moz/(list {bone card})
|
||||
++ abet [(flop moz) `part`par]
|
||||
++ emit |=(a/card %_(+> moz :_(moz [ost a])))
|
||||
++ beak-now byk(r [%da now])
|
||||
++ poke-wipe
|
||||
|= sup/spur ^+ abet :: XX determine extension, beak
|
||||
|= sup/path ^+ abet :: XX determine extension, beak
|
||||
=+ ext=%md
|
||||
?~ (file (tope beak-now [ext sup]))
|
||||
~|(not-found+[ext `path`(flop sup)] !!)
|
||||
@ -36,7 +36,7 @@
|
||||
(fray (tope beak-now [ext sup]))
|
||||
::
|
||||
++ poke-tree
|
||||
|= {sup/spur mim/mime} ^+ abet :: XX determine extension, beak
|
||||
|= {sup/path mim/mime:^eyre} ^+ abet :: XX determine extension, beak
|
||||
(poke--data [`%md (flop sup)] %mime mim)
|
||||
::
|
||||
++ poke-plan-account
|
||||
@ -51,20 +51,20 @@
|
||||
|= dif/plan-diff ^+ abet
|
||||
?. =(our src)
|
||||
~|(foreign-write+[our=our src=src] !!)
|
||||
=; sob/soba
|
||||
?~(sob abet abet:(emit %info write+~ our `toro`[q.byk %& sob]))
|
||||
=; sob/soba:^clay
|
||||
?~(sob abet abet:(emit %info write+~ our `toro:^clay`[q.byk %& sob]))
|
||||
=+ pax=`path`/web/plan
|
||||
=+ paf=(tope beak-now (flop pax))
|
||||
?~ [fil:.^(arch %cy paf)]
|
||||
=+ ins=(pact-plan [['' ''] ~] dif)
|
||||
[pax %ins plan+!>(ins)]~
|
||||
=+ ole=.^({{@t @t} (map iden plan-acct)} %cx paf)
|
||||
=+ ole=.^({{@t @t} (map knot plan-acct)} %cx paf)
|
||||
=+ neu=(pact-plan ole dif)
|
||||
?: =(ole neu) ~
|
||||
[pax %dif plan-diff+!>(dif)]~
|
||||
::
|
||||
++ pact-plan :: XX clay should handle fused insert+diff
|
||||
|= {all/{{who/@t loc/@t} acc/(map iden plan-acct)} dif/plan-diff}
|
||||
|= {all/{{who/@t loc/@t} acc/(map knot plan-acct)} dif/plan-diff}
|
||||
^+ all
|
||||
:- (fall inf.dif -.all)
|
||||
=; neu (~(uni by neu) put.dif)
|
||||
@ -78,7 +78,7 @@
|
||||
(poke--data [`typ /web/paste/(scot %da now)] %mime / (taco:bytes:eyre txt))
|
||||
::
|
||||
++ poke-comment
|
||||
|= {sup/spur him/ship txt/@t} ^+ abet
|
||||
|= {sup/path him/ship txt/@t} ^+ abet
|
||||
=+ pax=(welp (flop sup) /comments/(scot %da now))
|
||||
=. txt
|
||||
%+ rap 3 :~
|
||||
@ -88,7 +88,7 @@
|
||||
(poke--data [`%md pax] %mime / (taco:bytes:eyre txt))
|
||||
::
|
||||
++ poke-fora-post
|
||||
|= {sup/spur him/ship hed/@t txt/@t} ^+ abet
|
||||
|= {sup/path him/ship hed/@t txt/@t} ^+ abet
|
||||
=+ pax=(welp (flop sup) /posts/(cat 3 (scot %da now) '~'))
|
||||
=. txt
|
||||
%- crip
|
||||
@ -112,7 +112,7 @@
|
||||
pax=/(scot %p our)/code/(scot %da now)/(scot %p our)
|
||||
::
|
||||
++ poke-sec-atom
|
||||
|= {hot/host dat/@}
|
||||
|= {hot/host:^eyre dat/@}
|
||||
?> ?=($& -.hot)
|
||||
=. p.hot (scag 2 p.hot) :: ignore subdomain
|
||||
=. dat (scot %uw (en:crua:crypto:ames ames-secret dat))
|
||||
@ -129,7 +129,7 @@
|
||||
[our ~ beak-now %cast u.ext $+cay]
|
||||
::
|
||||
++ made
|
||||
|= {pax/wire @ res/gage} ^+ abet
|
||||
|= {pax/wire @ res/gage:^ford} ^+ abet
|
||||
:: ?. =(our src)
|
||||
:: ~|(foreign-write/[our=our src=src] !!)
|
||||
?+ -.res ~|(gage+-.res !!)
|
||||
|
||||
@ -3,6 +3,7 @@
|
||||
::
|
||||
/? 310
|
||||
!:
|
||||
=, ^eyre
|
||||
|_ own/@t
|
||||
::
|
||||
++ grow :: convert to
|
||||
|
||||
@ -2,10 +2,10 @@
|
||||
:::: /hoon/txt-diff/mar
|
||||
::
|
||||
/? 310
|
||||
|_ txt-diff/(urge:differ:^clay cord)
|
||||
|_ txt-diff/(urge:^clay cord)
|
||||
::
|
||||
++ grab :: convert from
|
||||
|%
|
||||
++ noun (urge:differ:^clay cord) :: make from %noun
|
||||
++ noun (urge:^clay cord) :: make from %noun
|
||||
--
|
||||
--
|
||||
|
||||
@ -7,7 +7,7 @@
|
||||
$% {$data data/@}
|
||||
{$dojo command/@t}
|
||||
{$clay pax/@t}
|
||||
{$url url/purl}
|
||||
{$url url/purl:^eyre}
|
||||
{$api api/term command/@t}
|
||||
{$get-api api/term endpoint/(list @t)}
|
||||
{$as mar/mark next/source} :: can't be at the
|
||||
@ -19,7 +19,7 @@
|
||||
$% {$stdout $~}
|
||||
{$output-file pax/@t}
|
||||
{$output-clay pax/path}
|
||||
{$url url/purl}
|
||||
{$url url/purl:^eyre}
|
||||
{$to-api api/term command/@t}
|
||||
{$send-api api/term endpoint/(list @t)}
|
||||
{$command command/@t}
|
||||
|
||||
@ -72,7 +72,7 @@
|
||||
summary/@t :: summary of event
|
||||
body/@t :: body of event
|
||||
url/purf:^eyre :: link to event
|
||||
meta/json:^eyre :: other data for web
|
||||
meta/json :: other data for web
|
||||
== ::
|
||||
== ::
|
||||
++ serial @uvH :: unique identity
|
||||
|
||||
Loading…
Reference in New Issue
Block a user