matiec: absyntax/absyntax.cc@db2ad6541d92 (annotated)

0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	1	/*
261 db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	2	* matiec - a compiler for the programming languages defined in IEC 61131-3
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	3	* Copyright (C) 2003-2011 Mario de Sousa (msousa@fe.up.pt)
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	4	*
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	5	* This program is free software: you can redistribute it and/or modify
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	6	* it under the terms of the GNU General Public License as published by
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	7	* the Free Software Foundation, either version 3 of the License, or
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	8	* (at your option) any later version.
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	9	*
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	10	* This program is distributed in the hope that it will be useful,
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	11	* but WITHOUT ANY WARRANTY; without even the implied warranty of
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	12	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	13	* GNU General Public License for more details.
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	14	*
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	15	* You should have received a copy of the GNU General Public License
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	16	* along with this program. If not, see <http://www.gnu.org/licenses/>.
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	17	*
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	18	*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	19	* This code is made available on the understanding that it will not be
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	20	* used in safety-critical situations without a full and competent review.
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	21	*/
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	22
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	23	/*
261 db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	24	* An IEC 61131-3 compiler.
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	25	*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	26	* Based on the
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	27	* FINAL DRAFT - IEC 61131-3, 2nd Ed. (2001-12-10)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	28	*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	29	*/
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	30
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	31	/*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	32	* Definition of the Abstract Syntax data structure components
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	33	*/
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	34
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	35	#include <stdio.h>
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	36	#include <stdlib.h> /* required for exit() */
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	37	#include <string.h>
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	38
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	39	#include "absyntax.hh"
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	40	//#include "../stage1_2/iec.hh" /* required for BOGUS_TOKEN_ID, etc... */
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	41	#include "visitor.hh"
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	42
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	43	#define ABORT(str) {printf("ERROR: %s\n", str); exit(0);}
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	44
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	45
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	46
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	47
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	48
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	49
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	50	/* The base class of all symbols */
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	51	symbol_c::symbol_c(void) {
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	52	this->first_line = 0;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	53	this->first_column = 0;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	54	this->last_line = 0;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	55	this->last_column = 0;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	56	}
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	57
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	58	symbol_c::symbol_c(int first_line, int first_column, int last_line, int last_column) {
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	59	this->first_line = first_line;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	60	this->first_column = first_column;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	61	this->last_line = last_line;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	62	this->last_column = last_column;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	63	}
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	64
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	65
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	66
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	67	token_c::token_c(const char *value, int fl, int fc, int ll, int lc)
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	68	:symbol_c(fl, fc, ll, lc) {
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	69	this->value = value;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	70	// printf("New token: %s\n", value);
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	71	}
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	72
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	73
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	74
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	75
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	76
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	77
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	78	list_c::list_c(int fl, int fc, int ll, int lc)
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	79	:symbol_c(fl, fc, ll, lc) {
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	80	n = 0;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	81	elements = NULL;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	82	}
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	83
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	84	list_c::list_c(symbol_c *elem, int fl, int fc, int ll, int lc)
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	85	:symbol_c(fl, fc, ll, lc) {
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	86	n = 0;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	87	elements = NULL;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	88	add_element(elem);
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	89	}
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	90
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	91	/* insert a new element */
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	92	void list_c::add_element(symbol_c *elem) {
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	93	//printf("list_c::add_element()\n");
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	94	n++;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	95	elements = (symbol_c *)realloc(elements, n sizeof(symbol_c *));
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	96	if (elements == NULL)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	97	ABORT("Out of memory");
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	98	elements[n - 1] = elem;
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	99
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	100	if (elem == NULL)
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	101	return;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	102
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	103	/* adjust the location parameters, taking into account the new element. */
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	104	if ((first_line == elem->first_line) &&
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	105	(first_column > elem->first_column)) {
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	106	first_column = elem->first_column;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	107	}
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	108	if (first_line > elem->first_line) {
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	109	first_line = elem->first_line;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	110	first_column = elem->first_column;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	111	}
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	112	if ((last_line == elem->last_line) &&
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	113	(last_column < elem->last_column)) {
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	114	last_column = elem->last_column;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	115	}
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	116	if (last_line < elem->last_line) {
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	117	last_line = elem->last_line;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	118	last_column = elem->last_column;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	119	}
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	120	}
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	121
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	122
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	123
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	124
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	125	#define SYM_LIST(class_name_c) \
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	126	class_name_c::class_name_c(int fl, int fc, int ll, int lc) \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	127	:list_c(fl, fc, ll, lc) {} \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	128	class_name_c::class_name_c(symbol_c *elem, int fl, int fc, int ll, int lc) \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	129	:list_c(elem, fl, fc, ll, lc) {} \
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	130	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	131
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	132	#define SYM_TOKEN(class_name_c) \
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	133	class_name_c::class_name_c(const char *value, int fl, int fc, int ll, int lc) \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	134	:token_c(value, fl, fc, ll, lc) {} \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	135	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	136
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	137	#define SYM_REF0(class_name_c) \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	138	class_name_c::class_name_c(int fl, int fc, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	139	int ll, int lc \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	140	): symbol_c(fl, fc, ll, lc) {} \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	141	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	142
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	143
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	144	#define SYM_REF1(class_name_c, ref1) \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	145	class_name_c::class_name_c(symbol_c *ref1, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	146	int fl, int fc, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	147	int ll, int lc \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	148	): symbol_c(fl, fc, ll, lc) { \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	149	this->ref1 = ref1; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	150	} \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	151	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	152
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	153
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	154	#define SYM_REF2(class_name_c, ref1, ref2) \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	155	class_name_c::class_name_c(symbol_c *ref1, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	156	symbol_c *ref2, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	157	int fl, int fc, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	158	int ll, int lc \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	159	): symbol_c(fl, fc, ll, lc) { \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	160	this->ref1 = ref1; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	161	this->ref2 = ref2; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	162	} \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	163	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	164
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	165
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	166	#define SYM_REF3(class_name_c, ref1, ref2, ref3) \
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	167	class_name_c::class_name_c(symbol_c *ref1, \
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	168	symbol_c *ref2, \
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	169	symbol_c *ref3, \
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	170	int fl, int fc, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	171	int ll, int lc \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	172	): symbol_c(fl, fc, ll, lc) { \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	173	this->ref1 = ref1; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	174	this->ref2 = ref2; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	175	this->ref3 = ref3; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	176	} \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	177	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	178
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	179
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	180	#define SYM_REF4(class_name_c, ref1, ref2, ref3, ref4) \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	181	class_name_c::class_name_c(symbol_c *ref1, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	182	symbol_c *ref2, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	183	symbol_c *ref3, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	184	symbol_c *ref4, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	185	int fl, int fc, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	186	int ll, int lc \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	187	): symbol_c(fl, fc, ll, lc) { \
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	188	this->ref1 = ref1; \
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	189	this->ref2 = ref2; \
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	190	this->ref3 = ref3; \
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	191	this->ref4 = ref4; \
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	192	} \
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	193	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	194
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	195
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	196	#define SYM_REF5(class_name_c, ref1, ref2, ref3, ref4, ref5) \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	197	class_name_c::class_name_c(symbol_c *ref1, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	198	symbol_c *ref2, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	199	symbol_c *ref3, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	200	symbol_c *ref4, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	201	symbol_c *ref5, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	202	int fl, int fc, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	203	int ll, int lc \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	204	): symbol_c(fl, fc, ll, lc) { \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	205	this->ref1 = ref1; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	206	this->ref2 = ref2; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	207	this->ref3 = ref3; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	208	this->ref4 = ref4; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	209	this->ref5 = ref5; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	210	} \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	211	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	212
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	213
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	214
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	215	#define SYM_REF6(class_name_c, ref1, ref2, ref3, ref4, ref5, ref6) \
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	216	class_name_c::class_name_c(symbol_c *ref1, \
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	217	symbol_c *ref2, \
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	218	symbol_c *ref3, \
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	219	symbol_c *ref4, \
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	220	symbol_c *ref5, \
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	221	symbol_c *ref6, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	222	int fl, int fc, \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	223	int ll, int lc \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	224	): symbol_c(fl, fc, ll, lc) { \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	225	this->ref1 = ref1; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	226	this->ref2 = ref2; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	227	this->ref3 = ref3; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	228	this->ref4 = ref4; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	229	this->ref5 = ref5; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	230	this->ref6 = ref6; \
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	231	} \
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	232	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	233
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	234
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	235
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	236	#include "absyntax.def"
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	237
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	238
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	239
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	240
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	241	#undef SYM_LIST
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	242	#undef SYM_TOKEN
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	243	#undef SYM_TOKEN
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	244	#undef SYM_REF0
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	245	#undef SYM_REF1
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	246	#undef SYM_REF2
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	247	#undef SYM_REF3
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	248	#undef SYM_REF4
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	249	#undef SYM_REF5
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	250	#undef SYM_REF6
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	251
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	252
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	253
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	254
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	255

author	Mario de Sousa <msousa@fe.up.pt>
	Thu, 31 Mar 2011 17:40:55 +0100
changeset 261	db2ad6541d92
parent 69	41cb5b80416e
child 279	c0453b7f99df
permissions	-rwxr-xr-x