From 014c5e340a74aa0a5f44d1c7334c691e519097dd Mon Sep 17 00:00:00 2001 From: NeilBrown Date: Fri, 25 Jan 2013 11:14:10 +1100 Subject: [PATCH] Add gta04-modem-messages from Neil Jerram --- gsm/gta04-modem-messages.c | 367 +++++++++++++++++++++++++++++++++++++ 1 file changed, 367 insertions(+) create mode 100644 gsm/gta04-modem-messages.c diff --git a/gsm/gta04-modem-messages.c b/gsm/gta04-modem-messages.c new file mode 100644 index 0000000..2813c5d --- /dev/null +++ b/gsm/gta04-modem-messages.c @@ -0,0 +1,367 @@ + +#include +#include +#include +#include +#include +#include +#include +#include + +/* Message levels. */ +#define ML_LOW 0 +#define ML_MED 1 +#define ML_HIGH 2 +#define ML_ERROR 3 +#define ML_FATAL 4 +#define ML_NONE 0xFF + +const char *ml_names[8] = + { + "LOW", + "MED", + "HIGH", + "ERROR", + "FATAL", + "NONE", + "NONE", + "NONE" + }; + +#define READ_MAX_RETRY 50 + +unsigned short ccitt_table[256] = + { + 0x0000, 0x1189, 0x2312, 0x329b, 0x4624, 0x57ad, 0x6536, 0x74bf, + 0x8c48, 0x9dc1, 0xaf5a, 0xbed3, 0xca6c, 0xdbe5, 0xe97e, 0xf8f7, + 0x1081, 0x0108, 0x3393, 0x221a, 0x56a5, 0x472c, 0x75b7, 0x643e, + 0x9cc9, 0x8d40, 0xbfdb, 0xae52, 0xdaed, 0xcb64, 0xf9ff, 0xe876, + 0x2102, 0x308b, 0x0210, 0x1399, 0x6726, 0x76af, 0x4434, 0x55bd, + 0xad4a, 0xbcc3, 0x8e58, 0x9fd1, 0xeb6e, 0xfae7, 0xc87c, 0xd9f5, + 0x3183, 0x200a, 0x1291, 0x0318, 0x77a7, 0x662e, 0x54b5, 0x453c, + 0xbdcb, 0xac42, 0x9ed9, 0x8f50, 0xfbef, 0xea66, 0xd8fd, 0xc974, + 0x4204, 0x538d, 0x6116, 0x709f, 0x0420, 0x15a9, 0x2732, 0x36bb, + 0xce4c, 0xdfc5, 0xed5e, 0xfcd7, 0x8868, 0x99e1, 0xab7a, 0xbaf3, + 0x5285, 0x430c, 0x7197, 0x601e, 0x14a1, 0x0528, 0x37b3, 0x263a, + 0xdecd, 0xcf44, 0xfddf, 0xec56, 0x98e9, 0x8960, 0xbbfb, 0xaa72, + 0x6306, 0x728f, 0x4014, 0x519d, 0x2522, 0x34ab, 0x0630, 0x17b9, + 0xef4e, 0xfec7, 0xcc5c, 0xddd5, 0xa96a, 0xb8e3, 0x8a78, 0x9bf1, + 0x7387, 0x620e, 0x5095, 0x411c, 0x35a3, 0x242a, 0x16b1, 0x0738, + 0xffcf, 0xee46, 0xdcdd, 0xcd54, 0xb9eb, 0xa862, 0x9af9, 0x8b70, + 0x8408, 0x9581, 0xa71a, 0xb693, 0xc22c, 0xd3a5, 0xe13e, 0xf0b7, + 0x0840, 0x19c9, 0x2b52, 0x3adb, 0x4e64, 0x5fed, 0x6d76, 0x7cff, + 0x9489, 0x8500, 0xb79b, 0xa612, 0xd2ad, 0xc324, 0xf1bf, 0xe036, + 0x18c1, 0x0948, 0x3bd3, 0x2a5a, 0x5ee5, 0x4f6c, 0x7df7, 0x6c7e, + 0xa50a, 0xb483, 0x8618, 0x9791, 0xe32e, 0xf2a7, 0xc03c, 0xd1b5, + 0x2942, 0x38cb, 0x0a50, 0x1bd9, 0x6f66, 0x7eef, 0x4c74, 0x5dfd, + 0xb58b, 0xa402, 0x9699, 0x8710, 0xf3af, 0xe226, 0xd0bd, 0xc134, + 0x39c3, 0x284a, 0x1ad1, 0x0b58, 0x7fe7, 0x6e6e, 0x5cf5, 0x4d7c, + 0xc60c, 0xd785, 0xe51e, 0xf497, 0x8028, 0x91a1, 0xa33a, 0xb2b3, + 0x4a44, 0x5bcd, 0x6956, 0x78df, 0x0c60, 0x1de9, 0x2f72, 0x3efb, + 0xd68d, 0xc704, 0xf59f, 0xe416, 0x90a9, 0x8120, 0xb3bb, 0xa232, + 0x5ac5, 0x4b4c, 0x79d7, 0x685e, 0x1ce1, 0x0d68, 0x3ff3, 0x2e7a, + 0xe70e, 0xf687, 0xc41c, 0xd595, 0xa12a, 0xb0a3, 0x8238, 0x93b1, + 0x6b46, 0x7acf, 0x4854, 0x59dd, 0x2d62, 0x3ceb, 0x0e70, 0x1ff9, + 0xf78f, 0xe606, 0xd49d, 0xc514, 0xb1ab, 0xa022, 0x92b9, 0x8330, + 0x7bc7, 0x6a4e, 0x58d5, 0x495c, 0x3de3, 0x2c6a, 0x1ef1, 0x0f78 + }; + +unsigned short compute_crc(unsigned char *buf, int len) +{ + unsigned short crc = 0xffff; + int ii; + + for (ii = 0; ii < len; ii++) + { + crc = (crc >> 8) ^ ccitt_table[(crc ^ buf[ii]) & 0xff]; + } + + return (crc ^ 0xffff); +} + +unsigned short unpack_v(unsigned char *c) +{ + return (*c + 256 * *(c+1)); +} + +unsigned int unpack_V(unsigned char *c) +{ + return (*c + 256 * *(c+1) + 65536 * *(c+2) + 16777216 * *(c+3)); +} + +const char *read_packet(int fd, unsigned char *buf, int buf_size) +{ + unsigned char c; + int len = 0; + int tries = 0; + int ii, jj; + unsigned short crc_claimed; + unsigned short crc_calculated; + + for (;;) + { + if (read(fd, &c, 1) != 1) + { + tries++; + if (tries >= READ_MAX_RETRY) + { + return "Cannot read data from tty"; + } + usleep(50000); + continue; + } + + if (c == '~') + { + break; + } + + if (len >= buf_size) + { + return "Packet too big"; + } + + buf[len] = c; + len++; + } + + /* For some reason, as the Ruby code says: */ + /* packet.gsub!("\x7d\x5e", "\x7e") */ + /* packet.gsub!("\x7d\x5d", "\x7d") */ + ii = 0; + while (ii + 1 < len) + { + if ((buf[ii] == 0x7d) && ((buf[ii + 1] == 0x5e) || + (buf[ii + 1] == 0x5d))) + { + buf[ii] = buf[ii + 1] + 0x20; + for (jj = ii + 2; jj < len; jj++) + { + buf[jj - 1] = buf[jj]; + } + len--; + } + ii++; + } + + /* Check CRC. */ + crc_claimed = unpack_v(&buf[len - 2]); + crc_calculated = compute_crc(buf, len - 2); + if (crc_claimed != crc_calculated) + { + return "Bad CRC"; + } + + return NULL; +} + +void set_message_level(int fd, + unsigned char ml, + unsigned char *buf, + int buf_size) +{ + unsigned char packet[6]; + unsigned short crc; + int ii; + const char *read_err; + + packet[0] = 31; /* GET_MESSAGE */ + packet[1] = ml; + packet[2] = 0; + crc = compute_crc(packet, 3); + packet[3] = crc & 0xff; + packet[4] = crc >> 8; + packet[5] = '~'; + + for (ii = 0; ii < 5; ii++) + { + write(fd, packet, 6); + read_err = read_packet(fd, buf, buf_size); + if (!read_err) + { + break; + } + } + + if (read_err) + { + fprintf(stderr, "set_message_level: %s\n", read_err); + exit(-1); + } +} + +main(int argc, char **argv) +{ + int fd; + int ii; + unsigned char packet[256]; + unsigned char msg_level; + const char *filename; + unsigned short line_num; + const char *fmt_string; + unsigned int code1, code2, code3; + unsigned int timestamp; + const char *read_err; + + /* Parse options. */ + const char *usage = + "%s [-l MSG_LEVEL] [-c MSG_COUNT] [-k BUF_SIZE]\n" + "\n" + " -l MSG_LEVEL Extract messages of level MSG_LEVEL and above. 0=LOW,\n" + " 1=MED, 2=HIGH, 3=ERROR, 4=FATAL. (Default 0.)\n" + "\n" + " -c MSG_COUNT Extract only MSG_COUNT messages, then terminate.\n" + "\n" + " -k BUF_SIZE Write extracted messages into a circular memory buffer\n" + " with size BUF_SIZE Kb, instead of printing them out\n" + " immediately, and print out the contents of the memory\n" + " buffer on termination.\n"; + unsigned char opt_level = ML_LOW; + unsigned int opt_count = 0; + unsigned int opt_buf_size = 0; + char *mem_buf = NULL; + int mem_offset = 0; + char msg_line_buf[1024]; + int msg_line_len; + + for (ii = 1; ii < argc; ii++) + { + if (!strcmp(argv[ii], "-l")) + { + ii++; + assert(ii < argc); + opt_level = (unsigned char)atoi(argv[ii]); + printf("Message level %d\n", (int)opt_level); + } + else if (!strcmp(argv[ii], "-c")) + { + ii++; + assert(ii < argc); + opt_count = (unsigned int)atoi(argv[ii]); + printf("Message count %u\n", opt_count); + } + else if (!strcmp(argv[ii], "-k")) + { + ii++; + assert(ii < argc); + opt_buf_size = (unsigned int)atoi(argv[ii]); + printf("Memory buffer size %u Kb\n", opt_buf_size); + opt_buf_size *= 1024; + mem_buf = (char *)malloc(opt_buf_size); + assert(mem_buf); + memset(mem_buf, 0, opt_buf_size); + mem_buf[opt_buf_size - 1] = '\n'; + } + else if (!strcmp(argv[ii], "-h")) + { + printf(usage, argv[0]); + exit(0); + } + else + { + fprintf(stderr, "ERROR: Unrecognised option '%s'\n", argv[ii]); + fprintf(stderr, usage, argv[0]); + exit(-1); + } + } + + /* Open /dev/ttyHS_Diagnostic. */ + fd = open("/dev/ttyHS_Diagnostic", O_RDWR); + assert(fd >= 0); + + set_message_level(fd, opt_level, packet, sizeof(packet)); + + for (ii = 0; (opt_count == 0) || (ii < opt_count); ii++) + { + read_err = read_packet(fd, packet, sizeof(packet)); + if (read_err) + { + fprintf(stderr, "main: %s (after %d messages)\n", read_err, ii); + break; + } + + /* quantity = unpack_v(&packet[1]); */ + /* drop_count = unpack_V(&packet[3]); */ + /* total_msgs = unpack_V(&packet[7]); */ + msg_level = packet[11]; + if (msg_level < opt_level) + continue; + if (msg_level == ML_LOW) + filename = ""; + else + filename = &packet[12]; + line_num = unpack_v(&packet[25]); + fmt_string = &packet[27]; + code1 = unpack_V(&packet[67]); + code2 = unpack_V(&packet[71]); + code3 = unpack_V(&packet[75]); + timestamp = unpack_V(&packet[81]); + + msg_line_len = snprintf(msg_line_buf, + sizeof(msg_line_buf), + "[TS %u] %s (%s:%d) ", + timestamp, + ml_names[msg_level & 7], + filename, + line_num); + assert(msg_line_len < sizeof(msg_line_buf)); + msg_line_len += snprintf(msg_line_buf + msg_line_len, + sizeof(msg_line_buf) - msg_line_len, + fmt_string, + code1, + code2, + code3); + assert(msg_line_len + 1 < sizeof(msg_line_buf)); + msg_line_buf[msg_line_len] = '\n'; + msg_line_len++; + + if (mem_buf) + { + if (msg_line_len < opt_buf_size - mem_offset) + { + memcpy(mem_buf + mem_offset, + msg_line_buf, + msg_line_len); + mem_offset += msg_line_len; + } + else + { + memcpy(mem_buf + mem_offset, + msg_line_buf, + opt_buf_size - mem_offset); + memcpy(mem_buf, + msg_line_buf + (opt_buf_size - mem_offset), + msg_line_len - (opt_buf_size - mem_offset)); + mem_offset = msg_line_len - (opt_buf_size - mem_offset); + } + } + else + fwrite(msg_line_buf, 1, msg_line_len, stdout); + } + + set_message_level(fd, ML_NONE, packet, sizeof(packet)); + + close(fd); + + if (mem_buf) + { + int wrapped = 0; + ii = mem_offset; + while (mem_buf[ii] != '\n') + { + ii++; + if (ii == opt_buf_size) + { + ii = 0; + wrapped = 1; + } + } + + if (!wrapped) + fwrite(mem_buf + ii, 1, opt_buf_size - ii, stdout); + + fwrite(mem_buf, 1, mem_offset, stdout); + } + + free(mem_buf); +} -- 2.39.5