Check-in [381f0a779a]
Overview
Comment:Added missing file from previous commit
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:381f0a779a6b3ba66f8e25893397a819aac7fb5c
User & Date: rkeene on 2010-09-30 05:43:45
Other Links: manifest | tags
Context
2010-09-30
05:54
Added kitdll top-level build script check-in: f05f6abdf1 user: rkeene tags: trunk
05:43
Added missing file from previous commit check-in: 381f0a779a user: rkeene tags: trunk
05:43
Reorganized Makefile so object files are not specified in multiple places check-in: c321bdebc8 user: rkeene tags: trunk
Changes

Added kitdll/buildsrc/kitdll-0.0/pwb.c version [d3bbfc6849].

            1  +/* Written by Matt Newman and Jean-Claude Wippler, as part of Tclkit.
            2  + * March 2003 - placed in the public domain by the authors.
            3  + *
            4  + * Expose TclSetLibraryPath to scripts (in 8.4 only, 8.5 has "encoding dirs").
            5  + */
            6  +
            7  +#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 85
            8  +
            9  +#include <tcl.h>
           10  +#include <tclInt.h> /* TclGetLibraryPath */
           11  +
           12  +void SetExecName(Tcl_Interp *);
           13  +
           14  +/* Support for encodings, from Vince Darley <vince.darley@eurobios.com> */
           15  +static int
           16  +LibraryPathObjCmd(dummy, interp, objc, objv)
           17  +     ClientData dummy;
           18  +     Tcl_Interp *interp;
           19  +     int objc;
           20  +     Tcl_Obj *CONST objv[];
           21  +{
           22  +     if (objc == 1) {
           23  +	Tcl_SetObjResult(interp, TclGetLibraryPath());
           24  +     } else {
           25  +	Tcl_Obj *path=Tcl_DuplicateObj(objv[1]);
           26  +	TclSetLibraryPath(Tcl_NewListObj(1,&path));
           27  +	TclpSetInitialEncodings();
           28  +     }
           29  +     return TCL_OK;
           30  +}
           31  +
           32  +/*
           33  + * Public Entrypoint
           34  + */
           35  +
           36  +DLLEXPORT int Pwb_Init(Tcl_Interp *interp)
           37  +{
           38  +    Tcl_CreateObjCommand(interp, "librarypath", LibraryPathObjCmd, 0, 0);
           39  +    return Tcl_PkgProvide( interp, "pwb", "1.1");
           40  +}
           41  +
           42  +#endif