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