← Back to branch summary

~vcs-imports/gawk/master

« back to all changes in this revision

Viewing changes to awklib/eg/prog/tee.awk

  • Committer: Arnold D. Robbins
  • Date: 2010-07-16 09:41:09 UTC
  • Revision ID: git-v1:8c042f99cc7465c86351d21331a129111b75345d
Tags: gawk-3.0.0
Move to gawk-3.0.0.

Show diffs side-by-side

added added

removed removed

Lines of Context:
awklib/eg/prog/tee.awk
 
1
# tee.awk --- tee in awk
 
2
# Arnold Robbins, arnold@gnu.ai.mit.edu, Public Domain
 
3
# May 1993
 
4
# Revised December 1995
 
5
 
 
6
BEGIN    \
 
7
{
 
8
    for (i = 1; i < ARGC; i++)
 
9
        copy[i] = ARGV[i]
 
10
 
 
11
    if (ARGV[1] == "-a") {
 
12
        append = 1
 
13
        delete ARGV[1]
 
14
        delete copy[1]
 
15
        ARGC--
 
16
    }
 
17
    if (ARGC < 2) {
 
18
        print "usage: tee [-a] file ..." > "/dev/stderr"
 
19
        exit 1
 
20
    }
 
21
    ARGV[1] = "-"
 
22
    ARGC = 2
 
23
}
 
24
{
 
25
    # moving the if outside the loop makes it run faster
 
26
    if (append)
 
27
        for (i in copy)
 
28
            print >> copy[i]
 
29
    else
 
30
        for (i in copy)
 
31
            print > copy[i]
 
32
    print
 
33
}
 
34
END    \
 
35
{
 
36
    for (i in copy)
 
37
        close(copy[i])
 
38
}