X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fcasereader-translator.c;h=d3388aa68b4d98ca3b69052338a412651aa9d5f3;hb=ada0a9f1d1ed94079e90fd2f0fe673ccddccceae;hp=fc823049d570df34863291ab4b0650f2cba6d26b;hpb=16e66034f4a0f17394ae2ab73d5976d9386a02cf;p=pspp diff --git a/src/data/casereader-translator.c b/src/data/casereader-translator.c index fc823049d5..d3388aa68b 100644 --- a/src/data/casereader-translator.c +++ b/src/data/casereader-translator.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 2007, 2009 Free Software Foundation, Inc. + Copyright (C) 2007, 2009, 2011 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,15 +15,16 @@ along with this program. If not, see . */ #include -#include -#include + #include -#include -#include -#include +#include "data/casereader-provider.h" +#include "data/casereader.h" +#include "data/val-type.h" +#include "data/variable.h" +#include "libpspp/taint.h" -#include "xalloc.h" +#include "gl/xalloc.h" /* Casereader that applies a user-supplied function to translate each case into another in an arbitrary fashion. */ @@ -356,7 +357,7 @@ static struct ccase *car_translate (struct ccase *input, void *car_); If DISTINCT_CALLBACK is non-null, then it will be called exactly once for every case containing a distinct value of V. AUX is - an auxilliary pointer passed to DISTINCT_CALLBACK. + an auxiliary pointer passed to DISTINCT_CALLBACK. After this function is called, SUBREADER must not ever again be referenced directly. It will be destroyed automatically @@ -498,7 +499,7 @@ uniquify (const struct ccase *c, void *aux) if ( NULL == next_case) goto end; - + dir = value_compare_3way (case_data (next_case, cdr->key), current_value, key_width); case_unref (next_case); @@ -509,7 +510,7 @@ uniquify (const struct ccase *c, void *aux) cdr->direction = dir; goto end; } - + return false; end: @@ -534,7 +535,7 @@ consolodate_weight (struct ccase *input, void *aux) else { c = case_unshare_and_resize (input, cdr->proto); - case_data_rw_idx (c, caseproto_get_n_widths (cdr->proto) - 1)->f = cdr->prev_cc; + case_data_rw_idx (c, caseproto_get_n_widths (cdr->proto) - 1)->f = cdr->prev_cc; } return c; @@ -555,7 +556,7 @@ uniquify_destroy (void *aux) -/* Returns a new casereader which is based upon INPUT, but which contains a maximum +/* Returns a new casereader which is based upon INPUT, but which contains a maximum of one case for each distinct value of KEY. If WEIGHT is non-null, then the new casereader's values for this variable will be the sum of all values matching KEY.