ff393f1b4c3b9f4ca50727c581ae1cfe4e341316
[scilab.git] / scilab / modules / xml / sci_gateway / cpp / sci_xmlAppend.cpp
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) 2012 - Scilab Enterprises - Calixte DENIZET
4  *
5  * This file must be used under the terms of the CeCILL.
6  * This source file is licensed as described in the file COPYING, which
7  * you should have received as part of this distribution.  The terms
8  * are also available at
9  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
10  *
11  */
12
13 #include "XMLObject.hxx"
14 #include "XMLDocument.hxx"
15 #include "XMLElement.hxx"
16
17 extern "C"
18 {
19 #include "gw_xml.h"
20 #include "Scierror.h"
21 #include "api_scilab.h"
22 #include "xml_mlist.h"
23 #include "libxml/tree.h"
24 #include "localization.h"
25 }
26
27 using namespace org_modules_xml;
28
29 /*--------------------------------------------------------------------------*/
30 int sci_xmlAppend(char *fname, unsigned long fname_len)
31 {
32     XMLElement *parent = 0;
33     XMLElement *elem = 0;
34     SciErr err;
35     int *addr = 0;
36     char *name = 0;
37
38     CheckLhs(1, 1);
39     CheckRhs(2, 2);
40
41     err = getVarAddressFromPosition(pvApiCtx, 1, &addr);
42     if (err.iErr)
43     {
44         printError(&err, 0);
45         Scierror(999, _("%s: Can not read input argument #%d.\n"), fname, 1);
46         return 0;
47     }
48
49     if (!isXMLElem(addr, pvApiCtx))
50     {
51         Scierror(999, gettext("%s: Wrong type for input argument #%d: A %s expected.\n"), fname, 1, "XMLElement");
52         return 0;
53     }
54
55     parent = XMLObject::getFromId < org_modules_xml::XMLElement > (getXMLObjectId(addr, pvApiCtx));
56     if (!parent)
57     {
58         Scierror(999, gettext("%s: XML Document does not exist.\n"), fname);
59         return 0;
60     }
61
62     err = getVarAddressFromPosition(pvApiCtx, 2, &addr);
63     if (err.iErr)
64     {
65         printError(&err, 0);
66         Scierror(999, _("%s: Can not read input argument #%d.\n"), fname, 2);
67         return 0;
68     }
69
70     if (!isXMLElem(addr, pvApiCtx))
71     {
72         Scierror(999, gettext("%s: Wrong type for input argument #%d: A %s expected.\n"), fname, 2, "XMLElement");
73         return 0;
74     }
75
76     elem = XMLObject::getFromId < org_modules_xml::XMLElement > (getXMLObjectId(addr, pvApiCtx));
77     if (!elem)
78     {
79         Scierror(999, gettext("%s: XML Document does not exist.\n"), fname);
80         return 0;
81     }
82
83     parent->append(*elem);
84
85     LhsVar(1) = 0;
86     PutLhsVar();
87
88     return 0;
89 }
90
91 /*--------------------------------------------------------------------------*/