Fri Nov 4 19:43:01 2005 Ben Pfaff <blp@gnu.org>

[pspp-builds.git] / src / vars-atr.c

diff --git a/src/vars-atr.c b/src/vars-atr.c
index a31bdb3ce7c0e28f5a31a95b75122041b96e89cf..160894b4f9fd6d4197788ad8e7226a26152f697a 100644 (file)
--- a/src/vars-atr.c
+++ b/src/vars-atr.c
@@ -32,6 +32,21 @@
 #include "gettext.h"
 #define _(msgid) gettext (msgid)
 
+/* Returns an adjective describing the given variable TYPE,
+   suitable for use in phrases like "numeric variable". */
+const char *
+var_type_adj (enum var_type type) 
+{
+  return type == NUMERIC ? _("numeric") : _("string");
+}
+
+/* Returns a noun describing a value of the given variable TYPE,
+   suitable for use in phrases like "a number". */
+const char *
+var_type_noun (enum var_type type) 
+{
+  return type == NUMERIC ? _("number") : _("string");
+}
 
 /* Assign auxiliary data AUX to variable V, which must not
    already have auxiliary data.  Before V's auxiliary data is