laurent@219: #ifndef __ACCESSOR_H
laurent@219: #define __ACCESSOR_H
laurent@219: 
laurent@221: 
laurent@219: // variable declaration macros
laurent@219: #define __DECLARE_VAR(type, name)\
laurent@221: 	__IEC_##type##_t name;
laurent@219: #define __DECLARE_GLOBAL(type, resource, name)\
laurent@221: 	__IEC_##type##_t resource##__##name;\
laurent@231: 	static __IEC_##type##_t *GLOBAL__##name = &resource##__##name;\
laurent@231: 	void __SET_GLOBAL_##name(type value) {\
laurent@231: 		if (!((*GLOBAL__##name).flags & __IEC_FORCE_FLAG))\
laurent@231: 			(*GLOBAL__##name).value = value;\
laurent@231: 	}
laurent@219: #define __DECLARE_GLOBAL_LOCATION(type, location)\
laurent@219: 	extern type *location;
laurent@219: #define __DECLARE_GLOBAL_LOCATED(type, resource, name)\
laurent@221: 	__IEC_##type##_p resource##__##name;\
laurent@221: 	static __IEC_##type##_p *GLOBAL__##name;
laurent@219: #define __DECLARE_EXTERNAL(type, name)\
laurent@221: 	__IEC_##type##_p name;
laurent@219: #define __DECLARE_LOCATED(type, name)\
laurent@221: 	__IEC_##type##_p name;
laurent@219: 
laurent@219: 
laurent@219: // variable initialization macros
laurent@225: #define __INIT_RETAIN(name, retained)\
laurent@227:     name.flags |= retained?__IEC_RETAIN_FLAG:0;
laurent@221: #define __INIT_VAR(name, initial, retained)\
laurent@225: 	name.value = initial;\
laurent@225: 	__INIT_RETAIN(name, retained)
laurent@221: #define __INIT_GLOBAL(name, initial, retained)\
laurent@225: 	(*GLOBAL__##name).value = initial;\
laurent@225: 	__INIT_RETAIN((*GLOBAL__##name), retained)
laurent@221: #define __INIT_GLOBAL_LOCATED(resource, name, location, retained)\
laurent@225: 	resource##__##name.value = location;\
laurent@225: 	__INIT_RETAIN(resource##__##name, retained)
laurent@221: #define __INIT_EXTERNAL(type, global, name, retained)\
laurent@221: 	{extern __IEC_##type##_t *GLOBAL__##global;\
laurent@225: 	 name.value = &((*GLOBAL__##global).value);\
laurent@225:      __INIT_RETAIN(name, retained)}
laurent@221: #define __INIT_LOCATED(type, location, name, retained)\
laurent@219: 	{extern type *location;\
laurent@225: 	 name.value = location;\
laurent@225: 	 __INIT_RETAIN(name, retained)}
laurent@219: #define __INIT_LOCATED_VALUE(name, initial)\
laurent@221: 	*(name.value) = initial;
laurent@219: 
laurent@219: 
laurent@219: // variable getting macros
laurent@221: #define __GET_VAR(name, ...)\
laurent@221: 	name.value __VA_ARGS__
laurent@225: #define __GET_EXTERNAL(name, ...)\
laurent@227: 	(name.flags & __IEC_FORCE_FLAG) ? name.fvalue __VA_ARGS__ : *(name.value) __VA_ARGS__
laurent@225: #define __GET_LOCATED(name, ...)\
laurent@227: 	(name.flags & __IEC_FORCE_FLAG) ? name.fvalue __VA_ARGS__ : *(name.value) __VA_ARGS__
laurent@235: #define __GET_VAR_BY_REF(name, ...)\
laurent@235: 	(name.flags & __IEC_FORCE_FLAG) ? &(name.fvalue __VA_ARGS__) : &(name.value __VA_ARGS__)
laurent@235: #define __GET_EXTERNAL_BY_REF(name, ...)\
laurent@235: 	(name.flags & __IEC_FORCE_FLAG) ? &(name.fvalue __VA_ARGS__) : &(*(name.value) __VA_ARGS__)
laurent@235: #define __GET_LOCATED_BY_REF(name, ...)\
laurent@235: 	(name.flags & __IEC_FORCE_FLAG) ? &(name.fvalue __VA_ARGS__) : &(*(name.value) __VA_ARGS__)
laurent@219: 
laurent@219: // variable setting macros
laurent@221: #define __SET_VAR(name, new_value, ...)\
edouard@224: 	if (!(name.flags & __IEC_FORCE_FLAG)) name.value __VA_ARGS__ = new_value
laurent@231: #define __SET_EXTERNAL(global, name, new_value)\
laurent@231: 	if (!(name.flags & __IEC_FORCE_FLAG))\
laurent@231: 		__SET_GLOBAL_##global(new_value)
laurent@231: #define __SET_COMPLEX_EXTERNAL(name, new_value, ...)\
laurent@231: 	*(name.value) __VA_ARGS__ = new_value
laurent@225: #define __SET_LOCATED(name, new_value, ...)\
laurent@227: 	if (!(name.flags & __IEC_FORCE_FLAG)) *(name.value) __VA_ARGS__ = new_value
laurent@219: 
laurent@219: #endif //__ACCESSOR_H