cp 123 ext/charconv/charconv.h extern void jconv_ucs4_to_utf8(unsigned int ucs, char *cp);
cp 669 ext/charconv/jconv.c void jconv_ucs4_to_utf8(unsigned int ucs, char *cp)
cp 672 ext/charconv/jconv.c *cp = ucs;
cp 675 ext/charconv/jconv.c *cp++ = ((ucs>>6)&0x1f) | 0xc0;
cp 676 ext/charconv/jconv.c *cp = (ucs&0x3f) | 0x80;
cp 679 ext/charconv/jconv.c *cp++ = ((ucs>>12)&0x0f) | 0xe0;
cp 680 ext/charconv/jconv.c *cp++ = ((ucs>>6)&0x3f) | 0x80;
cp 681 ext/charconv/jconv.c *cp = (ucs&0x3f) | 0x80;
cp 684 ext/charconv/jconv.c *cp++ = ((ucs>>18)&0x07) | 0xf0;
cp 685 ext/charconv/jconv.c *cp++ = ((ucs>>12)&0x3f) | 0x80;
cp 686 ext/charconv/jconv.c *cp++ = ((ucs>>6)&0x3f) | 0x80;
cp 687 ext/charconv/jconv.c *cp = (ucs&0x3f) | 0x80;
cp 690 ext/charconv/jconv.c *cp++ = ((ucs>>24)&0x03) | 0xf8;
cp 691 ext/charconv/jconv.c *cp++ = ((ucs>>18)&0x3f) | 0x80;
cp 692 ext/charconv/jconv.c *cp++ = ((ucs>>12)&0x3f) | 0x80;
cp 693 ext/charconv/jconv.c *cp++ = ((ucs>>6)&0x3f) | 0x80;
cp 694 ext/charconv/jconv.c *cp = (ucs&0x3f) | 0x80;
cp 696 ext/charconv/jconv.c *cp++ = ((ucs>>30)&0x1) | 0xfc;
cp 697 ext/charconv/jconv.c *cp++ = ((ucs>>24)&0x3f) | 0x80;
cp 698 ext/charconv/jconv.c *cp++ = ((ucs>>18)&0x3f) | 0x80;
cp 699 ext/charconv/jconv.c *cp++ = ((ucs>>12)&0x3f) | 0x80;
cp 700 ext/charconv/jconv.c *cp++ = ((ucs>>6)&0x3f) | 0x80;
cp 701 ext/charconv/jconv.c *cp++ = (ucs&0x3f) | 0x80;
cp 433 ext/net/net.c int inet_aton(const char *cp, struct in_addr *inp)
cp 435 ext/net/net.c unsigned long r = inet_addr(cp);
cp 827 ext/uvector/uvector.c ScmObj cp;
cp 831 ext/uvector/uvector.c for (i=0, cp=list; i<length; i++, cp = SCM_CDR(cp)) {
cp 833 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
cp 1031 ext/uvector/uvector.c ScmObj cp;
cp 1035 ext/uvector/uvector.c for (i=0, cp=list; i<length; i++, cp = SCM_CDR(cp)) {
cp 1037 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
cp 1235 ext/uvector/uvector.c ScmObj cp;
cp 1239 ext/uvector/uvector.c for (i=0, cp=list; i<length; i++, cp = SCM_CDR(cp)) {
cp 1241 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
cp 1439 ext/uvector/uvector.c ScmObj cp;
cp 1443 ext/uvector/uvector.c for (i=0, cp=list; i<length; i++, cp = SCM_CDR(cp)) {
cp 1445 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
cp 1643 ext/uvector/uvector.c ScmObj cp;
cp 1647 ext/uvector/uvector.c for (i=0, cp=list; i<length; i++, cp = SCM_CDR(cp)) {
cp 1649 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
cp 1847 ext/uvector/uvector.c ScmObj cp;
cp 1851 ext/uvector/uvector.c for (i=0, cp=list; i<length; i++, cp = SCM_CDR(cp)) {
cp 1853 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
cp 2051 ext/uvector/uvector.c ScmObj cp;
cp 2055 ext/uvector/uvector.c for (i=0, cp=list; i<length; i++, cp = SCM_CDR(cp)) {
cp 2057 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
cp 2255 ext/uvector/uvector.c ScmObj cp;
cp 2259 ext/uvector/uvector.c for (i=0, cp=list; i<length; i++, cp = SCM_CDR(cp)) {
cp 2261 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
cp 2459 ext/uvector/uvector.c ScmObj cp;
cp 2463 ext/uvector/uvector.c for (i=0, cp=list; i<length; i++, cp = SCM_CDR(cp)) {
cp 2465 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
cp 2663 ext/uvector/uvector.c ScmObj cp;
cp 2667 ext/uvector/uvector.c for (i=0, cp=list; i<length; i++, cp = SCM_CDR(cp)) {
cp 2669 ext/uvector/uvector.c ScmObj obj = SCM_CAR(cp);
cp 300 ext/vport/vport.c const char *cp = SCM_STRING_BODY_START(b);
cp 302 ext/vport/vport.c SCM_CHAR_GET(cp, c);
cp 303 ext/vport/vport.c cp += SCM_CHAR_NFOLLOWS(*cp)+1;
cp 194 src/class.c ScmObj cp;
cp 197 src/class.c SCM_FOR_EACH(cp, classes) {
cp 198 src/class.c if (!Scm_TypeP(SCM_CAR(cp), SCM_CLASS_CLASS))
cp 200 src/class.c " %S in %S", SCM_CAR(cp), classes);
cp 201 src/class.c *vp++ = SCM_CLASS(SCM_CAR(cp));
cp 467 src/class.c ScmClass **cp = klass->cpa;
cp 469 src/class.c while ((k = *cp++) != NULL) {
cp 542 src/class.c ScmObj cp;
cp 550 src/class.c cp = SCM_CDR(val);
cp 551 src/class.c if ((len = Scm_Length(cp)) < 0) goto err;
cp 552 src/class.c klass->cpa = class_list_to_array(cp, len);
cp 701 src/class.c ScmObj cp;
cp 702 src/class.c SCM_FOR_EACH(cp, val) {
cp 703 src/class.c if (!SCM_MODULEP(SCM_CAR(cp))) goto err;
cp 705 src/class.c if (!SCM_NULLP(cp)) goto err;
cp 977 src/class.c ScmObj cp;
cp 979 src/class.c SCM_FOR_EACH(cp, klass->modules) {
cp 980 src/class.c if (!SCM_MODULEP(SCM_CAR(cp))) continue;
cp 981 src/class.c Scm_Define(SCM_MODULE(SCM_CAR(cp)),
cp 2757 src/class.c ScmObj cp, sp = supers;
cp 2758 src/class.c SCM_FOR_EACH(cp, klass->cpl) {
cp 2759 src/class.c if (SCM_EQ(SCM_CAR(cp), SCM_CAR(sp))) {
cp 131 src/code.c ScmObj closures = SCM_NIL, cp;
cp 187 src/code.c SCM_FOR_EACH(cp, SCM_OBJ(p[i+1])) {
cp 188 src/code.c if (SCM_COMPILED_CODE_P(SCM_CAR(cp))) {
cp 189 src/code.c closures = Scm_Acons(SCM_CAR(cp),
cp 402 src/code.c ScmWord *cp = cc->code;
cp 407 src/code.c code = SCM_VM_INSN_CODE(*cp); cp++;
cp 412 src/code.c i++; cp++;
cp 415 src/code.c i++; cp++;
cp 418 src/code.c target = (ScmWord*)*cp;
cp 424 src/code.c if (target != (ScmWord*)*cp) {
cp 425 src/code.c *cp = SCM_WORD(target);
cp 427 src/code.c i++; cp++;
cp 481 src/code.c ScmObj cp;
cp 513 src/code.c ScmObj cp;
cp 515 src/code.c for (i=0, cp=b->constants; i<numConstants; i++, cp=SCM_CDR(cp)) {
cp 516 src/code.c cc->constants[i] = SCM_CAR(cp);
cp 522 src/code.c SCM_FOR_EACH(cp, b->labelRefs) {
cp 523 src/code.c int destAddr = cc_builder_label_def(b, SCM_CAAR(cp));
cp 527 src/code.c SCM_CAAR(cp));
cp 529 src/code.c operandAddr = SCM_INT_VALUE(SCM_CDAR(cp));
cp 200 src/compare.c ScmObj cp;
cp 206 src/compare.c for (i=0, cp=objs; i<len; i++, cp = SCM_CDR(cp)) {
cp 207 src/compare.c SCM_SET_CAR(cp, array[i]);
cp 307 src/error.c ScmObj h = SCM_NIL, t = SCM_NIL, cp, cond;
cp 327 src/error.c SCM_FOR_EACH(cp, conditions) {
cp 328 src/error.c ScmObj c = SCM_CAR(cp);
cp 330 src/error.c Scm_Error("make-compound-condition: given non-condition object: %S", SCM_CAR(cp));
cp 358 src/error.c ScmObj cp;
cp 359 src/error.c SCM_FOR_EACH(cp, conds) {
cp 360 src/error.c if (!SCM_CONDITIONP(SCM_CAR(cp))) goto err;
cp 362 src/error.c if (!SCM_NULLP(cp)) {
cp 417 src/error.c ScmObj cp;
cp 422 src/error.c SCM_FOR_EACH(cp, SCM_COMPOUND_CONDITION(c)->conditions) {
cp 423 src/error.c if (SCM_ISA(SCM_CAR(cp), SCM_CLASS(k))) return TRUE;
cp 433 src/error.c ScmObj cp;
cp 434 src/error.c SCM_FOR_EACH(cp, SCM_COMPOUND_CONDITION(c)->conditions) {
cp 435 src/error.c if (SCM_MESSAGE_CONDITION_P(SCM_CAR(cp))) {
cp 436 src/error.c return SCM_MESSAGE_CONDITION(SCM_CAR(cp))->message;
cp 460 src/error.c ScmObj h = SCM_NIL, t = SCM_NIL, cp;
cp 461 src/error.c SCM_FOR_EACH(cp, SCM_COMPOUND_CONDITION(c)->conditions) {
cp 462 src/error.c ScmObj cc = SCM_CAR(cp);
cp 749 src/error.c ScmObj cp;
cp 754 src/error.c SCM_FOR_EACH(cp, stacklite) {
cp 757 src/error.c SHOW_EXPR(depth++, SCM_CAR(cp));
cp 759 src/error.c if (SCM_PAIRP(SCM_CAR(cp))) {
cp 760 src/error.c ScmObj srci = Scm_PairAttrGet(SCM_PAIR(SCM_CAR(cp)),
cp 787 src/error.c SHOW_EXPR(depth++, SCM_CAR(cp));
cp 150 src/extlib.c ScmObj cp, r = Scm_LogAnd(x, y);
cp 151 src/extlib.c SCM_FOR_EACH(cp, args) {
cp 152 src/extlib.c r = Scm_LogAnd(r, SCM_CAR(cp));
cp 178 src/extlib.c ScmObj cp, r = Scm_LogIor(x, y);
cp 179 src/extlib.c SCM_FOR_EACH(cp, args) {
cp 180 src/extlib.c r = Scm_LogIor(r, SCM_CAR(cp));
cp 206 src/extlib.c ScmObj cp, r = Scm_LogXor(x, y);
cp 207 src/extlib.c SCM_FOR_EACH(cp, args) {
cp 208 src/extlib.c r = Scm_LogXor(r, SCM_CAR(cp));
cp 585 src/extlib.c ScmObj head = SCM_NIL, tail = SCM_NIL, cp;
cp 587 src/extlib.c SCM_FOR_EACH(cp, args) {
cp 588 src/extlib.c if (!SCM_PAIRP(SCM_CDR(cp))) {
cp 589 src/extlib.c if (SCM_NULLP(head)) head = SCM_CAR(cp);
cp 590 src/extlib.c else SCM_SET_CDR(tail, SCM_CAR(cp));
cp 593 src/extlib.c SCM_APPEND1(head, tail, SCM_CAR(cp));
cp 814 src/extlib.c ScmObj cp, h = SCM_NIL, t = SCM_NIL;
cp 815 src/extlib.c SCM_FOR_EACH(cp, list) {
cp 817 src/extlib.c if (!SCM_PAIRP(SCM_CAR(cp)) && SCM_NULLP(SCM_CDR(cp))) {
cp 818 src/extlib.c if (SCM_NULLP(h)) return SCM_CAR(cp);
cp 819 src/extlib.c else { SCM_SET_CDR(t, SCM_CAR(cp)); return h; }
cp 821 src/extlib.c SCM_APPEND(h, t, SCM_CAR(cp));
cp 1305 src/extlib.c { ScmObj cp; ScmChar ch;
cp 1306 src/extlib.c SCM_FOR_EACH(cp, chars) {
cp 1307 src/extlib.c if (!SCM_CHARP(SCM_CAR(cp)))
cp 1308 src/extlib.c Scm_Error("character required, but got %S", SCM_CAR(cp));
cp 1309 src/extlib.c ch = SCM_CHAR_VALUE(SCM_CAR(cp));
cp 221 src/gauche-config.c struct cmd_rec *cp = cmds;
cp 223 src/gauche-config.c while (cp->cmd != NULL) {
cp 224 src/gauche-config.c if (strcmp(cp->cmd, argv[1]) == 0) {
cp 225 src/gauche-config.c print_output(cp);
cp 228 src/gauche-config.c cp++;
cp 72 src/gauche/char_euc_jp.h #define SCM_CHAR_GET(cp, ch) \
cp 74 src/gauche/char_euc_jp.h if (((ch) = (unsigned char)*(cp)) >= 0x80) { \
cp 76 src/gauche/char_euc_jp.h (unsigned char)(cp)[1] >= 0xa1 && \
cp 77 src/gauche/char_euc_jp.h (unsigned char)(cp)[2] >= 0xa1) { \
cp 79 src/gauche/char_euc_jp.h + ((unsigned char)(cp)[1] << 8) \
cp 80 src/gauche/char_euc_jp.h + (unsigned char)(cp)[2]; \
cp 81 src/gauche/char_euc_jp.h } else if ((unsigned char)(cp)[1] >= 0xa1) { \
cp 82 src/gauche/char_euc_jp.h (ch) = ((ch) << 8) + (unsigned char)(cp)[1]; \
cp 93 src/gauche/char_euc_jp.h #define SCM_CHAR_PUT(cp, ch) \
cp 97 src/gauche/char_euc_jp.h (cp)[0] = ((ch) >> 16) & 0xff; \
cp 98 src/gauche/char_euc_jp.h (cp)[1] = ((ch) >> 8) & 0xff; \
cp 99 src/gauche/char_euc_jp.h (cp)[2] = (ch) & 0xff; \
cp 101 src/gauche/char_euc_jp.h (cp)[0] = (ch >> 8) & 0xff; \
cp 102 src/gauche/char_euc_jp.h (cp)[1] = ch & 0xff; \
cp 105 src/gauche/char_euc_jp.h (cp)[0] = ch & 0xff; \
cp 115 src/gauche/char_euc_jp.h #define SCM_CHAR_BACKWARD(cp, start, result) \
cp 116 src/gauche/char_euc_jp.h ((result) = Scm_CharBackwardEUC(cp, start))
cp 118 src/gauche/char_euc_jp.h SCM_EXTERN const char *Scm_CharBackwardEUC(const char *cp, const char *start);
cp 137 src/gauche/char_euc_jp.h const char *Scm_CharBackwardEUC(const char *cp, const char *start)
cp 141 src/gauche/char_euc_jp.h switch (cp - start) {
cp 143 src/gauche/char_euc_jp.h t = (unsigned char*)(cp-3);
cp 149 src/gauche/char_euc_jp.h t = (unsigned char*)(cp-2);
cp 155 src/gauche/char_euc_jp.h t = (unsigned char*)(cp-1);
cp 62 src/gauche/char_none.h #define SCM_CHAR_GET(cp, ch) ((ch) = *(const unsigned char*)(cp))
cp 63 src/gauche/char_none.h #define SCM_CHAR_PUT(cp, ch) (*(cp) = (ch))
cp 65 src/gauche/char_none.h #define SCM_CHAR_BACKWARD(cp, start, result) \
cp 67 src/gauche/char_none.h if ((cp) > (start)) (result) = (cp)-1; \
cp 69 src/gauche/char_sjis.h #define SCM_CHAR_GET(cp, ch) \
cp 71 src/gauche/char_sjis.h (ch) = (unsigned char)*(cp); \
cp 74 src/gauche/char_sjis.h (ch) = (((unsigned char)(ch)) << 8) + (unsigned char)*(cp+1); \
cp 83 src/gauche/char_sjis.h #define SCM_CHAR_PUT(cp, ch) \
cp 86 src/gauche/char_sjis.h (cp)[0] = (ch >> 8) & 0xff; \
cp 87 src/gauche/char_sjis.h (cp)[1] = ch & 0xff; \
cp 89 src/gauche/char_sjis.h (cp)[0] = ch & 0xff; \
cp 99 src/gauche/char_sjis.h #define SCM_CHAR_BACKWARD(cp, start, result) \
cp 101 src/gauche/char_sjis.h (result) = (cp); \
cp 75 src/gauche/char_utf_8.h #define SCM_CHAR_GET(cp, ch) \
cp 77 src/gauche/char_utf_8.h if (((ch) = (unsigned char)*(cp)) >= 0x80) { \
cp 78 src/gauche/char_utf_8.h (ch) = Scm_CharUtf8Getc((unsigned char*)cp); \
cp 86 src/gauche/char_utf_8.h #define SCM_CHAR_PUT(cp, ch) \
cp 89 src/gauche/char_utf_8.h Scm_CharUtf8Putc((unsigned char*)cp, ch); \
cp 91 src/gauche/char_utf_8.h *(cp) = (ch); \
cp 101 src/gauche/char_utf_8.h #define SCM_CHAR_BACKWARD(cp, start, result) \
cp 103 src/gauche/char_utf_8.h switch ((cp) - (start)) { \
cp 105 src/gauche/char_utf_8.h (result) = (cp) - 6; \
cp 109 src/gauche/char_utf_8.h (result) = (cp) - 5; \
cp 113 src/gauche/char_utf_8.h (result) = (cp) - 4; \
cp 117 src/gauche/char_utf_8.h (result) = (cp) - 3; \
cp 121 src/gauche/char_utf_8.h (result) = (cp) - 2; \
cp 125 src/gauche/char_utf_8.h (result) = (cp) - 1; \
cp 164 src/gauche/char_utf_8.h ScmChar Scm_CharUtf8Getc(const unsigned char *cp)
cp 167 src/gauche/char_utf_8.h unsigned char *ucp = (unsigned char *)cp;
cp 212 src/gauche/char_utf_8.h void Scm_CharUtf8Putc(unsigned char *cp, ScmChar ch)
cp 215 src/gauche/char_utf_8.h *cp = ch;
cp 218 src/gauche/char_utf_8.h *cp++ = ((ch>>6)&0x1f) | 0xc0;
cp 219 src/gauche/char_utf_8.h *cp = (ch&0x3f) | 0x80;
cp 222 src/gauche/char_utf_8.h *cp++ = ((ch>>12)&0x0f) | 0xe0;
cp 223 src/gauche/char_utf_8.h *cp++ = ((ch>>6)&0x3f) | 0x80;
cp 224 src/gauche/char_utf_8.h *cp = (ch&0x3f) | 0x80;
cp 227 src/gauche/char_utf_8.h *cp++ = ((ch>>18)&0x07) | 0xf0;
cp 228 src/gauche/char_utf_8.h *cp++ = ((ch>>12)&0x3f) | 0x80;
cp 229 src/gauche/char_utf_8.h *cp++ = ((ch>>6)&0x3f) | 0x80;
cp 230 src/gauche/char_utf_8.h *cp = (ch&0x3f) | 0x80;
cp 233 src/gauche/char_utf_8.h *cp++ = ((ch>>24)&0x03) | 0xf8;
cp 234 src/gauche/char_utf_8.h *cp++ = ((ch>>18)&0x3f) | 0x80;
cp 235 src/gauche/char_utf_8.h *cp++ = ((ch>>12)&0x3f) | 0x80;
cp 236 src/gauche/char_utf_8.h *cp++ = ((ch>>6)&0x3f) | 0x80;
cp 237 src/gauche/char_utf_8.h *cp = (ch&0x3f) | 0x80;
cp 239 src/gauche/char_utf_8.h *cp++ = ((ch>>30)&0x1) | 0xfc;
cp 240 src/gauche/char_utf_8.h *cp++ = ((ch>>24)&0x3f) | 0x80;
cp 241 src/gauche/char_utf_8.h *cp++ = ((ch>>18)&0x3f) | 0x80;
cp 242 src/gauche/char_utf_8.h *cp++ = ((ch>>12)&0x3f) | 0x80;
cp 243 src/gauche/char_utf_8.h *cp++ = ((ch>>6)&0x3f) | 0x80;
cp 244 src/gauche/char_utf_8.h *cp++ = (ch&0x3f) | 0x80;
cp 135 src/gauche/mingw-compat.h int inet_aton(const char *cp, struct in_addr *inp);
cp 164 src/hash.c ScmObj cp;
cp 165 src/hash.c SCM_FOR_EACH(cp, obj) {
cp 166 src/hash.c h2 = Scm_Hash(SCM_CAR(cp));
cp 169 src/hash.c h2 = Scm_Hash(cp);
cp 84 src/keyword.c ScmObj cp;
cp 85 src/keyword.c SCM_FOR_EACH(cp, list) {
cp 86 src/keyword.c if (!SCM_PAIRP(SCM_CDR(cp))) {
cp 89 src/keyword.c if (key == SCM_CAR(cp)) return SCM_CADR(cp);
cp 90 src/keyword.c cp = SCM_CDR(cp);
cp 100 src/keyword.c ScmObj cp;
cp 101 src/keyword.c SCM_FOR_EACH(cp, list) {
cp 102 src/keyword.c if (!SCM_PAIRP(SCM_CDR(cp))) {
cp 105 src/keyword.c if (key == SCM_CAR(cp)) {
cp 108 src/keyword.c ScmObj tail = Scm_DeleteKeyword(key, SCM_CDR(SCM_CDR(cp)));
cp 111 src/keyword.c if (cp2 == cp) {
cp 119 src/keyword.c cp = SCM_CDR(cp);
cp 126 src/keyword.c ScmObj cp, prev = SCM_FALSE;
cp 127 src/keyword.c SCM_FOR_EACH(cp, list) {
cp 128 src/keyword.c if (!SCM_PAIRP(SCM_CDR(cp))) {
cp 131 src/keyword.c if (key == SCM_CAR(cp)) {
cp 135 src/keyword.c return Scm_DeleteKeywordX(key, SCM_CDR(SCM_CDR(cp)));
cp 137 src/keyword.c ScmObj tail = Scm_DeleteKeywordX(key, SCM_CDR(SCM_CDR(cp)));
cp 142 src/keyword.c cp = SCM_CDR(cp);
cp 143 src/keyword.c prev = cp;
cp 112 src/list.c ScmObj start = SCM_NIL, cp = SCM_NIL, obj;
cp 123 src/list.c cp = start;
cp 128 src/list.c SCM_SET_CDR(cp, item);
cp 131 src/list.c cp = item;
cp 278 src/list.c ScmObj cp;
cp 279 src/list.c SCM_FOR_EACH(cp, list) {
cp 280 src/list.c if (SCM_NULLP(SCM_CDR(cp))) {
cp 281 src/list.c SCM_SET_CDR(cp, obj);
cp 309 src/list.c ScmObj start = SCM_NIL, last = SCM_NIL, cp;
cp 310 src/list.c SCM_FOR_EACH(cp, args) {
cp 311 src/list.c if (!SCM_PAIRP(SCM_CDR(cp))) {
cp 312 src/list.c if (SCM_NULLP(start)) return SCM_CAR(cp);
cp 313 src/list.c SCM_SET_CDR(last, SCM_CAR(cp));
cp 315 src/list.c } else if (SCM_NULLP(SCM_CAR(cp))) {
cp 317 src/list.c } else if (!SCM_PAIRP(SCM_CAR(cp))) {
cp 318 src/list.c Scm_Error("pair required, but got %S", SCM_CAR(cp));
cp 320 src/list.c SCM_APPEND(start, last, Scm_CopyList(SCM_CAR(cp)));
cp 333 src/list.c ScmObj cp, result;
cp 340 src/list.c SCM_FOR_EACH(cp, list) {
cp 341 src/list.c SCM_SET_CAR(result, SCM_CAR(cp));
cp 410 src/list.c ScmObj cp;
cp 413 src/list.c SCM_FOR_EACH(cp, l) {
cp 414 src/list.c ScmObj cdr = SCM_CDR(cp);
cp 415 src/list.c if (!SCM_PAIRP(cdr)) return cp;
cp 452 src/list.c ScmObj start = SCM_NIL, last = SCM_NIL, cp, prev = list;
cp 455 src/list.c SCM_FOR_EACH(cp, list) {
cp 456 src/list.c if (Scm_EqualM(obj, SCM_CAR(cp), cmpmode)) {
cp 457 src/list.c for (; prev != cp; prev = SCM_CDR(prev))
cp 459 src/list.c prev = SCM_CDR(cp);
cp 470 src/list.c ScmObj cp, prev = SCM_NIL;
cp 471 src/list.c SCM_FOR_EACH(cp, list) {
cp 472 src/list.c if (Scm_EqualM(obj, SCM_CAR(cp), cmpmode)) {
cp 474 src/list.c list = SCM_CDR(cp);
cp 476 src/list.c SCM_SET_CDR(prev, SCM_CDR(cp));
cp 479 src/list.c prev = cp;
cp 494 src/list.c ScmObj cp;
cp 496 src/list.c SCM_FOR_EACH(cp,alist) {
cp 497 src/list.c ScmObj entry = SCM_CAR(cp);
cp 506 src/list.c ScmObj cp;
cp 508 src/list.c SCM_FOR_EACH(cp,alist) {
cp 509 src/list.c ScmObj entry = SCM_CAR(cp);
cp 518 src/list.c ScmObj cp;
cp 520 src/list.c SCM_FOR_EACH(cp,alist) {
cp 521 src/list.c ScmObj entry = SCM_CAR(cp);
cp 531 src/list.c ScmObj start = SCM_NIL, last = SCM_NIL, cp, p, prev = alist;
cp 537 src/list.c SCM_FOR_EACH(cp, alist) {
cp 538 src/list.c p = SCM_CAR(cp);
cp 541 src/list.c for (; prev != cp; prev = SCM_CDR(prev))
cp 543 src/list.c prev = SCM_CDR(cp);
cp 555 src/list.c ScmObj cp, prev = SCM_NIL;
cp 559 src/list.c SCM_FOR_EACH(cp, alist) {
cp 560 src/list.c ScmObj e = SCM_CAR(cp);
cp 564 src/list.c alist = SCM_CDR(cp);
cp 567 src/list.c SCM_SET_CDR(prev, SCM_CDR(cp));
cp 571 src/list.c prev = cp;
cp 269 src/main.c ScmObj cp;
cp 356 src/main.c SCM_FOR_EACH(cp, Scm_Reverse(pre_cmds)) {
cp 357 src/main.c ScmObj p = SCM_CAR(cp);
cp 943 src/port.c const char *cp, *ep;
cp 949 src/port.c cp = port->src.istr.current;
cp 950 src/port.c return Scm_MakeString(cp, ep-cp, -1, 0);
cp 206 src/portapi.c const char *cp = p->src.buf.current;
cp 207 src/portapi.c while (cp-- > p->src.buf.buffer) {
cp 208 src/portapi.c if (*cp == '\n') {
cp 209 src/portapi.c SAFE_CALL(p, bufport_flush(p, (int)(cp - p->src.buf.current), FALSE));
cp 253 src/portapi.c const char *cp = p->src.buf.current;
cp 254 src/portapi.c while (cp-- > p->src.buf.buffer) {
cp 255 src/portapi.c if (*cp == '\n') {
cp 256 src/portapi.c SAFE_CALL(p, bufport_flush(p, (int)(cp - p->src.buf.current), FALSE));
cp 207 src/proc.c ScmObj cp;
cp 209 src/proc.c SCM_FOR_EACH(cp, argslist) {
cp 210 src/proc.c ScmObj argsN = SCM_CAR(cp);
cp 264 src/read.c ScmObj cp, ep, entry, obj, finisher;
cp 266 src/read.c SCM_FOR_EACH(cp, ctx->pending) {
cp 267 src/read.c entry = SCM_CAR(cp);
cp 775 src/regexp.c ScmObj cp;
cp 779 src/regexp.c for (i=0, cp = Scm_Reverse(ctx->sets); !SCM_NULLP(cp); cp = SCM_CDR(cp)) {
cp 780 src/regexp.c rx->sets[i++] = SCM_CHARSET(SCM_CAR(cp));
cp 975 src/regexp.c ScmObj cp, item;
cp 977 src/regexp.c SCM_FOR_EACH(cp, seq) {
cp 978 src/regexp.c item = SCM_CAR(cp);
cp 994 src/regexp.c cp = SCM_CDR(cp);
cp 995 src/regexp.c if (SCM_NULLP(cp)) break;
cp 996 src/regexp.c item = SCM_CAR(cp);
cp 1010 src/regexp.c if (SCM_NULLP(cp)) break;
cp 1011 src/regexp.c cp = Scm_Cons(item, cp); /* pushback */
cp 1013 src/regexp.c rc3_rec(ctx, item, lastp&&SCM_NULLP(SCM_CDR(cp)), toplevelp);
cp 91 src/repl.c ScmObj result = Scm_VMGetResult(vm), cp;
cp 92 src/repl.c SCM_FOR_EACH(cp, result) {
cp 94 src/repl.c Scm_Write(SCM_CAR(cp), SCM_OBJ(SCM_CUROUT), SCM_WRITE_WRITE);
cp 96 src/repl.c Scm_Write(SCM_CAR(cp), SCM_OBJ(SCM_CUROUT), SCM_WRITE_SHARED);
cp 349 src/signal.c ScmObj cp;
cp 354 src/signal.c SCM_FOR_EACH(cp, signals) {
cp 355 src/signal.c ScmObj s = SCM_CAR(cp);
cp 3400 src/stdlib.c ScmObj head, tail, cp;
cp 3404 src/stdlib.c SCM_FOR_EACH(cp, args) {
cp 3405 src/stdlib.c if (SCM_NULLP(SCM_CDR(cp))) {
cp 3406 src/stdlib.c SCM_APPEND(head, tail, SCM_CAR(cp));
cp 3409 src/stdlib.c if (!SCM_PAIRP(SCM_CDR(cp))) {
cp 3410 src/stdlib.c Scm_Error("improper list not allowed: %S", SCM_CDR(cp));
cp 3412 src/stdlib.c SCM_APPEND1(head, tail, SCM_CAR(cp));
cp 203 src/string.c ScmObj cp;
cp 208 src/string.c SCM_FOR_EACH(cp, chars) {
cp 209 src/string.c if (!SCM_CHARP(SCM_CAR(cp)))
cp 210 src/string.c Scm_Error("character required, but got %S", SCM_CAR(cp));
cp 211 src/string.c ch = SCM_CHAR_VALUE(SCM_CAR(cp));
cp 216 src/string.c SCM_FOR_EACH(cp, chars) {
cp 217 src/string.c ch = SCM_CHAR_VALUE(SCM_CAR(cp));
cp 574 src/string.c ScmObj cp;
cp 592 src/string.c SCM_FOR_EACH(cp, strs) {
cp 594 src/string.c if (!SCM_STRINGP(SCM_CAR(cp))) {
cp 595 src/string.c Scm_Error("string required, but got %S\n", SCM_CAR(cp));
cp 597 src/string.c b = SCM_STRING_BODY(SCM_CAR(cp));
cp 621 src/string.c ScmObj cp;
cp 651 src/string.c SCM_FOR_EACH(cp, strs) {
cp 653 src/string.c if (!SCM_STRINGP(SCM_CAR(cp))) {
cp 654 src/string.c Scm_Error("string required, but got %S\n", SCM_CAR(cp));
cp 656 src/string.c b = SCM_STRING_BODY(SCM_CAR(cp));
cp 1199 src/string.c const char *cp = SCM_STRING_BODY_START(b);
cp 1207 src/string.c string_putc(*cp++, port, SCM_STRING_BODY_INCOMPLETE_P(b));
cp 1211 src/string.c const char *cp = SCM_STRING_BODY_START(b);
cp 1216 src/string.c SCM_CHAR_GET(cp, ch);
cp 1218 src/string.c cp += SCM_CHAR_NBYTES(ch);
cp 1276 src/vm.c ScmObj *z, cp, clo = SCM_UNDEFINED;
cp 1279 src/vm.c FETCH_OPERAND(cp);
cp 1287 src/vm.c SCM_FOR_EACH(cp, cp) {
cp 1288 src/vm.c if (SCM_COMPILED_CODE_P(SCM_CAR(cp))) {
cp 1289 src/vm.c *z++ = clo = Scm_MakeClosure(SCM_CAR(cp), e);
cp 1291 src/vm.c *z++ = SCM_CAR(cp);
cp 1769 src/vm.c ScmObj cp = SCM_NIL;
cp 1773 src/vm.c cp = Scm_Cons(VAL0, cp);
cp 1777 src/vm.c cp = Scm_Cons(arg, cp);
cp 1780 src/vm.c VAL0 = cp;
cp 1785 src/vm.c ScmObj cp = SCM_NIL;
cp 1788 src/vm.c cp = VAL0;
cp 1792 src/vm.c cp = Scm_Cons(arg, cp);
cp 1795 src/vm.c VAL0 = cp;
cp 1914 src/vm.c ScmObj cp = SCM_NIL, arg;
cp 1916 src/vm.c cp = VAL0;
cp 1922 src/vm.c cp = Scm_Append2(arg, cp);
cp 1925 src/vm.c VAL0 = cp;
cp 1939 src/vm.c ScmObj cp;
cp 1941 src/vm.c POP_ARG(cp);
cp 1943 src/vm.c VAL0 = Scm_Cons(cp, VAL0);
cp 1945 src/vm.c cp = VAL0; /* now cp has arg list */
cp 1955 src/vm.c VAL0 = Scm_VMApply(VAL0, cp);
cp 1961 src/vm.c ScmObj form, cp;
cp 1966 src/vm.c SCM_FOR_EACH(cp, SCM_CDR(form)) {
cp 1967 src/vm.c PUSH_ARG(SCM_CAR(cp));
cp 2014 src/vm.c ScmObj cp = SCM_NIL, arg;
cp 2016 src/vm.c cp = VAL0;
cp 2022 src/vm.c cp = Scm_Append2(arg, cp);
cp 2026 src/vm.c VAL0 = Scm_ListToVector(cp, 0, -1);
cp 2700 src/vm.c ScmObj cp;
cp 2710 src/vm.c SCM_FOR_EACH(cp, args) {
cp 2711 src/vm.c PUSH_ARG(SCM_CAR(cp));
cp 3529 src/vm.c ScmObj cp;
cp 3537 src/vm.c SCM_FOR_EACH(cp, SCM_CDR(args)) {
cp 3538 src/vm.c vm->vals[nvals-1] = SCM_CAR(cp);
cp 3606 src/vm.c ScmObj cp;
cp 3611 src/vm.c cp = SCM_OBJ(data[2]);
cp 3613 src/vm.c vm->vals[i] = SCM_CAR(cp);
cp 3614 src/vm.c cp = SCM_CDR(cp);