From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Mon, 3 Dec 2018 12:03:19 +0000 (+0000)
Subject: docs/parse-support-md: Break out descr2key
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=f0a773939727efb0a0553b1909ed6571b8092f69;p=people%2Fpauldu%2Fxen.git

docs/parse-support-md: Break out descr2key

We are going to want to reuse this.  No functional change.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
Acked-by: Juergen Gross <jgross@suse.com>
---

diff --git a/docs/parse-support-md b/docs/parse-support-md
index bbe4d045e1..e2d0187dd1 100755
--- a/docs/parse-support-md
+++ b/docs/parse-support-md
@@ -137,6 +137,19 @@ sub parse_feature_entry ($) {
     $sectnode->{Status}[$version_index] = $value;
 }
 
+sub descr2key ($) {
+    my ($descr) = @_;
+
+    die unless @insections;
+    my $insection = $insections[$#insections];
+
+    my $key = lc $descr;
+    $key =~ y/ /-/;
+    $key =~ y/-0-9A-Za-z//cd;
+    $key = $insection->{Anchor}.'--'.$key;
+    return $key;
+}
+
 sub ri_CodeBlock {
     my ($c) = @_;
     my ($infos, $text) = @$c;
@@ -164,17 +177,10 @@ sub ri_CodeBlock {
                     ($toplevel and 'top').
                     "\n$l\n ?");
 
-        die unless @insections;
-        my $insection = $insections[$#insections];
-
         if (length $descr) {
-            my $key = lc $descr;
-            $key =~ y/ /-/;
-            $key =~ y/-0-9A-Za-z//cd;
-            $key = $insection->{Anchor}.'--'.$key;
             push @insections,
                 {
-                 Key => $key,
+                 Key => descr2key($descr),
                  Headline => [{ t => 'Str', c => $descr }],
                 };
         }