X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fvalue.c;h=ce80076235f8c730a3be760f4931b6a19e0c05ae;hb=8e4a0daa2b60e5ebf6fa4ff83ad98d78a8de0dff;hp=65b250e085f40c1a791735bbb6273c2df7f664ff;hpb=6d53d2b45f5385271dd21e8df1b5ac23d20be9fb;p=pspp diff --git a/src/data/value.c b/src/data/value.c index 65b250e085..ce80076235 100644 --- a/src/data/value.c +++ b/src/data/value.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 1997-9, 2000, 2009, 2010 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -15,17 +15,18 @@ along with this program. If not, see . */ #include -#include -#include -#include -#include -#include -#include -#include +#include "data/value.h" -#include "minmax.h" -#include "xalloc.h" +#include "data/val-type.h" +#include "data/variable.h" +#include "libpspp/hash-functions.h" +#include "libpspp/pool.h" +#include "libpspp/str.h" +#include "gl/unistr.h" + +#include "gl/minmax.h" +#include "gl/xalloc.h" /* Copies the contents of string value SRC with width SRC_WIDTH to string value DST with width DST_WIDTH. If SRC_WIDTH is @@ -172,6 +173,21 @@ value_resize (union value *value, int old_width, int new_width) } } +/* Returns true if VALUE, with the given WIDTH, is all spaces, false otherwise. + Returns false if VALUE is numeric. */ +bool +value_is_spaces (const union value *value, int width) +{ + const uint8_t *s = value_str (value, width); + int i; + + for (i = 0; i < width; i++) + if (s[i] != ' ') + return false; + + return true; +} + /* Returns true if resizing a value from OLD_WIDTH to NEW_WIDTH actually changes anything, false otherwise. If false is returned, calls to value_resize() with the specified