static void cmdDirDumpRequest(MacPacket packet) {
Payload pld;
MacPacket response;
unsigned int *frame, req_addr, req_pan, i, size;
pld = macGetPayload(packet);
frame = (unsigned int*) payGetData(pld);
req_addr = frame[0];
req_pan = frame[1];
// Send all if both addresses 0
if(req_addr == 0 && req_pan == 0) {
size = dirGetSize();
DirEntry entries[size];
dirGetEntries(entries); // Assume we get size # of entries
i = 0;
while(i < size) {
response = radioRequestPacket(sizeof(DirEntryStruct));
if(response == NULL) { continue; }
macSetDestAddr(response, macGetSrcAddr(packet));
pld = macGetPayload(response);
paySetType(pld, CMD_DIR_DUMP_RESPONSE);
paySetData(pld, sizeof(DirEntryStruct), (unsigned char*) entries[i]);
while(!radioEnqueueTxPacket(response));
i++;
}
} else {
DirEntry entry;
entry = dirQueryAddress(req_addr, req_pan);
if(entry == NULL) { return; }
while(1) {
response = radioRequestPacket(sizeof(DirEntryStruct));
if(response == NULL) { continue; }
macSetDestAddr(response, macGetSrcAddr(packet));
pld = macGetPayload(response);
paySetType(pld, CMD_DIR_DUMP_RESPONSE);
//paySetData(pld, sizeof(DirEntryStruct), (unsigned char*) &entry);
memcpy(payGetData(pld), entry, sizeof(DirEntryStruct));
while(!radioEnqueueTxPacket(response));
break;
}
}
}
/*****************************************************************************
* Function Name : test_motor
* Description : Turns on a specified motor for a specified period of time
* and duty cycle
* Parameters : type - The type field of the motor test packet
* status - Status field of the motor test packet (not yet used)
* length - The length of the payload data array
* data - data[0] = motor number
* data[1:2] = on time (milli secs)
* data[3:4] = duty cycle (percent)
* Return Value : success indicator - 0 for failed, 1 for succeeded
*****************************************************************************/
unsigned char test_motor(unsigned char type, unsigned char status, \
unsigned char length, unsigned char* data)
{ unsigned int motor_id;
int on_time;
int dutycycle;
char ack_string[40]="motor OK\n";
MacPacket packet;
Payload pld;
motor_id = (unsigned int) data[0];
on_time = (unsigned long)( (data[3] << 8) + data[2]);
dutycycle = (int)((data[5] << 8) + data[4]);
tiHSetDC(motor_id, dutycycle);
swatchDelayMs(on_time);
tiHSetDC(motor_id, 0);
// send an ack packet back - could have data later...
// Get a new packet from the pool
packet = radioRequestPacket(sizeof(ack_string));
if(packet == NULL) return 0;
//macSetDestAddr(packet, RADIO_DEST_ADDR);
// Prepare the payload
pld = packet->payload;
paySetStatus(pld, STATUS_UNUSED);
paySetType(pld, type);
// Read message data into the payload
memcpy(payGetData(pld), & ack_string, sizeof(ack_string)); // copy ack_string to packet
// Enqueue the packet for broadcast
radioEnqueueTxPacket(packet);
return 1; //success
}
/*****************************************************************************
* Function Name : test_hall
* Description : send out over the radio a the current position readings from the
Austria Microsystems AS5048B absolute Hall sensors
* Parameters : type - The type field of the hall test packet
* status - Status field of Hall test packet (not yet used)
* length - The length of the payload data array
* data - not used
* Return Value : success indicator - 0 for failed, 1 for succeeded
*****************************************************************************/
unsigned char test_hall(unsigned char type, unsigned char status,\
unsigned char length, unsigned char* data)
{ int i;
MacPacket packet;
Payload pld;
// refresh Hall reading
for(i = 0; i< NUM_ENC; i++)
{
amsGetPos(i);
}
// Get a new packet from the pool
packet = radioRequestPacket(sizeof(encPos));
if(packet == NULL) return 0;
//macSetDestAddr( RADIO_DEST_ADDR);
// Prepare the payload
pld = packet->payload;
paySetStatus(pld, STATUS_UNUSED);
paySetType(pld, type);
// Read Hall data into the payload
memcpy(payGetData(pld), & encPos, sizeof(encPos)); // copy Hall data to packet
// Enqueue the packet for broadcast
radioEnqueueTxPacket(packet);
return 1; //success
}
// ==== PRIVATE FUNCTIONS =====================================================
static void clksyncSendRequest(SyncStatus sync) {
MacPacket packet;
Payload pld;
unsigned long s0;
packet = radioRequestPacket(4);
if(packet == NULL) { return; }
macSetDestAddr(packet, sync->master_addr);
macSetDestPan(packet, sync->master_pan);
pld = macGetPayload(packet);
paySetType(pld, CMD_CLOCK_UPDATE_REQUEST);
while(!radioTxQueueEmpty()) { radioProcess(); }
s0 = sclockGetGlobalTicks();
pld = macGetPayload(packet);
paySetData(pld, 4, (unsigned char*) &s0);
while(!radioEnqueueTxPacket(packet)) { radioProcess(); }
radioProcess();
sync->requests++;
if(sync->requests > MAX_REQUEST_ATTEMPTS) {
sync->state = STATE_REQUEST_TIMEOUT;
}
}
void clksyncHandleRequest(MacPacket packet) {
Payload pld;
MacPacket response;
unsigned long* frame;
unsigned long s0, m1, m2;
pld = macGetPayload(packet);
frame = (unsigned long*) payGetData(pld);
s0 = frame[0]; // Read requester time of flight
m1 = packet->timestamp + sclockGetOffsetTicks(); // Read local time of reception
response = radioRequestPacket(12); // Sending 3 longs
if(response == NULL) { return; }
macSetDestAddr(response, macGetSrcAddr(packet));
macSetDestPan(response, macGetSrcPan(packet));
pld = macGetPayload(response); // Create response packet
paySetType(pld, CMD_CLOCK_UPDATE_RESPONSE);
paySetData(pld, 4, (unsigned char*) &s0);
payAppendData(pld, 4, 4, (unsigned char*) & m1);
// Empty TX queue to minimize time of flight error
while(!radioTxQueueEmpty()) { radioProcess(); }
m2 = sclockGetGlobalTicks(); // Get approximate time of flight
payAppendData(pld, 8, 4, (unsigned char*) & m2);
while(!radioEnqueueTxPacket(response)) { radioProcess(); }
radioProcess();
}
//Recieved UART Xbee packet, send packet out over the radio
void xbeeHandleTx(Payload uart_pld){
MacPacket tx_packet;
WordVal dst_addr;
Payload rx_pld;
//char test;
//Get destination address from uart_pld package
//Frame ID and options packet are currently ignored for this type of packet...
dst_addr.byte.HB = uart_pld->pld_data[DEST_ADDR_HB_POS - RX_DATA_OFFSET];
dst_addr.byte.LB = uart_pld->pld_data[DEST_ADDR_LB_POS - RX_DATA_OFFSET];
//test = dst_addr.byte.LB;
//Create new packet with just the data that needs to be sent by the radio
int payloadLength = payGetPayloadLength(uart_pld)-(RX_FRAME_OFFSET-RX_DATA_OFFSET)-PAYLOAD_HEADER_LENGTH-1;
rx_pld = payCreateEmpty(payloadLength);
//test = payGetPayloadLength(rx_pld);
payAppendData(rx_pld, -PAYLOAD_HEADER_LENGTH,
payGetPayloadLength(rx_pld),
&(uart_pld->pld_data[RX_DATA_OFFSET]));
//Place packet in radio queue for sending
tx_packet = radioRequestPacket(payloadLength);
tx_packet->payload = rx_pld;
tx_packet->payload_length = payGetPayloadLength(rx_pld);//rx_pld_len.byte.LB - (RX_FRAME_OFFSET - RX_DATA_OFFSET);
//tx_packet->dest_pan_id = src_pan_id; //Already set when macCreatePacket is called.
tx_packet->dest_addr = dst_addr;
radioEnqueueTxPacket(tx_packet);
}
static void cmdGetMemContents(MacPacket packet) {
Payload pld;
MacPacket data_packet;
unsigned char *frame;
DfmemGeometryStruct geo;
pld = macGetPayload(packet);
frame = payGetData(pld);
dfmemGetGeometryParams(&geo);
unsigned int start_page = frame[0] + (frame[1] << 8);
unsigned int end_page = frame[2] + (frame[3] << 8);
unsigned int tx_data_size = frame[4] + (frame[5] << 8);
unsigned int page, j;
unsigned char count = 0;
// Send back memory contents
for (page = start_page; page < end_page; ++page) {
j = 0;
while (j + tx_data_size <= geo.bytes_per_page) {
data_packet = NULL;
while(data_packet == NULL) {
data_packet = radioRequestPacket(tx_data_size);
}
macSetDestAddr(data_packet, macGetSrcAddr(packet));
macSetDestPan(data_packet, macGetSrcPan(packet));
pld = macGetPayload(data_packet);
dfmemRead(page, j, tx_data_size, payGetData(pld));
paySetStatus(pld, count++);
paySetType(pld, CMD_RESPONSE_TELEMETRY);
while(!radioEnqueueTxPacket(data_packet));
j += tx_data_size;
delay_ms(20);
}
}
// Signal end of transfer
LED_GREEN = 0; LED_RED = 0; LED_ORANGE = 0;
}
static void cmdGetGyroCalibParam(MacPacket packet) {
//Payload pld = macGetPayload(packet);
//unsigned char status = payGetStatus(pld);
//unsigned char* frame = payGetData(pld);
unsigned int srcAddr = macGetSrcAddr(packet);
Payload pld;
MacPacket response;
response = radioRequestPacket(12);
if(response == NULL) { return; }
macSetDestAddr(response, srcAddr);
pld = response->payload;
paySetData(pld, 12, gyroGetCalibParam());
paySetStatus(pld, 0);
paySetType(pld, CMD_GET_GYRO_CALIB_PARAM);
while(!radioEnqueueTxPacket(response));
}
/*-----------------------------------------------------------------------------
* AUX functions
-----------------------------------------------------------------------------*/
static void cmdEcho(MacPacket packet) {
Payload pld = macGetPayload(packet);
unsigned char status = payGetStatus(pld);
unsigned char* frame = payGetData(pld);
unsigned int length = payGetDataLength(pld);
unsigned int srcAddr = macGetSrcAddr(packet);
MacPacket response;
response = radioRequestPacket(length);
if(response == NULL) { return; }
macSetDestAddr(response, srcAddr);
pld = response->payload;
paySetData(pld, length, frame);
paySetStatus(pld, status);
paySetType(pld, CMD_ECHO);
while(!radioEnqueueTxPacket(response));
}
/*****************************************************************************
* Function Name : test_radio
* Description : Send out a packet containing the data in the array pointed to
* by the 'data' argument passed in.
* Parameters : type - The type field of the radio test packet
* status - Status field of radio test packet (not yet used)
* length - The length of the payload data array
* data - Pointer to the character array containing the payload
* data to send back
* Return Value : success indicator - 0 for failed, 1 for succeeded
*****************************************************************************/
unsigned char test_radio(unsigned char type, unsigned char status,\
unsigned char length, unsigned char* data)
{
MacPacket packet;
Payload pld;
// Get a new packet from the pool
packet = radioRequestPacket(length);
if(packet == NULL) return 0;
//macSetDestAddr(RADIO_DEST_ADDR);
// Prepare the payload
pld = packet->payload;
paySetType(pld, type);
paySetStatus(pld, status);
paySetData(pld, length, data);
// Enqueue the packet for broadcast
radioEnqueueTxPacket(packet);
return 1; //success
}
static void cmdCamParamRequest(MacPacket packet) {
Payload pld;
CamParamStruct params;
MacPacket response;
pld = macGetPayload(packet);
camGetParams(¶ms);
response = radioRequestPacket(sizeof(CamParamStruct));
if(response == NULL) { return; }
macSetDestAddr(response, macGetSrcAddr(packet));
pld = macGetPayload(response);
paySetType(pld, CMD_CAM_PARAM_RESPONSE);
paySetStatus(pld, 0);
paySetData(pld, sizeof(CamParamStruct), (unsigned char*)¶ms);
while(!radioEnqueueTxPacket(response));
}
/*****************************************************************************
* Function Name : test_gyro
* Description : Create and send out over the radio a number of test packets that
* contain the three X,Y, and Z values read from the gyro.
* Parameters : type - The type field of the gyro test packet
* status - Status field of gyro test packet (not yet used)
* length - The length of the payload data array
* data - not used
* Return Value : success indicator - 0 for failed, 1 for succeeded
*****************************************************************************/
unsigned char test_gyro(unsigned char type, unsigned char status,\
unsigned char length, unsigned char* data)
{ MacPacket packet;
Payload pld;
// refresh MPU reading
mpuUpdate();
// Get a new packet from the pool
packet = radioRequestPacket(sizeof(mpu_data));
if(packet == NULL) return 0;
//macSetDestAddr(RADIO_DEST_ADDR);
// Prepare the payload
pld = packet->payload;
paySetStatus(pld, STATUS_UNUSED);
paySetType(pld, type);
// Read gyro data into the payload
memcpy(payGetData(pld), & mpu_data, sizeof(mpu_data)); // copy gyro data to packet
// Enqueue the packet for broadcast
radioEnqueueTxPacket(packet);
return 1; //success
}
// TODO: Move mac packet creation from Radio_DMA to Mac_Packet
void telemSendB(unsigned int addr) {
MacPacket packet;
Payload pld;
TelemetryStructB telemetryB;
// Populate the telemetry fields
telemPopulateB(&telemetryB);
// Create a radio packet
packet = radioRequestPacket(TELEMETRY_B_SIZE);
if(packet == NULL) { return; }
macSetDestAddr(packet, addr);
macSetDestPan(packet, netGetLocalPanID());
// Write the telemetry struct into the packet payload
pld = macGetPayload(packet);
paySetType(pld, CMD_RESPONSE_TELEMETRY);
paySetData(pld, TELEMETRY_B_SIZE, (unsigned char *) &telemetryB);
if(!radioEnqueueTxPacket(packet)) {
radioReturnPacket(packet); // Delete packet if append fails
}
}
/*****************************************************************************
* Function Name : test_dflash
* Description : Write four different strings to a page in the data flash,
* then read them back and send their contents out over the
* radio. Bonus points if you can identify the film without
* reverting to the internet.
* Parameters : type - The type field of the dflash test packet
* status - Status field of the dflash test packet (not yet used)
* length - The length of the payload data array
* data - not used
* Return Value : success indicator - 0 for failed, 1 for succeeded
*****************************************************************************/
unsigned char test_dflash(unsigned char type, unsigned char status,
unsigned char length, unsigned char* data)
{
MacPacket packet;
Payload pld;
char mem_data[256] = {};
//char* str1 = "You must be here to fix the cable."; // 38+1
char str1[] = "D"; // 38+1
char str2[] = "Lord. You can imagine where it goes from here."; //46+1
char str3[] = "He fixes the cable?"; //19+1
char str4[] = "Don't be fatuous, Jeffrey."; //26+1
int page = 0x100;
strcpy(mem_data, str1);
strcpy(mem_data + strlen(str1), str2);
strcpy(mem_data + strlen(str1) + strlen(str2), str3);
strcpy(mem_data + strlen(str1) + strlen(str2) + strlen(str3), str4);
// Write into dfmem
dfmemWrite((unsigned char *)(mem_data), sizeof(mem_data), page, 0, 1);
// ---------- string 1 -----------------------------------------------------
// Get a new packet from the pool
packet = radioRequestPacket(strlen(str1));
if(packet == NULL) return 0;
//macSetDestAddr(packet, RADIO_DEST_ADDR);
// Prepare the payload
pld = packet->payload;
paySetStatus(pld, STATUS_UNUSED);
paySetType(pld, type);
// Read out dfmem into the payload
dfmemRead(page, 0, strlen(str1), payGetData(pld));
// Enqueue the packet for broadcast
radioEnqueueTxPacket(packet);
// ---------- string 2 -----------------------------------------------------
// Get a new packet from the pool
packet = radioRequestPacket(strlen(str2));
if(packet == NULL) return 0;
//macSetDestAddr(packet, RADIO_DEST_ADDR);
// Prepare the payload
pld = packet->payload;
paySetStatus(pld, STATUS_UNUSED);
paySetType(pld, type);
// Read out dfmem into the payload
dfmemRead(page, strlen(str1), strlen(str2), payGetData(pld));
// Enqueue the packet for broadcast
radioEnqueueTxPacket(packet);
// ---------- string 3 -----------------------------------------------------
// Get a new packet from the pool
packet = radioRequestPacket(strlen(str3));
if(packet == NULL) return 0;
//macSetDestAddr(packet, RADIO_DEST_ADDR);
// Prepare the payload
pld = packet->payload;
paySetStatus(pld, STATUS_UNUSED);
paySetType(pld, type);
// Read out dfmem into the payload
dfmemRead(page, strlen(str1) + strlen(str2), strlen(str3),
payGetData(pld));
// Enqueue the packet for broadcast
radioEnqueueTxPacket(packet);
// ---------- string 4 -----------------------------------------------------
// Get a new packet from the pool
packet = radioRequestPacket(strlen(str4));
if(packet == NULL) return 0;
//macSetDestAddr(packet, RADIO_DEST_ADDR);
// Prepare the payload
pld = packet->payload;
paySetStatus(pld, STATUS_UNUSED);
paySetType(pld, type);
// Read out dfmem into the payload
dfmemRead(page, strlen(str1) + strlen(str2) + strlen(str3), strlen(str4),
payGetData(pld));
// Enqueue the packet for broadcast
radioEnqueueTxPacket(packet);
return 1; //success
}
// ====== Camera and Vision ===================================================
// TODO: Use a struct to simplify the packetization
static void cmdRequestRawFrame(MacPacket packet) {
unsigned int srcAddr, srcPan, height, width, i, temp;
unsigned int sent, to_send, block_size = 75;
MacPacket response;
Payload pld;
CamFrame frame;
CamRow *row;
CvResultStruct info;
srcAddr = macGetSrcAddr(packet);
srcPan = macGetSrcPan(packet);
frame = NULL;
while(frame == NULL) {
frame = camGetFrame();
}
cvProcessFrame(frame, &info);
height = DS_IMAGE_ROWS;
width = DS_IMAGE_COLS;
for(i = 0; i < height; i++) {
row = &(frame->pixels[i]);
to_send = width;
while(to_send > 0) {
response = radioRequestPacket(block_size + 6);
if(response == NULL) { continue; }
pld = macGetPayload(response);
paySetType(pld, CMD_RAW_FRAME_RESPONSE);
paySetStatus(pld, 0);
macSetDestAddr(response, srcAddr);
macSetDestPan(response, srcPan);
temp = frame->frame_num;
paySetData(pld, 2, (unsigned char *)&temp);
temp = i;
payAppendData(pld, 2, 2, (unsigned char*)&temp);
temp = width - to_send;
payAppendData(pld, 4, 2, (unsigned char*)&temp);
temp = (block_size < to_send) ? block_size : to_send;
payAppendData(pld, 6, temp, *row + (width - to_send));
while(!radioEnqueueTxPacket(response));
to_send = to_send - temp;
}
}
sent = 0;
while(!sent) {
response = radioRequestPacket(10);
if(response == NULL) { continue; }
pld = macGetPayload(response);
paySetType(pld, CMD_CENTROID_REPORT);
paySetStatus(pld, 1);
macSetDestAddr(response, srcAddr);
macSetDestPan(response, srcPan);
temp = info.centroid[0];
paySetData(pld, 2, (unsigned char*)&temp);
temp = info.centroid[1];
payAppendData(pld, 2, 2, (unsigned char*)&temp);
temp = info.max[0];
payAppendData(pld, 4, 2, (unsigned char*)&temp);
temp = info.max[1];
payAppendData(pld, 6, 2, (unsigned char*)&temp);
temp = info.max_lum;
payAppendData(pld, 8, 1, (unsigned char*)&temp);
temp = info.avg_lum;
payAppendData(pld, 9, 1, (unsigned char*)&temp);
while(!radioEnqueueTxPacket(response));
sent = 1;
}
camReturnFrame(frame);
}
