tcl-extensions

Check-in [087e0bce9d]
Login

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

Overview
Comment:fix init function name: test runs
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | regexp2
Files: files | file ages | folders
SHA1:087e0bce9d00cb5e07aa7b3c454945c65370f235
User & Date: aspect 2015-11-12 11:52:44
Context
2015-11-12
11:52
fix init function name: test runs Leaf check-in: 087e0bce9d user: aspect tags: regexp2
10:01
convert sampleextension for regexp2 check-in: 387987ffb9 user: aspect tags: regexp2
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/regexp2.c.

380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
    } else {
	Tcl_SetObjResult(interp, Tcl_NewIntObj(all ? all-1 : 1));
    }
    return TCL_OK;
}

int
Regexp_Init(Tcl_Interp *interp)
{
    /*
     *      * This may work with 8.0, but we are using strictly stubs here,
     *           * which requires 8.1.
     *                */
    if (Tcl_InitStubs(interp, "8.5", 0) == NULL) {
        return TCL_ERROR;







|







380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
    } else {
	Tcl_SetObjResult(interp, Tcl_NewIntObj(all ? all-1 : 1));
    }
    return TCL_OK;
}

int
Regexp2_Init(Tcl_Interp *interp)
{
    /*
     *      * This may work with 8.0, but we are using strictly stubs here,
     *           * which requires 8.1.
     *                */
    if (Tcl_InitStubs(interp, "8.5", 0) == NULL) {
        return TCL_ERROR;