Script Programming(스크립트 프로그래밍)

# Filename: testHexView_02.r
#
#     Purpose: Show hexademial values of the given binary file.
#
#     Require: R 3.0.1 above
#
# Execute: r --silent --slave -q -f testHexView_02.r --args [filename]
#
# Date: 2013. 8. 17.

asc <- function(x) { strtoi(charToRaw(x),16L) }
chr <- function(n) { rawToChar(as.raw(n)) }

toHex = function(n) {
    s <- ""
    x1 <- bitwShiftR(as.integer(as.hexmode(n) & as.hexmode(0xF0)), 4)
    x2 <- as.integer(as.hexmode(n) & as.hexmode(0xF))
    if (x1 < 10) {
        s = sprintf("%s%s", s, chr(asc("0") + x1))
    } else {
        s = sprintf("%s%s", s, chr(asc("A") + (x1 - 10)))
    }
    if (x2 < 10) {
        s = sprintf("%s%s", s, chr(asc("0") + x2))
    } else {
        s = sprintf("%s%s", s, chr(asc("A") + (x2 - 10)))
    }
    s
}

toHex8 = function(n) {
    s <- ""
    s = sprintf("%s%s", s, "0")
    x2 <- bitwShiftR(as.integer(as.hexmode(n) & as.hexmode(0xF000000L)), 24)
    x3 <- bitwShiftR(as.integer(as.hexmode(n) & as.hexmode(0xF00000L)), 20)
    x4 <- bitwShiftR(as.integer(as.hexmode(n) & as.hexmode(0xF0000L)), 16)
    x5 <- bitwShiftR(as.integer(as.hexmode(n) & as.hexmode(0xF000L)), 12)
    x6 <- bitwShiftR(as.integer(as.hexmode(n) & as.hexmode(0xF00L)), 8)
    x7 <- bitwShiftR(as.integer(as.hexmode(n) & as.hexmode(0xF0L)), 4)
    x8 <- as.integer(as.hexmode(n) & as.hexmode(0xFL))
    if (x2 < 10) {
        s = sprintf("%s%s", s, chr(asc("0") + x2))
    } else {
        s = sprintf("%s%s", s, chr(asc("A") + (x2 - 10)))
    }
    if (x3 < 10) {
        s = sprintf("%s%s", s, chr(asc("0") + x3))
    } else {
        s = sprintf("%s%s", s, chr(asc("A") + (x3 - 10)))
    }
    if (x4 < 10) {
        s = sprintf("%s%s", s, chr(asc("0") + x4))
    } else {
        s = sprintf("%s%s", s, chr(asc("A") + (x4 - 10)))
    }
    s = sprintf("%s%s", s, " ")
    if (x5 < 10) {
        s = sprintf("%s%s", s, chr(asc("0") + x5))
    } else {
        s = sprintf("%s%s", s, chr(asc("A") + (x5 - 10)))
    }
    if (x6 < 10) {
        s = sprintf("%s%s", s, chr(asc("0") + x6))
    } else {
        s = sprintf("%s%s", s, chr(asc("A") + (x6 - 10)))
    }
    if (x7 < 10) {
        s = sprintf("%s%s", s, chr(asc("0") + x7))
    } else {
        s = sprintf("%s%s", s, chr(asc("A") + (x7 - 10)))
    }
    if (x8 < 10) {
        s = sprintf("%s%s", s, chr(asc("0") + x8))
    } else {
        s = sprintf("%s%s", s, chr(asc("A") + (x8 - 10)))
    }
    s
}

args <- commandArgs(trailingOnly = TRUE)

fname <- "c:\\test\\java7\\temp_1.bin"

if (length(args) > 0) {
    fname = args[1]
} else {
    cat("Usage: r --silent --slave -q -f testHexView_02.r --args [filename]\n")
    q()
}

if (file.exists(fname) == FALSE) {
    cat(sprintf("The file \"%s\" does not exist.\n", fname))
    q()
}

finfo <- file.info(fname)

if (finfo$isdir) {
    cat(sprintf("\"%s\" is a directory.\n", fname))
    q()
}

fsize <- finfo$size
cat(sprintf("The size of the file \"%s\" is %d.\n", fname, fsize))
cat("\n")

zz <- file(fname, "rb")
n = 0
dum = ""
while (n < fsize) {
    if ((n %% 16) == 0) {
        cat(toHex8(n))
        cat(": ")
    }
    c <- readBin(con=zz, what="raw", n=1)
    if ((n %% 16) == 8) {
        cat("-")
    } else {
        cat(" ")
    }
    cat(toHex(as.integer(c)))
    if (as.integer(c) < 0x20 | as.integer(c) > 0x7F) {
        dum = sprintf("%s.", dum)
    } else {
        dum = sprintf("%s%s", dum, chr(as.integer(c)))
    }

    if ((n %% 16) == 15) {
        cat("  |")
        cat(dum)
        cat("|\n")
        dum = ""
    }
    n = n + 1
}

close(zz)

if ((n %% 16) > 0) {
    for (i in 1:(16 - (n %% 16))) {
        cat("   ")
    }
    cat("  |")
    cat(dum)
    for (i in 1:(16 - (n %% 16))) {
        cat(" ")
    }
    cat("|\n")
    dum = ""
}

cat(sprintf("\nRead %d bytes.", n))
cat("\n")