Posted to tcl by colin at Mon Oct 14 20:02:17 GMT 2013view raw
- diff -cr tcl8.6.1/generic/tclBasic.c tcl8.6.1.yieldm/generic/tclBasic.c
- *** tcl8.6.1/generic/tclBasic.c 2013-09-19 12:04:14.000000000 -0700
- --- tcl8.6.1.yieldm/generic/tclBasic.c 2013-10-14 12:58:18.693573914 -0700
- ***************
- *** 260,265 ****
- --- 260,266 ----
- {"while", Tcl_WhileObjCmd, TclCompileWhileCmd, TclNRWhileObjCmd, CMD_IS_SAFE},
- {"yield", NULL, TclCompileYieldCmd, TclNRYieldObjCmd, CMD_IS_SAFE},
- {"yieldto", NULL, NULL, TclNRYieldToObjCmd, CMD_IS_SAFE},
- + {"yieldm", NULL, NULL, TclNRYieldmObjCmd, CMD_IS_SAFE},
- /*
- * Commands in the OS-interface. Note that many of these are unsafe.
- ***************
- *** 8405,8410 ****
- --- 8406,8421 ----
- }
- int
- + TclNRYieldmObjCmd(
- + ClientData clientData,
- + Tcl_Interp *interp,
- + int objc,
- + Tcl_Obj *const objv[])
- + {
- + return TclNRYieldObjCmd(INT2PTR(CORO_ACTIVATE_YIELDM), interp, objc, objv);
- + }
- +
- + int
- TclNRYieldToObjCmd(
- ClientData clientData,
- Tcl_Interp *interp,