Lorcan Smith
SNMP agent attached to SPI slave
Diff: main.cpp
- Revision:
- 0:2a53a4c3238c
- Child:
- 2:25e12a7fe0aa
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/main.cpp Mon Aug 13 15:07:40 2012 +0000
@@ -0,0 +1,1115 @@
+
+/*
+Generated: Enet_SPI_LPC1768.bin
+
+mbed test software for Ethernet HTTPServer with simultaneous SPI for 4 data byte updates
+
+Send serial message via USB every 1.0 second tick
+Version Date Author Change
+0.2: 06/10/11 LS Add block checksum character to SPI data
+0.3: 07/10/11 LS Add SPI read from cmd_buf
+0.4: 13/10/11 LS Integrated with HTTP server example code
+0.5: 18/10/11 LS Initial file handling
+0.6: 26/10/11 LS File IO handled by SPI_server class
+0.64: 04/11/11 LS RPC bodge added as part of HTTP file handling:
+0.66: 04/11/11 LS Show register values as hex bytes as well as word value
+0.78: 17/11/11 LS Add SNMP files for system info reporting, but HTTP svr.bind disabled
+0.79 30/11/11 LS Add f3kTable as ID 7 in F3000 private MIB
+0.79e 12/12/11 LS Reads network addresses from file & uses Field enterprise address
+0.80 18/12/11 LS Save last number read in read_addrs_from_file().
+ Add write_addrs_to_file() to testaddrs.txt
+0.81 22/12/11 LS Add new_cmd_idx to indicate which parameter has been set (0 for none).
+0.82 22/12/11 LS Add blinker to show comms activity
+0.83 23/12/11 LS Clear cmd_buf[0] after SPI been read 4 times
+0.84 27/12/11 LS snmp_fw_version & f3k_fw_version saved as 4 char strings
+0.85 29/12/11 LS Update f3k_sys_set_value() & f3k_sys_set_test() to enable net address change
+0.90 29/12/11 LS Add 3-step routine for passing commands over SPI bus from cmd_buf
+0.92 06/01/12 LS Change 3000 index for 3000 firmware version
+0.93 09/01/12 LS Add copy_net_addresses_from() for address updates from 3000 CPU
+0.94 10/01/12 LS Add led_link = LPC_GPIO1->FIOPIN & (1<<25) in netservice.cpp
+0.95 11/01/12 LS Fix f3k_speed reporting error in private_mib.c
+0.96 12/01/12 LS Move led_link = LPC_GPIO1->FIOPIN & (1<<25) to eth_poll in eth_drv.cpp
+0.97 30/01/12 LS Add get_SPI_count() & SPI count to MIB as 3000 CPU activity indicator
+0.98 26/04/12 LS Increase snmp_publiccommunity[7] to [21] and allow this to be set from file
+0.99 08/06/12 LS #define SNMP_TRAP_DESTINATIONS 1. Declare th_ad[4] for host trap address
+ Add init_traps() to ensure head-head link status trap is sent
+ 21/06/12 Add check for changes to IO bytes and chk_SPI_active() every 60 seconds
+1.00 22/06/12 LS Save SNMP changes to net addresses & mask4_IO_registers in net_adrs.txt
+1.01 25/07/12 LS Allow snmp_publiccommunity to be modified via SNMP
+1.02 26/07/12 LS Add changed variable in snmp_varbind io_var to ioChange trap
+1.03 01/08/12 LS Only monitor ls byte of I/O registers for changes to mask out Monostable O/Ps
+1.04 03/08/12 LS Add chk_alarms() for monitoring up to NUM_MASK I/O alarms
+1.05 03/08/12 LS Add struct snmp_varbind io_alarm to pass alarm_msg to f3kIOalarm_trap()
+1.06 07/08/12 LS Reduce MSG_LNGTH to 16 from 32. Free up more RAM for alarm strings
+1.07 08/08/12 LS Add SNMP R/W of alarm strings
+1.08 09/08/12 LS Create array of NUM_MASK alarm strings
+1.09 09/08/12 LS Correct problems reading alarm strings via SNMP OK with 32 char strings
+1.10 09/08/12 LS Tested OK with MSG_LNGTH 16 char strings
+
+http://192.168.99.99/rpc/offset,604 writes 604 to reg_offset
+http://192.168.99.99/rpc/led2/write,1 writes 1 to led2
+http://192.168.99.99/files/IO1000PX.htm uploads file IO1000PX.htm
+*/
+
+#include "mbed.h"
+#include "EthernetNetIf.h"
+#include "HTTPServer.h"
+#include "snmp_structs.h"
+#include "snmp_msg.h"
+#include "snmp_asn1.h"
+#include "IO_file.h"
+
+#define LPC1768 0x60 // SPI address of LPC1768 module
+#define READ_IO 0x01 // bit in address field for data reads
+#define SPI_BYTES 4 // # of data bytes in SPI message
+#define INV_SPI_CNT 0xfffff // invalid (over-range SPI count
+#define NUM_READ 8 // # of SPI replies for valid reads
+#define NUM_INDX 4 // # of SPI replies for valid cmd_buf index
+#define MAX_CMD 4 // size of CMD buffer
+#define NO_CMD 0xff // data on cmd_buf[0] when NO_CMD to be sent
+#define NO_UPDATE 0 // NO change to Ethernet addresses
+#define UPDATED 0xff // Ethernet addresses updated in file
+#define NET_ADRS_FILE "/webfs/net_adrs.txt"
+#define ALARM_FILE "/webfs/alarms.txt"
+
+
+const char * snmp_fw_version = "1.10";
+
+/** v0.7: OID for enterprise specific ioChange TRAPs */
+const struct snmp_obj_id io_change_id = {9,{1,3,6,1,4,1,SNMP_ENTERPRISE_ID,3,1}};
+/** v1.08: OID for enterprise specific ioAlarm TRAPs */
+const struct snmp_obj_id io_alarm_id = {9,{1,3,6,1,4,1,SNMP_ENTERPRISE_ID,4,1}};
+//const struct snmp_obj_id al_mask_id = {9,{1,3,6,1,4,1,SNMP_ENTERPRISE_ID,5,1}};
+/* v1.05: structures for enterprise specific TRAPs */
+extern struct snmp_varbind io_var;
+extern struct snmp_varbind al_var;
+extern struct snmp_varbind io_alarm;
+/* v1.02: OID for enterprise specific ioChange & ioAlarm TRAPs */
+unsigned char io_chng_idx; // index of changed I/O register
+u32_t io_chng_val; // new I/O value if changed
+s32_t io_oid[10]; // OID for io values used by ioChange & ioAlarm
+s32_t als_oid[10]; // OID for alarm string
+
+/* default ethernet address setup */
+unsigned char ip_ad[4] = {192,168,99,99};
+unsigned char msk_ad[4] = {255,255,255,0};
+unsigned char gwy_ad[4] = {192,168,99,253};
+unsigned char dns_ad[4] = {192,168,99,253};
+unsigned char th_ad[4] = {146,38,105,49}; // v0.99: host address for SNMP traps
+unsigned char net_addrs_set = false; // flags net address update from SNMP
+unsigned char net_addrs_chng = NO_UPDATE; // flags net address changed in 3000
+unsigned char byte_changed = false; // true if any IO regs have changed
+unsigned char all_IO_updated = false; // true if all 32 IO regs have been read
+unsigned char alarm_str_set = false; // flags alarm string update from SNMP
+char hex_mask[12]; // IO mask as hex string
+char reg_change[NUM_MASK]; // register changed associated with io_masks
+u32_t new_io_val[NUM_MASK]; // chnaged IO value associated with io_masks
+unsigned long io_mask[NUM_MASK]; // masks for alarms on IO registers
+unsigned long mask4_IO_registers = 0x3fffffff; // mask for IO regs ignoring IO31 & 32
+unsigned long spi_count = 0; // last SPI_COUNT saved in SPI interrupt
+unsigned char spi_active = true; // avoid false trap message at start
+
+char alarm_msg[NUM_MASK][MSG_LNGTH]; // alarm messages associated with io_masks
+static u8_t syslocation[MSG_LNGTH]; /* v0.9b */
+u8_t sysloc_len;
+
+SPISlave spi_slave(p11, p12, p13, p14); // mosi, miso, sclk, ssel
+
+Ticker comms_tick;
+Ticker sys_tick; // system tick for SNMP sysuptime report
+Ticker spi_tick; // tick for monitoring SPI activity
+Timeout cold_start_delay;
+
+DigitalOut led1(LED1, "led1"); // mimics head-head link status o/p in 3000 I/O
+DigitalOut led2(LED2, "led2");
+DigitalOut led3(LED3, "led3");
+DigitalOut led4(LED4, "led4");
+DigitalOut led_link(p29); // Green link status: ON=good, Blink=Activity
+DigitalOut led_speed(p30); // Yellow link speed: ON for 100Mb/s
+
+unsigned char blink_led = false;
+unsigned char trap_init = false; // true after cold_start trap sent
+
+LocalFileSystem fs( "webfs" );
+
+IpAddr mip, mnm, mgw, mdns; // instantiate from core\ipaddr.cpp
+
+//EthernetNetIf eth; // use if DNS sets up address
+
+HTTPServer svr;
+SPI_Server fsvr( "fsvr" );
+
+Serial pc( USBTX, USBRX ); // for diagnostic serial comms to PC via USB
+
+/****************************************************************************/
+/* SPI interface data and routines */
+/****************************************************************************/
+/* commands sent to 3000 cpu from cmd_buf[0] and
+ waiting commands stored in higher indices until sent */
+unsigned char cmd_buf[ MAX_CMD ]; // store for commands from Ethernet
+unsigned char new_cmd_idx;
+
+
+/****************************************************************************/
+/* SPI_Server:
+* Description: Instantiates Class to hold & access all data read from RAM by SPI
+* Called by FSHandler::doGet() in services\http\server\impl
+* Parameters: name of object instantiated
+* Returns: NONE
+*/
+/****************************************************************************/
+SPI_Server::SPI_Server(const char * name)
+{
+int idx;
+ for ( idx = 0; idx < MAX_RAM; idx++ )
+ { // clear ram_img to minimise traps at start-up
+ ram_img[ idx ] = 0;
+ }
+ reg_offset = 0;
+}
+
+SPI_Server::~SPI_Server()
+{
+ if(fp) fclose(fp);
+}
+
+/****************************************************************************/
+/* update_IO_file:
+* Description: Reads data from ram_img[] into IO1000PX.htm for web access
+* Called by FSHandler::doGet() in services\http\server\impl
+* Globals used: NONE
+* Parameters: NONE
+* Returns: 0 if OK, 1 if failed to open files
+*/
+/****************************************************************************/
+int SPI_Server::update_IO_file()
+{
+int c, i; // characters read/written in files
+unsigned short chnl, dval; // data from 1000PX
+
+ DBG("\r\nIn SPI_Server::update_IO_file()\r\n");
+ FILE *fr = fopen("/webfs/hdr.htm", "r");
+ if(!fr) {
+ fprintf(stderr, "\r\nFile /webfs/hdr.htm could not be opened!\r\n");
+ exit(1);
+ }
+ else
+ {
+ fp = fopen( "/webfs/IO1000PX.htm", "w" );
+ if(!fp) {
+ fprintf(stderr, "\r\nFile /webfs/IO1000PX.htm could not be opened to write!\r\n" );
+ exit(1);
+ }
+ else
+ {
+ while ( (c = fgetc(fr)) != EOF )
+ {
+ fputc( c, fp );
+ }
+ fclose(fr);
+ DBG("\r\nIn SPI_Server::update_IO_file() - header copied\r\n");
+ for ( i = 0; i < 16; i++ )
+ {
+ chnl = reg_offset + i;
+ dval = 256 * ram_img[ 2*chnl ] + ram_img[ 2*chnl + 1 ];
+ fprintf(fp, " <TR VALIGN=TOP>\r\n");
+ fprintf(fp, " <TD WIDTH=124>\r\n");
+ fprintf(fp, " <P>%02d</P>\r\n", chnl );
+ fprintf(fp, " </TD>\r\n");
+ fprintf(fp, " <TD WIDTH=124>\r\n");
+ fprintf(fp, " <P>%d</P>\r\n", dval );
+ fprintf(fp, " </TD>\r\n");
+ fprintf(fp, " <TD WIDTH=124>\r\n");
+ fprintf(fp, " <P>%02x</P>\r\n", (dval/256) );
+ fprintf(fp, " </TD>\r\n");
+ fprintf(fp, " <TD WIDTH=124>\r\n");
+ fprintf(fp, " <P>%02x</P>\r\n", (dval & 0xff) );
+ fprintf(fp, " </TD>\r\n");
+ fprintf(fp, " </TR>\r\n");
+ }
+ fprintf(fp, "</TABLE>\r\n<P><BR><BR>\r\n</P>\r\n</BODY>\r\n</HTML>\r\n");
+ }
+ }
+ fclose(fp);
+// fclose(fr);
+ return 0;
+}
+
+int SPI_Server::read( void )
+{
+ DBG("\r\nIn SPI_Server::read()\r\n");
+ return reg_offset;
+}
+
+void SPI_Server::write( int new_offset )
+{
+ DBG("\r\nIn SPI_Server::write()\r\n");
+ if ( (new_offset >= 0) && (new_offset < MAX_RAM) ) reg_offset = new_offset;
+}
+
+unsigned char SPI_Server::get_byte( unsigned short idx )
+{
+ return ram_img[ idx ];
+}
+
+void SPI_Server::put_byte( unsigned short idx, unsigned char new_byte )
+{
+ if ( idx < MAX_RAM )
+ ram_img[ idx ] = new_byte;
+}
+
+unsigned short SPI_Server::get_error( void )
+{
+ // return error register value from Field 3000 CPU
+ return (256 * ram_img[ 1786 ]) + ram_img[ 1787 ];
+}
+
+unsigned short SPI_Server::get_SPI_count( void )
+{
+ // return SPI write count from Field 3000 CPU - indicates F3000 running OK
+ return (256 * ram_img[ SPI_COUNT ]) + ram_img[ SPI_COUNT + 1 ];
+}
+
+unsigned char * SPI_Server::net_address_ptr( void )
+{
+ return &ram_img[ NET_IP_ADDRESS ];
+}
+
+unsigned char * SPI_Server::trap_host_ptr( void )
+{
+ return &ram_img[ TRAP_HOST_ADDRESS ];
+}
+
+#if 0
+//#ifdef MBED_RPC trap_host_ptr
+const struct rpc_method *SPI_Server::get_rpc_methods() {
+ static const rpc_method methods[] = {
+ { "read", rpc_method_caller<int, SPI_Server, &SPI_Server::read> },
+ { "write", rpc_method_caller<SPI_Server, int, &SPI_Server::write> },
+ RPC_METHOD_SUPER(Base) //Stream)
+ };
+ return methods;
+}
+
+struct rpc_class *SPI_Server::get_rpc_class() {
+ static const rpc_function funcs[] = {
+ { "new", rpc_function_caller<const char*, int, &Base::construct<SPI_Server, int> > },
+ RPC_METHOD_END
+ };
+ static rpc_class c = { "SPI_Server", funcs, NULL };
+ return &c;
+}
+#endif
+
+void check4write_offset( char * req )
+{
+unsigned char l, c, i;
+char v[ 20 ] = {0};
+char s[ 20 ] = {0};
+char * p;
+
+ strcpy( v, "/offset," );
+ p = strstr( req, v );
+ strcpy( s, p );
+ if ( p != NULL )
+ {
+ i = strlen(v);
+ l = strlen(s);
+ if ( (l > i) && (l < (i + 6)) )
+ {
+ l -= i;
+ for ( c = 0; c < l; c++ )
+ {
+ v[ c ] = s[ i + c ];
+ }
+ v[ c ] = 0;
+ fsvr.write( atoi(v) );
+ }
+ }
+}
+
+/****************************************************************************/
+/* chk_alarms: v1.04
+* Description: called when io_value has changed and checks each io_mask
+* to see if this mask_idx (IO register - 1) is masked in
+* Globals used: reg_change[], io_mask[], new_io_val[]
+* Parameters: IN: int mask_idx - 0-based index into mask = (io_reg - 1)
+* IN: unsigned short io_value - new I/O value for register
+* Returns: NONE
+*/
+/****************************************************************************/
+void chk_alarms( int mask_idx, unsigned short io_value )
+{
+unsigned char mask;
+
+ for ( mask = 0; mask < NUM_MASK; mask++ )
+ {
+ if ( (reg_change[ mask ] == 0) && ( io_mask[ mask ] & (1 << mask_idx) ) )
+ { // masked-in register has changed
+ new_io_val[ mask ] = (u32_t)io_value;
+ reg_change[ mask ] = mask_idx + 1;
+ }
+ }
+}
+
+/****************************************************************************/
+/* get_SPI_data:
+* Description: Implements transaction as SPI slave.
+* Reads 4 data bytes from SPI bus into destbuf for SPI write, or
+* Puts 1 byte from srcbuf onto SPI for SPI read
+* Called by main when spi_slave.receive interrupts
+* LPC1768 SPI slave handles a maximum of 8 bytes per transfer
+* Globals used: NONE
+* Parameters: IN/OUT: unsigned char * srcbuf : buffer to read from
+* Returns: int buf_idx : index to SPI data in destbuf/srcbuf
+*/
+/****************************************************************************/
+int get_SPI_data( unsigned char * srcbuf )
+{
+static unsigned char rd_cnt; // v0.83: count of times valid data put on bus
+int buf_idx = 0xffff; // index to save SPI data into destbuf
+int idx; // index to compare with net address block
+unsigned char spi_buf[ 8 ]; // temporary buffer for SPI data received
+unsigned char byte_cnt; // count of SPI data bytes received
+unsigned char spiv; // SPI value - initial slave address
+unsigned char bcc = 0; // received block check character
+unsigned char bcc_ok = false; // default to reject messages without bcc
+unsigned short io_val; // first I/O value changed from registers 1-32
+
+ spiv = spi_slave.read(); // Read byte from master
+ if ( (spiv & 0xfe) == (LPC1768 & 0xfe) )
+ {
+ if ( spiv & READ_IO )
+ {
+ led4 = 1;
+ led3 = 0;
+ if ( *srcbuf < NO_CMD )
+ { // new data to be read by 3000 cpu
+ if ( ++rd_cnt >= NUM_READ )
+ { // v0.83: clear data after 4 reads
+ spi_slave.reply( NO_CMD ); // put invalid data in SPI buffer
+ *srcbuf = NO_CMD;
+ rd_cnt = 0;
+ }
+ else if ( rd_cnt >= NUM_INDX )
+ { // next put data from srcbuf in SPI buffer
+ spi_slave.reply( *srcbuf );
+ }
+ else // put new_cmd_idx on SPI bus first
+ {
+ spi_slave.reply( NO_CMD - new_cmd_idx ); // put new_cmd_idx in SPI buffer
+ }
+ } // end if ( *srcbuf < 0xff )
+ else
+ {
+ rd_cnt = 0; // re-initialise read count
+ spi_slave.reply( NO_CMD ); // put invalid data in SPI buffer
+ }
+ }
+ else // NOT READ_IO - data write
+ {
+ buf_idx = spi_slave.read(); // Read ms index from master
+ bcc ^= buf_idx; // Start checksum calculation
+ buf_idx *= 256; // Make ms index from master
+ buf_idx += spi_slave.read(); // Read ls index from master
+ bcc ^= (buf_idx & 0xff);
+ byte_cnt = 0;
+ while( spi_slave.receive() ) {
+ if( byte_cnt < SPI_BYTES ) { // Read 4 data bytes
+ spi_buf[ byte_cnt ] = spi_slave.read();
+ bcc ^= spi_buf[ byte_cnt++ ];
+ }
+ else if ( byte_cnt == SPI_BYTES ) {
+ spiv = spi_slave.read();
+ bcc_ok = ( bcc == spiv );
+ }
+ } // end while ( spi_slave.receive() )
+ if ( bcc_ok && (buf_idx < MAX_RAM) )
+ {
+ for( byte_cnt = 0; byte_cnt < SPI_BYTES; byte_cnt++ )
+ {
+ idx = buf_idx + byte_cnt;
+ if ( (idx <= MAX_IO_REG_BYTE) && (idx & 1) ) // check only ls byte of IO registers
+ { // check ls byte of IO register changed from last saved
+ if ( spi_buf[ byte_cnt ] != fsvr.get_byte( idx ) )
+ { // ls byte of register changed
+ io_val = spi_buf[ byte_cnt ] + 256 * spi_buf[ byte_cnt - 1 ];
+ if ( !byte_changed && ( mask4_IO_registers & (1 << (idx/2)) ) )
+ { // masked-in register has changed
+ io_chng_val = io_val;
+ io_chng_idx = idx/2 + 1; // save index of first I/O register to change
+ byte_changed = true;
+ }
+ chk_alarms( idx/2, io_val );
+ }
+ if ( idx == MAX_IO_REG_BYTE )
+ { // after each I/O scan
+ all_IO_updated = true;
+ spi_count = fsvr.get_SPI_count(); // save last SPI_count value
+ }
+ }
+ else if ( idx == NET_ADDRESS_CHANGE )
+ { // v0.93: check for net address update from 3000 CPU
+ if ( spi_buf[ byte_cnt ] == NO_UPDATE )
+ {
+ net_addrs_chng = NO_UPDATE;
+ }
+ else if ( net_addrs_chng != UPDATED )
+ {
+ net_addrs_chng = spi_buf[ byte_cnt ];
+ }
+ }
+ fsvr.put_byte( idx, spi_buf[ byte_cnt ] ); // save byte read from SPI
+ }
+ led3 = 0;
+ }
+ else // checksum failed
+ {
+ led3 = 1;
+ }
+ led4 = 0;
+ } // end else not READ_IO
+ } // end if ( (spiv & 0xfe) == (LPC1768 & 0xfe) )
+ return buf_idx;
+}
+
+/****************************************************************************/
+/* chk_SPI_active:
+* Description: checks spi_count has been updated in SPI interrupt
+* to be called by timer, independently of SPI interrupt
+* Globals used: spi_active, spi_count
+* Parameters: NONE
+* Returns: NONE
+*/
+/****************************************************************************/
+void chk_SPI_active( void )
+{
+ if ( spi_count == INV_SPI_CNT )
+ {
+ spi_active = false; // flag SPI failure
+ }
+ else
+ {
+ spi_count = INV_SPI_CNT; // set to be overwritten by next SPI update
+ spi_active = true; // SPI updated OK
+ }
+}
+
+/****************************************************************************/
+/* get_hex_mask:
+* Description: converts long bit_mask to hexadecimal string
+* Globals used: hex_mask
+* Parameters: IN: unsigned long bit_mask - numeric value of bit mask
+* Returns: pointer to hex_mask
+*/
+/****************************************************************************/
+char * get_hex_mask( unsigned long bit_mask )
+{
+unsigned char i;
+ for ( i = 0; i < 12; i++ )
+ {
+ hex_mask[ i ] = 0;
+ }
+ sprintf(hex_mask, "%08x", bit_mask);
+ return hex_mask;
+}
+
+/****************************************************************************/
+/* convert2decimal:
+* Description: converts hexadecimal string to long mask4_IO_registers
+* Globals used: NONE
+* Parameters: u8_t * uc_ptr: pointer to hex-formatted mask string
+* u16_t len: length of string
+* Returns: unsigned long temp_sum
+*/
+/****************************************************************************/
+unsigned long convert2decimal( u8_t * uc_ptr, u16_t len )
+{
+char ch, i;
+unsigned long temp_sum = 0;
+
+ for ( i = 0; i < len; i++ )
+ {
+ ch = (char)*(uc_ptr + i);
+ if ( islower( ch ) )
+ {
+ ch = ch - 'a' + 10;
+ }
+ else if ( isupper( ch ) )
+ {
+ ch = ch - 'A' + 10;
+ }
+ else if ( isdigit( ch ) )
+ {
+ ch = ch - '0';
+ }
+ else
+ {
+ temp_sum = 0xfffffff;
+ ch = 15;
+ i = len; // end on error;
+ }
+ temp_sum = 16 * temp_sum + ch;
+ }
+ return temp_sum;
+}
+
+void send_ram( void )
+{
+static int idx;
+char i;
+
+ if ( (idx & 0x7ff) == 0 )
+ {
+ pc.printf("CMD data %x", idx );
+ for ( i = 0; i < MAX_CMD; i++ )
+ {
+ pc.printf(", %x", cmd_buf[ i ] );
+ }
+ pc.printf( "\r\n" );
+ pc.printf("RAM data %x", idx & 0x7ff );
+ for ( i = 0; i < 8; i++ )
+ {
+ pc.printf(", %x", fsvr.get_byte(idx++ & 0x7ff) );
+ }
+ pc.printf( "\r\n" );
+ }
+ else
+ {
+ pc.printf("RAM data %x", idx & 0x7ff );
+ for ( i = 0; i < 8; i++ )
+ {
+ pc.printf(", %x", fsvr.get_byte(idx++ & 0x7ff) );
+ }
+ pc.printf( "\r\n" );
+ }
+}
+
+/****************************************************************************/
+/* write_addrs_to_file:
+* Description: Writes net addresses to /webfs/net_adrs.txt
+* Globals used: NET_ADRS_FILE
+* Parameters: NONE
+* Returns: 0 if OK, 1 if failed to open files
+*/
+/****************************************************************************/
+int write_addrs_to_file()
+{
+ FILE *fp = fopen( NET_ADRS_FILE, "w" );
+ if(!fp) {
+ fprintf(stderr, "\r\nFile /webfs/net_adrs.txt could not be opened to write!\r\n");
+ exit(1);
+ }
+ else // file opened OK, so save addresses
+ {
+ fprintf(fp, "IP address %u.%u.%u.%u \r\n", ip_ad[0],ip_ad[1],ip_ad[2],ip_ad[3]);
+ fprintf(fp, "Address mask %u.%u.%u.%u \r\n", msk_ad[0],msk_ad[1],msk_ad[2],msk_ad[3]);
+ fprintf(fp, "Gwy address %u.%u.%u.%u \r\n", gwy_ad[0],gwy_ad[1],gwy_ad[2],gwy_ad[3]);
+ fprintf(fp, "DNS address %u.%u.%u.%u \r\n", dns_ad[0],dns_ad[1],dns_ad[2],dns_ad[3]);
+ fprintf(fp, "%s\r\n", snmp_publiccommunity ); // v0.98: save community string
+ fprintf(fp, "Trap host address %u.%u.%u.%u \r\n", th_ad[0],th_ad[1],th_ad[2],th_ad[3]);
+ fprintf(fp, "%u \r\n", mask4_IO_registers );
+ fclose(fp);
+ } // file opened OK
+ return 0;
+}
+
+/****************************************************************************/
+/* copy_trap_host_address: v0.99
+* Description: Copies src array to th_ad
+* Globals used: th_ad
+* net_addrs_chng set to UPDATED
+* Parameters: IN: unsigned char * src - source array of 4 bytes
+* Returns: NONE
+*/
+/****************************************************************************/
+void copy_trap_host_address( unsigned char * src )
+{
+unsigned char i;
+ for ( i = 0; i < 4; i++ )
+ {
+ if ( src[ i ] != 0 )
+ {
+ {
+ th_ad[ i ] = src[ i ];
+ }
+ }
+ }
+ net_addrs_chng = UPDATED;
+}
+
+/****************************************************************************/
+/* copy_net_addresses_from: v0.93
+* Description: Copies src array to ip_ad, msk_ad, gwy_ad, dns_ad
+* Globals used: ip_ad, msk_ad, gwy_ad, dns_ad
+* Parameters: IN: unsigned char * src - source array of 16 bytes
+* Returns: NONE
+*/
+/****************************************************************************/
+void copy_net_addresses_from( unsigned char * src )
+{
+unsigned char i;
+ for ( i = 0; i < 4; i++ )
+ {
+ if ( src[ i ] != 0 )
+ {
+ ip_ad[ i ] = src[ i ];
+ }
+ }
+ for ( i = 4; i < 8; i++ )
+ {
+ if ( src[ i ] != 0 )
+ {
+ msk_ad[ i-4 ] = src[ i ];
+ }
+ }
+ for ( i = 8; i < 12; i++ )
+ {
+ if ( src[ i ] != 0 )
+ {
+ gwy_ad[ i-8 ] = src[ i ];
+ }
+ }
+ for ( i = 12; i < 16; i++ )
+ {
+ if ( src[ i ] != 0 )
+ {
+ dns_ad[ i-12 ] = src[ i ];
+ }
+ }
+}
+
+/****************************************************************************/
+/* parse4numbers:
+* Description: Reads file fr and separates out max_num numbers delimited by
+* any non-digit characters
+* Globals used:
+* Parameters: IN: FILE *fr - file to read
+* OUT: unsigned char * numb - array of numbers read
+* IN: unsigned char max_num - number of numbers to read
+* Returns: NONE
+*/
+/****************************************************************************/
+void parse4numbers( FILE *fr, unsigned char * numb, unsigned char max_num )
+{
+int c, i, new_num;
+char digit_found = false;
+char number_completed = false;
+
+ i = new_num = 0;
+ while ( ((c = fgetc(fr)) != EOF) && (i < max_num) )
+ {
+ numb[ i ] = 0;
+ if ( c < '0' || c > '9' )
+ { // not a numeric character
+ if ( digit_found )
+ {
+ number_completed = true;
+ if ( i >= (max_num - 1) )
+ { // max_num distinct numbers read
+ break;
+ }
+ }
+ }
+ else // numeric character
+ {
+ digit_found = true;
+ if ( number_completed )
+ { // save number into array
+ numb[ i++ ] = new_num & 0xff;
+ new_num = 0;
+ }
+ new_num = 10*new_num + c - '0';
+ number_completed = false;
+ } // else numeric character
+ } // end while
+ if ( (number_completed || (c == EOF)) && (i < max_num) )
+ { // 0.80: save last number read
+ numb[ i++ ] = new_num & 0xff;
+ }
+}
+
+/****************************************************************************/
+/* read_addrs_from_file:
+* Description: Reads data from /webfs/net_adrs.txt
+* Globals used: NET_ADRS_FILE
+* Parameters: NONE
+* Returns: 0 if OK, 1 if failed to open files
+*/
+/****************************************************************************/
+int read_addrs_from_file()
+{
+int c, i;
+unsigned char numbers[17];
+char community[ MAX_COMMUNITY ];
+
+ for ( i = 0; i < MAX_COMMUNITY; i++ )
+ {
+ community[ i ] = 0;
+ }
+ FILE *fr = fopen( NET_ADRS_FILE, "r" );
+ if(!fr) {
+ fprintf(stderr, "\r\nFile /webfs/net_adrs.txt could not be opened!\r\n");
+ exit(1);
+ }
+ else // file opened OK
+ {
+ parse4numbers( fr, numbers, 16 );
+ copy_net_addresses_from( numbers ); // v0.93: new subroutine
+ /* v0.98: now read the community string from the file after reading end of line */
+ while ( ((c = fgetc(fr)) != EOF) && ((c == ' ') || (c == '\r') || (c == '\n')) );
+ i = 0;
+ do
+ {
+ c = (char)c;
+ if ( (c != ' ') && (c != '\r') && (c != '\n') && (i < MAX_COMMUNITY-1) )
+ {
+ community[ i++ ] = c;
+ }
+ else // string terminated
+ {
+ break;
+ }
+ } while ( ((c = fgetc(fr)) != EOF) && (c != 0) );
+ parse4numbers( fr, numbers, 4 ); // now read in Trap host address
+ copy_trap_host_address( numbers );
+ fscanf( fr, "%lu", &mask4_IO_registers );
+ fclose(fr);
+ } // file opened OK
+ if ( strlen(community) >= MIN_COMMUNITY )
+ { // string length 4 to 20 characters
+ strcpy( snmp_publiccommunity, community );
+ pc.printf("community: %s %d \r\n", snmp_publiccommunity, strlen(snmp_publiccommunity) );
+ }
+ else
+ {
+ pc.printf("community too short: %s %d \r\n", community, strlen(community) );
+ }
+ return 0;
+}
+
+/****************************************************************************/
+/* read_alarm_from_file:
+* Description: Reads one alarm_msg from /webfs/alarms.txt if alarm_idx < NUM_MASK
+* or can read all io_masks as well if alarm_idx >= NUM_MASK
+* Globals used: ALARM_FILE, alarm_msg, io_mask
+* Parameters: IN: unsigned char alarm_idx - index to alarm message
+* Returns: 0 if OK, 1 if failed to open files
+*/
+/****************************************************************************/
+int read_alarm_from_file(unsigned char alarm_idx)
+{
+unsigned char i;
+
+ FILE *fr = fopen( ALARM_FILE, "r" );
+ if(!fr) {
+ fprintf(stderr, "\r\nFile /webfs/alarm.txt could not be opened!\r\n");
+ exit(1);
+ }
+ else // file opened OK
+ {
+ if ( alarm_idx < NUM_MASK )
+ {
+ for ( i = 0; i <= alarm_idx; i++ )
+ { // read specified alarm_msg
+ fscanf( fr, "%s", &alarm_msg[ i ] );
+ }
+ }
+ else // read io_masks
+ {
+ for ( i = 0; i < NUM_MASK; i++ )
+ { // read all alarm_msg
+ fscanf( fr, "%s", &alarm_msg[ i ] );
+ }
+ for ( i = 0; i < NUM_MASK; i++ )
+ { // read all io_masks
+ fscanf( fr, "%lx", &io_mask[ i ] );
+ }
+ }
+ fclose(fr);
+ } // file opened OK
+ return 0;
+}
+
+/****************************************************************************/
+/* blinker:
+* Description: Blinks led_link for 10 calls
+* Globals used: led_link, blink_led,
+* Parameters: NONE
+* Returns: NONE
+*/
+/****************************************************************************/
+void blinker( void )
+{
+static unsigned char blink_cnt;
+
+ if ( blink_led && blink_cnt++ < 10 )
+ {
+ led_link = !led_link;
+ }
+ else
+ {
+ blink_cnt = 0;
+ blink_led = false;
+ }
+}
+
+/****************************************************************************/
+/* write_alarms_to_file: v1.04
+* Description: Writes alarm messages and masks to /webfs/alarms.txt
+* Globals used: ALARM_FILE, alarm_msg[], io_mask[]
+* Parameters: NONE
+* Returns: 0 if OK, 1 if failed to open files
+*/
+/****************************************************************************/
+int write_alarms_to_file( void )
+{
+u8_t i = 1; // return value if failed to write file
+
+ FILE *fp = fopen( ALARM_FILE, "w" );
+ if(!fp) {
+ fprintf(stderr, "\r\nFile /webfs/alarms.txt could not be opened to write!\r\n");
+ }
+ else // file opened OK, so save addresses
+ {
+ for ( i = 0; i < NUM_MASK; i++ )
+ {
+ fprintf(fp, "%s\r\n", alarm_msg[ i ] );
+ }
+ for ( i = 0; i < NUM_MASK; i++ )
+ {
+ fprintf(fp, "%08x\r\n", io_mask[ i ] );
+ }
+ fclose(fp);
+ i = 0;
+ } // file opened OK
+ return i;
+}
+
+/****************************************************************************/
+/* init_traps:
+* Description: initialises trap flags and sends cold start trap when done
+* Globals used: led1: mimics state of head-link status output in 3000 I/O
+* trap_init set true after cold start
+* Parameters: NONE
+* Returns: NONE
+*/
+/****************************************************************************/
+void init_traps( void )
+{
+u8_t i = 0;
+
+ snmp_coldstart_trap();
+ // force sending trap for head-head link up/down status
+ led1 = fsvr.get_byte( H_H_LINK_LSBYTE ) ? 0 : 1;
+ /* initialise variable binding for f3kIOchange_trap */
+ io_var.next = io_var.prev = NULL;
+ io_var.ident_len = io_change_id.len;
+ io_var.ident = io_oid;
+ do
+ {
+ io_oid[ i ] = io_change_id.id[ i ];
+ } while ( i++ < io_change_id.len );
+ io_var.value_type = (SNMP_ASN1_APPLIC | SNMP_ASN1_PRIMIT | SNMP_ASN1_GAUGE);
+ io_var.value_len = sizeof(u32_t);
+ io_var.value = &io_chng_val;
+ /* initialise variable binding for f3kIOalarm_trap al_var data */
+ al_var.prev = NULL; // first in list
+ al_var.next = &io_alarm; // NULL if only varbind in list
+ al_var.ident_len = io_change_id.len;
+ al_var.ident = io_oid;
+ al_var.value_type = (SNMP_ASN1_APPLIC | SNMP_ASN1_PRIMIT | SNMP_ASN1_GAUGE);
+ al_var.value_len = sizeof(u32_t);
+ al_var.value = &new_io_val[ 0 ];
+ /* initialise variable binding for f3kIOalarm_trap string */
+ io_alarm.prev = &al_var; // after al_var binding
+ io_alarm.next = NULL; // always last in list ... al_string_id
+ io_alarm.ident_len = io_alarm_id.len;
+ io_alarm.ident = als_oid;
+ for ( i = 0; i < io_alarm_id.len; i++ )
+ {
+ als_oid[ i ] = io_alarm_id.id[ i ];
+ }
+ io_alarm.value_type = (SNMP_ASN1_UNIV | SNMP_ASN1_PRIMIT | SNMP_ASN1_OC_STR);
+ io_alarm.value_len = MSG_LNGTH;
+ io_alarm.value = &alarm_msg[ 0 ];
+ trap_init = true;
+}
+
+/****************************************************************************/
+/* check_all_traps:
+* Description: test states for all trap events and sends appropriate trap
+* Globals used: led1: mimics state of head-link status output in 3000 I/O
+* led2: set to ON if SPI not active
+* byte_changed, all_IO_updated, spi_active
+* Parameters: NONE
+* Returns: NONE
+*/
+/****************************************************************************/
+void check_all_traps( void )
+{
+unsigned char alm;
+
+ if ( !led1 && (fsvr.get_byte( H_H_LINK_LSBYTE ) || fsvr.get_byte( H_H_LINK_MSBYTE )) )
+ { // change of link state
+ led1 = 1; // flag: link is up when led1 on
+ snmp_linkup_trap();
+ }
+ else if ( (fsvr.get_byte( H_H_LINK_LSBYTE ) == 0) && (fsvr.get_byte( H_H_LINK_MSBYTE ) == 0) && led1 )
+ { // change of link state
+ led1 = 0;
+ snmp_linkdown_trap();
+ }
+ if ( all_IO_updated && byte_changed )
+ { // any masked-in I/O register changed
+ io_oid[ IO_INDEX ] = io_chng_idx;
+ io_var.value = &io_chng_val;
+ f3kIOchange_trap();
+ all_IO_updated = byte_changed = false;
+ }
+ if ( spi_active && led2 )
+ {
+ led2 = 0; // flag: SPI is up when led2 off
+ snmp_SPIup_trap();
+ }
+ else if ( !spi_active && !led2 )
+ {
+ led2 = 1; // flag: SPI is down when led2 on
+ snmp_SPIdown_trap();
+ }
+ /* send trap for any changed I/O alarm */
+ for ( alm = 0; alm < NUM_MASK; alm++ )
+ {
+ if ( reg_change[ alm ] )
+ { // any alarmed I/O register changed
+ io_oid[ IO_INDEX ] = reg_change[ alm ];
+ al_var.value = &new_io_val[ alm ];
+ als_oid[ IO_INDEX ] = alm + 1;
+ io_alarm.value = &alarm_msg[ alm ];
+ io_alarm.value_len = strlen( (const char * )alarm_msg[ alm ] );
+ f3kIOalarm_trap();
+ reg_change[ alm ] = 0;
+ }
+ }
+}
+
+
+/****************************************************************************/
+/****************************************************************************/
+int main() {
+int idx;
+
+ new_cmd_idx = 0xaa;
+ for ( idx = 0; idx < MAX_CMD; idx++ )
+ { // put meaningful non-valid data in cmd_buf
+ cmd_buf[ idx ] = new_cmd_idx;
+ }
+ /* v1.04: clear all alarm trap masks */
+ for ( idx = 0; idx < NUM_MASK; idx++ )
+ {
+ reg_change[ idx ] = 0; // clear all I/O register changed flags
+ io_mask[ idx ] = 0; // clear masks for alarms on IO registers
+ }
+ pc.printf("=================== Version %s ====================\r\n", snmp_fw_version);
+// pc.printf("Press any key to start...\r\n");
+ led3 = 1;
+
+ FSHandler::mount("/webfs", "/files"); // Mount /webfs path on /files web path
+ FSHandler::mount("/webfs", "/"); // Mount /webfs path on web root path
+ read_addrs_from_file();
+ read_alarm_from_file( NUM_MASK ); // read all I/O masks
+
+/* Force fixed Ethernet address */
+EthernetNetIf eth(
+ IpAddr( ip_ad[0], ip_ad[1], ip_ad[2], ip_ad[3] ), //IP Address
+ IpAddr( msk_ad[0], msk_ad[1], msk_ad[2], msk_ad[3] ), //Network Mask
+ IpAddr( gwy_ad[0], gwy_ad[1], gwy_ad[2], gwy_ad[3] ), //Gateway
+ IpAddr( dns_ad[0], dns_ad[1], dns_ad[2], dns_ad[3] ) //DNS Server
+);
+
+ Base::add_rpc_class<DigitalOut>();
+#if 0
+ Base::add_rpc_class<SPI_Server>();
+#endif
+
+// pc.getc(); // wait for keyboard
+ led3 = 0;
+
+ strcpy( (char *)syslocation, (const char *)syslocation_default );
+ sysloc_len = strlen( (const char *)syslocation );
+ snmp_set_syslocation( syslocation, &sysloc_len );
+
+ pc.printf("\r\nSetting up...\r\n");
+ EthernetErr ethErr = eth.setup();
+ if( ethErr )
+ {
+ pc.printf("Error %d in Ethernet setup.\r\n", ethErr);
+// return -1;
+ }
+ else // Ethernet Setup OK
+ {
+ mip = eth.getIp();
+ led3 = 1;
+ led_speed = LPC_GPIO1->FIOPIN & (1<<26); // GPIO1.26 = "LED_SPEED".
+ led_link = LPC_GPIO1->FIOPIN & (1<<25); // GPIO1.25 = "LED_LINK".
+ pc.printf("\r\nEthernet Setup OK\r\n");
+
+ svr.addHandler<RPCHandler>("/rpc");
+ svr.addHandler<FSHandler>("/files");
+ svr.addHandler<FSHandler>("/"); //Default handler
+ //Example : Access to mbed.htm : http://a.b.c.d/mbed.htm or http://a.b.c.d/files/mbed.htm
+
+// svr.bind(80); disable for SNMP development
+
+// snmp_init(); done in lwip/core/init.c
+
+ pc.printf("Listening...\n\r");
+
+ snmp_trap_dst_ip_set( ONLY_TRAP, (ip_addr_t *)&th_ad[0] );
+ snmp_trap_dst_enable( ONLY_TRAP, ENABLED );
+ snmp_coldstart_trap(); // to force ARP call
+
+ led3 = led4 = 0;
+ spi_slave.format(8,3); // Setup: byte data, high steady state clock, 2nd edge capture
+
+ sys_tick.attach( &snmp_inc_sysuptime, 0.01 );
+ spi_tick.attach( &chk_SPI_active, 120.0 );
+ comms_tick.attach( &blinker, 0.07 ); // tick to blink activity LED
+ cold_start_delay.attach( &init_traps, 30.0 ); // send cold_start trap after 30 seconds
+
+
+ // Listen indefinitely to Ethernet and SPI
+ while ( true )
+ {
+ Net::poll(); // check for Ethernet requests
+
+ if ( trap_init )
+ {
+ check_all_traps();
+ }
+
+ if( spi_slave.receive() ) {
+ // Data available - needs chip select line to activate
+ get_SPI_data( cmd_buf );
+ } // end if( spi_slave.receive() )
+ if ( (net_addrs_chng == 2) || (net_addrs_chng == 1) )
+ { // v0.93: address changed in 3000 CPU
+ copy_net_addresses_from( fsvr.net_address_ptr() );
+ copy_trap_host_address( fsvr.trap_host_ptr() );
+ write_addrs_to_file();
+ }
+ if ( net_addrs_set )
+ { // v0.99: address changed from SNMP i/f
+ write_addrs_to_file();
+ net_addrs_set = false;
+ }
+ if ( alarm_str_set )
+ {
+ write_alarms_to_file();
+ alarm_str_set = false;
+ }
+ } // end while ( true )
+
+ } // else Ethernet Setup OK
+ return 0;
+}