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

#ifndef TRUE

    66

  #define TRUE 1

    67

  #define FALSE 0

    68

#endif

    69

    70

#define __IEC_DEBUG_FLAG 0x01

    71

#define __IEC_FORCE_FLAG 0x02

    72

#define __IEC_RETAIN_FLAG 0x04

    73

#define __IEC_OUTPUT_FLAG 0x08

    74

    75

#define __DECLARE_IEC_TYPE(type)\

    76

typedef IEC_##type type;\

    77

\

    78

typedef struct {\

    79

  IEC_##type value;\

    80

  IEC_BYTE flags;\

    81

} __IEC_##type##_t;\

    82

\

    83

typedef struct {\

    84

  IEC_##type *value;\

    85

  IEC_BYTE flags;\

    86

  IEC_##type fvalue;\

    87

} __IEC_##type##_p;

    88

    89

    90

    91

#define __DECLARE_DERIVED_TYPE(type, base)\

    92

typedef base type;\

    93

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

    94

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

    95

    96

#define __DECLARE_COMPLEX_STRUCT(type)\

    97

typedef struct {\

    98

  type value;\

    99

  IEC_BYTE flags;\

   100

} __IEC_##type##_t;\

   101

\

   102

typedef struct {\

   103

  type *value;\

   104

  IEC_BYTE flags;\

   105

  type fvalue;\

   106

} __IEC_##type##_p;

   107

   108

#define __DECLARE_ENUMERATED_TYPE(type, ...)\

   109

typedef enum {\

   110

  __VA_ARGS__\

   111

} type;\

   112

__DECLARE_COMPLEX_STRUCT(type)

   113

   114

#define __DECLARE_ARRAY_TYPE(type, base, size)\

   115

typedef struct {\

   116

  base table size;\

   117

} type;\

   118

__DECLARE_COMPLEX_STRUCT(type)

   119

   120

#define __DECLARE_STRUCT_TYPE(type, elements)\

   121

typedef struct {\

   122

  elements\

   123

} type;\

   124

__DECLARE_COMPLEX_STRUCT(type)

   125

   126

#define __DECLARE_REFTO_TYPE(type, name)\

   127

typedef name type;\

   128

__DECLARE_COMPLEX_STRUCT(type)

   129

   130

   131

/* Those typdefs clash with windows.h */

   132

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

   133

__ANY(__DECLARE_IEC_TYPE)

   134

   135

typedef struct {

   136

  __IEC_BOOL_t X;  // state;  --> current step state. 0 : inative, 1: active.   We name it 'X' as it may be accessed from IEC 61131.3 code using stepname.X syntax!!

   137

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

   138

  __IEC_TIME_t T;  // elapsed_time;  --> time since step is active.   We name it 'T' as it may be accessed from IEC 61131.3 code using stepname.T syntax!!

   139

} STEP;

   140

   141

   142

typedef struct {

   143

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

   144

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

   145

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

   146

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

   147

  TIME set_remaining_time;    // time before set will be requested

   148

  TIME reset_remaining_time;  // time before reset will be requested

   149

} ACTION;

   150

   151

/* Extra debug types for SFC */

   152

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

   153

   154

/* Enumerate native types */

   155

#define __decl_enum_type(TYPENAME) TYPENAME##_ENUM,

   156

#define __decl_enum_pointer(TYPENAME) TYPENAME##_P_ENUM,

   157

#define __decl_enum_output(TYPENAME) TYPENAME##_O_ENUM,

   158

typedef enum{

   159

  __ANY(__decl_enum_type)

   160

  __ANY(__decl_enum_pointer)

   161

  __ANY(__decl_enum_output)

   162

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

   163

  UNKNOWN_ENUM

   164

} __IEC_types_enum;

   165

   166

/* Get size of type from its number */

   167

#define __decl_size_case(TYPENAME) \

   168

	case TYPENAME##_ENUM:\

   169

	case TYPENAME##_O_ENUM:\

   170

	case TYPENAME##_P_ENUM:\

   171

		return sizeof(TYPENAME);

   172

static inline USINT __get_type_enum_size(__IEC_types_enum t){

   173

 switch(t){

   174

  __ANY(__decl_size_case)

   175

  /* size do not correspond to real struct.

   176

   * only a bool is used to represent state*/

   177

  default:

   178

	  return 0;

   179

 }

   180

 return 0;

   181

}

   182

   183

#endif /*IEC_TYPES_ALL_H*/