Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Removed slipped throu debuging instrumentalization. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | schema |
Files: | files | file ages | folders |
SHA3-256: |
22b17ef648f1daac5ec76767d9ab0c84 |
User & Date: | rolf 2019-11-18 22:42:11 |
Context
2019-11-21
| ||
00:57 | Fixed -DTDOM_NO_SCHEMA=1 build. check-in: 95b30715cd user: rolf tags: schema | |
2019-11-18
| ||
22:42 | Removed slipped throu debuging instrumentalization. check-in: 22b17ef648 user: rolf tags: schema | |
22:37 | The attribute und nsattribute commands are only supported toplevel in the definition scripts of the defelement method and the element command. check-in: b3b2ce77f0 user: rolf tags: schema | |
Changes
Changes to generic/schema.c.
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
....
4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600
4601
4602
4603
|
#include <tdom.h> #include <tcldom.h> #include <domxpath.h> #include <schema.h> /* #define DEBUG */ #define DDEBUG /*---------------------------------------------------------------------------- | Debug Macros | \---------------------------------------------------------------------------*/ #ifdef DEBUG # define DBG(x) x #else ................................................................................ Tcl_Obj *nsObj, *nameObj; Tcl_HashEntry *h; SchemaCP *type; CHECK_SI CHECK_TOPLEVEL serializeCP (sdata->cp); if (sdata->cp->type != SCHEMA_CTYPE_NAME) { SetResult ("The commands attribute and nsattribute are only allowed toplevel in element definition scripts"); return TCL_ERROR; } if (clientData) { checkNrArgs (3,6,"Expected:" " name namespace" |
|
<
|
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
....
4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600
4601
4602
|
#include <tdom.h> #include <tcldom.h> #include <domxpath.h> #include <schema.h> /* #define DEBUG */ /* #define DDEBUG */ /*---------------------------------------------------------------------------- | Debug Macros | \---------------------------------------------------------------------------*/ #ifdef DEBUG # define DBG(x) x #else ................................................................................ Tcl_Obj *nsObj, *nameObj; Tcl_HashEntry *h; SchemaCP *type; CHECK_SI CHECK_TOPLEVEL if (sdata->cp->type != SCHEMA_CTYPE_NAME) { SetResult ("The commands attribute and nsattribute are only allowed toplevel in element definition scripts"); return TCL_ERROR; } if (clientData) { checkNrArgs (3,6,"Expected:" " name namespace" |
Changes to tests/schema.test.
2966 2967 2968 2969 2970 2971 2972 2973 2974 2975 2976 2977 2978 2979 2980 2981 |
{defpattern some {attribute foo}} {defelement doc {element {attribute foo}}} } set result [list] foreach def $defs { puts $def tdom::schema create s lappend result [catch {s define $def} errMsg] puts $errMsg s delete } set result } {0 1 1 0} test schema-12.1 {domvalidate} { tdom::schema s |
| < |
2966 2967 2968 2969 2970 2971 2972 2973 2974 2975 2976 2977 2978 2979 2980 |
{defpattern some {attribute foo}} {defelement doc {element {attribute foo}}} } set result [list] foreach def $defs { puts $def tdom::schema create s lappend result [catch {s define $def}] s delete } set result } {0 1 1 0} test schema-12.1 {domvalidate} { tdom::schema s |