summaryrefslogtreecommitdiffstats
path: root/Compose/check-compose.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Compose/check-compose.pl')
-rwxr-xr-xCompose/check-compose.pl14
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;