development/tools/alpha_lfuns.pl

   1 #!/usr/bin/perl
   2
   3 @lines;
   4
   5 while (<>) { push @lines, $_; }
   6
   7 $l = 0;
   8 $found = 0;
   9 while (1) {
  10     if ($lines[$l] =~ m{^/\*!}) {
  11         last if $found == 2;
  12         $found++;
  13     }
  14     print $lines[$l];
  15     $l++;
  16 }
  17
  18 $cmdlines = [$line];
  19 %cmds;
  20 $cmdname = "";
  21
  22 while (1) {
  23     $line = $lines[$l];
  24     if ($line =~ /{ LFUN_NOACTION, "", Noop, Hidden }/) {
  25         push @$cmdlines, "\n";
  26         $cmds{$cmdname} = $cmdlines;
  27         $cmdlines = [$line];
  28         last;
  29     }
  30     if ($line =~ m/^\s*{\s*LFUN_([^,]+)/) {
  31         $cmdname = $1;
  32         push @$cmdlines, $line;
  33     }
  34     elsif ($line =~ m{^/\*!}) {
  35         push @$cmdlines, "\n";
  36         $cmds{$cmdname} = $cmdlines;
  37         $cmdlines = [$line];
  38     }
  39     else {
  40         push @$cmdlines, $line;
  41     }
  42     $l++;
  43 }
  44
  45 # Now output those, in order
  46
  47 foreach $c (sort keys %cmds) {
  48     print @{$cmds{$c}};
  49 }
  50
  51 while ($l < scalar @lines) {
  52     print $lines[$l]; $l++;
  53 }