pattern 2389 src/extlib.c SCM_RESULT = (regexp->pattern?SCM_OBJ(regexp->pattern):SCM_FALSE); pattern 2499 src/gauche.h ScmString *pattern; pattern 2518 src/gauche.h SCM_EXTERN ScmObj Scm_RegComp(ScmString *pattern, int flags); pattern 2616 src/gauche.h SCM_EXTERN ScmObj Scm_GlobDirectory(ScmString *pattern); pattern 45 src/gauche/macro.h ScmObj pattern; /* subpattern */ pattern 62 src/gauche/macro.h ScmObj pattern; /* pattern to match */ pattern 102 src/macro.c SCM_SYNTAX_PATTERN(obj)->pattern, pattern 112 src/macro.c p->pattern = SCM_NIL; pattern 133 src/macro.c Scm_Printf(port, " pattern = %S\n", r->rules[i].pattern); pattern 390 src/macro.c nspat->pattern = compile_rule1(SCM_CAR(pp), nspat, ctx, pattern 501 src/macro.c pat->pattern = compile_rule1(SCM_CDR(ctx.form), pat, &ctx, TRUE); pattern 504 src/macro.c tmpl->pattern = compile_rule1(ctx.form, tmpl, &ctx, FALSE); pattern 506 src/macro.c sr->rules[i].pattern = SCM_OBJ(pat->pattern); pattern 507 src/macro.c sr->rules[i].template = SCM_OBJ(tmpl->pattern); pattern 600 src/macro.c static int match_synrule(ScmObj form, ScmObj pattern, ScmObj env, pattern 698 src/macro.c if (!match_synrule(SCM_CAR(form), pat->pattern, env, mvec)) pattern 710 src/macro.c static int match_synrule(ScmObj form, ScmObj pattern, ScmObj env, pattern 713 src/macro.c if (PVREF_P(pattern)) { pattern 714 src/macro.c match_insert(pattern, form, mvec); pattern 717 src/macro.c if (SCM_IDENTIFIERP(pattern)) { pattern 718 src/macro.c return match_identifier(SCM_IDENTIFIER(pattern), form, env); pattern 720 src/macro.c if (SCM_SYNTAX_PATTERN_P(pattern)) { pattern 721 src/macro.c return match_subpattern(form, SCM_SYNTAX_PATTERN(pattern), env, mvec); pattern 723 src/macro.c if (SCM_PAIRP(pattern)) { pattern 724 src/macro.c while (SCM_PAIRP(pattern)) { pattern 725 src/macro.c ScmObj elt = SCM_CAR(pattern); pattern 734 src/macro.c pattern = SCM_CDR(pattern); pattern 738 src/macro.c if (!SCM_NULLP(pattern)) pattern 739 src/macro.c return match_synrule(form, pattern, env, mvec); pattern 743 src/macro.c if (SCM_VECTORP(pattern)) { pattern 746 src/macro.c plen = SCM_VECTOR_SIZE(pattern); pattern 749 src/macro.c elli = SCM_SYNTAX_PATTERN_P(SCM_VECTOR_ELEMENT(pattern, plen-1)); pattern 753 src/macro.c SCM_VECTOR_ELEMENT(pattern, i), pattern 759 src/macro.c ScmObj pat = SCM_VECTOR_ELEMENT(pattern, plen-1); pattern 769 src/macro.c return Scm_EqualP(pattern, form); pattern 815 src/macro.c r = realize_template_rec(pat->pattern, mvec, level+1, indices, idlist, exlev); pattern 882 src/macro.c Scm_Printf(SCM_CUROUT, "pattern #%d: %S\n", i, sr->rules[i].pattern); pattern 885 src/macro.c if (match_synrule(SCM_CDR(form), sr->rules[i].pattern, env, mvec)) { pattern 199 src/regexp.c rx->pattern = NULL; pattern 205 src/regexp.c if (SCM_REGEXP(rx)->pattern) { pattern 206 src/regexp.c Scm_Printf(out, "#/%A/", SCM_REGEXP(rx)->pattern); pattern 218 src/regexp.c return !(SCM_REGEXP(x)->pattern pattern 219 src/regexp.c && SCM_REGEXP(y)->pattern pattern 220 src/regexp.c && Scm_StringEqual(SCM_STRING(SCM_REGEXP(x)->pattern), pattern 221 src/regexp.c SCM_STRING(SCM_REGEXP(y)->pattern)) pattern 246 src/regexp.c ScmString *pattern; /* original pattern */ pattern 260 src/regexp.c ctx->pattern = rx->pattern; pattern 262 src/regexp.c if (rx->pattern) { pattern 263 src/regexp.c ctx->ipat = SCM_PORT(Scm_MakeInputStringPort(rx->pattern, FALSE)); pattern 343 src/regexp.c ctx->pattern); pattern 522 src/regexp.c Scm_Error("{n,m}-syntax requires n <= m: %S", ctx->pattern); pattern 537 src/regexp.c MAX_LIMITED_REPEAT, ctx->pattern); pattern 573 src/regexp.c Scm_Error("unterminated grouping in regexp %S", ctx->pattern); pattern 579 src/regexp.c Scm_Error("extra close parenthesis in regexp %S", ctx->pattern); pattern 725 src/regexp.c Scm_Error("bad regexp syntax in %S", ctx->pattern); pattern 749 src/regexp.c Scm_Error("bad charset spec in pattern: %S", ctx->pattern); pattern 1596 src/regexp.c ScmObj Scm_RegComp(ScmString *pattern, int flags) pattern 1602 src/regexp.c if (SCM_STRING_INCOMPLETE_P(pattern)) { pattern 1603 src/regexp.c Scm_Error("incomplete string is not allowed: %S", pattern); pattern 1605 src/regexp.c rx->pattern = SCM_STRING(Scm_CopyStringWithFlags(pattern, pattern 56 src/syslib.c ScmString* pattern; pattern 60 src/syslib.c pattern = SCM_STRING(pattern_scm); pattern 64 src/syslib.c SCM_RESULT = Scm_GlobDirectory(pattern); pattern 187 src/system.c ScmObj Scm_GlobDirectory(ScmString *pattern) pattern 193 src/system.c SCM_SYSCALL(r, glob(Scm_GetStringConst(pattern), 0, NULL, &globbed)); pattern 199 src/system.c Scm_Error("Couldn't glob %S", pattern); pattern 212 src/system.c const char *path = Scm_GetStringConst(pattern);