Check Compose: Perlskript zur Überprüfung der Präfixeigenschaft

git-svn-id: https://svn.neo-layout.org@1926 b9310e46-f624-0410-8ea1-cfbb3a30dc96

1 files changed, 41 insertions, 0 deletions

diff --git a/Compose/check-compose.pl b/Compose/check-compose.pl
new file mode 100755
index 0000000..8e3b139
--- /dev/null
+++ b/Compose/check-compose.pl
@@ -0,0 +1,41 @@
+#!/usr/bin/perl -w
+
+# Dieses Skript prüft übergebene Compose-Dateien auf Präfix-Eigenschaft
+# Beispiel-Aufruf:
+#
+# ./check-compose.pl *.neo
+
+use strict;
+
+my %prefix;
+my %code;
+
+while (my $line = <>) {
+    chomp $line;
+    next unless ($line =~ /^([^#]+):/);
+
+    my @codes = split (/\s+/, $1);
+
+    for my $i (0..$#codes-1) {
+	$prefix{"@codes[0..$i]"} = $line;
+
+	if ($code{"@codes[0..$i]"}) {
+	    print <<EOF;
+
+* @codes[0..$i] Präfix bereits terminal verwendet
+ $line
+ $code{"@codes[0..$i]"}
+EOF
+	}
+    }
+
+    $code{"@codes"} = $line;
+    if ($prefix{"@codes"}) {
+	    print <<EOF;
+
+* @codes Sequenz bereits als Präfix verwendet
+ $line
+ $prefix{"@codes"}
+EOF
+    } 
+}