~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~

TOMOYO Linux Cross Reference
Linux/tools/perf/Documentation/cat-texi.perl

Version: ~ [ linux-6.12-rc7 ] ~ [ linux-6.11.7 ] ~ [ linux-6.10.14 ] ~ [ linux-6.9.12 ] ~ [ linux-6.8.12 ] ~ [ linux-6.7.12 ] ~ [ linux-6.6.60 ] ~ [ linux-6.5.13 ] ~ [ linux-6.4.16 ] ~ [ linux-6.3.13 ] ~ [ linux-6.2.16 ] ~ [ linux-6.1.116 ] ~ [ linux-6.0.19 ] ~ [ linux-5.19.17 ] ~ [ linux-5.18.19 ] ~ [ linux-5.17.15 ] ~ [ linux-5.16.20 ] ~ [ linux-5.15.171 ] ~ [ linux-5.14.21 ] ~ [ linux-5.13.19 ] ~ [ linux-5.12.19 ] ~ [ linux-5.11.22 ] ~ [ linux-5.10.229 ] ~ [ linux-5.9.16 ] ~ [ linux-5.8.18 ] ~ [ linux-5.7.19 ] ~ [ linux-5.6.19 ] ~ [ linux-5.5.19 ] ~ [ linux-5.4.285 ] ~ [ linux-5.3.18 ] ~ [ linux-5.2.21 ] ~ [ linux-5.1.21 ] ~ [ linux-5.0.21 ] ~ [ linux-4.20.17 ] ~ [ linux-4.19.323 ] ~ [ linux-4.18.20 ] ~ [ linux-4.17.19 ] ~ [ linux-4.16.18 ] ~ [ linux-4.15.18 ] ~ [ linux-4.14.336 ] ~ [ linux-4.13.16 ] ~ [ linux-4.12.14 ] ~ [ linux-4.11.12 ] ~ [ linux-4.10.17 ] ~ [ linux-4.9.337 ] ~ [ linux-4.4.302 ] ~ [ linux-3.10.108 ] ~ [ linux-2.6.32.71 ] ~ [ linux-2.6.0 ] ~ [ linux-2.4.37.11 ] ~ [ unix-v6-master ] ~ [ ccs-tools-1.8.12 ] ~ [ policy-sample ] ~
Architecture: ~ [ i386 ] ~ [ alpha ] ~ [ m68k ] ~ [ mips ] ~ [ ppc ] ~ [ sparc ] ~ [ sparc64 ] ~

Diff markup

Differences between /tools/perf/Documentation/cat-texi.perl (Version linux-6.12-rc7) and /tools/perf/Documentation/cat-texi.perl (Version linux-2.6.32.71)


  1 #!/usr/bin/perl -w                                
  2                                                   
  3 use strict;                                       
  4 use warnings;                                     
  5                                                   
  6 my @menu = ();                                    
  7 my $output = $ARGV[0];                            
  8                                                   
  9 open my $tmp, '>', "$output.tmp";                 
 10                                                   
 11 while (<STDIN>) {                                 
 12         next if (/^\\input texinfo/../\@node T    
 13         next if (/^\@bye/ || /^\.ft/);            
 14         if (s/^\@top (.*)/\@node $1,,,Top/) {     
 15                 push @menu, $1;                   
 16         }                                         
 17         s/\(\@pxref\{\[(URLS|REMOTES)\]}\)//;     
 18         s/\@anchor\{[^{}]*\}//g;                  
 19         print $tmp $_;                            
 20 }                                                 
 21 close $tmp;                                       
 22                                                   
 23 print '\input texinfo                             
 24 @setfilename gitman.info                          
 25 @documentencoding UTF-8                           
 26 @dircategory Development                          
 27 @direntry                                         
 28 * Git Man Pages: (gitman).  Manual pages for G    
 29 @end direntry                                     
 30 @node Top,,, (dir)                                
 31 @top Git Manual Pages                             
 32 @documentlanguage en                              
 33 @menu                                             
 34 ';                                                
 35                                                   
 36 for (@menu) {                                     
 37         print "* ${_}::\n";                       
 38 }                                                 
 39 print "\@end menu\n";                             
 40 open $tmp, '<', "$output.tmp";                    
 41 while (<$tmp>) {                                  
 42         print;                                    
 43 }                                                 
 44 close $tmp;                                       
 45 print "\@bye\n";                                  
 46 unlink "$output.tmp";                             
                                                      

~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~

kernel.org | git.kernel.org | LWN.net | Project Home | SVN repository | Mail admin

Linux® is a registered trademark of Linus Torvalds in the United States and other countries.
TOMOYO® is a registered trademark of NTT DATA CORPORATION.

sflogo.php