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 d6b859f449b4dab14b920a281a706d185aad142b..3d0d800f9309cb7c7a0b7b2b60ac1686c9f79257 100644 (file)
--- 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());