/*
* escape special characters .. needs work
*/
static int
roff_fprintf (GsfOutput *output, GnmCell *cell)
{
int len, i;
char const *p;
char * s;
GnmStyle const *style;
if (gnm_cell_is_empty (cell))
return 0;
style = gnm_cell_get_style (cell);
if (style != NULL && gnm_style_get_contents_hidden (style))
return 0;
s = gnm_cell_get_rendered_text (cell);
len = strlen (s);
p = s;
for (i = 0; i < len; i++) {
switch (*p) {
case '.':
gsf_output_printf (output, "\\.");
break;
case '\\':
gsf_output_printf (output, "\\\\");
break;
default:
gsf_output_printf (output, "%c", *p);
break;
}
p++;
}
g_free (s);
return len;
}
/**
* paste_cell:
* @target_col: Column to put the cell into
* @target_row: Row to put the cell into.
* @src: A #GnmCelCopy with the content to paste
* @paste_flags: Bit mask that describes the paste options.
*
* Pastes a cell in the spreadsheet.
*/
static void
paste_cell (int target_col, int target_row,
GnmCellCopy const *src,
const struct paste_cell_data *dat)
{
Sheet *dst_sheet = dat->pt->sheet;
int paste_flags = dat->pt->paste_flags;
if (paste_flags & PASTE_OPER_MASK)
paste_cell_with_operation (dst_sheet, target_col, target_row,
&dat->rinfo, src, paste_flags);
else {
GnmCell *dst = sheet_cell_fetch (dst_sheet, target_col, target_row);
if (NULL != src->texpr && (paste_flags & PASTE_CONTENTS)) {
GnmExprTop const *relo = gnm_expr_top_relocate (
src->texpr, &dat->rinfo, FALSE);
if (paste_flags & PASTE_TRANSPOSE) {
GnmExprTop const *trelo =
gnm_expr_top_transpose (relo ? relo : src->texpr);
if (trelo) {
if (relo)
gnm_expr_top_unref (relo);
relo = trelo;
}
} else if (!relo && gnm_expr_top_is_array_corner (src->texpr)) {
/* We must not share array expressions. */
relo = gnm_expr_top_new (gnm_expr_copy (src->texpr->expr));
}
gnm_cell_set_expr_and_value (dst, relo ? relo : src->texpr,
value_dup (src->val), TRUE);
if (NULL != relo)
gnm_expr_top_unref (relo);
} else {
GnmValue *newval = NULL;
GnmValue const *oldval = src->val;
if (dat->translate_dates && oldval && VALUE_IS_FLOAT (oldval)) {
GOFormat const *fmt = VALUE_FMT (oldval)
? VALUE_FMT (oldval)
: gnm_style_get_format (gnm_cell_get_style (dst));
if (go_format_is_date (fmt) > 0) {
gnm_float fnew = go_date_conv_translate
(value_get_as_float (oldval),
dat->cr->date_conv,
workbook_date_conv (dst_sheet->workbook));
newval = value_new_float (fnew);
value_set_fmt (newval, VALUE_FMT (oldval));
}
}
if (!newval)
newval = value_dup (src->val);
gnm_cell_set_value (dst, newval);
}
}
}
static int
get_grid_float_entry (GtkGrid *g, int y, int x, GnmCell *cell, gnm_float *number,
GtkEntry **wp, gboolean with_default, gnm_float default_float)
{
GOFormat const *format;
GtkWidget *w = gtk_grid_get_child_at (g, x, y + 1);
g_return_val_if_fail (GTK_IS_ENTRY (w), 3);
*wp = GTK_ENTRY (w);
format = gnm_style_get_format (gnm_cell_get_style (cell));
return (with_default?
entry_to_float_with_format_default (*wp, number, TRUE, format,
default_float):
entry_to_float_with_format (*wp, number, TRUE, format));
}
/*
* cell_calc_span:
* @cell: The cell we will examine
* @col1: return value: the first column used by this cell
* @col2: return value: the last column used by this cell
*
* This routine returns the column interval used by a GnmCell.
*/
void
cell_calc_span (GnmCell const *cell, int *col1, int *col2)
{
Sheet *sheet;
int h_align, v_align, left, max_col, min_col;
int row, pos;
int cell_width_pixel, indented_w;
GnmStyle const *style;
ColRowInfo const *ci;
GnmRange const *merge_left;
GnmRange const *merge_right;
g_return_if_fail (cell != NULL);
sheet = cell->base.sheet;
style = gnm_cell_get_style (cell);
h_align = gnm_style_default_halign (style, cell);
/*
* Report only one column is used if
* - Cell is in a hidden col
* - Cell is a number
* - Cell is the top left of a merged cell
* - The text fits inside column (for non center across selection)
* - The alignment mode are set to "justify"
*/
if (sheet != NULL &&
h_align != HALIGN_CENTER_ACROSS_SELECTION &&
(gnm_cell_is_merged (cell) ||
(!sheet->display_formulas && gnm_cell_is_number (cell)))) {
*col1 = *col2 = cell->pos.col;
return;
}
v_align = gnm_style_get_align_v (style);
row = cell->pos.row;
indented_w = cell_width_pixel = gnm_cell_rendered_width (cell);
if (h_align == HALIGN_LEFT || h_align == HALIGN_RIGHT) {
indented_w += gnm_cell_rendered_offset (cell);
if (sheet->text_is_rtl)
h_align = (h_align == HALIGN_LEFT) ? HALIGN_RIGHT : HALIGN_LEFT;
}
ci = sheet_col_get_info (sheet, cell->pos.col);
if (gnm_cell_is_empty (cell) ||
!ci->visible ||
(h_align != HALIGN_CENTER_ACROSS_SELECTION &&
(gnm_style_get_wrap_text (style) ||
indented_w <= COL_INTERNAL_WIDTH (ci))) ||
h_align == HALIGN_JUSTIFY ||
h_align == HALIGN_FILL ||
h_align == HALIGN_DISTRIBUTED ||
v_align == VALIGN_JUSTIFY ||
v_align == VALIGN_DISTRIBUTED) {
*col1 = *col2 = cell->pos.col;
return;
}
gnm_sheet_merge_get_adjacent (sheet, &cell->pos, &merge_left, &merge_right);
min_col = (merge_left != NULL) ? merge_left->end.col : -1;
max_col = (merge_right != NULL) ? merge_right->start.col : gnm_sheet_get_max_cols (sheet);
*col1 = *col2 = cell->pos.col;
switch (h_align) {
case HALIGN_LEFT:
pos = cell->pos.col + 1;
left = indented_w - COL_INTERNAL_WIDTH (ci);
for (; left > 0 && pos < max_col; pos++){
ColRowInfo const *ci = sheet_col_get_info (sheet, pos);
if (ci->visible) {
if (!cellspan_is_empty (pos, cell))
return;
/* The space consumed is:
* - The margin_b from the last column
* - The width of the cell
*/
left -= ci->size_pixels - 1;
*col2 = pos;
}
}
return;
case HALIGN_RIGHT:
pos = cell->pos.col - 1;
left = indented_w - COL_INTERNAL_WIDTH (ci);
for (; left > 0 && pos > min_col; pos--){
ColRowInfo const *ci = sheet_col_get_info (sheet, pos);
if (ci->visible) {
if (!cellspan_is_empty (pos, cell))
return;
/* The space consumed is:
* - The margin_a from the last column
* - The width of this cell
*/
left -= ci->size_pixels - 1;
*col1 = pos;
}
}
return;
case HALIGN_CENTER: {
int remain_left, remain_right;
int pos_l, pos_r;
pos_l = pos_r = cell->pos.col;
left = cell_width_pixel - COL_INTERNAL_WIDTH (ci);
remain_left = left / 2 + (left % 2);
remain_right = left / 2;
for (; remain_left > 0 || remain_right > 0;){
ColRowInfo const *ci;
if (--pos_l > min_col){
ci = sheet_col_get_info (sheet, pos_l);
if (ci->visible) {
if (cellspan_is_empty (pos_l, cell)) {
remain_left -= ci->size_pixels - 1;
*col1 = pos_l;
} else
remain_left = 0;
}
} else
remain_left = 0;
if (++pos_r < max_col){
ci = sheet_col_get_info (sheet, pos_r);
if (ci->visible) {
if (cellspan_is_empty (pos_r, cell)) {
remain_right -= ci->size_pixels - 1;
*col2 = pos_r;
} else
max_col = remain_right = 0;
}
} else
remain_right = 0;
} /* for */
break;
} /* case HALIGN_CENTER */
case HALIGN_CENTER_ACROSS_SELECTION: {
int const row = cell->pos.row;
int pos_l, pos_r;
pos_l = pos_r = cell->pos.col;
while (--pos_l > min_col) {
ColRowInfo const *ci = sheet_col_get_info (sheet, pos_l);
if (ci->visible) {
if (cellspan_is_empty (pos_l, cell)) {
GnmStyle const * const style =
sheet_style_get (cell->base.sheet, pos_l, row);
if (gnm_style_get_align_h (style) != HALIGN_CENTER_ACROSS_SELECTION)
break;
*col1 = pos_l;
} else
break;
}
}
while (++pos_r < max_col) {
ColRowInfo const *ci = sheet_col_get_info (sheet, pos_r);
if (ci->visible) {
if (cellspan_is_empty (pos_r, cell)) {
GnmStyle const * const style =
sheet_style_get (cell->base.sheet, pos_r, row);
if (gnm_style_get_align_h (style) != HALIGN_CENTER_ACROSS_SELECTION)
break;
*col2 = pos_r;
} else
break;
}
}
break;
}
default:
g_warning ("Unknown horizontal alignment type %x.", h_align);
} /* switch */
}
/*
* write every sheet of the workbook to a roff file
*
* FIXME: Should roff quote sheet name (and everything else)
*/
void
roff_file_save (GOFileSaver const *fs, GOIOContext *io_context,
WorkbookView const *wb_view, GsfOutput *output)
{
GSList *sheets, *ptr;
GnmCell *cell;
int row, col, fontsize, v_size;
Workbook *wb = wb_view_get_workbook (wb_view);
g_return_if_fail (wb != NULL);
gsf_output_printf (output, ".\\\" TROFF file\n");
gsf_output_printf (output, ".fo ''%%''\n");
sheets = workbook_sheets (wb);
for (ptr = sheets ; ptr != NULL ; ptr = ptr->next) {
Sheet *sheet = ptr->data;
GnmRange r = sheet_get_extent (sheet, FALSE, TRUE);
gsf_output_printf (output, "%s\n\n", sheet->name_unquoted);
gsf_output_printf (output, ".TS H\n");
gsf_output_printf (output, "allbox;\n");
for (row = r.start.row; row <= r.end.row; row++) {
ColRowInfo const * ri;
ri = sheet_row_get_info (sheet, row);
if (ri->needs_respan)
row_calc_spans ((ColRowInfo *) ri, row, sheet);
if (row > r.start.row)
gsf_output_printf (output, ".T&\n");
/* define alignments, bold etc. per cell */
v_size = DEFSIZE;
for (col = r.start.col; col <= r.end.col; col++) {
cell = sheet_cell_get (sheet, col, row);
if (col > r.start.col)
gsf_output_printf (output, " ");
if (!cell) {
gsf_output_printf (output, "l");
} else {
GnmStyle const *style = gnm_cell_get_style (cell);
if (!style)
break;
if (gnm_style_get_align_h (style) & GNM_HALIGN_RIGHT)
gsf_output_printf (output, "r");
else if (gnm_style_get_align_h (style) == GNM_HALIGN_CENTER ||
/* FIXME : center across selection is different */
gnm_style_get_align_h (style) == GNM_HALIGN_CENTER_ACROSS_SELECTION ||
gnm_style_get_align_h (style) == GNM_HALIGN_DISTRIBUTED)
gsf_output_printf (output, "c");
else
gsf_output_printf (output, "l");
if (font_is_monospaced (style)) {
if (gnm_style_get_font_bold (style) &&
gnm_style_get_font_italic (style))
gsf_output_printf (output, "fCBI");
else if (gnm_style_get_font_bold (style))
gsf_output_printf (output, "fCB");
else if (gnm_style_get_font_italic (style))
gsf_output_printf (output, "fCI");
else
gsf_output_printf (output, "fCR");
} else if (font_is_helvetica (style)) {
if (gnm_style_get_font_bold (style) &&
gnm_style_get_font_italic (style))
gsf_output_printf (output, "fHBI");
else if (gnm_style_get_font_bold (style))
gsf_output_printf (output, "fHB");
else if (gnm_style_get_font_italic (style))
gsf_output_printf (output, "fHI");
else
gsf_output_printf (output, "fHR");
} else {
/* default is times */
if (gnm_style_get_font_bold (style) &&
gnm_style_get_font_italic (style))
gsf_output_printf (output, "fTBI");
else if (gnm_style_get_font_bold (style))
gsf_output_printf (output, "fTB");
else if (gnm_style_get_font_italic (style))
gsf_output_printf (output, "fTI");
}
fontsize = gnm_style_get_font_size (style);
if (fontsize) {
gsf_output_printf (output, "p%d", fontsize);
v_size = v_size > fontsize ? v_size :
fontsize;
}
}
}
gsf_output_printf (output, ".\n");
gsf_output_printf (output, ".vs %.2fp\n", 2.5 + v_size);
for (col = r.start.col; col <= r.end.col; col++) {
if (col > r.start.col)
gsf_output_printf (output, "\t");
cell = sheet_cell_get (sheet, col, row);
if (!cell) { /* empty cell */
gsf_output_printf (output, " ");
} else {
roff_fprintf (output, cell);
}
}
gsf_output_printf (output, "\n");
if (row == r.start.row)
gsf_output_printf (output, ".TH\n");
}
gsf_output_printf (output, ".TE\n\n");
}
g_slist_free (sheets);
}
/**
* cb_dialog_apply_clicked:
* @button:
* @state:
*
* Close (destroy) the dialog
**/
static void
cb_dialog_apply_clicked (G_GNUC_UNUSED GtkWidget *button,
GoalSeekState *state)
{
char *status_str;
GoalSeekStatus status;
GnmValue *target;
GnmRangeRef const *r;
GOFormat *format;
if (state->warning_dialog != NULL)
gtk_widget_destroy (state->warning_dialog);
/* set up source */
target = gnm_expr_entry_parse_as_value (state->set_cell_entry,
state->sheet);
if (target == NULL) {
go_gtk_notice_nonmodal_dialog (GTK_WINDOW(state->dialog),
&(state->warning_dialog),
GTK_MESSAGE_ERROR,
_("You should introduce a valid cell "
"name in 'Set Cell:'!"));
gnm_expr_entry_grab_focus (state->set_cell_entry, TRUE);
return;
}
r = &target->v_range.cell;
state->set_cell = sheet_cell_get (r->a.sheet, r->a.col, r->a.row);
value_release (target);
if (state->set_cell == NULL || !gnm_cell_has_expr (state->set_cell)) {
go_gtk_notice_nonmodal_dialog (GTK_WINDOW(state->dialog),
&(state->warning_dialog),
GTK_MESSAGE_ERROR,
_("The cell named in 'Set Cell:' "
"must contain a formula!"));
gnm_expr_entry_grab_focus (state->set_cell_entry, TRUE);
return;
}
/* set up source */
target = gnm_expr_entry_parse_as_value (state->change_cell_entry,
state->sheet);
if (target == NULL) {
go_gtk_notice_nonmodal_dialog (GTK_WINDOW(state->dialog),
&(state->warning_dialog),
GTK_MESSAGE_ERROR,
_("You should introduce a valid cell "
"name in 'By Changing Cell:'!"));
gnm_expr_entry_grab_focus (state->change_cell_entry, TRUE);
return;
}
r = &target->v_range.cell;
state->change_cell = sheet_cell_fetch (r->a.sheet, r->a.col, r->a.row);
value_release (target);
if (gnm_cell_has_expr (state->change_cell)) {
go_gtk_notice_nonmodal_dialog (GTK_WINDOW(state->dialog),
&(state->warning_dialog),
GTK_MESSAGE_ERROR,
_("The cell named in 'By changing cell' "
"must not contain a formula."));
gnm_expr_entry_grab_focus (state->change_cell_entry, TRUE);
return;
}
format = gnm_style_get_format (gnm_cell_get_style (state->set_cell));
if (entry_to_float_with_format (GTK_ENTRY(state->to_value_entry),
&state->target_value, TRUE, format)){
go_gtk_notice_nonmodal_dialog (GTK_WINDOW(state->dialog),
&(state->warning_dialog),
GTK_MESSAGE_ERROR,
_("The value given in 'To Value:' "
"is not valid."));
focus_on_entry (GTK_ENTRY(state->to_value_entry));
return;
}
format = gnm_style_get_format (gnm_cell_get_style (state->change_cell));
if (entry_to_float_with_format (GTK_ENTRY(state->at_least_entry),
&state->xmin, TRUE, format)) {
state->xmin = -max_range_val;
gtk_entry_set_text (GTK_ENTRY (state->at_least_entry), "");
}
if (entry_to_float_with_format (GTK_ENTRY(state->at_most_entry), &state->xmax,
TRUE, format)) {
state->xmax = +max_range_val;
gtk_entry_set_text (GTK_ENTRY (state->at_most_entry), "");
}
if ((state->old_cell != NULL) && (state->old_value != NULL)) {
sheet_cell_set_value (state->old_cell, state->old_value);
workbook_recalc (state->wb);
state->old_value = NULL;
}
state->old_cell = state->change_cell;
state->old_value = value_dup (state->change_cell->value);
status = gnumeric_goal_seek (state);
switch (status) {
case GOAL_SEEK_OK: {
const char *actual_str;
const char *solution_str;
GOFormat *format = go_format_general ();
GnmValue *error_value = value_new_float (state->target_value -
value_get_as_float (state->set_cell->value));
char *target_str = format_value (format, error_value, NULL, -1,
workbook_date_conv (state->wb));
gtk_label_set_text (GTK_LABEL (state->target_value_label), target_str);
g_free (target_str);
value_release (error_value);
status_str =
g_strdup_printf (_("Goal seeking with cell %s found a solution."),
cell_name (state->set_cell));
gtk_label_set_text (GTK_LABEL (state->result_label), status_str);
g_free (status_str);
/* FIXME? Do a format? */
actual_str = state->set_cell->value
? value_peek_string (state->set_cell->value)
: "";
gtk_label_set_text (GTK_LABEL (state->current_value_label), actual_str);
solution_str = state->change_cell->value
? value_peek_string (state->change_cell->value)
: "";
gtk_label_set_text (GTK_LABEL (state->solution_label), solution_str);
break;
}
default:
status_str =
g_strdup_printf (_("Goal seeking with cell %s did not find a solution."),
cell_name (state->set_cell));
gtk_label_set_text (GTK_LABEL (state->result_label), status_str);
g_free (status_str);
gtk_label_set_text (GTK_LABEL (state->current_value_label), "");
gtk_label_set_text (GTK_LABEL (state->solution_label), "");
gtk_label_set_text (GTK_LABEL (state->target_value_label), "");
break;
}
state->cancelled = FALSE;
gtk_widget_show (state->result_table);
return;
}