if {![catch {mbrowse $handle \
		[list $rootid Forward] [list $rootid Inverse]} brlist]} {
	    foreach {nodeid brname dname ncls refid typeid} [join $brlist] {
		if {![::info exists exists($nodeid)]} {
		    lassign [_db_getparent $handle $nodeid] parent invref
		    if {($ncls eq "Method") && ($parent eq {})} {
			# Method without parent Object is bogus
			set exists($nodeid) 1
			continue
		    }
		    _db_addnode $handle $db $map nc $nodeid $ncls \
			$parent $invref $typeid
		    set exists($nodeid) 1
		    lappend refsfor $nodeid
		    _db_treewalk $handle $db $map exists nc $nodeid

	    { Objects / Server / PublishSubscribe /
		1:DeletePubSubConfiguration }
	    { Objects / Server / ServerDiagnostics }
	    { Objects / Server / VendorServerInfo }
	} {
	    if {![catch {translate $handle [root] / {*}$path} n]} {
		set n [lindex $n 0]
		set exists($n) -1
		foreach {_ n _ _ _ _ _ _} [tree $handle $n] {
		    set exists($n) -1
		}
	    }
	}
	if {$schema ne {}} {
	    append schema "."

	    }
	    if {![string match "{*}" $jval]} {
		set jval " $jval "
	    }
	    if {[catch {
		writejson $handle $wr(NodeId) Value ${vr}$wr(DataType) $jval
		# TODO: fixup for ExtensionObjects required?
		set dv [read $handle $wr(NodeId) Value {}]
		set dims [dict get $dv arrayDimensions]
		if {[llength $dims]} {
		    set vr ([join $dims ,])
		    if {$vr eq "(0)"} {
			set vr ([llength [dict get $dv value]])
		    }
		}
		write $handle $wr(NodeId) Value ${vr}$wr(DataType) \
		    [dict get $dv value]
	    }] && [catch {
		if {$vr eq "(0)"} {
		    set vr ([llength $wr(Value)])
		}
		write $handle $wr(NodeId) Value ${vr}$wr(DataType) $wr(Value)
	    }]} {
		# only retry later when not an abstract type
		if {![read $handle $wr(DataType) IsAbstract]} {
		    set wretry($wr(NodeId)) \
			[list $wr(DataType) $vr $wr(Value) $jval]
		}

	# failed write operations are left in the "wretry" array
	foreach nodeid [array names wretry] {
	    set wr(NodeId) $nodeid
	    lassign $wretry($nodeid) wr(DataType) vr wr(Value) jval
	    if {[catch {
		writejson $handle $wr(NodeId) Value ${vr}$wr(DataType) $jval
		# TODO: fixup for ExtensionObjects required?
		set dv [read $handle $wr(NodeId) Value {}]
		set dims [dict get $dv arrayDimensions]
		if {[llength $dims]} {
		    set vr ([join $dims ,])
		    if {$vr eq "(0)"} {
			set vr ([llength [dict get $dv value]])
		    }
		}
		write $handle $wr(NodeId) Value ${vr}$wr(DataType) \
		    [dict get $dv value]
	    } err] && [catch {
		if {$vr eq "(0)"} {
		    set vr ([llength $wr(Value)])
		}
		write $handle $wr(NodeId) Value ${vr}$wr(DataType) $wr(Value)
	    } err]} {
		lappend wretry($nodeid) $err
	    } else {
		unset wretry($nodeid)
	    }
	}

error:
	ReportError(interp, uai, NULL, 0);
	UA_NodeId_clear(&nodeid);
	if (arrDim != NULL) {
	    UA_free(arrDim);
	}
	return TCL_ERROR;
    }
    if ((type == &UA_TYPES[UA_TYPES_VARIANT]) && (arrDim != NULL)) {
	UA_Variant *v = (UA_Variant *) value;

	/* If JSON has dimension information, keep it. */
	if (v->arrayDimensions != NULL) {
	    vr = v->arrayDimensionsSize;
	    UA_free(arrDim);
	    arrDimSize = 0;
	    arrDim = NULL;
	}
    }
    if (uah->client != NULL) {
	if ((type == &UA_TYPES[UA_TYPES_VARIANT]) && (arrDim != NULL)) {
	    UA_Variant *v = (UA_Variant *) value;

	    if (v->arrayDimensions != NULL) {
		UA_free(v->arrayDimensions);
	    }
	    v->arrayDimensionsSize = arrDimSize;
	    v->arrayDimensions = arrDim;
	    arrDimSize = 0;
	    arrDim = NULL;
	}
	uaret = __UA_Client_writeAttribute(uah->client, &nodeid,
					   (UA_AttributeId) attr,
					   value, type);
    } else {
	UA_WriteValue_init(&wv);
	wv.nodeId = nodeid;
	wv.attributeId = (UA_AttributeId) attr;
	wv.value.hasValue = true;
	if (vr >= UA_VALUERANK_ONE_OR_MORE_DIMENSIONS) {
	    wv.value.value = *((UA_Variant *) value);
	    if (arrDim != NULL) {
		if (wv.value.value.arrayDimensions != NULL) {
		    UA_free(wv.value.value.arrayDimensions);
		}
		wv.value.value.arrayDimensionsSize = arrDimSize;
		wv.value.value.arrayDimensions = arrDim;
		arrDimSize = 0;
		arrDim = NULL;
	    }
	} else if (type == &UA_TYPES[UA_TYPES_VARIANT]) {
	    if (UA_Variant_isEmpty(value)) {

 */

static UA_StatusCode
MakeMappedVars(UAI *uai, UAH *uah, UA_NodeId *nodeid,
	       const UA_DataType *type, UAF *topfm, int isVT)
{
    Tcl_HashEntry *hPtr;
    UA_StatusCode uaret = UA_STATUSCODE_BADINTERNALERROR;
    char *p;
    Tcl_DString ds;
    static const UA_DataSource fmsrc = { StructFieldMapper, NULL };
    size_t i, k;
    int isNew, addSize = (topfm == NULL) ? 0 : topfm->nMembers;
    void *ctx;