#include "tab.h"
#include "var.h"
#include "vector.h"
+#include "value-labels.h"
#include "vfm.h"
#include "vfmP.h"
(the data sink). The data source is then deleted and the data sink
becomes the data source for the next procedure. */
-#undef DEBUGGING
-/*#define DEBUGGING 1 */
#include "debug-print.h"
/* This is used to read from the active file. */
if (compaction_necessary)
compaction_case = xmalloc (sizeof (struct ccase)
+ sizeof (union value) * (compaction_nval - 1));
-
-#if __CHECKER__
- /* Initialize the unused trailing parts of string variables to avoid
- spurious warnings from Checker. */
- {
- int i;
-
- for (i = 0; i < default_dict.nvar; i++)
- {
- struct variable *v = default_dict.var[i];
-
- if (v->type == ALPHA && v->width % 8 != 0)
- memcpy (&temp_case->data[v->fv + v->nv - 1]
- .s[v->width % 8], _("!ERROR!"), 8 - v->width % 8);
- }
- }
-#endif
}
#if DEBUGGING
for (i = 0; i < default_dict.nvar; i++)
{
- variable *v = default_dict.var[i];
+ struct variable *v = default_dict.var[i];
if (ccase_index >= v->fv && ccase_index < v->fv + v->nv)
return default_dict.var[i]->name;
arrange_compaction ();
make_temp_case ();
vector_initialization ();
- setup_randomize ();
discard_ctl_stack ();
setup_filter ();
setup_lag ();
"memory",
};
\f
-#undef DEBUGGING
#include "debug-print.h"
/* Add temp_case to the lag queue. */
{
struct variable *v = *iter;
char temp_buf[80];
- char *val_lab;
+ const char *val_lab;
assert (v->type == NUMERIC || v->type == ALPHA);
tab_text (t, 0, i + 1, TAB_LEFT | TAT_PRINTF, "%s", v->name);
temp_buf[v->print.w] = 0;
tab_text (t, 1, i + 1, TAT_PRINTF, "%.*s", v->print.w, temp_buf);
- val_lab = get_val_lab (v, c->data[v->fv], 0);
+ val_lab = val_labs_find (v->val_labs, c->data[v->fv]);
if (val_lab)
tab_text (t, 2, i + 1, TAB_LEFT, val_lab);
}