src/kernel/gmx_xml.c

   1 /* -*- mode: c; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4; c-file-style: "stroustrup"; -*-
   2  * $Id: gmx_matrix.c,v 1.4 2008/12/02 18:27:57 spoel Exp $
   3  *
   4  *                This source code is part of
   5  *
   6  *                 G   R   O   M   A   C   S
   7  *
   8  *          GROningen MAchine for Chemical Simulations
   9  *
  10  *                        VERSION 4.5
  11  * Written by David van der Spoel, Erik Lindahl, Berk Hess, and others.
  12  * Copyright (c) 1991-2000, University of Groningen, The Netherlands.
  13  * Copyright (c) 2001-2008, The GROMACS development team,
  14  * check out http://www.gromacs.org for more information.
  15
  16  * This program is free software; you can redistribute it and/or
  17  * modify it under the terms of the GNU General Public License
  18  * as published by the Free Software Foundation; either version 2
  19  * of the License, or (at your option) any later version.
  20  *
  21  * If you want to redistribute modifications, please consider that
  22  * scientific software is very special. Version control is crucial -
  23  * bugs must be traceable. We will be happy to consider code for
  24  * inclusion in the official distribution, but derived work must not
  25  * be called official GROMACS. Details are found in the README & COPYING
  26  * files - if they are missing, get the official version at www.gromacs.org.
  27  *
  28  * To help us fund GROMACS development, we humbly ask that you cite
  29  * the papers on the package - you can find them in the top README file.
  30  *
  31  * For more info, check our website at http://www.gromacs.org
  32  *
  33  * And Hey:
  34  * Groningen Machine for Chemical Simulation
  35  */
  36 #ifdef HAVE_CONFIG_H
  37 #include <config.h>
  38 #endif
  39
  40 #include "gmx_fatal.h"
  41
  42
  43 #ifdef HAVE_LIBXML2
  44 #include <libxml/parser.h>
  45 #include <libxml/tree.h>
  46 #include "gmx_xml.h"
  47
  48 void add_xml_int(xmlNodePtr ptr,xmlChar *name,int val)
  49 {
  50   xmlChar buf[32];
  51
  52   sprintf((char *)buf,"%d",val);
  53   if (xmlSetProp(ptr,name,buf) == 0)
  54     gmx_fatal(FARGS,"Setting %s",(char *)name);
  55 }
  56
  57 void add_xml_double(xmlNodePtr ptr,xmlChar *name,double val)
  58 {
  59   xmlChar buf[32];
  60
  61   sprintf((char *)buf,"%g",val);
  62   if (xmlSetProp(ptr,name,buf) == 0)
  63     gmx_fatal(FARGS,"Setting %s",(char *)name);
  64 }
  65
  66 void add_xml_char(xmlNodePtr ptr,xmlChar *name,char *val)
  67 {
  68   if (xmlSetProp(ptr,name,(xmlChar *)val) == 0)
  69     gmx_fatal(FARGS,"Setting %s",(char *)name);
  70 }
  71
  72 xmlNodePtr add_xml_child(xmlNodePtr parent,char *type)
  73 {
  74   xmlNodePtr child;
  75
  76   if ((child = xmlNewChild(parent,NULL,(xmlChar *)type,NULL)) == NULL)
  77     gmx_fatal(FARGS,"Creating element %s",(char *)type);
  78
  79   return child;
  80 }
  81
  82 xmlNodePtr add_xml_comment(xmlDocPtr doc,
  83                            xmlNodePtr prev,xmlChar *comment)
  84 {
  85   xmlNodePtr comm,ptr;
  86
  87   if ((comm = xmlNewComment(comment)) == NULL)
  88     gmx_fatal(FARGS,"Creating doc comment element");
  89   ptr = prev;
  90   while (ptr->next != NULL)
  91     ptr=ptr->next;
  92   ptr->next    = comm;
  93   comm->prev   = ptr;
  94   comm->doc    = doc;
  95
  96   return comm;
  97 }
  98
  99 #endif