luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
gambas-source-code/main/share/gambas.h
Benoît Minisini f937ee9fe0 Support for e2k architecture (continue...) 
[INTERPRETER]
* NEW: Support for e2k architecture (continue...)
2023-08-04 15:55:39 +02:00

1328 lines
29 KiB
C
Raw Blame History

/***************************************************************************
gambas.h
(c) 2000-2017 Benoît Minisini <benoit.minisini@gambas-basic.org>
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 __GAMBAS_H
#define __GAMBAS_H
#ifdef __CYGWIN__
#include <strings.h>
#endif
#ifndef NO_CONFIG_H
#ifdef PACKAGE_NAME
#undef PACKAGE_NAME
#undef PACKAGE_BUGREPORT
#undef PACKAGE_STRING
#undef PACKAGE_TARNAME
#undef PACKAGE_VERSION
#undef PACKAGE_URL
#endif
#include "config.h"
#endif
#include <stdint.h>
#include <stddef.h>
#include <sys/types.h>
#include <sys/time.h>
/* Gambas API Version */
#define GB_VERSION 1
/* Useful macros */
#ifndef CLEAR
#define CLEAR(s) (memset(s, 0, sizeof(*s)))
#endif
#ifndef offsetof
#define offsetof(_type, _arg) ((size_t)&(((_type *)0)->_arg))
#endif
/* The following symbols must be declared with EXPORT in a component:
- GB
- GB_INIT()
- GB_EXIT()
- GB_CLASSES
- The component interface if present
*/
#ifdef EXPORT
#undef EXPORT
#endif
#ifdef HAVE_GCC_VISIBILITY
#define EXPORT __attribute__((visibility("default")))
#else
#define EXPORT
#endif
#if !defined(__cplusplus)
#ifdef bool
#undef bool
#endif
#define bool char
#endif
#ifndef PACKED
#define PACKED __attribute__((packed))
#endif
/* Gambas datatypes identifiers */
#define GB_T_VOID 0
#define GB_T_BOOLEAN 1
#define GB_T_BYTE 2
#define GB_T_SHORT 3
#define GB_T_INTEGER 4
#define GB_T_LONG 5
#define GB_T_SINGLE 6
#define GB_T_FLOAT 7
#define GB_T_DATE 8
#define GB_T_STRING 9
#define GB_T_CSTRING 10
#define GB_T_POINTER 11
#define GB_T_VARIANT 12
#define GB_T_FUNCTION 13
#define GB_T_CLASS 14
#define GB_T_NULL 15
#define GB_T_OBJECT 16
/* This type represents a Gambas datatype identifier */
typedef
uintptr_t GB_TYPE;
/* This opaque type represents a Gambas class identifier */
typedef
GB_TYPE GB_CLASS;
/* This structure represents the base of every Gambas object.
It must be placed in the beginning of all object structure defined
in a component.
*/
typedef
struct {
GB_CLASS klass;
intptr_t ref;
}
GB_BASE;
/* Gambas STRING datatype definition */
typedef
struct {
GB_TYPE type;
struct {
char *addr;
int start;
int len;
} value;
#if __WORDSIZE == 64
intptr_t _reserved;
#endif
}
GB_STRING;
/* Gambas INTEGER datatype definition */
typedef
struct {
GB_TYPE type;
int value;
#if __WORDSIZE == 64
int _pad;
#endif
intptr_t _reserved[2];
}
GB_INTEGER;
/* Gambas LONG datatype definition */
typedef
struct {
GB_TYPE type;
#if __WORDSIZE == 32
int _pad;
#endif
int64_t value;
#if __WORDSIZE == 64
intptr_t _reserved[2];
#endif
}
GB_LONG;
/* Gambas POINTER datatype definition */
typedef
struct {
GB_TYPE type;
intptr_t value;
intptr_t _reserved[2];
}
GB_POINTER;
/* Gambas BOOLEAN datatype definition */
typedef
struct {
GB_TYPE type;
int value;
#if __WORDSIZE == 64
int _pad;
#endif
intptr_t _reserved[2];
}
GB_BOOLEAN;
/* Gambas SINGLE datatype definition */
typedef
struct {
GB_TYPE type;
float value;
#if __WORDSIZE == 64
float _pad;
#endif
intptr_t _reserved[2];
}
GB_SINGLE;
/* Gambas FLOAT datatype definition */
typedef
struct {
GB_TYPE type;
#if __WORDSIZE == 32
int _pad;
#endif
double value;
#if __WORDSIZE == 64
intptr_t _reserved[2];
#endif
}
GB_FLOAT;
/* Gambas DATE datatype definition */
typedef
struct {
int date;
int time;
}
GB_DATE_VALUE;
typedef
struct {
GB_TYPE type;
GB_DATE_VALUE value;
#if __WORDSIZE == 64
intptr_t _reserved[2];
#else
int _reserved;
#endif
}
GB_DATE;
/* Gambas OBJECT datatype definition */
typedef
struct {
GB_TYPE type;
void *value;
intptr_t _reserved[2];
}
GB_OBJECT;
/* Gambas VARIANT datatype definition */
typedef
struct {
GB_TYPE type;
union {
char _boolean;
unsigned char _byte;
short _short;
int _integer;
int64_t _long;
float _single;
double _float;
GB_DATE_VALUE _date;
char *_string;
intptr_t _pointer;
void *_object;
int64_t data;
}
value;
}
PACKED
GB_VARIANT_VALUE;
typedef
struct {
GB_TYPE type;
GB_VARIANT_VALUE value;
#if __WORDSIZE == 64
int64_t _pad;
#endif
}
GB_VARIANT;
/* Gambas common value definition */
typedef
union {
GB_TYPE type;
GB_BOOLEAN _boolean;
GB_INTEGER _integer;
GB_LONG _long;
GB_SINGLE _single;
GB_FLOAT _float;
GB_DATE _date;
GB_STRING _string;
GB_POINTER _pointer;
GB_OBJECT _object;
GB_VARIANT _variant;
}
GB_VALUE;
/* Predefined errors constants */
#define GB_ERR_TYPE ((char *)6)
#define GB_ERR_OVERFLOW ((char *)7)
#define GB_ERR_NSYMBOL ((char *)11)
#define GB_ERR_NOBJECT ((char *)12)
#define GB_ERR_NWRITE ((char *)16)
#define GB_ERR_NPROPERTY ((char *)17)
#define GB_ERR_MATH ((char *)19)
#define GB_ERR_ARG ((char *)20)
#define GB_ERR_BOUND ((char *)21)
#define GB_ERR_ZERO ((char *)26)
/* Gambas description start macro */
#define GB_DECLARE(name, size) \
{ name, (intptr_t)GB_VERSION, (intptr_t)size }
/* Gambas description end macro */
#define GB_END_DECLARE { (char *)0 }
/* Special description identifiers */
#define GB_VIRTUAL_CLASS_ID ((char *)1)
#define GB_HOOK_CHECK_ID ((char *)2)
#define GB_NOT_CREATABLE_ID ((char *)3)
#define GB_AUTO_CREATABLE_ID ((char *)4)
#define GB_INHERITS_ID ((char *)5)
/* Description hook macros */
//#define GB_HOOK_NEW(hook) { GB_HOOK_NEW_ID, (int)hook }
//#define GB_HOOK_FREE(hook) { GB_HOOK_FREE_ID, (int)hook }
#define GB_HOOK_CHECK(hook) { GB_HOOK_CHECK_ID, (intptr_t)hook }
/* Virtual class description macro */
#define GB_VIRTUAL_CLASS() { GB_VIRTUAL_CLASS_ID }, { GB_NOT_CREATABLE_ID }
#define GB_DECLARE_VIRTUAL(name) \
{ name, (intptr_t)GB_VERSION, (intptr_t)0 }, GB_VIRTUAL_CLASS()
/* Not creatable class macro */
#define GB_NOT_CREATABLE() { GB_NOT_CREATABLE_ID }
#define GB_DECLARE_STATIC(name) \
{ name, (intptr_t)GB_VERSION, (intptr_t)0 }, GB_NOT_CREATABLE()
/* Auto creatable class macro */
#define GB_AUTO_CREATABLE() { GB_AUTO_CREATABLE_ID }
/* Symbol description prefixes */
#define GB_PROPERTY_ID 'p'
#define GB_METHOD_ID 'm'
#define GB_CONSTANT_ID 'C'
#define GB_EVENT_ID ':'
#define GB_ENUM_ID '#'
#define GB_STATIC_PROPERTY_ID 'P'
#define GB_STATIC_METHOD_ID 'M'
/* Symbol description macros */
#define GB_CONSTANT(symbol, type, value) \
{ "C" symbol, (intptr_t)type, (intptr_t)value }
#define GB_FLOAT_CONSTANT(symbol, value) \
{ "C" symbol, (intptr_t)"f", (intptr_t)0, (intptr_t)0, (double)value }
#define GB_PROPERTY(symbol, type, proc) \
{ "p" symbol, (intptr_t)type, (intptr_t)proc }
#define GB_PROPERTY_READ(symbol, type, proc) \
{ "r" symbol, (intptr_t)type, (intptr_t)proc }
#define GB_PROPERTY_SELF(symbol, type) \
{ "r" symbol, (intptr_t)type, (intptr_t)(-1) }
#define GB_PROPERTY_WRITE(symbol, type, proc) \
{ "w" symbol, (intptr_t)type, (intptr_t)proc }
#define GB_METHOD(symbol, type, exec, signature) \
{ "m" symbol, (intptr_t)type, (intptr_t)exec, (intptr_t)signature }
#define GB_EVENT(symbol, type, signature, id) \
{ "::" symbol, (intptr_t)type, (intptr_t)id, (intptr_t)signature }
#define GB_STATIC_PROPERTY(symbol, type, proc) \
{ "P" symbol, (intptr_t)type, (intptr_t)proc }
#define GB_STATIC_PROPERTY_READ(symbol, type, proc) \
{ "R" symbol, (intptr_t)type, (intptr_t)proc }
#define GB_STATIC_PROPERTY_SELF(symbol, type) \
{ "R" symbol, (intptr_t)type, (-1) }
#define GB_STATIC_PROPERTY_WRITE(symbol, type, proc) \
{ "W" symbol, (intptr_t)type, (intptr_t)proc }
#define GB_STATIC_METHOD(symbol, type, exec, signature) \
{ "M" symbol, (intptr_t)type, (intptr_t)exec, (intptr_t)signature }
#define GB_STATIC_FAST_METHOD(symbol, type, exec, signature) \
{ "M!" symbol, (intptr_t)type, (intptr_t)exec, (intptr_t)signature }
#define GB_INHERITS(symbol) \
{ GB_INHERITS_ID, (intptr_t)symbol }
#define GB_INTERFACE(symbol, pointer) \
{ "C_@" symbol, (intptr_t)"p", (intptr_t)pointer }
/* Method implementation begin macro */
#define BEGIN_METHOD(_name, par) \
typedef \
struct { \
par; \
} \
_##_name; \
\
void _name(void *_object, void *_param) \
{ \
_##_name *_p = (_##_name *)_param;
/* Parameter-less Method implementation begin macro */
#define BEGIN_METHOD_VOID(_name) \
void _name(void *_object, void *_param) { \
/* Parameter access macro */
#define ARG(_name) (&(_p)->_name)
/* Testing if a argument is missing */
#define MISSING(_name) ((_p)->_name.type == GB_T_VOID)
/* Method implementation end macro */
#define END_METHOD }
/* Macro used for calling a parameter-less implementation method */
#define CALL_METHOD_VOID(_name) _name(_object, NULL)
/* Property implementation begin macro */
#define BEGIN_PROPERTY(_name) \
void _name(void *_object, void *_param) {
/* Macro indicating if the property implementation is called for reading or writing */
#define READ_PROPERTY (_param == NULL)
/* Macro to get the value written to a property */
#define PROP(_type) ((_type *)_param)
/* Property implementation end macro */
#define END_PROPERTY }
/* Macros to get the value of an argument or a property */
#define VALUE(_arg) ((_arg)->value)
#define VARG(_p) VALUE(ARG(_p))
#define VPROP(_p) VALUE(PROP(_p))
/* Macros to get a string argument */
#define STRING(_arg) (VARG(_arg).addr + VARG(_arg).start)
#define LENGTH(_arg) (VARG(_arg).len)
/* Macros to get a string property */
#define PSTRING() (VPROP(GB_STRING).addr + VPROP(GB_STRING).start)
#define PLENGTH() (VPROP(GB_STRING).len)
/* Macro to get an optional argument */
#define VARGOPT(_arg, _default) (MISSING(_arg) ? (_default) : VARG(_arg))
/* Casting macro. Usable only in an implementation function */
#define OBJECT(type) ((type *)_object)
/* Macro for returning itself. Usable only in an implementation function */
#define RETURN_SELF() GB.ReturnSelf(_object)
/* Macro for declaring a variable used for storing an event identifier */
#define DECLARE_EVENT(_event) static int _event
/* Macro to help accessing enumeration index. Use only in an enumeration method implementation */
#define ENUM(_type) (*((_type *)GB.GetEnum()))
/* Structure used for describing a class */
typedef
struct {
const char *name;
intptr_t val1;
intptr_t val2;
intptr_t val3;
#if __WORDSIZE == 64
double val4;
intptr_t val5;
#else
double val4;
#endif
}
GB_DESC;
/* Type of a method implementation function */
typedef
void GB_METHOD_FUNC(void *, void *);
/* Type of a property implementation function */
typedef
void GB_PROPERTY_FUNC(void *, void *);
/* Macro for declaring a method implementation function */
#define DECLARE_METHOD(_method) GB_METHOD_FUNC _method
/* Macro for declaring a property implementation function */
#define DECLARE_PROPERTY(_property) GB_PROPERTY_FUNC _property
/* Constants used with the GB.Hook() API function */
#define GB_HOOK_MAX 10
#define GB_HOOK_MAIN 1
#define GB_HOOK_LOOP 2
#define GB_HOOK_WAIT 3
#define GB_HOOK_TIMER 4
#define GB_HOOK_LANG 5
#define GB_HOOK_WATCH 6
#define GB_HOOK_POST 7
#define GB_HOOK_QUIT 8
#define GB_HOOK_ERROR 9
#define GB_HOOK_TIMEOUT 10
/* Macro for calling the previous hook */
#define CALL_HOOK_MAIN(_hook, _pargc, _pargv) do { if (_hook) { ((void (*)(int *, char ***))(_hook))((_pargc), (_pargv)); } } while (0);
/* Constants that represent interpreter signals caught by GB_SIGNAL function */
#define GB_SIGNAL_DEBUG_BREAK 1
#define GB_SIGNAL_DEBUG_CONTINUE 2
#define GB_SIGNAL_DEBUG_FORWARD 3
/* Constants used with the GB.Watch() API function */
#define GB_WATCH_NONE 0
#define GB_WATCH_READ 1
#define GB_WATCH_WRITE 2
/* Type of a generic callback */
typedef
void (*GB_CALLBACK)();
/* Type of a watch callback function */
typedef
void (*GB_WATCH_CALLBACK)(int, int, intptr_t);
/* Type of the GB.SubstString() callback */
typedef
void (*GB_SUBST_CALLBACK)(int, char **, int *);
/* Type of the GB.SubstStringAdd() callback */
typedef
void (*GB_SUBST_ADD_CALLBACK)(int, char, char);
/* Type of the GB.BrowseProject() callback */
typedef
void (*GB_BROWSE_PROJECT_CALLBACK)(const char *, int64_t);
/* Type of the GB.BrowseDirectory() callback */
typedef
void (*GB_BROWSE_CALLBACK)(const char *);
/* Type of a timer callback */
typedef
int (*GB_TIMER_CALLBACK)(intptr_t);
/* Type of a signal callback */
typedef
void (*GB_SIGNAL_CALLBACK)(int, intptr_t);
/* A structure for the components of a date */
typedef
struct {
int year;
int month;
int day;
int hour;
int min;
int sec;
int weekday;
int msec;
}
GB_DATE_SERIAL;
/* Opaque type of a Gambas interpreted or native function */
typedef
struct {
void *object;
ushort index;
}
GB_FUNCTION;
#define GB_FUNCTION_IS_VALID(_func) ((_func)->index != 0)
/* Opaque type of a Gambas Array */
typedef
void *GB_ARRAY;
typedef
struct {
unsigned size : 24;
unsigned read_only : 1;
unsigned n_dim : 3;
int count;
GB_TYPE type;
void *data;
int *dim;
void *ref;
}
GB_ARRAY_BASE;
/* Opaque type of a Gambas Collection */
typedef
void *GB_COLLECTION;
/* Opaque type of a Gambas Collection iterator */
typedef
struct {
void *iter1;
void *iter2;
}
GB_COLLECTION_ITER;
/* opaque type of an hash table */
typedef
void *GB_HASHTABLE;
/* hash table enumeration function */
typedef
void (*GB_HASHTABLE_ENUM_FUNC)(void *);
/* Constants for end-of-line format */
#define GB_EOL_UNIX 0
#define GB_EOL_WINDOWS 1
#define GB_EOL_MAC 2
/* opaque type for a Stream object */
struct GB_STREAM;
typedef
struct {
int (*open)(struct GB_STREAM *stream, const char *path, int mode, void *data);
int (*close)(struct GB_STREAM *stream);
int (*read)(struct GB_STREAM *stream, char *buffer, int len);
int (*write)(struct GB_STREAM *stream, char *buffer, int len);
int (*seek)(struct GB_STREAM *stream, int64_t pos, int whence);
int (*tell)(struct GB_STREAM *stream, int64_t *pos);
int (*flush)(struct GB_STREAM *stream);
int (*eof)(struct GB_STREAM *stream);
int (*lof)(struct GB_STREAM *stream, int64_t *len);
int (*handle)(struct GB_STREAM *stream);
}
GB_STREAM_DESC;
typedef
struct {
GB_STREAM_DESC *desc;
int _reserved;
#if __WORDSIZE == 64
int _reserved1;
#endif
intptr_t _reserved2;
void *tag;
}
GB_STREAM_BASE;
typedef
struct GB_STREAM {
GB_STREAM_DESC *desc;
int _reserved;
#if __WORDSIZE == 64
int _reserved1;
#endif
intptr_t _reserved2;
void *tag;
#if __WORDSIZE == 64
int _free[4];
#else
int _free[5];
#endif
GB_VARIANT_VALUE _reserved3;
}
GB_STREAM;
/* File constants */
#define GB_ST_READ 1
#define GB_ST_WRITE 2
#define GB_ST_READ_WRITE 3
#define GB_ST_MODE 3
#define GB_ST_EXEC 4
#define GB_ST_APPEND 4
#define GB_ST_CREATE 8
#define GB_ST_ACCESS 15
#define GB_ST_BUFFERED 16
#define GB_ST_LOCK 32
#define GB_ST_WATCH 64
#define GB_ST_PIPE 128
#define GB_ST_MEMORY 256
#define GB_ST_STRING 512
#define GB_ST_NULL 1024
/* Constants used by the GB.NumberFromString() API function */
#define GB_NB_READ_INTEGER 1
#define GB_NB_READ_LONG 2
#define GB_NB_READ_INT_LONG 3
#define GB_NB_READ_FLOAT 4
#define GB_NB_READ_ALL 7
#define GB_NB_READ_HEX_BIN 8
#define GB_NB_LOCAL 16
/* Comparison constants. Used by the GB.Collection.New() and GB.HashTable.New() API function */
#define GB_COMP_BINARY 0
#define GB_COMP_NOCASE 1
#define GB_COMP_LANG 2
#define GB_COMP_LIKE 4
#define GB_COMP_MATCH 5
#define GB_COMP_NATURAL 8
#define GB_COMP_TYPE_MASK 15
#define GB_COMP_ASCENT 0
#define GB_COMP_DESCENT 16
/* Constant used by GB.ConvString to convert to 32 bits Unicode (it needs some special processing) */
#define GB_SC_UNICODE ((char *)-1)
/* Timer object */
typedef
struct {
GB_BASE object;
intptr_t id;
void *ext;
unsigned delay : 31;
unsigned triggered : 1;
unsigned task : 1;
unsigned ignore : 1;
}
GB_TIMER;
/* Structure for GB.OnErrorBegin() handler */
typedef
struct {
void *prev;
void *context;
GB_CALLBACK handler;
intptr_t arg1;
intptr_t arg2;
}
GB_ERROR_HANDLER;
/* Structure for GB.RaiseBegin handler */
typedef
struct {
void (*callback)(intptr_t);
intptr_t data;
void *old;
int level;
}
GB_RAISE_HANDLER;
/* A macro for preventing gcc from warning about breaks in the
strict aliasing rules */
#define POINTER(_pointer) (void **)(void *)_pointer
/* For classes that implements arithmetic operators (e.g. complex numbers...) */
typedef
struct {
int (*equal)(void *, void *, bool);
int (*equalf)(void *, double);
int (*equalo)(void *, void *, bool);
int (*comp)(void *, void *, bool);
int (*compf)(void *, double);
int (*compo)(void *, void *, bool);
void *(*add)(void *, void *, bool);
void *(*addf)(void *, double, bool);
void *(*addo)(void *, void *, bool);
void *(*sub)(void *, void *, bool);
void *(*subf)(void *, double, bool);
void *(*subo)(void *, void *, bool);
void *(*mul)(void *, void *, bool);
void *(*mulf)(void *, double, bool);
void *(*mulo)(void *, void *, bool);
void *(*div)(void *, void *, bool);
void *(*divf)(void *, double, bool);
void *(*divo)(void *, void *, bool);
void *(*pow)(void *, void *, bool);
void *(*powf)(void *, double, bool);
void *(*powo)(void *, void *, bool);
void *(*neg)(void *);
void *(*abs)(void *);
double (*fabs)(void *);
int (*sgn)(void *);
intptr_t _reserved;
}
GB_OPERATOR_DESC;
/* Double-linked list API */
typedef
struct {
void *next;
void *prev;
}
GB_LIST;
/* Information about a file */
typedef
struct {
short type;
short mode;
int atime;
int mtime;
int ctime;
int64_t size;
uid_t uid;
gid_t gid;
dev_t device;
unsigned hidden : 1;
unsigned blkdev : 1;
unsigned chrdev : 1;
}
GB_FILE_STAT;
/* Constants for the GB_FILE_STAT structure */
#define GB_STAT_FILE 1
#define GB_STAT_DIRECTORY 2
#define GB_STAT_DEVICE 3
#define GB_STAT_PIPE 4
#define GB_STAT_SOCKET 5
#define GB_STAT_LINK 6
/* Gambas Application Programming Interface */
typedef
struct {
intptr_t version;
bool (*GetInterface)(const char *, int, void *);
void *(*Hook)(int, void *);
struct {
bool (*Load)(const char *);
bool (*CanLoadLibrary)(const char *);
bool (*Exist)(const char *);
bool (*IsLoaded)(const char *);
char *(*Current)(void);
bool (*GetInfo)(const char *, void **);
void (*Signal)(int, void *);
void (*Declare)(GB_DESC *);
}
Component;
void (*Push)(int, ...);
bool (*GetFunction)(GB_FUNCTION *, void *, const char *, const char *, const char *);
GB_VALUE *(*Call)(GB_FUNCTION *, int, int);
void *(*GetClassInterface)(GB_CLASS, const char *);
GB_VALUE *(*GetProperty)(void *, const char *);
bool (*SetProperty)(void *, const char *, GB_VALUE *value);
bool (*Serialize)(const char *path, GB_VALUE *value);
bool (*UnSerialize)(const char *path, GB_VALUE *value);
bool (*Loop)(int);
void (*Wait)(int);
void (*Post)(GB_CALLBACK, intptr_t);
void (*Post2)(GB_CALLBACK, intptr_t, intptr_t);
GB_TIMER *(*Every)(int, GB_TIMER_CALLBACK, intptr_t);
bool (*Raise)(void *, int, int, ...);
void (*RaiseBegin)(GB_RAISE_HANDLER *handler);
void (*RaiseEnd)(GB_RAISE_HANDLER *handler);
void (*RaiseLater)(void *, int);
void (*CheckPost)(void);
bool (*CanRaise)(void *, int);
int (*GetEvent)(GB_CLASS, const char *);
char *(*GetLastEventName)(void);
void (*RaiseTimer)(void *);
bool (*HasActiveTimer)(void);
bool (*Stopped)(void);
bool (*IsRaiseLocked)(void *);
int (*NParam)(void);
bool (*Conv)(GB_VALUE *, GB_TYPE);
char *(*GetUnknown)(void);
void (*Error)(const char *, ...);
bool (*HasError)(void);
char *(*GetErrorMessage)(void);
void (*Propagate)(void);
void (*Deprecated)(const char *, const char *, const char *);
void (*OnErrorBegin)(GB_ERROR_HANDLER *);
void (*OnErrorEnd)(GB_ERROR_HANDLER *);
GB_CLASS (*GetClass)(void *);
char *(*GetClassName)(void *);
bool (*ExistClass)(const char *);
GB_CLASS (*FindClass)(const char *);
bool (*ExistClassLocal)(const char *);
GB_CLASS (*FindClassLocal)(const char *);
GB_TYPE (*GetArrayType)(GB_CLASS);
GB_CLASS (*GetArrayClass)(GB_CLASS);
GB_CLASS (*LoadClassFrom)(const char *, const char*);
bool (*Is)(void *, GB_CLASS);
void (*Ref)(void *);
void (*Unref)(void **);
//void (*UnrefKeep)(void **, int);
void (*Detach)(void *);
void (*Attach)(void *, void *, const char *);
void *(*Parent)(void *);
void *(*Create)(GB_CLASS, char *, void *);
void *(*New)(GB_CLASS, char *, void *);
void *(*AutoCreate)(GB_CLASS, int);
bool (*CheckObject)(void *);
bool (*IsLocked)(void *);
void *(*GetEnum)(void);
void (*StopEnum)(void);
void *(*BeginEnum)(void *);
void (*EndEnum)(void *);
bool (*NextEnum)(void);
void (*StopAllEnum)(void *);
void (*OnFreeEnum)(GB_CALLBACK);
GB_VALUE *(*GetReturnValue)(void);
void (*Return)(GB_TYPE, ...);
void (*ReturnInteger)(int);
void (*ReturnLong)(int64_t);
void (*ReturnPointer)(void *);
void (*ReturnBoolean)(int);
void (*ReturnDate)(GB_DATE *);
void (*ReturnObject)(void *);
void (*ReturnNull)(void);
void (*ReturnSingle)(float);
void (*ReturnFloat)(double);
void (*ReturnVariant)(GB_VARIANT_VALUE *);
void (*ReturnConvVariant)(void);
void (*ReturnBorrow)(void);
void (*ReturnRelease)(void);
void (*ReturnPtr)(GB_TYPE, void *);
void (*ReturnSelf)(void *);
void (*ReturnString)(char *);
void (*ReturnVoidString)(void);
void (*ReturnConstString)(const char *, int);
void (*ReturnConstZeroString)(const char *);
void (*ReturnNewString)(const char *, int);
void (*ReturnNewZeroString)(const char *);
char *(*NewString)(const char *, int);
char *(*NewZeroString)(const char *);
char *(*TempString)(const char *, int);
char *(*RefString)(char *);
void (*FreeString)(char **);
char *(*FreeStringLater)(char *);
char *(*ExtendString)(char *, int);
char *(*AddString)(char *, const char *, int);
char *(*AddChar)(char *, char);
int (*StringLength)(char *);
char *(*ToZeroString)(GB_STRING *);
bool (*MatchString)(const char *, int, const char *, int);
bool (*NumberFromString)(int, const char *, int, GB_VALUE *);
bool (*NumberToString)(int, double, const char *, char **, int *);
char *(*Translate)(const char *);
char *(*SubstString)(const char *, int, GB_SUBST_CALLBACK);
char *(*SubstStringAdd)(const char *, int, GB_SUBST_ADD_CALLBACK);
void (*SubstStringUnquote)(void);
void (*SubstAddCallback)(const char *, int);
bool (*ConvString)(char **, const char *, int, const char *, const char *);
char *(*FileName)(char *, int);
char *(*RealFileName)(char *, int);
bool (*LoadFile)(const char *, int, char **, int *);
void (*ReleaseFile)(char *, int);
char *(*TempDir)(void);
char *(*TempFile)(const char *);
bool (*CopyFile)(const char *, const char *);
void (*BrowseProject)(GB_BROWSE_PROJECT_CALLBACK);
void (*BrowseDirectory)(const char *, GB_BROWSE_CALLBACK, GB_BROWSE_CALLBACK);
bool (*StatFile)(const char *, GB_FILE_STAT *, bool);
void (*Store)(GB_TYPE, GB_VALUE *, void *);
void (*StoreString)(GB_STRING *, char **);
void (*StoreObject)(GB_OBJECT *, void **);
void (*StoreVariant)(GB_VARIANT *, void *);
void (*ReadValue)(GB_VALUE *, void *, GB_TYPE);
void (*BorrowValue)(GB_VALUE *);
void (*ReleaseValue)(GB_VALUE *);
int (*CompVariant)(GB_VARIANT_VALUE *, GB_VARIANT_VALUE *);
GB_DATE_SERIAL *(*SplitDate)(GB_DATE *);
bool (*MakeDate)(GB_DATE_SERIAL *, GB_DATE *);
void (*MakeDateFromTime)(time_t, int, GB_DATE *);
bool (*GetTime)(double *, int);
bool (*DateFromString)(const char *str, int len, GB_VALUE *val, bool local);
void (*Watch)(int, int, void *, intptr_t);
GB_VALUE *(*Eval)(void *, void *);
void (*Alloc)(void **, int);
void (*AllocZero)(void **, int);
void (*Free)(void **);
void (*Realloc)(void **, int);
void (*NewArray)(void *, int, int);
void (*FreeArray)(void *);
int (*Count)(void *);
void *(*Add)(void *);
void *(*Insert)(void *, int, int);
void (*Remove)(void *, int, int);
int (*ToLower)(int);
int (*ToUpper)(int);
int (*StrCaseCmp)(const char *, const char *);
int (*StrNCaseCmp)(const char *, const char *, int);
struct {
char *(*Name)(void);
char *(*Title)(void);
char *(*Version)(void);
char *(*Path)(void);
GB_CLASS (*StartupClass)(void);
}
Application;
struct {
char *(*Charset)(void);
char *(*Language)(void);
void (*SetLanguage)(const char *);
char *(*DomainName)(void);
bool (*IsRightToLeft)(void);
char *(*Path)(void);
void (*HasForked)(void);
bool (*Debug)(void);
char *(*Home)(void);
int (*TimeZone)(void);
}
System;
struct {
void (*New)(GB_ARRAY *, GB_TYPE, int);
int (*Count)(GB_ARRAY);
void *(*Add)(GB_ARRAY);
void *(*Get)(GB_ARRAY, int);
GB_TYPE (*Type)(GB_ARRAY);
void (*SetReadOnly)(GB_ARRAY);
}
Array;
struct {
void (*New)(GB_COLLECTION *, int);
int (*Count)(GB_COLLECTION);
bool (*Set)(GB_COLLECTION, const char *, int, GB_VARIANT *);
bool (*Get)(GB_COLLECTION, const char *, int, GB_VARIANT *);
bool (*Enum)(GB_COLLECTION, GB_COLLECTION_ITER *, GB_VARIANT *, char **key, int *len);
}
Collection;
struct {
void (*New)(GB_HASHTABLE *, int);
void (*Free)(GB_HASHTABLE *);
int (*Count)(GB_HASHTABLE);
void (*Add)(GB_HASHTABLE, const char *, int, void *);
void (*Remove)(GB_HASHTABLE, const char *, int);
bool (*Get)(GB_HASHTABLE, const char *, int, void **);
void (*Enum)(GB_HASHTABLE, GB_HASHTABLE_ENUM_FUNC);
bool (*First)(GB_HASHTABLE, void **);
}
HashTable;
struct {
GB_STREAM *(*Get)(void *object);
void (*SetSwapping)(GB_STREAM *stream, int swap);
void (*SetAvailableNow)(GB_STREAM *stream, int available_now);
bool (*Block)(GB_STREAM *stream, int block);
int (*Read)(GB_STREAM *stream, void *addr, int len);
int (*Write)(GB_STREAM *stream, void *addr, int len);
int (*GetReadable)(GB_STREAM *stream, int *len);
bool (*Eof)(GB_STREAM *stream);
int (*Handle)(GB_STREAM *stream);
}
Stream;
struct {
void (*Start)(int length);
char *(*End)(void);
void (*Add)(const char *src, int len);
GB_ARRAY (*Split)(const char *str, int lstr, const char *sep, int lsep, const char *esc, int lesc, bool no_void, bool keep_esc);
}
String;
struct {
char *(*GetCurrentPosition)(void);
void (*EnterEventLoop)(void);
void (*LeaveEventLoop)(void);
}
Debug;
struct {
GB_SIGNAL_CALLBACK *(*Register)(int signum, void (*func)(int, intptr_t), intptr_t data);
void (*Unregister)(int signum, GB_SIGNAL_CALLBACK *cb);
void (*MustCheck)(int signum);
}
Signal;
struct {
void (*Add)(void *p_first, void *node, GB_LIST *list);
void (*Remove)(void *p_first, void *node, GB_LIST *list);
}
List;
}
GB_INTERFACE;
/*
Special methods that can be declared in a class
-----------------------------------------------
_get array reading operator
_put array writing operator
_new constructor
_free destructor
_next next iteration of an enumeration
_call called when the object or the class is used as a function
_unknown called when the name of the property or method is unknown
Syntax of a method or event signature
-------------------------------------
Gambas datatype String representation
Boolean b
Byte c
Short h
Integer i
Long l
Single g
Float f
Date d
String s
Variant v
Object o
Pointer p
Any class ClassName;
*/
#ifndef NO_GAMBAS_CASE_REPLACEMENT
#ifdef ARCH_E2K // According to AltLinux Sisyphus RPM packages patchs
#ifdef __cplusplus
#include <bits/locale_facets.h>
#endif
#endif
/* Replacements for case unsensitive comparisons.
They ensure that case comparison does not use current locale,
otherwise Turkish speakers will have problems!
*/
#include <string.h>
#include <ctype.h>
#ifdef tolower
#undef tolower
#endif
#ifdef toupper
#undef toupper
#endif
#ifdef strcasecmp
#undef strcasecmp
#endif
#ifdef strncasecmp
#undef strncasecmp
#endif
#define strcasecmp GB.StrCaseCmp
#define strncasecmp GB.StrNCaseCmp
#define toupper GB.ToUpper
#define tolower GB.ToLower
#endif
#endif
Reference in a new issue View git blame Copy permalink