f 155 ext/digest/md5c.c ( w += f(x, y, z) + data, w = w<<s | w>>(32-s), w += x ) f 136 ext/digest/sha.c ( e += ROTL(5,a) + f(b, c, d) + k + data, b = ROTL(30, b) ) f 59 ext/fcntl/fcntl.c ScmSysFlock *f = SCM_NEW(ScmSysFlock); f 60 ext/fcntl/fcntl.c SCM_SET_CLASS(f, SCM_CLASS_SYS_FLOCK); f 61 ext/fcntl/fcntl.c memset(&f->lock, 0, sizeof(f->lock)); f 62 ext/fcntl/fcntl.c return SCM_OBJ(f); f 264 gc/backgraph.c per_object_func f = (per_object_func)fn; f 268 gc/backgraph.c f((ptr_t)(h -> hb_body + i), sz, descr); f 275 gc/backgraph.c GC_apply_to_all_blocks(per_object_helper, (word)f); f 350 gc/cord/cordbscs.c result = CORD_from_fn(f, (void *)sa, n); f 411 gc/cord/cordbscs.c register struct Function * f = &(((CordRep *)x) -> function); f 413 gc/cord/cordbscs.c (struct substr_args *)(f -> client_data); f 417 gc/cord/cordbscs.c n, f -> fn)); f 423 gc/cord/cordbscs.c register struct Function * f = &(((CordRep *)x) -> function); f 431 gc/cord/cordbscs.c c = (*(f -> fn))(j, f -> client_data); f 498 gc/cord/cordbscs.c register struct Function * f = &(((CordRep *)x) -> function); f 500 gc/cord/cordbscs.c register size_t lim = f -> len; f 503 gc/cord/cordbscs.c if ((*f1)((*(f -> fn))(j, f -> client_data), client_data)) { f 548 gc/cord/cordbscs.c register struct Function * f = &(((CordRep *)x) -> function); f 552 gc/cord/cordbscs.c if ((*f1)((*(f -> fn))(j, f -> client_data), client_data)) { f 773 gc/cord/cordbscs.c register struct Function * f = &(((CordRep *)leaf) -> function); f 776 gc/cord/cordbscs.c return ((*(f -> fn))(p[0].cur_pos - pe -> pe_start_pos, f -> client_data)); f 789 gc/cord/cordbscs.c register struct Function * f = &(((CordRep *)leaf) -> function); f 791 gc/cord/cordbscs.c register size_t end_pos = start_pos + f -> len; f 797 gc/cord/cordbscs.c register CORD_fn fn = f -> fn; f 798 gc/cord/cordbscs.c register void * client_data = f -> client_data; f 361 gc/cord/cordprnt.c if (result > 0) CORD_put(out, f); f 371 gc/cord/cordprnt.c if (result > 0) CORD_put(out, f); f 134 gc/cord/cordtest.c FILE *f; f 148 gc/cord/cordtest.c if ((f = fopen(FNAME1, "w")) == 0) ABORT("open failed"); f 149 gc/cord/cordtest.c if (CORD_put(z,f) == EOF) ABORT("CORD_put failed"); f 150 gc/cord/cordtest.c if (fclose(f) == EOF) ABORT("fclose failed"); f 165 gc/cord/cordtest.c if ((f = fopen(FNAME2, "w")) == 0) ABORT("2nd open failed"); f 168 gc/cord/cordtest.c if (fflush(f) != 0) ABORT("fflush failed"); f 170 gc/cord/cordtest.c if (CORD_put(x,f) == EOF) ABORT("CORD_put failed"); f 171 gc/cord/cordtest.c if (fclose(f) == EOF) ABORT("fclose failed"); f 266 gc/cord/cordxtra.c register FILE * f = (FILE *)client_data; f 268 gc/cord/cordxtra.c return(putc(c, f) == EOF); f 273 gc/cord/cordxtra.c register FILE * f = (FILE *)client_data; f 275 gc/cord/cordxtra.c return(fputs(s, f) == EOF); f 281 gc/cord/cordxtra.c if (CORD_iter5(x, 0, CORD_put_proc, CORD_batched_put_proc, f)) { f 448 gc/cord/cordxtra.c c = getc(f); f 456 gc/cord/cordxtra.c while ((c = getc(f)) == 0) count++; f 462 gc/cord/cordxtra.c (void) fclose(f); f 514 gc/cord/cordxtra.c FILE *f = state -> lf_file; f 520 gc/cord/cordxtra.c && fseek(f, line_start, SEEK_SET) != 0) { f 523 gc/cord/cordxtra.c if (fread(new_cache -> data, sizeof(char), LINE_SZ, f) f 577 gc/cord/cordxtra.c (void) fread(buf, 1, 1, f); f 578 gc/cord/cordxtra.c rewind(f); f 580 gc/cord/cordxtra.c state -> lf_file = f; f 593 gc/cord/cordxtra.c if (fseek(f, 0l, SEEK_END) != 0) { f 596 gc/cord/cordxtra.c if ((len = ftell(f)) < 0) { f 599 gc/cord/cordxtra.c rewind(f); f 600 gc/cord/cordxtra.c return(CORD_from_file_lazy_inner(f, (size_t)len)); f 609 gc/cord/cordxtra.c if (fseek(f, 0l, SEEK_END) != 0) { f 612 gc/cord/cordxtra.c if ((len = ftell(f)) < 0) { f 615 gc/cord/cordxtra.c rewind(f); f 617 gc/cord/cordxtra.c return(CORD_from_file_eager(f)); f 619 gc/cord/cordxtra.c return(CORD_from_file_lazy_inner(f, (size_t)len)); f 541 gc/cord/de.c FILE * f; f 544 gc/cord/de.c if ((f = fopen(arg_file_name, "rb")) == NULL) { f 547 gc/cord/de.c initial = CORD_from_file(f); f 16 gc/if_not_there.c FILE * f; f 21 gc/if_not_there.c if ((f = fopen(argv[1], "rb")) != 0 f 22 gc/if_not_there.c || (f = fopen(argv[1], "r")) != 0) { f 23 gc/if_not_there.c fclose(f); f 569 gc/include/gc.h GC_debug_register_finalizer(p, f, d, of, od) f 571 gc/include/gc.h GC_debug_register_finalizer_ignore_self(p, f, d, of, od) f 573 gc/include/gc.h GC_debug_register_finalizer_no_order(p, f, d, of, od) f 591 gc/include/gc.h GC_register_finalizer(p, f, d, of, od) f 593 gc/include/gc.h GC_register_finalizer_ignore_self(p, f, d, of, od) f 595 gc/include/gc.h GC_register_finalizer_no_order(p, f, d, of, od) f 44 gc/include/gc_typed.h # define GC_WORD_OFFSET(t, f) (offsetof(t,f)/sizeof(GC_word)) f 1847 gc/include/private/gc_priv.h # define GC_printf0(f) GC_printf(f, 0l, 0l, 0l, 0l, 0l, 0l) f 1848 gc/include/private/gc_priv.h # define GC_printf1(f,a) GC_printf(f, (long)a, 0l, 0l, 0l, 0l, 0l) f 1849 gc/include/private/gc_priv.h # define GC_printf2(f,a,b) GC_printf(f, (long)a, (long)b, 0l, 0l, 0l, 0l) f 1850 gc/include/private/gc_priv.h # define GC_printf3(f,a,b,c) GC_printf(f, (long)a, (long)b, (long)c, 0l, 0l, 0l) f 1851 gc/include/private/gc_priv.h # define GC_printf4(f,a,b,c,d) GC_printf(f, (long)a, (long)b, (long)c, \ f 1853 gc/include/private/gc_priv.h # define GC_printf5(f,a,b,c,d,e) GC_printf(f, (long)a, (long)b, (long)c, \ f 1855 gc/include/private/gc_priv.h # define GC_printf6(f,a,b,c,d,e,g) GC_printf(f, (long)a, (long)b, (long)c, \ f 1859 gc/include/private/gc_priv.h # define GC_err_printf0(f) GC_err_puts(f) f 1860 gc/include/private/gc_priv.h # define GC_err_printf1(f,a) GC_err_printf(f, (long)a, 0l, 0l, 0l, 0l, 0l) f 1861 gc/include/private/gc_priv.h # define GC_err_printf2(f,a,b) GC_err_printf(f, (long)a, (long)b, 0l, 0l, 0l, 0l) f 1862 gc/include/private/gc_priv.h # define GC_err_printf3(f,a,b,c) GC_err_printf(f, (long)a, (long)b, (long)c, \ f 1864 gc/include/private/gc_priv.h # define GC_err_printf4(f,a,b,c,d) GC_err_printf(f, (long)a, (long)b, \ f 1866 gc/include/private/gc_priv.h # define GC_err_printf5(f,a,b,c,d,e) GC_err_printf(f, (long)a, (long)b, \ f 1869 gc/include/private/gc_priv.h # define GC_err_printf6(f,a,b,c,d,e,g) GC_err_printf(f, (long)a, (long)b, \ f 958 gc/misc.c GC_tmp = fwrite((buf), 1, (len), (f)), \ f 959 gc/misc.c fflush(f), GC_tmp) f 961 gc/misc.c # define WRITE(f, buf, len) GC_write((f), (buf), (len)) f 979 gc/misc.c (void) sprintf(buf, format, a, b, c, d, e, f); f 991 gc/misc.c (void) sprintf(buf, format, a, b, c, d, e, f); f 204 gc/os_dep.c int f; f 221 gc/os_dep.c f = open("/proc/self/maps", O_RDONLY); f 222 gc/os_dep.c if (-1 == f) return 0; f 225 gc/os_dep.c result = GC_repeat_read(f, maps_buf, maps_buf_sz-1); f 229 gc/os_dep.c close(f); f 935 gc/os_dep.c int f; f 968 gc/os_dep.c f = open("/proc/self/stat", O_RDONLY); f 969 gc/os_dep.c if (f < 0 || STAT_READ(f, stat_buf, STAT_BUF_SIZE) < 2 * STAT_SKIP) { f 985 gc/os_dep.c close(f); f 137 gc/pthread_support.c # define WRAP_FUNC(f) __wrap_##f f 138 gc/pthread_support.c # define REAL_FUNC(f) __real_##f f 140 gc/pthread_support.c # define WRAP_FUNC(f) GC_##f f 142 gc/pthread_support.c # define REAL_FUNC(f) f f 144 gc/pthread_support.c # define REAL_FUNC(f) __d10_##f f 707 gc/pthread_support.c int f; f 714 gc/pthread_support.c f = open("/proc/stat", O_RDONLY); f 715 gc/pthread_support.c if (f < 0 || (len = STAT_READ(f, stat_buf, STAT_BUF_SIZE)) < 100) { f 726 gc/pthread_support.c close(f); f 610 gc/tests/test.c sexpr *f, *g, *h; f 641 gc/tests/test.c f = (sexpr *)GC_MALLOC(4 * sizeof(sexpr)); f 643 gc/tests/test.c f = (sexpr *)GC_REALLOC((GC_PTR)f, 6 * sizeof(sexpr)); f 644 gc/tests/test.c f[5] = ints(1,17); f 707 gc/tests/test.c check_ints(f[5], 1,17); f 240 gc/tests/test_cpp.cc F* f = new F; f 910 src/bignum.c ScmObj f = Scm_MakeFlonum(Scm_BignumToDouble(r)); f 911 src/bignum.c return Scm_Multiply(f, v, SCM_CDR(args)); f 340 src/extlib.c ScmObj f = Scm_DecodeFlonum(SCM_FLONUM_VALUE(num), &exp, &sign); f 342 src/extlib.c SCM_VECTOR_ELEMENT(v, 0) = f; f 173 src/gauche-config.c const char *f; f 176 src/gauche-config.c for (f = file, mm = m; *f; f++, mm++) { f 177 src/gauche-config.c if (isalnum(*f)) *mm = *f; f 288 src/hash.c ScmHashEntry **newb, *f; f 297 src/hash.c while ((f = Scm_HashIterNext(&iter)) != NULL) { f 298 src/hash.c unsigned long hashval = table->hashfn(table, f->key); f 300 src/hash.c f->next = newb[index]; f 301 src/hash.c newb[index] = f; f 416 src/load.c ScmObj r, f = SCM_MAKE_STR_COPYING(cpath); f 428 src/load.c r = Scm_Apply(SCM_OBJ(&load_STUB), Scm_Cons(f, options)); f 637 src/load.c ScmObj f = Scm_OpenFilePort(Scm_GetStringConst(lafile), f 644 src/load.c ScmObj line = Scm_ReadLineUnsafe(SCM_PORT(f)); f 660 src/load.c Scm_ClosePort(SCM_PORT(f)); f 1039 src/load.c ScmGloc *f, *g; f 1044 src/load.c f = Scm_FindBinding(SCM_MODULE(m), adata->name, FALSE); f 1046 src/load.c SCM_ASSERT(f != NULL); f 1048 src/load.c adata->value = SCM_GLOC_GET(f); f 134 src/number.c ScmFlonum *f = SCM_NEW(ScmFlonum); f 135 src/number.c SCM_SET_CLASS(f, SCM_CLASS_REAL); f 136 src/number.c f->value = d; f 137 src/number.c return SCM_OBJ(f); f 144 src/number.c double i, f; f 145 src/number.c f = modf(d, &i); f 146 src/number.c if (f == 0.0) { f 210 src/number.c ScmObj f; f 239 src/number.c f = Scm_MakeInteger(lf); f 249 src/number.c f = Scm_NormalizeBignum(SCM_BIGNUM(Scm_MakeBignumFromUIArray(1, values, 2))); f 252 src/number.c return f; f 663 src/number.c double f, i; f 664 src/number.c if ((f = modf(d, &i)) == 0.0) return TRUE; f 1952 src/number.c ScmObj f, r, s, mp, mm, q; f 1960 src/number.c f = Scm_DecodeFlonum(val, &exp, &sign); f 1961 src/number.c round = !Scm_OddP(f); f 1964 src/number.c if (Scm_NumCmp(f, SCM_2_52) != 0) { f 1965 src/number.c r = Scm_Ash(f, exp+1); f 1970 src/number.c r = Scm_Ash(f, exp+2); f 1976 src/number.c if (exp == -1023 || Scm_NumCmp(f, SCM_2_52) != 0) { f 1977 src/number.c r = Scm_Ash(f, 1); f 1982 src/number.c r = Scm_Ash(f, 2); f 2321 src/number.c x = Scm_Multiply2(f, iexpt10(e)); f 2324 src/number.c x = f; f 2329 src/number.c x = Scm_Ash(Scm_Multiply2(f, iexpt10(e)), -k); f 2332 src/number.c x = Scm_Ash(f, -k); f 2402 src/number.c if (k != kprev) x = Scm_Ash(Scm_Multiply2(f, iexpt10(e)), -k); f 2405 src/number.c if (k != kprev) x = Scm_Ash(f, -k);