/*
 * (c) 2013 Nils Faerber, Siegen, Germany
 * licensed under GPLv2
 */

#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <stdlib.h>
#include <sys/select.h>
#include <sys/time.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <fcntl.h>
#include <bluetooth/bluetooth.h>
#include <bluetooth/l2cap.h>

int main(int argc, char **argv)
{
	struct sockaddr_l2 addr = { 0 };
	int s, status, len, i;
	char buf[255];
	char dest[18];
	fd_set infds;
	fd_set efds;

	if (argc < 2) {
		fprintf(stderr, "usage: %s <bt_addr>\n", argv[0]);
		exit(2);
	}

	strncpy(dest, argv[1], 18);

	// allocate a socket
	s = socket(AF_BLUETOOTH, SOCK_SEQPACKET, BTPROTO_L2CAP);

	// set the connection parameters (who to connect to)
	addr.l2_family = AF_BLUETOOTH;
	addr.l2_psm = htobs(0x1001);
	str2ba( dest, &addr.l2_bdaddr );

	// connect to server
	status = connect(s, (struct sockaddr *)&addr, sizeof(addr));

	// send a message
	if ( status != 0 ) {
		perror("open socket");
		close(s);
		return -1;
	}

	fprintf(stderr, "connected\n");

	if (fcntl(0, F_SETFL, O_NONBLOCK) != 0)
		perror("stdin nonblock");
	if (fcntl(s, F_SETFL, O_NONBLOCK) != 0)
		perror("socket nonblock");

	while (1) {
		FD_ZERO(&infds);
		FD_SET(s, &infds);
		FD_SET(0, &infds);
		FD_ZERO(&efds);
		FD_SET(s, &efds);
		status = select(s+1, &infds, NULL, &efds, NULL);
		// fprintf(stderr, "select = %d\n", status);
		if ( status > 0) {
			if (FD_ISSET(0, &infds)) {
				len = read(0, buf, 240);
				if (len > 0) {
					status = write(s, buf, len);
					if (status < 0)
						perror("write");
					fsync(s);
				}
			} else if (FD_ISSET(s, &infds)) {
				len = read(s, buf, 240);
				// fprintf(stderr, "read = %d\n", len);
				for (i=0; i<len; i++)
					fprintf(stderr, "%c", buf[i]);
				// fprintf(stderr, "\n");
			} else if (FD_ISSET(s, &efds)) {
				fprintf(stderr, "e on socket\n");
			} else
				fprintf(stderr, "hu?");
		} else
			perror("select");
	};


	close(s);

	return 0;
}