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

[Ben Pfaff]

Index: pspp/src/case.c
diff -u pspp/src/case.c:1.2 pspp/src/case.c:1.3
--- pspp/src/case.c:1.2 Mon Nov 15 09:51:22 2004
+++ pspp/src/case.c     Tue Mar  1 08:16:15 2005
@@ -152,6 +152,27 @@
 }
 #endif /* GLOBAL_DEBUGGING */
 
+/* Resizes case C from OLD_CNT to NEW_CNT values. */
+void
+case_resize (struct ccase *c, size_t old_cnt, size_t new_cnt) 
+{
+  struct ccase new;
+
+  case_create (&new, new_cnt);
+  case_copy (&new, 0, c, 0, old_cnt < new_cnt ? old_cnt : new_cnt);
+  case_swap (&new, c);
+  case_destroy (&new);
+}
+
+/* Swaps cases A and B. */
+void
+case_swap (struct ccase *a, struct ccase *b) 
+{
+  struct case_data *t = a->case_data;
+  a->case_data = b->case_data;
+  b->case_data = t;
+}
+
 /* Attempts to create C as a new case that holds VALUE_CNT
    values.  Returns nonzero if successful, zero if memory
    allocation failed. */