[Pspp-cvs] Changes to pspp/src/vars-atr.c

[Ben Pfaff]

Index: pspp/src/vars-atr.c
diff -u pspp/src/vars-atr.c:1.28 pspp/src/vars-atr.c:1.29
--- pspp/src/vars-atr.c:1.28    Wed Oct 26 00:50:44 2005
+++ pspp/src/vars-atr.c Sat Nov  5 03:45:28 2005
@@ -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