urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 11:09:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

Intermediate renaming.

Browse Source
This commit is contained in:
C. Guy Yarvin 2018-03-18 19:40:38 -07:00
parent 39f720cd81
commit eb91e0d56a
3 changed files with 28 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mar/unicode-data.hoon
View File

@ -32,7 +32,7 @@
string-number :: digit/tape digit value, even if non-decimal
string-number :: numeric/tape numeric value, including fractions
::
(flag 'Y' 'N') :: mirrored/? is char mirrored in bidi text?
(fuss 'Y' 'N') :: mirrored/? is char mirrored in bidi text?
name-string :: old-name/tape unicode 1.0 compatibility name
name-string :: iso/tape iso 10646 comment field
(punt hex) :: up/(unit @c) uppercase mapping codepoint

31
sys/hoon.hoon
View File

@ -411,6 +411,7 @@
::
++ axis @ :: tree address
++ bean ? :: 0=&=yes, 1=|=no
++ flag ?
++ char @t :: UTF8 byte
++ cord @t :: UTF8, LSB first
++ date {{a/? y/@ud} m/@ud t/tarp} :: parsed date
@ -4424,7 +4425,7 @@
^- (like _huf)
[p=p.tub q=[~ u=[p=huf q=tub]]]
::
++ flag
++ fuss
|= {sic/@t non/@t}
;~(pose (cold %& (jest sic)) (cold %| (jest non)))
::
@ -5556,6 +5557,7 @@
$@ $? $noun :: any noun
$cell :: any cell
$bean :: loobean
$flag :: loobean
$null :: ~ == 0
== ::
{$atom p/aura} :: atom
@ -5781,6 +5783,7 @@
{$wtls p/wing q/hoon r/(list (pair plan hoon))} :: ?+ ?- w/default
{$wtpm p/(list hoon)} :: ?& loobean and
{$wtht p/wing q/hoon r/hoon} :: ?@ if p is atom
{$wtvt p/wing q/hoon r/hoon} :: ?@ if p is atom
{$wtsg p/wing q/hoon r/hoon} :: ?~ if p is null
{$wtts p/plan q/wing} :: ?= if q matches p
{$wtzp p/hoon} :: ?! loobean not
@ -6647,6 +6650,7 @@
%+ gray %wtls
[puce (blue gen) (turn opt |=({a/plan b/hoon} [a (blue b)]))]
++ wtht |=({sic/hoon non/hoon} (gray [%wtht puce (blue sic) (blue non)]))
++ wtvt |=({sic/hoon non/hoon} (gray [%wtvt puce (blue sic) (blue non)]))
++ wtsg |=({sic/hoon non/hoon} (gray [%wtsg puce (blue sic) (blue non)]))
++ wtts |=(mod/plan (gray [%wtts (teal mod) puce]))
--
@ -6728,6 +6732,11 @@
:: comparison produces boolean type
::
=+([%rock %$ 0] [%ktls [%dtts - -] -])
::
$flag
:: comparison produces boolean type
::
=+([%rock %$ 0] [%ktls [%dtts - -] -])
::
$null
[%rock %n 0]
@ -6901,7 +6910,7 @@
?- bas
{%atom *}
:+ %ktls example
[%wtht fetch-wing fetch [%zpzp ~]]
[%wtvt fetch-wing fetch [%zpzp ~]]
::
$noun
fetch
@ -6919,6 +6928,14 @@
:+ %wtgr
[%dtts [%rock %$ |] [%$ axe]]
[%rock %f |]
::
$flag
:^ %wtcl
[%dtts [%rock %$ &] [%$ axe]]
[%rock %f &]
:+ %wtgr
[%dtts [%rock %$ |] [%$ axe]]
[%rock %f |]
::
$null
:+ %wtgr
@ -7344,7 +7361,7 @@
[%ktts %b res] :: b={res}
^- hoon ::
:+ %brhp [~ ~] :: |-
:^ %wtht :: ?@
:^ %wtvt :: ?@
[%a ~] :: a
[%limb %b] :: b
:- [%tsgl [%$ 2] [%limb %a]] :: :- -.a
@ -7642,6 +7659,7 @@
--
::
{$wtht *} [%wtcl [%wtts [%base %atom %$] p.gen] q.gen r.gen]
{$wtvt *} [%wtcl [%wtts [%base %atom %$] p.gen] q.gen r.gen]
{$wtsg *} [%wtcl [%wtts [%base %null] p.gen] q.gen r.gen]
{$wtts *} [%fits ~(example ax fab p.gen) q.gen]
{$wtzp *} [%wtcl p.gen [%rock %f 1] [%rock %f 0]]
@ -7800,6 +7818,7 @@
$wtls (lead -.gen %.(+.gen (trio noop expr (moto (twin stir expr)))))
$wtpm (lead -.gen %.(+.gen moar))
$wtht (lead -.gen %.(+.gen trip))
$wtvt (lead -.gen %.(+.gen trip))
$wtsg (lead -.gen %.(+.gen trip))
$wtts (lead -.gen %.(+.gen (twin stir noop)))
$wtzp (lead -.gen %.(+.gen expr))
@ -12075,7 +12094,7 @@
['=' ;~(pfix tis (toad txts))]
['+' ;~(pfix lus (toad txls))]
['&' (rune pad %wtpm exps)]
['@' ;~(pfix hat (toad tkht))]
['@' ;~(pfix hat (toad tkvt))]
['~' ;~(pfix sig (toad tksg))]
['!' (rune zap %wtzp expa)]
==
@ -12318,8 +12337,8 @@
++ txls |. %+ cook |= {a/tiki b/hoon c/(list (pair plan hoon))}
(~(wtls ah a) b c)
(butt ;~(gunk teak loaf ruck))
++ tkht |. %+ cook |= {a/tiki b/hoon c/hoon}
(~(wtht ah a) b c)
++ tkvt |. %+ cook |= {a/tiki b/hoon c/hoon}
(~(wtvt ah a) b c)
;~(gunk teak loaf loaf)
++ tksg |. %+ cook |= {a/tiki b/hoon c/hoon}
(~(wtsg ah a) b c)

3
sys/zuse.hoon
View File

@ -1,3 +1,4 @@
!:
:: :: /van/zuse
:: :: %reference/1
:: %zuse: arvo library.
@ -834,7 +835,7 @@
++ bitt (map bone (pair ship path)) :: incoming subs
++ boat :: outgoing subs
%+ map (pair bone wire) ::
(trel bean ship path) ::
(trel flag ship path) ::
++ bowl :: standard app state
$: $: our/ship :: host
src/ship :: guest