Shell Programming and Scripting

nawk 'function mystrtonum(str, ret, chars, n, i, k, c)
     {
         if (str ~ /^0[0-7]*$/) {
             # octal
             n = length(str)
             ret = 0
             for (i = 1; i <= n; i++) {
                 c = substr(str, i, 1)
                 if ((k = index("01234567", c)) > 0)
                     k-- # adjust for 1-basing in awk
     
                 ret = ret * 8 + k
             }
         } else if (str ~ /^0[xX][[:xdigit:]]+/) {
             # hexadecimal
             str = substr(str, 3)    # lop off leading 0x
             n = length(str)
             ret = 0
             for (i = 1; i <= n; i++) {
                 c = substr(str, i, 1)
                 c = tolower(c)
                 if ((k = index("0123456789", c)) > 0)
                     k-- # adjust for 1-basing in awk
                 else if ((k = index("abcdef", c)) > 0)
                     k += 9
     
                 ret = ret * 16 + k
             }
         } else if (str ~ \
       /^[-+]?([0-9]+([.][0-9]*([Ee][0-9]+)?)?|([.][0-9]+([Ee][-+]?[0-9]+)?))$/) {
             # decimal number, possibly floating point
             ret = str + 0
         } else
             ret = "NOT-A-NUMBER"
     
         return ret
     }

     ...
     restofthecode
     ...'

f=input_filename

echo ibase=16 | cat - "$f" | bc | paste - "$f" | sed '1!p' | paste - - |
awk 'a=="" {a=$2} ($1+1 != $3) || NF == 2 {print a (a != $2 ? ":"$2 : ""); a=""}'

$ cat hex.awk

function mystrtonum(str, ret, chars, n, i, k, c)
     {
         if (str ~ /^0[0-7]*$/) {
             # octal
             n = length(str)
             ret = 0
             for (i = 1; i <= n; i++) {
                 c = substr(str, i, 1)
                 if ((k = index("01234567", c)) > 0)
                     k-- # adjust for 1-basing in awk

                 ret = ret * 8 + k
             }
         } else if (str ~ /^0[xX][[:xdigit:]]+/) {
             # hexadecimal
             str = substr(str, 3)    # lop off leading 0x
             n = length(str)
             ret = 0
             for (i = 1; i <= n; i++) {
                 c = substr(str, i, 1)
                 c = tolower(c)
                 if ((k = index("0123456789", c)) > 0)
                     k-- # adjust for 1-basing in awk
                 else if ((k = index("abcdef", c)) > 0)
                     k += 9

                 ret = ret * 16 + k
             }
         } else if (str ~ \
       /^[-+]?([0-9]+([.][0-9]*([Ee][0-9]+)?)?|([.][0-9]+([Ee][-+]?[0-9]+)?))$/) {
             # decimal number, possibly floating point
             ret = str + 0
         } else
             ret = "NOT-A-NUMBER"

         return ret
     }


P == "" {       P=strtonum("0x"$1); K=0;        next    }
(P+K+1) == strtonum("0x"$1) {   K++;    next    }

{
        if(!K)  printf("%04X\n", P);
        else    printf("%04X:%04X\n", P, P+K);
        P=strtonum("0x"$1);     K=0;
}

END {
        if(!K)  printf("%04X\n", P);
        else    printf("%04X:%04X\n", P, P+K);
}

$ nawk -f hex.awk data

0DDB:0DDF
0DE1
0DE4:0DE8

$

while read A
  do B=$((0x$A))
     [[ -z $L ]] && { printf "%04X" $B; L=B-1; }
     [[ $L+1 -eq $B ]] && K=0 || { [[ $K -eq 1 ]] && printf "\n%04X" $B || { printf ":%04X\n%04X" $L $B; K=1; }; }
     L=$B
  done < file
[[ $K -eq 0 ]] && printf ":%04X\n" $B || printf "\n"
0DF6:0DFD
0DFF:0E09
0E0C:0E10
0E14

0DE1:0DEC

0DDB:0DDF
0DE1
0DE4:0DE8