Another forum user asked about this but I found it outside of the topic of that thread. I think this area would make a nice fit.
Using the CAN-Shield(MCP2515_lib) library on my GitHub, you can now use it more easily with other SPI enabled devices much like the Ethernet Shield. First, you need to modify the shield to use CS on pin 9. Fortunately, there is a solder-blob jumper on the PCB for that.
I set this up purely to see if I could. I had the Arduino sending the data to one of my Linux machines that I had a Perl script listening to a UDP socket and printed the data onto the screen. Right now, it only sends data received off the CAN bus, though I’m sure it wouldn’t be too difficult to add the ability to receive data and transmit it out the CAN bus.
The Arduino Code:
[code]// CAN to Ethernet
// Jan 28th, 2014
// Written by: Cory J. Fowler
// This was originally written as a test for my sub-development branch of the library.
// That branch is available on my GitHub for those curious few.
// I have commented out the lines for that version in favor for my current master.
#include <mcp_can.h>
#include <SPI.h>
#include <Ethernet.h>
#include <EthernetUdp.h>
// Change these for your network!
byte mac[] = {0x00, 0x55, 0x66, 0xEE, 0xFF, 0xFF};
IPAddress ip(10, 100, 50, 233);
IPAddress gateway(10, 100, 50, 254);
IPAddress dest(10, 100, 50, 210);
unsigned int localPort = 8888;
unsigned int remPort = 54321;
unsigned long rxId;
byte len = 0;
byte rxBuf[8];
char buffer[50];
MCP_CAN CAN0(9); // Set CS to pin 9
EthernetUDP UDP;
void setup()
{
Serial.begin(115200);
CAN0.begin(CAN_250KBPS); // init CAN Bus with 250kb/s baudrate
// CAN0.begin(MCP_ANY, CAN_250KBPS, MCP_16MHZ); // init CAN Bus with 250kb/s baudrate at 16MHz with Mask & Filters Disabled
// CAN0.setMode(MCP_NORMAL); // Set operation mode to normal so the MCP2515 sends acks to received data.
pinMode(2, INPUT); // Setting pin 2, MCP2515 /INT, to input mode
Ethernet.begin(mac,ip); // Initialize Ethernet
UDP.begin(localPort); // Initialize the UDP listen port that is currently unused!
Serial.println(“CAN to Ethernet…”);
}
void loop()
{
if(!digitalRead(2)) // If pin 2 is low, read receive buffer
{
// CAN0.readMsgBuf(&rxId, &len, rxBuf); // Read Data: rxID = Message ID, len = Data Length, buf = Data Byte(s)
CAN0.readMsgBuf(&len, rxBuf); // Read Data: len = Data Length, buf = Data Byte(s)
rxId = CAN0.getCanId(); // Function will be depreciated soon due to readMsgBuf now returning ID
sprintf(buffer, "ID: %.8lX Data: %.2X %.2X %.2X %.2X %.2X %.2X %.2X %.2X\n\r",
rxId, rxBuf[0], rxBuf[1], rxBuf[2], rxBuf[3], rxBuf[4], rxBuf[5], rxBuf[6], rxBuf[7]);
UDP.beginPacket(dest, remPort);
UDP.write(buffer);
UDP.endPacket();
}
}
/*********************************************************************************************************
END FILE
*********************************************************************************************************/[/code]
The Perl Script
Filename: “udp_listen”
[code]#!/usr/bin/perl -w
use IO::Socket;
Create UDP Listen Socket
my $udpsocket = new IO::Socket::INET (
LocalPort => ‘54321’,
Proto => ‘udp’,
);
die “Could not create socket: $!\n” unless $udpsocket;
Data Manipulation and Display
while(1) {
$udpsocket->recv(my $data,50);
print $data;
}[/code]