Lines Matching defs:body
89 int body;
96 argv[0], " string ?in? patList body ... ?default body?\"",
101 body = -1;
130 interp->result = "extra case pattern with no body";
148 body = i+1;
151 body = i+1;
168 body = i+1;
179 if (body != -1) {
180 result = Tcl_Eval(interp, caseArgv[body]);
183 sprintf(msg, "\n (\"%.50s\" arm line %d)", caseArgv[body-1],
461 sprintf(msg, "\n (\"eval\" body line %d)", interp->errorLine);
1183 sprintf(msg, "\n (\"for\" body line %d)", interp->errorLine);
1334 sprintf(msg, "\n (\"foreach\" body line %d)",