1

#ifndef __ACCESSOR_H

     2

#define __ACCESSOR_H

     3

     4

#define __INITIAL_VALUE(...) __VA_ARGS__

     5

     6

// variable declaration macros

     7

#define __DECLARE_VAR(type, name)\

     8

	__IEC_##type##_t name;

     9

#define __DECLARE_GLOBAL(type, resource, name)\

    10

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

    11

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

    12

	void __INIT_GLOBAL_##name(type value) {\

    13

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

    14

	}\

    15

	void __SET_GLOBAL_##name(type value) {\

    16

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

    17

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

    18

	}\

    19

	type* __GET_GLOBAL_##name(void) {\

    20

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

    21

	}

    22

#define __DECLARE_GLOBAL_LOCATION(type, location)\

    23

	extern type *location;

    24

#define __DECLARE_GLOBAL_LOCATED(type, resource, name)\

    25

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

    26

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

    27

	void __INIT_GLOBAL_##name(type value) {\

    28

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

    29

	}\

    30

	void __SET_GLOBAL_##name(type value) {\

    31

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

    32

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

    33

	}\

    34

	type* __GET_GLOBAL_##name(void) {\

    35

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

    36

	}

    37

#define __DECLARE_EXTERNAL(type, name)\

    38

	__IEC_##type##_p name;

    39

#define __DECLARE_LOCATED(type, name)\

    40

	__IEC_##type##_p name;

    41

    42

    43

// variable initialization macros

    44

#define __INIT_RETAIN(name, retained)\

    45

    name.flags |= retained?__IEC_RETAIN_FLAG:0;

    46

#define __INIT_VAR(name, initial, retained)\

    47

	name.value = initial;\

    48

	__INIT_RETAIN(name, retained)

    49

#define __INIT_GLOBAL(type, name, initial, retained)\

    50

    {\

    51

	    static const type temp = initial;\

    52

	    __INIT_GLOBAL_##name(temp);\

    53

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

    54

    }

    55

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

    56

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

    57

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

    58

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

    59

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

    60

    __INIT_RETAIN(name, retained)

    61

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

    62

	{extern type *location;\

    63

	 name.value = location;\

    64

	 __INIT_RETAIN(name, retained)}

    65

#define __INIT_LOCATED_VALUE(name, initial)\

    66

	*(name.value) = initial;

    67

    68

    69

// variable getting macros

    70

#define __GET_VAR(name, ...)\

    71

	name.value __VA_ARGS__

    72

#define __GET_EXTERNAL(name, ...)\

    73

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

    74

#define __GET_LOCATED(name, ...)\

    75

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

    76

#define __GET_VAR_BY_REF(name, ...)\

    77

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

    78

#define __GET_EXTERNAL_BY_REF(name, ...)\

    79

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

    80

#define __GET_LOCATED_BY_REF(name, ...)\

    81

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

    82

    83

// variable setting macros

    84

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

    85

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

    86

#define __SET_EXTERNAL(global, name, new_value)\

    87

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

    88

		__SET_GLOBAL_##global(new_value)

    89

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

    90

	*(name.value) __VA_ARGS__ = new_value

    91

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

    92

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

    93

    94

#endif //__ACCESSOR_H