//
// aegis - project change supervisor
// Copyright (C) 2003-2008 Peter Miller
//
// 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 3 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, see
// .
//
#include
#include
#include
#include
#include
#include
#include
#include
void
xml_project_fstate(struct string_ty *project_name, long change_number,
output::pointer op)
{
project_ty *pp;
size_t j;
trace(("xml_project_fstate()\n{\n"));
if (change_number)
list_change_inappropriate();
//
// locate project data
//
if (!project_name)
{
nstring n = user_ty::create()->default_project();
project_name = str_copy(n.get_ref());
}
else
project_name = str_copy(project_name);
pp = project_alloc(project_name);
str_free(project_name);
pp->bind_existing();
//
// We don't actually use project_fstate_get() because very soon it
// is going to be broken up into one-file-per-file and this will no
// longer exist. So we synthesize it.
//
op->fputs("\n\n");
for (j = 0; ; ++j)
{
fstate_src_ty *src;
src = pp->file_nth(j, view_path_simple);
if (!src)
break;
fstate_src_write_xml(op, "fstate_src", src);
}
op->fputs("\n\n");
project_free(pp);
trace(("}\n"));
}