gnucash/libgnucash/backend/xml/io-utils.cpp
Frank H. Ellenberger 91183a2af5 drop emacs_trailer from xml files.
Modern versions of emacs know, how to behave on xml files.
2019-11-25 00:42:40 +01:00

92 lines
3.0 KiB
C++

/********************************************************************\
* io-utils.c -- implementation for gnucash file i/o utils *
* *
* Copyright (C) 2001 James LewisMoss <dres@debian.org> *
* *
* 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 <config.h>
#include <stdio.h>
#include <glib.h>
}
#include "gnc-xml.h"
#include "io-utils.h"
#include "sixtp.h"
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);
g_return_val_if_fail(gd, FALSE);
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<Account*> (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);
}