X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fvalue.c;h=ce80076235f8c730a3be760f4931b6a19e0c05ae;hb=c972eebe3286130ba9af8b0520a35a42a8d5ef75;hp=422639b17819375f9f3619cdb8490e377468e730;hpb=f550aee00a62fe1d8baf62d83cd7efef6cc2ee92;p=pspp diff --git a/src/data/value.c b/src/data/value.c index 422639b178..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