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

    42

    43

    44

/* The base class of all symbols */

    45

symbol_c::symbol_c(void) {

    46

  lineno = 0;

    47

}

    48

    49

symbol_c::symbol_c(long lineno) {

    50

  this->lineno = lineno;

    51

}

    52

    53

    54

    55

token_c::token_c(const char *value) {

    56

  this->value = value;

    57

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

    58

}

    59

    60

    61

    62

    63

    64

    65

list_c::list_c(void) {

    66

  n = 0;

    67

  elements = NULL;

    68

}

    69

    70

list_c::list_c(symbol_c *elem) {

    71

  n = 0;

    72

  elements = NULL;

    73

  add_element(elem);

    74

}

    75

    76

/* insert a new element */

    77

void list_c::add_element(symbol_c *elem) {

    78

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

    79

  n++;

    80

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

    81

  if (elements == NULL)

    82

    ABORT("Out of memory");

    83

  elements[n - 1] = elem;

    84

}

    85

    86

    87

    88

    89

    90

#define SYM_LIST(class_name_c)							\

    91

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

    92

    93

#define SYM_TOKEN(class_name_c)							\

    94

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

    95

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

    96

    97

#define SYM_REF0(class_name_c)			\

    98

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

    99

   100

   101

#define SYM_REF2(class_name_c, ref1, ref2)	\

   102

class_name_c::class_name_c(symbol_c *ref1,	\

   103

			   symbol_c *ref2) {	\

   104

  this->ref1 = ref1;				\

   105

  this->ref2 = ref2;				\

   106

}						\

   107

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

   108

   109

   110

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

   111

class_name_c::class_name_c(symbol_c *ref1,		\

   112

			   symbol_c *ref2,		\

   113

			   symbol_c *ref3,		\

   114

			   symbol_c *ref4) {		\

   115

  this->ref1 = ref1;					\

   116

  this->ref2 = ref2;					\

   117

  this->ref3 = ref3;					\

   118

  this->ref4 = ref4;					\

   119

}							\

   120

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

   121

   122

   123

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

   124

class_name_c::class_name_c(symbol_c *ref1,				\

   125

			   symbol_c *ref2,				\

   126

			   symbol_c *ref3,				\

   127

			   symbol_c *ref4,				\

   128

			   symbol_c *ref5,				\

   129

			   symbol_c *ref6) {				\

   130

  this->ref1 = ref1;						\

   131

  this->ref2 = ref2;						\

   132

  this->ref3 = ref3;						\

   133

  this->ref4 = ref4;						\

   134

  this->ref5 = ref5;						\

   135

  this->ref6 = ref6;						\

   136

}								\

   137

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

   138

   139

   140

   141

#include "absyntax.def"

   142

   143

   144

   145

   146

#undef SYM_LIST

   147

#undef SYM_TOKEN

   148

#undef SYM_TOKEN

   149

#undef SYM_REF0

   150

#undef SYM_REF2

   151

#undef SYM_REF4

   152

#undef SYM_REF6

   153

   154

   155

   156

   157