BatchWrite TCL Example
load ./chilkat.dll
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set rest [new_CkRest]
set authAws [new_CkAuthAws]
CkAuthAws_put_AccessKey $authAws "AWS_ACCESS_KEY"
CkAuthAws_put_SecretKey $authAws "AWS_SECRET_KEY"
# Don't forget to change the region to your particular region. (Also make the same change in the call to Connect below.)
CkAuthAws_put_Region $authAws "us-west-2"
CkAuthAws_put_ServiceName $authAws "clouddirectory"
# SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
CkRest_SetAuthAws $rest $authAws
# URL: https://clouddirectory.us-west-2.amazonaws.com/
# Use the same region as specified above.
set success [CkRest_Connect $rest "clouddirectory.us-west-2.amazonaws.com" 443 1 1]
if {$success != 1} then {
puts "ConnectFailReason: [CkRest_get_ConnectFailReason $rest]"
puts [CkRest_lastErrorText $rest]
delete_CkRest $rest
delete_CkAuthAws $authAws
exit
}
# The following code creates the JSON request body.
# The JSON created by this code is shown below.
# Use this online tool to generate code from sample JSON:
# Generate Code to Create JSON
set json [new_CkJsonObject]
CkJsonObject_UpdateString $json "Operations[0].AddFacetToObject.ObjectAttributeList[0].Key.FacetName" "string"
CkJsonObject_UpdateString $json "Operations[0].AddFacetToObject.ObjectAttributeList[0].Key.Name" "string"
CkJsonObject_UpdateString $json "Operations[0].AddFacetToObject.ObjectAttributeList[0].Key.SchemaArn" "string"
CkJsonObject_UpdateInt $json "Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.BinaryValue" 123
CkJsonObject_UpdateInt $json "Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.BooleanValue" 123
CkJsonObject_UpdateInt $json "Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.DatetimeValue" 123
CkJsonObject_UpdateString $json "Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.NumberValue" "string"
CkJsonObject_UpdateString $json "Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.StringValue" "string"
CkJsonObject_UpdateString $json "Operations[0].AddFacetToObject.ObjectReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].AddFacetToObject.SchemaFacet.FacetName" "string"
CkJsonObject_UpdateString $json "Operations[0].AddFacetToObject.SchemaFacet.SchemaArn" "string"
CkJsonObject_UpdateString $json "Operations[0].AttachObject.ChildReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].AttachObject.LinkName" "string"
CkJsonObject_UpdateString $json "Operations[0].AttachObject.ParentReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].AttachPolicy.ObjectReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].AttachPolicy.PolicyReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].AttachToIndex.IndexReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].AttachToIndex.TargetReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].AttachTypedLink.Attributes[0].AttributeName" "string"
CkJsonObject_UpdateInt $json "Operations[0].AttachTypedLink.Attributes[0].Value.BinaryValue" 123
CkJsonObject_UpdateInt $json "Operations[0].AttachTypedLink.Attributes[0].Value.BooleanValue" 123
CkJsonObject_UpdateInt $json "Operations[0].AttachTypedLink.Attributes[0].Value.DatetimeValue" 123
CkJsonObject_UpdateString $json "Operations[0].AttachTypedLink.Attributes[0].Value.NumberValue" "string"
CkJsonObject_UpdateString $json "Operations[0].AttachTypedLink.Attributes[0].Value.StringValue" "string"
CkJsonObject_UpdateString $json "Operations[0].AttachTypedLink.SourceObjectReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].AttachTypedLink.TargetObjectReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].AttachTypedLink.TypedLinkFacet.SchemaArn" "string"
CkJsonObject_UpdateString $json "Operations[0].AttachTypedLink.TypedLinkFacet.TypedLinkName" "string"
CkJsonObject_UpdateString $json "Operations[0].CreateIndex.BatchReferenceName" "string"
CkJsonObject_UpdateInt $json "Operations[0].CreateIndex.IsUnique" 123
CkJsonObject_UpdateString $json "Operations[0].CreateIndex.LinkName" "string"
CkJsonObject_UpdateString $json "Operations[0].CreateIndex.OrderedIndexedAttributeList[0].FacetName" "string"
CkJsonObject_UpdateString $json "Operations[0].CreateIndex.OrderedIndexedAttributeList[0].Name" "string"
CkJsonObject_UpdateString $json "Operations[0].CreateIndex.OrderedIndexedAttributeList[0].SchemaArn" "string"
CkJsonObject_UpdateString $json "Operations[0].CreateIndex.ParentReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].CreateObject.BatchReferenceName" "string"
CkJsonObject_UpdateString $json "Operations[0].CreateObject.LinkName" "string"
CkJsonObject_UpdateString $json "Operations[0].CreateObject.ObjectAttributeList[0].Key.FacetName" "string"
CkJsonObject_UpdateString $json "Operations[0].CreateObject.ObjectAttributeList[0].Key.Name" "string"
CkJsonObject_UpdateString $json "Operations[0].CreateObject.ObjectAttributeList[0].Key.SchemaArn" "string"
CkJsonObject_UpdateInt $json "Operations[0].CreateObject.ObjectAttributeList[0].Value.BinaryValue" 123
CkJsonObject_UpdateInt $json "Operations[0].CreateObject.ObjectAttributeList[0].Value.BooleanValue" 123
CkJsonObject_UpdateInt $json "Operations[0].CreateObject.ObjectAttributeList[0].Value.DatetimeValue" 123
CkJsonObject_UpdateString $json "Operations[0].CreateObject.ObjectAttributeList[0].Value.NumberValue" "string"
CkJsonObject_UpdateString $json "Operations[0].CreateObject.ObjectAttributeList[0].Value.StringValue" "string"
CkJsonObject_UpdateString $json "Operations[0].CreateObject.ParentReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].CreateObject.SchemaFacet[0].FacetName" "string"
CkJsonObject_UpdateString $json "Operations[0].CreateObject.SchemaFacet[0].SchemaArn" "string"
CkJsonObject_UpdateString $json "Operations[0].DeleteObject.ObjectReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].DetachFromIndex.IndexReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].DetachFromIndex.TargetReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].DetachObject.BatchReferenceName" "string"
CkJsonObject_UpdateString $json "Operations[0].DetachObject.LinkName" "string"
CkJsonObject_UpdateString $json "Operations[0].DetachObject.ParentReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].DetachPolicy.ObjectReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].DetachPolicy.PolicyReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].AttributeName" "string"
CkJsonObject_UpdateInt $json "Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BinaryValue" 123
CkJsonObject_UpdateInt $json "Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BooleanValue" 123
CkJsonObject_UpdateInt $json "Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.DatetimeValue" 123
CkJsonObject_UpdateString $json "Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.NumberValue" "string"
CkJsonObject_UpdateString $json "Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.StringValue" "string"
CkJsonObject_UpdateString $json "Operations[0].DetachTypedLink.TypedLinkSpecifier.SourceObjectReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].DetachTypedLink.TypedLinkSpecifier.TargetObjectReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].DetachTypedLink.TypedLinkSpecifier.TypedLinkFacet.SchemaArn" "string"
CkJsonObject_UpdateString $json "Operations[0].DetachTypedLink.TypedLinkSpecifier.TypedLinkFacet.TypedLinkName" "string"
CkJsonObject_UpdateString $json "Operations[0].RemoveFacetFromObject.ObjectReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].RemoveFacetFromObject.SchemaFacet.FacetName" "string"
CkJsonObject_UpdateString $json "Operations[0].RemoveFacetFromObject.SchemaFacet.SchemaArn" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeActionType" "string"
CkJsonObject_UpdateInt $json "Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.BinaryValue" 123
CkJsonObject_UpdateInt $json "Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.BooleanValue" 123
CkJsonObject_UpdateInt $json "Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.DatetimeValue" 123
CkJsonObject_UpdateString $json "Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.NumberValue" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.StringValue" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeKey.FacetName" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeKey.Name" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeKey.SchemaArn" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].AttributeName" "string"
CkJsonObject_UpdateInt $json "Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BinaryValue" 123
CkJsonObject_UpdateInt $json "Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BooleanValue" 123
CkJsonObject_UpdateInt $json "Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.DatetimeValue" 123
CkJsonObject_UpdateString $json "Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.NumberValue" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.StringValue" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.SourceObjectReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.TargetObjectReference.Selector" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.TypedLinkFacet.SchemaArn" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.TypedLinkFacet.TypedLinkName" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeActionType" "string"
CkJsonObject_UpdateInt $json "Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.BinaryValue" 123
CkJsonObject_UpdateInt $json "Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.BooleanValue" 123
CkJsonObject_UpdateInt $json "Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.DatetimeValue" 123
CkJsonObject_UpdateString $json "Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.NumberValue" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.StringValue" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeKey.FacetName" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeKey.Name" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeKey.SchemaArn" "string"
CkJsonObject_UpdateString $json "Operations[0].UpdateObjectAttributes.ObjectReference.Selector" "string"
# The JSON request body created by the above code:
# {
# "Operations": [
# {
# "AddFacetToObject": {
# "ObjectAttributeList": [
# {
# "Key": {
# "FacetName": "string",
# "Name": "string",
# "SchemaArn": "string"
# },
# "Value": {
# "BinaryValue": blob,
# "BooleanValue": boolean,
# "DatetimeValue": number,
# "NumberValue": "string",
# "StringValue": "string"
# }
# }
# ],
# "ObjectReference": {
# "Selector": "string"
# },
# "SchemaFacet": {
# "FacetName": "string",
# "SchemaArn": "string"
# }
# },
# "AttachObject": {
# "ChildReference": {
# "Selector": "string"
# },
# "LinkName": "string",
# "ParentReference": {
# "Selector": "string"
# }
# },
# "AttachPolicy": {
# "ObjectReference": {
# "Selector": "string"
# },
# "PolicyReference": {
# "Selector": "string"
# }
# },
# "AttachToIndex": {
# "IndexReference": {
# "Selector": "string"
# },
# "TargetReference": {
# "Selector": "string"
# }
# },
# "AttachTypedLink": {
# "Attributes": [
# {
# "AttributeName": "string",
# "Value": {
# "BinaryValue": blob,
# "BooleanValue": boolean,
# "DatetimeValue": number,
# "NumberValue": "string",
# "StringValue": "string"
# }
# }
# ],
# "SourceObjectReference": {
# "Selector": "string"
# },
# "TargetObjectReference": {
# "Selector": "string"
# },
# "TypedLinkFacet": {
# "SchemaArn": "string",
# "TypedLinkName": "string"
# }
# },
# "CreateIndex": {
# "BatchReferenceName": "string",
# "IsUnique": boolean,
# "LinkName": "string",
# "OrderedIndexedAttributeList": [
# {
# "FacetName": "string",
# "Name": "string",
# "SchemaArn": "string"
# }
# ],
# "ParentReference": {
# "Selector": "string"
# }
# },
# "CreateObject": {
# "BatchReferenceName": "string",
# "LinkName": "string",
# "ObjectAttributeList": [
# {
# "Key": {
# "FacetName": "string",
# "Name": "string",
# "SchemaArn": "string"
# },
# "Value": {
# "BinaryValue": blob,
# "BooleanValue": boolean,
# "DatetimeValue": number,
# "NumberValue": "string",
# "StringValue": "string"
# }
# }
# ],
# "ParentReference": {
# "Selector": "string"
# },
# "SchemaFacet": [
# {
# "FacetName": "string",
# "SchemaArn": "string"
# }
# ]
# },
# "DeleteObject": {
# "ObjectReference": {
# "Selector": "string"
# }
# },
# "DetachFromIndex": {
# "IndexReference": {
# "Selector": "string"
# },
# "TargetReference": {
# "Selector": "string"
# }
# },
# "DetachObject": {
# "BatchReferenceName": "string",
# "LinkName": "string",
# "ParentReference": {
# "Selector": "string"
# }
# },
# "DetachPolicy": {
# "ObjectReference": {
# "Selector": "string"
# },
# "PolicyReference": {
# "Selector": "string"
# }
# },
# "DetachTypedLink": {
# "TypedLinkSpecifier": {
# "IdentityAttributeValues": [
# {
# "AttributeName": "string",
# "Value": {
# "BinaryValue": blob,
# "BooleanValue": boolean,
# "DatetimeValue": number,
# "NumberValue": "string",
# "StringValue": "string"
# }
# }
# ],
# "SourceObjectReference": {
# "Selector": "string"
# },
# "TargetObjectReference": {
# "Selector": "string"
# },
# "TypedLinkFacet": {
# "SchemaArn": "string",
# "TypedLinkName": "string"
# }
# }
# },
# "RemoveFacetFromObject": {
# "ObjectReference": {
# "Selector": "string"
# },
# "SchemaFacet": {
# "FacetName": "string",
# "SchemaArn": "string"
# }
# },
# "UpdateLinkAttributes": {
# "AttributeUpdates": [
# {
# "AttributeAction": {
# "AttributeActionType": "string",
# "AttributeUpdateValue": {
# "BinaryValue": blob,
# "BooleanValue": boolean,
# "DatetimeValue": number,
# "NumberValue": "string",
# "StringValue": "string"
# }
# },
# "AttributeKey": {
# "FacetName": "string",
# "Name": "string",
# "SchemaArn": "string"
# }
# }
# ],
# "TypedLinkSpecifier": {
# "IdentityAttributeValues": [
# {
# "AttributeName": "string",
# "Value": {
# "BinaryValue": blob,
# "BooleanValue": boolean,
# "DatetimeValue": number,
# "NumberValue": "string",
# "StringValue": "string"
# }
# }
# ],
# "SourceObjectReference": {
# "Selector": "string"
# },
# "TargetObjectReference": {
# "Selector": "string"
# },
# "TypedLinkFacet": {
# "SchemaArn": "string",
# "TypedLinkName": "string"
# }
# }
# },
# "UpdateObjectAttributes": {
# "AttributeUpdates": [
# {
# "ObjectAttributeAction": {
# "ObjectAttributeActionType": "string",
# "ObjectAttributeUpdateValue": {
# "BinaryValue": blob,
# "BooleanValue": boolean,
# "DatetimeValue": number,
# "NumberValue": "string",
# "StringValue": "string"
# }
# },
# "ObjectAttributeKey": {
# "FacetName": "string",
# "Name": "string",
# "SchemaArn": "string"
# }
# }
# ],
# "ObjectReference": {
# "Selector": "string"
# }
# }
# }
# ]
# }
CkRest_AddHeader $rest "Content-Type" "application/x-amz-json-1.1"
CkRest_AddHeader $rest "X-Amz-Target" "BatchWrite"
set sbRequestBody [new_CkStringBuilder]
CkJsonObject_EmitSb $json $sbRequestBody
set sbResponseBody [new_CkStringBuilder]
set success [CkRest_FullRequestSb $rest "PUT" "/amazonclouddirectory/2017-01-11/batchwrite" $sbRequestBody $sbResponseBody]
if {$success != 1} then {
puts [CkRest_lastErrorText $rest]
delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkJsonObject $json
delete_CkStringBuilder $sbRequestBody
delete_CkStringBuilder $sbResponseBody
exit
}
set respStatusCode [CkRest_get_ResponseStatusCode $rest]
puts "response status code = $respStatusCode"
if {$respStatusCode != 200} then {
puts "Response Header:"
puts [CkRest_responseHeader $rest]
puts "Response Body:"
puts [CkStringBuilder_getAsString $sbResponseBody]
delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkJsonObject $json
delete_CkStringBuilder $sbRequestBody
delete_CkStringBuilder $sbResponseBody
exit
}
set jResp [new_CkJsonObject]
CkJsonObject_LoadSb $jResp $sbResponseBody
# The following code parses the JSON response.
# A sample JSON response is shown below the sample code.
# Use this online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON
set i 0
set count_i [CkJsonObject_SizeOfArray $jResp "Responses"]
while {$i < $count_i} {
CkJsonObject_put_I $jResp $i
set AttachedObjectIdentifier [CkJsonObject_stringOf $jResp "Responses[i].AttachObject.attachedObjectIdentifier"]
set AttachToIndexAttachedObjectIdentifier [CkJsonObject_stringOf $jResp "Responses[i].AttachToIndex.AttachedObjectIdentifier"]
set Selector [CkJsonObject_stringOf $jResp "Responses[i].AttachTypedLink.TypedLinkSpecifier.SourceObjectReference.Selector"]
set TargetObjectReferenceSelector [CkJsonObject_stringOf $jResp "Responses[i].AttachTypedLink.TypedLinkSpecifier.TargetObjectReference.Selector"]
set SchemaArn [CkJsonObject_stringOf $jResp "Responses[i].AttachTypedLink.TypedLinkSpecifier.TypedLinkFacet.SchemaArn"]
set TypedLinkName [CkJsonObject_stringOf $jResp "Responses[i].AttachTypedLink.TypedLinkSpecifier.TypedLinkFacet.TypedLinkName"]
set ObjectIdentifier [CkJsonObject_stringOf $jResp "Responses[i].CreateIndex.ObjectIdentifier"]
set CreateObjectObjectIdentifier [CkJsonObject_stringOf $jResp "Responses[i].CreateObject.ObjectIdentifier"]
set DetachedObjectIdentifier [CkJsonObject_stringOf $jResp "Responses[i].DetachFromIndex.DetachedObjectIdentifier"]
set DetachObjectDetachedObjectIdentifier [CkJsonObject_stringOf $jResp "Responses[i].DetachObject.detachedObjectIdentifier"]
set UpdateObjectAttributesObjectIdentifier [CkJsonObject_stringOf $jResp "Responses[i].UpdateObjectAttributes.ObjectIdentifier"]
set j 0
set count_j [CkJsonObject_SizeOfArray $jResp "Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues"]
while {$j < $count_j} {
CkJsonObject_put_J $jResp $j
set AttributeName [CkJsonObject_stringOf $jResp "Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].AttributeName"]
set BinaryValue [CkJsonObject_IntOf $jResp "Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.BinaryValue"]
set BooleanValue [CkJsonObject_IntOf $jResp "Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.BooleanValue"]
set DatetimeValue [CkJsonObject_IntOf $jResp "Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.DatetimeValue"]
set NumberValue [CkJsonObject_stringOf $jResp "Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.NumberValue"]
set StringValue [CkJsonObject_stringOf $jResp "Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.StringValue"]
set j [expr $j + 1]
}
set i [expr $i + 1]
}
# A sample JSON response body parsed by the above code:
# {
# "Responses": [
# {
# "AddFacetToObject": {},
# "AttachObject": {
# "attachedObjectIdentifier": "string"
# },
# "AttachPolicy": {},
# "AttachToIndex": {
# "AttachedObjectIdentifier": "string"
# },
# "AttachTypedLink": {
# "TypedLinkSpecifier": {
# "IdentityAttributeValues": [
# {
# "AttributeName": "string",
# "Value": {
# "BinaryValue": blob,
# "BooleanValue": boolean,
# "DatetimeValue": number,
# "NumberValue": "string",
# "StringValue": "string"
# }
# }
# ],
# "SourceObjectReference": {
# "Selector": "string"
# },
# "TargetObjectReference": {
# "Selector": "string"
# },
# "TypedLinkFacet": {
# "SchemaArn": "string",
# "TypedLinkName": "string"
# }
# }
# },
# "CreateIndex": {
# "ObjectIdentifier": "string"
# },
# "CreateObject": {
# "ObjectIdentifier": "string"
# },
# "DeleteObject": {},
# "DetachFromIndex": {
# "DetachedObjectIdentifier": "string"
# },
# "DetachObject": {
# "detachedObjectIdentifier": "string"
# },
# "DetachPolicy": {},
# "DetachTypedLink": {},
# "RemoveFacetFromObject": {},
# "UpdateLinkAttributes": {},
# "UpdateObjectAttributes": {
# "ObjectIdentifier": "string"
# }
# }
# ]
# }
delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkJsonObject $json
delete_CkStringBuilder $sbRequestBody
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp
