vardict: Make vardict opaque to variable code.

[pspp] / src / data / vardict.h

diff --git a/src/data/vardict.h b/src/data/vardict.h
index b4552cf17e014a6a4044b25c129f03e752ff2ce5..63ec88cb8e24e687a1cb55aa2af263797f78047e 100644 (file)
--- a/src/data/vardict.h
+++ b/src/data/vardict.h
@@ -23,7 +23,7 @@
 
 struct dictionary ;
 
-/* Dictionary data stored in variable. */
+/* Dictionary data associated with variable. */
 struct vardict_info
   {
     int dict_index;     /* Dictionary index containing the variable. */
@@ -32,15 +32,32 @@ struct vardict_info
   };
 
 /* Called by dictionary code, defined in variable.c. */
-const struct vardict_info *var_get_vardict (const struct variable *);
-void var_set_vardict (struct variable *, const struct vardict_info *);
+struct vardict_info *var_get_vardict (const struct variable *);
+void var_set_vardict (struct variable *, struct vardict_info *);
 bool var_has_vardict (const struct variable *);
 void var_clear_vardict (struct variable *);
 
-
 /* Called by variable.c, defined in dictionary.c. */
 void dict_var_changed (const struct variable *v);
 void dict_var_resized (const struct variable *v, int old_width);
 void dict_var_display_width_changed (const struct variable *v);
 
+static inline int
+vardict_get_dict_index (const struct vardict_info *vardict)
+{
+  return vardict->dict_index;
+}
+
+static inline int
+vardict_get_case_index (const struct vardict_info *vardict)
+{
+  return vardict->case_index;
+}
+
+static inline struct dictionary *
+vardict_get_dictionary (const struct vardict_info *vardict)
+{
+  return vardict->dict;
+}
+
 #endif /* data/vardict.h */