static void
stf_write_csv (G_GNUC_UNUSED GOFileSaver const *fs, GOIOContext *context,
GoView const *view, GsfOutput *output)
{
Sheet *sheet;
GnmRangeRef const *range;
WorkbookView *wbv = GNM_WORKBOOK_VIEW (view);
GnmStfExport *config = g_object_new
(GNM_STF_EXPORT_TYPE,
"sink", output,
"quoting-triggers", ", \t\n\"",
NULL);
/* FIXME: this is crap in both branches of the "if". */
range = g_object_get_data (G_OBJECT (wb_view_get_workbook (wbv)), "ssconvert-range");
if (range && range->a.sheet)
sheet = range->a.sheet;
else
sheet = wb_view_cur_sheet (wbv);
gnm_stf_export_options_sheet_list_add (config, sheet);
if (gnm_stf_export (config) == FALSE)
go_cmd_context_error_import (GO_CMD_CONTEXT (context),
_("Error while trying to write CSV file"));
g_object_unref (config);
}
static void
gnm_stf_file_saver_save (G_GNUC_UNUSED GOFileSaver const *fs, GOIOContext *context,
GoView const *view, GsfOutput *output)
{
WorkbookView *wbv = GNM_WORKBOOK_VIEW (view);
Workbook *wb = wb_view_get_workbook (wbv);
GnmStfExport *stfe = gnm_stf_get_stfe (G_OBJECT (wb));
GsfOutput *dummy_sink;
/* TODO: move this GUI dependent code out of this
* filesaver into gui-file.c. After this, remove includes (see above). */
if (GNM_IS_WBC_GTK (context->impl)) {
gboolean cancelled =
stf_export_dialog (WBC_GTK (context->impl), stfe, wb);
if (cancelled) {
go_io_error_unknown (context);
return;
}
}
if (!stfe->sheet_list)
gnm_stf_export_options_sheet_list_add
(stfe, wb_view_cur_sheet (wbv));
g_object_set (G_OBJECT (stfe), "sink", output, NULL);
if (gnm_stf_export (stfe) == FALSE)
go_cmd_context_error_import (GO_CMD_CONTEXT (context),
_("Error while trying to export file as text"));
/* We're not allowed to set a NULL sink, so use a dummy. */
dummy_sink = gsf_output_memory_new ();
g_object_set (G_OBJECT (stfe), "sink", dummy_sink, NULL);
g_object_unref (dummy_sink);
}
static char *
stf_preparse (GOIOContext *context, GsfInput *input, size_t *data_len)
{
char *data;
data = stf_open_and_read (context, input, data_len);
if (!data) {
if (context)
go_cmd_context_error_import (GO_CMD_CONTEXT (context),
_("Error while trying to read file"));
return NULL;
}
return data;
}
void
glpk_file_save (GOFileSaver const *fs, GOIOContext *io_context,
WorkbookView const *wb_view, GsfOutput *output)
{
GError *err = NULL;
GString *prg;
GnmLocale *locale;
GnmSolver *sol = NULL;
GnmSubSolver *ssol = g_object_get_data (G_OBJECT (fs), "solver");
if (!ssol) {
// Create a temporary solver just functional enough to
// write the program
Sheet *sheet = wb_view_cur_sheet (wb_view);
sol = glpk_solver_create (sheet->solver_parameters);
ssol = GNM_SUB_SOLVER (sol);
}
go_io_progress_message (io_context,
_("Writing glpk file..."));
locale = gnm_push_C_locale ();
prg = glpk_create_program (ssol, io_context, &err);
gnm_pop_C_locale (locale);
gnm_app_recalc ();
if (!prg) {
go_cmd_context_error_import (GO_CMD_CONTEXT (io_context),
err ? err->message : "?");
goto fail;
}
gsf_output_write (output, prg->len, prg->str);
g_string_free (prg, TRUE);
fail:
go_io_progress_unset (io_context);
if (err)
g_error_free (err);
if (sol)
g_object_unref (sol);
}
/**
* gnm_ft_new_from_file:
* @context:
* @filename: The filename to load from
*
* Create a new GnmFT and load a template file
* into it.
*
* Return value: (transfer full): a new GnmFT (or NULL on error)
**/
GnmFT *
gnm_ft_new_from_file (char const *filename, GOCmdContext *cc)
{
GnmFT *ft = NULL;
GsfXMLInDoc *doc = NULL;
GnmLocale *locale;
gboolean ok = FALSE;
GsfInput *input = NULL;
g_return_val_if_fail (filename != NULL, NULL);
input = gsf_input_stdio_new (filename, NULL);
if (!input) {
go_cmd_context_error_import
(cc,
_("Error while opening autoformat template"));
goto done;
}
doc = gsf_xml_in_doc_new (template_dtd, template_ns);
if (doc == NULL)
goto done;
gsf_xml_in_doc_set_unknown_handler (doc, &template_sax_unknown);
ft = gnm_ft_new ();
ft->filename = g_strdup (filename);
locale = gnm_push_C_locale ();
ok = gsf_xml_in_doc_parse (doc, input, ft);
gnm_pop_C_locale (locale);
done:
if (input) g_object_unref (input);
if (doc) gsf_xml_in_doc_free (doc);
if (ft && !ok) {
gnm_ft_free (ft);
ft = NULL;
}
return ft;
}
/*
* stf_read_workbook_auto_csvtab:
* @fo: file opener
* @enc: optional encoding
* @context: command context
* @book: workbook
* @input: file to read from+convert
*
* Attempt to auto-detect CSV or tab-delimited file
*/
static void
stf_read_workbook_auto_csvtab (G_GNUC_UNUSED GOFileOpener const *fo, gchar const *enc,
GOIOContext *context,
GoView *view, GsfInput *input)
{
Sheet *sheet;
Workbook *book;
char *name;
char *data;
GString *utf8data;
size_t data_len;
StfParseOptions_t *po;
const char *gsfname;
int cols, rows, i;
GStringChunk *lines_chunk;
GPtrArray *lines;
WorkbookView *wbv = GNM_WORKBOOK_VIEW (view);
g_return_if_fail (context != NULL);
g_return_if_fail (wbv != NULL);
book = wb_view_get_workbook (wbv);
data = stf_preparse (context, input, &data_len);
if (!data)
return;
enc = go_guess_encoding (data, data_len, enc, &utf8data, NULL);
g_free (data);
if (!enc) {
go_cmd_context_error_import (GO_CMD_CONTEXT (context),
_("That file is not in the given encoding."));
return;
}
clear_stray_NULs (context, utf8data);
/*
* Try to get the filename we're reading from. This is not a
* great way.
*/
gsfname = gsf_input_name (input);
{
const char *ext = gsf_extension_pointer (gsfname);
gboolean iscsv = ext && strcasecmp (ext, "csv") == 0;
if (iscsv)
po = stf_parse_options_guess_csv (utf8data->str);
else
po = stf_parse_options_guess (utf8data->str);
}
lines_chunk = g_string_chunk_new (100 * 1024);
lines = stf_parse_general (po, lines_chunk,
utf8data->str, utf8data->str + utf8data->len);
rows = lines->len;
cols = 0;
for (i = 0; i < rows; i++) {
GPtrArray *line = g_ptr_array_index (lines, i);
cols = MAX (cols, (int)line->len);
}
gnm_sheet_suggest_size (&cols, &rows);
stf_parse_general_free (lines);
g_string_chunk_free (lines_chunk);
name = g_path_get_basename (gsfname);
sheet = sheet_new (book, name, cols, rows);
g_free (name);
workbook_sheet_attach (book, sheet);
if (stf_parse_sheet (po, utf8data->str, NULL, sheet, 0, 0)) {
gboolean is_csv;
workbook_recalc_all (book);
resize_columns (sheet);
if (po->cols_exceeded || po->rows_exceeded) {
stf_warning (context,
_("Some data did not fit on the "
"sheet and was dropped."));
}
is_csv = po->sep.chr && po->sep.chr[0] == ',';
workbook_set_saveinfo
(book,
GO_FILE_FL_WRITE_ONLY,
go_file_saver_for_id
(is_csv ? "Gnumeric_stf:stf_csv" : "Gnumeric_stf:stf_assistant"));
} else {
workbook_sheet_delete (sheet);
go_cmd_context_error_import (GO_CMD_CONTEXT (context),
_("Parse error while trying to parse data into sheet"));
}
stf_parse_options_free (po);
g_string_free (utf8data, TRUE);
}
/**
* stf_text_to_columns:
* @wbc: The control making the request
* @cc:
*
* Main routine, handles importing a file including all dialog mumbo-jumbo
**/
void
stf_text_to_columns (WorkbookControl *wbc, GOCmdContext *cc)
{
DialogStfResult_t *dialogresult = NULL;
SheetView *sv;
Sheet *src_sheet, *target_sheet;
GnmRange const *src;
GnmRange target;
GsfOutput *buf;
guint8 const *data;
size_t data_len;
sv = wb_control_cur_sheet_view (wbc);
src_sheet = sv_sheet (sv);
src = selection_first_range (sv, cc, _("Text to Columns"));
if (src == NULL)
return;
if (range_width (src) > 1) {
go_cmd_context_error (cc, g_error_new (go_error_invalid (), 0,
_("Only one column of input data can be parsed at a time")));
return;
}
/* FIXME : how to do this cleanly ? */
if (!GNM_IS_WBC_GTK (wbc))
return;
#warning Add UI for this
target_sheet = src_sheet;
target = *src;
range_translate (&target, target_sheet, 1, 0);
buf = gsf_output_memory_new ();
sheet_foreach_cell_in_range (src_sheet,
CELL_ITER_ALL,
src->start.col, src->start.row,
src->end.col, src->end.row,
(CellIterFunc) &cb_get_content, buf);
gsf_output_close (buf);
data = gsf_output_memory_get_bytes (GSF_OUTPUT_MEMORY (buf));
data_len = (size_t)gsf_output_size (buf);
if (data_len == 0) {
go_cmd_context_error_import (GO_CMD_CONTEXT (cc),
_("There is no data "
"to convert"));
} else {
dialogresult = stf_dialog (WBC_GTK (wbc),
NULL, FALSE, NULL, FALSE,
_("Text to Columns"),
data, data_len);
}
if (dialogresult != NULL) {
GnmCellRegion *cr = stf_parse_region (dialogresult->parseoptions,
dialogresult->text, NULL, target_sheet->workbook);
if (cr != NULL) {
stf_dialog_result_attach_formats_to_cr (dialogresult, cr);
target.end.col = target.start.col + cr->cols - 1;
target.end.row = target.start.row + cr->rows - 1;
}
if (cr == NULL ||
cmd_text_to_columns (wbc, src, src_sheet,
&target, target_sheet, cr))
go_cmd_context_error_import (GO_CMD_CONTEXT (cc),
_("Error while trying to "
"parse data into sheet"));
stf_dialog_result_free (dialogresult);
}
g_object_unref (buf);
}
