diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-02 21:50:36 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-02 21:50:36 (GMT) |
commit | 4b458dac3f0ea680db57779eb3684e2136680306 (patch) | |
tree | 2b61d5f91c71b718dbee8631eccbbf3d47528432 /tkblt/generic/tkbltVecOp.C | |
parent | d2825c8167bd0d1f1daa937aa3b6ab21f7522527 (diff) | |
download | blt-4b458dac3f0ea680db57779eb3684e2136680306.zip blt-4b458dac3f0ea680db57779eb3684e2136680306.tar.gz blt-4b458dac3f0ea680db57779eb3684e2136680306.tar.bz2 |
update TEA 3.13
Diffstat (limited to 'tkblt/generic/tkbltVecOp.C')
-rw-r--r-- | tkblt/generic/tkbltVecOp.C | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/tkblt/generic/tkbltVecOp.C b/tkblt/generic/tkbltVecOp.C deleted file mode 100644 index 6c84723..0000000 --- a/tkblt/generic/tkbltVecOp.C +++ /dev/null @@ -1,56 +0,0 @@ -/* - * 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 "tkbltVecInt.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; -} |