Blame awklib/eg/prog/awksed.awk

Packit Service f629e6
# awksed.awk --- do s/foo/bar/g using just print
Packit Service f629e6
#    Thanks to Michael Brennan for the idea
Packit Service f629e6
#
Packit Service f629e6
# Arnold Robbins, arnold@skeeve.com, Public Domain
Packit Service f629e6
# August 1995
Packit Service f629e6
Packit Service f629e6
function usage()
Packit Service f629e6
{
Packit Service f629e6
    print "usage: awksed pat repl [files...]" > "/dev/stderr"
Packit Service f629e6
    exit 1
Packit Service f629e6
}
Packit Service f629e6
Packit Service f629e6
BEGIN {
Packit Service f629e6
    # validate arguments
Packit Service f629e6
    if (ARGC < 3)
Packit Service f629e6
        usage()
Packit Service f629e6
Packit Service f629e6
    RS = ARGV[1]
Packit Service f629e6
    ORS = ARGV[2]
Packit Service f629e6
Packit Service f629e6
    # don't use arguments as files
Packit Service f629e6
    ARGV[1] = ARGV[2] = ""
Packit Service f629e6
}
Packit Service f629e6
Packit Service f629e6
# look ma, no hands!
Packit Service f629e6
{
Packit Service f629e6
    if (RT == "")
Packit Service f629e6
        printf "%s", $0
Packit Service f629e6
    else
Packit Service f629e6
        print
Packit Service f629e6
}