PLplot  5.10.0
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros
matrixInit.c
Go to the documentation of this file.
1 // $Id: matrixInit.c 12717 2013-11-18 22:52:41Z airwin $
2 //
3 // Tcl Matrix initializer.
4 // Vince Darley
5 //
6 // Copyright (C) 2004 Joao Cardoso
7 //
8 // This file is part of PLplot.
9 //
10 // PLplot is free software; you can redistribute it and/or modify
11 // it under the terms of the GNU Library General Public License as published
12 // by the Free Software Foundation; either version 2 of the License, or
13 // (at your option) any later version.
14 //
15 // PLplot is distributed in the hope that it will be useful,
16 // but WITHOUT ANY WARRANTY; without even the implied warranty of
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 // GNU Library General Public License for more details.
19 //
20 // You should have received a copy of the GNU Library General Public License
21 // along with PLplot; if not, write to the Free Software
22 // Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
23 //
24 //
25 
26 #include "pldll.h"
27 #include "tclMatrix.h"
28 
29 int Matrix_Init( Tcl_Interp *interp )
30 {
31 #ifdef USE_TCL_STUBS
32 //
33 // We hard-wire 8.1 here, rather than TCL_VERSION, TK_VERSION because
34 // we really don't mind which version of Tcl, Tk we use as long as it
35 // is 8.1 or newer. Otherwise if we compiled against 8.2, we couldn't
36 // be loaded into 8.1
37 //
38  Tcl_InitStubs( interp, "8.1", 0 );
39 #endif
40  // matrix -- matrix support command
41  Tcl_CreateCommand( interp, "matrix", (Tcl_CmdProc *) Tcl_MatrixCmd,
42  (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL );
43 
44  Tcl_PkgProvide( interp, "Matrix", "0.1" );
45  return TCL_OK;
46 }