diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-03 16:54:16 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-03 16:54:16 (GMT) |
commit | c0573da8973e0ae8650d787d639a9acf9ab4a1ac (patch) | |
tree | ae0daad36caaacde226aa18a75415b247b89148b /nodeObj.c | |
download | blt-c0573da8973e0ae8650d787d639a9acf9ab4a1ac.zip blt-c0573da8973e0ae8650d787d639a9acf9ab4a1ac.tar.gz blt-c0573da8973e0ae8650d787d639a9acf9ab4a1ac.tar.bz2 |
Squashed 'tclxml/' content from commit 22ffbb5a
git-subtree-dir: tclxml
git-subtree-split: 22ffbb5a3e984efb993e8b58cdf7a11ffddd1836
Diffstat (limited to 'nodeObj.c')
-rw-r--r-- | nodeObj.c | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/nodeObj.c b/nodeObj.c new file mode 100644 index 0000000..10f1420 --- /dev/null +++ b/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; +} |