Colony

/* Internal Function Prototypes */

/* I/O Functions */

static int8_t xbee_send_string(uint8_t* c);

static int8_t xbee_wait_for_ok(void);

/* API Mode Functions */

static int8_t xbee_handle_at_command_response(uint16_t command, uint8_t result, uint8_t len);

static int8_t xbee_handle_at_command_response(uint16_t command, uint8_t result, uint8_t len);

static void xbee_handle_status(uint8_t status);

uint8_t xbee_basic_buf_get(uint8_t *ptr);

int8_t xbee_other_buf_add(uint8_t *ptr, uint8_t byte);

/*Global Variables*/

// array for basic packets

static uint8_t xbee_basic_buf[PACKET_BUFFER_SIZE];

static uint8_t other_buf_last = 0;

// xbee status

#define XBEE_COMMAND_WAIT 0x80

#define XBEE_COMMAND_RESPONSE 0xC0

// xbee command response (for PAN, channel, address, etc)

static uint8_t xbee_command[4];

  uint16_t len=0;

  // check that we're in API mode

    // not in API mode

      // get rest of command and put in basic buf

      xbee_basic_buf[0] = apitype;

      if (xbee_basic_buf[i] != '\r') {

        }

      }

      // signal handler that command response is done

    }

    return;

  }

  switch(apitype) {

  case XBEE_FRAME_AT_COMMAND_RESPONSE: {

    // AT command response

      return; // we're currently processing a command, so drop the incoming one

    uint16_t atcommand=0;

    uint8_t ptr=basic_buf_last;

          apitype = PORT; // get options, and ignore

        else if (i==5) {

          framenum = PORT; // get the frame number

            // we've already received this frame

            ptr = 0xFF; // signal to skip processing

            break;

  return 0;

}

/**

 * Initializes the XBee library so that other functions may be used.

 **/

{

	WL_DEBUG_PRINT("in xbee_init\n");

    return WL_ERROR_INIT_ALREADY_INITD;

  }

  // Set startup baud rate of 9600

	// Set frame format: 8data, 1stop bit, asynchronous normal mode

  // Enable receiver and transmitter and the receiving interrupt

  // set status

	return WL_SUCCESS;

}

    WL_DEBUG_PRINT("xbee termination failed\r\n");

    return WL_ERROR_TERMINATION_FAILED;

  }

  return WL_SUCCESS;

}

 * @return 0 for success, nonzero for failure

 **/

int8_t xbee_putc(uint8_t c) {

  // Wait until buffer is clear for sending

  // Then load buffer with your character

 * @see xbee_init, xbee_getc_nb

 **/

int16_t xbee_getc(void) {

  // Wait for the receive buffer to be filled

  // Then read the receive buffer

#ifdef FIREFLY

 * @see xbee_getc

 **/

int8_t xbee_getc_nb(uint8_t *c) {

  // check if the receive buffer is filled

#ifdef FIREFLY

 * @param buf the buffer of data to send

 * @param size the number of bytes to send

 **/

{

  uint16_t i=0; // check if we need this variable

	while(i<size) {

	}

	xbee_wait_for_ok();

	return WL_SUCCESS;

}

	}

	xbee_wait_for_ok();

	return WL_SUCCESS;

}

 **/

static int8_t xbee_exit_api_mode()

{

    return WL_ERROR_XBEE_COMMAND; // can't do command right now

  int16_t i=0;

  // change status to command wait

  xbee_send_modify_at_command((uint8_t*)"AP",(uint8_t*)"0",1); // send command

  // wait for up to 30 ms

    delay_us(1); // wait 3us

  }

  if (i < 1000 && xbee_command[0] == 'A' && xbee_command[1] == 'P')

    i = WL_SUCCESS;

  else

    i = WL_ERROR_XBEE_COMMAND; // set error code

	return (int8_t)i; // return

}

static int8_t xbee_wait_for_string(uint8_t* s, uint16_t len)

{

  uint8_t i=0;

    // wait until the response is received (only wait 1 second)

      delay_us(1);

    }

    // check response

      return -1;

    }

  }

	return 0;

 */

static int8_t xbee_wait_for_response(uint8_t* s, int16_t len) {

  uint8_t i=0;

    // wait until the response is received (only wait 1 second)

      delay_us(1);

    }

    // check response

      i=strcspn((char*)xbee_basic_buf,"\r");

      if (i<PACKET_BUFFER_SIZE) {

        memcpy(s,xbee_basic_buf,i);

        return 0;

      }

      else

 *

 * @return error code

 **/

  if (buf == NULL || sum == NULL)

    return WL_ERROR_ARGUMENT;

  while(--len > 0) {

		*sum += buf[len];

  }

  *sum += buf[0];

}

 * @param len the size in bytes of the packet data

 *

 **/

{  

  //packet prefix

  if (xbee_putc(XBEE_FRAME_START) != WL_SUCCESS)

  }

  // signal handler that command response is done

  return WL_SUCCESS;

}

 **/

int8_t xbee_set_pan_id(uint16_t id)

{

    return WL_ERROR_XBEE_COMMAND; // can't do command right now

  int16_t i=0;

  // change status to command wait

  xbee_send_modify_at_command((uint8_t*)"ID",(uint8_t*)(&id),2); // send command to set the channel

  // wait for up to 30 ms

    delay_us(1); // wait 3us

  }

  if (i < 1000 && xbee_command[0] == 'O' && xbee_command[1] == 'K')

    i = WL_SUCCESS;

  else

    i = WL_ERROR_XBEE_COMMAND; // set error code

	return (int8_t)i; // return

}

 **/

uint16_t xbee_get_pan_id()

{

    return WL_ERROR_XBEE_COMMAND_16BIT; // can't do command right now

  uint16_t i=0;

  // change status to command wait

  xbee_send_read_at_command((uint8_t*)"ID"); // send command to get the PAN

  // wait for up to 30 ms

    delay_us(1); // wait 3us

  }

  if (i < 1000 && xbee_command[0] == 'I' && xbee_command[1] == 'D')

    i = (xbee_command[2]<<8)|xbee_command[3]; // get PAN

  else

    i = WL_ERROR_XBEE_COMMAND_16BIT; // set error code

	return i; // return

}

		return -1;

	}

    return WL_ERROR_XBEE_COMMAND; // can't do command right now

  int16_t i=0;

  // change status to command wait

  xbee_send_modify_at_command((uint8_t*)"CH",&channel,1); // send command to set the channel

  // wait for up to 30 ms

    delay_us(1); // wait 3us

  }

  if (i < 1000 && xbee_command[0] == 'O' && xbee_command[1] == 'K')

    i = WL_SUCCESS;

  else

    i = WL_ERROR_XBEE_COMMAND; // set error code

	return (int8_t)i; // return

}

 **/

int8_t xbee_get_channel(void)

{

    return WL_ERROR_XBEE_COMMAND; // can't do command right now

  int16_t i=0;

  // change status to command wait

  xbee_send_read_at_command((uint8_t*)"ID"); // send command to get the channel

  // wait for up to 30 ms

    delay_us(1); // wait 3us

  }

  if (i < 1000 && xbee_command[0] == 'C' && xbee_command[1] == 'H')

    i = xbee_command[2]; // get channel

  else

    i = WL_ERROR_XBEE_COMMAND; // set error code

	return i; // return

}

 **/

uint16_t xbee_get_address(void)

{

    return WL_ERROR_XBEE_COMMAND_16BIT; // can't do command right now

  uint16_t i=0;

  // change status to command wait

  xbee_send_read_at_command((uint8_t*)"MY"); // send command to get the address

  // wait for up to 30 ms

    delay_us(1); // wait 3us

  }

  if (i < 1000 && xbee_command[0] == 'M' && xbee_command[1] == 'Y')

    i = (xbee_command[2]<<8)+xbee_command[3]; // get address

  else

    i = WL_ERROR_XBEE_COMMAND_16BIT; // set error code

	return i; // return

}