pinebuds/services/ble_profiles/blp/blpc/src/blpc_task.c

544 lines
20 KiB
C
Raw Normal View History

2022-08-15 04:20:27 -05:00
/**
****************************************************************************************
* @addtogroup BLPCTASK
* @{
****************************************************************************************
*/
/*
* INCLUDE FILES
****************************************************************************************
*/
#include "rwip_config.h"
#if (BLE_BP_COLLECTOR)
#include "co_utils.h"
#include "blpc_task.h"
#include "blpc.h"
#include "gap.h"
#include "att.h"
#include "gattc_task.h"
#include "gapc_task.h"
#include "ke_mem.h"
/*
* DEFINES
****************************************************************************************
*/
/// State machine used to retrieve blood pressure service characteristics information
const struct prf_char_def blpc_bps_char[BLPC_CHAR_MAX] =
{
/// Blood Pressure Measurement
[BLPC_CHAR_BP_MEAS] = {ATT_CHAR_BLOOD_PRESSURE_MEAS,
ATT_MANDATORY,
ATT_CHAR_PROP_IND},
/// Intermediate Cuff pressure
[BLPC_CHAR_CP_MEAS] = {ATT_CHAR_INTERMEDIATE_CUFF_PRESSURE,
ATT_OPTIONAL,
ATT_CHAR_PROP_NTF},
/// Blood Pressure Feature
[BLPC_CHAR_BP_FEATURE] = {ATT_CHAR_BLOOD_PRESSURE_FEATURE,
ATT_MANDATORY,
ATT_CHAR_PROP_RD},
};
/// State machine used to retrieve blood pressure service characteristic description information
const struct prf_char_desc_def blpc_bps_char_desc[BLPC_DESC_MAX] =
{
/// Blood Pressure Measurement client config
[BLPC_DESC_BP_MEAS_CLI_CFG] = {ATT_DESC_CLIENT_CHAR_CFG, ATT_MANDATORY, BLPC_CHAR_BP_MEAS},
/// Intermediate Cuff pressure client config
[BLPC_DESC_IC_MEAS_CLI_CFG] = {ATT_DESC_CLIENT_CHAR_CFG, ATT_MANDATORY, BLPC_CHAR_CP_MEAS},
};
/*
* LOCAL FUNCTIONS DEFINITIONS
****************************************************************************************
*/
/**
****************************************************************************************
* @brief Handles reception of the @ref GATTC_SDP_SVC_IND_HANDLER message.
* The handler stores the found service details for service discovery.
* @param[in] msgid Id of the message received (probably unused).
* @param[in] param Pointer to the parameters of the message.
* @param[in] dest_id ID of the receiving task instance (probably unused).
* @param[in] src_id ID of the sending task instance.
* @return If the message was consumed or not.
****************************************************************************************
*/
__STATIC int gattc_sdp_svc_ind_handler(ke_msg_id_t const msgid,
struct gattc_sdp_svc_ind const *ind,
ke_task_id_t const dest_id,
ke_task_id_t const src_id)
{
uint8_t state = ke_state_get(dest_id);
if(state == BLPC_DISCOVERING)
{
uint8_t conidx = KE_IDX_GET(dest_id);
struct blpc_env_tag *blpc_env = PRF_ENV_GET(BLPC, blpc);
ASSERT_INFO(blpc_env != NULL, dest_id, src_id);
ASSERT_INFO(blpc_env->env[conidx] != NULL, dest_id, src_id);
if(blpc_env->env[conidx]->nb_svc == 0)
{
// Retrieve BLS characteristics and descriptors
prf_extract_svc_info(ind, BLPC_CHAR_MAX, &blpc_bps_char[0], &blpc_env->env[conidx]->bps.chars[0],
BLPC_DESC_MAX, &blpc_bps_char_desc[0], &blpc_env->env[conidx]->bps.descs[0]);
//Even if we get multiple responses we only store 1 range
blpc_env->env[conidx]->bps.svc.shdl = ind->start_hdl;
blpc_env->env[conidx]->bps.svc.ehdl = ind->end_hdl;
}
blpc_env->env[conidx]->nb_svc++;
}
return (KE_MSG_CONSUMED);
}
/**
****************************************************************************************
* @brief Handles reception of the @ref BLPC_ENABLE_REQ message.
* The handler enables the Blood Pressure Profile Collector Role.
* @param[in] msgid Id of the message received (probably unused).
* @param[in] param Pointer to the parameters of the message.
* @param[in] dest_id ID of the receiving task instance (probably unused).
* @param[in] src_id ID of the sending task instance.
* @return If the message was consumed or not.
****************************************************************************************
*/
__STATIC int blpc_enable_req_handler(ke_msg_id_t const msgid,
struct blpc_enable_req const *param,
ke_task_id_t const dest_id,
ke_task_id_t const src_id)
{
// Status
uint8_t status = GAP_ERR_NO_ERROR;
// Get connection index
uint8_t conidx = KE_IDX_GET(dest_id);
// Get state
uint8_t state = ke_state_get(dest_id);
// Blood pressure Client Role Task Environment
struct blpc_env_tag *blpc_env = PRF_ENV_GET(BLPC, blpc);
ASSERT_INFO(blpc_env != NULL, dest_id, src_id);
if((state == BLPC_IDLE) && (blpc_env->env[conidx] == NULL))
{
// allocate environment variable for task instance
blpc_env->env[conidx] = (struct blpc_cnx_env*) ke_malloc(sizeof(struct blpc_cnx_env),KE_MEM_ATT_DB);
memset(blpc_env->env[conidx], 0, sizeof(struct blpc_cnx_env));
//Config connection, start discovering
if(param->con_type == PRF_CON_DISCOVERY)
{
//start discovering BPS on peer
prf_disc_svc_send(&(blpc_env->prf_env), conidx, ATT_SVC_BLOOD_PRESSURE);
blpc_env->env[conidx]->last_uuid_req = ATT_SVC_BLOOD_PRESSURE;
// Go to DISCOVERING state
ke_state_set(dest_id, BLPC_DISCOVERING);
}
//normal connection, get saved att details
else
{
blpc_env->env[conidx]->bps = param->bps;
//send APP confirmation that can start normal connection to TH
blpc_enable_rsp_send(blpc_env, conidx, GAP_ERR_NO_ERROR);
}
}
else if(state != BLPC_FREE)
{
status = PRF_ERR_REQ_DISALLOWED;
}
// send an error if request fails
if(status != GAP_ERR_NO_ERROR)
{
blpc_enable_rsp_send(blpc_env, conidx, status);
}
return (KE_MSG_CONSUMED);
}
/**
****************************************************************************************
* @brief Handles reception of the @ref GATTC_CMP_EVT message.
* This generic event is received for different requests, so need to keep track.
* @param[in] msgid Id of the message received (probably unused).
* @param[in] param Pointer to the parameters of the message.
* @param[in] dest_id ID of the receiving task instance (probably unused).
* @param[in] src_id ID of the sending task instance.
* @return If the message was consumed or not.
****************************************************************************************
*/
__STATIC int gattc_cmp_evt_handler(ke_msg_id_t const msgid,
struct gattc_cmp_evt const *param,
ke_task_id_t const dest_id,
ke_task_id_t const src_id)
{
// Get the address of the environment
struct blpc_env_tag *blpc_env = PRF_ENV_GET(BLPC, blpc);
// Status
uint8_t status;
if (blpc_env != NULL)
{
uint8_t conidx = KE_IDX_GET(dest_id);
uint8_t state = ke_state_get(dest_id);
if(state == BLPC_DISCOVERING)
{
status = param->status;
if ((status == ATT_ERR_ATTRIBUTE_NOT_FOUND)||
(status == ATT_ERR_NO_ERROR))
{
// Discovery
// check characteristic validity
if(blpc_env->env[conidx]->nb_svc == 1)
{
status = prf_check_svc_char_validity(BLPC_CHAR_MAX,
blpc_env->env[conidx]->bps.chars,
blpc_bps_char);
}
// too much services
else if (blpc_env->env[conidx]->nb_svc > 1)
{
status = PRF_ERR_MULTIPLE_SVC;
}
// no services found
else
{
status = PRF_ERR_STOP_DISC_CHAR_MISSING;
}
// check descriptor validity
if (status == GAP_ERR_NO_ERROR)
{
status = prf_check_svc_char_desc_validity(BLPC_DESC_MAX,
blpc_env->env[conidx]->bps.descs,
blpc_bps_char_desc,
blpc_env->env[conidx]->bps.chars);
}
}
blpc_enable_rsp_send(blpc_env, conidx, status);
}
else if(BLPC_BUSY)
{
switch(param->operation)
{
case GATTC_WRITE:
case GATTC_WRITE_NO_RESPONSE:
{
struct blpc_cfg_indntf_rsp *wr_cfm = KE_MSG_ALLOC(
BLPC_CFG_INDNTF_RSP,
prf_dst_task_get(&(blpc_env->prf_env), conidx),
prf_src_task_get(&(blpc_env->prf_env), conidx),
blpc_cfg_indntf_rsp);
//it will be a GATT status code
wr_cfm->status = param->status;
// send the message
ke_msg_send(wr_cfm);
}
break;
case GATTC_READ:
{
if(param->status != GAP_ERR_NO_ERROR)
{
prf_client_att_info_rsp(
(prf_env_t*) blpc_env->env[conidx],
conidx, BLPC_RD_CHAR_RSP,
param->status, NULL);
}
}
break;
default: break;
}
ke_state_set(prf_src_task_get(&blpc_env->prf_env, conidx), BLPC_IDLE);
}
}
return (KE_MSG_CONSUMED);
}
/**
****************************************************************************************
* @brief Handles reception of the @ref BLPC_RD_CHAR_REQ message.
* Check if the handle exists in profile(already discovered) and send request, otherwise
* error to APP.
* @param[in] msgid Id of the message received (probably unused).
* @param[in] param Pointer to the parameters of the message.
* @param[in] dest_id ID of the receiving task instance (probably unused).
* @param[in] src_id ID of the sending task instance.
* @return If the message was consumed or not.
****************************************************************************************
*/
__STATIC int blpc_rd_char_req_handler(ke_msg_id_t const msgid,
struct blpc_rd_char_req const *param,
ke_task_id_t const dest_id,
ke_task_id_t const src_id)
{
uint8_t state = ke_state_get(dest_id);
uint8_t status = PRF_ERR_REQ_DISALLOWED;
// Get the address of the environment
struct blpc_env_tag *blpc_env = PRF_ENV_GET(BLPC, blpc);
// Get connection index
uint8_t conidx = KE_IDX_GET(dest_id);
if((state == BLPC_IDLE) && (blpc_env->env[conidx] != NULL))
{
uint16_t search_hdl = ATT_INVALID_SEARCH_HANDLE;
if((param->char_code & BLPC_DESC_MASK) == BLPC_DESC_MASK)
{
search_hdl = blpc_env->env[conidx]->bps.descs[param->char_code & ~BLPC_DESC_MASK].desc_hdl;
}
else
{
search_hdl = blpc_env->env[conidx]->bps.chars[param->char_code].val_hdl;
}
//check if handle is viable
if (search_hdl != ATT_INVALID_SEARCH_HANDLE)
{
prf_read_char_send(
&(blpc_env->prf_env), conidx,
blpc_env->env[conidx]->bps.svc.shdl,
blpc_env->env[conidx]->bps.svc.ehdl,
search_hdl);
status = GAP_ERR_NO_ERROR;
}
else
{
status = PRF_ERR_INEXISTENT_HDL;
}
}
if (status != GAP_ERR_NO_ERROR)
{
prf_client_att_info_rsp(
(prf_env_t*) blpc_env->env[conidx],
conidx, BLPC_RD_CHAR_RSP,
status, NULL);
}
return (KE_MSG_CONSUMED);
}
/**
****************************************************************************************
* @brief Handles reception of the @ref GATTC_READ_IND message.
* Generic event received after every simple read command sent to peer server.
* @param[in] msgid Id of the message received (probably unused).
* @param[in] param Pointer to the parameters of the message.
* @param[in] dest_id ID of the receiving task instance (probably unused).
* @param[in] src_id ID of the sending task instance.
* @return If the message was consumed or not.
****************************************************************************************
*/
__STATIC int gattc_read_ind_handler(ke_msg_id_t const msgid,
struct gattc_read_ind const *param,
ke_task_id_t const dest_id,
ke_task_id_t const src_id)
{
// Get the address of the environment
struct blpc_env_tag *blpc_env = PRF_ENV_GET(BLPC, blpc);
// Get connection index
uint8_t conidx = KE_IDX_GET(dest_id);
prf_client_att_info_rsp(&blpc_env->prf_env, conidx, BLPC_RD_CHAR_RSP,
GAP_ERR_NO_ERROR, param);
return (KE_MSG_CONSUMED);
}
/**
****************************************************************************************
* @brief Handles reception of the @ref BLPC_CFG_INDNTF_REQ message.
* It allows configuration of the peer ind/ntf/stop characteristic for a specified characteristic.
* Will return an error code if that cfg char does not exist.
* @param[in] msgid Id of the message received (probably unused).
* @param[in] param Pointer to the parameters of the message.
* @param[in] dest_id ID of the receiving task instance (probably unused).
* @param[in] src_id ID of the sending task instance.
* @return If the message was consumed or not.
****************************************************************************************
*/
__STATIC int blpc_cfg_indntf_req_handler(ke_msg_id_t const msgid,
struct blpc_cfg_indntf_req const *param,
ke_task_id_t const dest_id,
ke_task_id_t const src_id)
{
uint16_t cfg_hdl = ATT_INVALID_SEARCH_HANDLE;
// Get the address of the environment
struct blpc_env_tag *blpc_env = PRF_ENV_GET(BLPC, blpc);
// Get connection index
uint8_t conidx = KE_IDX_GET(dest_id);
// Status
uint8_t status = PRF_ERR_REQ_DISALLOWED;
if((blpc_env->env[conidx] != NULL) && (ke_state_get(dest_id) == BLPC_IDLE))
{
status = PRF_ERR_INVALID_PARAM;
//get handle of the configuration characteristic to set and check if value matches property
switch(param->char_code)
{
case BLPC_CHAR_BP_MEAS://can only IND
{
if((param->cfg_val == PRF_CLI_STOP_NTFIND)||
(param->cfg_val == PRF_CLI_START_IND))
{
cfg_hdl = blpc_env->env[conidx]->bps.descs[BLPC_DESC_BP_MEAS_CLI_CFG].desc_hdl;
}
}break;
case BLPC_CHAR_CP_MEAS://can only NTF
{
if((param->cfg_val == PRF_CLI_STOP_NTFIND)||
(param->cfg_val == PRF_CLI_START_NTF))
{
cfg_hdl = blpc_env->env[conidx]->bps.descs[BLPC_DESC_IC_MEAS_CLI_CFG].desc_hdl;
}
}break;
default:
{
status = PRF_ERR_INEXISTENT_HDL;
}break;
}
//check if the handle value exists
if (cfg_hdl != ATT_INVALID_SEARCH_HANDLE)
{
// Send GATT Write Request
prf_gatt_write_ntf_ind(&blpc_env->prf_env, conidx, cfg_hdl, param->cfg_val);
// Set status
status = GAP_ERR_NO_ERROR;
}
}
if (status != GAP_ERR_NO_ERROR)
{
struct blpc_cfg_indntf_rsp *rsp = KE_MSG_ALLOC(BLPC_CFG_INDNTF_RSP, src_id, dest_id, blpc_cfg_indntf_rsp);
// It will be an PRF status code
rsp->status = status;
// Send the message
ke_msg_send(rsp);
}
return (KE_MSG_CONSUMED);
}
/**
****************************************************************************************
* @brief Handles reception of the @ref GATTC_EVENT_IND message.
* @param[in] msgid Id of the message received (probably unused).
* @param[in] param Pointer to the parameters of the message.
* @param[in] dest_id ID of the receiving task instance (probably unused).
* @param[in] src_id ID of the sending task instance.
* @return If the message was consumed or not.
****************************************************************************************
*/
__STATIC int gattc_event_ind_handler(ke_msg_id_t const msgid,
struct gattc_event_ind const *param,
ke_task_id_t const dest_id,
ke_task_id_t const src_id)
{
uint8_t conidx = KE_IDX_GET(dest_id);
// Get the address of the environment
struct blpc_env_tag *blpc_env = PRF_ENV_GET(BLPC, blpc);
if(blpc_env->env[conidx] != NULL)
{
switch(param->type)
{
case GATTC_INDICATE:
{
// confirm that indication has been correctly received
struct gattc_event_cfm * cfm = KE_MSG_ALLOC(GATTC_EVENT_CFM, src_id, dest_id, gattc_event_cfm);
cfm->handle = param->handle;
ke_msg_send(cfm);
}
/* no break */
case GATTC_NOTIFY:
{
if((param->handle == blpc_env->env[conidx]->bps.chars[BLPC_CHAR_CP_MEAS].val_hdl)
|| ((param->handle == blpc_env->env[conidx]->bps.chars[BLPC_CHAR_BP_MEAS].val_hdl)))
{
//build a BLPC_BP_MEAD_IND message with stable blood pressure value code.
struct blpc_bp_meas_ind * ind = KE_MSG_ALLOC(
BLPC_BP_MEAS_IND,
prf_dst_task_get(&(blpc_env->prf_env), conidx),
prf_src_task_get(&(blpc_env->prf_env), conidx),
blpc_bp_meas_ind);
// Intermediate cuff pressure value
ind->flag_interm_cp = ((param->type == GATTC_NOTIFY) ? 0x01 : 0x00);
// unpack blood pressure measurement.
blpc_unpack_meas_value(&(ind->meas_val), (uint8_t*) param->value);
ke_msg_send(ind);
}
} break;
default: break;
}
}
return (KE_MSG_CONSUMED);
}
/*
* GLOBAL VARIABLE DEFINITIONS
****************************************************************************************
*/
/// Default State handlers definition
KE_MSG_HANDLER_TAB(blpc)
{
{GATTC_SDP_SVC_IND, (ke_msg_func_t)gattc_sdp_svc_ind_handler},
{BLPC_ENABLE_REQ, (ke_msg_func_t)blpc_enable_req_handler},
{GATTC_CMP_EVT, (ke_msg_func_t)gattc_cmp_evt_handler},
{BLPC_RD_CHAR_REQ, (ke_msg_func_t)blpc_rd_char_req_handler},
{GATTC_READ_IND, (ke_msg_func_t)gattc_read_ind_handler},
{GATTC_EVENT_IND, (ke_msg_func_t)gattc_event_ind_handler},
{GATTC_EVENT_REQ_IND, (ke_msg_func_t)gattc_event_ind_handler},
{BLPC_CFG_INDNTF_REQ, (ke_msg_func_t)blpc_cfg_indntf_req_handler},
};
void blpc_task_init(struct ke_task_desc *task_desc)
{
// Get the address of the environment
struct blpc_env_tag *blpc_env = PRF_ENV_GET(BLPC, blpc);
task_desc->msg_handler_tab = blpc_msg_handler_tab;
task_desc->msg_cnt = ARRAY_LEN(blpc_msg_handler_tab);
task_desc->state = blpc_env->state;
task_desc->idx_max = BLPC_IDX_MAX;
}
#endif /* (BLE_BP_COLLECTOR) */
/// @} BLPCTASK