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

102 lines
3.8 KiB
C
Raw Normal View History

/***************************************************************************
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 */
int max_line; /* maximum 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 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