/********************************************************************\ * io-utils.c -- implementation for gnucash file i/o utils * * * * Copyright (C) 2001 James LewisMoss * * * * This program is free software; you can redistribute it and/or * * modify it under the terms of the GNU General Public License as * * published by the Free Software Foundation; either version 2 of * * the License, or (at your option) any later version. * * * * This program is distributed in the hope that it will be useful, * * but WITHOUT ANY WARRANTY; without even the implied warranty of * * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * * GNU General Public License for more details. * * * * You should have received a copy of the GNU General Public License* * along with this program; if not, contact: * * * * Free Software Foundation Voice: +1-617-542-5942 * * 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652 * * Boston, MA 02110-1301, USA gnu@gnu.org * * * \********************************************************************/ extern "C" { #include #include #include } #include "gnc-xml.h" #include "io-utils.h" #include "sixtp.h" /* */ static const gchar* emacs_trailer = "\n" "\n" "\n"; gboolean write_emacs_trailer (FILE* out) { return fprintf (out, "%s", emacs_trailer) >= 0; } static gboolean write_one_account (FILE* out, Account* account, sixtp_gdv2* gd, gboolean allow_incompat) { xmlNodePtr accnode; accnode = gnc_account_dom_tree_create (account, gd && gd->exporting, allow_incompat); xmlElemDump (out, NULL, accnode); xmlFreeNode (accnode); if (ferror (out) || fprintf (out, "\n") < 0) return FALSE; gd->counter.accounts_loaded++; sixtp_run_callback (gd, "account"); return TRUE; } gboolean write_account_tree (FILE* out, Account* root, sixtp_gdv2* gd) { GList* descendants, *node; gboolean allow_incompat = TRUE; gboolean success = TRUE; if (allow_incompat) if (!write_one_account (out, root, gd, allow_incompat)) return FALSE; descendants = gnc_account_get_descendants (root); for (node = descendants; node; node = g_list_next (node)) { if (!write_one_account (out, static_cast (node->data), gd, allow_incompat)) { success = FALSE; break; } } g_list_free (descendants); return success; } gboolean write_accounts (FILE* out, QofBook* book, sixtp_gdv2* gd) { return write_account_tree (out, gnc_book_get_root_account (book), gd); }