Documentation/sphinx/parse-headers.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use Text::Tabs;
   4 use Getopt::Long;
   5 use Pod::Usage;
   6
   7 my $debug;
   8 my $help;
   9 my $man;
  10
  11 GetOptions(
  12         "debug" => \$debug,
  13         'usage|?' => \$help,
  14         'help' => \$man
  15 ) or pod2usage(2);
  16
  17 pod2usage(1) if $help;
  18 pod2usage(-exitstatus => 0, -verbose => 2) if $man;
  19 pod2usage(2) if (scalar @ARGV < 2 || scalar @ARGV > 3);
  20
  21 my ($file_in, $file_out, $file_exceptions) = @ARGV;
  22
  23 my $data;
  24 my %ioctls;
  25 my %defines;
  26 my %typedefs;
  27 my %enums;
  28 my %enum_symbols;
  29 my %structs;
  30
  31 require Data::Dumper if ($debug);
  32
  33 #
  34 # read the file and get identifiers
  35 #
  36
  37 my $is_enum = 0;
  38 my $is_comment = 0;
  39 open IN, $file_in or die "Can't open $file_in";
  40 while (<IN>) {
  41         $data .= $_;
  42
  43         my $ln = $_;
  44         if (!$is_comment) {
  45                 $ln =~ s,/\*.*(\*/),,g;
  46
  47                 $is_comment = 1 if ($ln =~ s,/\*.*,,);
  48         } else {
  49                 if ($ln =~ s,^(.*\*/),,) {
  50                         $is_comment = 0;
  51                 } else {
  52                         next;
  53                 }
  54         }
  55
  56         if ($is_enum && $ln =~ m/^\s*([_\w][\w\d_]+)\s*[\,=]?/) {
  57                 my $s = $1;
  58                 my $n = $1;
  59                 $n =~ tr/A-Z/a-z/;
  60                 $n =~ tr/_/-/;
  61
  62                 $enum_symbols{$s} =  "\\ :ref:`$s <$n>`\\ ";
  63
  64                 $is_enum = 0 if ($is_enum && m/\}/);
  65                 next;
  66         }
  67         $is_enum = 0 if ($is_enum && m/\}/);
  68
  69         if ($ln =~ m/^\s*#\s*define\s+([_\w][\w\d_]+)\s+_IO/) {
  70                 my $s = $1;
  71                 my $n = $1;
  72                 $n =~ tr/A-Z/a-z/;
  73
  74                 $ioctls{$s} = "\\ :ref:`$s <$n>`\\ ";
  75                 next;
  76         }
  77
  78         if ($ln =~ m/^\s*#\s*define\s+([_\w][\w\d_]+)\s+/) {
  79                 my $s = $1;
  80                 my $n = $1;
  81                 $n =~ tr/A-Z/a-z/;
  82                 $n =~ tr/_/-/;
  83
  84                 $defines{$s} = "\\ :ref:`$s <$n>`\\ ";
  85                 next;
  86         }
  87
  88         if ($ln =~ m/^\s*typedef\s+([_\w][\w\d_]+)\s+(.*)\s+([_\w][\w\d_]+);/) {
  89                 my $s = $2;
  90                 my $n = $3;
  91
  92                 $typedefs{$n} = "\\ :c:type:`$n <$s>`\\ ";
  93                 next;
  94         }
  95         if ($ln =~ m/^\s*enum\s+([_\w][\w\d_]+)\s+\{/
  96             || $ln =~ m/^\s*enum\s+([_\w][\w\d_]+)$/
  97             || $ln =~ m/^\s*typedef\s*enum\s+([_\w][\w\d_]+)\s+\{/
  98             || $ln =~ m/^\s*typedef\s*enum\s+([_\w][\w\d_]+)$/) {
  99                 my $s = $1;
 100
 101                 $enums{$s} =  "enum :c:type:`$s`\\ ";
 102
 103                 $is_enum = $1;
 104                 next;
 105         }
 106         if ($ln =~ m/^\s*struct\s+([_\w][\w\d_]+)\s+\{/
 107             || $ln =~ m/^\s*struct\s+([[_\w][\w\d_]+)$/
 108             || $ln =~ m/^\s*typedef\s*struct\s+([_\w][\w\d_]+)\s+\{/
 109             || $ln =~ m/^\s*typedef\s*struct\s+([[_\w][\w\d_]+)$/
 110             ) {
 111                 my $s = $1;
 112
 113                 $structs{$s} = "struct :c:type:`$s`\\ ";
 114                 next;
 115         }
 116 }
 117 close IN;
 118
 119 #
 120 # Handle multi-line typedefs
 121 #
 122
 123 my @matches = ($data =~ m/typedef\s+struct\s+\S+?\s*\{[^\}]+\}\s*(\S+)\s*\;/g,
 124                $data =~ m/typedef\s+enum\s+\S+?\s*\{[^\}]+\}\s*(\S+)\s*\;/g,);
 125 foreach my $m (@matches) {
 126         my $s = $m;
 127
 128         $typedefs{$s} = "\\ :c:type:`$s`\\ ";
 129         next;
 130 }
 131
 132 #
 133 # Handle exceptions, if any
 134 #
 135
 136 my %def_reftype = (
 137         "ioctl"   => ":ref",
 138         "define"  => ":ref",
 139         "symbol"  => ":ref",
 140         "typedef" => ":c:type",
 141         "enum"    => ":c:type",
 142         "struct"  => ":c:type",
 143 );
 144
 145 if ($file_exceptions) {
 146         open IN, $file_exceptions or die "Can't read $file_exceptions";
 147         while (<IN>) {
 148                 next if (m/^\s*$/ || m/^\s*#/);
 149
 150                 # Parsers to ignore a symbol
 151
 152                 if (m/^ignore\s+ioctl\s+(\S+)/) {
 153                         delete $ioctls{$1} if (exists($ioctls{$1}));
 154                         next;
 155                 }
 156                 if (m/^ignore\s+define\s+(\S+)/) {
 157                         delete $defines{$1} if (exists($defines{$1}));
 158                         next;
 159                 }
 160                 if (m/^ignore\s+typedef\s+(\S+)/) {
 161                         delete $typedefs{$1} if (exists($typedefs{$1}));
 162                         next;
 163                 }
 164                 if (m/^ignore\s+enum\s+(\S+)/) {
 165                         delete $enums{$1} if (exists($enums{$1}));
 166                         next;
 167                 }
 168                 if (m/^ignore\s+struct\s+(\S+)/) {
 169                         delete $structs{$1} if (exists($structs{$1}));
 170                         next;
 171                 }
 172                 if (m/^ignore\s+symbol\s+(\S+)/) {
 173                         delete $enum_symbols{$1} if (exists($enum_symbols{$1}));
 174                         next;
 175                 }
 176
 177                 # Parsers to replace a symbol
 178                 my ($type, $old, $new, $reftype);
 179
 180                 if (m/^replace\s+(\S+)\s+(\S+)\s+(\S+)/) {
 181                         $type = $1;
 182                         $old = $2;
 183                         $new = $3;
 184                 } else {
 185                         die "Can't parse $file_exceptions: $_";
 186                 }
 187
 188                 if ($new =~ m/^\:c\:(data|func|macro|type)\:\`(.+)\`/) {
 189                         $reftype = ":c:$1";
 190                         $new = $2;
 191                 } elsif ($new =~ m/\:ref\:\`(.+)\`/) {
 192                         $reftype = ":ref";
 193                         $new = $1;
 194                 } else {
 195                         $reftype = $def_reftype{$type};
 196                 }
 197                 $new = "$reftype:`$old <$new>`";
 198
 199                 if ($type eq "ioctl") {
 200                         $ioctls{$old} = $new if (exists($ioctls{$old}));
 201                         next;
 202                 }
 203                 if ($type eq "define") {
 204                         $defines{$old} = $new if (exists($defines{$old}));
 205                         next;
 206                 }
 207                 if ($type eq "symbol") {
 208                         $enum_symbols{$old} = $new if (exists($enum_symbols{$old}));
 209                         next;
 210                 }
 211                 if ($type eq "typedef") {
 212                         $typedefs{$old} = $new if (exists($typedefs{$old}));
 213                         next;
 214                 }
 215                 if ($type eq "enum") {
 216                         $enums{$old} = $new if (exists($enums{$old}));
 217                         next;
 218                 }
 219                 if ($type eq "struct") {
 220                         $structs{$old} = $new if (exists($structs{$old}));
 221                         next;
 222                 }
 223
 224                 die "Can't parse $file_exceptions: $_";
 225         }
 226 }
 227
 228 if ($debug) {
 229         print Data::Dumper->Dump([\%ioctls], [qw(*ioctls)]) if (%ioctls);
 230         print Data::Dumper->Dump([\%typedefs], [qw(*typedefs)]) if (%typedefs);
 231         print Data::Dumper->Dump([\%enums], [qw(*enums)]) if (%enums);
 232         print Data::Dumper->Dump([\%structs], [qw(*structs)]) if (%structs);
 233         print Data::Dumper->Dump([\%defines], [qw(*defines)]) if (%defines);
 234         print Data::Dumper->Dump([\%enum_symbols], [qw(*enum_symbols)]) if (%enum_symbols);
 235 }
 236
 237 #
 238 # Align block
 239 #
 240 $data = expand($data);
 241 $data = "    " . $data;
 242 $data =~ s/\n/\n    /g;
 243 $data =~ s/\n\s+$/\n/g;
 244 $data =~ s/\n\s+\n/\n\n/g;
 245
 246 #
 247 # Add escape codes for special characters
 248 #
 249 $data =~ s,([\_\`\*\<\>\&\\\\:\/\|\%\$\#\{\}\~\^]),\\$1,g;
 250
 251 $data =~ s,DEPRECATED,**DEPRECATED**,g;
 252
 253 #
 254 # Add references
 255 #
 256
 257 my $start_delim = "[ \n\t\(\=\*\@]";
 258 my $end_delim = "(\\s|,|\\\\=|\\\\:|\\;|\\\)|\\}|\\{)";
 259
 260 foreach my $r (keys %ioctls) {
 261         my $s = $ioctls{$r};
 262
 263         $r =~ s,([\_\`\*\<\>\&\\\\:\/]),\\\\$1,g;
 264
 265         print "$r -> $s\n" if ($debug);
 266
 267         $data =~ s/($start_delim)($r)$end_delim/$1$s$3/g;
 268 }
 269
 270 foreach my $r (keys %defines) {
 271         my $s = $defines{$r};
 272
 273         $r =~ s,([\_\`\*\<\>\&\\\\:\/]),\\\\$1,g;
 274
 275         print "$r -> $s\n" if ($debug);
 276
 277         $data =~ s/($start_delim)($r)$end_delim/$1$s$3/g;
 278 }
 279
 280 foreach my $r (keys %enum_symbols) {
 281         my $s = $enum_symbols{$r};
 282
 283         $r =~ s,([\_\`\*\<\>\&\\\\:\/]),\\\\$1,g;
 284
 285         print "$r -> $s\n" if ($debug);
 286
 287         $data =~ s/($start_delim)($r)$end_delim/$1$s$3/g;
 288 }
 289
 290 foreach my $r (keys %enums) {
 291         my $s = $enums{$r};
 292
 293         $r =~ s,([\_\`\*\<\>\&\\\\:\/]),\\\\$1,g;
 294
 295         print "$r -> $s\n" if ($debug);
 296
 297         $data =~ s/enum\s+($r)$end_delim/$s$2/g;
 298 }
 299
 300 foreach my $r (keys %structs) {
 301         my $s = $structs{$r};
 302
 303         $r =~ s,([\_\`\*\<\>\&\\\\:\/]),\\\\$1,g;
 304
 305         print "$r -> $s\n" if ($debug);
 306
 307         $data =~ s/struct\s+($r)$end_delim/$s$2/g;
 308 }
 309
 310 foreach my $r (keys %typedefs) {
 311         my $s = $typedefs{$r};
 312
 313         $r =~ s,([\_\`\*\<\>\&\\\\:\/]),\\\\$1,g;
 314
 315         print "$r -> $s\n" if ($debug);
 316         $data =~ s/($start_delim)($r)$end_delim/$1$s$3/g;
 317 }
 318
 319 $data =~ s/\\ ([\n\s])/\1/g;
 320
 321 #
 322 # Generate output file
 323 #
 324
 325 my $title = $file_in;
 326 $title =~ s,.*/,,;
 327
 328 open OUT, "> $file_out" or die "Can't open $file_out";
 329 print OUT ".. -*- coding: utf-8; mode: rst -*-\n\n";
 330 print OUT "$title\n";
 331 print OUT "=" x length($title);
 332 print OUT "\n\n.. parsed-literal::\n\n";
 333 print OUT $data;
 334 close OUT;
 335
 336 __END__
 337
 338 =head1 NAME
 339
 340 parse_headers.pl - parse a C file, in order to identify functions, structs,
 341 enums and defines and create cross-references to a Sphinx book.
 342
 343 =head1 SYNOPSIS
 344
 345 B<parse_headers.pl> [<options>] <C_FILE> <OUT_FILE> [<EXCEPTIONS_FILE>]
 346
 347 Where <options> can be: --debug, --help or --man.
 348
 349 =head1 OPTIONS
 350
 351 =over 8
 352
 353 =item B<--debug>
 354
 355 Put the script in verbose mode, useful for debugging.
 356
 357 =item B<--usage>
 358
 359 Prints a brief help message and exits.
 360
 361 =item B<--help>
 362
 363 Prints a more detailed help message and exits.
 364
 365 =back
 366
 367 =head1 DESCRIPTION
 368
 369 Convert a C header or source file (C_FILE), into a ReStructured Text
 370 included via ..parsed-literal block with cross-references for the
 371 documentation files that describe the API. It accepts an optional
 372 EXCEPTIONS_FILE with describes what elements will be either ignored or
 373 be pointed to a non-default reference.
 374
 375 The output is written at the (OUT_FILE).
 376
 377 It is capable of identifying defines, functions, structs, typedefs,
 378 enums and enum symbols and create cross-references for all of them.
 379 It is also capable of distinguish #define used for specifying a Linux
 380 ioctl.
 381
 382 The EXCEPTIONS_FILE contain two rules to allow ignoring a symbol or
 383 to replace the default references by a custom one.
 384
 385 Please read Documentation/doc-guide/parse-headers.rst at the Kernel's
 386 tree for more details.
 387
 388 =head1 BUGS
 389
 390 Report bugs to Mauro Carvalho Chehab <mchehab@s-opensource.com>
 391
 392 =head1 COPYRIGHT
 393
 394 Copyright (c) 2016 by Mauro Carvalho Chehab <mchehab@s-opensource.com>.
 395
 396 License GPLv2: GNU GPL version 2 <http://gnu.org/licenses/gpl.html>.
 397
 398 This is free software: you are free to change and redistribute it.
 399 There is NO WARRANTY, to the extent permitted by law.
 400
 401 =cut