q2c: Use new subc_list_error() to report too many subcommands.

[pspp-builds.git] / src / language / lexer / subcommand-list.c

diff --git a/src/language/lexer/subcommand-list.c b/src/language/lexer/subcommand-list.c
index 5cec533c965756a80782eff1ae753ffe99fa33fd..289179b239eef2029662eb1060ecaf7153420ae2 100644 (file)
--- a/src/language/lexer/subcommand-list.c
+++ b/src/language/lexer/subcommand-list.c
@@ -1,5 +1,5 @@
 /* PSPP - a program for statistical analysis.
-   Copyright (C) 2004 Free Software Foundation, Inc.
+   Copyright (C) 2004, 2011 Free Software Foundation, Inc.
 
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -16,9 +16,13 @@
 
 
 #include <config.h>
-#include "subcommand-list.h"
+#include "language/lexer/subcommand-list.h"
 #include <stdlib.h>
-#include "xalloc.h"
+#include "language/lexer/lexer.h"
+#include "gl/xalloc.h"
+
+#include "gettext.h"
+#define _(msgid) gettext (msgid)
 
 /* I call these objects `lists' but they are in fact simple dynamic arrays */
 
@@ -107,3 +111,10 @@ subc_list_int_destroy(subc_list_int *l)
 {
   free(l->data);
 }
+
+void
+subc_list_error (struct lexer *lexer, const char *sbc, int max_list)
+{
+  lex_error (lexer, _("No more than %d %s subcommands allowed."),
+             max_list, sbc);
+}