[Plplot-cvs] SF.net SVN: plplot:[8876] trunk/bindings/tcl

[<ai...@us...>]

Revision: 8876
          http://plplot.svn.sourceforge.net/plplot/?rev=8876&view=rev
Author:   airwin
Date:     2008-10-10 20:30:22 +0000 (Fri, 10 Oct 2008)

Log Message:
-----------
Drop PLDLLIMPEXP from source code (except in one case where a function is
not declared in a header).  Use headers instead for this purpose.

Modified Paths:
--------------
    trunk/bindings/tcl/matrixInit.c
    trunk/bindings/tcl/tclAPI.c
    trunk/bindings/tcl/tclMatrix.c

Modified: trunk/bindings/tcl/matrixInit.c
===================================================================
--- trunk/bindings/tcl/matrixInit.c	2008-10-10 20:27:47 UTC (rev 8875)
+++ trunk/bindings/tcl/matrixInit.c	2008-10-10 20:30:22 UTC (rev 8876)
@@ -26,7 +26,7 @@
 #include "pldll.h"
 #include "tclMatrix.h"
 
-int PLDLLIMPEXP Matrix_Init( Tcl_Interp *interp ) {
+int Matrix_Init( Tcl_Interp *interp ) {
 
     /* matrix -- matrix	support	command	*/
     Tcl_CreateCommand(interp, "matrix",	(Tcl_CmdProc *) Tcl_MatrixCmd,

Modified: trunk/bindings/tcl/tclAPI.c
===================================================================
--- trunk/bindings/tcl/tclAPI.c	2008-10-10 20:27:47 UTC (rev 8875)
+++ trunk/bindings/tcl/tclAPI.c	2008-10-10 20:30:22 UTC (rev 8876)
@@ -126,8 +126,7 @@
 #define PL_LIBRARY ""
 #endif
 
-/* extern char PLDLLIMPEXP * plplotLibDir; */
-extern char PLDLLIMPORT * plplotLibDir;
+extern char PLDLLIMPEXP_TCLTK * plplotLibDir;
 
 #if (!defined(MAC_TCL) && !defined(__WIN32__))
 /*
@@ -517,7 +516,7 @@
  * interfacing to PLplot.  Should not be used in a widget-based system.
 \*--------------------------------------------------------------------------*/
 
-int PLDLLIMPEXP
+int
 Pltcl_Init( Tcl_Interp *interp )
 {
     register CmdInfo *cmdInfoPtr;

Modified: trunk/bindings/tcl/tclMatrix.c
===================================================================
--- trunk/bindings/tcl/tclMatrix.c	2008-10-10 20:27:47 UTC (rev 8875)
+++ trunk/bindings/tcl/tclMatrix.c	2008-10-10 20:30:22 UTC (rev 8876)
@@ -349,7 +349,7 @@
  *
 \*--------------------------------------------------------------------------*/
 
-tclMatrix PLDLLIMPEXP *
+tclMatrix *
 Tcl_GetMatrixPtr(Tcl_Interp *interp, const char *matName)
 {
     Tcl_HashEntry *hPtr;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.