- csv->file_name = parse_string (opt (d, o, "output-file", "pspp.csv"));
- csv->file = NULL;
- csv->reported_error = false;
+ quote = parse_string (opt (d, o, "quote", "\""));
+ csv->quote = quote[0];
+ free (quote);
+ csv->quote_set = xasprintf ("\n\r\t%s%c", csv->separator, csv->quote);
+ csv->captions = parse_boolean (opt (d, o, "captions", "true"));
+ csv->file_name = xstrdup (file_name);
+ csv->file = fn_open (csv->file_name, "w");
+ csv->n_items = 0;
+
+ if (csv->file == NULL)
+ {
+ error (0, errno, _("error opening output file `%s'"), csv->file_name);
+ output_driver_destroy (d);
+ return NULL;
+ }