1

/*

     2

 *  matiec - a compiler for the programming languages defined in IEC 61131-3

     3

 *  Copyright (C) 2003-2011  Mario de Sousa (msousa@fe.up.pt)

     4

 *  Copyright (C) 2007-2011  Laurent Bessard and Edouard Tisserant

     5

 *

     6

 *  This program is free software: you can redistribute it and/or modify

     7

 *  it under the terms of the GNU General Public License as published by

     8

 *  the Free Software Foundation, either version 3 of the License, or

     9

 *  (at your option) any later version.

    10

 *

    11

 *  This program 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

    14

 *  GNU General Public License for more details.

    15

 *

    16

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

    17

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

    18

 *

    19

 *

    20

 * This code is made available on the understanding that it will not be

    21

 * used in safety-critical situations without a full and competent review.

    22

 */

    23

    24

/*

    25

 * An IEC 61131-3 compiler.

    26

 *

    27

 * Based on the

    28

 * FINAL DRAFT - IEC 61131-3, 2nd Ed. (2001-12-10)

    29

 *

    30

 */

    31

    32

/*

    33

 * Declaration of the Abstract Syntax data structure components

    34

 */

    35

    36

/*

    37

 * ABSYNTAX.H

    38

 *

    39

 * This generates the parse tree structure used to bind the components

    40

 * identified by Bison in the correct syntax order. At the end of the

    41

 * Bison analysis the tree is walked in a sequential fashion generating

    42

 * the relavent code.

    43

 */

    44

    45

#ifndef _ABSYNTAX_HH

    46

#define _ABSYNTAX_HH

    47

    48

    49

#include <stdio.h> // required for NULL

    50

#include <vector>

    51

    52

/* Forward declaration of the visitor interface

    53

 * dclared in the visitor.hh file

    54

 * We cannot include the visitor.hh file, as it will

    55

 * include this same file first, as it too requires references

    56

 * to the abstract syntax classes defined here.

    57

 */

    58

class visitor_c; // forward declaration

    59

    60

    61

class symbol_c; // forward declaration

    62

    63

    64

    65

/* The base class of all symbols */

    66

class symbol_c {

    67

    68

  public:

    69

    /*

    70

     * Line number for the purposes of error checking

    71

     */

    72

    int first_line;

    73

    int first_column;

    74

    const char *first_file;  /* filename referenced by first line/column */

    75

    long int first_order;    /* relative order in which it is read by lexcial analyser */

    76

    int last_line;

    77

    int last_column;

    78

    const char *last_file;  /* filename referenced by last line/column */

    79

    long int last_order;    /* relative order in which it is read by lexcial analyser */

    80

    symbol_c * datatype;    /* data type of the expression/literal/etc. Filled in stage3 by narrow_candidate_datatypes_c */

    81

    std::vector <symbol_c *> candidate_datatypes; /* All possible data types the expression/literal/etc. may take. Filled in stage3 by fill_candidate_datatypes_c class */

    82

    83

    84

  public:

    85

    /* default constructor */

    86

    symbol_c(int fl = 0, int fc = 0, const char *ffile = NULL /* filename */, long int forder=0, /* order in which it is read by lexcial analyser */

    87

             int ll = 0, int lc = 0, const char *lfile = NULL /* filename */, long int lorder=0  /* order in which it is read by lexcial analyser */

    88

            );

    89

    90

    /* default destructor */

    91

    /* must be virtual so compiler does not complain... */ 

    92

    virtual ~symbol_c(void) {return;};

    93

    94

    virtual void *accept(visitor_c &visitor) {return NULL;};

    95

};

    96

    97

    98

class token_c: public symbol_c {

    99

  public:

   100

    /* the value of the symbol. */

   101

    const char *value;

   102

   103

  public:

   104

    token_c(const char *value, 

   105

            int fl = 0, int fc = 0, const char *ffile = NULL /* filename */, long int forder=0, /* order in which it is read by lexcial analyser */

   106

            int ll = 0, int lc = 0, const char *lfile = NULL /* filename */, long int lorder=0  /* order in which it is read by lexcial analyser */

   107

           );

   108

};

   109

   110

   111

 /* a list of symbols... */

   112

class list_c: public symbol_c {

   113

  public:

   114

    int n;

   115

    symbol_c **elements;

   116

   117

  public:

   118

    list_c(int fl = 0, int fc = 0, const char *ffile = NULL /* filename */, long int forder=0, /* order in which it is read by lexcial analyser */

   119

           int ll = 0, int lc = 0, const char *lfile = NULL /* filename */, long int lorder=0  /* order in which it is read by lexcial analyser */

   120

          );

   121

   122

    list_c(symbol_c *elem, 

   123

           int fl = 0, int fc = 0, const char *ffile = NULL /* filename */, long int forder=0, /* order in which it is read by lexcial analyser */

   124

           int ll = 0, int lc = 0, const char *lfile = NULL /* filename */, long int lorder=0  /* order in which it is read by lexcial analyser */

   125

          );

   126

     /* append a new element to the end of the list */

   127

    virtual void add_element(symbol_c *elem);

   128

     /* insert a new element before position pos. */

   129

     /* To insert into the begining of list, call with pos=0  */

   130

     /* To insert into the end of list, call with pos=list->n */

   131

    virtual void insert_element(symbol_c *elem, int pos = 0);

   132

};

   133

   134

   135

   136

   137

#define SYM_LIST(class_name_c, ...)												\

   138

class class_name_c:	public list_c {											\

   139

  public:														\

   140

    __VA_ARGS__														\

   141

  public:														\

   142

    class_name_c(													\

   143

                 int fl = 0, int fc = 0, const char *ffile = NULL /* filename */, long int forder=0,			\

   144

                 int ll = 0, int lc = 0, const char *lfile = NULL /* filename */, long int lorder=0);			\

   145

    class_name_c(symbol_c *elem, 											\

   146

                 int fl = 0, int fc = 0, const char *ffile = NULL /* filename */, long int forder=0,			\

   147

                 int ll = 0, int lc = 0, const char *lfile = NULL /* filename */, long int lorder=0);			\

   148

    virtual void *accept(visitor_c &visitor);										\

   149

};

   150

   151

   152

#define SYM_TOKEN(class_name_c, ...)												\

   153

class class_name_c: 	public token_c {										\

   154

  public:														\

   155

    __VA_ARGS__														\

   156

  public:														\

   157

    class_name_c(const char *value, 											\

   158

                 int fl = 0, int fc = 0, const char *ffile = NULL /* filename */, long int forder=0,			\

   159

                 int ll = 0, int lc = 0, const char *lfile = NULL /* filename */, long int lorder=0);			\

   160

    virtual void *accept(visitor_c &visitor);										\

   161

};

   162

   163

   164

#define SYM_REF0(class_name_c, ...)												\

   165

class class_name_c: public symbol_c {											\

   166

  public:														\

   167

    __VA_ARGS__														\

   168

  public:														\

   169

    class_name_c(		 											\

   170

                 int fl = 0, int fc = 0, const char *ffile = NULL /* filename */, long int forder=0,			\

   171

                 int ll = 0, int lc = 0, const char *lfile = NULL /* filename */, long int lorder=0);			\

   172

    virtual void *accept(visitor_c &visitor);										\

   173

};

   174

   175

   176

#define SYM_REF1(class_name_c, ref1, ...)										\

   177

class class_name_c: public symbol_c {											\

   178

  public:														\

   179

    symbol_c *ref1;													\

   180

    __VA_ARGS__														\

   181

  public:														\

   182

    class_name_c(symbol_c *ref1,											\

   183

                 int fl = 0, int fc = 0, const char *ffile = NULL /* filename */, long int forder=0,			\

   184

                 int ll = 0, int lc = 0, const char *lfile = NULL /* filename */, long int lorder=0);			\

   185

    virtual void *accept(visitor_c &visitor);										\

   186

};

   187

   188

   189

#define SYM_REF2(class_name_c, ref1, ref2, ...)										\

   190

class class_name_c: public symbol_c {											\

   191

  public:														\

   192

    symbol_c *ref1;													\

   193

    symbol_c *ref2;													\

   194

    __VA_ARGS__														\

   195

  public:														\

   196

    class_name_c(symbol_c *ref1,											\

   197

		 symbol_c *ref2 = NULL,											\

   198

                 int fl = 0, int fc = 0, const char *ffile = NULL /* filename */, long int forder=0,			\

   199

                 int ll = 0, int lc = 0, const char *lfile = NULL /* filename */, long int lorder=0);			\

   200

    virtual void *accept(visitor_c &visitor);										\

   201

};

   202

   203

   204

#define SYM_REF3(class_name_c, ref1, ref2, ref3, ...)									\

   205

class class_name_c: public symbol_c {											\

   206

  public:														\

   207

    symbol_c *ref1;													\

   208

    symbol_c *ref2;													\

   209

    symbol_c *ref3;													\

   210

    __VA_ARGS__														\

   211

  public:														\

   212

    class_name_c(symbol_c *ref1,											\

   213

		 symbol_c *ref2,											\

   214

		 symbol_c *ref3,											\

   215

                 int fl = 0, int fc = 0, const char *ffile = NULL /* filename */, long int forder=0,			\

   216

                 int ll = 0, int lc = 0, const char *lfile = NULL /* filename */, long int lorder=0);			\

   217

    virtual void *accept(visitor_c &visitor);										\

   218

};

   219

   220

   221

#define SYM_REF4(class_name_c, ref1, ref2, ref3, ref4, ...)								\

   222

class class_name_c: public symbol_c {											\

   223

  public:														\

   224

    symbol_c *ref1;													\

   225

    symbol_c *ref2;													\

   226

    symbol_c *ref3;													\

   227

    symbol_c *ref4;													\

   228

    __VA_ARGS__														\

   229

  public:														\

   230

    class_name_c(symbol_c *ref1,											\

   231

		 symbol_c *ref2,											\

   232

		 symbol_c *ref3,											\

   233

		 symbol_c *ref4 = NULL,											\

   234

                 int fl = 0, int fc = 0, const char *ffile = NULL /* filename */, long int forder=0,			\

   235

                 int ll = 0, int lc = 0, const char *lfile = NULL /* filename */, long int lorder=0);			\

   236

    virtual void *accept(visitor_c &visitor);										\

   237

};

   238

   239

   240

#define SYM_REF5(class_name_c, ref1, ref2, ref3, ref4, ref5, ...)								\

   241

class class_name_c: public symbol_c {											\

   242

  public:														\

   243

    symbol_c *ref1;													\

   244

    symbol_c *ref2;													\

   245

    symbol_c *ref3;													\

   246

    symbol_c *ref4;													\

   247

    symbol_c *ref5;													\

   248

    __VA_ARGS__														\

   249

  public:														\

   250

    class_name_c(symbol_c *ref1,											\

   251

		 symbol_c *ref2,											\

   252

		 symbol_c *ref3,											\

   253

		 symbol_c *ref4,											\

   254

		 symbol_c *ref5,											\

   255

                 int fl = 0, int fc = 0, const char *ffile = NULL /* filename */, long int forder=0,			\

   256

                 int ll = 0, int lc = 0, const char *lfile = NULL /* filename */, long int lorder=0);			\

   257

    virtual void *accept(visitor_c &visitor);										\

   258

};

   259

   260

   261

#define SYM_REF6(class_name_c, ref1, ref2, ref3, ref4, ref5, ref6, ...)							\

   262

class class_name_c: public symbol_c {											\

   263

  public:														\

   264

    symbol_c *ref1;													\

   265

    symbol_c *ref2;													\

   266

    symbol_c *ref3;													\

   267

    symbol_c *ref4;													\

   268

    symbol_c *ref5;													\

   269

    symbol_c *ref6;													\

   270

    __VA_ARGS__														\

   271

  public:														\

   272

    class_name_c(symbol_c *ref1,											\

   273

		 symbol_c *ref2,											\

   274

		 symbol_c *ref3,											\

   275

		 symbol_c *ref4,											\

   276

		 symbol_c *ref5,											\

   277

		 symbol_c *ref6 = NULL,											\

   278

                 int fl = 0, int fc = 0, const char *ffile = NULL /* filename */, long int forder=0,			\

   279

                 int ll = 0, int lc = 0, const char *lfile = NULL /* filename */, long int lorder=0);			\

   280

    virtual void *accept(visitor_c &visitor);										\

   281

};

   282

   283

   284

#include "absyntax.def"

   285

   286

   287

   288

#undef SYM_LIST

   289

#undef SYM_TOKEN

   290

#undef SYM_REF0

   291

#undef SYM_REF1

   292

#undef SYM_REF2

   293

#undef SYM_REF3

   294

#undef SYM_REF4

   295

#undef SYM_REF5

   296

#undef SYM_REF6

   297

   298

   299

   300

#endif /*  _ABSYNTAX_HH */