PLplot  5.10.0
matrixInit.c
Go to the documentation of this file.
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 }
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Defines