initial commit

[libm] / test / io / run.sh

#!/bin/sh

crclean() {
        awk '
{
        sub(/#.*/, "")
}
NF == 1 {
        fun = $1
}
NF == 5 || NF == 7 {
        $1 = tolower($1)
        sub(/r/,"",$1)
        sub(/u/,"p",$1)
        sub(/d/,"m",$1)
        gsub(/0x/, "")
        print fun, $1, "eq", "-", $2, $3, $4, $5, $6, $7
}'
}

ucbclean() {
        awk '
/\/\*/ {
        next
}
(NF == 8 || NF == 10) && $3 !~/[lg]e/ {
        sub(/d$/,"",$1)
        print
}'
}

data() {
        cat cr/*.testdata |crclean
        cat ucb/*d.input |ucbclean
}

data | ./t >log
data | ./tsystem >log.system