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, domain, name)\

    10

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

    11

	static __IEC_##type##_t *GLOBAL__##name = &(domain##__##name);\

    12

	void __INIT_GLOBAL_##name(type value) {\

    13

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

    14

	}\

    15

	IEC_BYTE __IS_GLOBAL_##name##_FORCED(void) {\

    16

		return (*GLOBAL__##name).flags & __IEC_FORCE_FLAG;\

    17

	}\

    18

	type* __GET_GLOBAL_##name(void) {\

    19

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

    20

	}

    27

#define __DECLARE_GLOBAL_LOCATION(type, location)\

    28

	extern type *location;

    29

#define __DECLARE_GLOBAL_LOCATED(type, resource, name)\

    30

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

    31

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

    32

	void __INIT_GLOBAL_##name(type value) {\

    33

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

    34

	}\

    35

	IEC_BYTE __IS_GLOBAL_##name##_FORCED(void) {\

    36

		return (*GLOBAL__##name).flags & __IEC_FORCE_FLAG;\

    37

	}\

    38

	type* __GET_GLOBAL_##name(void) {\

    39

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

    40

	}

    41

#define __DECLARE_GLOBAL_PROTOTYPE(type, name)\

    42

    extern type* __GET_GLOBAL_##name();

    43

#define __DECLARE_EXTERNAL(type, name)\

    44

	__IEC_##type##_p name;

    47

#define __DECLARE_LOCATED(type, name)\

    48

	__IEC_##type##_p name;

    49

    50

    51

// variable initialization macros

    52

#define __INIT_RETAIN(name, retained)\

    53

    name.flags |= retained?__IEC_RETAIN_FLAG:0;

    54

#define __INIT_VAR(name, initial, retained)\

    55

	name.value = initial;\

    56

	__INIT_RETAIN(name, retained)

    57

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

    58

    {\

    59

	    static const type temp = initial;\

    60

	    __INIT_GLOBAL_##name(temp);\

    61

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

    62

    }

    65

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

    66

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

    67

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

    68

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

    69

    {\

    70

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

    71

		__INIT_RETAIN(name, retained)\

    72

    }

    75

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

    76

	{\

    77

		extern type *location;\

    78

		name.value = location;\

    79

		__INIT_RETAIN(name, retained)\

    80

    }

    81

#define __INIT_LOCATED_VALUE(name, initial)\

    82

	*(name.value) = initial;

    83

    84

    85

// variable getting macros

    86

#define __GET_VAR(name, ...)\

    87

	name.value __VA_ARGS__

    88

#define __GET_EXTERNAL(name, ...)\

    89

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

    92

#define __GET_LOCATED(name, ...)\

    93

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

    94

#define __GET_VAR_BY_REF(name, ...)\

    95

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

    96

#define __GET_EXTERNAL_BY_REF(name, ...)\

    97

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

   100

#define __GET_LOCATED_BY_REF(name, ...)\

   101

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

   102

   103

// variable setting macros

   104

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

   105

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

   106

#define __SET_EXTERNAL(prefix, name, new_value, ...)\

   107

	if (!(prefix name.flags & __IEC_FORCE_FLAG || __IS_GLOBAL_##name##_FORCED()))\

   108

		(*(prefix name.value)) __VA_ARGS__ = new_value

   111

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

   112

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

   113

   114

#endif //__ACCESSOR_H