OXIESEC PANEL

Name	Size	Modified	Perms
📁 ..	-	11/17/2022 06:42:18 AM	rwxr-xr-x
📄 .gitignore	162 bytes	01/28/2018 09:20:33 PM	rw-r--r--
📄 Kbuild.include	18.36 KB	11/01/2022 04:52:05 PM	rw-r--r--
📄 Lindent	502 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 Makefile	1.9 KB	11/01/2022 04:52:05 PM	rw-r--r--
📄 Makefile.asm-generic	1.17 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 Makefile.build	20.68 KB	11/01/2022 04:52:05 PM	rw-r--r--
📄 Makefile.clean	2.96 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 Makefile.dtbinst	1.09 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 Makefile.extrawarn	2.83 KB	11/01/2022 04:52:05 PM	rw-r--r--
📄 Makefile.gcc-plugins	3.75 KB	11/01/2022 04:52:05 PM	rw-r--r--
📄 Makefile.headersinst	3.98 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 Makefile.host	6.23 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 Makefile.kasan	1.09 KB	11/01/2022 04:52:05 PM	rw-r--r--
📄 Makefile.kcov	201 bytes	01/28/2018 09:20:33 PM	rw-r--r--
📄 Makefile.lib	15.25 KB	11/01/2022 04:52:05 PM	rw-r--r--
📄 Makefile.modbuiltin	1.82 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 Makefile.modinst	1.52 KB	11/01/2022 04:52:05 PM	rw-r--r--
📄 Makefile.modpost	5.48 KB	11/01/2022 04:52:05 PM	rw-r--r--
📄 Makefile.modsign	1.02 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 Makefile.ubsan	1.07 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 adjust_autoksyms.sh	3.09 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 asn1_compiler.c	35.54 KB	01/28/2018 09:20:33 PM	rw-r--r--
📁 basic	-	11/17/2022 06:42:23 AM	rwxr-xr-x
📄 bloat-o-meter	3.22 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 bootgraph.pl	6.28 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 check_00index.sh	1.3 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 check_extable.sh	4.93 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 checkincludes.pl	1.94 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 checkkconfigsymbols.py	15.51 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 checkpatch.pl	186.79 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 checkstack.pl	5.49 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 checksyscalls.sh	5.68 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 checkversion.pl	1.9 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 cleanfile	3.46 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 cleanpatch	5.06 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 coccicheck	7.24 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📁 coccinelle	-	11/17/2022 06:42:18 AM	rwxr-xr-x
📄 config	4.64 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 conmakehash.c	5.98 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 const_structs.checkpatch	964 bytes	01/28/2018 09:20:33 PM	rw-r--r--
📄 decode_stacktrace.sh	3.82 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 decodecode	2.3 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 depmod.sh	1.94 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 diffconfig	3.72 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 documentation-file-ref-check	395 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x
📁 dtc	-	11/17/2022 06:42:23 AM	rwxr-xr-x
📄 export_report.pl	4.55 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 extract-cert.c	3.46 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 extract-ikconfig	1.69 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 extract-module-sig.pl	3.66 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 extract-sys-certs.pl	3.75 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 extract-vmlinux	1.6 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 extract_xc3028.pl	44.6 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 faddr2line	5.53 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 find-unused-docs.sh	1.27 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 gcc-goto.sh	530 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 gcc-ld	711 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 gcc-plugin.sh	1.06 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📁 gcc-plugins	-	11/17/2022 06:42:23 AM	rwxr-xr-x
📄 gcc-version.sh	857 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 gcc-x86_32-has-stack-protector.sh	219 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 gcc-x86_64-has-stack-protector.sh	244 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x
📁 gdb	-	11/17/2022 06:42:23 AM	rwxr-xr-x
📄 gen_initramfs_list.sh	8.03 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📁 genksyms	-	11/17/2022 06:42:23 AM	rwxr-xr-x
📄 get_dvb_firmware	25.22 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 get_maintainer.pl	65.03 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 gfp-translate	1.71 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 headerdep.pl	3.5 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 headers.sh	512 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 headers_check.pl	3.73 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 headers_install.sh	1.32 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 insert-sys-cert.c	13.08 KB	11/01/2022 04:52:05 PM	rw-r--r--
📄 kallsyms.c	18.89 KB	11/01/2022 04:52:05 PM	rw-r--r--
📁 kconfig	-	11/17/2022 06:42:23 AM	rwxr-xr-x
📄 kernel-doc	92.36 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 kmsg-doc	12.13 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📁 ksymoops	-	11/17/2022 06:42:23 AM	rwxr-xr-x
📄 ld-version.sh	269 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 leaking_addresses.pl	9.65 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 link-vmlinux.sh	7.65 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 makelst	808 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 markup_oops.pl	8.08 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 mkcompile_h	2.74 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 mkmakefile	1.19 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 mksysmap	1.33 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 mkuboot.sh	414 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x
📁 mod	-	11/17/2022 06:42:23 AM	rwxr-xr-x
📄 module-common.lds	901 bytes	01/28/2018 09:20:33 PM	rw-r--r--
📄 namespace.pl	13.18 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 objdiff	2.85 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📁 package	-	11/17/2022 06:42:23 AM	rwxr-xr-x
📄 parse-maintainers.pl	3.72 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 patch-kernel	9.95 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 pnmtologo.c	11.91 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 profile2linkerlist.pl	414 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 prune-kernel	708 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 recordmcount.c	17.49 KB	11/01/2022 04:52:05 PM	rw-r--r--
📄 recordmcount.h	16.4 KB	11/01/2022 04:52:05 PM	rw-r--r--
📄 recordmcount.pl	18.41 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📁 selinux	-	11/17/2022 06:42:23 AM	rwxr-xr-x
📄 setlocalversion	4.72 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 show_delta	2.99 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 sign-file.c	9.76 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 sortextable.c	8.35 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 sortextable.h	5.48 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 spelling.txt	24.97 KB	01/28/2018 09:20:33 PM	rw-r--r--
📄 sphinx-pre-install	14.04 KB	11/01/2022 04:52:05 PM	rwxr-xr-x
📄 stackdelta	1.84 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 stackusage	794 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 subarch.include	641 bytes	11/01/2022 04:52:05 PM	rw-r--r--
📄 tags.sh	9.49 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📁 tracing	-	11/17/2022 06:42:23 AM	rwxr-xr-x
📄 ubuntu-retpoline-extract-one	7.26 KB	11/01/2022 04:52:05 PM	rw-r--r--
📄 unifdef.c	34.8 KB	11/01/2022 04:52:05 PM	rw-r--r--
📄 ver_linux	2.94 KB	01/28/2018 09:20:33 PM	rwxr-xr-x
📄 xen-hypercalls.sh	386 bytes	01/28/2018 09:20:33 PM	rw-r--r--
📄 xz_wrap.sh	562 bytes	01/28/2018 09:20:33 PM	rwxr-xr-x

Editing: kmsg-doc

#!/usr/bin/perl -w
#
# kmsg kernel messages check and print tool.
#
# To check the source code for missing messages the script is called
# with check, the name compiler and the compile parameters
#	kmsg-doc check $(CC) $(c_flags) $<
# To create man pages for the messages the script is called with
#	kmsg-doc print $(CC) $(c_flags) $<
#
# Copyright IBM Corp. 2008
# Author(s):  Martin Schwidefsky <schwidefsky@de.ibm.com>
#	      Michael Holzheu <holzheu@linux.vnet.ibm.com>
#

use Cwd;
use bigint;

my $errors = 0;
my $warnings = 0;
my $srctree = "";
my $objtree = "";
my $kmsg_count = 0;

sub remove_quotes($)
{
    my ($string) = @_;
    my $inside = 0;
    my $slash = 0;
    my $result = "";

foreach my $str (split(/([\\"])/, $string)) {
        if ($inside && ($str ne "\"" || $slash)) {
            $result .= $str;
        }
        # Check for backslash before quote
        if ($str eq "\"") {
            if (!$slash) {
                $inside = !$inside;
            }
	     $slash = 0;
        } elsif ($str eq "\\") {
            $slash = !$slash;
        } elsif ($str ne "") {
            $slash = 0;
        }
    }
    return $result;
}

sub string_to_bytes($)
{
    my ($string) = @_;
    my %is_escape = ('"', 0x22, '\'', 0x27, 'n', 0x0a, 'r', 0x0d, 'b', 0x08,
		     't', 0x09, 'f', 0x0c, 'a', 0x07, 'v', 0x0b, '?', 0x3f);
    my (@ar, $slash, $len);

# scan string, interpret backslash escapes and write bytes to @ar
    $len = 0;
    foreach my $ch (split(//, $string)) {
	if ($ch eq '\\') {
	    $slash = !$slash;
	    if (!$slash) {
		$ar[$len] = ord('\\');
		$len++;
	    }
	} elsif ($slash && defined $is_escape{$ch}) {
	    # C99 backslash escapes: \\ \" \' \n \r \b \t \f \a \v \?
	    $ar[$len] = $is_escape{$ch};
	    $len++;
	    $slash = 0;
	} elsif ($slash) {
	    # FIXME: C99 backslash escapes \nnn \xhh
	    die("Unknown backslash escape in message $string.");
	} else {
	    # normal character
	    $ar[$len] = ord($ch);
	    $len++;
	}
    }
    return @ar;
}

sub calc_jhash($)
{
    my ($string) = @_;
    my @ar;
    my ($a, $b, $c, $i, $length, $len);

@ar = string_to_bytes($string);
    $length = @ar;
    # add dummy elements to @ar to avoid if then else hell
    push @ar, (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
    $a = 0x9e3779b9;
    $b = 0x9e3779b9;
    $c = 0;
    $i = 0;
    for ($len = $length + 12; $len >= 12; $len -= 12) {
	if ($len < 24) {
	    # add length for last round
	    $c += $length;
	}
	$a += $ar[$i] + ($ar[$i+1]<<8) + ($ar[$i+2]<<16) + ($ar[$i+3]<<24);
	$b += $ar[$i+4] + ($ar[$i+5]<<8) + ($ar[$i+6]<<16) + ($ar[$i+7]<<24);
	if ($len >= 24) {
	    $c += $ar[$i+8] + ($ar[$i+9]<<8) + ($ar[$i+10]<<16) + ($ar[$i+11]<<24);
	} else {
	    $c += ($ar[$i+8]<<8) + ($ar[$i+9]<<16) + ($ar[$i+10]<<24);
	}
	$a &= 0xffffffff; $b &= 0xffffffff; $c &= 0xffffffff;
	$a -= $b; $a -= $c; $a ^= ($c >> 13); $a &= 0xffffffff;
	$b -= $c; $b -= $a; $b ^= ($a << 8); $b &= 0xffffffff;
	$c -= $a; $c -= $b; $c ^= ($b >> 13); $c &= 0xffffffff;
	$a -= $b; $a -= $c; $a ^= ($c >> 12); $a &= 0xffffffff;
	$b -= $c; $b -= $a; $b ^= ($a << 16); $b &= 0xffffffff;
	$c -= $a; $c -= $b; $c ^= ($b >> 5); $c &= 0xffffffff;
	$a -= $b; $a -= $c; $a ^= ($c >> 3); $a &= 0xffffffff;
	$b -= $c; $b -= $a; $b ^= ($a << 10); $b &= 0xffffffff;
	$c -= $a; $c -= $b; $c ^= ($b >> 15); $c &= 0xffffffff;
	$i += 12;
    }
    return $c;
}

sub add_kmsg_desc($$$$$$)
{
    my ($component, $text, $sev, $argv, $desc, $user) = @_;
    my ($hash, $tag);

$text = remove_quotes($text);
    $hash = substr(sprintf("%08x", calc_jhash($text)), 2, 6);
    $tag = $component . "." . $hash;

if ($kmsg_desc{$tag}) {
	if ($text ne $kmsg_desc{$tag}->{'TEXT'}) {
	    warn "Duplicate message with tag $tag\n";
	    warn "  --- $kmsg_desc{$tag}->{'TEXT'}\n";
	    warn "  +++ $text\n";
	} else {
	    warn "Duplicate message description for \"$text\"\n";
	}
	$errors++;
	return;
    }
    $kmsg_desc{$tag}->{'TEXT'} = $text;
    $kmsg_desc{$tag}->{'SEV'} = $sev;
    $kmsg_desc{$tag}->{'ARGV'} = $argv;
    $kmsg_desc{$tag}->{'DESC'} = $desc;
    $kmsg_desc{$tag}->{'USER'} = $user;
}

sub add_kmsg_print($$$$)
{
    my ($component, $sev, $text, $argv) = @_;
    my ($hash, $tag, $count, $parm);

$text = remove_quotes($text);
    $hash = substr(sprintf("%08x", calc_jhash($text)), 2, 6);
    $tag = $component . "." . $hash;

# Pretty print severity
    $sev =~ s/"0"/Emerg/;
    $sev =~ s/"1"/Alert/;
    $sev =~ s/"2"/Critical/;
    $sev =~ s/"3"/Error/;
    $sev =~ s/"4"/Warning/;
    $sev =~ s/"5"/Notice/;
    $sev =~ s/"6"/Informational/;
    $sev =~ s/"7"/Debug/;
    $kmsg_print{$kmsg_count}->{'TAG'} = $tag;
    $kmsg_print{$kmsg_count}->{'TEXT'} = $text;
    $kmsg_print{$kmsg_count}->{'SEV'} = $sev;
    $kmsg_print{$kmsg_count}->{'ARGV'} = $argv;
    $kmsg_count += 1;
}

sub process_source_file($$)
{
    my ($component, $file) = @_;
    my $state;
    my ($text, $sev, $argv, $desc, $user);

if (!open(FD, "$file")) {
	return "";
    }

$state = 0;
    while (<FD>) {
	chomp;
	# kmsg message component: #define KMSG_COMPONENT "<component>"
	if (/^#define\s+KMSG_COMPONENT\s+\"(.*)\"[^\"]*$/o) {
	    $component = $1;
	}
	if ($state == 0) {
	    # single line kmsg for undocumented messages, format:
	    # /*? Text: "<message>" */
	    if (/^\s*\/\*\?\s*Text:\s*(\".*\")\s*\*\/\s*$/o) {
		add_kmsg_desc($component, $1, "", "", "", "");
	    }
	    # kmsg message start: '/*?'
	    if (/^\s*\/\*\?\s*$/o) {
		$state = 1;
		($text, $sev, $argv, $desc, $user) = ( "", "", "", "", "" );
	    }
	} elsif ($state == 1) {
	    # kmsg message end: ' */'
	    if (/^\s*\*\/\s*/o) {
		add_kmsg_desc($component, $text, $sev, $argv, $desc, $user);
		$state = 0;
	    }
	    # kmsg message text: ' * Text: "<message>"'
	    elsif (/^\s*\*\s*Text:\s*(\".*\")\s*$/o) {
		$text = $1;
	    }
	    # kmsg message severity: ' * Severity: <sev>'
	    elsif (/^\s*\*\s*Severity:\s*(\S*)\s*$/o) {
		$sev = $1;
	    }
	    # kmsg message parameter: ' * Parameter: <argv>'
	    elsif (/^\s*\*\s*Parameter:\s*(\S*)\s*$/o) {
		if (!defined($1)) {
		    $argv = "";
		} else {
		    $argv = $1;
		}
		$state = 2;
	    }
	    # kmsg message description start: ' * Description:'
	    elsif (/^\s*\*\s*Description:\s*(\S*)\s*$/o) {
		if (!defined($1)) {
		    $desc = "";
		} else {
		    $desc = $1;
		}
		$state = 3;
	    }
	    # kmsg has unrecognizable lines
	    else {
		warn "Warning(${file}:$.): Cannot understand $_";
		$warnings++;
		$state = 0;
	    }
	} elsif ($state == 2) {
	    # kmsg message end: ' */'
	    if (/^\s*\*\//o) {
		warn "Warning(${file}:$.): Missing description, skipping message";
		$warnings++;
		$state = 0;
	    }
	    # kmsg message description start: ' * Description:'
	    elsif (/^\s*\*\s*Description:\s*$/o) {
		$desc = $1;
		$state = 3;
	    }
	    # kmsg message parameter line: ' * <argv>'
	    elsif (/^\s*\*(.*)$/o) {
		$argv .= "\n" . $1;
	    } else {
		warn "Warning(${file}:$.): Cannot understand $_";
		$warnings++;
		$state = 0;
	    }
	} elsif ($state == 3) {
	    # kmsg message end: ' */'
	    if (/^\s*\*\/\s*/o) {
		add_kmsg_desc($component, $text, $sev, $argv, $desc, $user);
		$state = 0;
	    }
	    # kmsg message description start: ' * User action:'
	    elsif (/^\s*\*\s*User action:\s*$/o) {
		$user = $1;
		$state = 4;
	    }
	    # kmsg message description line: ' * <text>'
	    elsif (/^\s*\*\s*(.*)$/o) {
		$desc .= "\n" . $1;
	    } else {
		warn "Warning(${file}:$.): Cannot understand $_";
		$warnings++;
		$state = 0;
	    }
	} elsif ($state == 4) {
	    # kmsg message end: ' */'
	    if (/^\s*\*\/\s*/o) {
		add_kmsg_desc($component, $text, $sev, $argv, $desc, $user);
		$state = 0;
	    }
	    # kmsg message user action line: ' * <text>'
	    elsif (/^\s*\*\s*(.*)$/o) {
		$user .= "\n" . $1;
	    } else {
		warn "Warning(${file}:$.): Cannot understand $_";
		$warnings++;
		$state = 0;
	    }
	}
    }
    return $component;
}

sub process_cpp_file($$$$)
{
    my ($cc, $options, $file, $component) = @_;

open(FD, "$cc $gcc_options|") or die ("Preprocessing failed.");

while (<FD>) {
	chomp;
	if (/.*__KMSG_PRINT$\s*(\S*)\s*(\S*)\s*_FMT_(.*)_ARGS_\s*(.*)?_END_\s*$/o) {
	    if ($component ne "") {
		add_kmsg_print($component, $2, $3, $4);
	    } else {
		warn "Error(${file}:$.): kmsg without component\n";
		$errors++;
	    }
	} elsif (/.*__KMSG_DEV$\s*(\S*)\s*(\S*)\s*_FMT_(.*)_ARGS_\s*(.*)?_END_\s*$/o) {
	    if ($component ne "") {
		add_kmsg_print($component, $2, "\"%s: \"" . $3, $4);
	    } else {
		warn "Error(${file}:$.): kmsg without component\n";
		$errors++;
	    }
	}
    }
}

sub check_messages($)
{
    my $component = "@_";
    my $failed = 0;

for ($i = 0; $i < $kmsg_count; $i++) {
	$tag = $kmsg_print{$i}->{'TAG'};
	if (!defined($kmsg_desc{$tag})) {
	    add_kmsg_desc($component,
			  "\"" . $kmsg_print{$i}->{'TEXT'} . "\"",
			  $kmsg_print{$i}->{'SEV'},
			  $kmsg_print{$i}->{'ARGV'},
			  "Please insert description here",
			  "What is the user supposed to do");
	    $kmsg_desc{$tag}->{'CHECK'} = 1;
	    $failed = 1;
	    warn "$component: Missing description for: ".
		 $kmsg_print{$i}->{'TEXT'}."\n";
	    $errors++;
	    next;
	}
	if ($kmsg_desc{$tag}->{'SEV'} ne "" &&
	    $kmsg_desc{$tag}->{'SEV'} ne $kmsg_print{$i}->{'SEV'}) {
	    warn "Message severity mismatch for \"$kmsg_print{$i}->{'TEXT'}\"\n";
	    warn "  --- $kmsg_desc{$tag}->{'SEV'}\n";
	    warn "  +++ $kmsg_print{$i}->{'SEV'}\n";
	}
    }
    return $failed;
}

sub print_templates()
{
    print "Templates for missing messages:\n";
    foreach $tag ( sort { $kmsg_desc{$a} <=> $kmsg_desc{$b} } keys %kmsg_desc ) {
	if (!defined($kmsg_desc{$tag}->{'CHECK'})) {
	    next;
	}
	print "/*?\n";
	print " * Text: \"$kmsg_desc{$tag}->{'TEXT'}\"\n";
	print " * Severity: $kmsg_desc{$tag}->{'SEV'}\n";
	$argv = $kmsg_desc{$tag}->{'ARGV'};
	if ($argv ne "") {
	    print " * Parameter:\n";
	    @parms = split(/\s*,\s*/,$kmsg_desc{$tag}->{'ARGV'});
	    $count = 0;
	    foreach $parm (@parms) {
		$count += 1;
		if (!($parm eq "")) {
		    print " *   \@$count: $parm\n";
		}
	    }
	}
	print " * Description:\n";
	print " * $kmsg_desc{$tag}->{'DESC'}\n";
	print " * User action:\n";
	print " * $kmsg_desc{$tag}->{'USER'}\n";
	print " */\n\n";
    }
}

sub write_man_pages()
{
    my ($i, $file);

for ($i = 0; $i < $kmsg_count; $i++) {
	$tag = $kmsg_print{$i}->{'TAG'};
	if (!defined($kmsg_desc{$tag}) ||
	    defined($kmsg_desc{$tag}->{'CHECK'}) ||
	    $kmsg_desc{$tag}->{'DESC'} eq "") {
	    next;
	}
	$file = $objtree . "man/" . $tag . ".9";
	if (!open(WR, ">$file")) {
	    warn "Error: Cannot open file $file\n";
	    $errors++;
	    return;
	}
	print WR ".TH \"$tag\" 9 \"Linux Messages\" LINUX\n";
	print WR ".SH Message\n";
	print WR $tag . ": " . $kmsg_desc{$tag}->{'TEXT'} . "\n";
	print WR ".SH Severity\n";
	print WR "$kmsg_desc{$tag}->{'SEV'}\n";
	$argv = $kmsg_desc{$tag}->{'ARGV'};
	if ($argv ne "") {
	    print WR ".SH Parameters\n";
	    @parms = split(/\s*\n\s*/,$kmsg_desc{$tag}->{'ARGV'});
	    foreach $parm (@parms) {
		$parm =~ s/^\s*(.*)\s*$/$1/;
		if (!($parm eq "")) {
		    print WR "$parm\n\n";
		}
	    }
	}
	print WR ".SH Description";
	print WR "$kmsg_desc{$tag}->{'DESC'}\n";
	$user = $kmsg_desc{$tag}->{'USER'};
	if ($user ne "") {
	    print WR ".SH User action";
	    print WR "$user\n";
	}
    }
}

if (defined($ENV{'srctree'})) {
    $srctree = "$ENV{'srctree'}" . "/";
} else {
    $srctree = getcwd;
}

if (defined($ENV{'objtree'})) {
    $objtree = "$ENV{'objtree'}" . "/";
} else {
    $objtree = getcwd;
}

if (defined($ENV{'SRCARCH'})) {
    $srcarch = "$ENV{'SRCARCH'}" . "/";
} else {
    print "kmsg-doc called without a valid \$SRCARCH\n";
    exit 1;
}

$option = shift;

$cc = shift;
$gcc_options = "-E -D __KMSG_CHECKER ";
foreach $tmp (@ARGV) {
    $tmp =~ s/$/\\\(/;
    $tmp =~ s/$/\\\)/;
    $gcc_options .= " $tmp";
    $filename = $tmp;
}

$component = process_source_file("", $filename);
if ($component ne "") {
    process_source_file($component, $srctree . "Documentation/kmsg/" .
			$srcarch . $component);
    process_source_file($component, $srctree . "Documentation/kmsg/" .
			$component);
}

process_cpp_file($cc, $gcc_options, $filename, $component);
if ($option eq "check") {
    if (check_messages($component)) {
	print_templates();
    }
} elsif ($option eq "print") {
    write_man_pages();
}

exit($errors);