Mini Shell
Mini Shell
| Direktori : /usr/share/doc/gawk/examples/lib/ |
| Current File : //usr/share/doc/gawk/examples/lib/bits2str.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
}