1

#ifndef __ACCESSOR_H

     2

#define __ACCESSOR_H

     3

     4

     5

// variable declaration macros

     6

#define __DECLARE_VAR(type, name)\

     7

	__IEC_##type##_t name;

     8

#define __DECLARE_GLOBAL(type, resource, name)\

     9

	__IEC_##type##_t resource##__##name;\

    10

	static __IEC_##type##_t *GLOBAL__##name = &resource##__##name;\

    11

	void __INIT_GLOBAL_##name(type value) {\

    12

		(*GLOBAL__##name).value = value;\

    13

	}\

    14

	void __SET_GLOBAL_##name(type value) {\

    15

		if (!((*GLOBAL__##name).flags & __IEC_FORCE_FLAG))\

    16

			(*GLOBAL__##name).value = value;\

    17

	}\

    18

	type* __GET_GLOBAL_##name(void) {\

    19

		return &((*GLOBAL__##name).value);\

    20

	}

    21

#define __DECLARE_GLOBAL_LOCATION(type, location)\

    22

	extern type *location;

    23

#define __DECLARE_GLOBAL_LOCATED(type, resource, name)\

    24

	__IEC_##type##_p resource##__##name;\

    25

	static __IEC_##type##_p *GLOBAL__##name = &resource##__##name;\

    26

	void __INIT_GLOBAL_##name(type value) {\

    27

		*((*GLOBAL__##name).value) = value;\

    28

	}\

    29

	void __SET_GLOBAL_##name(type value) {\

    30

		if (!((*GLOBAL__##name).flags & __IEC_FORCE_FLAG))\

    31

			*((*GLOBAL__##name).value) = value;\

    32

	}\

    33

	type* __GET_GLOBAL_##name(void) {\

    34

		return (*GLOBAL__##name).value;\

    35

	}

    36

#define __DECLARE_EXTERNAL(type, name)\

    37

	__IEC_##type##_p name;

    38

#define __DECLARE_LOCATED(type, name)\

    39

	__IEC_##type##_p name;

    40

    41

    42

// variable initialization macros

    43

#define __INIT_RETAIN(name, retained)\

    44

    name.flags |= retained?__IEC_RETAIN_FLAG:0;

    45

#define __INIT_VAR(name, initial, retained)\

    46

	name.value = initial;\

    47

	__INIT_RETAIN(name, retained)

    48

#define __INIT_GLOBAL(name, initial, retained)\

    49

	__INIT_GLOBAL_##name(initial);\

    50

	__INIT_RETAIN((*GLOBAL__##name), retained)

    51

#define __INIT_GLOBAL_LOCATED(resource, name, location, retained)\

    52

	resource##__##name.value = location;\

    53

	__INIT_RETAIN(resource##__##name, retained)

    54

#define __INIT_EXTERNAL(type, global, name, retained)\

    55

	name.value = __GET_GLOBAL_##global();\

    56

    __INIT_RETAIN(name, retained)

    57

#define __INIT_LOCATED(type, location, name, retained)\

    58

	{extern type *location;\

    59

	 name.value = location;\

    60

	 __INIT_RETAIN(name, retained)}

    61

#define __INIT_LOCATED_VALUE(name, initial)\

    62

	*(name.value) = initial;

    63

    64

    65

// variable getting macros

    66

#define __GET_VAR(name, ...)\

    67

	name.value __VA_ARGS__

    68

#define __GET_EXTERNAL(name, ...)\

    69

	((name.flags & __IEC_FORCE_FLAG) ? name.fvalue __VA_ARGS__ : *(name.value) __VA_ARGS__)

    70

#define __GET_LOCATED(name, ...)\

    71

	((name.flags & __IEC_FORCE_FLAG) ? name.fvalue __VA_ARGS__ : *(name.value) __VA_ARGS__)

    72

#define __GET_VAR_BY_REF(name, ...)\

    73

	((name.flags & __IEC_FORCE_FLAG) ? &(name.fvalue __VA_ARGS__) : &(name.value __VA_ARGS__))

    74

#define __GET_EXTERNAL_BY_REF(name, ...)\

    75

	((name.flags & __IEC_FORCE_FLAG) ? &(name.fvalue __VA_ARGS__) : &(*(name.value) __VA_ARGS__))

    76

#define __GET_LOCATED_BY_REF(name, ...)\

    77

	((name.flags & __IEC_FORCE_FLAG) ? &(name.fvalue __VA_ARGS__) : &(*(name.value) __VA_ARGS__))

    78

    79

// variable setting macros

    80

#define __SET_VAR(name, new_value, ...)\

    81

	if (!(name.flags & __IEC_FORCE_FLAG)) name.value __VA_ARGS__ = new_value

    82

#define __SET_EXTERNAL(global, name, new_value)\

    83

	if (!(name.flags & __IEC_FORCE_FLAG))\

    84

		__SET_GLOBAL_##global(new_value)

    85

#define __SET_COMPLEX_EXTERNAL(name, new_value, ...)\

    86

	*(name.value) __VA_ARGS__ = new_value

    87

#define __SET_LOCATED(name, new_value, ...)\

    88

	if (!(name.flags & __IEC_FORCE_FLAG)) *(name.value) __VA_ARGS__ = new_value

    89

    90

#endif //__ACCESSOR_H