qi_value_t *__qistd0(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "l", qi_list_index(pargs, 0)); return qi_index(state, qi_get(state, "l"), qi_make_number(state, 0));return state->nil; } inline static qi_list_t *__qistd2(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "l"); qi_list_data(list, 1) = qi_make_number(state, 1); return list; } qi_value_t *__qistd1(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "l", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "slice"), __qistd2(state));return state->nil; } qi_value_t *__qistd3(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "x", qi_list_index(pargs, 0)); qi_decl(state, "y", qi_list_index(pargs, 1)); return (_qi_truthy(state, qi_lt(state, qi_get(state, "x"), qi_get(state, "y")))? qi_get(state, "x"): qi_get(state, "y"));return state->nil; } qi_value_t *__qistd4(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "x", qi_list_index(pargs, 0)); qi_decl(state, "y", qi_list_index(pargs, 1)); return (_qi_truthy(state, qi_gt(state, qi_get(state, "x"), qi_get(state, "y")))? qi_get(state, "x"): qi_get(state, "y"));return state->nil; } inline static qi_list_t *__qistd6(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "x"); return list; } inline static qi_list_t *__qistd7(qi_state_t *state) { qi_list_t *list = qi_list_make_n(3); qi_list_data(list, 0) = qi_make_string(state, "list"); qi_list_data(list, 1) = qi_make_string(state, "string"); qi_list_data(list, 2) = qi_make_string(state, "bytes"); return list; } inline static qi_list_t *__qistd8(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "x"); return list; } inline static qi_list_t *__qistd10(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "x"); return list; } inline static qi_list_t *__qistd11(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "r"); qi_list_data(list, 1) = qi_index(state, qi_get(state, "x"), qi_get(state, "i")); return list; } inline static qi_list_t *__qistd12(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "x"); return list; } inline static qi_list_t *__qistd13(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "r"); return list; } inline static qi_list_t *__qistd14(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "x"); return list; } inline static qi_list_t *__qistd15(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "r"); return list; } qi_value_t *__qistd5(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "x", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd6(state)), qi_make_tuple(state, __qistd7(state))))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, string or bytes, but got: "), qi_call(state, qi_get(state, "type"), __qistd8(state))));} qi_old_scope(state); qi_decl(state, "r", qi_make_list(state, NULL)); qi_new_scope(state); qi_decl(state, "i", qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd10(state)), qi_make_number(state, 1))); while (_qi_truthy(state, qi_ge(state, qi_get(state, "i"), qi_make_number(state, 0)))) { qi_new_scope(state); (void)(qi_call(state, qi_get(state, "list_push"), __qistd11(state)));__continue9:; qi_set(state, false, "i", qi_sub(state, qi_get(state, "i"), state->one)); qi_old_scope(state); } goto __exit9; __break9:; qi_old_scope(state); __exit9:; qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd12(state)), qi_make_string(state, "string")))) { qi_old_scope(state); return qi_call(state, qi_get(state, "list_join"), __qistd13(state));} else { qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd14(state)), qi_make_string(state, "bytes")))) { qi_old_scope(state); qi_old_scope(state); return qi_call(state, qi_get(state, "bytes"), __qistd15(state));} qi_old_scope(state); } qi_old_scope(state); return qi_get(state, "r"); return state->nil; } inline static qi_list_t *__qistd17(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "arguments"); return list; } inline static qi_list_t *__qistd18(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "arguments"); return list; } inline static qi_list_t *__qistd19(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "f"); return list; } inline static qi_list_t *__qistd20(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "f"); return list; } inline static qi_list_t *__qistd21(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "t"); return list; } inline static qi_list_t *__qistd22(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "t"); return list; } inline static qi_list_t *__qistd23(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd24(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd26(qi_state_t *state) { qi_list_t *list = qi_list_make_n(3); qi_list_data(list, 0) = qi_get(state, "t"); qi_list_data(list, 1) = qi_get(state, "f"); qi_list_data(list, 2) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd25(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_call(state, qi_get(state, "range"), __qistd26(state)); return list; } inline static qi_list_t *__qistd28(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "r"); qi_list_data(list, 1) = qi_get(state, "i"); return list; } qi_value_t *__qistd16(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 0)); qi_decl(state, "s", state->nil); qi_decl(state, "t", state->nil); qi_new_scope(state); if (_qi_truthy(state, qi_ge(state, qi_call(state, qi_get(state, "len"), __qistd17(state)), qi_make_number(state, 3)))) { (void)(qi_set(state, false, "t", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1)))); (void)(qi_set(state, false, "s", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 2)))); } else { qi_new_scope(state); if (_qi_truthy(state, qi_ge(state, qi_call(state, qi_get(state, "len"), __qistd18(state)), qi_make_number(state, 2)))) { (void)(qi_set(state, false, "t", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1)))); (void)(qi_set(state, false, "s", qi_make_number(state, 1))); } else { (void)(qi_set(state, false, "t", qi_get(state, "f"))); (void)(qi_set(state, false, "f", qi_make_number(state, 0))); (void)(qi_set(state, false, "s", qi_make_number(state, 1))); } qi_old_scope(state); } qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd19(state)), qi_make_string(state, "number")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd20(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd21(state)), qi_make_string(state, "number")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd22(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd23(state)), qi_make_string(state, "number")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected third argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd24(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_gt(state, qi_get(state, "f"), qi_get(state, "t")))) { qi_old_scope(state); return qi_call(state, qi_get(state, "reverse"), __qistd25(state));} qi_old_scope(state); qi_decl(state, "r", qi_make_list(state, NULL)); qi_new_scope(state); qi_decl(state, "i", qi_get(state, "f")); while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_get(state, "t")))) { qi_new_scope(state); (void)(qi_call(state, qi_get(state, "list_push"), __qistd28(state)));__continue27:; qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), qi_get(state, "s"))); qi_old_scope(state); } goto __exit27; __break27:; qi_old_scope(state); __exit27:; qi_old_scope(state); return qi_get(state, "r"); return state->nil; } qi_value_t *__qistd29(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "file", qi_list_index(pargs, 0)); return qi_call(state, qi_index(state, qi_get(state, "file"), qi_make_string(state, "rewind")), NULL);return state->nil; } inline static qi_list_t *__qistd31(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "filename"); qi_list_data(list, 1) = qi_make_string(state, "r"); return list; } inline static qi_list_t *__qistd33(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "file"); return list; } void __qistd32(qi_state_t *state) { (void)(qi_call(state, qi_get(state, "fclose"), __qistd33(state))); } inline static qi_list_t *__qistd35(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "file"); qi_list_data(list, 1) = qi_negate(state, qi_make_number(state, 1)); return list; } inline static qi_list_t *__qistd34(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_call(state, qi_get(state, "fread"), __qistd35(state)); return list; } qi_value_t *__qistd30(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "filename", qi_list_index(pargs, 0)); qi_decl_const(state, "file", qi_call(state, qi_get(state, "fopen"), __qistd31(state))); qi_add_defer(state, -1, __qistd32); return qi_call(state, qi_get(state, "str"), __qistd34(state)); return state->nil; } inline static qi_list_t *__qistd37(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "filename"); qi_list_data(list, 1) = qi_make_string(state, "w"); return list; } inline static qi_list_t *__qistd39(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "file"); return list; } void __qistd38(qi_state_t *state) { (void)(qi_call(state, qi_get(state, "fclose"), __qistd39(state))); } inline static qi_list_t *__qistd41(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "data"); return list; } inline static qi_list_t *__qistd40(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "file"); qi_list_data(list, 1) = qi_call(state, qi_get(state, "bytes"), __qistd41(state)); return list; } qi_value_t *__qistd36(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "filename", qi_list_index(pargs, 0)); qi_decl(state, "data", qi_list_index(pargs, 1)); qi_decl_const(state, "file", qi_call(state, qi_get(state, "fopen"), __qistd37(state))); qi_add_defer(state, -1, __qistd38); (void)(qi_call(state, qi_get(state, "fwrite"), __qistd40(state))); return state->nil; } inline static qi_list_t *__qistd43(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "name"); return list; } inline static qi_list_t *__qistd44(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "name"); return list; } qi_value_t *__qistd42(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "name", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd43(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd44(state))));} qi_old_scope(state); qi_bool b = qi_find(state, qi_get(state, "name")->value.string) != NULL; return qi_make_boolean(state, b); return state->nil; } inline static qi_list_t *__qistd47(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd48(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd50(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd51(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "l"); qi_list_data(list, 1) = qi_get(state, "i"); return list; } qi_value_t *__qistd45(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "first", pargc >= 3? qi_list_index(pargs, 2): state->_false); qi_decl(state, "l", qi_list_index(pargs, 0)); qi_decl(state, "x", qi_list_index(pargs, 1)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd47(state)), qi_make_string(state, "list")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd48(state))));} qi_old_scope(state); __label46:; qi_new_scope(state); qi_decl(state, "i", qi_make_number(state, 0)); while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd50(state))))) { qi_new_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_index(state, qi_get(state, "l"), qi_get(state, "i")), qi_get(state, "x")))) { (void)(qi_call(state, qi_get(state, "list_delete"), __qistd51(state))); qi_new_scope(state); if (_qi_truthy(state, qi_get(state, "first"))) { goto __break49;} qi_old_scope(state); goto __label46; } qi_old_scope(state); __continue49:; qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)); qi_old_scope(state); } goto __exit49; __break49:; qi_old_scope(state); __exit49:; qi_old_scope(state); return state->nil; } inline static qi_list_t *__qistd53(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd54(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd55(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "arguments"); return list; } inline static qi_list_t *__qistd56(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd57(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd60(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "x"); return list; } inline static qi_list_t *__qistd61(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "x"); return list; } qi_value_t *__qistd52(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "l", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd53(state)), qi_make_string(state, "list")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd54(state))));} qi_old_scope(state); qi_decl(state, "r", state->empty_string); qi_decl(state, "s", state->nil); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd55(state)), qi_make_number(state, 1)))) { (void)(qi_set(state, false, "s", state->empty_string));} else { (void)(qi_set(state, false, "s", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd56(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd57(state))));} qi_old_scope(state); qi_decl(state, "first", state->_true); qi_new_scope(state); qi_value_t *__qistd59 = qi_iter(state, qi_get(state, "l")); qi_decl(state, "x", state->nil); for (qi_size_t length = _qi_length(state, __qistd59), i = 0; i < length; i++) { qi_set(state, false, "x", qi_index(state, __qistd59, qi_make_number(state, i))); qi_new_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd60(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected sequence item to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd61(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_and(state, qi_not_equals(state, qi_get(state, "s"), state->empty_string), qi_not(state, qi_get(state, "first"))))) { (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_get(state, "s"))));} qi_old_scope(state); (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_get(state, "x")))); (void)(qi_set(state, false, "first", state->_false)); __continue58:; qi_old_scope(state); } goto __exit58; __break58:; qi_old_scope(state); __exit58:; qi_old_scope(state); return qi_get(state, "r"); return state->nil; } inline static qi_list_t *__qistd63(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd64(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd65(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "i"); return list; } inline static qi_list_t *__qistd66(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "i"); return list; } inline static qi_list_t *__qistd67(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "l"); qi_list_data(list, 1) = qi_get(state, "i"); return list; } qi_value_t *__qistd62(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "i", qi_list_index(pargs, 1)); qi_decl(state, "l", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd63(state)), qi_make_string(state, "list")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd64(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd65(state)), qi_make_string(state, "number")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd66(state))));} qi_old_scope(state); qi_decl(state, "x", qi_index(state, qi_get(state, "l"), qi_get(state, "i"))); (void)(qi_call(state, qi_get(state, "list_delete"), __qistd67(state))); return qi_get(state, "x"); return state->nil; } qi_value_t *__qistd69(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "x", qi_list_index(pargs, 0)); qi_decl(state, "y", qi_list_index(pargs, 1)); return qi_gt(state, qi_get(state, "x"), qi_get(state, "y"));return state->nil; } inline static qi_list_t *__qistd70(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd71(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd72(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "cmp"); return list; } inline static qi_list_t *__qistd73(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "cmp"); return list; } inline static qi_list_t *__qistd74(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd75(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd78(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_index(state, qi_get(state, "l"), qi_get(state, "j")); qi_list_data(list, 1) = qi_index(state, qi_get(state, "l"), qi_add(state, qi_get(state, "j"), qi_make_number(state, 1))); return list; } qi_value_t *__qistd68(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "cmp", pargc >= 2? qi_list_index(pargs, 1): qi_make_function(state, "", 2, __qistd69, NULL)); qi_decl(state, "l", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd70(state)), qi_make_string(state, "list")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd71(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd72(state)), qi_make_string(state, "function")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd73(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd74(state)), qi_make_number(state, 0)))) { qi_old_scope(state); return qi_get(state, "l");} qi_old_scope(state); qi_decl(state, "z", qi_call(state, qi_get(state, "len"), __qistd75(state))); qi_new_scope(state); qi_decl(state, "i", qi_make_number(state, 0)); while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_sub(state, qi_get(state, "z"), qi_make_number(state, 1))))) { qi_new_scope(state); qi_new_scope(state); qi_decl(state, "j", qi_make_number(state, 0)); while (_qi_truthy(state, qi_lt(state, qi_get(state, "j"), qi_sub(state, qi_sub(state, qi_get(state, "z"), qi_make_number(state, 1)), qi_get(state, "i"))))) { qi_new_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_call(state, qi_get(state, "cmp"), __qistd78(state)))) { qi_decl_const(state, "tmp", qi_index(state, qi_get(state, "l"), qi_get(state, "j"))); (void)(qi_index_set(state, false, qi_get(state, "l"), qi_get(state, "j"), qi_index(state, qi_get(state, "l"), qi_add(state, qi_get(state, "j"), qi_make_number(state, 1))))); (void)(qi_index_set(state, false, qi_get(state, "l"), qi_add(state, qi_get(state, "j"), qi_make_number(state, 1)), qi_get(state, "tmp"))); } qi_old_scope(state); __continue77:; qi_set(state, false, "j", qi_add(state, qi_get(state, "j"), state->one)); qi_old_scope(state); } goto __exit77; __break77:; qi_old_scope(state); __exit77:; qi_old_scope(state); __continue76:; qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)); qi_old_scope(state); } goto __exit76; __break76:; qi_old_scope(state); __exit76:; qi_old_scope(state); return qi_get(state, "l"); return state->nil; } qi_value_t *__qistd80(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "x", qi_list_index(pargs, 0)); qi_decl(state, "y", qi_list_index(pargs, 1)); return qi_gt(state, qi_get(state, "x"), qi_get(state, "y"));return state->nil; } inline static qi_list_t *__qistd81(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd82(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "l"); qi_list_data(list, 1) = qi_get(state, "cmp"); return list; } qi_value_t *__qistd79(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "cmp", pargc >= 2? qi_list_index(pargs, 1): qi_make_function(state, "", 2, __qistd80, NULL)); qi_decl(state, "l", qi_list_index(pargs, 0)); (void)(qi_set(state, false, "l", qi_call(state, qi_get(state, "list_copy"), __qistd81(state)))); return qi_call(state, qi_get(state, "list_sort"), __qistd82(state)); return state->nil; } inline static qi_list_t *__qistd84(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd85(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd86(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd87(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "l"); qi_list_data(list, 1) = qi_make_number(state, 0); return list; } qi_value_t *__qistd83(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "l", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd84(state)), qi_make_string(state, "list")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd85(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_call(state, qi_get(state, "is_empty"), __qistd86(state)))) { qi_throw(state, qi_make_string(state, "shift from empty list"));} qi_old_scope(state); qi_decl(state, "a", qi_index(state, qi_get(state, "l"), qi_make_number(state, 0))); (void)(qi_call(state, qi_get(state, "list_delete"), __qistd87(state))); return qi_get(state, "a"); return state->nil; } inline static qi_list_t *__qistd89(qi_state_t *state) { qi_list_t *list = qi_list_make_n(3); qi_list_data(list, 0) = qi_get(state, "l"); qi_list_data(list, 1) = qi_make_number(state, 0); qi_list_data(list, 2) = qi_get(state, "x"); return list; } qi_value_t *__qistd88(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "l", qi_list_index(pargs, 0)); qi_decl(state, "x", qi_list_index(pargs, 1)); (void)(qi_call(state, qi_get(state, "list_insert"), __qistd89(state))); return state->nil; } inline static qi_list_t *__qistd91(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd92(qi_state_t *state) { qi_list_t *list = qi_list_make_n(4); qi_list_data(list, 0) = qi_make_string(state, "list"); qi_list_data(list, 1) = qi_make_string(state, "string"); qi_list_data(list, 2) = qi_make_string(state, "bytes"); qi_list_data(list, 3) = qi_make_string(state, "ustr"); return list; } inline static qi_list_t *__qistd93(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd94(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "arguments"); return list; } inline static qi_list_t *__qistd95(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "f"); return list; } inline static qi_list_t *__qistd96(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "f"); return list; } inline static qi_list_t *__qistd97(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd99(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd100(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "r"); qi_list_data(list, 1) = qi_index(state, qi_get(state, "l"), qi_get(state, "i")); return list; } inline static qi_list_t *__qistd101(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "arguments"); return list; } inline static qi_list_t *__qistd102(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "f"); return list; } inline static qi_list_t *__qistd103(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "f"); return list; } inline static qi_list_t *__qistd104(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "t"); return list; } inline static qi_list_t *__qistd105(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "t"); return list; } inline static qi_list_t *__qistd106(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd107(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd109(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd110(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "r"); qi_list_data(list, 1) = qi_index(state, qi_get(state, "l"), qi_get(state, "i")); return list; } inline static qi_list_t *__qistd111(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd112(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "r"); return list; } inline static qi_list_t *__qistd113(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd114(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "r"); return list; } inline static qi_list_t *__qistd115(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd116(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "r"); return list; } qi_value_t *__qistd90(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "l", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd91(state)), qi_make_tuple(state, __qistd92(state))))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, string, bytes or ustr, but got: "), qi_call(state, qi_get(state, "type"), __qistd93(state))));} qi_old_scope(state); qi_decl(state, "r", qi_make_list(state, NULL)); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd94(state)), qi_make_number(state, 2)))) { qi_decl(state, "f", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1))); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd95(state)), qi_make_string(state, "number")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd96(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_lt(state, qi_get(state, "f"), qi_make_number(state, 0)))) { (void)(qi_set(state, false, "f", qi_add(state, qi_get(state, "f"), qi_call(state, qi_get(state, "len"), __qistd97(state)))));} qi_old_scope(state); qi_new_scope(state); qi_decl(state, "i", qi_get(state, "f")); while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd99(state))))) { qi_new_scope(state); (void)(qi_call(state, qi_get(state, "list_push"), __qistd100(state)));__continue98:; qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)); qi_old_scope(state); } goto __exit98; __break98:; qi_old_scope(state); __exit98:; qi_old_scope(state); } else { qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd101(state)), qi_make_number(state, 3)))) { qi_decl(state, "f", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1))); qi_decl(state, "t", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 2))); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd102(state)), qi_make_string(state, "number")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd103(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd104(state)), qi_make_string(state, "number")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected third argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd105(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_lt(state, qi_get(state, "f"), qi_make_number(state, 0)))) { (void)(qi_set(state, false, "f", qi_add(state, qi_get(state, "f"), qi_call(state, qi_get(state, "len"), __qistd106(state)))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_lt(state, qi_get(state, "t"), qi_make_number(state, 0)))) { (void)(qi_set(state, false, "t", qi_add(state, qi_get(state, "t"), qi_call(state, qi_get(state, "len"), __qistd107(state)))));} qi_old_scope(state); qi_new_scope(state); qi_decl(state, "i", qi_get(state, "f")); while (_qi_truthy(state, qi_and(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd109(state))), qi_le(state, qi_get(state, "i"), qi_get(state, "t"))))) { qi_new_scope(state); (void)(qi_call(state, qi_get(state, "list_push"), __qistd110(state)));__continue108:; qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)); qi_old_scope(state); } goto __exit108; __break108:; qi_old_scope(state); __exit108:; qi_old_scope(state); } qi_old_scope(state); } qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd111(state)), qi_make_string(state, "string")))) { qi_old_scope(state); return qi_call(state, qi_get(state, "list_join"), __qistd112(state));} else { qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd113(state)), qi_make_string(state, "bytes")))) { qi_old_scope(state); qi_old_scope(state); return qi_call(state, qi_get(state, "bytes"), __qistd114(state));} else { qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd115(state)), qi_make_string(state, "ustr")))) { qi_old_scope(state); qi_old_scope(state); qi_old_scope(state); return qi_call(state, qi_get(state, "ustr"), __qistd116(state));} qi_old_scope(state); } qi_old_scope(state); } qi_old_scope(state); return qi_get(state, "r"); return state->nil; } inline static qi_list_t *__qistd118(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd119(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd120(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd121(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "p"); return list; } inline static qi_list_t *__qistd123(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "p"); return list; } inline static qi_list_t *__qistd122(qi_state_t *state) { qi_list_t *list = qi_list_make_n(3); qi_list_data(list, 0) = qi_get(state, "s"); qi_list_data(list, 1) = qi_make_number(state, 0); qi_list_data(list, 2) = qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd123(state)), qi_make_number(state, 1)); return list; } qi_value_t *__qistd117(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "p", qi_list_index(pargs, 1)); qi_decl(state, "s", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd118(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd119(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_lt(state, qi_call(state, qi_get(state, "len"), __qistd120(state)), qi_call(state, qi_get(state, "len"), __qistd121(state))))) { qi_old_scope(state); return state->_false;} qi_old_scope(state); return qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd122(state)), qi_get(state, "p")); return state->nil; } inline static qi_list_t *__qistd125(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd126(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd127(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd128(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "p"); return list; } inline static qi_list_t *__qistd130(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd131(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "p"); return list; } inline static qi_list_t *__qistd129(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "s"); qi_list_data(list, 1) = qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd130(state)), qi_call(state, qi_get(state, "len"), __qistd131(state))); return list; } qi_value_t *__qistd124(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "p", qi_list_index(pargs, 1)); qi_decl(state, "s", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd125(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd126(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_lt(state, qi_call(state, qi_get(state, "len"), __qistd127(state)), qi_call(state, qi_get(state, "len"), __qistd128(state))))) { qi_old_scope(state); return state->_false;} qi_old_scope(state); return qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd129(state)), qi_get(state, "p")); return state->nil; } inline static qi_list_t *__qistd133(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "arguments"); return list; } inline static qi_list_t *__qistd134(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd135(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd136(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd137(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "d"); return list; } inline static qi_list_t *__qistd138(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd140(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd142(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "d"); return list; } inline static qi_list_t *__qistd141(qi_state_t *state) { qi_list_t *list = qi_list_make_n(3); qi_list_data(list, 0) = qi_get(state, "s"); qi_list_data(list, 1) = qi_get(state, "i"); qi_list_data(list, 2) = qi_sub(state, qi_add(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd142(state))), qi_make_number(state, 1)); return list; } inline static qi_list_t *__qistd143(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "r"); qi_list_data(list, 1) = qi_get(state, "t"); return list; } inline static qi_list_t *__qistd144(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "d"); return list; } inline static qi_list_t *__qistd145(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "r"); qi_list_data(list, 1) = qi_get(state, "t"); return list; } qi_value_t *__qistd132(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "s", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_or(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd133(state)), qi_make_number(state, 1)), qi_equals(state, qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1)), state->empty_string)))) { qi_old_scope(state); return qi_call(state, qi_get(state, "list"), __qistd134(state));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd135(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be:!string, but got: "), qi_call(state, qi_get(state, "type"), __qistd136(state))));} qi_old_scope(state); qi_decl(state, "r", qi_make_list(state, NULL)); qi_decl(state, "d", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1))); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd137(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd138(state))));} qi_old_scope(state); qi_decl(state, "t", state->empty_string); qi_new_scope(state); qi_decl(state, "i", qi_make_number(state, 0)); while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd140(state))))) { qi_new_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd141(state)), qi_get(state, "d")))) { (void)(qi_call(state, qi_get(state, "list_push"), __qistd143(state))); (void)(qi_set(state, false, "t", state->empty_string)); (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd144(state)), qi_make_number(state, 1))))); goto __continue139; } qi_old_scope(state); (void)(qi_set(state, false, "t", qi_add(state, qi_get(state, "t"), qi_index(state, qi_get(state, "s"), qi_get(state, "i"))))); __continue139:; qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)); qi_old_scope(state); } goto __exit139; __break139:; qi_old_scope(state); __exit139:; qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_get(state, "t"), state->empty_string))) { (void)(qi_call(state, qi_get(state, "list_push"), __qistd145(state)));} qi_old_scope(state); return qi_get(state, "r"); return state->nil; } inline static qi_list_t *__qistd147(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd148(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd149(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "w"); return list; } inline static qi_list_t *__qistd150(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "w"); return list; } inline static qi_list_t *__qistd151(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "b"); return list; } inline static qi_list_t *__qistd152(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "b"); return list; } inline static qi_list_t *__qistd154(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd156(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "w"); return list; } inline static qi_list_t *__qistd155(qi_state_t *state) { qi_list_t *list = qi_list_make_n(3); qi_list_data(list, 0) = qi_get(state, "s"); qi_list_data(list, 1) = qi_get(state, "i"); qi_list_data(list, 2) = qi_sub(state, qi_add(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd156(state))), qi_make_number(state, 1)); return list; } inline static qi_list_t *__qistd157(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "w"); return list; } qi_value_t *__qistd146(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "b", qi_list_index(pargs, 2)); qi_decl(state, "s", qi_list_index(pargs, 0)); qi_decl(state, "w", qi_list_index(pargs, 1)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd147(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd148(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd149(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd150(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd151(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected third argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd152(state))));} qi_old_scope(state); qi_decl(state, "r", state->empty_string); qi_new_scope(state); qi_decl(state, "i", qi_make_number(state, 0)); while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd154(state))))) { qi_new_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd155(state)), qi_get(state, "w")))) { (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_get(state, "b")))); (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd157(state)), qi_make_number(state, 1))))); goto __continue153; } qi_old_scope(state); (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_index(state, qi_get(state, "s"), qi_get(state, "i"))))); __continue153:; qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)); qi_old_scope(state); } goto __exit153; __break153:; qi_old_scope(state); __exit153:; qi_old_scope(state); return qi_get(state, "r"); return state->nil; } inline static qi_list_t *__qistd159(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "t"); return list; } inline static qi_list_t *__qistd160(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "t"); return list; } inline static qi_list_t *__qistd163(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "r"); qi_list_data(list, 1) = qi_get(state, "k"); return list; } qi_value_t *__qistd158(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "t", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd159(state)), qi_make_string(state, "table")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: table, but got: "), qi_call(state, qi_get(state, "type"), __qistd160(state))));} qi_old_scope(state); qi_decl(state, "r", qi_make_list(state, NULL)); qi_new_scope(state); qi_value_t *__qistd162 = qi_iter(state, qi_get(state, "t")); qi_decl(state, "k", state->nil); for (qi_size_t length = _qi_length(state, __qistd162), i = 0; i < length; i++) { qi_set(state, false, "k", qi_index(state, __qistd162, qi_make_number(state, i))); qi_new_scope(state); (void)(qi_call(state, qi_get(state, "list_push"), __qistd163(state)));__continue161:; qi_old_scope(state); } goto __exit161; __break161:; qi_old_scope(state); __exit161:; qi_old_scope(state); return qi_get(state, "r"); return state->nil; } inline static qi_list_t *__qistd165(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "t"); return list; } inline static qi_list_t *__qistd166(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "t"); return list; } inline static qi_list_t *__qistd169(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "r"); qi_list_data(list, 1) = qi_index(state, qi_get(state, "t"), qi_get(state, "k")); return list; } qi_value_t *__qistd164(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "t", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd165(state)), qi_make_string(state, "table")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: table, but got: "), qi_call(state, qi_get(state, "type"), __qistd166(state))));} qi_old_scope(state); qi_decl(state, "r", qi_make_list(state, NULL)); qi_new_scope(state); qi_value_t *__qistd168 = qi_iter(state, qi_get(state, "t")); qi_decl(state, "k", state->nil); for (qi_size_t length = _qi_length(state, __qistd168), i = 0; i < length; i++) { qi_set(state, false, "k", qi_index(state, __qistd168, qi_make_number(state, i))); qi_new_scope(state); (void)(qi_call(state, qi_get(state, "list_push"), __qistd169(state)));__continue167:; qi_old_scope(state); } goto __exit167; __break167:; qi_old_scope(state); __exit167:; qi_old_scope(state); return qi_get(state, "r"); return state->nil; } inline static qi_list_t *__qistd171(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "f"); return list; } inline static qi_list_t *__qistd172(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "f"); return list; } inline static qi_list_t *__qistd173(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd174(qi_state_t *state) { qi_list_t *list = qi_list_make_n(4); qi_list_data(list, 0) = qi_make_string(state, "list"); qi_list_data(list, 1) = qi_make_string(state, "tuple"); qi_list_data(list, 2) = qi_make_string(state, "string"); qi_list_data(list, 3) = qi_make_string(state, "bytes"); return list; } inline static qi_list_t *__qistd175(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd176(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd179(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "xs"); qi_list_data(list, 1) = qi_make_number(state, 1); return list; } inline static qi_list_t *__qistd180(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "r"); qi_list_data(list, 1) = qi_get(state, "x"); return list; } inline static qi_list_t *__qistd181(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd182(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "r"); return list; } inline static qi_list_t *__qistd183(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd184(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "r"); return list; } inline static qi_list_t *__qistd185(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd186(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "r"); return list; } qi_value_t *__qistd170(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 0)); qi_decl(state, "xs", qi_list_index(pargs, 1)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd171(state)), qi_make_string(state, "function")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd172(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd173(state)), qi_make_tuple(state, __qistd174(state))))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: list, tuple, string or bytes, but got: "), qi_call(state, qi_get(state, "type"), __qistd175(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd176(state)), qi_make_number(state, 0)))) { qi_throw(state, qi_make_string(state, "cannot reduce empty list"));} qi_old_scope(state); (void)(qi_set(state, false, "r", qi_index(state, qi_get(state, "xs"), qi_make_number(state, 0)))); qi_new_scope(state); qi_value_t *__qistd178 = qi_iter(state, qi_call(state, qi_get(state, "slice"), __qistd179(state))); qi_decl(state, "x", state->nil); for (qi_size_t length = _qi_length(state, __qistd178), i = 0; i < length; i++) { qi_set(state, false, "x", qi_index(state, __qistd178, qi_make_number(state, i))); qi_new_scope(state); (void)(qi_set(state, false, "r", qi_call(state, qi_get(state, "f"), __qistd180(state))));__continue177:; qi_old_scope(state); } goto __exit177; __break177:; qi_old_scope(state); __exit177:; qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd181(state)), qi_make_string(state, "tuple")))) { qi_old_scope(state); return qi_call(state, qi_get(state, "tuple"), __qistd182(state));} else { qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd183(state)), qi_make_string(state, "string")))) { qi_old_scope(state); qi_old_scope(state); return qi_call(state, qi_get(state, "list_join"), __qistd184(state));} else { qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd185(state)), qi_make_string(state, "bytes")))) { qi_old_scope(state); qi_old_scope(state); qi_old_scope(state); return qi_call(state, qi_get(state, "bytes"), __qistd186(state));} qi_old_scope(state); } qi_old_scope(state); } qi_old_scope(state); return qi_get(state, "r"); return state->nil; } qi_value_t *__qistd189(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "x", qi_list_index(pargs, 0)); qi_decl(state, "y", qi_list_index(pargs, 1)); return qi_add(state, qi_get(state, "x"), qi_get(state, "y"));return state->nil; } inline static qi_list_t *__qistd188(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_function(state, "", 2, __qistd189, NULL); qi_list_data(list, 1) = qi_get(state, "xs"); return list; } qi_value_t *__qistd187(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "xs", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "reduce"), __qistd188(state));return state->nil; } qi_value_t *__qistd192(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "x", qi_list_index(pargs, 0)); qi_decl(state, "y", qi_list_index(pargs, 1)); return qi_mul(state, qi_get(state, "x"), qi_get(state, "y"));return state->nil; } inline static qi_list_t *__qistd191(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_function(state, "", 2, __qistd192, NULL); qi_list_data(list, 1) = qi_get(state, "xs"); return list; } qi_value_t *__qistd190(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "xs", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "reduce"), __qistd191(state));return state->nil; } qi_value_t *__qistd195(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "x", qi_list_index(pargs, 0)); qi_decl(state, "y", qi_list_index(pargs, 1)); return qi_and(state, qi_get(state, "x"), qi_get(state, "y"));return state->nil; } inline static qi_list_t *__qistd194(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_function(state, "", 2, __qistd195, NULL); qi_list_data(list, 1) = qi_get(state, "l"); return list; } qi_value_t *__qistd193(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "l", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "reduce"), __qistd194(state));return state->nil; } qi_value_t *__qistd198(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "x", qi_list_index(pargs, 0)); qi_decl(state, "y", qi_list_index(pargs, 1)); return qi_or(state, qi_get(state, "x"), qi_get(state, "y"));return state->nil; } inline static qi_list_t *__qistd197(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_function(state, "", 2, __qistd198, NULL); qi_list_data(list, 1) = qi_get(state, "l"); return list; } qi_value_t *__qistd196(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "l", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "reduce"), __qistd197(state));return state->nil; } inline static qi_list_t *__qistd200(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "f"); return list; } inline static qi_list_t *__qistd201(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "f"); return list; } inline static qi_list_t *__qistd202(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd203(qi_state_t *state) { qi_list_t *list = qi_list_make_n(4); qi_list_data(list, 0) = qi_make_string(state, "list"); qi_list_data(list, 1) = qi_make_string(state, "tuple"); qi_list_data(list, 2) = qi_make_string(state, "string"); qi_list_data(list, 3) = qi_make_string(state, "bytes"); return list; } inline static qi_list_t *__qistd204(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd205(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd209(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "x"); return list; } inline static qi_list_t *__qistd208(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "r"); qi_list_data(list, 1) = qi_call(state, qi_get(state, "f"), __qistd209(state)); return list; } inline static qi_list_t *__qistd210(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd211(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "r"); return list; } inline static qi_list_t *__qistd212(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd213(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "r"); return list; } inline static qi_list_t *__qistd214(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd215(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "r"); return list; } qi_value_t *__qistd199(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 0)); qi_decl(state, "xs", qi_list_index(pargs, 1)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd200(state)), qi_make_string(state, "function")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd201(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd202(state)), qi_make_tuple(state, __qistd203(state))))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: list, tuple, string or bytes, but got: "), qi_call(state, qi_get(state, "type"), __qistd204(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd205(state)), qi_make_number(state, 0)))) { qi_old_scope(state); return qi_get(state, "xs");} qi_old_scope(state); qi_decl(state, "r", qi_make_list(state, NULL)); qi_new_scope(state); qi_value_t *__qistd207 = qi_iter(state, qi_get(state, "xs")); qi_decl(state, "x", state->nil); for (qi_size_t length = _qi_length(state, __qistd207), i = 0; i < length; i++) { qi_set(state, false, "x", qi_index(state, __qistd207, qi_make_number(state, i))); qi_new_scope(state); (void)(qi_call(state, qi_get(state, "list_push"), __qistd208(state)));__continue206:; qi_old_scope(state); } goto __exit206; __break206:; qi_old_scope(state); __exit206:; qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd210(state)), qi_make_string(state, "tuple")))) { qi_old_scope(state); return qi_call(state, qi_get(state, "tuple"), __qistd211(state));} else { qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd212(state)), qi_make_string(state, "string")))) { qi_old_scope(state); qi_old_scope(state); return qi_call(state, qi_get(state, "list_join"), __qistd213(state));} else { qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd214(state)), qi_make_string(state, "bytes")))) { qi_old_scope(state); qi_old_scope(state); qi_old_scope(state); return qi_call(state, qi_get(state, "bytes"), __qistd215(state));} qi_old_scope(state); } qi_old_scope(state); } qi_old_scope(state); return qi_get(state, "r"); return state->nil; } inline static qi_list_t *__qistd217(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "f"); return list; } inline static qi_list_t *__qistd218(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "f"); return list; } inline static qi_list_t *__qistd219(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd220(qi_state_t *state) { qi_list_t *list = qi_list_make_n(4); qi_list_data(list, 0) = qi_make_string(state, "list"); qi_list_data(list, 1) = qi_make_string(state, "tuple"); qi_list_data(list, 2) = qi_make_string(state, "string"); qi_list_data(list, 3) = qi_make_string(state, "bytes"); return list; } inline static qi_list_t *__qistd221(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd222(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd225(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "x"); return list; } inline static qi_list_t *__qistd226(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "r"); qi_list_data(list, 1) = qi_get(state, "x"); return list; } inline static qi_list_t *__qistd227(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd228(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "r"); return list; } inline static qi_list_t *__qistd229(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd230(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "r"); return list; } inline static qi_list_t *__qistd231(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "xs"); return list; } inline static qi_list_t *__qistd232(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "r"); return list; } qi_value_t *__qistd216(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 0)); qi_decl(state, "xs", qi_list_index(pargs, 1)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd217(state)), qi_make_string(state, "function")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd218(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd219(state)), qi_make_tuple(state, __qistd220(state))))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: list, tuple, string or bytes, but got: "), qi_call(state, qi_get(state, "type"), __qistd221(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd222(state)), qi_make_number(state, 0)))) { qi_old_scope(state); return qi_get(state, "xs");} qi_old_scope(state); qi_decl(state, "r", qi_make_list(state, NULL)); qi_new_scope(state); qi_value_t *__qistd224 = qi_iter(state, qi_get(state, "xs")); qi_decl(state, "x", state->nil); for (qi_size_t length = _qi_length(state, __qistd224), i = 0; i < length; i++) { qi_set(state, false, "x", qi_index(state, __qistd224, qi_make_number(state, i))); qi_new_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_call(state, qi_get(state, "f"), __qistd225(state)))) { (void)(qi_call(state, qi_get(state, "list_push"), __qistd226(state)));} qi_old_scope(state); __continue223:; qi_old_scope(state); } goto __exit223; __break223:; qi_old_scope(state); __exit223:; qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd227(state)), qi_make_string(state, "tuple")))) { qi_old_scope(state); return qi_call(state, qi_get(state, "tuple"), __qistd228(state));} else { qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd229(state)), qi_make_string(state, "string")))) { qi_old_scope(state); qi_old_scope(state); return qi_call(state, qi_get(state, "list_join"), __qistd230(state));} else { qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd231(state)), qi_make_string(state, "bytes")))) { qi_old_scope(state); qi_old_scope(state); qi_old_scope(state); return qi_call(state, qi_get(state, "bytes"), __qistd232(state));} qi_old_scope(state); } qi_old_scope(state); } qi_old_scope(state); return qi_get(state, "r"); return state->nil; } inline static qi_list_t *__qistd234(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd235(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd236(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "w"); return list; } inline static qi_list_t *__qistd237(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "w"); return list; } inline static qi_list_t *__qistd239(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd240(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "w"); return list; } inline static qi_list_t *__qistd242(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "w"); return list; } inline static qi_list_t *__qistd241(qi_state_t *state) { qi_list_t *list = qi_list_make_n(3); qi_list_data(list, 0) = qi_get(state, "s"); qi_list_data(list, 1) = qi_get(state, "i"); qi_list_data(list, 2) = qi_sub(state, qi_add(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd242(state))), qi_make_number(state, 1)); return list; } qi_value_t *__qistd233(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "s", qi_list_index(pargs, 0)); qi_decl(state, "w", qi_list_index(pargs, 1)); qi_new_scope(state); if (_qi_truthy(state, qi_or(state, qi_equals(state, qi_get(state, "s"), state->empty_string), qi_equals(state, qi_get(state, "w"), state->empty_string)))) { qi_old_scope(state); return qi_negate(state, qi_make_number(state, 1));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd234(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd235(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd236(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd237(state))));} qi_old_scope(state); qi_new_scope(state); qi_decl(state, "i", qi_make_number(state, 0)); while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd239(state))))) { qi_new_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_and(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd240(state)), qi_make_number(state, 1)), qi_equals(state, qi_index(state, qi_get(state, "s"), qi_get(state, "i")), qi_get(state, "w"))))) { qi_old_scope(state); qi_old_scope(state); qi_old_scope(state); return qi_get(state, "i");} else { qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd241(state)), qi_get(state, "w")))) { qi_old_scope(state); qi_old_scope(state); qi_old_scope(state); qi_old_scope(state); return qi_get(state, "i");} qi_old_scope(state); } qi_old_scope(state); __continue238:; qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)); qi_old_scope(state); } goto __exit238; __break238:; qi_old_scope(state); __exit238:; qi_old_scope(state); return qi_negate(state, qi_make_number(state, 1)); return state->nil; } inline static qi_list_t *__qistd244(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd245(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd246(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "cs"); return list; } inline static qi_list_t *__qistd247(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "cs"); return list; } inline static qi_list_t *__qistd249(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd250(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "s"); qi_list_data(list, 1) = qi_get(state, "i"); return list; } qi_value_t *__qistd243(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "s", qi_list_index(pargs, 0)); qi_decl(state, "cs", pargc >= 2? qi_list_index(pargs, 1): qi_make_string(state, " \t\n\r\x0b\x0c")); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd244(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd245(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd246(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd247(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_get(state, "s"), state->empty_string))) { qi_old_scope(state); return qi_get(state, "s");} qi_old_scope(state); qi_new_scope(state); qi_decl(state, "i", qi_make_number(state, 0)); while (_qi_truthy(state, qi_and(state, qi_in(state, qi_index(state, qi_get(state, "s"), qi_get(state, "i")), qi_get(state, "cs")), qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd249(state)))))) { qi_new_scope(state); __continue248:; qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)); qi_old_scope(state); } goto __exit248; __break248:; qi_old_scope(state); __exit248:; qi_old_scope(state); return qi_call(state, qi_get(state, "slice"), __qistd250(state)); return state->nil; } inline static qi_list_t *__qistd252(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd253(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd254(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "cs"); return list; } inline static qi_list_t *__qistd255(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "cs"); return list; } inline static qi_list_t *__qistd257(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd259(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd258(qi_state_t *state) { qi_list_t *list = qi_list_make_n(3); qi_list_data(list, 0) = qi_get(state, "s"); qi_list_data(list, 1) = qi_make_number(state, 0); qi_list_data(list, 2) = qi_sub(state, qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd259(state)), qi_get(state, "k")), qi_make_number(state, 1)); return list; } qi_value_t *__qistd251(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "s", qi_list_index(pargs, 0)); qi_decl(state, "cs", pargc >= 2? qi_list_index(pargs, 1): qi_make_string(state, " \t\n\r\x0b\x0c")); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd252(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd253(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd254(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd255(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_get(state, "s"), state->empty_string))) { qi_old_scope(state); return qi_get(state, "s");} qi_old_scope(state); qi_new_scope(state); qi_decl(state, "i", qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd257(state)), qi_make_number(state, 1))); qi_decl(state, "k", qi_make_number(state, 0)); while (_qi_truthy(state, qi_and(state, qi_in(state, qi_index(state, qi_get(state, "s"), qi_get(state, "i")), qi_get(state, "cs")), qi_ge(state, qi_get(state, "i"), qi_make_number(state, 0))))) { qi_new_scope(state); (void)(qi_set(state, false, "i", qi_sub(state, qi_get(state, "i"), state->one)));__continue256:; qi_set(state, false, "k", qi_add(state, qi_get(state, "k"), state->one)); qi_old_scope(state); } goto __exit256; __break256:; qi_old_scope(state); __exit256:; qi_old_scope(state); return qi_call(state, qi_get(state, "slice"), __qistd258(state)); return state->nil; } inline static qi_list_t *__qistd261(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd262(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd263(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "cs"); return list; } inline static qi_list_t *__qistd264(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "cs"); return list; } inline static qi_list_t *__qistd266(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "s"); qi_list_data(list, 1) = qi_get(state, "cs"); return list; } inline static qi_list_t *__qistd265(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_call(state, qi_get(state, "str_rstrip"), __qistd266(state)); qi_list_data(list, 1) = qi_get(state, "cs"); return list; } qi_value_t *__qistd260(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "s", qi_list_index(pargs, 0)); qi_decl(state, "cs", pargc >= 2? qi_list_index(pargs, 1): qi_make_string(state, " \t\n\r\x0b\x0c")); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd261(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd262(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd263(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd264(state))));} qi_old_scope(state); return qi_call(state, qi_get(state, "str_lstrip"), __qistd265(state)); return state->nil; } inline static qi_list_t *__qistd268(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "t"); return list; } inline static qi_list_t *__qistd269(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "t"); return list; } inline static qi_list_t *__qistd270(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "k"); return list; } inline static qi_list_t *__qistd271(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "k"); return list; } qi_value_t *__qistd267(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "d", pargc >= 3? qi_list_index(pargs, 2): state->nil); qi_decl(state, "k", qi_list_index(pargs, 1)); qi_decl(state, "t", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd268(state)), qi_make_string(state, "table")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: table, but got: "), qi_call(state, qi_get(state, "type"), __qistd269(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd270(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd271(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_in(state, qi_get(state, "k"), qi_get(state, "t")))) { qi_old_scope(state); return qi_get(state, "d");} qi_old_scope(state); return qi_index(state, qi_get(state, "t"), qi_get(state, "k")); return state->nil; } inline static qi_list_t *__qistd273(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "len"); qi_list_data(list, 1) = qi_get(state, "arguments"); return list; } inline static qi_list_t *__qistd274(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "min"); qi_list_data(list, 1) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd278(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "t"); qi_list_data(list, 1) = qi_index(state, qi_get(state, "xs"), qi_get(state, "i")); return list; } inline static qi_list_t *__qistd279(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "r"); qi_list_data(list, 1) = qi_get(state, "t"); return list; } qi_value_t *__qistd272(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_new_scope(state); if (_qi_truthy(state, qi_not(state, qi_get(state, "arguments")))) { qi_old_scope(state); return qi_make_list(state, NULL);} qi_old_scope(state); qi_decl(state, "l", qi_call(state, qi_get(state, "map"), __qistd273(state))); (void)(qi_set(state, false, "l", qi_call(state, qi_get(state, "reduce"), __qistd274(state)))); qi_decl(state, "r", qi_make_list(state, NULL)); qi_new_scope(state); qi_decl(state, "i", qi_make_number(state, 0)); while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_get(state, "l")))) { qi_new_scope(state); qi_decl(state, "t", qi_make_list(state, NULL)); qi_new_scope(state); qi_value_t *__qistd277 = qi_iter(state, qi_get(state, "arguments")); qi_decl(state, "xs", state->nil); for (qi_size_t length = _qi_length(state, __qistd277), i = 0; i < length; i++) { qi_set(state, false, "xs", qi_index(state, __qistd277, qi_make_number(state, i))); qi_new_scope(state); (void)(qi_call(state, qi_get(state, "list_push"), __qistd278(state)));__continue276:; qi_old_scope(state); } goto __exit276; __break276:; qi_old_scope(state); __exit276:; qi_old_scope(state); (void)(qi_call(state, qi_get(state, "list_push"), __qistd279(state))); __continue275:; qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)); qi_old_scope(state); } goto __exit275; __break275:; qi_old_scope(state); __exit275:; qi_old_scope(state); return qi_get(state, "r"); return state->nil; } inline static qi_list_t *__qistd281(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd283(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd284(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd282(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_call(state, qi_get(state, "table_keys"), __qistd283(state)); qi_list_data(list, 1) = qi_call(state, qi_get(state, "table_values"), __qistd284(state)); return list; } inline static qi_list_t *__qistd287(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd286(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_call(state, qi_get(state, "len"), __qistd287(state)); return list; } inline static qi_list_t *__qistd285(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_call(state, qi_get(state, "range"), __qistd286(state)); qi_list_data(list, 1) = qi_get(state, "l"); return list; } qi_value_t *__qistd280(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "l", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd281(state)), qi_make_string(state, "table")))) { qi_old_scope(state); return qi_call(state, qi_get(state, "zip"), __qistd282(state));} else { qi_old_scope(state); return qi_call(state, qi_get(state, "zip"), __qistd285(state));} qi_old_scope(state); return state->nil; } inline static qi_list_t *__qistd289(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd290(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "c"); return list; } inline static qi_list_t *__qistd294(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "c"); return list; } inline static qi_list_t *__qistd293(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_sub(state, qi_call(state, qi_get(state, "ord"), __qistd294(state)), qi_make_number(state, 32)); return list; } qi_value_t *__qistd292(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "c", qi_list_index(pargs, 0)); return (_qi_truthy(state, qi_and(state, qi_ge(state, qi_get(state, "c"), qi_make_string(state, "a")), qi_le(state, qi_get(state, "c"), qi_make_string(state, "z"))))? qi_call(state, qi_get(state, "chr"), __qistd293(state)): qi_get(state, "c"));return state->nil; } inline static qi_list_t *__qistd291(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_function(state, "", 1, __qistd292, NULL); qi_list_data(list, 1) = qi_get(state, "s"); return list; } qi_value_t *__qistd288(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "s", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd289(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd290(state))));} qi_old_scope(state); return qi_call(state, qi_get(state, "map"), __qistd291(state)); return state->nil; } inline static qi_list_t *__qistd296(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd297(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "c"); return list; } inline static qi_list_t *__qistd301(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "c"); return list; } inline static qi_list_t *__qistd300(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_add(state, qi_call(state, qi_get(state, "ord"), __qistd301(state)), qi_make_number(state, 32)); return list; } qi_value_t *__qistd299(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "c", qi_list_index(pargs, 0)); return (_qi_truthy(state, qi_and(state, qi_ge(state, qi_get(state, "c"), qi_make_string(state, "A")), qi_le(state, qi_get(state, "c"), qi_make_string(state, "Z"))))? qi_call(state, qi_get(state, "chr"), __qistd300(state)): qi_get(state, "c"));return state->nil; } inline static qi_list_t *__qistd298(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_function(state, "", 1, __qistd299, NULL); qi_list_data(list, 1) = qi_get(state, "s"); return list; } qi_value_t *__qistd295(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "s", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd296(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd297(state))));} qi_old_scope(state); return qi_call(state, qi_get(state, "map"), __qistd298(state)); return state->nil; } inline static qi_list_t *__qistd304(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "p"); return list; } inline static qi_list_t *__qistd303(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "p"); qi_list_data(list, 1) = qi_add(state, qi_call(state, qi_get(state, "get_meta_table"), __qistd304(state)), qi_get(state, "t")); return list; } inline static qi_list_t *__qistd305(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_table(state, NULL); qi_list_data(list, 1) = qi_get(state, "t"); return list; } qi_value_t *__qistd302(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "p", pargc >= 2? qi_list_index(pargs, 1): state->nil); qi_decl(state, "t", qi_list_index(pargs, 0)); return (_qi_truthy(state, qi_not_is(state, qi_get(state, "p"), state->nil))? qi_call(state, qi_get(state, "set_meta_table"), __qistd303(state)): qi_call(state, qi_get(state, "set_meta_table"), __qistd305(state)));return state->nil; } inline static qi_list_t *__qistd307(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "o"); return list; } qi_value_t *__qistd306(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "o", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "has_meta_table"), __qistd307(state));return state->nil; } qi_value_t *__qistd311(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "this", qi_list_index(pargs, 0)); return qi_get(state, "n");return state->nil; } inline static qi_table_t *__qistd312(qi_state_t *state) { qi_table_t *table = qi_table_make(); qi_table_set(table, "n", qi_get(state, "n")); return table; } qi_value_t *__qistd313(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "this", qi_list_index(pargs, 0)); return qi_add(state, qi_add(state, qi_make_string(state, ""));return state->nil; } inline static qi_table_t *__qistd314(qi_state_t *state) { qi_table_t *table = qi_table_make(); qi_table_set(table, "n", qi_get(state, "n")); return table; } qi_value_t *__qistd317(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "this", qi_list_index(pargs, 0)); return qi_get(state, "n");return state->nil; } inline static qi_table_t *__qistd318(qi_state_t *state) { qi_table_t *table = qi_table_make(); qi_table_set(table, "n", qi_get(state, "n")); return table; } inline static qi_table_t *__qistd316(qi_state_t *state) { qi_table_t *table = qi_table_make(); qi_table_set(table, "__type", qi_make_function(state, "", 1, __qistd317, __qistd318(state))); return table; } inline static qi_list_t *__qistd321(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "t"); qi_list_data(list, 1) = qi_get(state, "mt"); return list; } inline static qi_list_t *__qistd323(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "obj"); return list; } inline static qi_list_t *__qistd322(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_index(state, qi_get(state, "mt"), qi_make_string(state, "constructor")); qi_list_data(list, 1) = qi_add(state, qi_make_list(state, __qistd323(state)), qi_get(state, "pargs")); return list; } qi_value_t *__qistd315(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "pargs", qi_list_index(pargs, 1)); qi_decl(state, "this", qi_list_index(pargs, 0)); qi_decl(state, "t", qi_make_table(state, NULL)); qi_decl(state, "mt", qi_make_table(state, __qistd316(state))); qi_new_scope(state); qi_value_t *__qistd320 = qi_iter(state, qi_get(state, "p")); qi_decl(state, "other", state->nil); for (qi_size_t length = _qi_length(state, __qistd320), i = 0; i < length; i++) { qi_set(state, false, "other", qi_index(state, __qistd320, qi_make_number(state, i))); qi_new_scope(state); (void)(qi_set(state, false, "t", qi_add(state, qi_get(state, "t"), qi_index(state, qi_get(state, "other"), qi_make_string(state, "t"))))); (void)(qi_set(state, false, "mt", qi_add(state, qi_get(state, "mt"), qi_index(state, qi_get(state, "other"), qi_make_string(state, "mt"))))); __continue319:; qi_old_scope(state); } goto __exit319; __break319:; qi_old_scope(state); __exit319:; qi_old_scope(state); (void)(qi_set(state, false, "t", qi_add(state, qi_get(state, "t"), qi_index(state, qi_get(state, "this"), qi_make_string(state, "t"))))); (void)(qi_set(state, false, "mt", qi_add(state, qi_get(state, "mt"), qi_index(state, qi_get(state, "this"), qi_make_string(state, "mt"))))); (void)(qi_index_set(state, false, qi_get(state, "mt"), qi_make_string(state, "super"), qi_index(state, qi_get(state, "this"), qi_make_string(state, "super")))); (void)(qi_set(state, false, "obj", qi_call(state, qi_get(state, "set_meta_table"), __qistd321(state)))); qi_new_scope(state); if (_qi_truthy(state, qi_in(state, qi_make_string(state, "constructor"), qi_get(state, "mt")))) { (void)(qi_call(state, qi_get(state, "func_call"), __qistd322(state)));} qi_old_scope(state); return qi_get(state, "obj"); return state->nil; } inline static qi_table_t *__qistd324(qi_state_t *state) { qi_table_t *table = qi_table_make(); qi_table_set(table, "n", qi_get(state, "n")); qi_table_set(table, "p", qi_get(state, "p")); return table; } inline static qi_table_t *__qistd310(qi_state_t *state) { qi_table_t *table = qi_table_make(); qi_table_set(table, "__type", qi_make_function(state, "", 1, __qistd311, __qistd312(state))); qi_table_set(table, "mt", qi_get(state, "mt")); qi_table_set(table, "super", qi_get(state, "p")); qi_table_set(table, "t", qi_get(state, "t")); qi_table_set(table, "__str", qi_make_function(state, "", 1, __qistd313, __qistd314(state))); qi_table_set(table, "__call", qi_make_function(state, "", 2, __qistd315, __qistd324(state))); return table; } inline static qi_list_t *__qistd309(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_add(state, qi_get(state, "st"), qi_make_table(state, __qistd310(state))); return list; } qi_value_t *__qistd308(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "mt", qi_list_index(pargs, 3)); qi_decl(state, "st", qi_list_index(pargs, 4)); qi_decl(state, "n", qi_list_index(pargs, 0)); qi_decl(state, "p", qi_list_index(pargs, 1)); qi_decl(state, "t", qi_list_index(pargs, 2)); return qi_call(state, qi_get(state, "Object"), __qistd309(state));return state->nil; } inline static qi_list_t *__qistd326(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd327(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd329(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd333(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd334(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_index(state, qi_get(state, "arguments"), qi_set(state, false, "n", qi_add(state, qi_get(state, "n"), state->one))); return list; } qi_value_t *__qistd325(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "s", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd326(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd327(state))));} qi_old_scope(state); qi_decl(state, "r", state->empty_string); qi_decl(state, "n", qi_make_number(state, 1)); qi_new_scope(state); qi_decl(state, "i", qi_make_number(state, 0)); while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd329(state))))) { qi_new_scope(state); qi_value_t *__qistd331 = qi_index(state, qi_get(state, "s"), qi_get(state, "i")); if (_qi_equals(state, __qistd331, qi_make_string(state, "_"))) goto __qistd332; goto __default330; __qistd332:; qi_new_scope(state); if (_qi_truthy(state, qi_and(state, qi_lt(state, qi_add(state, qi_get(state, "i"), qi_make_number(state, 1)), qi_call(state, qi_get(state, "len"), __qistd333(state))), qi_equals(state, qi_index(state, qi_get(state, "s"), qi_add(state, qi_get(state, "i"), qi_make_number(state, 1))), qi_make_string(state, "_"))))) { (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_make_string(state, "_")))); (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one))); goto __continue328; } qi_old_scope(state); (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_call(state, qi_get(state, "repr"), __qistd334(state))))); goto __break330; __default330:; (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_index(state, qi_get(state, "s"), qi_get(state, "i"))))); __break330:; __continue328:; qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)); qi_old_scope(state); } goto __exit328; __break328:; qi_old_scope(state); __exit328:; qi_old_scope(state); return qi_get(state, "r"); return state->nil; } inline static qi_list_t *__qistd336(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd337(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd338(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd339(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "l"); return list; } inline static qi_list_t *__qistd341(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd340(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "str_format"); qi_list_data(list, 1) = qi_add(state, qi_make_list(state, __qistd341(state)), qi_get(state, "l")); return list; } qi_value_t *__qistd335(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "l", qi_list_index(pargs, 1)); qi_decl(state, "s", qi_list_index(pargs, 0)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd336(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd337(state))));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd338(state)), qi_make_string(state, "list")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd339(state))));} qi_old_scope(state); return qi_call(state, qi_get(state, "func_call"), __qistd340(state)); return state->nil; } inline static qi_list_t *__qistd343(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd344(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd346(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd350(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd352(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd353(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "s"); return list; } inline static qi_list_t *__qistd354(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_index(state, qi_get(state, "t"), qi_get(state, "k")); return list; } qi_value_t *__qistd342(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "s", qi_list_index(pargs, 0)); qi_decl(state, "t", qi_list_index(pargs, 1)); qi_new_scope(state); if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd343(state)), qi_make_string(state, "string")))) { qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd344(state))));} qi_old_scope(state); qi_decl(state, "r", state->empty_string); qi_decl(state, "n", qi_make_number(state, 1)); qi_new_scope(state); qi_decl(state, "i", qi_make_number(state, 0)); while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd346(state))))) { qi_new_scope(state); qi_value_t *__qistd348 = qi_index(state, qi_get(state, "s"), qi_get(state, "i")); if (_qi_equals(state, __qistd348, qi_make_string(state, "{"))) goto __qistd349; goto __default347; __qistd349:; qi_new_scope(state); if (_qi_truthy(state, qi_and(state, qi_lt(state, qi_add(state, qi_get(state, "i"), qi_make_number(state, 1)), qi_call(state, qi_get(state, "len"), __qistd350(state))), qi_equals(state, qi_index(state, qi_get(state, "s"), qi_add(state, qi_get(state, "i"), qi_make_number(state, 1))), qi_make_string(state, "{"))))) { (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_make_string(state, "{")))); (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one))); goto __continue345; } qi_old_scope(state); qi_decl(state, "k", state->empty_string); (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one))); qi_new_scope(state); while (_qi_truthy(state, qi_and(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd352(state))), qi_not_equals(state, qi_index(state, qi_get(state, "s"), qi_get(state, "i")), qi_make_string(state, "}"))))) { qi_new_scope(state); (void)(qi_set(state, false, "k", qi_add(state, qi_get(state, "k"), qi_index(state, qi_get(state, "s"), qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one))))));__continue351:; qi_old_scope(state); } goto __exit351; __break351:; qi_old_scope(state); __exit351:; qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_or(state, qi_ge(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd353(state))), qi_not_equals(state, qi_index(state, qi_get(state, "s"), qi_get(state, "i")), qi_make_string(state, "}"))))) { qi_throw(state, qi_make_string(state, "unmatched { in format specifier"));} qi_old_scope(state); qi_new_scope(state); if (_qi_truthy(state, qi_not(state, qi_get(state, "k")))) { qi_throw(state, qi_make_string(state, "empty format key"));} qi_old_scope(state); (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_call(state, qi_get(state, "repr"), __qistd354(state))))); goto __break347; __default347:; (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_index(state, qi_get(state, "s"), qi_get(state, "i"))))); __break347:; __continue345:; qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)); qi_old_scope(state); } goto __exit345; __break345:; qi_old_scope(state); __exit345:; qi_old_scope(state); return qi_get(state, "r"); return state->nil; } inline static qi_list_t *__qistd357(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "STDIN"); return list; } inline static qi_list_t *__qistd356(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_call(state, qi_get(state, "fgetc"), __qistd357(state)); return list; } qi_value_t *__qistd355(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { return qi_call(state, qi_get(state, "chr"), __qistd356(state));return state->nil; } inline static qi_list_t *__qistd359(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "STDOUT"); qi_list_data(list, 1) = qi_get(state, "c"); return list; } qi_value_t *__qistd358(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "c", qi_list_index(pargs, 0)); (void)(qi_call(state, qi_get(state, "fputc"), __qistd359(state)));return state->nil; } inline static qi_list_t *__qistd361(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "STDIN"); qi_list_data(list, 1) = qi_make_number(state, 256); return list; } qi_value_t *__qistd360(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { return qi_call(state, qi_get(state, "fgets"), __qistd361(state));return state->nil; } inline static qi_list_t *__qistd363(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "arguments"); return list; } inline static qi_list_t *__qistd364(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "print"); qi_list_data(list, 1) = qi_get(state, "arguments"); return list; } inline static qi_list_t *__qistd365(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_call(state, qi_get(state, "getline"), NULL); qi_list_data(list, 1) = qi_make_string(state, "\n\r"); return list; } qi_value_t *__qistd362(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_new_scope(state); if (_qi_truthy(state, qi_gt(state, qi_call(state, qi_get(state, "len"), __qistd363(state)), qi_make_number(state, 0)))) { (void)(qi_call(state, qi_get(state, "func_call"), __qistd364(state)));} qi_old_scope(state); return qi_call(state, qi_get(state, "str_rstrip"), __qistd365(state)); return state->nil; } inline static qi_list_t *__qistd367(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "path"); qi_list_data(list, 1) = qi_get(state, "mode"); return list; } qi_value_t *__qistd366(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "mode", pargc >= 2? qi_list_index(pargs, 1): qi_make_string(state, "r")); qi_decl(state, "path", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "fopen"), __qistd367(state));return state->nil; } qi_value_t *__qistd368(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "cond", qi_list_index(pargs, 0)); qi_decl(state, "msg", pargc >= 2? qi_list_index(pargs, 1): qi_make_string(state, "assertion failed")); qi_new_scope(state); if (_qi_truthy(state, qi_not(state, qi_get(state, "cond")))) { qi_throw(state, qi_get(state, "msg"));} qi_old_scope(state); return state->nil; } qi_value_t *__qistd370(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "msg", qi_list_index(pargs, 1)); qi_decl(state, "this", qi_list_index(pargs, 0)); (void)(qi_index_set(state, false, qi_get(state, "this"), qi_make_string(state, "msg"), qi_get(state, "msg"))); return state->nil; } inline static qi_list_t *__qistd372(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "this"); return list; } qi_value_t *__qistd371(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "this", qi_list_index(pargs, 0)); return qi_add(state, qi_add(state, qi_call(state, qi_get(state, "type"), __qistd372(state)), qi_make_string(state, ": ")), qi_index(state, qi_get(state, "this"), qi_make_string(state, "msg")));return state->nil; } qi_value_t *__qistd369(qi_state_t *state) { qi_list_t *supers = qi_list_make_n(0); qi_table_t *table = qi_table_make(); qi_table_t *metatable = qi_table_make(); qi_table_t *statictable = qi_table_make(); qi_table_set(metatable, "msg", state->nil); qi_table_set(metatable, "constructor", qi_make_function(state, "Error.constructor", 2, __qistd370, NULL)); qi_table_set(metatable, "__str", qi_make_function(state, "Error.__str", 1, __qistd371, NULL)); qi_list_t *pargs = qi_list_make_n(5); qi_list_data(pargs, 0) = qi_make_string(state, "Error"); qi_list_data(pargs, 1) = qi_make_list(state, supers); qi_list_data(pargs, 2) = qi_make_table(state, table); qi_list_data(pargs, 3) = qi_make_table(state, metatable); qi_list_data(pargs, 4) = qi_make_table(state, statictable); return qi_call(state, qi_get(state, "__class_wrapper"), pargs); } inline static qi_list_t *__qistd373(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.reverse"); qi_list_data(list, 1) = qi_get(state, "reverse"); return list; } inline static qi_list_t *__qistd374(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.reverse"); qi_list_data(list, 1) = qi_get(state, "reverse"); return list; } inline static qi_list_t *__qistd375(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "bytes.reverse"); qi_list_data(list, 1) = qi_get(state, "reverse"); return list; } inline static qi_list_t *__qistd376(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.remove"); qi_list_data(list, 1) = qi_get(state, "list_remove"); return list; } inline static qi_list_t *__qistd377(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.join"); qi_list_data(list, 1) = qi_get(state, "list_join"); return list; } inline static qi_list_t *__qistd378(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.popAt"); qi_list_data(list, 1) = qi_get(state, "list_pop_at"); return list; } inline static qi_list_t *__qistd379(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.sort"); qi_list_data(list, 1) = qi_get(state, "list_sort"); return list; } inline static qi_list_t *__qistd380(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.sorted"); qi_list_data(list, 1) = qi_get(state, "list_sorted"); return list; } inline static qi_list_t *__qistd381(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.shift"); qi_list_data(list, 1) = qi_get(state, "list_shift"); return list; } inline static qi_list_t *__qistd382(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.unshift"); qi_list_data(list, 1) = qi_get(state, "list_unshift"); return list; } inline static qi_list_t *__qistd383(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.slice"); qi_list_data(list, 1) = qi_get(state, "slice"); return list; } inline static qi_list_t *__qistd384(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.slice"); qi_list_data(list, 1) = qi_get(state, "slice"); return list; } inline static qi_list_t *__qistd385(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "bytes.slice"); qi_list_data(list, 1) = qi_get(state, "slice"); return list; } inline static qi_list_t *__qistd386(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.startsWith"); qi_list_data(list, 1) = qi_get(state, "str_startswith"); return list; } inline static qi_list_t *__qistd387(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.endsWith"); qi_list_data(list, 1) = qi_get(state, "str_endswith"); return list; } inline static qi_list_t *__qistd388(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.split"); qi_list_data(list, 1) = qi_get(state, "str_split"); return list; } inline static qi_list_t *__qistd389(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.replace"); qi_list_data(list, 1) = qi_get(state, "str_replace"); return list; } inline static qi_list_t *__qistd390(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "table.keys"); qi_list_data(list, 1) = qi_get(state, "table_keys"); return list; } inline static qi_list_t *__qistd391(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "table.values"); qi_list_data(list, 1) = qi_get(state, "table_values"); return list; } inline static qi_list_t *__qistd394(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "f"); qi_list_data(list, 1) = qi_get(state, "xs"); return list; } qi_value_t *__qistd393(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 1)); qi_decl(state, "xs", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "reduce"), __qistd394(state));return state->nil; } inline static qi_list_t *__qistd392(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.reduce"); qi_list_data(list, 1) = qi_make_function(state, "", 2, __qistd393, NULL); return list; } inline static qi_list_t *__qistd397(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "f"); qi_list_data(list, 1) = qi_get(state, "xs"); return list; } qi_value_t *__qistd396(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 1)); qi_decl(state, "xs", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "reduce"), __qistd397(state));return state->nil; } inline static qi_list_t *__qistd395(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "tuple.reduce"); qi_list_data(list, 1) = qi_make_function(state, "", 2, __qistd396, NULL); return list; } inline static qi_list_t *__qistd400(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "f"); qi_list_data(list, 1) = qi_get(state, "xs"); return list; } qi_value_t *__qistd399(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 1)); qi_decl(state, "xs", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "reduce"), __qistd400(state));return state->nil; } inline static qi_list_t *__qistd398(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.reduce"); qi_list_data(list, 1) = qi_make_function(state, "", 2, __qistd399, NULL); return list; } inline static qi_list_t *__qistd403(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "f"); qi_list_data(list, 1) = qi_get(state, "xs"); return list; } qi_value_t *__qistd402(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 1)); qi_decl(state, "xs", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "reduce"), __qistd403(state));return state->nil; } inline static qi_list_t *__qistd401(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "bytes.reduce"); qi_list_data(list, 1) = qi_make_function(state, "", 2, __qistd402, NULL); return list; } inline static qi_list_t *__qistd404(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.sum"); qi_list_data(list, 1) = qi_get(state, "sum"); return list; } inline static qi_list_t *__qistd405(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "tuple.sum"); qi_list_data(list, 1) = qi_get(state, "sum"); return list; } inline static qi_list_t *__qistd406(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.product"); qi_list_data(list, 1) = qi_get(state, "product"); return list; } inline static qi_list_t *__qistd407(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "tuple.product"); qi_list_data(list, 1) = qi_get(state, "product"); return list; } inline static qi_list_t *__qistd408(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.all"); qi_list_data(list, 1) = qi_get(state, "all"); return list; } inline static qi_list_t *__qistd409(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "tuple.all"); qi_list_data(list, 1) = qi_get(state, "all"); return list; } inline static qi_list_t *__qistd410(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.any"); qi_list_data(list, 1) = qi_get(state, "any"); return list; } inline static qi_list_t *__qistd411(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "tuple.any"); qi_list_data(list, 1) = qi_get(state, "any"); return list; } inline static qi_list_t *__qistd414(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "f"); qi_list_data(list, 1) = qi_get(state, "xs"); return list; } qi_value_t *__qistd413(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 1)); qi_decl(state, "xs", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "map"), __qistd414(state));return state->nil; } inline static qi_list_t *__qistd412(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.map"); qi_list_data(list, 1) = qi_make_function(state, "", 2, __qistd413, NULL); return list; } inline static qi_list_t *__qistd417(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "f"); qi_list_data(list, 1) = qi_get(state, "xs"); return list; } qi_value_t *__qistd416(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 1)); qi_decl(state, "xs", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "map"), __qistd417(state));return state->nil; } inline static qi_list_t *__qistd415(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "tuple.map"); qi_list_data(list, 1) = qi_make_function(state, "", 2, __qistd416, NULL); return list; } inline static qi_list_t *__qistd420(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "f"); qi_list_data(list, 1) = qi_get(state, "xs"); return list; } qi_value_t *__qistd419(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 1)); qi_decl(state, "xs", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "map"), __qistd420(state));return state->nil; } inline static qi_list_t *__qistd418(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.map"); qi_list_data(list, 1) = qi_make_function(state, "", 2, __qistd419, NULL); return list; } inline static qi_list_t *__qistd423(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "f"); qi_list_data(list, 1) = qi_get(state, "xs"); return list; } qi_value_t *__qistd422(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 1)); qi_decl(state, "xs", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "map"), __qistd423(state));return state->nil; } inline static qi_list_t *__qistd421(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "bytes.map"); qi_list_data(list, 1) = qi_make_function(state, "", 2, __qistd422, NULL); return list; } inline static qi_list_t *__qistd426(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "f"); qi_list_data(list, 1) = qi_get(state, "xs"); return list; } qi_value_t *__qistd425(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 1)); qi_decl(state, "xs", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "filter"), __qistd426(state));return state->nil; } inline static qi_list_t *__qistd424(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "list.filter"); qi_list_data(list, 1) = qi_make_function(state, "", 2, __qistd425, NULL); return list; } inline static qi_list_t *__qistd429(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "f"); qi_list_data(list, 1) = qi_get(state, "xs"); return list; } qi_value_t *__qistd428(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 1)); qi_decl(state, "xs", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "filter"), __qistd429(state));return state->nil; } inline static qi_list_t *__qistd427(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "tuple.filter"); qi_list_data(list, 1) = qi_make_function(state, "", 2, __qistd428, NULL); return list; } inline static qi_list_t *__qistd432(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "f"); qi_list_data(list, 1) = qi_get(state, "xs"); return list; } qi_value_t *__qistd431(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 1)); qi_decl(state, "xs", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "filter"), __qistd432(state));return state->nil; } inline static qi_list_t *__qistd430(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.filter"); qi_list_data(list, 1) = qi_make_function(state, "", 2, __qistd431, NULL); return list; } inline static qi_list_t *__qistd435(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_get(state, "f"); qi_list_data(list, 1) = qi_get(state, "xs"); return list; } qi_value_t *__qistd434(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 1)); qi_decl(state, "xs", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "filter"), __qistd435(state));return state->nil; } inline static qi_list_t *__qistd433(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "bytes.filter"); qi_list_data(list, 1) = qi_make_function(state, "", 2, __qistd434, NULL); return list; } inline static qi_list_t *__qistd436(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.index"); qi_list_data(list, 1) = qi_get(state, "str_index"); return list; } inline static qi_list_t *__qistd437(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.lstrip"); qi_list_data(list, 1) = qi_get(state, "str_lstrip"); return list; } inline static qi_list_t *__qistd438(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.rstrip"); qi_list_data(list, 1) = qi_get(state, "str_rstrip"); return list; } inline static qi_list_t *__qistd439(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.strip"); qi_list_data(list, 1) = qi_get(state, "str_strip"); return list; } inline static qi_list_t *__qistd440(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "table.get"); qi_list_data(list, 1) = qi_get(state, "table_get"); return list; } inline static qi_list_t *__qistd441(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.toupper"); qi_list_data(list, 1) = qi_get(state, "str_toupper"); return list; } inline static qi_list_t *__qistd442(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.tolower"); qi_list_data(list, 1) = qi_get(state, "str_tolower"); return list; } inline static qi_list_t *__qistd443(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.format"); qi_list_data(list, 1) = qi_get(state, "format"); return list; } inline static qi_list_t *__qistd444(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.formatl"); qi_list_data(list, 1) = qi_get(state, "formatl"); return list; } inline static qi_list_t *__qistd445(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "string.formatd"); qi_list_data(list, 1) = qi_get(state, "formatd"); return list; } qi_value_t *__qistd447(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { return state->nil; } inline static qi_list_t *__qistd446(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "file.__enter"); qi_list_data(list, 1) = qi_make_function(state, "", 0, __qistd447, NULL); return list; } inline static qi_list_t *__qistd450(qi_state_t *state) { qi_list_t *list = qi_list_make_n(1); qi_list_data(list, 0) = qi_get(state, "f"); return list; } qi_value_t *__qistd449(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) { qi_decl(state, "f", qi_list_index(pargs, 0)); return qi_call(state, qi_get(state, "fclose"), __qistd450(state));return state->nil; } inline static qi_list_t *__qistd448(qi_state_t *state) { qi_list_t *list = qi_list_make_n(2); qi_list_data(list, 0) = qi_make_string(state, "file.__leave"); qi_list_data(list, 1) = qi_make_function(state, "", 1, __qistd449, NULL); return list; } static void qi_init_std(qi_state_t *state) { qi_set(state, false, "head", qi_make_function(state, "head", 1, __qistd0, NULL)); qi_set(state, false, "tail", qi_make_function(state, "tail", 1, __qistd1, NULL)); qi_set(state, false, "min", qi_make_function(state, "min", 2, __qistd3, NULL)); qi_set(state, false, "max", qi_make_function(state, "max", 2, __qistd4, NULL)); qi_set(state, false, "reverse", qi_make_function(state, "reverse", 1, __qistd5, NULL)); qi_set(state, false, "range", qi_make_function(state, "range", 1, __qistd16, NULL)); qi_set(state, false, "frewind", qi_make_function(state, "frewind", 1, __qistd29, NULL)); qi_set(state, false, "file_read", qi_make_function(state, "file_read", 1, __qistd30, NULL)); qi_set(state, false, "file_write", qi_make_function(state, "file_write", 2, __qistd36, NULL)); qi_set(state, false, "is_defined", qi_make_function(state, "is_defined", 1, __qistd42, NULL)); qi_set(state, false, "list_remove", qi_make_function(state, "list_remove", 2, __qistd45, NULL)); qi_set(state, false, "list_join", qi_make_function(state, "list_join", 1, __qistd52, NULL)); qi_set(state, false, "list_pop_at", qi_make_function(state, "list_pop_at", 2, __qistd62, NULL)); qi_set(state, false, "list_sort", qi_make_function(state, "list_sort", 1, __qistd68, NULL)); qi_set(state, false, "list_sorted", qi_make_function(state, "list_sorted", 1, __qistd79, NULL)); qi_set(state, false, "list_shift", qi_make_function(state, "list_shift", 1, __qistd83, NULL)); qi_set(state, false, "list_unshift", qi_make_function(state, "list_unshift", 2, __qistd88, NULL)); qi_set(state, false, "slice", qi_make_function(state, "slice", 1, __qistd90, NULL)); qi_set(state, false, "str_startswith", qi_make_function(state, "str_startswith", 2, __qistd117, NULL)); qi_set(state, false, "str_endswith", qi_make_function(state, "str_endswith", 2, __qistd124, NULL)); qi_set(state, false, "str_split", qi_make_function(state, "str_split", 1, __qistd132, NULL)); qi_set(state, false, "str_replace", qi_make_function(state, "str_replace", 3, __qistd146, NULL)); qi_set(state, false, "table_keys", qi_make_function(state, "table_keys", 1, __qistd158, NULL)); qi_set(state, false, "table_values", qi_make_function(state, "table_values", 1, __qistd164, NULL)); qi_set(state, false, "reduce", qi_make_function(state, "reduce", 2, __qistd170, NULL)); qi_set(state, false, "sum", qi_make_function(state, "sum", 1, __qistd187, NULL)); qi_set(state, false, "product", qi_make_function(state, "product", 1, __qistd190, NULL)); qi_set(state, false, "all", qi_make_function(state, "all", 1, __qistd193, NULL)); qi_set(state, false, "any", qi_make_function(state, "any", 1, __qistd196, NULL)); qi_set(state, false, "map", qi_make_function(state, "map", 2, __qistd199, NULL)); qi_set(state, false, "filter", qi_make_function(state, "filter", 2, __qistd216, NULL)); qi_set(state, false, "str_index", qi_make_function(state, "str_index", 2, __qistd233, NULL)); qi_set(state, false, "str_lstrip", qi_make_function(state, "str_lstrip", 1, __qistd243, NULL)); qi_set(state, false, "str_rstrip", qi_make_function(state, "str_rstrip", 1, __qistd251, NULL)); qi_set(state, false, "str_strip", qi_make_function(state, "str_strip", 1, __qistd260, NULL)); qi_set(state, false, "table_get", qi_make_function(state, "table_get", 2, __qistd267, NULL)); qi_set(state, false, "zip", qi_make_function(state, "zip", 0, __qistd272, NULL)); qi_set(state, false, "enumerate", qi_make_function(state, "enumerate", 1, __qistd280, NULL)); qi_set(state, false, "str_toupper", qi_make_function(state, "str_toupper", 1, __qistd288, NULL)); qi_set(state, false, "str_tolower", qi_make_function(state, "str_tolower", 1, __qistd295, NULL)); qi_set(state, false, "Object", qi_make_function(state, "Object", 1, __qistd302, NULL)); qi_set(state, false, "is_object", qi_make_function(state, "is_object", 1, __qistd306, NULL)); qi_set(state, false, "__class_wrapper", qi_make_function(state, "__class_wrapper", 5, __qistd308, NULL)); qi_set(state, false, "format", qi_make_function(state, "format", 1, __qistd325, NULL)); qi_set(state, false, "formatl", qi_make_function(state, "formatl", 2, __qistd335, NULL)); qi_set(state, false, "formatd", qi_make_function(state, "formatd", 2, __qistd342, NULL)); qi_set(state, false, "getch", qi_make_function(state, "getch", 0, __qistd355, NULL)); qi_set(state, false, "putch", qi_make_function(state, "putch", 1, __qistd358, NULL)); qi_set(state, false, "getline", qi_make_function(state, "getline", 0, __qistd360, NULL)); qi_set(state, false, "input", qi_make_function(state, "input", 0, __qistd362, NULL)); qi_set(state, false, "open", qi_make_function(state, "open", 1, __qistd366, NULL)); qi_set(state, false, "assert", qi_make_function(state, "assert", 1, __qistd368, NULL)); qi_set(state, false, "Error", __qistd369(state));(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd373(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd374(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd375(state))); qi_decl_const(state, "SEEK_END", qi_make_number(state, 2)); qi_decl_const(state, "SEEK_CUR", qi_make_number(state, 1)); qi_decl_const(state, "SEEK_SET", qi_make_number(state, 0)); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd376(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd377(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd378(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd379(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd380(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd381(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd382(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd383(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd384(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd385(state))); qi_decl_const(state, "__slice", qi_get(state, "slice")); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd386(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd387(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd388(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd389(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd390(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd391(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd392(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd395(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd398(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd401(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd404(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd405(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd406(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd407(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd408(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd409(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd410(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd411(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd412(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd415(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd418(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd421(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd424(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd427(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd430(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd433(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd436(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd437(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd438(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd439(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd440(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd441(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd442(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd443(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd444(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd445(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd446(state))); (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd448(state))); }