qistd.c 122 KB

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