check for trailing brackets in named lexicons

apertium · Jun 27, 2024 · 98d02ce · 98d02ce
1 parent dae5c8f
commit 98d02ce
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 1 deletion.
diff --git a/configure.ac b/configure.ac
@@ -1,6 +1,6 @@
 AC_PREREQ(2.61)
 
-AC_INIT([lexd], [1.3.4], [[email protected]])
+AC_INIT([lexd], [1.3.5], [[email protected]])
 AM_INIT_AUTOMAKE
 AC_CONFIG_MACRO_DIR([m4])
 

diff --git a/src/lexdcompiler.cc b/src/lexdcompiler.cc
@@ -1004,6 +1004,7 @@ LexdCompiler::processNextLine()
     for(unsigned int i = 0; i < currentLexiconPartCount; i++)
     {
       entry.push_back(processLexiconSegment(iter, line, i));
+      if (*iter == "]") die("Unexpected closing bracket.");
     }
     if(*iter == ' ') ++iter;
     if(!iter.at_end())

diff --git a/tests/feature/Makefile b/tests/feature/Makefile
@@ -44,6 +44,7 @@ check-pos: $(foreach src,$(sources),$(O)/$(src).txt.strings.check)
 
 negtests = \
   col0 \
+  trailing-bracket \
 
 negsources = $(foreach test,$(negtests),negtest-$(test).lexd)
 

diff --git a/tests/feature/negtest-trailing-bracket.lexd b/tests/feature/negtest-trailing-bracket.lexd
@@ -0,0 +1,5 @@
+PATTERNS
+X
+
+LEXICON X
+a]