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

276 lines
8.5 KiB
C
Raw Normal View History

/***************************************************************************
gbc_class.h
(c) 2000-2017 Benoît Minisini <g4mba5@gmail.com>
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 __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;
int line;
}
PACKED
CLASS_SYMBOL_INFO;
typedef
struct {
SYMBOL symbol;
CLASS_SYMBOL_INFO global;
CLASS_SYMBOL_INFO local;
int class;
int unknown;
unsigned global_used : 1;
unsigned global_assigned : 1;
unsigned local_used : 1;
unsigned local_assigned : 1;
unsigned _reserved : 28;
}
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;
int64_t lvalue;
}
CONSTANT;
typedef
struct {
TYPE type; // Return value datatype
int name; // Function name index in class symbol table
char nparam; // Maximum number of arguments
char npmin; // Minimum number of arguments
unsigned vararg : 1; // If this function accepts extra arguments
unsigned fast : 1; // If this function is jit compiled
unsigned unsafe : 1; // If this function is unsafe
unsigned use_is_missing : 1; // If this function uses IsMissing()
unsigned _reserved : 12;
short nlocal; // Local variable count
short nctrl; // Control structure variable count
uint64_t byref; // Byref mask
PARAM *local; // Datatypes of local variables
PARAM *param; // Datatypes of arguments
PATTERN *start; // Starts compilation from there
int line; // ...which is this line
short stack; // Needed stack
short _reserved2;
ushort *code; // Compile bytecode
short *pos_line; // Bytecode position of each code line
ushort ncode; // Number of instructions
ushort ncode_max; // Size of the bytecode allocation
ushort last_code; // Last compiled bytecode position
ushort last_code2; // Last last compiled bytecode position
ushort finally; // FINALLY position
ushort catch; // CATCH position
}
PACKED
FUNCTION;
typedef
struct {
TYPE type; // Return value datatype
int name; // Function name index in class symbol table
PARAM *param; // Argument list
short nparam; // Number of arguments
short _reserved;
}
PACKED
EVENT;
typedef
struct {
TYPE type; // Return value datatype
int name; // Function name index in class symbol table
PARAM *param; // Argument list
short nparam; // Number of arguments
unsigned vararg : 1; // Variable number of arguments
unsigned _reserved : 15;
int library; // Library name index
int alias; // Real function name index
}
PACKED
EXTFUNC;
typedef
struct {
TYPE type; // Property datatype
int name; // Property name index
int line; // The line where the property is declared
int comment; // Property string description, added to datatype
[DEVELOPMENT ENVIRONMENT] * NEW: Take property synonymous into account. * BUG: Pasting text as comments correctly converts tabulations into spaces. [INTERPRETER] * NEW: GB.RaiseBegin() and GB.RaiseEnd() are two new intepreter APIs that allow to define a callback that will be called if an exception is raised during a call to GB.Raise(). * BUG: CATCH and FINALLY correctly restore the stack pointer. Without that, it is possible to use more stack than possible and to crash the interpreter. [COMPILER] * NEW: A property now can has up to four different names. The syntax is: "Property Name [ , Synonymous1, ..., Synonymous3 ] As Datatype". [GB.DB] * BUG: Table.Type property now correctly handle null table types. [GB.DB.FORM] * NEW: DataBrowser.Grid is a new property to define the grid visibility. * BUG: The DataBrowser and DataView controls have been fixed. There is only one problem to fix that depends on a gb.gtk bug. [GB.DRAW] * BUG: Setting Draw.Font to NULL does not crash anymore, and raise an error instead. [GB.FORM] * NEW: The new GridView is finished and replaces the old one now. * NEW: GridView.ShowCursor is a new property that displays a light cursor around the current cell when set. [GB.GTK] * NEW: Font.Copy() is a new method to copy a font object. * NEW: GTK+ GridView has been disabled. * NEW: The Container Insert event has been renamed as NewChild. [GB.QT4] * NEW: Font.Copy() is a new method to copy a font object. * NEW: Qt4 GridView has been disabled. * NEW: The Container Insert event has been renamed as NewChild. * BUG: If the DrawingArea Draw event handler raises an error, then the interpreter should not crash anymore. [GB.QT4.EXT] * BUG: Fix an uninitialized field in Editor internal GLine class. git-svn-id: svn://localhost/gambas/trunk@4503 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2012-02-25 02:35:55 +01:00
int synonymous; // Synonymous property index (-1 if not a synonymous)
short read; // Read function
short write; // Write function
}
PACKED
PROPERTY;
typedef
struct {
TYPE type; // Array datatype
int ndim; // Number of dimensions
int dim[MAX_ARRAY_DIM]; // Dimensions bounds
}
CLASS_ARRAY;
typedef
struct {
int index; // Structure name
int nfield; // Number of structure fields
VARIABLE *field; // Structure fields
}
CLASS_STRUCT;
typedef
struct {
int index; // class name
unsigned used : 1;
unsigned exported : 1;
unsigned structure : 1;
unsigned has_static : 1;
unsigned is_collection : 1; // if the class is Collection (for JIT)
unsigned _reserved : 20;
TYPE type; // if the class is an array, the type of the array contents (for JIT)
}
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 instantiated
unsigned all_fast : 1; // all methods have the Fast option (JIT)
unsigned all_unsafe : 1; // all methods are unsafe
unsigned has_static : 1; // has static methods, properties or variables
unsigned has_fast : 1; // has at least one fast method
unsigned _reserved : 8;
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
char **names; // when some symbols must be created like object arrays
}
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))
void CLASS_create(CLASS **result);
void CLASS_delete(CLASS **class);
CLASS_SYMBOL *CLASS_declare(CLASS *class, int index, int type, bool global);
void CLASS_check_unused_global(CLASS *class);
void CLASS_begin_init_function(CLASS *class, int type);
void CLASS_add_function(CLASS *class, TRANS_FUNC *decl);
void CLASS_add_event(CLASS *class, TRANS_EVENT *decl);
void CLASS_add_property(CLASS *class, TRANS_PROPERTY *prop);
void CLASS_add_extern(CLASS *class, TRANS_EXTERN *decl);
void CLASS_add_declaration(CLASS *class, TRANS_DECL *decl);
int CLASS_add_constant(CLASS *class, TRANS_DECL *decl);
int CLASS_add_class(CLASS *class, int index);
int CLASS_add_class_unused(CLASS *class, int index);
int CLASS_add_class_exported(CLASS *class, int index);
int CLASS_add_class_exported_unused(CLASS *class, int index);
bool CLASS_exist_class(CLASS *class, int index);
int CLASS_add_unknown(CLASS *class, int index);
int CLASS_add_array(CLASS *class, TRANS_ARRAY *array);
int CLASS_get_array_class(CLASS *class, int type, int value);
void FUNCTION_add_last_pos_line(void);
void FUNCTION_add_all_pos_line(void);
char *FUNCTION_get_fake_name(int func);
int CLASS_add_symbol(CLASS *class, const char *name);
void CLASS_sort_declaration(CLASS *class);
void CLASS_check_properties(CLASS *class);
CLASS_SYMBOL *CLASS_get_local_symbol(int local);
char *TYPE_get_desc(TYPE type);
// gbc_dump.c
void CLASS_dump(void);
void CLASS_export(void);
#endif