+/* Fill a case with SYSMIS for numeric and whitespace for string
+ variables respectively */
+static gboolean
+blank_case(struct ccase *cc, gpointer _dict)
+{
+ gint i;
+ PsppireDict *dict = _dict;
+
+ for(i = 0 ; i < psppire_dict_get_var_cnt(dict); ++i )
+ {
+ union value *val ;
+
+ const struct PsppireVariable *var = psppire_dict_get_variable(dict, i);
+
+ gint idx = psppire_variable_get_index(var);
+
+ val = case_data_rw(cc, idx) ;
+
+ if ( psppire_variable_get_type(var) == ALPHA )
+ memset(val->s, ' ', psppire_variable_get_width(var));
+ else
+ val->f = SYSMIS;
+
+ case_unshare(cc);
+ }
+
+ return TRUE;
+}
+