static ScmObj message_allocate(ScmClass *klass, ScmObj initargs)
{
ScmError *e = SCM_ALLOCATE(ScmError, klass);
SCM_SET_CLASS(e, klass);
e->message = SCM_FALSE; /* would be set by initialize */
return SCM_OBJ(e);
}
static ScmObj compound_allocate(ScmClass *klass, ScmObj initargs)
{
ScmCompoundCondition *e = SCM_ALLOCATE(ScmCompoundCondition, klass);
SCM_SET_CLASS(e, klass);
e->conditions = SCM_NIL;
return SCM_OBJ(e);
}
ScmObj sigset_allocate(ScmClass *klass, ScmObj initargs)
{
ScmSysSigset *s = SCM_ALLOCATE(ScmSysSigset, klass);
SCM_SET_CLASS(s, klass);
sigemptyset(&s->set);
return SCM_OBJ(s);
}
static ScmObj porterror_allocate(ScmClass *klass, ScmObj initargs)
{
ScmPortError *e = SCM_ALLOCATE(ScmPortError, klass);
SCM_SET_CLASS(e, klass);
e->common.message = SCM_FALSE; /* set by initialize */
e->port = NULL; /* set by initialize */
return SCM_OBJ(e);
}
static ScmObj sigerror_allocate(ScmClass *klass, ScmObj initargs)
{
ScmUnhandledSignalError *e = SCM_ALLOCATE(ScmUnhandledSignalError, klass);
SCM_SET_CLASS(e, klass);
e->common.message = SCM_FALSE; /* set by initialize */
e->signal = 0; /* set by initialize */
return SCM_OBJ(e);
}
static ScmObj syserror_allocate(ScmClass *klass, ScmObj initargs)
{
ScmSystemError *e = SCM_ALLOCATE(ScmSystemError, klass);
SCM_SET_CLASS(e, klass);
e->common.message = SCM_FALSE; /* set by initialize */
e->error_number = 0; /* set by initialize */
return SCM_OBJ(e);
}
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));
}
