| /* |
| * |
| * BlueZ - Bluetooth protocol stack for Linux |
| * |
| * Copyright (C) 2011-2012 Intel Corporation |
| * Copyright (C) 2004-2010 Marcel Holtmann <marcel@holtmann.org> |
| * |
| * |
| * This program is free software; you can redistribute it and/or modify |
| * it under the terms of the GNU General Public License as published by |
| * the Free Software Foundation; either version 2 of the License, or |
| * (at your option) any later version. |
| * |
| * This program is distributed in the hope that it will be useful, |
| * but WITHOUT ANY WARRANTY; without even the implied warranty of |
| * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| * GNU General Public License for more details. |
| * |
| * You should have received a copy of the GNU General Public License |
| * along with this program; if not, write to the Free Software |
| * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
| * |
| */ |
| |
| #ifdef HAVE_CONFIG_H |
| #include <config.h> |
| #endif |
| |
| #include <stdio.h> |
| #include <errno.h> |
| #include <fcntl.h> |
| #include <unistd.h> |
| #include <stdint.h> |
| #include <string.h> |
| #include <sys/stat.h> |
| #include <arpa/inet.h> |
| |
| #include <bluetooth/bluetooth.h> |
| #include <bluetooth/hci.h> |
| |
| #include "btsnoop.h" |
| |
| struct btsnoop_hdr { |
| uint8_t id[8]; /* Identification Pattern */ |
| uint32_t version; /* Version Number = 1 */ |
| uint32_t type; /* Datalink Type */ |
| } __attribute__ ((packed)); |
| #define BTSNOOP_HDR_SIZE (sizeof(struct btsnoop_hdr)) |
| |
| struct btsnoop_pkt { |
| uint32_t size; /* Original Length */ |
| uint32_t len; /* Included Length */ |
| uint32_t flags; /* Packet Flags */ |
| uint32_t drops; /* Cumulative Drops */ |
| uint64_t ts; /* Timestamp microseconds */ |
| uint8_t data[0]; /* Packet Data */ |
| } __attribute__ ((packed)); |
| #define BTSNOOP_PKT_SIZE (sizeof(struct btsnoop_pkt)) |
| |
| static const uint8_t btsnoop_id[] = { 0x62, 0x74, 0x73, 0x6e, |
| 0x6f, 0x6f, 0x70, 0x00 }; |
| |
| static const uint32_t btsnoop_version = 1; |
| static uint32_t btsnoop_type = 0; |
| |
| static int btsnoop_fd = -1; |
| static uint16_t btsnoop_index = 0xffff; |
| |
| void btsnoop_create(const char *path, uint32_t type) |
| { |
| struct btsnoop_hdr hdr; |
| ssize_t written; |
| |
| if (btsnoop_fd >= 0) |
| return; |
| |
| btsnoop_fd = open(path, O_WRONLY | O_CREAT | O_TRUNC | O_CLOEXEC, |
| S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH); |
| if (btsnoop_fd < 0) |
| return; |
| |
| btsnoop_type = type; |
| |
| memcpy(hdr.id, btsnoop_id, sizeof(btsnoop_id)); |
| hdr.version = htobe32(btsnoop_version); |
| hdr.type = htobe32(btsnoop_type); |
| |
| written = write(btsnoop_fd, &hdr, BTSNOOP_HDR_SIZE); |
| if (written < 0) { |
| close(btsnoop_fd); |
| btsnoop_fd = -1; |
| return; |
| } |
| } |
| |
| void btsnoop_write(struct timeval *tv, uint32_t flags, |
| const void *data, uint16_t size) |
| { |
| struct btsnoop_pkt pkt; |
| uint64_t ts; |
| ssize_t written; |
| |
| ts = (tv->tv_sec - 946684800ll) * 1000000ll + tv->tv_usec; |
| |
| pkt.size = htobe32(size); |
| pkt.len = htobe32(size); |
| pkt.flags = htobe32(flags); |
| pkt.drops = htobe32(0); |
| pkt.ts = htobe64(ts + 0x00E03AB44A676000ll); |
| |
| written = write(btsnoop_fd, &pkt, BTSNOOP_PKT_SIZE); |
| if (written < 0) |
| return; |
| |
| if (data && size > 0) { |
| written = write(btsnoop_fd, data, size); |
| if (written < 0) |
| return; |
| } |
| } |
| |
| static uint32_t get_flags_from_opcode(uint16_t opcode) |
| { |
| switch (opcode) { |
| case BTSNOOP_OPCODE_NEW_INDEX: |
| case BTSNOOP_OPCODE_DEL_INDEX: |
| break; |
| case BTSNOOP_OPCODE_COMMAND_PKT: |
| return 0x02; |
| case BTSNOOP_OPCODE_EVENT_PKT: |
| return 0x03; |
| case BTSNOOP_OPCODE_ACL_TX_PKT: |
| return 0x00; |
| case BTSNOOP_OPCODE_ACL_RX_PKT: |
| return 0x01; |
| case BTSNOOP_OPCODE_SCO_TX_PKT: |
| case BTSNOOP_OPCODE_SCO_RX_PKT: |
| break; |
| } |
| |
| return 0xff; |
| } |
| |
| void btsnoop_write_hci(struct timeval *tv, uint16_t index, uint16_t opcode, |
| const void *data, uint16_t size) |
| { |
| uint32_t flags; |
| |
| if (!tv) |
| return; |
| |
| if (btsnoop_fd < 0) |
| return; |
| |
| switch (btsnoop_type) { |
| case BTSNOOP_TYPE_HCI: |
| if (btsnoop_index == 0xffff) |
| btsnoop_index = index; |
| |
| if (index != btsnoop_index) |
| return; |
| |
| flags = get_flags_from_opcode(opcode); |
| if (flags == 0xff) |
| return; |
| break; |
| |
| case BTSNOOP_TYPE_EXTENDED_HCI: |
| flags = (index << 16) | opcode; |
| break; |
| |
| default: |
| return; |
| } |
| |
| btsnoop_write(tv, flags, data, size); |
| } |
| |
| void btsnoop_write_phy(struct timeval *tv, uint16_t frequency, |
| const void *data, uint16_t size) |
| { |
| uint32_t flags; |
| |
| if (!tv) |
| return; |
| |
| if (btsnoop_fd < 0) |
| return; |
| |
| switch (btsnoop_type) { |
| case BTSNOOP_TYPE_EXTENDED_PHY: |
| flags = (1 << 16) | frequency; |
| break; |
| |
| default: |
| return; |
| } |
| |
| btsnoop_write(tv, flags, data, size); |
| } |
| |
| int btsnoop_open(const char *path, uint32_t *type) |
| { |
| struct btsnoop_hdr hdr; |
| ssize_t len; |
| |
| if (btsnoop_fd >= 0) { |
| fprintf(stderr, "Too many open files\n"); |
| return -1; |
| } |
| |
| btsnoop_fd = open(path, O_RDONLY | O_CLOEXEC); |
| if (btsnoop_fd < 0) { |
| perror("Failed to open file"); |
| return -1; |
| } |
| |
| len = read(btsnoop_fd, &hdr, BTSNOOP_HDR_SIZE); |
| if (len < 0 || len != BTSNOOP_HDR_SIZE) { |
| perror("Failed to read header"); |
| close(btsnoop_fd); |
| btsnoop_fd = -1; |
| return -1; |
| } |
| |
| if (memcmp(hdr.id, btsnoop_id, sizeof(btsnoop_id))) { |
| fprintf(stderr, "Invalid btsnoop header\n"); |
| close(btsnoop_fd); |
| btsnoop_fd = -1; |
| return -1; |
| } |
| |
| if (be32toh(hdr.version) != btsnoop_version) { |
| fprintf(stderr, "Invalid btsnoop version\n"); |
| close(btsnoop_fd); |
| btsnoop_fd = -1; |
| return -1; |
| } |
| |
| btsnoop_type = be32toh(hdr.type); |
| |
| if (type) |
| *type = btsnoop_type; |
| |
| return 0; |
| } |
| |
| static uint16_t get_opcode_from_flags(uint8_t type, uint32_t flags) |
| { |
| switch (type) { |
| case HCI_COMMAND_PKT: |
| return BTSNOOP_OPCODE_COMMAND_PKT; |
| case HCI_ACLDATA_PKT: |
| if (flags & 0x01) |
| return BTSNOOP_OPCODE_ACL_RX_PKT; |
| else |
| return BTSNOOP_OPCODE_ACL_TX_PKT; |
| case HCI_SCODATA_PKT: |
| if (flags & 0x01) |
| return BTSNOOP_OPCODE_SCO_RX_PKT; |
| else |
| return BTSNOOP_OPCODE_SCO_TX_PKT; |
| case HCI_EVENT_PKT: |
| return BTSNOOP_OPCODE_EVENT_PKT; |
| case 0xff: |
| if (flags & 0x02) { |
| if (flags & 0x01) |
| return BTSNOOP_OPCODE_EVENT_PKT; |
| else |
| return BTSNOOP_OPCODE_COMMAND_PKT; |
| } else { |
| if (flags & 0x01) |
| return BTSNOOP_OPCODE_ACL_RX_PKT; |
| else |
| return BTSNOOP_OPCODE_ACL_TX_PKT; |
| } |
| break; |
| } |
| |
| return 0xff; |
| } |
| |
| int btsnoop_read_hci(struct timeval *tv, uint16_t *index, uint16_t *opcode, |
| void *data, uint16_t *size) |
| { |
| struct btsnoop_pkt pkt; |
| uint32_t toread, flags; |
| uint64_t ts; |
| uint8_t pkt_type; |
| ssize_t len; |
| |
| if (btsnoop_fd < 0) |
| return -1; |
| |
| len = read(btsnoop_fd, &pkt, BTSNOOP_PKT_SIZE); |
| if (len == 0) |
| return -1; |
| |
| if (len < 0 || len != BTSNOOP_PKT_SIZE) { |
| perror("Failed to read packet"); |
| close(btsnoop_fd); |
| btsnoop_fd = -1; |
| return -1; |
| } |
| |
| toread = be32toh(pkt.size); |
| flags = be32toh(pkt.flags); |
| |
| ts = be64toh(pkt.ts) - 0x00E03AB44A676000ll; |
| tv->tv_sec = (ts / 1000000ll) + 946684800ll; |
| tv->tv_usec = ts % 1000000ll; |
| |
| switch (btsnoop_type) { |
| case BTSNOOP_TYPE_HCI: |
| *index = 0; |
| *opcode = get_opcode_from_flags(0xff, flags); |
| break; |
| |
| case BTSNOOP_TYPE_UART: |
| len = read(btsnoop_fd, &pkt_type, 1); |
| if (len < 0) { |
| perror("Failed to read packet type"); |
| close(btsnoop_fd); |
| btsnoop_fd = -1; |
| return -1; |
| } |
| toread--; |
| |
| *index = 0; |
| *opcode = get_opcode_from_flags(pkt_type, flags); |
| break; |
| |
| case BTSNOOP_TYPE_EXTENDED_HCI: |
| *index = flags >> 16; |
| *opcode = flags & 0xffff; |
| break; |
| |
| default: |
| fprintf(stderr, "Unknown packet type\n"); |
| close(btsnoop_fd); |
| btsnoop_fd = -1; |
| return -1; |
| } |
| |
| len = read(btsnoop_fd, data, toread); |
| if (len < 0) { |
| perror("Failed to read data"); |
| close(btsnoop_fd); |
| btsnoop_fd = -1; |
| return -1; |
| } |
| |
| *size = toread; |
| |
| return 0; |
| } |
| |
| int btsnoop_read_phy(struct timeval *tv, uint16_t *frequency, |
| void *data, uint16_t *size) |
| { |
| struct btsnoop_pkt pkt; |
| uint32_t toread, flags; |
| uint64_t ts; |
| ssize_t len; |
| |
| if (btsnoop_fd < 0) |
| return -1; |
| |
| len = read(btsnoop_fd, &pkt, BTSNOOP_PKT_SIZE); |
| if (len == 0) |
| return -1; |
| |
| if (len < 0 || len != BTSNOOP_PKT_SIZE) { |
| perror("Failed to read packet"); |
| close(btsnoop_fd); |
| btsnoop_fd = -1; |
| return -1; |
| } |
| |
| toread = be32toh(pkt.size); |
| flags = be32toh(pkt.flags); |
| |
| ts = be64toh(pkt.ts) - 0x00E03AB44A676000ll; |
| tv->tv_sec = (ts / 1000000ll) + 946684800ll; |
| tv->tv_usec = ts % 1000000ll; |
| |
| switch (btsnoop_type) { |
| case BTSNOOP_TYPE_EXTENDED_PHY: |
| if ((flags >> 16) != 1) |
| break; |
| *frequency = flags & 0xffff; |
| break; |
| |
| default: |
| fprintf(stderr, "Unknown packet type\n"); |
| close(btsnoop_fd); |
| btsnoop_fd = -1; |
| return -1; |
| } |
| |
| len = read(btsnoop_fd, data, toread); |
| if (len < 0) { |
| perror("Failed to read data"); |
| close(btsnoop_fd); |
| btsnoop_fd = -1; |
| return -1; |
| } |
| |
| *size = toread; |
| |
| return 0; |
| } |
| |
| void btsnoop_close(void) |
| { |
| if (btsnoop_fd < 0) |
| return; |
| |
| close(btsnoop_fd); |
| btsnoop_fd = -1; |
| |
| btsnoop_index = 0xffff; |
| } |