X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=src%2Fvars-atr.c;h=160894b4f9fd6d4197788ad8e7226a26152f697a;hb=e210b20bf6f405637c8c03dd280b5a4a627191b8;hp=a31bdb3ce7c0e28f5a31a95b75122041b96e89cf;hpb=6ac27d1da3fdebee275343fcf7b6625fc1f1da79;p=pspp

diff --git a/src/vars-atr.c b/src/vars-atr.c
index a31bdb3ce7..160894b4f9 100644
--- 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