From b0517f4907d011dd276d321d565ba08c8063131b Mon Sep 17 00:00:00 2001
From: Werner Lemberg <wl@gnu.org>
Date: Tue, 18 Oct 2016 18:37:50 +0200
Subject: [PATCH] erzeuge-wortliste.pl: Behandle `[.../...]'.

---
 skripte/erzeuge-wortliste.pl | 27 ++++++++++++++++++++++-----
 1 file changed, 22 insertions(+), 5 deletions(-)

diff --git a/skripte/erzeuge-wortliste.pl b/skripte/erzeuge-wortliste.pl
index 5c0910b..8023622 100644
--- a/skripte/erzeuge-wortliste.pl
+++ b/skripte/erzeuge-wortliste.pl
@@ -295,6 +295,23 @@ sub xx_x_ {
 }
 
 
+sub entferne_marker {
+  # Es gilt
+  #
+  #   [»Variante A«/»Variante B«] -> »Variante A«
+  #
+  # Beispiel:
+  #
+  #   Dru[-cker=/ck=er<.]zeug>nis -> Dru-cker=zeug>nis
+  #
+  # Beachte, daß {.../...} bei reformierter Rechtschreibung nicht auftreten
+  # kann.
+  $_[0] =~ s/\[ (.*?) \/ .*? \]/$1/gx;
+
+  $_[0] =~ s/\W//g;
+}
+
+
 # Gebe eine Zeile aus, unter Berücksichtigung der möglichen Zeilenformate.
 #
 sub zeile {
@@ -407,7 +424,7 @@ while (<>) {
   my $ref_trennung = $trennung;
 
   my $ref_wort = $trennung;
-  $ref_wort =~ s/\W//g;
+  entferne_marker($ref_wort);
 
   # reformierte Rechtschreibung, Versalform
   my $ref_versal_trennung = $trennung;
@@ -417,7 +434,7 @@ while (<>) {
   my $ref_versal_wort = $trennung;
   bindestrich_ß_1_($ref_versal_wort);
   ß_($ref_versal_wort);
-  $ref_versal_wort =~ s/\W//g;
+  entferne_marker($ref_versal_wort);
 
   # traditionelle Rechtschreibung
   my $trad_trennung = $trennung;
@@ -431,7 +448,7 @@ while (<>) {
   ck_($trad_wort);
   ss_($trad_wort);
   xx_x_($trad_wort);
-  $trad_wort =~ s/\W//g;
+  entferne_marker($trad_wort);
 
   # traditionelle Rechtschreibung, Versalform
   my $trad_versal_trennung = $trennung;
@@ -447,7 +464,7 @@ while (<>) {
   bindestrich_ß_2_($trad_versal_wort);
   ß_($trad_versal_wort);
   xx_x_($trad_versal_wort);
-  $trad_versal_wort =~ s/\W//g;
+  entferne_marker($trad_versal_wort);
 
   # traditionelle Rechtschreibung, schweizerdeutch
   my $trad_schweiz_trennung = $trennung;
@@ -467,7 +484,7 @@ while (<>) {
   ß_($trad_schweiz_wort);
   ss_s_($trad_schweiz_wort);
   xx_x_($trad_schweiz_wort);
-  $trad_schweiz_wort =~ s/\W//g;
+  entferne_marker($trad_schweiz_wort);
 
   if ($debug) {
     print "ref:           "
-- 
2.11.4.GIT