1 /* -*- mode: c; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4; c-file-style: "stroustrup"; -*-
3 * This source code is part of
7 * GROningen MAchine for Chemical Simulations
10 * Written by David van der Spoel, Erik Lindahl, Berk Hess, and others.
11 * Copyright (c) 1991-2000, University of Groningen, The Netherlands.
12 * Copyright (c) 2001-2008, The GROMACS development team,
13 * check out http://www.gromacs.org for more information.
15 * This program is free software; you can redistribute it and/or
16 * modify it under the terms of the GNU General Public License
17 * as published by the Free Software Foundation; either version 2
18 * of the License, or (at your option) any later version.
20 * If you want to redistribute modifications, please consider that
21 * scientific software is very special. Version control is crucial -
22 * bugs must be traceable. We will be happy to consider code for
23 * inclusion in the official distribution, but derived work must not
24 * be called official GROMACS. Details are found in the README & COPYING
25 * files - if they are missing, get the official version at www.gromacs.org.
27 * To help us fund GROMACS development, we humbly ask that you cite
28 * the papers on the package - you can find them in the top README file.
30 * For more info, check our website at http://www.gromacs.org
33 * Groningen Machine for Chemical Simulation
39 #include "gmx_fatal.h"
43 #include <libxml/parser.h>
44 #include <libxml/tree.h>
47 void add_xml_int(xmlNodePtr ptr
,xmlChar
*name
,int val
)
51 sprintf((char *)buf
,"%d",val
);
52 if (xmlSetProp(ptr
,name
,buf
) == 0)
53 gmx_fatal(FARGS
,"Setting %s",(char *)name
);
56 void add_xml_double(xmlNodePtr ptr
,xmlChar
*name
,double val
)
60 sprintf((char *)buf
,"%g",val
);
61 if (xmlSetProp(ptr
,name
,buf
) == 0)
62 gmx_fatal(FARGS
,"Setting %s",(char *)name
);
65 void add_xml_char(xmlNodePtr ptr
,xmlChar
*name
,char *val
)
67 if (xmlSetProp(ptr
,name
,(xmlChar
*)val
) == 0)
68 gmx_fatal(FARGS
,"Setting %s",(char *)name
);
71 xmlNodePtr
add_xml_child(xmlNodePtr parent
,char *type
)
75 if ((child
= xmlNewChild(parent
,NULL
,(xmlChar
*)type
,NULL
)) == NULL
)
76 gmx_fatal(FARGS
,"Creating element %s",(char *)type
);
81 xmlNodePtr
add_xml_comment(xmlDocPtr doc
,
82 xmlNodePtr prev
,xmlChar
*comment
)
86 if ((comm
= xmlNewComment(comment
)) == NULL
)
87 gmx_fatal(FARGS
,"Creating doc comment element");
89 while (ptr
->next
!= NULL
)