matiec: absyntax/absyntax.cc@a4f4990d5c66 (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)
279 c0453b7f99df Re-generated std lib related code, with updated headers, updated all forgotten headers Edouard Tisserant parents: 261 diff changeset	4	* Copyright (C) 2007-2011 Laurent Bessard and Edouard Tisserant
261 db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	5	*
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	6	* 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	7	* 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	8	* 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	9	* (at your option) any later version.
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	10	*
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	11	* 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	12	* 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	13	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	14	* GNU General Public License for more details.
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	15	*
db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	16	* 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	17	* 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	18	*
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	19	*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	20	* 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	21	* 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	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
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	24	/*
261 db2ad6541d92 Updating licensing information. Mario de Sousa <msousa@fe.up.pt> parents: 69 diff changeset	25	* 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	26	*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	27	* 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	28	* 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	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	/*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	33	* 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	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
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 <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	37	#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	38	#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	39
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 "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	41	//#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	42	#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	43
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	44	#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	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
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	51	/* The base class of all symbols */
286 a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	52	symbol_c::symbol_c(
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	53	int first_line, int first_column, const char *ffile,
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	54	int last_line, int last_column, const char *lfile) {
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	55	this->first_file = ffile,
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	56	this->first_line = first_line;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	57	this->first_column = first_column;
286 a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	58	this->last_file = lfile,
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	59	this->last_line = last_line;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	60	this->last_column = last_column;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	61	}
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	62
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	63
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	64
286 a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	65	token_c::token_c(const char *value,
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	66	int fl, int fc, const char *ffile,
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	67	int ll, int lc, const char *lfile)
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	68	:symbol_c(fl, fc, ffile, ll, lc, lfile) {
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
286 a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	78	list_c::list_c(
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	79	int fl, int fc, const char *ffile,
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	80	int ll, int lc, const char *lfile)
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	81	:symbol_c(fl, fc, ffile, ll, lc, lfile) {
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	82	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	83	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	84	}
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	85
286 a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	86	list_c::list_c(symbol_c *elem,
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	87	int fl, int fc, const char *ffile,
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	88	int ll, int lc, const char *lfile)
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	89	:symbol_c(fl, fc, ffile, ll, lc, lfile) {
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	90	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	91	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	92	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	93	}
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	94
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	95	/* 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	96	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	97	//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	98	n++;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	99	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	100	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	101	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	102	elements[n - 1] = elem;
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	103
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	104	if (elem == NULL)
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	105	return;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	106
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	107	/* adjust the location parameters, taking into account the new element. */
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_column > elem->first_column)) {
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 (first_line > elem->first_line) {
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	113	first_line = elem->first_line;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	114	first_column = elem->first_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_column < elem->last_column)) {
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	if (last_line < elem->last_line) {
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	121	last_line = elem->last_line;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	122	last_column = elem->last_column;
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	123	}
41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	124	}
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	125
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	126
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	127
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	128
286 a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	129	#define SYM_LIST(class_name_c) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	130	class_name_c::class_name_c( \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	131	int fl, int fc, const char *ffile, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	132	int ll, int lc, const char *lfile) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	133	:list_c(fl, fc, ffile, ll, lc, lfile) {} \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	134	class_name_c::class_name_c(symbol_c *elem, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	135	int fl, int fc, const char *ffile, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	136	int ll, int lc, const char *lfile) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	137	:list_c(elem, fl, fc, ffile, ll, lc, lfile) {} \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	138	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	139
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	140	#define SYM_TOKEN(class_name_c) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	141	class_name_c::class_name_c(const char *value, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	142	int fl, int fc, const char *ffile, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	143	int ll, int lc, const char *lfile) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	144	:token_c(value, fl, fc, ffile, ll, lc, lfile) {} \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	145	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	146
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	147	#define SYM_REF0(class_name_c) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	148	class_name_c::class_name_c( \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	149	int fl, int fc, const char *ffile, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	150	int ll, int lc, const char *lfile) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	151	:symbol_c(fl, fc, ffile, ll, lc, lfile) {} \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	152	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	153
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	154
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	155	#define SYM_REF1(class_name_c, ref1) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	156	class_name_c::class_name_c(symbol_c *ref1, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	157	int fl, int fc, const char *ffile, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	158	int ll, int lc, const char *lfile) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	159	:symbol_c(fl, fc, ffile, ll, lc, lfile) { \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	160	this->ref1 = ref1; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	161	} \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	162	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	163
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	164
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	165	#define SYM_REF2(class_name_c, ref1, ref2) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	166	class_name_c::class_name_c(symbol_c *ref1, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	167	symbol_c *ref2, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	168	int fl, int fc, const char *ffile, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	169	int ll, int lc, const char *lfile) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	170	:symbol_c(fl, fc, ffile, ll, lc, lfile) { \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	171	this->ref1 = ref1; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	172	this->ref2 = ref2; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	173	} \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	174	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	175
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	176
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	177	#define SYM_REF3(class_name_c, ref1, ref2, ref3) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	178	class_name_c::class_name_c(symbol_c *ref1, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	179	symbol_c *ref2, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	180	symbol_c *ref3, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	181	int fl, int fc, const char *ffile, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	182	int ll, int lc, const char *lfile) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	183	:symbol_c(fl, fc, ffile, ll, lc, lfile) { \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	184	this->ref1 = ref1; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	185	this->ref2 = ref2; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	186	this->ref3 = ref3; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	187	} \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	188	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	189
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	190
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	191	#define SYM_REF4(class_name_c, ref1, ref2, ref3, ref4) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	192	class_name_c::class_name_c(symbol_c *ref1, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	193	symbol_c *ref2, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	194	symbol_c *ref3, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	195	symbol_c *ref4, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	196	int fl, int fc, const char *ffile, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	197	int ll, int lc, const char *lfile) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	198	:symbol_c(fl, fc, ffile, ll, lc, lfile) { \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	199	this->ref1 = ref1; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	200	this->ref2 = ref2; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	201	this->ref3 = ref3; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	202	this->ref4 = ref4; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	203	} \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	204	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	205
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	206
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	207	#define SYM_REF5(class_name_c, ref1, ref2, ref3, ref4, ref5) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	208	class_name_c::class_name_c(symbol_c *ref1, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	209	symbol_c *ref2, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	210	symbol_c *ref3, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	211	symbol_c *ref4, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	212	symbol_c *ref5, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	213	int fl, int fc, const char *ffile, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	214	int ll, int lc, const char *lfile) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	215	:symbol_c(fl, fc, ffile, ll, lc, lfile) { \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	216	this->ref1 = ref1; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	217	this->ref2 = ref2; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	218	this->ref3 = ref3; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	219	this->ref4 = ref4; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	220	this->ref5 = ref5; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	221	} \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	222	void *class_name_c::accept(visitor_c &visitor) {return visitor.visit(this);}
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	223
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	224
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	225
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	226	#define SYM_REF6(class_name_c, ref1, ref2, ref3, ref4, ref5, ref6) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	227	class_name_c::class_name_c(symbol_c *ref1, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	228	symbol_c *ref2, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	229	symbol_c *ref3, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	230	symbol_c *ref4, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	231	symbol_c *ref5, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	232	symbol_c *ref6, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	233	int fl, int fc, const char *ffile, \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	234	int ll, int lc, const char *lfile) \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	235	:symbol_c(fl, fc, ffile, ll, lc, lfile) { \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	236	this->ref1 = ref1; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	237	this->ref2 = ref2; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	238	this->ref3 = ref3; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	239	this->ref4 = ref4; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	240	this->ref5 = ref5; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	241	this->ref6 = ref6; \
a4f4990d5c66 Adding tracking of filename in which token is located. Mario de Sousa <msousa@fe.up.pt> parents: 279 diff changeset	242	} \
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	243	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	244
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	245
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	246
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	247	#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	248
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	249
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	250
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	#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	253	#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	254	#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	255	#undef SYM_REF0
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	256	#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	257	#undef SYM_REF2
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	258	#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	259	#undef SYM_REF4
69 41cb5b80416e Adding basic error checking. mario parents: 15 diff changeset	260	#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	261	#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	262
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	263
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	264
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	265
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	266

author	Mario de Sousa <msousa@fe.up.pt>
	Thu, 14 Apr 2011 17:35:25 +0100
changeset 286	a4f4990d5c66
parent 279	c0453b7f99df
child 287	9df7fcb9bde5
permissions	-rwxr-xr-x