diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2016-10-27 20:17:32 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2016-10-27 20:17:32 (GMT) |
commit | f7560d0a451a793441216d76eb4d9475aab61740 (patch) | |
tree | 1d7f6b96f50e96acb91525d1d933184eec54bb85 /tclxml/nodeObj.c | |
parent | ea28451286d3ea4a772fa174483f9a7a66bb1ab3 (diff) | |
parent | 55c7ed6e4d159cebe06999bf61e668284a89cd69 (diff) | |
download | blt-f7560d0a451a793441216d76eb4d9475aab61740.zip blt-f7560d0a451a793441216d76eb4d9475aab61740.tar.gz blt-f7560d0a451a793441216d76eb4d9475aab61740.tar.bz2 |
Merge commit '55c7ed6e4d159cebe06999bf61e668284a89cd69' as 'tclxml'
Diffstat (limited to 'tclxml/nodeObj.c')
-rw-r--r-- | tclxml/nodeObj.c | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/tclxml/nodeObj.c b/tclxml/nodeObj.c new file mode 100644 index 0000000..10f1420 --- /dev/null +++ b/tclxml/nodeObj.c @@ -0,0 +1,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; +} |