残念ながら時代遅れの Lua のフロントエンドを使用しているため、ここではバージョン 5.1 に固執しています。これは、bit32
ライブラリが手の届かないところにあることを意味します (おそらく、これを変換するために使用できたはずです)。
だから、浮動小数点からバイナリ(数字)への関数、または浮動小数点から16進数への関数を実装できる方法を誰かが知っているかどうか疑問に思っています。これまでに思いついた最高のものは、10進数から2進数/16進数への関数です...
残念ながら時代遅れの Lua のフロントエンドを使用しているため、ここではバージョン 5.1 に固執しています。これは、bit32
ライブラリが手の届かないところにあることを意味します (おそらく、これを変換するために使用できたはずです)。
だから、浮動小数点からバイナリ(数字)への関数、または浮動小数点から16進数への関数を実装できる方法を誰かが知っているかどうか疑問に思っています。これまでに思いついた最高のものは、10進数から2進数/16進数への関数です...
次の関数は、François Perrad のlua-MessagePack
. 彼に感謝します。
function float2hex (n)
if n == 0.0 then return 0.0 end
local sign = 0
if n < 0.0 then
sign = 0x80
n = -n
end
local mant, expo = math.frexp(n)
local hext = {}
if mant ~= mant then
hext[#hext+1] = string.char(0xFF, 0x88, 0x00, 0x00)
elseif mant == math.huge or expo > 0x80 then
if sign == 0 then
hext[#hext+1] = string.char(0x7F, 0x80, 0x00, 0x00)
else
hext[#hext+1] = string.char(0xFF, 0x80, 0x00, 0x00)
end
elseif (mant == 0.0 and expo == 0) or expo < -0x7E then
hext[#hext+1] = string.char(sign, 0x00, 0x00, 0x00)
else
expo = expo + 0x7E
mant = (mant * 2.0 - 1.0) * math.ldexp(0.5, 24)
hext[#hext+1] = string.char(sign + math.floor(expo / 0x2),
(expo % 0x2) * 0x80 + math.floor(mant / 0x10000),
math.floor(mant / 0x100) % 0x100,
mant % 0x100)
end
return tonumber(string.gsub(table.concat(hext),"(.)",
function (c) return string.format("%02X%s",string.byte(c),"") end), 16)
end
function hex2float (c)
if c == 0 then return 0.0 end
local c = string.gsub(string.format("%X", c),"(..)",function (x) return string.char(tonumber(x, 16)) end)
local b1,b2,b3,b4 = string.byte(c, 1, 4)
local sign = b1 > 0x7F
local expo = (b1 % 0x80) * 0x2 + math.floor(b2 / 0x80)
local mant = ((b2 % 0x80) * 0x100 + b3) * 0x100 + b4
if sign then
sign = -1
else
sign = 1
end
local n
if mant == 0 and expo == 0 then
n = sign * 0.0
elseif expo == 0xFF then
if mant == 0 then
n = sign * math.huge
else
n = 0.0/0.0
end
else
n = sign * math.ldexp(1.0 + mant / 0x800000, expo - 0x7F)
end
return n
end
上記の例の float2hex は int を返します。ここで誰かが必要とする場合は、lua アーカイブ ( http://lua-users.org/lists/lua-l/2004-09/msg00054.html )で見つけることができる intToHex 変換関数です。上記の float2hex 関数の戻り値を使用して、この関数に渡しました。intToHex の出力は文字列です (例: 0xA4CD)。
function intToHex(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
OUT = "0x" .. OUT
return OUT
end