gambas-source-code/main/gbc/gbc_compile.h

/***************************************************************************

	gbc_compile.h

	(c) 2000-2009 Benoît Minisini <gambas@users.sourceforge.net>

	This program is free software; you can redistribute it and/or modify
	it under the terms of the GNU General Public License as published by
	the Free Software Foundation; either version 2, or (at your option)
	any later version.

	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	GNU General Public License for more details.

	You should have received a copy of the GNU General Public License
	along with this program; if not, write to the Free Software
	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

***************************************************************************/

#ifndef _COMPILE_H
#define _COMPILE_H

#include <sys/stat.h>

#include "gb_array.h"
#include "gb_buffer.h"
#include "gb_table.h"
#include "gb_alloc.h"

#include "gb_limit.h"
#include "gb_reserved.h"
#include "gbc_read.h"

#include "gbc_class.h"

typedef
	struct {
		char *name;                        /* source file name */
		int line;                          /* current line number */
		char *source;                      /* source file contents */
		unsigned verbose : 1;              /* verbose compilation */
		unsigned debug : 1;                /* if debugging information must be generated */
		unsigned trans : 1;                /* if translation files must be generated */
		unsigned is_module : 1;            /* if the source file is a module */
		unsigned is_form : 1;              /* if the source is a class form */
		unsigned declared : 1;             /* ? */
		unsigned nobreak : 1;              /* no breakpoint */
		unsigned exported : 1;             /* there are some exported class */
		unsigned all : 1;                  /* compile everything */
		unsigned swap : 1;                 /* endianness must be swapped */
		unsigned public_module : 1;        /* modules symbols are public by default */
		unsigned trans_error : 1;          /* display error messages in a translatable form */
		unsigned no_old_read_syntax : 1;   /* do not compile the old read syntax */
		unsigned column : 1;               /* search column when there is an error */
		unsigned _reserved : 18;           /* reserved*/
		char *output;                      /* output file */
		PATTERN *pattern;                  /* lexical analyze */
		int pattern_count;                 /* number of patterns */
		PATTERN *current;                  /* current pattern */
		PATTERN *end;                      /* last pattern */
		FUNCTION *func;                    /* current function being compiled */
		CLASS *class;                      /* current class being compiled */
		char *form;                        /* form file name */
		char *tname;                       /* translation file name */
		int default_library;               /* default library name for extern declarations */
		}
	COMPILE;

#ifndef __GBC_COMPILE_C

EXTERN COMPILE COMP_current;
EXTERN char *COMP_root;
EXTERN char *COMP_project;
EXTERN char *COMP_project_name;
EXTERN char *COMP_info_path;
EXTERN const char *COMP_form_families[];
EXTERN bool COMP_family_allowed[];

#endif

#define JOB (&COMP_current)

void COMPILE_init(void);
void COMPILE_load(void);
void COMPILE_exit(void);
void COMPILE_begin(const char *file, bool trans);
void COMPILE_end(void);
void COMPILE_export_class(char *name);
void COMPILE_add_class(const char *name, int len);
void COMPILE_end_class();
void COMPILE_enum_class(char **name, int *len);

#endif