rules 73 src/gauche/macro.h ScmSyntaxRuleBranch rules[1]; /* variable length */ rules 83 src/gauche/macro.h ScmObj rules, ScmObj mod, ScmObj env); rules 518 src/intlib.c ScmObj rules; rules 529 src/intlib.c rules = (rules_scm); rules 537 src/intlib.c SCM_RESULT = Scm_CompileSyntaxRules(name, literals, rules, mod, env); rules 132 src/macro.c i, r->rules[i].numPvars, r->rules[i].maxLevel); rules 133 src/macro.c Scm_Printf(port, " pattern = %S\n", r->rules[i].pattern); rules 134 src/macro.c Scm_Printf(port, " template = %S\n", r->rules[i].template); rules 466 src/macro.c ScmObj rules, rules 474 src/macro.c int numRules = Scm_Length(rules), i; rules 488 src/macro.c for (i=0, rp = rules; i < numRules; i++, rp = SCM_CDR(rp)) { rules 506 src/macro.c sr->rules[i].pattern = SCM_OBJ(pat->pattern); rules 507 src/macro.c sr->rules[i].template = SCM_OBJ(tmpl->pattern); rules 508 src/macro.c sr->rules[i].numPvars = ctx.pvcnt; rules 509 src/macro.c sr->rules[i].maxLevel = ctx.maxlev; rules 516 src/macro.c Scm_Cons(SCM_SYM_SYNTAX_RULES, Scm_Cons(literals, rules))); rules 882 src/macro.c Scm_Printf(SCM_CUROUT, "pattern #%d: %S\n", i, sr->rules[i].pattern); rules 884 src/macro.c init_matchvec(mvec, sr->rules[i].numPvars); rules 885 src/macro.c if (match_synrule(SCM_CDR(form), sr->rules[i].pattern, env, mvec)) { rules 888 src/macro.c print_matchvec(mvec, sr->rules[i].numPvars, SCM_CUROUT); rules 890 src/macro.c expanded = realize_template(&sr->rules[i], mvec); rules 909 src/macro.c ScmObj Scm_CompileSyntaxRules(ScmObj name, ScmObj literals, ScmObj rules, rules 919 src/macro.c sr = compile_rules(name, literals, rules, SCM_MODULE(mod), env);