diff --git a/apps/ping6/ping6.c b/apps/ping6/ping6.c index 0d5b7021d..f7835a236 100644 --- a/apps/ping6/ping6.c +++ b/apps/ping6/ping6.c @@ -1,176 +1,176 @@ -/* - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. Neither the name of the Institute nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * This file is part of the Contiki operating system. - * - */ - -#include "contiki.h" -#include "contiki-lib.h" -#include "contiki-net.h" - -#include "mac.h" - -#include -#include - -#define MACDEBUG 0 - -#define DEBUG 0 -#if DEBUG -#include -#define PRINTF(...) printf(__VA_ARGS__) -#define PRINT6ADDR(addr) PRINTF(" %02x%02x:%02x%02x:%02x%02x:%02x%02x:%02x%02x:%02x%02x:%02x%02x:%02x%02x ", ((u8_t *)addr)[0], ((u8_t *)addr)[1], ((u8_t *)addr)[2], ((u8_t *)addr)[3], ((u8_t *)addr)[4], ((u8_t *)addr)[5], ((u8_t *)addr)[6], ((u8_t *)addr)[7], ((u8_t *)addr)[8], ((u8_t *)addr)[9], ((u8_t *)addr)[10], ((u8_t *)addr)[11], ((u8_t *)addr)[12], ((u8_t *)addr)[13], ((u8_t *)addr)[14], ((u8_t *)addr)[15]) -#define PRINTLLADDR(lladdr) PRINTF(" %02x:%02x:%02x:%02x:%02x:%02x ",lladdr->addr[0], lladdr->addr[1], lladdr->addr[2], lladdr->addr[3],lladdr->addr[4], lladdr->addr[5]) -#else -#define PRINTF(...) -#define PRINT6ADDR(addr) -#endif - -#define PING6_NB 5 -#define PING6_DATALEN 16 - -#define UIP_IP_BUF ((struct uip_ip_hdr *)&uip_buf[UIP_LLH_LEN]) -#define UIP_ICMP_BUF ((struct uip_icmp_hdr *)&uip_buf[uip_l2_l3_hdr_len]) - -static struct etimer ping6_periodic_timer; -static u8_t count = 0; -static char command[20]; -static u16_t addr[8]; -uip_ipaddr_t dest_addr; - -PROCESS(ping6_process, "PING6 process"); -AUTOSTART_PROCESSES(&ping6_process); - - -/*---------------------------------------------------------------------------*/ -static u8_t -ping6handler(process_event_t ev, process_data_t data) -{ - if(count == 0){ -#if MACDEBUG - // Setup destination address. - addr[0] = 0xFE80; - addr[4] = 0x6466; - addr[5] = 0x6666; - addr[6] = 0x6666; - addr[7] = 0x6666; - uip_ip6addr(&dest_addr, addr[0], addr[1],addr[2], - addr[3],addr[4],addr[5],addr[6],addr[7]); - - // Set the command to fool the 'if' below. - memcpy(command, (void *)"ping6", 5); - -#else -/* prompt */ - printf("> "); - /** \note the scanf here is blocking (the all stack is blocked waiting - * for user input). This is far from ideal and could be improved - */ - scanf("%s", command); - - if(strcmp(command,"ping6") != 0){ - PRINTF("> invalid command\n"); - return 0; - } - - if(scanf(" %04x:%04x:%04x:%04x:%04x:%04x:%04x:%04x", - &addr[0],&addr[1],&addr[2],&addr[3], - &addr[4],&addr[5],&addr[6],&addr[7]) == 8){ - - uip_ip6addr(&dest_addr, addr[0], addr[1],addr[2], - addr[3],addr[4],addr[5],addr[6],addr[7]); - } else { - PRINTF("> invalid ipv6 address format\n"); - return 0; - } -#endif - - } - - if((strcmp(command,"ping6") == 0) && (count < PING6_NB)){ - - UIP_IP_BUF->vtc = 0x60; - UIP_IP_BUF->tcflow = 1; - UIP_IP_BUF->flow = 0; - UIP_IP_BUF->proto = UIP_PROTO_ICMP6; - UIP_IP_BUF->ttl = uip_ds6_if.cur_hop_limit; - uip_ipaddr_copy(&UIP_IP_BUF->destipaddr, &dest_addr); - uip_ds6_select_src(&UIP_IP_BUF->srcipaddr, &UIP_IP_BUF->destipaddr); - - UIP_ICMP_BUF->type = ICMP6_ECHO_REQUEST; - UIP_ICMP_BUF->icode = 0; - /* set identifier and sequence number to 0 */ - memset((void *)UIP_ICMP_BUF + UIP_ICMPH_LEN, 0, 4); - /* put one byte of data */ - memset((void *)UIP_ICMP_BUF + UIP_ICMPH_LEN + UIP_ICMP6_ECHO_REQUEST_LEN, - count, PING6_DATALEN); - - - uip_len = UIP_ICMPH_LEN + UIP_ICMP6_ECHO_REQUEST_LEN + UIP_IPH_LEN + PING6_DATALEN; - UIP_IP_BUF->len[0] = (u8_t)((uip_len - 40) >> 8); - UIP_IP_BUF->len[1] = (u8_t)((uip_len - 40) & 0x00FF); - - UIP_ICMP_BUF->icmpchksum = 0; - UIP_ICMP_BUF->icmpchksum = ~uip_icmp6chksum(); - - - PRINTF("Sending Echo Request to"); - PRINT6ADDR(&UIP_IP_BUF->destipaddr); - PRINTF("from"); - PRINT6ADDR(&UIP_IP_BUF->srcipaddr); - PRINTF("\n"); - UIP_STAT(++uip_stat.icmp.sent); - - tcpip_ipv6_output(); - - count++; - etimer_set(&ping6_periodic_timer, 3 * CLOCK_SECOND); - return 1; - } - return 0; -} - -/*---------------------------------------------------------------------------*/ -PROCESS_THREAD(ping6_process, ev, data) -{ - - u8_t cont = 1; - - PROCESS_BEGIN(); - PRINTF("In Process PING6\n"); - PRINTF("Wait for DAD\n"); - - etimer_set(&ping6_periodic_timer, 15*CLOCK_SECOND); - - while(cont) { - PROCESS_YIELD(); - cont = ping6handler(ev, data); - } - - PRINTF("END PING6\n"); - PROCESS_END(); -} -/*---------------------------------------------------------------------------*/ +/* + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. Neither the name of the Institute nor the names of its contributors + * may be used to endorse or promote products derived from this software + * without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + * + * This file is part of the Contiki operating system. + * + */ + +#include "contiki.h" +#include "contiki-lib.h" +#include "contiki-net.h" + +#include "mac.h" + +#include +#include + +#define MACDEBUG 0 + +#define DEBUG 0 +#if DEBUG +#include +#define PRINTF(...) printf(__VA_ARGS__) +#define PRINT6ADDR(addr) PRINTF(" %02x%02x:%02x%02x:%02x%02x:%02x%02x:%02x%02x:%02x%02x:%02x%02x:%02x%02x ", ((u8_t *)addr)[0], ((u8_t *)addr)[1], ((u8_t *)addr)[2], ((u8_t *)addr)[3], ((u8_t *)addr)[4], ((u8_t *)addr)[5], ((u8_t *)addr)[6], ((u8_t *)addr)[7], ((u8_t *)addr)[8], ((u8_t *)addr)[9], ((u8_t *)addr)[10], ((u8_t *)addr)[11], ((u8_t *)addr)[12], ((u8_t *)addr)[13], ((u8_t *)addr)[14], ((u8_t *)addr)[15]) +#define PRINTLLADDR(lladdr) PRINTF(" %02x:%02x:%02x:%02x:%02x:%02x ",lladdr->addr[0], lladdr->addr[1], lladdr->addr[2], lladdr->addr[3],lladdr->addr[4], lladdr->addr[5]) +#else +#define PRINTF(...) +#define PRINT6ADDR(addr) +#endif + +#define PING6_NB 5 +#define PING6_DATALEN 16 + +#define UIP_IP_BUF ((struct uip_ip_hdr *)&uip_buf[UIP_LLH_LEN]) +#define UIP_ICMP_BUF ((struct uip_icmp_hdr *)&uip_buf[uip_l2_l3_hdr_len]) + +static struct etimer ping6_periodic_timer; +static u8_t count = 0; +static char command[20]; +static u16_t addr[8]; +uip_ipaddr_t dest_addr; + +PROCESS(ping6_process, "PING6 process"); +AUTOSTART_PROCESSES(&ping6_process); + + +/*---------------------------------------------------------------------------*/ +static u8_t +ping6handler(process_event_t ev, process_data_t data) +{ + if(count == 0){ +#if MACDEBUG + // Setup destination address. + addr[0] = 0xFE80; + addr[4] = 0x6466; + addr[5] = 0x6666; + addr[6] = 0x6666; + addr[7] = 0x6666; + uip_ip6addr(&dest_addr, addr[0], addr[1],addr[2], + addr[3],addr[4],addr[5],addr[6],addr[7]); + + // Set the command to fool the 'if' below. + memcpy(command, (void *)"ping6", 5); + +#else +/* prompt */ + printf("> "); + /** \note the scanf here is blocking (the all stack is blocked waiting + * for user input). This is far from ideal and could be improved + */ + scanf("%s", command); + + if(strcmp(command,"ping6") != 0){ + PRINTF("> invalid command\n"); + return 0; + } + + if(scanf(" %04x:%04x:%04x:%04x:%04x:%04x:%04x:%04x", + &addr[0],&addr[1],&addr[2],&addr[3], + &addr[4],&addr[5],&addr[6],&addr[7]) == 8){ + + uip_ip6addr(&dest_addr, addr[0], addr[1],addr[2], + addr[3],addr[4],addr[5],addr[6],addr[7]); + } else { + PRINTF("> invalid ipv6 address format\n"); + return 0; + } +#endif + + } + + if((strcmp(command,"ping6") == 0) && (count < PING6_NB)){ + + UIP_IP_BUF->vtc = 0x60; + UIP_IP_BUF->tcflow = 1; + UIP_IP_BUF->flow = 0; + UIP_IP_BUF->proto = UIP_PROTO_ICMP6; + UIP_IP_BUF->ttl = uip_ds6_if.cur_hop_limit; + uip_ipaddr_copy(&UIP_IP_BUF->destipaddr, &dest_addr); + uip_ds6_select_src(&UIP_IP_BUF->srcipaddr, &UIP_IP_BUF->destipaddr); + + UIP_ICMP_BUF->type = ICMP6_ECHO_REQUEST; + UIP_ICMP_BUF->icode = 0; + /* set identifier and sequence number to 0 */ + memset((void *)UIP_ICMP_BUF + UIP_ICMPH_LEN, 0, 4); + /* put one byte of data */ + memset((void *)UIP_ICMP_BUF + UIP_ICMPH_LEN + UIP_ICMP6_ECHO_REQUEST_LEN, + count, PING6_DATALEN); + + + uip_len = UIP_ICMPH_LEN + UIP_ICMP6_ECHO_REQUEST_LEN + UIP_IPH_LEN + PING6_DATALEN; + UIP_IP_BUF->len[0] = (u8_t)((uip_len - 40) >> 8); + UIP_IP_BUF->len[1] = (u8_t)((uip_len - 40) & 0x00FF); + + UIP_ICMP_BUF->icmpchksum = 0; + UIP_ICMP_BUF->icmpchksum = ~uip_icmp6chksum(); + + + PRINTF("Sending Echo Request to"); + PRINT6ADDR(&UIP_IP_BUF->destipaddr); + PRINTF("from"); + PRINT6ADDR(&UIP_IP_BUF->srcipaddr); + PRINTF("\n"); + UIP_STAT(++uip_stat.icmp.sent); + + tcpip_ipv6_output(); + + count++; + etimer_set(&ping6_periodic_timer, 3 * CLOCK_SECOND); + return 1; + } + return 0; +} + +/*---------------------------------------------------------------------------*/ +PROCESS_THREAD(ping6_process, ev, data) +{ + + u8_t cont = 1; + + PROCESS_BEGIN(); + PRINTF("In Process PING6\n"); + PRINTF("Wait for DAD\n"); + + etimer_set(&ping6_periodic_timer, 15*CLOCK_SECOND); + + while(cont) { + PROCESS_YIELD(); + cont = ping6handler(ev, data); + } + + PRINTF("END PING6\n"); + PROCESS_END(); +} +/*---------------------------------------------------------------------------*/ diff --git a/core/lib/gcr.c b/core/lib/gcr.c index 3d89d073c..b768f96ca 100644 --- a/core/lib/gcr.c +++ b/core/lib/gcr.c @@ -1,163 +1,163 @@ -/* - * Copyright (c) 2006, Swedish Institute of Computer Science - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. Neither the name of the Institute nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * This file is part of the Contiki operating system. - * - * @(#)$Id: gcr.c,v 1.1 2006/10/05 09:23:41 adamdunkels Exp $ - */ - -/** - * \file - * Implementation of GCR coding/decoding - * \author - * Joakim Eriksson - * - */ - -/* GCR conversion table - used for converting ordinary byte to 10-bits */ -/* (or 4 bits to 5) */ -static const unsigned char GCR_encode[16] = { - 0x0a, 0x0b, 0x12, 0x13, - 0x0e, 0x0f, 0x16, 0x17, - 0x09, 0x19, 0x1a, 0x1b, - 0x0d, 0x1d, 0x1e, 0x15 -}; - -/* 5 bits > 4 bits (0xff => invalid) */ -static const unsigned char GCR_decode[32] = { - 0xff, 0xff, 0xff, 0xff, // 0 - 3invalid... - 0xff, 0xff, 0xff, 0xff, // 4 - 7 invalid... - 0xff, 0x08, 0x00, 0x01, // 8 invalid... 9 = 8, a = 0, b = 1 - 0xff, 0x0c, 0x04, 0x05, // c invalid... d = c, e = 4, f = 5 - - 0xff, 0xff, 0x02, 0x03, // 10-11 invalid... - 0xff, 0x0f, 0x06, 0x07, // 14 invalid... - 0xff, 0x09, 0x0a, 0x0b, // 18 invalid... - 0xff, 0x0d, 0x0e, 0xff, // 1c, 1f invalid... - }; - -static unsigned char gcr_bits = 0; -static unsigned short gcr_val = 0; - -/* Call before starting encoding or decoding */ -void gcr_init() { - gcr_val = 0; - gcr_bits = 0; -} - -/* Use this to check if encoding / decoding is complete for now */ -unsigned char gcr_finished() { - return gcr_bits == 0; -} - -/* Encode one character - and store in bits - get encoded with get_encoded */ -void gcr_encode(unsigned char raw_data) { - gcr_val |= - ((GCR_encode[raw_data >> 4u] << 5u ) | - GCR_encode[raw_data & 0xf]) << gcr_bits; - gcr_bits += 10; -} - -/* Gets the current char of the encoded stream */ -unsigned char gcr_get_encoded(unsigned char *raw_data) { - if (gcr_bits >= 8) { - *raw_data = (unsigned char) (gcr_val & 0xff); - gcr_val = gcr_val >> 8u; - gcr_bits = gcr_bits - 8; - return 1; - } - return 0; -} - -/* Decode one char - result can be get from get_decoded */ -void gcr_decode(unsigned char gcr_data) { - gcr_val |= gcr_data << gcr_bits; - gcr_bits += 8; -} - -/* check if the current decoded stream is correct */ -unsigned char gcr_valid() { - if (gcr_bits >= 10) { - unsigned short val = gcr_val & 0x3ff; - if ((GCR_decode[val >> 5u] << 4u) == 0xff || - (GCR_decode[val & 0x1f]) == 0xff) { - return 0; - } - } - return 1; -} - -/* gets the decoded stream - if any char is available */ -unsigned char gcr_get_decoded(unsigned char *raw_data) { - if (gcr_bits >= 10) { - unsigned short val = gcr_val & 0x3ff; - *raw_data = (unsigned char) ((GCR_decode[val >> 5] << 4) | - (GCR_decode[val & 0x1f])); - gcr_val = gcr_val >> 10; - gcr_bits = gcr_bits - 10; - return 1; - } - return 0; -} - -/* -static const char encoded[] = { - 0x4a, 0x25, 0xa5, 0xfc, 0x96, 0xff, 0xff, 0xb5, 0xd4, 0x5a, 0xea, 0xff, 0xff, 0xaa, 0xd3, 0xff -}; - -int main(int argc, char **argv) { - // unsigned char c[] = "testing gcr 1 2 3 4 5 6..."; - unsigned char c[] = { 0, 8, 0xe0, 0x2b, 0xac, 0x10, 0x01, 0x11, 0x50, 0xff, 0xf4, 0xa4, 0x00 }; - unsigned char c2[200]; - int pos = 0, pos2 = 0, i = 0; - - printf("Testing GCR on: %s \n", c); - - gcr_init(); - for (i = 0; i < sizeof(c); i++) { - gcr_encode(c[i]); - while(gcr_get_encoded(&c2[pos])) { - printf("%02x=>%02x ", c[i], c2[pos]); - pos++; - } - } - printf("\n"); - printf("Encoded result %d chars (from %d) \n", pos, i); - gcr_init(); - for (i = 0; i < pos; i++) { - gcr_decode(c2[i]); - if(!gcr_valid()) { - printf("GCR: not valid\n"); - } - while(gcr_get_decoded(&c[pos2])) { - pos2++; - } - } - printf("GCR: %s\n",c); -} -*/ +/* + * Copyright (c) 2006, Swedish Institute of Computer Science + * All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. Neither the name of the Institute nor the names of its contributors + * may be used to endorse or promote products derived from this software + * without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + * + * This file is part of the Contiki operating system. + * + * @(#)$Id: gcr.c,v 1.2 2011/01/07 11:55:36 nifi Exp $ + */ + +/** + * \file + * Implementation of GCR coding/decoding + * \author + * Joakim Eriksson + * + */ + +/* GCR conversion table - used for converting ordinary byte to 10-bits */ +/* (or 4 bits to 5) */ +static const unsigned char GCR_encode[16] = { + 0x0a, 0x0b, 0x12, 0x13, + 0x0e, 0x0f, 0x16, 0x17, + 0x09, 0x19, 0x1a, 0x1b, + 0x0d, 0x1d, 0x1e, 0x15 +}; + +/* 5 bits > 4 bits (0xff => invalid) */ +static const unsigned char GCR_decode[32] = { + 0xff, 0xff, 0xff, 0xff, // 0 - 3invalid... + 0xff, 0xff, 0xff, 0xff, // 4 - 7 invalid... + 0xff, 0x08, 0x00, 0x01, // 8 invalid... 9 = 8, a = 0, b = 1 + 0xff, 0x0c, 0x04, 0x05, // c invalid... d = c, e = 4, f = 5 + + 0xff, 0xff, 0x02, 0x03, // 10-11 invalid... + 0xff, 0x0f, 0x06, 0x07, // 14 invalid... + 0xff, 0x09, 0x0a, 0x0b, // 18 invalid... + 0xff, 0x0d, 0x0e, 0xff, // 1c, 1f invalid... + }; + +static unsigned char gcr_bits = 0; +static unsigned short gcr_val = 0; + +/* Call before starting encoding or decoding */ +void gcr_init() { + gcr_val = 0; + gcr_bits = 0; +} + +/* Use this to check if encoding / decoding is complete for now */ +unsigned char gcr_finished() { + return gcr_bits == 0; +} + +/* Encode one character - and store in bits - get encoded with get_encoded */ +void gcr_encode(unsigned char raw_data) { + gcr_val |= + ((GCR_encode[raw_data >> 4u] << 5u ) | + GCR_encode[raw_data & 0xf]) << gcr_bits; + gcr_bits += 10; +} + +/* Gets the current char of the encoded stream */ +unsigned char gcr_get_encoded(unsigned char *raw_data) { + if (gcr_bits >= 8) { + *raw_data = (unsigned char) (gcr_val & 0xff); + gcr_val = gcr_val >> 8u; + gcr_bits = gcr_bits - 8; + return 1; + } + return 0; +} + +/* Decode one char - result can be get from get_decoded */ +void gcr_decode(unsigned char gcr_data) { + gcr_val |= gcr_data << gcr_bits; + gcr_bits += 8; +} + +/* check if the current decoded stream is correct */ +unsigned char gcr_valid() { + if (gcr_bits >= 10) { + unsigned short val = gcr_val & 0x3ff; + if ((GCR_decode[val >> 5u] << 4u) == 0xff || + (GCR_decode[val & 0x1f]) == 0xff) { + return 0; + } + } + return 1; +} + +/* gets the decoded stream - if any char is available */ +unsigned char gcr_get_decoded(unsigned char *raw_data) { + if (gcr_bits >= 10) { + unsigned short val = gcr_val & 0x3ff; + *raw_data = (unsigned char) ((GCR_decode[val >> 5] << 4) | + (GCR_decode[val & 0x1f])); + gcr_val = gcr_val >> 10; + gcr_bits = gcr_bits - 10; + return 1; + } + return 0; +} + +/* +static const char encoded[] = { + 0x4a, 0x25, 0xa5, 0xfc, 0x96, 0xff, 0xff, 0xb5, 0xd4, 0x5a, 0xea, 0xff, 0xff, 0xaa, 0xd3, 0xff +}; + +int main(int argc, char **argv) { + // unsigned char c[] = "testing gcr 1 2 3 4 5 6..."; + unsigned char c[] = { 0, 8, 0xe0, 0x2b, 0xac, 0x10, 0x01, 0x11, 0x50, 0xff, 0xf4, 0xa4, 0x00 }; + unsigned char c2[200]; + int pos = 0, pos2 = 0, i = 0; + + printf("Testing GCR on: %s \n", c); + + gcr_init(); + for (i = 0; i < sizeof(c); i++) { + gcr_encode(c[i]); + while(gcr_get_encoded(&c2[pos])) { + printf("%02x=>%02x ", c[i], c2[pos]); + pos++; + } + } + printf("\n"); + printf("Encoded result %d chars (from %d) \n", pos, i); + gcr_init(); + for (i = 0; i < pos; i++) { + gcr_decode(c2[i]); + if(!gcr_valid()) { + printf("GCR: not valid\n"); + } + while(gcr_get_decoded(&c[pos2])) { + pos2++; + } + } + printf("GCR: %s\n",c); +} +*/