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