resource/csdk/connectivity/src/cablockwisetransfer.c

   1 /* ****************************************************************
   2  *
   3  * Copyright 2015 Samsung Electronics All Rights Reserved.
   4  *
   5  *
   6  *
   7  * Licensed under the Apache License, Version 2.0 (the "License");
   8  * you may not use this file except in compliance with the License.
   9  * You may obtain a copy of the License at
  10  *
  11  *      http://www.apache.org/licenses/LICENSE-2.0
  12  *
  13  * Unless required by applicable law or agreed to in writing, software
  14  * distributed under the License is distributed on an "AS IS" BASIS,
  15  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  16  * See the License for the specific language governing permissions and
  17  * limitations under the License.
  18  *
  19  ******************************************************************/
  20
  21 // Defining _BSD_SOURCE or _DEFAULT_SOURCE causes header files to expose
  22 // definitions that may otherwise be skipped. Skipping can cause implicit
  23 // declaration warnings and/or bugs and subtle problems in code execution.
  24 // For glibc information on feature test macros,
  25 // Refer http://www.gnu.org/software/libc/manual/html_node/Feature-Test-Macros.html
  26 //
  27 // This file requires #define use due to random()
  28 // For details on compatibility and glibc support,
  29 // Refer http://www.gnu.org/software/libc/manual/html_node/BSD-Random.html
  30 #define _DEFAULT_SOURCE
  31 #define _BSD_SOURCE
  32
  33 #include <stdio.h>
  34 #include <stdlib.h>
  35 #include <string.h>
  36
  37 #include "caadapterutils.h"
  38 #include "cainterface.h"
  39 #include "camessagehandler.h"
  40 #include "caremotehandler.h"
  41 #include "cablockwisetransfer.h"
  42 #include "oic_malloc.h"
  43 #include "oic_string.h"
  44 #include "camutex.h"
  45 #include "logger.h"
  46
  47 #define TAG "OIC_CA_BWT"
  48
  49 #define BLOCKWISE_OPTION_BUFFER    (sizeof(unsigned int))
  50 #define BLOCK_NUMBER_IDX           4
  51 #define BLOCK_M_BIT_IDX            3
  52 #define PORT_LENGTH                2
  53
  54 #define BLOCK_SIZE(arg) (1 << ((arg) + 4))
  55
  56 // context for block-wise transfer
  57 static CABlockWiseContext_t g_context = { .sendThreadFunc = NULL,
  58                                           .receivedThreadFunc = NULL,
  59                                           .dataList = NULL };
  60
  61 static bool CACheckPayloadLength(const CAData_t *sendData)
  62 {
  63     size_t payloadLen = 0;
  64     CAGetPayloadInfo(sendData, &payloadLen);
  65
  66     // check if message has to be transfered to a block
  67     size_t maxBlockSize = BLOCK_SIZE(CA_DEFAULT_BLOCK_SIZE);
  68     OIC_LOG_V(DEBUG, TAG, "payloadLen=%zu, maxBlockSize=%zu", payloadLen, maxBlockSize);
  69
  70     if (payloadLen <= maxBlockSize)
  71     {
  72         return false;
  73     }
  74
  75     return true;
  76 }
  77
  78 CAResult_t CAInitializeBlockWiseTransfer(CASendThreadFunc sendThreadFunc,
  79                                          CAReceiveThreadFunc receivedThreadFunc)
  80 {
  81     OIC_LOG(DEBUG, TAG, "CAInitializeBlockWiseTransfer");
  82
  83     // set block-wise transfer context
  84     if (!g_context.sendThreadFunc)
  85     {
  86         g_context.sendThreadFunc = sendThreadFunc;
  87     }
  88
  89     if (!g_context.receivedThreadFunc)
  90     {
  91         g_context.receivedThreadFunc = receivedThreadFunc;
  92     }
  93
  94     if (!g_context.dataList)
  95     {
  96         g_context.dataList = u_arraylist_create();
  97     }
  98
  99     CAResult_t res = CAInitBlockWiseMutexVariables();
 100     if (CA_STATUS_OK != res)
 101     {
 102         u_arraylist_free(&g_context.dataList);
 103         g_context.dataList = NULL;
 104         OIC_LOG(ERROR, TAG, "init has failed");
 105     }
 106
 107     return res;
 108 }
 109
 110 CAResult_t CATerminateBlockWiseTransfer()
 111 {
 112     OIC_LOG(DEBUG, TAG, "CATerminateBlockWiseTransfer");
 113
 114     if (g_context.dataList)
 115     {
 116         CARemoveAllBlockDataFromList();
 117         u_arraylist_free(&g_context.dataList);
 118     }
 119
 120     CATerminateBlockWiseMutexVariables();
 121
 122     return CA_STATUS_OK;
 123 }
 124
 125 CAResult_t CAInitBlockWiseMutexVariables()
 126 {
 127     if (!g_context.blockDataListMutex)
 128     {
 129         g_context.blockDataListMutex = ca_mutex_new();
 130         if (!g_context.blockDataListMutex)
 131         {
 132             OIC_LOG(ERROR, TAG, "ca_mutex_new has failed");
 133             return CA_STATUS_FAILED;
 134         }
 135     }
 136
 137     if (!g_context.blockDataSenderMutex)
 138     {
 139         g_context.blockDataSenderMutex = ca_mutex_new();
 140         if (!g_context.blockDataSenderMutex)
 141         {
 142             OIC_LOG(ERROR, TAG, "ca_mutex_new has failed");
 143             CATerminateBlockWiseMutexVariables();
 144             return CA_STATUS_FAILED;
 145         }
 146     }
 147
 148     return CA_STATUS_OK;
 149 }
 150
 151 void CATerminateBlockWiseMutexVariables()
 152 {
 153     if (g_context.blockDataListMutex)
 154     {
 155         ca_mutex_free(g_context.blockDataListMutex);
 156         g_context.blockDataListMutex = NULL;
 157     }
 158
 159     if (g_context.blockDataSenderMutex)
 160     {
 161         ca_mutex_free(g_context.blockDataSenderMutex);
 162         g_context.blockDataSenderMutex = NULL;
 163     }
 164 }
 165
 166 CAResult_t CASendBlockWiseData(const CAData_t *sendData)
 167 {
 168     VERIFY_NON_NULL(sendData, TAG, "sendData");
 169
 170     // check if message type is CA_MSG_RESET
 171     if (sendData->requestInfo)
 172     {
 173         if (CA_MSG_RESET == sendData->requestInfo->info.type)
 174         {
 175             OIC_LOG(DEBUG, TAG, "reset message can't be sent to the block");
 176             return CA_NOT_SUPPORTED;
 177         }
 178
 179         /*
 180          * Other uses of the Block options in conjunction with multicast
 181          * messages are for further study.
 182          */
 183         if (sendData->requestInfo->isMulticast)
 184         {
 185             OIC_LOG(DEBUG, TAG, "multicast message can't be sent to the block");
 186             return CA_NOT_SUPPORTED;
 187         }
 188     }
 189     else if (sendData->responseInfo)
 190     {
 191         if (CA_MSG_RESET == sendData->responseInfo->info.type)
 192         {
 193             OIC_LOG(DEBUG, TAG, "reset message can't be sent to the block");
 194             return CA_NOT_SUPPORTED;
 195         }
 196         if (sendData->responseInfo->isMulticast)
 197         {
 198             OIC_LOG(DEBUG, TAG, "multicast message can't be sent to the block");
 199             return CA_NOT_SUPPORTED;
 200         }
 201     }
 202
 203     // #1. check if it is already included in block data list
 204     CABlockData_t *currData = NULL;
 205     CAResult_t res = CACheckBlockDataValidation(sendData, &currData);
 206     if (CA_STATUS_OK != res)
 207     {
 208         // #2. if it is not included, add the data into list
 209         if (!currData)
 210         {
 211             OIC_LOG(DEBUG, TAG, "There is no block data");
 212
 213             bool isBlock = CACheckPayloadLength(sendData);
 214             if (!isBlock)
 215             {
 216                 if (sendData->requestInfo)
 217                 {
 218                     currData = CACreateNewBlockData(sendData);
 219                     if (!currData)
 220                     {
 221                         OIC_LOG(ERROR, TAG, "failed to create block data");
 222                         return CA_MEMORY_ALLOC_FAILED;
 223                     }
 224                 }
 225                 return CA_NOT_SUPPORTED;
 226             }
 227             currData = CACreateNewBlockData(sendData);
 228             if (!currData)
 229             {
 230                 OIC_LOG(ERROR, TAG, "failed to create block data");
 231                 return CA_MEMORY_ALLOC_FAILED;
 232             }
 233         }
 234     }
 235
 236     // #3. check request/response block option type and payload length
 237     res = CACheckBlockOptionType(currData);
 238     if (CA_STATUS_OK == res)
 239     {
 240         // #4. send block message
 241         OIC_LOG(DEBUG, TAG, "send first block msg");
 242         res = CAAddSendThreadQueue(currData->sentData,
 243                                    (const CABlockDataID_t *) &currData->blockDataId);
 244         if (CA_STATUS_OK != res)
 245         {
 246             OIC_LOG(ERROR, TAG, "add has failed");
 247             return res;
 248         }
 249     }
 250
 251     return res;
 252 }
 253
 254 CAResult_t CAAddSendThreadQueue(const CAData_t *sendData, const CABlockDataID_t *blockID)
 255 {
 256     VERIFY_NON_NULL(sendData, TAG, "sendData");
 257     VERIFY_NON_NULL(blockID, TAG, "blockID");
 258
 259     CAData_t *cloneData = CACloneCAData(sendData);
 260     if (!cloneData)
 261     {
 262         OIC_LOG(ERROR, TAG, "clone has failed");
 263         CARemoveBlockDataFromList(blockID);
 264         return CA_STATUS_FAILED;
 265     }
 266
 267     if (g_context.sendThreadFunc)
 268     {
 269         ca_mutex_lock(g_context.blockDataSenderMutex);
 270         g_context.sendThreadFunc(cloneData);
 271         ca_mutex_unlock(g_context.blockDataSenderMutex);
 272     }
 273     else
 274     {
 275         CADestroyDataSet(cloneData);
 276     }
 277     return CA_STATUS_OK;
 278 }
 279
 280 CAResult_t CACheckBlockOptionType(CABlockData_t *currData)
 281 {
 282     VERIFY_NON_NULL(currData, TAG, "currData");
 283     VERIFY_NON_NULL(currData->sentData, TAG, "currData->sentData");
 284
 285     bool isBlock = CACheckPayloadLength(currData->sentData);
 286     if (!isBlock)
 287     {
 288         return CA_NOT_SUPPORTED;
 289     }
 290
 291     // set block option (COAP_OPTION_BLOCK2 or COAP_OPTION_BLOCK1)
 292     if (currData->sentData->requestInfo) // request message
 293     {
 294         currData->type = COAP_OPTION_BLOCK1;
 295     }
 296     else // response message
 297     {
 298         currData->type = COAP_OPTION_BLOCK2;
 299     }
 300
 301     return CA_STATUS_OK;
 302 }
 303
 304 // TODO make pdu const after libcoap is updated to support that.
 305 CAResult_t CAReceiveBlockWiseData(coap_pdu_t *pdu, const CAEndpoint_t *endpoint,
 306                                   const CAData_t *receivedData, size_t dataLen)
 307 {
 308     OIC_LOG(DEBUG, TAG, "CAReceiveBlockWiseData");
 309     VERIFY_NON_NULL(pdu, TAG, "pdu");
 310     VERIFY_NON_NULL(pdu->transport_hdr, TAG, "pdu->transport_hdr");
 311     VERIFY_NON_NULL(endpoint, TAG, "endpoint");
 312     VERIFY_NON_NULL(receivedData, TAG, "receivedData");
 313
 314     // check if received message type is CA_MSG_RESET
 315     if (CA_EMPTY == pdu->transport_hdr->udp.code)
 316     {
 317         OIC_LOG(DEBUG, TAG, "code is CA_EMPTY..");
 318
 319         if (!receivedData->responseInfo->info.token)
 320         {
 321             // get token from block-wise transfer list when CA_EMPTY(RST/ACK) is received
 322             CAResult_t res = CAGetTokenFromBlockDataList(pdu, endpoint,
 323                                                          receivedData->responseInfo);
 324             if (CA_STATUS_OK != res)
 325             {
 326                 OIC_LOG(ERROR, TAG, "fail to get token");
 327                 return res;
 328             }
 329         }
 330
 331         CABlockDataID_t* blockDataID = CACreateBlockDatablockId(
 332                 receivedData->responseInfo->info.token,
 333                 receivedData->responseInfo->info.tokenLength,
 334                 endpoint->port);
 335         if (NULL == blockDataID || blockDataID->idLength < 1)
 336         {
 337             // if retransmission is timeout, callback msg will be send without token.
 338             if (NULL == blockDataID && !receivedData->responseInfo->info.token)
 339             {
 340                 OIC_LOG(INFO, TAG, "retransmission was stopped");
 341                 return CA_REQUEST_TIMEOUT;
 342             }
 343
 344             OIC_LOG(ERROR, TAG, "blockId is null");
 345             CADestroyBlockID(blockDataID);
 346             return CA_STATUS_FAILED;
 347         }
 348
 349         // If we didn't send the last block message and received EMPTY message,
 350         // we have to remain the block data from list.
 351         CABlockData_t *data = CAGetBlockDataFromBlockDataList(blockDataID);
 352         if (data && (data->block1.m || data->block2.m))
 353         {
 354             OIC_LOG(DEBUG, TAG, "this is normal EMPTY message for blockwise-transfer.");
 355             CADestroyBlockID(blockDataID);
 356             return CA_STATUS_OK;
 357         }
 358
 359         CARemoveBlockDataFromList(blockDataID);
 360         CADestroyBlockID(blockDataID);
 361         return CA_NOT_SUPPORTED;
 362     }
 363
 364     // check if block option is set and get block data
 365     coap_block_t block = { 0, 0, 0 };
 366
 367     // get block1 option
 368     int isBlock1 = coap_get_block(pdu, COAP_OPTION_BLOCK1, &block);
 369     if (isBlock1)
 370     {
 371         CAResult_t res = CASetNextBlockOption1(pdu, endpoint, receivedData, block, dataLen);
 372         if (CA_STATUS_OK != res)
 373         {
 374             OIC_LOG(ERROR, TAG, "setting has failed");
 375             return res;
 376         }
 377     }
 378
 379     // get block2 option
 380     int isBlock2 = coap_get_block(pdu, COAP_OPTION_BLOCK2, &block);
 381     if (isBlock2)
 382     {
 383         CAResult_t res = CASetNextBlockOption2(pdu, endpoint, receivedData, block, dataLen);
 384         if (CA_STATUS_OK != res)
 385         {
 386             OIC_LOG(ERROR, TAG, "setting has failed");
 387             return res;
 388         }
 389     }
 390
 391     // if there is no block option in pdu, check if there is error code.
 392     if (!isBlock1 && !isBlock2)
 393     {
 394         CABlockDataID_t* blockDataID = CACreateBlockDatablockId(
 395                 (CAToken_t)pdu->transport_hdr->udp.token,
 396                 pdu->transport_hdr->udp.token_length,
 397                 endpoint->port);
 398         if (NULL == blockDataID || blockDataID->idLength < 1)
 399         {
 400             OIC_LOG(ERROR, TAG, "blockId is null");
 401             CADestroyBlockID(blockDataID);
 402             return CA_STATUS_FAILED;
 403         }
 404
 405         uint32_t code = CA_RESPONSE_CODE(pdu->transport_hdr->udp.code);
 406         if (CA_REQUEST_ENTITY_INCOMPLETE == code)
 407         {
 408             CABlockData_t *data = CAGetBlockDataFromBlockDataList(blockDataID);
 409             if (!data)
 410             {
 411                 OIC_LOG(ERROR, TAG, "getting has failed");
 412                 CADestroyBlockID(blockDataID);
 413                 return CA_STATUS_FAILED;
 414             }
 415
 416             coap_block_t *block = CAGetBlockOption(blockDataID, data->type);
 417             if (!block)
 418             {
 419                 OIC_LOG(ERROR, TAG, "block is null");
 420                 CADestroyBlockID(blockDataID);
 421                 return CA_STATUS_FAILED;
 422             }
 423
 424             CAResult_t res = CA_STATUS_OK;
 425             if (COAP_OPTION_BLOCK2 == data->type)
 426             {
 427                 res = CASetNextBlockOption2(pdu, endpoint, receivedData, *block, dataLen);
 428                 if (CA_STATUS_OK != res)
 429                 {
 430                     OIC_LOG(ERROR, TAG, "setting has failed");
 431                     CADestroyBlockID(blockDataID);
 432                     return CA_STATUS_FAILED;
 433                 }
 434             }
 435             else if (COAP_OPTION_BLOCK1 == data->type)
 436             {
 437                 res = CASetNextBlockOption1(pdu, endpoint, receivedData, *block, dataLen);
 438                 if (CA_STATUS_OK != res)
 439                 {
 440                     OIC_LOG(ERROR, TAG, "setting has failed");
 441                     CADestroyBlockID(blockDataID);
 442                     return res;
 443                 }
 444             }
 445             CADestroyBlockID(blockDataID);
 446         }
 447         else
 448         {
 449             // normal pdu data
 450             OIC_LOG(DEBUG, TAG, "it's normal pdu");
 451
 452             // if received data is response message
 453             // and sent data remain in block data list, remove block data
 454             if (receivedData->responseInfo)
 455             {
 456                 CARemoveBlockDataFromList(blockDataID);
 457             }
 458             CADestroyBlockID(blockDataID);
 459             return CA_NOT_SUPPORTED;
 460         }
 461     }
 462     return CA_STATUS_OK;
 463 }
 464
 465 CAResult_t CAProcessNextStep(const coap_pdu_t *pdu, const CAData_t *receivedData,
 466                              uint8_t blockWiseStatus, const CABlockDataID_t *blockID)
 467 {
 468     VERIFY_NON_NULL(pdu, TAG, "pdu");
 469     VERIFY_NON_NULL(pdu->hdr, TAG, "pdu->hdr");
 470     VERIFY_NON_NULL(blockID, TAG, "blockID");
 471
 472     CAResult_t res = CA_STATUS_OK;
 473     CAData_t *data = NULL;
 474
 475     // process blockWiseStatus
 476     switch (blockWiseStatus)
 477     {
 478         case CA_OPTION2_FIRST_BLOCK:
 479             res = CAAddSendThreadQueue(receivedData, blockID);
 480             if (CA_STATUS_OK != res)
 481             {
 482                 OIC_LOG(ERROR, TAG, "add has failed");
 483                 return res;
 484             }
 485             break;
 486
 487         case CA_OPTION2_REQUEST:
 488             // add data to send thread
 489             data = CAGetDataSetFromBlockDataList(blockID);
 490             if (!data)
 491             {
 492                 OIC_LOG(ERROR, TAG, "it's unavailable");
 493                 return CA_STATUS_FAILED;
 494             }
 495
 496             if (data->responseInfo)
 497             {
 498                 data->responseInfo->info.type =
 499                         (pdu->transport_hdr->udp.type == CA_MSG_CONFIRM) ?
 500                                 CA_MSG_ACKNOWLEDGE : CA_MSG_NONCONFIRM;
 501                 data->responseInfo->info.messageId = pdu->transport_hdr->udp.id;
 502
 503                 res = CAAddSendThreadQueue(data, blockID);
 504                 if (CA_STATUS_OK != res)
 505                 {
 506                     OIC_LOG(ERROR, TAG, "add has failed");
 507                     return res;
 508                 }
 509             }
 510             break;
 511
 512         case CA_OPTION1_RESPONSE:
 513         case CA_OPTION2_RESPONSE:
 514         case CA_OPTION1_REQUEST_BLOCK:
 515             res = CASendBlockMessage(pdu, pdu->transport_hdr->udp.type, blockID);
 516             if (CA_STATUS_OK != res)
 517             {
 518                 OIC_LOG(ERROR, TAG, "send has failed");
 519                 return res;
 520             }
 521             break;
 522
 523         case CA_OPTION2_LAST_BLOCK:
 524             // process last block and send upper layer
 525             res = CAReceiveLastBlock(blockID, receivedData);
 526             if (CA_STATUS_OK != res)
 527             {
 528                 OIC_LOG(ERROR, TAG, "receive has failed");
 529                 return res;
 530             }
 531
 532             // remove data from list
 533             res = CARemoveBlockDataFromList(blockID);
 534             if (CA_STATUS_OK != res)
 535             {
 536                 OIC_LOG(ERROR, TAG, "remove has failed");
 537                 return res;
 538             }
 539             break;
 540
 541         case CA_OPTION1_REQUEST_LAST_BLOCK:
 542             // process last block and send upper layer
 543             res = CAReceiveLastBlock(blockID, receivedData);
 544             if (CA_STATUS_OK != res)
 545             {
 546                 OIC_LOG(ERROR, TAG, "receive has failed");
 547                 return res;
 548             }
 549             break;
 550
 551         case CA_BLOCK_INCOMPLETE:
 552             // add data to send thread
 553             res = CASendErrorMessage(pdu, blockWiseStatus, CA_REQUEST_ENTITY_INCOMPLETE, blockID);
 554             if (CA_STATUS_OK != res)
 555             {
 556                 OIC_LOG(ERROR, TAG, "send has failed");
 557                 return res;
 558             }
 559             break;
 560
 561         case CA_BLOCK_TOO_LARGE:
 562             if (receivedData->requestInfo)
 563             {
 564                 res = CASendErrorMessage(pdu, blockWiseStatus, CA_REQUEST_ENTITY_TOO_LARGE,
 565                                          blockID);
 566                 if (CA_STATUS_OK != res)
 567                 {
 568                     OIC_LOG(ERROR, TAG, "send has failed");
 569                     return res;
 570                 }
 571             }
 572             else if (receivedData->responseInfo)
 573             {
 574                 res = CASendBlockMessage(pdu, pdu->transport_hdr->udp.type, blockID);
 575                 if (CA_STATUS_OK != res)
 576                 {
 577                     OIC_LOG(ERROR, TAG, "send has failed");
 578                     return res;
 579                 }
 580             }
 581             break;
 582         default:
 583             OIC_LOG_V(ERROR, TAG, "no logic [%d]", blockWiseStatus);
 584     }
 585     return CA_STATUS_OK;
 586 }
 587
 588 static CAResult_t CASendDirectEmptyResponse(const CAEndpoint_t *endpoint, uint16_t messageId)
 589 {
 590     OIC_LOG(DEBUG, TAG, "Entering CASendDirectEmptyResponse");
 591     CAResponseInfo_t respInfo = {
 592         .result = CA_EMPTY
 593     };
 594     respInfo.info.type = CA_MSG_ACKNOWLEDGE;
 595     respInfo.info.messageId = messageId;
 596     respInfo.info.dataType = CA_RESPONSE_DATA;
 597
 598     CAResult_t caResult = CASendResponse(endpoint, &respInfo);
 599
 600     OIC_LOG(DEBUG, TAG, "Exit CASendDirectEmptyResponse");
 601     return caResult;
 602 }
 603
 604 CAResult_t CASendBlockMessage(const coap_pdu_t *pdu, CAMessageType_t msgType,
 605                               const CABlockDataID_t *blockID)
 606 {
 607     VERIFY_NON_NULL(pdu, TAG, "pdu");
 608     VERIFY_NON_NULL(pdu->transport_hdr, TAG, "pdu->transport_hdr");
 609     VERIFY_NON_NULL(blockID, TAG, "blockID");
 610
 611     CAData_t *data = CAGetDataSetFromBlockDataList(blockID);
 612     if (!data)
 613     {
 614         OIC_LOG(ERROR, TAG, "CAData is unavailable");
 615         return CA_STATUS_FAILED;
 616     }
 617
 618     CAMessageType_t sentMsgType = CA_MSG_NONCONFIRM;
 619     switch (msgType)
 620     {
 621         case CA_MSG_CONFIRM:
 622             sentMsgType = CA_MSG_ACKNOWLEDGE;
 623             break;
 624         case CA_MSG_ACKNOWLEDGE:
 625             sentMsgType = CA_MSG_CONFIRM;
 626             break;
 627         default:
 628             sentMsgType = CA_MSG_NONCONFIRM;
 629             break;
 630     }
 631
 632     uint32_t code = pdu->transport_hdr->udp.code;
 633     if (CA_GET == code || CA_POST == code || CA_PUT == code || CA_DELETE == code)
 634     {
 635         if (data->responseInfo)
 636         {
 637             OIC_LOG(DEBUG, TAG, "set response info");
 638             data->responseInfo->info.messageId = pdu->transport_hdr->udp.id;
 639             data->responseInfo->info.type = sentMsgType;
 640             data->responseInfo->result = CA_CONTINUE;
 641         }
 642     }
 643     else
 644     {
 645         // if the received response message type is CON, send empty message.
 646         // and then, send next block request message with new messagId.
 647         if (msgType == CA_MSG_CONFIRM)
 648         {
 649             CASendDirectEmptyResponse(data->remoteEndpoint,
 650                                       data->requestInfo->info.messageId);
 651             sentMsgType = CA_MSG_CONFIRM;
 652         }
 653
 654         if (data->requestInfo)
 655         {
 656             OIC_LOG(DEBUG, TAG, "need new msgID");
 657             data->requestInfo->info.messageId = 0;
 658             data->requestInfo->info.type = sentMsgType;
 659         }
 660     }
 661
 662     // add data to send thread
 663     CAResult_t res = CAAddSendThreadQueue(data, blockID);
 664     if (CA_STATUS_OK != res)
 665     {
 666         OIC_LOG(ERROR, TAG, "add has failed");
 667     }
 668
 669     return res;
 670 }
 671
 672 CAResult_t CASendErrorMessage(const coap_pdu_t *pdu, uint8_t status,
 673                               CAResponseResult_t responseResult, const CABlockDataID_t *blockID)
 674 {
 675     VERIFY_NON_NULL(pdu, TAG, "pdu");
 676     VERIFY_NON_NULL(pdu->transport_hdr, TAG, "pdu->transport_hdr");
 677     VERIFY_NON_NULL(blockID, TAG, "blockID");
 678
 679     // create error responseInfo
 680     CABlockData_t *data = CAGetBlockDataFromBlockDataList(blockID);
 681     if (!data)
 682     {
 683         OIC_LOG(ERROR, TAG, "data is unavailable");
 684         return CA_STATUS_FAILED;
 685     }
 686
 687     CAMessageType_t sentMsgType = CA_MSG_NONCONFIRM;
 688     switch (pdu->transport_hdr->udp.type)
 689     {
 690         case CA_MSG_CONFIRM:
 691             sentMsgType = CA_MSG_ACKNOWLEDGE;
 692             break;
 693         case CA_MSG_ACKNOWLEDGE:
 694             sentMsgType = CA_MSG_CONFIRM;
 695             break;
 696         default:
 697             sentMsgType = CA_MSG_NONCONFIRM;
 698     }
 699
 700     CAData_t *cloneData = NULL;
 701     if (data->sentData)
 702     {
 703         cloneData = CACloneCAData(data->sentData);
 704         if (!cloneData)
 705         {
 706             OIC_LOG(ERROR, TAG, "clone has failed");
 707             return CA_MEMORY_ALLOC_FAILED;
 708         }
 709
 710         if (cloneData->responseInfo)
 711         {
 712             cloneData->responseInfo->info.messageId = pdu->transport_hdr->udp.id;
 713             cloneData->responseInfo->info.type = sentMsgType;
 714             cloneData->responseInfo->result = responseResult;
 715         }
 716         else
 717         {
 718             CAInfo_t responseData = { .tokenLength = pdu->transport_hdr->udp.token_length };
 719             responseData.token = (CAToken_t) OICMalloc(responseData.tokenLength);
 720             if (!responseData.token)
 721             {
 722                 OIC_LOG(ERROR, TAG, "out of memory");
 723                 return CA_MEMORY_ALLOC_FAILED;
 724             }
 725             memcpy(responseData.token, pdu->transport_hdr->udp.token, responseData.tokenLength);
 726
 727             cloneData->responseInfo = (CAResponseInfo_t*) OICCalloc(1, sizeof(CAResponseInfo_t));
 728             if (!cloneData->responseInfo)
 729             {
 730                 OIC_LOG(ERROR, TAG, "out of memory");
 731                 OICFree(responseData.token);
 732                 return CA_MEMORY_ALLOC_FAILED;
 733             }
 734
 735             cloneData->responseInfo->info = responseData;
 736             cloneData->responseInfo->info.type = sentMsgType;
 737             cloneData->responseInfo->result = responseResult;
 738         }
 739         OIC_LOG(DEBUG, TAG, "set response message to send error code");
 740     }
 741     else
 742     {
 743         OIC_LOG(ERROR, TAG, "data has no sent-data");
 744         return CA_MEMORY_ALLOC_FAILED;
 745     }
 746
 747     // if there is a requestInfo, remove it to send response message
 748     if (cloneData->requestInfo)
 749     {
 750         CADestroyRequestInfoInternal(cloneData->requestInfo);
 751         cloneData->requestInfo = NULL;
 752     }
 753
 754     // add data to send thread
 755     if (g_context.sendThreadFunc)
 756     {
 757         ca_mutex_lock(g_context.blockDataSenderMutex);
 758         g_context.sendThreadFunc(cloneData);
 759         ca_mutex_unlock(g_context.blockDataSenderMutex);
 760     }
 761     else
 762     {
 763         CADestroyDataSet(cloneData);
 764     }
 765
 766     // if error code is 4.08, remove the stored payload and initialize block number
 767     if (CA_BLOCK_INCOMPLETE == status)
 768     {
 769         OICFree(data->payload);
 770         data->payload = NULL;
 771         data->payloadLength = 0;
 772         data->receivedPayloadLen = 0;
 773         data->block1.num = 0;
 774         data->block2.num = 0;
 775     }
 776
 777     return CA_STATUS_OK;
 778 }
 779
 780 CAResult_t CAReceiveLastBlock(const CABlockDataID_t *blockID, const CAData_t *receivedData)
 781 {
 782     VERIFY_NON_NULL(blockID, TAG, "blockID");
 783     VERIFY_NON_NULL(receivedData, TAG, "receivedData");
 784
 785     // total block data have to notify to Application
 786     CAData_t *cloneData = CACloneCAData(receivedData);
 787     if (!cloneData)
 788     {
 789         OIC_LOG(ERROR, TAG, "clone has failed");
 790         return CA_MEMORY_ALLOC_FAILED;
 791     }
 792
 793     // update payload
 794     size_t fullPayloadLen = 0;
 795     CAPayload_t fullPayload = CAGetPayloadFromBlockDataList(blockID, &fullPayloadLen);
 796     if (fullPayload)
 797     {
 798         CAResult_t res = CAUpdatePayloadToCAData(cloneData, fullPayload, fullPayloadLen);
 799         if (CA_STATUS_OK != res)
 800         {
 801             OIC_LOG(ERROR, TAG, "update has failed");
 802             CADestroyDataSet(cloneData);
 803             return res;
 804         }
 805     }
 806
 807     if (g_context.receivedThreadFunc)
 808     {
 809         g_context.receivedThreadFunc(cloneData);
 810     }
 811     else
 812     {
 813         CADestroyDataSet(cloneData);
 814     }
 815
 816     return CA_STATUS_OK;
 817 }
 818
 819 static CABlockData_t* CACheckTheExistOfBlockData(const CABlockDataID_t* blockDataID,
 820                                                  coap_pdu_t *pdu, const CAEndpoint_t *endpoint,
 821                                                  uint8_t blockType)
 822 {
 823     // Get BlockData data. If does not exist, create a new data
 824     CABlockData_t *data = CAGetBlockDataFromBlockDataList(blockDataID);
 825     if (!data)
 826     {
 827         OIC_LOG(DEBUG, TAG, "block data doesn't exist in list. create new one");
 828
 829         CAData_t *cadata = CACreateNewDataSet(pdu, endpoint);
 830         if (!cadata)
 831         {
 832             OIC_LOG(ERROR, TAG, "data is null");
 833             return NULL;
 834         }
 835
 836         data = CACreateNewBlockData(cadata);
 837         if (!data)
 838         {
 839             OIC_LOG(ERROR, TAG, "failed to create a new block data");
 840             CADestroyDataSet(cadata);
 841             return NULL;
 842         }
 843         CADestroyDataSet(cadata);
 844     }
 845
 846     // update BLOCK OPTION type
 847     CAResult_t res = CAUpdateBlockOptionType(blockDataID, blockType);
 848     if (CA_STATUS_OK != res)
 849     {
 850         OIC_LOG(ERROR, TAG, "update has failed");
 851         return NULL;
 852     }
 853
 854     return data;
 855 }
 856
 857 // TODO make pdu const after libcoap is updated to support that.
 858 CAResult_t CASetNextBlockOption1(coap_pdu_t *pdu, const CAEndpoint_t *endpoint,
 859                                  const CAData_t *receivedData, coap_block_t block,
 860                                  size_t dataLen)
 861 {
 862     OIC_LOG(INFO, TAG, "CASetNextBlockOption1");
 863     VERIFY_NON_NULL(pdu, TAG, "pdu");
 864     VERIFY_NON_NULL(pdu->transport_hdr, TAG, "pdu->transport_hdr");
 865     VERIFY_NON_NULL(endpoint, TAG, "endpoint");
 866     VERIFY_NON_NULL(receivedData, TAG, "receivedData");
 867
 868     OIC_LOG_V(INFO, TAG, "num:%d, M:%d, sze:%d", block.num, block.m, block.szx);
 869
 870     CABlockDataID_t* blockDataID = CACreateBlockDatablockId(
 871             (CAToken_t)pdu->transport_hdr->udp.token,
 872             pdu->transport_hdr->udp.token_length,
 873             endpoint->port);
 874     if (NULL == blockDataID || blockDataID->idLength < 1)
 875     {
 876         OIC_LOG(ERROR, TAG, "blockId is null");
 877         CADestroyBlockID(blockDataID);
 878         return CA_STATUS_FAILED;
 879     }
 880
 881     CAResult_t res = CA_STATUS_OK;
 882     CABlockData_t *data = CACheckTheExistOfBlockData(blockDataID, pdu, endpoint,
 883                                                      COAP_OPTION_BLOCK1);
 884     if (!data)
 885     {
 886         OIC_LOG(ERROR, TAG, "Failed to create or get block data");
 887         res = CA_STATUS_FAILED;
 888         goto exit;
 889     }
 890
 891     uint8_t blockWiseStatus = CA_BLOCK_UNKNOWN;
 892     uint32_t code = pdu->transport_hdr->udp.code;
 893     if (CA_GET == code || CA_POST == code || CA_PUT == code || CA_DELETE == code)
 894     {
 895         // received message type is request
 896         OIC_LOG_V(INFO, TAG, "num:%d, M:%d", block.num, block.m);
 897
 898         // check the size option
 899         bool isSizeOption = CAIsPayloadLengthInPduWithBlockSizeOption(pdu, COAP_OPTION_SIZE1,
 900                                                                       &(data->payloadLength));
 901
 902         blockWiseStatus = CACheckBlockErrorType(data, &block, receivedData,
 903                                                 COAP_OPTION_BLOCK1, dataLen);
 904
 905         if (CA_BLOCK_RECEIVED_ALREADY != blockWiseStatus)
 906         {
 907             // store the received payload and merge
 908             res = CAUpdatePayloadData(data, receivedData, blockWiseStatus,
 909                                       isSizeOption, COAP_OPTION_BLOCK1);
 910             if (CA_STATUS_OK != res)
 911             {
 912                 OIC_LOG(ERROR, TAG, "update has failed");
 913                 goto exit;
 914             }
 915
 916             res = CAUpdateBlockOptionItems(data, pdu, &block, COAP_OPTION_BLOCK1,
 917                                            blockWiseStatus);
 918             if (CA_STATUS_OK != res)
 919             {
 920                 OIC_LOG(ERROR, TAG, "update has failed");
 921                 goto exit;
 922             }
 923
 924             // update block data
 925             res = CAUpdateBlockData(data, block, COAP_OPTION_BLOCK1);
 926             if (CA_STATUS_OK != res)
 927             {
 928                 OIC_LOG(ERROR, TAG, "update has failed");
 929                 goto exit;
 930             }
 931         }
 932
 933         // check the blcok-wise transfer status for next step
 934         if (CA_BLOCK_UNKNOWN == blockWiseStatus || CA_BLOCK_RECEIVED_ALREADY == blockWiseStatus)
 935         {
 936             OIC_LOG_V(DEBUG, TAG, "M bit is %d", block.m);
 937
 938             blockWiseStatus = (0 == block.m) ?
 939                     CA_OPTION1_REQUEST_LAST_BLOCK : CA_OPTION1_REQUEST_BLOCK;
 940         }
 941     }
 942     else
 943     {
 944         // received message type is response
 945         uint32_t code = CA_RESPONSE_CODE(pdu->transport_hdr->udp.code);
 946         if (0 == block.m && (CA_REQUEST_ENTITY_INCOMPLETE != code
 947                 && CA_REQUEST_ENTITY_TOO_LARGE != code))
 948         {
 949             int isBlock2 = coap_get_block(pdu, COAP_OPTION_BLOCK2, &block);
 950             if (isBlock2)
 951             {
 952                 OIC_LOG(INFO, TAG, "received data is combining block1 and block2");
 953                 // initialize block number for response message
 954                 data->block1.num = 0;
 955                 CADestroyBlockID(blockDataID);
 956                 return CA_STATUS_OK;
 957             }
 958             else
 959             {
 960                 OIC_LOG(INFO, TAG, "received data is not bulk data");
 961                 CAReceiveLastBlock(blockDataID, receivedData);
 962                 res = CA_STATUS_OK;
 963                 goto exit;
 964             }
 965         }
 966
 967         blockWiseStatus = CA_OPTION1_RESPONSE;
 968         res = CAUpdateBlockOptionItems(data, pdu, &block, COAP_OPTION_BLOCK1, blockWiseStatus);
 969         if (CA_STATUS_OK != res)
 970         {
 971             OIC_LOG(ERROR, TAG, "update has failed");
 972             CADestroyBlockID(blockDataID);
 973             return res;
 974         }
 975
 976         res = CAUpdateBlockData(data, block, COAP_OPTION_BLOCK1);
 977         if (CA_STATUS_OK != res)
 978         {
 979             OIC_LOG(ERROR, TAG, "update has failed");
 980             goto exit;
 981         }
 982     }
 983
 984     res = CAProcessNextStep(pdu, receivedData, blockWiseStatus, blockDataID);
 985     if (CA_STATUS_OK != res)
 986     {
 987         OIC_LOG(ERROR, TAG, "setting has failed");
 988         goto exit;
 989     }
 990
 991     CADestroyBlockID(blockDataID);
 992     return res;
 993
 994 exit:
 995     CARemoveBlockDataFromList(blockDataID);
 996     CADestroyBlockID(blockDataID);
 997     return res;
 998 }
 999
1000 // TODO make pdu const after libcoap is updated to support that.
1001 CAResult_t CASetNextBlockOption2(coap_pdu_t *pdu, const CAEndpoint_t *endpoint,
1002                                  const CAData_t *receivedData, coap_block_t block,
1003                                  size_t dataLen)
1004 {
1005     OIC_LOG(DEBUG, TAG, "CASetNextBlockOption2");
1006     OIC_LOG_V(INFO, TAG, "num:%d, M:%d, sze:%d", block.num, block.m, block.szx);
1007
1008     VERIFY_NON_NULL(pdu, TAG, "pdu");
1009     VERIFY_NON_NULL(pdu->transport_hdr, TAG, "pdu->transport_hdr");
1010     VERIFY_NON_NULL(endpoint, TAG, "endpoint");
1011     VERIFY_NON_NULL(receivedData, TAG, "receivedData");
1012
1013     CABlockDataID_t* blockDataID = CACreateBlockDatablockId(
1014             (CAToken_t)pdu->transport_hdr->udp.token,
1015             pdu->transport_hdr->udp.token_length,
1016             endpoint->port);
1017     if (NULL == blockDataID || blockDataID->idLength < 1)
1018     {
1019         OIC_LOG(ERROR, TAG, "blockId is null");
1020         CADestroyBlockID(blockDataID);
1021         return CA_STATUS_FAILED;
1022     }
1023
1024     CAResult_t res = CA_STATUS_OK;
1025     CABlockData_t *data = CACheckTheExistOfBlockData(blockDataID, pdu, endpoint,
1026                                                      COAP_OPTION_BLOCK2);
1027     if (!data)
1028     {
1029         OIC_LOG(ERROR, TAG, "Failed to create or get block data");
1030         res = CA_STATUS_FAILED;
1031         goto exit;
1032     }
1033
1034     uint8_t blockWiseStatus = CA_BLOCK_UNKNOWN;
1035     if (0 == block.num && CA_GET == pdu->transport_hdr->udp.code && 0 == block.m)
1036     {
1037         OIC_LOG(INFO, TAG, "first block number");
1038
1039         res = CAUpdateBlockOptionItems(data, pdu, &block, COAP_OPTION_BLOCK2, blockWiseStatus);
1040         if (CA_STATUS_OK != res)
1041         {
1042             OIC_LOG(ERROR, TAG, "update has failed");
1043             goto exit;
1044         }
1045
1046         // first block data have to notify to Application
1047         res = CAUpdateBlockData(data, block, COAP_OPTION_BLOCK2);
1048         if (CA_STATUS_OK != res)
1049         {
1050             OIC_LOG(ERROR, TAG, "update has failed");
1051             goto exit;
1052         }
1053         blockWiseStatus = CA_OPTION2_FIRST_BLOCK;
1054     }
1055     else
1056     {
1057         uint32_t code = pdu->transport_hdr->udp.code;
1058         if (CA_GET == code || CA_POST == code || CA_PUT == code || CA_DELETE == code)
1059         {
1060             // received message type is request
1061             OIC_LOG_V(INFO, TAG, "num:%d, M:%d", block.num, block.m);
1062
1063             blockWiseStatus = CA_OPTION2_REQUEST;
1064
1065             res = CAUpdateBlockOptionItems(data, pdu, &block, COAP_OPTION_BLOCK2, blockWiseStatus);
1066             if (CA_STATUS_OK != res)
1067             {
1068                 OIC_LOG(ERROR, TAG, "update has failed");
1069                 goto exit;
1070             }
1071
1072             res = CAUpdateBlockData(data, block, COAP_OPTION_BLOCK2);
1073             if (CA_STATUS_OK != res)
1074             {
1075                 OIC_LOG(ERROR, TAG, "update has failed");
1076                 goto exit;
1077             }
1078         }
1079         else
1080         {
1081             // received message type is response
1082             OIC_LOG(DEBUG, TAG, "received response message with block option2");
1083
1084             // check the size option
1085             bool isSizeOption = CAIsPayloadLengthInPduWithBlockSizeOption(pdu,
1086                                                                           COAP_OPTION_SIZE2,
1087                                                                           &(data->payloadLength));
1088
1089             uint32_t code = CA_RESPONSE_CODE(pdu->transport_hdr->udp.code);
1090             if (CA_REQUEST_ENTITY_INCOMPLETE != code && CA_REQUEST_ENTITY_TOO_LARGE != code)
1091             {
1092                 // check if received payload is exact
1093                 blockWiseStatus = CACheckBlockErrorType(data, &block, receivedData,
1094                                                         COAP_OPTION_BLOCK2, dataLen);
1095             }
1096
1097             if (CA_BLOCK_RECEIVED_ALREADY != blockWiseStatus)
1098             {
1099                 // store the received payload and merge
1100                 res = CAUpdatePayloadData(data, receivedData, blockWiseStatus,
1101                                           isSizeOption, COAP_OPTION_BLOCK2);
1102                 if (CA_STATUS_OK != res)
1103                 {
1104                     OIC_LOG(ERROR, TAG, "update has failed");
1105                     goto exit;
1106                 }
1107             }
1108
1109             if (0 == block.m && CA_BLOCK_UNKNOWN == blockWiseStatus) // Last block is received
1110             {
1111                 OIC_LOG(DEBUG, TAG, "M bit is 0");
1112                 blockWiseStatus = CA_OPTION2_LAST_BLOCK;
1113             }
1114             else
1115             {
1116                 if (CA_BLOCK_UNKNOWN == blockWiseStatus ||
1117                         CA_BLOCK_RECEIVED_ALREADY == blockWiseStatus)
1118                 {
1119                     OIC_LOG(DEBUG, TAG, "M bit is 1");
1120                     blockWiseStatus = CA_OPTION2_RESPONSE;
1121                 }
1122
1123                 res = CAUpdateBlockOptionItems(data, pdu, &block, COAP_OPTION_BLOCK2,
1124                                                blockWiseStatus);
1125                 if (CA_STATUS_OK != res)
1126                 {
1127                     OIC_LOG(ERROR, TAG, "update has failed");
1128                     goto exit;
1129                 }
1130
1131                 res = CAUpdateBlockData(data, block, COAP_OPTION_BLOCK2);
1132                 if (CA_STATUS_OK != res)
1133                 {
1134                     OIC_LOG(ERROR, TAG, "update has failed");
1135                     goto exit;
1136                 }
1137             }
1138         }
1139     }
1140
1141     res = CAProcessNextStep(pdu, receivedData, blockWiseStatus, blockDataID);
1142     if (CA_STATUS_OK != res)
1143     {
1144         OIC_LOG(ERROR, TAG, "setting has failed");
1145         goto exit;
1146     }
1147
1148     CADestroyBlockID(blockDataID);
1149     return CA_STATUS_OK;
1150
1151 exit:
1152     CARemoveBlockDataFromList(blockDataID);
1153     CADestroyBlockID(blockDataID);
1154     return res;
1155 }
1156
1157 CAResult_t CAUpdateBlockOptionItems(CABlockData_t *currData, const coap_pdu_t *pdu,
1158                                     coap_block_t *block, uint16_t blockType,
1159                                     uint32_t status)
1160 {
1161     VERIFY_NON_NULL(currData, TAG, "currData");
1162     VERIFY_NON_NULL(pdu, TAG, "pdu");
1163     VERIFY_NON_NULL(block, TAG, "block");
1164
1165     // update block data
1166     CAResult_t res = CA_STATUS_OK;
1167     uint32_t code = CA_RESPONSE_CODE(pdu->transport_hdr->udp.code);
1168
1169     if (CA_REQUEST_ENTITY_INCOMPLETE == code || CA_REQUEST_ENTITY_TOO_LARGE == code)
1170     {
1171         // response error code of the received block message
1172         res = CAHandleBlockErrorResponse(block, blockType, code);
1173         if (CA_STATUS_OK != res)
1174         {
1175             OIC_LOG(ERROR, TAG, "error handle has failed");
1176             return res;
1177         }
1178     }
1179     else
1180     {
1181         // update block option items
1182         switch (status)
1183         {
1184             case CA_OPTION1_RESPONSE:
1185                 if (currData->block1.num > block->num)
1186                 {
1187                     OIC_LOG(ERROR, TAG, "received incorrect block num");
1188                     return CA_STATUS_FAILED;
1189                 }
1190                 block->num++;
1191                 break;
1192             case CA_OPTION2_REQUEST:
1193                 block->m = 0;
1194                 break;
1195             case CA_OPTION2_RESPONSE:
1196                 if (currData->block2.num > block->num)
1197                 {
1198                     OIC_LOG(ERROR, TAG, "received incorrect block num");
1199                     return CA_STATUS_FAILED;
1200                 }
1201                 block->num++;
1202                 block->m = 0;
1203                 break;
1204             case CA_BLOCK_TOO_LARGE:
1205                 // if state of received block message is CA_BLOCK_TOO_LARGE or CA_BLOCK_INCOMPLETE
1206                 // we set the response error code appropriately and send
1207                 if (COAP_OPTION_BLOCK2 == blockType)
1208                 {
1209                     block->num++;
1210                     block->m = 0;
1211                     block->szx = currData->block2.szx;
1212                 }
1213                 else
1214                 {
1215                     block->szx = currData->block1.szx;
1216                 }
1217                 break;
1218             default:
1219                 OIC_LOG_V(ERROR, TAG, "no logic [%d]", status);
1220         }
1221
1222         if (CA_BLOCK_INCOMPLETE != status && CA_BLOCK_TOO_LARGE != status)
1223         {
1224             // negotiate block size
1225             res = CANegotiateBlockSize(currData, block, pdu, blockType);
1226             if (CA_STATUS_OK != res)
1227             {
1228                 OIC_LOG(ERROR, TAG, "negotiation has failed");
1229                 return res;
1230             }
1231         }
1232     }
1233     return res;
1234 }
1235
1236 CAResult_t CASetMoreBitFromBlock(size_t payloadLen, coap_block_t *block)
1237 {
1238     VERIFY_NON_NULL(block, TAG, "block");
1239
1240     if ((size_t) ((block->num + 1) << (block->szx + BLOCK_NUMBER_IDX)) < payloadLen)
1241     {
1242         OIC_LOG(DEBUG, TAG, "Set the M-bit(1)");
1243         block->m = 1;
1244     }
1245     else
1246     {
1247         OIC_LOG(DEBUG, TAG, "Set the M-bit(0)");
1248         block->m = 0;
1249     }
1250
1251     return CA_STATUS_OK;
1252 }
1253
1254 CAResult_t CANegotiateBlockSize(CABlockData_t *currData, coap_block_t *block,
1255                                 const coap_pdu_t *pdu, uint16_t blockType)
1256 {
1257     OIC_LOG(DEBUG, TAG, "IN-NegotiateBlockSize");
1258
1259     VERIFY_NON_NULL(currData, TAG, "currData");
1260     VERIFY_NON_NULL(block, TAG, "block");
1261     VERIFY_NON_NULL(pdu, TAG, "pdu");
1262     VERIFY_NON_NULL(pdu->transport_hdr, TAG, "pdu->transport_hdr");
1263
1264     bool isReqMsg = false;
1265     uint32_t code = pdu->transport_hdr->udp.code;
1266     if (CA_GET == code || CA_POST == code || CA_PUT == code || CA_DELETE == code)
1267     {
1268         isReqMsg = true;
1269     }
1270
1271     // #1. check the block option type
1272     if (COAP_OPTION_BLOCK2 == blockType)
1273     {
1274         // #2. check the message type
1275         if (!isReqMsg)
1276         {
1277             if (block->szx > currData->block2.szx)
1278             {
1279                 OIC_LOG(DEBUG, TAG, "sze is big");
1280
1281                 // #3. calculate new block number from block size
1282                 unsigned int blockNum = BLOCK_SIZE(block->szx) /
1283                                         BLOCK_SIZE(currData->block2.szx) - 1;
1284                 OIC_LOG(DEBUG, TAG, "num is set as Negotiation");
1285                 block->num += blockNum;
1286                 block->szx = currData->block2.szx;
1287                 OIC_LOG_V(DEBUG, TAG, "updated block num: %d", block->num);
1288             }
1289         }
1290         else
1291         {
1292             if (block->szx > currData->block2.szx)
1293             {
1294                 OIC_LOG(DEBUG, TAG, "sze is big");
1295                 block->szx = currData->block2.szx;
1296             }
1297         }
1298     }
1299     else if (COAP_OPTION_BLOCK1 == blockType)
1300     {
1301         if (!isReqMsg)
1302         {
1303             if (block->szx < currData->block1.szx)
1304             {
1305                 OIC_LOG(DEBUG, TAG, "sze is small");
1306
1307                 unsigned int blockNum = BLOCK_SIZE(currData->block1.szx) /
1308                                         BLOCK_SIZE(block->szx) - 1;
1309                 block->num += blockNum;
1310                 OIC_LOG_V(DEBUG, TAG, "updated block num: %d", block->num);
1311             }
1312         }
1313         else
1314         {
1315             if (block->szx > currData->block1.szx)
1316             {
1317                 OIC_LOG(DEBUG, TAG, "sze is big");
1318                 block->szx = currData->block1.szx;
1319             }
1320         }
1321     }
1322     else
1323     {
1324         OIC_LOG(DEBUG, TAG, "Invalid block option");
1325         return CA_STATUS_FAILED;
1326     }
1327
1328     OIC_LOG(DEBUG, TAG, "OUT-NegotiateBlockSize");
1329
1330     return CA_STATUS_OK;
1331 }
1332
1333 CAResult_t CAUpdateBlockData(CABlockData_t *currData, coap_block_t block,
1334                              uint16_t blockType)
1335 {
1336     VERIFY_NON_NULL(currData, TAG, "currData");
1337
1338     // check if block size is bigger than CABlockSize_t
1339     if (block.szx > CA_BLOCK_SIZE_1024_BYTE)
1340     {
1341         OIC_LOG(DEBUG, TAG, "invalid block szx");
1342         return CA_STATUS_FAILED;
1343     }
1344
1345     // update block option
1346     if (COAP_OPTION_BLOCK2 == blockType)
1347     {
1348         currData->block2 = block;
1349     }
1350     else
1351     {
1352         currData->block1 = block;
1353     }
1354
1355     OIC_LOG(DEBUG, TAG, "data has updated");
1356     return CA_STATUS_OK;
1357 }
1358
1359 CAResult_t CAUpdateMessageId(coap_pdu_t *pdu, const CABlockDataID_t *blockID)
1360 {
1361     VERIFY_NON_NULL(pdu, TAG, "pdu");
1362     VERIFY_NON_NULL(pdu->transport_hdr, TAG, "pdu->transport_hdr");
1363     VERIFY_NON_NULL(blockID, TAG, "blockID");
1364
1365     // if message is sent, update messageId in block-wise transfer list
1366     CAData_t * cadata = CAGetDataSetFromBlockDataList(blockID);
1367     if (!cadata)
1368     {
1369         OIC_LOG(ERROR, TAG, "CAData is unavailable");
1370         return CA_STATUS_FAILED;
1371     }
1372
1373     if (cadata->requestInfo)
1374     {
1375         cadata->requestInfo->info.messageId = pdu->transport_hdr->udp.id;
1376     }
1377
1378     return CA_STATUS_OK;
1379 }
1380
1381 CAResult_t CAAddBlockOption(coap_pdu_t **pdu, const CAInfo_t *info,
1382                             const CAEndpoint_t *endpoint, coap_list_t **options)
1383 {
1384     OIC_LOG(DEBUG, TAG, "IN-AddBlockOption");
1385     VERIFY_NON_NULL(pdu, TAG, "pdu");
1386     VERIFY_NON_NULL((*pdu), TAG, "(*pdu)");
1387     VERIFY_NON_NULL((*pdu)->transport_hdr, TAG, "(*pdu)->transport_hdr");
1388     VERIFY_NON_NULL(info, TAG, "info");
1389     VERIFY_NON_NULL(endpoint, TAG, "endpoint");
1390     VERIFY_NON_NULL(options, TAG, "options");
1391
1392     CAResult_t res = CA_STATUS_OK;
1393     size_t dataLength = 0;
1394     if (info->payload)
1395     {
1396         dataLength = info->payloadSize;
1397         OIC_LOG_V(DEBUG, TAG, "dataLength - %zu", dataLength);
1398     }
1399
1400     CABlockDataID_t* blockDataID = CACreateBlockDatablockId(
1401             (CAToken_t)(*pdu)->transport_hdr->udp.token,
1402             (*pdu)->transport_hdr->udp.token_length,
1403             endpoint->port);
1404     if (NULL == blockDataID || blockDataID->idLength < 1)
1405     {
1406         OIC_LOG(ERROR, TAG, "blockId is null");
1407         res = CA_STATUS_FAILED;
1408         goto exit;
1409     }
1410
1411     uint32_t repCode = CA_RESPONSE_CODE((*pdu)->transport_hdr->udp.code);
1412     if (CA_REQUEST_ENTITY_INCOMPLETE == repCode)
1413     {
1414         OIC_LOG(INFO, TAG, "don't use option");
1415         res = CA_STATUS_OK;
1416         goto exit;
1417     }
1418
1419     uint8_t blockType = CAGetBlockOptionType(blockDataID);
1420     if (COAP_OPTION_BLOCK2 == blockType)
1421     {
1422         res = CAAddBlockOption2(pdu, info, dataLength, blockDataID, options);
1423         if (CA_STATUS_OK != res)
1424         {
1425             OIC_LOG(ERROR, TAG, "add has failed");
1426             goto exit;
1427         }
1428     }
1429     else if (COAP_OPTION_BLOCK1 == blockType)
1430     {
1431         res = CAAddBlockOption1(pdu, info, dataLength, blockDataID, options);
1432         if (CA_STATUS_OK != res)
1433         {
1434             OIC_LOG(ERROR, TAG, "add has failed");
1435             goto exit;
1436         }
1437     }
1438     else
1439     {
1440         OIC_LOG(DEBUG, TAG, "no BLOCK option");
1441
1442         // in case it is not large data, add option list to pdu.
1443         if (*options)
1444         {
1445             for (coap_list_t *opt = *options; opt; opt = opt->next)
1446             {
1447                 OIC_LOG_V(DEBUG, TAG, "[%s] opt will be added.",
1448                           COAP_OPTION_DATA(*(coap_option *) opt->data));
1449
1450                 OIC_LOG_V(DEBUG, TAG, "[%d] pdu length", (*pdu)->length);
1451                 coap_add_option(*pdu, COAP_OPTION_KEY(*(coap_option *) opt->data),
1452                                 COAP_OPTION_LENGTH(*(coap_option *) opt->data),
1453                                 COAP_OPTION_DATA(*(coap_option *) opt->data));
1454             }
1455         }
1456
1457         OIC_LOG_V(DEBUG, TAG, "[%d] pdu length after option", (*pdu)->length);
1458
1459         // if response data is so large. it have to send as block transfer
1460         if (!coap_add_data(*pdu, dataLength, (const unsigned char *) info->payload))
1461         {
1462             OIC_LOG(INFO, TAG, "it have to use block");
1463             res = CA_STATUS_FAILED;
1464             goto exit;
1465         }
1466         else
1467         {
1468             OIC_LOG(INFO, TAG, "not Blockwise Transfer");
1469         }
1470     }
1471
1472     uint32_t code = (*pdu)->transport_hdr->udp.code;
1473     if (CA_GET == code || CA_POST == code || CA_PUT == code || CA_DELETE == code)
1474     {
1475         // if received message type is RESET from remote device,
1476         // we have to use the updated message id of request message to find token.
1477         CABlockData_t *blockData = CAGetBlockDataFromBlockDataList(blockDataID);
1478         if (blockData)
1479         {
1480             res = CAUpdateMessageId(*pdu, blockDataID);
1481             if (CA_STATUS_OK != res)
1482             {
1483                 OIC_LOG(ERROR, TAG, "fail to update message id");
1484                 goto exit;
1485             }
1486         }
1487     }
1488
1489 exit:
1490     CADestroyBlockID(blockDataID);
1491     OIC_LOG(DEBUG, TAG, "OUT-AddBlockOption");
1492     return res;
1493 }
1494
1495 CAResult_t CAAddBlockOption2(coap_pdu_t **pdu, const CAInfo_t *info, size_t dataLength,
1496                              const CABlockDataID_t *blockID, coap_list_t **options)
1497 {
1498     OIC_LOG(DEBUG, TAG, "IN-AddBlockOption2");
1499     VERIFY_NON_NULL(pdu, TAG, "pdu");
1500     VERIFY_NON_NULL((*pdu), TAG, "(*pdu)");
1501     VERIFY_NON_NULL((*pdu)->transport_hdr, TAG, "(*pdu)->transport_hdr");
1502     VERIFY_NON_NULL(info, TAG, "info");
1503     VERIFY_NON_NULL(blockID, TAG, "blockID");
1504     VERIFY_NON_NULL(options, TAG, "options");
1505
1506     // get set block data from CABlock list-set.
1507     coap_block_t *block1 = CAGetBlockOption(blockID, COAP_OPTION_BLOCK1);
1508     coap_block_t *block2 = CAGetBlockOption(blockID, COAP_OPTION_BLOCK2);
1509     if (!block1 || !block2)
1510     {
1511         OIC_LOG(ERROR, TAG, "getting has failed");
1512         return CA_STATUS_FAILED;
1513     }
1514
1515     CAResult_t res = CA_STATUS_OK;
1516     uint32_t code = (*pdu)->transport_hdr->udp.code;
1517     if (CA_GET != code && CA_POST != code && CA_PUT != code && CA_DELETE != code)
1518     {
1519         CASetMoreBitFromBlock(dataLength, block2);
1520
1521         // if block number is 0, add size2 option
1522         if (0 == block2->num)
1523         {
1524             res = CAAddBlockSizeOption(*pdu, COAP_OPTION_SIZE2, dataLength, options);
1525             if (CA_STATUS_OK != res)
1526             {
1527                 OIC_LOG(ERROR, TAG, "add has failed");
1528                 goto exit;
1529             }
1530         }
1531
1532         res = CAAddBlockOptionImpl(block2, COAP_OPTION_BLOCK2, options);
1533         if (CA_STATUS_OK != res)
1534         {
1535             OIC_LOG(ERROR, TAG, "add has failed");
1536             goto exit;
1537         }
1538
1539         if (block1->num)
1540         {
1541             OIC_LOG(DEBUG, TAG, "combining block1 and block2");
1542             res = CAAddBlockOptionImpl(block1, COAP_OPTION_BLOCK1, options);
1543             if (CA_STATUS_OK != res)
1544             {
1545                 OIC_LOG(ERROR, TAG, "add has failed");
1546                 goto exit;
1547             }
1548             // initialize block number
1549             block1->num = 0;
1550         }
1551
1552         res = CAAddOptionToPDU(*pdu, options);
1553         if (CA_STATUS_OK != res)
1554         {
1555             OIC_LOG(ERROR, TAG, "add has failed");
1556             goto exit;
1557         }
1558
1559         if (!coap_add_block(*pdu, dataLength, (const unsigned char *) info->payload,
1560                             block2->num, block2->szx))
1561         {
1562             OIC_LOG(ERROR, TAG, "Data length is smaller than the start index");
1563             return CA_STATUS_FAILED;
1564         }
1565
1566         CALogBlockInfo(block2);
1567
1568         if (!block2->m)
1569         {
1570             // if sent message is last response block message, remove data
1571             CARemoveBlockDataFromList(blockID);
1572         }
1573     }
1574     else
1575     {
1576         OIC_LOG(DEBUG, TAG, "option2, not response msg");
1577         res = CAAddBlockOptionImpl(block2, COAP_OPTION_BLOCK2, options);
1578         if (CA_STATUS_OK != res)
1579         {
1580             OIC_LOG(ERROR, TAG, "add has failed");
1581             goto exit;
1582         }
1583
1584         res = CAAddOptionToPDU(*pdu, options);
1585         if (CA_STATUS_OK != res)
1586         {
1587             OIC_LOG(ERROR, TAG, "add has failed");
1588             goto exit;
1589         }
1590         CALogBlockInfo(block2);
1591     }
1592
1593     return CA_STATUS_OK;
1594
1595 exit:
1596     CARemoveBlockDataFromList(blockID);
1597     return res;
1598 }
1599
1600 CAResult_t CAAddBlockOption1(coap_pdu_t **pdu, const CAInfo_t *info, size_t dataLength,
1601                              const CABlockDataID_t *blockID, coap_list_t **options)
1602 {
1603     OIC_LOG(DEBUG, TAG, "IN-AddBlockOption1");
1604     VERIFY_NON_NULL(pdu, TAG, "pdu");
1605     VERIFY_NON_NULL((*pdu), TAG, "(*pdu)");
1606     VERIFY_NON_NULL((*pdu)->transport_hdr, TAG, "(*pdu)->transport_hdr");
1607     VERIFY_NON_NULL(info, TAG, "info");
1608     VERIFY_NON_NULL(blockID, TAG, "blockID");
1609     VERIFY_NON_NULL(options, TAG, "options");
1610
1611     // get set block data from CABlock list-set.
1612     coap_block_t *block1 = CAGetBlockOption(blockID, COAP_OPTION_BLOCK1);
1613     if (!block1)
1614     {
1615         OIC_LOG(ERROR, TAG, "getting has failed");
1616         return CA_STATUS_FAILED;
1617     }
1618
1619     CAResult_t res = CA_STATUS_OK;
1620     uint32_t code = (*pdu)->transport_hdr->udp.code;
1621     if (CA_GET == code || CA_POST == code || CA_PUT == code || CA_DELETE == code)
1622     {
1623         CASetMoreBitFromBlock(dataLength, block1);
1624
1625         // if block number is 0, add size1 option
1626         if (0 == block1->num)
1627         {
1628             res = CAAddBlockSizeOption(*pdu, COAP_OPTION_SIZE1, dataLength, options);
1629             if (CA_STATUS_OK != res)
1630             {
1631                 OIC_LOG(ERROR, TAG, "add has failed");
1632                 goto exit;
1633             }
1634         }
1635
1636         // add block option to option list.
1637         res = CAAddBlockOptionImpl(block1, COAP_OPTION_BLOCK1, options);
1638         if (CA_STATUS_OK != res)
1639         {
1640             OIC_LOG(ERROR, TAG, "add has failed");
1641             goto exit;
1642         }
1643
1644         // add option list to pdu.
1645         res = CAAddOptionToPDU(*pdu, options);
1646         if (CA_STATUS_OK != res)
1647         {
1648             OIC_LOG(ERROR, TAG, "add has failed");
1649             goto exit;
1650         }
1651
1652         // add the payload data as the block size.
1653         if (!coap_add_block(*pdu, dataLength, (const unsigned char *) info->payload, block1->num,
1654                             block1->szx))
1655         {
1656             OIC_LOG(ERROR, TAG, "Data length is smaller than the start index");
1657             return CA_STATUS_FAILED;
1658         }
1659     }
1660     else
1661     {
1662         OIC_LOG(DEBUG, TAG, "received response message with block option1");
1663
1664         // add block option to option list.
1665         res = CAAddBlockOptionImpl(block1, COAP_OPTION_BLOCK1, options);
1666         if (CA_STATUS_OK != res)
1667         {
1668             OIC_LOG(ERROR, TAG, "add has failed");
1669             goto exit;
1670         }
1671
1672         // add option list to pdu.
1673         res = CAAddOptionToPDU(*pdu, options);
1674         if (CA_STATUS_OK != res)
1675         {
1676             OIC_LOG(ERROR, TAG, "add has failed");
1677             goto exit;
1678         }
1679
1680         // add the payload data as the block size.
1681         if (!coap_add_data(*pdu, dataLength, (const unsigned char *) info->payload))
1682         {
1683             OIC_LOG(ERROR, TAG, "failed to add payload");
1684             return CA_STATUS_FAILED;
1685         }
1686
1687         // if it is last block message, remove block data from list.
1688         if (0 == block1->m)
1689         {
1690             // remove data from list
1691             res = CARemoveBlockDataFromList(blockID);
1692             if (CA_STATUS_OK != res)
1693             {
1694                 OIC_LOG(ERROR, TAG, "remove has failed");
1695                 return res;
1696             }
1697         }
1698     }
1699
1700     CALogBlockInfo(block1);
1701
1702     OIC_LOG(DEBUG, TAG, "OUT-AddBlockOption1");
1703
1704     return CA_STATUS_OK;
1705
1706 exit:
1707     CARemoveBlockDataFromList(blockID);
1708     return res;
1709 }
1710
1711 CAResult_t CAAddBlockOptionImpl(coap_block_t *block, uint8_t blockType,
1712                                 coap_list_t **options)
1713 {
1714     OIC_LOG(DEBUG, TAG, "IN-AddBlockOptionImpl");
1715     VERIFY_NON_NULL(block, TAG, "block");
1716     VERIFY_NON_NULL(options, TAG, "options");
1717
1718     unsigned char buf[BLOCKWISE_OPTION_BUFFER] = { 0 };
1719     unsigned int optionLength = coap_encode_var_bytes(buf,
1720                                                       ((block->num << BLOCK_NUMBER_IDX)
1721                                                        | (block->m << BLOCK_M_BIT_IDX)
1722                                                        | block->szx));
1723
1724     int ret = coap_insert(options,
1725                           CACreateNewOptionNode(blockType, optionLength, (char *) buf),
1726                           CAOrderOpts);
1727     if (ret <= 0)
1728     {
1729         return CA_STATUS_INVALID_PARAM;
1730     }
1731
1732     OIC_LOG(DEBUG, TAG, "OUT-AddBlockOptionImpl");
1733     return CA_STATUS_OK;
1734 }
1735
1736 CAResult_t CAAddOptionToPDU(coap_pdu_t *pdu, coap_list_t **options)
1737 {
1738     // after adding the block option to option list, add option list to pdu.
1739     if (*options)
1740     {
1741         for (coap_list_t *opt = *options; opt; opt = opt->next)
1742         {
1743             OIC_LOG_V(DEBUG, TAG, "[%s] opt will be added.",
1744                       COAP_OPTION_DATA(*(coap_option *) opt->data));
1745
1746             OIC_LOG_V(DEBUG, TAG, "[%d] pdu length", pdu->length);
1747             int ret = coap_add_option(pdu, COAP_OPTION_KEY(*(coap_option *) opt->data),
1748                                       COAP_OPTION_LENGTH(*(coap_option *) opt->data),
1749                                       COAP_OPTION_DATA(*(coap_option *) opt->data));
1750             if (!ret)
1751             {
1752                 return CA_STATUS_FAILED;
1753             }
1754         }
1755     }
1756
1757     OIC_LOG_V(DEBUG, TAG, "[%d] pdu length after option", pdu->length);
1758
1759     return CA_STATUS_OK;
1760 }
1761
1762 CAResult_t CAAddBlockSizeOption(coap_pdu_t *pdu, uint16_t sizeType, size_t dataLength,
1763                                 coap_list_t **options)
1764 {
1765     OIC_LOG(DEBUG, TAG, "IN-CAAddBlockSizeOption");
1766     VERIFY_NON_NULL(pdu, TAG, "pdu");
1767     VERIFY_NON_NULL(options, TAG, "options");
1768
1769     if (sizeType != COAP_OPTION_SIZE1 && sizeType != COAP_OPTION_SIZE2)
1770     {
1771         OIC_LOG(ERROR, TAG, "unknown option type");
1772         return CA_STATUS_FAILED;
1773     }
1774
1775     unsigned char value[BLOCKWISE_OPTION_BUFFER] = { 0 };
1776     unsigned int optionLength = coap_encode_var_bytes(value, dataLength);
1777
1778     int ret = coap_insert(options,
1779                           CACreateNewOptionNode(sizeType, optionLength, (char *) value),
1780                           CAOrderOpts);
1781     if (ret <= 0)
1782     {
1783         return CA_STATUS_INVALID_PARAM;
1784     }
1785
1786     OIC_LOG(DEBUG, TAG, "OUT-CAAddBlockSizeOption");
1787
1788     return CA_STATUS_OK;
1789 }
1790
1791 // TODO make pdu const after libcoap is updated to support that.
1792 bool CAIsPayloadLengthInPduWithBlockSizeOption(coap_pdu_t *pdu,
1793                                                uint16_t sizeType,
1794                                                size_t *totalPayloadLen)
1795 {
1796     OIC_LOG(DEBUG, TAG, "IN-CAIsPayloadLengthInPduWithBlockSizeOption");
1797     VERIFY_NON_NULL(pdu, TAG, "pdu");
1798     VERIFY_NON_NULL(totalPayloadLen, TAG, "totalPayloadLen");
1799
1800     if (sizeType != COAP_OPTION_SIZE1 && sizeType != COAP_OPTION_SIZE2)
1801     {
1802         OIC_LOG(ERROR, TAG, "unknown option type");
1803         return CA_STATUS_FAILED;
1804     }
1805
1806     coap_opt_iterator_t opt_iter;
1807     coap_opt_t *option = coap_check_option(pdu, sizeType, &opt_iter);
1808     if (option)
1809     {
1810         OIC_LOG(DEBUG, TAG, "get size option from pdu");
1811         *totalPayloadLen = coap_decode_var_bytes(COAP_OPT_VALUE(option),
1812                                                  COAP_OPT_LENGTH(option));
1813
1814         OIC_LOG_V(DEBUG, TAG, "the total payload length to be received is [%zu]bytes",
1815                   *totalPayloadLen);
1816
1817         return true;
1818     }
1819
1820     OIC_LOG(DEBUG, TAG, "OUT-CAIsPayloadLengthInPduWithBlockSizeOption");
1821
1822     return false;
1823 }
1824
1825 uint8_t CACheckBlockErrorType(CABlockData_t *currData, coap_block_t *receivedBlock,
1826                               const CAData_t *receivedData, uint16_t blockType,
1827                               size_t dataLen)
1828 {
1829     OIC_LOG(DEBUG, TAG, "IN-CheckBlockError");
1830
1831     VERIFY_NON_NULL(currData, TAG, "currData is NULL");
1832     VERIFY_NON_NULL(receivedBlock, TAG, "receivedBlock is NULL");
1833     VERIFY_NON_NULL(receivedData, TAG, "receivedData is NULL");
1834
1835     // #1. check the received payload length
1836     size_t blockPayloadLen = 0;
1837     CAGetPayloadInfo(receivedData, &blockPayloadLen);
1838
1839     // #2. check if the block sequence is right
1840     if (COAP_OPTION_BLOCK1 == blockType)
1841     {
1842         size_t prePayloadLen = currData->receivedPayloadLen;
1843         if (prePayloadLen != (size_t) BLOCK_SIZE(receivedBlock->szx) * receivedBlock->num)
1844         {
1845             if (receivedBlock->num > currData->block1.num + 1)
1846             {
1847                 // 408 Error handling of block loss
1848                 OIC_LOG(ERROR, TAG, "option1: error 4.08");
1849                 OIC_LOG(ERROR, TAG, "it didn't order");
1850                 return CA_BLOCK_INCOMPLETE;
1851             }
1852             return CA_BLOCK_RECEIVED_ALREADY;
1853         }
1854     }
1855     else if (COAP_OPTION_BLOCK2 == blockType)
1856     {
1857         if (receivedBlock->num != currData->block2.num)
1858         {
1859             if (receivedBlock->num > currData->block2.num)
1860             {
1861                 // 408 Error handling of block loss
1862                 OIC_LOG(ERROR, TAG, "option2: error 4.08");
1863                 OIC_LOG(ERROR, TAG, "it didn't order");
1864                 return CA_BLOCK_INCOMPLETE;
1865             }
1866             return CA_BLOCK_RECEIVED_ALREADY;
1867         }
1868     }
1869
1870     // #3. check if error check logic is required
1871     size_t optionLen = dataLen - blockPayloadLen;
1872     if (receivedBlock->m && blockPayloadLen != (size_t) BLOCK_SIZE(receivedBlock->szx))
1873     {
1874         // 413 Error handling of too large entity
1875         if (COAP_MAX_PDU_SIZE < BLOCK_SIZE(receivedBlock->szx) + optionLen)
1876         {
1877             // buffer size is smaller than received block size
1878             OIC_LOG(ERROR, TAG, "error type 4.13");
1879             OIC_LOG(ERROR, TAG, "too large size");
1880
1881             // set the block size to be smaller than COAP_MAX_PDU_SIZE
1882             for (int32_t size = CA_DEFAULT_BLOCK_SIZE; size >= 0; size--)
1883             {
1884                 if (COAP_MAX_PDU_SIZE >= BLOCK_SIZE(size) + optionLen)
1885                 {
1886                     OIC_LOG_V(ERROR, TAG, "replace sze with %d", size);
1887                     currData->block2.szx = size;
1888                     currData->block1.szx = size;
1889                     break;
1890                 }
1891             }
1892             return CA_BLOCK_TOO_LARGE;
1893         }
1894         else
1895         {
1896             // 408 Error handling of payload loss
1897             OIC_LOG(ERROR, TAG, "error type 4.08");
1898             OIC_LOG(ERROR, TAG, "payload len != block sze");
1899             return CA_BLOCK_INCOMPLETE;
1900         }
1901     }
1902     else if (0 == receivedBlock->m && 0 != currData->payloadLength)
1903     {
1904         // if the received block is last block, check the total payload length
1905         size_t receivedPayloadLen = currData->receivedPayloadLen;
1906         receivedPayloadLen += blockPayloadLen;
1907
1908         if (receivedPayloadLen != currData->payloadLength)
1909         {
1910             OIC_LOG(ERROR, TAG, "error type 4.08");
1911             OIC_LOG(ERROR, TAG, "total payload length is wrong");
1912             return CA_BLOCK_INCOMPLETE;
1913         }
1914     }
1915
1916     OIC_LOG(DEBUG, TAG, "received all data normally");
1917
1918     OIC_LOG(DEBUG, TAG, "OUT-CheckBlockError");
1919
1920     return CA_BLOCK_UNKNOWN;
1921 }
1922
1923 CAResult_t CAUpdatePayloadData(CABlockData_t *currData, const CAData_t *receivedData,
1924                                uint8_t status, bool isSizeOption, uint16_t blockType)
1925 {
1926     OIC_LOG(DEBUG, TAG, "IN-UpdatePayloadData");
1927
1928     VERIFY_NON_NULL(currData, TAG, "currData");
1929     VERIFY_NON_NULL(receivedData, TAG, "receivedData");
1930
1931     // if error code is 4.08, do not update payload
1932     if (CA_BLOCK_INCOMPLETE == status)
1933     {
1934         OIC_LOG(ERROR, TAG, "no require to update");
1935         return CA_STATUS_OK;
1936     }
1937
1938     size_t blockPayloadLen = 0;
1939     CAPayload_t blockPayload = CAGetPayloadInfo(receivedData, &blockPayloadLen);
1940
1941     if (CA_BLOCK_TOO_LARGE == status)
1942     {
1943         blockPayloadLen = (COAP_OPTION_BLOCK2 == blockType) ?
1944                 BLOCK_SIZE(currData->block2.szx) : BLOCK_SIZE(currData->block1.szx);
1945     }
1946
1947     // memory allocation for the received block payload
1948     size_t prePayloadLen = currData->receivedPayloadLen;
1949     if (blockPayload)
1950     {
1951         if (currData->payloadLength)
1952         {
1953             // in case the block message has the size option
1954             // allocate the memory for the total payload
1955             if (isSizeOption)
1956             {
1957                 CAPayload_t prePayload = currData->payload;
1958
1959                 OIC_LOG(DEBUG, TAG, "allocate memory for the total payload");
1960                 currData->payload = (CAPayload_t) OICCalloc(1, currData->payloadLength);
1961                 if (NULL == currData->payload)
1962                 {
1963                     OIC_LOG(ERROR, TAG, "out of memory");
1964                     return CA_MEMORY_ALLOC_FAILED;
1965                 }
1966                 memcpy(currData->payload, prePayload, prePayloadLen);
1967                 OICFree(prePayload);
1968             }
1969
1970             // update the total payload
1971             memcpy(currData->payload + prePayloadLen, blockPayload, blockPayloadLen);
1972         }
1973         else
1974         {
1975             OIC_LOG(DEBUG, TAG, "allocate memory for the received block payload");
1976
1977             size_t totalPayloadLen = prePayloadLen + blockPayloadLen;
1978             CAPayload_t newPayload = OICRealloc(currData->payload, totalPayloadLen);
1979             if (NULL == newPayload)
1980             {
1981                 OIC_LOG(ERROR, TAG, "out of memory");
1982                 return CA_MEMORY_ALLOC_FAILED;
1983             }
1984
1985             // update the total payload
1986             memset(newPayload + prePayloadLen, 0, blockPayloadLen);
1987             currData->payload = newPayload;
1988             memcpy(currData->payload + prePayloadLen, blockPayload, blockPayloadLen);
1989         }
1990
1991         // update received payload length
1992         currData->receivedPayloadLen += blockPayloadLen;
1993
1994         OIC_LOG_V(DEBUG, TAG, "updated payload: %s, len: %zu", currData->payload,
1995                   currData->receivedPayloadLen);
1996     }
1997
1998     OIC_LOG(DEBUG, TAG, "OUT-UpdatePayloadData");
1999     return CA_STATUS_OK;
2000 }
2001
2002 CAData_t* CACreateNewDataSet(const coap_pdu_t *pdu, const CAEndpoint_t *endpoint)
2003 {
2004     VERIFY_NON_NULL_RET(pdu, TAG, "pdu", NULL);
2005     VERIFY_NON_NULL_RET(pdu->transport_hdr, TAG, "pdu->transport_hdr", NULL);
2006     VERIFY_NON_NULL_RET(endpoint, TAG, "endpoint", NULL);
2007
2008     CARequestInfo_t* requestInfo = NULL;
2009     CAResponseInfo_t* responseInfo = NULL;
2010
2011     uint32_t code = pdu->transport_hdr->udp.code;
2012     if (CA_GET == code || CA_POST == code || CA_PUT == code || CA_DELETE == code)
2013     {
2014         CAInfo_t responseData = { .tokenLength = pdu->transport_hdr->udp.token_length };
2015         responseData.token = (CAToken_t) OICMalloc(responseData.tokenLength);
2016         if (!responseData.token)
2017         {
2018             OIC_LOG(ERROR, TAG, "out of memory");
2019             return NULL;
2020         }
2021         memcpy(responseData.token, pdu->transport_hdr->udp.token, responseData.tokenLength);
2022
2023         responseInfo = (CAResponseInfo_t*) OICCalloc(1, sizeof(CAResponseInfo_t));
2024         if (!responseInfo)
2025         {
2026             OIC_LOG(ERROR, TAG, "out of memory");
2027             OICFree(responseData.token);
2028             return NULL;
2029         }
2030         responseInfo->info = responseData;
2031     }
2032     else
2033     {
2034         CAInfo_t requestData = { .tokenLength = pdu->transport_hdr->udp.token_length };
2035         requestData.token = (CAToken_t) OICMalloc(requestData.tokenLength);
2036         if (!requestData.token)
2037         {
2038             OIC_LOG(ERROR, TAG, "out of memory");
2039             return NULL;
2040         }
2041         memcpy(requestData.token, pdu->transport_hdr->udp.token, requestData.tokenLength);
2042
2043         requestInfo = (CARequestInfo_t*) OICCalloc(1, sizeof(CARequestInfo_t));
2044         if (!requestInfo)
2045         {
2046             OIC_LOG(ERROR, TAG, "out of memory");
2047             OICFree(requestData.token);
2048             return NULL;
2049         }
2050         requestInfo->info = requestData;
2051
2052         // get resource uri information from received response message
2053         // to send next request message to remote device
2054         CAResponseInfo_t* resInfo = (CAResponseInfo_t*)OICCalloc(1, sizeof(*resInfo));
2055         if (!resInfo)
2056         {
2057             OIC_LOG(ERROR, TAG, "memory allocation failed");
2058             OICFree(requestData.token);
2059             return NULL;
2060         }
2061
2062         CAGetResponseInfoFromPDU(pdu, resInfo, endpoint);
2063         requestInfo->method = CA_GET;
2064         requestInfo->info.messageId = CAGetMessageIdFromPduBinaryData(pdu->transport_hdr, pdu->length);
2065         requestInfo->info.resourceUri = OICStrdup(resInfo->info.resourceUri);
2066
2067         // after copying the resource uri, destroy response info.
2068         CADestroyResponseInfoInternal(resInfo);
2069     }
2070
2071     CAData_t *data = (CAData_t *) OICCalloc(1, sizeof(CAData_t));
2072     if (!data)
2073     {
2074         OIC_LOG(ERROR, TAG, "out of memory");
2075         OICFree(requestInfo);
2076         OICFree(responseInfo);
2077         return NULL;
2078     }
2079
2080     data->requestInfo = requestInfo;
2081     data->responseInfo = responseInfo;
2082     data->remoteEndpoint = CACloneEndpoint(endpoint);
2083     data->type = SEND_TYPE_UNICAST;
2084
2085     return data;
2086 }
2087
2088 CAData_t *CACloneCAData(const CAData_t *data)
2089 {
2090     VERIFY_NON_NULL_RET(data, TAG, "data", NULL);
2091
2092     CAData_t *clone = (CAData_t *) OICCalloc(1, sizeof(CAData_t));
2093     if (!clone)
2094     {
2095         OIC_LOG(ERROR, TAG, "out of memory");
2096         return NULL;
2097     }
2098     *clone = *data;
2099
2100     if (data->requestInfo)
2101     {
2102         clone->requestInfo = CACloneRequestInfo(data->requestInfo);
2103     }
2104     else if (data->responseInfo)
2105     {
2106         clone->responseInfo = CACloneResponseInfo(data->responseInfo);
2107     }
2108
2109     if (data->remoteEndpoint)
2110     {
2111         clone->remoteEndpoint = CACloneEndpoint(data->remoteEndpoint);
2112     }
2113
2114     return clone;
2115 }
2116
2117 CAResult_t CAUpdatePayloadToCAData(CAData_t *data, const CAPayload_t payload,
2118                                    size_t payloadLen)
2119 {
2120     OIC_LOG(DEBUG, TAG, "IN-UpdatePayload");
2121
2122     VERIFY_NON_NULL(data, TAG, "data is NULL");
2123     VERIFY_NON_NULL(payload, TAG, "payload is NULL");
2124
2125     CAPayload_t newPayload = NULL;
2126     switch (data->dataType)
2127     {
2128         case CA_REQUEST_DATA:
2129             if (!data->requestInfo)
2130             {
2131                 OIC_LOG(ERROR, TAG, "request info is null");
2132                 return CA_STATUS_FAILED;
2133             }
2134             // allocate payload field
2135             newPayload = OICRealloc(data->requestInfo->info.payload, payloadLen);
2136             if (!newPayload)
2137             {
2138                 OIC_LOG(ERROR, TAG, "out of memory");
2139                 return CA_STATUS_FAILED;
2140             }
2141             data->requestInfo->info.payload = newPayload;
2142             memcpy(data->requestInfo->info.payload, payload, payloadLen);
2143             data->requestInfo->info.payloadSize = payloadLen;
2144             break;
2145
2146         case CA_RESPONSE_DATA:
2147             if (!data->responseInfo)
2148             {
2149                 OIC_LOG(ERROR, TAG, "response info is null");
2150                 return CA_STATUS_FAILED;
2151             }
2152             // allocate payload field
2153             newPayload = OICRealloc(data->responseInfo->info.payload, payloadLen);
2154             if (!newPayload)
2155             {
2156                 OIC_LOG(ERROR, TAG, "out of memory");
2157                 return CA_STATUS_FAILED;
2158             }
2159             data->responseInfo->info.payload = newPayload;
2160             memcpy(data->responseInfo->info.payload, payload, payloadLen);
2161             data->responseInfo->info.payloadSize = payloadLen;
2162             break;
2163
2164         default:
2165             // does not occur case
2166             OIC_LOG(ERROR, TAG, "not supported data type");
2167             return CA_NOT_SUPPORTED;
2168     }
2169
2170     OIC_LOG(DEBUG, TAG, "OUT-UpdatePayload");
2171
2172     return CA_STATUS_OK;
2173 }
2174
2175 CAPayload_t CAGetPayloadInfo(const CAData_t *data, size_t *payloadLen)
2176 {
2177     VERIFY_NON_NULL_RET(data, TAG, "data", NULL);
2178     VERIFY_NON_NULL_RET(payloadLen, TAG, "payloadLen", NULL);
2179
2180     if (data->requestInfo)
2181     {
2182         if (data->requestInfo->info.payload)
2183         {
2184             *payloadLen = data->requestInfo->info.payloadSize;
2185             return data->requestInfo->info.payload;
2186         }
2187     }
2188     else
2189     {
2190         if (data->responseInfo->info.payload)
2191         {
2192             *payloadLen = data->responseInfo->info.payloadSize;
2193             return data->responseInfo->info.payload;
2194         }
2195     }
2196
2197     return NULL;
2198 }
2199
2200 CAResult_t CAHandleBlockErrorResponse(coap_block_t *block, uint16_t blockType,
2201                                       uint32_t responseResult)
2202 {
2203     OIC_LOG(DEBUG, TAG, "IN-HandleBlockErrorRes");
2204     VERIFY_NON_NULL(block, TAG, "block is NULL");
2205
2206     // update block data
2207     switch (responseResult)
2208     {
2209         case CA_REQUEST_ENTITY_INCOMPLETE:
2210             block->num = 0;
2211             break;
2212         case CA_REQUEST_ENTITY_TOO_LARGE:
2213             if (COAP_OPTION_BLOCK1 == blockType)
2214             {
2215                 block->num++;
2216             }
2217             block->m = 0;
2218             break;
2219         default:
2220             OIC_LOG_V(ERROR, TAG, "there is no Error Code of BWT[%d]", responseResult);
2221             return CA_STATUS_FAILED;
2222     }
2223
2224     OIC_LOG(DEBUG, TAG, "OUT-HandleBlockErrorRes");
2225     return CA_STATUS_OK;
2226 }
2227
2228 CAResult_t CAUpdateBlockOptionType(const CABlockDataID_t *blockID, uint8_t blockType)
2229 {
2230     OIC_LOG(DEBUG, TAG, "IN-UpdateBlockOptionType");
2231     VERIFY_NON_NULL(blockID, TAG, "blockID");
2232
2233     ca_mutex_lock(g_context.blockDataListMutex);
2234
2235     size_t len = u_arraylist_length(g_context.dataList);
2236     for (size_t i = 0; i < len; i++)
2237     {
2238         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2239         if (CABlockidMatches(currData, blockID))
2240         {
2241             currData->type = blockType;
2242             ca_mutex_unlock(g_context.blockDataListMutex);
2243             OIC_LOG(DEBUG, TAG, "OUT-UpdateBlockOptionType");
2244             return CA_STATUS_OK;
2245         }
2246     }
2247     ca_mutex_unlock(g_context.blockDataListMutex);
2248
2249     OIC_LOG(DEBUG, TAG, "OUT-UpdateBlockOptionType");
2250     return CA_STATUS_FAILED;
2251 }
2252
2253 uint8_t CAGetBlockOptionType(const CABlockDataID_t *blockID)
2254 {
2255     OIC_LOG(DEBUG, TAG, "IN-GetBlockOptionType");
2256     VERIFY_NON_NULL_RET(blockID, TAG, "blockID", 0);
2257
2258     ca_mutex_lock(g_context.blockDataListMutex);
2259
2260     size_t len = u_arraylist_length(g_context.dataList);
2261     for (size_t i = 0; i < len; i++)
2262     {
2263         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2264         if (CABlockidMatches(currData, blockID))
2265         {
2266             ca_mutex_unlock(g_context.blockDataListMutex);
2267             OIC_LOG(DEBUG, TAG, "OUT-GetBlockOptionType");
2268             return currData->type;
2269         }
2270     }
2271     ca_mutex_unlock(g_context.blockDataListMutex);
2272
2273     OIC_LOG(DEBUG, TAG, "OUT-GetBlockOptionType");
2274     return 0;
2275 }
2276
2277 CAData_t *CAGetDataSetFromBlockDataList(const CABlockDataID_t *blockID)
2278 {
2279     VERIFY_NON_NULL_RET(blockID, TAG, "blockID", NULL);
2280
2281     ca_mutex_lock(g_context.blockDataListMutex);
2282
2283     size_t len = u_arraylist_length(g_context.dataList);
2284     for (size_t i = 0; i < len; i++)
2285     {
2286         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2287         if (CABlockidMatches(currData, blockID))
2288         {
2289             ca_mutex_unlock(g_context.blockDataListMutex);
2290             return currData->sentData;
2291         }
2292     }
2293     ca_mutex_unlock(g_context.blockDataListMutex);
2294
2295     return NULL;
2296 }
2297
2298 CAResult_t CAGetTokenFromBlockDataList(const coap_pdu_t *pdu, const CAEndpoint_t *endpoint,
2299                                        CAResponseInfo_t *responseInfo)
2300 {
2301     OIC_LOG(DEBUG, TAG, "IN-CAGetTokenFromBlockDataList");
2302     VERIFY_NON_NULL(pdu, TAG, "pdu");
2303     VERIFY_NON_NULL(endpoint, TAG, "endpoint");
2304     VERIFY_NON_NULL(responseInfo, TAG, "responseInfo");
2305
2306     ca_mutex_lock(g_context.blockDataListMutex);
2307
2308     size_t len = u_arraylist_length(g_context.dataList);
2309     for (size_t i = 0; i < len; i++)
2310     {
2311         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2312         if (NULL == currData)
2313         {
2314             continue;
2315         }
2316
2317         if (NULL != currData->sentData && NULL != currData->sentData->requestInfo)
2318         {
2319             if (pdu->transport_hdr->udp.id == currData->sentData->requestInfo->info.messageId &&
2320                     endpoint->adapter == currData->sentData->remoteEndpoint->adapter)
2321             {
2322                 if (NULL != currData->sentData->requestInfo->info.token)
2323                 {
2324                     uint8_t length = currData->sentData->requestInfo->info.tokenLength;
2325                     responseInfo->info.tokenLength = length;
2326                     responseInfo->info.token = (char *) OICMalloc(length);
2327                     if (NULL == responseInfo->info.token)
2328                     {
2329                         OIC_LOG(ERROR, TAG, "out of memory");
2330                         ca_mutex_unlock(g_context.blockDataListMutex);
2331                         return CA_MEMORY_ALLOC_FAILED;
2332                     }
2333                     memcpy(responseInfo->info.token, currData->sentData->requestInfo->info.token,
2334                            responseInfo->info.tokenLength);
2335
2336                     ca_mutex_unlock(g_context.blockDataListMutex);
2337                     OIC_LOG(DEBUG, TAG, "OUT-CAGetTokenFromBlockDataList");
2338                     return CA_STATUS_OK;
2339                 }
2340             }
2341         }
2342     }
2343
2344     ca_mutex_unlock(g_context.blockDataListMutex);
2345
2346     OIC_LOG(DEBUG, TAG, "OUT-CAGetTokenFromBlockDataList");
2347     return CA_STATUS_FAILED;
2348 }
2349
2350 CAResult_t CACheckBlockDataValidation(const CAData_t *sendData, CABlockData_t **blockData)
2351 {
2352     VERIFY_NON_NULL(sendData, TAG, "sendData");
2353     VERIFY_NON_NULL(blockData, TAG, "blockData");
2354
2355     if (sendData->responseInfo)
2356     {
2357         CABlockDataID_t* blockDataID = CACreateBlockDatablockId(
2358                 (CAToken_t)sendData->responseInfo->info.token,
2359                 sendData->responseInfo->info.tokenLength,
2360                 sendData->remoteEndpoint->port);
2361         if (NULL == blockDataID || blockDataID->idLength < 1)
2362         {
2363             OIC_LOG(ERROR, TAG, "blockId is null");
2364             CADestroyBlockID(blockDataID);
2365             return CA_STATUS_FAILED;
2366         }
2367
2368         CABlockData_t *storedData = CAGetBlockDataFromBlockDataList(blockDataID);
2369         if (storedData)
2370         {
2371             OIC_LOG(DEBUG, TAG, "Send response about the received block request.");
2372             if (storedData->sentData)
2373             {
2374                 OIC_LOG(DEBUG, TAG, "init block number");
2375                 CADestroyDataSet(storedData->sentData);
2376             }
2377             storedData->sentData = CACloneCAData(sendData);
2378             *blockData = storedData;
2379             CADestroyBlockID(blockDataID);
2380             return CA_STATUS_OK;
2381         }
2382         CADestroyBlockID(blockDataID);
2383     }
2384
2385     return CA_STATUS_FAILED;
2386 }
2387
2388 CABlockData_t *CAGetBlockDataFromBlockDataList(const CABlockDataID_t *blockID)
2389 {
2390     VERIFY_NON_NULL_RET(blockID, TAG, "blockID", NULL);
2391
2392     ca_mutex_lock(g_context.blockDataListMutex);
2393
2394     size_t len = u_arraylist_length(g_context.dataList);
2395     for (size_t i = 0; i < len; i++)
2396     {
2397         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2398         if (CABlockidMatches(currData, blockID))
2399         {
2400             ca_mutex_unlock(g_context.blockDataListMutex);
2401             return currData;
2402         }
2403     }
2404     ca_mutex_unlock(g_context.blockDataListMutex);
2405
2406     return NULL;
2407 }
2408
2409 coap_block_t *CAGetBlockOption(const CABlockDataID_t *blockID, uint16_t blockType)
2410 {
2411     OIC_LOG(DEBUG, TAG, "IN-GetBlockOption");
2412     VERIFY_NON_NULL_RET(blockID, TAG, "blockID", NULL);
2413
2414     ca_mutex_lock(g_context.blockDataListMutex);
2415
2416     size_t len = u_arraylist_length(g_context.dataList);
2417     for (size_t i = 0; i < len; i++)
2418     {
2419         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2420         if (CABlockidMatches(currData, blockID))
2421         {
2422             ca_mutex_unlock(g_context.blockDataListMutex);
2423             OIC_LOG(DEBUG, TAG, "OUT-GetBlockOption");
2424             if (COAP_OPTION_BLOCK2 == blockType)
2425             {
2426                 return &currData->block2;
2427             }
2428             else if (COAP_OPTION_BLOCK1 == blockType)
2429             {
2430                 return &currData->block1;
2431             }
2432         }
2433     }
2434     ca_mutex_unlock(g_context.blockDataListMutex);
2435
2436     OIC_LOG(DEBUG, TAG, "OUT-GetBlockOption");
2437     return NULL;
2438 }
2439
2440 CAPayload_t CAGetPayloadFromBlockDataList(const CABlockDataID_t *blockID,
2441                                           size_t *fullPayloadLen)
2442 {
2443     OIC_LOG(DEBUG, TAG, "IN-GetFullPayload");
2444     VERIFY_NON_NULL_RET(blockID, TAG, "blockID", NULL);
2445     VERIFY_NON_NULL_RET(fullPayloadLen, TAG, "fullPayloadLen", NULL);
2446
2447     ca_mutex_lock(g_context.blockDataListMutex);
2448
2449     size_t len = u_arraylist_length(g_context.dataList);
2450     for (size_t i = 0; i < len; i++)
2451     {
2452         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2453         if (CABlockidMatches(currData, blockID))
2454         {
2455             ca_mutex_unlock(g_context.blockDataListMutex);
2456             *fullPayloadLen = currData->receivedPayloadLen;
2457             OIC_LOG(DEBUG, TAG, "OUT-GetFullPayload");
2458             return currData->payload;
2459         }
2460     }
2461     ca_mutex_unlock(g_context.blockDataListMutex);
2462
2463     OIC_LOG(DEBUG, TAG, "OUT-GetFullPayload");
2464     return NULL;
2465 }
2466
2467 CABlockData_t *CACreateNewBlockData(const CAData_t *sendData)
2468 {
2469     OIC_LOG(DEBUG, TAG, "IN-CACreateNewBlockData");
2470     VERIFY_NON_NULL_RET(sendData, TAG, "sendData", NULL);
2471
2472     // create block data
2473     CABlockData_t *data = (CABlockData_t *) OICCalloc(1, sizeof(CABlockData_t));
2474     if (!data)
2475     {
2476         OIC_LOG(ERROR, TAG, "memory alloc has failed");
2477         return NULL;
2478     }
2479
2480     data->block1.szx = CA_DEFAULT_BLOCK_SIZE;
2481     data->block2.szx = CA_DEFAULT_BLOCK_SIZE;
2482     data->sentData = CACloneCAData(sendData);
2483     if (!data->sentData)
2484     {
2485         OIC_LOG(ERROR, TAG, PCF("memory alloc has failed"));
2486         OICFree(data);
2487         return NULL;
2488     }
2489
2490     CAToken_t token = NULL;
2491     uint8_t tokenLength = 0;
2492     if (data->sentData->requestInfo)
2493     {
2494         // update token info
2495         tokenLength = data->sentData->requestInfo->info.tokenLength;
2496         token = data->sentData->requestInfo->info.token;
2497     }
2498     else if (data->sentData->responseInfo)
2499     {
2500         tokenLength = data->sentData->responseInfo->info.tokenLength;
2501         token = data->sentData->responseInfo->info.token;
2502     }
2503
2504     if (!data->sentData->remoteEndpoint)
2505     {
2506         OIC_LOG(ERROR, TAG, "remoteEndpoint is null");
2507         CADestroyDataSet(data->sentData);
2508         OICFree(data);
2509         return NULL;
2510     }
2511
2512     CABlockDataID_t* blockDataID = CACreateBlockDatablockId(token, tokenLength,
2513                                                             data->sentData->remoteEndpoint->port);
2514     if (NULL == blockDataID || blockDataID->idLength < 1)
2515     {
2516         OIC_LOG(ERROR, TAG, "blockId is null");
2517         CADestroyBlockID(blockDataID);
2518         CADestroyDataSet(data->sentData);
2519         OICFree(data);
2520         return NULL;
2521     }
2522     data->blockDataId = blockDataID;
2523
2524     ca_mutex_lock(g_context.blockDataListMutex);
2525
2526     bool res = u_arraylist_add(g_context.dataList, (void *) data);
2527     if (!res)
2528     {
2529         OIC_LOG(ERROR, TAG, "add has failed");
2530         CADestroyBlockID(data->blockDataId);
2531         CADestroyDataSet(data->sentData);
2532         OICFree(data);
2533         ca_mutex_unlock(g_context.blockDataListMutex);
2534         return NULL;
2535     }
2536     ca_mutex_unlock(g_context.blockDataListMutex);
2537
2538     OIC_LOG(DEBUG, TAG, "OUT-CreateBlockData");
2539     return data;
2540 }
2541
2542 CAResult_t CARemoveBlockDataFromList(const CABlockDataID_t *blockID)
2543 {
2544     OIC_LOG(DEBUG, TAG, "CARemoveBlockData");
2545     VERIFY_NON_NULL(blockID, TAG, "blockID");
2546
2547     ca_mutex_lock(g_context.blockDataListMutex);
2548
2549     size_t len = u_arraylist_length(g_context.dataList);
2550     for (size_t i = 0; i < len; i++)
2551     {
2552         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2553         if (CABlockidMatches(currData, blockID))
2554         {
2555             CABlockData_t *removedData = u_arraylist_remove(g_context.dataList, i);
2556             if (!removedData)
2557             {
2558                 OIC_LOG(ERROR, TAG, "data is NULL");
2559                 ca_mutex_unlock(g_context.blockDataListMutex);
2560                 return CA_STATUS_FAILED;
2561             }
2562
2563             // destroy memory
2564             CADestroyDataSet(currData->sentData);
2565             CADestroyBlockID(currData->blockDataId);
2566             OICFree(currData->payload);
2567             OICFree(currData);
2568             ca_mutex_unlock(g_context.blockDataListMutex);
2569             return CA_STATUS_OK;
2570         }
2571     }
2572     ca_mutex_unlock(g_context.blockDataListMutex);
2573
2574     return CA_STATUS_OK;
2575 }
2576
2577 CAResult_t CARemoveAllBlockDataFromList()
2578 {
2579     OIC_LOG(DEBUG, TAG, "CARemoveAllBlockDataFromList");
2580
2581     ca_mutex_lock(g_context.blockDataListMutex);
2582
2583     size_t len = u_arraylist_length(g_context.dataList);
2584     for (size_t i = len; i > 0; i--)
2585     {
2586         CABlockData_t *removedData = u_arraylist_remove(g_context.dataList, i - 1);
2587         if (removedData)
2588         {
2589             // destroy memory
2590             if (removedData->sentData)
2591             {
2592                 CADestroyDataSet(removedData->sentData);
2593             }
2594             CADestroyBlockID(removedData->blockDataId);
2595             OICFree(removedData->payload);
2596             OICFree(removedData);
2597         }
2598     }
2599     ca_mutex_unlock(g_context.blockDataListMutex);
2600
2601     return CA_STATUS_OK;
2602 }
2603
2604 void CADestroyDataSet(CAData_t* data)
2605 {
2606     VERIFY_NON_NULL_VOID(data, TAG, "data");
2607
2608     CAFreeEndpoint(data->remoteEndpoint);
2609     CADestroyRequestInfoInternal(data->requestInfo);
2610     CADestroyResponseInfoInternal(data->responseInfo);
2611     OICFree(data);
2612 }
2613
2614 CABlockDataID_t* CACreateBlockDatablockId(const CAToken_t token, uint8_t tokenLength,
2615                                           uint16_t portNumber)
2616 {
2617     char port[PORT_LENGTH] = { 0, };
2618     port[0] = (char) ((portNumber >> 8) & 0xFF);
2619     port[1] = (char) (portNumber & 0xFF);
2620
2621     CABlockDataID_t* blockDataID = (CABlockDataID_t *) OICMalloc(sizeof(CABlockDataID_t));
2622     if (!blockDataID)
2623     {
2624         OIC_LOG(ERROR, TAG, "memory alloc has failed");
2625         return NULL;
2626     }
2627     blockDataID->idLength = tokenLength + sizeof(port);
2628     blockDataID->id = (uint8_t *) OICMalloc(blockDataID->idLength);
2629     if (!blockDataID->id)
2630     {
2631         OIC_LOG(ERROR, TAG, "memory alloc has failed");
2632         OICFree(blockDataID);
2633         return NULL;
2634     }
2635
2636     if (token)
2637     {
2638         memcpy(blockDataID->id, token, tokenLength);
2639     }
2640
2641     memcpy(blockDataID->id + tokenLength, port, sizeof(port));
2642
2643     OIC_LOG(DEBUG, TAG, "BlockID is ");
2644     OIC_LOG_BUFFER(DEBUG, TAG, (const uint8_t *)blockDataID->id, blockDataID->idLength);
2645
2646     return blockDataID;
2647 }
2648
2649 void CADestroyBlockID(CABlockDataID_t *blockID)
2650 {
2651     VERIFY_NON_NULL_VOID(blockID, TAG, "blockID");
2652     OICFree(blockID->id);
2653     OICFree(blockID);
2654     blockID = NULL;
2655 }
2656
2657 bool CABlockidMatches(const CABlockData_t *currData, const CABlockDataID_t *blockID)
2658 {
2659     VERIFY_NON_NULL_RET(currData, TAG, "currData", false);
2660     VERIFY_NON_NULL_RET(blockID, TAG, "blockID", false);
2661     VERIFY_NON_NULL_RET(blockID->id, TAG, "blockID->id", false);
2662
2663     if ((currData->blockDataId)
2664         && (currData->blockDataId->id)
2665         && (currData->blockDataId->idLength == blockID->idLength)
2666         && !memcmp(currData->blockDataId->id, blockID->id, currData->blockDataId->idLength))
2667     {
2668         return true;
2669     }
2670     return false;
2671 }
2672
2673 void CALogBlockInfo(coap_block_t *block)
2674 {
2675     VERIFY_NON_NULL_VOID(block, TAG, "block");
2676
2677     OIC_LOG(DEBUG, TAG, "block option info");
2678
2679     OIC_LOG_V(DEBUG, TAG, "block option-num : %d", block->num);
2680
2681     OIC_LOG_V(DEBUG, TAG, "block option-m   : %d", block->m);
2682
2683     OIC_LOG_V(DEBUG, TAG, "block option-szx : %d", block->szx);
2684 }
2685
2686 CAResult_t CARemoveBlockDataFromListWithSeed(const CAToken_t token, uint8_t tokenLength,
2687                                              uint16_t portNumber)
2688 {
2689     CABlockDataID_t* blockDataID = CACreateBlockDatablockId(token, tokenLength, portNumber);
2690     if (NULL == blockDataID || blockDataID->idLength < 1)
2691     {
2692         OIC_LOG(ERROR, TAG, "blockId is null");
2693         CADestroyBlockID(blockDataID);
2694         return CA_STATUS_FAILED;
2695     }
2696
2697     CAResult_t res = CA_STATUS_OK;
2698
2699     if (NULL != CAGetBlockDataFromBlockDataList(blockDataID))
2700     {
2701         res = CARemoveBlockDataFromList(blockDataID);
2702         if (CA_STATUS_OK != res)
2703         {
2704             OIC_LOG(ERROR, TAG, "CARemoveBlockDataFromList failed");
2705         }
2706     }
2707
2708     CADestroyBlockID(blockDataID);
2709
2710     return res;
2711 }