diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2016-05-31 17:40:13 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2016-05-31 17:40:13 (GMT) |
commit | 4307c2792a0f80aece82c8b3f342e2c5960eec56 (patch) | |
tree | fb43ce888dd7ca7c9162700dd8e7e5c188dc42cd /src/tkbltVecOp.C | |
parent | 3351b55515b3a7d1fb1da09ceff645e651ba964f (diff) | |
download | blt-4307c2792a0f80aece82c8b3f342e2c5960eec56.zip blt-4307c2792a0f80aece82c8b3f342e2c5960eec56.tar.gz blt-4307c2792a0f80aece82c8b3f342e2c5960eec56.tar.bz2 |
Rename bltVecOp.C to tkbltVecOp.C
Diffstat (limited to 'src/tkbltVecOp.C')
-rw-r--r-- | src/tkbltVecOp.C | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/src/tkbltVecOp.C b/src/tkbltVecOp.C new file mode 100644 index 0000000..a382cee --- /dev/null +++ b/src/tkbltVecOp.C @@ -0,0 +1,56 @@ +/* + * Smithsonian Astrophysical Observatory, Cambridge, MA, USA + * This code has been modified under the terms listed below and is made + * available under the same terms. + */ + +/* + * Copyright 1991-2004 George A Howlett. + * + * Permission is hereby granted, free of charge, to any person obtaining + * a copy of this software and associated documentation files (the + * "Software"), to deal in the Software without restriction, including + * without limitation the rights to use, copy, modify, merge, publish, + * distribute, sublicense, and/or sell copies of the Software, and to + * permit persons to whom the Software is furnished to do so, subject to + * the following conditions: + * + * The above copyright notice and this permission notice shall be + * included in all copies or substantial portions of the Software. + * + * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, + * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF + * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND + * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE + * LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION + * OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION + * WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + */ + +#include <tcl.h> + +#include "bltVecInt.h" + +using namespace Blt; + +extern Tcl_ObjCmdProc VectorObjCmd; + +int Blt_VectorCmdInitProc(Tcl_Interp* interp) +{ + + Tcl_Namespace* nsPtr = Tcl_FindNamespace(interp, "::blt", NULL, + TCL_LEAVE_ERR_MSG); + if (nsPtr == NULL) + return TCL_ERROR; + + const char* cmdPath = "::blt::vector"; + Tcl_Command cmdToken = Tcl_FindCommand(interp, cmdPath, NULL, 0); + if (cmdToken) + return TCL_OK; + cmdToken = Tcl_CreateObjCommand(interp, cmdPath, VectorObjCmd, + Vec_GetInterpData(interp), NULL); + if (Tcl_Export(interp, nsPtr, "vector", 0) != TCL_OK) + return TCL_ERROR; + + return TCL_OK; +} |