From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Mon, 19 Nov 2007 23:19:21 +0000 (+0000)
Subject: Add extern to prototypes for tcl internal functions
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=5ce973a3732875f0588ca6d953a4869830dfa768;p=kitgen

Add extern to prototypes for tcl internal functions

git-svn-id: svn://svn.equi4.com/kitgen/trunk@1846 9e558909-932a-0410-a563-af77432da1eb
---

diff --git a/pwb.c b/pwb.c
index d6b859f..3d0d800 100644
--- a/pwb.c
+++ b/pwb.c
@@ -8,16 +8,18 @@
 
 #include <tcl.h>
 
-/* in tclInt.h: */
-Tcl_Obj* TclGetLibraryPath();
+/* defined in tclInt.h */
+extern Tcl_Obj* TclGetLibraryPath();
+extern void     TclSetLibraryPath (Tcl_Obj*);
+extern void     TclpSetInitialEncodings (void);
 
 /* Support for encodings, from Vince Darley <vince.darley@eurobios.com> */
 static int
-LibraryPathObjCmd(dummy, interp, objc, objv)
-  ClientData dummy;
-  Tcl_Interp *interp;
-  int objc;
-  Tcl_Obj *CONST objv[];
+LibraryPathObjCmd(
+    ClientData dummy,
+    Tcl_Interp *interp,
+    int objc,
+    Tcl_Obj *CONST objv[])
 {
   if (objc == 1) {
   	Tcl_SetObjResult(interp, TclGetLibraryPath());