17 lines
334 B
Awk
17 lines
334 B
Awk
|
# bits2str --- turn an integer into readable ones and zeros
|
||
|
|
|
||
|
|
function bits2str(bits, data, mask)
|
||
|
|
{
|
||
|
|
if (bits == 0)
|
||
|
|
return "0"
|
||
|
|
|
||
|
|
mask = 1
|
||
|
|
for (; bits != 0; bits = rshift(bits, 1))
|
||
|
|
data = (and(bits, mask) ? "1" : "0") data
|
||
|
|
|
||
|
|
while ((length(data) % 8) != 0)
|
||
|
|
data = "0" data
|
||
|
|
|
||
|
|
return data
|
||
|
|
}
|