/**
* sv_select_cur_inputs :
* @sv: The sheet
*
* Select all cells that are direct potential inputs to the
* current cell.
**/
void
sv_select_cur_inputs (SheetView *sv)
{
GnmCell *cell;
GSList *ranges, *ptr;
GnmEvalPos ep;
g_return_if_fail (IS_SHEET_VIEW (sv));
cell = sheet_cell_get (sv->sheet,
sv->edit_pos.col, sv->edit_pos.row);
if (cell == NULL || !gnm_cell_has_expr (cell))
return;
ranges = gnm_expr_top_get_ranges (cell->base.texpr);
if (ranges == NULL)
return;
ep.eval = sv->edit_pos;
ep.sheet = sv->sheet;
ep.dep = NULL;
sv_selection_reset (sv);
for (ptr = ranges ; ptr != NULL ; ptr = ptr->next) {
GnmValue *v = ptr->data;
GnmRangeRef const *r = value_get_rangeref (v);
#warning "FIXME: What do we do in these 3D cases?"
if (r->a.sheet != r->b.sheet)
continue;
if (r->a.sheet != NULL && r->a.sheet != sv->sheet)
continue;
sv_selection_add_full (sv,
gnm_cellref_get_col (&r->a, &ep),
gnm_cellref_get_row (&r->a, &ep),
gnm_cellref_get_col (&r->a, &ep),
gnm_cellref_get_row (&r->a, &ep),
gnm_cellref_get_col (&r->b, &ep),
gnm_cellref_get_row (&r->b, &ep));
value_release (v);
}
g_slist_free (ranges);
sheet_update (sv->sheet);
}
static GnmValue *
get_single_cache_key_from_value (GnmValue const *r, GnmEvalPos const *ep)
{
GnmValue *key;
GnmSheetRange sr;
GnmRangeRef const *rr;
Sheet *end_sheet;
int h, w;
const int min_size = 25;
rr = value_get_rangeref (r);
gnm_rangeref_normalize (rr, ep, &sr.sheet, &end_sheet, &sr.range);
if (sr.sheet != end_sheet)
return NULL; /* 3D */
h = range_height (&sr.range);
w = range_width (&sr.range);
if (h < min_size && w < min_size && h * w < min_size)
return NULL;
key = value_new_cellrange_r (sr.sheet, &sr.range);
return key;
}
static void
copy_construct_xloper_from_gnm_value (XLOPER*out, const GnmValue*in,
GnmFuncEvalInfo *ei)
{
g_return_if_fail (NULL != out);
out->xltype = xltypeMissing;
out->val.num = 0;
if (NULL != in) {
switch (in->type) {
case VALUE_EMPTY:
out->xltype = xltypeNil;
break;
case VALUE_BOOLEAN:
out->xltype = xltypeBool;
out->val.boolean = (WORD)in->v_bool.val;
break;
case VALUE_FLOAT:
out->xltype = xltypeNum;
out->val.num = in->v_float.val;
break;
case VALUE_ERROR:
out->xltype = xltypeErr;
out->val.err = xloper_error_code_from_gnm_value (in);
break;
case VALUE_STRING:
out->xltype = xltypeStr;
out->val.str = pascal_string_from_c_string (in->v_str.val->str);
break;
case VALUE_CELLRANGE: {
GnmSheetRange sr;
GnmRangeRef const *rr = value_get_rangeref (in);
Sheet *end_sheet = NULL;
GnmValue *cell_value;
GnmCell *cell;
gnm_rangeref_normalize (rr, ei->pos, &sr.sheet, &end_sheet, &sr.range);
if (sr.sheet != end_sheet) {
/* We don't attempt to flatten a 3D range to an array. */
g_warning (_("Cannot convert 3D cell range to XLOPER."));
} else {
int m = sr.range.end.col-sr.range.start.col+1;
int n = sr.range.end.row-sr.range.start.row+1;
int i, j;
out->xltype = xltypeMulti;
out->val.array.lparray = ALLOC_ARRAY (XLOPER,m*n);
out->val.array.columns = m;
out->val.array.rows = n;
for (i = 0; i < m; ++i) {
for (j = 0;j<n; ++j) {
cell = sheet_cell_get (sr.sheet,sr.range.start.col+i,sr.range.start.row+j);
cell_value = NULL;
if (NULL != cell) {
gnm_cell_eval (cell);
cell_value=cell->value;
}
copy_construct_xloper_from_gnm_value (out->val.array.lparray+i+j*m,cell_value,ei);
}
}
}
break;
}
case VALUE_ARRAY: {
int m = in->v_array.x;
int n = in->v_array.y;
int i, j;
out->xltype = xltypeMulti;
out->val.array.lparray = ALLOC_ARRAY (XLOPER,m*n);
out->val.array.columns = m;
out->val.array.rows = n;
for (i = 0; i < m; ++i) {
for (j = 0;j < n; ++j) {
copy_construct_xloper_from_gnm_value (out->val.array.lparray+i+j*m,in->v_array.vals[i][j],ei);
}
}
break;
}
default:;
g_warning (_("Unsupported GnmValue type (%d)"),in->type);
}
}
}
