kernel-doc (b22364c8eec89e6b0c081a237f3b6348df87796f) | kernel-doc (5449bc94152a6c4700f46786be600141234d8f0f) |
---|---|
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## ## --- 569 unchanged lines hidden (view full) --- 578 my %args = %{$_[0]}; 579 my ($parameter, $section); 580 my $count; 581 my $id; 582 583 $id = "API-".$args{'function'}; 584 $id =~ s/[^A-Za-z0-9]/-/g; 585 | 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## ## --- 569 unchanged lines hidden (view full) --- 578 my %args = %{$_[0]}; 579 my ($parameter, $section); 580 my $count; 581 my $id; 582 583 $id = "API-".$args{'function'}; 584 $id =~ s/[^A-Za-z0-9]/-/g; 585 |
586 print "<refentry>\n"; | 586 print "<refentry id=\"$id\">\n"; |
587 print "<refentryinfo>\n"; 588 print " <title>LINUX</title>\n"; 589 print " <productname>Kernel Hackers Manual</productname>\n"; 590 print " <date>$man_date</date>\n"; 591 print "</refentryinfo>\n"; 592 print "<refmeta>\n"; | 587 print "<refentryinfo>\n"; 588 print " <title>LINUX</title>\n"; 589 print " <productname>Kernel Hackers Manual</productname>\n"; 590 print " <date>$man_date</date>\n"; 591 print "</refentryinfo>\n"; 592 print "<refmeta>\n"; |
593 print " <refentrytitle><phrase id=\"$id\">".$args{'function'}."</phrase></refentrytitle>\n"; | 593 print " <refentrytitle><phrase>".$args{'function'}."</phrase></refentrytitle>\n"; |
594 print " <manvolnum>9</manvolnum>\n"; 595 print "</refmeta>\n"; 596 print "<refnamediv>\n"; 597 print " <refname>".$args{'function'}."</refname>\n"; 598 print " <refpurpose>\n"; 599 print " "; 600 output_highlight ($args{'purpose'}); 601 print " </refpurpose>\n"; --- 52 unchanged lines hidden (view full) --- 654sub output_struct_xml(%) { 655 my %args = %{$_[0]}; 656 my ($parameter, $section); 657 my $id; 658 659 $id = "API-struct-".$args{'struct'}; 660 $id =~ s/[^A-Za-z0-9]/-/g; 661 | 594 print " <manvolnum>9</manvolnum>\n"; 595 print "</refmeta>\n"; 596 print "<refnamediv>\n"; 597 print " <refname>".$args{'function'}."</refname>\n"; 598 print " <refpurpose>\n"; 599 print " "; 600 output_highlight ($args{'purpose'}); 601 print " </refpurpose>\n"; --- 52 unchanged lines hidden (view full) --- 654sub output_struct_xml(%) { 655 my %args = %{$_[0]}; 656 my ($parameter, $section); 657 my $id; 658 659 $id = "API-struct-".$args{'struct'}; 660 $id =~ s/[^A-Za-z0-9]/-/g; 661 |
662 print "<refentry>\n"; | 662 print "<refentry id=\"$id\">\n"; |
663 print "<refentryinfo>\n"; 664 print " <title>LINUX</title>\n"; 665 print " <productname>Kernel Hackers Manual</productname>\n"; 666 print " <date>$man_date</date>\n"; 667 print "</refentryinfo>\n"; 668 print "<refmeta>\n"; | 663 print "<refentryinfo>\n"; 664 print " <title>LINUX</title>\n"; 665 print " <productname>Kernel Hackers Manual</productname>\n"; 666 print " <date>$man_date</date>\n"; 667 print "</refentryinfo>\n"; 668 print "<refmeta>\n"; |
669 print " <refentrytitle><phrase id=\"$id\">".$args{'type'}." ".$args{'struct'}."</phrase></refentrytitle>\n"; | 669 print " <refentrytitle><phrase>".$args{'type'}." ".$args{'struct'}."</phrase></refentrytitle>\n"; |
670 print " <manvolnum>9</manvolnum>\n"; 671 print "</refmeta>\n"; 672 print "<refnamediv>\n"; 673 print " <refname>".$args{'type'}." ".$args{'struct'}."</refname>\n"; 674 print " <refpurpose>\n"; 675 print " "; 676 output_highlight ($args{'purpose'}); 677 print " </refpurpose>\n"; --- 60 unchanged lines hidden (view full) --- 738 my %args = %{$_[0]}; 739 my ($parameter, $section); 740 my $count; 741 my $id; 742 743 $id = "API-enum-".$args{'enum'}; 744 $id =~ s/[^A-Za-z0-9]/-/g; 745 | 670 print " <manvolnum>9</manvolnum>\n"; 671 print "</refmeta>\n"; 672 print "<refnamediv>\n"; 673 print " <refname>".$args{'type'}." ".$args{'struct'}."</refname>\n"; 674 print " <refpurpose>\n"; 675 print " "; 676 output_highlight ($args{'purpose'}); 677 print " </refpurpose>\n"; --- 60 unchanged lines hidden (view full) --- 738 my %args = %{$_[0]}; 739 my ($parameter, $section); 740 my $count; 741 my $id; 742 743 $id = "API-enum-".$args{'enum'}; 744 $id =~ s/[^A-Za-z0-9]/-/g; 745 |
746 print "<refentry>\n"; | 746 print "<refentry id=\"$id\">\n"; |
747 print "<refentryinfo>\n"; 748 print " <title>LINUX</title>\n"; 749 print " <productname>Kernel Hackers Manual</productname>\n"; 750 print " <date>$man_date</date>\n"; 751 print "</refentryinfo>\n"; 752 print "<refmeta>\n"; | 747 print "<refentryinfo>\n"; 748 print " <title>LINUX</title>\n"; 749 print " <productname>Kernel Hackers Manual</productname>\n"; 750 print " <date>$man_date</date>\n"; 751 print "</refentryinfo>\n"; 752 print "<refmeta>\n"; |
753 print " <refentrytitle><phrase id=\"$id\">enum ".$args{'enum'}."</phrase></refentrytitle>\n"; | 753 print " <refentrytitle><phrase>enum ".$args{'enum'}."</phrase></refentrytitle>\n"; |
754 print " <manvolnum>9</manvolnum>\n"; 755 print "</refmeta>\n"; 756 print "<refnamediv>\n"; 757 print " <refname>enum ".$args{'enum'}."</refname>\n"; 758 print " <refpurpose>\n"; 759 print " "; 760 output_highlight ($args{'purpose'}); 761 print " </refpurpose>\n"; --- 42 unchanged lines hidden (view full) --- 804sub output_typedef_xml(%) { 805 my %args = %{$_[0]}; 806 my ($parameter, $section); 807 my $id; 808 809 $id = "API-typedef-".$args{'typedef'}; 810 $id =~ s/[^A-Za-z0-9]/-/g; 811 | 754 print " <manvolnum>9</manvolnum>\n"; 755 print "</refmeta>\n"; 756 print "<refnamediv>\n"; 757 print " <refname>enum ".$args{'enum'}."</refname>\n"; 758 print " <refpurpose>\n"; 759 print " "; 760 output_highlight ($args{'purpose'}); 761 print " </refpurpose>\n"; --- 42 unchanged lines hidden (view full) --- 804sub output_typedef_xml(%) { 805 my %args = %{$_[0]}; 806 my ($parameter, $section); 807 my $id; 808 809 $id = "API-typedef-".$args{'typedef'}; 810 $id =~ s/[^A-Za-z0-9]/-/g; 811 |
812 print "<refentry>\n"; | 812 print "<refentry id=\"$id\">\n"; |
813 print "<refentryinfo>\n"; 814 print " <title>LINUX</title>\n"; 815 print " <productname>Kernel Hackers Manual</productname>\n"; 816 print " <date>$man_date</date>\n"; 817 print "</refentryinfo>\n"; 818 print "<refmeta>\n"; | 813 print "<refentryinfo>\n"; 814 print " <title>LINUX</title>\n"; 815 print " <productname>Kernel Hackers Manual</productname>\n"; 816 print " <date>$man_date</date>\n"; 817 print "</refentryinfo>\n"; 818 print "<refmeta>\n"; |
819 print " <refentrytitle><phrase id=\"$id\">typedef ".$args{'typedef'}."</phrase></refentrytitle>\n"; | 819 print " <refentrytitle><phrase>typedef ".$args{'typedef'}."</phrase></refentrytitle>\n"; |
820 print " <manvolnum>9</manvolnum>\n"; 821 print "</refmeta>\n"; 822 print "<refnamediv>\n"; 823 print " <refname>typedef ".$args{'typedef'}."</refname>\n"; 824 print " <refpurpose>\n"; 825 print " "; 826 output_highlight ($args{'purpose'}); 827 print " </refpurpose>\n"; --- 1093 unchanged lines hidden --- | 820 print " <manvolnum>9</manvolnum>\n"; 821 print "</refmeta>\n"; 822 print "<refnamediv>\n"; 823 print " <refname>typedef ".$args{'typedef'}."</refname>\n"; 824 print " <refpurpose>\n"; 825 print " "; 826 output_highlight ($args{'purpose'}); 827 print " </refpurpose>\n"; --- 1093 unchanged lines hidden --- |