Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Don't free buffer before we're done reading from it. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | dgp-method-type |
| Files: | files | file ages | folders |
| SHA1: |
a1eaab006bdcf6c8e8171ac4b464f765 |
| User & Date: | dgp 2015-08-04 17:51:11.641 |
Context
|
2015-10-21
| ||
| 18:14 | Adjust the frame management of Itk_PropagatePublicVar() to new expectations. check-in: 0893a4080a user: dgp tags: dgp-method-type | |
|
2015-08-04
| ||
| 17:51 | Don't free buffer before we're done reading from it. check-in: a1eaab006b user: dgp tags: dgp-method-type | |
| 16:36 | Get the toplevel.test tests passing again. check-in: 6b0ed12502 user: dgp tags: dgp-method-type | |
Changes
Changes to generic/itkArchetype.c.
| ︙ | ︙ | |||
422 423 424 425 426 427 428 |
* Check arguments and handle the various options...
*/
Tcl_DString buffer;
const char *head;
const char *tail;
cmd = Tcl_GetString(objv[0]);
Itcl_ParseNamespPath(cmd, &buffer, &head, &tail);
| < > > > > > > | 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 |
* Check arguments and handle the various options...
*/
Tcl_DString buffer;
const char *head;
const char *tail;
cmd = Tcl_GetString(objv[0]);
Itcl_ParseNamespPath(cmd, &buffer, &head, &tail);
if (objc < 2) {
Tcl_AppendStringsToObj(Tcl_GetObjResult(interp),
"wrong # args: should be one of...\n",
" ", tail, " add ?-protected? ?-private? ?--? name createCmds ?optionCmds?\n",
" ", tail, " delete name ?name name...?",
(char*)NULL);
Tcl_DStringFree(&buffer);
return TCL_ERROR;
}
token = Tcl_GetString(objv[1]);
c = *token;
length = strlen(token);
/*
* Handle: itk_component add...
*/
if (c == 'a' && strncmp(token, "add", length) == 0) {
if (objc < 4) {
Tcl_AppendStringsToObj(Tcl_GetObjResult(interp),
"wrong # args: should be \"",
tail,
" add ?-protected? ?-private? ?--?",
" name createCmds ?optionCmds?\"",
(char*)NULL);
Tcl_DStringFree(&buffer);
return TCL_ERROR;
}
Tcl_DStringFree(&buffer);
return Itk_ArchCompAddCmd(dummy, interp, objc-1, objv+1);
} else {
/*
* Handle: itk_component delete...
*/
if (c == 'd' && strncmp(token, "delete", length) == 0) {
if (objc < 3) {
Tcl_AppendStringsToObj(Tcl_GetObjResult(interp),
"wrong # args: should be \"",
tail,
" delete name ?name name...?\"",
(char*)NULL);
Tcl_DStringFree(&buffer);
return TCL_ERROR;
}
Tcl_DStringFree(&buffer);
return Itk_ArchCompDeleteCmd(dummy, interp, objc-1, objv+1);
}
}
Tcl_DStringFree(&buffer);
/*
* Flag any errors.
*/
cmd = Tcl_GetStringFromObj(objv[0], (int*)NULL);
Tcl_AppendStringsToObj(Tcl_GetObjResult(interp),
"bad option \"", token,
|
| ︙ | ︙ |