mirror of
https://github.com/urbit/shrub.git
synced 2024-11-30 01:33:53 +03:00
Not quite running.
This commit is contained in:
C. Guy Yarvin
parent
2583cd6438
commit
b5706e0c81
@ -4,6 +4,7 @@
|
||||
/? 310 :: version
|
||||
/+ talk, old-phon
|
||||
=, wired:eyre
|
||||
=, title:jael
|
||||
:: :: ::
|
||||
:::: :: ::
|
||||
:: :: ::
|
||||
@ -91,7 +92,7 @@
|
||||
++ ames-tell :: .^ a+/=tell= type
|
||||
|^ {p/(list elem) q/(list elem)} ::
|
||||
++ elem $^ {p/elem q/elem} ::
|
||||
{term p/*} :: somewhat underspecified
|
||||
{term p/*} :: underspecified
|
||||
-- ::
|
||||
-- ::
|
||||
:: :: ::
|
||||
@ -112,14 +113,14 @@
|
||||
:: :: ::
|
||||
|% :: arvo structures
|
||||
++ card ::
|
||||
$% {$flog wire flog} ::
|
||||
{$info wire @p @tas nori} :: fs write (backup)
|
||||
:: {$wait $~} :: delay acknowledgment
|
||||
$% {$flog wire flog:^dill} ::
|
||||
{$info wire @p @tas nori:^clay} :: fs write (backup)
|
||||
:: {$wait $~} :: delay acknowledgment
|
||||
{$diff gilt} :: subscription response
|
||||
{$poke wire dock pear} :: app RPC
|
||||
{$next wire p/ring} :: update private key
|
||||
{$tick wire p/@pG q/@p} :: save ticket
|
||||
{$knew wire p/ship q/wyll} :: learn wyll (old pki)
|
||||
{$knew wire p/ship q/wyll:^ames} :: learn wyll (old pki)
|
||||
== ::
|
||||
++ pear ::
|
||||
$% {$email mail tape wall} :: send email
|
||||
@ -138,7 +139,7 @@
|
||||
++ move (pair bone card) :: user-level move
|
||||
::
|
||||
++ transaction :: logged poke
|
||||
$% {$report her/@p wyl/wyll}
|
||||
$% {$report her/@p wyl/wyll:^ames}
|
||||
{$release gal/@ud sta/@ud}
|
||||
{$release-ships (list ship)}
|
||||
{$claim aut/passcode her/@p}
|
||||
@ -254,8 +255,8 @@
|
||||
:::: :: ::
|
||||
!: :: ::
|
||||
=+ cfg=[can-claim=& can-recycle=&] :: temporarily disabled
|
||||
=+ [replay=| stat-no-email=|] :: XX globals
|
||||
|= {bowl part} :: main womb work
|
||||
=+ [replay=| stat-no-email=|] :: XX globals
|
||||
|= {bowl:^gall part} :: main womb work
|
||||
|_ moz/(list move)
|
||||
++ abet :: resolve
|
||||
^- (quip move *part)
|
||||
@ -844,7 +845,9 @@
|
||||
++ release-star :: subdivide %king
|
||||
=+ [who=*@p res=.]
|
||||
|. ^+ res
|
||||
=. res (emit.res %poke /womb/tick [(sein who) %hood] [%womb-do-ticket who])
|
||||
=. res
|
||||
%- emit.res
|
||||
[%poke /womb/tick [(sein who) %hood] [%womb-do-ticket who]]
|
||||
%+ mod-managed-star:res who
|
||||
|= sta/star ^- star
|
||||
~& release+who
|
||||
|
||||
@ -7,7 +7,7 @@
|
||||
|_ ato/@
|
||||
++ grab |%
|
||||
++ noun @
|
||||
++ mime |=({* p/octs} q.p)
|
||||
++ mime |=({* p/octs:^eyre} q.p)
|
||||
--
|
||||
++ grow |%
|
||||
++ mime [/application/x-urb-unknown (taco:bytes:eyre ato)]
|
||||
|
||||
@ -2,6 +2,7 @@
|
||||
:::: /hoon/css/mar
|
||||
::
|
||||
/? 310
|
||||
=, ^eyre
|
||||
|_ mud/@t
|
||||
++ grow :: convert to
|
||||
|% ++ mime [/text/css (taco:bytes:eyre mud)] :: convert to %mime
|
||||
|
||||
@ -3,6 +3,7 @@
|
||||
::
|
||||
/? 310
|
||||
!:
|
||||
=, ^eyre
|
||||
|_ mud/@
|
||||
++ grow
|
||||
|%
|
||||
|
||||
@ -5,6 +5,7 @@
|
||||
::
|
||||
:::: compute
|
||||
::
|
||||
=, ^eyre
|
||||
=, js:eyre
|
||||
|_ jon/json
|
||||
::
|
||||
|
||||
@ -12,7 +12,7 @@
|
||||
--
|
||||
++ grab
|
||||
|%
|
||||
++ mime |=({p/mite q/octs} q.q)
|
||||
++ mime |=({p/mite:^eyre q/octs:^eyre} q.q)
|
||||
++ noun @t
|
||||
++ txt role:lines:clay
|
||||
--
|
||||
|
||||
@ -3,7 +3,7 @@
|
||||
::
|
||||
/? 310
|
||||
!:
|
||||
|_ own/mime
|
||||
|_ own/mime:^eyre
|
||||
++ grow
|
||||
|%
|
||||
++ jam `@`q.q.own
|
||||
@ -11,15 +11,15 @@
|
||||
::
|
||||
++ grab :: convert from
|
||||
|%
|
||||
++ noun mime :: clam from %noun
|
||||
++ noun mime:^eyre :: clam from %noun
|
||||
++ tape
|
||||
|=(a/_"" [/application/x-urb-unknown (tact:bytes:eyre a)])
|
||||
--
|
||||
++ grad
|
||||
|%
|
||||
++ form %mime
|
||||
++ diff |=(mime +<)
|
||||
++ pact |=(mime +<)
|
||||
++ join |=({mime mime} `(unit mime)`~)
|
||||
++ diff |=(mime:^eyre +<)
|
||||
++ pact |=(mime:^eyre +<)
|
||||
++ join |=({mime:^eyre mime:^eyre} `(unit mime:^eyre)`~)
|
||||
--
|
||||
--
|
||||
|
||||
@ -3,7 +3,7 @@
|
||||
::
|
||||
/? 310
|
||||
!:
|
||||
=, differ:^clay
|
||||
=, ^clay
|
||||
=, differ:clay
|
||||
=, lines:clay
|
||||
=, bytes:eyre
|
||||
@ -11,7 +11,7 @@
|
||||
::
|
||||
++ grab :: convert from
|
||||
|%
|
||||
++ mime |=({p/mite q/octs} (lore q.q))
|
||||
++ mime |=({p/mite:^eyre q/octs:^eyre} (lore q.q))
|
||||
++ noun wain :: clam from %noun
|
||||
++ json :(corl lore need so:jo:js:eyre)
|
||||
--
|
||||
|
||||
@ -1 +1 @@
|
||||
{usr/iden url/(unit purf)}
|
||||
{usr/knot url/(unit purf:^eyre)}
|
||||
|
||||
@ -73,7 +73,11 @@
|
||||
|* out/$-(* *) :: output structure
|
||||
%+ pair (list tank) ::
|
||||
%+ each (unit out) :: ~ is abort
|
||||
(trel (unit iden) hiss $-(httr (sole-request out))) :: fetch and continue
|
||||
%^ trel :: fetch and continue
|
||||
(unit knot)
|
||||
hiss:^eyre
|
||||
$-(httr:^eyre (sole-request out))
|
||||
|
||||
:: ::
|
||||
++ sole-gen :: XX virtual type
|
||||
$% {$say $-((sole-args) (cask))} :: direct noun
|
||||
@ -99,8 +103,8 @@
|
||||
[p=*(list tank) q=[%| p=pom q=mor]] ::
|
||||
:: ::
|
||||
++ sole-at :: fetch url
|
||||
=| usr/iden ::
|
||||
|* {pul/_purl fun/$-(httr *)} ::
|
||||
=| usr/knot ::
|
||||
|* {pul/_purl:^eyre fun/$-(httr:^eyre *)} ::
|
||||
:- p=*(list tank) ::
|
||||
q=[%| p=`usr q=[pul %get ~ ~] r=fun] ::
|
||||
:: ::
|
||||
|
||||
@ -60,7 +60,7 @@
|
||||
{$ext p/@tas q/*} :: extended action
|
||||
{$fat p/torso q/speech} :: attachment
|
||||
:: {$inv p/station} :: invite to station
|
||||
{$url p/purf} :: parsed url
|
||||
{$url p/purf:^eyre} :: parsed url
|
||||
{$ire p/serial q/speech} :: in-reply-to
|
||||
{$lin p/? q/@t} :: no/@ text line
|
||||
{$mor p/(list speech)} :: multiplex
|
||||
@ -68,11 +68,11 @@
|
||||
$: $api :: api message
|
||||
service/@tas :: service name
|
||||
id/@t :: id on the service
|
||||
id-url/purf :: link to id
|
||||
id-url/purf:^eyre :: link to id
|
||||
summary/@t :: summary of event
|
||||
body/@t :: body of event
|
||||
url/purf :: link to event
|
||||
meta/json :: other data for web
|
||||
url/purf:^eyre :: link to event
|
||||
meta/json:^eyre :: other data for web
|
||||
== ::
|
||||
== ::
|
||||
++ serial @uvH :: unique identity
|
||||
|
||||
Loading…
Reference in New Issue
Block a user