kernel-doc (850622dfaf3d62907c96707773e0f8e84b3c0c06) kernel-doc (ecfb251a95dfca6ca0dba63414e9c91fcbb92335)
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## ##

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

1669 last;
1670 }
1671 }
1672}
1673
1674# replace <, >, and &
1675sub xml_escape($) {
1676 my $text = shift;
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## ##

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

1669 last;
1670 }
1671 }
1672}
1673
1674# replace <, >, and &
1675sub xml_escape($) {
1676 my $text = shift;
1677 if (($output_mode eq "text") || ($output_mode eq "man")) {
1678 return $text;
1679 }
1677 $text =~ s/\&/\\\\\\amp;/g;
1678 $text =~ s/\</\\\\\\lt;/g;
1679 $text =~ s/\>/\\\\\\gt;/g;
1680 return $text;
1681}
1682
1683sub process_file($) {
1684 my $file;

--- 209 unchanged lines hidden --- 		1680 $text =~ s/\&/\\\\\\amp;/g;
1681 $text =~ s/\</\\\\\\lt;/g;
1682 $text =~ s/\>/\\\\\\gt;/g;
1683 return $text;
1684}
1685
1686sub process_file($) {
1687 my $file;

--- 209 unchanged lines hidden ---