File content as of revision 113:db67ae00550e:

#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;

void init_ranges( void ){
    FILE * begin_ext = fopen( "/qspi/minext.txt", "r" );
    if( begin_ext == NULL ){
        if( debug_out_of_range ) debug_msg("Failed to open /qspi/minext.txt" );
        begin = MIN_EXT;
    }else{
        char inner_tmp[ 20 ];
        if( fread( (void *)inner_tmp, 1, 20, begin_ext ) > 0 ){
            begin = atoi( inner_tmp );
            if( debug_out_of_range ) debug_msg("Ext Min %d", begin );
        }else{
            if( debug_out_of_range ) debug_msg("Failed to read /qspi/minext.txt" );
            begin = MIN_EXT;
        }
    }
    fclose( begin_ext );
    
    FILE * end_ext = fopen( "/qspi/maxext.txt", "r" );
    if( end_ext == NULL ){
        if( debug_out_of_range ) debug_msg("Failed to open /qspi/maxext.txt" );
        end = MAX_EXT;
    }else{
        char inner_tmp[ 20 ];
        if( fread( (void *)inner_tmp, 1, 20, end_ext ) > 0 ){
            end = atoi( inner_tmp );
            if( debug_out_of_range ) debug_msg("Ext Min %d", end );
        }else{
            if( debug_out_of_range ) debug_msg("Failed to read /qspi/maxext.txt" );
            begin = MAX_EXT;
        }
    }
    fclose( end_ext );
}

uint8_t * parse_vz_pkg( int * ext, int * port, volatile uint8_t * type, uint8_t * cb_buffer ){
    uint8_t p_lsb, p_msb;
    uint8_t e_lsb, e_msb;
    
    if( ( ext && port && type && cb_buffer ) == NULL ) return( NULL );

    //tratamento dos pacotes do tipo flood logo na chegada
    {    
        if( cb_buffer[ 6 ] == __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 ) pc.printf("%d", t.read_us());
                    if( tcp_session && !udp_query ){
                        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 ) pc.printf("0");
                    flood_cnt++;
                    if( tcp_session && !udp_query ){
                        tcp_client.send_all( "0", strlen( "0" ) );
                    }
                }
                int i;
                int ok = 1;
                uint8_t cmp;
                for (i=0, cmp=cb_buffer[0]; (i<300) && (ok==1); i++, cmp++) {
                    if (i != 6) {
                        if (cb_buffer[i] != cmp) ok = 0;
                    }
                }
                if( ok ){
                    if( debug_uart3 ) pc.printf("+");
                    if( tcp_session && !udp_query ){
                        tcp_client.send_all( "+", strlen( "+" ) );
                    }
                }else{
                    if( debug_uart3 ) pc.printf("%02x",cb_buffer[0] );
                    if( debug_uart3 ) pc.printf("#");
                    if( debug_uart3 ) pc.printf("\n\r");
                    if( tcp_session && !udp_query ){
                        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 ) pc.printf("%x", cb_buffer[ i ]);
                        if( tcp_session && !udp_query ){
                            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 | cb_buffer[ 5 ];
    
    uint16_t cc_calculated = __checksum__( cb_buffer, CB_BUFFER_SIZE );
    
    if( cc != cc_calculated ){
        if( debug_cks_err ) send_msg( "Received PKG, but -- CKS ERROR: %d ( %d )", cc_calculated, cc );

        if( cc_calculated == 30975 && cc == 0 ){
            pkg_zero++;
        }else{ 
            pkg_ckserr++;
        }
        return( NULL );
    }else{
        pkg_cksok++;
        e_msb = cb_buffer[ 0 ];
        e_lsb = cb_buffer[ 1 ];
        *ext = e_msb << 8  | e_lsb;
        
        //restriçao de controle para cbx malucos       
        if( *ext < begin || *ext > end ){
            if( debug_out_of_range ) send_msg("Trying from %d", *ext );
            out_of_range++;
            return( NULL );
        }
        
        p_msb = cb_buffer[ 2 ];
        p_lsb = cb_buffer[ 3 ];
        *port = p_msb << 8 | p_lsb; 
    
        if( debug_port_match ) if( *ext == *port ) debug_msg("%u:%u", *ext, *port );
        
        *type = cb_buffer[ 6 ];
        
        if( ( ( *port < 5000 ) || ( *port >= ( 5000 + __MAX_CB_IN_A_BRANCH__ ) ) && ( *type == __TELEMETRY__ ) ) ) return NULL;

        return( cb_buffer + __VZ_HEADER_OFFSET__ );    
    }
}
uint8_t * build_cb_package( int ext, int port, uint8_t type, char * cb_buffer, uint8_t seq_num, int length,  uint8_t * pkg ){    
    //checa se o fuffer de src e dst dos dados estao alocados
    if( ( cb_buffer == NULL ) || ( 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 & 0xFF00 ) >> 8 );                                                                                      
    pkg[ 1 ] = ( uint8_t )( ext & 0x00FF );                                                                                                                                                                                                                                 
    pkg[ 2 ] = ( uint8_t )( ( port & 0xFF00 ) >> 8 );                      
    pkg[ 3 ] = ( uint8_t )( port & 0x00FF );
                                                                                                                                        
    pkg[ 6 ] = 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 __BL__ :{
                pkg[ 7 ] = seq_num;
                __print_clock__( pkg + 8 );
                fill = __VZ_HEADER_OFFSET__ + __CLOCK_SYNC_SIZE__ + __SEQ_NUM_SIZE__;
                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 = __checksum__( pkg, CB_BUFFER_SIZE );
    pkg[ 4 ] =( uint8_t )( ( cc & 0xFF00 ) >> 8) ;
    pkg[ 5 ] =( uint8_t )( cc & 0x00FF );
    
    //enable/disable de exibicao de pacotes prontos para envio
    if( debug_show_cpld ) {
        char str[ 1024 ];
        strcpy( str, "TX :: \n\r " );
        for( register uint16_t i = 0; i < CB_BUFFER_SIZE; i++ ) {
            char tmp[ 16 ];
            strcat( str, itoa( pkg[ i ], tmp, 16 ) );
            if( ( i != 0 ) && !( ( i + 1 ) % 50 ) ) strcat( str, "\n\r " );

            else strcat( str, " " );
        }
        send_msg( "%s", str );
        //rx = false;
    }
    
    //retorna o ultimo paramentro recebido com o pacote montado.
    return pkg;
}

uint16_t __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 & BIT15 ){
            cc <<= 1;
            cc |= BIT0;
        }else{ cc <<= BIT0; }
    }
    cc ^= 0xffff;
    return cc; 
}

void __print_clock__( uint8_t * buffer ){
    //if( !buffer ) return;
    
    //int ntp_result = ntp.setTime( "200.192.232.8", 123, 3 );
    //led2 = !led2;
    //struct tm  ts;
    //int ntp_result = ntp.setTime( "200.192.232.8" );
    //int ntp_result = ntp.setTime( "200.192.232.8", 123, 3 );
    //if( ntp_result == 0 ){
    //    time_t seconds;
        // seconds = time(NULL);
    //    time( &seconds );
    //    ts = *localtime( &seconds );
   //}
    
    //int ano = ts.tm_year + 1900;
    //int mes = ts.tm_mon + 1;
    //int dia = ts.tm_mday; 
    //int hora = ts.tm_hour - 3;
    //int min = ts.tm_min; 
    //int sec = ts.tm_sec; 
    
    //buffer[ 0 ] = ano / 1000;
    //ano -= buffer[ 0 ] * 1000;
    //buffer[ 1 ] = ano / 100;
    //ano -= buffer[ 1 ]* 100;
    //buffer[ 2 ] = ano / 10;
    //ano -= buffer[ 2 ] * 10;
    //buffer[ 3 ] = ano;
    //buffer[ 4 ] = mes / 10;
    //buffer[ 5 ] = mes % 10;
    //buffer[ 6 ] = dia / 10;
    //buffer[ 7 ] = dia % 10;
    //buffer[ 8 ] = hora / 10;
    //buffer[ 9 ] = hora % 10;
    //buffer[ 10 ] = min / 10;
    //buffer[ 11 ] = min % 10;
    //buffer[ 12 ] = sec / 10;
    //buffer[ 13 ] = sec % 10;
    
    /* convertendo pro ascii do nro */
    for( register int i = 0; i < 14; i++ ) buffer[ i ] = 0xab;
    //led4 = !led4;
}