99730a185f
* NEW: Use colorgcc if it is present. Beware that ccache removes the colors. [DEVELOPMENT ENVIRONMENT] * BUG: Fix the output console search. * BUG: When making a package, ignore the charset translation errors while printing the commands output. * NEW: Support for the Khmer language. [WIKI CGI SCRIPT] * NEW: Support for the macedonian language. [INTERPRETER] * BUG: Fix the interpreter for gcc 4.3. * NEW: Prints the gcc version used for compiling the interpreter when running 'gbx2 -h'. * BUG: Fix the initialization of standard input/output streams. [COMPILER] * BUG: Fix a compilation warning on FILE_set_chown. [GB.GTK] * BUG: Initialize correctly the gControl class. * BUG: Draw.Tile now works correctly. * BUG: Fix the vertical alignment management. * BUG: The alignment of a GridView cell with a picture only is correct now. [GB.QT] * BUG: Choose the right moc executable when both QT3 and QT4 are installed on the system. * BUG: Fix the system tray icons for KDE 3.5.10. :-) * BUG: The alignment of a GridView cell with a picture only is correct now. git-svn-id: svn://localhost/gambas/trunk@1493 867c0c6c-44f3-4631-809d-bfa615b0a4ec
1035 lines
22 KiB
C
1035 lines
22 KiB
C
/***************************************************************************
|
|
|
|
gambas.h
|
|
|
|
Copyright (c) 2000-2007 Benoit Minisini <gambas@freesurf.fr>
|
|
|
|
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 __GAMBAS_H
|
|
#define __GAMBAS_H
|
|
|
|
#include "config.h"
|
|
#include <stdint.h>
|
|
#include <stddef.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 HAVE_GCC_VISIBILITY
|
|
#define EXPORT __attribute__((visibility("default")))
|
|
#else
|
|
#define EXPORT
|
|
#endif
|
|
|
|
#if defined(__cplusplus)
|
|
#define __null ((intptr_t)0)
|
|
#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_VARIANT 11
|
|
#define GB_T_POINTER 13
|
|
#define GB_T_NULL 15
|
|
#define GB_T_OBJECT 16
|
|
|
|
|
|
/* This type represents a Gambas datatype identifier */
|
|
|
|
typedef
|
|
intptr_t GB_TYPE;
|
|
|
|
|
|
/* This opaque type represents a Gambas class identifier */
|
|
|
|
typedef
|
|
void *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 VARIANT datatype definition */
|
|
|
|
typedef
|
|
union {
|
|
GB_TYPE type;
|
|
intptr_t _reserved[3];
|
|
struct { GB_TYPE type; int value; } PACKED _boolean;
|
|
struct { GB_TYPE type; int value; } PACKED _byte;
|
|
struct { GB_TYPE type; int value; } PACKED _short;
|
|
struct { GB_TYPE type; int value; } PACKED _integer;
|
|
struct { GB_TYPE type; int64_t value; } PACKED _long;
|
|
struct { GB_TYPE type; double value; } PACKED _single;
|
|
struct { GB_TYPE type; double value; } PACKED _float;
|
|
struct { GB_TYPE type; int date; int time; } PACKED _date;
|
|
struct { GB_TYPE type; char *value; } PACKED _string;
|
|
struct { GB_TYPE type; void *value; } PACKED _object;
|
|
}
|
|
GB_VARIANT_VALUE;
|
|
|
|
|
|
typedef
|
|
struct {
|
|
GB_TYPE type;
|
|
GB_VARIANT_VALUE value;
|
|
}
|
|
GB_VARIANT;
|
|
|
|
|
|
/* Gambas STRING datatype definition */
|
|
|
|
typedef
|
|
struct {
|
|
GB_TYPE type;
|
|
struct {
|
|
char *addr;
|
|
int start;
|
|
int len;
|
|
} value;
|
|
#if __WORDSIZE == 64
|
|
intptr_t _reserved;
|
|
#endif
|
|
}
|
|
PACKED
|
|
GB_STRING;
|
|
|
|
|
|
/* Gambas INTEGER datatype definition */
|
|
|
|
typedef
|
|
struct {
|
|
GB_TYPE type;
|
|
int value;
|
|
#if __WORDSIZE == 64
|
|
int _pad;
|
|
#endif
|
|
intptr_t _reserved[2];
|
|
}
|
|
PACKED
|
|
GB_INTEGER;
|
|
|
|
|
|
/* Gambas INTEGER datatype definition */
|
|
|
|
typedef
|
|
struct {
|
|
GB_TYPE type;
|
|
int64_t value;
|
|
#if __WORDSIZE == 64
|
|
intptr_t _reserved[2];
|
|
#else
|
|
int _reserved;
|
|
#endif
|
|
}
|
|
PACKED
|
|
GB_LONG;
|
|
|
|
|
|
/* Gambas POINTER datatype definition */
|
|
|
|
typedef
|
|
struct {
|
|
GB_TYPE type;
|
|
intptr_t value;
|
|
intptr_t _reserved[2];
|
|
}
|
|
PACKED
|
|
GB_POINTER;
|
|
|
|
|
|
/* Gambas BOOLEAN datatype definition */
|
|
|
|
typedef
|
|
struct {
|
|
GB_TYPE type;
|
|
int value;
|
|
#if __WORDSIZE == 64
|
|
int _pad;
|
|
#endif
|
|
intptr_t _reserved[2];
|
|
}
|
|
PACKED
|
|
GB_BOOLEAN;
|
|
|
|
|
|
/* Gambas FLOAT datatype definition */
|
|
|
|
typedef
|
|
struct {
|
|
GB_TYPE type;
|
|
double value;
|
|
#if __WORDSIZE == 64
|
|
intptr_t _reserved[2];
|
|
#else
|
|
int _pad;
|
|
#endif
|
|
}
|
|
PACKED
|
|
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
|
|
}
|
|
PACKED
|
|
GB_DATE;
|
|
|
|
|
|
/* Gambas OBJECT datatype definition */
|
|
|
|
typedef
|
|
struct {
|
|
GB_TYPE type;
|
|
void *value;
|
|
intptr_t _reserved[2];
|
|
}
|
|
PACKED
|
|
GB_OBJECT;
|
|
|
|
|
|
/* Gambas common value definition */
|
|
|
|
typedef
|
|
union {
|
|
GB_TYPE type;
|
|
GB_BOOLEAN _boolean;
|
|
GB_INTEGER _integer;
|
|
GB_LONG _long;
|
|
GB_FLOAT _float;
|
|
GB_DATE _date;
|
|
GB_STRING _string;
|
|
GB_OBJECT _object;
|
|
GB_VARIANT _variant;
|
|
}
|
|
GB_VALUE;
|
|
|
|
|
|
/* Predefined errors constants */
|
|
|
|
#define GB_ERR_TYPE ((char *)6)
|
|
#define GB_ERR_ARG ((char *)20)
|
|
#define GB_ERR_BOUND ((char *)21)
|
|
|
|
|
|
/* 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 }
|
|
|
|
|
|
/* Not creatable class macro */
|
|
|
|
#define GB_NOT_CREATABLE() { GB_NOT_CREATABLE_ID }
|
|
|
|
|
|
/* 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_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_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_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;
|
|
intptr_t val4;
|
|
intptr_t val5;
|
|
}
|
|
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_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_IMAGE 10
|
|
#define GB_HOOK_PICTURE 11
|
|
|
|
|
|
/* Constants that represent interpreter signals catched 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
|
|
#define GB_WATCH_READ_WRITE 3
|
|
|
|
|
|
/* 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);
|
|
|
|
|
|
/* Type of a posted function */
|
|
|
|
typedef
|
|
void (*GB_POST_FUNC)();
|
|
|
|
|
|
/* A structure for the components of a date */
|
|
|
|
typedef
|
|
struct {
|
|
short year;
|
|
short month;
|
|
short day;
|
|
short hour;
|
|
short min;
|
|
short sec;
|
|
short weekday;
|
|
short msec;
|
|
}
|
|
GB_DATE_SERIAL;
|
|
|
|
|
|
/* Opaque type of a Gambas interpreted or native function */
|
|
|
|
typedef
|
|
struct {
|
|
void *object;
|
|
void *desc;
|
|
}
|
|
GB_FUNCTION;
|
|
|
|
#define GB_FUNCTION_IS_VALID(_func) ((_func)->desc)
|
|
|
|
|
|
/* Opaque type of a Gambas Array */
|
|
|
|
typedef
|
|
void *GB_ARRAY;
|
|
|
|
|
|
/* Opaque type of a Gambas Collection */
|
|
|
|
typedef
|
|
void *GB_COLLECTION;
|
|
|
|
|
|
/* opaque type of an hash table */
|
|
|
|
typedef
|
|
void *GB_HASHTABLE;
|
|
|
|
|
|
/* constants used by image data format */
|
|
|
|
#define GB_IMAGE_BGRA 0
|
|
#define GB_IMAGE_ARGB 1
|
|
#define GB_IMAGE_RGBA 2
|
|
#define GB_IMAGE_ABGR 3
|
|
#define GB_IMAGE_BGRX 4
|
|
#define GB_IMAGE_XRGB 5
|
|
#define GB_IMAGE_RGBX 6
|
|
#define GB_IMAGE_XBGR 7
|
|
#define GB_IMAGE_BGR 8
|
|
#define GB_IMAGE_RGB 9
|
|
|
|
#define GB_IMAGE_TRANSPARENT(_format) ((_format) < 4)
|
|
|
|
|
|
/* opaque type of a Gambas image */
|
|
|
|
typedef
|
|
void *GB_IMAGE;
|
|
|
|
|
|
/* information about an image */
|
|
|
|
typedef
|
|
struct {
|
|
int width;
|
|
int height;
|
|
int format;
|
|
void *data;
|
|
}
|
|
GB_IMAGE_INFO;
|
|
|
|
|
|
/* opaque type of a Gambas picture */
|
|
|
|
typedef
|
|
void *GB_PICTURE;
|
|
|
|
|
|
/* information about a picture */
|
|
|
|
typedef
|
|
GB_IMAGE_INFO GB_PICTURE_INFO;
|
|
|
|
|
|
/* hash table enumeration function */
|
|
|
|
typedef
|
|
void (*GB_HASHTABLE_ENUM_FUNC)(void *);
|
|
|
|
|
|
/* 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 (*getchar)(struct GB_STREAM *stream, char *buffer);
|
|
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 {
|
|
GB_STREAM_DESC *desc;
|
|
void *_reserved2;
|
|
int _reserved;
|
|
int _free[6];
|
|
}
|
|
GB_STREAM;
|
|
|
|
|
|
/* 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
|
|
|
|
|
|
/* Constants used by the GB.Collection.New() and GB.HashTable.New() API function */
|
|
|
|
#define GB_COMP_BINARY 0
|
|
#define GB_COMP_TEXT 1
|
|
|
|
|
|
/* Opaque type for a SubCollection object */
|
|
|
|
typedef
|
|
void *GB_SUBCOLLECTION;
|
|
|
|
|
|
/* SubCollection description */
|
|
|
|
typedef
|
|
struct {
|
|
char *klass;
|
|
void *(*get)(void *, const char *);
|
|
int (*exist)(void *, const char *);
|
|
void (*list)(void *, char ***);
|
|
void (*release)(void *, void *);
|
|
}
|
|
GB_SUBCOLLECTION_DESC;
|
|
|
|
|
|
/* Timer object */
|
|
|
|
typedef
|
|
struct {
|
|
GB_BASE object;
|
|
intptr_t id;
|
|
intptr_t tag;
|
|
int delay;
|
|
}
|
|
GB_TIMER;
|
|
|
|
|
|
/* A macro for preventing gcc from warning about breaks in the
|
|
strict aliasing rules */
|
|
|
|
#define POINTER(_pointer) (void **)(void *)_pointer
|
|
|
|
|
|
/* Gambas Application Programming Interface */
|
|
|
|
typedef
|
|
struct {
|
|
intptr_t version;
|
|
|
|
int (*GetInterface)(const char *, int, void *);
|
|
|
|
void *(*Hook)(int, void *);
|
|
|
|
int (*LoadComponent)(const char *);
|
|
int (*ExistComponent)(const char *);
|
|
char *(*CurrentComponent)(void);
|
|
int (*GetComponentInfo)(const char *, void **);
|
|
|
|
void (*Push)(int, ...);
|
|
int (*GetFunction)(GB_FUNCTION *, void *, const char *, const char *, const char *);
|
|
GB_VALUE *(*Call)(GB_FUNCTION *, int, int);
|
|
void *(*GetClassInterface)(GB_CLASS, const char *);
|
|
|
|
int (*Loop)(int);
|
|
void (*Post)(void (*)(), intptr_t);
|
|
void (*Post2)(void (*)(), intptr_t, intptr_t);
|
|
int (*Raise)(void *, int, int, ...);
|
|
void (*RaiseLater)(void *, int);
|
|
void (*CheckPost)(void);
|
|
int (*CanRaise)(void *, int);
|
|
int (*GetEvent)(GB_CLASS, const char *);
|
|
char *(*GetLastEventName)();
|
|
void (*RaiseTimer)(void *);
|
|
int (*Stopped)(void);
|
|
void (*Signal)(int, void *);
|
|
|
|
int (*NParam)(void);
|
|
int (*Conv)(GB_VALUE *, GB_TYPE);
|
|
char *(*GetUnknown)(void);
|
|
int (*IsProperty)(void);
|
|
|
|
void (*Error)(const char *, ...);
|
|
void (*Propagate)(void);
|
|
|
|
GB_CLASS (*GetClass)(void *);
|
|
char *(*GetClassName)(void *);
|
|
int (*ExistClass)(const char *);
|
|
GB_CLASS (*FindClass)(const char *);
|
|
int (*ExistClassLocal)(const char *);
|
|
GB_CLASS (*FindClassLocal)(const char *);
|
|
int (*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 *);
|
|
int (*New)(void **, GB_CLASS, char *, void *);
|
|
void *(*AutoCreate)(GB_CLASS, int);
|
|
int (*CheckObject)(void *);
|
|
|
|
void *(*GetEnum)();
|
|
void (*StopEnum)();
|
|
void (*ListEnum)(void *);
|
|
int (*NextEnum)();
|
|
void (*StopAllEnum)(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 (*ReturnFloat)(double);
|
|
void (*ReturnPtr)(GB_TYPE, void *);
|
|
void (*ReturnSelf)(void *);
|
|
|
|
void (*ReturnString)(char *);
|
|
void (*ReturnConstString)(const char *, int);
|
|
void (*ReturnConstZeroString)(const char *);
|
|
void (*ReturnNewString)(const char *, int);
|
|
void (*ReturnNewZeroString)(const char *);
|
|
|
|
void (*NewString)(char **, const char *, int);
|
|
void (*TempString)(char **, const char *, int);
|
|
void (*FreeString)(char **);
|
|
void (*ExtendString)(char **, int);
|
|
void (*AddString)(char **, const char *, int);
|
|
int (*StringLength)(char *);
|
|
char *(*ToZeroString)(GB_STRING *);
|
|
int (*MatchString)(const char *, int, const char *, int);
|
|
int (*NumberFromString)(int, const char *, int, GB_VALUE *);
|
|
int (*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 (*SubstAdd)(const char *, int);
|
|
int (*ConvString)(char **, const char *, int, const char *, const char *);
|
|
char *(*FileName)(char *, int);
|
|
char *(*RealFileName)(char *, int);
|
|
|
|
int (*LoadFile)(const char *, int, char **, int *);
|
|
void (*ReleaseFile)(char **, int);
|
|
int (*ExistFile)(char *);
|
|
char *(*GetTempDir)(void);
|
|
|
|
void (*Store)(GB_TYPE, GB_VALUE *, void *);
|
|
void (*StoreString)(GB_STRING *, char **);
|
|
void (*StoreObject)(GB_OBJECT *, void **);
|
|
void (*StoreVariant)(GB_VARIANT *, void *);
|
|
|
|
GB_DATE_SERIAL *(*SplitDate)(GB_DATE *);
|
|
int (*MakeDate)(GB_DATE_SERIAL *, GB_DATE *);
|
|
void (*MakeDateFromTime)(int, int, GB_DATE *);
|
|
int (*GetTime)(double *, int);
|
|
|
|
void (*Watch)(int, int, void *, int);
|
|
|
|
GB_VALUE *(*Eval)(void *, void *);
|
|
|
|
void (*Alloc)(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);
|
|
|
|
void (*PrintData)(GB_TYPE, void *);
|
|
void (*PrintString)(char *, int);
|
|
|
|
struct {
|
|
void (*New)(GB_SUBCOLLECTION *, GB_SUBCOLLECTION_DESC *, void *);
|
|
void (*Add)(void *, const char *, int, void *);
|
|
void (*Remove)(void *, const char *, int);
|
|
void *(*Get)(void *, const char *, int);
|
|
void *(*Container)(void *);
|
|
}
|
|
SubCollection;
|
|
|
|
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);
|
|
char *(*Startup)(void);
|
|
}
|
|
Application;
|
|
|
|
struct {
|
|
char *(*Charset)(void);
|
|
char *(*Language)(void);
|
|
char *(*DomainName)(void);
|
|
int *(*IsRightToLeft)(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);
|
|
}
|
|
Array;
|
|
|
|
struct {
|
|
void (*New)(GB_COLLECTION *, int);
|
|
int (*Count)(GB_COLLECTION);
|
|
void (*Set)(GB_COLLECTION, const char *, int, GB_VARIANT *);
|
|
int (*Get)(GB_COLLECTION, const char *, int, GB_VARIANT *);
|
|
}
|
|
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);
|
|
int (*Get)(GB_HASHTABLE, const char *, int, void **);
|
|
void (*Enum)(GB_HASHTABLE, GB_HASHTABLE_ENUM_FUNC);
|
|
}
|
|
HashTable;
|
|
|
|
struct {
|
|
void (*Init)(GB_STREAM *, int fd);
|
|
}
|
|
Stream;
|
|
|
|
struct {
|
|
int (*Create)(GB_IMAGE *image, void *data, int width, int height, int format);
|
|
void (*Info)(GB_IMAGE image, GB_IMAGE_INFO *info);
|
|
void (*Convert)(void *dst, int dst_format, void *src, int src_format, int w, int h);
|
|
}
|
|
Image;
|
|
|
|
struct {
|
|
int (*Create)(GB_PICTURE *pict, void *data, int width, int height, int format);
|
|
void (*Info)(GB_PICTURE pict, GB_PICTURE_INFO *info);
|
|
}
|
|
Picture;
|
|
|
|
}
|
|
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
|
|
INTEGER i
|
|
LONG l
|
|
FLOAT f
|
|
DATE d
|
|
STRING s
|
|
VARIANT v
|
|
OBJECT o
|
|
Any class ClassName;
|
|
|
|
*/
|
|
|
|
#ifndef NO_GAMBAS_CASE_REPLACEMENT
|
|
|
|
/* Replacements for case unsensitive comparisons.
|
|
They ensure that case comparison does not use current locale
|
|
*/
|
|
|
|
#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
|