File tree Expand file tree Collapse file tree 1 file changed +17
-0
lines changed Expand file tree Collapse file tree 1 file changed +17
-0
lines changed Original file line number Diff line number Diff line change @@ -287,6 +287,8 @@ sub create_labels {
287287sub output_rest {
288288 create_labels();
289289
290+ my $part = " " ;
291+
290292 foreach my $what (sort {
291293 ($data {$a }-> {type } eq " File" ) cmp ($data {$b }-> {type } eq " File" ) ||
292294 $a cmp $b
@@ -306,6 +308,21 @@ sub output_rest {
306308 $w =~ s / ([\(\)\_\-\*\=\^\~\\ ])/ \\ $1 / g ;
307309
308310 if ($type ne " File" ) {
311+ my $cur_part = $what ;
312+ if ($what =~ ' /' ) {
313+ if ($what =~ m # ^(\/ ?(?:[\w\- ]+\/ ?){1,2})# ) {
314+ $cur_part = " Symbols under $1 " ;
315+ $cur_part =~ s ,/$, ,;
316+ }
317+ }
318+
319+ if ($cur_part ne " " && $part ne $cur_part ) {
320+ $part = $cur_part ;
321+ my $bar = $part ;
322+ $bar =~ s / ./ -/ g ;
323+ print " $part \n $bar \n\n " ;
324+ }
325+
309326 printf " .. _%s :\n\n " , $data {$what }-> {label };
310327
311328 my @names = split /, /,$w ;
You can’t perform that action at this time.
0 commit comments