mirror of
https://github.com/Gnucash/gnucash.git
synced 2024-12-02 13:39:43 -06:00
91183a2af5
Modern versions of emacs know, how to behave on xml files.
92 lines
3.0 KiB
C++
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);
|
|
}
|