summaryrefslogtreecommitdiffstats
path: root/Compose/check-compose.pl
diff options
context:
space:
mode:
authorhans-christoph <hans-christoph@b9310e46-f624-0410-8ea1-cfbb3a30dc96>2009-07-13 11:15:34 +0000
committerhans-christoph <hans-christoph@b9310e46-f624-0410-8ea1-cfbb3a30dc96>2009-07-13 11:15:34 +0000
commit15be884f90285fc931609fc67fcacd12e3e0bd41 (patch)
tree2af9f2857b57abaf627fcb2e1aceead47cfa5dae /Compose/check-compose.pl
parentb367e7bd88517d657981f72d6d0a7d5dc80ef70e (diff)
check-compose: auch Dopplungen erkennen
git-svn-id: https://svn.neo-layout.org@1927 b9310e46-f624-0410-8ea1-cfbb3a30dc96
Diffstat (limited to '')
-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;