kernel-doc (53f049fa5f18730b61faaee582ea0e045fd44f49) kernel-doc (0366299bd2de283091f4394c0f446e58b5f94815)
1#!/usr/bin/perl -w
2
3use strict;
4
5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##
7## Copyright (C) 2001 Simon Huggins ##
8## ##

--- 323 unchanged lines hidden (view full) ---

332sub get_kernel_version() {
333 my $version;
334
335 if (defined($ENV{'KERNELVERSION'})) {
336 $version = $ENV{'KERNELVERSION'};
337 }
338 return $version;
339}
1#!/usr/bin/perl -w
2
3use strict;
4
5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##
7## Copyright (C) 2001 Simon Huggins ##
8## ##

--- 323 unchanged lines hidden (view full) ---

332sub get_kernel_version() {
333 my $version;
334
335 if (defined($ENV{'KERNELVERSION'})) {
336 $version = $ENV{'KERNELVERSION'};
337 }
338 return $version;
339}
340my $kernelversion = get_kernel_version();
340
341# generate a sequence of code that will splice in highlighting information
342# using the s// operator.
343my $dohighlight = "";
344foreach my $pattern (keys %highlights) {
345# print STDERR "scanning pattern:$pattern, highlight:($highlights{$pattern})\n";
346 $dohighlight .= "\$contents =~ s:$pattern:$highlights{$pattern}:gs;\n";
347}

--- 257 unchanged lines hidden (view full) ---

605 print "<refentryinfo>\n";
606 print " <title>LINUX</title>\n";
607 print " <productname>Kernel Hackers Manual</productname>\n";
608 print " <date>$man_date</date>\n";
609 print "</refentryinfo>\n";
610 print "<refmeta>\n";
611 print " <refentrytitle><phrase>".$args{'function'}."</phrase></refentrytitle>\n";
612 print " <manvolnum>9</manvolnum>\n";
341
342# generate a sequence of code that will splice in highlighting information
343# using the s// operator.
344my $dohighlight = "";
345foreach my $pattern (keys %highlights) {
346# print STDERR "scanning pattern:$pattern, highlight:($highlights{$pattern})\n";
347 $dohighlight .= "\$contents =~ s:$pattern:$highlights{$pattern}:gs;\n";
348}

--- 257 unchanged lines hidden (view full) ---

606 print "<refentryinfo>\n";
607 print " <title>LINUX</title>\n";
608 print " <productname>Kernel Hackers Manual</productname>\n";
609 print " <date>$man_date</date>\n";
610 print "</refentryinfo>\n";
611 print "<refmeta>\n";
612 print " <refentrytitle><phrase>".$args{'function'}."</phrase></refentrytitle>\n";
613 print " <manvolnum>9</manvolnum>\n";
613 print " <refmiscinfo class=\"version\">" . get_kernel_version() . "</refmiscinfo>\n";
614 print " <refmiscinfo class=\"version\">" . $kernelversion . "</refmiscinfo>\n";
614 print "</refmeta>\n";
615 print "<refnamediv>\n";
616 print " <refname>".$args{'function'}."</refname>\n";
617 print " <refpurpose>\n";
618 print " ";
619 output_highlight ($args{'purpose'});
620 print " </refpurpose>\n";
621 print "</refnamediv>\n";

--- 60 unchanged lines hidden (view full) ---

682 print "<refentryinfo>\n";
683 print " <title>LINUX</title>\n";
684 print " <productname>Kernel Hackers Manual</productname>\n";
685 print " <date>$man_date</date>\n";
686 print "</refentryinfo>\n";
687 print "<refmeta>\n";
688 print " <refentrytitle><phrase>".$args{'type'}." ".$args{'struct'}."</phrase></refentrytitle>\n";
689 print " <manvolnum>9</manvolnum>\n";
615 print "</refmeta>\n";
616 print "<refnamediv>\n";
617 print " <refname>".$args{'function'}."</refname>\n";
618 print " <refpurpose>\n";
619 print " ";
620 output_highlight ($args{'purpose'});
621 print " </refpurpose>\n";
622 print "</refnamediv>\n";

--- 60 unchanged lines hidden (view full) ---

683 print "<refentryinfo>\n";
684 print " <title>LINUX</title>\n";
685 print " <productname>Kernel Hackers Manual</productname>\n";
686 print " <date>$man_date</date>\n";
687 print "</refentryinfo>\n";
688 print "<refmeta>\n";
689 print " <refentrytitle><phrase>".$args{'type'}." ".$args{'struct'}."</phrase></refentrytitle>\n";
690 print " <manvolnum>9</manvolnum>\n";
690 print " <refmiscinfo class=\"version\">" . get_kernel_version() . "</refmiscinfo>\n";
691 print " <refmiscinfo class=\"version\">" . $kernelversion . "</refmiscinfo>\n";
691 print "</refmeta>\n";
692 print "<refnamediv>\n";
693 print " <refname>".$args{'type'}." ".$args{'struct'}."</refname>\n";
694 print " <refpurpose>\n";
695 print " ";
696 output_highlight ($args{'purpose'});
697 print " </refpurpose>\n";
698 print "</refnamediv>\n";

--- 68 unchanged lines hidden (view full) ---

767 print "<refentryinfo>\n";
768 print " <title>LINUX</title>\n";
769 print " <productname>Kernel Hackers Manual</productname>\n";
770 print " <date>$man_date</date>\n";
771 print "</refentryinfo>\n";
772 print "<refmeta>\n";
773 print " <refentrytitle><phrase>enum ".$args{'enum'}."</phrase></refentrytitle>\n";
774 print " <manvolnum>9</manvolnum>\n";
692 print "</refmeta>\n";
693 print "<refnamediv>\n";
694 print " <refname>".$args{'type'}." ".$args{'struct'}."</refname>\n";
695 print " <refpurpose>\n";
696 print " ";
697 output_highlight ($args{'purpose'});
698 print " </refpurpose>\n";
699 print "</refnamediv>\n";

--- 68 unchanged lines hidden (view full) ---

768 print "<refentryinfo>\n";
769 print " <title>LINUX</title>\n";
770 print " <productname>Kernel Hackers Manual</productname>\n";
771 print " <date>$man_date</date>\n";
772 print "</refentryinfo>\n";
773 print "<refmeta>\n";
774 print " <refentrytitle><phrase>enum ".$args{'enum'}."</phrase></refentrytitle>\n";
775 print " <manvolnum>9</manvolnum>\n";
775 print " <refmiscinfo class=\"version\">" . get_kernel_version() . "</refmiscinfo>\n";
776 print " <refmiscinfo class=\"version\">" . $kernelversion . "</refmiscinfo>\n";
776 print "</refmeta>\n";
777 print "<refnamediv>\n";
778 print " <refname>enum ".$args{'enum'}."</refname>\n";
779 print " <refpurpose>\n";
780 print " ";
781 output_highlight ($args{'purpose'});
782 print " </refpurpose>\n";
783 print "</refnamediv>\n";

--- 1184 unchanged lines hidden --- 		777 print "</refmeta>\n";
778 print "<refnamediv>\n";
779 print " <refname>enum ".$args{'enum'}."</refname>\n";
780 print " <refpurpose>\n";
781 print " ";
782 output_highlight ($args{'purpose'});
783 print " </refpurpose>\n";
784 print "</refnamediv>\n";

--- 1184 unchanged lines hidden ---