Posted to tcl by colin at Mon Oct 14 20:02:17 GMT 2013view raw

  1. diff -cr tcl8.6.1/generic/tclBasic.c tcl8.6.1.yieldm/generic/tclBasic.c
  2. *** tcl8.6.1/generic/tclBasic.c 2013-09-19 12:04:14.000000000 -0700
  3. --- tcl8.6.1.yieldm/generic/tclBasic.c 2013-10-14 12:58:18.693573914 -0700
  4. ***************
  5. *** 260,265 ****
  6. --- 260,266 ----
  7. {"while", Tcl_WhileObjCmd, TclCompileWhileCmd, TclNRWhileObjCmd, CMD_IS_SAFE},
  8. {"yield", NULL, TclCompileYieldCmd, TclNRYieldObjCmd, CMD_IS_SAFE},
  9. {"yieldto", NULL, NULL, TclNRYieldToObjCmd, CMD_IS_SAFE},
  10. + {"yieldm", NULL, NULL, TclNRYieldmObjCmd, CMD_IS_SAFE},
  11.  
  12. /*
  13. * Commands in the OS-interface. Note that many of these are unsafe.
  14. ***************
  15. *** 8405,8410 ****
  16. --- 8406,8421 ----
  17. }
  18.  
  19. int
  20. + TclNRYieldmObjCmd(
  21. + ClientData clientData,
  22. + Tcl_Interp *interp,
  23. + int objc,
  24. + Tcl_Obj *const objv[])
  25. + {
  26. + return TclNRYieldObjCmd(INT2PTR(CORO_ACTIVATE_YIELDM), interp, objc, objv);
  27. + }
  28. +
  29. + int
  30. TclNRYieldToObjCmd(
  31. ClientData clientData,
  32. Tcl_Interp *interp,