##// END OF EJS Templates
HG_REPOSITORIES » LPP » INSTRUMENTATION » SOLO_LFR » DEV_PLE
RSS

Clone from http://pc-instru.lpp.polytechnique.fr:5000/DEV_PLE

Message queue implemented for valid TC processing...
Message queue implemented for valid TC processing Default action coded
paul@pc-solar1.lab-lpp.local - - Load All Authors

File last commit:

r9:515486994c1d default
r9:515486994c1d default
Show More
tc_handler.c
396 lines | 14.8 KiB | text/x-c | CLexer
/ src / tc_handler.c
History | Source | Raw |Copy content |Copy permalink
paul@pc-solar1.lab-lpp.local
Naming convention changed...
 r5 #include <tc_handler.h>
#include <fsw_params.h>
char *errorCCSDSMsg[8] = { "ILLEGAL_APID 0",
"WRONG_LEN_PACKET 1",
"INCOR_CHECKSUM 2",
"ILL_TYPE 3",
"ILL_SUBTYPE 4",
"WRONG_APP_DATA 5",
"WRONG_CMD_CODE 6",
"CCSDS_TM_VALID 7"
};
paul@pc-solar1.lab-lpp.local
Minor updates
 r7 //**********************
// GENERAL USE FUNCTIONS
paul@pc-solar1.lab-lpp.local
Naming convention changed...
 r5 unsigned int Crc_opt( unsigned char D, unsigned int Chk)
{
return(((Chk << 8) & 0xff00)^lookUpTableForCRC [(((Chk >> 8)^D) & 0x00ff)]);
}
void InitLookUpTableForCRC()
{
unsigned int i, tmp;
for (i=0; i<256; i++)
{
tmp = 0;
if((i & 1) != 0) tmp = tmp ^ 0x1021;
if((i & 2) != 0) tmp = tmp ^ 0x2042;
if((i & 4) != 0) tmp = tmp ^ 0x4084;
if((i & 8) != 0) tmp = tmp ^ 0x8108;
if((i & 16) != 0) tmp = tmp ^ 0x1231;
if((i & 32) != 0) tmp = tmp ^ 0x2462;
if((i & 64) != 0) tmp = tmp ^ 0x48c4;
if((i & 128) != 0) tmp = tmp ^ 0x9188;
lookUpTableForCRC[i] = tmp;
}
}
void GetCRCAsTwoBytes(unsigned char* data, unsigned char* crcAsTwoBytes, unsigned int sizeOfData)
{
unsigned int Chk;
int j;
Chk = 0xffff; // reset the syndrom to all ones
for (j=0; j<sizeOfData; j++) {
Chk = Crc_opt(data[j], Chk);
}
crcAsTwoBytes[0] = (unsigned char) (Chk >> 8);
crcAsTwoBytes[1] = (unsigned char) (Chk & 0x00ff);
}
paul@pc-solar1.lab-lpp.local
Minor updates
 r7
//*********************
// ACCEPTANCE FUNCTIONS
paul@pc-solar1.lab-lpp.local
Message queue implemented for valid TC processing...
 r9 int TC_checker(ccsdsTelecommandPacket_t *TC, unsigned int tc_len_recv)
paul@pc-solar1.lab-lpp.local
Naming convention changed...
 r5 {
paul@pc-solar1.lab-lpp.local
Message queue implemented for valid TC processing...
 r9 rtems_status_code status;
spw_ioctl_pkt_send spw_ioctl_send;
TMHeader_t TM_header;
paul@pc-solar1.lab-lpp.local
Naming convention changed...
 r5 unsigned int code = 0;
unsigned char computed_CRC[2];
paul@pc-solar1.lab-lpp.local
Message queue implemented for valid TC processing...
 r9 char data[ TM_LEN_EXE_CORR + CCSDS_TC_TM_PACKET_OFFSET - TM_HEADER_LEN ];
paul@pc-solar1.lab-lpp.local
Naming convention changed...
 r5
paul@pc-solar1.lab-lpp.local
Message queue implemented for valid TC processing...
 r9 GetCRCAsTwoBytes( (unsigned char*) TC->packetID, computed_CRC, tc_len_recv + 5 );
code = acceptTM( TC, tc_len_recv ) ;
paul@pc-solar1.lab-lpp.local
Naming convention changed...
 r5 if ( (code == 0) | (code == 1) | (code == 2)
| (code == 3) | (code == 4) | (code == 5) )
{ // generate TM_LFR_TC_EXE_CORRUPTED
// BUILD HEADER
paul@pc-solar1.lab-lpp.local
Message queue implemented for valid TC processing...
 r9 TM_build_header( TM_LFR_TC_EXE_ERR, SID_EXE_CORR, TM_LEN_EXE_CORR, 0, 0, &TM_header);
paul@pc-solar1.lab-lpp.local
Naming convention changed...
 r5 // BUILD DATA
TM_build_data( TC, data, SID_EXE_CORR, computed_CRC);
paul@pc-solar1.lab-lpp.local
Message queue implemented for valid TC processing...
 r9 // PREPARE TM SENDING
spw_ioctl_send.hlen = TM_HEADER_LEN + 4; // + 4 is for the protocole extra header
spw_ioctl_send.hdr = (char*) &TM_header;
spw_ioctl_send.dlen = TM_LEN_EXE_CORR + CCSDS_TC_TM_PACKET_OFFSET - TM_HEADER_LEN;
spw_ioctl_send.data = data;
// SEND PACKET
write_spw(&spw_ioctl_send);
paul@pc-solar1.lab-lpp.local
Naming convention changed...
 r5 }
else { // TM_LFR_TC_EXE_NOT_IMPLEMENTED
paul@pc-solar1.lab-lpp.local
Message queue implemented for valid TC processing...
 r9 status = rtems_message_queue_send( misc_id[0], TC, tc_len_recv + CCSDS_TC_TM_PACKET_OFFSET);
return -1;
paul@pc-solar1.lab-lpp.local
Naming convention changed...
 r5 }
paul@pc-solar1.lab-lpp.local
Message queue implemented for valid TC processing...
 r9 return -1;
paul@pc-solar1.lab-lpp.local
Naming convention changed...
 r5 }
unsigned char acceptTM(ccsdsTelecommandPacket_t * TMPacket, unsigned int TC_LEN_RCV)
{
unsigned char pid = 0;
unsigned char category = 0;
unsigned int length = 0;
unsigned char packetType = 0;
unsigned char packetSubtype = 0;
unsigned char * CCSDSContent;
// APID check *** APID on 2 bytes
pid = ((TMPacket->packetID[0] & 0x07)<<4) + ( (TMPacket->packetID[1]>>4) & 0x0f ); // PID = 11 *** 7 bits xxxxx210 7654xxxx
category = (TMPacket->packetID[1] & 0x0f); // PACKET_CATEGORY = 12 *** 4 bits xxxxxxxx xxxx3210
if (pid!=CCSDS_PROCESS_ID) return ILLEGAL_APID;
if (category!=CCSDS_PACKET_CATEGORY) return ILLEGAL_APID;
// packet length check
length = TMPacket->packetLength[0] * 256 + TMPacket->packetLength[1];
if (length != TC_LEN_RCV ) return WRONG_LEN_PACKET; // LEN RCV != SIZE FIELD
if (length >= CCSDS_TC_PKT_MAX_SIZE) return WRONG_LEN_PACKET; // check that the packet does not exceed the MAX size
packetType = TMPacket->dataFieldHeader[1];
packetSubtype = TMPacket->dataFieldHeader[2];
// service type, subtype and packet length check
if (packetType == 181){
switch(packetSubtype){ //subtype, autorized values are 3, 20, 21, 24, 27, 28, 30, 40, 50, 60, 61
case 3:
if (length!=(12-CCSDS_TC_TM_PACKET_OFFSET)) return WRONG_LEN_PACKET;
break;
case 20:
if (length!=(14-CCSDS_TC_TM_PACKET_OFFSET)) return WRONG_LEN_PACKET;
break;
case 21:
if (length!=(20-CCSDS_TC_TM_PACKET_OFFSET)) return WRONG_LEN_PACKET;
break;
case 24:
if (length!=(14-CCSDS_TC_TM_PACKET_OFFSET)) return WRONG_LEN_PACKET;
break;
case 27:
if (length!=(14-CCSDS_TC_TM_PACKET_OFFSET)) return WRONG_LEN_PACKET;
break;
case 28:
if (length!=(14-CCSDS_TC_TM_PACKET_OFFSET)) return WRONG_LEN_PACKET;
break;
case 30:
if (length!=(12-CCSDS_TC_TM_PACKET_OFFSET)) return WRONG_LEN_PACKET;
break;
case 40:
if (length!=(20-CCSDS_TC_TM_PACKET_OFFSET)) return WRONG_LEN_PACKET;
break;
case 50:
if (length!=(50-CCSDS_TC_TM_PACKET_OFFSET)) return WRONG_LEN_PACKET;
break;
case 60:
if (length!=(12-CCSDS_TC_TM_PACKET_OFFSET)) return WRONG_LEN_PACKET;
break;
case 61:
if (length!=(12-CCSDS_TC_TM_PACKET_OFFSET)) return WRONG_LEN_PACKET;
break;
default:
return ILL_SUBTYPE;
break;
}
}
else if (packetType == 9){
if (packetSubtype!=129) return ILL_SUBTYPE;
if (length!=(18-CCSDS_TC_TM_PACKET_OFFSET)) return WRONG_LEN_PACKET;
}
else return ILL_TYPE;
// source ID check // Source ID not documented in the ICD
// packet error control, CRC check
CCSDSContent = (unsigned char*) TMPacket->packetID;
GetCRCAsTwoBytes(CCSDSContent, currentTC_COMPUTED_CRC, length + CCSDS_TC_TM_PACKET_OFFSET - 2); // 2 CRC bytes removed from the calculation of the CRC
if (currentTC_COMPUTED_CRC[0] != CCSDSContent[length + CCSDS_TC_TM_PACKET_OFFSET -2]) return INCOR_CHECKSUM;
if (currentTC_COMPUTED_CRC[1] != CCSDSContent[length + CCSDS_TC_TM_PACKET_OFFSET -1]) return INCOR_CHECKSUM;
return CCSDS_TM_VALID;
}
unsigned char TM_build_header( enum TM_TYPE tm_type, unsigned int SID, unsigned int packetLength,
unsigned int coarseTime, unsigned int fineTime, TMHeader_t *TMHeader)
{
TMHeader->targetLogicalAddress = CCSDS_DESTINATION_ID;
TMHeader->protocolIdentifier = 0x02;
TMHeader->reserved = 0x00;
TMHeader->userApplication = 0x00;
TMHeader->packetID[0] = 0x0c;
TMHeader->packetSequenceControl[0] = 0xc0;
TMHeader->packetSequenceControl[1] = 0x00;
TMHeader->packetLength[0] = (unsigned char) (packetLength>>8);
TMHeader->packetLength[1] = (unsigned char) packetLength;
TMHeader->dataFieldHeader[0] = 0x10;
TMHeader->dataFieldHeader[3] = CCSDS_DESTINATION_ID;
switch (tm_type){
case(TM_LFR_TC_EXE_OK):
TMHeader->packetID[1] = 0xc1;
TMHeader->dataFieldHeader[1] = 1; // type
TMHeader->dataFieldHeader[2] = 7; // subtype
break;
case(TM_LFR_TC_EXE_ERR):
TMHeader->packetID[1] = 0xc1;
TMHeader->dataFieldHeader[1] = 1; // type
TMHeader->dataFieldHeader[2] = 8; // subtype
break;
case(TM_LFR_HK):
TMHeader->packetID[1] = 0xc4;
TMHeader->dataFieldHeader[1] = 3; // type
TMHeader->dataFieldHeader[2] = 25; // subtype
break;
case(TM_LFR_SCI):
TMHeader->packetID[1] = 0xcc;
TMHeader->dataFieldHeader[1] = 21; // type
TMHeader->dataFieldHeader[2] = 3; // subtype
break;
case(TM_LFR_SCI_SBM):
TMHeader->packetID[1] = 0xfc;
TMHeader->dataFieldHeader[1] = 21; // type
TMHeader->dataFieldHeader[2] = 3; // subtype
break;
case(TM_LFR_PAR_DUMP):
TMHeader->packetID[1] = 0xc9;
TMHeader->dataFieldHeader[1] = 181; // type
TMHeader->dataFieldHeader[2] = 31; // subtype
break;
default:
return 0;
}
/*TMHeader->dataFieldHeader[4] = (unsigned char) (coarseTime>>24);
TMHeader->dataFieldHeader[5] = (unsigned char) (coarseTime>>16);
TMHeader->dataFieldHeader[6] = (unsigned char) (coarseTime>>8);
TMHeader->dataFieldHeader[7] = (unsigned char) (coarseTime);
TMHeader->dataFieldHeader[8] = (unsigned char) (fineTime>>8);
TMHeader->dataFieldHeader[9] = (unsigned char) (fineTime);*/
TMHeader->dataFieldHeader[4] = 0xaa;
TMHeader->dataFieldHeader[5] = 0xbb;
TMHeader->dataFieldHeader[6] = 0xcc;
TMHeader->dataFieldHeader[7] = 0xdd;
TMHeader->dataFieldHeader[8] = 0xee;
TMHeader->dataFieldHeader[9] = 0xff;
return 1;
}
unsigned char TM_build_data(ccsdsTelecommandPacket_t *TC, char* data, unsigned int SID, unsigned char *computed_CRC)
{
unsigned int packetLength;
packetLength = TC->packetLength[0] * 256 + TC->packetLength[1];
switch (SID){
case (SID_NOT_EXE):
break;
case (SID_NOT_IMP):
data[0] = 0x9c;
data[1] = 0x42;
data[2] = TC->packetID[0];
data[3] = TC->packetID[1];
data[4] = TC->packetSequenceControl[0];
data[5] = TC->packetSequenceControl[1];
data[6] = TC->dataFieldHeader[1]; // type
data[7] = TC->dataFieldHeader[2]; // subtype
break;
case (SID_EXE_ERR):
break;
case (SID_EXE_CORR):
data[0] = 0x9c;
data[1] = 0x45;
data[2] = TC->packetID[0];
data[3] = TC->packetID[1];
data[4] = TC->packetSequenceControl[0];
data[5] = TC->packetSequenceControl[1];
data[6] = TC->dataFieldHeader[1]; // type
data[7] = TC->dataFieldHeader[2]; // subtype
data[8] = currentTC_LEN_RCV[0];
data[9] = currentTC_LEN_RCV[1];
data[10] = TC->packetLength[0];
data[11] = TC->packetLength[1];
data[12] = TC->dataAndCRC[packetLength];
data[13] = TC->dataAndCRC[packetLength+1];
data[14] = computed_CRC[0];
data[15] = computed_CRC[1];
break;
default:
return 0;
}
return 1;
}
paul@pc-solar1.lab-lpp.local
Minor updates
 r7 //***********
// RTEMS TASK
paul@pc-solar1.lab-lpp.local
Message queue implemented for valid TC processing...
 r9 rtems_task recv_task( rtems_task_argument unused )
{
paul@pc-solar1.lab-lpp.local
Naming convention changed...
 r5 int len = 0;
unsigned int i = 0;
unsigned int data_length = 0;
ccsdsTelecommandPacket_t currentTC;
char data[100];
for(i=0; i<100; i++) data[i] = 0;
PRINTF("In RECV *** \n")
paul@pc-solar1.lab-lpp.local
Message queue implemented for valid TC processing...
 r9 while(1)
{
paul@pc-solar1.lab-lpp.local
Naming convention changed...
 r5 len = read(fdSPW, (char*) &currentTC, CCSDS_TC_PKT_MAX_SIZE); // the call to read is blocking
if (len == -1){ // error during the read call
PRINTF("In RECV *** last read call returned -1\n")
if (rtems_event_send( Task_id[3], SPW_LINKERR_EVENT ) != RTEMS_SUCCESSFUL)
PRINTF("IN RECV *** Error: rtems_event_send SPW_LINKERR_EVENT\n")
if (rtems_task_suspend(RTEMS_SELF) != RTEMS_SUCCESSFUL)
PRINTF("In RECV *** Error: rtems_task_suspend(RTEMS_SELF)\n")
}
else {
//PRINTF1("In RECV *** Got Message of length %d\n", len)
currentTC_LEN_RCV[0] = 0x00;
currentTC_LEN_RCV[1] = (unsigned char) len - CCSDS_TC_TM_PACKET_OFFSET - 3; // build the corresponding packet size field
currentTC_LEN_RCV_AsUnsignedInt = (unsigned int) len - CCSDS_TC_TM_PACKET_OFFSET - 3; // => -3 is for Prot ID, Reserved and User App bytes
// CHECK THE TC AND BUILD THE APPROPRIATE TM
paul@pc-solar1.lab-lpp.local
Message queue implemented for valid TC processing...
 r9 data_length = TC_checker(&currentTC, currentTC_LEN_RCV_AsUnsignedInt);
if (data_length!=-1)
{
}
paul@pc-solar1.lab-lpp.local
Naming convention changed...
 r5 }
}
}
paul@pc-solar1.lab-lpp.local
Message queue implemented for valid TC processing...
 r9 rtems_task actn_task( rtems_task_argument unused )
{
rtems_status_code status; // RTEMS status code
ccsdsTelecommandPacket_t TC; // TC sent to the ACTN task
size_t size; // size of the incoming TC packet
unsigned char subtype = 0; // subtype of the current TC packet
paul@pc-solar1.lab-lpp.local
Naming convention changed...
 r5
paul@pc-solar1.lab-lpp.local
Message queue implemented for valid TC processing...
 r9 while(1)
{
status = rtems_message_queue_receive(misc_id[0], (char*) &TC, &size,
RTEMS_WAIT, RTEMS_NO_TIMEOUT);
if (status!=RTEMS_SUCCESSFUL) PRINTF1("in task ACTN *** error receiving a message, code %d \n", status)
else
{
subtype = TC.dataFieldHeader[2];
switch(subtype)
{
case TC_SUBTYPE_RESET:
break;
case TC_SUBTYPE_LOAD_COMM:
break;
case TC_SUBTYPE_LOAD_NORM:
break;
case TC_SUBTYPE_LOAD_BURST:
break;
case TC_SUBTYPE_LOAD_SBM1:
break;
case TC_SUBTYPE_LOAD_SBM2:
break;
case TC_SUBTYPE_DUMP:
default_action( &TC );
break;
case TC_SUBTYPE_ENTER:
break;
case TC_SUBTYPE_UPDT_INFO:
break;
case TC_SUBTYPE_EN_CAL:
break;
case TC_SUBTYPE_DIS_CAL:
break;
case TC_SUBTYPE_UPDT_TIME:
break;
default:
break;
}
}
}
}
int create_message_queue()
{
rtems_status_code status;
misc_name[0] = rtems_build_name( 'Q', 'U', 'E', 'U' );
status = rtems_message_queue_create( misc_name[0], ACTION_MSG_QUEUE_COUNT, CCSDS_TC_PKT_MAX_SIZE,
RTEMS_FIFO | RTEMS_LOCAL, &misc_id[0] );
if (status!=RTEMS_SUCCESSFUL) PRINTF("in create_message_queue *** error creating message queue\n")
return 0;
}
//***********
// TC ACTIONS
int default_action(ccsdsTelecommandPacket_t *TC)
{
char data[100]; // buffer for the generic TM packet
TMHeader_t TM_header; // TM header
spw_ioctl_pkt_send spw_ioctl_send; // structure to send the TM packet if any
// BUILD HEADER
TM_build_header( TM_LFR_TC_EXE_ERR, SID_NOT_IMP, TM_LEN_NOT_IMP, 0, 0, &TM_header);
// BUILD DATA
TM_build_data( TC, data, SID_NOT_IMP, NULL);
// filling the strture for the spcawire transmission
spw_ioctl_send.hlen = TM_HEADER_LEN + 4; // + 4 is for the protocole extra header
spw_ioctl_send.hdr = (char*) &TM_header;
spw_ioctl_send.dlen = TM_LEN_NOT_IMP + CCSDS_TC_TM_PACKET_OFFSET - TM_HEADER_LEN;
spw_ioctl_send.data = data;
// SEND DATA
write_spw(&spw_ioctl_send);
return 0;
}