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

clean up decoder

Browse Source
This commit is contained in:
timlucmiptev 2020-10-04 12:24:27 +03:00 committed by ixv
parent 4b381e5a0a
commit 30da0bb513
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lib/bip173.hoon
View File

@ -1,5 +1,6 @@
|%
+$ address ?([@uc [%bech32 @t]])
+$ decoded-bech32 [hrp=tape data=(list @) checksum=(list @)]
++ charset "qpzry9x8gf2tvdw0s3jn54khce6mua7l"
++ polymod
|= values=(list @)
@ -28,9 +29,9 @@
(zing ~[front ~[0] back])
::
++ verify-checksum
|= [hrp=tape data=(list @) checksum=(list @)]
|= [hrp=tape data-and-checksum=(list @)]
%- polymod
(zing ~[(expand-hrp hrp) data checksum])
(weld (expand-hrp hrp) data-and-checksum)
::
++ charset-to-value
|= c=@tD
@ -39,25 +40,24 @@
::
++ decode-bech32
|= bech=tape
^- (unit [hrp=tape data=(list @) checksum=(list @)])
^- (unit decoded-bech32)
:: TODO: error handling and checksum verify
=. bech (cass bech) :: to lowercase
=/ pos (flop (fand "1" bech))
?~ pos ~
=/ last-1=@ i.pos
=/ data-and-checksum=(list @)
=/ encoded-data-and-checksum=(list @)
(slag +(last-1) bech)
=/ from-base32=(list @)
%+ murn data-and-checksum
=/ data-and-checksum=(list @)
%+ murn encoded-data-and-checksum
charset-to-value
?. =((lent data-and-checksum) (lent from-base32))
?. =((lent encoded-data-and-checksum) (lent data-and-checksum)) :: ensure all were in CHARSET
~
=/ checksum-pos (sub (lent from-base32) 6)
:- ~
:* hrp=(scag last-1 bech)
data=(scag checksum-pos from-base32)
checksum=(slag checksum-pos from-base32)
==
=/ hrp (scag last-1 bech)
?. =(1 (verify-checksum hrp data-and-checksum))
~
=/ checksum-pos (sub (lent data-and-checksum) 6)
`[hrp (scag checksum-pos data-and-checksum) (slag checksum-pos data-and-checksum)]
::
++ decode-segwit
|= segwit=tape