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

Finish fixing the floating point parser.

Browse Source
This commit is contained in:
Jared Hance 2014-06-04 14:44:02 -04:00
parent 1fde43b3d5
commit 95c9309f78
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
arvo/hoon.hoon
View File

@ -1168,7 +1168,7 @@
++ rlyq |=(req=@rq ~|(%real-nyet ^-([s=? h=@ f=@] !!))) ++ rlyq |=(req=@rq ~|(%real-nyet ^-([s=? h=@ f=@] !!)))
++ rlys |=(res=@rs ~|(%real-nyet ^-([s=? h=@ f=@] !!))) ++ rlys |=(res=@rs ~|(%real-nyet ^-([s=? h=@ f=@] !!)))
++ ryld |= v=[syn=? hol=@ zer=@ fac=@] ^- @rd !: ++ ryld |= v=[syn=? hol=@ zer=@ fac=@] ^- @rd !:
(bit:rd (cof:fl 52 v)) (bit:rd (cof:fl 52 1.023 v))
++ rylh |=([syn=? hol=@ zer=@ fac=@] ~|(%real-nyet ^-(@rh !!))) ++ rylh |=([syn=? hol=@ zer=@ fac=@] ~|(%real-nyet ^-(@rh !!)))
++ rylq |=([syn=? hol=@ zer=@ fac=@] ~|(%real-nyet ^-(@rq !!))) ++ rylq |=([syn=? hol=@ zer=@ fac=@] ~|(%real-nyet ^-(@rq !!)))
++ ryls |=([syn=? hol=@ zer=@ fac=@] ~|(%real-nyet ^-(@rs !!))) ++ ryls |=([syn=? hol=@ zer=@ fac=@] ~|(%real-nyet ^-(@rs !!)))
@ -1201,15 +1201,15 @@
$(c (^mul c a), b (^add b 1)) $(c (^mul c a), b (^add b 1))
:: convert from sign/whole/frac -> sign/exp/ari w/ precision p, bias b :: convert from sign/whole/frac -> sign/exp/ari w/ precision p, bias b
++ cof |= [p=@u s=? h=@u z=@ f=@u] ^- [s=? e=@s a=@u] ++ cof |= [p=@u b=@u s=? h=@u z=@ f=@u] ^- [s=? e=@s a=@u]
?: &(=(0 h) =(0 f)) ?: &(=(0 h) =(0 f))
~| %zero-pars [s=s e=`@s`(dec (^mul 2 b)) a=(ari p 0)]
!!
?: &(=(0 h)) ?: &(=(0 h))
~| %small-pars =+ a=(fra (^add p b) z f) ::p+b bits
!! =+ e=(dif:si (sun:si (met 0 a)) (sun:si +((^add p b))))
=+ b=(fra p z f) :: p-bits [s=s e=e a=(lia p a)]
=+ a=(mix b (lsh 0 p h)) =+ c=(fra p z f) :: p-bits
=+ a=(mix c (lsh 0 p h))
=+ e=(dif:si (sun:si (met 0 a)) (sun:si +(p))) =+ e=(dif:si (sun:si (met 0 a)) (sun:si +(p)))
[s=s e=e a=(lia p a)] [s=s e=e a=(lia p a)]