Shell Programming and Scripting

  this_block = strtonum("0x"fields[2]);
  this_block_size = strtonum("0x"fields[3]);

#!/bin/sh

zdb -ddddd ${1} | awk \
'
BEGIN { for(i=split("1 2 3 4 5 6 7 8 9 a b c d e f", decv);i;i--) dv[decv[i]]=i }
function hextoint(hexstr, num)
{
   for(i=1;i<=length(hexstr);i++)
      num = num * 16 + dv[tolower(substr(hexstr,i,1))]
   return num
}

/Indirect blocks/ {
  file_number++;
  next_block = 0;
}

/L0/ {
  split($3, fields, ":");
  this_block = hextoint(fields[2]);
  this_block_size = hextoint(fields[3]);
  total_blocks++;
  if( next_block != 0 ) {
    if( next_block == this_block ) {
      not_fragmented++;
    }
    else {
      fragmented++;
    }
  }
  next_block =  this_block + this_block_size;
}

END {
  total_fragment_blocks = fragmented + not_fragmented;
  printf("There are %d files.\n", file_number );
  printf("There are %d blocks and %d fragment blocks.\n", total_blocks, total_fragment_blocks );
  printf("There are %d fragmented blocks (%2.2f%%).\n", fragmented, fragmented*100.0/total_fragment_blocks );
  printf("There are %d contiguous blocks (%2.2f%%).\n", not_fragmented, not_fragmented*100.0/total_fragment_blocks );

BEGIN                   {for (n = split("0123456789ABCDEF", X, ""); n; n--) DECVAL[X[n]] = n-1}

function X2D(HEXV, TMP) {for (n = LX = split (toupper(HEXV), X, ""); n; n--) TMP += DECVAL[X[n]] * 16 ^ (LX-n)
                         return TMP
                        }

/L0/ {
  split($3, fields, ":");
this_block_hex=sprint toupper(fields[2]);
this_block_size_hex=sprint toupper(fields[3]);
"echo \"ibase=16;"this_block_hex"\"|bc -l" | getline this_block; close("echo \"ibase=16;"this_block_hex"\"|bc -l");
"echo \"ibase=16;"this_block_size_hex"\"|bc -l" | getline this_block_size; close("echo \"ibase=16;"this_block_size_hex"\"|bc -l");