static void
paste_cell_with_operation (Sheet *dst_sheet,
int target_col, int target_row,
GnmExprRelocateInfo const *rinfo,
GnmCellCopy const *src,
int paste_flags)
{
GnmCell *dst;
GnmExprOp op;
if (src->texpr == NULL &&
!VALUE_IS_EMPTY (src->val) &&
!VALUE_IS_NUMBER (src->val))
return;
dst = sheet_cell_fetch (dst_sheet, target_col, target_row);
if (!cell_has_expr_or_number_or_blank (dst))
return;
op = paste_op_to_expr_op (paste_flags);
/* FIXME : This does not handle arrays, linked cells, ranges, etc. */
if ((paste_flags & PASTE_CONTENTS) &&
(NULL != src->texpr || gnm_cell_has_expr (dst))) {
GnmExpr const *old_expr = contents_as_expr (dst->base.texpr, dst->value);
GnmExpr const *copied_expr = contents_as_expr (src->texpr, src->val);
GnmExprTop const *res = gnm_expr_top_new (gnm_expr_new_binary (old_expr, op, copied_expr));
GnmExprTop const *relo = gnm_expr_top_relocate (res, rinfo, FALSE);
if (relo) {
gnm_cell_set_expr (dst, relo);
gnm_expr_top_unref (relo);
} else
gnm_cell_set_expr (dst, res);
gnm_expr_top_unref (res);
} else {
GnmValue *value;
GnmEvalPos pos;
GnmExpr const *expr = gnm_expr_new_binary (
gnm_expr_new_constant (value_dup (dst->value)),
op,
gnm_expr_new_constant (value_dup (src->val)));
GnmExprTop const *texpr = gnm_expr_top_new (expr);
eval_pos_init_cell (&pos, dst);
pos.dep = NULL; /* no dynamic deps */
value = gnm_expr_top_eval (texpr, &pos,
GNM_EXPR_EVAL_SCALAR_NON_EMPTY);
gnm_expr_top_unref (texpr);
gnm_cell_set_value (dst, value);
}
}
static void
add_cell (Sheet *sheet, const psiconv_sheet_cell psi_cell,
const psiconv_formula_list psi_formulas, const GnmStyle * default_style)
{
GnmCell *cell;
GnmValue *val;
GnmExprTop const *expr = NULL;
cell = sheet_cell_fetch (sheet, psi_cell->column, psi_cell->row);
if (!cell)
return;
val = value_new_from_psi_cell (psi_cell);
if (psi_cell->calculated)
expr = expr_new_from_formula (psi_cell, psi_formulas);
if (expr != NULL) {
/* TODO : is there a notion of parse format ?
* How does it store a user entered date ?
*/
if (val != NULL)
gnm_cell_set_expr_and_value (cell, expr, val, TRUE);
else
gnm_cell_set_expr (cell, expr);
} else if (val != NULL) {
/* TODO : is there a notion of parse format ?
* How does it store a user entered date ?
*/
gnm_cell_set_value (cell, val);
} else {
/* TODO : send this warning to iocontext with details of
* which sheet and cell.
*/
g_warning ("Cell with no value or expression ?");
}
if (expr)
gnm_expr_top_unref (expr);
/* TODO: Perhaps this must be moved above set_format */
set_style(sheet,psi_cell->row,psi_cell->column,psi_cell->layout,
default_style);
}
/* NOTE : Make sure to set up any merged regions in the target range BEFORE
* this is called.
*/
static void
paste_link (GnmPasteTarget const *pt, int top, int left,
GnmCellRegion const *cr)
{
GnmCellPos pos;
GnmCellRef source_cell_ref;
int x, y;
/* Not possible to link to arbitrary (non gnumeric) sources yet. */
/* TODO : eventually support interprocess gnumeric links */
if (cr->origin_sheet == NULL)
return;
/* TODO : support relative links ? */
source_cell_ref.col_relative = 0;
source_cell_ref.row_relative = 0;
source_cell_ref.sheet = (cr->origin_sheet != pt->sheet)
? cr->origin_sheet : NULL;
pos.col = left;
for (x = 0 ; x < cr->cols ; x++, pos.col++) {
source_cell_ref.col = cr->base.col + x;
pos.row = top;
for (y = 0 ; y < cr->rows ; y++, pos.row++) {
GnmExprTop const *texpr;
GnmCell *cell =
sheet_cell_fetch (pt->sheet, pos.col, pos.row);
/* This could easily be made smarter */
if (!gnm_cell_is_merged (cell) &&
gnm_sheet_merge_contains_pos (pt->sheet, &pos))
continue;
source_cell_ref.row = cr->base.row + y;
texpr = gnm_expr_top_new (gnm_expr_new_cellref (&source_cell_ref));
gnm_cell_set_expr (cell, texpr);
gnm_expr_top_unref (texpr);
}
}
}
static gboolean
sylk_rtd_c_parse (SylkReader *state, char *str)
{
GnmValue *val = NULL;
GnmExprTop const *texpr = NULL;
gboolean is_array = FALSE;
int r = -1, c = -1, tmp;
char *next;
for (; *str != '\0' ; str = next) {
next = sylk_next_token (str);
switch (*str) {
case 'X': if (sylk_parse_int (str+1, &tmp)) state->pp.eval.col = tmp - 1; break;
case 'Y': if (sylk_parse_int (str+1, &tmp)) state->pp.eval.row = tmp - 1; break;
case 'K': /* ;K value: Value of the cell. */
if (val != NULL) {
sylk_read_warning (state, _("Multiple values in the same cell"));
value_release (val);
val = NULL;
}
val = sylk_parse_value (state, str+1);
break;
case 'E':
if (texpr != NULL) {
sylk_read_warning (state, _("Multiple expressions in the same cell"));
gnm_expr_top_unref (texpr);
}
texpr = sylk_parse_expr (state, str+1);
break;
case 'M' : /* ;M exp: Expression stored with UL corner of matrix (;R ;C defines
the lower right corner). If the ;M field is supported, the
;K record is ignored. Note that no ;E field is written. */
if (texpr != NULL) {
sylk_read_warning (state, _("Multiple expressions in the same cell"));
gnm_expr_top_unref (texpr);
}
texpr = sylk_parse_expr (state, str+1);
is_array = TRUE;
break;
case 'I' : /* ;I: Inside a matrix or table (at row ;R, col ;C) C record for UL
corner must precede this record. Note that any ;K field is
ignored if the ;I field is supported. No ;E field is written
out. */
is_array = TRUE;
break;
case 'C' : sylk_parse_int (str+1, &c); break;
case 'R' : sylk_parse_int (str+1, &r); break;
case 'A' : /* ;Aauthor:^[ :text 1) till end of line 2) excel extension */
sylk_parse_comment (state, str+1);
break;
case 'G' : /* ;G: Defines shared value (may not have an ;E for this record). */
case 'D' : /* ;D: Defines shared expression. */
case 'S' : /* ;S: Shared expression/value given at row ;R, col ;C. C record
for ;R, ;C must precede this one. Note that no ;E or ;K
fields are written here (not allowed on Excel macro sheets). */
case 'N' : /* ;N: Cell NOT protected/locked (if ;N present in ;ID record). */
case 'P' : /* ;P: Cell protected/locked (if ;N not present in ;ID record).
Note if this occurs for any cell, we protect the entire
sheet. */
case 'H' : /* ;H: Cell hidden. */
case 'T' : /* ;Tref,ref: UL corner of table (;R ;C defines the lower left
corner). Note that the defined rectangle is the INSIDE of
the table only. Formulas and input cells are above and to
the left of this rectangle. The row and column input cells
are given in by the two refs (possibly only one). Note that
Excel's input refs are single cells only. */
default:
break;
}
}
if (val != NULL || texpr != NULL) {
GnmCell *cell = sheet_cell_fetch (state->pp.sheet,
state->pp.eval.col, state->pp.eval.row);
if (is_array) {
if (texpr) {
GnmRange rg;
rg.start = state->pp.eval;
rg.end.col = c - 1;
rg.end.row = r - 1;
gnm_cell_set_array (state->pp.sheet,
&rg,
texpr);
gnm_expr_top_unref (texpr);
}
if (NULL != val)
gnm_cell_assign_value (cell, val);
} else if (NULL != texpr) {
if (NULL != val)
gnm_cell_set_expr_and_value (cell, texpr, val, TRUE);
else
gnm_cell_set_expr (cell, texpr);
gnm_expr_top_unref (texpr);
} else if (NULL != val)
gnm_cell_set_value (cell, val);
}
return TRUE;
}
