216918d333
"/dev/stderr" in the AWK programs. That device file doesn't exist on IRIX, and it isn't required by POSIX either.
56 lines
1.3 KiB
Awk
56 lines
1.3 KiB
Awk
# $NetBSD: check-subr.awk,v 1.3 2006/12/31 13:35:10 rillig Exp $
|
|
#
|
|
# This file contains functions that are used by the various awk
|
|
# programs that check things in pkgsrc. All these programs must be
|
|
# called with the following environment variables set:
|
|
#
|
|
# CK_FNAME
|
|
# The name of the file that is checked. Since awk interprets
|
|
# command line arguments in a weird way, the input file must be
|
|
# passed via stdin.
|
|
#
|
|
# CK_PROGNAME
|
|
# The program name to be used in diagnostic messages.
|
|
#
|
|
|
|
BEGIN {
|
|
cs_exitcode = 0;
|
|
cs_fname = ENVIRON["CK_FNAME"];
|
|
cs_progname = ENVIRON["CK_PROGNAME"];
|
|
cs_last_heading = "";
|
|
cs_hline = "=========================";
|
|
cs_hline = cs_hline cs_hline cs_hline;
|
|
no = 0;
|
|
yes = 1;
|
|
}
|
|
|
|
function cs_error_heading(new_heading) {
|
|
if (new_heading != cs_last_heading) {
|
|
cs_last_heading = new_heading;
|
|
cs_error_msg("=> " new_heading);
|
|
}
|
|
}
|
|
|
|
function cs_warning_heading(new_heading) {
|
|
if (new_heading != cs_last_heading) {
|
|
cs_last_heading = new_heading;
|
|
cs_warning_msg("=> " new_heading);
|
|
}
|
|
}
|
|
|
|
function cs_error_msg(msg) {
|
|
printf("ERROR: [%s] %s\n", cs_progname, msg);
|
|
cs_exitcode = 1;
|
|
}
|
|
|
|
function cs_warning_msg(msg) {
|
|
printf("WARNING: [%s] %s\n", cs_progname, msg);
|
|
}
|
|
|
|
function cs_explain(msg) {
|
|
printf("\nExplanation:\n%s\n%s%s\n\n", cs_hline, msg, cs_hline);
|
|
}
|
|
|
|
function cs_exit() {
|
|
exit(cs_exitcode);
|
|
}
|