package provide xtcl 0.1

#
# $Id: binary.tcl,v 1.1.1.1 2000/09/19 10:50:22 diam Exp $
# 
# Quelques procedures de manipulation de donnees binaires
# 

# 
# Retourne la chaine convernie au format hexa.
# Si le binaire est en little-endian (intel) au lieu de big endian 
# (motorola, ibm, ...) : on peut utilier h* au lieu de H*
#
proc filter_bin2hex {buffer} {

    # get 
    binary scan $buffer H* hex0

    # on peut separer chaque octet par un espace :
    regsub -all (..) $hex0 "& " hex1
    
    # on insere un saut de ligne tous les 16 caracteres :
    regsub -all (................................................) \
            $hex1 "&\n" hex2

    return $hex2
}

