ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-13 08:38:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

Stage down to 163.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-01-26 16:25:27 -08:00
parent 63329c7b05
commit 8c0e89949b
6 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/hoon.hoon
View File

@ -9,13 +9,13 @@
(make:all cud) :: else simple compile
^= all :: assemble engine
=~ :: volume stack
%164 :: version constant
%163 :: version constant
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::: :::::: volume 0, version stub ::::::
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
~% %k.164 ~ ~ ::
~% %k.163 ~ ~ ::
|% ::
++ hoon %164 :: version stub
++ hoon %163 :: version stub
-- ::
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::: :::::: volume 1, Hoon models ::::::

2
arvo/zuse.hoon
View File

@ -3167,5 +3167,5 @@
[%chan (list $|(@ud [p=@ud q=@ud]))] ::
++ wund (list ,[p=life q=ring r=acru]) :: mace in action
++ will (list deed) :: certificate
++ zuse %314 :: hoon/zuse kelvin
++ zuse %310 :: hoon/zuse kelvin
--

16
main/app/rodeo/core.hook
View File

@ -356,7 +356,7 @@
(pa-sauce n.owe [[%rush %rodeo-report %config shape] ~])
::
++ pa-friend :: subscribed update
|= [her=ship sih=sign]
|= [her=ship nam=span sih=sign]
^+ +>
?+ sih ~&([%rodeo-bad-friend sih] !!)
[%g %nice ~]
@ -372,7 +372,7 @@
:: ~& [%pa-friend-report +>+.sih]
=. +> %+ pa-scrub ost
:_ ~
:- /friend/show/(scot %p her)/[man]
:- /friend/show/(scot %p her)/[man]/[nam]
[%g %took [her /rodeo] our.hid]
?+ -.+>+.sih ~&([%rodeo-odd-friend sih] !!)
%config +>.$
@ -421,9 +421,9 @@
!!
::
%& :: ~& [%pa-abjure [our.hid man] [p.p.tay q.p.tay]]
:~ :- /friend/nuke/[man]
:~ :- /friend/nuke/[q.p.tay]/[man]
[%g %nuke [p.p.tay /rodeo] our.hid]
:- /stalk/nuke/[man]
:- /stalk/nuke/[q.p.tay]/[man]
[%g %nuke [p.p.tay /rodeo] our.hid]
==
==
@ -441,7 +441,7 @@
!!
::
%& :: ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]]
:~ :- /friend/show/(scot %p p.p.tay)/[man]
:~ :- /friend/show/(scot %p p.p.tay)/[q.p.tay]/[man]
[%g %show [p.p.tay /rodeo] our.hid /af/[q.p.tay]/(scot %ud num)]
==
==
@ -647,10 +647,14 @@
==
::
[%friend *]
?> ?=([@ @ @ ~] t.pax)
?> ?=([@ @ @ @ ~] t.pax)
?. =(%show i.t.pax)
~& [%pour-friend-nuke-nuke pax]
[~ +>.$]
=< ra-abet
%- ~(ra-friend ra ost ~)
:* (slav %p i.t.t.pax)
i.
ra-abet:(~(ra-friend ra ost ~) (slav %p i.t.t.pax) i.t.t.t.pax sih)
::
[%stalk *]

4
main/mar/rodeo-command/door.hook
View File

@ -71,9 +71,7 @@
++ stam
^- $+(json (unit statement))
=- (ot date/di bouquet/(as (ar so)) speech/(of -) ~)
:~ own/so
say/so
lin/(ot say/bo txt/so ~)
:~ lin/(ot say/bo txt/so ~)
:: exp/(cu |=(a=cord [a ~]) so)
:: inv/(ot ship/(su fed:ag) party/(su urs:ab) ~)
==

1
main/mar/rodeo-report/door.hook
View File

@ -81,7 +81,6 @@
|= a=speech
%+ joba -.a
?+ -.a !!
?(%own %say) [%s p.a]
%lin (jobe say/[%b p.a] txt/[%s q.a] ~)
%exp (jobe code/[%s p.a] ~)
:: %inv (jobe ship/(jope p.a) party/[%s q.a] ~)

2
main/sur/rodeo/core.hook
View File

@ -52,7 +52,6 @@
:: XX unify %own and %say to %lin
::
$% [%lan p=span q=@t] :: local announce
[%own p=@t] :: XX @ or /me
[%exp p=@t] :: hoon line
[%non ~] :: no content (yo)
[%ext p=@tas q=*] :: extended action
@ -61,7 +60,6 @@
[%ire p=serial q=speech] :: in-reply-to
[%lin p=? q=@t] :: no=@, text line
[%mor p=(list speech)] :: XX deleteme
[%say p=@t] :: XX normal line
== ::
++ serial ,@uvH :: unique identity
++ partner (each station passport) :: interlocutor