092b3abfa3
* NEW: Raise an error now when using TRY with GOTO, BREAK, CONTINUE or STOP. git-svn-id: svn://localhost/gambas/trunk@4523 867c0c6c-44f3-4631-809d-bfa615b0a4ec
100 lines
3.8 KiB
C
100 lines
3.8 KiB
C
/***************************************************************************
|
|
|
|
gbc_compile.h
|
|
|
|
(c) 2000-2012 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., 51 Franklin Street, Fifth Floor, Boston,
|
|
MA 02110-1301, 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_form.h"
|
|
|
|
#include "gbc_class.h"
|
|
|
|
typedef
|
|
struct {
|
|
char *name; /* source file name */
|
|
int line; /* current line number */
|
|
int first_line; /* first line to compile */
|
|
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 where 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 */
|
|
const FORM_FAMILY *family; /* form file family */
|
|
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 FORM_FAMILY 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
|