From 15be884f90285fc931609fc67fcacd12e3e0bd41 Mon Sep 17 00:00:00 2001
From: hans-christoph <hans-christoph@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Mon, 13 Jul 2009 11:15:34 +0000
Subject: check-compose: auch Dopplungen erkennen

git-svn-id: https://svn.neo-layout.org@1927 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 Compose/check-compose.pl | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

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;
 
-- 
cgit v1.2.3