Gecko [ oric.aiou.edu.pk ]

Name	Size	Permission
atomic	[ DIR ]	drwxr-xr-x
basic	[ DIR ]	drwxr-xr-x
coccinelle	[ DIR ]	drwxr-xr-x
dtc	[ DIR ]	drwxr-xr-x
gcc-plugins	[ DIR ]	drwxr-xr-x
gdb	[ DIR ]	drwxr-xr-x
genksyms	[ DIR ]	drwxr-xr-x
kconfig	[ DIR ]	drwxr-xr-x
ksymoops	[ DIR ]	drwxr-xr-x
mod	[ DIR ]	drwxr-xr-x
package	[ DIR ]	drwxr-xr-x
selinux	[ DIR ]	drwxr-xr-x
tracing	[ DIR ]	drwxr-xr-x
.asn1_compiler.cmd	4.62 KB	-rw-r--r--
.bin2c.cmd	1.62 KB	-rw-r--r--
.conmakehash.cmd	3.6 KB	-rw-r--r--
.extract-cert.cmd	6.59 KB	-rw-r--r--
.insert-sys-cert.cmd	6.47 KB	-rw-r--r--
.kallsyms.cmd	3.86 KB	-rw-r--r--
.recordmcount.cmd	4.83 KB	-rw-r--r--
.sign-file.cmd	7.98 KB	-rw-r--r--
.sortextable.cmd	5.12 KB	-rw-r--r--
Kbuild.include	13.08 KB	-rw-r--r--
Kconfig.include	1.64 KB	-rw-r--r--
Lindent	502 B	-rwxr-xr-x
Makefile	1.75 KB	-rw-r--r--
Makefile.asm-generic	1.8 KB	-rw-r--r--
Makefile.build	17.78 KB	-rw-r--r--
Makefile.clean	2.15 KB	-rw-r--r--
Makefile.dtbinst	1.09 KB	-rw-r--r--
Makefile.extrawarn	2.89 KB	-rw-r--r--
Makefile.gcc-plugins	2.61 KB	-rw-r--r--
Makefile.headersinst	2.87 KB	-rw-r--r--
Makefile.host	6.86 KB	-rw-r--r--
Makefile.kasan	1.44 KB	-rw-r--r--
Makefile.kcov	359 B	-rw-r--r--
Makefile.lib	14.67 KB	-rw-r--r--
Makefile.modbuiltin	1.67 KB	-rw-r--r--
Makefile.modfinal	1.79 KB	-rw-r--r--
Makefile.modinst	1.31 KB	-rw-r--r--
Makefile.modpost	3.37 KB	-rw-r--r--
Makefile.modsign	791 B	-rw-r--r--
Makefile.package	6.5 KB	-rw-r--r--
Makefile.ubsan	864 B	-rw-r--r--
adjust_autoksyms.sh	2.62 KB	-rwxr-xr-x
asn1_compiler	35.11 KB	-rwxr-xr-x
asn1_compiler.c	35.33 KB	-rw-r--r--
bin2c	16.44 KB	-rwxr-xr-x
bin2c.c	743 B	-rw-r--r--
bloat-o-meter	3.29 KB	-rwxr-xr-x
bootgraph.pl	5.64 KB	-rwxr-xr-x
bpf_helpers_doc.py	20.12 KB	-rwxr-xr-x
cc-can-link.sh	166 B	-rwxr-xr-x
check_extable.sh	4.93 KB	-rwxr-xr-x
checkincludes.pl	1.94 KB	-rwxr-xr-x
checkkconfigsymbols.py	15.5 KB	-rwxr-xr-x
checkpatch.pl	199.44 KB	-rwxr-xr-x
checkstack.pl	5.27 KB	-rwxr-xr-x
checksyscalls.sh	7.27 KB	-rwxr-xr-x
checkversion.pl	1.9 KB	-rwxr-xr-x
clang-version.sh	527 B	-rwxr-xr-x
cleanfile	3.46 KB	-rwxr-xr-x
cleanpatch	5.06 KB	-rwxr-xr-x
coccicheck	7.25 KB	-rwxr-xr-x
config	4.64 KB	-rwxr-xr-x
conmakehash	17.02 KB	-rwxr-xr-x
conmakehash.c	5.85 KB	-rw-r--r--
const_structs.checkpatch	964 B	-rw-r--r--
decode_stacktrace.sh	3.95 KB	-rwxr-xr-x
decodecode	2.57 KB	-rwxr-xr-x
depmod.sh	1.41 KB	-rwxr-xr-x
diffconfig	3.72 KB	-rwxr-xr-x
documentation-file-ref-check	5.43 KB	-rwxr-xr-x
export_report.pl	4.5 KB	-rwxr-xr-x
extract-cert	17.89 KB	-rwxr-xr-x
extract-cert.c	3.63 KB	-rw-r--r--
extract-ikconfig	1.69 KB	-rwxr-xr-x
extract-module-sig.pl	3.66 KB	-rwxr-xr-x
extract-sys-certs.pl	3.75 KB	-rwxr-xr-x
extract-vmlinux	1.66 KB	-rwxr-xr-x
extract_xc3028.pl	44.62 KB	-rwxr-xr-x
faddr2line	8.17 KB	-rwxr-xr-x
file-size.sh	86 B	-rwxr-xr-x
find-unused-docs.sh	1.27 KB	-rwxr-xr-x
gcc-goto.sh	511 B	-rwxr-xr-x
gcc-ld	711 B	-rwxr-xr-x
gcc-plugin.sh	1.06 KB	-rwxr-xr-x
gcc-version.sh	588 B	-rwxr-xr-x
gcc-x86_32-has-stack-protector...	170 B	-rwxr-xr-x
gcc-x86_64-has-stack-protector...	195 B	-rwxr-xr-x
gen_compile_commands.py	5.56 KB	-rwxr-xr-x
gen_ksymdeps.sh	610 B	-rwxr-xr-x
get_abi.pl	10.1 KB	-rwxr-xr-x
get_dvb_firmware	24.54 KB	-rwxr-xr-x
get_maintainer.pl	66.04 KB	-rwxr-xr-x
gfp-translate	1.69 KB	-rwxr-xr-x
headerdep.pl	3.5 KB	-rwxr-xr-x
headers_check.pl	3.73 KB	-rwxr-xr-x
headers_install.sh	3.59 KB	-rwxr-xr-x
insert-sys-cert	22.21 KB	-rwxr-xr-x
insert-sys-cert.c	13.08 KB	-rw-r--r--
kallsyms	22.3 KB	-rwxr-xr-x
kallsyms.c	18.02 KB	-rw-r--r--
kernel-doc	60.88 KB	-rwxr-xr-x
kmsg-doc	12.13 KB	-rwxr-xr-x
ld-version.sh	269 B	-rwxr-xr-x
leaking_addresses.pl	12.8 KB	-rwxr-xr-x
link-vmlinux.sh	8.14 KB	-rwxr-xr-x
makelst	808 B	-rwxr-xr-x
markup_oops.pl	7.92 KB	-rwxr-xr-x
mkcompile_h	2.83 KB	-rwxr-xr-x
mkmakefile	426 B	-rwxr-xr-x
mksysmap	1.34 KB	-rwxr-xr-x
mkuboot.sh	414 B	-rwxr-xr-x
module-common.lds	901 B	-rw-r--r--
modules-check.sh	303 B	-rwxr-xr-x
namespace.pl	13.18 KB	-rwxr-xr-x
nsdeps	1.95 KB	-rw-r--r--
objdiff	2.84 KB	-rwxr-xr-x
parse-maintainers.pl	3.72 KB	-rwxr-xr-x
patch-kernel	9.95 KB	-rwxr-xr-x
pnmtologo.c	11.91 KB	-rw-r--r--
profile2linkerlist.pl	414 B	-rwxr-xr-x
prune-kernel	708 B	-rwxr-xr-x
recordmcount	32.27 KB	-rwxr-xr-x
recordmcount.c	16.75 KB	-rw-r--r--
recordmcount.h	19.37 KB	-rw-r--r--
recordmcount.pl	18.91 KB	-rwxr-xr-x
setlocalversion	4.72 KB	-rwxr-xr-x
show_delta	3.01 KB	-rwxr-xr-x
sign-file	26.52 KB	-rwxr-xr-x
sign-file.c	9.93 KB	-rw-r--r--
sortextable	21.81 KB	-rwxr-xr-x
sortextable.c	8.32 KB	-rw-r--r--
sortextable.h	5.45 KB	-rw-r--r--
spdxcheck-test.sh	323 B	-rw-r--r--
spdxcheck.py	9.92 KB	-rwxr-xr-x
spelling.txt	28.76 KB	-rw-r--r--
sphinx-pre-install	17.59 KB	-rwxr-xr-x
split-man.pl	604 B	-rwxr-xr-x
stackdelta	1.84 KB	-rwxr-xr-x
stackusage	794 B	-rwxr-xr-x
subarch.include	641 B	-rw-r--r--
tags.sh	9.56 KB	-rwxr-xr-x
tools-support-relr.sh	546 B	-rwxr-xr-x
ubuntu-retpoline-extract-one	7.26 KB	-rw-r--r--
unifdef.c	34.8 KB	-rw-r--r--
ver_linux	2.69 KB	-rwxr-xr-x
xen-hypercalls.sh	386 B	-rw-r--r--
xz_wrap.sh	563 B	-rwxr-xr-x

Code Editor : 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);

${this.title}

Code Editor : kmsg-doc