|
|
@@ -1,4636 +0,0 @@
|
|
|
-inline static qi_list_t *__qistd3(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 *__qistd2(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"), __qistd3(state)), qi_get(state, "t"));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd4(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_get(state, "o");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "t");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd0(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "o", pargc >= 3? qi_list_index(pargs, 2): qi_make_table(state, NULL));
|
|
|
-qi_decl(state, "p", pargc >= 2? qi_list_index(pargs, 1): state->nil);
|
|
|
-qi_decl(state, "t", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd1 = (_qi_truthy(state, qi_not_is(state, qi_get(state, "p"), state->nil))? qi_call(state, qi_get(state, "set_meta_table"), __qistd2(state)): qi_call(state, qi_get(state, "set_meta_table"), __qistd4(state)));
|
|
|
-return __qistd1;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd7(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 *__qistd5(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "o", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd6 = qi_call(state, qi_get(state, "has_meta_table"), __qistd7(state));
|
|
|
-return __qistd6;return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd12(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd13 = qi_get(state, "n");
|
|
|
-return __qistd13;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_table_t *__qistd14(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 *__qistd15(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd16 = qi_add(state, qi_add(state, qi_make_string(state, "<class "), qi_get(state, "n")), qi_make_string(state, ">"));
|
|
|
-return __qistd16;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_table_t *__qistd17(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 *__qistd20(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd21 = qi_get(state, "n");
|
|
|
-return __qistd21;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_table_t *__qistd22(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 *__qistd19(qi_state_t *state) {
|
|
|
-qi_table_t *table = qi_table_make();
|
|
|
-qi_table_set(table, qi_to_string(state, qi_make_string(state, "__type"))->value.string, qi_make_function(state, "<anon>", 1, __qistd20, __qistd22(state)));
|
|
|
-return table;
|
|
|
-}
|
|
|
-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, "p");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd25(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 *__qistd27(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 *__qistd26(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, __qistd27(state)), qi_get(state, "pargs"));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd18(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, __qistd19(state)));
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_get(state, "p"))) {
|
|
|
-qi_decl(state, "i", qi_make_number(state, 0));
|
|
|
-qi_new_scope(state);
|
|
|
-while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd24(state))))) {
|
|
|
-qi_new_scope(state);
|
|
|
-(void)(qi_set(state, false, "t", qi_add(state, qi_get(state, "t"), qi_index(state, qi_index(state, qi_get(state, "p"), qi_get(state, "i")), qi_make_string(state, "t")))));
|
|
|
-(void)(qi_set(state, false, "mt", qi_add(state, qi_get(state, "mt"), qi_index(state, qi_index(state, qi_get(state, "p"), qi_get(state, "i")), qi_make_string(state, "mt")))));
|
|
|
-(void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), qi_make_number(state, 1))));
|
|
|
-__continue23:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit23;
|
|
|
-__break23:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit23:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-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"))));
|
|
|
-qi_decl(state, "obj", qi_call(state, qi_get(state, "set_meta_table"), __qistd25(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"), __qistd26(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd28 = qi_get(state, "obj");
|
|
|
-return __qistd28;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_table_t *__qistd29(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 *__qistd11(qi_state_t *state) {
|
|
|
-qi_table_t *table = qi_table_make();
|
|
|
-qi_table_set(table, qi_to_string(state, qi_make_string(state, "t"))->value.string, qi_get(state, "t"));
|
|
|
-qi_table_set(table, qi_to_string(state, qi_make_string(state, "mt"))->value.string, qi_get(state, "mt"));
|
|
|
-qi_table_set(table, qi_to_string(state, qi_make_string(state, "super"))->value.string, qi_get(state, "p"));
|
|
|
-qi_table_set(table, qi_to_string(state, qi_make_string(state, "__type"))->value.string, qi_make_function(state, "<anon>", 1, __qistd12, __qistd14(state)));
|
|
|
-qi_table_set(table, qi_to_string(state, qi_make_string(state, "__str"))->value.string, qi_make_function(state, "<anon>", 1, __qistd15, __qistd17(state)));
|
|
|
-qi_table_set(table, qi_to_string(state, qi_make_string(state, "__call"))->value.string, qi_make_function(state, "<anon>", 2, __qistd18, __qistd29(state)));
|
|
|
-return table;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd10(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(3);
|
|
|
-qi_list_data(list, 0) = qi_make_table(state, __qistd11(state));
|
|
|
-qi_list_data(list, 1) = state->nil;
|
|
|
-qi_list_data(list, 2) = qi_get(state, "st");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd8(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));
|
|
|
-qi_value_t *__qistd9 = qi_call(state, qi_get(state, "Object"), __qistd10(state));
|
|
|
-return __qistd9;return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd31(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "msg", pargc >= 2? qi_list_index(pargs, 1): state->nil);
|
|
|
-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 *__qistd34(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_get(state, "this");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd35(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 *__qistd32(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd33 = (_qi_truthy(state, qi_is(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "msg")), state->nil))? qi_call(state, qi_get(state, "type"), __qistd34(state)): qi_add(state, qi_add(state, qi_call(state, qi_get(state, "type"), __qistd35(state)), qi_make_string(state, ": ")), qi_index(state, qi_get(state, "this"), qi_make_string(state, "msg"))));
|
|
|
-return __qistd33;return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd30(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", 1, __qistd31, NULL));
|
|
|
-qi_table_set(metatable, "__str", qi_make_function(state, "Error.__str", 1, __qistd32, 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);
|
|
|
-}
|
|
|
-qi_value_t *__qistd36(qi_state_t *state) {
|
|
|
-qi_list_t *supers = qi_list_make_n(1);
|
|
|
-qi_list_data(supers, 0) = qi_get(state, "Error");
|
|
|
-qi_table_t *table = qi_table_make();
|
|
|
-qi_table_t *metatable = qi_table_make();
|
|
|
-qi_table_t *statictable = qi_table_make();
|
|
|
-qi_list_t *pargs = qi_list_make_n(5);
|
|
|
-qi_list_data(pargs, 0) = qi_make_string(state, "AssertionError");
|
|
|
-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);
|
|
|
-}
|
|
|
-qi_value_t *__qistd37(qi_state_t *state) {
|
|
|
-qi_list_t *supers = qi_list_make_n(1);
|
|
|
-qi_list_data(supers, 0) = qi_get(state, "Error");
|
|
|
-qi_table_t *table = qi_table_make();
|
|
|
-qi_table_t *metatable = qi_table_make();
|
|
|
-qi_table_t *statictable = qi_table_make();
|
|
|
-qi_list_t *pargs = qi_list_make_n(5);
|
|
|
-qi_list_data(pargs, 0) = qi_make_string(state, "TypeError");
|
|
|
-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);
|
|
|
-}
|
|
|
-qi_value_t *__qistd38(qi_state_t *state) {
|
|
|
-qi_list_t *supers = qi_list_make_n(1);
|
|
|
-qi_list_data(supers, 0) = qi_get(state, "Error");
|
|
|
-qi_table_t *table = qi_table_make();
|
|
|
-qi_table_t *metatable = qi_table_make();
|
|
|
-qi_table_t *statictable = qi_table_make();
|
|
|
-qi_list_t *pargs = qi_list_make_n(5);
|
|
|
-qi_list_data(pargs, 0) = qi_make_string(state, "ValueError");
|
|
|
-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);
|
|
|
-}
|
|
|
-qi_value_t *__qistd39(qi_state_t *state) {
|
|
|
-qi_list_t *supers = qi_list_make_n(1);
|
|
|
-qi_list_data(supers, 0) = qi_get(state, "Error");
|
|
|
-qi_table_t *table = qi_table_make();
|
|
|
-qi_table_t *metatable = qi_table_make();
|
|
|
-qi_table_t *statictable = qi_table_make();
|
|
|
-qi_list_t *pargs = qi_list_make_n(5);
|
|
|
-qi_list_data(pargs, 0) = qi_make_string(state, "IndexError");
|
|
|
-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);
|
|
|
-}
|
|
|
-qi_value_t *__qistd40(qi_state_t *state) {
|
|
|
-qi_list_t *supers = qi_list_make_n(1);
|
|
|
-qi_list_data(supers, 0) = qi_get(state, "Error");
|
|
|
-qi_table_t *table = qi_table_make();
|
|
|
-qi_table_t *metatable = qi_table_make();
|
|
|
-qi_table_t *statictable = qi_table_make();
|
|
|
-qi_list_t *pargs = qi_list_make_n(5);
|
|
|
-qi_list_data(pargs, 0) = qi_make_string(state, "KeyError");
|
|
|
-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);
|
|
|
-}
|
|
|
-qi_value_t *__qistd41(qi_state_t *state) {
|
|
|
-qi_list_t *supers = qi_list_make_n(1);
|
|
|
-qi_list_data(supers, 0) = qi_get(state, "Error");
|
|
|
-qi_table_t *table = qi_table_make();
|
|
|
-qi_table_t *metatable = qi_table_make();
|
|
|
-qi_table_t *statictable = qi_table_make();
|
|
|
-qi_list_t *pargs = qi_list_make_n(5);
|
|
|
-qi_list_data(pargs, 0) = qi_make_string(state, "RecursionError");
|
|
|
-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);
|
|
|
-}
|
|
|
-qi_value_t *__qistd42(qi_state_t *state) {
|
|
|
-qi_list_t *supers = qi_list_make_n(1);
|
|
|
-qi_list_data(supers, 0) = qi_get(state, "Error");
|
|
|
-qi_table_t *table = qi_table_make();
|
|
|
-qi_table_t *metatable = qi_table_make();
|
|
|
-qi_table_t *statictable = qi_table_make();
|
|
|
-qi_list_t *pargs = qi_list_make_n(5);
|
|
|
-qi_list_data(pargs, 0) = qi_make_string(state, "NameError");
|
|
|
-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);
|
|
|
-}
|
|
|
-qi_value_t *__qistd43(qi_state_t *state) {
|
|
|
-qi_list_t *supers = qi_list_make_n(1);
|
|
|
-qi_list_data(supers, 0) = qi_get(state, "Error");
|
|
|
-qi_table_t *table = qi_table_make();
|
|
|
-qi_table_t *metatable = qi_table_make();
|
|
|
-qi_table_t *statictable = qi_table_make();
|
|
|
-qi_list_t *pargs = qi_list_make_n(5);
|
|
|
-qi_list_data(pargs, 0) = qi_make_string(state, "IOError");
|
|
|
-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 *__qistd46(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_get(state, "a");
|
|
|
-return list;
|
|
|
-}
|
|
|
-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, "b");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd44(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "a", qi_list_index(pargs, 0));
|
|
|
-qi_decl(state, "b", qi_list_index(pargs, 1));
|
|
|
-qi_value_t *__qistd45 = qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd46(state)), qi_call(state, qi_get(state, "type"), __qistd47(state)));
|
|
|
-return __qistd45;return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd48(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "l", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd49 = qi_index(state, qi_get(state, "l"), qi_make_number(state, 0));
|
|
|
-return __qistd49;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd52(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 *__qistd50(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "l", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd51 = qi_call(state, qi_get(state, "slice"), __qistd52(state));
|
|
|
-return __qistd51;return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd53(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));
|
|
|
-qi_value_t *__qistd54 = (_qi_truthy(state, qi_lt(state, qi_get(state, "x"), qi_get(state, "y")))? qi_get(state, "x"): qi_get(state, "y"));
|
|
|
-return __qistd54;return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd55(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));
|
|
|
-qi_value_t *__qistd56 = (_qi_truthy(state, qi_gt(state, qi_get(state, "x"), qi_get(state, "y")))? qi_get(state, "x"): qi_get(state, "y"));
|
|
|
-return __qistd56;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd58(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 *__qistd59(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 *__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;
|
|
|
-}
|
|
|
-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_add(state, qi_make_string(state, "expected first argument to be: list, string or bytes, but got: "), qi_call(state, qi_get(state, "type"), __qistd61(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-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, "x");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd64(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 *__qistd65(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 *__qistd67(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 *__qistd68(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 *__qistd70(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 *__qistd57(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"), __qistd58(state)), qi_make_tuple(state, __qistd59(state))))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd60(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"), __qistd63(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"), __qistd64(state)));__continue62:;
|
|
|
-qi_set(state, false, "i", qi_sub(state, qi_get(state, "i"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit62;
|
|
|
-__break62:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit62:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd65(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_value_t *__qistd66 = qi_call(state, qi_get(state, "list_join"), __qistd67(state));
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd66;} else {
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd68(state)), qi_make_string(state, "bytes")))) {
|
|
|
-qi_value_t *__qistd69 = qi_call(state, qi_get(state, "bytes"), __qistd70(state));
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd69;}
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd71 = qi_get(state, "r");
|
|
|
-return __qistd71;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-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, "arguments");
|
|
|
-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, "arguments");
|
|
|
-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, "f");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd77(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 *__qistd76(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd77(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd78(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 *__qistd80(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 *__qistd79(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd80(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-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, "s");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd83(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 *__qistd82(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected third argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd83(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd86(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 *__qistd85(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"), __qistd86(state));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd88(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 *__qistd72(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"), __qistd73(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"), __qistd74(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"), __qistd75(state)), qi_make_string(state, "number")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd76(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd78(state)), qi_make_string(state, "number")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd79(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd81(state)), qi_make_string(state, "number")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd82(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_value_t *__qistd84 = qi_call(state, qi_get(state, "reverse"), __qistd85(state));
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd84;}
|
|
|
-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"), __qistd88(state)));__continue87:;
|
|
|
-qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), qi_get(state, "s")));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit87;
|
|
|
-__break87:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit87:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd89 = qi_get(state, "r");
|
|
|
-return __qistd89;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd90(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "file", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd91 = qi_call(state, qi_index(state, qi_get(state, "file"), qi_make_string(state, "rewind")), NULL);
|
|
|
-return __qistd91;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd95(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_negate(state, qi_make_number(state, 1));
|
|
|
-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_call(state, qi_get(state, "fread"), __qistd95(state));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd92(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_value_t *__qistd93 = qi_call(state, qi_get(state, "str"), __qistd94(state));
|
|
|
-return __qistd93;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd97(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 *__qistd99(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 __qistd98(qi_state_t *state) {
|
|
|
-(void)(qi_call(state, qi_get(state, "fclose"), __qistd99(state)));
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd102(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 *__qistd101(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"), __qistd102(state));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd96(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"), __qistd97(state)));
|
|
|
-qi_add_defer(state, -1, __qistd98);
|
|
|
-qi_value_t *__qistd100 = qi_call(state, qi_get(state, "str"), __qistd101(state));
|
|
|
-return __qistd100;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd104(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 *__qistd106(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 __qistd105(qi_state_t *state) {
|
|
|
-(void)(qi_call(state, qi_get(state, "fclose"), __qistd106(state)));
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd108(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 *__qistd107(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"), __qistd108(state));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd103(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"), __qistd104(state)));
|
|
|
-qi_add_defer(state, -1, __qistd105);
|
|
|
-(void)(qi_call(state, qi_get(state, "fwrite"), __qistd107(state)));
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd110(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 *__qistd112(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 *__qistd111(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd112(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd109(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"), __qistd110(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd111(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;
|
|
|
-}
|
|
|
-qi_value_t *__qistd113(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "a", qi_list_index(pargs, 0));
|
|
|
-return qi_make_boolean(state, qi_get(state, "a")->type == QI_TABLE);
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-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, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-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, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd117(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd118(state)));
|
|
|
-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, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd121(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 *__qistd114(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"), __qistd116(state)), qi_make_string(state, "list")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd117(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-__label115:;
|
|
|
-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"), __qistd120(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"), __qistd121(state)));
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_get(state, "first"))) {
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-goto __break119;}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-goto __label115;
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-__continue119:;
|
|
|
-qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit119;
|
|
|
-__break119:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit119:;
|
|
|
-qi_old_scope(state);
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-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, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-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, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd124(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd125(state)));
|
|
|
-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, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd128(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 *__qistd122(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "l", qi_list_index(pargs, 0));
|
|
|
-qi_decl(state, "many", pargc >= 3? qi_list_index(pargs, 2): state->_false);
|
|
|
-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"), __qistd123(state)), qi_make_string(state, "list")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd124(state)));}
|
|
|
-qi_old_scope(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_call(state, qi_get(state, "len"), __qistd127(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_push"), __qistd128(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-__continue126:;
|
|
|
-qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit126;
|
|
|
-__break126:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit126:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd129 = (_qi_truthy(state, qi_get(state, "many"))? qi_get(state, "r"): (_qi_truthy(state, qi_get(state, "r"))? qi_index(state, qi_get(state, "r"), qi_make_number(state, 0)): qi_negate(state, qi_make_number(state, 1))));
|
|
|
-return __qistd129;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-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, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-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, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd132(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argumient to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd133(state)));
|
|
|
-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, "arguments");
|
|
|
-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 *__qistd137(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_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd137(state)));
|
|
|
-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, "x");
|
|
|
-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, "x");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd141(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected sequence item to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd142(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd130(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"), __qistd131(state)), qi_make_string(state, "list")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd132(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"), __qistd134(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"), __qistd135(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd136(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_decl(state, "first", state->_true);
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd139 = qi_iter(state, qi_get(state, "l"));
|
|
|
-qi_decl(state, "x", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd139)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd139);
|
|
|
-qi_set(state, false, "x", el);
|
|
|
-qi_new_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd140(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd141(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));
|
|
|
-__continue138:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit138;
|
|
|
-__break138:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit138:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd143 = qi_get(state, "r");
|
|
|
-return __qistd143;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd145(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 *__qistd147(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 *__qistd146(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd147(state)));
|
|
|
-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, "i");
|
|
|
-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, "i");
|
|
|
-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_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd150(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd151(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 *__qistd144(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"), __qistd145(state)), qi_make_string(state, "list")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd146(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd148(state)), qi_make_string(state, "number")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd149(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"), __qistd151(state)));
|
|
|
-qi_value_t *__qistd152 = qi_get(state, "x");
|
|
|
-return __qistd152;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd153(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));
|
|
|
-qi_value_t *__qistd154 = (_qi_truthy(state, qi_gt(state, qi_get(state, "x"), qi_get(state, "y")))? qi_make_number(state, 1): (_qi_truthy(state, qi_lt(state, qi_get(state, "x"), qi_get(state, "y")))? qi_negate(state, qi_make_number(state, 1)): qi_make_number(state, 0)));
|
|
|
-return __qistd154;return state->nil;
|
|
|
-}
|
|
|
-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, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd158(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 *__qistd157(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd158(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-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, "cmp");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd161(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 *__qistd160(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected second argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd161(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd162(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 *__qistd164(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 *__qistd167(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 *__qistd155(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "cmp", pargc >= 2? qi_list_index(pargs, 1): qi_get(state, "__cmp"));
|
|
|
-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"), __qistd156(state)), qi_make_string(state, "list")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd157(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-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, "function")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd160(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd162(state)), qi_make_number(state, 0)))) {
|
|
|
-qi_value_t *__qistd163 = qi_get(state, "l");
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd163;}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_decl(state, "z", qi_call(state, qi_get(state, "len"), __qistd164(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_gt(state, qi_call(state, qi_get(state, "cmp"), __qistd167(state)), qi_make_number(state, 0)))) {
|
|
|
-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);
|
|
|
-__continue166:;
|
|
|
-qi_set(state, false, "j", qi_add(state, qi_get(state, "j"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit166;
|
|
|
-__break166:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit166:;
|
|
|
-qi_old_scope(state);
|
|
|
-__continue165:;
|
|
|
-qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit165;
|
|
|
-__break165:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit165:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd168 = qi_get(state, "l");
|
|
|
-return __qistd168;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd170(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 *__qistd172(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 *__qistd169(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "cmp", pargc >= 2? qi_list_index(pargs, 1): qi_get(state, "__cmp"));
|
|
|
-qi_decl(state, "l", qi_list_index(pargs, 0));
|
|
|
-(void)(qi_set(state, false, "l", qi_call(state, qi_get(state, "list_copy"), __qistd170(state))));
|
|
|
-qi_value_t *__qistd171 = qi_call(state, qi_get(state, "list_sort"), __qistd172(state));
|
|
|
-return __qistd171;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd174(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 *__qistd176(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 *__qistd175(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd176(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd177(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 *__qistd178(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "shift from empty list");
|
|
|
-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, "l");
|
|
|
-qi_list_data(list, 1) = qi_make_number(state, 0);
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd173(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"), __qistd174(state)), qi_make_string(state, "list")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd175(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_call(state, qi_get(state, "is_empty"), __qistd177(state)))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "IndexError"), __qistd178(state)));}
|
|
|
-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"), __qistd179(state)));
|
|
|
-qi_value_t *__qistd180 = qi_get(state, "a");
|
|
|
-return __qistd180;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd182(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 *__qistd181(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"), __qistd182(state)));
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-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, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd185(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 *__qistd187(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 *__qistd186(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = 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"), __qistd187(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd188(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 *__qistd189(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 *__qistd191(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 *__qistd190(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd191(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd192(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 *__qistd194(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 *__qistd195(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 *__qistd196(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 *__qistd197(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 *__qistd199(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 *__qistd198(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd199(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-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, "t");
|
|
|
-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, "t");
|
|
|
-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_add(state, qi_make_string(state, "expected third argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd202(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd203(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 *__qistd204(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 *__qistd206(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 *__qistd207(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 *__qistd208(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 *__qistd210(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 *__qistd211(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 *__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, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd216(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 *__qistd183(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"), __qistd184(state)), qi_make_tuple(state, __qistd185(state))))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd186(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"), __qistd188(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"), __qistd189(state)), qi_make_string(state, "number")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd190(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"), __qistd192(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"), __qistd194(state))))) {
|
|
|
-qi_new_scope(state);
|
|
|
-(void)(qi_call(state, qi_get(state, "list_push"), __qistd195(state)));__continue193:;
|
|
|
-qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit193;
|
|
|
-__break193:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit193:;
|
|
|
-qi_old_scope(state);
|
|
|
-} else {
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd196(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"), __qistd197(state)), qi_make_string(state, "number")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd198(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-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, "number")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd201(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"), __qistd203(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"), __qistd204(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"), __qistd206(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"), __qistd207(state)));__continue205:;
|
|
|
-qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit205;
|
|
|
-__break205:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit205:;
|
|
|
-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"), __qistd208(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_value_t *__qistd209 = qi_call(state, qi_get(state, "list_join"), __qistd210(state));
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd209;} else {
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd211(state)), qi_make_string(state, "bytes")))) {
|
|
|
-qi_value_t *__qistd212 = qi_call(state, qi_get(state, "bytes"), __qistd213(state));
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd212;} 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, "ustr")))) {
|
|
|
-qi_value_t *__qistd215 = qi_call(state, qi_get(state, "ustr"), __qistd216(state));
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd215;}
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd217 = qi_get(state, "r");
|
|
|
-return __qistd217;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-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, "s");
|
|
|
-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, "s");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd220(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd221(state)));
|
|
|
-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, "s");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd223(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 *__qistd227(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 *__qistd226(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"), __qistd227(state)), qi_make_number(state, 1));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd218(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"), __qistd219(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd220(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_lt(state, qi_call(state, qi_get(state, "len"), __qistd222(state)), qi_call(state, qi_get(state, "len"), __qistd223(state))))) {
|
|
|
-qi_value_t *__qistd224 = state->_false;
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd224;}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd225 = qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd226(state)), qi_get(state, "p"));
|
|
|
-return __qistd225;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-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, "s");
|
|
|
-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, "s");
|
|
|
-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_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd231(state)));
|
|
|
-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, "s");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd233(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 *__qistd237(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 *__qistd238(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 *__qistd236(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"), __qistd237(state)), qi_call(state, qi_get(state, "len"), __qistd238(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd228(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"), __qistd229(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd230(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_lt(state, qi_call(state, qi_get(state, "len"), __qistd232(state)), qi_call(state, qi_get(state, "len"), __qistd233(state))))) {
|
|
|
-qi_value_t *__qistd234 = state->_false;
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd234;}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd235 = qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd236(state)), qi_get(state, "p"));
|
|
|
-return __qistd235;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-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, "arguments");
|
|
|
-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, "s");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd243(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 *__qistd244(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be:!string, but got: "), qi_call(state, qi_get(state, "type"), __qistd245(state)));
|
|
|
-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, "d");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd248(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 *__qistd247(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd248(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd250(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 *__qistd252(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 *__qistd251(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"), __qistd252(state))), qi_make_number(state, 1));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd253(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 *__qistd254(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 *__qistd255(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 *__qistd239(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"), __qistd240(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_value_t *__qistd241 = qi_call(state, qi_get(state, "list"), __qistd242(state));
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd241;}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd243(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd244(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"), __qistd246(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd247(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"), __qistd250(state))))) {
|
|
|
-qi_new_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd251(state)), qi_get(state, "d")))) {
|
|
|
-(void)(qi_call(state, qi_get(state, "list_push"), __qistd253(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"), __qistd254(state)), qi_make_number(state, 1)))));
|
|
|
-qi_old_scope(state);
|
|
|
-goto __continue249;
|
|
|
-}
|
|
|
-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")))));
|
|
|
-__continue249:;
|
|
|
-qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit249;
|
|
|
-__break249:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit249:;
|
|
|
-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"), __qistd255(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd256 = qi_get(state, "r");
|
|
|
-return __qistd256;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd258(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 *__qistd260(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_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd260(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-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, "w");
|
|
|
-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, "w");
|
|
|
-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_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd263(state)));
|
|
|
-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, "b");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd266(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 *__qistd265(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected third argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd266(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-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, "s");
|
|
|
-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, "w");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd269(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"), __qistd270(state))), qi_make_number(state, 1));
|
|
|
-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, "w");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd257(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"), __qistd258(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd259(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-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_call(state, qi_get(state, "TypeError"), __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"), __qistd264(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd265(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"), __qistd268(state))))) {
|
|
|
-qi_new_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd269(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"), __qistd271(state)), qi_make_number(state, 1)))));
|
|
|
-qi_old_scope(state);
|
|
|
-goto __continue267;
|
|
|
-}
|
|
|
-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")))));
|
|
|
-__continue267:;
|
|
|
-qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit267;
|
|
|
-__break267:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit267:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd272 = qi_get(state, "r");
|
|
|
-return __qistd272;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd274(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 *__qistd276(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 *__qistd275(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: table, but got: "), qi_call(state, qi_get(state, "type"), __qistd276(state)));
|
|
|
-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, "k");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd273(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"), __qistd274(state)), qi_make_string(state, "table")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd275(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_decl(state, "r", qi_make_list(state, NULL));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd278 = qi_iter(state, qi_get(state, "t"));
|
|
|
-qi_decl(state, "k", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd278)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd278);
|
|
|
-qi_set(state, false, "k", el);
|
|
|
-qi_new_scope(state);
|
|
|
-(void)(qi_call(state, qi_get(state, "list_push"), __qistd279(state)));__continue277:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit277;
|
|
|
-__break277:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit277:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd280 = qi_get(state, "r");
|
|
|
-return __qistd280;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd282(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 *__qistd284(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 *__qistd283(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: table, but got: "), qi_call(state, qi_get(state, "type"), __qistd284(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd287(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 *__qistd281(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"), __qistd282(state)), qi_make_string(state, "table")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd283(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_decl(state, "r", qi_make_list(state, NULL));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd286 = qi_iter(state, qi_get(state, "t"));
|
|
|
-qi_decl(state, "k", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd286)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd286);
|
|
|
-qi_set(state, false, "k", el);
|
|
|
-qi_new_scope(state);
|
|
|
-(void)(qi_call(state, qi_get(state, "list_push"), __qistd287(state)));__continue285:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit285;
|
|
|
-__break285:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit285:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd288 = qi_get(state, "r");
|
|
|
-return __qistd288;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-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, "f");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd292(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 *__qistd291(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd292(state)));
|
|
|
-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_get(state, "xs");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd294(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 *__qistd296(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 *__qistd295(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = 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"), __qistd296(state)));
|
|
|
-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, "xs");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd298(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "cannot reduce empty list");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd301(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 *__qistd302(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 *__qistd303(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 *__qistd305(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 *__qistd306(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 *__qistd308(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 *__qistd309(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 *__qistd311(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 *__qistd289(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"), __qistd290(state)), qi_make_string(state, "function")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd291(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd293(state)), qi_make_tuple(state, __qistd294(state))))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd295(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd297(state)), qi_make_number(state, 0)))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "ValueError"), __qistd298(state)));}
|
|
|
-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 *__qistd300 = qi_iter(state, qi_call(state, qi_get(state, "slice"), __qistd301(state)));
|
|
|
-qi_decl(state, "x", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd300)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd300);
|
|
|
-qi_set(state, false, "x", el);
|
|
|
-qi_new_scope(state);
|
|
|
-(void)(qi_set(state, false, "r", qi_call(state, qi_get(state, "f"), __qistd302(state))));__continue299:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit299;
|
|
|
-__break299:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit299:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd303(state)), qi_make_string(state, "tuple")))) {
|
|
|
-qi_value_t *__qistd304 = qi_call(state, qi_get(state, "tuple"), __qistd305(state));
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd304;} else {
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd306(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_value_t *__qistd307 = qi_call(state, qi_get(state, "list_join"), __qistd308(state));
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd307;} else {
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd309(state)), qi_make_string(state, "bytes")))) {
|
|
|
-qi_value_t *__qistd310 = qi_call(state, qi_get(state, "bytes"), __qistd311(state));
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd310;}
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd312 = qi_get(state, "r");
|
|
|
-return __qistd312;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd316(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));
|
|
|
-qi_value_t *__qistd317 = qi_add(state, qi_get(state, "x"), qi_get(state, "y"));
|
|
|
-return __qistd317;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd315(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_function(state, "<anon>", 2, __qistd316, NULL);
|
|
|
-qi_list_data(list, 1) = qi_get(state, "xs");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd313(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "xs", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd314 = qi_call(state, qi_get(state, "reduce"), __qistd315(state));
|
|
|
-return __qistd314;return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd321(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));
|
|
|
-qi_value_t *__qistd322 = qi_mul(state, qi_get(state, "x"), qi_get(state, "y"));
|
|
|
-return __qistd322;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd320(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_function(state, "<anon>", 2, __qistd321, NULL);
|
|
|
-qi_list_data(list, 1) = qi_get(state, "xs");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd318(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "xs", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd319 = qi_call(state, qi_get(state, "reduce"), __qistd320(state));
|
|
|
-return __qistd319;return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd326(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));
|
|
|
-qi_value_t *__qistd327 = qi_and(state, qi_get(state, "x"), qi_get(state, "y"));
|
|
|
-return __qistd327;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd325(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_function(state, "<anon>", 2, __qistd326, NULL);
|
|
|
-qi_list_data(list, 1) = qi_get(state, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd323(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "l", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd324 = qi_call(state, qi_get(state, "reduce"), __qistd325(state));
|
|
|
-return __qistd324;return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd331(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));
|
|
|
-qi_value_t *__qistd332 = qi_or(state, qi_get(state, "x"), qi_get(state, "y"));
|
|
|
-return __qistd332;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd330(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_function(state, "<anon>", 2, __qistd331, NULL);
|
|
|
-qi_list_data(list, 1) = qi_get(state, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd328(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "l", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd329 = qi_call(state, qi_get(state, "reduce"), __qistd330(state));
|
|
|
-return __qistd329;return state->nil;
|
|
|
-}
|
|
|
-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_get(state, "f");
|
|
|
-return list;
|
|
|
-}
|
|
|
-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, "f");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd335(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd336(state)));
|
|
|
-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, "xs");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd338(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 *__qistd340(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 *__qistd339(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = 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"), __qistd340(state)));
|
|
|
-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, "xs");
|
|
|
-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, "x");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd345(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"), __qistd346(state));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd347(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 *__qistd349(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 *__qistd350(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 *__qistd352(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 *__qistd353(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 *__qistd355(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 *__qistd333(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"), __qistd334(state)), qi_make_string(state, "function")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd335(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd337(state)), qi_make_tuple(state, __qistd338(state))))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd339(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd341(state)), qi_make_number(state, 0)))) {
|
|
|
-qi_value_t *__qistd342 = qi_get(state, "xs");
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd342;}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_decl(state, "r", qi_make_list(state, NULL));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd344 = qi_iter(state, qi_get(state, "xs"));
|
|
|
-qi_decl(state, "x", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd344)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd344);
|
|
|
-qi_set(state, false, "x", el);
|
|
|
-qi_new_scope(state);
|
|
|
-(void)(qi_call(state, qi_get(state, "list_push"), __qistd345(state)));__continue343:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit343;
|
|
|
-__break343:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit343:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd347(state)), qi_make_string(state, "tuple")))) {
|
|
|
-qi_value_t *__qistd348 = qi_call(state, qi_get(state, "tuple"), __qistd349(state));
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd348;} else {
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd350(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_value_t *__qistd351 = qi_call(state, qi_get(state, "list_join"), __qistd352(state));
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd351;} else {
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd353(state)), qi_make_string(state, "bytes")))) {
|
|
|
-qi_value_t *__qistd354 = qi_call(state, qi_get(state, "bytes"), __qistd355(state));
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd354;}
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd356 = qi_get(state, "r");
|
|
|
-return __qistd356;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd358(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 *__qistd360(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 *__qistd359(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd360(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd361(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 *__qistd362(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 *__qistd364(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 *__qistd363(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = 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"), __qistd364(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd365(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 *__qistd369(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 *__qistd370(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 *__qistd371(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 *__qistd373(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 *__qistd374(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 *__qistd376(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 *__qistd377(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 *__qistd379(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 *__qistd357(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"), __qistd358(state)), qi_make_string(state, "function")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd359(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd361(state)), qi_make_tuple(state, __qistd362(state))))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd363(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd365(state)), qi_make_number(state, 0)))) {
|
|
|
-qi_value_t *__qistd366 = qi_get(state, "xs");
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd366;}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_decl(state, "r", qi_make_list(state, NULL));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd368 = qi_iter(state, qi_get(state, "xs"));
|
|
|
-qi_decl(state, "x", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd368)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd368);
|
|
|
-qi_set(state, false, "x", el);
|
|
|
-qi_new_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_call(state, qi_get(state, "f"), __qistd369(state)))) {
|
|
|
-(void)(qi_call(state, qi_get(state, "list_push"), __qistd370(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-__continue367:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit367;
|
|
|
-__break367:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit367:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd371(state)), qi_make_string(state, "tuple")))) {
|
|
|
-qi_value_t *__qistd372 = qi_call(state, qi_get(state, "tuple"), __qistd373(state));
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd372;} else {
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd374(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_value_t *__qistd375 = qi_call(state, qi_get(state, "list_join"), __qistd376(state));
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd375;} else {
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd377(state)), qi_make_string(state, "bytes")))) {
|
|
|
-qi_value_t *__qistd378 = qi_call(state, qi_get(state, "bytes"), __qistd379(state));
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd378;}
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd380 = qi_get(state, "r");
|
|
|
-return __qistd380;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd382(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 *__qistd384(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 *__qistd383(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: tuple, but got: "), qi_call(state, qi_get(state, "type"), __qistd384(state)));
|
|
|
-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_get(state, "r");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "e");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd389(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 *__qistd381(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "t", 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"), __qistd382(state)), qi_make_string(state, "tuple")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd383(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_decl(state, "r", qi_make_list(state, NULL));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd386 = qi_iter(state, qi_get(state, "t"));
|
|
|
-qi_decl(state, "e", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd386)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd386);
|
|
|
-qi_set(state, false, "e", el);
|
|
|
-qi_new_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_equals(state, qi_get(state, "e"), qi_get(state, "x")))) {
|
|
|
-(void)(qi_call(state, qi_get(state, "list_push"), __qistd387(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-__continue385:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit385;
|
|
|
-__break385:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit385:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd388 = qi_call(state, qi_get(state, "tuple"), __qistd389(state));
|
|
|
-return __qistd388;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd392(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 *__qistd394(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 *__qistd393(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd394(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd395(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 *__qistd397(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 *__qistd396(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd397(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd399(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 *__qistd400(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 *__qistd403(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 *__qistd402(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"), __qistd403(state))), qi_make_number(state, 1));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd390(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_value_t *__qistd391 = qi_negate(state, qi_make_number(state, 1));
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd391;}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd392(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd393(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd395(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd396(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"), __qistd399(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"), __qistd400(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_value_t *__qistd401 = qi_get(state, "i");
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd401;} else {
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd402(state)), qi_get(state, "w")))) {
|
|
|
-qi_value_t *__qistd404 = qi_get(state, "i");
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd404;}
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-__continue398:;
|
|
|
-qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit398;
|
|
|
-__break398:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit398:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd405 = qi_negate(state, qi_make_number(state, 1));
|
|
|
-return __qistd405;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd407(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 *__qistd409(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 *__qistd408(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd409(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd410(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 *__qistd412(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 *__qistd411(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd412(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd415(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 *__qistd417(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 *__qistd406(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"), __qistd407(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd408(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd410(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd411(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_get(state, "s"), state->empty_string))) {
|
|
|
-qi_value_t *__qistd413 = qi_get(state, "s");
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd413;}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_decl(state, "i", state->nil);
|
|
|
-qi_new_scope(state);
|
|
|
-(void)(qi_set(state, false, "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"), __qistd415(state)))))) {
|
|
|
-qi_new_scope(state);
|
|
|
-__continue414:;
|
|
|
-qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit414;
|
|
|
-__break414:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit414:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd416 = qi_call(state, qi_get(state, "slice"), __qistd417(state));
|
|
|
-return __qistd416;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd419(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 *__qistd421(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 *__qistd420(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd421(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd422(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 *__qistd424(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 *__qistd423(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd424(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd427(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 *__qistd430(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 *__qistd429(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"), __qistd430(state)), qi_get(state, "k")), qi_make_number(state, 1));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd418(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"), __qistd419(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd420(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd422(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd423(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_get(state, "s"), state->empty_string))) {
|
|
|
-qi_value_t *__qistd425 = qi_get(state, "s");
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd425;}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_decl(state, "i", state->nil);
|
|
|
-qi_decl(state, "k", state->nil);
|
|
|
-qi_new_scope(state);
|
|
|
-(void)((qi_set(state, false, "k", qi_make_number(state, 0)), qi_set(state, false, "i", qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd427(state)), qi_make_number(state, 1)))));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)));__continue426:;
|
|
|
-qi_set(state, false, "k", qi_add(state, qi_get(state, "k"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit426;
|
|
|
-__break426:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit426:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd428 = qi_call(state, qi_get(state, "slice"), __qistd429(state));
|
|
|
-return __qistd428;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd432(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 *__qistd434(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 *__qistd433(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd434(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd435(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 *__qistd437(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 *__qistd436(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd437(state)));
|
|
|
-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_get(state, "s");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "cs");
|
|
|
-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_call(state, qi_get(state, "str_rstrip"), __qistd440(state));
|
|
|
-qi_list_data(list, 1) = qi_get(state, "cs");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd431(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"), __qistd432(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd433(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd435(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd436(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd438 = qi_call(state, qi_get(state, "str_lstrip"), __qistd439(state));
|
|
|
-return __qistd438;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-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_get(state, "len");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "arguments");
|
|
|
-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_get(state, "min");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-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_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 *__qistd449(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 *__qistd441(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_value_t *__qistd442 = qi_make_list(state, NULL);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd442;}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_decl(state, "l", qi_call(state, qi_get(state, "map"), __qistd443(state)));
|
|
|
-(void)(qi_set(state, false, "l", qi_call(state, qi_get(state, "reduce"), __qistd444(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 *__qistd447 = qi_iter(state, qi_get(state, "arguments"));
|
|
|
-qi_decl(state, "xs", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd447)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd447);
|
|
|
-qi_set(state, false, "xs", el);
|
|
|
-qi_new_scope(state);
|
|
|
-(void)(qi_call(state, qi_get(state, "list_push"), __qistd448(state)));__continue446:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit446;
|
|
|
-__break446:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit446:;
|
|
|
-qi_old_scope(state);
|
|
|
-(void)(qi_call(state, qi_get(state, "list_push"), __qistd449(state)));
|
|
|
-__continue445:;
|
|
|
-qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit445;
|
|
|
-__break445:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit445:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd450 = qi_get(state, "r");
|
|
|
-return __qistd450;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd452(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 *__qistd455(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 *__qistd456(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 *__qistd454(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"), __qistd455(state));
|
|
|
-qi_list_data(list, 1) = qi_call(state, qi_get(state, "table_values"), __qistd456(state));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd460(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 *__qistd459(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"), __qistd460(state));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd458(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"), __qistd459(state));
|
|
|
-qi_list_data(list, 1) = qi_get(state, "l");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd451(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"), __qistd452(state)), qi_make_string(state, "table")))) {
|
|
|
-qi_value_t *__qistd453 = qi_call(state, qi_get(state, "zip"), __qistd454(state));
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd453;} else {
|
|
|
-qi_value_t *__qistd457 = qi_call(state, qi_get(state, "zip"), __qistd458(state));
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd457;}
|
|
|
-qi_old_scope(state);
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd462(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 *__qistd464(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 *__qistd463(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd464(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd470(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 *__qistd469(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"), __qistd470(state)), qi_make_number(state, 32));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd467(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "c", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd468 = (_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"), __qistd469(state)): qi_get(state, "c"));
|
|
|
-return __qistd468;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd466(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_function(state, "<anon>", 1, __qistd467, NULL);
|
|
|
-qi_list_data(list, 1) = qi_get(state, "s");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd461(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"), __qistd462(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd463(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd465 = qi_call(state, qi_get(state, "map"), __qistd466(state));
|
|
|
-return __qistd465;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd472(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 *__qistd474(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 *__qistd473(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd474(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd480(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 *__qistd479(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"), __qistd480(state)), qi_make_number(state, 32));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd477(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "c", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd478 = (_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"), __qistd479(state)): qi_get(state, "c"));
|
|
|
-return __qistd478;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd476(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_function(state, "<anon>", 1, __qistd477, NULL);
|
|
|
-qi_list_data(list, 1) = qi_get(state, "s");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd471(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"), __qistd472(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd473(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd475 = qi_call(state, qi_get(state, "map"), __qistd476(state));
|
|
|
-return __qistd475;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd482(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 *__qistd484(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 *__qistd483(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd484(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd481(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_equals(state, qi_call(state, qi_get(state, "type"), __qistd482(state)), qi_make_string(state, "number")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd483(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_get(state, "x"), qi_make_number(state, 0)))) {
|
|
|
-qi_value_t *__qistd485 = qi_make_string(state, "0x0");
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd485;}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_decl_const(state, "sgn", qi_lt(state, qi_get(state, "x"), qi_make_number(state, 0)));
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_get(state, "sgn"))) {
|
|
|
-(void)(qi_set(state, false, "x", qi_negate(state, qi_get(state, "x"))));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_decl(state, "r", state->empty_string);
|
|
|
-qi_new_scope(state);
|
|
|
-while (_qi_truthy(state, qi_gt(state, qi_get(state, "x"), qi_make_number(state, 0)))) {
|
|
|
-qi_new_scope(state);
|
|
|
-(void)(qi_set(state, false, "r", qi_add(state, qi_index(state, qi_make_string(state, "0123456789abcdef"), qi_mod(state, qi_get(state, "x"), qi_make_number(state, 16))), qi_get(state, "r"))));
|
|
|
-(void)(qi_set(state, false, "x", qi_idiv(state, qi_get(state, "x"), qi_make_number(state, 16))));
|
|
|
-__continue486:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit486;
|
|
|
-__break486:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit486:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd487 = qi_add(state, (_qi_truthy(state, qi_get(state, "sgn"))? qi_make_string(state, "-0x"): qi_make_string(state, "0x")), qi_get(state, "r"));
|
|
|
-return __qistd487;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd489(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 *__qistd491(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 *__qistd490(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd491(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd488(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_equals(state, qi_call(state, qi_get(state, "type"), __qistd489(state)), qi_make_string(state, "number")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd490(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_get(state, "x"), qi_make_number(state, 0)))) {
|
|
|
-qi_value_t *__qistd492 = qi_make_string(state, "0o0");
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd492;}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_decl_const(state, "sgn", qi_lt(state, qi_get(state, "x"), qi_make_number(state, 0)));
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_get(state, "sgn"))) {
|
|
|
-(void)(qi_set(state, false, "x", qi_negate(state, qi_get(state, "x"))));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_decl(state, "r", state->empty_string);
|
|
|
-qi_new_scope(state);
|
|
|
-while (_qi_truthy(state, qi_gt(state, qi_get(state, "x"), qi_make_number(state, 0)))) {
|
|
|
-qi_new_scope(state);
|
|
|
-(void)(qi_set(state, false, "r", qi_add(state, qi_index(state, qi_make_string(state, "01234567"), qi_mod(state, qi_get(state, "x"), qi_make_number(state, 8))), qi_get(state, "r"))));
|
|
|
-(void)(qi_set(state, false, "x", qi_idiv(state, qi_get(state, "x"), qi_make_number(state, 8))));
|
|
|
-__continue493:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit493;
|
|
|
-__break493:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit493:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd494 = qi_add(state, (_qi_truthy(state, qi_get(state, "sgn"))? qi_make_string(state, "-0o"): qi_make_string(state, "0o")), qi_get(state, "r"));
|
|
|
-return __qistd494;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd496(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 *__qistd498(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 *__qistd497(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd498(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd500(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 *__qistd504(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 *__qistd505(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 *__qistd495(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"), __qistd496(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd497(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"), __qistd500(state))))) {
|
|
|
-qi_new_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd502 = qi_index(state, qi_get(state, "s"), qi_get(state, "i"));
|
|
|
-if (_qi_equals(state, __qistd502, qi_make_string(state, "_"))) goto __qistd503;
|
|
|
-goto __default501;
|
|
|
-__qistd503:;
|
|
|
-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"), __qistd504(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)));
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-goto __continue499;
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-(void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_call(state, qi_get(state, "repr"), __qistd505(state)))));
|
|
|
-goto __break501;
|
|
|
-__default501:;
|
|
|
-(void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_index(state, qi_get(state, "s"), qi_get(state, "i")))));
|
|
|
-__break501:;
|
|
|
-qi_old_scope(state);
|
|
|
-__continue499:;
|
|
|
-qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit499;
|
|
|
-__break499:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit499:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd506 = qi_get(state, "r");
|
|
|
-return __qistd506;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd508(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 *__qistd510(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 *__qistd509(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd510(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd511(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 *__qistd513(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 *__qistd512(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected second argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd513(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd516(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 *__qistd515(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, __qistd516(state)), qi_get(state, "l"));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd507(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"), __qistd508(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd509(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd511(state)), qi_make_string(state, "list")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd512(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd514 = qi_call(state, qi_get(state, "func_call"), __qistd515(state));
|
|
|
-return __qistd514;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd518(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 *__qistd520(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 *__qistd519(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd520(state)));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd522(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 *__qistd526(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 *__qistd528(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 *__qistd529(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 *__qistd530(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "unmatched { in format specifier");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd531(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "empty format key");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd532(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 *__qistd517(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"), __qistd518(state)), qi_make_string(state, "string")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "TypeError"), __qistd519(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"), __qistd522(state))))) {
|
|
|
-qi_new_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd524 = qi_index(state, qi_get(state, "s"), qi_get(state, "i"));
|
|
|
-if (_qi_equals(state, __qistd524, qi_make_string(state, "{"))) goto __qistd525;
|
|
|
-goto __default523;
|
|
|
-__qistd525:;
|
|
|
-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"), __qistd526(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)));
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-goto __continue521;
|
|
|
-}
|
|
|
-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"), __qistd528(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))))));__continue527:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit527;
|
|
|
-__break527:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit527:;
|
|
|
-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"), __qistd529(state))), qi_not_equals(state, qi_index(state, qi_get(state, "s"), qi_get(state, "i")), qi_make_string(state, "}"))))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "ValueError"), __qistd530(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not(state, qi_get(state, "k")))) {
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "ValueError"), __qistd531(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-(void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_call(state, qi_get(state, "repr"), __qistd532(state)))));
|
|
|
-goto __break523;
|
|
|
-__default523:;
|
|
|
-(void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_index(state, qi_get(state, "s"), qi_get(state, "i")))));
|
|
|
-__break523:;
|
|
|
-qi_old_scope(state);
|
|
|
-__continue521:;
|
|
|
-qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit521;
|
|
|
-__break521:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit521:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd533 = qi_get(state, "r");
|
|
|
-return __qistd533;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd537(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 *__qistd536(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"), __qistd537(state));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd534(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_value_t *__qistd535 = qi_call(state, qi_get(state, "chr"), __qistd536(state));
|
|
|
-return __qistd535;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd539(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 *__qistd538(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"), __qistd539(state)));return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd542(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 *__qistd540(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_value_t *__qistd541 = qi_call(state, qi_get(state, "fgets"), __qistd542(state));
|
|
|
-return __qistd541;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd544(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 *__qistd545(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 *__qistd547(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 *__qistd543(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"), __qistd544(state)), qi_make_number(state, 0)))) {
|
|
|
-(void)(qi_call(state, qi_get(state, "func_call"), __qistd545(state)));}
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd546 = qi_call(state, qi_get(state, "str_rstrip"), __qistd547(state));
|
|
|
-return __qistd546;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd550(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 *__qistd548(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));
|
|
|
-qi_value_t *__qistd549 = qi_call(state, qi_get(state, "fopen"), __qistd550(state));
|
|
|
-return __qistd549;return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd551(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_call(state, qi_get(state, "AssertionError"), NULL));
|
|
|
-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;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd554(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 *__qistd555(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_index(state, qi_get(state, "this"), qi_make_string(state, "l"));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd553(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "l", 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, "l"), qi_call(state, qi_get(state, "list"), __qistd554(state))));
|
|
|
-(void)(qi_index_set(state, false, qi_get(state, "this"), qi_make_string(state, "i"), qi_make_number(state, 0)));
|
|
|
-(void)(qi_index_set(state, false, qi_get(state, "this"), qi_make_string(state, "z"), qi_call(state, qi_get(state, "len"), __qistd555(state))));
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd556(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd557 = qi_make_string(state, "<ListIterator>");
|
|
|
-return __qistd557;return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd558(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-(void)(qi_index_set(state, false, qi_get(state, "this"), qi_make_string(state, "i"), qi_make_number(state, 0)));
|
|
|
-qi_value_t *__qistd559 = qi_get(state, "this");
|
|
|
-return __qistd559;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd560(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_lt(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "i")), qi_index(state, qi_get(state, "this"), qi_make_string(state, "z"))))) {
|
|
|
-qi_value_t *__qistd561 = qi_index(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "l")), qi_index_set(state, false, qi_get(state, "this"), qi_make_string(state, "i"), qi_add(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "i")), state->one)));
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd561;}
|
|
|
-qi_old_scope(state);
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd562(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd563 = qi_ge(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "i")), qi_index(state, qi_get(state, "this"), qi_make_string(state, "z")));
|
|
|
-return __qistd563;return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd552(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, "constructor", qi_make_function(state, "ListIterator.constructor", 2, __qistd553, NULL));
|
|
|
-qi_table_set(metatable, "__str", qi_make_function(state, "ListIterator.__str", 1, __qistd556, NULL));
|
|
|
-qi_table_set(metatable, "__begin", qi_make_function(state, "ListIterator.__begin", 1, __qistd558, NULL));
|
|
|
-qi_table_set(metatable, "__next", qi_make_function(state, "ListIterator.__next", 1, __qistd560, NULL));
|
|
|
-qi_table_set(metatable, "__end", qi_make_function(state, "ListIterator.__end", 1, __qistd562, NULL));
|
|
|
-qi_list_t *pargs = qi_list_make_n(5);
|
|
|
-qi_list_data(pargs, 0) = qi_make_string(state, "ListIterator");
|
|
|
-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 *__qistd566(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_get(state, "v");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd565(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "v", pargc >= 2? qi_list_index(pargs, 1): state->nil);
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-(void)(qi_index_set(state, false, qi_get(state, "this"), qi_make_string(state, "__data__"), qi_make_list(state, NULL)));
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_not_is(state, qi_get(state, "v"), state->nil))) {
|
|
|
-(void)(qi_set(state, false, "v", qi_call(state, qi_get(state, "table"), __qistd566(state))));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd568 = qi_iter(state, qi_get(state, "v"));
|
|
|
-qi_decl(state, "k", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd568)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd568);
|
|
|
-qi_set(state, false, "k", el);
|
|
|
-qi_new_scope(state);
|
|
|
-(void)(qi_index_set(state, false, qi_get(state, "this"), qi_get(state, "k"), qi_index(state, qi_get(state, "v"), qi_get(state, "k"))));__continue567:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit567;
|
|
|
-__break567:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit567:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd569(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd570 = qi_make_string(state, "orderedtable");
|
|
|
-return __qistd570;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd573(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_get(state, "this");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd576(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "\\");
|
|
|
-qi_list_data(list, 1) = qi_make_string(state, "\\\\");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd577(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "\"");
|
|
|
-qi_list_data(list, 1) = qi_make_string(state, "\\\"");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd578(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_get(state, "v");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd579(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_get(state, "tempstack");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_value_t *__qistd580(qi_state_t *state) {
|
|
|
-qi_value_t *str = state->empty_string;
|
|
|
-str = qi_add(state, str, qi_make_string(state, "\""));
|
|
|
-str = qi_add(state, str, qi_to_string(state, qi_get(state, "k")));
|
|
|
-str = qi_add(state, str, qi_make_string(state, "\": "));
|
|
|
-str = qi_add(state, str, qi_to_string(state, qi_get(state, "v")));
|
|
|
-return str;
|
|
|
-}
|
|
|
-qi_value_t *__qistd571(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "tempstack", pargc >= 2? qi_list_index(pargs, 1): qi_make_list(state, NULL));
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_in(state, qi_get(state, "this"), qi_get(state, "tempstack")))) {
|
|
|
-qi_value_t *__qistd572 = qi_make_string(state, "OrderedTable({...})");
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd572;}
|
|
|
-qi_old_scope(state);
|
|
|
-(void)(qi_call(state, qi_index(state, qi_get(state, "tempstack"), qi_make_string(state, "push")), __qistd573(state)));
|
|
|
-qi_decl(state, "buf", qi_make_string(state, "OrderedTable({"));
|
|
|
-qi_decl(state, "f", state->_true);
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd575 = qi_iter(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")));
|
|
|
-qi_decl(state, "k", state->nil);
|
|
|
-qi_decl(state, "v", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd575)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd575);
|
|
|
-qi_set(state, false, "k", qi_index(state, el, qi_make_number(state, 0)));
|
|
|
-qi_set(state, false, "v", qi_index(state, el, qi_make_number(state, 1)));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_get(state, "f"))) {
|
|
|
-(void)(qi_set(state, false, "f", state->_false));} else {
|
|
|
-(void)(qi_set(state, false, "buf", qi_add(state, qi_get(state, "buf"), qi_make_string(state, ", "))));}
|
|
|
-qi_old_scope(state);
|
|
|
-(void)(qi_set(state, false, "k", qi_call(state, qi_index(state, qi_call(state, qi_index(state, qi_get(state, "k"), qi_make_string(state, "replace")), __qistd576(state)), qi_make_string(state, "replace")), __qistd577(state))));
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_is(state, qi_call(state, qi_get(state, "type"), __qistd578(state)), qi_make_string(state, "orderedtable")))) {
|
|
|
-(void)(qi_set(state, false, "v", qi_call(state, qi_index(state, qi_get(state, "v"), qi_make_string(state, "stringify")), __qistd579(state))));}
|
|
|
-qi_old_scope(state);
|
|
|
-(void)(qi_set(state, false, "buf", qi_add(state, qi_get(state, "buf"), __qistd580(state))));
|
|
|
-__continue574:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit574;
|
|
|
-__break574:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit574:;
|
|
|
-qi_old_scope(state);
|
|
|
-(void)(qi_set(state, false, "buf", qi_add(state, qi_get(state, "buf"), qi_make_string(state, "})"))));
|
|
|
-qi_value_t *__qistd581 = qi_get(state, "buf");
|
|
|
-return __qistd581;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd584(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_make_list(state, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd582(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd583 = qi_call(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "stringify")), __qistd584(state));
|
|
|
-return __qistd583;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd588(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 *__qistd585(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_decl_const(state, "keys", qi_make_list(state, NULL));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd587 = qi_iter(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")));
|
|
|
-qi_decl(state, "k", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd587)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd587);
|
|
|
-qi_set(state, false, "k", qi_index(state, el, qi_make_number(state, 0)));
|
|
|
-(void)(qi_index(state, el, qi_make_number(state, 1)));
|
|
|
-qi_new_scope(state);
|
|
|
-(void)(qi_call(state, qi_index(state, qi_get(state, "keys"), qi_make_string(state, "push")), __qistd588(state)));__continue586:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit586;
|
|
|
-__break586:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit586:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd589 = qi_get(state, "keys");
|
|
|
-return __qistd589;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd593(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_get(state, "v");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd590(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_decl_const(state, "values", qi_make_list(state, NULL));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd592 = qi_iter(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")));
|
|
|
-qi_decl(state, "v", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd592)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd592);
|
|
|
-(void)(qi_index(state, el, qi_make_number(state, 0)));
|
|
|
-qi_set(state, false, "v", qi_index(state, el, qi_make_number(state, 1)));
|
|
|
-qi_new_scope(state);
|
|
|
-(void)(qi_call(state, qi_index(state, qi_get(state, "values"), qi_make_string(state, "push")), __qistd593(state)));__continue591:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit591;
|
|
|
-__break591:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit591:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd594 = qi_get(state, "values");
|
|
|
-return __qistd594;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd595(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "k", qi_list_index(pargs, 1));
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_del(state, qi_get(state, "this"), qi_get(state, "k"));
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd598(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__"));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd596(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd597 = qi_call(state, qi_get(state, "OrderedTable"), __qistd598(state));
|
|
|
-return __qistd597;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd600(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 *__qistd599(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, "this", qi_list_index(pargs, 0));
|
|
|
-(void)(qi_set(state, false, "k", qi_call(state, qi_get(state, "str"), __qistd600(state))));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd602 = qi_iter(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")));
|
|
|
-qi_decl(state, "ok", state->nil);
|
|
|
-qi_decl(state, "v", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd602)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd602);
|
|
|
-qi_set(state, false, "ok", qi_index(state, el, qi_make_number(state, 0)));
|
|
|
-qi_set(state, false, "v", qi_index(state, el, qi_make_number(state, 1)));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_get(state, "ok"), qi_get(state, "k")))) {
|
|
|
-qi_value_t *__qistd603 = qi_get(state, "v");
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd603;}
|
|
|
-qi_old_scope(state);
|
|
|
-__continue601:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit601;
|
|
|
-__break601:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit601:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd604 = qi_get(state, "d");
|
|
|
-return __qistd604;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd607(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_call(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "keys")), NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd605(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd606 = qi_call(state, qi_get(state, "ListIterator"), __qistd607(state));
|
|
|
-return __qistd606;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd610(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__"));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd608(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd609 = qi_call(state, qi_get(state, "len"), __qistd610(state));
|
|
|
-return __qistd609;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd612(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 *__qistd611(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "k", qi_list_index(pargs, 1));
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-(void)(qi_set(state, false, "k", qi_call(state, qi_get(state, "str"), __qistd612(state))));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd614 = qi_iter(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")));
|
|
|
-qi_decl(state, "ok", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd614)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd614);
|
|
|
-qi_set(state, false, "ok", qi_index(state, el, qi_make_number(state, 0)));
|
|
|
-(void)(qi_index(state, el, qi_make_number(state, 1)));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_get(state, "ok"), qi_get(state, "k")))) {
|
|
|
-qi_value_t *__qistd615 = state->_true;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd615;}
|
|
|
-qi_old_scope(state);
|
|
|
-__continue613:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit613;
|
|
|
-__break613:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit613:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_value_t *__qistd616 = state->_false;
|
|
|
-return __qistd616;
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd618(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 *__qistd623(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_get(state, "this");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd622(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"), __qistd623(state));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd621(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"), __qistd622(state));
|
|
|
-qi_list_data(list, 1) = qi_call(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "keys")), NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd624(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 *__qistd617(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "k", qi_list_index(pargs, 1));
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-(void)(qi_set(state, false, "k", qi_call(state, qi_get(state, "str"), __qistd618(state))));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd620 = qi_iter(state, qi_call(state, qi_get(state, "zip"), __qistd621(state)));
|
|
|
-qi_decl(state, "i", state->nil);
|
|
|
-qi_decl(state, "ok", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd620)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd620);
|
|
|
-qi_set(state, false, "i", qi_index(state, el, qi_make_number(state, 0)));
|
|
|
-qi_set(state, false, "ok", qi_index(state, el, qi_make_number(state, 1)));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_get(state, "ok"), qi_get(state, "k")))) {
|
|
|
-qi_del(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")), qi_get(state, "i"));
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-__continue619:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit619;
|
|
|
-__break619:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit619:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "KeyError"), __qistd624(state)));
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd626(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 *__qistd630(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 *__qistd625(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "k", qi_list_index(pargs, 1));
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-(void)(qi_set(state, false, "k", qi_call(state, qi_get(state, "str"), __qistd626(state))));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd628 = qi_iter(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")));
|
|
|
-qi_decl(state, "ok", state->nil);
|
|
|
-qi_decl(state, "v", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd628)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd628);
|
|
|
-qi_set(state, false, "ok", qi_index(state, el, qi_make_number(state, 0)));
|
|
|
-qi_set(state, false, "v", qi_index(state, el, qi_make_number(state, 1)));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_get(state, "ok"), qi_get(state, "k")))) {
|
|
|
-qi_value_t *__qistd629 = qi_get(state, "v");
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return __qistd629;}
|
|
|
-qi_old_scope(state);
|
|
|
-__continue627:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit627;
|
|
|
-__break627:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit627:;
|
|
|
-qi_old_scope(state);
|
|
|
-qi_throw(state, qi_call(state, qi_get(state, "KeyError"), __qistd630(state)));
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd632(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 *__qistd637(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_get(state, "this");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd636(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"), __qistd637(state));
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd635(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"), __qistd636(state));
|
|
|
-qi_list_data(list, 1) = qi_call(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "keys")), NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd638(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_get(state, "ok");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "v");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd640(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_get(state, "k");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "v");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd639(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(1);
|
|
|
-qi_list_data(list, 0) = qi_make_tuple(state, __qistd640(state));
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd631(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "k", qi_list_index(pargs, 1));
|
|
|
-qi_decl(state, "v", qi_list_index(pargs, 2));
|
|
|
-qi_decl(state, "this", qi_list_index(pargs, 0));
|
|
|
-(void)(qi_set(state, false, "k", qi_call(state, qi_get(state, "str"), __qistd632(state))));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_value_t *__qistd634 = qi_iter(state, qi_call(state, qi_get(state, "zip"), __qistd635(state)));
|
|
|
-qi_decl(state, "i", state->nil);
|
|
|
-qi_decl(state, "ok", state->nil);
|
|
|
-while (!qi_iter_end(state, __qistd634)) {
|
|
|
-qi_value_t *el = qi_iter_next(state, __qistd634);
|
|
|
-qi_set(state, false, "i", qi_index(state, el, qi_make_number(state, 0)));
|
|
|
-qi_set(state, false, "ok", qi_index(state, el, qi_make_number(state, 1)));
|
|
|
-qi_new_scope(state);
|
|
|
-qi_new_scope(state);
|
|
|
-if (_qi_truthy(state, qi_equals(state, qi_get(state, "ok"), qi_get(state, "k")))) {
|
|
|
-(void)(qi_index_set(state, false, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")), qi_get(state, "i"), qi_make_tuple(state, __qistd638(state))));
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-qi_old_scope(state);
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-qi_old_scope(state);
|
|
|
-__continue633:;
|
|
|
-qi_old_scope(state);
|
|
|
-}
|
|
|
-goto __exit633;
|
|
|
-__break633:;
|
|
|
-qi_old_scope(state);
|
|
|
-__exit633:;
|
|
|
-qi_old_scope(state);
|
|
|
-(void)(qi_call(state, qi_index(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")), qi_make_string(state, "push")), __qistd639(state)));
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-qi_value_t *__qistd564(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, "__data__", state->nil);
|
|
|
-qi_table_set(metatable, "constructor", qi_make_function(state, "OrderedTable.constructor", 1, __qistd565, NULL));
|
|
|
-qi_table_set(metatable, "__type", qi_make_function(state, "OrderedTable.__type", 1, __qistd569, NULL));
|
|
|
-qi_table_set(metatable, "stringify", qi_make_function(state, "OrderedTable.stringify", 1, __qistd571, NULL));
|
|
|
-qi_table_set(metatable, "__str", qi_make_function(state, "OrderedTable.__str", 1, __qistd582, NULL));
|
|
|
-qi_table_set(metatable, "keys", qi_make_function(state, "OrderedTable.keys", 1, __qistd585, NULL));
|
|
|
-qi_table_set(metatable, "values", qi_make_function(state, "OrderedTable.values", 1, __qistd590, NULL));
|
|
|
-qi_table_set(metatable, "delete", qi_make_function(state, "OrderedTable.delete", 2, __qistd595, NULL));
|
|
|
-qi_table_set(metatable, "copy", qi_make_function(state, "OrderedTable.copy", 1, __qistd596, NULL));
|
|
|
-qi_table_set(metatable, "get", qi_make_function(state, "OrderedTable.get", 2, __qistd599, NULL));
|
|
|
-qi_table_set(metatable, "__iter", qi_make_function(state, "OrderedTable.__iter", 1, __qistd605, NULL));
|
|
|
-qi_table_set(metatable, "__len", qi_make_function(state, "OrderedTable.__len", 1, __qistd608, NULL));
|
|
|
-qi_table_set(metatable, "__in", qi_make_function(state, "OrderedTable.__in", 2, __qistd611, NULL));
|
|
|
-qi_table_set(metatable, "__del", qi_make_function(state, "OrderedTable.__del", 2, __qistd617, NULL));
|
|
|
-qi_table_set(metatable, "__index", qi_make_function(state, "OrderedTable.__index", 2, __qistd625, NULL));
|
|
|
-qi_table_set(metatable, "__index_set", qi_make_function(state, "OrderedTable.__index_set", 3, __qistd631, NULL));
|
|
|
-qi_list_t *pargs = qi_list_make_n(5);
|
|
|
-qi_list_data(pargs, 0) = qi_make_string(state, "OrderedTable");
|
|
|
-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 *__qistd641(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 *__qistd642(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 *__qistd643(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 *__qistd644(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 *__qistd645(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "list.index");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "list_index");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd650(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 *__qistd649(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_call(state, qi_get(state, "list"), __qistd650(state));
|
|
|
-qi_list_data(list, 1) = qi_get(state, "x");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd647(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "t", qi_list_index(pargs, 0));
|
|
|
-qi_decl(state, "x", qi_list_index(pargs, 1));
|
|
|
-qi_value_t *__qistd648 = qi_call(state, qi_get(state, "list_index"), __qistd649(state));
|
|
|
-return __qistd648;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd646(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "tuple.index");
|
|
|
-qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd647, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd651(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 *__qistd652(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 *__qistd653(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 *__qistd654(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 *__qistd655(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 *__qistd656(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 *__qistd657(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "list.insert");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "list_insert");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd658(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "list.delete");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "list_delete");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd663(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 *__qistd662(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_call(state, qi_get(state, "list_copy"), __qistd663(state));
|
|
|
-qi_list_data(list, 1) = qi_get(state, "e");
|
|
|
-return list;
|
|
|
-}
|
|
|
-qi_value_t *__qistd660(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "e", qi_list_index(pargs, 1));
|
|
|
-qi_decl(state, "l", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd661 = qi_call(state, qi_get(state, "list_delete"), __qistd662(state));
|
|
|
-return __qistd661;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd659(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "list.__sub");
|
|
|
-qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd660, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd664(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 *__qistd665(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 *__qistd666(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 *__qistd667(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 *__qistd668(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 *__qistd669(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 *__qistd670(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 *__qistd671(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 *__qistd672(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 *__qistd676(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 *__qistd674(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));
|
|
|
-qi_value_t *__qistd675 = qi_call(state, qi_get(state, "reduce"), __qistd676(state));
|
|
|
-return __qistd675;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd673(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, "<anon>", 2, __qistd674, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd680(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 *__qistd678(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));
|
|
|
-qi_value_t *__qistd679 = qi_call(state, qi_get(state, "reduce"), __qistd680(state));
|
|
|
-return __qistd679;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd677(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, "<anon>", 2, __qistd678, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd684(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 *__qistd682(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));
|
|
|
-qi_value_t *__qistd683 = qi_call(state, qi_get(state, "reduce"), __qistd684(state));
|
|
|
-return __qistd683;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd681(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, "<anon>", 2, __qistd682, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd688(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 *__qistd686(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));
|
|
|
-qi_value_t *__qistd687 = qi_call(state, qi_get(state, "reduce"), __qistd688(state));
|
|
|
-return __qistd687;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd685(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, "<anon>", 2, __qistd686, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd689(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 *__qistd690(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 *__qistd691(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 *__qistd692(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 *__qistd693(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 *__qistd694(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 *__qistd695(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 *__qistd696(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 *__qistd700(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 *__qistd698(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));
|
|
|
-qi_value_t *__qistd699 = qi_call(state, qi_get(state, "map"), __qistd700(state));
|
|
|
-return __qistd699;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd697(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, "<anon>", 2, __qistd698, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd704(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 *__qistd702(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));
|
|
|
-qi_value_t *__qistd703 = qi_call(state, qi_get(state, "map"), __qistd704(state));
|
|
|
-return __qistd703;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd701(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, "<anon>", 2, __qistd702, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd708(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 *__qistd706(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));
|
|
|
-qi_value_t *__qistd707 = qi_call(state, qi_get(state, "map"), __qistd708(state));
|
|
|
-return __qistd707;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd705(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, "<anon>", 2, __qistd706, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd712(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 *__qistd710(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));
|
|
|
-qi_value_t *__qistd711 = qi_call(state, qi_get(state, "map"), __qistd712(state));
|
|
|
-return __qistd711;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd709(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, "<anon>", 2, __qistd710, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd716(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 *__qistd714(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));
|
|
|
-qi_value_t *__qistd715 = qi_call(state, qi_get(state, "filter"), __qistd716(state));
|
|
|
-return __qistd715;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd713(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, "<anon>", 2, __qistd714, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd720(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 *__qistd718(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));
|
|
|
-qi_value_t *__qistd719 = qi_call(state, qi_get(state, "filter"), __qistd720(state));
|
|
|
-return __qistd719;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd717(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, "<anon>", 2, __qistd718, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd724(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 *__qistd722(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));
|
|
|
-qi_value_t *__qistd723 = qi_call(state, qi_get(state, "filter"), __qistd724(state));
|
|
|
-return __qistd723;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd721(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, "<anon>", 2, __qistd722, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd728(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 *__qistd726(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));
|
|
|
-qi_value_t *__qistd727 = qi_call(state, qi_get(state, "filter"), __qistd728(state));
|
|
|
-return __qistd727;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd725(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, "<anon>", 2, __qistd726, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd729(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "tuple.delete");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "tuple_delete");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd730(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "tuple.__sub");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "tuple_delete");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd731(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 *__qistd732(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 *__qistd733(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 *__qistd734(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 *__qistd735(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 *__qistd736(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 *__qistd737(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 *__qistd738(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 *__qistd739(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 *__qistd741(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd740(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, "<anon>", 0, __qistd741, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd745(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 *__qistd743(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
|
|
|
-qi_decl(state, "f", qi_list_index(pargs, 0));
|
|
|
-qi_value_t *__qistd744 = qi_call(state, qi_get(state, "fclose"), __qistd745(state));
|
|
|
-return __qistd744;return state->nil;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd742(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, "<anon>", 1, __qistd743, NULL);
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd746(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "file.close");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "fclose");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd747(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "file.flush");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "fflush");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd748(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "file.seek");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "fseek");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd749(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "file.getc");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "fgetc");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd750(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "file.putc");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "fputc");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd751(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "file.gets");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "fgets");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd752(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "file.puts");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "fputs");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd753(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "file.tell");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "ftell");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd754(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "reference.deref");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "deref");
|
|
|
-return list;
|
|
|
-}
|
|
|
-inline static qi_list_t *__qistd755(qi_state_t *state) {
|
|
|
-qi_list_t *list = qi_list_make_n(2);
|
|
|
-qi_list_data(list, 0) = qi_make_string(state, "reference.set");
|
|
|
-qi_list_data(list, 1) = qi_get(state, "ref_set");
|
|
|
-return list;
|
|
|
-}
|
|
|
-static void qi_init_std(qi_state_t *state) {
|
|
|
-qi_decl(state, "Object", qi_make_function(state, "Object", 1, __qistd0, NULL));
|
|
|
-qi_decl(state, "is_object", qi_make_function(state, "is_object", 1, __qistd5, NULL));
|
|
|
-qi_decl(state, "__class_wrapper", qi_make_function(state, "__class_wrapper", 5, __qistd8, NULL));
|
|
|
-qi_set(state, false, "Error", __qistd30(state));qi_set(state, false, "AssertionError", __qistd36(state));qi_set(state, false, "TypeError", __qistd37(state));qi_set(state, false, "ValueError", __qistd38(state));qi_set(state, false, "IndexError", __qistd39(state));qi_set(state, false, "KeyError", __qistd40(state));qi_set(state, false, "RecursionError", __qistd41(state));qi_set(state, false, "NameError", __qistd42(state));qi_set(state, false, "IOError", __qistd43(state));qi_decl(state, "isinstance", qi_make_function(state, "isinstance", 2, __qistd44, NULL));
|
|
|
-qi_decl(state, "head", qi_make_function(state, "head", 1, __qistd48, NULL));
|
|
|
-qi_decl(state, "tail", qi_make_function(state, "tail", 1, __qistd50, NULL));
|
|
|
-qi_decl(state, "min", qi_make_function(state, "min", 2, __qistd53, NULL));
|
|
|
-qi_decl(state, "max", qi_make_function(state, "max", 2, __qistd55, NULL));
|
|
|
-qi_decl(state, "reverse", qi_make_function(state, "reverse", 1, __qistd57, NULL));
|
|
|
-qi_decl(state, "range", qi_make_function(state, "range", 1, __qistd72, NULL));
|
|
|
-qi_decl(state, "frewind", qi_make_function(state, "frewind", 1, __qistd90, NULL));
|
|
|
-qi_decl(state, "read_stdin", qi_make_function(state, "read_stdin", 0, __qistd92, NULL));
|
|
|
-qi_decl(state, "file_read", qi_make_function(state, "file_read", 1, __qistd96, NULL));
|
|
|
-qi_decl(state, "file_write", qi_make_function(state, "file_write", 2, __qistd103, NULL));
|
|
|
-qi_decl(state, "is_defined", qi_make_function(state, "is_defined", 1, __qistd109, NULL));
|
|
|
-qi_decl(state, "is_table", qi_make_function(state, "is_table", 1, __qistd113, NULL));
|
|
|
-qi_decl(state, "list_remove", qi_make_function(state, "list_remove", 2, __qistd114, NULL));
|
|
|
-qi_decl(state, "list_index", qi_make_function(state, "list_index", 2, __qistd122, NULL));
|
|
|
-qi_decl(state, "list_join", qi_make_function(state, "list_join", 1, __qistd130, NULL));
|
|
|
-qi_decl(state, "list_pop_at", qi_make_function(state, "list_pop_at", 2, __qistd144, NULL));
|
|
|
-qi_decl(state, "__cmp", qi_make_function(state, "__cmp", 2, __qistd153, NULL));
|
|
|
-qi_decl(state, "list_sort", qi_make_function(state, "list_sort", 1, __qistd155, NULL));
|
|
|
-qi_decl(state, "list_sorted", qi_make_function(state, "list_sorted", 1, __qistd169, NULL));
|
|
|
-qi_decl(state, "list_shift", qi_make_function(state, "list_shift", 1, __qistd173, NULL));
|
|
|
-qi_decl(state, "list_unshift", qi_make_function(state, "list_unshift", 2, __qistd181, NULL));
|
|
|
-qi_decl(state, "slice", qi_make_function(state, "slice", 1, __qistd183, NULL));
|
|
|
-qi_decl(state, "str_startswith", qi_make_function(state, "str_startswith", 2, __qistd218, NULL));
|
|
|
-qi_decl(state, "str_endswith", qi_make_function(state, "str_endswith", 2, __qistd228, NULL));
|
|
|
-qi_decl(state, "str_split", qi_make_function(state, "str_split", 1, __qistd239, NULL));
|
|
|
-qi_decl(state, "str_replace", qi_make_function(state, "str_replace", 3, __qistd257, NULL));
|
|
|
-qi_decl(state, "table_keys", qi_make_function(state, "table_keys", 1, __qistd273, NULL));
|
|
|
-qi_decl(state, "table_values", qi_make_function(state, "table_values", 1, __qistd281, NULL));
|
|
|
-qi_decl(state, "reduce", qi_make_function(state, "reduce", 2, __qistd289, NULL));
|
|
|
-qi_decl(state, "sum", qi_make_function(state, "sum", 1, __qistd313, NULL));
|
|
|
-qi_decl(state, "product", qi_make_function(state, "product", 1, __qistd318, NULL));
|
|
|
-qi_decl(state, "all", qi_make_function(state, "all", 1, __qistd323, NULL));
|
|
|
-qi_decl(state, "any", qi_make_function(state, "any", 1, __qistd328, NULL));
|
|
|
-qi_decl(state, "map", qi_make_function(state, "map", 2, __qistd333, NULL));
|
|
|
-qi_decl(state, "filter", qi_make_function(state, "filter", 2, __qistd357, NULL));
|
|
|
-qi_decl(state, "tuple_delete", qi_make_function(state, "tuple_delete", 2, __qistd381, NULL));
|
|
|
-qi_decl(state, "str_index", qi_make_function(state, "str_index", 2, __qistd390, NULL));
|
|
|
-qi_decl(state, "str_lstrip", qi_make_function(state, "str_lstrip", 1, __qistd406, NULL));
|
|
|
-qi_decl(state, "str_rstrip", qi_make_function(state, "str_rstrip", 1, __qistd418, NULL));
|
|
|
-qi_decl(state, "str_strip", qi_make_function(state, "str_strip", 1, __qistd431, NULL));
|
|
|
-qi_decl(state, "zip", qi_make_function(state, "zip", 0, __qistd441, NULL));
|
|
|
-qi_decl(state, "enumerate", qi_make_function(state, "enumerate", 1, __qistd451, NULL));
|
|
|
-qi_decl(state, "str_toupper", qi_make_function(state, "str_toupper", 1, __qistd461, NULL));
|
|
|
-qi_decl(state, "str_tolower", qi_make_function(state, "str_tolower", 1, __qistd471, NULL));
|
|
|
-qi_decl(state, "hex", qi_make_function(state, "hex", 1, __qistd481, NULL));
|
|
|
-qi_decl(state, "oct", qi_make_function(state, "oct", 1, __qistd488, NULL));
|
|
|
-qi_decl(state, "format", qi_make_function(state, "format", 1, __qistd495, NULL));
|
|
|
-qi_decl(state, "formatl", qi_make_function(state, "formatl", 2, __qistd507, NULL));
|
|
|
-qi_decl(state, "formatd", qi_make_function(state, "formatd", 2, __qistd517, NULL));
|
|
|
-qi_decl(state, "getch", qi_make_function(state, "getch", 0, __qistd534, NULL));
|
|
|
-qi_decl(state, "putch", qi_make_function(state, "putch", 1, __qistd538, NULL));
|
|
|
-qi_decl(state, "getline", qi_make_function(state, "getline", 0, __qistd540, NULL));
|
|
|
-qi_decl(state, "input", qi_make_function(state, "input", 0, __qistd543, NULL));
|
|
|
-qi_decl(state, "open", qi_make_function(state, "open", 1, __qistd548, NULL));
|
|
|
-qi_decl(state, "assert", qi_make_function(state, "assert", 1, __qistd551, NULL));
|
|
|
-qi_set(state, false, "ListIterator", __qistd552(state));qi_set(state, false, "OrderedTable", __qistd564(state));(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd641(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd642(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd643(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"), __qistd644(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd645(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd646(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd651(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd652(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd653(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd654(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd655(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd656(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd657(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd658(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd659(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd664(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd665(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd666(state)));
|
|
|
-qi_decl_const(state, "__slice", qi_get(state, "slice"));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd667(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd668(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd669(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd670(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd671(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd672(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd673(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd677(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd681(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd685(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd689(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd690(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd691(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd692(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd693(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd694(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd695(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd696(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd697(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd701(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd705(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd709(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd713(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd717(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd721(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd725(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd729(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd730(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd731(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd732(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd733(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd734(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd735(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd736(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd737(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd738(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd739(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd740(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd742(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd746(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd747(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd748(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd749(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd750(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd751(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd752(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd753(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd754(state)));
|
|
|
-(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd755(state)));
|
|
|
-}
|
