s 216 ext/charconv/charconv.c ScmObj s = Scm_MakeString(info->buf+insize-inroom, cnt, cnt, s 218 ext/charconv/charconv.c Scm_Error("invalid character sequence in the input stream: %S ...", s); s 149 ext/charconv/convlib.c const char *s = Scm_GetStringContent(string, &size, NULL, NULL); s 151 ext/charconv/convlib.c s, size); s 1167 ext/charconv/jconv.c static int conv_name_match(const char *s, const char *t) s 1170 ext/charconv/jconv.c for (p=s, q=t; *p && *q; p++, q++) { s 154 ext/digest/md5c.c #define MD5STEP(f, w, x, y, z, data, s) \ s 155 ext/digest/md5c.c ( w += f(x, y, z) + data, w = w<<s | w>>(32-s), w += x ) s 27 ext/mt-random/mt-lib.c int i; unsigned long s = 0; s 29 ext/mt-random/mt-lib.c s ^= SCM_BIGNUM(init)->values[i]; s 31 ext/mt-random/mt-lib.c Scm_MTInitByUI(mt, s); s 70 ext/mt-random/mt-random.c void Scm_MTInitByUI(ScmMersenneTwister *mt, unsigned long s) s 73 ext/mt-random/mt-random.c mt->mt[0]= s & 0xffffffffUL; s 67 ext/mt-random/mt-random.h extern void Scm_MTInitByUI(ScmMersenneTwister *mt, unsigned long s); s 167 ext/net/gauche/net.h extern ScmObj Scm_SocketShutdown(ScmSocket *s, int how); s 168 ext/net/gauche/net.h extern ScmObj Scm_SocketClose(ScmSocket *s); s 170 ext/net/gauche/net.h extern ScmObj Scm_SocketInputPort(ScmSocket *s, int buffered); s 171 ext/net/gauche/net.h extern ScmObj Scm_SocketOutputPort(ScmSocket *s, int buffered); s 173 ext/net/gauche/net.h extern ScmObj Scm_SocketBind(ScmSocket *s, ScmSockAddr *addr); s 174 ext/net/gauche/net.h extern ScmObj Scm_SocketConnect(ScmSocket *s, ScmSockAddr *addr); s 175 ext/net/gauche/net.h extern ScmObj Scm_SocketListen(ScmSocket *s, int backlog); s 176 ext/net/gauche/net.h extern ScmObj Scm_SocketAccept(ScmSocket *s); s 178 ext/net/gauche/net.h extern ScmObj Scm_SocketGetSockName(ScmSocket *s); s 179 ext/net/gauche/net.h extern ScmObj Scm_SocketGetPeerName(ScmSocket *s); s 181 ext/net/gauche/net.h extern ScmObj Scm_SocketSend(ScmSocket *s, ScmString *msg, int flags); s 182 ext/net/gauche/net.h extern ScmObj Scm_SocketSendTo(ScmSocket *s, ScmString *msg, ScmSockAddr *to, int flags); s 183 ext/net/gauche/net.h extern ScmObj Scm_SocketRecv(ScmSocket *s, int bytes, int flags); s 184 ext/net/gauche/net.h extern ScmObj Scm_SocketRecvFrom(ScmSocket *s, int bytes, int flags); s 186 ext/net/gauche/net.h extern ScmObj Scm_SocketSetOpt(ScmSocket *s, int level, s 188 ext/net/gauche/net.h extern ScmObj Scm_SocketGetOpt(ScmSocket *s, int level, s 92 ext/net/net.c ScmSocket *s = SCM_NEW(ScmSocket); s 93 ext/net/net.c SCM_SET_CLASS(s, SCM_CLASS_SOCKET); s 94 ext/net/net.c s->fd = fd; s 95 ext/net/net.c s->status = SCM_SOCKET_STATUS_NONE; s 96 ext/net/net.c s->inPort = s->outPort = NULL; s 97 ext/net/net.c s->address = NULL; s 98 ext/net/net.c s->name = NULL; s 99 ext/net/net.c s->type = type; s 100 ext/net/net.c Scm_RegisterFinalizer(SCM_OBJ(s), socket_finalize, NULL); s 101 ext/net/net.c return s; s 112 ext/net/net.c ScmObj Scm_SocketShutdown(ScmSocket *s, int how) s 115 ext/net/net.c if (s->status != SCM_SOCKET_STATUS_CONNECTED) { s 118 ext/net/net.c SCM_SYSCALL(r, shutdown(s->fd, how)); s 120 ext/net/net.c Scm_SysError("socket shutdown failed for %S", SCM_OBJ(s)); s 122 ext/net/net.c s->status = SCM_SOCKET_STATUS_SHUTDOWN; s 126 ext/net/net.c ScmObj Scm_SocketClose(ScmSocket *s) s 128 ext/net/net.c if (s->status == SCM_SOCKET_STATUS_CLOSED) { s 133 ext/net/net.c if (s->inPort) Scm_ClosePort(s->inPort); /* ignore errors */ s 134 ext/net/net.c if (s->outPort) Scm_ClosePort(s->outPort); /* ignore errors */ s 135 ext/net/net.c closeSocket(s->fd); s 136 ext/net/net.c s->fd = INVALID_SOCKET; s 137 ext/net/net.c s->status = SCM_SOCKET_STATUS_CLOSED; s 383 ext/net/net.c ScmObj Scm_SocketSetOpt(ScmSocket *s, int level, int option, ScmObj value) s 386 ext/net/net.c if (SOCKET_CLOSED(s->fd)) { s 387 ext/net/net.c Scm_Error("attempt to set a socket option of a closed socket: %S", s); s 393 ext/net/net.c SCM_SYSCALL(r, setsockopt(s->fd, level, option, cvalue, size)); s 396 ext/net/net.c SCM_SYSCALL(r, setsockopt(s->fd, level, option, &v, sizeof(int))); s 404 ext/net/net.c ScmObj Scm_SocketGetOpt(ScmSocket *s, int level, int option, int rsize) s 408 ext/net/net.c if (SOCKET_CLOSED(s->fd)) { s 409 ext/net/net.c Scm_Error("attempt to get a socket option of a closed socket: %S", s); s 413 ext/net/net.c SCM_SYSCALL(r, getsockopt(s->fd, level, option, buf, &rrsize)); s 419 ext/net/net.c SCM_SYSCALL(r, getsockopt(s->fd, level, option, &val, &rrsize)); s 310 ext/termios/termiolib.c speed_t s; s 311 ext/termios/termiolib.c s = cfgetispeed(&term->term); s 312 ext/termios/termiolib.c SCM_RETURN(Scm_MakeInteger(s)); s 354 ext/termios/termiolib.c speed_t s; s 355 ext/termios/termiolib.c s = cfgetospeed(&term->term); s 356 ext/termios/termiolib.c SCM_RETURN(Scm_MakeInteger(s)); s 712 ext/uvector/uvector.c unsigned short s; s 716 ext/uvector/uvector.c dd.s = *loc; s 718 ext/uvector/uvector.c *loc = dd.s; s 9065 ext/uvector/uvlib.c static ScmObj string_to_bytevector(ScmClass *klass, ScmString *s, int start, int end) s 9068 ext/uvector/uvlib.c ss = Scm_GetStringContent(s, &size, &len, NULL); s 9071 ext/uvector/uvlib.c else sp = Scm_StringPosition(s, start); s 9073 ext/uvector/uvlib.c else ep = Scm_StringPosition(s, end); s 9081 ext/uvector/uvlib.c ScmString* s; s 9092 ext/uvector/uvlib.c s = SCM_STRING(s_scm); s 9108 ext/uvector/uvlib.c SCM_RETURN(string_to_bytevector(SCM_CLASS_S8VECTOR, s, start, end)); s 9118 ext/uvector/uvlib.c ScmString* s; s 9129 ext/uvector/uvlib.c s = SCM_STRING(s_scm); s 9145 ext/uvector/uvlib.c SCM_RETURN(string_to_bytevector(SCM_CLASS_U8VECTOR, s, start, end)); s 9152 ext/uvector/uvlib.c static ScmObj string_to_bytevectorX(ScmUVector *v, int tstart, ScmString *s, int start, int end) s 9159 ext/uvector/uvlib.c ss = Scm_GetStringContent(s, &size, &len, NULL); s 9162 ext/uvector/uvlib.c else sp = Scm_StringPosition(s, start); s 9164 ext/uvector/uvlib.c else ep = Scm_StringPosition(s, end); s 9181 ext/uvector/uvlib.c ScmString* s; s 9198 ext/uvector/uvlib.c s = SCM_STRING(s_scm); s 9214 ext/uvector/uvlib.c SCM_RETURN(string_to_bytevectorX(SCM_UVECTOR(v), tstart, s, start, end)); s 9228 ext/uvector/uvlib.c ScmString* s; s 9245 ext/uvector/uvlib.c s = SCM_STRING(s_scm); s 9261 ext/uvector/uvlib.c SCM_RETURN(string_to_bytevectorX(SCM_UVECTOR(v), tstart, s, start, end)); s 9349 ext/uvector/uvlib.c static ScmObj string_to_wordvector(ScmClass *klass, ScmString *s, int start, int end) s 9353 ext/uvector/uvlib.c ss = Scm_GetStringContent(s, &size, &len, NULL); s 9356 ext/uvector/uvlib.c else sp = Scm_StringPosition(s, start); s 9358 ext/uvector/uvlib.c else ep = Scm_StringPosition(s, end); s 9372 ext/uvector/uvlib.c ScmString* s; s 9383 ext/uvector/uvlib.c s = SCM_STRING(s_scm); s 9399 ext/uvector/uvlib.c SCM_RETURN(string_to_wordvector(SCM_CLASS_S32VECTOR, s, start, end)); s 9409 ext/uvector/uvlib.c ScmString* s; s 9420 ext/uvector/uvlib.c s = SCM_STRING(s_scm); s 9436 ext/uvector/uvlib.c SCM_RETURN(string_to_wordvector(SCM_CLASS_U32VECTOR, s, start, end)); s 9446 ext/uvector/uvlib.c ScmObj s = Scm_MakeOutputStringPort(FALSE); s 9452 ext/uvector/uvlib.c Scm_PutcUnsafe(ch, SCM_PORT(s)); s 9454 ext/uvector/uvlib.c SCM_RETURN(Scm_GetOutputStringUnsafe(SCM_PORT(s))); s 167 ext/vport/vport.c ScmObj s = Scm_Apply(data->gets_proc, SCM_LIST1(SCM_MAKE_INT(buflen))); s 168 ext/vport/vport.c if (!SCM_STRINGP(s)) return EOF; s 169 ext/vport/vport.c start = Scm_GetStringContent(SCM_STRING(s), &size, NULL, NULL); s 199 ext/vport/vport.c ScmObj s = Scm_Apply(data->ready_proc, s 201 ext/vport/vport.c return !SCM_FALSEP(s); s 284 ext/vport/vport.c static void vport_puts(ScmString *s, ScmPort *p) s 287 ext/vport/vport.c const ScmStringBody *b = SCM_STRING_BODY(s); s 291 ext/vport/vport.c Scm_Apply(data->puts_proc, SCM_LIST1(SCM_OBJ(s))); s 564 ext/vport/vport.c ScmObj s = Scm_Apply(data->ready_proc, SCM_NIL); s 565 ext/vport/vport.c return SCM_FALSEP(s)? SCM_FD_WOULDBLOCK:SCM_FD_READY; s 583 ext/vport/vport.c ScmObj s = Scm_Apply(data->filenum_proc, SCM_NIL); s 584 ext/vport/vport.c if (SCM_INTP(s)) return SCM_INT_VALUE(s); s 165 gc/backgraph.c #define FOR_EACH_PRED(q, p, s) \ s 169 gc/backgraph.c if (q && !((word)q & 1)) s \ s 181 gc/backgraph.c q = be_ -> edges[local_]; s \ s 82 gc/cord/cordbscs.c #define IS_CONCATENATION(s) (((CordRep *)s)->generic.header == CONCAT_HDR) s 84 gc/cord/cordbscs.c #define IS_FUNCTION(s) ((((CordRep *)s)->generic.header & FN_HDR) != 0) s 86 gc/cord/cordbscs.c #define IS_SUBSTR(s) (((CordRep *)s)->generic.header == SUBSTR_HDR) s 88 gc/cord/cordbscs.c #define LEN(s) (((CordRep *)s) -> generic.len) s 89 gc/cord/cordbscs.c #define DEPTH(s) (((CordRep *)s) -> generic.depth) s 90 gc/cord/cordbscs.c #define GEN_LEN(s) (CORD_IS_STRING(s) ? strlen(s) : LEN(s)) s 203 gc/cord/cordtest.c short s; s 210 gc/cord/cordtest.c if (CORD_sprintf(&result, "%-7.2s%hn%c%s", "abcd", &s, 'x', "yz") != 10) s 213 gc/cord/cordtest.c if (s != 7) ABORT("CORD_sprintf goofed 4"); s 105 gc/cord/cordxtra.c int CORD_batched_fill_proc(const char * s, void * client_data) s 111 gc/cord/cordxtra.c register const char * t = s; s 235 gc/cord/cordxtra.c CORD CORD_from_char_star(const char *s) s 238 gc/cord/cordxtra.c size_t len = strlen(s); s 243 gc/cord/cordxtra.c memcpy(result, s, len+1); s 271 gc/cord/cordxtra.c int CORD_batched_put_proc(const char * s, void * client_data) s 275 gc/cord/cordxtra.c return(fputs(s, f) == EOF); s 311 gc/cord/cordxtra.c int CORD_batched_chr_proc(const char *s, void * client_data) s 314 gc/cord/cordxtra.c register char * occ = strchr(s, d -> target); s 317 gc/cord/cordxtra.c d -> pos += strlen(s); s 320 gc/cord/cordxtra.c d -> pos += occ - s; s 357 gc/cord/cordxtra.c size_t CORD_str(CORD x, size_t start, CORD s) s 372 gc/cord/cordxtra.c if (s == CORD_EMPTY) return(start); s 373 gc/cord/cordxtra.c if (CORD_IS_STRING(s)) { s 374 gc/cord/cordxtra.c s_start = s; s 375 gc/cord/cordxtra.c slen = strlen(s); s 377 gc/cord/cordxtra.c s_start = CORD_to_char_star(CORD_substr(s, 0, sizeof(unsigned long))); s 378 gc/cord/cordxtra.c slen = CORD_len(s); s 397 gc/cord/cordxtra.c s, start_len, slen - start_len) == 0) { s 413 gc/cord/cordxtra.c char * s; s 416 gc/cord/cordxtra.c s = GC_MALLOC_ATOMIC(len+1); s 417 gc/cord/cordxtra.c memcpy(s, x[0].ec_buf, len); s 418 gc/cord/cordxtra.c s[len] = '\0'; s 419 gc/cord/cordxtra.c x[0].ec_cord = CORD_cat_char_star(x[0].ec_cord, s, len); s 423 gc/cord/cordxtra.c void CORD_ec_append_cord(CORD_ec x, CORD s) s 426 gc/cord/cordxtra.c x[0].ec_cord = CORD_cat(x[0].ec_cord, s); s 64 gc/cord/de.c # define de_error(s) { fprintf(stderr, s); getchar(); } s 69 gc/cord/de.c # define de_error(s) { fprintf(stderr, s); sleep(2); } s 181 gc/cord/de.c void add_hist(CORD s) s 185 gc/cord/de.c new_file -> file_contents = current = s; s 186 gc/cord/de.c current_len = CORD_len(s); s 208 gc/cord/de.c void replace_line(int i, CORD s) s 212 gc/cord/de.c size_t len = CORD_len(s); s 221 gc/cord/de.c s = CORD_substr(s, 0, CORD_len(s) - 1); s 224 gc/cord/de.c if (CORD_cmp(screen[i], s) != 0) { s 227 gc/cord/de.c CORD_FOR (p, s) { s 235 gc/cord/de.c screen[i] = s; s 239 gc/cord/de.c # define replace_line(i,s) invalidate_line(i) s 244 gc/cord/de.c CORD retrieve_line(CORD s, size_t pos, unsigned column) s 246 gc/cord/de.c CORD candidate = CORD_substr(s, pos, column + COLS); s 254 gc/cord/de.c return(CORD_substr(s, pos + column, len)); s 39 gc/cord/de_win.c void de_error(char *s) s 41 gc/cord/de_win.c MessageBox( hwnd, (LPSTR) s, s 102 gc/cord/de_win.h void de_error(char *s); s 481 gc/dbg_mlc.c GC_PTR GC_debug_malloc(lb, s, i) s 483 gc/dbg_mlc.c char * s; s 495 gc/dbg_mlc.c GC_err_puts(s); s 503 gc/dbg_mlc.c return (GC_store_debug_info(result, (word)lb, s, (word)i)); s 509 gc/dbg_mlc.c GC_PTR GC_debug_malloc_ignore_off_page(lb, s, i) s 511 gc/dbg_mlc.c char * s; s 523 gc/dbg_mlc.c GC_err_puts(s); s 531 gc/dbg_mlc.c return (GC_store_debug_info(result, (word)lb, s, (word)i)); s 537 gc/dbg_mlc.c GC_PTR GC_debug_malloc_atomic_ignore_off_page(lb, s, i) s 539 gc/dbg_mlc.c char * s; s 551 gc/dbg_mlc.c GC_err_puts(s); s 559 gc/dbg_mlc.c return (GC_store_debug_info(result, (word)lb, s, (word)i)); s 603 gc/dbg_mlc.c GC_PTR GC_debug_malloc_stubborn(lb, s, i) s 605 gc/dbg_mlc.c char * s; s 614 gc/dbg_mlc.c GC_err_puts(s); s 622 gc/dbg_mlc.c return (GC_store_debug_info(result, (word)lb, s, (word)i)); s 670 gc/dbg_mlc.c GC_PTR GC_debug_malloc_stubborn(lb, s, i) s 672 gc/dbg_mlc.c char * s; s 676 gc/dbg_mlc.c return GC_debug_malloc(lb, OPT_RA s, i); s 694 gc/dbg_mlc.c GC_PTR GC_debug_malloc_atomic(lb, s, i) s 696 gc/dbg_mlc.c char * s; s 705 gc/dbg_mlc.c GC_err_puts(s); s 713 gc/dbg_mlc.c return (GC_store_debug_info(result, (word)lb, s, (word)i)); s 719 gc/dbg_mlc.c GC_PTR GC_debug_malloc_uncollectable(lb, s, i) s 721 gc/dbg_mlc.c char * s; s 730 gc/dbg_mlc.c GC_err_puts(s); s 738 gc/dbg_mlc.c return (GC_store_debug_info(result, (word)lb, s, (word)i)); s 745 gc/dbg_mlc.c GC_PTR GC_debug_malloc_atomic_uncollectable(lb, s, i) s 747 gc/dbg_mlc.c char * s; s 758 gc/dbg_mlc.c GC_err_puts(s); s 766 gc/dbg_mlc.c return (GC_store_debug_info(result, (word)lb, s, (word)i)); s 847 gc/dbg_mlc.c GC_PTR GC_debug_realloc(p, lb, s, i) s 850 gc/dbg_mlc.c char *s; s 861 gc/dbg_mlc.c if (p == 0) return(GC_debug_malloc(lb, OPT_RA s, i)); s 877 gc/dbg_mlc.c result = GC_debug_malloc_stubborn(lb, OPT_RA s, i); s 881 gc/dbg_mlc.c result = GC_debug_malloc(lb, OPT_RA s, i); s 884 gc/dbg_mlc.c result = GC_debug_malloc_atomic(lb, OPT_RA s, i); s 887 gc/dbg_mlc.c result = GC_debug_malloc_uncollectable(lb, OPT_RA s, i); s 891 gc/dbg_mlc.c result = GC_debug_malloc_atomic_uncollectable(lb, OPT_RA s, i); s 203 gc/gcj_mlc.c GC_err_puts(s); s 213 gc/gcj_mlc.c return (GC_store_debug_info(result, (word)lb, s, (word)i)); s 264 gc/gcj_mlc.c GC_err_puts(s); s 274 gc/gcj_mlc.c return (GC_store_debug_info(result, (word)lb, s, (word)i)); s 75 gc/include/cord.h #define CORD_IS_STRING(s) (*(s) != '\0') s 122 gc/include/cord.h typedef int (* CORD_batched_iter_fn)(const char * s, void * client_data); s 224 gc/include/cord.h size_t CORD_str(CORD x, size_t start, CORD s); s 265 gc/include/cord.h CORD CORD_from_char_star(const char *s); s 68 gc/include/ec.h void CORD_ec_append_cord(CORD_ec x, CORD s); s 514 gc/include/gc.h # define GC_EXTRA_PARAMS GC_word ra, GC_CONST char * s, int i s 517 gc/include/gc.h # define GC_EXTRA_PARAMS GC_CONST char * s, int i s 103 gc/include/gc_gcj.h # define GC_GCJ_MALLOC(s,d) GC_debug_gcj_malloc(s,d,GC_EXTRAS) s 104 gc/include/gc_gcj.h # define GC_GCJ_FAST_MALLOC(s,d) GC_debug_gcj_fast_malloc(s,d,GC_EXTRAS) s 105 gc/include/gc_gcj.h # define GC_GCJ_MALLOC_IGNORE_OFF_PAGE(s,d) GC_debug_gcj_malloc(s,d,GC_EXTRAS) s 107 gc/include/gc_gcj.h # define GC_GCJ_MALLOC(s,d) GC_gcj_malloc(s,d) s 108 gc/include/gc_gcj.h # define GC_GCJ_FAST_MALLOC(s,d) GC_gcj_fast_malloc(s,d) s 109 gc/include/gc_gcj.h # define GC_GCJ_MALLOC_IGNORE_OFF_PAGE(s,d) \ s 110 gc/include/gc_gcj.h GC_gcj_malloc_ignore_off_page(s,d) s 65 gc/include/gc_local_alloc.h # define GC_LOCAL_MALLOC(s) GC_debug_malloc(s,GC_EXTRAS) s 66 gc/include/gc_local_alloc.h # define GC_LOCAL_MALLOC_ATOMIC(s) GC_debug_malloc_atomic(s,GC_EXTRAS) s 68 gc/include/gc_local_alloc.h # define GC_LOCAL_GCJ_MALLOC(s,d) GC_debug_gcj_malloc(s,d,GC_EXTRAS) s 71 gc/include/gc_local_alloc.h # define GC_LOCAL_MALLOC(s) GC_local_malloc(s) s 72 gc/include/gc_local_alloc.h # define GC_LOCAL_MALLOC_ATOMIC(s) GC_local_malloc_atomic(s) s 74 gc/include/gc_local_alloc.h # define GC_LOCAL_GCJ_MALLOC(s,d) GC_local_gcj_malloc(s,d) s 80 gc/include/gc_local_alloc.h # define GC_MALLOC(s) GC_LOCAL_MALLOC(s) s 82 gc/include/gc_local_alloc.h # define GC_MALLOC_ATOMIC(s) GC_LOCAL_MALLOC_ATOMIC(s) s 85 gc/include/gc_local_alloc.h # define GC_GCJ_MALLOC(s,d) GC_LOCAL_GCJ_MALLOC(s,d) s 428 gc/include/private/gc_priv.h # define ABORT(s) PCR_Base_Panic(s) s 1874 gc/include/private/gc_priv.h void GC_err_puts GC_PROTO((GC_CONST char *s)); s 365 gc/malloc.c char *strdup(const char *s) s 367 gc/malloc.c char *strdup(s) s 368 gc/malloc.c char *s; s 371 gc/malloc.c size_t len = strlen(s) + 1; s 373 gc/malloc.c BCOPY(s, result, len+1); s 996 gc/misc.c void GC_err_puts(s) s 997 gc/misc.c GC_CONST char *s; s 999 gc/misc.c if (WRITE(GC_stderr, s, strlen(s)) < 0) ABORT("write to stderr failed"); s 533 gc/solaris_threads.c register struct stack_head *s; s 541 gc/solaris_threads.c for (s = GC_stack_free_lists[i]; s != 0; s = s->next) { s 542 gc/solaris_threads.c p = s->base; s 314 gc/win32_threads.c # define GC_get_stack_min(s) \ s 315 gc/win32_threads.c ((ptr_t)(((DWORD)(s) - 1) & 0xFFFF0000)) s 317 gc/win32_threads.c static ptr_t GC_get_stack_min(ptr_t s) s 321 gc/win32_threads.c VirtualQuery(s, &info, sizeof(info)); s 414 gc/win32_threads.c char * s = (char *)thread_table[i].stack_base; s 416 gc/win32_threads.c if (0 != s && s > start && s < current_min) { s 417 gc/win32_threads.c current_min = s; s 128 src/builtin-syms.c #define ENTRY(s) \ s 130 src/builtin-syms.c SCM_STRING(s) } s 247 src/builtin-syms.c #define INTERN(s, i) \ s 248 src/builtin-syms.c Scm_HashTablePut(obtable, s, SCM_OBJ(&Scm_BuiltinSymbols[i])) s 763 src/class.c ScmObj s = SCM_INTERN(name); s 794 src/class.c meta->name = s; s 800 src/class.c Scm_Define(mod, SCM_SYMBOL(s), SCM_OBJ(meta)); s 2568 src/class.c ScmObj s = SCM_INTERN(name); s 2571 src/class.c fp->name = s; s 2577 src/class.c Scm_Define(mod, SCM_SYMBOL(s), SCM_OBJ(fp)); s 2925 src/class.c ScmObj s = SCM_INTERN(name); s 2926 src/class.c gf->common.info = s; s 2931 src/class.c Scm_Define(mod, SCM_SYMBOL(s), SCM_OBJ(gf)); s 143 src/code.c ScmObj info, s; s 204 src/code.c s = Scm_GetOutputStringUnsafe(out); s 206 src/code.c Scm_Puts(SCM_STRING(s), SCM_CUROUT); s 209 src/code.c int len = SCM_STRING_BODY_SIZE(SCM_STRING_BODY(s)); s 212 src/code.c Scm_Puts(SCM_STRING(s), SCM_CUROUT); s 108 src/compaux.c ScmSyntacticClosure *s = SCM_NEW(ScmSyntacticClosure); s 109 src/compaux.c SCM_SET_CLASS(s, SCM_CLASS_SYNTACTIC_CLOSURE); s 110 src/compaux.c s->env = env; s 111 src/compaux.c s->literals = literals; s 112 src/compaux.c s->expr = expr; s 113 src/compaux.c return SCM_OBJ(s); s 1743 src/extlib.c char *s; s 1745 src/extlib.c s = SCM_NEW_ATOMIC2(char *, size); s 1746 src/extlib.c memset(s, byte, size); s 1747 src/extlib.c SCM_RETURN(Scm_MakeString(s, size, size, SCM_MAKSTR_INCOMPLETE)); s 1970 src/extlib.c ScmString* s; s 1976 src/extlib.c s = SCM_STRING(s_scm); s 1983 src/extlib.c SCM_RESULT = Scm_StringSplitByChar(s, ch); s 3323 src/extlib.c ScmObj scmflusher, s; s 3325 src/extlib.c s = Scm_MakeString(p->src.buf.buffer, cnt, cnt, SCM_MAKSTR_INCOMPLETE|SCM_MAKSTR_COPYING); s 3326 src/extlib.c Scm_Apply(scmflusher, SCM_LIST1(s)); s 5068 src/extlib.c ScmSymbol *s = NULL; s 5069 src/extlib.c if (SCM_SYMBOLP(name)) s = SCM_SYMBOL(name); s 5070 src/extlib.c else if (SCM_IDENTIFIERP(name)) s = SCM_IDENTIFIER(name)->name; s 5072 src/extlib.c SCM_RESULT = Scm_ModuleNameToPath(s); s 1089 src/gauche.h SCM_EXTERN ScmObj Scm_StringAppendC(ScmString *x, const char *s, int size, s 1336 src/gauche.h void (*Puts)(ScmString *s, ScmPort *p); s 1516 src/gauche.h SCM_EXTERN void Scm_Puts(ScmString *s, ScmPort *port); s 1517 src/gauche.h SCM_EXTERN void Scm_Putz(const char *s, int len, ScmPort *port); s 1522 src/gauche.h SCM_EXTERN void Scm_PutsUnsafe(ScmString *s, ScmPort *port); s 1523 src/gauche.h SCM_EXTERN void Scm_PutzUnsafe(const char *s, int len, ScmPort *port); s 1557 src/gauche.h #define SCM_PUTZ(s, l, p) Scm_Putz(s, l, SCM_PORT(p)) s 1558 src/gauche.h #define SCM_PUTS(s, p) Scm_Puts(SCM_STRING(s), SCM_PORT(p)) s 387 src/hash.c const char *s; s 397 src/hash.c s = SCM_STRING_BODY_START(keyb); s 399 src/hash.c STRING_HASH(hashval, s, size); s 596 src/load.c const char *head, *tail, *s; s 607 src/load.c for (s = head, d = name + sizeof(DYNLOAD_PREFIX) - 1; s < tail; s++, d++) { s 608 src/load.c if (isalnum(*s)) *d = tolower(*s); s 63 src/macro.c ScmSyntax *s = SCM_NEW(ScmSyntax); s 64 src/macro.c SCM_SET_CLASS(s, SCM_CLASS_SYNTAX); s 65 src/macro.c s->name = name; s 66 src/macro.c s->handler = handler; s 67 src/macro.c return SCM_OBJ(s); s 84 src/macro.c ScmMacro *s = SCM_NEW(ScmMacro); s 85 src/macro.c SCM_SET_CLASS(s, SCM_CLASS_MACRO); s 86 src/macro.c s->name = name; s 87 src/macro.c s->transformer = transformer; s 88 src/macro.c s->data = data; s 89 src/macro.c return SCM_OBJ(s); s 367 src/module.c ScmSymbol *s; s 387 src/module.c s = SCM_SYMBOL(SCM_CAR(lp)); s 388 src/module.c e = Scm_HashTableAdd(module->table, SCM_OBJ(s), SCM_UNBOUND); s 392 src/module.c syms = Scm_Cons(SCM_OBJ(s), syms); s 396 src/module.c g = SCM_GLOC(Scm_MakeGloc(s, module)); s 399 src/module.c syms = Scm_Cons(SCM_OBJ(s), syms); s 1952 src/number.c ScmObj f, r, s, mp, mm, q; s 1966 src/number.c s = SCM_MAKE_INT(2); s 1971 src/number.c s = SCM_MAKE_INT(4); s 1978 src/number.c s = Scm_Ash(SCM_MAKE_INT(1), -exp+1); s 1983 src/number.c s = Scm_Ash(SCM_MAKE_INT(1), -exp+2); s 1992 src/number.c s = Scm_Multiply2(s, iexpt10(est)); s 2000 src/number.c if (Scm_NumCmp(r, s) >= 0) { s 2005 src/number.c fixup = (numcmp3(r, mp, s) >= 0); s 2007 src/number.c fixup = (numcmp3(r, mp, s) > 0); s 2011 src/number.c s = Scm_Multiply2(s, SCM_MAKE_INT(10)); s 2037 src/number.c q = Scm_Quotient(r10, s, &r); s 2047 src/number.c tc2 = (numcmp3(r, mp, s) >= 0); s 2050 src/number.c tc2 = (numcmp3(r, mp, s) > 0); s 2066 src/number.c tc3 = numcmp3(r, r, s); /* r*2 <=> s */ s 2099 src/number.c ScmObj s = Scm_NumberToString(obj, 10, FALSE); s 2100 src/number.c SCM_PUTS(SCM_STRING(s), port); s 2315 src/number.c int k, s, kprev, sign_d; s 2316 src/number.c m = Scm_DecodeFlonum(z, &k, &s); s 903 src/port.c const char *s = Scm_GetStringContent(str, &size, NULL, NULL); s 904 src/port.c p->src.istr.start = s; s 905 src/port.c p->src.istr.current = s; s 906 src/port.c p->src.istr.end = s + size; s 1003 src/port.c static void null_puts(ScmString *s, ScmPort *dummy) s 1070 src/port.c const char *s; s 1098 src/port.c for (s = buf;*buf;buf++) { s 1103 src/port.c if (s == buf) goto comment; s 1109 src/port.c if (buf-s > 5 && (strncmp(buf-5, "-unix", 5) == 0)) { s 1111 src/port.c } else if (buf-s > 4 && (strncmp(buf-4, "-dos", 4) == 0 s 1117 src/port.c encoding = SCM_NEW_ATOMIC2(char*, buf-s+1); s 1118 src/port.c memcpy(encoding, s, buf-s); s 1119 src/port.c encoding[buf-s] = '\0'; s 189 src/portapi.c void Scm_Puts(ScmString *s, ScmPort *p) s 191 src/portapi.c void Scm_PutsUnsafe(ScmString *s, ScmPort *p) s 195 src/portapi.c SHORTCUT(p, Scm_PutsUnsafe(s, p); return); s 202 src/portapi.c const char *ss = Scm_GetStringContent(s, &size, NULL, NULL); s 220 src/portapi.c Scm_DStringAdd(&p->src.ostr, s); s 224 src/portapi.c SAFE_CALL(p, p->src.vt.Puts(s, p)); s 239 src/portapi.c void Scm_Putz(const char *s, int siz, ScmPort *p) s 241 src/portapi.c void Scm_PutzUnsafe(const char *s, int siz, ScmPort *p) s 245 src/portapi.c SHORTCUT(p, Scm_PutzUnsafe(s, siz, p); return); s 248 src/portapi.c if (siz < 0) siz = strlen(s); s 251 src/portapi.c SAFE_CALL(p, bufport_write(p, s, siz)); s 266 src/portapi.c Scm_DStringPutz(&p->src.ostr, s, siz); s 270 src/portapi.c SAFE_CALL(p, p->src.vt.Putz(s, siz, p)); s 96 src/proc.c ScmSubr *s = SCM_NEW(ScmSubr); s 97 src/proc.c SCM_SET_CLASS(s, SCM_CLASS_PROCEDURE); s 98 src/proc.c SCM_PROCEDURE_INIT(s, required, optional, SCM_PROC_SUBR, info); s 99 src/proc.c s->func = func; s 100 src/proc.c s->data = data; s 101 src/proc.c return SCM_OBJ(s); s 134 src/read.c ScmObj s = SCM_MAKE_STR_IMMUTABLE(cstr); s 135 src/read.c ScmObj inp = Scm_MakeInputStringPort(SCM_STRING(s), TRUE); s 878 src/read.c ScmString *s = SCM_STRING(read_word(port, initial, ctx, FALSE)); s 879 src/read.c return Scm_Intern(s); s 884 src/read.c ScmString *s = SCM_STRING(read_word(port, initial, ctx, FALSE)); s 885 src/read.c ScmObj num = Scm_StringToNumber(s, 10, TRUE); s 887 src/read.c Scm_ReadError(port, "bad numeric format: %S", s); s 893 src/read.c ScmString *s = SCM_STRING(read_word(port, initial, ctx, FALSE)); s 894 src/read.c ScmObj num = Scm_StringToNumber(s, 10, TRUE); s 896 src/read.c return Scm_Intern(s); s 903 src/read.c ScmString *s = SCM_STRING(read_word(port, SCM_CHAR_INVALID, ctx, FALSE)); s 904 src/read.c return Scm_MakeKeyword(s); s 918 src/read.c ScmString *s = SCM_STRING(Scm_DStringGet(&ds, 0)); s 919 src/read.c return Scm_Intern(s); s 2043 src/regexp.c ScmObj s = Scm_MakeString(sub->startp, sub->endp - sub->startp, -1, 0); s 2044 src/regexp.c sub->length = SCM_STRING_BODY_LENGTH(SCM_STRING_BODY(s)); s 2045 src/regexp.c return s; s 331 src/signal.c ScmSysSigset *s = SCM_ALLOCATE(ScmSysSigset, klass); s 332 src/signal.c SCM_SET_CLASS(s, klass); s 333 src/signal.c sigemptyset(&s->set); s 334 src/signal.c return SCM_OBJ(s); s 355 src/signal.c ScmObj s = SCM_CAR(cp); s 356 src/signal.c if (SCM_TRUEP(s)) { s 361 src/signal.c if (SCM_SYS_SIGSET_P(s)) { s 362 src/signal.c sigset_op(&set->set, &SCM_SYS_SIGSET(s)->set, delp); s 365 src/signal.c if (!SCM_INTP(s) || !validsigp(SCM_INT_VALUE(s))) { s 366 src/signal.c Scm_Error("bad signal number %S", s); s 368 src/signal.c if (!delp) sigaddset(&set->set, SCM_INT_VALUE(s)); s 369 src/signal.c else sigdelset(&set->set, SCM_INT_VALUE(s)); s 59 src/string.c ScmString *s = SCM_NEW(ScmString); s 60 src/string.c SCM_SET_CLASS(s, SCM_CLASS_STRING); s 65 src/string.c s->body = NULL; s 66 src/string.c s->initialBody.flags = flags & SCM_STRING_FLAG_MASK; s 67 src/string.c s->initialBody.length = len; s 68 src/string.c s->initialBody.size = siz; s 69 src/string.c s->initialBody.start = p; s 70 src/string.c return s; s 91 src/string.c int s = SCM_STRING_BODY_SIZE(b); s 94 src/string.c fprintf(out, "STR(len=%d,siz=%d) \"", SCM_STRING_BODY_LENGTH(b), s); s 95 src/string.c for (i=0; i < DUMP_LENGTH && s > 0;) { s 97 src/string.c for (; n > 0 && s > 0; p++, n--, s--, i++) { s 101 src/string.c if (s > 0) { s 172 src/string.c ScmString *s; s 180 src/string.c s = make_str(len, size, nstr, flags); s 182 src/string.c s = make_str(len, size, str, flags); s 184 src/string.c return SCM_OBJ(s); s 727 src/string.c const char *s, *e; s 728 src/string.c s = forward_pos(SCM_STRING_BODY_START(xb), start); s 729 src/string.c e = forward_pos(s, end - start); s 730 src/string.c sizez = sizex + sizey - (e - s); s 733 src/string.c memcpy(p, SCM_STRING_BODY_START(xb), s - SCM_STRING_BODY_START(xb)); s 735 src/string.c memcpy(p + (s - SCM_STRING_BODY_START(xb)), str, sizey); s 736 src/string.c memcpy(p + (s - SCM_STRING_BODY_START(xb)) + sizey, e, s 814 src/string.c const char *s, *e; s 815 src/string.c if (start) s = forward_pos(SCM_STRING_BODY_START(xb), start); s 816 src/string.c else s = SCM_STRING_BODY_START(xb); s 817 src/string.c e = forward_pos(s, end - start); s 818 src/string.c return SCM_OBJ(make_str(end - start, e - s, s, 0)); s 864 src/string.c const char *s = SCM_STRING_BODY_START(strb), *p = s, *e = s + size; s 879 src/string.c SCM_APPEND1(head, tail, Scm_MakeString(s, sizecnt, lencnt, 0)); s 882 src/string.c s = p; s 889 src/string.c SCM_APPEND1(head, tail, Scm_MakeString(s, sizecnt, lencnt, 0)); s 1085 src/string.c const unsigned char *s, *r; s 1115 src/string.c s = (unsigned char*)SCM_STRING_BODY_START(strb); s 1116 src/string.c for (i = 0; i < start; i++) s += SCM_CHAR_NFOLLOWS(*s)+1; s 1117 src/string.c prelen = s - (unsigned char*)SCM_STRING_BODY_START(strb); s 1118 src/string.c r = s; s 1119 src/string.c for (; i < end; i++) s += SCM_CHAR_NFOLLOWS(*s)+1; s 1120 src/string.c midlen = s - r; s 1164 src/syslib.c char *s = tmpnam(NULL); s 1165 src/syslib.c SCM_RETURN(SCM_MAKE_STR_COPYING(s)); s 1325 src/syslib.c ScmSysStat *s = SCM_SYS_STAT(Scm_MakeSysStat()); s 1327 src/syslib.c SCM_SYSCALL(r, stat(path, &s->statrec)); s 1329 src/syslib.c SCM_RETURN(SCM_OBJ(s)); s 1346 src/syslib.c ScmSysStat *s = SCM_SYS_STAT(Scm_MakeSysStat()); s 1348 src/syslib.c SCM_SYSCALL(r, lstat(path, &s->statrec)); s 1350 src/syslib.c SCM_RETURN(SCM_OBJ(s)); s 1366 src/syslib.c ScmSysStat *s = SCM_SYS_STAT(Scm_MakeSysStat()); s 1369 src/syslib.c SCM_SYSCALL(r, fstat(fd, &s->statrec)); s 1371 src/syslib.c SCM_RETURN(SCM_OBJ(s)); s 617 src/system.c ScmSysStat *s = SCM_ALLOCATE(ScmSysStat, klass); s 618 src/system.c SCM_SET_CLASS(s, SCM_CLASS_SYS_STAT); s 619 src/system.c return SCM_OBJ(s); s 654 src/system.c static ScmObj SCM_CPP_CAT3(stat_, name, _get)(ScmSysStat *s) \ s 655 src/system.c { return Scm_MakeIntegerFromUI((u_long)s->statrec.SCM_CPP_CAT(st_, name)); } s 657 src/system.c static ScmObj SCM_CPP_CAT3(stat_, name, _get)(ScmSysStat *s) \ s 658 src/system.c { return Scm_MakeSysTime(s->statrec.SCM_CPP_CAT(st_, name)); } s 775 src/system.c double s, frac; s 779 src/system.c frac = modf(sec, &s); s 780 src/system.c return Scm_MakeTime(SCM_SYM_TIME_UTC, (long)s, (long)(frac * 1.0e9)); s 897 src/system.c double s; s 898 src/system.c spec->tv_nsec += (unsigned long)(modf(Scm_GetDouble(t), &s)*1.0e9); s 899 src/system.c spec->tv_sec += (unsigned long)s; s 1035 src/system.c static ScmObj SCM_CPP_CAT3(grp_, name, _get)(ScmSysGroup *s) \ s 1036 src/system.c { return s->name; } s 2512 src/vm.c ScmObj *d, *s; s 2521 src/vm.c for (i=ENV_SIZE(esize), s = (ScmObj*)e - esize; i>0; i--) { s 2522 src/vm.c *d++ = *s++; s 2547 src/vm.c ScmObj *s, *d; s 2572 src/vm.c s = c->argp; s 2575 src/vm.c *d++ = *s++; s 2581 src/vm.c s = (ScmObj*)c; s 2584 src/vm.c *d++ = *s++; s 2975 src/vm.c ScmObj *s; s 2978 src/vm.c s = SP; s 2979 src/vm.c cc = (ScmContFrame*)s; s 2980 src/vm.c s += CONT_FRAME_SIZE; s 2988 src/vm.c *s++ = SCM_OBJ(data[i]); s 2991 src/vm.c ARGP = SP = s; s 652 src/write.c const char *s = Scm_GetStringContent(tmpstr, NULL, NULL, NULL), *e; s 655 src/write.c Scm_PutzUnsafe(s, e-s, out); s 659 src/write.c Scm_PutzUnsafe(s, e-s, out);