mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-17 03:44:34 +03:00
With new type printer.
This commit is contained in:
C. Guy Yarvin
parent
402cc8a920
commit
98b873cf4e
@ -1895,7 +1895,7 @@
|
|||||||
~
|
~
|
||||||
::
|
::
|
||||||
++ load :: highly forgiving
|
++ load :: highly forgiving
|
||||||
|= old=axle
|
|= old=*
|
||||||
:: ..^$(+>- old)
|
:: ..^$(+>- old)
|
||||||
..^$
|
..^$
|
||||||
::=. old
|
::=. old
|
||||||
|
|||||||
114
arvo/hoon.hoon
114
arvo/hoon.hoon
@ -6662,7 +6662,7 @@
|
|||||||
^- {? worm}
|
^- {? worm}
|
||||||
?: (~(has in nes) [sut ref]) [& +>+<]
|
?: (~(has in nes) [sut ref]) [& +>+<]
|
||||||
?. (~(nest ut sut) | ref)
|
?. (~(nest ut sut) | ref)
|
||||||
:: ~& %nest-failed
|
~& %wa-nest-failed
|
||||||
[| +>+<]
|
[| +>+<]
|
||||||
[& +>+<(nes (~(put in nes) [sut ref]))]
|
[& +>+<(nes (~(put in nes) [sut ref]))]
|
||||||
::
|
::
|
||||||
@ -6672,14 +6672,15 @@
|
|||||||
?: (~(has in nes) [sut ref]) [& +>+<]
|
?: (~(has in nes) [sut ref]) [& +>+<]
|
||||||
=+ gat=|=({a+type b+type} (~(nest ut a) | b))
|
=+ gat=|=({a+type b+type} (~(nest ut a) | b))
|
||||||
?. (? .*(gat(+< [sut ref]) -.gat))
|
?. (? .*(gat(+< [sut ref]) -.gat))
|
||||||
:: ~& %nets-failed
|
~& %nets-failed
|
||||||
:: =+ tag=`*`skol
|
=+ tag=`*`skol
|
||||||
:: =+ foo=(tank .*(tag(+< ref) -.tag))
|
=+ foo=(tank .*(tag(+< ref) -.tag))
|
||||||
:: =+ bar=(skol sut)
|
=+ bar=(skol sut)
|
||||||
:: ~& %nets-need
|
~& %nets-need
|
||||||
:: ~> %slog.[0 bar]
|
~> %slog.[0 bar]
|
||||||
:: ~& %nets-have
|
~& %nets-have
|
||||||
:: ~> %slog.[0 foo]
|
~> %slog.[0 foo]
|
||||||
|
~& %nets-done
|
||||||
[| +>+<.$]
|
[| +>+<.$]
|
||||||
[& +>+<.$(nes (~(put in nes) [sut ref]))]
|
[& +>+<.$(nes (~(put in nes) [sut ref]))]
|
||||||
::
|
::
|
||||||
@ -7601,58 +7602,75 @@
|
|||||||
++ dial
|
++ dial
|
||||||
|= ham+calf
|
|= ham+calf
|
||||||
=+ gid=*(set @ud)
|
=+ gid=*(set @ud)
|
||||||
|- ^- tank
|
=< `tank`-:$
|
||||||
|
|%
|
||||||
|
++ many
|
||||||
|
|= haz=(list wine)
|
||||||
|
^- {(list tank) (set @ud)}
|
||||||
|
?~ haz [~ gid]
|
||||||
|
=^ mor gid $(haz t.haz)
|
||||||
|
=^ dis gid ^$(q.ham i.haz)
|
||||||
|
[[dis mor] gid]
|
||||||
|
::
|
||||||
|
++ $
|
||||||
|
^- {tank (set @ud)}
|
||||||
?- q.ham
|
?- q.ham
|
||||||
$noun [%leaf '*' ~]
|
$noun :_(gid [%leaf '*' ~])
|
||||||
$path [%leaf '/' ~]
|
$path :_(gid [%leaf '/' ~])
|
||||||
$type [%leaf '#' 't' ~]
|
$type :_(gid [%leaf '#' 't' ~])
|
||||||
$void [%leaf '#' ~]
|
$void :_(gid [%leaf '#' ~])
|
||||||
$wool [%leaf '*' '"' '"' ~]
|
$wool :_(gid [%leaf '*' '"' '"' ~])
|
||||||
$wall [%leaf '*' '\'' '\'' ~]
|
$wall :_(gid [%leaf '*' '\'' '\'' ~])
|
||||||
$yarn [%leaf '"' '"' ~]
|
$yarn :_(gid [%leaf '"' '"' ~])
|
||||||
{$atom *} [%leaf '@' (trip p.q.ham)]
|
{$atom *} :_(gid [%leaf '@' (trip p.q.ham)])
|
||||||
{$core *}
|
{$core *}
|
||||||
|
=^ cox gid $(q.ham q.q.ham)
|
||||||
|
:_ gid
|
||||||
:+ %rose
|
:+ %rose
|
||||||
[[' ' ~] ['<' ~] ['>' ~]]
|
[[' ' ~] ['<' ~] ['>' ~]]
|
||||||
|- ^- (list tank)
|
|- ^- (list tank)
|
||||||
?~ p.q.ham
|
?~ p.q.ham [cox ~]
|
||||||
[^$(q.ham q.q.ham) ~]
|
|
||||||
[[%leaf (rip 3 i.p.q.ham)] $(p.q.ham t.p.q.ham)]
|
[[%leaf (rip 3 i.p.q.ham)] $(p.q.ham t.p.q.ham)]
|
||||||
::
|
::
|
||||||
{$face *}
|
{$face *}
|
||||||
[%palm [['=' ~] ~ ~ ~] [%leaf (trip p.q.ham)] $(q.ham q.q.ham) ~]
|
=^ cox gid $(q.ham q.q.ham)
|
||||||
|
:_(gid [%palm [['=' ~] ~ ~ ~] [%leaf (trip p.q.ham)] cox ~])
|
||||||
::
|
::
|
||||||
{$list *}
|
{$list *}
|
||||||
[%rose [" " (weld (trip p.q.ham) "(") ")"] $(q.ham q.q.ham) ~]
|
=^ cox gid $(q.ham q.q.ham)
|
||||||
|
:_(gid [%rose [" " (weld (trip p.q.ham) "(") ")"] cox ~])
|
||||||
::
|
::
|
||||||
{$pick *}
|
{$pick *}
|
||||||
:+ %rose
|
=^ coz gid (many p.q.ham)
|
||||||
[[' ' ~] ['{' ~] ['}' ~]]
|
:_(gid [%rose [[' ' ~] ['{' ~] ['}' ~]] coz])
|
||||||
|- ^- (list tank)
|
|
||||||
?~(p.q.ham ~ [^$(q.ham i.p.q.ham) $(p.q.ham t.p.q.ham)])
|
|
||||||
::
|
::
|
||||||
{$plot *}
|
{$plot *}
|
||||||
:+ %rose
|
=^ coz gid (many p.q.ham)
|
||||||
[[' ' ~] ['[' ~] [']' ~]]
|
:_(gid [%rose [[' ' ~] ['[' ~] [']' ~]] coz])
|
||||||
|- ^- (list tank)
|
|
||||||
?~(p.q.ham ~ [^$(q.ham i.p.q.ham) $(p.q.ham t.p.q.ham)])
|
|
||||||
::
|
::
|
||||||
{$pear *}
|
{$pear *}
|
||||||
[%leaf '%' ~(rend co [~ p.q.ham q.q.ham])]
|
:_(gid [%leaf '%' ~(rend co [~ p.q.ham q.q.ham])])
|
||||||
::
|
::
|
||||||
{$stop *}
|
{$stop *}
|
||||||
|
=+ num=~(rend co [~ %ud p.q.ham])
|
||||||
?: (~(has in gid) p.q.ham)
|
?: (~(has in gid) p.q.ham)
|
||||||
[%leaf '$' ~(rend co [~ %ud p.q.ham])]
|
:_(gid [%leaf '$' num])
|
||||||
:+ %palm
|
=^ cox gid
|
||||||
[['.' ~] ['^' '$' ~(rend co [~ %ud p.q.ham])] ~ ~]
|
%= $
|
||||||
[$(gid (~(put in gid) p.q.ham), q.ham (need (~(get by p.ham) p.q.ham))) ~]
|
gid (~(put in gid) p.q.ham)
|
||||||
|
q.ham (~(got by p.ham) p.q.ham)
|
||||||
|
==
|
||||||
|
:_(gid [%palm [['.' ~] ['^' '$' num] ~ ~] cox ~])
|
||||||
::
|
::
|
||||||
{$tree *}
|
{$tree *}
|
||||||
[%rose [" " (weld (trip p.q.ham) "(") ")"] $(q.ham q.q.ham) ~]
|
=^ cox gid $(q.ham q.q.ham)
|
||||||
|
:_(gid [%rose [" " (weld (trip p.q.ham) "(") ")"] cox ~])
|
||||||
::
|
::
|
||||||
{$unit *}
|
{$unit *}
|
||||||
[%rose [" " (weld (trip p.q.ham) "(") ")"] $(q.ham q.q.ham) ~]
|
=^ cox gid $(q.ham q.q.ham)
|
||||||
|
:_(gid [%rose [" " (weld (trip p.q.ham) "(") ")"] cox ~])
|
||||||
==
|
==
|
||||||
|
--
|
||||||
::
|
::
|
||||||
++ dish
|
++ dish
|
||||||
|= {ham+calf lum+*} ^- tank
|
|= {ham+calf lum+*} ^- tank
|
||||||
@ -10576,7 +10594,17 @@
|
|||||||
=+ rev=(slym (slap bud (rain pax txt)) bud)
|
=+ rev=(slym (slap bud (rain pax txt)) bud)
|
||||||
=+ syg=(slym rev arg)
|
=+ syg=(slym rev arg)
|
||||||
~| %load-lost
|
~| %load-lost
|
||||||
+>.$(q.sew (slam (slap syg [%cnzy %load]) (slap rig [%cnzy %stay])))
|
:: ~& %ruck-testing
|
||||||
|
=+ old=(slap rig [%cnzy %stay])
|
||||||
|
=+ new=(slap syg [%cnzy %load])
|
||||||
|
=+ sam=(~(peek ut p.new) %free 6)
|
||||||
|
~? !(~(nest ut sam) | p.old) %ruck-fail
|
||||||
|
:: :: ~> %slog.[0 (skol old)]
|
||||||
|
:: :: ~> %slog.[0 (skol sam)]
|
||||||
|
:: :: =+ foo=(~(nest ut sam) & old)
|
||||||
|
:: !!
|
||||||
|
~& %ruck-good
|
||||||
|
+>.$(q.sew (slam new old))
|
||||||
::
|
::
|
||||||
++ wink :: deploy
|
++ wink :: deploy
|
||||||
|= {now+@da eny+@ ski+slad}
|
|= {now+@da eny+@ ski+slad}
|
||||||
@ -10612,7 +10640,14 @@
|
|||||||
{$&} (~(nest wa p.sew) p.sam p.p.hil)
|
{$&} (~(nest wa p.sew) p.sam p.p.hil)
|
||||||
{$|} (~(nets wa p.sew) p.sam p.p.hil)
|
{$|} (~(nets wa p.sew) p.sam p.p.hil)
|
||||||
==
|
==
|
||||||
?.(-.hig ~ `[(slym gat +>.hil) +.hig])
|
?. -.hig
|
||||||
|
?- -.hil
|
||||||
|
{$&} ~& [%raw-nest (~(nest ut p.sam) | p.p.hil)]
|
||||||
|
~
|
||||||
|
{$|} ~&(%slur-no-nets ~)
|
||||||
|
==
|
||||||
|
~& [%slur-did -.hig]
|
||||||
|
`[(slym gat +>.hil) +.hig]
|
||||||
::
|
::
|
||||||
++ slur-a ~/(%slur-a |=({gat+vase hil+mill} =+(%a (slur gat hil))))
|
++ slur-a ~/(%slur-a |=({gat+vase hil+mill} =+(%a (slur gat hil))))
|
||||||
++ slur-b ~/(%slur-b |=({gat+vase hil+mill} =+(%b (slur gat hil))))
|
++ slur-b ~/(%slur-b |=({gat+vase hil+mill} =+(%b (slur gat hil))))
|
||||||
@ -10764,6 +10799,7 @@
|
|||||||
=+ ^= pru
|
=+ ^= pru
|
||||||
?~ pux
|
?~ pux
|
||||||
~| [%swim-call-vane lal ({term $~} +.p.hil)]
|
~| [%swim-call-vane lal ({term $~} +.p.hil)]
|
||||||
|
~& [%swim-call-vane lal ({term $~} +.p.hil)]
|
||||||
=^ vax p.sew (~(slap wa p.sew) rig [%cnzy %call])
|
=^ vax p.sew (~(slap wa p.sew) rig [%cnzy %call])
|
||||||
%^ slur-pro lal vax
|
%^ slur-pro lal vax
|
||||||
(slid [%& duc.vil hen] (slix hil))
|
(slid [%& duc.vil hen] (slix hil))
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user