From: <ai...@us...> - 2009-12-14 18:06:18
|
Revision: 10719 http://plplot.svn.sourceforge.net/plplot/?rev=10719&view=rev Author: airwin Date: 2009-12-14 18:06:07 +0000 (Mon, 14 Dec 2009) Log Message: ----------- Style tweaks for recent changes. Modified Paths: -------------- trunk/bindings/tcl/tclAPI.c trunk/src/plcore.c Modified: trunk/bindings/tcl/tclAPI.c =================================================================== --- trunk/bindings/tcl/tclAPI.c 2009-12-10 20:18:54 UTC (rev 10718) +++ trunk/bindings/tcl/tclAPI.c 2009-12-14 18:06:07 UTC (rev 10719) @@ -640,7 +640,7 @@ pls_auto_path( Tcl_Interp *interp ) { char *buf, *ptr = NULL, *dn; - int return_code = TCL_OK; + int return_code = TCL_OK; #ifdef DEBUG char *path; #endif @@ -653,7 +653,7 @@ Tcl_SetVar( interp, "dir", TCL_DIR, TCL_GLOBAL_ONLY ); if ( tcl_cmd( interp, "set auto_path \"$dir $auto_path\"" ) == TCL_ERROR ) { - return_code = TCL_ERROR; + return_code = TCL_ERROR; goto finish; } #ifdef DEBUG @@ -671,7 +671,7 @@ Tcl_SetVar( interp, "dir", ptr, 0 ); if ( tcl_cmd( interp, "set auto_path \"$dir $auto_path\"" ) == TCL_ERROR ) { - return_code = TCL_ERROR; + return_code = TCL_ERROR; goto finish; } #ifdef DEBUG @@ -690,7 +690,7 @@ Tcl_SetVar( interp, "dir", ptr, 0 ); if ( tcl_cmd( interp, "set auto_path \"$dir $auto_path\"" ) == TCL_ERROR ) { - return_code = TCL_ERROR; + return_code = TCL_ERROR; goto finish; } #ifdef DEBUG @@ -710,7 +710,7 @@ Tcl_SetVar( interp, "dir", ptr, 0 ); if ( tcl_cmd( interp, "set auto_path \"$dir $auto_path\"" ) == TCL_ERROR ) { - return_code = TCL_ERROR; + return_code = TCL_ERROR; goto finish; } #ifdef DEBUG @@ -727,14 +727,14 @@ { Tcl_SetResult( interp, "Problems with getcwd in pls_auto_path", TCL_STATIC ); { - return_code = TCL_ERROR; + return_code = TCL_ERROR; goto finish; } } Tcl_SetVar( interp, "dir", buf, 0 ); if ( tcl_cmd( interp, "set auto_path \"$dir $auto_path\"" ) == TCL_ERROR ) { - return_code = TCL_ERROR; + return_code = TCL_ERROR; goto finish; } /*** see if plserver was invoked in the build tree ***/ @@ -743,7 +743,7 @@ Tcl_SetVar( interp, "dir", BUILD_DIR "/bindings/tk", TCL_GLOBAL_ONLY ); if ( tcl_cmd( interp, "set auto_path \"$dir $auto_path\"" ) == TCL_ERROR ) { - return_code = TCL_ERROR; + return_code = TCL_ERROR; goto finish; } } Modified: trunk/src/plcore.c =================================================================== --- trunk/src/plcore.c 2009-12-10 20:18:54 UTC (rev 10718) +++ trunk/src/plcore.c 2009-12-14 18:06:07 UTC (rev 10719) @@ -964,7 +964,7 @@ char tmpstring[31]; strncpy( tmpstring, string, 30 ); tmpstring[30] = '\0'; - snprintf( buf, BUFFER_SIZE, "UTF-8 string is malformed: %s%s", + snprintf( buf, BUFFER_SIZE, "UTF-8 string is malformed: %s%s", tmpstring, strlen( string ) > 30 ? "[...]" : "" ); plabort( buf ); return; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |