++po
Phonetic base
Container core for providing phonetic syllables and name generators for the
Urbit naming system. The two faces, sis and dex, are available to the
contained arms.
Source
~/ %po
=+ :- ^= sis :: prefix syllables
'dozmarbinwansamlitsighidfidlissogdirwacsabwissib\
/rigsoldopmodfoglidhopdardorlorhodfolrintogsilmir\
/holpaslacrovlivdalsatlibtabhanticpidtorbolfosdot\
/losdilforpilramtirwintadbicdifrocwidbisdasmidlop\
/rilnardapmolsanlocnovsitnidtipsicropwitnatpanmin\
/ritpodmottamtolsavposnapnopsomfinfonbanmorworsip\
/ronnorbotwicsocwatdolmagpicdavbidbaltimtasmallig\
/sivtagpadsaldivdactansidfabtarmonranniswolmispal\
/lasdismaprabtobrollatlonnodnavfignomnibpagsopral\
/bilhaddocridmocpacravripfaltodtiltinhapmicfanpat\
/taclabmogsimsonpinlomrictapfirhasbosbatpochactid\
/havsaplindibhosdabbitbarracparloddosbortochilmac\
/tomdigfilfasmithobharmighinradmashalraglagfadtop\
/mophabnilnosmilfopfamdatnoldinhatnacrisfotribhoc\
/nimlarfitwalrapsarnalmoslandondanladdovrivbacpol\
/laptalpitnambonrostonfodponsovnocsorlavmatmipfip'
^= dex :: suffix syllables
'zodnecbudwessevpersutletfulpensytdurwepserwylsun\
/rypsyxdyrnuphebpeglupdepdysputlughecryttyvsydnex\
/lunmeplutseppesdelsulpedtemledtulmetwenbynhexfeb\
/pyldulhetmevruttylwydtepbesdexsefwycburderneppur\
/rysrebdennutsubpetrulsynregtydsupsemwynrecmegnet\
/secmulnymtevwebsummutnyxrextebfushepbenmuswyxsym\
/selrucdecwexsyrwetdylmynmesdetbetbeltuxtugmyrpel\
/syptermebsetdutdegtexsurfeltudnuxruxrenwytnubmed\
/lytdusnebrumtynseglyxpunresredfunrevrefmectedrus\
/bexlebduxrynnumpyxrygryxfeptyrtustyclegnemfermer\
/tenlusnussyltecmexpubrymtucfyllepdebbermughuttun\
/bylsudpemdevlurdefbusbeprunmelpexdytbyttyplevmyl\
/wedducfurfexnulluclennerlexrupnedlecrydlydfenwel\
/nydhusrelrudneshesfetdesretdunlernyrsebhulryllud\
/remlysfynwerrycsugnysnyllyndyndemluxfedsedbecmun\
/lyrtesmudnytbyrsenwegfyrmurtelreptegpecnelnevfes'
|%
++ind:po
Parse suffix
Produces the byte of the right-hand syllable a.
Accepts
a is a @tas.
Produces
A (unit @).
Source
++ ind ~/ %ind
|= a=@tas
=+ b=0
|- ^- (unit @)
?:(=(256 b) ~ ?:(=(a (tod b)) [~ b] $(b +(b))))
Examples
> (ind:po %zod)
[~ 0]> (ind:po %foo)
~> (ind:po %wet)
[~ 101]++ins:po
Parse prefix
Produces the byte of the left-hand phonetic syllable a.
Accepts
a is a @tas.
Produces
A (unit @).
Source
++ ins ~/ %ins
|= a=@tas
=+ b=0
|- ^- (unit @)
?:(=(256 b) ~ ?:(=(a (tos b)) [~ b] $(b +(b))))
Examples
> (ins:po %doz)
[~ 0]> (ins:po %foo)
~> (ins:po %pit)
[~ 242]++tod:po
Fetch suffix
Produces the phonetic suffix syllable from index a within dex as an atom.
Accepts
a is an atom
Produces
An atom.
Source
++ tod ~/ %tod
|=(a=@ ?>((lth a 256) (cut 3 [(mul 3 a) 3] dex)))
Examples
> `@t`(tod:po 0)
'zod'> `@t`(tod:po 100)
'syr'> `@t`(tod:po 255)
'fes'> `@t`(tod:po 256)
dojo: hoon expression failed++tos:po
Fetch prefix
Produces the phonetic prefix syllable from index a within sis as an atom.
Accepts
a is an atom.
Produces
An atom.
Source
++ tos ~/ %tos
|=(a=@ ?>((lth a 256) (cut 3 [(mul 3 a) 3] sis)))
Examples
> `@t`(tos:po 0)
'doz'> `@t`(tos:po 100)
'soc'> `@t`(tos:po 255)
'fip'> `@t`(tos:po 256)
dojo: hoon expression failed++fa
base58check
Container core for base58check (e.g. bitcoin address) functions.
Source
++ fa
=+ key='123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz'
=/ yek=@ux ~+
=- yek:(roll (rip 3 key) -)
=+ [a=*char b=*@ yek=`@ux`(fil 3 256 0xff)]
|.
[+(b) (mix yek (lsh [3 `@u`a] (~(inv fe 3) b)))]
|%
++cha:fa
Decode base58check character
Check whether character a is valid in base58check encoding, producing a unit of its decoded value if it's valid, and a null unit if it's not.
Accepts
a is a char.
Produces
A (unit @uF).
Source
++ cha |=(a=char `(unit @uF)`=+(b=(cut 3 [`@`a 1] yek) ?:(=(b 0xff) ~ `b)))
Examples
> (cha:fa 'Z')
[~ 32]> (cha:fa 'n')
[~ 45]> (cha:fa 'l')
~++tok:fa
Compute base58check checksum
Compute the base58check checksum of a.
Accepts
a is a @ux.
Produces
A @ux.
Source
++ tok
|= a=@ux ^- @ux
=+ b=(pad a)
=- (~(net fe 5) (end [3 4] (shay 32 -)))
(shay (add b (met 3 a)) (lsh [3 b] (swp 3 a)))
Examples
> (tok:fa 0xdead.beef)
0x938b.8b0c++pad:fa
base58check padding bytes
Compute the number of bytes of 0s needed to pad a to 21 bytes, if it's less
than 21 bytes.
Accepts
a is a @ - a value without its base58check checksum.
Produces
A @.
Source
++ pad |=(a=@ =+(b=(met 3 a) ?:((gte b 21) 0 (sub 21 b))))
Examples
> (pad:fa 0xdead.beef)
17++enc:fa
encode base58check
Compute and append checksum to a.
Accepts
a is a @ux.
Produces
A @ux.
Source
++ enc |=(a=@ux `@ux`(mix (lsh [3 4] a) (tok a)))
Example
> (enc:fa 0xdead.beef)
0xdead.beef.938b.8b0c++den:fa
decode base58check
Check checksum of a, return a unit of a sans the checksum if successful,
or a null unit otherwise.
Accepts
a is a @ux
Produces
A (unit @ux).
Source
++ den
|= a=@ux ^- (unit @ux)
=+ b=(rsh [3 4] a)
?. =((tok b) (end [3 4] a))
~
`b
Examples
> (den:fa 0xdead.beef.938b.8b0c)
[~ 0xdead.beef]> (den:fa 0xdead.beef.1111.1111)
~