Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Save work. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | associate |
| Files: | files | file ages | folders |
| SHA3-256: |
59815422e294cd42c803bbe93be47c74 |
| User & Date: | rolf 2020-01-18 02:05:25.268 |
Context
|
2020-01-21
| ||
| 00:54 | Added method info stack associate to request data associated with the associate definition script command. Closed-Leaf check-in: b2ca5788d4 user: rolf tags: associate | |
|
2020-01-18
| ||
| 02:05 | Save work. check-in: 59815422e2 user: rolf tags: associate | |
|
2020-01-11
| ||
| 02:18 | Merged from trunk. check-in: 8cd9ca1c3a user: rolf tags: schema | |
Changes
Changes to generic/schema.c.
| ︙ | ︙ | |||
532 533 534 535 536 537 538 539 540 541 542 543 544 545 |
}
freedomKeyConstraints (pattern->domKeys);
break;
}
if (pattern->defScript) {
Tcl_DecrRefCount (pattern->defScript);
}
FREE (pattern);
}
static SchemaData*
initSchemaData (
Tcl_Obj *cmdNameObj)
{
| > > > | 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 |
}
freedomKeyConstraints (pattern->domKeys);
break;
}
if (pattern->defScript) {
Tcl_DecrRefCount (pattern->defScript);
}
if (pattern->associated) {
Tcl_DecrRefCount (pattern->associated);
}
FREE (pattern);
}
static SchemaData*
initSchemaData (
Tcl_Obj *cmdNameObj)
{
|
| ︙ | ︙ | |||
5369 5370 5371 5372 5373 5374 5375 5376 5377 5378 5379 5380 5381 5382 |
Tcl_GetString (ksObj), NULL);
REMEMBER_PATTERN (pattern);
pattern->keySpace = Tcl_GetHashValue (h);
addToContent (sdata, pattern, SCHEMA_CQUANT_ONE, 0, 0);
}
return TCL_OK;
}
static int
integerImplXsd (
Tcl_Interp *interp,
void *constraintData,
char *text
)
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 5372 5373 5374 5375 5376 5377 5378 5379 5380 5381 5382 5383 5384 5385 5386 5387 5388 5389 5390 5391 5392 5393 5394 5395 5396 5397 5398 5399 5400 5401 5402 5403 5404 5405 5406 5407 5408 5409 5410 5411 5412 5413 5414 5415 5416 5417 |
Tcl_GetString (ksObj), NULL);
REMEMBER_PATTERN (pattern);
pattern->keySpace = Tcl_GetHashValue (h);
addToContent (sdata, pattern, SCHEMA_CQUANT_ONE, 0, 0);
}
return TCL_OK;
}
static int
associatePatternObjCmd (
ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *const objv[]
)
{
SchemaData *sdata = GETASI;
CHECK_SI
CHECK_TOPLEVEL
checkNrArgs (2, 2, "Expected: data");
switch (sdata->cp->type) {
case SCHEMA_CTYPE_NAME:
case SCHEMA_CTYPE_PATTERN:
case SCHEMA_CTYPE_INTERLEAVE:
break;
default:
SetResult ("The associate schema definition command is only "
"allowed inside of global or local element, pattern or "
"interleval context");
return TCL_ERROR;
}
if (sdata->cp->associated) {
Tcl_DecrRefCount (sdata->cp->associated);
}
sdata->cp->associated = objv[1];
Tcl_IncrRefCount (sdata->cp->associated);
return TCL_OK;
}
static int
integerImplXsd (
Tcl_Interp *interp,
void *constraintData,
char *text
)
|
| ︙ | ︙ | |||
7244 7245 7246 7247 7248 7249 7250 7251 7252 7253 7254 7255 7256 7257 |
Tcl_CreateObjCommand (interp,"tdom::schema::domunique",
domuniquePatternObjCmd, NULL, NULL);
/* Local key constraints */
Tcl_CreateObjCommand (interp, "tdom::schema::keyspace",
keyspacePatternObjCmd, NULL, NULL);
/* The text constraint commands */
Tcl_CreateObjCommand (interp,"tdom::schema::text::integer",
integerTCObjCmd, (ClientData) 0, NULL);
Tcl_CreateObjCommand (interp,"tdom::schema::text::negativeInteger",
integerTCObjCmd, (ClientData) 1, NULL);
Tcl_CreateObjCommand (interp,"tdom::schema::text::nonNegativeInteger",
integerTCObjCmd, (ClientData) 2, NULL);
| > > > > | 7279 7280 7281 7282 7283 7284 7285 7286 7287 7288 7289 7290 7291 7292 7293 7294 7295 7296 |
Tcl_CreateObjCommand (interp,"tdom::schema::domunique",
domuniquePatternObjCmd, NULL, NULL);
/* Local key constraints */
Tcl_CreateObjCommand (interp, "tdom::schema::keyspace",
keyspacePatternObjCmd, NULL, NULL);
/* The associate command */
Tcl_CreateObjCommand (interp,"tdom::schema::associate",
associatePatternObjCmd, NULL, NULL);
/* The text constraint commands */
Tcl_CreateObjCommand (interp,"tdom::schema::text::integer",
integerTCObjCmd, (ClientData) 0, NULL);
Tcl_CreateObjCommand (interp,"tdom::schema::text::negativeInteger",
integerTCObjCmd, (ClientData) 1, NULL);
Tcl_CreateObjCommand (interp,"tdom::schema::text::nonNegativeInteger",
integerTCObjCmd, (ClientData) 2, NULL);
|
| ︙ | ︙ |
Changes to generic/schema.h.
| ︙ | ︙ | |||
108 109 110 111 112 113 114 115 116 117 118 119 120 121 |
unsigned int nc;
SchemaAttr **attrs;
unsigned int numAttr;
unsigned int numReqAttr;
domKeyConstraint *domKeys;
SchemaKeySpace *keySpace;
Tcl_Obj *defScript;
} SchemaCP;
typedef struct SchemaValidationStack
{
SchemaCP *pattern;
struct SchemaValidationStack *next;
struct SchemaValidationStack *down;
| > | 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 |
unsigned int nc;
SchemaAttr **attrs;
unsigned int numAttr;
unsigned int numReqAttr;
domKeyConstraint *domKeys;
SchemaKeySpace *keySpace;
Tcl_Obj *defScript;
Tcl_Obj *associated;
} SchemaCP;
typedef struct SchemaValidationStack
{
SchemaCP *pattern;
struct SchemaValidationStack *next;
struct SchemaValidationStack *down;
|
| ︙ | ︙ |