GetMergeConflicts PowerBuilder Example
integer li_rc
oleobject loo_Rest
integer li_Success
oleobject loo_AuthAws
oleobject loo_Json
oleobject loo_SbRequestBody
oleobject loo_SbResponseBody
integer li_RespStatusCode
oleobject loo_JResp
integer li_ContentConflict
integer li_FileModeConflict
string ls_Base
string ls_Destination
string ls_Source
string ls_FilePath
integer li_FileSizesBase
integer li_FileSizesDestination
integer li_FileSizesSource
integer li_IsBinaryFileBase
integer li_IsBinaryFileDestination
integer li_IsBinaryFileSource
string ls_MergeOperationsDestination
string ls_MergeOperationsSource
integer li_NumberOfConflicts
integer li_ObjectTypeConflict
string ls_ObjectTypesBase
string ls_ObjectTypesDestination
string ls_ObjectTypesSource
string ls_BaseCommitId
string ls_DestinationCommitId
integer li_Mergeable
string ls_NextToken
string ls_SourceCommitId
integer i
integer li_Count_i
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
loo_Rest = create oleobject
li_rc = loo_Rest.ConnectToNewObject("Chilkat_9_5_0.Rest")
if li_rc < 0 then
destroy loo_Rest
MessageBox("Error","Connecting to COM object failed")
return
end if
loo_AuthAws = create oleobject
li_rc = loo_AuthAws.ConnectToNewObject("Chilkat_9_5_0.AuthAws")
loo_AuthAws.AccessKey = "AWS_ACCESS_KEY"
loo_AuthAws.SecretKey = "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.)
loo_AuthAws.Region = "us-west-2"
loo_AuthAws.ServiceName = "codecommit"
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
loo_Rest.SetAuthAws(loo_AuthAws)
// URL: https://codecommit.us-west-2.amazonaws.com/
// Use the same region as specified above.
li_Success = loo_Rest.Connect("codecommit.us-west-2.amazonaws.com",443,1,1)
if li_Success <> 1 then
Write-Debug "ConnectFailReason: " + string(loo_Rest.ConnectFailReason)
Write-Debug loo_Rest.LastErrorText
destroy loo_Rest
destroy loo_AuthAws
return
end if
// 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
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat_9_5_0.JsonObject")
loo_Json.UpdateString("conflictDetailLevel","string")
loo_Json.UpdateString("conflictResolutionStrategy","string")
loo_Json.UpdateString("destinationCommitSpecifier","string")
loo_Json.UpdateInt("maxConflictFiles",123)
loo_Json.UpdateString("mergeOption","string")
loo_Json.UpdateString("nextToken","string")
loo_Json.UpdateString("repositoryName","string")
loo_Json.UpdateString("sourceCommitSpecifier","string")
// The JSON request body created by the above code:
// {
// "conflictDetailLevel": "string",
// "conflictResolutionStrategy": "string",
// "destinationCommitSpecifier": "string",
// "maxConflictFiles": number,
// "mergeOption": "string",
// "nextToken": "string",
// "repositoryName": "string",
// "sourceCommitSpecifier": "string"
// }
loo_Rest.AddHeader("Content-Type","application/x-amz-json-1.1")
loo_Rest.AddHeader("X-Amz-Target","CodeCommit_20150413.GetMergeConflicts")
loo_SbRequestBody = create oleobject
li_rc = loo_SbRequestBody.ConnectToNewObject("Chilkat_9_5_0.StringBuilder")
loo_Json.EmitSb(loo_SbRequestBody)
loo_SbResponseBody = create oleobject
li_rc = loo_SbResponseBody.ConnectToNewObject("Chilkat_9_5_0.StringBuilder")
li_Success = loo_Rest.FullRequestSb("POST","/",loo_SbRequestBody,loo_SbResponseBody)
if li_Success <> 1 then
Write-Debug loo_Rest.LastErrorText
destroy loo_Rest
destroy loo_AuthAws
destroy loo_Json
destroy loo_SbRequestBody
destroy loo_SbResponseBody
return
end if
li_RespStatusCode = loo_Rest.ResponseStatusCode
Write-Debug "response status code = " + string(li_RespStatusCode)
if li_RespStatusCode <> 200 then
Write-Debug "Response Header:"
Write-Debug loo_Rest.ResponseHeader
Write-Debug "Response Body:"
Write-Debug loo_SbResponseBody.GetAsString()
destroy loo_Rest
destroy loo_AuthAws
destroy loo_Json
destroy loo_SbRequestBody
destroy loo_SbResponseBody
return
end if
loo_JResp = create oleobject
li_rc = loo_JResp.ConnectToNewObject("Chilkat_9_5_0.JsonObject")
loo_JResp.LoadSb(loo_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
ls_BaseCommitId = loo_JResp.StringOf("baseCommitId")
ls_DestinationCommitId = loo_JResp.StringOf("destinationCommitId")
li_Mergeable = loo_JResp.IntOf("mergeable")
ls_NextToken = loo_JResp.StringOf("nextToken")
ls_SourceCommitId = loo_JResp.StringOf("sourceCommitId")
i = 0
li_Count_i = loo_JResp.SizeOfArray("conflictMetadataList")
do while i < li_Count_i
loo_JResp.I = i
li_ContentConflict = loo_JResp.IntOf("conflictMetadataList[i].contentConflict")
li_FileModeConflict = loo_JResp.IntOf("conflictMetadataList[i].fileModeConflict")
ls_Base = loo_JResp.StringOf("conflictMetadataList[i].fileModes.base")
ls_Destination = loo_JResp.StringOf("conflictMetadataList[i].fileModes.destination")
ls_Source = loo_JResp.StringOf("conflictMetadataList[i].fileModes.source")
ls_FilePath = loo_JResp.StringOf("conflictMetadataList[i].filePath")
li_FileSizesBase = loo_JResp.IntOf("conflictMetadataList[i].fileSizes.base")
li_FileSizesDestination = loo_JResp.IntOf("conflictMetadataList[i].fileSizes.destination")
li_FileSizesSource = loo_JResp.IntOf("conflictMetadataList[i].fileSizes.source")
li_IsBinaryFileBase = loo_JResp.IntOf("conflictMetadataList[i].isBinaryFile.base")
li_IsBinaryFileDestination = loo_JResp.IntOf("conflictMetadataList[i].isBinaryFile.destination")
li_IsBinaryFileSource = loo_JResp.IntOf("conflictMetadataList[i].isBinaryFile.source")
ls_MergeOperationsDestination = loo_JResp.StringOf("conflictMetadataList[i].mergeOperations.destination")
ls_MergeOperationsSource = loo_JResp.StringOf("conflictMetadataList[i].mergeOperations.source")
li_NumberOfConflicts = loo_JResp.IntOf("conflictMetadataList[i].numberOfConflicts")
li_ObjectTypeConflict = loo_JResp.IntOf("conflictMetadataList[i].objectTypeConflict")
ls_ObjectTypesBase = loo_JResp.StringOf("conflictMetadataList[i].objectTypes.base")
ls_ObjectTypesDestination = loo_JResp.StringOf("conflictMetadataList[i].objectTypes.destination")
ls_ObjectTypesSource = loo_JResp.StringOf("conflictMetadataList[i].objectTypes.source")
i = i + 1
loop
// A sample JSON response body parsed by the above code:
// {
// "baseCommitId": "string",
// "conflictMetadataList": [
// {
// "contentConflict": boolean,
// "fileModeConflict": boolean,
// "fileModes": {
// "base": "string",
// "destination": "string",
// "source": "string"
// },
// "filePath": "string",
// "fileSizes": {
// "base": number,
// "destination": number,
// "source": number
// },
// "isBinaryFile": {
// "base": boolean,
// "destination": boolean,
// "source": boolean
// },
// "mergeOperations": {
// "destination": "string",
// "source": "string"
// },
// "numberOfConflicts": number,
// "objectTypeConflict": boolean,
// "objectTypes": {
// "base": "string",
// "destination": "string",
// "source": "string"
// }
// }
// ],
// "destinationCommitId": "string",
// "mergeable": boolean,
// "nextToken": "string",
// "sourceCommitId": "string"
// }
destroy loo_Rest
destroy loo_AuthAws
destroy loo_Json
destroy loo_SbRequestBody
destroy loo_SbResponseBody
destroy loo_JResp