VZTECH / Mbed 2 deprecated main_src

Modularizando o src

Dependencies:   EALib EthernetInterface_vz mbed-rtos mbed

Fork of header_main_colinas_V0-20-09-14 by VZTECH

vz_protocol.cpp@121:ee02790d00b7, 2015-05-08 (annotated)

Committer:
klauss
Date:
Fri May 08 04:15:23 2015 +0000
Revision:
121:ee02790d00b7
Parent:
119:ee6a53069455
Child:
122:480c44b0e205
compiling

Who changed what in which revision?

UserRevisionLine numberNew contents of line
klauss 0:4d17cd9c8f9d 1 #include "vz_protocol.h"
klauss 72:895ca792c647 2
klauss 121:ee02790d00b7 3 #include "debug.h"
klauss 121:ee02790d00b7 4
klauss 78:1353744f01e1 5 uint32_t pkg_ckserr = 0;
klauss 78:1353744f01e1 6 uint32_t pkg_zero = 0;
klauss 78:1353744f01e1 7 uint32_t pkg_cksok = 0;
klauss 81:3656f00ab3db 8 int begin = 0;
klauss 81:3656f00ab3db 9 int end = 0;
klauss 81:3656f00ab3db 10
klauss 121:ee02790d00b7 11 int init_ranges ( void ){
klauss 81:3656f00ab3db 12 FILE * begin_ext = fopen( "/qspi/minext.txt", "r" );
klauss 81:3656f00ab3db 13 if( begin_ext == NULL ){
klauss 81:3656f00ab3db 14 if( debug_out_of_range ) debug_msg("Failed to open /qspi/minext.txt" );
klauss 81:3656f00ab3db 15 begin = MIN_EXT;
klauss 81:3656f00ab3db 16 }else{
klauss 81:3656f00ab3db 17 char inner_tmp[ 20 ];
klauss 81:3656f00ab3db 18 if( fread( (void *)inner_tmp, 1, 20, begin_ext ) > 0 ){
klauss 81:3656f00ab3db 19 begin = atoi( inner_tmp );
klauss 81:3656f00ab3db 20 if( debug_out_of_range ) debug_msg("Ext Min %d", begin );
klauss 81:3656f00ab3db 21 }else{
klauss 81:3656f00ab3db 22 if( debug_out_of_range ) debug_msg("Failed to read /qspi/minext.txt" );
klauss 81:3656f00ab3db 23 begin = MIN_EXT;
klauss 81:3656f00ab3db 24 }
klauss 81:3656f00ab3db 25 }
klauss 81:3656f00ab3db 26 fclose( begin_ext );
klauss 81:3656f00ab3db 27
klauss 81:3656f00ab3db 28 FILE * end_ext = fopen( "/qspi/maxext.txt", "r" );
klauss 81:3656f00ab3db 29 if( end_ext == NULL ){
klauss 81:3656f00ab3db 30 if( debug_out_of_range ) debug_msg("Failed to open /qspi/maxext.txt" );
klauss 81:3656f00ab3db 31 end = MAX_EXT;
klauss 81:3656f00ab3db 32 }else{
klauss 81:3656f00ab3db 33 char inner_tmp[ 20 ];
klauss 81:3656f00ab3db 34 if( fread( (void *)inner_tmp, 1, 20, end_ext ) > 0 ){
klauss 81:3656f00ab3db 35 end = atoi( inner_tmp );
klauss 81:3656f00ab3db 36 if( debug_out_of_range ) debug_msg("Ext Min %d", end );
klauss 81:3656f00ab3db 37 }else{
klauss 81:3656f00ab3db 38 if( debug_out_of_range ) debug_msg("Failed to read /qspi/maxext.txt" );
klauss 81:3656f00ab3db 39 begin = MAX_EXT;
klauss 81:3656f00ab3db 40 }
klauss 81:3656f00ab3db 41 }
klauss 89:0fe315117b00 42 fclose( end_ext );
klauss 119:ee6a53069455 43
klauss 119:ee6a53069455 44 return ( 0 );
klauss 81:3656f00ab3db 45 }
Cola 20:2d6ab23956e5 46
klauss 121:ee02790d00b7 47 uint8_t * parse_vz_pkg ( int * ext, int * port, volatile uint8_t * type, uint8_t * cb_buffer ){
klauss 0:4d17cd9c8f9d 48 uint8_t p_lsb, p_msb;
klauss 0:4d17cd9c8f9d 49 uint8_t e_lsb, e_msb;
klauss 0:4d17cd9c8f9d 50
klauss 81:3656f00ab3db 51 if( ( ext && port && type && cb_buffer ) == NULL ) return( NULL );
klauss 114:472502b31a12 52
klauss 119:ee6a53069455 53 //tratamento dos pacotes do tipo flood logo na chegada
klauss 119:ee6a53069455 54 {
klauss 119:ee6a53069455 55 if( cb_buffer[ 6 ] == FLOOD ){
klauss 119:ee6a53069455 56 flood_counter++;
klauss 119:ee6a53069455 57 static uint8_t flood_cnt = 0;
klauss 119:ee6a53069455 58 static uint8_t first_run_flag = 0;
klauss 119:ee6a53069455 59 static Timer t;
klauss 119:ee6a53069455 60 if (first_run_flag == 0) {
klauss 119:ee6a53069455 61 flood_cnt = cb_buffer[0];
klauss 119:ee6a53069455 62 first_run_flag++;
klauss 119:ee6a53069455 63 t.start();
klauss 119:ee6a53069455 64 } else {
klauss 119:ee6a53069455 65 if (cb_buffer[0] == 0x00){
klauss 119:ee6a53069455 66 if( debug_uart3 ) pc.printf("%d", t.read_us());
klauss 119:ee6a53069455 67 if( tcp_session && !udp_query ){
klauss 48:195c97f12e8e 68 char tmp[ 16 ];
klauss 119:ee6a53069455 69 sprintf( tmp, "%d", t.read_us() );
klauss 48:195c97f12e8e 70 tcp_client.send_all( tmp, strlen( tmp ) );
klauss 48:195c97f12e8e 71 }
klauss 48:195c97f12e8e 72 }
klauss 119:ee6a53069455 73 flood_cnt++;
klauss 119:ee6a53069455 74 while (flood_cnt != cb_buffer[0]) {
klauss 119:ee6a53069455 75 if( debug_uart3 ) pc.printf("0");
klauss 119:ee6a53069455 76 flood_cnt++;
klauss 119:ee6a53069455 77 if( tcp_session && !udp_query ){
klauss 119:ee6a53069455 78 tcp_client.send_all( "0", strlen( "0" ) );
klauss 119:ee6a53069455 79 }
klauss 119:ee6a53069455 80 }
klauss 119:ee6a53069455 81 int i;
klauss 119:ee6a53069455 82 int ok = 1;
klauss 119:ee6a53069455 83 uint8_t cmp;
klauss 119:ee6a53069455 84 for (i=0, cmp=cb_buffer[0]; (i<300) && (ok==1); i++, cmp++) {
klauss 119:ee6a53069455 85 if (i != 6) {
klauss 119:ee6a53069455 86 if (cb_buffer[i] != cmp) ok = 0;
klauss 119:ee6a53069455 87 }
klauss 119:ee6a53069455 88 }
klauss 119:ee6a53069455 89 if( ok ){
klauss 119:ee6a53069455 90 if( debug_uart3 ) pc.printf("+");
klauss 119:ee6a53069455 91 if( tcp_session && !udp_query ){
klauss 119:ee6a53069455 92 tcp_client.send_all( "+", strlen( "+" ) );
klauss 119:ee6a53069455 93 }
klauss 119:ee6a53069455 94 }else{
klauss 119:ee6a53069455 95 if( debug_uart3 ) pc.printf("%02x",cb_buffer[0] );
klauss 119:ee6a53069455 96 if( debug_uart3 ) pc.printf("#");
klauss 119:ee6a53069455 97 if( debug_uart3 ) pc.printf("\n\r");
klauss 119:ee6a53069455 98 if( tcp_session && !udp_query ){
klauss 119:ee6a53069455 99 char tmp[ 16 ];
klauss 119:ee6a53069455 100 sprintf( tmp, "%02x#\n\r", cb_buffer[ 0 ] );
klauss 119:ee6a53069455 101 tcp_client.send_all( tmp, strlen( tmp ) );
klauss 119:ee6a53069455 102 }
klauss 119:ee6a53069455 103 for( int i = 0; i < 300 ; i++ ){
klauss 119:ee6a53069455 104 if( debug_uart3 ) pc.printf("%x", cb_buffer[ i ]);
klauss 119:ee6a53069455 105 if( tcp_session && !udp_query ){
klauss 119:ee6a53069455 106 char tmp[ 16 ];
klauss 119:ee6a53069455 107 sprintf( tmp, "%x", cb_buffer[ i ] );
klauss 119:ee6a53069455 108 tcp_client.send_all( tmp, strlen( tmp ) );
klauss 119:ee6a53069455 109 }
klauss 119:ee6a53069455 110 }
klauss 119:ee6a53069455 111 }
Cola 21:0bd688722e81 112 }
klauss 119:ee6a53069455 113 return( NULL );
Cola 21:0bd688722e81 114 }
klauss 119:ee6a53069455 115 }//fim tratamento do flood
Cola 21:0bd688722e81 116
klauss 0:4d17cd9c8f9d 117 uint16_t cc = ( uint16_t )cb_buffer[ 4 ] << 8 | cb_buffer[ 5 ];
klauss 0:4d17cd9c8f9d 118
klauss 119:ee6a53069455 119 uint16_t cc_calculated = vz_checksum( cb_buffer, CB_BUFFER_SIZE );
klauss 78:1353744f01e1 120
klauss 78:1353744f01e1 121 if( cc != cc_calculated ){
klauss 78:1353744f01e1 122 if( debug_cks_err ) send_msg( "Received PKG, but -- CKS ERROR: %d ( %d )", cc_calculated, cc );
klauss 78:1353744f01e1 123
klauss 78:1353744f01e1 124 if( cc_calculated == 30975 && cc == 0 ){
klauss 78:1353744f01e1 125 pkg_zero++;
klauss 78:1353744f01e1 126 }else{
Cola 20:2d6ab23956e5 127 pkg_ckserr++;
klauss 78:1353744f01e1 128 }
klauss 78:1353744f01e1 129 return( NULL );
klauss 0:4d17cd9c8f9d 130 }else{
Cola 20:2d6ab23956e5 131 pkg_cksok++;
klauss 0:4d17cd9c8f9d 132 e_msb = cb_buffer[ 0 ];
klauss 0:4d17cd9c8f9d 133 e_lsb = cb_buffer[ 1 ];
klauss 0:4d17cd9c8f9d 134 *ext = e_msb << 8 | e_lsb;
klauss 79:9bc12aa305a9 135
klauss 81:3656f00ab3db 136 //restriçao de controle para cbx malucos
klauss 81:3656f00ab3db 137 if( *ext < begin || *ext > end ){
klauss 81:3656f00ab3db 138 if( debug_out_of_range ) send_msg("Trying from %d", *ext );
klauss 79:9bc12aa305a9 139 out_of_range++;
klauss 79:9bc12aa305a9 140 return( NULL );
klauss 79:9bc12aa305a9 141 }
klauss 81:3656f00ab3db 142
klauss 0:4d17cd9c8f9d 143 p_msb = cb_buffer[ 2 ];
klauss 0:4d17cd9c8f9d 144 p_lsb = cb_buffer[ 3 ];
klauss 0:4d17cd9c8f9d 145 *port = p_msb << 8 | p_lsb;
klauss 0:4d17cd9c8f9d 146
klauss 98:43b45f26b430 147 if( debug_port_match ) if( *ext == *port ) debug_msg("%u:%u", *ext, *port );
klauss 98:43b45f26b430 148
klauss 0:4d17cd9c8f9d 149 *type = cb_buffer[ 6 ];
klauss 0:4d17cd9c8f9d 150
klauss 119:ee6a53069455 151 if( ( ( *port < BASE_PORT ) || ( *port >= ( BASE_PORT + MAX_CB_IN_A_BRANCH ) ) && ( *type == TELEMETRY ) ) ) return NULL;
klauss 119:ee6a53069455 152
klauss 119:ee6a53069455 153 return( cb_buffer + VZ_HEADER_OFFSET );
klauss 0:4d17cd9c8f9d 154 }
klauss 0:4d17cd9c8f9d 155 }
klauss 121:ee02790d00b7 156 uint8_t * build_cb_package ( int ext, int port, uint8_t type, char * cb_buffer, uint8_t seq_num, int length, uint8_t * pkg )
klauss 121:ee02790d00b7 157 {
klauss 119:ee6a53069455 158 //checa se o fuffer de src e dst dos dados estao alocados
klauss 119:ee6a53069455 159 if( ( cb_buffer == NULL ) || ( pkg == NULL ) ) return NULL;
klauss 119:ee6a53069455 160
klauss 119:ee6a53069455 161 //apaga as posicoes de memoria onde serah montado o pacote
klauss 119:ee6a53069455 162 for( register int i = 0; i < CB_BUFFER_SIZE; i++ ) pkg[ i ] = 0;
klauss 119:ee6a53069455 163
klauss 119:ee6a53069455 164 //coloca ramal ( MSB ), ramal ( LSB ), porta ( MSB ), porta ( LSB ) e tipo nas posicoes destino
klauss 0:4d17cd9c8f9d 165 pkg[ 0 ] = ( uint8_t )( ( ext & 0xFF00 ) >> 8 );
klauss 0:4d17cd9c8f9d 166 pkg[ 1 ] = ( uint8_t )( ext & 0x00FF );
klauss 0:4d17cd9c8f9d 167 pkg[ 2 ] = ( uint8_t )( ( port & 0xFF00 ) >> 8 );
klauss 0:4d17cd9c8f9d 168 pkg[ 3 ] = ( uint8_t )( port & 0x00FF );
klauss 0:4d17cd9c8f9d 169
klauss 0:4d17cd9c8f9d 170 pkg[ 6 ] = type;
klauss 0:4d17cd9c8f9d 171
klauss 119:ee6a53069455 172 //preenche os dados de acordo com o tipo do pacote transmitido
klauss 119:ee6a53069455 173 size_t fill = VZ_HEADER_OFFSET;
klauss 119:ee6a53069455 174 switch( type )
klauss 119:ee6a53069455 175 {
klauss 119:ee6a53069455 176 case AUDIO :{
klauss 119:ee6a53069455 177 for( register int i = VZ_HEADER_OFFSET; i < length + VZ_HEADER_OFFSET; i++ )
klauss 119:ee6a53069455 178 pkg[ i ] = ( uint8_t )cb_buffer[ i - VZ_HEADER_OFFSET ];
klauss 119:ee6a53069455 179
klauss 119:ee6a53069455 180 fill = length + VZ_HEADER_OFFSET;
klauss 119:ee6a53069455 181 break;
klauss 119:ee6a53069455 182 }
klauss 119:ee6a53069455 183 case INVITE :{
klauss 119:ee6a53069455 184 pkg[ 7 ] = seq_num;
klauss 119:ee6a53069455 185 print_clock( pkg + 8 );
klauss 119:ee6a53069455 186 pkg[ TIMESLICE_PLACE ] = cb_buffer[ TIMESLICE_PLACE ];
klauss 119:ee6a53069455 187 fill = TIMESLICE_PLACE + 1;
klauss 119:ee6a53069455 188 break;
klauss 119:ee6a53069455 189 }
klauss 92:92df17f538a8 190
klauss 119:ee6a53069455 191 case REGISTRY :{
klauss 119:ee6a53069455 192 pkg[ 7 ] = seq_num;
klauss 119:ee6a53069455 193 print_clock( pkg + 8 );
klauss 119:ee6a53069455 194 fill = VZ_HEADER_OFFSET + CLOCK_SYNC_SIZE + SEQ_NUM_SIZE;
klauss 119:ee6a53069455 195 break;
klauss 119:ee6a53069455 196 }
klauss 119:ee6a53069455 197 case BOOT :{
klauss 119:ee6a53069455 198 pkg[ 7 ] = seq_num;
klauss 119:ee6a53069455 199 print_clock( pkg + 8 );
klauss 119:ee6a53069455 200 fill = VZ_HEADER_OFFSET + CLOCK_SYNC_SIZE + SEQ_NUM_SIZE;
klauss 119:ee6a53069455 201 break;
klauss 119:ee6a53069455 202 }
klauss 119:ee6a53069455 203 case CB_BYE :{
klauss 119:ee6a53069455 204 pkg[ 7 ] = seq_num;
klauss 119:ee6a53069455 205 print_clock( pkg + 8 );
klauss 119:ee6a53069455 206 pkg[ TIMESLICE_PLACE ] = cb_buffer[ TIMESLICE_PLACE ];
klauss 119:ee6a53069455 207 fill = TIMESLICE_PLACE + 1;
klauss 119:ee6a53069455 208 break;
klauss 119:ee6a53069455 209 }
klauss 119:ee6a53069455 210 case PROMPT :{
klauss 119:ee6a53069455 211 strcpy( ( char * )( pkg + VZ_HEADER_OFFSET ), cb_buffer );
klauss 119:ee6a53069455 212 fill = strlen( cb_buffer ) + VZ_HEADER_OFFSET;
klauss 119:ee6a53069455 213 break;
klauss 119:ee6a53069455 214 }
klauss 119:ee6a53069455 215 case TELEMETRY :{
klauss 119:ee6a53069455 216 pkg[ 7 ] = seq_num;
klauss 119:ee6a53069455 217 print_clock( pkg + 8 );
klauss 119:ee6a53069455 218 //FIXME a header manda pacotes de tele pro cbx ?
klauss 119:ee6a53069455 219 pkg[ TIMESLICE_PLACE ] = cb_buffer[ TIMESLICE_PLACE ];
klauss 119:ee6a53069455 220 fill = TIMESLICE_PLACE + 1;
klauss 119:ee6a53069455 221 break;
klauss 119:ee6a53069455 222 }
klauss 119:ee6a53069455 223 case BOOTLOADER_CBX :{
klauss 119:ee6a53069455 224 xmemcpy((pkg + 7),(uint8_t *)cb_buffer,length);
klauss 119:ee6a53069455 225 fill = VZ_HEADER_OFFSET + length;
klauss 119:ee6a53069455 226 break;
klauss 119:ee6a53069455 227 }
klauss 119:ee6a53069455 228 }//fim switch
klauss 0:4d17cd9c8f9d 229
klauss 119:ee6a53069455 230 //preenche o final do pacote com 0
klauss 119:ee6a53069455 231 for( register uint16_t i = fill; i < CB_BUFFER_SIZE; i++ ) pkg[ i ] = 0x00;
klauss 0:4d17cd9c8f9d 232
klauss 119:ee6a53069455 233 //colocando o terminador de pacotes estabelecido pelo protocolo
klauss 119:ee6a53069455 234 pkg[ CB_BUFFER_SIZE - 4 ] = 0x5a;
klauss 119:ee6a53069455 235 pkg[ CB_BUFFER_SIZE - 3 ] = 0x56;
klauss 119:ee6a53069455 236 pkg[ CB_BUFFER_SIZE - 2 ] = 0x5a;
klauss 119:ee6a53069455 237 pkg[ CB_BUFFER_SIZE - 1 ] = 0xe1;
klauss 100:09a23fcd3bdf 238
klauss 119:ee6a53069455 239 //calcula e preenche o checksum
klauss 119:ee6a53069455 240 uint16_t cc = vz_checksum( pkg, CB_BUFFER_SIZE );
klauss 0:4d17cd9c8f9d 241 pkg[ 4 ] =( uint8_t )( ( cc & 0xFF00 ) >> 8) ;
klauss 0:4d17cd9c8f9d 242 pkg[ 5 ] =( uint8_t )( cc & 0x00FF );
klauss 0:4d17cd9c8f9d 243
klauss 119:ee6a53069455 244 //enable/disable de exibicao de pacotes prontos para envio
klauss 119:ee6a53069455 245 if( debug_show_cpld ) {
klauss 119:ee6a53069455 246 char str[ 1024 ];
klauss 119:ee6a53069455 247 strcpy( str, "TX :: \n\r " );
klauss 119:ee6a53069455 248 for( register uint16_t i = 0; i < CB_BUFFER_SIZE; i++ ) {
klauss 119:ee6a53069455 249 char tmp[ 16 ];
klauss 121:ee02790d00b7 250 snprintf ( tmp, sizeof ( tmp ), "%x", pkg [ i ] );
klauss 121:ee02790d00b7 251 strcat( str, tmp );
klauss 119:ee6a53069455 252 if( ( i != 0 ) && !( ( i + 1 ) % 50 ) ) strcat( str, "\n\r " );
klauss 119:ee6a53069455 253
klauss 119:ee6a53069455 254 else strcat( str, " " );
klauss 119:ee6a53069455 255 }
klauss 119:ee6a53069455 256 send_msg( "%s", str );
klauss 119:ee6a53069455 257 }
klauss 119:ee6a53069455 258
klauss 119:ee6a53069455 259 //retorna o ultimo paramentro recebido com o pacote montado.
klauss 0:4d17cd9c8f9d 260 return pkg;
klauss 0:4d17cd9c8f9d 261 }
klauss 0:4d17cd9c8f9d 262
klauss 119:ee6a53069455 263 uint16_t vz_checksum ( uint8_t * buffer, size_t length )
klauss 119:ee6a53069455 264 {
klauss 70:714c33487aae 265 if( !buffer ) return( 0 );
klauss 0:4d17cd9c8f9d 266 uint16_t cc = 0x00;
klauss 0:4d17cd9c8f9d 267 buffer[ 4 ] = buffer[ 5 ] = 0x5a;
klauss 0:4d17cd9c8f9d 268 for( register int i = 0; i < length; i++ ){
klauss 0:4d17cd9c8f9d 269 cc += buffer[ i ];
klauss 0:4d17cd9c8f9d 270 if( cc & BIT15 ){
klauss 0:4d17cd9c8f9d 271 cc <<= 1;
klauss 0:4d17cd9c8f9d 272 cc |= BIT0;
klauss 0:4d17cd9c8f9d 273 }else{ cc <<= BIT0; }
klauss 0:4d17cd9c8f9d 274 }
klauss 0:4d17cd9c8f9d 275 cc ^= 0xffff;
klauss 0:4d17cd9c8f9d 276 return cc;
klauss 0:4d17cd9c8f9d 277 }