qistd.c 122 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643
  1. qi_value_t *__qistd0(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2. qi_decl(state, "l", qi_list_index(pargs, 0));
  3. return qi_index(state, qi_get(state, "l"), qi_make_number(state, 0));return state->nil;
  4. }
  5. inline static qi_list_t *__qistd2(qi_state_t *state) {
  6. qi_list_t *list = qi_list_make_n(2);
  7. qi_list_data(list, 0) = qi_get(state, "l");
  8. qi_list_data(list, 1) = qi_make_number(state, 1);
  9. return list;
  10. }
  11. qi_value_t *__qistd1(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  12. qi_decl(state, "l", qi_list_index(pargs, 0));
  13. return qi_call(state, qi_get(state, "slice"), __qistd2(state));return state->nil;
  14. }
  15. qi_value_t *__qistd3(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  16. qi_decl(state, "x", qi_list_index(pargs, 0));
  17. qi_decl(state, "y", qi_list_index(pargs, 1));
  18. return (_qi_truthy(state, qi_lt(state, qi_get(state, "x"), qi_get(state, "y")))? qi_get(state, "x"): qi_get(state, "y"));return state->nil;
  19. }
  20. qi_value_t *__qistd4(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  21. qi_decl(state, "x", qi_list_index(pargs, 0));
  22. qi_decl(state, "y", qi_list_index(pargs, 1));
  23. return (_qi_truthy(state, qi_gt(state, qi_get(state, "x"), qi_get(state, "y")))? qi_get(state, "x"): qi_get(state, "y"));return state->nil;
  24. }
  25. inline static qi_list_t *__qistd6(qi_state_t *state) {
  26. qi_list_t *list = qi_list_make_n(1);
  27. qi_list_data(list, 0) = qi_get(state, "x");
  28. return list;
  29. }
  30. inline static qi_list_t *__qistd7(qi_state_t *state) {
  31. qi_list_t *list = qi_list_make_n(3);
  32. qi_list_data(list, 0) = qi_make_string(state, "list");
  33. qi_list_data(list, 1) = qi_make_string(state, "string");
  34. qi_list_data(list, 2) = qi_make_string(state, "bytes");
  35. return list;
  36. }
  37. inline static qi_list_t *__qistd8(qi_state_t *state) {
  38. qi_list_t *list = qi_list_make_n(1);
  39. qi_list_data(list, 0) = qi_get(state, "x");
  40. return list;
  41. }
  42. inline static qi_list_t *__qistd10(qi_state_t *state) {
  43. qi_list_t *list = qi_list_make_n(1);
  44. qi_list_data(list, 0) = qi_get(state, "x");
  45. return list;
  46. }
  47. inline static qi_list_t *__qistd11(qi_state_t *state) {
  48. qi_list_t *list = qi_list_make_n(2);
  49. qi_list_data(list, 0) = qi_get(state, "r");
  50. qi_list_data(list, 1) = qi_index(state, qi_get(state, "x"), qi_get(state, "i"));
  51. return list;
  52. }
  53. inline static qi_list_t *__qistd12(qi_state_t *state) {
  54. qi_list_t *list = qi_list_make_n(1);
  55. qi_list_data(list, 0) = qi_get(state, "x");
  56. return list;
  57. }
  58. inline static qi_list_t *__qistd13(qi_state_t *state) {
  59. qi_list_t *list = qi_list_make_n(1);
  60. qi_list_data(list, 0) = qi_get(state, "r");
  61. return list;
  62. }
  63. inline static qi_list_t *__qistd14(qi_state_t *state) {
  64. qi_list_t *list = qi_list_make_n(1);
  65. qi_list_data(list, 0) = qi_get(state, "x");
  66. return list;
  67. }
  68. inline static qi_list_t *__qistd15(qi_state_t *state) {
  69. qi_list_t *list = qi_list_make_n(1);
  70. qi_list_data(list, 0) = qi_get(state, "r");
  71. return list;
  72. }
  73. qi_value_t *__qistd5(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  74. qi_decl(state, "x", qi_list_index(pargs, 0));
  75. if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd6(state)), qi_make_tuple(state, __qistd7(state))))) {
  76. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, string or bytes, but got: "), qi_call(state, qi_get(state, "type"), __qistd8(state))));}
  77. qi_decl(state, "r", qi_make_list(state, NULL));
  78. qi_decl(state, "i", qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd10(state)), qi_make_number(state, 1)));
  79. while (_qi_truthy(state, qi_ge(state, qi_get(state, "i"), qi_make_number(state, 0)))) {
  80. (void)(qi_call(state, qi_get(state, "list_push"), __qistd11(state)));__continue9:;
  81. qi_set(state, false, "i", qi_sub(state, qi_get(state, "i"), state->one));
  82. }
  83. __break9:;
  84. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd12(state)), qi_make_string(state, "string")))) {
  85. return qi_call(state, qi_get(state, "list_join"), __qistd13(state));} else {
  86. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd14(state)), qi_make_string(state, "bytes")))) {
  87. return qi_call(state, qi_get(state, "bytes"), __qistd15(state));}}
  88. return qi_get(state, "r");
  89. return state->nil;
  90. }
  91. inline static qi_list_t *__qistd17(qi_state_t *state) {
  92. qi_list_t *list = qi_list_make_n(1);
  93. qi_list_data(list, 0) = qi_get(state, "arguments");
  94. return list;
  95. }
  96. inline static qi_list_t *__qistd18(qi_state_t *state) {
  97. qi_list_t *list = qi_list_make_n(1);
  98. qi_list_data(list, 0) = qi_get(state, "arguments");
  99. return list;
  100. }
  101. inline static qi_list_t *__qistd19(qi_state_t *state) {
  102. qi_list_t *list = qi_list_make_n(1);
  103. qi_list_data(list, 0) = qi_get(state, "f");
  104. return list;
  105. }
  106. inline static qi_list_t *__qistd20(qi_state_t *state) {
  107. qi_list_t *list = qi_list_make_n(1);
  108. qi_list_data(list, 0) = qi_get(state, "f");
  109. return list;
  110. }
  111. inline static qi_list_t *__qistd21(qi_state_t *state) {
  112. qi_list_t *list = qi_list_make_n(1);
  113. qi_list_data(list, 0) = qi_get(state, "t");
  114. return list;
  115. }
  116. inline static qi_list_t *__qistd22(qi_state_t *state) {
  117. qi_list_t *list = qi_list_make_n(1);
  118. qi_list_data(list, 0) = qi_get(state, "t");
  119. return list;
  120. }
  121. inline static qi_list_t *__qistd23(qi_state_t *state) {
  122. qi_list_t *list = qi_list_make_n(1);
  123. qi_list_data(list, 0) = qi_get(state, "s");
  124. return list;
  125. }
  126. inline static qi_list_t *__qistd24(qi_state_t *state) {
  127. qi_list_t *list = qi_list_make_n(1);
  128. qi_list_data(list, 0) = qi_get(state, "s");
  129. return list;
  130. }
  131. inline static qi_list_t *__qistd26(qi_state_t *state) {
  132. qi_list_t *list = qi_list_make_n(3);
  133. qi_list_data(list, 0) = qi_get(state, "t");
  134. qi_list_data(list, 1) = qi_get(state, "f");
  135. qi_list_data(list, 2) = qi_get(state, "s");
  136. return list;
  137. }
  138. inline static qi_list_t *__qistd25(qi_state_t *state) {
  139. qi_list_t *list = qi_list_make_n(1);
  140. qi_list_data(list, 0) = qi_call(state, qi_get(state, "range"), __qistd26(state));
  141. return list;
  142. }
  143. inline static qi_list_t *__qistd28(qi_state_t *state) {
  144. qi_list_t *list = qi_list_make_n(2);
  145. qi_list_data(list, 0) = qi_get(state, "r");
  146. qi_list_data(list, 1) = qi_get(state, "i");
  147. return list;
  148. }
  149. qi_value_t *__qistd16(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  150. qi_decl(state, "f", qi_list_index(pargs, 0));
  151. qi_decl(state, "s", state->nil);
  152. qi_decl(state, "t", state->nil);
  153. if (_qi_truthy(state, qi_ge(state, qi_call(state, qi_get(state, "len"), __qistd17(state)), qi_make_number(state, 3)))) {
  154. (void)(qi_set(state, false, "t", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1))));
  155. (void)(qi_set(state, false, "s", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 2))));
  156. } else {
  157. if (_qi_truthy(state, qi_ge(state, qi_call(state, qi_get(state, "len"), __qistd18(state)), qi_make_number(state, 2)))) {
  158. (void)(qi_set(state, false, "t", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1))));
  159. (void)(qi_set(state, false, "s", qi_make_number(state, 1)));
  160. } else {
  161. (void)(qi_set(state, false, "t", qi_get(state, "f")));
  162. (void)(qi_set(state, false, "f", qi_make_number(state, 0)));
  163. (void)(qi_set(state, false, "s", qi_make_number(state, 1)));
  164. }}
  165. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd19(state)), qi_make_string(state, "number")))) {
  166. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd20(state))));}
  167. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd21(state)), qi_make_string(state, "number")))) {
  168. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd22(state))));}
  169. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd23(state)), qi_make_string(state, "number")))) {
  170. qi_throw(state, qi_add(state, qi_make_string(state, "expected third argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd24(state))));}
  171. if (_qi_truthy(state, qi_gt(state, qi_get(state, "f"), qi_get(state, "t")))) {
  172. return qi_call(state, qi_get(state, "reverse"), __qistd25(state));}
  173. qi_decl(state, "r", qi_make_list(state, NULL));
  174. qi_decl(state, "i", qi_get(state, "f"));
  175. while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_get(state, "t")))) {
  176. (void)(qi_call(state, qi_get(state, "list_push"), __qistd28(state)));__continue27:;
  177. qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), qi_get(state, "s")));
  178. }
  179. __break27:;
  180. return qi_get(state, "r");
  181. return state->nil;
  182. }
  183. qi_value_t *__qistd29(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  184. qi_decl(state, "file", qi_list_index(pargs, 0));
  185. return qi_call(state, qi_index(state, qi_get(state, "file"), qi_make_string(state, "rewind")), NULL);return state->nil;
  186. }
  187. inline static qi_list_t *__qistd31(qi_state_t *state) {
  188. qi_list_t *list = qi_list_make_n(2);
  189. qi_list_data(list, 0) = qi_get(state, "filename");
  190. qi_list_data(list, 1) = qi_make_string(state, "r");
  191. return list;
  192. }
  193. inline static qi_list_t *__qistd33(qi_state_t *state) {
  194. qi_list_t *list = qi_list_make_n(1);
  195. qi_list_data(list, 0) = qi_get(state, "file");
  196. return list;
  197. }
  198. void __qistd32(qi_state_t *state) {
  199. (void)(qi_call(state, qi_get(state, "fclose"), __qistd33(state)));
  200. }
  201. inline static qi_list_t *__qistd35(qi_state_t *state) {
  202. qi_list_t *list = qi_list_make_n(2);
  203. qi_list_data(list, 0) = qi_get(state, "file");
  204. qi_list_data(list, 1) = qi_negate(state, qi_make_number(state, 1));
  205. return list;
  206. }
  207. inline static qi_list_t *__qistd34(qi_state_t *state) {
  208. qi_list_t *list = qi_list_make_n(1);
  209. qi_list_data(list, 0) = qi_call(state, qi_get(state, "fread"), __qistd35(state));
  210. return list;
  211. }
  212. qi_value_t *__qistd30(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  213. qi_decl(state, "filename", qi_list_index(pargs, 0));
  214. qi_decl_const(state, "file", qi_call(state, qi_get(state, "fopen"), __qistd31(state)));
  215. qi_add_defer(state, -1, __qistd32);
  216. return qi_call(state, qi_get(state, "str"), __qistd34(state));
  217. return state->nil;
  218. }
  219. inline static qi_list_t *__qistd37(qi_state_t *state) {
  220. qi_list_t *list = qi_list_make_n(2);
  221. qi_list_data(list, 0) = qi_get(state, "filename");
  222. qi_list_data(list, 1) = qi_make_string(state, "w");
  223. return list;
  224. }
  225. inline static qi_list_t *__qistd39(qi_state_t *state) {
  226. qi_list_t *list = qi_list_make_n(1);
  227. qi_list_data(list, 0) = qi_get(state, "file");
  228. return list;
  229. }
  230. void __qistd38(qi_state_t *state) {
  231. (void)(qi_call(state, qi_get(state, "fclose"), __qistd39(state)));
  232. }
  233. inline static qi_list_t *__qistd41(qi_state_t *state) {
  234. qi_list_t *list = qi_list_make_n(1);
  235. qi_list_data(list, 0) = qi_get(state, "data");
  236. return list;
  237. }
  238. inline static qi_list_t *__qistd40(qi_state_t *state) {
  239. qi_list_t *list = qi_list_make_n(2);
  240. qi_list_data(list, 0) = qi_get(state, "file");
  241. qi_list_data(list, 1) = qi_call(state, qi_get(state, "bytes"), __qistd41(state));
  242. return list;
  243. }
  244. qi_value_t *__qistd36(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  245. qi_decl(state, "filename", qi_list_index(pargs, 0));
  246. qi_decl(state, "data", qi_list_index(pargs, 1));
  247. qi_decl_const(state, "file", qi_call(state, qi_get(state, "fopen"), __qistd37(state)));
  248. qi_add_defer(state, -1, __qistd38);
  249. (void)(qi_call(state, qi_get(state, "fwrite"), __qistd40(state)));
  250. return state->nil;
  251. }
  252. inline static qi_list_t *__qistd43(qi_state_t *state) {
  253. qi_list_t *list = qi_list_make_n(1);
  254. qi_list_data(list, 0) = qi_get(state, "name");
  255. return list;
  256. }
  257. inline static qi_list_t *__qistd44(qi_state_t *state) {
  258. qi_list_t *list = qi_list_make_n(1);
  259. qi_list_data(list, 0) = qi_get(state, "name");
  260. return list;
  261. }
  262. qi_value_t *__qistd42(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  263. qi_decl(state, "name", qi_list_index(pargs, 0));
  264. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd43(state)), qi_make_string(state, "string")))) {
  265. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd44(state))));}
  266. bool b = qi_find(state, qi_get(state, "name")->value.string) != NULL;
  267. return qi_make_boolean(state, b);
  268. return state->nil;
  269. }
  270. inline static qi_list_t *__qistd47(qi_state_t *state) {
  271. qi_list_t *list = qi_list_make_n(1);
  272. qi_list_data(list, 0) = qi_get(state, "l");
  273. return list;
  274. }
  275. inline static qi_list_t *__qistd48(qi_state_t *state) {
  276. qi_list_t *list = qi_list_make_n(1);
  277. qi_list_data(list, 0) = qi_get(state, "l");
  278. return list;
  279. }
  280. inline static qi_list_t *__qistd50(qi_state_t *state) {
  281. qi_list_t *list = qi_list_make_n(1);
  282. qi_list_data(list, 0) = qi_get(state, "l");
  283. return list;
  284. }
  285. inline static qi_list_t *__qistd51(qi_state_t *state) {
  286. qi_list_t *list = qi_list_make_n(2);
  287. qi_list_data(list, 0) = qi_get(state, "l");
  288. qi_list_data(list, 1) = qi_get(state, "i");
  289. return list;
  290. }
  291. qi_value_t *__qistd45(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  292. qi_decl(state, "first", pargc >= 3? qi_list_index(pargs, 2): qi_get(state, "false"));
  293. qi_decl(state, "l", qi_list_index(pargs, 0));
  294. qi_decl(state, "x", qi_list_index(pargs, 1));
  295. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd47(state)), qi_make_string(state, "list")))) {
  296. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd48(state))));}
  297. __label46:;
  298. qi_decl(state, "i", qi_make_number(state, 0));
  299. while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd50(state))))) {
  300. if (_qi_truthy(state, qi_equals(state, qi_index(state, qi_get(state, "l"), qi_get(state, "i")), qi_get(state, "x")))) {
  301. (void)(qi_call(state, qi_get(state, "list_delete"), __qistd51(state)));
  302. if (_qi_truthy(state, qi_get(state, "first"))) {
  303. goto __break49;}
  304. goto __label46;
  305. }__continue49:;
  306. qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
  307. }
  308. __break49:;
  309. return state->nil;
  310. }
  311. inline static qi_list_t *__qistd53(qi_state_t *state) {
  312. qi_list_t *list = qi_list_make_n(1);
  313. qi_list_data(list, 0) = qi_get(state, "l");
  314. return list;
  315. }
  316. inline static qi_list_t *__qistd54(qi_state_t *state) {
  317. qi_list_t *list = qi_list_make_n(1);
  318. qi_list_data(list, 0) = qi_get(state, "l");
  319. return list;
  320. }
  321. inline static qi_list_t *__qistd55(qi_state_t *state) {
  322. qi_list_t *list = qi_list_make_n(1);
  323. qi_list_data(list, 0) = qi_get(state, "arguments");
  324. return list;
  325. }
  326. inline static qi_list_t *__qistd56(qi_state_t *state) {
  327. qi_list_t *list = qi_list_make_n(1);
  328. qi_list_data(list, 0) = qi_get(state, "s");
  329. return list;
  330. }
  331. inline static qi_list_t *__qistd57(qi_state_t *state) {
  332. qi_list_t *list = qi_list_make_n(1);
  333. qi_list_data(list, 0) = qi_get(state, "s");
  334. return list;
  335. }
  336. inline static qi_list_t *__qistd60(qi_state_t *state) {
  337. qi_list_t *list = qi_list_make_n(1);
  338. qi_list_data(list, 0) = qi_get(state, "x");
  339. return list;
  340. }
  341. inline static qi_list_t *__qistd61(qi_state_t *state) {
  342. qi_list_t *list = qi_list_make_n(1);
  343. qi_list_data(list, 0) = qi_get(state, "x");
  344. return list;
  345. }
  346. qi_value_t *__qistd52(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  347. qi_decl(state, "l", qi_list_index(pargs, 0));
  348. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd53(state)), qi_make_string(state, "list")))) {
  349. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd54(state))));}
  350. qi_decl(state, "r", state->empty_string);
  351. qi_decl(state, "s", state->nil);
  352. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd55(state)), qi_make_number(state, 1)))) {
  353. (void)(qi_set(state, false, "s", state->empty_string));} else {
  354. (void)(qi_set(state, false, "s", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1))));}
  355. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd56(state)), qi_make_string(state, "string")))) {
  356. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd57(state))));}
  357. qi_decl(state, "first", qi_get(state, "true"));
  358. qi_value_t *__qistd59 = qi_iter(state, qi_get(state, "l"));
  359. qi_decl(state, "x", state->nil);
  360. for (qi_size_t length = _qi_length(state, __qistd59), i = 0; i < length; i++) {
  361. qi_set(state, false, "x", qi_index(state, __qistd59, qi_make_number(state, i)));
  362. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd60(state)), qi_make_string(state, "string")))) {
  363. qi_throw(state, qi_add(state, qi_make_string(state, "expected sequence item to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd61(state))));}
  364. 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"))))) {
  365. (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_get(state, "s"))));}
  366. (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_get(state, "x"))));
  367. (void)(qi_set(state, false, "first", qi_get(state, "false")));
  368. __continue58:;
  369. }
  370. __break58:;
  371. return qi_get(state, "r");
  372. return state->nil;
  373. }
  374. inline static qi_list_t *__qistd63(qi_state_t *state) {
  375. qi_list_t *list = qi_list_make_n(1);
  376. qi_list_data(list, 0) = qi_get(state, "l");
  377. return list;
  378. }
  379. inline static qi_list_t *__qistd64(qi_state_t *state) {
  380. qi_list_t *list = qi_list_make_n(1);
  381. qi_list_data(list, 0) = qi_get(state, "l");
  382. return list;
  383. }
  384. inline static qi_list_t *__qistd65(qi_state_t *state) {
  385. qi_list_t *list = qi_list_make_n(1);
  386. qi_list_data(list, 0) = qi_get(state, "i");
  387. return list;
  388. }
  389. inline static qi_list_t *__qistd66(qi_state_t *state) {
  390. qi_list_t *list = qi_list_make_n(1);
  391. qi_list_data(list, 0) = qi_get(state, "i");
  392. return list;
  393. }
  394. inline static qi_list_t *__qistd67(qi_state_t *state) {
  395. qi_list_t *list = qi_list_make_n(2);
  396. qi_list_data(list, 0) = qi_get(state, "l");
  397. qi_list_data(list, 1) = qi_get(state, "i");
  398. return list;
  399. }
  400. qi_value_t *__qistd62(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  401. qi_decl(state, "i", qi_list_index(pargs, 1));
  402. qi_decl(state, "l", qi_list_index(pargs, 0));
  403. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd63(state)), qi_make_string(state, "list")))) {
  404. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd64(state))));}
  405. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd65(state)), qi_make_string(state, "number")))) {
  406. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd66(state))));}
  407. qi_decl(state, "x", qi_index(state, qi_get(state, "l"), qi_get(state, "i")));
  408. (void)(qi_call(state, qi_get(state, "list_delete"), __qistd67(state)));
  409. return qi_get(state, "x");
  410. return state->nil;
  411. }
  412. qi_value_t *__qistd69(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  413. qi_decl(state, "x", qi_list_index(pargs, 0));
  414. qi_decl(state, "y", qi_list_index(pargs, 1));
  415. return qi_gt(state, qi_get(state, "x"), qi_get(state, "y"));return state->nil;
  416. }
  417. inline static qi_list_t *__qistd70(qi_state_t *state) {
  418. qi_list_t *list = qi_list_make_n(1);
  419. qi_list_data(list, 0) = qi_get(state, "l");
  420. return list;
  421. }
  422. inline static qi_list_t *__qistd71(qi_state_t *state) {
  423. qi_list_t *list = qi_list_make_n(1);
  424. qi_list_data(list, 0) = qi_get(state, "l");
  425. return list;
  426. }
  427. inline static qi_list_t *__qistd72(qi_state_t *state) {
  428. qi_list_t *list = qi_list_make_n(1);
  429. qi_list_data(list, 0) = qi_get(state, "cmp");
  430. return list;
  431. }
  432. inline static qi_list_t *__qistd73(qi_state_t *state) {
  433. qi_list_t *list = qi_list_make_n(1);
  434. qi_list_data(list, 0) = qi_get(state, "cmp");
  435. return list;
  436. }
  437. inline static qi_list_t *__qistd74(qi_state_t *state) {
  438. qi_list_t *list = qi_list_make_n(1);
  439. qi_list_data(list, 0) = qi_get(state, "l");
  440. return list;
  441. }
  442. inline static qi_list_t *__qistd75(qi_state_t *state) {
  443. qi_list_t *list = qi_list_make_n(1);
  444. qi_list_data(list, 0) = qi_get(state, "l");
  445. return list;
  446. }
  447. inline static qi_list_t *__qistd78(qi_state_t *state) {
  448. qi_list_t *list = qi_list_make_n(2);
  449. qi_list_data(list, 0) = qi_index(state, qi_get(state, "l"), qi_get(state, "j"));
  450. qi_list_data(list, 1) = qi_index(state, qi_get(state, "l"), qi_add(state, qi_get(state, "j"), qi_make_number(state, 1)));
  451. return list;
  452. }
  453. qi_value_t *__qistd68(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  454. qi_decl(state, "cmp", pargc >= 2? qi_list_index(pargs, 1): qi_make_function(state, "<anon>", 2, __qistd69, NULL));
  455. qi_decl(state, "l", qi_list_index(pargs, 0));
  456. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd70(state)), qi_make_string(state, "list")))) {
  457. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd71(state))));}
  458. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd72(state)), qi_make_string(state, "function")))) {
  459. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd73(state))));}
  460. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd74(state)), qi_make_number(state, 0)))) {
  461. return qi_get(state, "l");}
  462. qi_decl(state, "z", qi_call(state, qi_get(state, "len"), __qistd75(state)));
  463. qi_decl(state, "i", qi_make_number(state, 0));
  464. while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_sub(state, qi_get(state, "z"), qi_make_number(state, 1))))) {
  465. qi_decl(state, "j", qi_make_number(state, 0));
  466. 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"))))) {
  467. if (_qi_truthy(state, qi_call(state, qi_get(state, "cmp"), __qistd78(state)))) {
  468. qi_decl_const(state, "tmp", qi_index(state, qi_get(state, "l"), qi_get(state, "j")));
  469. (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)))));
  470. (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")));
  471. }__continue77:;
  472. qi_set(state, false, "j", qi_add(state, qi_get(state, "j"), state->one));
  473. }
  474. __break77:;
  475. __continue76:;
  476. qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
  477. }
  478. __break76:;
  479. return qi_get(state, "l");
  480. return state->nil;
  481. }
  482. qi_value_t *__qistd80(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  483. qi_decl(state, "x", qi_list_index(pargs, 0));
  484. qi_decl(state, "y", qi_list_index(pargs, 1));
  485. return qi_gt(state, qi_get(state, "x"), qi_get(state, "y"));return state->nil;
  486. }
  487. inline static qi_list_t *__qistd81(qi_state_t *state) {
  488. qi_list_t *list = qi_list_make_n(1);
  489. qi_list_data(list, 0) = qi_get(state, "l");
  490. return list;
  491. }
  492. inline static qi_list_t *__qistd82(qi_state_t *state) {
  493. qi_list_t *list = qi_list_make_n(2);
  494. qi_list_data(list, 0) = qi_get(state, "l");
  495. qi_list_data(list, 1) = qi_get(state, "cmp");
  496. return list;
  497. }
  498. qi_value_t *__qistd79(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  499. qi_decl(state, "cmp", pargc >= 2? qi_list_index(pargs, 1): qi_make_function(state, "<anon>", 2, __qistd80, NULL));
  500. qi_decl(state, "l", qi_list_index(pargs, 0));
  501. (void)(qi_set(state, false, "l", qi_call(state, qi_get(state, "list_copy"), __qistd81(state))));
  502. return qi_call(state, qi_get(state, "list_sort"), __qistd82(state));
  503. return state->nil;
  504. }
  505. inline static qi_list_t *__qistd84(qi_state_t *state) {
  506. qi_list_t *list = qi_list_make_n(1);
  507. qi_list_data(list, 0) = qi_get(state, "l");
  508. return list;
  509. }
  510. inline static qi_list_t *__qistd85(qi_state_t *state) {
  511. qi_list_t *list = qi_list_make_n(1);
  512. qi_list_data(list, 0) = qi_get(state, "l");
  513. return list;
  514. }
  515. inline static qi_list_t *__qistd86(qi_state_t *state) {
  516. qi_list_t *list = qi_list_make_n(1);
  517. qi_list_data(list, 0) = qi_get(state, "l");
  518. return list;
  519. }
  520. inline static qi_list_t *__qistd87(qi_state_t *state) {
  521. qi_list_t *list = qi_list_make_n(2);
  522. qi_list_data(list, 0) = qi_get(state, "l");
  523. qi_list_data(list, 1) = qi_make_number(state, 0);
  524. return list;
  525. }
  526. qi_value_t *__qistd83(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  527. qi_decl(state, "l", qi_list_index(pargs, 0));
  528. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd84(state)), qi_make_string(state, "list")))) {
  529. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd85(state))));}
  530. if (_qi_truthy(state, qi_call(state, qi_get(state, "is_empty"), __qistd86(state)))) {
  531. qi_throw(state, qi_make_string(state, "shift from empty list"));}
  532. qi_decl(state, "a", qi_index(state, qi_get(state, "l"), qi_make_number(state, 0)));
  533. (void)(qi_call(state, qi_get(state, "list_delete"), __qistd87(state)));
  534. return qi_get(state, "a");
  535. return state->nil;
  536. }
  537. inline static qi_list_t *__qistd89(qi_state_t *state) {
  538. qi_list_t *list = qi_list_make_n(3);
  539. qi_list_data(list, 0) = qi_get(state, "l");
  540. qi_list_data(list, 1) = qi_make_number(state, 0);
  541. qi_list_data(list, 2) = qi_get(state, "x");
  542. return list;
  543. }
  544. qi_value_t *__qistd88(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  545. qi_decl(state, "l", qi_list_index(pargs, 0));
  546. qi_decl(state, "x", qi_list_index(pargs, 1));
  547. (void)(qi_call(state, qi_get(state, "list_insert"), __qistd89(state)));
  548. return state->nil;
  549. }
  550. inline static qi_list_t *__qistd91(qi_state_t *state) {
  551. qi_list_t *list = qi_list_make_n(1);
  552. qi_list_data(list, 0) = qi_get(state, "l");
  553. return list;
  554. }
  555. inline static qi_list_t *__qistd92(qi_state_t *state) {
  556. qi_list_t *list = qi_list_make_n(3);
  557. qi_list_data(list, 0) = qi_make_string(state, "list");
  558. qi_list_data(list, 1) = qi_make_string(state, "string");
  559. qi_list_data(list, 2) = qi_make_string(state, "bytes");
  560. return list;
  561. }
  562. inline static qi_list_t *__qistd93(qi_state_t *state) {
  563. qi_list_t *list = qi_list_make_n(1);
  564. qi_list_data(list, 0) = qi_get(state, "l");
  565. return list;
  566. }
  567. inline static qi_list_t *__qistd94(qi_state_t *state) {
  568. qi_list_t *list = qi_list_make_n(1);
  569. qi_list_data(list, 0) = qi_get(state, "arguments");
  570. return list;
  571. }
  572. inline static qi_list_t *__qistd95(qi_state_t *state) {
  573. qi_list_t *list = qi_list_make_n(1);
  574. qi_list_data(list, 0) = qi_get(state, "f");
  575. return list;
  576. }
  577. inline static qi_list_t *__qistd96(qi_state_t *state) {
  578. qi_list_t *list = qi_list_make_n(1);
  579. qi_list_data(list, 0) = qi_get(state, "f");
  580. return list;
  581. }
  582. inline static qi_list_t *__qistd97(qi_state_t *state) {
  583. qi_list_t *list = qi_list_make_n(1);
  584. qi_list_data(list, 0) = qi_get(state, "l");
  585. return list;
  586. }
  587. inline static qi_list_t *__qistd99(qi_state_t *state) {
  588. qi_list_t *list = qi_list_make_n(1);
  589. qi_list_data(list, 0) = qi_get(state, "l");
  590. return list;
  591. }
  592. inline static qi_list_t *__qistd100(qi_state_t *state) {
  593. qi_list_t *list = qi_list_make_n(2);
  594. qi_list_data(list, 0) = qi_get(state, "r");
  595. qi_list_data(list, 1) = qi_index(state, qi_get(state, "l"), qi_get(state, "i"));
  596. return list;
  597. }
  598. inline static qi_list_t *__qistd101(qi_state_t *state) {
  599. qi_list_t *list = qi_list_make_n(1);
  600. qi_list_data(list, 0) = qi_get(state, "arguments");
  601. return list;
  602. }
  603. inline static qi_list_t *__qistd102(qi_state_t *state) {
  604. qi_list_t *list = qi_list_make_n(1);
  605. qi_list_data(list, 0) = qi_get(state, "f");
  606. return list;
  607. }
  608. inline static qi_list_t *__qistd103(qi_state_t *state) {
  609. qi_list_t *list = qi_list_make_n(1);
  610. qi_list_data(list, 0) = qi_get(state, "f");
  611. return list;
  612. }
  613. inline static qi_list_t *__qistd104(qi_state_t *state) {
  614. qi_list_t *list = qi_list_make_n(1);
  615. qi_list_data(list, 0) = qi_get(state, "t");
  616. return list;
  617. }
  618. inline static qi_list_t *__qistd105(qi_state_t *state) {
  619. qi_list_t *list = qi_list_make_n(1);
  620. qi_list_data(list, 0) = qi_get(state, "t");
  621. return list;
  622. }
  623. inline static qi_list_t *__qistd106(qi_state_t *state) {
  624. qi_list_t *list = qi_list_make_n(1);
  625. qi_list_data(list, 0) = qi_get(state, "l");
  626. return list;
  627. }
  628. inline static qi_list_t *__qistd107(qi_state_t *state) {
  629. qi_list_t *list = qi_list_make_n(1);
  630. qi_list_data(list, 0) = qi_get(state, "l");
  631. return list;
  632. }
  633. inline static qi_list_t *__qistd109(qi_state_t *state) {
  634. qi_list_t *list = qi_list_make_n(1);
  635. qi_list_data(list, 0) = qi_get(state, "l");
  636. return list;
  637. }
  638. inline static qi_list_t *__qistd110(qi_state_t *state) {
  639. qi_list_t *list = qi_list_make_n(2);
  640. qi_list_data(list, 0) = qi_get(state, "r");
  641. qi_list_data(list, 1) = qi_index(state, qi_get(state, "l"), qi_get(state, "i"));
  642. return list;
  643. }
  644. inline static qi_list_t *__qistd111(qi_state_t *state) {
  645. qi_list_t *list = qi_list_make_n(1);
  646. qi_list_data(list, 0) = qi_get(state, "l");
  647. return list;
  648. }
  649. inline static qi_list_t *__qistd112(qi_state_t *state) {
  650. qi_list_t *list = qi_list_make_n(1);
  651. qi_list_data(list, 0) = qi_get(state, "r");
  652. return list;
  653. }
  654. inline static qi_list_t *__qistd113(qi_state_t *state) {
  655. qi_list_t *list = qi_list_make_n(1);
  656. qi_list_data(list, 0) = qi_get(state, "l");
  657. return list;
  658. }
  659. inline static qi_list_t *__qistd114(qi_state_t *state) {
  660. qi_list_t *list = qi_list_make_n(1);
  661. qi_list_data(list, 0) = qi_get(state, "r");
  662. return list;
  663. }
  664. qi_value_t *__qistd90(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  665. qi_decl(state, "l", qi_list_index(pargs, 0));
  666. if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd91(state)), qi_make_tuple(state, __qistd92(state))))) {
  667. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, string or bytes, but got: "), qi_call(state, qi_get(state, "type"), __qistd93(state))));}
  668. qi_decl(state, "r", qi_make_list(state, NULL));
  669. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd94(state)), qi_make_number(state, 2)))) {
  670. qi_decl(state, "f", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1)));
  671. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd95(state)), qi_make_string(state, "number")))) {
  672. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd96(state))));}
  673. if (_qi_truthy(state, qi_lt(state, qi_get(state, "f"), qi_make_number(state, 0)))) {
  674. (void)(qi_set(state, false, "f", qi_add(state, qi_get(state, "f"), qi_call(state, qi_get(state, "len"), __qistd97(state)))));}
  675. qi_decl(state, "i", qi_get(state, "f"));
  676. while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd99(state))))) {
  677. (void)(qi_call(state, qi_get(state, "list_push"), __qistd100(state)));__continue98:;
  678. qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
  679. }
  680. __break98:;
  681. } else {
  682. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd101(state)), qi_make_number(state, 3)))) {
  683. qi_decl(state, "f", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1)));
  684. qi_decl(state, "t", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 2)));
  685. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd102(state)), qi_make_string(state, "number")))) {
  686. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd103(state))));}
  687. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd104(state)), qi_make_string(state, "number")))) {
  688. qi_throw(state, qi_add(state, qi_make_string(state, "expected third argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd105(state))));}
  689. if (_qi_truthy(state, qi_lt(state, qi_get(state, "f"), qi_make_number(state, 0)))) {
  690. (void)(qi_set(state, false, "f", qi_add(state, qi_get(state, "f"), qi_call(state, qi_get(state, "len"), __qistd106(state)))));}
  691. if (_qi_truthy(state, qi_lt(state, qi_get(state, "t"), qi_make_number(state, 0)))) {
  692. (void)(qi_set(state, false, "t", qi_add(state, qi_get(state, "t"), qi_call(state, qi_get(state, "len"), __qistd107(state)))));}
  693. qi_decl(state, "i", qi_get(state, "f"));
  694. while (_qi_truthy(state, qi_and(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd109(state))), qi_le(state, qi_get(state, "i"), qi_get(state, "t"))))) {
  695. (void)(qi_call(state, qi_get(state, "list_push"), __qistd110(state)));__continue108:;
  696. qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
  697. }
  698. __break108:;
  699. }}
  700. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd111(state)), qi_make_string(state, "string")))) {
  701. return qi_call(state, qi_get(state, "list_join"), __qistd112(state));} else {
  702. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd113(state)), qi_make_string(state, "bytes")))) {
  703. return qi_call(state, qi_get(state, "bytes"), __qistd114(state));}}
  704. return qi_get(state, "r");
  705. return state->nil;
  706. }
  707. inline static qi_list_t *__qistd116(qi_state_t *state) {
  708. qi_list_t *list = qi_list_make_n(1);
  709. qi_list_data(list, 0) = qi_get(state, "s");
  710. return list;
  711. }
  712. inline static qi_list_t *__qistd117(qi_state_t *state) {
  713. qi_list_t *list = qi_list_make_n(1);
  714. qi_list_data(list, 0) = qi_get(state, "s");
  715. return list;
  716. }
  717. inline static qi_list_t *__qistd118(qi_state_t *state) {
  718. qi_list_t *list = qi_list_make_n(1);
  719. qi_list_data(list, 0) = qi_get(state, "s");
  720. return list;
  721. }
  722. inline static qi_list_t *__qistd119(qi_state_t *state) {
  723. qi_list_t *list = qi_list_make_n(1);
  724. qi_list_data(list, 0) = qi_get(state, "p");
  725. return list;
  726. }
  727. inline static qi_list_t *__qistd121(qi_state_t *state) {
  728. qi_list_t *list = qi_list_make_n(1);
  729. qi_list_data(list, 0) = qi_get(state, "p");
  730. return list;
  731. }
  732. inline static qi_list_t *__qistd120(qi_state_t *state) {
  733. qi_list_t *list = qi_list_make_n(3);
  734. qi_list_data(list, 0) = qi_get(state, "s");
  735. qi_list_data(list, 1) = qi_make_number(state, 0);
  736. qi_list_data(list, 2) = qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd121(state)), qi_make_number(state, 1));
  737. return list;
  738. }
  739. qi_value_t *__qistd115(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  740. qi_decl(state, "p", qi_list_index(pargs, 1));
  741. qi_decl(state, "s", qi_list_index(pargs, 0));
  742. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd116(state)), qi_make_string(state, "string")))) {
  743. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd117(state))));}
  744. if (_qi_truthy(state, qi_lt(state, qi_call(state, qi_get(state, "len"), __qistd118(state)), qi_call(state, qi_get(state, "len"), __qistd119(state))))) {
  745. return qi_get(state, "false");}
  746. return qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd120(state)), qi_get(state, "p"));
  747. return state->nil;
  748. }
  749. inline static qi_list_t *__qistd123(qi_state_t *state) {
  750. qi_list_t *list = qi_list_make_n(1);
  751. qi_list_data(list, 0) = qi_get(state, "s");
  752. return list;
  753. }
  754. inline static qi_list_t *__qistd124(qi_state_t *state) {
  755. qi_list_t *list = qi_list_make_n(1);
  756. qi_list_data(list, 0) = qi_get(state, "s");
  757. return list;
  758. }
  759. inline static qi_list_t *__qistd125(qi_state_t *state) {
  760. qi_list_t *list = qi_list_make_n(1);
  761. qi_list_data(list, 0) = qi_get(state, "s");
  762. return list;
  763. }
  764. inline static qi_list_t *__qistd126(qi_state_t *state) {
  765. qi_list_t *list = qi_list_make_n(1);
  766. qi_list_data(list, 0) = qi_get(state, "p");
  767. return list;
  768. }
  769. inline static qi_list_t *__qistd128(qi_state_t *state) {
  770. qi_list_t *list = qi_list_make_n(1);
  771. qi_list_data(list, 0) = qi_get(state, "s");
  772. return list;
  773. }
  774. inline static qi_list_t *__qistd129(qi_state_t *state) {
  775. qi_list_t *list = qi_list_make_n(1);
  776. qi_list_data(list, 0) = qi_get(state, "p");
  777. return list;
  778. }
  779. inline static qi_list_t *__qistd127(qi_state_t *state) {
  780. qi_list_t *list = qi_list_make_n(2);
  781. qi_list_data(list, 0) = qi_get(state, "s");
  782. qi_list_data(list, 1) = qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd128(state)), qi_call(state, qi_get(state, "len"), __qistd129(state)));
  783. return list;
  784. }
  785. qi_value_t *__qistd122(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  786. qi_decl(state, "p", qi_list_index(pargs, 1));
  787. qi_decl(state, "s", qi_list_index(pargs, 0));
  788. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd123(state)), qi_make_string(state, "string")))) {
  789. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd124(state))));}
  790. if (_qi_truthy(state, qi_lt(state, qi_call(state, qi_get(state, "len"), __qistd125(state)), qi_call(state, qi_get(state, "len"), __qistd126(state))))) {
  791. return qi_get(state, "false");}
  792. return qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd127(state)), qi_get(state, "p"));
  793. return state->nil;
  794. }
  795. inline static qi_list_t *__qistd131(qi_state_t *state) {
  796. qi_list_t *list = qi_list_make_n(1);
  797. qi_list_data(list, 0) = qi_get(state, "arguments");
  798. return list;
  799. }
  800. inline static qi_list_t *__qistd132(qi_state_t *state) {
  801. qi_list_t *list = qi_list_make_n(1);
  802. qi_list_data(list, 0) = qi_get(state, "s");
  803. return list;
  804. }
  805. inline static qi_list_t *__qistd133(qi_state_t *state) {
  806. qi_list_t *list = qi_list_make_n(1);
  807. qi_list_data(list, 0) = qi_get(state, "s");
  808. return list;
  809. }
  810. inline static qi_list_t *__qistd134(qi_state_t *state) {
  811. qi_list_t *list = qi_list_make_n(1);
  812. qi_list_data(list, 0) = qi_get(state, "s");
  813. return list;
  814. }
  815. inline static qi_list_t *__qistd135(qi_state_t *state) {
  816. qi_list_t *list = qi_list_make_n(1);
  817. qi_list_data(list, 0) = qi_get(state, "d");
  818. return list;
  819. }
  820. inline static qi_list_t *__qistd136(qi_state_t *state) {
  821. qi_list_t *list = qi_list_make_n(1);
  822. qi_list_data(list, 0) = qi_get(state, "s");
  823. return list;
  824. }
  825. inline static qi_list_t *__qistd138(qi_state_t *state) {
  826. qi_list_t *list = qi_list_make_n(1);
  827. qi_list_data(list, 0) = qi_get(state, "s");
  828. return list;
  829. }
  830. inline static qi_list_t *__qistd140(qi_state_t *state) {
  831. qi_list_t *list = qi_list_make_n(1);
  832. qi_list_data(list, 0) = qi_get(state, "d");
  833. return list;
  834. }
  835. inline static qi_list_t *__qistd139(qi_state_t *state) {
  836. qi_list_t *list = qi_list_make_n(3);
  837. qi_list_data(list, 0) = qi_get(state, "s");
  838. qi_list_data(list, 1) = qi_get(state, "i");
  839. qi_list_data(list, 2) = qi_sub(state, qi_add(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd140(state))), qi_make_number(state, 1));
  840. return list;
  841. }
  842. inline static qi_list_t *__qistd141(qi_state_t *state) {
  843. qi_list_t *list = qi_list_make_n(2);
  844. qi_list_data(list, 0) = qi_get(state, "r");
  845. qi_list_data(list, 1) = qi_get(state, "t");
  846. return list;
  847. }
  848. inline static qi_list_t *__qistd142(qi_state_t *state) {
  849. qi_list_t *list = qi_list_make_n(1);
  850. qi_list_data(list, 0) = qi_get(state, "d");
  851. return list;
  852. }
  853. inline static qi_list_t *__qistd143(qi_state_t *state) {
  854. qi_list_t *list = qi_list_make_n(2);
  855. qi_list_data(list, 0) = qi_get(state, "r");
  856. qi_list_data(list, 1) = qi_get(state, "t");
  857. return list;
  858. }
  859. qi_value_t *__qistd130(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  860. qi_decl(state, "s", qi_list_index(pargs, 0));
  861. if (_qi_truthy(state, qi_or(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd131(state)), qi_make_number(state, 1)), qi_equals(state, qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1)), state->empty_string)))) {
  862. return qi_call(state, qi_get(state, "list"), __qistd132(state));}
  863. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd133(state)), qi_make_string(state, "string")))) {
  864. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be:!string, but got: "), qi_call(state, qi_get(state, "type"), __qistd134(state))));}
  865. qi_decl(state, "r", qi_make_list(state, NULL));
  866. qi_decl(state, "d", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1)));
  867. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd135(state)), qi_make_string(state, "string")))) {
  868. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd136(state))));}
  869. qi_decl(state, "t", state->empty_string);
  870. qi_decl(state, "i", qi_make_number(state, 0));
  871. while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd138(state))))) {
  872. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd139(state)), qi_get(state, "d")))) {
  873. (void)(qi_call(state, qi_get(state, "list_push"), __qistd141(state)));
  874. (void)(qi_set(state, false, "t", state->empty_string));
  875. (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd142(state)), qi_make_number(state, 1)))));
  876. goto __continue137;
  877. }
  878. (void)(qi_set(state, false, "t", qi_add(state, qi_get(state, "t"), qi_index(state, qi_get(state, "s"), qi_get(state, "i")))));
  879. __continue137:;
  880. qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
  881. }
  882. __break137:;
  883. if (_qi_truthy(state, qi_not_equals(state, qi_get(state, "t"), state->empty_string))) {
  884. (void)(qi_call(state, qi_get(state, "list_push"), __qistd143(state)));}
  885. return qi_get(state, "r");
  886. return state->nil;
  887. }
  888. inline static qi_list_t *__qistd145(qi_state_t *state) {
  889. qi_list_t *list = qi_list_make_n(1);
  890. qi_list_data(list, 0) = qi_get(state, "s");
  891. return list;
  892. }
  893. inline static qi_list_t *__qistd146(qi_state_t *state) {
  894. qi_list_t *list = qi_list_make_n(1);
  895. qi_list_data(list, 0) = qi_get(state, "s");
  896. return list;
  897. }
  898. inline static qi_list_t *__qistd147(qi_state_t *state) {
  899. qi_list_t *list = qi_list_make_n(1);
  900. qi_list_data(list, 0) = qi_get(state, "w");
  901. return list;
  902. }
  903. inline static qi_list_t *__qistd148(qi_state_t *state) {
  904. qi_list_t *list = qi_list_make_n(1);
  905. qi_list_data(list, 0) = qi_get(state, "w");
  906. return list;
  907. }
  908. inline static qi_list_t *__qistd149(qi_state_t *state) {
  909. qi_list_t *list = qi_list_make_n(1);
  910. qi_list_data(list, 0) = qi_get(state, "b");
  911. return list;
  912. }
  913. inline static qi_list_t *__qistd150(qi_state_t *state) {
  914. qi_list_t *list = qi_list_make_n(1);
  915. qi_list_data(list, 0) = qi_get(state, "b");
  916. return list;
  917. }
  918. inline static qi_list_t *__qistd152(qi_state_t *state) {
  919. qi_list_t *list = qi_list_make_n(1);
  920. qi_list_data(list, 0) = qi_get(state, "s");
  921. return list;
  922. }
  923. inline static qi_list_t *__qistd154(qi_state_t *state) {
  924. qi_list_t *list = qi_list_make_n(1);
  925. qi_list_data(list, 0) = qi_get(state, "w");
  926. return list;
  927. }
  928. inline static qi_list_t *__qistd153(qi_state_t *state) {
  929. qi_list_t *list = qi_list_make_n(3);
  930. qi_list_data(list, 0) = qi_get(state, "s");
  931. qi_list_data(list, 1) = qi_get(state, "i");
  932. qi_list_data(list, 2) = qi_sub(state, qi_add(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd154(state))), qi_make_number(state, 1));
  933. return list;
  934. }
  935. inline static qi_list_t *__qistd155(qi_state_t *state) {
  936. qi_list_t *list = qi_list_make_n(1);
  937. qi_list_data(list, 0) = qi_get(state, "w");
  938. return list;
  939. }
  940. qi_value_t *__qistd144(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  941. qi_decl(state, "b", qi_list_index(pargs, 2));
  942. qi_decl(state, "s", qi_list_index(pargs, 0));
  943. qi_decl(state, "w", qi_list_index(pargs, 1));
  944. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd145(state)), qi_make_string(state, "string")))) {
  945. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd146(state))));}
  946. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd147(state)), qi_make_string(state, "string")))) {
  947. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd148(state))));}
  948. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd149(state)), qi_make_string(state, "string")))) {
  949. qi_throw(state, qi_add(state, qi_make_string(state, "expected third argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd150(state))));}
  950. qi_decl(state, "r", state->empty_string);
  951. qi_decl(state, "i", qi_make_number(state, 0));
  952. while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd152(state))))) {
  953. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd153(state)), qi_get(state, "w")))) {
  954. (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_get(state, "b"))));
  955. (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd155(state)), qi_make_number(state, 1)))));
  956. goto __continue151;
  957. }
  958. (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_index(state, qi_get(state, "s"), qi_get(state, "i")))));
  959. __continue151:;
  960. qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
  961. }
  962. __break151:;
  963. return qi_get(state, "r");
  964. return state->nil;
  965. }
  966. inline static qi_list_t *__qistd157(qi_state_t *state) {
  967. qi_list_t *list = qi_list_make_n(1);
  968. qi_list_data(list, 0) = qi_get(state, "t");
  969. return list;
  970. }
  971. inline static qi_list_t *__qistd158(qi_state_t *state) {
  972. qi_list_t *list = qi_list_make_n(1);
  973. qi_list_data(list, 0) = qi_get(state, "t");
  974. return list;
  975. }
  976. inline static qi_list_t *__qistd161(qi_state_t *state) {
  977. qi_list_t *list = qi_list_make_n(2);
  978. qi_list_data(list, 0) = qi_get(state, "r");
  979. qi_list_data(list, 1) = qi_get(state, "k");
  980. return list;
  981. }
  982. qi_value_t *__qistd156(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  983. qi_decl(state, "t", qi_list_index(pargs, 0));
  984. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd157(state)), qi_make_string(state, "table")))) {
  985. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: table, but got: "), qi_call(state, qi_get(state, "type"), __qistd158(state))));}
  986. qi_decl(state, "r", qi_make_list(state, NULL));
  987. qi_value_t *__qistd160 = qi_iter(state, qi_get(state, "t"));
  988. qi_decl(state, "k", state->nil);
  989. for (qi_size_t length = _qi_length(state, __qistd160), i = 0; i < length; i++) {
  990. qi_set(state, false, "k", qi_index(state, __qistd160, qi_make_number(state, i)));
  991. (void)(qi_call(state, qi_get(state, "list_push"), __qistd161(state)));__continue159:;
  992. }
  993. __break159:;
  994. return qi_get(state, "r");
  995. return state->nil;
  996. }
  997. inline static qi_list_t *__qistd163(qi_state_t *state) {
  998. qi_list_t *list = qi_list_make_n(1);
  999. qi_list_data(list, 0) = qi_get(state, "t");
  1000. return list;
  1001. }
  1002. inline static qi_list_t *__qistd164(qi_state_t *state) {
  1003. qi_list_t *list = qi_list_make_n(1);
  1004. qi_list_data(list, 0) = qi_get(state, "t");
  1005. return list;
  1006. }
  1007. inline static qi_list_t *__qistd167(qi_state_t *state) {
  1008. qi_list_t *list = qi_list_make_n(2);
  1009. qi_list_data(list, 0) = qi_get(state, "r");
  1010. qi_list_data(list, 1) = qi_index(state, qi_get(state, "t"), qi_get(state, "k"));
  1011. return list;
  1012. }
  1013. qi_value_t *__qistd162(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1014. qi_decl(state, "t", qi_list_index(pargs, 0));
  1015. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd163(state)), qi_make_string(state, "table")))) {
  1016. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: table, but got: "), qi_call(state, qi_get(state, "type"), __qistd164(state))));}
  1017. qi_decl(state, "r", qi_make_list(state, NULL));
  1018. qi_value_t *__qistd166 = qi_iter(state, qi_get(state, "t"));
  1019. qi_decl(state, "k", state->nil);
  1020. for (qi_size_t length = _qi_length(state, __qistd166), i = 0; i < length; i++) {
  1021. qi_set(state, false, "k", qi_index(state, __qistd166, qi_make_number(state, i)));
  1022. (void)(qi_call(state, qi_get(state, "list_push"), __qistd167(state)));__continue165:;
  1023. }
  1024. __break165:;
  1025. return qi_get(state, "r");
  1026. return state->nil;
  1027. }
  1028. inline static qi_list_t *__qistd169(qi_state_t *state) {
  1029. qi_list_t *list = qi_list_make_n(1);
  1030. qi_list_data(list, 0) = qi_get(state, "f");
  1031. return list;
  1032. }
  1033. inline static qi_list_t *__qistd170(qi_state_t *state) {
  1034. qi_list_t *list = qi_list_make_n(1);
  1035. qi_list_data(list, 0) = qi_get(state, "f");
  1036. return list;
  1037. }
  1038. inline static qi_list_t *__qistd171(qi_state_t *state) {
  1039. qi_list_t *list = qi_list_make_n(1);
  1040. qi_list_data(list, 0) = qi_get(state, "xs");
  1041. return list;
  1042. }
  1043. inline static qi_list_t *__qistd172(qi_state_t *state) {
  1044. qi_list_t *list = qi_list_make_n(4);
  1045. qi_list_data(list, 0) = qi_make_string(state, "list");
  1046. qi_list_data(list, 1) = qi_make_string(state, "tuple");
  1047. qi_list_data(list, 2) = qi_make_string(state, "string");
  1048. qi_list_data(list, 3) = qi_make_string(state, "bytes");
  1049. return list;
  1050. }
  1051. inline static qi_list_t *__qistd173(qi_state_t *state) {
  1052. qi_list_t *list = qi_list_make_n(1);
  1053. qi_list_data(list, 0) = qi_get(state, "xs");
  1054. return list;
  1055. }
  1056. inline static qi_list_t *__qistd174(qi_state_t *state) {
  1057. qi_list_t *list = qi_list_make_n(1);
  1058. qi_list_data(list, 0) = qi_get(state, "xs");
  1059. return list;
  1060. }
  1061. inline static qi_list_t *__qistd177(qi_state_t *state) {
  1062. qi_list_t *list = qi_list_make_n(2);
  1063. qi_list_data(list, 0) = qi_get(state, "xs");
  1064. qi_list_data(list, 1) = qi_make_number(state, 1);
  1065. return list;
  1066. }
  1067. inline static qi_list_t *__qistd178(qi_state_t *state) {
  1068. qi_list_t *list = qi_list_make_n(2);
  1069. qi_list_data(list, 0) = qi_get(state, "r");
  1070. qi_list_data(list, 1) = qi_get(state, "x");
  1071. return list;
  1072. }
  1073. inline static qi_list_t *__qistd179(qi_state_t *state) {
  1074. qi_list_t *list = qi_list_make_n(1);
  1075. qi_list_data(list, 0) = qi_get(state, "xs");
  1076. return list;
  1077. }
  1078. inline static qi_list_t *__qistd180(qi_state_t *state) {
  1079. qi_list_t *list = qi_list_make_n(1);
  1080. qi_list_data(list, 0) = qi_get(state, "r");
  1081. return list;
  1082. }
  1083. inline static qi_list_t *__qistd181(qi_state_t *state) {
  1084. qi_list_t *list = qi_list_make_n(1);
  1085. qi_list_data(list, 0) = qi_get(state, "xs");
  1086. return list;
  1087. }
  1088. inline static qi_list_t *__qistd182(qi_state_t *state) {
  1089. qi_list_t *list = qi_list_make_n(1);
  1090. qi_list_data(list, 0) = qi_get(state, "r");
  1091. return list;
  1092. }
  1093. inline static qi_list_t *__qistd183(qi_state_t *state) {
  1094. qi_list_t *list = qi_list_make_n(1);
  1095. qi_list_data(list, 0) = qi_get(state, "xs");
  1096. return list;
  1097. }
  1098. inline static qi_list_t *__qistd184(qi_state_t *state) {
  1099. qi_list_t *list = qi_list_make_n(1);
  1100. qi_list_data(list, 0) = qi_get(state, "r");
  1101. return list;
  1102. }
  1103. qi_value_t *__qistd168(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1104. qi_decl(state, "f", qi_list_index(pargs, 0));
  1105. qi_decl(state, "xs", qi_list_index(pargs, 1));
  1106. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd169(state)), qi_make_string(state, "function")))) {
  1107. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd170(state))));}
  1108. if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd171(state)), qi_make_tuple(state, __qistd172(state))))) {
  1109. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: list, tuple, string or bytes, but got: "), qi_call(state, qi_get(state, "type"), __qistd173(state))));}
  1110. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd174(state)), qi_make_number(state, 0)))) {
  1111. qi_throw(state, qi_make_string(state, "cannot reduce empty list"));}
  1112. (void)(qi_set(state, false, "r", qi_index(state, qi_get(state, "xs"), qi_make_number(state, 0))));
  1113. qi_value_t *__qistd176 = qi_iter(state, qi_call(state, qi_get(state, "slice"), __qistd177(state)));
  1114. qi_decl(state, "x", state->nil);
  1115. for (qi_size_t length = _qi_length(state, __qistd176), i = 0; i < length; i++) {
  1116. qi_set(state, false, "x", qi_index(state, __qistd176, qi_make_number(state, i)));
  1117. (void)(qi_set(state, false, "r", qi_call(state, qi_get(state, "f"), __qistd178(state))));__continue175:;
  1118. }
  1119. __break175:;
  1120. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd179(state)), qi_make_string(state, "tuple")))) {
  1121. return qi_call(state, qi_get(state, "tuple"), __qistd180(state));} else {
  1122. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd181(state)), qi_make_string(state, "string")))) {
  1123. return qi_call(state, qi_get(state, "list_join"), __qistd182(state));} else {
  1124. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd183(state)), qi_make_string(state, "bytes")))) {
  1125. return qi_call(state, qi_get(state, "bytes"), __qistd184(state));}}}
  1126. return qi_get(state, "r");
  1127. return state->nil;
  1128. }
  1129. qi_value_t *__qistd187(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1130. qi_decl(state, "x", qi_list_index(pargs, 0));
  1131. qi_decl(state, "y", qi_list_index(pargs, 1));
  1132. return qi_add(state, qi_get(state, "x"), qi_get(state, "y"));return state->nil;
  1133. }
  1134. inline static qi_list_t *__qistd186(qi_state_t *state) {
  1135. qi_list_t *list = qi_list_make_n(2);
  1136. qi_list_data(list, 0) = qi_make_function(state, "<anon>", 2, __qistd187, NULL);
  1137. qi_list_data(list, 1) = qi_get(state, "xs");
  1138. return list;
  1139. }
  1140. qi_value_t *__qistd185(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1141. qi_decl(state, "xs", qi_list_index(pargs, 0));
  1142. return qi_call(state, qi_get(state, "reduce"), __qistd186(state));return state->nil;
  1143. }
  1144. qi_value_t *__qistd190(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1145. qi_decl(state, "x", qi_list_index(pargs, 0));
  1146. qi_decl(state, "y", qi_list_index(pargs, 1));
  1147. return qi_mul(state, qi_get(state, "x"), qi_get(state, "y"));return state->nil;
  1148. }
  1149. inline static qi_list_t *__qistd189(qi_state_t *state) {
  1150. qi_list_t *list = qi_list_make_n(2);
  1151. qi_list_data(list, 0) = qi_make_function(state, "<anon>", 2, __qistd190, NULL);
  1152. qi_list_data(list, 1) = qi_get(state, "xs");
  1153. return list;
  1154. }
  1155. qi_value_t *__qistd188(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1156. qi_decl(state, "xs", qi_list_index(pargs, 0));
  1157. return qi_call(state, qi_get(state, "reduce"), __qistd189(state));return state->nil;
  1158. }
  1159. inline static qi_list_t *__qistd192(qi_state_t *state) {
  1160. qi_list_t *list = qi_list_make_n(1);
  1161. qi_list_data(list, 0) = qi_get(state, "f");
  1162. return list;
  1163. }
  1164. inline static qi_list_t *__qistd193(qi_state_t *state) {
  1165. qi_list_t *list = qi_list_make_n(1);
  1166. qi_list_data(list, 0) = qi_get(state, "f");
  1167. return list;
  1168. }
  1169. inline static qi_list_t *__qistd194(qi_state_t *state) {
  1170. qi_list_t *list = qi_list_make_n(1);
  1171. qi_list_data(list, 0) = qi_get(state, "xs");
  1172. return list;
  1173. }
  1174. inline static qi_list_t *__qistd195(qi_state_t *state) {
  1175. qi_list_t *list = qi_list_make_n(4);
  1176. qi_list_data(list, 0) = qi_make_string(state, "list");
  1177. qi_list_data(list, 1) = qi_make_string(state, "tuple");
  1178. qi_list_data(list, 2) = qi_make_string(state, "string");
  1179. qi_list_data(list, 3) = qi_make_string(state, "bytes");
  1180. return list;
  1181. }
  1182. inline static qi_list_t *__qistd196(qi_state_t *state) {
  1183. qi_list_t *list = qi_list_make_n(1);
  1184. qi_list_data(list, 0) = qi_get(state, "xs");
  1185. return list;
  1186. }
  1187. inline static qi_list_t *__qistd197(qi_state_t *state) {
  1188. qi_list_t *list = qi_list_make_n(1);
  1189. qi_list_data(list, 0) = qi_get(state, "xs");
  1190. return list;
  1191. }
  1192. inline static qi_list_t *__qistd201(qi_state_t *state) {
  1193. qi_list_t *list = qi_list_make_n(1);
  1194. qi_list_data(list, 0) = qi_get(state, "x");
  1195. return list;
  1196. }
  1197. inline static qi_list_t *__qistd200(qi_state_t *state) {
  1198. qi_list_t *list = qi_list_make_n(2);
  1199. qi_list_data(list, 0) = qi_get(state, "r");
  1200. qi_list_data(list, 1) = qi_call(state, qi_get(state, "f"), __qistd201(state));
  1201. return list;
  1202. }
  1203. inline static qi_list_t *__qistd202(qi_state_t *state) {
  1204. qi_list_t *list = qi_list_make_n(1);
  1205. qi_list_data(list, 0) = qi_get(state, "xs");
  1206. return list;
  1207. }
  1208. inline static qi_list_t *__qistd203(qi_state_t *state) {
  1209. qi_list_t *list = qi_list_make_n(1);
  1210. qi_list_data(list, 0) = qi_get(state, "r");
  1211. return list;
  1212. }
  1213. inline static qi_list_t *__qistd204(qi_state_t *state) {
  1214. qi_list_t *list = qi_list_make_n(1);
  1215. qi_list_data(list, 0) = qi_get(state, "xs");
  1216. return list;
  1217. }
  1218. inline static qi_list_t *__qistd205(qi_state_t *state) {
  1219. qi_list_t *list = qi_list_make_n(1);
  1220. qi_list_data(list, 0) = qi_get(state, "r");
  1221. return list;
  1222. }
  1223. inline static qi_list_t *__qistd206(qi_state_t *state) {
  1224. qi_list_t *list = qi_list_make_n(1);
  1225. qi_list_data(list, 0) = qi_get(state, "xs");
  1226. return list;
  1227. }
  1228. inline static qi_list_t *__qistd207(qi_state_t *state) {
  1229. qi_list_t *list = qi_list_make_n(1);
  1230. qi_list_data(list, 0) = qi_get(state, "r");
  1231. return list;
  1232. }
  1233. qi_value_t *__qistd191(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1234. qi_decl(state, "f", qi_list_index(pargs, 0));
  1235. qi_decl(state, "xs", qi_list_index(pargs, 1));
  1236. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd192(state)), qi_make_string(state, "function")))) {
  1237. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd193(state))));}
  1238. if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd194(state)), qi_make_tuple(state, __qistd195(state))))) {
  1239. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: list, tuple, string or bytes, but got: "), qi_call(state, qi_get(state, "type"), __qistd196(state))));}
  1240. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd197(state)), qi_make_number(state, 0)))) {
  1241. return qi_get(state, "xs");}
  1242. qi_decl(state, "r", qi_make_list(state, NULL));
  1243. qi_value_t *__qistd199 = qi_iter(state, qi_get(state, "xs"));
  1244. qi_decl(state, "x", state->nil);
  1245. for (qi_size_t length = _qi_length(state, __qistd199), i = 0; i < length; i++) {
  1246. qi_set(state, false, "x", qi_index(state, __qistd199, qi_make_number(state, i)));
  1247. (void)(qi_call(state, qi_get(state, "list_push"), __qistd200(state)));__continue198:;
  1248. }
  1249. __break198:;
  1250. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd202(state)), qi_make_string(state, "tuple")))) {
  1251. return qi_call(state, qi_get(state, "tuple"), __qistd203(state));} else {
  1252. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd204(state)), qi_make_string(state, "string")))) {
  1253. return qi_call(state, qi_get(state, "list_join"), __qistd205(state));} else {
  1254. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd206(state)), qi_make_string(state, "bytes")))) {
  1255. return qi_call(state, qi_get(state, "bytes"), __qistd207(state));}}}
  1256. return qi_get(state, "r");
  1257. return state->nil;
  1258. }
  1259. inline static qi_list_t *__qistd209(qi_state_t *state) {
  1260. qi_list_t *list = qi_list_make_n(1);
  1261. qi_list_data(list, 0) = qi_get(state, "f");
  1262. return list;
  1263. }
  1264. inline static qi_list_t *__qistd210(qi_state_t *state) {
  1265. qi_list_t *list = qi_list_make_n(1);
  1266. qi_list_data(list, 0) = qi_get(state, "f");
  1267. return list;
  1268. }
  1269. inline static qi_list_t *__qistd211(qi_state_t *state) {
  1270. qi_list_t *list = qi_list_make_n(1);
  1271. qi_list_data(list, 0) = qi_get(state, "xs");
  1272. return list;
  1273. }
  1274. inline static qi_list_t *__qistd212(qi_state_t *state) {
  1275. qi_list_t *list = qi_list_make_n(4);
  1276. qi_list_data(list, 0) = qi_make_string(state, "list");
  1277. qi_list_data(list, 1) = qi_make_string(state, "tuple");
  1278. qi_list_data(list, 2) = qi_make_string(state, "string");
  1279. qi_list_data(list, 3) = qi_make_string(state, "bytes");
  1280. return list;
  1281. }
  1282. inline static qi_list_t *__qistd213(qi_state_t *state) {
  1283. qi_list_t *list = qi_list_make_n(1);
  1284. qi_list_data(list, 0) = qi_get(state, "xs");
  1285. return list;
  1286. }
  1287. inline static qi_list_t *__qistd214(qi_state_t *state) {
  1288. qi_list_t *list = qi_list_make_n(1);
  1289. qi_list_data(list, 0) = qi_get(state, "xs");
  1290. return list;
  1291. }
  1292. inline static qi_list_t *__qistd217(qi_state_t *state) {
  1293. qi_list_t *list = qi_list_make_n(1);
  1294. qi_list_data(list, 0) = qi_get(state, "x");
  1295. return list;
  1296. }
  1297. inline static qi_list_t *__qistd218(qi_state_t *state) {
  1298. qi_list_t *list = qi_list_make_n(2);
  1299. qi_list_data(list, 0) = qi_get(state, "r");
  1300. qi_list_data(list, 1) = qi_get(state, "x");
  1301. return list;
  1302. }
  1303. inline static qi_list_t *__qistd219(qi_state_t *state) {
  1304. qi_list_t *list = qi_list_make_n(1);
  1305. qi_list_data(list, 0) = qi_get(state, "xs");
  1306. return list;
  1307. }
  1308. inline static qi_list_t *__qistd220(qi_state_t *state) {
  1309. qi_list_t *list = qi_list_make_n(1);
  1310. qi_list_data(list, 0) = qi_get(state, "r");
  1311. return list;
  1312. }
  1313. inline static qi_list_t *__qistd221(qi_state_t *state) {
  1314. qi_list_t *list = qi_list_make_n(1);
  1315. qi_list_data(list, 0) = qi_get(state, "xs");
  1316. return list;
  1317. }
  1318. inline static qi_list_t *__qistd222(qi_state_t *state) {
  1319. qi_list_t *list = qi_list_make_n(1);
  1320. qi_list_data(list, 0) = qi_get(state, "r");
  1321. return list;
  1322. }
  1323. inline static qi_list_t *__qistd223(qi_state_t *state) {
  1324. qi_list_t *list = qi_list_make_n(1);
  1325. qi_list_data(list, 0) = qi_get(state, "xs");
  1326. return list;
  1327. }
  1328. inline static qi_list_t *__qistd224(qi_state_t *state) {
  1329. qi_list_t *list = qi_list_make_n(1);
  1330. qi_list_data(list, 0) = qi_get(state, "r");
  1331. return list;
  1332. }
  1333. qi_value_t *__qistd208(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1334. qi_decl(state, "f", qi_list_index(pargs, 0));
  1335. qi_decl(state, "xs", qi_list_index(pargs, 1));
  1336. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd209(state)), qi_make_string(state, "function")))) {
  1337. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd210(state))));}
  1338. if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd211(state)), qi_make_tuple(state, __qistd212(state))))) {
  1339. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: list, tuple, string or bytes, but got: "), qi_call(state, qi_get(state, "type"), __qistd213(state))));}
  1340. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd214(state)), qi_make_number(state, 0)))) {
  1341. return qi_get(state, "xs");}
  1342. qi_decl(state, "r", qi_make_list(state, NULL));
  1343. qi_value_t *__qistd216 = qi_iter(state, qi_get(state, "xs"));
  1344. qi_decl(state, "x", state->nil);
  1345. for (qi_size_t length = _qi_length(state, __qistd216), i = 0; i < length; i++) {
  1346. qi_set(state, false, "x", qi_index(state, __qistd216, qi_make_number(state, i)));
  1347. if (_qi_truthy(state, qi_call(state, qi_get(state, "f"), __qistd217(state)))) {
  1348. (void)(qi_call(state, qi_get(state, "list_push"), __qistd218(state)));}__continue215:;
  1349. }
  1350. __break215:;
  1351. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd219(state)), qi_make_string(state, "tuple")))) {
  1352. return qi_call(state, qi_get(state, "tuple"), __qistd220(state));} else {
  1353. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd221(state)), qi_make_string(state, "string")))) {
  1354. return qi_call(state, qi_get(state, "list_join"), __qistd222(state));} else {
  1355. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd223(state)), qi_make_string(state, "bytes")))) {
  1356. return qi_call(state, qi_get(state, "bytes"), __qistd224(state));}}}
  1357. return qi_get(state, "r");
  1358. return state->nil;
  1359. }
  1360. inline static qi_list_t *__qistd226(qi_state_t *state) {
  1361. qi_list_t *list = qi_list_make_n(1);
  1362. qi_list_data(list, 0) = qi_get(state, "s");
  1363. return list;
  1364. }
  1365. inline static qi_list_t *__qistd227(qi_state_t *state) {
  1366. qi_list_t *list = qi_list_make_n(1);
  1367. qi_list_data(list, 0) = qi_get(state, "s");
  1368. return list;
  1369. }
  1370. inline static qi_list_t *__qistd228(qi_state_t *state) {
  1371. qi_list_t *list = qi_list_make_n(1);
  1372. qi_list_data(list, 0) = qi_get(state, "w");
  1373. return list;
  1374. }
  1375. inline static qi_list_t *__qistd229(qi_state_t *state) {
  1376. qi_list_t *list = qi_list_make_n(1);
  1377. qi_list_data(list, 0) = qi_get(state, "w");
  1378. return list;
  1379. }
  1380. inline static qi_list_t *__qistd231(qi_state_t *state) {
  1381. qi_list_t *list = qi_list_make_n(1);
  1382. qi_list_data(list, 0) = qi_get(state, "s");
  1383. return list;
  1384. }
  1385. inline static qi_list_t *__qistd232(qi_state_t *state) {
  1386. qi_list_t *list = qi_list_make_n(1);
  1387. qi_list_data(list, 0) = qi_get(state, "w");
  1388. return list;
  1389. }
  1390. inline static qi_list_t *__qistd234(qi_state_t *state) {
  1391. qi_list_t *list = qi_list_make_n(1);
  1392. qi_list_data(list, 0) = qi_get(state, "w");
  1393. return list;
  1394. }
  1395. inline static qi_list_t *__qistd233(qi_state_t *state) {
  1396. qi_list_t *list = qi_list_make_n(3);
  1397. qi_list_data(list, 0) = qi_get(state, "s");
  1398. qi_list_data(list, 1) = qi_get(state, "i");
  1399. qi_list_data(list, 2) = qi_sub(state, qi_add(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd234(state))), qi_make_number(state, 1));
  1400. return list;
  1401. }
  1402. qi_value_t *__qistd225(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1403. qi_decl(state, "s", qi_list_index(pargs, 0));
  1404. qi_decl(state, "w", qi_list_index(pargs, 1));
  1405. 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)))) {
  1406. return qi_negate(state, qi_make_number(state, 1));}
  1407. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd226(state)), qi_make_string(state, "string")))) {
  1408. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd227(state))));}
  1409. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd228(state)), qi_make_string(state, "string")))) {
  1410. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd229(state))));}
  1411. qi_decl(state, "i", qi_make_number(state, 0));
  1412. while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd231(state))))) {
  1413. if (_qi_truthy(state, qi_and(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd232(state)), qi_make_number(state, 1)), qi_equals(state, qi_index(state, qi_get(state, "s"), qi_get(state, "i")), qi_get(state, "w"))))) {
  1414. return qi_get(state, "i");} else {
  1415. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd233(state)), qi_get(state, "w")))) {
  1416. return qi_get(state, "i");}}__continue230:;
  1417. qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
  1418. }
  1419. __break230:;
  1420. return qi_negate(state, qi_make_number(state, 1));
  1421. return state->nil;
  1422. }
  1423. inline static qi_list_t *__qistd236(qi_state_t *state) {
  1424. qi_list_t *list = qi_list_make_n(1);
  1425. qi_list_data(list, 0) = qi_get(state, "s");
  1426. return list;
  1427. }
  1428. inline static qi_list_t *__qistd237(qi_state_t *state) {
  1429. qi_list_t *list = qi_list_make_n(1);
  1430. qi_list_data(list, 0) = qi_get(state, "s");
  1431. return list;
  1432. }
  1433. inline static qi_list_t *__qistd238(qi_state_t *state) {
  1434. qi_list_t *list = qi_list_make_n(1);
  1435. qi_list_data(list, 0) = qi_get(state, "cs");
  1436. return list;
  1437. }
  1438. inline static qi_list_t *__qistd239(qi_state_t *state) {
  1439. qi_list_t *list = qi_list_make_n(1);
  1440. qi_list_data(list, 0) = qi_get(state, "cs");
  1441. return list;
  1442. }
  1443. inline static qi_list_t *__qistd241(qi_state_t *state) {
  1444. qi_list_t *list = qi_list_make_n(1);
  1445. qi_list_data(list, 0) = qi_get(state, "s");
  1446. return list;
  1447. }
  1448. inline static qi_list_t *__qistd242(qi_state_t *state) {
  1449. qi_list_t *list = qi_list_make_n(2);
  1450. qi_list_data(list, 0) = qi_get(state, "s");
  1451. qi_list_data(list, 1) = qi_get(state, "i");
  1452. return list;
  1453. }
  1454. qi_value_t *__qistd235(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1455. qi_decl(state, "s", qi_list_index(pargs, 0));
  1456. qi_decl(state, "cs", pargc >= 2? qi_list_index(pargs, 1): qi_make_string(state, " \t\n\r\x0b\x0c"));
  1457. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd236(state)), qi_make_string(state, "string")))) {
  1458. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd237(state))));}
  1459. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd238(state)), qi_make_string(state, "string")))) {
  1460. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd239(state))));}
  1461. if (_qi_truthy(state, qi_equals(state, qi_get(state, "s"), state->empty_string))) {
  1462. return qi_get(state, "s");}
  1463. qi_decl(state, "i", qi_make_number(state, 0));
  1464. 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"), __qistd241(state)))))) {
  1465. __continue240:;
  1466. qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
  1467. }
  1468. __break240:;
  1469. return qi_call(state, qi_get(state, "slice"), __qistd242(state));
  1470. return state->nil;
  1471. }
  1472. inline static qi_list_t *__qistd244(qi_state_t *state) {
  1473. qi_list_t *list = qi_list_make_n(1);
  1474. qi_list_data(list, 0) = qi_get(state, "s");
  1475. return list;
  1476. }
  1477. inline static qi_list_t *__qistd245(qi_state_t *state) {
  1478. qi_list_t *list = qi_list_make_n(1);
  1479. qi_list_data(list, 0) = qi_get(state, "s");
  1480. return list;
  1481. }
  1482. inline static qi_list_t *__qistd246(qi_state_t *state) {
  1483. qi_list_t *list = qi_list_make_n(1);
  1484. qi_list_data(list, 0) = qi_get(state, "cs");
  1485. return list;
  1486. }
  1487. inline static qi_list_t *__qistd247(qi_state_t *state) {
  1488. qi_list_t *list = qi_list_make_n(1);
  1489. qi_list_data(list, 0) = qi_get(state, "cs");
  1490. return list;
  1491. }
  1492. inline static qi_list_t *__qistd249(qi_state_t *state) {
  1493. qi_list_t *list = qi_list_make_n(1);
  1494. qi_list_data(list, 0) = qi_get(state, "s");
  1495. return list;
  1496. }
  1497. inline static qi_list_t *__qistd251(qi_state_t *state) {
  1498. qi_list_t *list = qi_list_make_n(1);
  1499. qi_list_data(list, 0) = qi_get(state, "s");
  1500. return list;
  1501. }
  1502. inline static qi_list_t *__qistd250(qi_state_t *state) {
  1503. qi_list_t *list = qi_list_make_n(3);
  1504. qi_list_data(list, 0) = qi_get(state, "s");
  1505. qi_list_data(list, 1) = qi_make_number(state, 0);
  1506. qi_list_data(list, 2) = qi_sub(state, qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd251(state)), qi_get(state, "k")), qi_make_number(state, 1));
  1507. return list;
  1508. }
  1509. qi_value_t *__qistd243(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1510. qi_decl(state, "s", qi_list_index(pargs, 0));
  1511. qi_decl(state, "cs", pargc >= 2? qi_list_index(pargs, 1): qi_make_string(state, " \t\n\r\x0b\x0c"));
  1512. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd244(state)), qi_make_string(state, "string")))) {
  1513. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd245(state))));}
  1514. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd246(state)), qi_make_string(state, "string")))) {
  1515. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd247(state))));}
  1516. if (_qi_truthy(state, qi_equals(state, qi_get(state, "s"), state->empty_string))) {
  1517. return qi_get(state, "s");}
  1518. qi_decl(state, "i", qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd249(state)), qi_make_number(state, 1)));
  1519. qi_decl(state, "k", qi_make_number(state, 0));
  1520. 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))))) {
  1521. (void)(qi_set(state, false, "i", qi_sub(state, qi_get(state, "i"), state->one)));__continue248:;
  1522. qi_set(state, false, "k", qi_add(state, qi_get(state, "k"), state->one));
  1523. }
  1524. __break248:;
  1525. return qi_call(state, qi_get(state, "slice"), __qistd250(state));
  1526. return state->nil;
  1527. }
  1528. inline static qi_list_t *__qistd253(qi_state_t *state) {
  1529. qi_list_t *list = qi_list_make_n(1);
  1530. qi_list_data(list, 0) = qi_get(state, "s");
  1531. return list;
  1532. }
  1533. inline static qi_list_t *__qistd254(qi_state_t *state) {
  1534. qi_list_t *list = qi_list_make_n(1);
  1535. qi_list_data(list, 0) = qi_get(state, "s");
  1536. return list;
  1537. }
  1538. inline static qi_list_t *__qistd255(qi_state_t *state) {
  1539. qi_list_t *list = qi_list_make_n(1);
  1540. qi_list_data(list, 0) = qi_get(state, "cs");
  1541. return list;
  1542. }
  1543. inline static qi_list_t *__qistd256(qi_state_t *state) {
  1544. qi_list_t *list = qi_list_make_n(1);
  1545. qi_list_data(list, 0) = qi_get(state, "cs");
  1546. return list;
  1547. }
  1548. inline static qi_list_t *__qistd258(qi_state_t *state) {
  1549. qi_list_t *list = qi_list_make_n(2);
  1550. qi_list_data(list, 0) = qi_get(state, "s");
  1551. qi_list_data(list, 1) = qi_get(state, "cs");
  1552. return list;
  1553. }
  1554. inline static qi_list_t *__qistd257(qi_state_t *state) {
  1555. qi_list_t *list = qi_list_make_n(2);
  1556. qi_list_data(list, 0) = qi_call(state, qi_get(state, "str_rstrip"), __qistd258(state));
  1557. qi_list_data(list, 1) = qi_get(state, "cs");
  1558. return list;
  1559. }
  1560. qi_value_t *__qistd252(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1561. qi_decl(state, "s", qi_list_index(pargs, 0));
  1562. qi_decl(state, "cs", pargc >= 2? qi_list_index(pargs, 1): qi_make_string(state, " \t\n\r\x0b\x0c"));
  1563. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd253(state)), qi_make_string(state, "string")))) {
  1564. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd254(state))));}
  1565. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd255(state)), qi_make_string(state, "string")))) {
  1566. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd256(state))));}
  1567. return qi_call(state, qi_get(state, "str_lstrip"), __qistd257(state));
  1568. return state->nil;
  1569. }
  1570. inline static qi_list_t *__qistd260(qi_state_t *state) {
  1571. qi_list_t *list = qi_list_make_n(1);
  1572. qi_list_data(list, 0) = qi_get(state, "t");
  1573. return list;
  1574. }
  1575. inline static qi_list_t *__qistd261(qi_state_t *state) {
  1576. qi_list_t *list = qi_list_make_n(1);
  1577. qi_list_data(list, 0) = qi_get(state, "t");
  1578. return list;
  1579. }
  1580. inline static qi_list_t *__qistd262(qi_state_t *state) {
  1581. qi_list_t *list = qi_list_make_n(1);
  1582. qi_list_data(list, 0) = qi_get(state, "k");
  1583. return list;
  1584. }
  1585. inline static qi_list_t *__qistd263(qi_state_t *state) {
  1586. qi_list_t *list = qi_list_make_n(1);
  1587. qi_list_data(list, 0) = qi_get(state, "k");
  1588. return list;
  1589. }
  1590. qi_value_t *__qistd259(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1591. qi_decl(state, "d", pargc >= 3? qi_list_index(pargs, 2): qi_get(state, "nil"));
  1592. qi_decl(state, "k", qi_list_index(pargs, 1));
  1593. qi_decl(state, "t", qi_list_index(pargs, 0));
  1594. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd260(state)), qi_make_string(state, "table")))) {
  1595. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: table, but got: "), qi_call(state, qi_get(state, "type"), __qistd261(state))));}
  1596. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd262(state)), qi_make_string(state, "string")))) {
  1597. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd263(state))));}
  1598. if (_qi_truthy(state, qi_not_in(state, qi_get(state, "k"), qi_get(state, "t")))) {
  1599. return qi_get(state, "d");}
  1600. return qi_index(state, qi_get(state, "t"), qi_get(state, "k"));
  1601. return state->nil;
  1602. }
  1603. inline static qi_list_t *__qistd265(qi_state_t *state) {
  1604. qi_list_t *list = qi_list_make_n(2);
  1605. qi_list_data(list, 0) = qi_get(state, "len");
  1606. qi_list_data(list, 1) = qi_get(state, "arguments");
  1607. return list;
  1608. }
  1609. inline static qi_list_t *__qistd266(qi_state_t *state) {
  1610. qi_list_t *list = qi_list_make_n(2);
  1611. qi_list_data(list, 0) = qi_get(state, "min");
  1612. qi_list_data(list, 1) = qi_get(state, "l");
  1613. return list;
  1614. }
  1615. inline static qi_list_t *__qistd270(qi_state_t *state) {
  1616. qi_list_t *list = qi_list_make_n(2);
  1617. qi_list_data(list, 0) = qi_get(state, "t");
  1618. qi_list_data(list, 1) = qi_index(state, qi_get(state, "xs"), qi_get(state, "i"));
  1619. return list;
  1620. }
  1621. inline static qi_list_t *__qistd271(qi_state_t *state) {
  1622. qi_list_t *list = qi_list_make_n(2);
  1623. qi_list_data(list, 0) = qi_get(state, "r");
  1624. qi_list_data(list, 1) = qi_get(state, "t");
  1625. return list;
  1626. }
  1627. qi_value_t *__qistd264(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1628. if (_qi_truthy(state, qi_not(state, qi_get(state, "arguments")))) {
  1629. return qi_make_list(state, NULL);}
  1630. qi_decl(state, "l", qi_call(state, qi_get(state, "map"), __qistd265(state)));
  1631. (void)(qi_set(state, false, "l", qi_call(state, qi_get(state, "reduce"), __qistd266(state))));
  1632. qi_decl(state, "r", qi_make_list(state, NULL));
  1633. qi_decl(state, "i", qi_make_number(state, 0));
  1634. while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_get(state, "l")))) {
  1635. qi_decl(state, "t", qi_make_list(state, NULL));
  1636. qi_value_t *__qistd269 = qi_iter(state, qi_get(state, "arguments"));
  1637. qi_decl(state, "xs", state->nil);
  1638. for (qi_size_t length = _qi_length(state, __qistd269), i = 0; i < length; i++) {
  1639. qi_set(state, false, "xs", qi_index(state, __qistd269, qi_make_number(state, i)));
  1640. (void)(qi_call(state, qi_get(state, "list_push"), __qistd270(state)));__continue268:;
  1641. }
  1642. __break268:;
  1643. (void)(qi_call(state, qi_get(state, "list_push"), __qistd271(state)));
  1644. __continue267:;
  1645. qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
  1646. }
  1647. __break267:;
  1648. return qi_get(state, "r");
  1649. return state->nil;
  1650. }
  1651. inline static qi_list_t *__qistd273(qi_state_t *state) {
  1652. qi_list_t *list = qi_list_make_n(1);
  1653. qi_list_data(list, 0) = qi_get(state, "l");
  1654. return list;
  1655. }
  1656. inline static qi_list_t *__qistd275(qi_state_t *state) {
  1657. qi_list_t *list = qi_list_make_n(1);
  1658. qi_list_data(list, 0) = qi_get(state, "l");
  1659. return list;
  1660. }
  1661. inline static qi_list_t *__qistd276(qi_state_t *state) {
  1662. qi_list_t *list = qi_list_make_n(1);
  1663. qi_list_data(list, 0) = qi_get(state, "l");
  1664. return list;
  1665. }
  1666. inline static qi_list_t *__qistd274(qi_state_t *state) {
  1667. qi_list_t *list = qi_list_make_n(2);
  1668. qi_list_data(list, 0) = qi_call(state, qi_get(state, "table_keys"), __qistd275(state));
  1669. qi_list_data(list, 1) = qi_call(state, qi_get(state, "table_values"), __qistd276(state));
  1670. return list;
  1671. }
  1672. inline static qi_list_t *__qistd279(qi_state_t *state) {
  1673. qi_list_t *list = qi_list_make_n(1);
  1674. qi_list_data(list, 0) = qi_get(state, "l");
  1675. return list;
  1676. }
  1677. inline static qi_list_t *__qistd278(qi_state_t *state) {
  1678. qi_list_t *list = qi_list_make_n(1);
  1679. qi_list_data(list, 0) = qi_call(state, qi_get(state, "len"), __qistd279(state));
  1680. return list;
  1681. }
  1682. inline static qi_list_t *__qistd277(qi_state_t *state) {
  1683. qi_list_t *list = qi_list_make_n(2);
  1684. qi_list_data(list, 0) = qi_call(state, qi_get(state, "range"), __qistd278(state));
  1685. qi_list_data(list, 1) = qi_get(state, "l");
  1686. return list;
  1687. }
  1688. qi_value_t *__qistd272(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1689. qi_decl(state, "l", qi_list_index(pargs, 0));
  1690. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd273(state)), qi_make_string(state, "table")))) {
  1691. return qi_call(state, qi_get(state, "zip"), __qistd274(state));} else {
  1692. return qi_call(state, qi_get(state, "zip"), __qistd277(state));}return state->nil;
  1693. }
  1694. inline static qi_list_t *__qistd281(qi_state_t *state) {
  1695. qi_list_t *list = qi_list_make_n(1);
  1696. qi_list_data(list, 0) = qi_get(state, "s");
  1697. return list;
  1698. }
  1699. inline static qi_list_t *__qistd282(qi_state_t *state) {
  1700. qi_list_t *list = qi_list_make_n(1);
  1701. qi_list_data(list, 0) = qi_get(state, "c");
  1702. return list;
  1703. }
  1704. inline static qi_list_t *__qistd286(qi_state_t *state) {
  1705. qi_list_t *list = qi_list_make_n(1);
  1706. qi_list_data(list, 0) = qi_get(state, "c");
  1707. return list;
  1708. }
  1709. inline static qi_list_t *__qistd285(qi_state_t *state) {
  1710. qi_list_t *list = qi_list_make_n(1);
  1711. qi_list_data(list, 0) = qi_sub(state, qi_call(state, qi_get(state, "ord"), __qistd286(state)), qi_make_number(state, 32));
  1712. return list;
  1713. }
  1714. qi_value_t *__qistd284(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1715. qi_decl(state, "c", qi_list_index(pargs, 0));
  1716. return (_qi_truthy(state, qi_and(state, qi_ge(state, qi_get(state, "c"), qi_make_string(state, "a")), qi_le(state, qi_get(state, "c"), qi_make_string(state, "z"))))? qi_call(state, qi_get(state, "chr"), __qistd285(state)): qi_get(state, "c"));return state->nil;
  1717. }
  1718. inline static qi_list_t *__qistd283(qi_state_t *state) {
  1719. qi_list_t *list = qi_list_make_n(2);
  1720. qi_list_data(list, 0) = qi_make_function(state, "<anon>", 1, __qistd284, NULL);
  1721. qi_list_data(list, 1) = qi_get(state, "s");
  1722. return list;
  1723. }
  1724. qi_value_t *__qistd280(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1725. qi_decl(state, "s", qi_list_index(pargs, 0));
  1726. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd281(state)), qi_make_string(state, "string")))) {
  1727. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd282(state))));}
  1728. return qi_call(state, qi_get(state, "map"), __qistd283(state));
  1729. return state->nil;
  1730. }
  1731. inline static qi_list_t *__qistd288(qi_state_t *state) {
  1732. qi_list_t *list = qi_list_make_n(1);
  1733. qi_list_data(list, 0) = qi_get(state, "s");
  1734. return list;
  1735. }
  1736. inline static qi_list_t *__qistd289(qi_state_t *state) {
  1737. qi_list_t *list = qi_list_make_n(1);
  1738. qi_list_data(list, 0) = qi_get(state, "c");
  1739. return list;
  1740. }
  1741. inline static qi_list_t *__qistd293(qi_state_t *state) {
  1742. qi_list_t *list = qi_list_make_n(1);
  1743. qi_list_data(list, 0) = qi_get(state, "c");
  1744. return list;
  1745. }
  1746. inline static qi_list_t *__qistd292(qi_state_t *state) {
  1747. qi_list_t *list = qi_list_make_n(1);
  1748. qi_list_data(list, 0) = qi_add(state, qi_call(state, qi_get(state, "ord"), __qistd293(state)), qi_make_number(state, 32));
  1749. return list;
  1750. }
  1751. qi_value_t *__qistd291(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1752. qi_decl(state, "c", qi_list_index(pargs, 0));
  1753. return (_qi_truthy(state, qi_and(state, qi_ge(state, qi_get(state, "c"), qi_make_string(state, "A")), qi_le(state, qi_get(state, "c"), qi_make_string(state, "Z"))))? qi_call(state, qi_get(state, "chr"), __qistd292(state)): qi_get(state, "c"));return state->nil;
  1754. }
  1755. inline static qi_list_t *__qistd290(qi_state_t *state) {
  1756. qi_list_t *list = qi_list_make_n(2);
  1757. qi_list_data(list, 0) = qi_make_function(state, "<anon>", 1, __qistd291, NULL);
  1758. qi_list_data(list, 1) = qi_get(state, "s");
  1759. return list;
  1760. }
  1761. qi_value_t *__qistd287(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1762. qi_decl(state, "s", qi_list_index(pargs, 0));
  1763. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd288(state)), qi_make_string(state, "string")))) {
  1764. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd289(state))));}
  1765. return qi_call(state, qi_get(state, "map"), __qistd290(state));
  1766. return state->nil;
  1767. }
  1768. inline static qi_list_t *__qistd296(qi_state_t *state) {
  1769. qi_list_t *list = qi_list_make_n(1);
  1770. qi_list_data(list, 0) = qi_get(state, "p");
  1771. return list;
  1772. }
  1773. inline static qi_list_t *__qistd295(qi_state_t *state) {
  1774. qi_list_t *list = qi_list_make_n(2);
  1775. qi_list_data(list, 0) = qi_get(state, "p");
  1776. qi_list_data(list, 1) = qi_add(state, qi_call(state, qi_get(state, "get_meta_table"), __qistd296(state)), qi_get(state, "t"));
  1777. return list;
  1778. }
  1779. inline static qi_list_t *__qistd297(qi_state_t *state) {
  1780. qi_list_t *list = qi_list_make_n(2);
  1781. qi_list_data(list, 0) = qi_make_table(state, NULL);
  1782. qi_list_data(list, 1) = qi_get(state, "t");
  1783. return list;
  1784. }
  1785. qi_value_t *__qistd294(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1786. qi_decl(state, "p", pargc >= 2? qi_list_index(pargs, 1): qi_get(state, "nil"));
  1787. qi_decl(state, "t", qi_list_index(pargs, 0));
  1788. return (_qi_truthy(state, qi_not_is(state, qi_get(state, "p"), qi_get(state, "nil")))? qi_call(state, qi_get(state, "set_meta_table"), __qistd295(state)): qi_call(state, qi_get(state, "set_meta_table"), __qistd297(state)));return state->nil;
  1789. }
  1790. inline static qi_list_t *__qistd299(qi_state_t *state) {
  1791. qi_list_t *list = qi_list_make_n(1);
  1792. qi_list_data(list, 0) = qi_get(state, "o");
  1793. return list;
  1794. }
  1795. qi_value_t *__qistd298(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1796. qi_decl(state, "o", qi_list_index(pargs, 0));
  1797. return qi_call(state, qi_get(state, "has_meta_table"), __qistd299(state));return state->nil;
  1798. }
  1799. qi_value_t *__qistd303(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1800. qi_decl(state, "this", qi_list_index(pargs, 0));
  1801. return qi_get(state, "n");return state->nil;
  1802. }
  1803. inline static qi_table_t *__qistd304(qi_state_t *state) {
  1804. qi_table_t *table = qi_table_make();
  1805. qi_table_set(table, "n", qi_get(state, "n"));
  1806. return table;
  1807. }
  1808. qi_value_t *__qistd305(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1809. qi_decl(state, "this", qi_list_index(pargs, 0));
  1810. return qi_add(state, qi_add(state, qi_make_string(state, "<class "), qi_get(state, "n")), qi_make_string(state, ">"));return state->nil;
  1811. }
  1812. inline static qi_table_t *__qistd306(qi_state_t *state) {
  1813. qi_table_t *table = qi_table_make();
  1814. qi_table_set(table, "n", qi_get(state, "n"));
  1815. return table;
  1816. }
  1817. inline static qi_list_t *__qistd310(qi_state_t *state) {
  1818. qi_list_t *list = qi_list_make_n(2);
  1819. qi_list_data(list, 0) = qi_index(state, qi_get(state, "this"), qi_make_string(state, "super"));
  1820. qi_list_data(list, 1) = qi_get(state, "other");
  1821. return list;
  1822. }
  1823. inline static qi_list_t *__qistd311(qi_state_t *state) {
  1824. qi_list_t *list = qi_list_make_n(1);
  1825. qi_list_data(list, 0) = qi_index(state, qi_get(state, "this"), qi_make_string(state, "super"));
  1826. return list;
  1827. }
  1828. inline static qi_list_t *__qistd312(qi_state_t *state) {
  1829. qi_list_t *list = qi_list_make_n(2);
  1830. qi_list_data(list, 0) = qi_get(state, "t");
  1831. qi_list_data(list, 1) = qi_get(state, "mt");
  1832. return list;
  1833. }
  1834. inline static qi_list_t *__qistd314(qi_state_t *state) {
  1835. qi_list_t *list = qi_list_make_n(1);
  1836. qi_list_data(list, 0) = qi_get(state, "obj");
  1837. return list;
  1838. }
  1839. inline static qi_list_t *__qistd313(qi_state_t *state) {
  1840. qi_list_t *list = qi_list_make_n(2);
  1841. qi_list_data(list, 0) = qi_index(state, qi_get(state, "mt"), qi_make_string(state, "constructor"));
  1842. qi_list_data(list, 1) = qi_add(state, qi_make_list(state, __qistd314(state)), qi_get(state, "pargs"));
  1843. return list;
  1844. }
  1845. qi_value_t *__qistd307(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1846. qi_decl(state, "pargs", qi_list_index(pargs, 1));
  1847. qi_decl(state, "this", qi_list_index(pargs, 0));
  1848. qi_decl(state, "t", qi_make_table(state, NULL));
  1849. qi_decl(state, "mt", qi_make_table(state, NULL));
  1850. qi_value_t *__qistd309 = qi_iter(state, qi_get(state, "p"));
  1851. qi_decl(state, "other", state->nil);
  1852. for (qi_size_t length = _qi_length(state, __qistd309), i = 0; i < length; i++) {
  1853. qi_set(state, false, "other", qi_index(state, __qistd309, qi_make_number(state, i)));
  1854. (void)(qi_set(state, false, "t", qi_add(state, qi_get(state, "t"), qi_index(state, qi_get(state, "other"), qi_make_string(state, "t")))));
  1855. (void)(qi_set(state, false, "mt", qi_add(state, qi_get(state, "mt"), qi_index(state, qi_get(state, "other"), qi_make_string(state, "mt")))));
  1856. (void)(qi_call(state, qi_get(state, "list_push"), __qistd310(state)));
  1857. __continue308:;
  1858. }
  1859. __break308:;
  1860. if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd311(state)), qi_make_number(state, 1)))) {
  1861. (void)(qi_index_set(state, false, qi_get(state, "this"), qi_make_string(state, "super"), qi_index(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "super")), qi_make_number(state, 0))));}
  1862. (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")))));
  1863. (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")))));
  1864. (void)(qi_index_set(state, false, qi_get(state, "t"), qi_make_string(state, "super"), qi_index(state, qi_get(state, "this"), qi_make_string(state, "super"))));
  1865. (void)(qi_set(state, false, "obj", qi_call(state, qi_get(state, "set_meta_table"), __qistd312(state))));
  1866. if (_qi_truthy(state, qi_in(state, qi_make_string(state, "constructor"), qi_get(state, "mt")))) {
  1867. (void)(qi_call(state, qi_get(state, "func_call"), __qistd313(state)));}
  1868. return qi_get(state, "obj");
  1869. return state->nil;
  1870. }
  1871. inline static qi_table_t *__qistd315(qi_state_t *state) {
  1872. qi_table_t *table = qi_table_make();
  1873. qi_table_set(table, "p", qi_get(state, "p"));
  1874. return table;
  1875. }
  1876. inline static qi_table_t *__qistd302(qi_state_t *state) {
  1877. qi_table_t *table = qi_table_make();
  1878. qi_table_set(table, "__type", qi_make_function(state, "<anon>", 1, __qistd303, __qistd304(state)));
  1879. qi_table_set(table, "mt", qi_get(state, "mt"));
  1880. qi_table_set(table, "super", qi_make_list(state, NULL));
  1881. qi_table_set(table, "t", qi_get(state, "t"));
  1882. qi_table_set(table, "__str", qi_make_function(state, "<anon>", 1, __qistd305, __qistd306(state)));
  1883. qi_table_set(table, "__call", qi_make_function(state, "<anon>", 2, __qistd307, __qistd315(state)));
  1884. return table;
  1885. }
  1886. inline static qi_list_t *__qistd301(qi_state_t *state) {
  1887. qi_list_t *list = qi_list_make_n(1);
  1888. qi_list_data(list, 0) = qi_add(state, qi_get(state, "st"), qi_make_table(state, __qistd302(state)));
  1889. return list;
  1890. }
  1891. qi_value_t *__qistd300(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1892. qi_decl(state, "mt", qi_list_index(pargs, 3));
  1893. qi_decl(state, "st", qi_list_index(pargs, 4));
  1894. qi_decl(state, "n", qi_list_index(pargs, 0));
  1895. qi_decl(state, "p", qi_list_index(pargs, 1));
  1896. qi_decl(state, "t", qi_list_index(pargs, 2));
  1897. return qi_call(state, qi_get(state, "Object"), __qistd301(state));return state->nil;
  1898. }
  1899. inline static qi_list_t *__qistd317(qi_state_t *state) {
  1900. qi_list_t *list = qi_list_make_n(1);
  1901. qi_list_data(list, 0) = qi_get(state, "s");
  1902. return list;
  1903. }
  1904. inline static qi_list_t *__qistd318(qi_state_t *state) {
  1905. qi_list_t *list = qi_list_make_n(1);
  1906. qi_list_data(list, 0) = qi_get(state, "s");
  1907. return list;
  1908. }
  1909. inline static qi_list_t *__qistd320(qi_state_t *state) {
  1910. qi_list_t *list = qi_list_make_n(1);
  1911. qi_list_data(list, 0) = qi_get(state, "s");
  1912. return list;
  1913. }
  1914. inline static qi_list_t *__qistd324(qi_state_t *state) {
  1915. qi_list_t *list = qi_list_make_n(1);
  1916. qi_list_data(list, 0) = qi_get(state, "s");
  1917. return list;
  1918. }
  1919. inline static qi_list_t *__qistd325(qi_state_t *state) {
  1920. qi_list_t *list = qi_list_make_n(1);
  1921. 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)));
  1922. return list;
  1923. }
  1924. qi_value_t *__qistd316(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1925. qi_decl(state, "s", qi_list_index(pargs, 0));
  1926. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd317(state)), qi_make_string(state, "string")))) {
  1927. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd318(state))));}
  1928. qi_decl(state, "r", state->empty_string);
  1929. qi_decl(state, "n", qi_make_number(state, 1));
  1930. qi_decl(state, "i", qi_make_number(state, 0));
  1931. while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd320(state))))) {
  1932. qi_value_t *__qistd322 = qi_index(state, qi_get(state, "s"), qi_get(state, "i"));
  1933. if (_qi_equals(state, __qistd322, qi_make_string(state, "_"))) goto __qistd323;
  1934. goto __default321;
  1935. __qistd323:;
  1936. 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"), __qistd324(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, "_"))))) {
  1937. (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_make_string(state, "_"))));
  1938. (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)));
  1939. goto __continue319;
  1940. }
  1941. (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_call(state, qi_get(state, "repr"), __qistd325(state)))));
  1942. goto __break321;
  1943. __default321:;
  1944. (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_index(state, qi_get(state, "s"), qi_get(state, "i")))));
  1945. __break321:;
  1946. __continue319:;
  1947. qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
  1948. }
  1949. __break319:;
  1950. return qi_get(state, "r");
  1951. return state->nil;
  1952. }
  1953. inline static qi_list_t *__qistd327(qi_state_t *state) {
  1954. qi_list_t *list = qi_list_make_n(1);
  1955. qi_list_data(list, 0) = qi_get(state, "s");
  1956. return list;
  1957. }
  1958. inline static qi_list_t *__qistd328(qi_state_t *state) {
  1959. qi_list_t *list = qi_list_make_n(1);
  1960. qi_list_data(list, 0) = qi_get(state, "s");
  1961. return list;
  1962. }
  1963. inline static qi_list_t *__qistd329(qi_state_t *state) {
  1964. qi_list_t *list = qi_list_make_n(1);
  1965. qi_list_data(list, 0) = qi_get(state, "l");
  1966. return list;
  1967. }
  1968. inline static qi_list_t *__qistd330(qi_state_t *state) {
  1969. qi_list_t *list = qi_list_make_n(1);
  1970. qi_list_data(list, 0) = qi_get(state, "l");
  1971. return list;
  1972. }
  1973. inline static qi_list_t *__qistd332(qi_state_t *state) {
  1974. qi_list_t *list = qi_list_make_n(1);
  1975. qi_list_data(list, 0) = qi_get(state, "s");
  1976. return list;
  1977. }
  1978. inline static qi_list_t *__qistd331(qi_state_t *state) {
  1979. qi_list_t *list = qi_list_make_n(2);
  1980. qi_list_data(list, 0) = qi_get(state, "str_format");
  1981. qi_list_data(list, 1) = qi_add(state, qi_make_list(state, __qistd332(state)), qi_get(state, "l"));
  1982. return list;
  1983. }
  1984. qi_value_t *__qistd326(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  1985. qi_decl(state, "l", qi_list_index(pargs, 1));
  1986. qi_decl(state, "s", qi_list_index(pargs, 0));
  1987. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd327(state)), qi_make_string(state, "string")))) {
  1988. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd328(state))));}
  1989. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd329(state)), qi_make_string(state, "list")))) {
  1990. qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd330(state))));}
  1991. return qi_call(state, qi_get(state, "func_call"), __qistd331(state));
  1992. return state->nil;
  1993. }
  1994. inline static qi_list_t *__qistd334(qi_state_t *state) {
  1995. qi_list_t *list = qi_list_make_n(1);
  1996. qi_list_data(list, 0) = qi_get(state, "s");
  1997. return list;
  1998. }
  1999. inline static qi_list_t *__qistd335(qi_state_t *state) {
  2000. qi_list_t *list = qi_list_make_n(1);
  2001. qi_list_data(list, 0) = qi_get(state, "s");
  2002. return list;
  2003. }
  2004. inline static qi_list_t *__qistd337(qi_state_t *state) {
  2005. qi_list_t *list = qi_list_make_n(1);
  2006. qi_list_data(list, 0) = qi_get(state, "s");
  2007. return list;
  2008. }
  2009. inline static qi_list_t *__qistd341(qi_state_t *state) {
  2010. qi_list_t *list = qi_list_make_n(1);
  2011. qi_list_data(list, 0) = qi_get(state, "s");
  2012. return list;
  2013. }
  2014. inline static qi_list_t *__qistd343(qi_state_t *state) {
  2015. qi_list_t *list = qi_list_make_n(1);
  2016. qi_list_data(list, 0) = qi_get(state, "s");
  2017. return list;
  2018. }
  2019. inline static qi_list_t *__qistd344(qi_state_t *state) {
  2020. qi_list_t *list = qi_list_make_n(1);
  2021. qi_list_data(list, 0) = qi_get(state, "s");
  2022. return list;
  2023. }
  2024. inline static qi_list_t *__qistd345(qi_state_t *state) {
  2025. qi_list_t *list = qi_list_make_n(1);
  2026. qi_list_data(list, 0) = qi_index(state, qi_get(state, "t"), qi_get(state, "k"));
  2027. return list;
  2028. }
  2029. qi_value_t *__qistd333(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2030. qi_decl(state, "s", qi_list_index(pargs, 0));
  2031. qi_decl(state, "t", qi_list_index(pargs, 1));
  2032. if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd334(state)), qi_make_string(state, "string")))) {
  2033. qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd335(state))));}
  2034. qi_decl(state, "r", state->empty_string);
  2035. qi_decl(state, "n", qi_make_number(state, 1));
  2036. qi_decl(state, "i", qi_make_number(state, 0));
  2037. while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd337(state))))) {
  2038. qi_value_t *__qistd339 = qi_index(state, qi_get(state, "s"), qi_get(state, "i"));
  2039. if (_qi_equals(state, __qistd339, qi_make_string(state, "{"))) goto __qistd340;
  2040. goto __default338;
  2041. __qistd340:;
  2042. 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"), __qistd341(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, "{"))))) {
  2043. (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_make_string(state, "{"))));
  2044. (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)));
  2045. goto __continue336;
  2046. }
  2047. qi_decl(state, "k", state->empty_string);
  2048. (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)));
  2049. while (_qi_truthy(state, qi_and(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd343(state))), qi_not_equals(state, qi_index(state, qi_get(state, "s"), qi_get(state, "i")), qi_make_string(state, "}"))))) {
  2050. (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))))));__continue342:;
  2051. }
  2052. __break342:;
  2053. if (_qi_truthy(state, qi_or(state, qi_ge(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd344(state))), qi_not_equals(state, qi_index(state, qi_get(state, "s"), qi_get(state, "i")), qi_make_string(state, "}"))))) {
  2054. qi_throw(state, qi_make_string(state, "unmatched { in format specifier"));}
  2055. if (_qi_truthy(state, qi_not(state, qi_get(state, "k")))) {
  2056. qi_throw(state, qi_make_string(state, "empty format key"));}
  2057. (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_call(state, qi_get(state, "repr"), __qistd345(state)))));
  2058. goto __break338;
  2059. __default338:;
  2060. (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_index(state, qi_get(state, "s"), qi_get(state, "i")))));
  2061. __break338:;
  2062. __continue336:;
  2063. qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
  2064. }
  2065. __break336:;
  2066. return qi_get(state, "r");
  2067. return state->nil;
  2068. }
  2069. inline static qi_list_t *__qistd348(qi_state_t *state) {
  2070. qi_list_t *list = qi_list_make_n(1);
  2071. qi_list_data(list, 0) = qi_get(state, "STDIN");
  2072. return list;
  2073. }
  2074. inline static qi_list_t *__qistd347(qi_state_t *state) {
  2075. qi_list_t *list = qi_list_make_n(1);
  2076. qi_list_data(list, 0) = qi_call(state, qi_get(state, "fgetc"), __qistd348(state));
  2077. return list;
  2078. }
  2079. qi_value_t *__qistd346(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2080. return qi_call(state, qi_get(state, "chr"), __qistd347(state));return state->nil;
  2081. }
  2082. inline static qi_list_t *__qistd350(qi_state_t *state) {
  2083. qi_list_t *list = qi_list_make_n(2);
  2084. qi_list_data(list, 0) = qi_get(state, "STDOUT");
  2085. qi_list_data(list, 1) = qi_get(state, "c");
  2086. return list;
  2087. }
  2088. qi_value_t *__qistd349(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2089. qi_decl(state, "c", qi_list_index(pargs, 0));
  2090. (void)(qi_call(state, qi_get(state, "fputc"), __qistd350(state)));return state->nil;
  2091. }
  2092. inline static qi_list_t *__qistd352(qi_state_t *state) {
  2093. qi_list_t *list = qi_list_make_n(2);
  2094. qi_list_data(list, 0) = qi_get(state, "STDIN");
  2095. qi_list_data(list, 1) = qi_make_number(state, 256);
  2096. return list;
  2097. }
  2098. qi_value_t *__qistd351(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2099. return qi_call(state, qi_get(state, "fgets"), __qistd352(state));return state->nil;
  2100. }
  2101. inline static qi_list_t *__qistd354(qi_state_t *state) {
  2102. qi_list_t *list = qi_list_make_n(1);
  2103. qi_list_data(list, 0) = qi_get(state, "arguments");
  2104. return list;
  2105. }
  2106. inline static qi_list_t *__qistd355(qi_state_t *state) {
  2107. qi_list_t *list = qi_list_make_n(2);
  2108. qi_list_data(list, 0) = qi_get(state, "print");
  2109. qi_list_data(list, 1) = qi_get(state, "arguments");
  2110. return list;
  2111. }
  2112. inline static qi_list_t *__qistd356(qi_state_t *state) {
  2113. qi_list_t *list = qi_list_make_n(2);
  2114. qi_list_data(list, 0) = qi_call(state, qi_get(state, "getline"), NULL);
  2115. qi_list_data(list, 1) = qi_make_string(state, "\n\r");
  2116. return list;
  2117. }
  2118. qi_value_t *__qistd353(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2119. if (_qi_truthy(state, qi_gt(state, qi_call(state, qi_get(state, "len"), __qistd354(state)), qi_make_number(state, 0)))) {
  2120. (void)(qi_call(state, qi_get(state, "func_call"), __qistd355(state)));}
  2121. return qi_call(state, qi_get(state, "str_rstrip"), __qistd356(state));
  2122. return state->nil;
  2123. }
  2124. inline static qi_list_t *__qistd358(qi_state_t *state) {
  2125. qi_list_t *list = qi_list_make_n(2);
  2126. qi_list_data(list, 0) = qi_get(state, "path");
  2127. qi_list_data(list, 1) = qi_get(state, "mode");
  2128. return list;
  2129. }
  2130. qi_value_t *__qistd357(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2131. qi_decl(state, "mode", pargc >= 2? qi_list_index(pargs, 1): qi_make_string(state, "r"));
  2132. qi_decl(state, "path", qi_list_index(pargs, 0));
  2133. return qi_call(state, qi_get(state, "fopen"), __qistd358(state));return state->nil;
  2134. }
  2135. qi_value_t *__qistd359(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2136. qi_decl(state, "cond", qi_list_index(pargs, 0));
  2137. qi_decl(state, "msg", pargc >= 2? qi_list_index(pargs, 1): qi_make_string(state, "assertion failed"));
  2138. if (_qi_truthy(state, qi_not(state, qi_get(state, "cond")))) {
  2139. qi_throw(state, qi_get(state, "msg"));}return state->nil;
  2140. }
  2141. inline static qi_list_t *__qistd360(qi_state_t *state) {
  2142. qi_list_t *list = qi_list_make_n(2);
  2143. qi_list_data(list, 0) = qi_make_string(state, "list.reverse");
  2144. qi_list_data(list, 1) = qi_get(state, "reverse");
  2145. return list;
  2146. }
  2147. inline static qi_list_t *__qistd361(qi_state_t *state) {
  2148. qi_list_t *list = qi_list_make_n(2);
  2149. qi_list_data(list, 0) = qi_make_string(state, "string.reverse");
  2150. qi_list_data(list, 1) = qi_get(state, "reverse");
  2151. return list;
  2152. }
  2153. inline static qi_list_t *__qistd362(qi_state_t *state) {
  2154. qi_list_t *list = qi_list_make_n(2);
  2155. qi_list_data(list, 0) = qi_make_string(state, "bytes.reverse");
  2156. qi_list_data(list, 1) = qi_get(state, "reverse");
  2157. return list;
  2158. }
  2159. inline static qi_list_t *__qistd363(qi_state_t *state) {
  2160. qi_list_t *list = qi_list_make_n(2);
  2161. qi_list_data(list, 0) = qi_make_string(state, "list.remove");
  2162. qi_list_data(list, 1) = qi_get(state, "list_remove");
  2163. return list;
  2164. }
  2165. inline static qi_list_t *__qistd364(qi_state_t *state) {
  2166. qi_list_t *list = qi_list_make_n(2);
  2167. qi_list_data(list, 0) = qi_make_string(state, "list.join");
  2168. qi_list_data(list, 1) = qi_get(state, "list_join");
  2169. return list;
  2170. }
  2171. inline static qi_list_t *__qistd365(qi_state_t *state) {
  2172. qi_list_t *list = qi_list_make_n(2);
  2173. qi_list_data(list, 0) = qi_make_string(state, "list.popAt");
  2174. qi_list_data(list, 1) = qi_get(state, "list_pop_at");
  2175. return list;
  2176. }
  2177. inline static qi_list_t *__qistd366(qi_state_t *state) {
  2178. qi_list_t *list = qi_list_make_n(2);
  2179. qi_list_data(list, 0) = qi_make_string(state, "list.sort");
  2180. qi_list_data(list, 1) = qi_get(state, "list_sort");
  2181. return list;
  2182. }
  2183. inline static qi_list_t *__qistd367(qi_state_t *state) {
  2184. qi_list_t *list = qi_list_make_n(2);
  2185. qi_list_data(list, 0) = qi_make_string(state, "list.sorted");
  2186. qi_list_data(list, 1) = qi_get(state, "list_sorted");
  2187. return list;
  2188. }
  2189. inline static qi_list_t *__qistd368(qi_state_t *state) {
  2190. qi_list_t *list = qi_list_make_n(2);
  2191. qi_list_data(list, 0) = qi_make_string(state, "list.shift");
  2192. qi_list_data(list, 1) = qi_get(state, "list_shift");
  2193. return list;
  2194. }
  2195. inline static qi_list_t *__qistd369(qi_state_t *state) {
  2196. qi_list_t *list = qi_list_make_n(2);
  2197. qi_list_data(list, 0) = qi_make_string(state, "list.unshift");
  2198. qi_list_data(list, 1) = qi_get(state, "list_unshift");
  2199. return list;
  2200. }
  2201. inline static qi_list_t *__qistd370(qi_state_t *state) {
  2202. qi_list_t *list = qi_list_make_n(2);
  2203. qi_list_data(list, 0) = qi_make_string(state, "list.slice");
  2204. qi_list_data(list, 1) = qi_get(state, "slice");
  2205. return list;
  2206. }
  2207. inline static qi_list_t *__qistd371(qi_state_t *state) {
  2208. qi_list_t *list = qi_list_make_n(2);
  2209. qi_list_data(list, 0) = qi_make_string(state, "string.slice");
  2210. qi_list_data(list, 1) = qi_get(state, "slice");
  2211. return list;
  2212. }
  2213. inline static qi_list_t *__qistd372(qi_state_t *state) {
  2214. qi_list_t *list = qi_list_make_n(2);
  2215. qi_list_data(list, 0) = qi_make_string(state, "bytes.slice");
  2216. qi_list_data(list, 1) = qi_get(state, "slice");
  2217. return list;
  2218. }
  2219. inline static qi_list_t *__qistd373(qi_state_t *state) {
  2220. qi_list_t *list = qi_list_make_n(2);
  2221. qi_list_data(list, 0) = qi_make_string(state, "string.startsWith");
  2222. qi_list_data(list, 1) = qi_get(state, "str_startswith");
  2223. return list;
  2224. }
  2225. inline static qi_list_t *__qistd374(qi_state_t *state) {
  2226. qi_list_t *list = qi_list_make_n(2);
  2227. qi_list_data(list, 0) = qi_make_string(state, "string.endsWith");
  2228. qi_list_data(list, 1) = qi_get(state, "str_endswith");
  2229. return list;
  2230. }
  2231. inline static qi_list_t *__qistd375(qi_state_t *state) {
  2232. qi_list_t *list = qi_list_make_n(2);
  2233. qi_list_data(list, 0) = qi_make_string(state, "string.split");
  2234. qi_list_data(list, 1) = qi_get(state, "str_split");
  2235. return list;
  2236. }
  2237. inline static qi_list_t *__qistd376(qi_state_t *state) {
  2238. qi_list_t *list = qi_list_make_n(2);
  2239. qi_list_data(list, 0) = qi_make_string(state, "string.replace");
  2240. qi_list_data(list, 1) = qi_get(state, "str_replace");
  2241. return list;
  2242. }
  2243. inline static qi_list_t *__qistd377(qi_state_t *state) {
  2244. qi_list_t *list = qi_list_make_n(2);
  2245. qi_list_data(list, 0) = qi_make_string(state, "table.keys");
  2246. qi_list_data(list, 1) = qi_get(state, "table_keys");
  2247. return list;
  2248. }
  2249. inline static qi_list_t *__qistd378(qi_state_t *state) {
  2250. qi_list_t *list = qi_list_make_n(2);
  2251. qi_list_data(list, 0) = qi_make_string(state, "table.values");
  2252. qi_list_data(list, 1) = qi_get(state, "table_values");
  2253. return list;
  2254. }
  2255. inline static qi_list_t *__qistd381(qi_state_t *state) {
  2256. qi_list_t *list = qi_list_make_n(2);
  2257. qi_list_data(list, 0) = qi_get(state, "f");
  2258. qi_list_data(list, 1) = qi_get(state, "xs");
  2259. return list;
  2260. }
  2261. qi_value_t *__qistd380(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2262. qi_decl(state, "f", qi_list_index(pargs, 1));
  2263. qi_decl(state, "xs", qi_list_index(pargs, 0));
  2264. return qi_call(state, qi_get(state, "reduce"), __qistd381(state));return state->nil;
  2265. }
  2266. inline static qi_list_t *__qistd379(qi_state_t *state) {
  2267. qi_list_t *list = qi_list_make_n(2);
  2268. qi_list_data(list, 0) = qi_make_string(state, "list.reduce");
  2269. qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd380, NULL);
  2270. return list;
  2271. }
  2272. inline static qi_list_t *__qistd384(qi_state_t *state) {
  2273. qi_list_t *list = qi_list_make_n(2);
  2274. qi_list_data(list, 0) = qi_get(state, "f");
  2275. qi_list_data(list, 1) = qi_get(state, "xs");
  2276. return list;
  2277. }
  2278. qi_value_t *__qistd383(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2279. qi_decl(state, "f", qi_list_index(pargs, 1));
  2280. qi_decl(state, "xs", qi_list_index(pargs, 0));
  2281. return qi_call(state, qi_get(state, "reduce"), __qistd384(state));return state->nil;
  2282. }
  2283. inline static qi_list_t *__qistd382(qi_state_t *state) {
  2284. qi_list_t *list = qi_list_make_n(2);
  2285. qi_list_data(list, 0) = qi_make_string(state, "tuple.reduce");
  2286. qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd383, NULL);
  2287. return list;
  2288. }
  2289. inline static qi_list_t *__qistd387(qi_state_t *state) {
  2290. qi_list_t *list = qi_list_make_n(2);
  2291. qi_list_data(list, 0) = qi_get(state, "f");
  2292. qi_list_data(list, 1) = qi_get(state, "xs");
  2293. return list;
  2294. }
  2295. qi_value_t *__qistd386(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2296. qi_decl(state, "f", qi_list_index(pargs, 1));
  2297. qi_decl(state, "xs", qi_list_index(pargs, 0));
  2298. return qi_call(state, qi_get(state, "reduce"), __qistd387(state));return state->nil;
  2299. }
  2300. inline static qi_list_t *__qistd385(qi_state_t *state) {
  2301. qi_list_t *list = qi_list_make_n(2);
  2302. qi_list_data(list, 0) = qi_make_string(state, "string.reduce");
  2303. qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd386, NULL);
  2304. return list;
  2305. }
  2306. inline static qi_list_t *__qistd390(qi_state_t *state) {
  2307. qi_list_t *list = qi_list_make_n(2);
  2308. qi_list_data(list, 0) = qi_get(state, "f");
  2309. qi_list_data(list, 1) = qi_get(state, "xs");
  2310. return list;
  2311. }
  2312. qi_value_t *__qistd389(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2313. qi_decl(state, "f", qi_list_index(pargs, 1));
  2314. qi_decl(state, "xs", qi_list_index(pargs, 0));
  2315. return qi_call(state, qi_get(state, "reduce"), __qistd390(state));return state->nil;
  2316. }
  2317. inline static qi_list_t *__qistd388(qi_state_t *state) {
  2318. qi_list_t *list = qi_list_make_n(2);
  2319. qi_list_data(list, 0) = qi_make_string(state, "bytes.reduce");
  2320. qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd389, NULL);
  2321. return list;
  2322. }
  2323. inline static qi_list_t *__qistd391(qi_state_t *state) {
  2324. qi_list_t *list = qi_list_make_n(2);
  2325. qi_list_data(list, 0) = qi_make_string(state, "list.sum");
  2326. qi_list_data(list, 1) = qi_get(state, "sum");
  2327. return list;
  2328. }
  2329. inline static qi_list_t *__qistd392(qi_state_t *state) {
  2330. qi_list_t *list = qi_list_make_n(2);
  2331. qi_list_data(list, 0) = qi_make_string(state, "tuple.sum");
  2332. qi_list_data(list, 1) = qi_get(state, "sum");
  2333. return list;
  2334. }
  2335. inline static qi_list_t *__qistd393(qi_state_t *state) {
  2336. qi_list_t *list = qi_list_make_n(2);
  2337. qi_list_data(list, 0) = qi_make_string(state, "list.product");
  2338. qi_list_data(list, 1) = qi_get(state, "product");
  2339. return list;
  2340. }
  2341. inline static qi_list_t *__qistd394(qi_state_t *state) {
  2342. qi_list_t *list = qi_list_make_n(2);
  2343. qi_list_data(list, 0) = qi_make_string(state, "tuple.product");
  2344. qi_list_data(list, 1) = qi_get(state, "product");
  2345. return list;
  2346. }
  2347. inline static qi_list_t *__qistd397(qi_state_t *state) {
  2348. qi_list_t *list = qi_list_make_n(2);
  2349. qi_list_data(list, 0) = qi_get(state, "f");
  2350. qi_list_data(list, 1) = qi_get(state, "xs");
  2351. return list;
  2352. }
  2353. qi_value_t *__qistd396(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2354. qi_decl(state, "f", qi_list_index(pargs, 1));
  2355. qi_decl(state, "xs", qi_list_index(pargs, 0));
  2356. return qi_call(state, qi_get(state, "map"), __qistd397(state));return state->nil;
  2357. }
  2358. inline static qi_list_t *__qistd395(qi_state_t *state) {
  2359. qi_list_t *list = qi_list_make_n(2);
  2360. qi_list_data(list, 0) = qi_make_string(state, "list.map");
  2361. qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd396, NULL);
  2362. return list;
  2363. }
  2364. inline static qi_list_t *__qistd400(qi_state_t *state) {
  2365. qi_list_t *list = qi_list_make_n(2);
  2366. qi_list_data(list, 0) = qi_get(state, "f");
  2367. qi_list_data(list, 1) = qi_get(state, "xs");
  2368. return list;
  2369. }
  2370. qi_value_t *__qistd399(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2371. qi_decl(state, "f", qi_list_index(pargs, 1));
  2372. qi_decl(state, "xs", qi_list_index(pargs, 0));
  2373. return qi_call(state, qi_get(state, "map"), __qistd400(state));return state->nil;
  2374. }
  2375. inline static qi_list_t *__qistd398(qi_state_t *state) {
  2376. qi_list_t *list = qi_list_make_n(2);
  2377. qi_list_data(list, 0) = qi_make_string(state, "tuple.map");
  2378. qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd399, NULL);
  2379. return list;
  2380. }
  2381. inline static qi_list_t *__qistd403(qi_state_t *state) {
  2382. qi_list_t *list = qi_list_make_n(2);
  2383. qi_list_data(list, 0) = qi_get(state, "f");
  2384. qi_list_data(list, 1) = qi_get(state, "xs");
  2385. return list;
  2386. }
  2387. qi_value_t *__qistd402(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2388. qi_decl(state, "f", qi_list_index(pargs, 1));
  2389. qi_decl(state, "xs", qi_list_index(pargs, 0));
  2390. return qi_call(state, qi_get(state, "map"), __qistd403(state));return state->nil;
  2391. }
  2392. inline static qi_list_t *__qistd401(qi_state_t *state) {
  2393. qi_list_t *list = qi_list_make_n(2);
  2394. qi_list_data(list, 0) = qi_make_string(state, "string.map");
  2395. qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd402, NULL);
  2396. return list;
  2397. }
  2398. inline static qi_list_t *__qistd406(qi_state_t *state) {
  2399. qi_list_t *list = qi_list_make_n(2);
  2400. qi_list_data(list, 0) = qi_get(state, "f");
  2401. qi_list_data(list, 1) = qi_get(state, "xs");
  2402. return list;
  2403. }
  2404. qi_value_t *__qistd405(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2405. qi_decl(state, "f", qi_list_index(pargs, 1));
  2406. qi_decl(state, "xs", qi_list_index(pargs, 0));
  2407. return qi_call(state, qi_get(state, "map"), __qistd406(state));return state->nil;
  2408. }
  2409. inline static qi_list_t *__qistd404(qi_state_t *state) {
  2410. qi_list_t *list = qi_list_make_n(2);
  2411. qi_list_data(list, 0) = qi_make_string(state, "bytes.map");
  2412. qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd405, NULL);
  2413. return list;
  2414. }
  2415. inline static qi_list_t *__qistd409(qi_state_t *state) {
  2416. qi_list_t *list = qi_list_make_n(2);
  2417. qi_list_data(list, 0) = qi_get(state, "f");
  2418. qi_list_data(list, 1) = qi_get(state, "xs");
  2419. return list;
  2420. }
  2421. qi_value_t *__qistd408(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2422. qi_decl(state, "f", qi_list_index(pargs, 1));
  2423. qi_decl(state, "xs", qi_list_index(pargs, 0));
  2424. return qi_call(state, qi_get(state, "filter"), __qistd409(state));return state->nil;
  2425. }
  2426. inline static qi_list_t *__qistd407(qi_state_t *state) {
  2427. qi_list_t *list = qi_list_make_n(2);
  2428. qi_list_data(list, 0) = qi_make_string(state, "list.filter");
  2429. qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd408, NULL);
  2430. return list;
  2431. }
  2432. inline static qi_list_t *__qistd412(qi_state_t *state) {
  2433. qi_list_t *list = qi_list_make_n(2);
  2434. qi_list_data(list, 0) = qi_get(state, "f");
  2435. qi_list_data(list, 1) = qi_get(state, "xs");
  2436. return list;
  2437. }
  2438. qi_value_t *__qistd411(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2439. qi_decl(state, "f", qi_list_index(pargs, 1));
  2440. qi_decl(state, "xs", qi_list_index(pargs, 0));
  2441. return qi_call(state, qi_get(state, "filter"), __qistd412(state));return state->nil;
  2442. }
  2443. inline static qi_list_t *__qistd410(qi_state_t *state) {
  2444. qi_list_t *list = qi_list_make_n(2);
  2445. qi_list_data(list, 0) = qi_make_string(state, "tuple.filter");
  2446. qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd411, NULL);
  2447. return list;
  2448. }
  2449. inline static qi_list_t *__qistd415(qi_state_t *state) {
  2450. qi_list_t *list = qi_list_make_n(2);
  2451. qi_list_data(list, 0) = qi_get(state, "f");
  2452. qi_list_data(list, 1) = qi_get(state, "xs");
  2453. return list;
  2454. }
  2455. qi_value_t *__qistd414(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2456. qi_decl(state, "f", qi_list_index(pargs, 1));
  2457. qi_decl(state, "xs", qi_list_index(pargs, 0));
  2458. return qi_call(state, qi_get(state, "filter"), __qistd415(state));return state->nil;
  2459. }
  2460. inline static qi_list_t *__qistd413(qi_state_t *state) {
  2461. qi_list_t *list = qi_list_make_n(2);
  2462. qi_list_data(list, 0) = qi_make_string(state, "string.filter");
  2463. qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd414, NULL);
  2464. return list;
  2465. }
  2466. inline static qi_list_t *__qistd418(qi_state_t *state) {
  2467. qi_list_t *list = qi_list_make_n(2);
  2468. qi_list_data(list, 0) = qi_get(state, "f");
  2469. qi_list_data(list, 1) = qi_get(state, "xs");
  2470. return list;
  2471. }
  2472. qi_value_t *__qistd417(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
  2473. qi_decl(state, "f", qi_list_index(pargs, 1));
  2474. qi_decl(state, "xs", qi_list_index(pargs, 0));
  2475. return qi_call(state, qi_get(state, "filter"), __qistd418(state));return state->nil;
  2476. }
  2477. inline static qi_list_t *__qistd416(qi_state_t *state) {
  2478. qi_list_t *list = qi_list_make_n(2);
  2479. qi_list_data(list, 0) = qi_make_string(state, "bytes.filter");
  2480. qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd417, NULL);
  2481. return list;
  2482. }
  2483. inline static qi_list_t *__qistd419(qi_state_t *state) {
  2484. qi_list_t *list = qi_list_make_n(2);
  2485. qi_list_data(list, 0) = qi_make_string(state, "string.index");
  2486. qi_list_data(list, 1) = qi_get(state, "str_index");
  2487. return list;
  2488. }
  2489. inline static qi_list_t *__qistd420(qi_state_t *state) {
  2490. qi_list_t *list = qi_list_make_n(2);
  2491. qi_list_data(list, 0) = qi_make_string(state, "string.lstrip");
  2492. qi_list_data(list, 1) = qi_get(state, "str_lstrip");
  2493. return list;
  2494. }
  2495. inline static qi_list_t *__qistd421(qi_state_t *state) {
  2496. qi_list_t *list = qi_list_make_n(2);
  2497. qi_list_data(list, 0) = qi_make_string(state, "string.rstrip");
  2498. qi_list_data(list, 1) = qi_get(state, "str_rstrip");
  2499. return list;
  2500. }
  2501. inline static qi_list_t *__qistd422(qi_state_t *state) {
  2502. qi_list_t *list = qi_list_make_n(2);
  2503. qi_list_data(list, 0) = qi_make_string(state, "string.strip");
  2504. qi_list_data(list, 1) = qi_get(state, "str_strip");
  2505. return list;
  2506. }
  2507. inline static qi_list_t *__qistd423(qi_state_t *state) {
  2508. qi_list_t *list = qi_list_make_n(2);
  2509. qi_list_data(list, 0) = qi_make_string(state, "table.get");
  2510. qi_list_data(list, 1) = qi_get(state, "table_get");
  2511. return list;
  2512. }
  2513. inline static qi_list_t *__qistd424(qi_state_t *state) {
  2514. qi_list_t *list = qi_list_make_n(2);
  2515. qi_list_data(list, 0) = qi_make_string(state, "string.toupper");
  2516. qi_list_data(list, 1) = qi_get(state, "str_toupper");
  2517. return list;
  2518. }
  2519. inline static qi_list_t *__qistd425(qi_state_t *state) {
  2520. qi_list_t *list = qi_list_make_n(2);
  2521. qi_list_data(list, 0) = qi_make_string(state, "string.tolower");
  2522. qi_list_data(list, 1) = qi_get(state, "str_tolower");
  2523. return list;
  2524. }
  2525. inline static qi_list_t *__qistd426(qi_state_t *state) {
  2526. qi_list_t *list = qi_list_make_n(2);
  2527. qi_list_data(list, 0) = qi_make_string(state, "string.format");
  2528. qi_list_data(list, 1) = qi_get(state, "format");
  2529. return list;
  2530. }
  2531. inline static qi_list_t *__qistd427(qi_state_t *state) {
  2532. qi_list_t *list = qi_list_make_n(2);
  2533. qi_list_data(list, 0) = qi_make_string(state, "string.formatl");
  2534. qi_list_data(list, 1) = qi_get(state, "formatl");
  2535. return list;
  2536. }
  2537. inline static qi_list_t *__qistd428(qi_state_t *state) {
  2538. qi_list_t *list = qi_list_make_n(2);
  2539. qi_list_data(list, 0) = qi_make_string(state, "string.formatd");
  2540. qi_list_data(list, 1) = qi_get(state, "formatd");
  2541. return list;
  2542. }
  2543. static void qi_init_std(qi_state_t *state) {
  2544. qi_set(state, false, "head", qi_make_function(state, "head", 1, __qistd0, NULL));
  2545. qi_set(state, false, "tail", qi_make_function(state, "tail", 1, __qistd1, NULL));
  2546. qi_set(state, false, "min", qi_make_function(state, "min", 2, __qistd3, NULL));
  2547. qi_set(state, false, "max", qi_make_function(state, "max", 2, __qistd4, NULL));
  2548. qi_set(state, false, "reverse", qi_make_function(state, "reverse", 1, __qistd5, NULL));
  2549. qi_set(state, false, "range", qi_make_function(state, "range", 1, __qistd16, NULL));
  2550. qi_set(state, false, "frewind", qi_make_function(state, "frewind", 1, __qistd29, NULL));
  2551. qi_set(state, false, "file_read", qi_make_function(state, "file_read", 1, __qistd30, NULL));
  2552. qi_set(state, false, "file_write", qi_make_function(state, "file_write", 2, __qistd36, NULL));
  2553. qi_set(state, false, "is_defined", qi_make_function(state, "is_defined", 1, __qistd42, NULL));
  2554. qi_set(state, false, "list_remove", qi_make_function(state, "list_remove", 2, __qistd45, NULL));
  2555. qi_set(state, false, "list_join", qi_make_function(state, "list_join", 1, __qistd52, NULL));
  2556. qi_set(state, false, "list_pop_at", qi_make_function(state, "list_pop_at", 2, __qistd62, NULL));
  2557. qi_set(state, false, "list_sort", qi_make_function(state, "list_sort", 1, __qistd68, NULL));
  2558. qi_set(state, false, "list_sorted", qi_make_function(state, "list_sorted", 1, __qistd79, NULL));
  2559. qi_set(state, false, "list_shift", qi_make_function(state, "list_shift", 1, __qistd83, NULL));
  2560. qi_set(state, false, "list_unshift", qi_make_function(state, "list_unshift", 2, __qistd88, NULL));
  2561. qi_set(state, false, "slice", qi_make_function(state, "slice", 1, __qistd90, NULL));
  2562. qi_set(state, false, "str_startswith", qi_make_function(state, "str_startswith", 2, __qistd115, NULL));
  2563. qi_set(state, false, "str_endswith", qi_make_function(state, "str_endswith", 2, __qistd122, NULL));
  2564. qi_set(state, false, "str_split", qi_make_function(state, "str_split", 1, __qistd130, NULL));
  2565. qi_set(state, false, "str_replace", qi_make_function(state, "str_replace", 3, __qistd144, NULL));
  2566. qi_set(state, false, "table_keys", qi_make_function(state, "table_keys", 1, __qistd156, NULL));
  2567. qi_set(state, false, "table_values", qi_make_function(state, "table_values", 1, __qistd162, NULL));
  2568. qi_set(state, false, "reduce", qi_make_function(state, "reduce", 2, __qistd168, NULL));
  2569. qi_set(state, false, "sum", qi_make_function(state, "sum", 1, __qistd185, NULL));
  2570. qi_set(state, false, "product", qi_make_function(state, "product", 1, __qistd188, NULL));
  2571. qi_set(state, false, "map", qi_make_function(state, "map", 2, __qistd191, NULL));
  2572. qi_set(state, false, "filter", qi_make_function(state, "filter", 2, __qistd208, NULL));
  2573. qi_set(state, false, "str_index", qi_make_function(state, "str_index", 2, __qistd225, NULL));
  2574. qi_set(state, false, "str_lstrip", qi_make_function(state, "str_lstrip", 1, __qistd235, NULL));
  2575. qi_set(state, false, "str_rstrip", qi_make_function(state, "str_rstrip", 1, __qistd243, NULL));
  2576. qi_set(state, false, "str_strip", qi_make_function(state, "str_strip", 1, __qistd252, NULL));
  2577. qi_set(state, false, "table_get", qi_make_function(state, "table_get", 2, __qistd259, NULL));
  2578. qi_set(state, false, "zip", qi_make_function(state, "zip", 0, __qistd264, NULL));
  2579. qi_set(state, false, "enumerate", qi_make_function(state, "enumerate", 1, __qistd272, NULL));
  2580. qi_set(state, false, "str_toupper", qi_make_function(state, "str_toupper", 1, __qistd280, NULL));
  2581. qi_set(state, false, "str_tolower", qi_make_function(state, "str_tolower", 1, __qistd287, NULL));
  2582. qi_set(state, false, "Object", qi_make_function(state, "Object", 1, __qistd294, NULL));
  2583. qi_set(state, false, "is_object", qi_make_function(state, "is_object", 1, __qistd298, NULL));
  2584. qi_set(state, false, "__class_wrapper", qi_make_function(state, "__class_wrapper", 5, __qistd300, NULL));
  2585. qi_set(state, false, "format", qi_make_function(state, "format", 1, __qistd316, NULL));
  2586. qi_set(state, false, "formatl", qi_make_function(state, "formatl", 2, __qistd326, NULL));
  2587. qi_set(state, false, "formatd", qi_make_function(state, "formatd", 2, __qistd333, NULL));
  2588. qi_set(state, false, "getch", qi_make_function(state, "getch", 0, __qistd346, NULL));
  2589. qi_set(state, false, "putch", qi_make_function(state, "putch", 1, __qistd349, NULL));
  2590. qi_set(state, false, "getline", qi_make_function(state, "getline", 0, __qistd351, NULL));
  2591. qi_set(state, false, "input", qi_make_function(state, "input", 0, __qistd353, NULL));
  2592. qi_set(state, false, "open", qi_make_function(state, "open", 1, __qistd357, NULL));
  2593. qi_set(state, false, "assert", qi_make_function(state, "assert", 1, __qistd359, NULL));
  2594. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd360(state)));
  2595. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd361(state)));
  2596. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd362(state)));
  2597. qi_decl_const(state, "SEEK_END", qi_make_number(state, 2));
  2598. qi_decl_const(state, "SEEK_CUR", qi_make_number(state, 1));
  2599. qi_decl_const(state, "SEEK_SET", qi_make_number(state, 0));
  2600. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd363(state)));
  2601. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd364(state)));
  2602. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd365(state)));
  2603. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd366(state)));
  2604. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd367(state)));
  2605. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd368(state)));
  2606. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd369(state)));
  2607. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd370(state)));
  2608. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd371(state)));
  2609. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd372(state)));
  2610. qi_decl_const(state, "__slice", qi_get(state, "slice"));
  2611. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd373(state)));
  2612. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd374(state)));
  2613. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd375(state)));
  2614. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd376(state)));
  2615. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd377(state)));
  2616. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd378(state)));
  2617. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd379(state)));
  2618. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd382(state)));
  2619. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd385(state)));
  2620. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd388(state)));
  2621. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd391(state)));
  2622. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd392(state)));
  2623. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd393(state)));
  2624. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd394(state)));
  2625. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd395(state)));
  2626. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd398(state)));
  2627. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd401(state)));
  2628. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd404(state)));
  2629. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd407(state)));
  2630. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd410(state)));
  2631. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd413(state)));
  2632. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd416(state)));
  2633. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd419(state)));
  2634. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd420(state)));
  2635. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd421(state)));
  2636. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd422(state)));
  2637. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd423(state)));
  2638. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd424(state)));
  2639. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd425(state)));
  2640. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd426(state)));
  2641. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd427(state)));
  2642. (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd428(state)));
  2643. }