ADDED   kitdll/buildsrc/kitdll-0.0/pwb.c
Index: kitdll/buildsrc/kitdll-0.0/pwb.c
==================================================================
--- /dev/null
+++ kitdll/buildsrc/kitdll-0.0/pwb.c
@@ -0,0 +1,42 @@
+/* Written by Matt Newman and Jean-Claude Wippler, as part of Tclkit.
+ * March 2003 - placed in the public domain by the authors.
+ *
+ * Expose TclSetLibraryPath to scripts (in 8.4 only, 8.5 has "encoding dirs").
+ */
+
+#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 85
+
+#include <tcl.h>
+#include <tclInt.h> /* TclGetLibraryPath */
+
+void SetExecName(Tcl_Interp *);
+
+/* 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[];
+{
+     if (objc == 1) {
+	Tcl_SetObjResult(interp, TclGetLibraryPath());
+     } else {
+	Tcl_Obj *path=Tcl_DuplicateObj(objv[1]);
+	TclSetLibraryPath(Tcl_NewListObj(1,&path));
+	TclpSetInitialEncodings();
+     }
+     return TCL_OK;
+}
+
+/*
+ * Public Entrypoint
+ */
+
+DLLEXPORT int Pwb_Init(Tcl_Interp *interp)
+{
+    Tcl_CreateObjCommand(interp, "librarypath", LibraryPathObjCmd, 0, 0);
+    return Tcl_PkgProvide( interp, "pwb", "1.1");
+}
+
+#endif