blob: 10f1420796fd1af0b6dad81ce046625b27c1f0b8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
/* nodeObj.c --
*
* This module manages libxml2 xmlNodePtr Tcl objects.
*
* Copyright (c) 2007 Explain
* http://www.explain.com.au/
* Copyright (c) 2003 Zveno Pty Ltd
* http://www.zveno.com/
*
* See the file "LICENSE" for information on usage and
* redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* $Id: nodeObj.c,v 1.1.1.1 2009/01/16 22:11:49 joye Exp $
*/
#include <tcldom-libxml2/nodeObj.h>
#define TCL_DOES_STUBS \
(TCL_MAJOR_VERSION > 8 || TCL_MAJOR_VERSION == 8 && (TCL_MINOR_VERSION > 1 || \
(TCL_MINOR_VERSION == 1 && TCL_RELEASE_LEVEL == TCL_FINAL_RELEASE)))
#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLEXPORT
extern Tcl_ObjType NodeObjType;
/*
* For debugging
*/
extern Tcl_Channel stderrChan;
extern char dbgbuf[200];
/*
*----------------------------------------------------------------------------
*
* TclDOM_libxml2_NodeObjInit --
*
* Initialise node obj module.
*
* Results:
* None.
*
* Side effects:
* Registers new object type.
*
*----------------------------------------------------------------------------
*/
int
TclDOM_libxml2_NodeObjInit(interp)
Tcl_Interp *interp;
{
Tcl_RegisterObjType(&NodeObjType);
return TCL_OK;
}
|
