Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | wip |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | wip |
Files: | files | file ages | folders |
SHA3-256: |
1f800e1c4be6ceb39dab2842e01325bc |
User & Date: | rolf 2019-03-29 00:35:51.225 |
Context
2019-03-30
| ||
01:31 | More gardening towards reportcmd. check-in: 7319d6926f user: rolf tags: wip | |
2019-03-29
| ||
00:35 | wip check-in: 1f800e1c4b user: rolf tags: wip | |
2019-03-26
| ||
01:43 | Clean up the mess, a bit. check-in: 7154504138 user: rolf tags: wip | |
Changes
Changes to generic/schema.c.
︙ | ︙ | |||
1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 | Tcl_DStringValue (vdata->cdata)) != TCL_OK) { sdata->validationState = VALIDATION_ERROR; XML_StopParser (vdata->parser, 0); Tcl_DStringSetLength (vdata->cdata, 0); vdata->onlyWhiteSpace = 1; return; } Tcl_DStringSetLength (vdata->cdata, 0); vdata->onlyWhiteSpace = 1; } if (probeElementEnd (vdata->interp, sdata) != TCL_OK) { sdata->validationState = VALIDATION_ERROR; XML_StopParser (vdata->parser, 0); | > > | 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 | Tcl_DStringValue (vdata->cdata)) != TCL_OK) { sdata->validationState = VALIDATION_ERROR; XML_StopParser (vdata->parser, 0); Tcl_DStringSetLength (vdata->cdata, 0); vdata->onlyWhiteSpace = 1; return; } } if (Tcl_DStringLength (vdata->cdata)) { Tcl_DStringSetLength (vdata->cdata, 0); vdata->onlyWhiteSpace = 1; } if (probeElementEnd (vdata->interp, sdata) != TCL_OK) { sdata->validationState = VALIDATION_ERROR; XML_StopParser (vdata->parser, 0); |
︙ | ︙ |
Changes to tests/schema.test.
︙ | ︙ | |||
1920 1921 1922 1923 1924 1925 1926 | element a any element b } defelement a {} defelement b {} } | > > | | > > > | 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 | element a any element b } defelement a {} defelement b {} } set result [list] foreach xml { <doc><a/><something/><b/></doc> <doc><a/><a><b>text</b><c><c><c/></c></c></a><b/></doc> } { lappend result [s validate $xml] } s delete set result } {1 1} test schema-10.2 {any} { tdom::schema create s s define { |
︙ | ︙ |