m 28 examples/mqueue-cpp/mqueue.cpp Message m = q.top(); m 30 examples/mqueue-cpp/mqueue.cpp return m.getBody(); m 35 examples/mqueue-cpp/mqueue.cpp Message *m = new Message(body, urgency); m 36 examples/mqueue-cpp/mqueue.cpp q.push(*m); m 27 examples/mqueue-cpp/mqueue.h bool operator< (const Message& m) const { m 28 examples/mqueue-cpp/mqueue.h return urgency < m.urgency; m 61 examples/mqueue-cpp/mqueue.h bool operator< (const MQueue& m) const { return name < m.name; } m 131 ext/binary/binary.c #define CSWAP(buf, tmp, n, m) (tmp=buf[n], buf[n]=buf[m], buf[m]=tmp) m 163 ext/charconv/jconv.c unsigned char m, e1, e2; m 173 ext/charconv/jconv.c m = 1; m 177 ext/charconv/jconv.c m = 1; m 181 ext/charconv/jconv.c m = 2; m 185 ext/charconv/jconv.c m = 2; m 196 ext/charconv/jconv.c if (m == 1) { m 196 ext/mt-random/mt-random.c unsigned long m = (1UL<<START_BIT); m 198 ext/mt-random/mt-random.c if (n < m) { m 200 ext/mt-random/mt-random.c m >>= 1; m 202 ext/mt-random/mt-random.c if (n == m) return e; m 203 ext/mt-random/mt-random.c } while (e >= 0 && n < m); m 204 ext/mt-random/mt-random.c } else if (n > m) { m 206 ext/mt-random/mt-random.c m <<= 1; m 208 ext/mt-random/mt-random.c if (n == m) return e; m 209 ext/mt-random/mt-random.c } while (e < MAX_BIT && n > m); m 244 ext/mt-random/mt-random.c long m = SCM_INT_VALUE(n); m 245 ext/mt-random/mt-random.c if (m <= 0) goto err; m 246 ext/mt-random/mt-random.c return genrand_int_small(mt, m); m 173 ext/threads/mutex.c ScmObj m = mutex_allocate(SCM_CLASS_MUTEX, SCM_NIL); m 174 ext/threads/mutex.c SCM_MUTEX(m)->name = name; m 175 ext/threads/mutex.c return m; m 607 ext/uvector/uvector.c long k, v, m; m 608 ext/uvector/uvector.c m = x * y; m 609 ext/uvector/uvector.c SADDOV(k, v, acc, m); m 612 ext/uvector/uvector.c return m; m 622 ext/uvector/uvector.c long k, v, m; m 623 ext/uvector/uvector.c SMULOV(m, v, x, y); m 629 ext/uvector/uvector.c SADDOV(k, v, acc, m); m 632 ext/uvector/uvector.c return m; m 653 ext/uvector/uvector.c u_long k, v, m; m 654 ext/uvector/uvector.c m = x * y; m 655 ext/uvector/uvector.c UADDOV(k, v, acc, m); m 658 ext/uvector/uvector.c return m; m 668 ext/uvector/uvector.c u_long k, v, m; m 669 ext/uvector/uvector.c UMULOV(m, v, x, y); m 675 ext/uvector/uvector.c UADDOV(k, v, acc, m); m 678 ext/uvector/uvector.c return m; m 81 ext/uvector/uvinit.c ScmModule *m; m 85 ext/uvector/uvinit.c m = SCM_FIND_MODULE("gauche.uvector", SCM_FIND_MODULE_CREATE); m 86 ext/uvector/uvinit.c Scm_InitStaticClassWithMeta(&Scm_UVectorClass, "<uvector>", m, NULL, SCM_NIL, NULL, 0); m 87 ext/uvector/uvinit.c Scm_InitStaticClassWithMeta(&Scm_S8VectorClass, "<s8vector>", m, NULL, SCM_NIL, NULL, 0); m 88 ext/uvector/uvinit.c Scm_InitStaticClassWithMeta(&Scm_U8VectorClass, "<u8vector>", m, NULL, SCM_NIL, NULL, 0); m 89 ext/uvector/uvinit.c Scm_InitStaticClassWithMeta(&Scm_S16VectorClass, "<s16vector>", m, NULL, SCM_NIL, NULL, 0); m 90 ext/uvector/uvinit.c Scm_InitStaticClassWithMeta(&Scm_U16VectorClass, "<u16vector>", m, NULL, SCM_NIL, NULL, 0); m 91 ext/uvector/uvinit.c Scm_InitStaticClassWithMeta(&Scm_S32VectorClass, "<s32vector>", m, NULL, SCM_NIL, NULL, 0); m 92 ext/uvector/uvinit.c Scm_InitStaticClassWithMeta(&Scm_U32VectorClass, "<u32vector>", m, NULL, SCM_NIL, NULL, 0); m 93 ext/uvector/uvinit.c Scm_InitStaticClassWithMeta(&Scm_S64VectorClass, "<s64vector>", m, NULL, SCM_NIL, NULL, 0); m 94 ext/uvector/uvinit.c Scm_InitStaticClassWithMeta(&Scm_U64VectorClass, "<u64vector>", m, NULL, SCM_NIL, NULL, 0); m 95 ext/uvector/uvinit.c Scm_InitStaticClassWithMeta(&Scm_F32VectorClass, "<f32vector>", m, NULL, SCM_NIL, NULL, 0); m 96 ext/uvector/uvinit.c Scm_InitStaticClassWithMeta(&Scm_F64VectorClass, "<f64vector>", m, NULL, SCM_NIL, NULL, 0); m 98 ext/uvector/uvinit.c Scm_Init_uvlib(m); m 4 gc/include/leak_detector.h #define calloc(m,n) GC_MALLOC((m)*(n)) m 838 gc/reclaim.c register word m = n; m 841 gc/reclaim.c while (m > 0) { m 842 gc/reclaim.c if (m & 1) result++; m 843 gc/reclaim.c m >>= 1; m 943 src/bignum.c int j, k, n, m; m 967 src/bignum.c m = dividend->size*2 - n; m 970 src/bignum.c m = dividend->size*2 - n; m 978 src/bignum.c Scm_Printf(SCM_CUROUT, "shift=%d, n=%d, m=%d\n", d, n, m); m 984 src/bignum.c for (j = m; j >= 0; j--) { m 1014 src/class.c void Scm_AddDirectMethod(ScmClass *super, ScmMethod *m) m 1017 src/class.c ScmObj p = Scm_Cons(SCM_OBJ(m), SCM_NIL); m 1020 src/class.c if (SCM_FALSEP(Scm_Memq(super->directMethods, SCM_OBJ(m)))) { m 1029 src/class.c void Scm_DeleteDirectMethod(ScmClass *super, ScmMethod *m) m 1034 src/class.c Scm_DeleteX(SCM_OBJ(m), super->directMethods, SCM_CMP_EQ); m 1992 src/class.c ScmMethod *m = SCM_METHOD(SCM_CAR(mp)); m 1997 src/class.c if (nargs < m->common.required) continue; m 1998 src/class.c if (!m->common.optional && nargs > m->common.required) continue; m 1999 src/class.c for (ap = args, sp = m->specializers, n = 0; m 2000 src/class.c n < m->common.required; m 2004 src/class.c if (n == m->common.required) SCM_APPEND1(h, t, SCM_OBJ(m)); m 2163 src/class.c ScmMethod *m = SCM_METHOD(args[0]); m 2193 src/class.c m->common.required = req; m 2194 src/class.c m->common.optional = opt; m 2195 src/class.c m->common.info = Scm_Cons(g->common.info, m 2197 src/class.c m->generic = g; m 2198 src/class.c m->specializers = specarray; m 2199 src/class.c m->func = NULL; m 2200 src/class.c m->data = SCM_CLOSURE(body)->code; m 2201 src/class.c m->env = SCM_CLOSURE(body)->env; m 2212 src/class.c SCM_COMPILED_CODE(m->data)->name = Scm_Cons(SCM_PROCEDURE_INFO(g), h); m 2217 src/class.c Scm_AddDirectMethod(specarray[i], m); m 2219 src/class.c return SCM_OBJ(m); m 2235 src/class.c static ScmObj method_required(ScmMethod *m) m 2237 src/class.c return SCM_MAKE_INT(m->common.required); m 2240 src/class.c static ScmObj method_optional(ScmMethod *m) m 2242 src/class.c return SCM_MAKE_BOOL(m->common.optional); m 2245 src/class.c static ScmObj method_generic(ScmMethod *m) m 2247 src/class.c return m->generic ? SCM_OBJ(m->generic) : SCM_FALSE; m 2250 src/class.c static void method_generic_set(ScmMethod *m, ScmObj val) m 2253 src/class.c m->generic = SCM_GENERIC(val); m 2258 src/class.c static ScmObj method_specializers(ScmMethod *m) m 2260 src/class.c if (m->specializers) { m 2261 src/class.c return class_array_to_list(m->specializers, m->common.required); m 2267 src/class.c static void method_specializers_set(ScmMethod *m, ScmObj val) m 2270 src/class.c if (len != m->common.required) m 2273 src/class.c m->specializers = NULL; m 2275 src/class.c m->specializers = class_list_to_array(val, len); m 2293 src/class.c ScmObj Scm_UpdateDirectMethod(ScmMethod *m, ScmClass *old, ScmClass *newc) m 2295 src/class.c int i, rec = SCM_PROCEDURE_REQUIRED(m); m 2296 src/class.c ScmClass **sp = m->specializers; m 2300 src/class.c if (SCM_FALSEP(Scm_Memq(SCM_OBJ(m), newc->directMethods))) { m 2301 src/class.c newc->directMethods = Scm_Cons(SCM_OBJ(m), newc->directMethods); m 2303 src/class.c return SCM_OBJ(m); m 2504 src/class.c ScmMethod *m = SCM_METHOD(method_initialize(nm, args, nargs, data)); m 2513 src/class.c m->data = sa; m 2514 src/class.c switch (SCM_PROCEDURE_REQUIRED(m)) { m 2516 src/class.c m->func = accessor_get_proc; m 2519 src/class.c m->func = accessor_set_proc; m 2522 src/class.c Scm_Error("bad initialization parameter for accessor method %S", m); m 2524 src/class.c return SCM_OBJ(m); m 2537 src/class.c static ScmObj accessor_method_slot_accessor(ScmAccessorMethod *m) m 2539 src/class.c SCM_ASSERT(SCM_SLOT_ACCESSOR_P(m->data)); m 2540 src/class.c return SCM_OBJ(m->data); m 2543 src/class.c static void accessor_method_slot_accessor_set(ScmAccessorMethod *m, ScmObj v) m 2548 src/class.c m->data = v; m 2934 src/class.c void Scm_InitBuiltinMethod(ScmMethod *m) m 2936 src/class.c m->common.info = Scm_Cons(m->generic->common.info, m 2937 src/class.c class_array_to_names(m->specializers, m 2938 src/class.c m->common.required)); m 2939 src/class.c Scm_AddMethod(m->generic, m); m 165 src/gauche-config.c char *outfile, *m = NULL; m 175 src/gauche-config.c m = (char *)malloc(strlen(file)+1); m 176 src/gauche-config.c for (f = file, mm = m; *f; f++, mm++) { m 181 src/gauche-config.c module = m; m 212 src/gauche-config.c if (m) free(m); m 566 src/gauche.h ScmModule *m); m 2365 src/gauche.h SCM_EXTERN void Scm_InitBuiltinMethod(ScmMethod *m); m 144 src/gauche/class.h SCM_EXTERN void Scm_AddDirectMethod(ScmClass *super, ScmMethod *m); m 145 src/gauche/class.h SCM_EXTERN void Scm_RemoveDirectMethod(ScmClass *super, ScmMethod *m); m 150 src/gauche/class.h SCM_EXTERN void Scm_DeleteDirectMethod(ScmClass *super, ScmMethod *m); m 160 src/gauche/class.h SCM_EXTERN ScmObj Scm_UpdateDirectMethod(ScmMethod *m, m 1037 src/load.c ScmModule *m = Scm_FindModule(adata->import_from, m 1040 src/load.c if (m == NULL) { m 1044 src/load.c f = Scm_FindBinding(SCM_MODULE(m), adata->name, FALSE); m 1084 src/load.c ScmModule *m = Scm_SchemeModule(); m 1127 src/load.c SCM_DEFINE(m, "load-from-port", SCM_OBJ(&load_from_port_STUB)); m 1128 src/load.c SCM_DEFINE(m, "load", SCM_OBJ(&load_STUB)); m 1131 src/load.c rec = SCM_GLOC(Scm_Define(m, SCM_SYMBOL(sym), val)) m 111 src/module.c static void init_module(ScmModule *m, ScmSymbol *name) m 113 src/module.c m->name = name; m 114 src/module.c m->imported = m->exported = SCM_NIL; m 115 src/module.c m->exportAll = FALSE; m 116 src/module.c m->parents = defaultParents; m 117 src/module.c m->mpl = Scm_Cons(SCM_OBJ(m), defaultMpl); m 118 src/module.c m->table = SCM_HASH_TABLE(Scm_MakeHashTableSimple(SCM_HASH_EQ, 0)); m 124 src/module.c ScmModule *m; m 125 src/module.c m = SCM_NEW(ScmModule); m 126 src/module.c SCM_SET_CLASS(m, SCM_CLASS_MODULE); m 127 src/module.c init_module(m, name); m 128 src/module.c return SCM_OBJ(m); m 189 src/module.c ScmModule *m = module; m 205 src/module.c e = Scm_HashTableGet(m->table, SCM_OBJ(symbol)); m 229 src/module.c m = SCM_MODULE(SCM_CAR(mp)); m 230 src/module.c e = Scm_HashTableGet(m->table, SCM_OBJ(symbol)); m 239 src/module.c searched[num_searched++] = SCM_OBJ(m); m 241 src/module.c more_searched = Scm_Cons(SCM_OBJ(m), more_searched); m 250 src/module.c m = SCM_MODULE(SCM_CAR(mp)); m 251 src/module.c e = Scm_HashTableGet(m->table, SCM_OBJ(symbol)); m 470 src/module.c ScmModule *m; m 474 src/module.c m = lookup_module_create(name, &created); m 475 src/module.c SCM_ASSERT(m != NULL); m 476 src/module.c return m; m 478 src/module.c m = lookup_module(name); m 479 src/module.c if (m == NULL) { m 486 src/module.c return m; m 91 src/moplib.c ScmMethod *m; m 94 src/moplib.c m = SCM_METHOD(method); m 95 src/moplib.c if (m->func) SCM_RETURN(SCM_FALSE); m 96 src/moplib.c else SCM_RETURN(SCM_OBJ(m->data)); m 236 src/moplib.c ScmMethod* m; m 243 src/moplib.c m = SCM_METHOD(m_scm); m 245 src/moplib.c Scm_AddDirectMethod(super, m); m 258 src/moplib.c ScmMethod* m; m 265 src/moplib.c m = SCM_METHOD(m_scm); m 267 src/moplib.c Scm_DeleteDirectMethod(super, m); m 284 src/number.c double m; m 286 src/number.c m = fabs(Scm_GetDouble(z)); m 289 src/number.c m = 0.0; /* dummy */ m 293 src/number.c m = sqrt(r*r+i*i); m 295 src/number.c return Scm_MakeFlonum(m); m 2314 src/number.c ScmObj m, x, y, abs_d, d2; m 2316 src/number.c m = Scm_DecodeFlonum(z, &k, &s); m 2322 src/number.c y = Scm_Ash(m, k); m 2325 src/number.c y = Scm_Ash(Scm_Multiply2(m, iexpt10(-e)), k); m 2330 src/number.c y = m; m 2333 src/number.c y = Scm_Multiply2(m, iexpt10(-e)); m 2344 src/number.c d2 = Scm_Ash(Scm_Multiply2(m, abs_d), 1); m 2347 src/number.c if (Scm_NumCmp(m, SCM_2_52) == 0 m 2352 src/number.c return ldexp(Scm_GetDouble(m), k); m 2355 src/number.c if (!Scm_OddP(m)) { m 2356 src/number.c if (Scm_NumCmp(m, SCM_2_52) == 0 m 2360 src/number.c return ldexp(Scm_GetDouble(m), k); m 2372 src/number.c m = Scm_Subtract2(m, SCM_MAKE_INT(1)); m 2373 src/number.c if (k > -1074 && Scm_NumCmp(m, SCM_2_52) < 0) { m 2374 src/number.c m = Scm_Ash(m, 1); m 2379 src/number.c m = Scm_Add2(m, SCM_MAKE_INT(1)); m 2380 src/number.c if (Scm_NumCmp(m, SCM_2_53) >= 0) { m 2381 src/number.c m = Scm_Ash(m, -1); m 2390 src/number.c y = Scm_Ash(m, k); m 2392 src/number.c y = Scm_Ash(Scm_Multiply2(m, iexpt10(-e)), k); m 2403 src/number.c y = m; m 2406 src/number.c y = Scm_Multiply2(m, iexpt10(-e)); m 481 src/regexp.c ScmObj pos, m; m 526 src/regexp.c if (exact) m = SCM_FALSE; m 527 src/regexp.c else if (rep_max < 0) m = SCM_TRUE; m 528 src/regexp.c else m = SCM_MAKE_INT(rep_max); m 533 src/regexp.c return Scm_Cons(type, Scm_Cons(SCM_MAKE_INT(rep_min), m)); m 685 src/regexp.c ScmObj n = SCM_CADR(token), m = SCM_CDDR(token); m 691 src/regexp.c if (SCM_FALSEP(m)) { m 693 src/regexp.c } else if (SCM_TRUEP(m)) { m 700 src/regexp.c SCM_ASSERT(SCM_INTP(m)); m 701 src/regexp.c m_n = SCM_INT_VALUE(m)-SCM_INT_VALUE(n); m 17 src/test-arith.c void message(FILE *out, const char *m, int filler) m 20 src/test-arith.c fprintf(out, "%s", m); m 22 src/test-arith.c int len = 79 - strlen(m); m 12 src/test-vmstack.c void message(FILE *out, const char *m, int filler) m 15 src/test-vmstack.c fprintf(out, "%s", m); m 17 src/test-vmstack.c int len = 79 - strlen(m);