sa 344 gc/cord/cordbscs.c register struct substr_args * sa = GC_NEW(struct substr_args);
sa 347 gc/cord/cordbscs.c if (sa == 0) OUT_OF_MEMORY;
sa 348 gc/cord/cordbscs.c sa->sa_cord = (CordRep *)x;
sa 349 gc/cord/cordbscs.c sa->sa_index = i;
sa 350 gc/cord/cordbscs.c result = CORD_from_fn(f, (void *)sa, n);
sa 3706 gc/os_dep.c struct sigaction sa, oldsa;
sa 3707 gc/os_dep.c sa.sa_handler = (SIG_PF)GC_darwin_sigbus;
sa 3708 gc/os_dep.c sigemptyset(&sa.sa_mask);
sa 3709 gc/os_dep.c sa.sa_flags = SA_RESTART|SA_SIGINFO;
sa 3710 gc/os_dep.c if(sigaction(SIGBUS,&sa,&oldsa) < 0) ABORT("sigaction");
sa 61 src/class.c static ScmObj slot_set_using_accessor(ScmObj obj, ScmSlotAccessor *sa,
sa 1185 src/class.c ScmSlotAccessor *sa = SCM_SLOT_ACCESSOR(data[1]);
sa 1186 src/class.c return slot_set_using_accessor(obj, sa, result);
sa 1190 src/class.c ScmSlotAccessor *sa,
sa 1194 src/class.c if (SCM_KEYWORDP(sa->initKeyword)) {
sa 1195 src/class.c ScmObj v = Scm_GetKeyword(sa->initKeyword, initargs, SCM_UNDEFINED);
sa 1197 src/class.c return slot_set_using_accessor(obj, sa, v);
sa 1201 src/class.c if (sa->initializable) {
sa 1202 src/class.c if (!SCM_UNBOUNDP(sa->initValue)) {
sa 1203 src/class.c return slot_set_using_accessor(obj, sa, sa->initValue);
sa 1205 src/class.c if (SCM_PROCEDUREP(sa->initThunk)) {
sa 1208 src/class.c data[1] = (void*)sa;
sa 1210 src/class.c return Scm_VMApply(sa->initThunk, SCM_NIL);
sa 1279 src/class.c ScmSlotAccessor *sa,
sa 1283 src/class.c if (sa->getter) {
sa 1284 src/class.c val = sa->getter(obj);
sa 1285 src/class.c } else if (sa->slotNumber >= 0) {
sa 1286 src/class.c val = scheme_slot_ref(obj, sa->slotNumber);
sa 1287 src/class.c } else if (boundp && SCM_PROCEDUREP(sa->schemeBoundp)) {
sa 1290 src/class.c data[1] = sa->name;
sa 1293 src/class.c return Scm_VMApply(sa->schemeBoundp, SCM_LIST1(obj));
sa 1294 src/class.c } else if (SCM_PROCEDUREP(sa->schemeGetter)) {
sa 1297 src/class.c data[1] = sa->name;
sa 1300 src/class.c return Scm_VMApply(sa->schemeGetter, SCM_LIST1(obj));
sa 1303 src/class.c sa->name, obj);
sa 1309 src/class.c return SLOT_UNBOUND(Scm_ClassOf(obj), obj, sa->name);
sa 1333 src/class.c ScmSlotAccessor *sa;
sa 1343 src/class.c sa = Scm_GetSlotAccessor(klass, slot);
sa 1344 src/class.c if (sa == NULL) return SLOT_MISSING3(klass, obj, slot);
sa 1345 src/class.c else return slot_ref_using_accessor(obj, sa, boundp);
sa 1366 src/class.c ScmObj Scm_VMSlotRefUsingAccessor(ScmObj obj, ScmSlotAccessor *sa, int boundp)
sa 1369 src/class.c if (klass != sa->klass) {
sa 1371 src/class.c SCM_OBJ(sa), obj);
sa 1377 src/class.c data[1] = sa;
sa 1383 src/class.c return slot_ref_using_accessor(obj, sa, boundp);
sa 1406 src/class.c ScmSlotAccessor *sa;
sa 1411 src/class.c sa = Scm_GetSlotAccessor(klass, slot);
sa 1412 src/class.c if (sa == NULL) return SLOT_MISSING3(klass, obj, slot);
sa 1413 src/class.c else return slot_ref_using_accessor(obj, sa, FALSE);
sa 1432 src/class.c ScmSlotAccessor *sa,
sa 1435 src/class.c if (sa->setter) {
sa 1436 src/class.c sa->setter(obj, val);
sa 1437 src/class.c } else if (sa->slotNumber >= 0) {
sa 1438 src/class.c scheme_slot_set(obj, sa->slotNumber, val);
sa 1439 src/class.c } else if (SCM_PROCEDUREP(sa->schemeSetter)) {
sa 1440 src/class.c return Scm_VMApply(sa->schemeSetter, SCM_LIST2(obj, val));
sa 1442 src/class.c Scm_Error("slot %S of class %S is read-only", sa->name,
sa 1465 src/class.c ScmSlotAccessor *sa;
sa 1474 src/class.c sa = Scm_GetSlotAccessor(klass, slot);
sa 1475 src/class.c if (sa == NULL) return SLOT_MISSING4(klass, obj, slot, val);
sa 1476 src/class.c else return slot_set_using_accessor(obj, sa, val);
sa 1497 src/class.c ScmObj Scm_VMSlotSetUsingAccessor(ScmObj obj, ScmSlotAccessor *sa, ScmObj val)
sa 1500 src/class.c if (klass != sa->klass) {
sa 1502 src/class.c SCM_OBJ(sa), obj);
sa 1508 src/class.c data[1] = sa;
sa 1514 src/class.c return slot_set_using_accessor(obj, sa, val);
sa 1538 src/class.c ScmSlotAccessor *sa;
sa 1543 src/class.c sa = Scm_GetSlotAccessor(klass, slot);
sa 1544 src/class.c if (sa == NULL) return SLOT_MISSING4(klass, obj, slot, val);
sa 1545 src/class.c else return slot_set_using_accessor(obj, sa, val);
sa 1606 src/class.c ScmSlotAccessor *sa;
sa 1611 src/class.c sa = Scm_GetSlotAccessor(klass, slot);
sa 1612 src/class.c if (sa == NULL) return SLOT_MISSING3(klass, obj, slot);
sa 1613 src/class.c else return slot_ref_using_accessor(obj, sa, TRUE);
sa 1663 src/class.c ScmSlotAccessor *sa = SCM_NEW(ScmSlotAccessor);
sa 1665 src/class.c SCM_SET_CLASS(sa, klass);
sa 1666 src/class.c sa->name = SCM_FALSE;
sa 1667 src/class.c sa->getter = NULL;
sa 1668 src/class.c sa->setter = NULL;
sa 1669 src/class.c sa->initValue = SCM_UNBOUND;
sa 1670 src/class.c sa->initKeyword = SCM_FALSE;
sa 1671 src/class.c sa->initThunk = SCM_FALSE;
sa 1672 src/class.c sa->initializable = FALSE;
sa 1673 src/class.c sa->slotNumber = -1;
sa 1674 src/class.c sa->schemeGetter = SCM_FALSE;
sa 1675 src/class.c sa->schemeSetter = SCM_FALSE;
sa 1676 src/class.c sa->schemeBoundp = SCM_FALSE;
sa 1677 src/class.c return SCM_OBJ(sa);
sa 1682 src/class.c ScmSlotAccessor *sa = SCM_SLOT_ACCESSOR(obj);
sa 1685 src/class.c (sa->klass? sa->klass->name : SCM_FALSE),
sa 1686 src/class.c sa->name);
sa 1687 src/class.c if (sa->getter) Scm_Printf(out, "native");
sa 1688 src/class.c else if (!SCM_FALSEP(sa->schemeGetter)) Scm_Printf(out, "proc");
sa 1689 src/class.c else if (sa->slotNumber >= 0) Scm_Printf(out, "%d", sa->slotNumber);
sa 1691 src/class.c if (!SCM_FALSEP(sa->initKeyword))
sa 1692 src/class.c Scm_Printf(out, " %S", sa->initKeyword);
sa 1697 src/class.c static ScmObj slot_accessor_class(ScmSlotAccessor *sa)
sa 1699 src/class.c return SCM_OBJ(sa->klass);
sa 1702 src/class.c static void slot_accessor_class_set(ScmSlotAccessor *sa, ScmObj v)
sa 1707 src/class.c sa->klass = SCM_CLASS(v);
sa 1710 src/class.c static ScmObj slot_accessor_name(ScmSlotAccessor *sa)
sa 1712 src/class.c return sa->name;
sa 1715 src/class.c static void slot_accessor_name_set(ScmSlotAccessor *sa, ScmObj v)
sa 1717 src/class.c sa->name = v;
sa 1720 src/class.c static ScmObj slot_accessor_init_value(ScmSlotAccessor *sa)
sa 1722 src/class.c return sa->initValue;
sa 1725 src/class.c static void slot_accessor_init_value_set(ScmSlotAccessor *sa, ScmObj v)
sa 1727 src/class.c sa->initValue = v;
sa 1730 src/class.c static ScmObj slot_accessor_init_keyword(ScmSlotAccessor *sa)
sa 1732 src/class.c return sa->initKeyword;
sa 1735 src/class.c static void slot_accessor_init_keyword_set(ScmSlotAccessor *sa, ScmObj v)
sa 1737 src/class.c sa->initKeyword = v;
sa 1740 src/class.c static ScmObj slot_accessor_init_thunk(ScmSlotAccessor *sa)
sa 1742 src/class.c return sa->initThunk;
sa 1745 src/class.c static void slot_accessor_init_thunk_set(ScmSlotAccessor *sa, ScmObj v)
sa 1747 src/class.c sa->initThunk = v;
sa 1750 src/class.c static ScmObj slot_accessor_slot_number(ScmSlotAccessor *sa)
sa 1752 src/class.c return SCM_MAKE_INT(sa->slotNumber);
sa 1755 src/class.c static void slot_accessor_slot_number_set(ScmSlotAccessor *sa, ScmObj val)
sa 1760 src/class.c sa->slotNumber = n;
sa 1763 src/class.c static ScmObj slot_accessor_initializable(ScmSlotAccessor *sa)
sa 1765 src/class.c return SCM_MAKE_BOOL(sa->initializable);
sa 1768 src/class.c static void slot_accessor_initializable_set(ScmSlotAccessor *sa, ScmObj v)
sa 1770 src/class.c sa->initializable = SCM_FALSEP(v)? FALSE : TRUE;
sa 1773 src/class.c static ScmObj slot_accessor_scheme_getter(ScmSlotAccessor *sa)
sa 1775 src/class.c return sa->schemeGetter;
sa 1778 src/class.c static void slot_accessor_scheme_getter_set(ScmSlotAccessor *sa, ScmObj p)
sa 1781 src/class.c sa->schemeGetter = p;
sa 1784 src/class.c static ScmObj slot_accessor_scheme_setter(ScmSlotAccessor *sa)
sa 1786 src/class.c return sa->schemeSetter;
sa 1789 src/class.c static void slot_accessor_scheme_setter_set(ScmSlotAccessor *sa, ScmObj p)
sa 1792 src/class.c sa->schemeSetter = p;
sa 1795 src/class.c static ScmObj slot_accessor_scheme_boundp(ScmSlotAccessor *sa)
sa 1797 src/class.c return sa->schemeBoundp;
sa 1800 src/class.c static void slot_accessor_scheme_boundp_set(ScmSlotAccessor *sa, ScmObj p)
sa 1803 src/class.c sa->schemeBoundp = p;
sa 2506 src/class.c ScmObj sa = Scm_GetKeyword(key_slot_accessor, initargs, SCM_FALSE);
sa 2508 src/class.c if (!SCM_SLOT_ACCESSOR_P(sa)) {
sa 2510 src/class.c sa);
sa 2513 src/class.c m->data = sa;