qistd.c 128 KB

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