diff options
| -rwxr-xr-x | Compose/check-compose.pl | 14 |
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; |