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

Revert broken solid.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-12-06 17:13:26 -08:00
parent cc324f5db7
commit 9d2d8710eb
1 changed files with 9 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
gen/solid.hoon
View File

@ -11,44 +11,26 @@
!: !:
:- %say :- %say
|= $: {now/@da eny/@uvJ bec/beak} |= $: {now/@da eny/@uvJ bec/beak}
{arg/$@($~ {top/path $~}) dub/_|} {$~ $~}
== ==
:- %noun :- %noun
?~ arg $(arg ~[top=`path`/(scot %p p.bec)/[q.bec]/(scot %da now)/sys]) =+ top=`path`/(scot %p p.bec)/[q.bec]/(scot %da now)/sys
=+ pax=`path`(weld top.arg `path`[%hoon ~]) =+ pax=`path`(weld top `path`[%hoon ~])
=+ arp=`path`(weld top.arg `path`[%ovra ~]) =+ arp=`path`(weld top `path`[%ovra ~])
~& %solid-start ~& %solid-start
=+ txt=.^(@t %cx (weld pax `path`[%hoon ~])) =+ txt=.^(@t %cx (weld pax `path`[%hoon ~]))
=+ rax=.^(@t %cx (weld arp `path`[%hoon ~])) =+ rax=.^(@t %cx (weld arp `path`[%hoon ~]))
=+ ^= ken =+ ^= ken
=- ?:(?=($& -.res) p.res (mean (flop p.res))) =- ?:(?=($& -.res) p.res ((slog p.res) ~))
^= res %- mule |. ^= res %- mule |.
~& %solid-loaded ~& %solid-loaded
=+ gen=(rain pax txt) =+ gen=(rain pax txt)
~& %solid-parsed ~& %solid-parsed
=+ one=(~(mint ut %noun) %noun gen) =+ one=(~(mint ut %noun) %noun gen)
~& %solid-compiled ~& %solid-compiled
?. dub
=+ two=(~(mint ut p.one) %noun (rain arp rax)) =+ two=(~(mint ut p.one) %noun (rain arp rax))
~& %solid-arvo ~& %solid-arvo
[7 q.one q.two] [7 q.one q.two]
=/ tri
'''
:: XX moveme to, uh arvo probably, this depends on too many names
|= [pax=path txt=@t arp=path rax=@t]
=+ gen=(rain pax txt)
~& %solid-double-parsed
=+ one=(~(mint ut %noun) %noun gen)
~& %solid-double-compiled
=+ two=(~(mint ut p.one) %noun (rain arp rax))
~& %solid-arvo
[7 q.one q.two]
'''
=+ all=.*(0 q.one)
.* all
:+ 7 =<(+ .*(all [9 2 0+2 1+[p.one tri] 0+7]))
[9 2 0+2 1+[pax txt arp rax] 0+7]
::
~& [%solid-kernel `@ux`(mug ken)] ~& [%solid-kernel `@ux`(mug ken)]
:- ken :- ken
=+ all=.*(0 ken) =+ all=.*(0 ken)
@ -64,7 +46,7 @@
== ==
|- ^+ all |- ^+ all
?~ vay all ?~ vay all
=+ pax=(weld top.arg q.i.vay) =+ pax=(weld top q.i.vay)
=+ txt=.^(@ %cx (weld pax `path`[%hoon ~])) =+ txt=.^(@ %cx (weld pax `path`[%hoon ~]))
=+ sam=[now `ovum`[[%gold ~] [%veer p.i.vay pax txt]]] =+ sam=[now `ovum`[[%gold ~] [%veer p.i.vay pax txt]]]
~& [%solid-veer i.vay] ~& [%solid-veer i.vay]