CELL func_set_cdr(CELL frame)
{
if (!CONSP(FV0)) {
return make_exception("1st argument was not a <pair>");
}
GET_CONS(FV0)->cdr = FV1;
return V_VOID;
}
void __SYSCALL SendRadioPacket(unsigned char* packet, int len) {
if (!packet || len != PACKET_LEN) {
LowLevel::LowLog("PROTOCOL: len != PACKET_LEN");
return;
}
if (IS_ATACK_PACKET(packet)) {
struct ATACK_PACKET* ap = (struct ATACK_PACKET*)packet;
if(IS_ATACKHEAL_PACKET(packet))
LowLevel::LowLog("PROTOCOL: receive HEAL packet from %d to %d health+=%d",
ap->src, ap->dst, ap->atack, GET_CONS(ap->flags));
else
LowLevel::LowLog("PROTOCOL: receive ATACK packet from %d to %d atack=%d and cons=%d",
ap->src, ap->dst, ap->atack, GET_CONS(ap->flags));
} else {
struct OSANVE_PACKET* op = (struct OSANVE_PACKET*)packet;
LowLevel::LowLog("PROTOCOL: receive OSANVE packet from %d forces=%d/%d and osanve=%d",
op->src, op->force, op->maxForce, op->flags&OSANVE_MASK);
}
return;
//TODO timer/list helper
}
