1

/*

     2

 * (c) 2003 Mario de Sousa

     3

 *

     4

 * Offered to the public under the terms of the GNU General Public License

     5

 * as published by the Free Software Foundation; either version 2 of the

     6

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

     7

 *

     8

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

     9

 * WITHOUT ANY WARRANTY; without even the implied warranty of

    10

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

    11

 * Public License for more details.

    12

 *

    13

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

    14

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

    15

 */

    16

    17

/*

    18

 * An IEC 61131-3 IL and ST compiler.

    19

 *

    20

 * Based on the

    21

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

    22

 *

    23

 */

    24

    25

/*

    26

 * Definition of the Abstract Syntax data structure components

    27

 */

    28

    29

#include <stdio.h>

    30

#include <stdlib.h>	/* required for exit() */

    31

#include <string.h>

    32

    33

#include "absyntax.hh"

    34

//#include "../stage1_2/iec.hh" /* required for BOGUS_TOKEN_ID, etc... */

    35

#include "visitor.hh"

    36

    37

#define ABORT(str) {printf("ERROR: %s\n", str); exit(0);}

    38

    39

    40

    41

symbol_c *tree_root = NULL;

    42

    43

    44

    45

    46

/* The base class of all symbols */

    47

symbol_c::symbol_c(void) {

    48

  lineno = 0;

    49

}

    50

    51

symbol_c::symbol_c(long lineno) {

    52

  this->lineno = lineno;

    53

}

    54

    55

    56

    57

token_c::token_c(const char *value) {

    58

  this->value = value;

    59

//  printf("New token: %s\n", value);

    60

}

    61

    62

    63

    64

    65

    66

    67

list_c::list_c(void) {

    68

  n = 0;

    69

  elements = NULL;

    70

}

    71

    72

list_c::list_c(symbol_c *elem) {

    73

  n = 0;

    74

  elements = NULL;

    75

  add_element(elem);

    76

}

    77

    78

/* insert a new element */

    79

void list_c::add_element(symbol_c *elem) {

    80

//printf("list_c::add_element()\n");

    81

  n++;

    82

  elements = (symbol_c **)realloc(elements, n * sizeof(symbol_c *));

    83

  if (elements == NULL)

    84

    ABORT("Out of memory");

    85

  elements[n - 1] = elem;

    86

}

    87

    88

    89

    90

    91

    92

#define SYM_LIST(class_name_c)							\

    93

void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}

    94

    95

#define SYM_TOKEN(class_name_c)							\

    96

class_name_c::class_name_c(const char *value): token_c(value) {}			\

    97

void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}

    98

    99

#define SYM_REF0(class_name_c)			\

   100

void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}

   101

   102

   103

#define SYM_REF2(class_name_c, ref1, ref2)	\

   104

class_name_c::class_name_c(symbol_c *ref1,	\

   105

			   symbol_c *ref2) {	\

   106

  this->ref1 = ref1;				\

   107

  this->ref2 = ref2;				\

   108

}						\

   109

void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}

   110

   111

   112

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

   113

class_name_c::class_name_c(symbol_c *ref1,		\

   114

			   symbol_c *ref2,		\

   115

			   symbol_c *ref3,		\

   116

			   symbol_c *ref4) {		\

   117

  this->ref1 = ref1;					\

   118

  this->ref2 = ref2;					\

   119

  this->ref3 = ref3;					\

   120

  this->ref4 = ref4;					\

   121

}							\

   122

void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}

   123

   124

   125

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

   126

class_name_c::class_name_c(symbol_c *ref1,				\

   127

			   symbol_c *ref2,				\

   128

			   symbol_c *ref3,				\

   129

			   symbol_c *ref4,				\

   130

			   symbol_c *ref5,				\

   131

			   symbol_c *ref6) {				\

   132

  this->ref1 = ref1;						\

   133

  this->ref2 = ref2;						\

   134

  this->ref3 = ref3;						\

   135

  this->ref4 = ref4;						\

   136

  this->ref5 = ref5;						\

   137

  this->ref6 = ref6;						\

   138

}								\

   139

void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}

   140

   141

   142

   143

#include "absyntax.def"

   144

   145

   146

   147

   148

#undef SYM_LIST

   149

#undef SYM_TOKEN

   150

#undef SYM_TOKEN

   151

#undef SYM_REF0

   152

#undef SYM_REF2

   153

#undef SYM_REF4

   154

#undef SYM_REF6

   155

   156

   157

   158

   159