Gecko [ v99win.today ]

Name	Size	Permission
alarm.awk	2.31 KB	-rw-r--r--
anagram.awk	1.33 KB	-rw-r--r--
awksed.awk	515 B	-rw-r--r--
cut.awk	3.61 KB	-rw-r--r--
dupword.awk	507 B	-rw-r--r--
egrep.awk	1.91 KB	-rw-r--r--
extract.awk	1.84 KB	-rw-r--r--
guide.awk	165 B	-rw-r--r--
histsort.awk	283 B	-rw-r--r--
id.awk	1.22 KB	-rw-r--r--
igawk.sh	3.11 KB	-rw-r--r--
indirectcall.awk	1.91 KB	-rw-r--r--
labels.awk	1014 B	-rw-r--r--
pi.awk	341 B	-rw-r--r--
split.awk	1.17 KB	-rw-r--r--
tee.awk	770 B	-rw-r--r--
testbits.awk	736 B	-rw-r--r--
translate.awk	1.15 KB	-rw-r--r--
uniq.awk	2.64 KB	-rw-r--r--
wc.awk	1.45 KB	-rw-r--r--
wordfreq.awk	347 B	-rw-r--r--

Name

Size

Permission

Action

alarm.awk

2.31 KB

-rw-r--r--

anagram.awk

1.33 KB

-rw-r--r--

awksed.awk

515 B

-rw-r--r--

cut.awk

3.61 KB

-rw-r--r--

dupword.awk

507 B

-rw-r--r--

egrep.awk

1.91 KB

-rw-r--r--

extract.awk

1.84 KB

-rw-r--r--

guide.awk

165 B

-rw-r--r--

histsort.awk

283 B

-rw-r--r--

id.awk

1.22 KB

-rw-r--r--

igawk.sh

3.11 KB

-rw-r--r--

indirectcall.awk

1.91 KB

-rw-r--r--

labels.awk

1014 B

-rw-r--r--

pi.awk

341 B

-rw-r--r--

split.awk

1.17 KB

-rw-r--r--

tee.awk

770 B

-rw-r--r--

testbits.awk

736 B

-rw-r--r--

translate.awk

1.15 KB

-rw-r--r--

uniq.awk

2.64 KB

-rw-r--r--

wc.awk

1.45 KB

-rw-r--r--

wordfreq.awk

347 B

-rw-r--r--

Code Editor : translate.awk

# translate.awk --- do tr-like stuff
#
# Arnold Robbins, arnold@skeeve.com, Public Domain
# August 1989
# February 2009 - bug fix

# Bugs: does not handle things like tr A-Z a-z; it has
# to be spelled out. However, if `to' is shorter than `from',
# the last character in `to' is used for the rest of `from'.

function stranslate(from, to, target,     lf, lt, ltarget, t_ar, i, c,
                                                               result)
{
    lf = length(from)
    lt = length(to)
    ltarget = length(target)
    for (i = 1; i <= lt; i++)
        t_ar[substr(from, i, 1)] = substr(to, i, 1)
    if (lt < lf)
        for (; i <= lf; i++)
            t_ar[substr(from, i, 1)] = substr(to, lt, 1)
    for (i = 1; i <= ltarget; i++) {
        c = substr(target, i, 1)
        if (c in t_ar)
            c = t_ar[c]
        result = result c
    }
    return result
}

function translate(from, to)
{
    return $0 = stranslate(from, to, $0)
}

# main program
BEGIN {
    if (ARGC < 3) {
        print "usage: translate from to" > "/dev/stderr"
        exit
    }
    FROM = ARGV[1]
    TO = ARGV[2]
    ARGC = 2
    ARGV[1] = "-"
}

{
    translate(FROM, TO)
    print
}

${this.title}

Code Editor : translate.awk