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
|
# Written by Aleksey Cheusov <vle@gmx.net>, public domain
#
# This awk module is a part of RunAWK distribution,
# http://sourceforge.net/projects/runawk
#
############################################################
#use "abort.awk"
# =head2 alt_assert.awk
#
# =over 2
#
# =item I<assert (CONDITION, MSG, STATUS)>
#
# print an
# error message MSG to standard error and terminates
# the program with STATUS exit code if CONDITION is false.
#
# =back
#
function assert (cond, msg, status){
if (!cond){
abort("assertion failed: " msg, status)
}
}
|
