diff options
author | Romain Forlot <romain.forlot@iot.bzh> | 2017-02-02 22:43:17 +0000 |
---|---|---|
committer | Romain Forlot <romain.forlot@iot.bzh> | 2017-02-02 22:43:17 +0000 |
commit | 4da559091678dddb4c0392459ce41f2fa0821f72 (patch) | |
tree | 6649f7d1c34cb062dcc8d177810e2ea39e04c4a5 /ll-can-binding.c | |
parent | dad2f99bbbea4ece13b0eaa2b4edeb37bb50c199 (diff) |
Adding header files to get implemented !
Change-Id: Ie4876b3c053988554a97868681b7b08f9c486111
Signed-off-by: Romain Forlot <romain.forlot@iot.bzh>
Diffstat (limited to 'll-can-binding.c')
-rw-r--r-- | ll-can-binding.c | 660 |
1 files changed, 0 insertions, 660 deletions
diff --git a/ll-can-binding.c b/ll-can-binding.c deleted file mode 100644 index 8f96d7b4..00000000 --- a/ll-can-binding.c +++ /dev/null @@ -1,660 +0,0 @@ -/* - * Copyright (C) 2015, 2016 "IoT.bzh" - * Author "Romain Forlot" <romain.forlot@iot.bzh> - * - * Licensed under the Apache License, Version 2.0 (the "License"); - * you may not use this file except in compliance with the License. - * You may obtain a copy of the License at - * - * http://www.apache.org/licenses/LICENSE-2.0 - * - * Unless required by applicable law or agreed to in writing, software - * distributed under the License is distributed on an "AS IS" BASIS, - * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - * See the License for the specific language governing permissions and - * limitations under the License. - */ - -#define _GNU_SOURCE - -#include <string.h> -#include <stdbool.h> -#include <unistd.h> -#include <sys/types.h> -#include <sys/socket.h> -#include <sys/ioctl.h> -#include <net/if.h> -#include <sys/time.h> -#include <linux/can.h> -#include <linux/can/raw.h> -#include <math.h> -#include <fcntl.h> -#include <systemd/sd-event.h> -#include <errno.h> - -#include <json-c/json.h> -#include <openxc.pb.h> - -#include <afb/afb-binding.h> -#include <afb/afb-service-itf.h> - -#include "ll-can-binding.h" -#include "obd2.h" - -/*************************************************************************/ -/*************************************************************************/ -/** **/ -/** **/ -/** SECTION: UTILITY FUNCTIONS **/ -/** **/ -/** **/ -/*************************************************************************/ -/*************************************************************************/ - -/* - * Retry a function 3 times - * - * param int function(): function that return an int wihtout any parameter - * - * return : 0 if ok, -1 if failed - * - */ -static int retry( int(*func)()) -{ - int i; - - for (i=0;i<4;i++) - { - if ( (*func)() >= 0) - { - return 0; - } - usleep(100000); - } - return -1; -} - -/* - * Test that socket is really opened - * - * param - * - * return : 0 or positive int if ok, negative value if failed - * - */ -static int socket_test() -{ - if (can_handler.socket < 0) - { - return -1; - } - return 0; -} - -/* - * Browse chained list and return the one with specified id - * - * param uint32_t id : can arbitration identifier - * - * return can_event - */ -static can_event *get_event_list_of_id(uint32_t id) -{ - can_event *current; - - /* create and return if lists not exists */ - if (!can_events_list) - { - can_events_list = (can_event*)calloc(1, sizeof(can_event)); - can_events_list->id = id; - return can_events_list; - } - - /* search for id */ - current = can_events_list; - while(current) - { - if (current->id == id) - return current; - if (!current->next) - { - current->next = (can_event*)calloc(1, sizeof(can_event)); - current->next->id = id; - return current->next; - } - current = current->next; - } - - return NULL; -} - -/* - * Take an id and return it into a char array - */ -static char* create_name(uint32_t id) -{ - char name[32]; - size_t nchar; - - nchar = (size_t)sprintf(name, "can_%u", id); - if (nchar > 0) - { - char *result = (char*)malloc(nchar + 1); - memcpy(result, name, nchar); - result[nchar] = 0; - return result; - } - - return NULL; -} - -/* - * Create json object that will be pushed through event_loop to any subscriber - * - * param : openxc_CanMessage structure complete with data to put into json - * object. - * - * return : json object - */ -static json_object* create_json_from_openxc_CanMessage(event *event) -{ - struct json_object *json; - - /* - * TODO: process the openxc_CanMessage struct. Should be a call to a - * decoder function relative to that msg - - openxc_CanMessage can_message; - can_message = event->can_message; - */ - - json = json_object_new_object(); - json_object_object_add(json, "name", json_object_new_string(event->name)); - - return json; -} - -/*************************************************************************/ -/*************************************************************************/ -/** **/ -/** **/ -/** SECTION: HANDLE CAN DEVICE **/ -/** **/ -/** **/ -/*************************************************************************/ -/*************************************************************************/ -/* - * open the can socket - */ -static int open_can_dev() -{ - const int canfd_on = 1; - struct ifreq ifr; - struct timeval timeout = {1,0}; - - DEBUG(interface, "open_can_dev: CAN Handler socket : %d", can_handler.socket); - if (can_handler.socket >= 0) - close(can_handler.socket); - - can_handler.socket = socket(PF_CAN, SOCK_RAW, CAN_RAW); - if (can_handler.socket < 0) - { - ERROR(interface, "open_can_dev: socket could not be created"); - } - else - { - /* Set timeout for read */ - setsockopt(can_handler.socket, SOL_SOCKET, SO_RCVTIMEO, (char *)&timeout, sizeof(timeout)); - /* try to switch the socket into CAN_FD mode */ - if (setsockopt(can_handler.socket, SOL_CAN_RAW, CAN_RAW_FD_FRAMES, &canfd_on, sizeof(canfd_on)) < 0) - { - NOTICE(interface, "open_can_dev: Can not switch into CAN Extended frame format."); - can_handler.is_fdmode_on = false; - } else { - can_handler.is_fdmode_on = true; - } - - /* Attempts to open a socket to CAN bus */ - strcpy(ifr.ifr_name, can_handler.device); - if(ioctl(can_handler.socket, SIOCGIFINDEX, &ifr) < 0) - ERROR(interface, "open_can_dev: ioctl failed"); - else - { - can_handler.txAddress.can_family = AF_CAN; - can_handler.txAddress.can_ifindex = ifr.ifr_ifindex; - - /* And bind it to txAddress */ - if (bind(can_handler.socket, (struct sockaddr *)&can_handler.txAddress, sizeof(can_handler.txAddress)) < 0) - { - ERROR(interface, "open_can_dev: bind failed"); - } - else - { - fcntl(can_handler.socket, F_SETFL, O_NONBLOCK); - return 0; - } - } - close(can_handler.socket); - can_handler.socket = -1; - } - return -1; -} - -/* - * TODO : test that socket is really opened - */ -static int write_can() -{ - ssize_t nbytes; - int rc; - - rc = can_handler.socket; - if (rc >= 0) - { -/* - * TODO change old hvac write can frame to generic on_event - */ - nbytes = sendto(can_handler.socket, &canfd_frame, sizeof(struct canfd_frame), 0, - (struct sockaddr*)&can_handler.txAddress, sizeof(can_handler.txAddress)); - if (nbytes < 0) - { - ERROR(interface, "write_can: Sending CAN frame failed."); - } - } - else - { - ERROR(interface, "write_can: socket not initialized. Attempt to reopen can device socket."); - retry(open_can_dev); - } - return rc; -} - -/* - * Parse the CAN frame data payload as a CAN packet - * TODO: parse as an OpenXC Can Message. Don't translate as ASCII and put bytes - * directly into openxc_CanMessage - */ -static int parse_can_frame(openxc_CanMessage *can_message, struct canfd_frame *canfd_frame, int maxdlen) -{ - int i, len; - //size_t n_msg; - - len = (canfd_frame->len > maxdlen) ? maxdlen : canfd_frame->len; - - can_message->has_id = true; - if (canfd_frame->can_id & CAN_ERR_FLAG) - can_message->id = canfd_frame->can_id & (CAN_ERR_MASK|CAN_ERR_FLAG); - else if (canfd_frame->can_id & CAN_EFF_FLAG) - { - can_message->has_frame_format = true; - can_message->frame_format = openxc_CanMessage_FrameFormat_EXTENDED; - can_message->id = canfd_frame->can_id & CAN_EFF_MASK; - } else - { - can_message->has_frame_format = true; - can_message->frame_format = openxc_CanMessage_FrameFormat_STANDARD; - can_message->id = canfd_frame->can_id & CAN_SFF_MASK; - } - - /* Don't know what to do with that for now as we haven't - * len fields in openxc_CanMessage struct - - * standard CAN frames may have RTR enabled. There are no ERR frames with RTR - if (maxdlen == CAN_MAX_DLEN && canfd_frame->can_id & CAN_RTR_FLAG) - { - // print a given CAN 2.0B DLC if it's not zero - if (canfd_frame->len && canfd_frame->len <= CAN_MAX_DLC) - buf[offset++] = hex_asc_upper[canfd_frame->len & 0xF]; - - buf[offset] = 0; - return NULL; - } - */ - - /* Doesn't handle real canfd_frame for now - if (maxdlen == CANFD_MAX_DLEN) - { - // add CAN FD specific escape char and flags - canfd_frame->flags & 0xF; - } */ - - if (sizeof(canfd_frame->data) <= sizeof(can_message->data.bytes)) - { - for (i = 0; i < len; i++) - can_message->data.bytes[i] = canfd_frame->data[i]; - return 0; - } else if (sizeof(canfd_frame->data) <= CAN_MAX_DLEN) - { - ERROR(interface, "parse_can_frame: can_frame data too long to be stored into openxc_CanMessage data field"); - return -1; - /* TODO create as many as needed openxc_CanMessage into an array to store all data from canfd_frame - n_msg = CAN_MAX_DLEN / sizeof(canfd_frame->data.bytes); - for (i = 0; i < len; i++) - can_message->data.bytes[i] = canfd_frame->data[i]; */ - } else - { - ERROR(interface, "parse_can_frame: can_frame is really too long here. Size of data greater than canfd maximum 64bytes size. Is it a CAN message ?"); - return -2; - } - - /* You should not reach this return statement */ - return -3; -} - - -/* - * Read on CAN bus and return how much bytes has been read. - */ -static int read_can(openxc_CanMessage *can_message) -{ - ssize_t nbytes; - int maxdlen; - - /* Test that socket is really opened */ - if ( socket_test() < 0) - { - if (retry(open_can_dev) < 0) - { - ERROR(interface, "read_can: Socket unavailable"); - return -1; - } - } - - nbytes = read(can_handler.socket, &canfd_frame, CANFD_MTU); - - if (nbytes == CANFD_MTU) - { - DEBUG(interface, "read_can: Got an CAN FD frame with length %d", canfd_frame.len); - } - else if (nbytes == CAN_MTU) - { - DEBUG(interface, "read_can: Got a legacy CAN frame with length %d", canfd_frame.len); - } - else - { - if (errno == ENETDOWN) - ERROR(interface, "read_can: %s interface down", can_handler.device); - ERROR(interface, "read_can: Error reading CAN bus"); - return -2; - } - - /* CAN frame integrity check */ - if ((size_t)nbytes == CAN_MTU) - maxdlen = CAN_MAX_DLEN; - else if ((size_t)nbytes == CANFD_MTU) - maxdlen = CANFD_MAX_DLEN; - else - { - ERROR(interface, "read_can: CAN frame incomplete"); - return -3; - } - - if (parse_can_frame(can_message, &canfd_frame, maxdlen)) - { - ERROR(interface, "read_can: Can't parse the can frame. ID: %i, DLC: %i, DATA: %s", - canfd_frame.can_id, canfd_frame.len, canfd_frame.data); - return -4; - } - - return 0; -} -/*************************************************************************/ -/*************************************************************************/ -/** **/ -/** **/ -/** SECTION: MANAGING EVENTS **/ -/** **/ -/** **/ -/*************************************************************************/ -/*************************************************************************/ -static int on_event(sd_event_source *s, int fd, uint32_t revents, void *userdata); - -/* - * Get the event loop running. - * Will trigger on_event function on EPOLLIN event on socket - * - * Return 0 or positive value on success. Else negative value for failure. - */ -static int connect_to_event_loop() -{ - sd_event *event_loop; - sd_event_source *source; - int rc; - - if (can_handler.socket < 0) - { - return can_handler.socket; - } - - event_loop = afb_daemon_get_event_loop(interface->daemon); - rc = sd_event_add_io(event_loop, &source, can_handler.socket, EPOLLIN, on_event, NULL); - if (rc < 0) - { - close(can_handler.socket); - ERROR(interface, "Can't connect CAN bus %s to the event loop", can_handler.device); - } else - { - NOTICE(interface, "Connected CAN bus %s to the event loop", can_handler.device); - } - - return rc; -} -/* - * Send all events - */ -static void send_event() -{ - can_event *current; - event *events; - json_object *object; - - /* Browse can_events */ - current = can_events_list; - while(current) - { - /* Browse event for each can_events no matter what the id */ - events = current->events; - while(events) - { - object = create_json_from_openxc_CanMessage(events); - afb_event_push(events->afb_event, object); - events = events->next; - } - current = current->next; - } -} - -/* - * called on an event on the CAN bus - */ -static int on_event(sd_event_source *s, int fd, uint32_t revents, void *userdata) -{ - openxc_CanMessage can_message; - - can_message = openxc_CanMessage_init_default; - - /* read available data */ - if ((revents & EPOLLIN) != 0) - { - read_can(&can_message); - send_event(); - } - - /* check if error or hangup */ - if ((revents & (EPOLLERR|EPOLLRDHUP|EPOLLHUP)) != 0) - { - sd_event_source_unref(s); - close(fd); - connect_to_event_loop(); - } - - return 0; -} - -/* - * get or create an event handler for the type - */ -static event *get_event(uint32_t id, enum type type) -{ - event *event_elt; - can_event *list; - - /* find the can list by id */ - list = get_event_list_of_id(id); - - /* make the new event */ - event_elt = (event*)calloc(1, sizeof(event)); - event_elt->next = event_elt; - list->events = event_elt; - event_elt->name = create_name(id); - event_elt->afb_event = afb_daemon_make_event(interface->daemon, event_elt->name); - - return event_elt; -} - -/*************************************************************************/ -/*************************************************************************/ -/** **/ -/** **/ -/** SECTION: BINDING VERBS IMPLEMENTATION **/ -/** **/ -/** **/ -/*************************************************************************/ -/*************************************************************************/ -/* - * Returns the type corresponding to the given name - */ -static enum type type_of_name(const char *name) -{ - enum type result; - if (name == NULL) - return type_DEFAULT; - for (result = 0 ; (size_t)result < type_size; result++) - if (strcmp(type_NAMES[result], name) == 0) - return result; - return type_INVALID; -} - -/* - * extract a valid type from the request - */ -static int get_type_for_req(struct afb_req req, enum type *type) -{ - if ((*type = type_of_name(afb_req_value(req, "type"))) != type_INVALID) - return 1; - afb_req_fail(req, "unknown-type", NULL); - return 0; -} - -static int subscribe_unsubscribe_sig(struct afb_req request, int subscribe, struct signal *sig) -{ - if (!afb_event_is_valid(sig->event)) { - if (!subscribe) - return 1; - sig->event = afb_daemon_make_event(afbitf->daemon, sig->name); - if (!afb_event_is_valid(sig->event)) { - return 0; - } - } - - if (((subscribe ? afb_req_subscribe : afb_req_unsubscribe)(request, sig->event)) < 0) { - return 0; - } - - return 1; -} - -static int subscribe_unsubscribe_all(struct afb_req request, int subscribe) -{ - int i, n, e; - - n = sizeof OBD2_PIDS / sizeof * OBD2_PIDS; - e = 0; - for (i = 0 ; i < n ; i++) - e += !subscribe_unsubscribe_sig(request, subscribe, &OBD2_PIDS[i]); - return e == 0; -} - -static int subscribe_unsubscribe_name(struct afb_req request, int subscribe, const char *name) -{ - struct signal *sig; - - if (0 == strcmp(name, "*")) - return subscribe_unsubscribe_all(request, subscribe); - - sig = getsig(name); - if (sig == NULL) { - return 0; - } - - return subscribe_unsubscribe_sig(request, subscribe, sig); -} - -static void subscribe_unsubscribe(struct afb_req request, int subscribe) -{ - int ok, i, n; - struct json_object *args, *a, *x; - - /* makes the subscription/unsubscription */ - args = afb_req_json(request); - if (args == NULL || !json_object_object_get_ex(args, "event", &a)) { - ok = subscribe_unsubscribe_all(request, subscribe); - } else if (json_object_get_type(a) != json_type_array) { - ok = subscribe_unsubscribe_name(request, subscribe, json_object_get_string(a)); - } else { - n = json_object_array_length(a); - ok = 0; - for (i = 0 ; i < n ; i++) { - x = json_object_array_get_idx(a, i); - if (subscribe_unsubscribe_name(request, subscribe, json_object_get_string(x))) - ok++; - } - ok = (ok == n); - } - - /* send the report */ - if (ok) - afb_req_success(request, NULL, NULL); - else - afb_req_fail(request, "error", NULL); -} - -static void subscribe(struct afb_req request) -{ - subscribe_unsubscribe(request, 1); -} - -static void unsubscribe(struct afb_req request) -{ - subscribe_unsubscribe(request, 0); -} - -static const struct afb_verb_desc_v1 verbs[]= -{ - { .name= "subscribe", .session= AFB_SESSION_NONE, .callback= subscribe, .info= "subscribe to notification of CAN bus messages." }, - { .name= "unsubscribe", .session= AFB_SESSION_NONE, .callback= unsubscribe, .info= "unsubscribe a previous subscription." }, - {NULL} -}; - -static const struct afb_binding binding_desc = { - .type = AFB_BINDING_VERSION_1, - .v1 = { - .info = "CAN bus service", - .prefix = "can", - .verbs = verbs - } -}; - -const struct afb_binding *afbBindingV1Register (const struct afb_binding_interface *itf) -{ - interface = itf; - - return &binding_desc; -} - -int afbBindingV1ServiceInit(struct afb_service service) -{ - /* Open CAN socket */ - retry(open_can_dev); - return connect_to_event_loop(); -} |