5 while (<>) { push @lines, $_; }
10 if ($lines[$l] =~ m{^/\*!}) {
24 if ($line =~ /{ LFUN_NOACTION, "", Noop, Hidden }/) {
25 push @$cmdlines, "\n";
26 $cmds{$cmdname} = $cmdlines;
30 if ($line =~ m/^\s*{\s*LFUN_([^,]+)/) {
32 push @$cmdlines, $line;
34 elsif ($line =~ m{^/\*!}) {
35 push @$cmdlines, "\n";
36 $cmds{$cmdname} = $cmdlines;
40 push @$cmdlines, $line;
45 # Now output those, in order
47 foreach $c (sort keys %cmds) {
51 while ($l < scalar @lines) {
52 print $lines[$l]; $l++;