Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Accept "tcl::build-info tommath" to get the built-in tommath version number. Same with gcc/zlib/??? and other tags. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | libtommath-1.3.1 |
| Files: | files | file ages | folders |
| SHA3-256: |
b6ee75d57fcf28424471f6c075ed4c18 |
| User & Date: | jan.nijtmans 2024-04-26 07:39:38 |
Context
|
2024-04-26
| ||
| 07:39 | Accept "tcl::build-info tommath" to get the built-in tommath version number. Same with gcc/zlib/??? ... Leaf check-in: b6ee75d57f user: jan.nijtmans tags: libtommath-1.3.1 | |
|
2024-04-21
| ||
| 22:18 | ifdef -> ifndef check-in: 5ecc3f6e22 user: jan.nijtmans tags: libtommath-1.3.1 | |
Changes
Changes to generic/tclBasic.c.
| ︙ | ︙ | |||
726 727 728 729 730 731 732 |
p = strchr(p+1, '.');
}
Tcl_AppendResult(interp, "0", (char *)NULL);
return TCL_OK;
}
const char *p = strchr((char *)clientData, '.');
while (p) {
| | > > > > > > > > > > > > | > | 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 |
p = strchr(p+1, '.');
}
Tcl_AppendResult(interp, "0", (char *)NULL);
return TCL_OK;
}
const char *p = strchr((char *)clientData, '.');
while (p) {
if (!strncmp(p+1, arg, len) && ((p[len+1] == '.')
|| (p[len+1] == '-') || (p[len+1] == '\0'))) {
if (p[len+1] == '-') {
char buf[16];
p += len + 2;
const char *q = strchr(p, '.');
if (!q) {
q = p + strlen(p);
}
memcpy(buf, p, q - p);
buf[q - p] = '\0';
Tcl_AppendResult(interp, buf, (char *)NULL);
} else {
Tcl_AppendResult(interp, "1", (char *)NULL);
}
return TCL_OK;
}
p = strchr(p+1, '.');
}
Tcl_AppendResult(interp, "0", (char *)NULL);
return TCL_OK;
}
|
| ︙ | ︙ |