Changeset 1927 for Compose/check-compose.pl

Timestamp:

07/13/09 13:15:34 (4 years ago)

Author:

hans-christoph

Message:

check-compose: auch Dopplungen erkennen

Files:

• Compose/check-compose.pl (modified) (2 diffs)

Compose/check-compose.pl

@@ -1 +1 @@
 #!/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:
 #
@@ -30 +32 @@
     }
 
+    if ($code{"@codes"}) {
+            print <<EOF;
+
+* @codes Sequenz mehrfach verwendet
+ $line
+ $code{"@codes"}
+EOF
+    }
+
     $code{"@codes"} = $line;
+
     if ($prefix{"@codes"}) {
             print <<EOF;