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

Merge branch 'master' of github.com:urbit/urbit

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-07-17 13:56:22 -07:00
commit 2260d31b1c
2 changed files with 33 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
arvo/zuse.hoon
View File

@ -883,45 +883,47 @@
++ xmlp :: xml parser
|%
++ apex
=+ spa=;~(pose comt whit)
%+ knee *manx |. ~+
%+ ifix [(star spa) (star spa)]
;~ pose
%+ sear
|=([a=marx b=marl c=mane] ?.(=(c n.a) ~ (some [a b])))
%+ ifix [(star whit) (star whit)]
;~ pose
;~(plug head (star ;~(pose apex chrd)) tail)
;~(plug head (more (star comt) ;~(pose apex chrd)) tail)
empt
==
::
++ attr :: attribute
%+ knee *mart |. ~+
%- star
;~ pfix ace
;~ pfix (plus whit)
;~ plug name
;~ pfix tis
;~ pose
(ifix [doq doq] (star ;~(less pam gal gar doq prn)))
(ifix [soq soq] (star ;~(less pam gal gar soq prn)))
(ifix [doq doq] (star ;~(less doq escp)))
(ifix [soq soq] (star ;~(less soq escp)))
== ==
== ==
::
++ chrd :: chracter data
++ chrd :: character data
%+ knee *manx |. ~+
%+ cook |=(a=* ((hard mars) :/(a)))
%- plus
;~ less pam gal gar soq doq
;~ pose
(cold 62 (jest '>'))
(cold 60 (jest '<'))
(cold 38 (jest '&'))
(cold 39 (jest '''))
(cold 34 (jest '"'))
prn
==
==
%+ cook |=(a=tape :/(a))
(plus ;~(less soq doq ;~(pose (just `@`10) escp)))
::
++ comt %+ ifix [(jest '<!--') (jest '-->')] :: comments
(star ;~(less (jest '-->') ;~(pose whit prn)))
::
++ escp
;~ pose
;~(less gal gar pam prn)
(cold '>' (jest '&gt;'))
(cold '<' (jest '&lt;'))
(cold '&' (jest '&amp;'))
(cold '"' (jest '&quot;'))
(cold '\'' (jest '&apos;'))
==
++ empt :: self-closing tag
%+ cook |=(a=marx `[marx marl mane]`[a ~ n.a])
(ifix [gal (jest '/>')] ;~(plug name attr))
(ifix [gal (jest '/>')] ;~(plug ;~(plug name attr) (cold ~ (star whit))))
::
++ head :: opening tag
%+ knee *marx |. ~+

13
try/bin/klay.hoon
View File

@ -5,9 +5,9 @@
+
=> +
|%
++ blob $% [%delta p=@ q=blob r=udon]
[%direct p=@ q=* r=umph]
[%indirect p=@ q=* r=udon]
++ blob $% [%delta q=blob r=udon]
[%direct q=* r=umph]
[%indirect q=* r=udon]
==
++ yaki ,[p=(list yaki) q=(map path blob) r=@ t=@ud] :: later t=@da
::
@ -16,11 +16,11 @@
++ hash-blob
|= p=*
^- blob
[%direct (mug p) p %c]
[%direct p %c]
++ hash-yaki
|= [p=(list yaki) q=(map path blob) t=@ud] :: later t=@da
^- yaki
[p q (mug [p q]) t]
[p q (mug [(roll (turn p |=(p=yaki r.p)) add) q t]) t] :: later quicksort?
++ grab
|= p=blob
?- -.p
@ -265,4 +265,5 @@
::(zeal n6 n7)
::(zerg n1 n2)
::(mate n2 n3)
[%result ((hard ,@t) (grab (need (~(get by q:(merge n3 n2 8 mate)) ~['test'])))) (merge n2 n3 9 forge)]
:- [%result ((hard ,@t) (grab (need (~(get by q:(merge n3 n2 8 mate)) ~['test'])))) (merge n2 n3 9 forge)]
[%result ((hard ,@t) (grab (need (~(get by q:(merge n3 n2 8 mate)) ~['test'])))) (merge n3 n2 9 forge)]