X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fautorecode.c;h=89f546f2da8cf81e27fcb2f13a14cdc470834e81;hb=5e89e0049bd55f22412f547d8d7bfefc69443e98;hp=1aea061f5af3f6e45b893245aeceb9a51b418bf5;hpb=2322678e8fddbbf158b01b2720db2636404bba3b;p=pspp diff --git a/src/language/stats/autorecode.c b/src/language/stats/autorecode.c index 1aea061f5a..89f546f2da 100644 --- a/src/language/stats/autorecode.c +++ b/src/language/stats/autorecode.c @@ -18,20 +18,22 @@ 02110-1301, USA. */ #include -#include "message.h" #include -#include "alloc.h" -#include "case.h" -#include "command.h" -#include "compiler.h" -#include "dictionary.h" -#include "message.h" -#include "hash.h" -#include "lexer.h" -#include "pool.h" -#include "str.h" -#include "variable.h" -#include "procedure.h" + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include #include "gettext.h" #define _(msgid) gettext (msgid) @@ -83,7 +85,7 @@ struct autorecode_pgm static trns_proc_func autorecode_trns_proc; static trns_free_func autorecode_trns_free; -static bool autorecode_proc_func (struct ccase *, void *); +static bool autorecode_proc_func (const struct ccase *, void *); static hsh_compare_func compare_alpha_value, compare_numeric_value; static hsh_hash_func hash_alpha_value, hash_numeric_value; @@ -178,11 +180,8 @@ cmd_autorecode (void) ok = procedure (autorecode_proc_func, &arc); for (i = 0; i < arc.var_cnt; i++) - { - arc.dst_vars[i] = dict_create_var_assert (default_dict, - arc.dst_names[i], 0); - arc.dst_vars[i]->init = 0; - } + arc.dst_vars[i] = dict_create_var_assert (default_dict, + arc.dst_names[i], 0); recode (&arc); arc_free (&arc); @@ -339,7 +338,7 @@ hash_numeric_value (const void *a_, void *foo UNUSED) } static bool -autorecode_proc_func (struct ccase *c, void *arc_) +autorecode_proc_func (const struct ccase *c, void *arc_) { struct autorecode_pgm *arc = arc_; size_t i;