value_is_blank (const union value *val, int width, const struct dictionary *dict)
{
mbi_iterator_t iter;
- const char *str = CHAR_CAST_BUG (const char*, value_str (val, width));
+ const char *str = CHAR_CAST_BUG (const char *, val->s);
char *text = recode_string (UTF8, dict_get_encoding (dict), str, width);
for (mbi_init (iter, text, width); mbi_avail (iter); mbi_advance (iter))
struct casereader *input;
struct ccase *c;
- size_t i;
bool ok;
/* Create procedure. */
goto error;
}
- for (i = 0; i < n_dsts; i++)
+ for (size_t i = 0; i < n_dsts; i++)
{
const char *name = dst_names[i];
arc->blank_valid = false;
}
else
- goto error;
+ {
+ lex_error_expecting (lexer, "VALID", "MISSING");
+ goto error;
+ }
}
else
- goto error;
+ {
+ lex_error_expecting (lexer, "DESCENDING", "PRINT", "GROUP", "BLANK");
+ goto error;
+ }
}
if (lex_token (lexer) != T_ENDCMD)
arc->n_specs = n_dsts;
- for (i = 0; i < n_dsts; i++)
+ for (size_t i = 0; i < n_dsts; i++)
{
struct arc_spec *spec = &arc->specs[i];
/* Execute procedure. */
input = proc_open (ds);
for (; (c = casereader_read (input)) != NULL; case_unref (c))
- for (i = 0; i < arc->n_specs; i++)
+ for (size_t i = 0; i < arc->n_specs; i++)
{
struct arc_spec *spec = &arc->specs[i];
int width = spec->width;
dict = dataset_dict (ds);
/* Create transformation. */
- for (i = 0; i < arc->n_specs; i++)
+ for (size_t i = 0; i < arc->n_specs; i++)
{
struct arc_spec *spec = &arc->specs[i];
struct arc_item **items;
the source value from whence the new value comes. */
if (src_width > 0)
{
- const char *str = CHAR_CAST_BUG (const char*, value_str (from, src_width));
+ const char *str = CHAR_CAST_BUG (const char *, from->s);
recoded_value = recode_string (UTF8, dict_get_encoding (dict),
str, src_width);
}
add_transformation (ds, autorecode_trns_proc, autorecode_trns_free, arc);
- for (i = 0; i < n_dsts; i++)
+ for (size_t i = 0; i < n_dsts; i++)
free (dst_names[i]);
free (dst_names);
free (src_vars);
return ok ? CMD_SUCCESS : CMD_CASCADING_FAILURE;
error:
- for (i = 0; i < n_dsts; i++)
+ for (size_t i = 0; i < n_dsts; i++)
free (dst_names[i]);
free (dst_names);
free (src_vars);
{
if (arc != NULL)
{
- size_t i;
-
- for (i = 0; i < arc->n_specs; i++)
+ for (size_t i = 0; i < arc->n_specs; i++)
{
struct arc_spec *spec = &arc->specs[i];
struct arc_item *item, *next;
}
}
- for (i = 0; i < arc->n_specs; i++)
+ for (size_t i = 0; i < arc->n_specs; i++)
{
struct arc_spec *spec = &arc->specs[i];
if ( width_b == 0 && width_a != 0)
return +1;
- return buf_compare_rpad (CHAR_CAST_BUG (const char *, value_str (&(*a)->from, width_a)), width_a,
- CHAR_CAST_BUG (const char *, value_str (&(*b)->from, width_b)), width_b);
+ return buf_compare_rpad (CHAR_CAST_BUG (const char *, (*a)->from.s), width_a,
+ CHAR_CAST_BUG (const char *, (*b)->from.s), width_b);
}
static int
casenumber case_idx UNUSED)
{
struct autorecode_pgm *arc = arc_;
- size_t i;
*c = case_unshare (*c);
- for (i = 0; i < arc->n_specs; i++)
+ for (size_t i = 0; i < arc->n_specs; i++)
{
const struct arc_spec *spec = &arc->specs[i];
const union value *value = case_data_idx (*c, spec->src_idx);