1

/*

     2

 * Copyright (C) 2007-2011: Edouard TISSERANT and Laurent BESSARD

     3

 *

     4

 * See COPYING and COPYING.LESSER files for copyright details.

     5

 *

     6

 * This library is free software; you can redistribute it and/or

     7

 * modify it under the terms of the GNU Lesser General Public

     8

 * License as published by the Free Software Foundation; either

     9

 * version 3 of the License, or (at your option) any later version.

    10

 *

    11

 * This library is distributed in the hope that it will be useful,

    12

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

    13

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

    14

 * Lesser General Public License for more details.

    15

 * 

    16

 * You should have received a copy of the GNU Lesser General Public License 

    17

 * along with this library. If not, see <http://www.gnu.org/licenses/>.

    18

 *

    19

 */

    20

    21

#ifndef IEC_TYPES_ALL_H

    22

#define IEC_TYPES_ALL_H

    23

    24

    25

/* Macro that expand to subtypes */

    26

#define __ANY(DO)                 __ANY_DERIVED(DO) __ANY_ELEMENTARY(DO)

    27

#define __ANY_DERIVED(DO)

    28

#define __ANY_ELEMENTARY(DO)      __ANY_MAGNITUDE(DO) __ANY_BIT(DO) __ANY_STRING(DO) __ANY_DATE(DO)

    29

#define __ANY_MAGNITUDE(DO)       __ANY_NUM(DO) DO(TIME)

    30

#define __ANY_BIT(DO)             __ANY_NBIT(DO) DO(BOOL)

    31

#define __ANY_NBIT(DO)            DO(BYTE) DO(WORD) DO(DWORD) DO(LWORD)

    32

#define __ANY_STRING(DO)          DO(STRING)

    33

#define __ANY_DATE(DO)            DO(DATE) DO(TOD) DO(DT)

    34

#define __ANY_NUM(DO)             __ANY_REAL(DO) __ANY_INT(DO)

    35

#define __ANY_REAL(DO)            DO(REAL) DO(LREAL)

    36

#define __ANY_INT(DO)             __ANY_SINT(DO) __ANY_UINT(DO)

    37

#define __ANY_SINT(DO)            DO(SINT) DO(INT) DO(DINT) DO(LINT)

    38

#define __ANY_UINT(DO)            DO(USINT) DO(UINT) DO(UDINT) DO(ULINT)

    39

    40

    41

/* Macro that expand to subtypes */

    42

#define __ANY_1(DO,P1)            __ANY_DERIVED_1(DO,P1) __ANY_ELEMENTARY_1(DO,P1)

    43

#define __ANY_DERIVED_1(DO,P1)

    44

#define __ANY_ELEMENTARY_1(DO,P1) __ANY_MAGNITUDE_1(DO,P1) __ANY_BIT_1(DO,P1) __ANY_STRING_1(DO,P1) __ANY_DATE_1(DO,P1)

    45

#define __ANY_MAGNITUDE_1(DO,P1)  __ANY_NUM_1(DO,P1) DO(TIME,P1)

    46

#define __ANY_BIT_1(DO,P1)        __ANY_NBIT_1(DO,P1) DO(BOOL,P1)

    47

#define __ANY_NBIT_1(DO,P1)       DO(BYTE,P1) DO(WORD,P1) DO(DWORD,P1) DO(LWORD,P1)

    48

#define __ANY_STRING_1(DO,P1)     DO(STRING,P1)

    49

#define __ANY_DATE_1(DO,P1)       DO(DATE,P1) DO(TOD,P1) DO(DT,P1)

    50

#define __ANY_NUM_1(DO,P1)        __ANY_REAL_1(DO,P1) __ANY_INT_1(DO,P1)

    51

#define __ANY_REAL_1(DO,P1)       DO(REAL,P1) DO(LREAL,P1)

    52

#define __ANY_INT_1(DO,P1)        __ANY_SINT_1(DO,P1) __ANY_UINT_1(DO,P1)

    53

#define __ANY_SINT_1(DO,P1)       DO(SINT,P1) DO(INT,P1) DO(DINT,P1) DO(LINT,P1)

    54

#define __ANY_UINT_1(DO,P1)       DO(USINT,P1) DO(UINT,P1) DO(UDINT,P1) DO(ULINT,P1)

    55

    56

    57

    58

/*********************/

    59

/*  IEC Types defs   */

    60

/*********************/

    61

    62

/* Include non windows.h clashing typedefs */

    63

#include "iec_types.h"

    64

    65

#define TRUE 1

    66

#define FALSE 0

    67

    68

#define __IEC_DEBUG_FLAG 0x01

    69

#define __IEC_FORCE_FLAG 0x02

    70

#define __IEC_RETAIN_FLAG 0x04

    71

#define __IEC_OUTPUT_FLAG 0x08

    72

    73

#define __DECLARE_IEC_TYPE(type)\

    74

typedef IEC_##type type;\

    75

\

    76

typedef struct {\

    77

  IEC_##type value;\

    78

  IEC_BYTE flags;\

    79

} __IEC_##type##_t;\

    80

\

    81

typedef struct {\

    82

  IEC_##type *value;\

    83

  IEC_BYTE flags;\

    84

  IEC_##type fvalue;\

    85

} __IEC_##type##_p;

    86

    87

#define __DECLARE_DERIVED_TYPE(type, base)\

    88

typedef base type;\

    89

typedef __IEC_##base##_t __IEC_##type##_t;\

    90

typedef __IEC_##base##_p __IEC_##type##_p;

    91

    92

#define __DECLARE_COMPLEX_STRUCT(type)\

    93

typedef struct {\

    94

  type value;\

    95

  IEC_BYTE flags;\

    96

} __IEC_##type##_t;\

    97

\

    98

typedef struct {\

    99

  type *value;\

   100

  IEC_BYTE flags;\

   101

  type fvalue;\

   102

} __IEC_##type##_p;

   103

   104

#define __DECLARE_ENUMERATED_TYPE(type, ...)\

   105

typedef enum {\

   106

  __VA_ARGS__\

   107

} type;\

   108

__DECLARE_COMPLEX_STRUCT(type)

   109

   110

#define __DECLARE_ARRAY_TYPE(type, base, size)\

   111

typedef struct {\

   112

  base table size;\

   113

} type;\

   114

__DECLARE_COMPLEX_STRUCT(type)

   115

   116

#define __DECLARE_STRUCT_TYPE(type, elements)\

   117

typedef struct {\

   118

  elements\

   119

} type;\

   120

__DECLARE_COMPLEX_STRUCT(type)

   121

   122

/* Those typdefs clash with windows.h */

   123

/* i.e. this file cannot be included aside windows.h */

   124

__ANY(__DECLARE_IEC_TYPE)

   125

   126

typedef struct {

   127

  __IEC_BOOL_t state;     // current step state. 0 : inative, 1: active

   128

  BOOL prev_state;  // previous step state. 0 : inative, 1: active

   129

  TIME elapsed_time;  // time since step is active

   130

} STEP;

   131

   132

typedef struct {

   133

  BOOL stored;  // action storing state. 0 : not stored, 1: stored

   135

  BOOL set;   // set have been requested (reset each time the body is evaluated)

   136

  BOOL reset; // reset have been requested (reset each time the body is evaluated)

   137

  TIME set_remaining_time;    // time before set will be requested

   138

  TIME reset_remaining_time;  // time before reset will be requested

   139

} ACTION;

   140

   141

/* Extra debug types for SFC */

   142

#define __ANY_SFC(DO) DO(STEP) DO(TRANSITION) DO(ACTION)

   143

   144

/* Enumerate native types */

   145

#define __decl_enum_type(TYPENAME) TYPENAME##_ENUM,

   146

#define __decl_enum_pointer(TYPENAME) TYPENAME##_P_ENUM,

   147

#define __decl_enum_output(TYPENAME) TYPENAME##_O_ENUM,

   148

typedef enum{

   149

  __ANY(__decl_enum_type)

   150

  __ANY(__decl_enum_pointer)

   151

  __ANY(__decl_enum_output)

   152

  /* SFC specific types are never external or global */

   153

  UNKNOWN_ENUM

   154

} __IEC_types_enum;

   155

   156

/* Get size of type from its number */

   157

#define __decl_size_case(TYPENAME) \

   158

	case TYPENAME##_ENUM:\

   159

	case TYPENAME##_O_ENUM:\

   160

	case TYPENAME##_P_ENUM:\

   161

		return sizeof(TYPENAME);

   162

static inline USINT __get_type_enum_size(__IEC_types_enum t){

   163

 switch(t){

   164

  __ANY(__decl_size_case)

   165

  /* size do not correspond to real struct.

   166

   * only a bool is used to represent state*/

   167

  default:

   168

	  return 0;

   169

 }

   170

 return 0;

   171

}

   172

   173

#endif /*IEC_TYPES_ALL_H*/