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 _reserved : 19;           /* 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