/*
* 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;
}
static GnmValue *
cb_sylk_write_cell (GnmCellIter const *iter, SylkWriter *state)
{
GnmValue const *v;
GnmExprTop const *texpr;
GnmExprArrayCorner const *array;
if (iter->pp.eval.row != state->cur_row)
gsf_output_printf (state->output, "C;Y%d;X%d",
(state->cur_row = iter->pp.eval.row) + 1,
iter->pp.eval.col + 1);
else
gsf_output_printf (state->output, "C;X%d",
iter->pp.eval.col + 1);
if (NULL != (v = iter->cell->value)) {
if (VALUE_IS_STRING (v)) {
gsf_output_write (state->output, 3, ";K\"");
sylk_write (state, v->v_str.val->str);
gsf_output_write (state->output, 1, "\"");
} else if (VALUE_IS_NUMBER (v) || VALUE_IS_ERROR (v)) {
GString *res = g_string_sized_new (10);
value_get_as_gstring (v, res, state->convs);
gsf_output_write (state->output, 2, ";K");
gsf_output_write (state->output, res->len, res->str);
g_string_free (res, TRUE);
} /* ignore the rest */
}
if (NULL != (texpr = iter->cell->base.texpr)) {
if (NULL != (array = gnm_expr_top_get_array_corner (texpr))) {
gsf_output_printf (state->output, ";R%d;C%d;M",
iter->pp.eval.row + array->rows,
iter->pp.eval.col + array->cols);
} else if (gnm_expr_top_is_array_elem (texpr, NULL, NULL)) {
gsf_output_write (state->output, 2, ";I");
texpr = NULL;
} else
gsf_output_write (state->output, 2, ";E");
if (texpr != NULL) {
GnmConventionsOut out;
out.accum = g_string_new (NULL);
out.pp = &iter->pp;
out.convs = state->convs;
gnm_expr_top_as_gstring (texpr, &out);
sylk_write (state, out.accum->str);
g_string_free (out.accum, TRUE);
}
}
gsf_output_write (state->output, 2, "\r\n");
return NULL;
}
static void
sylk_write_sheet (SylkWriter *state)
{
GnmRange extent;
/* collect style and font info */
extent = sheet_get_extent (state->sheet, FALSE, TRUE);
sheet_style_foreach (state->sheet,
(GFunc)cb_sylk_collect_styles, state);
sheet_cell_foreach (state->sheet,
(GHFunc)cb_sylk_collect_cell_styles, state);
/*
* 1) formats P;P.....
* 2.1) ?? fonts P;F....
* 2.2) indexed fonts P;E....
* 3) global formats F;
*/
/* Global Formatting */
/* F;P0;DG0G10;SM0;Z;M280;N3 10 */
/* Bounds */
gsf_output_printf (state->output, "B;Y%d;X%d;D0 0 %d %d\r\n",
extent.end.row + 1, extent.end.col + 1,
extent.end.row, extent.end.col);
/* Global options */
gsf_output_printf (state->output, "O;%c%d %f",
(state->wb->iteration.enabled ? 'A' : 'G'),
state->wb->iteration.max_number,
state->wb->iteration.tolerance);
if (!state->sheet->convs->r1c1_addresses)
gsf_output_puts (state->output, ";L");
if (!state->wb->recalc_auto)
gsf_output_puts (state->output, ";M");
gsf_output_printf (state->output, ";V%d",
workbook_date_conv (state->wb)->use_1904 ? 4 : 0);
if (state->sheet->hide_zero)
gsf_output_puts (state->output, ";Z");
gsf_output_write (state->output, 2, "\r\n");
/* dump content */
state->cur_row = -1;
sheet_foreach_cell_in_range (state->sheet, CELL_ITER_IGNORE_BLANK,
extent.start.col, extent.start.row,
extent.end.col, extent.end.row,
(CellIterFunc) cb_sylk_write_cell, state);
}
static void
html_write_one_border_style_40 (GsfOutput *output, GnmBorder *border, char const *border_name)
{
char *text;
text = html_get_border_style (border);
if (text == NULL || strlen (text) == 0)
return;
gsf_output_printf (output, " %s:%s;", border_name, text);
g_free (text);
}
/*
* write_row:
*
* @output: the stream
* @sheet: the gnumeric sheet
* @row: the row number
*
* Set up a TD node for each cell in the given row, witht eh appropriate
* colspan and rowspan.
* Call write_cell for each cell.
*/
static void
write_row (GsfOutput *output, Sheet *sheet, gint row, GnmRange *range, html_version_t version)
{
gint col;
ColRowInfo const *ri = sheet_row_get_info (sheet, row);
if (ri->needs_respan)
row_calc_spans ((ColRowInfo *) ri, row, sheet);
for (col = range->start.col; col <= range->end.col; col++) {
CellSpanInfo const *the_span;
GnmRange const *merge_range;
GnmCellPos pos;
pos.col = col;
pos.row = row;
/* Is this a span */
the_span = row_span_get (ri, col);
if (the_span != NULL) {
gsf_output_printf (output, "<td colspan=\"%i\" ", the_span->right - col + 1);
write_cell (output, sheet, row, the_span->cell->pos.col, version, FALSE);
col = the_span->right;
continue;
}
/* is this covered by a merge */
merge_range = gnm_sheet_merge_contains_pos (sheet, &pos);
if (merge_range != NULL) {
if (merge_range->start.col != col ||
merge_range->start.row != row)
continue;
gsf_output_printf (output, "<td colspan=\"%i\" rowspan=\"%i\" ",
merge_range->end.col - merge_range->start.col + 1,
merge_range->end.row - merge_range->start.row + 1);
write_cell (output, sheet, row, col, version, TRUE);
col = merge_range->end.col;
continue;
}
gsf_output_puts (output, "<td ");
write_cell (output, sheet, row, col, version, FALSE);
}
}
/*
* html_print_encoded:
*
* @output: the stream
* @str: the string
*
* print the string to output encoded all special chars
*
*/
static void
html_print_encoded (GsfOutput *output, char const *str)
{
gunichar c;
if (str == NULL)
return;
for (; *str != '\0' ; str = g_utf8_next_char (str)) {
switch (*str) {
case '<':
gsf_output_puts (output, "<");
break;
case '>':
gsf_output_puts (output, ">");
break;
case '&':
gsf_output_puts (output, "&");
break;
case '\"':
gsf_output_puts (output, """);
break;
case '\n':
gsf_output_puts (output, "<br>\n");
break;
case '\r':
gsf_output_puts (output, "<br>\r");
if( *(str+1) == '\n' ) {
gsf_output_puts (output, "\n");
str++;
}
break;
default:
c = g_utf8_get_char (str);
if (((c >= 0x20) && (c < 0x80)) ||
(c == '\n') || (c == '\r') || (c == '\t'))
gsf_output_write (output, 1, str);
else
gsf_output_printf (output, "&#%u;", c);
break;
}
}
}
static int
write_properties( VipsForeignSaveDz *dz )
{
GsfOutput *out;
out = vips_gsf_path( dz->tree, "ImageProperties.xml", NULL );
gsf_output_printf( out, "<IMAGE_PROPERTIES "
"WIDTH=\"%d\" HEIGHT=\"%d\" NUMTILES=\"%d\" "
"NUMIMAGES=\"1\" VERSION=\"1.8\" TILESIZE=\"%d\" />\n",
dz->layer->width,
dz->layer->height,
dz->tile_count,
dz->tile_size );
(void) gsf_output_close( out );
g_object_unref( out );
return( 0 );
}
/*
* Write _current_ sheet of the workbook to a DIF format file
*/
void
dif_file_save (GOFileSaver const *fs, GOIOContext *io_context,
WorkbookView const *wbv, GsfOutput *out)
{
GnmLocale *locale;
Sheet *sheet;
GnmRange r;
gint row, col;
gboolean ok = TRUE;
sheet = wb_view_cur_sheet (wbv);
if (sheet == NULL) {
go_io_error_string (io_context, _("Cannot get default sheet."));
return;
}
r = sheet_get_extent (sheet, FALSE, TRUE);
/* Write out the standard headers */
gsf_output_puts (out, "TABLE\n" "0,1\n" "\"GNUMERIC\"\n");
gsf_output_printf (out, "VECTORS\n" "0,%d\n" "\"\"\n", r.end.col+1);
gsf_output_printf (out, "TUPLES\n" "0,%d\n" "\"\"\n", r.end.row+1);
gsf_output_puts (out, "DATA\n" "0,0\n" "\"\"\n");
locale = gnm_push_C_locale ();
/* Process all cells */
for (row = r.start.row; ok && row <= r.end.row; row++) {
gsf_output_puts (out, "-1,0\n" "BOT\n");
for (col = r.start.col; col <= r.end.col; col++) {
GnmCell *cell = sheet_cell_get (sheet, col, row);
if (gnm_cell_is_empty (cell)) {
gsf_output_puts(out, "1,0\n" "\"\"\n");
} else if (VALUE_IS_BOOLEAN (cell->value)) {
if (value_get_as_checked_bool (cell->value))
gsf_output_puts(out, "0,1\n" "TRUE\n");
else
gsf_output_puts(out, "0,0\n" "FALSE\n");
} else if (VALUE_IS_ERROR (cell->value)) {
if (value_error_classify (cell->value) == GNM_ERROR_NA)
gsf_output_puts(out, "0,0\n" "NA\n");
else
gsf_output_puts(out, "0,0\n" "ERROR\n");
} else if (VALUE_IS_FLOAT (cell->value))
gsf_output_printf (out, "0,%" GNM_FORMAT_g "\n" "V\n",
value_get_as_float (cell->value));
else {
gchar *str = gnm_cell_get_rendered_text (cell);
ok = gsf_output_printf (out,
"1,0\n" "\"%s\"\n",
str);
g_free (str);
}
}
}
gsf_output_puts (out, "-1,0\n" "EOD\n");
gnm_pop_C_locale (locale);
if (!ok)
go_io_error_string (io_context, _("Error while saving DIF file."));
}
/*
* 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);
}
static void
write_cell (GsfOutput *output, Sheet *sheet, gint row, gint col, html_version_t version, gboolean is_merge)
{
GnmCell *cell;
GnmStyle const *style;
guint r, g, b;
style = sheet_style_get (sheet, col, row);
if (style != NULL && version != HTML32 && version != HTML40 &&
gnm_style_get_pattern (style) != 0 &&
gnm_style_is_element_set (style, MSTYLE_COLOR_BACK)) {
html_get_back_color (style, &r, &g, &b);
gsf_output_printf (output, " bgcolor=\"#%02X%02X%02X\"", r, g, b);
}
cell = sheet_cell_get (sheet, col, row);
if (cell != NULL) {
switch (gnm_style_get_align_v (style)) {
case GNM_VALIGN_TOP:
gsf_output_puts (output, " valign=\"top\" ");
break;
case GNM_VALIGN_BOTTOM:
gsf_output_puts (output, " valign=\"bottom\" ");
break;
case GNM_VALIGN_DISTRIBUTED:
case GNM_VALIGN_CENTER:
gsf_output_puts (output, " valign=\"center\" ");
break;
case GNM_VALIGN_JUSTIFY:
gsf_output_puts (output, " valign=\"baseline\" ");
break;
default:
break;
}
switch (gnm_style_default_halign (style, cell)) {
case GNM_HALIGN_RIGHT:
gsf_output_puts (output, " align=\"right\" ");
break;
case GNM_HALIGN_DISTRIBUTED:
case GNM_HALIGN_CENTER:
case GNM_HALIGN_CENTER_ACROSS_SELECTION:
gsf_output_puts (output, " align=\"center\" ");
break;
case GNM_HALIGN_LEFT:
gsf_output_puts (output, " align=\"left\" ");
break;
case GNM_HALIGN_JUSTIFY:
gsf_output_puts (output, " align=\"justify\" ");
break;
default:
break;
}
}
if (version == HTML40 || version == HTML40F || version ==XHTML) {
if (style != NULL) {
gsf_output_printf (output, " style=\"");
if (gnm_style_get_pattern (style) != 0 &&
gnm_style_is_element_set (style, MSTYLE_COLOR_BACK)) {
html_get_back_color (style, &r, &g, &b);
gsf_output_printf (output, "background:#%02X%02X%02X;", r, g, b);
}
if (cell != NULL) {
gint size = (int) (gnm_style_get_font_size (style) + 0.5);
gsf_output_printf (output, " font-size:%ipt;", size);
html_get_text_color (cell, style, &r, &g, &b);
if (r > 0 || g > 0 || b > 0)
gsf_output_printf (output, " color:#%02X%02X%02X;", r, g, b);
if (gnm_style_get_contents_hidden (style))
gsf_output_puts (output, " visibility:hidden;");
}
if (is_merge)
html_write_border_style_40_for_merged_cell (output, style, sheet, row, col);
else
html_write_border_style_40 (output, style);
gsf_output_printf (output, "\"");
}
}
gsf_output_printf (output, ">");
html_write_cell_content (output, cell, style, version);
gsf_output_puts (output, "</td>\n");
}
static void
html_write_cell_content (GsfOutput *output, GnmCell *cell, GnmStyle const *style, html_version_t version)
{
guint r = 0;
guint g = 0;
guint b = 0;
char *rendered_string;
gboolean hidden = gnm_style_get_contents_hidden (style);
GnmHLink* hlink = gnm_style_get_hlink (style);
const guchar* hlink_target = NULL;
if (hlink && GNM_IS_HLINK_URL (hlink)) {
hlink_target = gnm_hlink_get_target (hlink);
}
if (version == HTML32 && hidden)
gsf_output_puts (output, "<!-- 'HIDDEN DATA' -->");
else {
if (style != NULL) {
if (gnm_style_get_font_italic (style))
gsf_output_puts (output, "<i>");
if (gnm_style_get_font_bold (style))
gsf_output_puts (output, "<b>");
if (gnm_style_get_font_uline (style) != UNDERLINE_NONE)
gsf_output_puts (output, "<u>");
if (font_is_monospaced (style))
gsf_output_puts (output, "<tt>");
if (gnm_style_get_font_strike (style)) {
if (version == HTML32)
gsf_output_puts (output, "<strike>");
else
gsf_output_puts (output,
"<span style=\"text-decoration: line-through;\">");
}
switch (gnm_style_get_font_script (style)) {
case GO_FONT_SCRIPT_SUB:
gsf_output_puts (output, "<sub>");
break;
case GO_FONT_SCRIPT_SUPER:
gsf_output_puts (output, "<sup>");
break;
default:
break;
}
}
if (hlink_target)
gsf_output_printf (output, "<a href=\"%s\">", hlink_target);
if (cell != NULL) {
const PangoAttrList * markup = NULL;
if (style != NULL && version != HTML40) {
html_get_text_color (cell, style, &r, &g, &b);
if (r > 0 || g > 0 || b > 0)
gsf_output_printf (output, "<font color=\"#%02X%02X%02X\">", r, g, b);
}
if (VALUE_IS_STRING (cell->value)
&& (VALUE_FMT (cell->value) != NULL)
&& go_format_is_markup (VALUE_FMT (cell->value)))
markup = go_format_get_markup (VALUE_FMT (cell->value));
if (markup != NULL) {
GString *str = g_string_new ("");
value_get_as_gstring (cell->value, str, NULL);
html_new_markup (output, markup, str->str, version);
g_string_free (str, TRUE);
} else {
rendered_string = gnm_cell_get_rendered_text (cell);
html_print_encoded (output, rendered_string);
g_free (rendered_string);
}
}
if (r > 0 || g > 0 || b > 0)
gsf_output_puts (output, "</font>");
if (hlink_target)
gsf_output_puts (output, "</a>");
if (style != NULL) {
if (gnm_style_get_font_strike (style)) {
if (version == HTML32)
gsf_output_puts (output, "</strike>");
else
gsf_output_puts (output, "</span>");
}
switch (gnm_style_get_font_script (style)) {
case GO_FONT_SCRIPT_SUB:
gsf_output_puts (output, "</sub>");
break;
case GO_FONT_SCRIPT_SUPER:
gsf_output_puts (output, "</sup>");
break;
default:
break;
}
if (font_is_monospaced (style))
gsf_output_puts (output, "</tt>");
if (gnm_style_get_font_uline (style) != UNDERLINE_NONE)
gsf_output_puts (output, "</u>");
if (gnm_style_get_font_bold (style))
gsf_output_puts (output, "</b>");
if (gnm_style_get_font_italic (style))
gsf_output_puts (output, "</i>");
}
}
}
static int
write_dzi( VipsForeignSaveDz *dz )
{
GsfOutput *out;
char buf[VIPS_PATH_MAX];
char *p;
vips_snprintf( buf, VIPS_PATH_MAX, "%s.dzi", dz->basename );
out = vips_gsf_path( dz->tree, buf, NULL );
vips_snprintf( buf, VIPS_PATH_MAX, "%s", dz->suffix + 1 );
if( (p = (char *) vips__find_rightmost_brackets( buf )) )
*p = '\0';
gsf_output_printf( out, "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" );
gsf_output_printf( out, "<Image "
"xmlns=\"http://schemas.microsoft.com/deepzoom/2008\"\n" );
gsf_output_printf( out, " Format=\"%s\"\n", buf );
gsf_output_printf( out, " Overlap=\"%d\"\n", dz->overlap );
gsf_output_printf( out, " TileSize=\"%d\"\n", dz->tile_size );
gsf_output_printf( out, " >\n" );
gsf_output_printf( out, " <Size \n" );
gsf_output_printf( out, " Height=\"%d\"\n", dz->layer->height );
gsf_output_printf( out, " Width=\"%d\"\n", dz->layer->width );
gsf_output_printf( out, " />\n" );
gsf_output_printf( out, "</Image>\n" );
(void) gsf_output_close( out );
g_object_unref( out );
return( 0 );
}