home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2005 March / PCWELT_3_2005.ISO / pcwsoft / framework-2.2.exe / bits2str.awk < prev    next >
Encoding:
Text File  |  2003-10-29  |  327 b   |  17 lines
  1. # bits2str --- turn a byte into readable 1's and 0's
  2.  
  3. function bits2str(bits,        data, mask)
  4. {
  5.     if (bits == 0)
  6.         return "0"
  7.  
  8.     mask = 1
  9.     for (; bits != 0; bits = rshift(bits, 1))
  10.         data = (and(bits, mask) ? "1" : "0") data
  11.  
  12.     while ((length(data) % 8) != 0)
  13.         data = "0" data
  14.  
  15.     return data
  16. }
  17.