Bruce/tomo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Activity

Whitespace and ordering tweaks

Browse Source
This commit is contained in:
Bruce Hill 2024-02-13 22:56:10 -05:00
parent 85bd567d3c
commit 187cbc7610
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compile.c
View File

@ -223,11 +223,12 @@ CORD compile(env_t *env, ast_t *ast)
if (arg->next) passed_args = CORD_cat(passed_args, ", "); if (arg->next) passed_args = CORD_cat(passed_args, ", ");
} }
CORD_appendf(&kwargs, "} __args = {__VA_ARGS__}; %r_(%r); })\n", name, passed_args); CORD_appendf(&kwargs, "} __args = {__VA_ARGS__}; %r_(%r); })\n", name, passed_args);
CORD_appendf(&env->staticdefs, "%r", kwargs);
CORD body = compile(env, fndef->body); CORD body = compile(env, fndef->body);
if (CORD_fetch(body, 0) != '{') if (CORD_fetch(body, 0) != '{')
body = CORD_asprintf("{\n%r\n}", body); body = CORD_asprintf("{\n%r\n}", body);
CORD_appendf(&env->funcs, ") %r\n%r", body, kwargs); CORD_appendf(&env->funcs, ") %r", body);
return CORD_EMPTY; return CORD_EMPTY;
} }
case FunctionCall: { case FunctionCall: {
@ -349,7 +350,7 @@ CORD compile(env_t *env, ast_t *ast)
if (test->expr->tag == Declare) { if (test->expr->tag == Declare) {
auto decl = Match(test->expr, Declare); auto decl = Match(test->expr, Declare);
return CORD_asprintf( return CORD_asprintf(
"__declare(%r, %r);\n__test(%r, %r, %r);\n", "__declare(%r, %r);\n__test(%r, %r, %r);",
compile(env, decl->var), compile(env, decl->value), compile(env, decl->var), compile(env, decl->value),
compile(env, WrapAST(test->expr, StringLiteral, .cord=src)), compile(env, WrapAST(test->expr, StringLiteral, .cord=src)),
compile(env, decl->var), compile(env, decl->var),
@ -380,7 +381,7 @@ CORD compile(env_t *env, ast_t *ast)
return CORD_cat(code, "\n}"); return CORD_cat(code, "\n}");
} else { } else {
return CORD_asprintf( return CORD_asprintf(
"__test(%r, %r, %r);\n", "__test(%r, %r, %r);",
compile(env, WrapAST(test->expr, StringLiteral, .cord=src)), compile(env, WrapAST(test->expr, StringLiteral, .cord=src)),
compile(env, test->expr), compile(env, test->expr),
compile(env, WrapAST(test->expr, StringLiteral, .cord=test->output))); compile(env, WrapAST(test->expr, StringLiteral, .cord=test->output)));