00001 // $Id: matrixInit.c 11680 2011-03-27 17:57:51Z airwin $ 00002 // 00003 // Tcl Matrix initializer. 00004 // Vince Darley 00005 // 00006 // Copyright (C) 2004 Joao Cardoso 00007 // 00008 // This file is part of PLplot. 00009 // 00010 // PLplot is free software; you can redistribute it and/or modify 00011 // it under the terms of the GNU Library General Public License as published 00012 // by the Free Software Foundation; either version 2 of the License, or 00013 // (at your option) any later version. 00014 // 00015 // PLplot is distributed in the hope that it will be useful, 00016 // but WITHOUT ANY WARRANTY; without even the implied warranty of 00017 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00018 // GNU Library General Public License for more details. 00019 // 00020 // You should have received a copy of the GNU Library General Public License 00021 // along with PLplot; if not, write to the Free Software 00022 // Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 00023 // 00024 // 00025 00026 #include "pldll.h" 00027 #include "tclMatrix.h" 00028 00029 int Matrix_Init( Tcl_Interp *interp ) 00030 { 00031 // matrix -- matrix support command 00032 Tcl_CreateCommand( interp, "matrix", (Tcl_CmdProc *) Tcl_MatrixCmd, 00033 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL ); 00034 00035 Tcl_PkgProvide( interp, "Matrix", "0.1" ); 00036 return TCL_OK; 00037 }