/*
 * 程序清单：信号量实现生产者消费者间的互斥
 *
 * 在这个程序中，会创建两个线程，一个是生成者线程worker一个是消费者线程thread
 *
 * 在数据信息生产、消费的过程中，worker负责把数据将写入到环形buffer中，而thread
 * 则从环形buffer中读出。
 */
#include <rtthread.h>
#include "tc_comm.h"

/* 一个环形buffer的实现 */
struct rb
{
	rt_uint16_t read_index, write_index;
	rt_uint8_t *buffer_ptr;
	rt_uint16_t buffer_size;
};

/* 指向信号量控制块的指针 */
static rt_sem_t sem = RT_NULL;
/* 指向线程控制块的指针 */
static rt_thread_t tid = RT_NULL, worker = RT_NULL;

/* 环形buffer的内存块（用数组体现出来） */
#define BUFFER_SIZE		256
#define BUFFER_ITEM		32
static rt_uint8_t working_buffer[BUFFER_SIZE];
struct rb working_rb;

/* 初始化环形buffer，size指的是buffer的大小。注：这里并没对数据地址对齐做处理 */
static void rb_init(struct rb* rb, rt_uint8_t *pool, rt_uint16_t size)
{
	RT_ASSERT(rb != RT_NULL);

	/* 对读写指针清零*/
	rb->read_index = rb->write_index = 0;

	/* 设置环形buffer的内存数据块 */
	rb->buffer_ptr = pool;
	rb->buffer_size = size;
}

/* 向环形buffer中写入数据 */
static rt_bool_t rb_put(struct rb* rb, const rt_uint8_t *ptr, rt_uint16_t length)
{
	rt_size_t size;

	/* 判断是否有足够的剩余空间 */
	if (rb->read_index > rb->write_index)
		size = rb->read_index - rb->write_index;
	else
		size = rb->buffer_size - rb->write_index + rb->read_index;

	/* 没有多余的空间 */
	if (size < length) return RT_FALSE;

	if (rb->read_index > rb->write_index)
	{
		/* read_index - write_index 即为总的空余空间 */
		memcpy(&rb->buffer_ptr[rb->write_index], ptr, length);
		rb->write_index += length;
	}
	else
	{
		if (rb->buffer_size - rb->write_index > length)
		{
			/* write_index 后面剩余的空间有足够的长度 */
			memcpy(&rb->buffer_ptr[rb->write_index], ptr, length);
			rb->write_index += length;
		}
		else
		{
			/*
			 * write_index 后面剩余的空间不存在足够的长度，需要把部分数据复制到
			 * 前面的剩余空间中
			 */
			memcpy(&rb->buffer_ptr[rb->write_index], ptr,
				rb->buffer_size - rb->write_index);
			memcpy(&rb->buffer_ptr[0], &ptr[rb->buffer_size - rb->write_index],
				length - (rb->buffer_size - rb->write_index));
			rb->write_index = length - (rb->buffer_size - rb->write_index);
		}
	}

	return RT_TRUE;
}

/* 从环形buffer中读出数据 */
static rt_bool_t rb_get(struct rb* rb, rt_uint8_t *ptr, rt_uint16_t length)
{
	rt_size_t size;

	/* 判断是否有足够的数据 */
	if (rb->read_index > rb->write_index)
		size = rb->buffer_size - rb->read_index + rb->write_index;
	else
		size = rb->write_index - rb->read_index;

	/* 没有足够的数据 */
	if (size < length) return RT_FALSE;

	if (rb->read_index > rb->write_index)
	{
		if (rb->buffer_size - rb->read_index > length)
		{
			/* read_index的数据足够多，直接复制 */
			memcpy(ptr, &rb->buffer_ptr[rb->read_index], length);
			rb->read_index += length;
		}
		else
		{
			/* read_index的数据不够，需要分段复制 */
			memcpy(ptr, &rb->buffer_ptr[rb->read_index],
				rb->buffer_size - rb->read_index);
			memcpy(&ptr[rb->buffer_size - rb->read_index], &rb->buffer_ptr[0],
				length - rb->buffer_size + rb->read_index);
			rb->read_index = length - rb->buffer_size + rb->read_index;
		}
	}
	else
	{
		/*
		 * read_index要比write_index小，总的数据量够（前面已经有总数据量的判
		 * 断），直接复制出数据。
		 */
		memcpy(ptr, &rb->buffer_ptr[rb->read_index], length);
		rb->read_index += length;
	}

	return RT_TRUE;
}

/* 生产者线程入口 */
static void thread_entry(void* parameter)
{
	rt_bool_t result;
	rt_uint8_t data_buffer[BUFFER_ITEM + 1];

	while (1)
	{
		/* 持有信号量 */
		rt_sem_take(sem, RT_WAITING_FOREVER);
		/* 从环buffer中获得数据 */
		result = rb_get(&working_rb, &data_buffer[0], BUFFER_ITEM);
		/* 释放信号量 */
		rt_sem_release(sem);
		data_buffer[BUFFER_ITEM] = '\0';

		if (result == RT_TRUE)
		{
			/* 获取数据成功，打印数据 */
			rt_kprintf("%s\n", data_buffer);
		}

		/* 做一个5 OS Tick的休眠 */
		rt_thread_delay(5);
	}
}

/* worker线程入口 */
static void worker_entry(void* parameter)
{
	rt_bool_t result;
	rt_uint32_t index, setchar;
	rt_uint8_t  data_buffer[BUFFER_ITEM];

	setchar = 0x21;
	while (1)
	{
		/* 构造数据 */
		for(index = 0; index < BUFFER_ITEM; index++)
		{
			data_buffer[index] = setchar;
			if (++setchar == 0x7f)
				setchar = 0x21;
		}

		/* 持有信号量 */
		rt_sem_take(sem, RT_WAITING_FOREVER);
		/* 把数据放到环形buffer中 */
		result = rb_put(&working_rb, &data_buffer[0], BUFFER_ITEM);
		/* 释放信号量 */
		rt_sem_release(sem);

		/* 放入成功，做一个10 OS Tick的休眠 */
		rt_thread_delay(10);
	}
}

int semaphore_buffer_worker_init()
{
	/* 初始化ring buffer */
	rb_init(&working_rb, working_buffer, BUFFER_SIZE);

	/* 创建信号量 */
	sem = rt_sem_create("sem", 1, RT_IPC_FLAG_FIFO);
	if (sem == RT_NULL)
	{
		tc_stat(TC_STAT_END | TC_STAT_FAILED);
		return 0;
	}

	/* 创建线程1 */
	tid = rt_thread_create("thread",
		thread_entry, RT_NULL, /* 线程入口是thread_entry, 入口参数是RT_NULL */
		THREAD_STACK_SIZE, THREAD_PRIORITY, THREAD_TIMESLICE);
	if (tid != RT_NULL)
		rt_thread_startup(tid);
	else
		tc_stat(TC_STAT_END | TC_STAT_FAILED);

	/* 创建线程2 */
	worker = rt_thread_create("worker",
		worker_entry, RT_NULL, /* 线程入口是worker_entry, 入口参数是RT_NULL */
		THREAD_STACK_SIZE, THREAD_PRIORITY, THREAD_TIMESLICE);
	if (worker != RT_NULL)
		rt_thread_startup(worker);
	else
		tc_stat(TC_STAT_END | TC_STAT_FAILED);

	return 0;
}

#ifdef RT_USING_TC
static void _tc_cleanup()
{
	/* 调度器上锁，上锁后，将不再切换到其他线程，仅响应中断 */
	rt_enter_critical();

	/* 删除信号量 */
	if (sem != RT_NULL)
		rt_sem_delete(sem);

	/* 删除线程 */
	if (tid != RT_NULL && tid->stat != RT_THREAD_CLOSE)
		rt_thread_delete(tid);
	if (worker != RT_NULL && worker->stat != RT_THREAD_CLOSE)
		rt_thread_delete(worker);

	/* 调度器解锁 */
	rt_exit_critical();

	/* 设置TestCase状态 */
	tc_done(TC_STAT_PASSED);
}

int _tc_semaphore_buffer_worker()
{
	/* 设置TestCase清理回调函数 */
	tc_cleanup(_tc_cleanup);
	semaphore_buffer_worker_init();

	/* 返回TestCase运行的最长时间 */
	return 100;
}
/* 输出函数命令到finsh shell中 */
FINSH_FUNCTION_EXPORT(_tc_semaphore_buffer_worker, a buffer worker with semaphore example);
#else
/* 用户应用入口 */
int rt_application_init()
{
	semaphore_buffer_worker_init();

	return 0;
}
#endif
