Attachment "encoding_dirs.patch" to
ticket [3537605fff]
added by
brianohagan
2012-06-25 07:17:12.
23,25d22
< static int EncodingDirsObjCmd(ClientData dummy,
< Tcl_Interp *interp, int objc,
< Tcl_Obj *CONST objv[]);
508c505,519
< return EncodingDirsObjCmd(dummy, interp, objc-1, objv+1);
---
> if (objc > 3) {
> Tcl_WrongNumArgs(interp, 2, objv, "?dirList?");
> return TCL_ERROR;
> }
> if (objc == 2) {
> Tcl_SetObjResult(interp, Tcl_GetEncodingSearchPath());
> return TCL_OK;
> }
> if (Tcl_SetEncodingSearchPath(objv[2]) == TCL_ERROR) {
> Tcl_AppendResult(interp, "expected directory list but got \"",
> TclGetString(objv[2]), "\"", NULL);
> return TCL_ERROR;
> }
> Tcl_SetObjResult(interp, objv[2]);
> break;
529,568d539
< return TCL_OK;
< }
<
< /*
< *----------------------------------------------------------------------
< *
< * EncodingDirsObjCmd --
< *
< * This command manipulates the encoding search path.
< *
< * Results:
< * A standard Tcl result.
< *
< * Side effects:
< * Can set the encoding search path.
< *
< *----------------------------------------------------------------------
< */
<
< int
< EncodingDirsObjCmd(
< ClientData dummy, /* Not used. */
< Tcl_Interp *interp, /* Current interpreter. */
< int objc, /* Number of arguments. */
< Tcl_Obj *CONST objv[]) /* Argument objects. */
< {
< if (objc > 2) {
< Tcl_WrongNumArgs(interp, 1, objv, "?dirList?");
< return TCL_ERROR;
< }
< if (objc == 1) {
< Tcl_SetObjResult(interp, Tcl_GetEncodingSearchPath());
< return TCL_OK;
< }
< if (Tcl_SetEncodingSearchPath(objv[1]) == TCL_ERROR) {
< Tcl_AppendResult(interp, "expected directory list but got \"",
< TclGetString(objv[1]), "\"", NULL);
< return TCL_ERROR;
< }
< Tcl_SetObjResult(interp, objv[1]);
