PLplot
5.10.0
|
00001 // Tcl Matrix initializer. 00002 // Vince Darley 00003 // 00004 // Copyright (C) 2004 Joao Cardoso 00005 // 00006 // This file is part of PLplot. 00007 // 00008 // PLplot is free software; you can redistribute it and/or modify 00009 // it under the terms of the GNU Library General Public License as published 00010 // by the Free Software Foundation; either version 2 of the License, or 00011 // (at your option) any later version. 00012 // 00013 // PLplot is distributed in the hope that it will be useful, 00014 // but WITHOUT ANY WARRANTY; without even the implied warranty of 00015 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00016 // GNU Library General Public License for more details. 00017 // 00018 // You should have received a copy of the GNU Library General Public License 00019 // along with PLplot; if not, write to the Free Software 00020 // Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 00021 // 00022 // 00023 00024 #include "pldll.h" 00025 #include "tclMatrix.h" 00026 00027 int Matrix_Init( Tcl_Interp *interp ) 00028 { 00029 #ifdef USE_TCL_STUBS 00030 // 00031 // We hard-wire 8.1 here, rather than TCL_VERSION, TK_VERSION because 00032 // we really don't mind which version of Tcl, Tk we use as long as it 00033 // is 8.1 or newer. Otherwise if we compiled against 8.2, we couldn't 00034 // be loaded into 8.1 00035 // 00036 Tcl_InitStubs( interp, "8.1", 0 ); 00037 #endif 00038 // matrix -- matrix support command 00039 Tcl_CreateCommand( interp, "matrix", (Tcl_CmdProc *) Tcl_MatrixCmd, 00040 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL ); 00041 00042 Tcl_PkgProvide( interp, "Matrix", "0.1" ); 00043 return TCL_OK; 00044 }