gambas-source-code/main/share/gambas.h
Benoît Minisini 4cff4ce26c [INTERPRETER]
* NEW: A new interpreter API for setting the endianness of a stream.
* NEW: Another new interpreter API for making a stream blocking or not.

[GB.FORM.MDI]
* NEW: Remove the useless toolbar handle.

[GB.NET]
* BUG: Fix the UdpSocket implementation.
* NEW: UdpSocket now uses an internal buffer, so that successive READs on 
  it work as expected. Beware that the remaining data is lost the next time
  the UdpSocket raises its Read event.



git-svn-id: svn://localhost/gambas/trunk@1669 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2008-11-04 23:53:39 +00:00

1050 lines
23 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_DESC *desc;
intptr_t _reserved;
int64_t _reserved2;
}
GB_STREAM_BASE;
typedef
struct GB_STREAM {
GB_STREAM_DESC *desc;
intptr_t _reserved;
int64_t _reserved2;
void *tag;
#if __WORDSIZE == 64
int _free[4];
#else
int _free[5];
#endif
}
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 *, intptr_t);
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 (*SetBytesRead)(GB_STREAM *stream, int length);
void (*SetSwapping)(GB_STREAM *stream, int swap);
int (*Block)(GB_STREAM *stream, int block);
}
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