X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fvalue.h;h=97d07b4632ed972e009b94a965ec9900e1eb9b14;hb=68af3306969829d17a05cfab5c9d46cb920b7607;hp=17f60bbd01bc40dd908dd2114fa3a6c983439968;hpb=393668423c1c9456fd82db6b30f25de078915da5;p=pspp diff --git a/src/data/value.h b/src/data/value.h index 17f60bbd01..97d07b4632 100644 --- a/src/data/value.h +++ b/src/data/value.h @@ -1,6 +1,5 @@ /* PSPP - computes sample statistics. Copyright (C) 1997-9, 2000 Free Software Foundation, Inc. - Written by Ben Pfaff . This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as @@ -21,59 +20,34 @@ #define value_h 1 #include - +#include +#include "minmax.h" #include /* Values. */ -/* Max length of a short string value, generally 8 chars. */ -#define MAX_SHORT_STRING ( (SIZEOF_DOUBLE)>=8 ? (SIZEOF_DOUBLE + 1)/2 * 2 : 8 ) - +/* "Short" strings, which are generally those no more than 8 + characters wide, can participate in more operations than + longer strings. */ +#define MAX_SHORT_STRING (MAX (ROUND_UP (SIZEOF_DOUBLE, 2), 8)) #define MIN_LONG_STRING (MAX_SHORT_STRING + 1) - -/* Max string length. */ -#define MAX_LONG_STRING 255 - -/* This nonsense is required for SPSS compatibility */ -#define EFFECTIVE_LONG_STRING_LENGTH (MAX_LONG_STRING - 3) - -#define MAX_VERY_LONG_STRING 32767 - -#define MAX_STRING MAX_VERY_LONG_STRING - +#define MAX_STRING 32767 /* Special values. */ #define SYSMIS (-DBL_MAX) #define LOWEST second_lowest_value #define HIGHEST DBL_MAX -/* Describes one value, which is either a floating-point number or a - short string. */ +/* A numeric or short string value. + Multiple consecutive values represent a long string. */ union value { - /* A numeric value. */ double f; - - /* A short-string value. */ char s[MAX_SHORT_STRING]; - - /* Used by evaluate_expression() to return a string result. - As currently implemented, it's a pointer to a dynamic - buffer in the appropriate expression. - - Also used by the AGGREGATE procedure in handling string - values. */ - char *c; }; -/* Maximum number of `union value's in a single number or string - value. */ -#define MAX_ELEMS_PER_VALUE (MAX_STRING / sizeof (union value) + 1) - -int compare_values (const union value *a, const union value *b, int width); - -unsigned hash_value(const union value *v, int width); - - +union value *value_dup (const union value *, int width); +int compare_values (const union value *, const union value *, int width); +unsigned hash_value (const union value *, int width); #endif /* !value.h */