X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fmath%2Finteraction.c;fp=src%2Fmath%2Finteraction.c;h=afdc3277754884a69fe83b090c2c380321d55935;hb=76e1b0aef6b1cc3b911c4833565109eaa424f9a5;hp=aa24250007da27b09723f5ddc4f115419fb10db5;hpb=3a82e941418b74d8f270cf164291a3938fff61d5;p=pspp

diff --git a/src/math/interaction.c b/src/math/interaction.c
index aa24250007..afdc327775 100644
--- a/src/math/interaction.c
+++ b/src/math/interaction.c
@@ -130,6 +130,25 @@ interaction_case_equal (const struct interaction *iact, const struct ccase *c1,
   return same;
 }
 
+
+int
+interaction_case_cmp_3way (const struct interaction *iact, const struct ccase *c1, const struct ccase *c2)
+{
+  int i;
+  int result = 0;
+
+  for (i = 0; i < iact->n_vars; ++i)
+    {
+      const struct variable *var = iact->vars[i];
+      result = value_compare_3way (case_data (c1, var), case_data (c2, var), var_get_width (var));
+      if (result != 0)
+	break;
+    }
+
+  return result;
+}
+
+
 bool
 interaction_case_is_missing (const struct interaction *iact, const struct ccase *c, enum mv_class exclude)
 {