check-compose: auch Dopplungen erkennen

git-svn-id: https://svn.neo-layout.org@1927 b9310e46-f624-0410-8ea1-cfbb3a30dc96

1 files changed, 13 insertions, 1 deletions

diff --git a/Compose/check-compose.pl b/Compose/check-compose.pl
index 8e3b139..53e5f76 100755
--- a/Compose/check-compose.pl
+++ b/Compose/check-compose.pl
@@ -1,6 +1,8 @@
 #!/usr/bin/perl -w
 
-# Dieses Skript prüft übergebene Compose-Dateien auf Präfix-Eigenschaft
+# Dieses Skript prüft übergebene Compose-Dateien auf 
+# Präfix-Eigenschaft und auf Code-Dopplungen
+#
 # Beispiel-Aufruf:
 #
 # ./check-compose.pl *.neo
@@ -29,7 +31,17 @@ EOF
 	}
     }
 
+    if ($code{"@codes"}) {
+	    print <<EOF;
+
+* @codes Sequenz mehrfach verwendet
+ $line
+ $code{"@codes"}
+EOF
+    }
+
     $code{"@codes"} = $line;
+
     if ($prefix{"@codes"}) {
 	    print <<EOF;