From 0142692aedc3579330722fe8217bc5d66790cd3d Mon Sep 17 00:00:00 2001 From: Dietmar Maurer Date: Sun, 9 Oct 2016 10:08:50 +0200 Subject: [PATCH] scan-adoc-refs: improve title parser, store doctype We store the titel heading level (0 => chapter, 1 => article). --- scan-adoc-refs | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/scan-adoc-refs b/scan-adoc-refs index c3ac08f..6563c35 100755 --- a/scan-adoc-refs +++ b/scan-adoc-refs @@ -122,9 +122,20 @@ sub scan_adoc_file { my $title = $fileinfo->{titles}->{$e}->{$filename}; next if defined($title); - if (($line =~ m/^=====+/) || ($line =~ m/^-----+/)) { + if ($line =~ m/^=====+$/) { $fileinfo->{titles}->{$e}->{$filename} = $env_last_line->{$e}; + $fileinfo->{doctype}->{$e}->{$filename} = 0; + } elsif ($line =~ m/^-----+$/) { + $fileinfo->{titles}->{$e}->{$filename} = $env_last_line->{$e}; + $fileinfo->{doctype}->{$e}->{$filename} = 1; + } elsif ($line =~ m/^= +(\S.*?)( +=)?$/) { + $fileinfo->{titles}->{$e}->{$filename} = $1; + $fileinfo->{doctype}->{$e}->{$filename} = 0; + } elsif ($line =~ m/^== +(\S.*?)( +==)?$/) { + $fileinfo->{titles}->{$e}->{$filename} = $1; + $fileinfo->{doctype}->{$e}->{$filename} = 1; } + $env_last_line->{$e} = $line; chomp $env_last_line->{$e}; } -- 2.39.2