ba19f3c1dd
git-svn-id: svn://localhost/gambas/trunk@893 867c0c6c-44f3-4631-809d-bfa615b0a4ec
244 lines
7.1 KiB
C
244 lines
7.1 KiB
C
/***************************************************************************
|
||
|
||
class.h
|
||
|
||
Class management
|
||
|
||
(c) 2000-2007 Benoit 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 1, 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 __GBC_CLASS_H
|
||
#define __GBC_CLASS_H
|
||
|
||
#include "gbc_type.h"
|
||
#include "gb_table.h"
|
||
#include "gbc_trans.h"
|
||
|
||
#define FUNC_INIT_STATIC 0
|
||
#define FUNC_INIT_DYNAMIC 1
|
||
|
||
typedef
|
||
struct {
|
||
TYPE type;
|
||
int value;
|
||
}
|
||
PACKED
|
||
CLASS_SYMBOL_INFO;
|
||
|
||
typedef
|
||
struct {
|
||
SYMBOL symbol;
|
||
CLASS_SYMBOL_INFO global;
|
||
CLASS_SYMBOL_INFO local;
|
||
int class;
|
||
int unknown;
|
||
unsigned used : 1;
|
||
unsigned _reserved : 31;
|
||
}
|
||
PACKED
|
||
CLASS_SYMBOL;
|
||
|
||
typedef
|
||
TRANS_PARAM PARAM;
|
||
|
||
typedef
|
||
struct {
|
||
TYPE type;
|
||
int index;
|
||
int pos;
|
||
int size;
|
||
}
|
||
VARIABLE;
|
||
|
||
typedef
|
||
struct {
|
||
int num;
|
||
int param;
|
||
}
|
||
VARIABLE_INIT;
|
||
|
||
typedef
|
||
struct {
|
||
TYPE type;
|
||
int index;
|
||
int value;
|
||
int line;
|
||
long long lvalue;
|
||
}
|
||
CONSTANT;
|
||
|
||
typedef
|
||
struct {
|
||
TYPE type; // Return value datatype
|
||
int name; /* index du nom de la fonction dans la table des symboles de la classe */
|
||
|
||
char nparam; /* nombre de param<61>res */
|
||
char npmin; /* nombre de param<61>res obligatoires */
|
||
char vararg; /* if this function accepts extra arguments */
|
||
char _reserved;
|
||
short nlocal; /* nombre de variables locales */
|
||
short nctrl; /* nombre de variables locales pour les structures de contr<74>e */
|
||
PARAM *local; /* Liste des variables locales */
|
||
PARAM *param; /* Liste des param<61>res */
|
||
|
||
PATTERN *start; /* Position d'o d<>arrer la compilation de la fonction */
|
||
int line; /* A quelle ligne cette position correspond ? */
|
||
ushort *code; /* Code compil<69>*/
|
||
ushort ncode; // Number of instruction
|
||
|
||
short last_code; /* position de la derni<6E>e instruction compil<69> */
|
||
short stack; /* consommation de pile */
|
||
short finally; /* position de l'instruction finally */
|
||
short catch; /* position de l'instruction catch */
|
||
|
||
short *pos_line; /* position de chaque ligne de code de la fonction */
|
||
short _reserved2[3];
|
||
}
|
||
PACKED
|
||
FUNCTION;
|
||
|
||
typedef
|
||
struct {
|
||
TYPE type; /* type de la valeur de retour */
|
||
int name; /* index du nom de la fonction dans la table des symboles de la classe */
|
||
PARAM *param; /* Liste des param<61>res */
|
||
short nparam; /* nombre de param<61>res */
|
||
short _reserved;
|
||
}
|
||
PACKED
|
||
EVENT;
|
||
|
||
typedef
|
||
struct {
|
||
TYPE type; /* type de la valeur de retour */
|
||
int name; /* function name index */
|
||
PARAM *param; /* Liste des param<61>res */
|
||
short nparam; /* nombre de param<61>res */
|
||
short _reserved;
|
||
int library; /* library name index */
|
||
int alias; /* library function name index */
|
||
}
|
||
PACKED
|
||
EXTFUNC;
|
||
|
||
typedef
|
||
struct {
|
||
TYPE type; /* property type */
|
||
int name; /* property name */
|
||
int line; /* the line where the property is declared */
|
||
int comment; /* property string description, added to datatype */
|
||
short read; /* read function */
|
||
short write; /* write function */
|
||
}
|
||
PACKED
|
||
PROPERTY;
|
||
|
||
typedef
|
||
struct {
|
||
TYPE type; /* Type du tableau */
|
||
int ndim; /* nombre de dimensions */
|
||
int dim[MAX_ARRAY_DIM]; /* dimensions du tableau */
|
||
}
|
||
CLASS_ARRAY;
|
||
|
||
typedef
|
||
struct {
|
||
int nfield; /* nombre de champs dans la structure */
|
||
VARIABLE *field; /* champs de la structure */
|
||
}
|
||
CLASS_STRUCT;
|
||
|
||
typedef
|
||
struct {
|
||
int index;
|
||
bool used;
|
||
}
|
||
CLASS_REF;
|
||
|
||
typedef
|
||
struct {
|
||
TABLE *table; /* symbol table */
|
||
TABLE *string; /* strings table */
|
||
char *name; /* class name */
|
||
short parent; /* parent class */
|
||
unsigned exported : 1; /* class is exported */
|
||
unsigned autocreate : 1; /* class is auto-creatable */
|
||
unsigned optional : 1; /* class is optional */
|
||
unsigned nocreate : 1; /* class cannot be instanciated */
|
||
unsigned _reserved : 12;
|
||
VARIABLE *stat; /* static variables */
|
||
VARIABLE *dyn; /* dynamic variables */
|
||
CONSTANT *constant; /* constants */
|
||
CLASS_REF *class; /* classes */
|
||
int *unknown; /* unknown symbols */
|
||
FUNCTION *function; /* functions */
|
||
int size_stat; /* static variables total size */
|
||
int size_dyn; /* dynamic variables total size */
|
||
EVENT *event; /* events */
|
||
PROPERTY *prop; /* properties */
|
||
EXTFUNC *ext_func; /* extern functions */
|
||
CLASS_ARRAY *array; /* array definitions */
|
||
CLASS_STRUCT *structure; /* structs definitions */
|
||
}
|
||
CLASS;
|
||
|
||
|
||
#define CLASS_get_symbol(class, ind) ((CLASS_SYMBOL *)TABLE_get_symbol((class)->table, ind))
|
||
|
||
|
||
#define FUNCTION_is_procedure(func) (TYPE_get_id((func)->type) == T_VOID)
|
||
#define FUNCTION_is_static(func) (TYPE_is_static((func)->type))
|
||
|
||
PUBLIC void CLASS_create(CLASS **result);
|
||
PUBLIC void CLASS_delete(CLASS **class);
|
||
|
||
PUBLIC CLASS_SYMBOL *CLASS_declare(CLASS *class, int index, boolean global);
|
||
|
||
PUBLIC void CLASS_add_function(CLASS *class, TRANS_FUNC *decl);
|
||
PUBLIC void CLASS_add_event(CLASS *class, TRANS_EVENT *decl);
|
||
PUBLIC void CLASS_add_property(CLASS *class, TRANS_PROPERTY *prop);
|
||
PUBLIC void CLASS_add_extern(CLASS *class, TRANS_EXTERN *decl);
|
||
PUBLIC void CLASS_add_declaration(CLASS *class, TRANS_DECL *decl);
|
||
PUBLIC int CLASS_add_constant(CLASS *class, TRANS_DECL *decl);
|
||
PUBLIC int CLASS_add_class(CLASS *class, int index);
|
||
PUBLIC int CLASS_add_class_unused(CLASS *class, int index);
|
||
PUBLIC bool CLASS_exist_class(CLASS *class, int index);
|
||
PUBLIC int CLASS_add_unknown(CLASS *class, int index);
|
||
PUBLIC int CLASS_add_array(CLASS *class, TRANS_ARRAY *array);
|
||
|
||
PUBLIC int CLASS_get_array_class(CLASS *class, int type);
|
||
|
||
PUBLIC void FUNCTION_add_pos_line(void);
|
||
PUBLIC char *FUNCTION_get_fake_name(int func);
|
||
|
||
PUBLIC int CLASS_add_symbol(CLASS *class, const char *name);
|
||
|
||
PUBLIC void CLASS_sort_declaration(CLASS *class);
|
||
PUBLIC void CLASS_check_properties(CLASS *class);
|
||
|
||
/* gbc_dump.c */
|
||
|
||
PUBLIC void CLASS_dump(void);
|
||
PUBLIC void CLASS_export(void);
|
||
PUBLIC void CLASS_exit_export(void);
|
||
|
||
/*
|
||
PUBLIC long CLASS_add_symbol_string(CLASS *class, char *str);
|
||
*/
|
||
|
||
#endif
|