#include <gauche/class.h>
#include <gauche/extend.h>
#include "vport.h"
#undef close /* windows black magic */
/*================================================================
* <virtual-port>
*/
static ScmObj vport_allocate(ScmClass *klass, ScmObj initargs);
static void vport_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx);
static ScmClass *vport_cpa[] = {
SCM_CLASS_STATIC_PTR(Scm_PortClass),
SCM_CLASS_STATIC_PTR(Scm_TopClass),
NULL
};
SCM_DEFINE_BASE_CLASS(Scm_VirtualInputPortClass, ScmPort,
vport_print, NULL, NULL,
vport_allocate, vport_cpa);
SCM_DEFINE_BASE_CLASS(Scm_VirtualOutputPortClass, ScmPort,
vport_print, NULL, NULL,
vport_allocate, vport_cpa);
/*
* Scheme handlers. They are visible from Scheme as instance slots.
* Any of these slots can be #f - if possible, the vport tries to fulfill
* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
* PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
* LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#define LIBGAUCHE_BODY
#include "gauche.h"
/*
* Classes
*/
static ScmClass *list_cpl[] = {
SCM_CLASS_STATIC_PTR(Scm_ListClass),
SCM_CLASS_STATIC_PTR(Scm_SequenceClass),
SCM_CLASS_STATIC_PTR(Scm_CollectionClass),
SCM_CLASS_STATIC_PTR(Scm_TopClass),
NULL
};
SCM_DEFINE_BUILTIN_CLASS(Scm_ListClass, NULL, NULL, NULL, NULL, list_cpl+1);
SCM_DEFINE_BUILTIN_CLASS(Scm_PairClass, NULL, NULL, NULL, NULL, list_cpl);
SCM_DEFINE_BUILTIN_CLASS(Scm_NullClass, NULL, NULL, NULL, NULL, list_cpl);
/*
* CONSTRUCTOR
*/
ScmObj Scm_Cons(ScmObj car, ScmObj cdr)
* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
*
* $Id: ffi.c 233 2006-05-03 15:58:37Z naoki $
*/
#include <gauche.h>
#include <gauche/class.h>
#include <gauche/exception.h>
#import "ObjCError.h"
static ScmObj objc_error_allocate(ScmClass *klass, ScmObj initargs);
static void objc_error_print(ScmObj objc_error, ScmPort *port, ScmWriteContext *ctx);
static ScmClass *default_cpl[] = {
SCM_CLASS_STATIC_PTR(Scm_TopClass), NULL
};
SCM_DEFINE_BASE_CLASS(Scm_ObjCErrorClass, ScmObjCError,
objc_error_print, NULL, NULL, objc_error_allocate,
default_cpl);
static ScmObj objc_error_allocate(ScmClass *klass, ScmObj initargs)
{
ScmObjCError *err = SCM_ALLOCATE(ScmObjCError, klass);
SCM_SET_CLASS(err, klass);
err->name = SCM_FALSE;
err->reason = SCM_FALSE;
SCM_RETURN(SCM_OBJ(err));
}
/* NB: built-in socket address structures are allocated as ATOMIC---when
you want to extend them, be careful not to introduce sole pointers to
allocated objects; GC will collect them prematurely. The only
pointer, the tagged pointer to the class, is protected since they're
bound to global variables. */
/*==================================================================
* Generic Socket Address
*/
static void sockaddr_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx);
static ScmObj sockaddr_allocate(ScmClass *, ScmObj);
ScmClass *Scm_SockAddrCPL[] = {
SCM_CLASS_STATIC_PTR(Scm_SockAddrClass),
SCM_CLASS_STATIC_PTR(Scm_TopClass),
NULL
};
SCM_DEFINE_BUILTIN_CLASS(Scm_SockAddrClass, sockaddr_print,
NULL, NULL, sockaddr_allocate,
NULL);
void sockaddr_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx)
{
Scm_Printf(port, "#<sockaddr %S %S>",
Scm_SockAddrFamily(SCM_SOCKADDR(obj)),
Scm_SockAddrName(SCM_SOCKADDR(obj)));
}
#define LIBGAUCHE_BODY
#include "gauche.h"
#include "gauche/class.h"
/*
* Class stuff
*/
SCM_DEFINE_ABSTRACT_CLASS(Scm_CollectionClass, SCM_CLASS_DEFAULT_CPL);
SCM_DEFINE_ABSTRACT_CLASS(Scm_SequenceClass, SCM_CLASS_COLLECTION_CPL);
SCM_DEFINE_ABSTRACT_CLASS(Scm_DictionaryClass, SCM_CLASS_COLLECTION_CPL);
SCM_DEFINE_ABSTRACT_CLASS(Scm_OrderedDictionaryClass, Scm__OrderedDictionaryCPL+1);
ScmClass *Scm__OrderedDictionaryCPL[] = {
SCM_CLASS_STATIC_PTR(Scm_OrderedDictionaryClass),
SCM_CLASS_STATIC_PTR(Scm_SequenceClass),
SCM_CLASS_STATIC_PTR(Scm_DictionaryClass),
SCM_CLASS_STATIC_PTR(Scm_CollectionClass),
SCM_CLASS_STATIC_PTR(Scm_TopClass),
NULL
};
ScmClass *Scm__SequenceCPL[] = {
SCM_CLASS_STATIC_PTR(Scm_SequenceClass),
SCM_CLASS_STATIC_PTR(Scm_CollectionClass),
SCM_CLASS_STATIC_PTR(Scm_TopClass),
NULL
};
/*
SCM_CLASS_SLOT_SPEC("message-prefix", message_prefix_get, message_prefix_set),
SCM_CLASS_SLOT_SPEC("message-args", message_args_get, message_args_set),
SCM_CLASS_SLOT_SPEC_END()
};
/*------------------------------------------------------------
* Errors
*/
static ScmClass *error_cpl[] = {
ERROR_CPL,
NULL
};
static ScmClass *porterror_cpl[] = {
SCM_CLASS_STATIC_PTR(Scm_PortErrorClass),
SCM_CLASS_STATIC_PTR(Scm_IOErrorClass),
ERROR_CPL,
NULL
};
SCM_DEFINE_BASE_CLASS(Scm_ErrorClass, ScmError,
message_print, NULL, NULL,
message_allocate, error_cpl+1);
SCM_DEFINE_BASE_CLASS(Scm_SystemErrorClass, ScmSystemError,
message_print, NULL, NULL,
syserror_allocate, error_cpl);
SCM_DEFINE_BASE_CLASS(Scm_UnhandledSignalErrorClass, ScmUnhandledSignalError,
message_print, NULL, NULL,
sigerror_allocate, error_cpl);
*/
#define LIBGAUCHE_BODY
#include "gauche.h"
#include "gauche/priv/builtin-syms.h"
/*-----------------------------------------------------------
* Symbols
*/
static void symbol_print(ScmObj obj, ScmPort *port, ScmWriteContext *);
SCM_DEFINE_BUILTIN_CLASS_SIMPLE(Scm_SymbolClass, symbol_print);
#if GAUCHE_UNIFY_SYMBOL_KEYWORD
static ScmClass *keyword_cpl[] = {
SCM_CLASS_STATIC_PTR(Scm_SymbolClass),
SCM_CLASS_STATIC_PTR(Scm_TopClass),
NULL
};
SCM_DEFINE_BUILTIN_CLASS(Scm_KeywordClass, symbol_print,
NULL, NULL, NULL, keyword_cpl);
#else /*!GAUCHE_UNIFY_SYMBOL_KEYWORD*/
SCM_DEFINE_BUILTIN_CLASS_SIMPLE(Scm_KeywordClass, symbol_print);
#endif /*!GAUCHE_UNIFY_SYMBOL_KEYWORD*/
/* name -> symbol mapper */
static ScmInternalMutex obtable_mutex = SCM_INTERNAL_MUTEX_INITIALIZER;
static ScmHashTable *obtable = NULL;
#if !GAUCHE_UNIFY_SYMBOL_KEYWORD