/*
* 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;
}
/**
* stf_export_cell:
* @stfe: an export options struct
* @cell: the cell to write to the file
*
* Return value: return TRUE on success, FALSE otherwise.
**/
static gboolean
stf_export_cell (GnmStfExport *stfe, GnmCell *cell)
{
char const *text = NULL;
char *tmp = NULL;
gboolean ok;
g_return_val_if_fail (stfe != NULL, FALSE);
if (cell) {
switch (stfe->format) {
case GNM_STF_FORMAT_PRESERVE:
text = tmp = gnm_cell_get_rendered_text (cell);
break;
default:
case GNM_STF_FORMAT_AUTO:
if (cell->value) {
GODateConventions const *date_conv =
workbook_date_conv (cell->base.sheet->workbook);
GOFormat const *format = gnm_cell_get_format (cell);
text = tmp = try_auto_date (cell->value, format, date_conv);
if (!text)
text = tmp = try_auto_float (cell->value, format, date_conv);
if (!text)
text = value_peek_string (cell->value);
}
break;
case GNM_STF_FORMAT_RAW:
if (cell->value)
text = value_peek_string (cell->value);
break;
}
}
ok = gsf_output_csv_write_field (GSF_OUTPUT_CSV (stfe),
text ? text : "",
-1);
g_free (tmp);
return ok;
}
G_MODULE_EXPORT void
paradox_file_save (GOFileSaver const *fs, GOIOContext *io_context,
WorkbookView const *wb_view, GsfOutput *output)
{
Sheet *sheet;
GnmRange r;
gint row, col, i;
pxdoc_t *pxdoc = NULL;
pxfield_t *pxf;
char *data;
char *tmpfilename;
sheet = wb_view_cur_sheet (wb_view);
if (sheet == NULL) {
go_io_error_string (io_context, _("Cannot get default sheet."));
return;
}
r = sheet_get_extent (sheet, FALSE, TRUE);
#ifdef PX_MEMORY_DEBUGGING
pxdoc = PX_new2 (gn_errorhandler, PX_mp_malloc, PX_mp_realloc, PX_mp_free);
#else
pxdoc = PX_new2 (gn_errorhandler, gn_malloc, gn_realloc, gn_free);
#endif
/* Read the field specification and build the field array for
* PX_create_fp(). The memory is freed by PX_delete() including
* the memory for the field name. */
if ((pxf = (pxfield_t *) pxdoc->malloc (pxdoc, (r.end.col+1)*sizeof (pxfield_t), _("Allocate memory for field definitions."))) == NULL){
go_io_error_string (io_context, _("Cannot allocate memory for field definitions."));
PX_delete (pxdoc);
return;
}
for (col = r.start.col; col <= r.end.col; col++) {
GnmCell *cell = sheet_cell_get (sheet, col, 0);
if (gnm_cell_is_empty (cell)) {
go_io_error_string (io_context, _("First line of sheet must contain database specification."));
PX_delete (pxdoc);
return;
} else {
gchar *fieldstr, *tmp;
int len, needsize, needprecision;
i = col;
fieldstr = gnm_cell_get_rendered_text (cell);
needsize = 0;
needprecision = 0;
/* Search for the first comma which is the end of the field name. */
tmp = strchr (fieldstr, ',');
if (NULL == tmp) {
g_warning (_("Field specification must be a comma separated value (Name,Type,Size,Prec)."));
PX_delete (pxdoc);
return;
}
len = tmp-fieldstr;
if (NULL == (pxf[i].px_fname = pxdoc->malloc (pxdoc, len+1, _("Allocate memory for column name.")))) {
g_warning (_("Could not allocate memory for %d. field name."), i);
PX_delete (pxdoc);
return;
}
strncpy (pxf[i].px_fname, fieldstr, len);
pxf[i].px_fname[len] = '\0';
/* Get the field Type */
fieldstr = tmp+1;
if (*fieldstr == '\0') {
g_warning (_("%d. field specification ended unexpectedly."), i);
PX_delete (pxdoc);
return;
}
if (*fieldstr == ',') {
g_warning (_("%d. field specification misses type."), i);
PX_delete (pxdoc);
return;
}
switch ((int) *fieldstr) {
case 'S':
pxf[i].px_ftype = pxfShort;
pxf[i].px_flen = 2;
break;
case 'I':
pxf[i].px_ftype = pxfLong;
pxf[i].px_flen = 4;
break;
case 'A':
case 'C':
pxf[i].px_ftype = pxfAlpha;
needsize = 1;
break;
case 'N':
pxf[i].px_ftype = pxfNumber;
pxf[i].px_flen = 8;
break;
case '$':
pxf[i].px_ftype = pxfCurrency;
pxf[i].px_flen = 8;
break;
case 'L':
pxf[i].px_ftype = pxfLogical;
pxf[i].px_flen = 1;
break;
case 'D':
pxf[i].px_ftype = pxfDate;
pxf[i].px_flen = 4;
break;
case '+':
pxf[i].px_ftype = pxfAutoInc;
pxf[i].px_flen = 4;
break;
case '@':
pxf[i].px_ftype = pxfTimestamp;
pxf[i].px_flen = 8;
break;
case 'T':
pxf[i].px_ftype = pxfTime;
pxf[i].px_flen = 4;
break;
case '#':
pxf[i].px_ftype = pxfBCD;
pxf[i].px_flen = 17;
needprecision = 1;
break;
case 'M':
pxf[i].px_ftype = pxfMemoBLOb;
needsize = 1;
break;
case 'B':
pxf[i].px_ftype = pxfBLOb;
needsize = 1;
break;
case 'F':
pxf[i].px_ftype = pxfFmtMemoBLOb;
needsize = 1;
break;
case 'Y':
pxf[i].px_ftype = pxfBytes;
needsize = 1;
break;
default:
g_warning (_("%d. field type '%c' is unknown."), i, *fieldstr);
pxdoc->free (pxdoc, pxf);
PX_delete (pxdoc);
return;
}
if (needsize || needprecision) {
char *endptr;
/* find end of type definition */
tmp = strchr (fieldstr, ',');
if (NULL == tmp || *(tmp+1) == '\0') {
g_warning (_("Field specification misses the column size."));
PX_delete (pxdoc);
return;
}
fieldstr = tmp+1;
if (needsize)
pxf[i].px_flen = strtol (fieldstr, &endptr, 10);
else
pxf[i].px_fdc = strtol (fieldstr, &endptr, 10);
if ((endptr == NULL) || (fieldstr == endptr)) {
g_warning (_("Field specification misses the column size."));
PX_delete (pxdoc);
return;
}
if (*endptr != '\0') {
/* There is also precision which we do not care about. */
fieldstr = endptr+1;
g_warning (_("The remainder '%s' of the specification for field %d is being disregarded."), fieldstr, i+1);
}
}
}
}
/* Create the paradox file */
tmpfilename = tempnam ("/tmp", NULL);
if (0 > PX_create_file (pxdoc, pxf, r.end.col+1, tmpfilename, pxfFileTypNonIndexDB)) {
g_warning (_("Could not create output file."));
PX_delete (pxdoc);
return;
}
PX_set_inputencoding (pxdoc, "UTF-8");
PX_set_parameter (pxdoc, "targetencoding", "CP1252");
PX_set_tablename (pxdoc, sheet->name_unquoted);
if ((data = (char *) pxdoc->malloc (pxdoc, pxdoc->px_head->px_recordsize, _("Allocate memory for record data."))) == NULL) {
g_warning (_("Could not allocate memory for record data."));
PX_close (pxdoc);
PX_delete (pxdoc);
return;
}
/* Process all cells */
for (row = r.start.row+1; row <= r.end.row; row++) {
int i;
int offset;
offset = 0;
memset (data, 0, pxdoc->px_head->px_recordsize);
for (col = r.start.col, i = 0; col <= r.end.col; col++) {
GnmCell *cell = sheet_cell_get (sheet, col, row);
if (!gnm_cell_is_empty (cell)) {
char *fieldstr = gnm_cell_get_rendered_text (cell);
switch (pxf[i].px_ftype) {
case pxfShort: {
int value = value_get_as_int (cell->value);
PX_put_data_short (pxdoc, &data[offset], 2, (short int) value);
break;
}
case pxfLong:
case pxfAutoInc: {
int value = value_get_as_int (cell->value);
PX_put_data_long (pxdoc, &data[offset], 4, value);
break;
}
case pxfTimestamp: {
double value = value_get_as_float (cell->value);
/* 60 would be 29.2.1900 which didn't exist. */
if (value < 60)
value += 1.0;
value += 693594;
value *= 86400000.0;
PX_put_data_double (pxdoc, &data[offset], 8, value);
break;
}
case pxfCurrency:
case pxfNumber: {
double value = value_get_as_float (cell->value);
PX_put_data_double(pxdoc, &data[offset], 8, value);
break;
}
case pxfAlpha: {
char *value = fieldstr;
int nlen = strlen (value);
if (nlen > pxf[i].px_flen)
/* xgettext : last %d gives the number of characters.*/
/* This is input to ngettext. */
g_warning
(ngettext
("Field %d in line %d has possibly "
"been cut off. Data has %d character.",
"Field %d in line %d has possibly "
"been cut off. Data has %d characters.",
nlen),
i+1, row+1, nlen);
PX_put_data_alpha (pxdoc, &data[offset], pxf[i].px_flen, value);
break;
}
case pxfMemoBLOb:
case pxfFmtMemoBLOb: {
char *value = fieldstr;
if (0 > PX_put_data_blob (pxdoc, &data[offset], pxf[i].px_flen, value, strlen (value))) {
g_warning (_("Field %d in row %d could not be written."), i+1, row+1);
}
break;
}
case pxfDate: {
long value = value_get_as_int (cell->value);
/* 60 would be 29.2.1900 which didn't exist. */
if (value < 60)
value++;
value += 693594;
PX_put_data_long (pxdoc, &data[offset], 4, value);
break;
}
case pxfTime: {
double dtmp;
int value;
dtmp = value_get_as_float (cell->value);
dtmp -= ((int) dtmp);
value = (int) (dtmp * 86400000.0);
PX_put_data_long (pxdoc, &data[offset], 4, value);
break;
}
case pxfLogical: {
gboolean err; /* Ignored */
gboolean value = value_get_as_bool (cell->value, &err);
PX_put_data_byte (pxdoc, &data[offset], 1, value ? 1 : 0);
break;
}
case pxfBCD:
PX_put_data_bcd (pxdoc, &data[offset], pxf[i].px_fdc, fieldstr);
break;
}
}
offset += pxf[i].px_flen;
i++;
}
if ((i > 0) && (0 > PX_put_record (pxdoc, data))) {
g_warning (_("Could not write record number %d."), i+1);
pxdoc->free (pxdoc, data);
PX_close (pxdoc);
PX_delete (pxdoc);
return;
}
}
pxdoc->free (pxdoc, data);
PX_close (pxdoc);
PX_delete (pxdoc);
#ifdef PX_MEMORY_DEBUGGING
PX_mp_list_unfreed ();
#endif
{
FILE *fp;
size_t size;
fp = fopen (tmpfilename, "r");
if (fp) {
data = g_malloc (8192);
while (0 != (size = fread (data, 1, 8192, fp)))
gsf_output_write (output, size, data);
fclose (fp);
g_free (data);
} else
g_warning ("Cannot open %s\n", tmpfilename);
unlink (tmpfilename);
}
}
/*
* 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."));
}
/**
* dialog_fill_series_tool_init:
* @state:
*
* Create the dialog (guru).
*
**/
static void
dialog_fill_series_tool_init (FillSeriesState *state)
{
GtkWidget *radio;
char const *button;
GnmRange const *sel;
gboolean prefer_rows = FALSE;
sel = selection_first_range (state->base.sv, NULL, NULL);
/* Set the sensitivity of Unit day. */
radio = go_gtk_builder_get_widget (state->base.gui,
"type_date");
g_signal_connect (G_OBJECT (radio), "clicked",
G_CALLBACK (cb_type_button_clicked), state);
state->stop_entry = go_gtk_builder_get_widget (state->base.gui, "stop_entry");
g_signal_connect_after (G_OBJECT (state->stop_entry),
"changed",
G_CALLBACK (cb_fill_series_update_sensitivity), state);
state->step_entry = go_gtk_builder_get_widget (state->base.gui, "step_entry");
g_signal_connect_after (G_OBJECT (state->step_entry),
"changed",
G_CALLBACK (cb_fill_series_update_sensitivity), state);
state->start_entry = go_gtk_builder_get_widget (state->base.gui, "start_entry");
g_signal_connect_after (G_OBJECT (state->start_entry),
"changed",
G_CALLBACK (cb_fill_series_update_sensitivity), state);
state->date_steps_type = go_gtk_builder_get_widget (state->base.gui,
"table-date-unit");
gtk_widget_set_sensitive (state->date_steps_type, FALSE);
button = (sel == NULL ||
(prefer_rows =
(range_width (sel) >= range_height (sel))))
? "series_in_rows"
: "series_in_cols";
radio = go_gtk_builder_get_widget (state->base.gui, button);
gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (radio), TRUE);
if (sel != NULL) {
GnmCell *cell_start;
GnmCell *cell_end;
dialog_tool_preset_to_range (&state->base);
cell_start = sheet_cell_get (state->base.sheet,
sel->start.col, sel->start.row);
if (cell_start) {
char *content = gnm_cell_get_rendered_text (cell_start);
if (content) {
gtk_entry_set_text (GTK_ENTRY (state->start_entry),
content);
g_free (content);
}
}
cell_end = prefer_rows ?
sheet_cell_get (state->base.sheet,
sel->end.col, sel->start.row) :
sheet_cell_get (state->base.sheet,
sel->start.col, sel->end.row);
if (cell_end) {
char *content = gnm_cell_get_rendered_text (cell_end);
if (content) {
gtk_entry_set_text (GTK_ENTRY (state->stop_entry),
content);
g_free (content);
}
}
if (cell_start && cell_end) {
float_to_entry (GTK_ENTRY(state->step_entry),
(value_get_as_float(cell_end->value) -
value_get_as_float(cell_start->value))
/ (prefer_rows ?
(sel->end.col-sel->start.col) :
(sel->end.row-sel->start.row)));
}
}
cb_fill_series_update_sensitivity (NULL, state);
}
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>");
}
}
}
