#!/usr/bin/env node
import { Runtime } from "./runtime.js"
const runtime = new Runtime("compile.phi")
function _Emitter(_ast, _filename) {
runtime.pushCall("Emitter");
let _output = runtime.assignValue(({ type: "list", values: [] }));
let [_enter_scope, _leave_scope, _define_sym, _get_sym] = runtime.assignValue((runtime.setLine(5), _Syms()));
function _generate() {
runtime.pushCall("generate");
(runtime.setLine(8), _emit(({ type: "string", value: "#!/usr/bin/env node\n" })));
(runtime.setLine(9), _emit(({ type: "string", value: "import { Runtime } from \"./runtime.js\"\n" })));
(runtime.setLine(10), _emit(({ type: "string", value: "const runtime = new Runtime(\"" })));
(runtime.setLine(11), _emit(_filename));
(runtime.setLine(12), _emit(({ type: "string", value: "\")\n" })));
(runtime.setLine(13), _discover_syms(_ast));
(runtime.setLine(14), _emit_exprs(_ast));
runtime.popCall();
return (runtime.setLine(15), ((...args) => runtime.builtinStringsJoin(...args))(_output));
;
runtime.popCall();
return { type: "null" };
};
function _emit_exprs(_exprs) {
runtime.pushCall("emit_exprs");
for (let _expr of _exprs) {
(runtime.setLine(20), _emit_expr(_expr));
(runtime.setLine(21), _emit(({ type: "string", value: ";\n" })));
};
;
runtime.popCall();
return { type: "null" };
};
function _discover_syms(_exprs) {
runtime.pushCall("discover_syms");
for (let _expr of _exprs) {
let [_ty, _line] = runtime.assignValue(_expr);
if (runtime.opNe(_ty, ({ type: "string", value: "list" }))) {
runtime.popCall();
return { type: "null" }};
let [, , _s] = runtime.assignValue(_expr);
if (runtime.opEq((runtime.setLine(30), ((...args) => runtime.builtinLen(...args))(_s)), ({ type: "int", value: 0 }))) {
runtime.popCall();
return { type: "null" }};
let [[, , _id]] = runtime.assignValue(_s);
if (runtime.opEq(_id, ({ type: "string", value: "fn" }))) {
let [, [, , _name], [, , _params], _body] = runtime.assignValue(_s);
(runtime.setLine(34), _define_sym(_name, ({ type: "list", values: [] })));
};
};
;
runtime.popCall();
return { type: "null" };
};
function _emit_expr(_expr) {
runtime.pushCall("emit_expr");
let [_ty, _line] = runtime.assignValue(_expr);
if (runtime.opEq(_ty, ({ type: "string", value: "list" }))) {
(runtime.setLine(42), _emit_list(_expr));
} else {
if (runtime.opEq(_ty, ({ type: "string", value: "int" }))) {
({ type: "list", values: [] })} else {
if (runtime.opEq(_ty, ({ type: "string", value: "string" }))) {
({ type: "list", values: [] })} else {
if (runtime.opEq(_ty, ({ type: "string", value: "ident" }))) {
let [, , _value] = runtime.assignValue(_expr);
if (runtime.opEq(_value, ({ type: "string", value: "null" }))) {
(runtime.setLine(53), _emit(({ type: "string", value: "({ type: \"null\" })" })));
runtime.popCall();
return { type: "null" };
} else {
if (runtime.opEq(_value, ({ type: "string", value: "false" }))) {
(runtime.setLine(56), _emit(({ type: "string", value: "({ type: \"bool\", value: false })" })));
runtime.popCall();
return { type: "null" };
} else {
if (runtime.opEq(_value, ({ type: "string", value: "true" }))) {
(runtime.setLine(59), _emit(({ type: "string", value: "({ type: \"bool\", value: true })" })));
runtime.popCall();
return { type: "null" };
}}};
let _sym = runtime.assignValue((runtime.setLine(63), _get_sym(_value)));
if (runtime.opEq(_sym, ({ type: "null" }))) {
(runtime.setLine(65), ((...args) => runtime.builtinPanic(...args))(({ type: "string", value: "undefined symbol '%' on line %" }), _value, _line));
};
let [_sym_ty] = runtime.assignValue(_sym);
if (runtime.opEq(_sym_ty, ({ type: "string", value: "builtin" }))) {
let [, _id] = runtime.assignValue(_sym);
(runtime.setLine(71), _emit((runtime.setLine(71), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "((...args) => runtime.%(...args))" }), _id))));
} else {
if (runtime.opEq(_sym_ty, ({ type: "string", value: "fn" }))) {
(runtime.setLine(73), _emit((runtime.setLine(73), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "_%" }), _value))));
} else {
if (runtime.opEq(_sym_ty, ({ type: "string", value: "param" }))) {
(runtime.setLine(75), _emit((runtime.setLine(75), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "_%" }), _value))));
} else {
if (runtime.opEq(_sym_ty, ({ type: "string", value: "let" }))) {
(runtime.setLine(77), _emit((runtime.setLine(77), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "_%" }), _value))));
} else {
(runtime.setLine(79), ((...args) => runtime.builtinPanic(...args))(({ type: "string", value: "not implemented '%'" }), _sym_ty));
}}}};
} else {
(runtime.setLine(82), ((...args) => runtime.builtinPanic(...args))(({ type: "string", value: "unknown expr type '%' on line %" }), _ty, _line));
}}}};
;
runtime.popCall();
return { type: "null" };
};
function _emit_list(_expr) {
runtime.pushCall("emit_list");
let [_ty, _line, _s] = runtime.assignValue(_expr);
if (runtime.opEq((runtime.setLine(88), ((...args) => runtime.builtinLen(...args))(_s)), ({ type: "int", value: 0 }))) {
(runtime.setLine(89), _emit(({ type: "string", value: "({ type: \"list\", values: [] })" })));
runtime.popCall();
return { type: "null" };
};
let [[_id_ty, , _id]] = runtime.assignValue(_s);
if (runtime.opNe(_id_ty, ({ type: "string", value: "ident" }))) {
(runtime.setLine(94), _emit(({ type: "string", value: "({ type: \"list\", values: [] })" })));
runtime.popCall();
return { type: "null" };
};
if (runtime.opEq(_id, ({ type: "string", value: "fn" }))) {
let [, [, , _name], [, , _params], _body] = runtime.assignValue(_s);
(runtime.setLine(99), _emit((runtime.setLine(99), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "function _%(" }), _name))));
(runtime.setLine(101), _enter_scope());
let _first = runtime.assignValue(({ type: "bool", value: true }));
for (let [, , _name] of _params) {
if (runtime.opNot(_first)) {
(runtime.setLine(106), _emit(({ type: "string", value: ", " })));
};
(_first = runtime.assignValue(({ type: "bool", value: false })));
(runtime.setLine(110), _emit((runtime.setLine(110), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "_%" }), _name))));
(runtime.setLine(112), _define_sym(_name, ({ type: "list", values: [] })));
};
(runtime.setLine(116), _emit((runtime.setLine(116), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: ") {\n" }), _name))));
(runtime.setLine(117), _emit((runtime.setLine(117), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "runtime.pushCall(\"%\");\n" }), _name))));
(runtime.setLine(119), _emit_expr(_body));
(runtime.setLine(120), _emit(({ type: "string", value: ";\nruntime.popCall();\nreturn { type: \"null\" };\n}" })));
(runtime.setLine(122), _leave_scope());
} else {
if (runtime.opEq(_id, ({ type: "string", value: "let" }))) {
let [, _pat, _expr] = runtime.assignValue(_s);
(runtime.setLine(125), _emit(({ type: "string", value: "let " })));
(runtime.setLine(126), _emit_pat(_pat));
(runtime.setLine(127), _emit(({ type: "string", value: " = runtime.assignValue(" })));
(runtime.setLine(128), _emit_expr(_expr));
(runtime.setLine(129), _emit(({ type: "string", value: ")" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "do" }))) {
(runtime.setLine(131), _enter_scope());
(runtime.setLine(132), _discover_syms((runtime.setLine(132), _slice(_s, ({ type: "int", value: 1 })))));
(runtime.setLine(133), _emit_exprs((runtime.setLine(133), _slice(_s, ({ type: "int", value: 1 })))));
(runtime.setLine(134), _leave_scope());
} else {
if (runtime.opEq(_id, ({ type: "string", value: "for" }))) {
let [, _pat, _expr, _body] = runtime.assignValue(_s);
(runtime.setLine(137), _enter_scope());
(runtime.setLine(138), _emit(({ type: "string", value: "for (let " })));
(runtime.setLine(139), _emit_pat(_pat));
(runtime.setLine(140), _emit(({ type: "string", value: " of " })));
(runtime.setLine(141), _emit_expr(_expr));
(runtime.setLine(142), _emit(({ type: "string", value: ") {\n" })));
(runtime.setLine(143), _emit_expr(_body));
(runtime.setLine(144), _emit(({ type: "string", value: "}" })));
(runtime.setLine(145), _leave_scope());
} else {
if (runtime.opEq(_id, ({ type: "string", value: "loop" }))) {
let [, _body] = runtime.assignValue(_s);
(runtime.setLine(148), _emit(({ type: "string", value: "while (true) {\n" })));
(runtime.setLine(149), _emit_expr(_body));
(runtime.setLine(150), _emit(({ type: "string", value: "}" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "if" }))) {
let [, _cond, _truthy, _falsy] = runtime.assignValue(_s);
(runtime.setLine(153), _emit(({ type: "string", value: "if (" })));
(runtime.setLine(154), _emit_expr(_cond));
(runtime.setLine(155), _emit(({ type: "string", value: ") {\n" })));
(runtime.setLine(156), _emit_expr(_truthy));
(runtime.setLine(157), _emit(({ type: "string", value: "}" })));
if (runtime.opNe(_falsy, ({ type: "null" }))) {
(runtime.setLine(159), _emit(({ type: "string", value: " else {\n" })));
(runtime.setLine(160), _emit_expr(_falsy));
(runtime.setLine(161), _emit(({ type: "string", value: "}" })));
};
} else {
if (runtime.opEq(_id, ({ type: "string", value: "return" }))) {
let [, _value] = runtime.assignValue(_s);
(runtime.setLine(165), _emit(({ type: "string", value: "runtime.popCall();\n" })));
(runtime.setLine(166), _emit(({ type: "string", value: "return " })));
if (runtime.opNe(_value, ({ type: "null" }))) {
(runtime.setLine(168), _emit_expr(_value));
} else {
(runtime.setLine(170), _emit(({ type: "string", value: "{ type: \"null\" }" })));
};
} else {
if (runtime.opEq(_id, ({ type: "string", value: "break" }))) {
let [, _value] = runtime.assignValue(_s);
(runtime.setLine(174), _emit(({ type: "string", value: "break" })));
if (runtime.opNe(_value, ({ type: "null" }))) {
(runtime.setLine(176), ((...args) => runtime.builtinPanic(...args))(({ type: "string", value: "not implemented" })));
};
} else {
if (runtime.opEq(_id, ({ type: "string", value: "call" }))) {
let [, _callee] = runtime.assignValue(_s);
let _args = runtime.assignValue((runtime.setLine(180), _slice(_s, ({ type: "int", value: 2 }))));
(runtime.setLine(181), _emit((runtime.setLine(181), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "(runtime.setLine(%), " }), _line))));
(runtime.setLine(182), _emit_expr(_callee));
(runtime.setLine(183), _emit(({ type: "string", value: "(" })));
let _first = runtime.assignValue(({ type: "bool", value: true }));
for (let _arg of _args) {
if (runtime.opNot(_first)) {
(runtime.setLine(188), _emit(({ type: "string", value: ", " })));
};
(_first = runtime.assignValue(({ type: "bool", value: false })));
(runtime.setLine(192), _emit_expr(_arg));
};
(runtime.setLine(195), _emit(({ type: "string", value: "))" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "=" }))) {
(runtime.setLine(197), _emit_assign_expr(_s, _line, ({ type: "string", value: "=" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "+=" }))) {
(runtime.setLine(199), _emit_assign_expr(_s, _line, ({ type: "string", value: "+" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "-=" }))) {
(runtime.setLine(201), _emit_assign_expr(_s, _line, ({ type: "string", value: "-" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "or" }))) {
let [, _left, _right] = runtime.assignValue(_s);
(runtime.setLine(204), _emit((runtime.setLine(204), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "(runtime.setLine(%)" }), _line))));
(runtime.setLine(205), _emit(({ type: "string", value: ", { type: \"bool\", value: this.runtime.truthy(" })));
(runtime.setLine(206), _emit_expr(_left));
(runtime.setLine(207), _emit(({ type: "string", value: ") || this.runtime.falsy(" })));
(runtime.setLine(208), _emit_expr(_right));
(runtime.setLine(209), _emit(({ type: "string", value: ") })" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "and" }))) {
let [, _left, _right] = runtime.assignValue(_s);
(runtime.setLine(212), _emit((runtime.setLine(212), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "(runtime.setLine(%)" }), _line))));
(runtime.setLine(213), _emit(({ type: "string", value: ", { type: \"bool\", value: this.runtime.truthy(" })));
(runtime.setLine(214), _emit_expr(_left));
(runtime.setLine(215), _emit(({ type: "string", value: ") && this.runtime.falsy(" })));
(runtime.setLine(216), _emit_expr(_right));
(runtime.setLine(217), _emit(({ type: "string", value: ") })" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "==" }))) {
(runtime.setLine(219), _emit_binary_op(_s, ({ type: "string", value: "opEq" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "!=" }))) {
(runtime.setLine(221), _emit_binary_op(_s, ({ type: "string", value: "opNe" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "<" }))) {
(runtime.setLine(223), _emit_binary_op(_s, ({ type: "string", value: "opLt" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: ">" }))) {
(runtime.setLine(225), _emit_binary_op(_s, ({ type: "string", value: "opGt" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "<=" }))) {
(runtime.setLine(227), _emit_binary_op(_s, ({ type: "string", value: "opLte" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: ">=" }))) {
(runtime.setLine(229), _emit_binary_op(_s, ({ type: "string", value: "opGte" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "+" }))) {
(runtime.setLine(231), _emit_binary_op(_s, ({ type: "string", value: "opAdd" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "-" }))) {
(runtime.setLine(233), _emit_binary_op(_s, ({ type: "string", value: "opSub" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "not" }))) {
let [, _expr] = runtime.assignValue(_s);
(runtime.setLine(236), _emit(({ type: "string", value: "runtime.opNot(" })));
(runtime.setLine(237), _emit_expr(_expr));
(runtime.setLine(238), _emit(({ type: "string", value: ")" })));
} else {
(runtime.setLine(240), _emit(({ type: "string", value: "({ type: \"list\", values: [" })));
let _first = runtime.assignValue(({ type: "bool", value: true }));
for (let _e of _s) {
if (runtime.opNot(_first)) {
(runtime.setLine(244), _emit(({ type: "string", value: ", " })));
};
(_first = runtime.assignValue(({ type: "bool", value: false })));
(runtime.setLine(248), _emit_expr(_e));
};
(runtime.setLine(250), _emit(({ type: "string", value: "] })" })));
}}}}}}}}}}}}}}}}}}}}}}};
;
runtime.popCall();
return { type: "null" };
};
function _emit_binary_op(_s, _id) {
runtime.pushCall("emit_binary_op");
let [, _left, _right] = runtime.assignValue(_s);
(runtime.setLine(256), _emit((runtime.setLine(256), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "runtime.%(" }), _id))));
(runtime.setLine(257), _emit_expr(_left));
(runtime.setLine(258), _emit(({ type: "string", value: ", " })));
(runtime.setLine(259), _emit_expr(_right));
(runtime.setLine(260), _emit(({ type: "string", value: ")" })));
;
runtime.popCall();
return { type: "null" };
};
function _emit_assign_expr(_s, _line, _id) {
runtime.pushCall("emit_assign_expr");
let [, [_target_type], _expr] = runtime.assignValue(_s);
if (runtime.opEq(_target_type, ({ type: "string", value: "ident" }))) {
let [, [, , _ident]] = runtime.assignValue(_s);
let _sym = runtime.assignValue((runtime.setLine(267), _get_sym(_ident)));
if (runtime.opEq(_sym, ({ type: "null" }))) {
(runtime.setLine(269), ((...args) => runtime.builtinPanic(...args))(({ type: "string", value: "could not find symbol '%' on line %" }), _ident, _line));
};
let [_sym_type, _sym_ident, ] = runtime.assignValue(_sym);
if (runtime.opEq(_sym_type, ({ type: "string", value: "let" }))) {
(runtime.setLine(273), _emit((runtime.setLine(273), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "(_% = runtime.assignValue(" }), _sym_ident))));
if (runtime.opEq(_id, ({ type: "string", value: "=" }))) {
(runtime.setLine(275), _emit_expr(_expr));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "+" }))) {
(runtime.setLine(277), _emit((runtime.setLine(277), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "runtime.opAdd(_%, " }), _sym_ident))));
(runtime.setLine(278), _emit_expr(_expr));
(runtime.setLine(279), _emit(({ type: "string", value: ")" })));
} else {
if (runtime.opEq(_id, ({ type: "string", value: "-" }))) {
(runtime.setLine(281), _emit((runtime.setLine(281), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "runtime.opSub(_%, " }), _sym_ident))));
(runtime.setLine(282), _emit_expr(_expr));
(runtime.setLine(283), _emit(({ type: "string", value: ")" })));
} else {
(runtime.setLine(285), ((...args) => runtime.builtinPanic(...args))(({ type: "string", value: "not implemented" })));
}}};
(runtime.setLine(287), _emit(({ type: "string", value: "))" })));
} else {
(runtime.setLine(289), ((...args) => runtime.builtinPanic(...args))(({ type: "string", value: "cannot assign to symbol '%' on line %" }), _sym_ident, _line));
};
} else {
(runtime.setLine(292), ((...args) => runtime.builtinPanic(...args))(({ type: "string", value: "cannot assign to expression on line %" }), _line));
};
;
runtime.popCall();
return { type: "null" };
};
function _emit_pat(_pat) {
runtime.pushCall("emit_pat");
let [_ty] = runtime.assignValue(_pat);
if (runtime.opEq(_ty, ({ type: "string", value: "ident" }))) {
let [, _line, _name] = runtime.assignValue(_pat);
if (runtime.opEq(_name, ({ type: "string", value: "_" }))) {
runtime.popCall();
return { type: "null" };
};
(runtime.setLine(303), _emit((runtime.setLine(303), ((...args) => runtime.builtinFormat(...args))(({ type: "string", value: "_%" }), _name))));
(runtime.setLine(304), _define_sym(_name, ({ type: "list", values: [] })));
} else {
if (runtime.opEq(_ty, ({ type: "string", value: "list" }))) {
let [, , _pats] = runtime.assignValue(_pat);
(runtime.setLine(307), _emit(({ type: "string", value: "[" })));
let _first = runtime.assignValue(({ type: "bool", value: true }));
for (let _pat of _pats) {
if (runtime.opNot(_first)) {
(runtime.setLine(311), _emit(({ type: "string", value: ", " })));
};
(_first = runtime.assignValue(({ type: "bool", value: false })));
(runtime.setLine(315), _emit_pat(_pat));
};
(runtime.setLine(317), _emit(({ type: "string", value: "]" })));
} else {
(runtime.setLine(319), ((...args) => runtime.builtinPanic(...args))(({ type: "string", value: "cannot assign to '%'" }), _pat));
}};
;
runtime.popCall();
return { type: "null" };
};
function _emit(_str) {
runtime.pushCall("emit");
(runtime.setLine(324), ((...args) => runtime.builtinPush(...args))(_output, _str));
;
runtime.popCall();
return { type: "null" };
};
runtime.popCall();
return ({ type: "list", values: [_generate] });
;
runtime.popCall();
return { type: "null" };
};
function _Syms() {
runtime.pushCall("Syms");
let _syms = runtime.assignValue(({ type: "list", values: [({ type: "null" }), ({ type: "list", values: [] })] }));
function _enter_scope() {
runtime.pushCall("enter_scope");
(_syms = runtime.assignValue(({ type: "list", values: [_syms, ({ type: "list", values: [] })] })));
;
runtime.popCall();
return { type: "null" };
};
function _leave_scope() {
runtime.pushCall("leave_scope");
let [_parent, ] = runtime.assignValue(_syms);
(_syms = runtime.assignValue(_parent));
;
runtime.popCall();
return { type: "null" };
};
function _define(_ident, _sym) {
runtime.pushCall("define");
let [, _syms] = runtime.assignValue(_syms);
let _i = runtime.assignValue(({ type: "int", value: 0 }));
while (true) {
if (runtime.opGte(_i, (runtime.setLine(361), ((...args) => runtime.builtinLen(...args))(_syms)))) {
break};
let [_s_ident, ] = runtime.assignValue((runtime.setLine(362), ((...args) => runtime.builtinAt(...args))(_syms, _i)));
if (runtime.opEq(_ident, _s_ident)) {
(runtime.setLine(364), ((...args) => runtime.builtinSet(...args))(_syms, _i, ({ type: "list", values: [_ident, _sym] })));
runtime.popCall();
return { type: "null" };
};
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
};
(runtime.setLine(369), ((...args) => runtime.builtinPush(...args))(_syms, ({ type: "list", values: [_ident, _sym] })));
;
runtime.popCall();
return { type: "null" };
};
function _find_sym(_syms, _ident) {
runtime.pushCall("find_sym");
let [_parent, _map] = runtime.assignValue(_syms);
let _i = runtime.assignValue(({ type: "int", value: 0 }));
while (true) {
if (runtime.opGte(_i, (runtime.setLine(376), ((...args) => runtime.builtinLen(...args))(_map)))) {
break};
let [_s_ident, _s_sym] = runtime.assignValue((runtime.setLine(377), ((...args) => runtime.builtinAt(...args))(_map, _i)));
if (runtime.opEq(_ident, _s_ident)) {
runtime.popCall();
return _s_sym;
};
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
};
if (runtime.opNe(_parent, ({ type: "null" }))) {
runtime.popCall();
return (runtime.setLine(384), _find_sym(_parent, _ident));
};
runtime.popCall();
return ({ type: "null" });
;
runtime.popCall();
return { type: "null" };
};
function _get(_ident) {
runtime.pushCall("get");
runtime.popCall();
return (runtime.setLine(390), _find_sym(_syms, _ident));
;
runtime.popCall();
return { type: "null" };
};
runtime.popCall();
return ({ type: "list", values: [_enter_scope, _leave_scope, _define, _get] });
;
runtime.popCall();
return { type: "null" };
};
function _string_escape(_str) {
runtime.pushCall("string_escape");
let _str_len = runtime.assignValue((runtime.setLine(403), ((...args) => runtime.builtinLen(...args))(_str)));
let _i = runtime.assignValue(({ type: "int", value: 0 }));
let _result = runtime.assignValue(({ type: "string", value: "" }));
while (true) {
if (runtime.opGte(_i, _str_len)) {
break};
let _ch = runtime.assignValue((runtime.setLine(408), ((...args) => runtime.builtinAt(...args))(_str, _i)));
if (runtime.opEq(_ch, ({ type: "string", value: "\\" }))) {
(_result = runtime.assignValue(runtime.opAdd(_result, ({ type: "string", value: "\\\\" }))));
} else {
if (runtime.opEq(_ch, ({ type: "string", value: "\"" }))) {
(_result = runtime.assignValue(runtime.opAdd(_result, ({ type: "string", value: "\\\"" }))));
} else {
if (runtime.opEq(_ch, ({ type: "string", value: "\t" }))) {
(_result = runtime.assignValue(runtime.opAdd(_result, ({ type: "string", value: "\\t" }))));
} else {
if (runtime.opEq(_ch, ({ type: "string", value: "\r" }))) {
(_result = runtime.assignValue(runtime.opAdd(_result, ({ type: "string", value: "\\r" }))));
} else {
if (runtime.opEq(_ch, ({ type: "string", value: "\n" }))) {
(_result = runtime.assignValue(runtime.opAdd(_result, ({ type: "string", value: "\\n" }))));
} else {
if (runtime.opEq(_ch, ({ type: "string", value: "\n" }))) {
(_result = runtime.assignValue(runtime.opAdd(_result, ({ type: "string", value: "\\0" }))));
} else {
(_result = runtime.assignValue(runtime.opAdd(_result, _ch)));
}}}}}};
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
};
runtime.popCall();
return _result;
;
runtime.popCall();
return { type: "null" };
};
function _Parser(_tokens) {
runtime.pushCall("Parser");
let _i = runtime.assignValue(({ type: "int", value: 0 }));
let _tok = runtime.assignValue((runtime.setLine(431), ((...args) => runtime.builtinAt(...args))(_tokens, _i)));
function _parse() {
runtime.pushCall("parse");
let _exprs = runtime.assignValue(({ type: "list", values: [] }));
while (true) {
if ((runtime.setLine(436), _done())) {
break};
(runtime.setLine(437), ((...args) => runtime.builtinPush(...args))(_exprs, (runtime.setLine(437), _parse_expr())));
};
runtime.popCall();
return _exprs;
;
runtime.popCall();
return { type: "null" };
};
function _parse_expr() {
runtime.pushCall("parse_expr");
let [_ty, _line, _value] = runtime.assignValue(_tok);
if ((runtime.setLine(444), _eat(({ type: "string", value: "(" })))) {
let _values = runtime.assignValue(({ type: "list", values: [] }));
while (true) {
if ((runtime.setLine(447), _test(({ type: "string", value: ")" })))) {
break};
(runtime.setLine(448), ((...args) => runtime.builtinPush(...args))(_values, (runtime.setLine(448), _parse_expr())));
};
if (runtime.opNot((runtime.setLine(450), _eat(({ type: "string", value: ")" }))))) {
(runtime.setLine(451), ((...args) => runtime.builtinPanic(...args))(({ type: "string", value: "expected ')' on line %" }), (runtime.setLine(451), ((...args) => runtime.builtinAt(...args))(_tok, ({ type: "int", value: 1 })))));
};
runtime.popCall();
return ({ type: "list", values: [] });
} else {
if ((runtime.setLine(454), _eat(({ type: "string", value: "string" })))) {
runtime.popCall();
return ({ type: "list", values: [] });
} else {
if ((runtime.setLine(456), _eat(({ type: "string", value: "int" })))) {
runtime.popCall();
return ({ type: "list", values: [] });
} else {
if ((runtime.setLine(458), _eat(({ type: "string", value: "ident" })))) {
runtime.popCall();
return ({ type: "list", values: [] });
} else {
(runtime.setLine(461), ((...args) => runtime.builtinPanic(...args))(({ type: "string", value: "expected expression, got '%' on line %" }), _ty, _line));
}}}};
;
runtime.popCall();
return { type: "null" };
};
function _eat(_pat) {
runtime.pushCall("eat");
if (runtime.opNot((runtime.setLine(466), _test(_pat)))) {
runtime.popCall();
return ({ type: "bool", value: false })};
(runtime.setLine(467), _step());
runtime.popCall();
return ({ type: "bool", value: true });
;
runtime.popCall();
return { type: "null" };
};
function _step() {
runtime.pushCall("step");
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
if (runtime.opNot((runtime.setLine(473), _done()))) {
let _new_tok = runtime.assignValue((runtime.setLine(474), ((...args) => runtime.builtinAt(...args))(_tokens, _i)));
(_tok = runtime.assignValue(_new_tok));
};
;
runtime.popCall();
return { type: "null" };
};
function _test(_pat) {
runtime.pushCall("test");
if ((runtime.setLine(480), _done())) {
runtime.popCall();
return ({ type: "bool", value: false })};
let [_ty] = runtime.assignValue(_tok);
runtime.popCall();
return runtime.opEq(_pat, _ty);
;
runtime.popCall();
return { type: "null" };
};
function _done() {
runtime.pushCall("done");
runtime.popCall();
return runtime.opGte(_i, (runtime.setLine(486), ((...args) => runtime.builtinLen(...args))(_tokens)));
;
runtime.popCall();
return { type: "null" };
};
runtime.popCall();
return ({ type: "list", values: [_parse] });
;
runtime.popCall();
return { type: "null" };
};
function _tokenize(_text) {
runtime.pushCall("tokenize");
let _text_len = runtime.assignValue((runtime.setLine(493), ((...args) => runtime.builtinLen(...args))(_text)));
let _tokens = runtime.assignValue(({ type: "list", values: [] }));
let _i = runtime.assignValue(({ type: "int", value: 0 }));
let _line = runtime.assignValue(({ type: "int", value: 1 }));
let _ident_chars = runtime.assignValue(runtime.opAdd(({ type: "string", value: "abcdefghijklmnopqrstuvwxyz" }), ({ type: "string", value: "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890+-*/%&|=?!<>'_" })));
while (true) {
if (runtime.opGte(_i, _text_len)) {
break};
let _ch = runtime.assignValue((runtime.setLine(505), ((...args) => runtime.builtinAt(...args))(_text, _i)));
if ((runtime.setLine(507), _contains(({ type: "string", value: " \t\r\n" }), _ch))) {
if (runtime.opEq(_ch, ({ type: "string", value: "\n" }))) {
(_line = runtime.assignValue(runtime.opAdd(_line, ({ type: "int", value: 1 }))));
};
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
} else {
if ((runtime.setLine(512), _slice_eq(_text, _i, ({ type: "string", value: "//" })))) {
while (true) {
if ((runtime.setLine(514), { type: "bool", value: this.runtime.truthy(runtime.opGte(_i, _text_len)) || this.runtime.falsy(runtime.opEq((runtime.setLine(514), ((...args) => runtime.builtinAt(...args))(_text, _i)), ({ type: "string", value: "\n" }))) })) {
break;
};
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
};
} else {
if ((runtime.setLine(519), _contains(({ type: "string", value: "()" }), _ch))) {
(runtime.setLine(520), ((...args) => runtime.builtinPush(...args))(_tokens, ({ type: "list", values: [_ch, _line] })));
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
} else {
if (runtime.opEq(_ch, ({ type: "string", value: "\"" }))) {
let _value = runtime.assignValue(({ type: "string", value: "" }));
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
(_ch = runtime.assignValue((runtime.setLine(525), ((...args) => runtime.builtinAt(...args))(_text, _i))));
while (true) {
if ((runtime.setLine(527), { type: "bool", value: this.runtime.truthy(runtime.opGte(_i, _text_len)) || this.runtime.falsy(runtime.opEq(_ch, ({ type: "string", value: "\"" }))) })) {
break;
};
if (runtime.opEq(_ch, ({ type: "string", value: "\\" }))) {
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
if (runtime.opGte(_i, _text_len)) {
break;
};
(_ch = runtime.assignValue((runtime.setLine(535), ((...args) => runtime.builtinAt(...args))(_text, _i))));
if (runtime.opEq(_ch, ({ type: "string", value: "t" }))) {
(_value = runtime.assignValue(runtime.opAdd(_value, ({ type: "string", value: "\t" }))));
} else {
if (runtime.opEq(_ch, ({ type: "string", value: "r" }))) {
(_value = runtime.assignValue(runtime.opAdd(_value, ({ type: "string", value: "\r" }))));
} else {
if (runtime.opEq(_ch, ({ type: "string", value: "n" }))) {
(_value = runtime.assignValue(runtime.opAdd(_value, ({ type: "string", value: "\n" }))));
} else {
if (runtime.opEq(_ch, ({ type: "string", value: "0" }))) {
(_value = runtime.assignValue(runtime.opAdd(_value, ({ type: "string", value: "\n" }))));
} else {
(_value = runtime.assignValue(runtime.opAdd(_value, _ch)));
}}}};
} else {
(_value = runtime.assignValue(runtime.opAdd(_value, _ch)));
};
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
(_ch = runtime.assignValue((runtime.setLine(551), ((...args) => runtime.builtinAt(...args))(_text, _i))));
};
if ((runtime.setLine(553), { type: "bool", value: this.runtime.truthy(runtime.opGte(_i, _text_len)) || this.runtime.falsy(runtime.opNe(_ch, ({ type: "string", value: "\"" }))) })) {
(runtime.setLine(554), ((...args) => runtime.builtinPanic(...args))(({ type: "string", value: "expected '\"' on line %" }), _line));
};
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
(runtime.setLine(557), ((...args) => runtime.builtinPush(...args))(_tokens, ({ type: "list", values: [] })));
} else {
if ((runtime.setLine(558), _contains(({ type: "string", value: "0123456789" }), _ch))) {
let _value = runtime.assignValue(({ type: "string", value: "" }));
while (true) {
(_ch = runtime.assignValue((runtime.setLine(561), ((...args) => runtime.builtinAt(...args))(_text, _i))));
if ((runtime.setLine(562), { type: "bool", value: this.runtime.truthy(runtime.opGte(_i, _text_len)) || this.runtime.falsy(runtime.opNot((runtime.setLine(562), _contains(({ type: "string", value: "0123456789" }), _ch)))) })) {
break;
};
(_value = runtime.assignValue(runtime.opAdd(_value, _ch)));
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
};
(runtime.setLine(568), ((...args) => runtime.builtinPush(...args))(_tokens, ({ type: "list", values: [] })));
} else {
if ((runtime.setLine(569), _contains(_ident_chars, _ch))) {
let _value = runtime.assignValue(({ type: "string", value: "" }));
while (true) {
(_ch = runtime.assignValue((runtime.setLine(572), ((...args) => runtime.builtinAt(...args))(_text, _i))));
if ((runtime.setLine(573), { type: "bool", value: this.runtime.truthy(runtime.opGte(_i, _text_len)) || this.runtime.falsy(runtime.opNot((runtime.setLine(573), _contains(_ident_chars, _ch)))) })) {
break;
};
(_value = runtime.assignValue(runtime.opAdd(_value, _ch)));
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
};
(runtime.setLine(579), ((...args) => runtime.builtinPush(...args))(_tokens, ({ type: "list", values: [] })));
} else {
(runtime.setLine(581), ((...args) => runtime.builtinPrintln(...args))(({ type: "string", value: "illegal char '%'" }), _ch));
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
}}}}}};
};
runtime.popCall();
return _tokens;
;
runtime.popCall();
return { type: "null" };
};
function _contains(_text, _ch) {
runtime.pushCall("contains");
let _text_len = runtime.assignValue((runtime.setLine(590), ((...args) => runtime.builtinLen(...args))(_text)));
let _i = runtime.assignValue(({ type: "int", value: 0 }));
while (true) {
if (runtime.opGte(_i, _text_len)) {
break};
if (runtime.opEq((runtime.setLine(594), ((...args) => runtime.builtinAt(...args))(_text, _i)), _ch)) {
runtime.popCall();
return ({ type: "bool", value: true });
};
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
};
runtime.popCall();
return ({ type: "bool", value: false });
;
runtime.popCall();
return { type: "null" };
};
function _slice_eq(_str, _slice_idx, _substr) {
runtime.pushCall("slice_eq");
let _str_len = runtime.assignValue((runtime.setLine(603), ((...args) => runtime.builtinLen(...args))(_str)));
let _substr_len = runtime.assignValue((runtime.setLine(604), ((...args) => runtime.builtinLen(...args))(_substr)));
let _i = runtime.assignValue(({ type: "int", value: 0 }));
while (true) {
if (runtime.opGte(_i, _substr_len)) {
runtime.popCall();
return ({ type: "bool", value: true })};
if (runtime.opGte(runtime.opAdd(_slice_idx, _i), _str_len)) {
runtime.popCall();
return ({ type: "bool", value: false })};
if (runtime.opNe((runtime.setLine(611), ((...args) => runtime.builtinAt(...args))(_str, runtime.opAdd(_slice_idx, _i))), (runtime.setLine(611), ((...args) => runtime.builtinAt(...args))(_substr, _i)))) {
runtime.popCall();
return ({ type: "bool", value: false })};
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
};
runtime.popCall();
return ({ type: "bool", value: true });
;
runtime.popCall();
return { type: "null" };
};
function _print_expr(_expr, _depth) {
runtime.pushCall("print_expr");
let [_ty, _line, _value] = runtime.assignValue(_expr);
if (runtime.opEq(_ty, ({ type: "string", value: "list" }))) {
(runtime.setLine(621), ((...args) => runtime.builtinPrintln(...args))(({ type: "string", value: "%(% %" }), (runtime.setLine(621), _indent(_depth)), _ty, _line));
for (let _e of _value) {
(runtime.setLine(623), _print_expr(_e, runtime.opAdd(_depth, ({ type: "int", value: 1 }))));
};
(runtime.setLine(625), ((...args) => runtime.builtinPrintln(...args))(({ type: "string", value: "%)" }), (runtime.setLine(625), _indent(_depth))));
} else {
(runtime.setLine(627), ((...args) => runtime.builtinPrintln(...args))(({ type: "string", value: "%%" }), (runtime.setLine(627), _indent(_depth)), _expr));
};
;
runtime.popCall();
return { type: "null" };
};
function _indent(_depth) {
runtime.pushCall("indent");
let _space = runtime.assignValue(({ type: "string", value: "" }));
let _i = runtime.assignValue(({ type: "int", value: 0 }));
while (true) {
if (runtime.opGte(_i, _depth)) {
break};
(_space = runtime.assignValue(runtime.opAdd(_space, ({ type: "string", value: "  " }))));
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
};
runtime.popCall();
return _space;
;
runtime.popCall();
return { type: "null" };
};
function _slice(_list, _idx) {
runtime.pushCall("slice");
let _list_len = runtime.assignValue((runtime.setLine(643), ((...args) => runtime.builtinLen(...args))(_list)));
let _elems = runtime.assignValue(({ type: "list", values: [] }));
let _i = runtime.assignValue(_idx);
while (true) {
if (runtime.opGte(_i, _list_len)) {
break};
(runtime.setLine(648), ((...args) => runtime.builtinPush(...args))(_elems, (runtime.setLine(648), ((...args) => runtime.builtinAt(...args))(_list, _i))));
(_i = runtime.assignValue(runtime.opAdd(_i, ({ type: "int", value: 1 }))));
};
runtime.popCall();
return _elems;
;
runtime.popCall();
return { type: "null" };
};
let _silent = runtime.assignValue(({ type: "bool", value: true }));
let [_input_filename, _output_filename] = runtime.assignValue((runtime.setLine(656), ((...args) => runtime.builtinGetArgs(...args))()));
if (runtime.opNot(_silent)) {
(runtime.setLine(658), ((...args) => runtime.builtinPrintln(...args))(({ type: "string", value: "reading file..." })))};
let _text = runtime.assignValue((runtime.setLine(659), ((...args) => runtime.builtinReadTextFile(...args))(_input_filename)));
if (runtime.opNot(_silent)) {
(runtime.setLine(664), ((...args) => runtime.builtinPrintln(...args))(({ type: "string", value: "tokenizing..." })))};
let _tokens = runtime.assignValue((runtime.setLine(665), _tokenize(_text)));
if (runtime.opNot(_silent)) {
(runtime.setLine(672), ((...args) => runtime.builtinPrintln(...args))(({ type: "string", value: "parsing..." })))};
let _parser = runtime.assignValue((runtime.setLine(673), _Parser(_tokens)));
let [_parse] = runtime.assignValue(_parser);
let _ast = runtime.assignValue((runtime.setLine(675), _parse()));
if (runtime.opNot(_silent)) {
(runtime.setLine(682), ((...args) => runtime.builtinPrintln(...args))(({ type: "string", value: "emitting..." })))};
let _emitter = runtime.assignValue((runtime.setLine(683), _Emitter(_ast, _input_filename)));
let [_emit] = runtime.assignValue(_emitter);
let _js_code = runtime.assignValue((runtime.setLine(685), _emit()));
if (runtime.opNot(_silent)) {
(runtime.setLine(690), ((...args) => runtime.builtinPrintln(...args))(({ type: "string", value: "writing file..." })))};
(runtime.setLine(691), ((...args) => runtime.builtinWriteTextFile(...args))(_output_filename, _js_code));