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@137:32dd35a6dbc9, 2015-11-24 (annotated)

Committer:
klauss
Date:
Tue Nov 24 14:06:22 2015 +0000
Revision:
137:32dd35a6dbc9
Parent:
136:2da626f30efa 
core source of the .bin (09/21/2015) in the field

Who changed what in which revision?

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