summaryrefslogtreecommitdiff
path: root/Compose/check-compose.pl
diff options
context:
space:
mode:
authorhans-christoph <hans-christoph@b9310e46-f624-0410-8ea1-cfbb3a30dc96>2009-07-14 13:35:59 +0000
committerhans-christoph <hans-christoph@b9310e46-f624-0410-8ea1-cfbb3a30dc96>2009-07-14 13:35:59 +0000
commitce9661da773f129cfa3463f14ad4023c8c17e6d7 (patch)
tree2d63fc0a6dd0f94382c2ef521f7993f6ca18e28c /Compose/check-compose.pl
parent15be884f90285fc931609fc67fcacd12e3e0bd41 (diff)
downloadneo-layout-ce9661da773f129cfa3463f14ad4023c8c17e6d7.tar.gz
neo-layout-ce9661da773f129cfa3463f14ad4023c8c17e6d7.tar.bz2
neo-layout-ce9661da773f129cfa3463f14ad4023c8c17e6d7.zip
Aufräumen in Compose und Unterverzeichnissen.
- Directory src erzeugt, welches alle Modul-Quelldateien aufnimmt - Umbenennen der Modul-Quelldateien: Compose.neo src/base.module Compose_greek.neo src/greek.module Compose_many_klingon_numericals.neo src/klingon.module Compose_many_roman_numericals.neo src/roman.module Compose_math_and_physics.neo src/math.module Compose_sprachen.neo src/lang.module - Löschen der zusammengesetzten generierbaren Dateien: Compose_neo_greek.neo Compose_neo_math.neo Compose_neo_rom.neo - Makefile erneuert: make kurzer Hilfetext make XCompose_m1_m2_m3 baut Module m1 bis m3 zusammen make all erzeuge Default-Dateien make clean räume Directory auf make check verifiziere XCompose*-Dateien - Neues Directory `contrib': enthält Informationen, die veraltet sind, nicht mehr gepflegt werden, oder aus einem anderen Grund nicht Teil der offiziellen Release zu sein brauchen. - eigene_compose_erstellen/compose.sh: ist nun im Grunde überflüssig, wurde nach contrib verschoben git-svn-id: https://svn.neo-layout.org@1928 b9310e46-f624-0410-8ea1-cfbb3a30dc96
Diffstat (limited to 'Compose/check-compose.pl')
-rwxr-xr-xCompose/check-compose.pl12
1 files changed, 10 insertions, 2 deletions
diff --git a/Compose/check-compose.pl b/Compose/check-compose.pl
index 53e5f76..0c373ae 100755
--- a/Compose/check-compose.pl
+++ b/Compose/check-compose.pl
@@ -8,6 +8,10 @@
# ./check-compose.pl *.neo
use strict;
+use Getopt::Std;
+our ($opt_q);
+
+getopts('q'); # almost quiet operation
my %prefix;
my %code;
@@ -22,6 +26,7 @@ while (my $line = <>) {
$prefix{"@codes[0..$i]"} = $line;
if ($code{"@codes[0..$i]"}) {
+ if ($opt_q) { exit 1; }
print <<EOF;
* @codes[0..$i] Präfix bereits terminal verwendet
@@ -32,7 +37,8 @@ EOF
}
if ($code{"@codes"}) {
- print <<EOF;
+ if ($opt_q) { exit 1; }
+ print <<EOF;
* @codes Sequenz mehrfach verwendet
$line
@@ -43,7 +49,8 @@ EOF
$code{"@codes"} = $line;
if ($prefix{"@codes"}) {
- print <<EOF;
+ if ($opt_q) { exit 1; }
+ print <<EOF;
* @codes Sequenz bereits als Präfix verwendet
$line
@@ -51,3 +58,4 @@ EOF
EOF
}
}
+