1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
# Written by Aleksey Cheusov <vle@gmx.net>, public domain
#
# This awk module is a part of RunAWK distribution,
# http://sourceforge.net/projects/runawk
#
#use "exitnow.awk"
# =head2 abort.awk
#
# =over 2
#
# =item I<abort (MSG, [EXIT_STATUS])>
#
# print MSG to stderr and exits program with
# EXIT_STATUS. EXIT_STATUS defaults to 1.
#
# =back
#
function abort (msg, status){
printf "error: %s\n", msg > "/dev/stderr"
printf " ARGV[0]=%s\n", ARGV[0] > "/dev/stderr"
printf " $0=`%s`\n", $0 > "/dev/stderr"
printf " NF=%d\n", NF > "/dev/stderr"
printf " FNR=%d\n", FNR > "/dev/stderr"
printf " FILENAME=%s\n", FILENAME > "/dev/stderr"
if (!status){
status = 1
}
exitnow(status)
}
|
