AGGREGATE: Bring up to speed.

[pspp] / src / libpspp / str.c

diff --git a/src/libpspp/str.c b/src/libpspp/str.c
index e851bac1f3f7cef17b35e134434be77f8a84570d..9cd6351e8d9d1dfdf67f1841b94233abad448f5e 100644 (file)
--- a/src/libpspp/str.c
+++ b/src/libpspp/str.c
@@ -839,6 +839,15 @@ ss_compare (struct substring a, struct substring b)
   return retval;
 }
 
+/* Compares A to B and returns a strcmp()-type comparison result.  The shorter
+   string is considered to be padded with spaces to the length of the
+   longer. */
+int
+ss_compare_rpad (struct substring a, struct substring b)
+{
+  return buf_compare_rpad (a.string, a.length, b.string, b.length);
+}
+
 /* Compares A and B case-insensitively and returns a
    strcmp()-type comparison result. */
 int