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: |
381f0a779a6b3ba66f8e25893397a819 |
| 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 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 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
|