static void
filter (data_analysis_output_t *dao, Sheet *sheet, GSList *rows,
gint input_col_b, gint input_col_e, gint input_row_b, gint input_row_e)
{
GnmCell *cell;
int i, r=0;
if (dao->type == InPlaceOutput) {
sheet->has_filtered_rows = TRUE;
colrow_set_visibility (sheet, FALSE,
FALSE, input_row_b+1, input_row_e);
for (i=input_row_b; i<=input_row_e; i++) {
ColRowInfo *ri = sheet_row_fetch (sheet, i);
ri->in_advanced_filter = TRUE;
}
while (rows != NULL) {
const gint *row = rows->data;
colrow_set_visibility (sheet, FALSE, TRUE, *row, *row);
rows = rows->next;
}
sheet_redraw_all (sheet, TRUE);
/* FIXME: what happens if we just have hidden the selection? */
} else {
for (i=input_col_b; i<=input_col_e; i++) {
cell = sheet_cell_get (sheet, i, input_row_b);
if (cell == NULL)
dao_set_cell (dao, i - input_col_b, r, NULL);
else {
GnmValue *value = value_dup (cell->value);
dao_set_cell_value (dao, i - input_col_b, r,
value);
}
}
++r;
while (rows != NULL) {
const gint *row = rows->data;
for (i=input_col_b; i<=input_col_e; i++) {
cell = sheet_cell_get (sheet, i, *row);
if (cell == NULL)
dao_set_cell (dao, i - input_col_b, r,
NULL);
else {
GnmValue *value =
value_dup (cell->value);
dao_set_cell_value (dao,
i - input_col_b, r,
value);
}
}
++r;
rows = rows->next;
}
}
}
void
filter_show_all (WorkbookControl *wbc)
{
Sheet *sheet = wb_control_cur_sheet (wbc);
/* FIXME: This is slow. We should probably have a linked list
* containing the filtered rows in the sheet structure. */
colrow_foreach (&sheet->rows, 0, gnm_sheet_get_last_row (sheet),
(ColRowHandler) cb_show_all, sheet);
sheet->has_filtered_rows = FALSE;
sheet_redraw_all (sheet, TRUE);
wb_control_menu_state_update (wbc, MS_FILTER_STATE_CHANGED);
}
/* Ok button pressed. */
static void
scenario_manager_ok (Sheet *sheet)
{
GList *l, *scenarios = g_list_copy (sheet->scenarios);
/* Update scenarios (free the deleted ones). */
for (l = scenarios; l; l = l->next) {
GnmScenario *sc = l->data;
if (g_object_get_data (G_OBJECT (sc), "marked_deleted")) {
gnm_sheet_scenario_remove (sc->sheet, sc);
}
}
g_list_free (scenarios);
sheet_redraw_all (sheet, TRUE);
}
/*
* colrow_set_visibility_list :
*
* This is the high level command that is wrapped by undo and redo.
* It should not be called by other commands.
*/
void
colrow_set_visibility_list (Sheet *sheet, gboolean is_cols,
gboolean visible, ColRowVisList *list)
{
ColRowVisList *ptr;
ColRowIndex *info;
for (ptr = list; ptr != NULL ; ptr = ptr->next) {
info = ptr->data;
colrow_set_visibility (sheet, is_cols, visible,
info->first, info->last);
}
if (visible)
sheet_colrow_optimize (sheet);
if (is_cols)
sheet_queue_respan (sheet, 0, gnm_sheet_get_last_row (sheet));
if (list != NULL)
sheet_redraw_all (sheet, TRUE);
}
int *
gnm_sort_contents (GnmSortData *data, GOCmdContext *cc)
{
ColRowInfo const *cra;
SortDataPerm *perm;
int length, real_length, i, cur, *iperm, *real;
int const first = data->top ? data->range->start.row : data->range->start.col;
length = gnm_sort_data_length (data);
real_length = 0;
/* Discern the rows/cols to be actually sorted */
real = g_new (int, length);
for (i = 0; i < length; i++) {
cra = data->top
? sheet_row_get (data->sheet, first + i)
: sheet_col_get (data->sheet, first + i);
if (cra && !cra->visible) {
real[i] = -1;
} else {
real[i] = i;
real_length++;
}
}
cur = 0;
perm = g_new (SortDataPerm, real_length);
for (i = 0; i < length; i++) {
if (real[i] != -1) {
perm[cur].index = i;
perm[cur].data = data;
cur++;
}
}
if (real_length > 1) {
if (data->locale) {
char *old_locale
= g_strdup (go_setlocale (LC_ALL, NULL));
go_setlocale (LC_ALL, data->locale);
qsort (perm, real_length, sizeof (SortDataPerm),
g_str_has_prefix
(old_locale, data->locale)
? sort_qsort_compare
: sort_qsort_compare_in_locale);
go_setlocale (LC_ALL, old_locale);
g_free (old_locale);
} else
qsort (perm, real_length, sizeof (SortDataPerm),
sort_qsort_compare);
}
cur = 0;
iperm = g_new (int, length);
for (i = 0; i < length; i++) {
if (real[i] != -1) {
iperm[i] = perm[cur].index;
cur++;
} else {
iperm[i] = i;
}
}
g_free (perm);
g_free (real);
sort_permute (data, iperm, length, cc);
/* Make up for the PASTE_NO_RECALC. */
sheet_region_queue_recalc (data->sheet, data->range);
sheet_flag_status_update_range (data->sheet, data->range);
sheet_range_calc_spans (data->sheet, data->range,
data->retain_formats ? GNM_SPANCALC_RENDER : GNM_SPANCALC_RE_RENDER);
sheet_redraw_all (data->sheet, FALSE);
return iperm;
}
/**
* clipboard_paste_region:
* @cr: The GnmCellRegion to paste.
* @pt: Where to paste the values.
* @cc: The context for error handling.
*
* Pastes the supplied GnmCellRegion (@cr) into the supplied
* GnmPasteTarget (@pt). This operation is not undoable. It does not auto grow
* the destination if the target is a singleton. This is a simple interface to
* paste a region.
*
* returns : TRUE if there was a problem.
**/
gboolean
clipboard_paste_region (GnmCellRegion const *cr,
GnmPasteTarget const *pt,
GOCmdContext *cc)
{
int repeat_horizontal, repeat_vertical, clearFlags;
int dst_cols, dst_rows, src_cols, src_rows;
int i, j;
GSList *ptr;
GnmRange const *r;
gboolean has_contents, adjust_merges = TRUE;
struct paste_cell_data dat;
GnmRange const *merge_src;
g_return_val_if_fail (pt != NULL, TRUE);
g_return_val_if_fail (cr != NULL, TRUE);
/* we do not need any of this fancy stuff when pasting a simple object */
if (cr->cell_content == NULL &&
cr->styles == NULL &&
cr->merged == NULL &&
cr->objects != NULL) {
if (pt->paste_flags & (PASTE_COMMENTS | PASTE_OBJECTS))
for (ptr = cr->objects; ptr; ptr = ptr->next)
paste_object (pt, ptr->data,
pt->range.start.col, pt->range.start.row);
return FALSE;
}
r = &pt->range;
dst_cols = range_width (r);
dst_rows = range_height (r);
src_cols = cr->cols;
src_rows = cr->rows;
/* If the source is a single cell or a single merge */
/* Treat a target of a single merge specially, don't split the merge */
if ((src_cols == 1 && src_rows == 1) ||
(g_slist_length (cr->merged) == 1 &&
(NULL != (merge_src = cr->merged->data)) &&
range_height (merge_src) == cr->rows &&
range_width (merge_src) == cr->cols)) {
GnmRange const *merge = gnm_sheet_merge_is_corner (pt->sheet, &r->start);
if (merge != NULL && range_equal (r, merge)) {
dst_cols = dst_rows = 1;
adjust_merges = FALSE;
src_cols = 1;
src_rows = 1;
}
/* Apparently links do not supercede merges */
} else if (pt->paste_flags & PASTE_LINK)
adjust_merges = FALSE;
has_contents = pt->paste_flags & (PASTE_CONTENTS|PASTE_AS_VALUES|PASTE_LINK);
if (pt->paste_flags & PASTE_TRANSPOSE) {
int tmp = src_cols;
src_cols = src_rows;
src_rows = tmp;
}
if (cr->not_as_contents && (pt->paste_flags & PASTE_CONTENTS)) {
go_cmd_context_error_invalid (cc,
_("Unable to paste"),
_("Contents can only be pasted by value or by link."));
return TRUE;
}
/* calculate the tiling */
repeat_horizontal = dst_cols/src_cols;
if (repeat_horizontal * src_cols != dst_cols) {
char *msg = g_strdup_printf (
_("destination does not have an even multiple of source columns (%d vs %d)\n\n"
"Try selecting a single cell or an area of the same shape and size."),
dst_cols, src_cols);
go_cmd_context_error_invalid (cc, _("Unable to paste"), msg);
g_free (msg);
return TRUE;
}
repeat_vertical = dst_rows/src_rows;
if (repeat_vertical * src_rows != dst_rows) {
char *msg = g_strdup_printf (
_("destination does not have an even multiple of source rows (%d vs %d)\n\n"
"Try selecting a single cell or an area of the same shape and size."),
dst_rows, src_rows);
go_cmd_context_error_invalid (cc, _("Unable to paste"), msg);
g_free (msg);
return TRUE;
}
if ((pt->range.start.col + dst_cols) > gnm_sheet_get_max_cols (pt->sheet) ||
(pt->range.start.row + dst_rows) > gnm_sheet_get_max_rows (pt->sheet)) {
go_cmd_context_error_invalid (cc,
_("Unable to paste"),
_("result passes the sheet boundary"));
return TRUE;
}
clearFlags = 0;
/* clear the region where we will paste */
if (has_contents)
clearFlags = CLEAR_VALUES | CLEAR_NORESPAN;
if (pt->paste_flags & PASTE_COMMENTS)
clearFlags |= CLEAR_COMMENTS;
/* No need to clear the formats. We will paste over top of these. */
/* if (pt->paste_flags & PASTE_FORMATS) clearFlags |= CLEAR_FORMATS; */
if (pt->paste_flags & (PASTE_OPER_MASK | PASTE_SKIP_BLANKS))
clearFlags = 0;
/* remove merged regions even for operations, or blanks */
if (has_contents && adjust_merges)
clearFlags |= CLEAR_MERGES;
if (clearFlags != 0) {
int const dst_col = pt->range.start.col;
int const dst_row = pt->range.start.row;
sheet_clear_region (pt->sheet,
dst_col, dst_row,
dst_col + dst_cols - 1,
dst_row + dst_rows - 1,
clearFlags, cc);
}
dat.translate_dates = cr->date_conv &&
!go_date_conv_equal (cr->date_conv, workbook_date_conv (pt->sheet->workbook));
for (i = 0; i < repeat_horizontal ; i++)
for (j = 0; j < repeat_vertical ; j++) {
int const left = i * src_cols + pt->range.start.col;
int const top = j * src_rows + pt->range.start.row;
dat.top_left.col = left;
dat.top_left.row = top;
dat.rinfo.reloc_type = GNM_EXPR_RELOCATE_MOVE_RANGE;
dat.rinfo.origin_sheet = dat.rinfo.target_sheet = pt->sheet;
if (pt->paste_flags & PASTE_EXPR_LOCAL_RELOCATE) {
dat.rinfo.origin.start = cr->base;
dat.rinfo.origin.end.col = cr->base.col + cr->cols - 1;
dat.rinfo.origin.end.row = cr->base.row + cr->rows - 1;
dat.rinfo.col_offset = left - cr->base.col;
dat.rinfo.row_offset = top - cr->base.row;
} else {
dat.rinfo.origin = pt->range;
dat.rinfo.col_offset = 0;
dat.rinfo.row_offset = 0;
}
/* Move the styles on here so we get correct formats before recalc */
if (pt->paste_flags & PASTE_FORMATS) {
if (pt->paste_flags & PASTE_TRANSPOSE)
sheet_style_set_list (pt->sheet, &dat.top_left,
cr->styles,
(sheet_style_set_list_cb_t)
range_transpose,
&dat.top_left);
else if (pt->paste_flags & PASTE_FLIP_H) {
int data = 2 * left + src_cols - 1;
sheet_style_set_list (pt->sheet, &dat.top_left,
cr->styles,
(sheet_style_set_list_cb_t)
range_flip_h, &data);
} else if (pt->paste_flags & PASTE_FLIP_V) {
int data = 2 * top + src_rows - 1;
sheet_style_set_list (pt->sheet, &dat.top_left,
cr->styles,
(sheet_style_set_list_cb_t)
range_flip_v, &data);
} else
sheet_style_set_list (pt->sheet, &dat.top_left,
cr->styles, NULL, NULL);
}
if (has_contents && !(pt->paste_flags & PASTE_DONT_MERGE)) {
for (ptr = cr->merged; ptr != NULL ; ptr = ptr->next) {
GnmRange tmp = *((GnmRange const *)ptr->data);
if (pt->paste_flags & PASTE_TRANSPOSE) {
int x;
x = tmp.start.col; tmp.start.col = tmp.start.row; tmp.start.row = x;
x = tmp.end.col; tmp.end.col = tmp.end.row; tmp.end.row = x;
}
if (!range_translate (&tmp, pt->sheet, left, top))
gnm_sheet_merge_add (pt->sheet, &tmp, TRUE, cc);
}
}
if (has_contents && (pt->paste_flags & PASTE_LINK)) {
paste_link (pt, top, left, cr);
continue;
}
if (has_contents && NULL != cr->cell_content) {
dat.pt = pt;
dat.cr = cr;
g_hash_table_foreach (cr->cell_content,
(GHFunc)cb_paste_cell, &dat);
}
if (pt->paste_flags & (PASTE_COMMENTS | PASTE_OBJECTS))
for (ptr = cr->objects; ptr; ptr = ptr->next)
paste_object (pt, ptr->data, left, top);
}
if (!(pt->paste_flags & PASTE_NO_RECALC)) {
if (has_contents) {
sheet_region_queue_recalc (pt->sheet, r);
sheet_flag_status_update_range (pt->sheet, r);
} else
sheet_flag_style_update_range (pt->sheet, r);
sheet_range_calc_spans (pt->sheet, r,
(pt->paste_flags & PASTE_FORMATS) ? GNM_SPANCALC_RE_RENDER : GNM_SPANCALC_RENDER);
if (pt->paste_flags & PASTE_UPDATE_ROW_HEIGHT)
rows_height_update (pt->sheet, &pt->range, FALSE);
sheet_redraw_all (pt->sheet, FALSE);
}
return FALSE;
}