ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-04 21:33:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

Various fixes and improvements.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-07-05 14:26:35 -07:00
parent dcd09da912
commit 35b48e0cb9
4 changed files with 25 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/dill.hoon
View File

@ -1,4 +1,4 @@
!:
::
:: dill (4d), terminal handling
::
|= pit=vase

24
arvo/ford.hoon
View File

@ -318,7 +318,9 @@
|= [cof=cafe cay=cage]
?. ?=(@ q.q.cay)
(flaw cof ~)
=+ vex=((full vest) [[1 1] (trip q.q.cay)])
=+ pax=(home kas)
=+ rul=(ifix [gay gay] tall:(vang | pax))
=+ vex=((full rul) [[1 1] (trip q.q.cay)])
?~ q.vex
(flaw cof [%leaf "syntax error: {<p.p.vex>} {<q.p.vex>}"] ~)
(fine cof p.u.q.vex)
@ -335,6 +337,18 @@
(fine cof (twig q.q.cay))
==
::
++ home :: source silk to path
|= kas=silk
^- path
?+ -.kas ~[(end 3 1 (scot %p (mug kas)))]
%boil (tope q.kas)
%cast $(kas r.kas)
%dude $(kas q.kas)
%pass ?+ -.q.kas $(kas [%reef ~])
%2 (tope p.q.kas)
%3 $(kas p.q.kas)
==
==
++ kale :: mutate
|= [cof=cafe kas=silk muy=(list (pair wing silk))]
^- (bolt cage)
@ -366,7 +380,7 @@
|= [cof=cafe vax=vase]
(fine cof p.cay vax)
::
++ krab :: load to twig
++ krab :: load to vase
|= [cof=cafe for=logo how=logo rem=spur bem=beam]
^- (bolt vase)
%+ cope (fade cof %bake how bem)
@ -383,15 +397,15 @@
|= [cof=cafe arc=arch]
?^ q.arc
(cope (liar cof bem) (lake for bek))
?: (~(has by r.arc) %hoon)
%+ cope (krab cof for %hoon rem bem)
(lake for bek)
?: (~(has by r.arc) %hook)
%+ cope (krab cof for %hook rem bem)
|= [cof=cafe vax=vase]
%+ cope ((lair for bem) cof vax)
|= [cof=cafe vax=vase]
(fine cof ~ vax)
?: (~(has by r.arc) %hoon)
%+ cope (krab cof for %hoon rem bem)
(lake for bek)
(fine cof ~)
::
++ lake :: check/coerce

2
arvo/hoon.hoon
View File

@ -121,7 +121,7 @@
++ path (list span) :: filesys location
++ pint ,[p=[p=@ q=@] q=[p=@ q=@]] :: line/column range
++ pole |* a=_,* :: nameless list
$|(~ [a (pole a)])
$|(~ [a (pole a)]) ::
++ port $: p=axis ::
$= q ::
$% [%& p=type] ::

8
arvo/zuse.hoon
View File

@ -600,15 +600,15 @@
%b ?:(p.val "true" "false")
%n (trip p.val)
%s
;: weld
;: welp
"\""
%+ reel
(turn (trip p.val) jesc)
|=([tape tape] (weld +<))
|=([p=tape q=tape] (welp +<))
"\""
==
%o
;: weld
;: welp
"\{"
=+ viz=(~(tap by p.val) ~)
=| rez=tape
@ -617,7 +617,7 @@
%= $
viz t.viz
rez
:(weld rez "\"" (trip p.i.viz) "\":" ^$(val q.i.viz) ?~(t.viz ~ ","))
:(welp rez "\"" (trip p.i.viz) "\":" ^$(val q.i.viz) ?~(t.viz ~ ","))
==
"}"
==