Home
last modified time | relevance | path

Searched refs:SG_CPP_CAT (Results 1 – 13 of 13) sorted by relevance

/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/
H A Dinstruction.c44 static InsnInfo SG_CPP_CAT(name, _INSN) = {#name, name, val, argc, src, label}; in Sg_LookupInsnName()
50 case name : info = & SG_CPP_CAT(name, _INSN); break; in Sg_LookupInsnName()
H A Dunicode.c647 const int size = array_sizeof(SG_CPP_CAT(s_, name)); \
650 if (SG_CPP_CAT(s_, name)[i].in == ch) { \
651 return (SgChar)(SG_CPP_CAT(s_, name)[i].out); \
666 const int size = array_sizeof(SG_CPP_CAT(s_, name)); \
669 if (SG_CPP_CAT(s_, name)[i].in == ch) { \
679 static int SG_CPP_CAT(name, _property_p) (SgChar ch) \
685 if (SG_CPP_CAT(s_, name)[i].in <= ch && \
686 SG_CPP_CAT(s_, name)[i].out <= ch) { \
926 const int size = array_sizeof(SG_CPP_CAT(s_, name)); \
928 if (ch < SG_CPP_CAT(s_, name)[0].in) return -1; \
[all …]
H A Dgc-incl.inc75 static void SG_CPP_CAT(type, _dumper)(void *data) { \
82 static void SG_CPP_CAT(type, _dumper)(void *data) { \
87 Sg_AddCleanupHandler(SG_CPP_CAT(type, _dumper), NULL)
H A Dcompare.c67 static SgObject SG_CPP_CAT(comparator_, field)(SgObject c) \
106 static SgObject SG_CPP_CAT(name, _proc)(SgObject *args, int argc, void *data) \
110 static SG_DEFINE_SUBR(SG_CPP_CAT(name, _proc_stub), 2, 0, \
111 SG_CPP_CAT(name, _proc), SG_FALSE, NULL);
121 static SgObject SG_CPP_CAT(name, _hash_proc) \ in DEF_EQ_PROC()
133 static SG_DEFINE_SUBR(SG_CPP_CAT(name, _hash_proc_stub), 1, 1, \
134 SG_CPP_CAT(name, _hash_proc), SG_FALSE, NULL);
H A Dcharset.c450 const int size_ = array_sizeof(SG_CPP_CAT(s_, name)); \ in install_charsets()
454 int32_t start = SG_CPP_CAT(s_, name)[i_].start; \ in install_charsets()
455 int32_t end = SG_CPP_CAT(s_, name)[i_].end; \ in install_charsets()
H A Dbytevector.c289 ret = (SG_CPP_CAT(gene, S))(value); \ in bytevector_ref()
292 ret = (SG_CPP_CAT(gene, U))(value); \ in bytevector_ref()
H A Dreader.c1971 #define SCHEME_OBJ(NAME) SG_CPP_CAT(NAME, _stub)
1972 #define STUB_NAME(NAME) SG_CPP_CAT(NAME, stub)
2247 (R)[(CH)].sfunc = SG_OBJ(&SG_CPP_CAT(FN, _stub)))
2253 (R)[(CH)].sfunc = SG_OBJ(&SG_CPP_CAT(FN, _stub)))
H A Dregex_match.c62 SG_CPP_CAT(Sg_RegexBinary, name)
93 SG_CPP_CAT(Sg_RegexText, name)
H A Dvm.c850 SgObject SG_CPP_CAT(Sg_, name)(SgObject o, SgObject e) \
2531 #define DEFINSN(insn, vals, argc, src, label) && SG_CPP_CAT(label_, insn), in run_loop()
H A Dbignum.c1042 SgObject SG_CPP_CAT(op, SI)(SgBignum *x, long y) \
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/sagittarius/private/
H A Dsagittariusdefs.h48 #define SG_CPP_CAT(a, b) a##b macro
H A Dexceptions.h345 static void SG_CPP_CAT(name, _set)(type *e, SgObject v) { \
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/os/win/
H A Dfile.c838 #define _U(s) SG_CPP_CAT(L, s)