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->hdr, TAG, "pdu->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->hdr->coap_hdr_udp_t.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->hdr->coap_hdr_udp_t.token,
 396                 pdu->hdr->coap_hdr_udp_t.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->hdr->coap_hdr_udp_t.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->hdr->coap_hdr_udp_t.type == CA_MSG_CONFIRM) ?
 500                                 CA_MSG_ACKNOWLEDGE : CA_MSG_NONCONFIRM;
 501                 data->responseInfo->info.messageId = pdu->hdr->coap_hdr_udp_t.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->hdr->coap_hdr_udp_t.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->hdr->coap_hdr_udp_t.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
 597     CAResult_t caResult = CASendResponse(endpoint, &respInfo);
 598
 599     OIC_LOG(DEBUG, TAG, "Exit CASendDirectEmptyResponse");
 600     return caResult;
 601 }
 602
 603 CAResult_t CASendBlockMessage(const coap_pdu_t *pdu, CAMessageType_t msgType,
 604                               const CABlockDataID_t *blockID)
 605 {
 606     VERIFY_NON_NULL(pdu, TAG, "pdu");
 607     VERIFY_NON_NULL(pdu->hdr, TAG, "pdu->hdr");
 608     VERIFY_NON_NULL(blockID, TAG, "blockID");
 609
 610     CAData_t *data = CAGetDataSetFromBlockDataList(blockID);
 611     if (!data)
 612     {
 613         OIC_LOG(ERROR, TAG, "CAData is unavailable");
 614         return CA_STATUS_FAILED;
 615     }
 616
 617     CAMessageType_t sentMsgType = CA_MSG_NONCONFIRM;
 618     switch (msgType)
 619     {
 620         case CA_MSG_CONFIRM:
 621             sentMsgType = CA_MSG_ACKNOWLEDGE;
 622             break;
 623         case CA_MSG_ACKNOWLEDGE:
 624             sentMsgType = CA_MSG_CONFIRM;
 625             break;
 626         default:
 627             sentMsgType = CA_MSG_NONCONFIRM;
 628             break;
 629     }
 630
 631     uint32_t code = pdu->hdr->coap_hdr_udp_t.code;
 632     if (CA_GET == code || CA_POST == code || CA_PUT == code || CA_DELETE == code)
 633     {
 634         if (data->responseInfo)
 635         {
 636             OIC_LOG(DEBUG, TAG, "set response info");
 637             data->responseInfo->info.messageId = pdu->hdr->coap_hdr_udp_t.id;
 638             data->responseInfo->info.type = sentMsgType;
 639             data->responseInfo->result = CA_CONTINUE;
 640         }
 641     }
 642     else
 643     {
 644         // if the received response message type is CON, send empty message.
 645         // and then, send next block request message with new messagId.
 646         if (msgType == CA_MSG_CONFIRM)
 647         {
 648             CASendDirectEmptyResponse(data->remoteEndpoint,
 649                                       data->requestInfo->info.messageId);
 650             sentMsgType = CA_MSG_CONFIRM;
 651         }
 652
 653         if (data->requestInfo)
 654         {
 655             OIC_LOG(DEBUG, TAG, "need new msgID");
 656             data->requestInfo->info.messageId = 0;
 657             data->requestInfo->info.type = sentMsgType;
 658         }
 659     }
 660
 661     // add data to send thread
 662     CAResult_t res = CAAddSendThreadQueue(data, blockID);
 663     if (CA_STATUS_OK != res)
 664     {
 665         OIC_LOG(ERROR, TAG, "add has failed");
 666     }
 667
 668     return res;
 669 }
 670
 671 CAResult_t CASendErrorMessage(const coap_pdu_t *pdu, uint8_t status,
 672                               CAResponseResult_t responseResult, const CABlockDataID_t *blockID)
 673 {
 674     VERIFY_NON_NULL(pdu, TAG, "pdu");
 675     VERIFY_NON_NULL(pdu->hdr, TAG, "pdu->hdr");
 676     VERIFY_NON_NULL(blockID, TAG, "blockID");
 677
 678     // create error responseInfo
 679     CABlockData_t *data = CAGetBlockDataFromBlockDataList(blockID);
 680     if (!data)
 681     {
 682         OIC_LOG(ERROR, TAG, "data is unavailable");
 683         return CA_STATUS_FAILED;
 684     }
 685
 686     CAMessageType_t sentMsgType = CA_MSG_NONCONFIRM;
 687     switch (pdu->hdr->coap_hdr_udp_t.type)
 688     {
 689         case CA_MSG_CONFIRM:
 690             sentMsgType = CA_MSG_ACKNOWLEDGE;
 691             break;
 692         case CA_MSG_ACKNOWLEDGE:
 693             sentMsgType = CA_MSG_CONFIRM;
 694             break;
 695     }
 696
 697     CAData_t *cloneData = NULL;
 698     if (data->sentData)
 699     {
 700         cloneData = CACloneCAData(data->sentData);
 701         if (!cloneData)
 702         {
 703             OIC_LOG(ERROR, TAG, "clone has failed");
 704             return CA_MEMORY_ALLOC_FAILED;
 705         }
 706
 707         if (cloneData->responseInfo)
 708         {
 709             cloneData->responseInfo->info.messageId = pdu->hdr->coap_hdr_udp_t.id;
 710             cloneData->responseInfo->info.type = sentMsgType;
 711             cloneData->responseInfo->result = responseResult;
 712         }
 713         else
 714         {
 715             CAInfo_t responseData = { .tokenLength = pdu->hdr->coap_hdr_udp_t.token_length };
 716             responseData.token = (CAToken_t) OICMalloc(responseData.tokenLength);
 717             if (!responseData.token)
 718             {
 719                 OIC_LOG(ERROR, TAG, "out of memory");
 720                 return CA_MEMORY_ALLOC_FAILED;
 721             }
 722             memcpy(responseData.token, pdu->hdr->coap_hdr_udp_t.token, responseData.tokenLength);
 723
 724             cloneData->responseInfo = (CAResponseInfo_t*) OICCalloc(1, sizeof(CAResponseInfo_t));
 725             if (!cloneData->responseInfo)
 726             {
 727                 OIC_LOG(ERROR, TAG, "out of memory");
 728                 OICFree(responseData.token);
 729                 return CA_MEMORY_ALLOC_FAILED;
 730             }
 731
 732             cloneData->responseInfo->info = responseData;
 733             cloneData->responseInfo->info.type = sentMsgType;
 734             cloneData->responseInfo->result = responseResult;
 735         }
 736         OIC_LOG(DEBUG, TAG, "set response message to send error code");
 737     }
 738     else
 739     {
 740         OIC_LOG(ERROR, TAG, "data has no sent-data");
 741         return CA_MEMORY_ALLOC_FAILED;
 742     }
 743
 744     // if there is a requestInfo, remove it to send response message
 745     if (cloneData->requestInfo)
 746     {
 747         CADestroyRequestInfoInternal(cloneData->requestInfo);
 748         cloneData->requestInfo = NULL;
 749     }
 750
 751     // add data to send thread
 752     if (g_context.sendThreadFunc)
 753     {
 754         ca_mutex_lock(g_context.blockDataSenderMutex);
 755         g_context.sendThreadFunc(cloneData);
 756         ca_mutex_unlock(g_context.blockDataSenderMutex);
 757     }
 758     else
 759     {
 760         CADestroyDataSet(cloneData);
 761     }
 762
 763     // if error code is 4.08, remove the stored payload and initialize block number
 764     if (CA_BLOCK_INCOMPLETE == status)
 765     {
 766         OICFree(data->payload);
 767         data->payload = NULL;
 768         data->payloadLength = 0;
 769         data->receivedPayloadLen = 0;
 770         data->block1.num = 0;
 771         data->block2.num = 0;
 772     }
 773
 774     return CA_STATUS_OK;
 775 }
 776
 777 CAResult_t CAReceiveLastBlock(const CABlockDataID_t *blockID, const CAData_t *receivedData)
 778 {
 779     VERIFY_NON_NULL(blockID, TAG, "blockID");
 780     VERIFY_NON_NULL(receivedData, TAG, "receivedData");
 781
 782     // total block data have to notify to Application
 783     CAData_t *cloneData = CACloneCAData(receivedData);
 784     if (!cloneData)
 785     {
 786         OIC_LOG(ERROR, TAG, "clone has failed");
 787         return CA_MEMORY_ALLOC_FAILED;
 788     }
 789
 790     // update payload
 791     size_t fullPayloadLen = 0;
 792     CAPayload_t fullPayload = CAGetPayloadFromBlockDataList(blockID, &fullPayloadLen);
 793     if (fullPayload)
 794     {
 795         CAResult_t res = CAUpdatePayloadToCAData(cloneData, fullPayload, fullPayloadLen);
 796         if (CA_STATUS_OK != res)
 797         {
 798             OIC_LOG(ERROR, TAG, "update has failed");
 799             CADestroyDataSet(cloneData);
 800             return res;
 801         }
 802     }
 803
 804     if (g_context.receivedThreadFunc)
 805     {
 806         g_context.receivedThreadFunc(cloneData);
 807     }
 808     else
 809     {
 810         CADestroyDataSet(cloneData);
 811     }
 812
 813     return CA_STATUS_OK;
 814 }
 815
 816 static CABlockData_t* CACheckTheExistOfBlockData(const CABlockDataID_t* blockDataID,
 817                                                  coap_pdu_t *pdu, const CAEndpoint_t *endpoint,
 818                                                  uint8_t blockType)
 819 {
 820     // Get BlockData data. If does not exist, create a new data
 821     CABlockData_t *data = CAGetBlockDataFromBlockDataList(blockDataID);
 822     if (!data)
 823     {
 824         OIC_LOG(DEBUG, TAG, "block data doesn't exist in list. create new one");
 825
 826         CAData_t *cadata = CACreateNewDataSet(pdu, endpoint);
 827         if (!cadata)
 828         {
 829             OIC_LOG(ERROR, TAG, "data is null");
 830             return NULL;
 831         }
 832
 833         data = CACreateNewBlockData(cadata);
 834         if (!data)
 835         {
 836             OIC_LOG(ERROR, TAG, "failed to create a new block data");
 837             CADestroyDataSet(cadata);
 838             return NULL;
 839         }
 840         CADestroyDataSet(cadata);
 841     }
 842
 843     // update BLOCK OPTION type
 844     CAResult_t res = CAUpdateBlockOptionType(blockDataID, blockType);
 845     if (CA_STATUS_OK != res)
 846     {
 847         OIC_LOG(ERROR, TAG, "update has failed");
 848         return NULL;
 849     }
 850
 851     return data;
 852 }
 853
 854 // TODO make pdu const after libcoap is updated to support that.
 855 CAResult_t CASetNextBlockOption1(coap_pdu_t *pdu, const CAEndpoint_t *endpoint,
 856                                  const CAData_t *receivedData, coap_block_t block,
 857                                  size_t dataLen)
 858 {
 859     OIC_LOG(INFO, TAG, "CASetNextBlockOption1");
 860     VERIFY_NON_NULL(pdu, TAG, "pdu");
 861     VERIFY_NON_NULL(pdu->hdr, TAG, "pdu->hdr");
 862     VERIFY_NON_NULL(endpoint, TAG, "endpoint");
 863     VERIFY_NON_NULL(receivedData, TAG, "receivedData");
 864
 865     OIC_LOG_V(INFO, TAG, "num:%d, M:%d, sze:%d", block.num, block.m, block.szx);
 866
 867     CABlockDataID_t* blockDataID = CACreateBlockDatablockId(
 868             (CAToken_t)pdu->hdr->coap_hdr_udp_t.token,
 869             pdu->hdr->coap_hdr_udp_t.token_length,
 870             endpoint->port);
 871     if (NULL == blockDataID || blockDataID->idLength < 1)
 872     {
 873         OIC_LOG(ERROR, TAG, "blockId is null");
 874         CADestroyBlockID(blockDataID);
 875         return CA_STATUS_FAILED;
 876     }
 877
 878     CABlockData_t *data = CACheckTheExistOfBlockData(blockDataID, pdu, endpoint,
 879                                                      COAP_OPTION_BLOCK1);
 880     if (!data)
 881     {
 882         OIC_LOG(ERROR, TAG, "Failed to create or get block data");
 883         goto exit;
 884     }
 885
 886     CAResult_t res = CA_STATUS_OK;
 887     uint8_t blockWiseStatus = CA_BLOCK_UNKNOWN;
 888     uint32_t code = pdu->hdr->coap_hdr_udp_t.code;
 889     if (CA_GET == code || CA_POST == code || CA_PUT == code || CA_DELETE == code)
 890     {
 891         // received message type is request
 892         OIC_LOG_V(INFO, TAG, "num:%d, M:%d", block.num, block.m);
 893
 894         // check the size option
 895         bool isSizeOption = CAIsPayloadLengthInPduWithBlockSizeOption(pdu, COAP_OPTION_SIZE1,
 896                                                                       &(data->payloadLength));
 897
 898         blockWiseStatus = CACheckBlockErrorType(data, &block, receivedData,
 899                                                 COAP_OPTION_BLOCK1, dataLen);
 900
 901         if (CA_BLOCK_RECEIVED_ALREADY != blockWiseStatus)
 902         {
 903             // store the received payload and merge
 904             res = CAUpdatePayloadData(data, receivedData, blockWiseStatus,
 905                                       isSizeOption, COAP_OPTION_BLOCK1);
 906             if (CA_STATUS_OK != res)
 907             {
 908                 OIC_LOG(ERROR, TAG, "update has failed");
 909                 goto exit;
 910             }
 911
 912             res = CAUpdateBlockOptionItems(data, pdu, &block, COAP_OPTION_BLOCK1,
 913                                            blockWiseStatus);
 914             if (CA_STATUS_OK != res)
 915             {
 916                 OIC_LOG(ERROR, TAG, "update has failed");
 917                 goto exit;
 918             }
 919
 920             // update block data
 921             res = CAUpdateBlockData(data, block, COAP_OPTION_BLOCK1);
 922             if (CA_STATUS_OK != res)
 923             {
 924                 OIC_LOG(ERROR, TAG, "update has failed");
 925                 goto exit;
 926             }
 927         }
 928
 929         // check the blcok-wise transfer status for next step
 930         if (CA_BLOCK_UNKNOWN == blockWiseStatus || CA_BLOCK_RECEIVED_ALREADY == blockWiseStatus)
 931         {
 932             OIC_LOG_V(DEBUG, TAG, "M bit is %d", block.m);
 933
 934             blockWiseStatus = (0 == block.m) ?
 935                     CA_OPTION1_REQUEST_LAST_BLOCK : CA_OPTION1_REQUEST_BLOCK;
 936         }
 937     }
 938     else
 939     {
 940         // received message type is response
 941         uint32_t code = CA_RESPONSE_CODE(pdu->hdr->coap_hdr_udp_t.code);
 942         if (0 == block.m && (CA_REQUEST_ENTITY_INCOMPLETE != code
 943                 && CA_REQUEST_ENTITY_TOO_LARGE != code))
 944         {
 945             int isBlock2 = coap_get_block(pdu, COAP_OPTION_BLOCK2, &block);
 946             if (isBlock2)
 947             {
 948                 OIC_LOG(INFO, TAG, "received data is combining block1 and block2");
 949                 // initialize block number for response message
 950                 data->block1.num = 0;
 951                 CADestroyBlockID(blockDataID);
 952                 return CA_STATUS_OK;
 953             }
 954             else
 955             {
 956                 OIC_LOG(INFO, TAG, "received data is not bulk data");
 957                 CAReceiveLastBlock(blockDataID, receivedData);
 958                 res = CA_STATUS_OK;
 959                 goto exit;
 960             }
 961         }
 962
 963         blockWiseStatus = CA_OPTION1_RESPONSE;
 964         res = CAUpdateBlockOptionItems(data, pdu, &block, COAP_OPTION_BLOCK1, blockWiseStatus);
 965         if (CA_STATUS_OK != res)
 966         {
 967             OIC_LOG(ERROR, TAG, "update has failed");
 968             CADestroyBlockID(blockDataID);
 969             return res;
 970         }
 971
 972         res = CAUpdateBlockData(data, block, COAP_OPTION_BLOCK1);
 973         if (CA_STATUS_OK != res)
 974         {
 975             OIC_LOG(ERROR, TAG, "update has failed");
 976             goto exit;
 977         }
 978     }
 979
 980     res = CAProcessNextStep(pdu, receivedData, blockWiseStatus, blockDataID);
 981     if (CA_STATUS_OK != res)
 982     {
 983         OIC_LOG(ERROR, TAG, "setting has failed");
 984         goto exit;
 985     }
 986
 987     CADestroyBlockID(blockDataID);
 988     return res;
 989
 990 exit:
 991     CARemoveBlockDataFromList(blockDataID);
 992     CADestroyBlockID(blockDataID);
 993     return res;
 994 }
 995
 996 // TODO make pdu const after libcoap is updated to support that.
 997 CAResult_t CASetNextBlockOption2(coap_pdu_t *pdu, const CAEndpoint_t *endpoint,
 998                                  const CAData_t *receivedData, coap_block_t block,
 999                                  size_t dataLen)
1000 {
1001     OIC_LOG(DEBUG, TAG, "CASetNextBlockOption2");
1002     OIC_LOG_V(INFO, TAG, "num:%d, M:%d, sze:%d", block.num, block.m, block.szx);
1003
1004     VERIFY_NON_NULL(pdu, TAG, "pdu");
1005     VERIFY_NON_NULL(pdu->hdr, TAG, "pdu->hdr");
1006     VERIFY_NON_NULL(endpoint, TAG, "endpoint");
1007     VERIFY_NON_NULL(receivedData, TAG, "receivedData");
1008
1009     CABlockDataID_t* blockDataID = CACreateBlockDatablockId(
1010             (CAToken_t)pdu->hdr->coap_hdr_udp_t.token,
1011             pdu->hdr->coap_hdr_udp_t.token_length,
1012             endpoint->port);
1013     if (NULL == blockDataID || blockDataID->idLength < 1)
1014     {
1015         OIC_LOG(ERROR, TAG, "blockId is null");
1016         CADestroyBlockID(blockDataID);
1017         return CA_STATUS_FAILED;
1018     }
1019
1020     CABlockData_t *data = CACheckTheExistOfBlockData(blockDataID, pdu, endpoint,
1021                                                      COAP_OPTION_BLOCK2);
1022     if (!data)
1023     {
1024         OIC_LOG(ERROR, TAG, "Failed to create or get block data");
1025         goto exit;
1026     }
1027
1028     CAResult_t res = CA_STATUS_OK;
1029     uint8_t blockWiseStatus = CA_BLOCK_UNKNOWN;
1030     if (0 == block.num && CA_GET == pdu->hdr->coap_hdr_udp_t.code && 0 == block.m)
1031     {
1032         OIC_LOG(INFO, TAG, "first block number");
1033
1034         res = CAUpdateBlockOptionItems(data, pdu, &block, COAP_OPTION_BLOCK2, blockWiseStatus);
1035         if (CA_STATUS_OK != res)
1036         {
1037             OIC_LOG(ERROR, TAG, "update has failed");
1038             goto exit;
1039         }
1040
1041         // first block data have to notify to Application
1042         res = CAUpdateBlockData(data, block, COAP_OPTION_BLOCK2);
1043         if (CA_STATUS_OK != res)
1044         {
1045             OIC_LOG(ERROR, TAG, "update has failed");
1046             goto exit;
1047         }
1048         blockWiseStatus = CA_OPTION2_FIRST_BLOCK;
1049     }
1050     else
1051     {
1052         uint32_t code = pdu->hdr->coap_hdr_udp_t.code;
1053         if (CA_GET == code || CA_POST == code || CA_PUT == code || CA_DELETE == code)
1054         {
1055             // received message type is request
1056             OIC_LOG_V(INFO, TAG, "num:%d, M:%d", block.num, block.m);
1057
1058             blockWiseStatus = CA_OPTION2_REQUEST;
1059
1060             res = CAUpdateBlockOptionItems(data, pdu, &block, COAP_OPTION_BLOCK2, blockWiseStatus);
1061             if (CA_STATUS_OK != res)
1062             {
1063                 OIC_LOG(ERROR, TAG, "update has failed");
1064                 goto exit;
1065             }
1066
1067             res = CAUpdateBlockData(data, block, COAP_OPTION_BLOCK2);
1068             if (CA_STATUS_OK != res)
1069             {
1070                 OIC_LOG(ERROR, TAG, "update has failed");
1071                 goto exit;
1072             }
1073         }
1074         else
1075         {
1076             // received message type is response
1077             OIC_LOG(DEBUG, TAG, "received response message with block option2");
1078
1079             // check the size option
1080             bool isSizeOption = CAIsPayloadLengthInPduWithBlockSizeOption(pdu,
1081                                                                           COAP_OPTION_SIZE2,
1082                                                                           &(data->payloadLength));
1083
1084             uint32_t code = CA_RESPONSE_CODE(pdu->hdr->coap_hdr_udp_t.code);
1085             if (CA_REQUEST_ENTITY_INCOMPLETE != code && CA_REQUEST_ENTITY_TOO_LARGE != code)
1086             {
1087                 // check if received payload is exact
1088                 blockWiseStatus = CACheckBlockErrorType(data, &block, receivedData,
1089                                                         COAP_OPTION_BLOCK2, dataLen);
1090             }
1091
1092             if (CA_BLOCK_RECEIVED_ALREADY != blockWiseStatus)
1093             {
1094                 // store the received payload and merge
1095                 res = CAUpdatePayloadData(data, receivedData, blockWiseStatus,
1096                                           isSizeOption, COAP_OPTION_BLOCK2);
1097                 if (CA_STATUS_OK != res)
1098                 {
1099                     OIC_LOG(ERROR, TAG, "update has failed");
1100                     goto exit;
1101                 }
1102             }
1103
1104             if (0 == block.m && CA_BLOCK_UNKNOWN == blockWiseStatus) // Last block is received
1105             {
1106                 OIC_LOG(DEBUG, TAG, "M bit is 0");
1107                 blockWiseStatus = CA_OPTION2_LAST_BLOCK;
1108             }
1109             else
1110             {
1111                 if (CA_BLOCK_UNKNOWN == blockWiseStatus ||
1112                         CA_BLOCK_RECEIVED_ALREADY == blockWiseStatus)
1113                 {
1114                     OIC_LOG(DEBUG, TAG, "M bit is 1");
1115                     blockWiseStatus = CA_OPTION2_RESPONSE;
1116                 }
1117
1118                 res = CAUpdateBlockOptionItems(data, pdu, &block, COAP_OPTION_BLOCK2,
1119                                                blockWiseStatus);
1120                 if (CA_STATUS_OK != res)
1121                 {
1122                     OIC_LOG(ERROR, TAG, "update has failed");
1123                     goto exit;
1124                 }
1125
1126                 res = CAUpdateBlockData(data, block, COAP_OPTION_BLOCK2);
1127                 if (CA_STATUS_OK != res)
1128                 {
1129                     OIC_LOG(ERROR, TAG, "update has failed");
1130                     goto exit;
1131                 }
1132             }
1133         }
1134     }
1135
1136     res = CAProcessNextStep(pdu, receivedData, blockWiseStatus, blockDataID);
1137     if (CA_STATUS_OK != res)
1138     {
1139         OIC_LOG(ERROR, TAG, "setting has failed");
1140         goto exit;
1141     }
1142
1143     CADestroyBlockID(blockDataID);
1144     return CA_STATUS_OK;
1145
1146 exit:
1147     CARemoveBlockDataFromList(blockDataID);
1148     CADestroyBlockID(blockDataID);
1149     return res;
1150 }
1151
1152 CAResult_t CAUpdateBlockOptionItems(CABlockData_t *currData, const coap_pdu_t *pdu,
1153                                     coap_block_t *block, uint16_t blockType,
1154                                     uint32_t status)
1155 {
1156     VERIFY_NON_NULL(currData, TAG, "currData");
1157     VERIFY_NON_NULL(pdu, TAG, "pdu");
1158     VERIFY_NON_NULL(block, TAG, "block");
1159
1160     // update block data
1161     CAResult_t res = CA_STATUS_OK;
1162     uint32_t code = CA_RESPONSE_CODE(pdu->hdr->coap_hdr_udp_t.code);
1163
1164     if (CA_REQUEST_ENTITY_INCOMPLETE == code || CA_REQUEST_ENTITY_TOO_LARGE == code)
1165     {
1166         // response error code of the received block message
1167         res = CAHandleBlockErrorResponse(block, blockType, code);
1168         if (CA_STATUS_OK != res)
1169         {
1170             OIC_LOG(ERROR, TAG, "error handle has failed");
1171             return res;
1172         }
1173     }
1174     else
1175     {
1176         // update block option items
1177         switch (status)
1178         {
1179             case CA_OPTION1_RESPONSE:
1180                 if (currData->block1.num > block->num)
1181                 {
1182                     OIC_LOG(ERROR, TAG, "received incorrect block num");
1183                     return CA_STATUS_FAILED;
1184                 }
1185                 block->num++;
1186                 break;
1187             case CA_OPTION2_REQUEST:
1188                 block->m = 0;
1189                 break;
1190             case CA_OPTION2_RESPONSE:
1191                 if (currData->block2.num > block->num)
1192                 {
1193                     OIC_LOG(ERROR, TAG, "received incorrect block num");
1194                     return CA_STATUS_FAILED;
1195                 }
1196                 block->num++;
1197                 block->m = 0;
1198                 break;
1199             case CA_BLOCK_TOO_LARGE:
1200                 // if state of received block message is CA_BLOCK_TOO_LARGE or CA_BLOCK_INCOMPLETE
1201                 // we set the response error code appropriately and send
1202                 if (COAP_OPTION_BLOCK2 == blockType)
1203                 {
1204                     block->num++;
1205                     block->m = 0;
1206                     block->szx = currData->block2.szx;
1207                 }
1208                 else
1209                 {
1210                     block->szx = currData->block1.szx;
1211                 }
1212                 break;
1213             default:
1214                 OIC_LOG_V(ERROR, TAG, "no logic [%d]", status);
1215         }
1216
1217         if (CA_BLOCK_INCOMPLETE != status && CA_BLOCK_TOO_LARGE != status)
1218         {
1219             // negotiate block size
1220             res = CANegotiateBlockSize(currData, block, pdu, blockType);
1221             if (CA_STATUS_OK != res)
1222             {
1223                 OIC_LOG(ERROR, TAG, "negotiation has failed");
1224                 return res;
1225             }
1226         }
1227     }
1228     return res;
1229 }
1230
1231 CAResult_t CASetMoreBitFromBlock(size_t payloadLen, coap_block_t *block)
1232 {
1233     VERIFY_NON_NULL(block, TAG, "block");
1234
1235     if ((size_t) ((block->num + 1) << (block->szx + BLOCK_NUMBER_IDX)) < payloadLen)
1236     {
1237         OIC_LOG(DEBUG, TAG, "Set the M-bit(1)");
1238         block->m = 1;
1239     }
1240     else
1241     {
1242         OIC_LOG(DEBUG, TAG, "Set the M-bit(0)");
1243         block->m = 0;
1244     }
1245
1246     return CA_STATUS_OK;
1247 }
1248
1249 CAResult_t CANegotiateBlockSize(CABlockData_t *currData, coap_block_t *block,
1250                                 const coap_pdu_t *pdu, uint16_t blockType)
1251 {
1252     OIC_LOG(DEBUG, TAG, "IN-NegotiateBlockSize");
1253
1254     VERIFY_NON_NULL(currData, TAG, "currData");
1255     VERIFY_NON_NULL(block, TAG, "block");
1256     VERIFY_NON_NULL(pdu, TAG, "pdu");
1257     VERIFY_NON_NULL(pdu->hdr, TAG, "pdu->hdr");
1258
1259     bool isReqMsg = false;
1260     uint32_t code = pdu->hdr->coap_hdr_udp_t.code;
1261     if (CA_GET == code || CA_POST == code || CA_PUT == code || CA_DELETE == code)
1262     {
1263         isReqMsg = true;
1264     }
1265
1266     // #1. check the block option type
1267     if (COAP_OPTION_BLOCK2 == blockType)
1268     {
1269         // #2. check the message type
1270         if (!isReqMsg)
1271         {
1272             if (block->szx > currData->block2.szx)
1273             {
1274                 OIC_LOG(DEBUG, TAG, "sze is big");
1275
1276                 // #3. calculate new block number from block size
1277                 unsigned int blockNum = BLOCK_SIZE(block->szx) /
1278                                         BLOCK_SIZE(currData->block2.szx) - 1;
1279                 OIC_LOG(DEBUG, TAG, "num is set as Negotiation");
1280                 block->num += blockNum;
1281                 block->szx = currData->block2.szx;
1282                 OIC_LOG_V(DEBUG, TAG, "updated block num: %d", block->num);
1283             }
1284         }
1285         else
1286         {
1287             if (block->szx > currData->block2.szx)
1288             {
1289                 OIC_LOG(DEBUG, TAG, "sze is big");
1290                 block->szx = currData->block2.szx;
1291             }
1292         }
1293     }
1294     else if (COAP_OPTION_BLOCK1 == blockType)
1295     {
1296         if (!isReqMsg)
1297         {
1298             if (block->szx < currData->block1.szx)
1299             {
1300                 OIC_LOG(DEBUG, TAG, "sze is small");
1301
1302                 unsigned int blockNum = BLOCK_SIZE(currData->block1.szx) /
1303                                         BLOCK_SIZE(block->szx) - 1;
1304                 block->num += blockNum;
1305                 OIC_LOG_V(DEBUG, TAG, "updated block num: %d", block->num);
1306             }
1307         }
1308         else
1309         {
1310             if (block->szx > currData->block1.szx)
1311             {
1312                 OIC_LOG(DEBUG, TAG, "sze is big");
1313                 block->szx = currData->block1.szx;
1314             }
1315         }
1316     }
1317     else
1318     {
1319         OIC_LOG(DEBUG, TAG, "Invalid block option");
1320         return CA_STATUS_FAILED;
1321     }
1322
1323     OIC_LOG(DEBUG, TAG, "OUT-NegotiateBlockSize");
1324
1325     return CA_STATUS_OK;
1326 }
1327
1328 CAResult_t CAUpdateBlockData(CABlockData_t *currData, coap_block_t block,
1329                              uint16_t blockType)
1330 {
1331     VERIFY_NON_NULL(currData, TAG, "currData");
1332
1333     // check if block size is bigger than CABlockSize_t
1334     if (block.szx > CA_BLOCK_SIZE_1024_BYTE)
1335     {
1336         OIC_LOG(DEBUG, TAG, "invalid block szx");
1337         return CA_STATUS_FAILED;
1338     }
1339
1340     // update block option
1341     if (COAP_OPTION_BLOCK2 == blockType)
1342     {
1343         currData->block2 = block;
1344     }
1345     else
1346     {
1347         currData->block1 = block;
1348     }
1349
1350     OIC_LOG(DEBUG, TAG, "data has updated");
1351     return CA_STATUS_OK;
1352 }
1353
1354 CAResult_t CAUpdateMessageId(coap_pdu_t *pdu, const CABlockDataID_t *blockID)
1355 {
1356     VERIFY_NON_NULL(pdu, TAG, "pdu");
1357     VERIFY_NON_NULL(pdu->hdr, TAG, "pdu->hdr");
1358     VERIFY_NON_NULL(blockID, TAG, "blockID");
1359
1360     // if message is sent, update messageId in block-wise transfer list
1361     CAData_t * cadata = CAGetDataSetFromBlockDataList(blockID);
1362     if (!cadata)
1363     {
1364         OIC_LOG(ERROR, TAG, "CAData is unavailable");
1365         return CA_STATUS_FAILED;
1366     }
1367
1368     if (cadata->requestInfo)
1369     {
1370         cadata->requestInfo->info.messageId = pdu->hdr->coap_hdr_udp_t.id;
1371     }
1372
1373     return CA_STATUS_OK;
1374 }
1375
1376 CAResult_t CAAddBlockOption(coap_pdu_t **pdu, const CAInfo_t *info,
1377                             const CAEndpoint_t *endpoint, coap_list_t **options)
1378 {
1379     OIC_LOG(DEBUG, TAG, "IN-AddBlockOption");
1380     VERIFY_NON_NULL(pdu, TAG, "pdu");
1381     VERIFY_NON_NULL((*pdu), TAG, "(*pdu)");
1382     VERIFY_NON_NULL((*pdu)->hdr, TAG, "(*pdu)->hdr");
1383     VERIFY_NON_NULL(info, TAG, "info");
1384     VERIFY_NON_NULL(endpoint, TAG, "endpoint");
1385     VERIFY_NON_NULL(options, TAG, "options");
1386
1387     CAResult_t res = CA_STATUS_OK;
1388     size_t dataLength = 0;
1389     if (info->payload)
1390     {
1391         dataLength = info->payloadSize;
1392         OIC_LOG_V(DEBUG, TAG, "dataLength - %zu", dataLength);
1393     }
1394
1395     CABlockDataID_t* blockDataID = CACreateBlockDatablockId(
1396             (CAToken_t)(*pdu)->hdr->coap_hdr_udp_t.token,
1397             (*pdu)->hdr->coap_hdr_udp_t.token_length,
1398             endpoint->port);
1399     if (NULL == blockDataID || blockDataID->idLength < 1)
1400     {
1401         OIC_LOG(ERROR, TAG, "blockId is null");
1402         res = CA_STATUS_FAILED;
1403         goto exit;
1404     }
1405
1406     uint32_t repCode = CA_RESPONSE_CODE((*pdu)->hdr->coap_hdr_udp_t.code);
1407     if (CA_REQUEST_ENTITY_INCOMPLETE == repCode)
1408     {
1409         OIC_LOG(INFO, TAG, "don't use option");
1410         res = CA_STATUS_OK;
1411         goto exit;
1412     }
1413
1414     uint8_t blockType = CAGetBlockOptionType(blockDataID);
1415     if (COAP_OPTION_BLOCK2 == blockType)
1416     {
1417         res = CAAddBlockOption2(pdu, info, dataLength, blockDataID, options);
1418         if (CA_STATUS_OK != res)
1419         {
1420             OIC_LOG(ERROR, TAG, "add has failed");
1421             goto exit;
1422         }
1423     }
1424     else if (COAP_OPTION_BLOCK1 == blockType)
1425     {
1426         res = CAAddBlockOption1(pdu, info, dataLength, blockDataID, options);
1427         if (CA_STATUS_OK != res)
1428         {
1429             OIC_LOG(ERROR, TAG, "add has failed");
1430             goto exit;
1431         }
1432     }
1433     else
1434     {
1435         OIC_LOG(DEBUG, TAG, "no BLOCK option");
1436
1437         // in case it is not large data, add option list to pdu.
1438         if (*options)
1439         {
1440             for (coap_list_t *opt = *options; opt; opt = opt->next)
1441             {
1442                 OIC_LOG_V(DEBUG, TAG, "[%s] opt will be added.",
1443                           COAP_OPTION_DATA(*(coap_option *) opt->data));
1444
1445                 OIC_LOG_V(DEBUG, TAG, "[%d] pdu length", (*pdu)->length);
1446                 coap_add_option(*pdu, COAP_OPTION_KEY(*(coap_option *) opt->data),
1447                                 COAP_OPTION_LENGTH(*(coap_option *) opt->data),
1448                                 COAP_OPTION_DATA(*(coap_option *) opt->data), coap_udp);
1449             }
1450         }
1451
1452         OIC_LOG_V(DEBUG, TAG, "[%d] pdu length after option", (*pdu)->length);
1453
1454         // if response data is so large. it have to send as block transfer
1455         if (!coap_add_data(*pdu, dataLength, (const unsigned char *) info->payload))
1456         {
1457             OIC_LOG(INFO, TAG, "it have to use block");
1458             res = CA_STATUS_FAILED;
1459             goto exit;
1460         }
1461         else
1462         {
1463             OIC_LOG(INFO, TAG, "not Blockwise Transfer");
1464         }
1465     }
1466
1467     uint32_t code = (*pdu)->hdr->coap_hdr_udp_t.code;
1468     if (CA_GET == code || CA_POST == code || CA_PUT == code || CA_DELETE == code)
1469     {
1470         // if received message type is RESET from remote device,
1471         // we have to use the updated message id of request message to find token.
1472         CABlockData_t *blockData = CAGetBlockDataFromBlockDataList(blockDataID);
1473         if (blockData)
1474         {
1475             res = CAUpdateMessageId(*pdu, blockDataID);
1476             if (CA_STATUS_OK != res)
1477             {
1478                 OIC_LOG(ERROR, TAG, "fail to update message id");
1479                 goto exit;
1480             }
1481         }
1482     }
1483
1484 exit:
1485     CADestroyBlockID(blockDataID);
1486     OIC_LOG(DEBUG, TAG, "OUT-AddBlockOption");
1487     return res;
1488 }
1489
1490 CAResult_t CAAddBlockOption2(coap_pdu_t **pdu, const CAInfo_t *info, size_t dataLength,
1491                              const CABlockDataID_t *blockID, coap_list_t **options)
1492 {
1493     OIC_LOG(DEBUG, TAG, "IN-AddBlockOption2");
1494     VERIFY_NON_NULL(pdu, TAG, "pdu");
1495     VERIFY_NON_NULL((*pdu), TAG, "(*pdu)");
1496     VERIFY_NON_NULL((*pdu)->hdr, TAG, "(*pdu)->hdr");
1497     VERIFY_NON_NULL(info, TAG, "info");
1498     VERIFY_NON_NULL(blockID, TAG, "blockID");
1499     VERIFY_NON_NULL(options, TAG, "options");
1500
1501     // get set block data from CABlock list-set.
1502     coap_block_t *block1 = CAGetBlockOption(blockID, COAP_OPTION_BLOCK1);
1503     coap_block_t *block2 = CAGetBlockOption(blockID, COAP_OPTION_BLOCK2);
1504     if (!block1 || !block2)
1505     {
1506         OIC_LOG(ERROR, TAG, "getting has failed");
1507         return CA_STATUS_FAILED;
1508     }
1509
1510     CAResult_t res = CA_STATUS_OK;
1511     uint32_t code = (*pdu)->hdr->coap_hdr_udp_t.code;
1512     if (CA_GET != code && CA_POST != code && CA_PUT != code && CA_DELETE != code)
1513     {
1514         CASetMoreBitFromBlock(dataLength, block2);
1515
1516         // if block number is 0, add size2 option
1517         if (0 == block2->num)
1518         {
1519             res = CAAddBlockSizeOption(*pdu, COAP_OPTION_SIZE2, dataLength, options);
1520             if (CA_STATUS_OK != res)
1521             {
1522                 OIC_LOG(ERROR, TAG, "add has failed");
1523                 goto exit;
1524             }
1525         }
1526
1527         res = CAAddBlockOptionImpl(block2, COAP_OPTION_BLOCK2, options);
1528         if (CA_STATUS_OK != res)
1529         {
1530             OIC_LOG(ERROR, TAG, "add has failed");
1531             goto exit;
1532         }
1533
1534         if (block1->num)
1535         {
1536             OIC_LOG(DEBUG, TAG, "combining block1 and block2");
1537             res = CAAddBlockOptionImpl(block1, COAP_OPTION_BLOCK1, options);
1538             if (CA_STATUS_OK != res)
1539             {
1540                 OIC_LOG(ERROR, TAG, "add has failed");
1541                 goto exit;
1542             }
1543             // initialize block number
1544             block1->num = 0;
1545         }
1546
1547         res = CAAddOptionToPDU(*pdu, options);
1548         if (CA_STATUS_OK != res)
1549         {
1550             OIC_LOG(ERROR, TAG, "add has failed");
1551             goto exit;
1552         }
1553
1554         if (!coap_add_block(*pdu, dataLength, (const unsigned char *) info->payload,
1555                             block2->num, block2->szx))
1556         {
1557             OIC_LOG(ERROR, TAG, "Data length is smaller than the start index");
1558             return CA_STATUS_FAILED;
1559         }
1560
1561         CALogBlockInfo(block2);
1562
1563         if (!block2->m)
1564         {
1565             // if sent message is last response block message, remove data
1566             CARemoveBlockDataFromList(blockID);
1567         }
1568     }
1569     else
1570     {
1571         OIC_LOG(DEBUG, TAG, "option2, not response msg");
1572         res = CAAddBlockOptionImpl(block2, COAP_OPTION_BLOCK2, options);
1573         if (CA_STATUS_OK != res)
1574         {
1575             OIC_LOG(ERROR, TAG, "add has failed");
1576             goto exit;
1577         }
1578
1579         res = CAAddOptionToPDU(*pdu, options);
1580         if (CA_STATUS_OK != res)
1581         {
1582             OIC_LOG(ERROR, TAG, "add has failed");
1583             goto exit;
1584         }
1585         CALogBlockInfo(block2);
1586     }
1587
1588     return CA_STATUS_OK;
1589
1590 exit:
1591     CARemoveBlockDataFromList(blockID);
1592     return res;
1593 }
1594
1595 CAResult_t CAAddBlockOption1(coap_pdu_t **pdu, const CAInfo_t *info, size_t dataLength,
1596                              const CABlockDataID_t *blockID, coap_list_t **options)
1597 {
1598     OIC_LOG(DEBUG, TAG, "IN-AddBlockOption1");
1599     VERIFY_NON_NULL(pdu, TAG, "pdu");
1600     VERIFY_NON_NULL((*pdu), TAG, "(*pdu)");
1601     VERIFY_NON_NULL((*pdu)->hdr, TAG, "(*pdu)->hdr");
1602     VERIFY_NON_NULL(info, TAG, "info");
1603     VERIFY_NON_NULL(blockID, TAG, "blockID");
1604     VERIFY_NON_NULL(options, TAG, "options");
1605
1606     // get set block data from CABlock list-set.
1607     coap_block_t *block1 = CAGetBlockOption(blockID, COAP_OPTION_BLOCK1);
1608     if (!block1)
1609     {
1610         OIC_LOG(ERROR, TAG, "getting has failed");
1611         return CA_STATUS_FAILED;
1612     }
1613
1614     CAResult_t res = CA_STATUS_OK;
1615     uint32_t code = (*pdu)->hdr->coap_hdr_udp_t.code;
1616     if (CA_GET == code || CA_POST == code || CA_PUT == code || CA_DELETE == code)
1617     {
1618         CASetMoreBitFromBlock(dataLength, block1);
1619
1620         // if block number is 0, add size1 option
1621         if (0 == block1->num)
1622         {
1623             res = CAAddBlockSizeOption(*pdu, COAP_OPTION_SIZE1, dataLength, options);
1624             if (CA_STATUS_OK != res)
1625             {
1626                 OIC_LOG(ERROR, TAG, "add has failed");
1627                 goto exit;
1628             }
1629         }
1630
1631         // add block option to option list.
1632         res = CAAddBlockOptionImpl(block1, COAP_OPTION_BLOCK1, options);
1633         if (CA_STATUS_OK != res)
1634         {
1635             OIC_LOG(ERROR, TAG, "add has failed");
1636             goto exit;
1637         }
1638
1639         // add option list to pdu.
1640         res = CAAddOptionToPDU(*pdu, options);
1641         if (CA_STATUS_OK != res)
1642         {
1643             OIC_LOG(ERROR, TAG, "add has failed");
1644             goto exit;
1645         }
1646
1647         // add the payload data as the block size.
1648         if (!coap_add_block(*pdu, dataLength, (const unsigned char *) info->payload, block1->num,
1649                             block1->szx))
1650         {
1651             OIC_LOG(ERROR, TAG, "Data length is smaller than the start index");
1652             return CA_STATUS_FAILED;
1653         }
1654     }
1655     else
1656     {
1657         OIC_LOG(DEBUG, TAG, "received response message with block option1");
1658
1659         // add block option to option list.
1660         res = CAAddBlockOptionImpl(block1, COAP_OPTION_BLOCK1, options);
1661         if (CA_STATUS_OK != res)
1662         {
1663             OIC_LOG(ERROR, TAG, "add has failed");
1664             goto exit;
1665         }
1666
1667         // add option list to pdu.
1668         res = CAAddOptionToPDU(*pdu, options);
1669         if (CA_STATUS_OK != res)
1670         {
1671             OIC_LOG(ERROR, TAG, "add has failed");
1672             goto exit;
1673         }
1674
1675         // add the payload data as the block size.
1676         if (!coap_add_data(*pdu, dataLength, (const unsigned char *) info->payload))
1677         {
1678             OIC_LOG(ERROR, TAG, "failed to add payload");
1679             return CA_STATUS_FAILED;
1680         }
1681
1682         // if it is last block message, remove block data from list.
1683         if (0 == block1->m)
1684         {
1685             // remove data from list
1686             res = CARemoveBlockDataFromList(blockID);
1687             if (CA_STATUS_OK != res)
1688             {
1689                 OIC_LOG(ERROR, TAG, "remove has failed");
1690                 return res;
1691             }
1692         }
1693     }
1694
1695     CALogBlockInfo(block1);
1696
1697     OIC_LOG(DEBUG, TAG, "OUT-AddBlockOption1");
1698
1699     return CA_STATUS_OK;
1700
1701 exit:
1702     CARemoveBlockDataFromList(blockID);
1703     return res;
1704 }
1705
1706 CAResult_t CAAddBlockOptionImpl(coap_block_t *block, uint8_t blockType,
1707                                 coap_list_t **options)
1708 {
1709     OIC_LOG(DEBUG, TAG, "IN-AddBlockOptionImpl");
1710     VERIFY_NON_NULL(block, TAG, "block");
1711     VERIFY_NON_NULL(options, TAG, "options");
1712
1713     unsigned char buf[BLOCKWISE_OPTION_BUFFER] = { 0 };
1714     unsigned int optionLength = coap_encode_var_bytes(buf,
1715                                                       ((block->num << BLOCK_NUMBER_IDX)
1716                                                        | (block->m << BLOCK_M_BIT_IDX)
1717                                                        | block->szx));
1718
1719     int ret = coap_insert(options,
1720                           CACreateNewOptionNode(blockType, optionLength, (char *) buf),
1721                           CAOrderOpts);
1722     if (ret <= 0)
1723     {
1724         return CA_STATUS_INVALID_PARAM;
1725     }
1726
1727     OIC_LOG(DEBUG, TAG, "OUT-AddBlockOptionImpl");
1728     return CA_STATUS_OK;
1729 }
1730
1731 CAResult_t CAAddOptionToPDU(coap_pdu_t *pdu, coap_list_t **options)
1732 {
1733     // after adding the block option to option list, add option list to pdu.
1734     if (*options)
1735     {
1736         for (coap_list_t *opt = *options; opt; opt = opt->next)
1737         {
1738             OIC_LOG_V(DEBUG, TAG, "[%s] opt will be added.",
1739                       COAP_OPTION_DATA(*(coap_option *) opt->data));
1740
1741             OIC_LOG_V(DEBUG, TAG, "[%d] pdu length", pdu->length);
1742             int ret = coap_add_option(pdu, COAP_OPTION_KEY(*(coap_option *) opt->data),
1743                                       COAP_OPTION_LENGTH(*(coap_option *) opt->data),
1744                                       COAP_OPTION_DATA(*(coap_option *) opt->data), coap_udp);
1745             if (!ret)
1746             {
1747                 return CA_STATUS_FAILED;
1748             }
1749         }
1750     }
1751
1752     OIC_LOG_V(DEBUG, TAG, "[%d] pdu length after option", pdu->length);
1753
1754     return CA_STATUS_OK;
1755 }
1756
1757 CAResult_t CAAddBlockSizeOption(coap_pdu_t *pdu, uint16_t sizeType, size_t dataLength,
1758                                 coap_list_t **options)
1759 {
1760     OIC_LOG(DEBUG, TAG, "IN-CAAddBlockSizeOption");
1761     VERIFY_NON_NULL(pdu, TAG, "pdu");
1762     VERIFY_NON_NULL(options, TAG, "options");
1763
1764     if (sizeType != COAP_OPTION_SIZE1 && sizeType != COAP_OPTION_SIZE2)
1765     {
1766         OIC_LOG(ERROR, TAG, "unknown option type");
1767         return CA_STATUS_FAILED;
1768     }
1769
1770     unsigned char value[BLOCKWISE_OPTION_BUFFER] = { 0 };
1771     unsigned int optionLength = coap_encode_var_bytes(value, dataLength);
1772
1773     int ret = coap_insert(options,
1774                           CACreateNewOptionNode(sizeType, optionLength, (char *) value),
1775                           CAOrderOpts);
1776     if (ret <= 0)
1777     {
1778         return CA_STATUS_INVALID_PARAM;
1779     }
1780
1781     OIC_LOG(DEBUG, TAG, "OUT-CAAddBlockSizeOption");
1782
1783     return CA_STATUS_OK;
1784 }
1785
1786 // TODO make pdu const after libcoap is updated to support that.
1787 bool CAIsPayloadLengthInPduWithBlockSizeOption(coap_pdu_t *pdu,
1788                                                uint16_t sizeType,
1789                                                size_t *totalPayloadLen)
1790 {
1791     OIC_LOG(DEBUG, TAG, "IN-CAIsPayloadLengthInPduWithBlockSizeOption");
1792     VERIFY_NON_NULL(pdu, TAG, "pdu");
1793     VERIFY_NON_NULL(totalPayloadLen, TAG, "totalPayloadLen");
1794
1795     if (sizeType != COAP_OPTION_SIZE1 && sizeType != COAP_OPTION_SIZE2)
1796     {
1797         OIC_LOG(ERROR, TAG, "unknown option type");
1798         return CA_STATUS_FAILED;
1799     }
1800
1801     coap_opt_iterator_t opt_iter;
1802     coap_opt_t *option = coap_check_option(pdu, sizeType, &opt_iter);
1803     if (option)
1804     {
1805         OIC_LOG(DEBUG, TAG, "get size option from pdu");
1806         *totalPayloadLen = coap_decode_var_bytes(COAP_OPT_VALUE(option),
1807                                                  COAP_OPT_LENGTH(option));
1808
1809         OIC_LOG_V(DEBUG, TAG, "the total payload length to be received is [%zu]bytes",
1810                   *totalPayloadLen);
1811
1812         return true;
1813     }
1814
1815     OIC_LOG(DEBUG, TAG, "OUT-CAIsPayloadLengthInPduWithBlockSizeOption");
1816
1817     return false;
1818 }
1819
1820 uint8_t CACheckBlockErrorType(CABlockData_t *currData, coap_block_t *receivedBlock,
1821                               const CAData_t *receivedData, uint16_t blockType,
1822                               size_t dataLen)
1823 {
1824     OIC_LOG(DEBUG, TAG, "IN-CheckBlockError");
1825
1826     VERIFY_NON_NULL(currData, TAG, "currData is NULL");
1827     VERIFY_NON_NULL(receivedBlock, TAG, "receivedBlock is NULL");
1828     VERIFY_NON_NULL(receivedData, TAG, "receivedData is NULL");
1829
1830     // #1. check the received payload length
1831     size_t blockPayloadLen = 0;
1832     CAGetPayloadInfo(receivedData, &blockPayloadLen);
1833
1834     // #2. check if the block sequence is right
1835     if (COAP_OPTION_BLOCK1 == blockType)
1836     {
1837         size_t prePayloadLen = currData->receivedPayloadLen;
1838         if (prePayloadLen != (size_t) BLOCK_SIZE(receivedBlock->szx) * receivedBlock->num)
1839         {
1840             if (receivedBlock->num > currData->block1.num + 1)
1841             {
1842                 // 408 Error handling of block loss
1843                 OIC_LOG(ERROR, TAG, "option1: error 4.08");
1844                 OIC_LOG(ERROR, TAG, "it didn't order");
1845                 return CA_BLOCK_INCOMPLETE;
1846             }
1847             return CA_BLOCK_RECEIVED_ALREADY;
1848         }
1849     }
1850     else if (COAP_OPTION_BLOCK2 == blockType)
1851     {
1852         if (receivedBlock->num != currData->block2.num)
1853         {
1854             if (receivedBlock->num > currData->block2.num)
1855             {
1856                 // 408 Error handling of block loss
1857                 OIC_LOG(ERROR, TAG, "option2: error 4.08");
1858                 OIC_LOG(ERROR, TAG, "it didn't order");
1859                 return CA_BLOCK_INCOMPLETE;
1860             }
1861             return CA_BLOCK_RECEIVED_ALREADY;
1862         }
1863     }
1864
1865     // #3. check if error check logic is required
1866     size_t optionLen = dataLen - blockPayloadLen;
1867     if (receivedBlock->m && blockPayloadLen != (size_t) BLOCK_SIZE(receivedBlock->szx))
1868     {
1869         // 413 Error handling of too large entity
1870         if (COAP_MAX_PDU_SIZE < BLOCK_SIZE(receivedBlock->szx) + optionLen)
1871         {
1872             // buffer size is smaller than received block size
1873             OIC_LOG(ERROR, TAG, "error type 4.13");
1874             OIC_LOG(ERROR, TAG, "too large size");
1875
1876             // set the block size to be smaller than COAP_MAX_PDU_SIZE
1877             for (int32_t size = CA_DEFAULT_BLOCK_SIZE; size >= 0; size--)
1878             {
1879                 if (COAP_MAX_PDU_SIZE >= BLOCK_SIZE(size) + optionLen)
1880                 {
1881                     OIC_LOG_V(ERROR, TAG, "replace sze with %d", size);
1882                     currData->block2.szx = size;
1883                     currData->block1.szx = size;
1884                     break;
1885                 }
1886             }
1887             return CA_BLOCK_TOO_LARGE;
1888         }
1889         else
1890         {
1891             // 408 Error handling of payload loss
1892             OIC_LOG(ERROR, TAG, "error type 4.08");
1893             OIC_LOG(ERROR, TAG, "payload len != block sze");
1894             return CA_BLOCK_INCOMPLETE;
1895         }
1896     }
1897     else if (0 == receivedBlock->m && 0 != currData->payloadLength)
1898     {
1899         // if the received block is last block, check the total payload length
1900         size_t receivedPayloadLen = currData->receivedPayloadLen;
1901         receivedPayloadLen += blockPayloadLen;
1902
1903         if (receivedPayloadLen != currData->payloadLength)
1904         {
1905             OIC_LOG(ERROR, TAG, "error type 4.08");
1906             OIC_LOG(ERROR, TAG, "total payload length is wrong");
1907             return CA_BLOCK_INCOMPLETE;
1908         }
1909     }
1910
1911     OIC_LOG(DEBUG, TAG, "received all data normally");
1912
1913     OIC_LOG(DEBUG, TAG, "OUT-CheckBlockError");
1914
1915     return CA_BLOCK_UNKNOWN;
1916 }
1917
1918 CAResult_t CAUpdatePayloadData(CABlockData_t *currData, const CAData_t *receivedData,
1919                                uint8_t status, bool isSizeOption, uint16_t blockType)
1920 {
1921     OIC_LOG(DEBUG, TAG, "IN-UpdatePayloadData");
1922
1923     VERIFY_NON_NULL(currData, TAG, "currData");
1924     VERIFY_NON_NULL(receivedData, TAG, "receivedData");
1925
1926     // if error code is 4.08, do not update payload
1927     if (CA_BLOCK_INCOMPLETE == status)
1928     {
1929         OIC_LOG(ERROR, TAG, "no require to update");
1930         return CA_STATUS_OK;
1931     }
1932
1933     size_t blockPayloadLen = 0;
1934     CAPayload_t blockPayload = CAGetPayloadInfo(receivedData, &blockPayloadLen);
1935
1936     if (CA_BLOCK_TOO_LARGE == status)
1937     {
1938         blockPayloadLen = (COAP_OPTION_BLOCK2 == blockType) ?
1939                 BLOCK_SIZE(currData->block2.szx) : BLOCK_SIZE(currData->block1.szx);
1940     }
1941
1942     // memory allocation for the received block payload
1943     size_t prePayloadLen = currData->receivedPayloadLen;
1944     if (blockPayload)
1945     {
1946         if (currData->payloadLength)
1947         {
1948             // in case the block message has the size option
1949             // allocate the memory for the total payload
1950             if (isSizeOption)
1951             {
1952                 CAPayload_t prePayload = currData->payload;
1953
1954                 OIC_LOG(DEBUG, TAG, "allocate memory for the total payload");
1955                 currData->payload = (CAPayload_t) OICCalloc(1, currData->payloadLength);
1956                 if (NULL == currData->payload)
1957                 {
1958                     OIC_LOG(ERROR, TAG, "out of memory");
1959                     return CA_MEMORY_ALLOC_FAILED;
1960                 }
1961                 memcpy(currData->payload, prePayload, prePayloadLen);
1962                 OICFree(prePayload);
1963             }
1964
1965             // update the total payload
1966             memcpy(currData->payload + prePayloadLen, blockPayload, blockPayloadLen);
1967         }
1968         else
1969         {
1970             OIC_LOG(DEBUG, TAG, "allocate memory for the received block payload");
1971
1972             size_t totalPayloadLen = prePayloadLen + blockPayloadLen;
1973             CAPayload_t newPayload = OICRealloc(currData->payload, totalPayloadLen);
1974             if (NULL == newPayload)
1975             {
1976                 OIC_LOG(ERROR, TAG, "out of memory");
1977                 return CA_MEMORY_ALLOC_FAILED;
1978             }
1979
1980             // update the total payload
1981             memset(newPayload + prePayloadLen, 0, blockPayloadLen);
1982             currData->payload = newPayload;
1983             memcpy(currData->payload + prePayloadLen, blockPayload, blockPayloadLen);
1984         }
1985
1986         // update received payload length
1987         currData->receivedPayloadLen += blockPayloadLen;
1988
1989         OIC_LOG_V(DEBUG, TAG, "updated payload: %s, len: %zu", currData->payload,
1990                   currData->receivedPayloadLen);
1991     }
1992
1993     OIC_LOG(DEBUG, TAG, "OUT-UpdatePayloadData");
1994     return CA_STATUS_OK;
1995 }
1996
1997 CAData_t* CACreateNewDataSet(const coap_pdu_t *pdu, const CAEndpoint_t *endpoint)
1998 {
1999     VERIFY_NON_NULL_RET(pdu, TAG, "pdu", NULL);
2000     VERIFY_NON_NULL_RET(pdu->hdr, TAG, "pdu->hdr", NULL);
2001     VERIFY_NON_NULL_RET(endpoint, TAG, "endpoint", NULL);
2002
2003     CARequestInfo_t* requestInfo = NULL;
2004     CAResponseInfo_t* responseInfo = NULL;
2005
2006     uint32_t code = pdu->hdr->coap_hdr_udp_t.code;
2007     if (CA_GET == code || CA_POST == code || CA_PUT == code || CA_DELETE == code)
2008     {
2009         CAInfo_t responseData = { .tokenLength = pdu->hdr->coap_hdr_udp_t.token_length };
2010         responseData.token = (CAToken_t) OICMalloc(responseData.tokenLength);
2011         if (!responseData.token)
2012         {
2013             OIC_LOG(ERROR, TAG, "out of memory");
2014             return NULL;
2015         }
2016         memcpy(responseData.token, pdu->hdr->coap_hdr_udp_t.token, responseData.tokenLength);
2017
2018         responseInfo = (CAResponseInfo_t*) OICCalloc(1, sizeof(CAResponseInfo_t));
2019         if (!responseInfo)
2020         {
2021             OIC_LOG(ERROR, TAG, "out of memory");
2022             OICFree(responseData.token);
2023             return NULL;
2024         }
2025         responseInfo->info = responseData;
2026     }
2027     else
2028     {
2029         CAInfo_t requestData = { .tokenLength = pdu->hdr->coap_hdr_udp_t.token_length };
2030         requestData.token = (CAToken_t) OICMalloc(requestData.tokenLength);
2031         if (!requestData.token)
2032         {
2033             OIC_LOG(ERROR, TAG, "out of memory");
2034             return NULL;
2035         }
2036         memcpy(requestData.token, pdu->hdr->coap_hdr_udp_t.token, requestData.tokenLength);
2037
2038         requestInfo = (CARequestInfo_t*) OICCalloc(1, sizeof(CARequestInfo_t));
2039         if (!requestInfo)
2040         {
2041             OIC_LOG(ERROR, TAG, "out of memory");
2042             OICFree(requestData.token);
2043             return NULL;
2044         }
2045         requestInfo->info = requestData;
2046
2047         // get resource uri information from received response message
2048         // to send next request message to remote device
2049         CAResponseInfo_t* resInfo = (CAResponseInfo_t*)OICCalloc(1, sizeof(*resInfo));
2050         if (!resInfo)
2051         {
2052             OIC_LOG(ERROR, TAG, "memory allocation failed");
2053             OICFree(requestData.token);
2054             return NULL;
2055         }
2056
2057         CAGetResponseInfoFromPDU(pdu, resInfo, endpoint);
2058         requestInfo->method = CA_GET;
2059         requestInfo->info.messageId = CAGetMessageIdFromPduBinaryData(pdu->hdr, pdu->length);
2060         requestInfo->info.resourceUri = OICStrdup(resInfo->info.resourceUri);
2061
2062         // after copying the resource uri, destroy response info.
2063         CADestroyResponseInfoInternal(resInfo);
2064     }
2065
2066     CAData_t *data = (CAData_t *) OICCalloc(1, sizeof(CAData_t));
2067     if (!data)
2068     {
2069         OIC_LOG(ERROR, TAG, "out of memory");
2070         OICFree(requestInfo);
2071         OICFree(responseInfo);
2072         return NULL;
2073     }
2074
2075     data->requestInfo = requestInfo;
2076     data->responseInfo = responseInfo;
2077     data->remoteEndpoint = CACloneEndpoint(endpoint);
2078     data->type = SEND_TYPE_UNICAST;
2079
2080     return data;
2081 }
2082
2083 CAData_t *CACloneCAData(const CAData_t *data)
2084 {
2085     VERIFY_NON_NULL_RET(data, TAG, "data", NULL);
2086
2087     CAData_t *clone = (CAData_t *) OICCalloc(1, sizeof(CAData_t));
2088     if (!clone)
2089     {
2090         OIC_LOG(ERROR, TAG, "out of memory");
2091         return NULL;
2092     }
2093     *clone = *data;
2094
2095     if (data->requestInfo)
2096     {
2097         clone->requestInfo = CACloneRequestInfo(data->requestInfo);
2098     }
2099     else if (data->responseInfo)
2100     {
2101         clone->responseInfo = CACloneResponseInfo(data->responseInfo);
2102     }
2103
2104     if (data->remoteEndpoint)
2105     {
2106         clone->remoteEndpoint = CACloneEndpoint(data->remoteEndpoint);
2107     }
2108
2109     return clone;
2110 }
2111
2112 CAResult_t CAUpdatePayloadToCAData(CAData_t *data, const CAPayload_t payload,
2113                                    size_t payloadLen)
2114 {
2115     OIC_LOG(DEBUG, TAG, "IN-UpdatePayload");
2116
2117     VERIFY_NON_NULL(data, TAG, "data is NULL");
2118     VERIFY_NON_NULL(payload, TAG, "payload is NULL");
2119
2120     CAPayload_t newPayload = NULL;
2121     switch (data->dataType)
2122     {
2123         case CA_REQUEST_DATA:
2124             if (!data->requestInfo)
2125             {
2126                 OIC_LOG(ERROR, TAG, "request info is null");
2127                 return CA_STATUS_FAILED;
2128             }
2129             // allocate payload field
2130             newPayload = OICRealloc(data->requestInfo->info.payload, payloadLen);
2131             if (!newPayload)
2132             {
2133                 OIC_LOG(ERROR, TAG, "out of memory");
2134                 return CA_STATUS_FAILED;
2135             }
2136             data->requestInfo->info.payload = newPayload;
2137             memcpy(data->requestInfo->info.payload, payload, payloadLen);
2138             data->requestInfo->info.payloadSize = payloadLen;
2139             break;
2140
2141         case CA_RESPONSE_DATA:
2142             if (!data->responseInfo)
2143             {
2144                 OIC_LOG(ERROR, TAG, "response info is null");
2145                 return CA_STATUS_FAILED;
2146             }
2147             // allocate payload field
2148             newPayload = OICRealloc(data->responseInfo->info.payload, payloadLen);
2149             if (!newPayload)
2150             {
2151                 OIC_LOG(ERROR, TAG, "out of memory");
2152                 return CA_STATUS_FAILED;
2153             }
2154             data->responseInfo->info.payload = newPayload;
2155             memcpy(data->responseInfo->info.payload, payload, payloadLen);
2156             data->responseInfo->info.payloadSize = payloadLen;
2157             break;
2158
2159         default:
2160             // does not occur case
2161             OIC_LOG(ERROR, TAG, "not supported data type");
2162             return CA_NOT_SUPPORTED;
2163     }
2164
2165     OIC_LOG(DEBUG, TAG, "OUT-UpdatePayload");
2166
2167     return CA_STATUS_OK;
2168 }
2169
2170 CAPayload_t CAGetPayloadInfo(const CAData_t *data, size_t *payloadLen)
2171 {
2172     VERIFY_NON_NULL_RET(data, TAG, "data", NULL);
2173     VERIFY_NON_NULL_RET(payloadLen, TAG, "payloadLen", NULL);
2174
2175     if (data->requestInfo)
2176     {
2177         if (data->requestInfo->info.payload)
2178         {
2179             *payloadLen = data->requestInfo->info.payloadSize;
2180             return data->requestInfo->info.payload;
2181         }
2182     }
2183     else
2184     {
2185         if (data->responseInfo->info.payload)
2186         {
2187             *payloadLen = data->responseInfo->info.payloadSize;
2188             return data->responseInfo->info.payload;
2189         }
2190     }
2191
2192     return NULL;
2193 }
2194
2195 CAResult_t CAHandleBlockErrorResponse(coap_block_t *block, uint16_t blockType,
2196                                       uint32_t responseResult)
2197 {
2198     OIC_LOG(DEBUG, TAG, "IN-HandleBlockErrorRes");
2199     VERIFY_NON_NULL(block, TAG, "block is NULL");
2200
2201     // update block data
2202     switch (responseResult)
2203     {
2204         case CA_REQUEST_ENTITY_INCOMPLETE:
2205             block->num = 0;
2206             break;
2207         case CA_REQUEST_ENTITY_TOO_LARGE:
2208             if (COAP_OPTION_BLOCK1 == blockType)
2209             {
2210                 block->num++;
2211             }
2212             block->m = 0;
2213             break;
2214         default:
2215             OIC_LOG_V(ERROR, TAG, "there is no Error Code of BWT[%d]", responseResult);
2216             return CA_STATUS_FAILED;
2217     }
2218
2219     OIC_LOG(DEBUG, TAG, "OUT-HandleBlockErrorRes");
2220     return CA_STATUS_OK;
2221 }
2222
2223 CAResult_t CAUpdateBlockOptionType(const CABlockDataID_t *blockID, uint8_t blockType)
2224 {
2225     OIC_LOG(DEBUG, TAG, "IN-UpdateBlockOptionType");
2226     VERIFY_NON_NULL(blockID, TAG, "blockID");
2227
2228     ca_mutex_lock(g_context.blockDataListMutex);
2229
2230     size_t len = u_arraylist_length(g_context.dataList);
2231     for (size_t i = 0; i < len; i++)
2232     {
2233         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2234         if (CABlockidMatches(currData, blockID))
2235         {
2236             currData->type = blockType;
2237             ca_mutex_unlock(g_context.blockDataListMutex);
2238             OIC_LOG(DEBUG, TAG, "OUT-UpdateBlockOptionType");
2239             return CA_STATUS_OK;
2240         }
2241     }
2242     ca_mutex_unlock(g_context.blockDataListMutex);
2243
2244     OIC_LOG(DEBUG, TAG, "OUT-UpdateBlockOptionType");
2245     return CA_STATUS_FAILED;
2246 }
2247
2248 uint8_t CAGetBlockOptionType(const CABlockDataID_t *blockID)
2249 {
2250     OIC_LOG(DEBUG, TAG, "IN-GetBlockOptionType");
2251     VERIFY_NON_NULL_RET(blockID, TAG, "blockID", 0);
2252
2253     ca_mutex_lock(g_context.blockDataListMutex);
2254
2255     size_t len = u_arraylist_length(g_context.dataList);
2256     for (size_t i = 0; i < len; i++)
2257     {
2258         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2259         if (CABlockidMatches(currData, blockID))
2260         {
2261             ca_mutex_unlock(g_context.blockDataListMutex);
2262             OIC_LOG(DEBUG, TAG, "OUT-GetBlockOptionType");
2263             return currData->type;
2264         }
2265     }
2266     ca_mutex_unlock(g_context.blockDataListMutex);
2267
2268     OIC_LOG(DEBUG, TAG, "OUT-GetBlockOptionType");
2269     return 0;
2270 }
2271
2272 CAData_t *CAGetDataSetFromBlockDataList(const CABlockDataID_t *blockID)
2273 {
2274     VERIFY_NON_NULL_RET(blockID, TAG, "blockID", NULL);
2275
2276     ca_mutex_lock(g_context.blockDataListMutex);
2277
2278     size_t len = u_arraylist_length(g_context.dataList);
2279     for (size_t i = 0; i < len; i++)
2280     {
2281         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2282         if (CABlockidMatches(currData, blockID))
2283         {
2284             ca_mutex_unlock(g_context.blockDataListMutex);
2285             return currData->sentData;
2286         }
2287     }
2288     ca_mutex_unlock(g_context.blockDataListMutex);
2289
2290     return NULL;
2291 }
2292
2293 CAResult_t CAGetTokenFromBlockDataList(const coap_pdu_t *pdu, const CAEndpoint_t *endpoint,
2294                                        CAResponseInfo_t *responseInfo)
2295 {
2296     OIC_LOG(DEBUG, TAG, "IN-CAGetTokenFromBlockDataList");
2297     VERIFY_NON_NULL(pdu, TAG, "pdu");
2298     VERIFY_NON_NULL(endpoint, TAG, "endpoint");
2299     VERIFY_NON_NULL(responseInfo, TAG, "responseInfo");
2300
2301     ca_mutex_lock(g_context.blockDataListMutex);
2302
2303     size_t len = u_arraylist_length(g_context.dataList);
2304     for (size_t i = 0; i < len; i++)
2305     {
2306         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2307         if (NULL == currData)
2308         {
2309             continue;
2310         }
2311
2312         if (NULL != currData->sentData && NULL != currData->sentData->requestInfo)
2313         {
2314             if (pdu->hdr->coap_hdr_udp_t.id == currData->sentData->requestInfo->info.messageId &&
2315                     endpoint->adapter == currData->sentData->remoteEndpoint->adapter)
2316             {
2317                 if (NULL != currData->sentData->requestInfo->info.token)
2318                 {
2319                     uint8_t length = currData->sentData->requestInfo->info.tokenLength;
2320                     responseInfo->info.tokenLength = length;
2321                     responseInfo->info.token = (char *) OICMalloc(length);
2322                     if (NULL == responseInfo->info.token)
2323                     {
2324                         OIC_LOG(ERROR, TAG, "out of memory");
2325                         ca_mutex_unlock(g_context.blockDataListMutex);
2326                         return CA_MEMORY_ALLOC_FAILED;
2327                     }
2328                     memcpy(responseInfo->info.token, currData->sentData->requestInfo->info.token,
2329                            responseInfo->info.tokenLength);
2330
2331                     ca_mutex_unlock(g_context.blockDataListMutex);
2332                     OIC_LOG(DEBUG, TAG, "OUT-CAGetTokenFromBlockDataList");
2333                     return CA_STATUS_OK;
2334                 }
2335             }
2336         }
2337     }
2338
2339     ca_mutex_unlock(g_context.blockDataListMutex);
2340
2341     OIC_LOG(DEBUG, TAG, "OUT-CAGetTokenFromBlockDataList");
2342     return CA_STATUS_FAILED;
2343 }
2344
2345 CAResult_t CACheckBlockDataValidation(const CAData_t *sendData, CABlockData_t **blockData)
2346 {
2347     VERIFY_NON_NULL(sendData, TAG, "sendData");
2348     VERIFY_NON_NULL(blockData, TAG, "blockData");
2349
2350     if (sendData->responseInfo)
2351     {
2352         CABlockDataID_t* blockDataID = CACreateBlockDatablockId(
2353                 (CAToken_t)sendData->responseInfo->info.token,
2354                 sendData->responseInfo->info.tokenLength,
2355                 sendData->remoteEndpoint->port);
2356         if (NULL == blockDataID || blockDataID->idLength < 1)
2357         {
2358             OIC_LOG(ERROR, TAG, "blockId is null");
2359             CADestroyBlockID(blockDataID);
2360             return CA_STATUS_FAILED;
2361         }
2362
2363         CABlockData_t *storedData = CAGetBlockDataFromBlockDataList(blockDataID);
2364         if (storedData)
2365         {
2366             OIC_LOG(DEBUG, TAG, "Send response about the received block request.");
2367             if (storedData->sentData)
2368             {
2369                 OIC_LOG(DEBUG, TAG, "init block number");
2370                 CADestroyDataSet(storedData->sentData);
2371             }
2372             storedData->sentData = CACloneCAData(sendData);
2373             *blockData = storedData;
2374             CADestroyBlockID(blockDataID);
2375             return CA_STATUS_OK;
2376         }
2377         CADestroyBlockID(blockDataID);
2378     }
2379
2380     return CA_STATUS_FAILED;
2381 }
2382
2383 CABlockData_t *CAGetBlockDataFromBlockDataList(const CABlockDataID_t *blockID)
2384 {
2385     VERIFY_NON_NULL_RET(blockID, TAG, "blockID", NULL);
2386
2387     ca_mutex_lock(g_context.blockDataListMutex);
2388
2389     size_t len = u_arraylist_length(g_context.dataList);
2390     for (size_t i = 0; i < len; i++)
2391     {
2392         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2393         if (CABlockidMatches(currData, blockID))
2394         {
2395             ca_mutex_unlock(g_context.blockDataListMutex);
2396             return currData;
2397         }
2398     }
2399     ca_mutex_unlock(g_context.blockDataListMutex);
2400
2401     return NULL;
2402 }
2403
2404 coap_block_t *CAGetBlockOption(const CABlockDataID_t *blockID, uint16_t blockType)
2405 {
2406     OIC_LOG(DEBUG, TAG, "IN-GetBlockOption");
2407     VERIFY_NON_NULL_RET(blockID, TAG, "blockID", NULL);
2408
2409     ca_mutex_lock(g_context.blockDataListMutex);
2410
2411     size_t len = u_arraylist_length(g_context.dataList);
2412     for (size_t i = 0; i < len; i++)
2413     {
2414         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2415         if (CABlockidMatches(currData, blockID))
2416         {
2417             ca_mutex_unlock(g_context.blockDataListMutex);
2418             OIC_LOG(DEBUG, TAG, "OUT-GetBlockOption");
2419             if (COAP_OPTION_BLOCK2 == blockType)
2420             {
2421                 return &currData->block2;
2422             }
2423             else if (COAP_OPTION_BLOCK1 == blockType)
2424             {
2425                 return &currData->block1;
2426             }
2427         }
2428     }
2429     ca_mutex_unlock(g_context.blockDataListMutex);
2430
2431     OIC_LOG(DEBUG, TAG, "OUT-GetBlockOption");
2432     return NULL;
2433 }
2434
2435 CAPayload_t CAGetPayloadFromBlockDataList(const CABlockDataID_t *blockID,
2436                                           size_t *fullPayloadLen)
2437 {
2438     OIC_LOG(DEBUG, TAG, "IN-GetFullPayload");
2439     VERIFY_NON_NULL_RET(blockID, TAG, "blockID", NULL);
2440     VERIFY_NON_NULL_RET(fullPayloadLen, TAG, "fullPayloadLen", NULL);
2441
2442     ca_mutex_lock(g_context.blockDataListMutex);
2443
2444     size_t len = u_arraylist_length(g_context.dataList);
2445     for (size_t i = 0; i < len; i++)
2446     {
2447         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2448         if (CABlockidMatches(currData, blockID))
2449         {
2450             ca_mutex_unlock(g_context.blockDataListMutex);
2451             *fullPayloadLen = currData->receivedPayloadLen;
2452             OIC_LOG(DEBUG, TAG, "OUT-GetFullPayload");
2453             return currData->payload;
2454         }
2455     }
2456     ca_mutex_unlock(g_context.blockDataListMutex);
2457
2458     OIC_LOG(DEBUG, TAG, "OUT-GetFullPayload");
2459     return NULL;
2460 }
2461
2462 CABlockData_t *CACreateNewBlockData(const CAData_t *sendData)
2463 {
2464     OIC_LOG(DEBUG, TAG, "IN-CACreateNewBlockData");
2465     VERIFY_NON_NULL_RET(sendData, TAG, "sendData", NULL);
2466
2467     // create block data
2468     CABlockData_t *data = (CABlockData_t *) OICCalloc(1, sizeof(CABlockData_t));
2469     if (!data)
2470     {
2471         OIC_LOG(ERROR, TAG, "memory alloc has failed");
2472         return NULL;
2473     }
2474
2475     data->block1.szx = CA_DEFAULT_BLOCK_SIZE;
2476     data->block2.szx = CA_DEFAULT_BLOCK_SIZE;
2477     data->sentData = CACloneCAData(sendData);
2478     if (!data->sentData)
2479     {
2480         OIC_LOG(ERROR, TAG, PCF("memory alloc has failed"));
2481         OICFree(data);
2482         return NULL;
2483     }
2484
2485     CAToken_t token = NULL;
2486     uint8_t tokenLength = 0;
2487     if (data->sentData->requestInfo)
2488     {
2489         // update token info
2490         tokenLength = data->sentData->requestInfo->info.tokenLength;
2491         token = data->sentData->requestInfo->info.token;
2492     }
2493     else if (data->sentData->responseInfo)
2494     {
2495         tokenLength = data->sentData->responseInfo->info.tokenLength;
2496         token = data->sentData->responseInfo->info.token;
2497     }
2498
2499     if (!data->sentData->remoteEndpoint)
2500     {
2501         OIC_LOG(ERROR, TAG, "remoteEndpoint is null");
2502         CADestroyDataSet(data->sentData);
2503         OICFree(data);
2504         return NULL;
2505     }
2506
2507     CABlockDataID_t* blockDataID = CACreateBlockDatablockId(token, tokenLength,
2508                                                             data->sentData->remoteEndpoint->port);
2509     if (NULL == blockDataID || blockDataID->idLength < 1)
2510     {
2511         OIC_LOG(ERROR, TAG, "blockId is null");
2512         CADestroyBlockID(blockDataID);
2513         CADestroyDataSet(data->sentData);
2514         OICFree(data);
2515         return NULL;
2516     }
2517     data->blockDataId = blockDataID;
2518
2519     ca_mutex_lock(g_context.blockDataListMutex);
2520
2521     bool res = u_arraylist_add(g_context.dataList, (void *) data);
2522     if (!res)
2523     {
2524         OIC_LOG(ERROR, TAG, "add has failed");
2525         CADestroyBlockID(data->blockDataId);
2526         CADestroyDataSet(data->sentData);
2527         OICFree(data);
2528         ca_mutex_unlock(g_context.blockDataListMutex);
2529         return NULL;
2530     }
2531     ca_mutex_unlock(g_context.blockDataListMutex);
2532
2533     OIC_LOG(DEBUG, TAG, "OUT-CreateBlockData");
2534     return data;
2535 }
2536
2537 CAResult_t CARemoveBlockDataFromList(const CABlockDataID_t *blockID)
2538 {
2539     OIC_LOG(DEBUG, TAG, "CARemoveBlockData");
2540     VERIFY_NON_NULL(blockID, TAG, "blockID");
2541
2542     ca_mutex_lock(g_context.blockDataListMutex);
2543
2544     size_t len = u_arraylist_length(g_context.dataList);
2545     for (size_t i = 0; i < len; i++)
2546     {
2547         CABlockData_t *currData = (CABlockData_t *) u_arraylist_get(g_context.dataList, i);
2548         if (CABlockidMatches(currData, blockID))
2549         {
2550             CABlockData_t *removedData = u_arraylist_remove(g_context.dataList, i);
2551             if (!removedData)
2552             {
2553                 OIC_LOG(ERROR, TAG, "data is NULL");
2554                 ca_mutex_unlock(g_context.blockDataListMutex);
2555                 return CA_STATUS_FAILED;
2556             }
2557
2558             // destroy memory
2559             CADestroyDataSet(currData->sentData);
2560             CADestroyBlockID(currData->blockDataId);
2561             OICFree(currData->payload);
2562             OICFree(currData);
2563             ca_mutex_unlock(g_context.blockDataListMutex);
2564             return CA_STATUS_OK;
2565         }
2566     }
2567     ca_mutex_unlock(g_context.blockDataListMutex);
2568
2569     return CA_STATUS_OK;
2570 }
2571
2572 CAResult_t CARemoveAllBlockDataFromList()
2573 {
2574     OIC_LOG(DEBUG, TAG, "CARemoveAllBlockDataFromList");
2575
2576     ca_mutex_lock(g_context.blockDataListMutex);
2577
2578     size_t len = u_arraylist_length(g_context.dataList);
2579     for (size_t i = len; i > 0; i--)
2580     {
2581         CABlockData_t *removedData = u_arraylist_remove(g_context.dataList, i - 1);
2582         if (removedData)
2583         {
2584             // destroy memory
2585             if (removedData->sentData)
2586             {
2587                 CADestroyDataSet(removedData->sentData);
2588             }
2589             CADestroyBlockID(removedData->blockDataId);
2590             OICFree(removedData->payload);
2591             OICFree(removedData);
2592         }
2593     }
2594     ca_mutex_unlock(g_context.blockDataListMutex);
2595
2596     return CA_STATUS_OK;
2597 }
2598
2599 void CADestroyDataSet(CAData_t* data)
2600 {
2601     VERIFY_NON_NULL_VOID(data, TAG, "data");
2602
2603     CAFreeEndpoint(data->remoteEndpoint);
2604     CADestroyRequestInfoInternal(data->requestInfo);
2605     CADestroyResponseInfoInternal(data->responseInfo);
2606     OICFree(data);
2607 }
2608
2609 CABlockDataID_t* CACreateBlockDatablockId(const CAToken_t token, uint8_t tokenLength,
2610                                           uint16_t portNumber)
2611 {
2612     char port[PORT_LENGTH] = { 0, };
2613     port[0] = (char) ((portNumber >> 8) & 0xFF);
2614     port[1] = (char) (portNumber & 0xFF);
2615
2616     CABlockDataID_t* blockDataID = (CABlockDataID_t *) OICMalloc(sizeof(CABlockDataID_t));
2617     if (!blockDataID)
2618     {
2619         OIC_LOG(ERROR, TAG, "memory alloc has failed");
2620         return NULL;
2621     }
2622     blockDataID->idLength = tokenLength + sizeof(port);
2623     blockDataID->id = (uint8_t *) OICMalloc(blockDataID->idLength);
2624     if (!blockDataID->id)
2625     {
2626         OIC_LOG(ERROR, TAG, "memory alloc has failed");
2627         OICFree(blockDataID);
2628         return NULL;
2629     }
2630
2631     if (token)
2632     {
2633         memcpy(blockDataID->id, token, tokenLength);
2634     }
2635
2636     memcpy(blockDataID->id + tokenLength, port, sizeof(port));
2637
2638     OIC_LOG(DEBUG, TAG, "BlockID is ");
2639     OIC_LOG_BUFFER(DEBUG, TAG, (const uint8_t *)blockDataID->id, blockDataID->idLength);
2640
2641     return blockDataID;
2642 }
2643
2644 void CADestroyBlockID(CABlockDataID_t *blockID)
2645 {
2646     VERIFY_NON_NULL_VOID(blockID, TAG, "blockID");
2647     OICFree(blockID->id);
2648     OICFree(blockID);
2649     blockID = NULL;
2650 }
2651
2652 bool CABlockidMatches(const CABlockData_t *currData, const CABlockDataID_t *blockID)
2653 {
2654     VERIFY_NON_NULL_RET(currData, TAG, "currData", false);
2655     VERIFY_NON_NULL_RET(blockID, TAG, "blockID", false);
2656     VERIFY_NON_NULL_RET(blockID->id, TAG, "blockID->id", false);
2657
2658     if ((currData->blockDataId)
2659         && (currData->blockDataId->id)
2660         && (currData->blockDataId->idLength == blockID->idLength)
2661         && !memcmp(currData->blockDataId->id, blockID->id, currData->blockDataId->idLength))
2662     {
2663         return true;
2664     }
2665     return false;
2666 }
2667
2668 void CALogBlockInfo(coap_block_t *block)
2669 {
2670     VERIFY_NON_NULL_VOID(block, TAG, "block");
2671
2672     OIC_LOG(DEBUG, TAG, "block option info");
2673
2674     OIC_LOG_V(DEBUG, TAG, "block option-num : %d", block->num);
2675
2676     OIC_LOG_V(DEBUG, TAG, "block option-m   : %d", block->m);
2677
2678     OIC_LOG_V(DEBUG, TAG, "block option-szx : %d", block->szx);
2679 }
2680
2681 CAResult_t CARemoveBlockDataFromListWithSeed(const CAToken_t token, uint8_t tokenLength,
2682                                              uint16_t portNumber)
2683 {
2684     CABlockDataID_t* blockDataID = CACreateBlockDatablockId(token, tokenLength, portNumber);
2685     if (NULL == blockDataID || blockDataID->idLength < 1)
2686     {
2687         OIC_LOG(ERROR, TAG, "blockId is null");
2688         CADestroyBlockID(blockDataID);
2689         return CA_STATUS_FAILED;
2690     }
2691
2692     CAResult_t res = CA_STATUS_OK;
2693
2694     if (NULL != CAGetBlockDataFromBlockDataList(blockDataID))
2695     {
2696         res = CARemoveBlockDataFromList(blockDataID);
2697         if (CA_STATUS_OK != res)
2698         {
2699             OIC_LOG(ERROR, TAG, "CARemoveBlockDataFromList failed");
2700         }
2701     }
2702
2703     CADestroyBlockID(blockDataID);
2704
2705     return res;
2706 }