Tcl Source Code

Check-in [782e6b36ec]
Login
☰Core Home Timeline Branches Tags Tickets Download Wiki

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Source compat, rather than stubs compat demo.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 782e6b36ec390b79e1301e3f2b6bc0e145e44286
User & Date: dgp 2012-12-07 17:03:39
Context
2012-12-07
18:08
3593703 Don't crash on bad input to Tcl_PkgRequire*(). check-in: ee35495951 user: dgp tags: trunk
17:06
merge trunk Leaf check-in: 6bc654cdb3 user: dgp tags: bug-3588687
17:05
merge trunk check-in: e4e386f99f user: dgp tags: novem
17:03
Source compat, rather than stubs compat demo. check-in: 782e6b36ec user: dgp tags: trunk
15:56
small correction in doc/NRE.3 check-in: 911bf76b1e user: mig tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to unix/dltest/pkgb.c.

︙︙
95
96
97
98
99
100
101
102



103








104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

    int objc,			/* Number of arguments. */
    Tcl_Obj *const objv[])	/* Argument objects. */
{
    return Tcl_EvalEx(interp, "list unsafe command invoked", -1, TCL_EVAL_GLOBAL);
}

#if (TCL_MAJOR_VERSION > 8)
#  define Tcl_GetDefaultEncodingDir ((const char *(*)(void)) \



     ((&(tclStubsPtr->tcl_PkgProvideEx))[341]))








#endif

static int
Pkgb_DemoObjCmd(
    ClientData dummy,		/* Not used. */
    Tcl_Interp *interp,		/* Current interpreter. */
    int objc,			/* Number of arguments. */
    Tcl_Obj *const objv[])	/* Argument objects. */
{
    if(!Tcl_GetDefaultEncodingDir) {
	Tcl_SetObjResult(interp, Tcl_NewStringObj("not supported", -1));
	return TCL_ERROR;
    }
    Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_GetDefaultEncodingDir(), -1));
    return TCL_OK;
}

/*
 *----------------------------------------------------------------------
 *








|
>
>
>
|
>
>
>
>
>
>
>
>









<
<
<
<








95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123




124
125
126
127
128
129
130

    int objc,			/* Number of arguments. */
    Tcl_Obj *const objv[])	/* Argument objects. */
{
    return Tcl_EvalEx(interp, "list unsafe command invoked", -1, TCL_EVAL_GLOBAL);
}

#if (TCL_MAJOR_VERSION > 8)
const char *Tcl_GetDefaultEncodingDir(void)
{
    int numDirs;
    Tcl_Obj *first, *searchPath = Tcl_GetEncodingSearchPath();

    Tcl_ListObjLength(NULL, searchPath, &numDirs);
    if (numDirs == 0) {
        return NULL;
    }
    Tcl_ListObjIndex(NULL, searchPath, 0, &first);

    return Tcl_GetString(first);
}
#endif

static int
Pkgb_DemoObjCmd(
    ClientData dummy,		/* Not used. */
    Tcl_Interp *interp,		/* Current interpreter. */
    int objc,			/* Number of arguments. */
    Tcl_Obj *const objv[])	/* Argument objects. */
{




    Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_GetDefaultEncodingDir(), -1));
    return TCL_OK;
}

/*
 *----------------------------------------------------------------------
 *
︙︙

This page was generated in about 0.013s by Fossil 2.24 [f4ffefe708] 2024-04-17 14:02:19