beremiz: svghmi/svghmi.c@3f3b1b8ccba4 (annotated)

2765 887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	1	#include <pthread.h>
2764 b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	2	#include "iec_types_all.h"
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	3	#include "POUS.h"
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	4	#include "config.h"
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	5	#include "beremiz.h"
2750 2694170cd88e intermediate commit, work in progress Edouard Tisserant parents: diff changeset	6
2765 887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	7	#define HMI_BUFFER_SIZE %(buffer_size)d
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	8
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	9	/* PLC reads from that buffer */
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	10	static char rbuf[HMI_BUFFER_SIZE];
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	11
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	12	/* PLC writes to that buffer */
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	13	static char wbuf[HMI_BUFFER_SIZE];
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	14
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	15	static pthread_mutex_t wbuf_mutex = PTHREAD_MUTEX_INITIALIZER;
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	16	static pthread_mutex_t rbuf_mutex = PTHREAD_MUTEX_INITIALIZER;
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	17
2764 b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	18	%(extern_variables_declarations)s
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	19
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	20	typedef const struct {
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	21	void *ptr;
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	22	__IEC_types_enum type;
2765 887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	23	uint32_t buf_index;
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	24	uint32_t flags;
2764 b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	25	} hmi_tree_item_t;
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	26
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	27	static hmi_tree_item_t hmi_tree_item[] = {
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	28	%(variable_decl_array)s
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	29	};
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	30
2765 887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	31	typedef void(hmi_tree_iterator)(hmi_tree_item_t);
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	32	void traverse_hmi_tree(hmi_tree_iterator fp)
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	33	{
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	34	unsigned int i;
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	35	for(i = 0; i < sizeof(hmi_tree_item)/sizeof(hmi_tree_item_t); i++){
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	36	hmi_tree_item_t *dsc = &hmi_tree_item[i];
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	37	if(dsc->type != UNKNOWN_ENUM)
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	38	(*fp)(dsc);
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	39	}
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	40	}
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	41
2766 3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	42	/* TODO : deduplicate that code with plc_debug.c */
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	43
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	44	#define __Unpack_case_t(TYPENAME) \
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	45	case TYPENAME##_ENUM :\
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	46	flags = ((__IEC_##TYPENAME##_t )varp)->flags;\
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	47	forced_value_p = real_value_p = &((__IEC_##TYPENAME##_t )varp)->value;\
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	48	break;
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	49
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	50	#define __Unpack_case_p(TYPENAME)\
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	51	case TYPENAME##_O_ENUM :\
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	52	*flags = __IEC_OUTPUT_FLAG;\
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	53	case TYPENAME##_P_ENUM :\
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	54	flags \|= ((__IEC_##TYPENAME##_p )varp)->flags;\
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	55	real_value_p = ((__IEC_##TYPENAME##_p )varp)->value;\
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	56	forced_value_p = &((__IEC_##TYPENAME##_p *)varp)->fvalue;\
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	57	break;
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	58
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	59	static void* UnpackVar(hmi_tree_item_t dsc, void real_value_p, char flags)
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	60	{
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	61	void *varp = dsc->ptr;
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	62	void *forced_value_p = NULL;
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	63	*flags = 0;
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	64	/* find data to copy*/
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	65	switch(dsc->type){
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	66	__ANY(__Unpack_case_t)
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	67	__ANY(__Unpack_case_p)
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	68	default:
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	69	break;
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	70	}
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	71	if (*flags & __IEC_FORCE_FLAG)
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	72	return forced_value_p;
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	73	return *real_value_p;
2765 887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	74	}
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	75
2766 3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	76	void write_iterator(hmi_tree_item_t *dsc)
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	77	{
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	78	void *dest_p = &wbuf[dsc->buf_index];
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	79	void *real_value_p = NULL;
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	80	char flags = 0;
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	81
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	82	void *visible_value_p = UnpackVar(dsc, &real_value_p, &flags);
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	83
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	84	memcpy(dest_p, visible_value_p, __get_type_enum_size(dsc->type));
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	85	}
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	86
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	87	void read_iterator(hmi_tree_item_t *dsc)
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	88	{
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	89	void *src_p = &rbuf[dsc->buf_index];
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	90	void *real_value_p = NULL;
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	91	char flags = 0;
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	92
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	93	void *visible_value_p = UnpackVar(dsc, &real_value_p, &flags);
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	94
3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	95	memcpy(visible_value_p, src_p, __get_type_enum_size(dsc->type));
2765 887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	96	}
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	97
2764 b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	98	int __init_svghmi()
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	99	{
2765 887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	100	bzero(rbuf,sizeof(rbuf));
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	101	bzero(wbuf,sizeof(wbuf));
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	102
2764 b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	103	return 0;
2750 2694170cd88e intermediate commit, work in progress Edouard Tisserant parents: diff changeset	104	}
2764 b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	105
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	106	void __cleanup_svghmi()
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	107	{
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	108	}
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	109
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	110	void __retrieve_svghmi()
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	111	{
2765 887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	112	if(!pthread_mutex_lock(&rbuf_mutex)){
2766 3f3b1b8ccba4 SVGHMI: Added iterators in svghmi.c copy-pasted form plc_debug.c Edouard Tisserant parents: 2765 diff changeset	113	traverse_hmi_tree(read_iterator);
2765 887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	114	pthread_mutex_unlock(&rbuf_mutex);
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	115	}
2764 b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	116	}
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	117
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	118	void __publish_svghmi()
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	119	{
2765 887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	120	if(!pthread_mutex_lock(&wbuf_mutex)){
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	121	pthread_mutex_unlock(&wbuf_mutex);
887aba5ef178 SVGHMI: svghmi.c now has mutex, iterator, and read/write buffer. Edouard Tisserant parents: 2764 diff changeset	122	}
2764 b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	123	}
b75cc2cf4e50 SVGHMI: draft for svghmi.c. It has all PLC variables pointed in HMI tree in an array. Edouard Tisserant parents: 2754 diff changeset	124

author	Edouard Tisserant
	Fri, 23 Aug 2019 14:01:31 +0200
branch	svghmi
changeset 2766	3f3b1b8ccba4
parent 2765	887aba5ef178
child 2767	302347f48193
permissions	-rw-r--r--