Lines Matching defs:vs
37 SPtr vs, s;
54 vs = s_dup (NULL);
55 val = s_new (vs);
58 } else if (s_get (interp, val, &vs) != TCL_OK) {
72 if (Tcl_FindHashEntry (&vs->el, key) != NULL) continue;
73 /* Key not known to vs, to be added */
80 s_get (interp, val, &vs);
83 (void*) Tcl_CreateHashEntry(&vs->el, key, &new);
300 SPtr vs;
313 if (s_get (interp, val, &vs) != TCL_OK) {
318 if (s_contains (vs, key)) {
322 s_get (interp, val, &vs);
325 s_subtract1 (vs, key);
356 SPtr vs;
368 vs = s_dup (NULL);
369 s_add1 (vs, Tcl_GetString (objv[3]));
370 val = s_new (vs);
377 if (s_get (interp, val, &vs) != TCL_OK) {
382 if (!s_contains (vs, key)) {
386 s_get (interp, val, &vs);
389 s_add1 (vs, key);
619 SPtr vs, s;
632 if (s_get (interp, val, &vs) != TCL_OK) {
649 if (Tcl_FindHashEntry (&vs->el, key) == NULL) continue;
650 /* Key known to vs, to be removed */
657 s_get (interp, val, &vs);
660 Tcl_DeleteHashEntry (Tcl_FindHashEntry (&vs->el, key));