Modularizando o src
Dependencies: EALib EthernetInterface_vz mbed-rtos mbed
Fork of header_main_colinas_V0-20-09-14 by
vz_protocol.cpp
- Committer:
- klauss
- Date:
- 2015-11-24
- Revision:
- 137:32dd35a6dbc9
- Parent:
- 136:2da626f30efa
File content as of revision 137:32dd35a6dbc9:
#include "vz_protocol.h" uint32_t pkg_ckserr = 0; uint32_t pkg_zero = 0; uint32_t pkg_cksok = 0; int begin = 0; int end = 0; int init_ranges ( void ) { begin = cm -> get_min_ext (); end = cm -> get_max_ext (); return ( 0 ); } uint8_t * parse_vz_pkg ( int * ext, int * port, volatile uint8_t * type, uint8_t * cb_buffer ) { if ( ( ext and port and type and cb_buffer ) == NULL ) return ( NULL ); //tratamento dos pacotes do tipo flood logo na chegada { if ( cb_buffer [ TYPE_PLACE ] == FLOOD ) { flood_counter++; static uint8_t flood_cnt = 0; static uint8_t first_run_flag = 0; static Timer t; if (first_run_flag == 0) { flood_cnt = cb_buffer[0]; first_run_flag++; t.start(); } else { if (cb_buffer[0] == 0x00){ if( debug_uart3 and enable_flood ) pc.printf("%d", t.read_us()); if( tcp_session and !udp_query and enable_flood ){ char tmp[ 16 ]; sprintf( tmp, "%d", t.read_us() ); tcp_client.send_all( tmp, strlen( tmp ) ); } } flood_cnt++; while (flood_cnt != cb_buffer[0]) { if( debug_uart3 and enable_flood ) pc.printf("0"); flood_cnt++; if( tcp_session and !udp_query and enable_flood ){ tcp_client.send_all( "0", strlen( "0" ) ); } } int i; int ok = 1; uint8_t cmp; for (i=0, cmp=cb_buffer[0]; (i<300) and (ok==1); i++, cmp++) { if (i != 6) { if (cb_buffer[i] != cmp) ok = 0; } } if( ok ){ if( debug_uart3 and enable_flood ) pc.printf("+"); if( tcp_session and !udp_query and enable_flood ){ tcp_client.send_all( "+", strlen( "+" ) ); } }else{ if( debug_uart3 and enable_flood ) pc.printf("%02x",cb_buffer[0] ); if( debug_uart3 and enable_flood ) pc.printf("#"); if( debug_uart3 and enable_flood ) pc.printf("\n\r"); if( tcp_session and !udp_query and enable_flood ){ char tmp[ 16 ]; sprintf( tmp, "%02x#\n\r", cb_buffer[ 0 ] ); tcp_client.send_all( tmp, strlen( tmp ) ); } for( int i = 0; i < 300 ; i++ ){ if( debug_uart3 and enable_flood ) pc.printf("%x", cb_buffer[ i ]); if( tcp_session and !udp_query and enable_flood ){ char tmp[ 16 ]; sprintf( tmp, "%x", cb_buffer[ i ] ); tcp_client.send_all( tmp, strlen( tmp ) ); } } } } return( NULL ); } }//fim tratamento do flood uint16_t cc = ( uint16_t )cb_buffer[ 4 ] << 8 bitor cb_buffer[ 5 ]; uint16_t cc_calculated = vz_checksum ( cb_buffer, CB_BUFFER_SIZE ); if ( cc != cc_calculated ) { if ( debug_cks_err ) vz_printf ( "Received PKG, but -- CKS ERROR: %d ( %d )", cc_calculated, cc ); if ( cc_calculated == 30975 and cc == 0 ){ pkg_zero++; }else{ pkg_ckserr++; } return( NULL ); } else { uint8_t e_lsb, e_msb; uint8_t p_lsb, p_msb; pkg_cksok ++; e_msb = cb_buffer [ 0 ]; e_lsb = cb_buffer [ 1 ]; *ext = ( (uint16_t )e_msb ) << 8 bitor e_lsb; //restriçao de controle para cbx malucos if ( *ext < begin or *ext > end ) { if ( debug_out_of_range ) vz_printf ("Trying from %d", *ext ); out_of_range ++; return ( NULL ); } p_msb = cb_buffer[ 2 ]; p_lsb = cb_buffer[ 3 ]; *port = ( (uint16_t )p_msb ) << 8 bitor p_lsb; *type = cb_buffer [ TYPE_PLACE ]; return ( cb_buffer + VZ_HEADER_OFFSET ); } } uint8_t * build_cb_package ( const int ext, const int port, const uint8_t type, const char * cb_buffer, const uint8_t seq_num, const int length, uint8_t * pkg ) { //checa se o fuffer de src e dst dos dados estao alocados if( ( cb_buffer == NULL ) or ( pkg == NULL ) ) return NULL; //apaga as posicoes de memoria onde serah montado o pacote for( register int i = 0; i < CB_BUFFER_SIZE; i++ ) pkg[ i ] = 0; //coloca ramal ( MSB ), ramal ( LSB ), porta ( MSB ), porta ( LSB ) e tipo nas posicoes destino pkg[ 0 ] = ( uint8_t )( ( ext bitand 0xFF00 ) >> 8 ); pkg[ 1 ] = ( uint8_t )( ext bitand 0x00FF ); pkg[ 2 ] = ( uint8_t )( ( port bitand 0xFF00 ) >> 8 ); pkg[ 3 ] = ( uint8_t )( port bitand 0x00FF ); pkg[ TYPE_PLACE ] = type; //preenche os dados de acordo com o tipo do pacote transmitido size_t fill = VZ_HEADER_OFFSET; switch( type ) { case AUDIO :{ for( register int i = VZ_HEADER_OFFSET; i < length + VZ_HEADER_OFFSET; i++ ) pkg[ i ] = ( uint8_t )cb_buffer[ i - VZ_HEADER_OFFSET ]; fill = length + VZ_HEADER_OFFSET; break; } case INVITE :{ pkg[ 7 ] = seq_num; print_clock( pkg + 8 ); pkg[ TIMESLICE_PLACE ] = cb_buffer[ TIMESLICE_PLACE ]; fill = TIMESLICE_PLACE + 1; break; } case REGISTRY :{ pkg[ 7 ] = seq_num; print_clock( pkg + 8 ); fill = VZ_HEADER_OFFSET + CLOCK_SYNC_SIZE + SEQ_NUM_SIZE; break; } case BOOT :{ pkg[ 7 ] = seq_num; print_clock( pkg + 8 ); fill = VZ_HEADER_OFFSET + CLOCK_SYNC_SIZE + SEQ_NUM_SIZE; break; } case CB_BYE :{ pkg[ 7 ] = seq_num; print_clock( pkg + 8 ); pkg[ TIMESLICE_PLACE ] = cb_buffer[ TIMESLICE_PLACE ]; fill = TIMESLICE_PLACE + 1; break; } case PROMPT :{ strcpy( ( char * )( pkg + VZ_HEADER_OFFSET ), cb_buffer ); fill = strlen( cb_buffer ) + VZ_HEADER_OFFSET; break; } case TELEMETRY :{ pkg[ 7 ] = seq_num; print_clock( pkg + 8 ); //FIXME a header manda pacotes de tele pro cbx ? pkg[ TIMESLICE_PLACE ] = cb_buffer[ TIMESLICE_PLACE ]; fill = TIMESLICE_PLACE + 1; break; } case BOOTLOADER_CBX :{ xmemcpy((pkg + 7),(uint8_t *)cb_buffer,length); fill = VZ_HEADER_OFFSET + length; break; } }//fim switch //preenche o final do pacote com 0 for( register uint16_t i = fill; i < CB_BUFFER_SIZE; i++ ) pkg[ i ] = 0x00; //colocando o terminador de pacotes estabelecido pelo protocolo pkg[ CB_BUFFER_SIZE - 4 ] = 0x5a; pkg[ CB_BUFFER_SIZE - 3 ] = 0x56; pkg[ CB_BUFFER_SIZE - 2 ] = 0x5a; pkg[ CB_BUFFER_SIZE - 1 ] = 0xe1; //calcula e preenche o checksum uint16_t cc = vz_checksum( pkg, CB_BUFFER_SIZE ); pkg[ 4 ] =( uint8_t )( ( cc bitand 0xFF00 ) >> 8) ; pkg[ 5 ] =( uint8_t )( cc bitand 0x00FF ); //retorna o ultimo paramentro recebido com o pacote montado. return pkg; } uint16_t vz_checksum ( uint8_t * buffer, size_t length ) { if( !buffer ) return( 0 ); uint16_t cc = 0x00; buffer[ 4 ] = buffer[ 5 ] = 0x5a; for( register int i = 0; i < length; i++ ){ cc += buffer[ i ]; if( cc bitand BIT15 ){ cc <<= 1; cc or_eq BIT0; }else{ cc <<= BIT0; } } cc ^= 0xffff; return cc; } void print_clock ( uint8_t * buffer ) { if( buffer != NULL ) { struct tm * result_tm; if( sizeof( time_t ) != sizeof( long ) ) { if ( debug_print_clock ) vz_debug ( "sizeof( time_t ) : %lu -- sizeof( long int ) : %lu\n", sizeof( time_t ), sizeof( long ) ); } if ( debug_print_clock ) vz_debug ( "current_time : %lu\t", current_time ); if( current_time != 0 ) { result_tm = localtime( ( const time_t *)¤t_time ); if ( result_tm ) { char formated_time[ 16 ]; /* Correcao "manual" do (GMT -3:00) */ result_tm->tm_hour -= 3; if ( result_tm->tm_hour < 0 ) result_tm->tm_hour = 24 + result_tm->tm_hour; size_t formated_nbytes = strftime( formated_time, sizeof( formated_time ), "%Y%m%d%H%M%S", result_tm ); if ( debug_print_clock ) vz_debug ("clock() : %s\n", formated_time ); if( formated_nbytes != CLOCK_SYNC_SIZE ) vz_debug ("( %lu )\n", formated_nbytes ); for( register int i = 0; i < CLOCK_SYNC_SIZE; i++ ) buffer[ i ] = formated_time[ i ]; } else { for( register int i = 0; i < CLOCK_SYNC_SIZE; i++ ) buffer[ i ] = 0xfa; } } else { for( register int i = 0; i < CLOCK_SYNC_SIZE; i++ ) buffer[ i ] = 0xab; } } }