12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827 |
- qi_value_t *__qistd0(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "l", qi_list_index(pargs, 0));
- qi_value_t *__qistd1 = qi_index(state, qi_get(state, "l"), qi_make_number(state, 0));
- return __qistd1;return state->nil;
- }
- inline static qi_list_t *__qistd4(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "l");
- qi_list_data(list, 1) = qi_make_number(state, 1);
- return list;
- }
- qi_value_t *__qistd2(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "l", qi_list_index(pargs, 0));
- qi_value_t *__qistd3 = qi_call(state, qi_get(state, "slice"), __qistd4(state));
- return __qistd3;return state->nil;
- }
- qi_value_t *__qistd5(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "x", qi_list_index(pargs, 0));
- qi_decl(state, "y", qi_list_index(pargs, 1));
- qi_value_t *__qistd6 = (_qi_truthy(state, qi_lt(state, qi_get(state, "x"), qi_get(state, "y")))? qi_get(state, "x"): qi_get(state, "y"));
- return __qistd6;return state->nil;
- }
- qi_value_t *__qistd7(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "x", qi_list_index(pargs, 0));
- qi_decl(state, "y", qi_list_index(pargs, 1));
- qi_value_t *__qistd8 = (_qi_truthy(state, qi_gt(state, qi_get(state, "x"), qi_get(state, "y")))? qi_get(state, "x"): qi_get(state, "y"));
- return __qistd8;return state->nil;
- }
- inline static qi_list_t *__qistd10(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "x");
- return list;
- }
- inline static qi_list_t *__qistd11(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(3);
- qi_list_data(list, 0) = qi_make_string(state, "list");
- qi_list_data(list, 1) = qi_make_string(state, "string");
- qi_list_data(list, 2) = qi_make_string(state, "bytes");
- return list;
- }
- inline static qi_list_t *__qistd12(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "x");
- return list;
- }
- inline static qi_list_t *__qistd14(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "x");
- return list;
- }
- inline static qi_list_t *__qistd15(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "r");
- qi_list_data(list, 1) = qi_index(state, qi_get(state, "x"), qi_get(state, "i"));
- return list;
- }
- inline static qi_list_t *__qistd16(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "x");
- return list;
- }
- inline static qi_list_t *__qistd18(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- inline static qi_list_t *__qistd19(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "x");
- return list;
- }
- inline static qi_list_t *__qistd21(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- qi_value_t *__qistd9(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "x", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd10(state)), qi_make_tuple(state, __qistd11(state))))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, string or bytes, but got: "), qi_call(state, qi_get(state, "type"), __qistd12(state))));}
- qi_old_scope(state);
- qi_decl(state, "r", qi_make_list(state, NULL));
- qi_new_scope(state);
- qi_decl(state, "i", qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd14(state)), qi_make_number(state, 1)));
- while (_qi_truthy(state, qi_ge(state, qi_get(state, "i"), qi_make_number(state, 0)))) {
- qi_new_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd15(state)));__continue13:;
- qi_set(state, false, "i", qi_sub(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit13;
- __break13:;
- qi_old_scope(state);
- __exit13:;
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd16(state)), qi_make_string(state, "string")))) {
- qi_value_t *__qistd17 = qi_call(state, qi_get(state, "list_join"), __qistd18(state));
- qi_old_scope(state);
- return __qistd17;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd19(state)), qi_make_string(state, "bytes")))) {
- qi_value_t *__qistd20 = qi_call(state, qi_get(state, "bytes"), __qistd21(state));
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd20;}
- qi_old_scope(state);
- }
- qi_old_scope(state);
- qi_value_t *__qistd22 = qi_get(state, "r");
- return __qistd22;
- return state->nil;
- }
- inline static qi_list_t *__qistd24(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "arguments");
- return list;
- }
- inline static qi_list_t *__qistd25(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "arguments");
- return list;
- }
- inline static qi_list_t *__qistd26(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- return list;
- }
- inline static qi_list_t *__qistd27(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- return list;
- }
- inline static qi_list_t *__qistd28(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "t");
- return list;
- }
- inline static qi_list_t *__qistd29(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "t");
- return list;
- }
- inline static qi_list_t *__qistd30(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd31(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd34(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(3);
- qi_list_data(list, 0) = qi_get(state, "t");
- qi_list_data(list, 1) = qi_get(state, "f");
- qi_list_data(list, 2) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd33(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_call(state, qi_get(state, "range"), __qistd34(state));
- return list;
- }
- inline static qi_list_t *__qistd36(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "r");
- qi_list_data(list, 1) = qi_get(state, "i");
- return list;
- }
- qi_value_t *__qistd23(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 0));
- qi_decl(state, "s", state->nil);
- qi_decl(state, "t", state->nil);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_ge(state, qi_call(state, qi_get(state, "len"), __qistd24(state)), qi_make_number(state, 3)))) {
- (void)(qi_set(state, false, "t", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1))));
- (void)(qi_set(state, false, "s", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 2))));
- } else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_ge(state, qi_call(state, qi_get(state, "len"), __qistd25(state)), qi_make_number(state, 2)))) {
- (void)(qi_set(state, false, "t", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1))));
- (void)(qi_set(state, false, "s", qi_make_number(state, 1)));
- } else {
- (void)(qi_set(state, false, "t", qi_get(state, "f")));
- (void)(qi_set(state, false, "f", qi_make_number(state, 0)));
- (void)(qi_set(state, false, "s", qi_make_number(state, 1)));
- }
- qi_old_scope(state);
- }
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd26(state)), qi_make_string(state, "number")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd27(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd28(state)), qi_make_string(state, "number")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd29(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd30(state)), qi_make_string(state, "number")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected third argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd31(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_gt(state, qi_get(state, "f"), qi_get(state, "t")))) {
- qi_value_t *__qistd32 = qi_call(state, qi_get(state, "reverse"), __qistd33(state));
- qi_old_scope(state);
- return __qistd32;}
- qi_old_scope(state);
- qi_decl(state, "r", qi_make_list(state, NULL));
- qi_new_scope(state);
- qi_decl(state, "i", qi_get(state, "f"));
- while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_get(state, "t")))) {
- qi_new_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd36(state)));__continue35:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), qi_get(state, "s")));
- qi_old_scope(state);
- }
- goto __exit35;
- __break35:;
- qi_old_scope(state);
- __exit35:;
- qi_old_scope(state);
- qi_value_t *__qistd37 = qi_get(state, "r");
- return __qistd37;
- return state->nil;
- }
- qi_value_t *__qistd38(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "file", qi_list_index(pargs, 0));
- qi_value_t *__qistd39 = qi_call(state, qi_index(state, qi_get(state, "file"), qi_make_string(state, "rewind")), NULL);
- return __qistd39;return state->nil;
- }
- inline static qi_list_t *__qistd41(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "filename");
- qi_list_data(list, 1) = qi_make_string(state, "r");
- return list;
- }
- inline static qi_list_t *__qistd43(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "file");
- return list;
- }
- void __qistd42(qi_state_t *state) {
- (void)(qi_call(state, qi_get(state, "fclose"), __qistd43(state)));
- }
- inline static qi_list_t *__qistd46(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "file");
- qi_list_data(list, 1) = qi_negate(state, qi_make_number(state, 1));
- return list;
- }
- inline static qi_list_t *__qistd45(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_call(state, qi_get(state, "fread"), __qistd46(state));
- return list;
- }
- qi_value_t *__qistd40(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "filename", qi_list_index(pargs, 0));
- qi_decl_const(state, "file", qi_call(state, qi_get(state, "fopen"), __qistd41(state)));
- qi_add_defer(state, -1, __qistd42);
- qi_value_t *__qistd44 = qi_call(state, qi_get(state, "str"), __qistd45(state));
- return __qistd44;
- return state->nil;
- }
- inline static qi_list_t *__qistd48(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "filename");
- qi_list_data(list, 1) = qi_make_string(state, "w");
- return list;
- }
- inline static qi_list_t *__qistd50(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "file");
- return list;
- }
- void __qistd49(qi_state_t *state) {
- (void)(qi_call(state, qi_get(state, "fclose"), __qistd50(state)));
- }
- inline static qi_list_t *__qistd52(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "data");
- return list;
- }
- inline static qi_list_t *__qistd51(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "file");
- qi_list_data(list, 1) = qi_call(state, qi_get(state, "bytes"), __qistd52(state));
- return list;
- }
- qi_value_t *__qistd47(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "filename", qi_list_index(pargs, 0));
- qi_decl(state, "data", qi_list_index(pargs, 1));
- qi_decl_const(state, "file", qi_call(state, qi_get(state, "fopen"), __qistd48(state)));
- qi_add_defer(state, -1, __qistd49);
- (void)(qi_call(state, qi_get(state, "fwrite"), __qistd51(state)));
- return state->nil;
- }
- inline static qi_list_t *__qistd54(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "name");
- return list;
- }
- inline static qi_list_t *__qistd55(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "name");
- return list;
- }
- qi_value_t *__qistd53(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "name", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd54(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd55(state))));}
- qi_old_scope(state);
- qi_bool b = qi_find(state, qi_get(state, "name")->value.string) != NULL;
- return qi_make_boolean(state, b);
- return state->nil;
- }
- inline static qi_list_t *__qistd58(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd59(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd61(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd62(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "l");
- qi_list_data(list, 1) = qi_get(state, "i");
- return list;
- }
- qi_value_t *__qistd56(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "first", pargc >= 3? qi_list_index(pargs, 2): state->_false);
- qi_decl(state, "l", qi_list_index(pargs, 0));
- qi_decl(state, "x", qi_list_index(pargs, 1));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd58(state)), qi_make_string(state, "list")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd59(state))));}
- qi_old_scope(state);
- __label57:;
- qi_new_scope(state);
- qi_decl(state, "i", qi_make_number(state, 0));
- while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd61(state))))) {
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_index(state, qi_get(state, "l"), qi_get(state, "i")), qi_get(state, "x")))) {
- (void)(qi_call(state, qi_get(state, "list_delete"), __qistd62(state)));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_get(state, "first"))) {
- qi_old_scope(state);
- qi_old_scope(state);
- goto __break60;}
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- goto __label57;
- }
- qi_old_scope(state);
- __continue60:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit60;
- __break60:;
- qi_old_scope(state);
- __exit60:;
- qi_old_scope(state);
- return state->nil;
- }
- inline static qi_list_t *__qistd64(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd65(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd66(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "arguments");
- return list;
- }
- inline static qi_list_t *__qistd67(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd68(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd71(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "x");
- return list;
- }
- inline static qi_list_t *__qistd72(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "x");
- return list;
- }
- qi_value_t *__qistd63(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "l", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd64(state)), qi_make_string(state, "list")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argumient to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd65(state))));}
- qi_old_scope(state);
- qi_decl(state, "r", state->empty_string);
- qi_decl(state, "s", state->nil);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd66(state)), qi_make_number(state, 1)))) {
- (void)(qi_set(state, false, "s", state->empty_string));} else {
- (void)(qi_set(state, false, "s", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd67(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd68(state))));}
- qi_old_scope(state);
- qi_decl(state, "first", state->_true);
- qi_new_scope(state);
- qi_value_t *__qistd70 = qi_iter(state, qi_get(state, "l"));
- qi_decl(state, "x", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd70), i = 0; i < length; i++) {
- qi_set(state, false, "x", qi_index(state, __qistd70, qi_make_number(state, i)));
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd71(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected sequence item to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd72(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_and(state, qi_not_equals(state, qi_get(state, "s"), state->empty_string), qi_not(state, qi_get(state, "first"))))) {
- (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_get(state, "s"))));}
- qi_old_scope(state);
- (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_get(state, "x"))));
- (void)(qi_set(state, false, "first", state->_false));
- __continue69:;
- qi_old_scope(state);
- }
- goto __exit69;
- __break69:;
- qi_old_scope(state);
- __exit69:;
- qi_old_scope(state);
- qi_value_t *__qistd73 = qi_get(state, "r");
- return __qistd73;
- return state->nil;
- }
- inline static qi_list_t *__qistd75(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd76(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd77(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "i");
- return list;
- }
- inline static qi_list_t *__qistd78(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "i");
- return list;
- }
- inline static qi_list_t *__qistd79(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "l");
- qi_list_data(list, 1) = qi_get(state, "i");
- return list;
- }
- qi_value_t *__qistd74(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "i", qi_list_index(pargs, 1));
- qi_decl(state, "l", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd75(state)), qi_make_string(state, "list")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd76(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd77(state)), qi_make_string(state, "number")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd78(state))));}
- qi_old_scope(state);
- qi_decl(state, "x", qi_index(state, qi_get(state, "l"), qi_get(state, "i")));
- (void)(qi_call(state, qi_get(state, "list_delete"), __qistd79(state)));
- qi_value_t *__qistd80 = qi_get(state, "x");
- return __qistd80;
- return state->nil;
- }
- qi_value_t *__qistd81(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "x", qi_list_index(pargs, 0));
- qi_decl(state, "y", qi_list_index(pargs, 1));
- qi_value_t *__qistd82 = (_qi_truthy(state, qi_gt(state, qi_get(state, "x"), qi_get(state, "y")))? qi_make_number(state, 1): (_qi_truthy(state, qi_lt(state, qi_get(state, "x"), qi_get(state, "y")))? qi_negate(state, qi_make_number(state, 1)): qi_make_number(state, 0)));
- return __qistd82;return state->nil;
- }
- inline static qi_list_t *__qistd84(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd85(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd86(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "cmp");
- return list;
- }
- inline static qi_list_t *__qistd87(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "cmp");
- return list;
- }
- inline static qi_list_t *__qistd88(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd90(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd93(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_index(state, qi_get(state, "l"), qi_get(state, "j"));
- qi_list_data(list, 1) = qi_index(state, qi_get(state, "l"), qi_add(state, qi_get(state, "j"), qi_make_number(state, 1)));
- return list;
- }
- qi_value_t *__qistd83(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "cmp", pargc >= 2? qi_list_index(pargs, 1): qi_get(state, "__cmp"));
- qi_decl(state, "l", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd84(state)), qi_make_string(state, "list")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd85(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd86(state)), qi_make_string(state, "function")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd87(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd88(state)), qi_make_number(state, 0)))) {
- qi_value_t *__qistd89 = qi_get(state, "l");
- qi_old_scope(state);
- return __qistd89;}
- qi_old_scope(state);
- qi_decl(state, "z", qi_call(state, qi_get(state, "len"), __qistd90(state)));
- qi_new_scope(state);
- qi_decl(state, "i", qi_make_number(state, 0));
- while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_sub(state, qi_get(state, "z"), qi_make_number(state, 1))))) {
- qi_new_scope(state);
- qi_new_scope(state);
- qi_decl(state, "j", qi_make_number(state, 0));
- while (_qi_truthy(state, qi_lt(state, qi_get(state, "j"), qi_sub(state, qi_sub(state, qi_get(state, "z"), qi_make_number(state, 1)), qi_get(state, "i"))))) {
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_gt(state, qi_call(state, qi_get(state, "cmp"), __qistd93(state)), qi_make_number(state, 0)))) {
- qi_decl_const(state, "tmp", qi_index(state, qi_get(state, "l"), qi_get(state, "j")));
- (void)(qi_index_set(state, false, qi_get(state, "l"), qi_get(state, "j"), qi_index(state, qi_get(state, "l"), qi_add(state, qi_get(state, "j"), qi_make_number(state, 1)))));
- (void)(qi_index_set(state, false, qi_get(state, "l"), qi_add(state, qi_get(state, "j"), qi_make_number(state, 1)), qi_get(state, "tmp")));
- }
- qi_old_scope(state);
- __continue92:;
- qi_set(state, false, "j", qi_add(state, qi_get(state, "j"), state->one));
- qi_old_scope(state);
- }
- goto __exit92;
- __break92:;
- qi_old_scope(state);
- __exit92:;
- qi_old_scope(state);
- __continue91:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit91;
- __break91:;
- qi_old_scope(state);
- __exit91:;
- qi_old_scope(state);
- qi_value_t *__qistd94 = qi_get(state, "l");
- return __qistd94;
- return state->nil;
- }
- inline static qi_list_t *__qistd96(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd98(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "l");
- qi_list_data(list, 1) = qi_get(state, "cmp");
- return list;
- }
- qi_value_t *__qistd95(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "cmp", pargc >= 2? qi_list_index(pargs, 1): qi_get(state, "__cmp"));
- qi_decl(state, "l", qi_list_index(pargs, 0));
- (void)(qi_set(state, false, "l", qi_call(state, qi_get(state, "list_copy"), __qistd96(state))));
- qi_value_t *__qistd97 = qi_call(state, qi_get(state, "list_sort"), __qistd98(state));
- return __qistd97;
- return state->nil;
- }
- inline static qi_list_t *__qistd100(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd101(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd102(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd103(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "l");
- qi_list_data(list, 1) = qi_make_number(state, 0);
- return list;
- }
- qi_value_t *__qistd99(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "l", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd100(state)), qi_make_string(state, "list")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd101(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_call(state, qi_get(state, "is_empty"), __qistd102(state)))) {
- qi_throw(state, qi_make_string(state, "shift from empty list"));}
- qi_old_scope(state);
- qi_decl(state, "a", qi_index(state, qi_get(state, "l"), qi_make_number(state, 0)));
- (void)(qi_call(state, qi_get(state, "list_delete"), __qistd103(state)));
- qi_value_t *__qistd104 = qi_get(state, "a");
- return __qistd104;
- return state->nil;
- }
- inline static qi_list_t *__qistd106(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(3);
- qi_list_data(list, 0) = qi_get(state, "l");
- qi_list_data(list, 1) = qi_make_number(state, 0);
- qi_list_data(list, 2) = qi_get(state, "x");
- return list;
- }
- qi_value_t *__qistd105(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "l", qi_list_index(pargs, 0));
- qi_decl(state, "x", qi_list_index(pargs, 1));
- (void)(qi_call(state, qi_get(state, "list_insert"), __qistd106(state)));
- return state->nil;
- }
- inline static qi_list_t *__qistd108(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd109(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(4);
- qi_list_data(list, 0) = qi_make_string(state, "list");
- qi_list_data(list, 1) = qi_make_string(state, "string");
- qi_list_data(list, 2) = qi_make_string(state, "bytes");
- qi_list_data(list, 3) = qi_make_string(state, "ustr");
- return list;
- }
- inline static qi_list_t *__qistd110(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd111(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "arguments");
- return list;
- }
- inline static qi_list_t *__qistd112(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- return list;
- }
- inline static qi_list_t *__qistd113(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- return list;
- }
- inline static qi_list_t *__qistd114(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd116(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd117(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "r");
- qi_list_data(list, 1) = qi_index(state, qi_get(state, "l"), qi_get(state, "i"));
- return list;
- }
- inline static qi_list_t *__qistd118(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "arguments");
- return list;
- }
- inline static qi_list_t *__qistd119(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- return list;
- }
- inline static qi_list_t *__qistd120(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- return list;
- }
- inline static qi_list_t *__qistd121(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "t");
- return list;
- }
- inline static qi_list_t *__qistd122(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "t");
- return list;
- }
- inline static qi_list_t *__qistd123(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd124(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd126(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd127(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "r");
- qi_list_data(list, 1) = qi_index(state, qi_get(state, "l"), qi_get(state, "i"));
- return list;
- }
- inline static qi_list_t *__qistd128(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd130(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- inline static qi_list_t *__qistd131(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd133(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- inline static qi_list_t *__qistd134(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd136(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- qi_value_t *__qistd107(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "l", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd108(state)), qi_make_tuple(state, __qistd109(state))))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: list, string, bytes or ustr, but got: "), qi_call(state, qi_get(state, "type"), __qistd110(state))));}
- qi_old_scope(state);
- qi_decl(state, "r", qi_make_list(state, NULL));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd111(state)), qi_make_number(state, 2)))) {
- qi_decl(state, "f", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1)));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd112(state)), qi_make_string(state, "number")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd113(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_lt(state, qi_get(state, "f"), qi_make_number(state, 0)))) {
- (void)(qi_set(state, false, "f", qi_add(state, qi_get(state, "f"), qi_call(state, qi_get(state, "len"), __qistd114(state)))));}
- qi_old_scope(state);
- qi_new_scope(state);
- qi_decl(state, "i", qi_get(state, "f"));
- while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd116(state))))) {
- qi_new_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd117(state)));__continue115:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit115;
- __break115:;
- qi_old_scope(state);
- __exit115:;
- qi_old_scope(state);
- } else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd118(state)), qi_make_number(state, 3)))) {
- qi_decl(state, "f", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1)));
- qi_decl(state, "t", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 2)));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd119(state)), qi_make_string(state, "number")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd120(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd121(state)), qi_make_string(state, "number")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected third argument to be: number, but got: "), qi_call(state, qi_get(state, "type"), __qistd122(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_lt(state, qi_get(state, "f"), qi_make_number(state, 0)))) {
- (void)(qi_set(state, false, "f", qi_add(state, qi_get(state, "f"), qi_call(state, qi_get(state, "len"), __qistd123(state)))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_lt(state, qi_get(state, "t"), qi_make_number(state, 0)))) {
- (void)(qi_set(state, false, "t", qi_add(state, qi_get(state, "t"), qi_call(state, qi_get(state, "len"), __qistd124(state)))));}
- qi_old_scope(state);
- qi_new_scope(state);
- qi_decl(state, "i", qi_get(state, "f"));
- while (_qi_truthy(state, qi_and(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd126(state))), qi_le(state, qi_get(state, "i"), qi_get(state, "t"))))) {
- qi_new_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd127(state)));__continue125:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit125;
- __break125:;
- qi_old_scope(state);
- __exit125:;
- qi_old_scope(state);
- }
- qi_old_scope(state);
- }
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd128(state)), qi_make_string(state, "string")))) {
- qi_value_t *__qistd129 = qi_call(state, qi_get(state, "list_join"), __qistd130(state));
- qi_old_scope(state);
- return __qistd129;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd131(state)), qi_make_string(state, "bytes")))) {
- qi_value_t *__qistd132 = qi_call(state, qi_get(state, "bytes"), __qistd133(state));
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd132;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd134(state)), qi_make_string(state, "ustr")))) {
- qi_value_t *__qistd135 = qi_call(state, qi_get(state, "ustr"), __qistd136(state));
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd135;}
- qi_old_scope(state);
- }
- qi_old_scope(state);
- }
- qi_old_scope(state);
- qi_value_t *__qistd137 = qi_get(state, "r");
- return __qistd137;
- return state->nil;
- }
- inline static qi_list_t *__qistd139(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd140(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd141(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd142(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "p");
- return list;
- }
- inline static qi_list_t *__qistd146(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "p");
- return list;
- }
- inline static qi_list_t *__qistd145(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(3);
- qi_list_data(list, 0) = qi_get(state, "s");
- qi_list_data(list, 1) = qi_make_number(state, 0);
- qi_list_data(list, 2) = qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd146(state)), qi_make_number(state, 1));
- return list;
- }
- qi_value_t *__qistd138(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "p", qi_list_index(pargs, 1));
- qi_decl(state, "s", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd139(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd140(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_lt(state, qi_call(state, qi_get(state, "len"), __qistd141(state)), qi_call(state, qi_get(state, "len"), __qistd142(state))))) {
- qi_value_t *__qistd143 = state->_false;
- qi_old_scope(state);
- return __qistd143;}
- qi_old_scope(state);
- qi_value_t *__qistd144 = qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd145(state)), qi_get(state, "p"));
- return __qistd144;
- return state->nil;
- }
- inline static qi_list_t *__qistd148(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd149(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd150(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd151(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "p");
- return list;
- }
- inline static qi_list_t *__qistd155(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd156(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "p");
- return list;
- }
- inline static qi_list_t *__qistd154(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "s");
- qi_list_data(list, 1) = qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd155(state)), qi_call(state, qi_get(state, "len"), __qistd156(state)));
- return list;
- }
- qi_value_t *__qistd147(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "p", qi_list_index(pargs, 1));
- qi_decl(state, "s", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd148(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd149(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_lt(state, qi_call(state, qi_get(state, "len"), __qistd150(state)), qi_call(state, qi_get(state, "len"), __qistd151(state))))) {
- qi_value_t *__qistd152 = state->_false;
- qi_old_scope(state);
- return __qistd152;}
- qi_old_scope(state);
- qi_value_t *__qistd153 = qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd154(state)), qi_get(state, "p"));
- return __qistd153;
- return state->nil;
- }
- inline static qi_list_t *__qistd158(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "arguments");
- return list;
- }
- inline static qi_list_t *__qistd160(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd161(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd162(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd163(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "d");
- return list;
- }
- inline static qi_list_t *__qistd164(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd166(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd168(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "d");
- return list;
- }
- inline static qi_list_t *__qistd167(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(3);
- qi_list_data(list, 0) = qi_get(state, "s");
- qi_list_data(list, 1) = qi_get(state, "i");
- qi_list_data(list, 2) = qi_sub(state, qi_add(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd168(state))), qi_make_number(state, 1));
- return list;
- }
- inline static qi_list_t *__qistd169(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "r");
- qi_list_data(list, 1) = qi_get(state, "t");
- return list;
- }
- inline static qi_list_t *__qistd170(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "d");
- return list;
- }
- inline static qi_list_t *__qistd171(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "r");
- qi_list_data(list, 1) = qi_get(state, "t");
- return list;
- }
- qi_value_t *__qistd157(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "s", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_or(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd158(state)), qi_make_number(state, 1)), qi_equals(state, qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1)), state->empty_string)))) {
- qi_value_t *__qistd159 = qi_call(state, qi_get(state, "list"), __qistd160(state));
- qi_old_scope(state);
- return __qistd159;}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd161(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be:!string, but got: "), qi_call(state, qi_get(state, "type"), __qistd162(state))));}
- qi_old_scope(state);
- qi_decl(state, "r", qi_make_list(state, NULL));
- qi_decl(state, "d", qi_index(state, qi_get(state, "arguments"), qi_make_number(state, 1)));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd163(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd164(state))));}
- qi_old_scope(state);
- qi_decl(state, "t", state->empty_string);
- qi_new_scope(state);
- qi_decl(state, "i", qi_make_number(state, 0));
- while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd166(state))))) {
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd167(state)), qi_get(state, "d")))) {
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd169(state)));
- (void)(qi_set(state, false, "t", state->empty_string));
- (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd170(state)), qi_make_number(state, 1)))));
- qi_old_scope(state);
- goto __continue165;
- }
- qi_old_scope(state);
- (void)(qi_set(state, false, "t", qi_add(state, qi_get(state, "t"), qi_index(state, qi_get(state, "s"), qi_get(state, "i")))));
- __continue165:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit165;
- __break165:;
- qi_old_scope(state);
- __exit165:;
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_get(state, "t"), state->empty_string))) {
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd171(state)));}
- qi_old_scope(state);
- qi_value_t *__qistd172 = qi_get(state, "r");
- return __qistd172;
- return state->nil;
- }
- inline static qi_list_t *__qistd174(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd175(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd176(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "w");
- return list;
- }
- inline static qi_list_t *__qistd177(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "w");
- return list;
- }
- inline static qi_list_t *__qistd178(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "b");
- return list;
- }
- inline static qi_list_t *__qistd179(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "b");
- return list;
- }
- inline static qi_list_t *__qistd181(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd183(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "w");
- return list;
- }
- inline static qi_list_t *__qistd182(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(3);
- qi_list_data(list, 0) = qi_get(state, "s");
- qi_list_data(list, 1) = qi_get(state, "i");
- qi_list_data(list, 2) = qi_sub(state, qi_add(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd183(state))), qi_make_number(state, 1));
- return list;
- }
- inline static qi_list_t *__qistd184(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "w");
- return list;
- }
- qi_value_t *__qistd173(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "b", qi_list_index(pargs, 2));
- qi_decl(state, "s", qi_list_index(pargs, 0));
- qi_decl(state, "w", qi_list_index(pargs, 1));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd174(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd175(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd176(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd177(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd178(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected third argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd179(state))));}
- qi_old_scope(state);
- qi_decl(state, "r", state->empty_string);
- qi_new_scope(state);
- qi_decl(state, "i", qi_make_number(state, 0));
- while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd181(state))))) {
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd182(state)), qi_get(state, "w")))) {
- (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_get(state, "b"))));
- (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd184(state)), qi_make_number(state, 1)))));
- qi_old_scope(state);
- goto __continue180;
- }
- qi_old_scope(state);
- (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_index(state, qi_get(state, "s"), qi_get(state, "i")))));
- __continue180:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit180;
- __break180:;
- qi_old_scope(state);
- __exit180:;
- qi_old_scope(state);
- qi_value_t *__qistd185 = qi_get(state, "r");
- return __qistd185;
- return state->nil;
- }
- inline static qi_list_t *__qistd187(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "t");
- return list;
- }
- inline static qi_list_t *__qistd188(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "t");
- return list;
- }
- inline static qi_list_t *__qistd191(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "r");
- qi_list_data(list, 1) = qi_get(state, "k");
- return list;
- }
- qi_value_t *__qistd186(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "t", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd187(state)), qi_make_string(state, "table")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: table, but got: "), qi_call(state, qi_get(state, "type"), __qistd188(state))));}
- qi_old_scope(state);
- qi_decl(state, "r", qi_make_list(state, NULL));
- qi_new_scope(state);
- qi_value_t *__qistd190 = qi_iter(state, qi_get(state, "t"));
- qi_decl(state, "k", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd190), i = 0; i < length; i++) {
- qi_set(state, false, "k", qi_index(state, __qistd190, qi_make_number(state, i)));
- qi_new_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd191(state)));__continue189:;
- qi_old_scope(state);
- }
- goto __exit189;
- __break189:;
- qi_old_scope(state);
- __exit189:;
- qi_old_scope(state);
- qi_value_t *__qistd192 = qi_get(state, "r");
- return __qistd192;
- return state->nil;
- }
- inline static qi_list_t *__qistd194(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "t");
- return list;
- }
- inline static qi_list_t *__qistd195(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "t");
- return list;
- }
- inline static qi_list_t *__qistd198(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "r");
- qi_list_data(list, 1) = qi_index(state, qi_get(state, "t"), qi_get(state, "k"));
- return list;
- }
- qi_value_t *__qistd193(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "t", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd194(state)), qi_make_string(state, "table")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: table, but got: "), qi_call(state, qi_get(state, "type"), __qistd195(state))));}
- qi_old_scope(state);
- qi_decl(state, "r", qi_make_list(state, NULL));
- qi_new_scope(state);
- qi_value_t *__qistd197 = qi_iter(state, qi_get(state, "t"));
- qi_decl(state, "k", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd197), i = 0; i < length; i++) {
- qi_set(state, false, "k", qi_index(state, __qistd197, qi_make_number(state, i)));
- qi_new_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd198(state)));__continue196:;
- qi_old_scope(state);
- }
- goto __exit196;
- __break196:;
- qi_old_scope(state);
- __exit196:;
- qi_old_scope(state);
- qi_value_t *__qistd199 = qi_get(state, "r");
- return __qistd199;
- return state->nil;
- }
- inline static qi_list_t *__qistd201(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- return list;
- }
- inline static qi_list_t *__qistd202(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- return list;
- }
- inline static qi_list_t *__qistd203(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd204(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(4);
- qi_list_data(list, 0) = qi_make_string(state, "list");
- qi_list_data(list, 1) = qi_make_string(state, "tuple");
- qi_list_data(list, 2) = qi_make_string(state, "string");
- qi_list_data(list, 3) = qi_make_string(state, "bytes");
- return list;
- }
- inline static qi_list_t *__qistd205(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd206(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd209(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "xs");
- qi_list_data(list, 1) = qi_make_number(state, 1);
- return list;
- }
- inline static qi_list_t *__qistd210(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "r");
- qi_list_data(list, 1) = qi_get(state, "x");
- return list;
- }
- inline static qi_list_t *__qistd211(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd213(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- inline static qi_list_t *__qistd214(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd216(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- inline static qi_list_t *__qistd217(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd219(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- qi_value_t *__qistd200(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 0));
- qi_decl(state, "xs", qi_list_index(pargs, 1));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd201(state)), qi_make_string(state, "function")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd202(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd203(state)), qi_make_tuple(state, __qistd204(state))))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: list, tuple, string or bytes, but got: "), qi_call(state, qi_get(state, "type"), __qistd205(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd206(state)), qi_make_number(state, 0)))) {
- qi_throw(state, qi_make_string(state, "cannot reduce empty list"));}
- qi_old_scope(state);
- (void)(qi_set(state, false, "r", qi_index(state, qi_get(state, "xs"), qi_make_number(state, 0))));
- qi_new_scope(state);
- qi_value_t *__qistd208 = qi_iter(state, qi_call(state, qi_get(state, "slice"), __qistd209(state)));
- qi_decl(state, "x", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd208), i = 0; i < length; i++) {
- qi_set(state, false, "x", qi_index(state, __qistd208, qi_make_number(state, i)));
- qi_new_scope(state);
- (void)(qi_set(state, false, "r", qi_call(state, qi_get(state, "f"), __qistd210(state))));__continue207:;
- qi_old_scope(state);
- }
- goto __exit207;
- __break207:;
- qi_old_scope(state);
- __exit207:;
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd211(state)), qi_make_string(state, "tuple")))) {
- qi_value_t *__qistd212 = qi_call(state, qi_get(state, "tuple"), __qistd213(state));
- qi_old_scope(state);
- return __qistd212;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd214(state)), qi_make_string(state, "string")))) {
- qi_value_t *__qistd215 = qi_call(state, qi_get(state, "list_join"), __qistd216(state));
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd215;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd217(state)), qi_make_string(state, "bytes")))) {
- qi_value_t *__qistd218 = qi_call(state, qi_get(state, "bytes"), __qistd219(state));
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd218;}
- qi_old_scope(state);
- }
- qi_old_scope(state);
- }
- qi_old_scope(state);
- qi_value_t *__qistd220 = qi_get(state, "r");
- return __qistd220;
- return state->nil;
- }
- qi_value_t *__qistd224(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "x", qi_list_index(pargs, 0));
- qi_decl(state, "y", qi_list_index(pargs, 1));
- qi_value_t *__qistd225 = qi_add(state, qi_get(state, "x"), qi_get(state, "y"));
- return __qistd225;return state->nil;
- }
- inline static qi_list_t *__qistd223(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_function(state, "<anon>", 2, __qistd224, NULL);
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd221(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd222 = qi_call(state, qi_get(state, "reduce"), __qistd223(state));
- return __qistd222;return state->nil;
- }
- qi_value_t *__qistd229(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "x", qi_list_index(pargs, 0));
- qi_decl(state, "y", qi_list_index(pargs, 1));
- qi_value_t *__qistd230 = qi_mul(state, qi_get(state, "x"), qi_get(state, "y"));
- return __qistd230;return state->nil;
- }
- inline static qi_list_t *__qistd228(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_function(state, "<anon>", 2, __qistd229, NULL);
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd226(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd227 = qi_call(state, qi_get(state, "reduce"), __qistd228(state));
- return __qistd227;return state->nil;
- }
- qi_value_t *__qistd234(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "x", qi_list_index(pargs, 0));
- qi_decl(state, "y", qi_list_index(pargs, 1));
- qi_value_t *__qistd235 = qi_and(state, qi_get(state, "x"), qi_get(state, "y"));
- return __qistd235;return state->nil;
- }
- inline static qi_list_t *__qistd233(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_function(state, "<anon>", 2, __qistd234, NULL);
- qi_list_data(list, 1) = qi_get(state, "l");
- return list;
- }
- qi_value_t *__qistd231(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "l", qi_list_index(pargs, 0));
- qi_value_t *__qistd232 = qi_call(state, qi_get(state, "reduce"), __qistd233(state));
- return __qistd232;return state->nil;
- }
- qi_value_t *__qistd239(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "x", qi_list_index(pargs, 0));
- qi_decl(state, "y", qi_list_index(pargs, 1));
- qi_value_t *__qistd240 = qi_or(state, qi_get(state, "x"), qi_get(state, "y"));
- return __qistd240;return state->nil;
- }
- inline static qi_list_t *__qistd238(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_function(state, "<anon>", 2, __qistd239, NULL);
- qi_list_data(list, 1) = qi_get(state, "l");
- return list;
- }
- qi_value_t *__qistd236(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "l", qi_list_index(pargs, 0));
- qi_value_t *__qistd237 = qi_call(state, qi_get(state, "reduce"), __qistd238(state));
- return __qistd237;return state->nil;
- }
- inline static qi_list_t *__qistd242(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- return list;
- }
- inline static qi_list_t *__qistd243(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- return list;
- }
- inline static qi_list_t *__qistd244(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd245(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(4);
- qi_list_data(list, 0) = qi_make_string(state, "list");
- qi_list_data(list, 1) = qi_make_string(state, "tuple");
- qi_list_data(list, 2) = qi_make_string(state, "string");
- qi_list_data(list, 3) = qi_make_string(state, "bytes");
- return list;
- }
- inline static qi_list_t *__qistd246(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd247(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd252(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "x");
- return list;
- }
- inline static qi_list_t *__qistd251(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "r");
- qi_list_data(list, 1) = qi_call(state, qi_get(state, "f"), __qistd252(state));
- return list;
- }
- inline static qi_list_t *__qistd253(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd255(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- inline static qi_list_t *__qistd256(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd258(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- inline static qi_list_t *__qistd259(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd261(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- qi_value_t *__qistd241(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 0));
- qi_decl(state, "xs", qi_list_index(pargs, 1));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd242(state)), qi_make_string(state, "function")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd243(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd244(state)), qi_make_tuple(state, __qistd245(state))))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: list, tuple, string or bytes, but got: "), qi_call(state, qi_get(state, "type"), __qistd246(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd247(state)), qi_make_number(state, 0)))) {
- qi_value_t *__qistd248 = qi_get(state, "xs");
- qi_old_scope(state);
- return __qistd248;}
- qi_old_scope(state);
- qi_decl(state, "r", qi_make_list(state, NULL));
- qi_new_scope(state);
- qi_value_t *__qistd250 = qi_iter(state, qi_get(state, "xs"));
- qi_decl(state, "x", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd250), i = 0; i < length; i++) {
- qi_set(state, false, "x", qi_index(state, __qistd250, qi_make_number(state, i)));
- qi_new_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd251(state)));__continue249:;
- qi_old_scope(state);
- }
- goto __exit249;
- __break249:;
- qi_old_scope(state);
- __exit249:;
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd253(state)), qi_make_string(state, "tuple")))) {
- qi_value_t *__qistd254 = qi_call(state, qi_get(state, "tuple"), __qistd255(state));
- qi_old_scope(state);
- return __qistd254;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd256(state)), qi_make_string(state, "string")))) {
- qi_value_t *__qistd257 = qi_call(state, qi_get(state, "list_join"), __qistd258(state));
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd257;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd259(state)), qi_make_string(state, "bytes")))) {
- qi_value_t *__qistd260 = qi_call(state, qi_get(state, "bytes"), __qistd261(state));
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd260;}
- qi_old_scope(state);
- }
- qi_old_scope(state);
- }
- qi_old_scope(state);
- qi_value_t *__qistd262 = qi_get(state, "r");
- return __qistd262;
- return state->nil;
- }
- inline static qi_list_t *__qistd264(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- return list;
- }
- inline static qi_list_t *__qistd265(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- return list;
- }
- inline static qi_list_t *__qistd266(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd267(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(4);
- qi_list_data(list, 0) = qi_make_string(state, "list");
- qi_list_data(list, 1) = qi_make_string(state, "tuple");
- qi_list_data(list, 2) = qi_make_string(state, "string");
- qi_list_data(list, 3) = qi_make_string(state, "bytes");
- return list;
- }
- inline static qi_list_t *__qistd268(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd269(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd273(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "x");
- return list;
- }
- inline static qi_list_t *__qistd274(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "r");
- qi_list_data(list, 1) = qi_get(state, "x");
- return list;
- }
- inline static qi_list_t *__qistd275(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd277(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- inline static qi_list_t *__qistd278(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd280(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- inline static qi_list_t *__qistd281(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "xs");
- return list;
- }
- inline static qi_list_t *__qistd283(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- qi_value_t *__qistd263(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 0));
- qi_decl(state, "xs", qi_list_index(pargs, 1));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd264(state)), qi_make_string(state, "function")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: function, but got: "), qi_call(state, qi_get(state, "type"), __qistd265(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd266(state)), qi_make_tuple(state, __qistd267(state))))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: list, tuple, string or bytes, but got: "), qi_call(state, qi_get(state, "type"), __qistd268(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd269(state)), qi_make_number(state, 0)))) {
- qi_value_t *__qistd270 = qi_get(state, "xs");
- qi_old_scope(state);
- return __qistd270;}
- qi_old_scope(state);
- qi_decl(state, "r", qi_make_list(state, NULL));
- qi_new_scope(state);
- qi_value_t *__qistd272 = qi_iter(state, qi_get(state, "xs"));
- qi_decl(state, "x", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd272), i = 0; i < length; i++) {
- qi_set(state, false, "x", qi_index(state, __qistd272, qi_make_number(state, i)));
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_call(state, qi_get(state, "f"), __qistd273(state)))) {
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd274(state)));}
- qi_old_scope(state);
- __continue271:;
- qi_old_scope(state);
- }
- goto __exit271;
- __break271:;
- qi_old_scope(state);
- __exit271:;
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd275(state)), qi_make_string(state, "tuple")))) {
- qi_value_t *__qistd276 = qi_call(state, qi_get(state, "tuple"), __qistd277(state));
- qi_old_scope(state);
- return __qistd276;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd278(state)), qi_make_string(state, "string")))) {
- qi_value_t *__qistd279 = qi_call(state, qi_get(state, "list_join"), __qistd280(state));
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd279;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd281(state)), qi_make_string(state, "bytes")))) {
- qi_value_t *__qistd282 = qi_call(state, qi_get(state, "bytes"), __qistd283(state));
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd282;}
- qi_old_scope(state);
- }
- qi_old_scope(state);
- }
- qi_old_scope(state);
- qi_value_t *__qistd284 = qi_get(state, "r");
- return __qistd284;
- return state->nil;
- }
- inline static qi_list_t *__qistd287(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd288(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd289(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "w");
- return list;
- }
- inline static qi_list_t *__qistd290(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "w");
- return list;
- }
- inline static qi_list_t *__qistd292(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd293(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "w");
- return list;
- }
- inline static qi_list_t *__qistd296(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "w");
- return list;
- }
- inline static qi_list_t *__qistd295(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(3);
- qi_list_data(list, 0) = qi_get(state, "s");
- qi_list_data(list, 1) = qi_get(state, "i");
- qi_list_data(list, 2) = qi_sub(state, qi_add(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd296(state))), qi_make_number(state, 1));
- return list;
- }
- qi_value_t *__qistd285(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "s", qi_list_index(pargs, 0));
- qi_decl(state, "w", qi_list_index(pargs, 1));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_or(state, qi_equals(state, qi_get(state, "s"), state->empty_string), qi_equals(state, qi_get(state, "w"), state->empty_string)))) {
- qi_value_t *__qistd286 = qi_negate(state, qi_make_number(state, 1));
- qi_old_scope(state);
- return __qistd286;}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd287(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd288(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd289(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd290(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- qi_decl(state, "i", qi_make_number(state, 0));
- while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd292(state))))) {
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_and(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd293(state)), qi_make_number(state, 1)), qi_equals(state, qi_index(state, qi_get(state, "s"), qi_get(state, "i")), qi_get(state, "w"))))) {
- qi_value_t *__qistd294 = qi_get(state, "i");
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd294;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd295(state)), qi_get(state, "w")))) {
- qi_value_t *__qistd297 = qi_get(state, "i");
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd297;}
- qi_old_scope(state);
- }
- qi_old_scope(state);
- __continue291:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit291;
- __break291:;
- qi_old_scope(state);
- __exit291:;
- qi_old_scope(state);
- qi_value_t *__qistd298 = qi_negate(state, qi_make_number(state, 1));
- return __qistd298;
- return state->nil;
- }
- inline static qi_list_t *__qistd300(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd301(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd302(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "cs");
- return list;
- }
- inline static qi_list_t *__qistd303(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "cs");
- return list;
- }
- inline static qi_list_t *__qistd306(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd308(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "s");
- qi_list_data(list, 1) = qi_get(state, "i");
- return list;
- }
- qi_value_t *__qistd299(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "s", qi_list_index(pargs, 0));
- qi_decl(state, "cs", pargc >= 2? qi_list_index(pargs, 1): qi_make_string(state, " \t\n\r\x0b\x0c"));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd300(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd301(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd302(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd303(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_get(state, "s"), state->empty_string))) {
- qi_value_t *__qistd304 = qi_get(state, "s");
- qi_old_scope(state);
- return __qistd304;}
- qi_old_scope(state);
- qi_decl(state, "i", state->nil);
- qi_new_scope(state);
- (void)(qi_set(state, false, "i", qi_make_number(state, 0)));while (_qi_truthy(state, qi_and(state, qi_in(state, qi_index(state, qi_get(state, "s"), qi_get(state, "i")), qi_get(state, "cs")), qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd306(state)))))) {
- qi_new_scope(state);
- __continue305:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit305;
- __break305:;
- qi_old_scope(state);
- __exit305:;
- qi_old_scope(state);
- qi_value_t *__qistd307 = qi_call(state, qi_get(state, "slice"), __qistd308(state));
- return __qistd307;
- return state->nil;
- }
- inline static qi_list_t *__qistd310(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd311(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd312(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "cs");
- return list;
- }
- inline static qi_list_t *__qistd313(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "cs");
- return list;
- }
- inline static qi_list_t *__qistd316(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd319(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd318(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(3);
- qi_list_data(list, 0) = qi_get(state, "s");
- qi_list_data(list, 1) = qi_make_number(state, 0);
- qi_list_data(list, 2) = qi_sub(state, qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd319(state)), qi_get(state, "k")), qi_make_number(state, 1));
- return list;
- }
- qi_value_t *__qistd309(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "s", qi_list_index(pargs, 0));
- qi_decl(state, "cs", pargc >= 2? qi_list_index(pargs, 1): qi_make_string(state, " \t\n\r\x0b\x0c"));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd310(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd311(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd312(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd313(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_get(state, "s"), state->empty_string))) {
- qi_value_t *__qistd314 = qi_get(state, "s");
- qi_old_scope(state);
- return __qistd314;}
- qi_old_scope(state);
- qi_decl(state, "i", state->nil);
- qi_decl(state, "k", state->nil);
- qi_new_scope(state);
- (void)((qi_set(state, false, "k", qi_make_number(state, 0)), qi_set(state, false, "i", qi_sub(state, qi_call(state, qi_get(state, "len"), __qistd316(state)), qi_make_number(state, 1)))));while (_qi_truthy(state, qi_and(state, qi_in(state, qi_index(state, qi_get(state, "s"), qi_get(state, "i")), qi_get(state, "cs")), qi_ge(state, qi_get(state, "i"), qi_make_number(state, 0))))) {
- qi_new_scope(state);
- (void)(qi_set(state, false, "i", qi_sub(state, qi_get(state, "i"), state->one)));__continue315:;
- qi_set(state, false, "k", qi_add(state, qi_get(state, "k"), state->one));
- qi_old_scope(state);
- }
- goto __exit315;
- __break315:;
- qi_old_scope(state);
- __exit315:;
- qi_old_scope(state);
- qi_value_t *__qistd317 = qi_call(state, qi_get(state, "slice"), __qistd318(state));
- return __qistd317;
- return state->nil;
- }
- inline static qi_list_t *__qistd321(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd322(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd323(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "cs");
- return list;
- }
- inline static qi_list_t *__qistd324(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "cs");
- return list;
- }
- inline static qi_list_t *__qistd327(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "s");
- qi_list_data(list, 1) = qi_get(state, "cs");
- return list;
- }
- inline static qi_list_t *__qistd326(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_call(state, qi_get(state, "str_rstrip"), __qistd327(state));
- qi_list_data(list, 1) = qi_get(state, "cs");
- return list;
- }
- qi_value_t *__qistd320(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "s", qi_list_index(pargs, 0));
- qi_decl(state, "cs", pargc >= 2? qi_list_index(pargs, 1): qi_make_string(state, " \t\n\r\x0b\x0c"));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd321(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd322(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd323(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd324(state))));}
- qi_old_scope(state);
- qi_value_t *__qistd325 = qi_call(state, qi_get(state, "str_lstrip"), __qistd326(state));
- return __qistd325;
- return state->nil;
- }
- inline static qi_list_t *__qistd330(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "len");
- qi_list_data(list, 1) = qi_get(state, "arguments");
- return list;
- }
- inline static qi_list_t *__qistd331(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "min");
- qi_list_data(list, 1) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd335(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "t");
- qi_list_data(list, 1) = qi_index(state, qi_get(state, "xs"), qi_get(state, "i"));
- return list;
- }
- inline static qi_list_t *__qistd336(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "r");
- qi_list_data(list, 1) = qi_get(state, "t");
- return list;
- }
- qi_value_t *__qistd328(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not(state, qi_get(state, "arguments")))) {
- qi_value_t *__qistd329 = qi_make_list(state, NULL);
- qi_old_scope(state);
- return __qistd329;}
- qi_old_scope(state);
- qi_decl(state, "l", qi_call(state, qi_get(state, "map"), __qistd330(state)));
- (void)(qi_set(state, false, "l", qi_call(state, qi_get(state, "reduce"), __qistd331(state))));
- qi_decl(state, "r", qi_make_list(state, NULL));
- qi_new_scope(state);
- qi_decl(state, "i", qi_make_number(state, 0));
- while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_get(state, "l")))) {
- qi_new_scope(state);
- qi_decl(state, "t", qi_make_list(state, NULL));
- qi_new_scope(state);
- qi_value_t *__qistd334 = qi_iter(state, qi_get(state, "arguments"));
- qi_decl(state, "xs", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd334), i = 0; i < length; i++) {
- qi_set(state, false, "xs", qi_index(state, __qistd334, qi_make_number(state, i)));
- qi_new_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd335(state)));__continue333:;
- qi_old_scope(state);
- }
- goto __exit333;
- __break333:;
- qi_old_scope(state);
- __exit333:;
- qi_old_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd336(state)));
- __continue332:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit332;
- __break332:;
- qi_old_scope(state);
- __exit332:;
- qi_old_scope(state);
- qi_value_t *__qistd337 = qi_get(state, "r");
- return __qistd337;
- return state->nil;
- }
- inline static qi_list_t *__qistd339(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd342(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd343(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd341(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_call(state, qi_get(state, "table_keys"), __qistd342(state));
- qi_list_data(list, 1) = qi_call(state, qi_get(state, "table_values"), __qistd343(state));
- return list;
- }
- inline static qi_list_t *__qistd347(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd346(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_call(state, qi_get(state, "len"), __qistd347(state));
- return list;
- }
- inline static qi_list_t *__qistd345(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_call(state, qi_get(state, "range"), __qistd346(state));
- qi_list_data(list, 1) = qi_get(state, "l");
- return list;
- }
- qi_value_t *__qistd338(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "l", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd339(state)), qi_make_string(state, "table")))) {
- qi_value_t *__qistd340 = qi_call(state, qi_get(state, "zip"), __qistd341(state));
- qi_old_scope(state);
- return __qistd340;} else {
- qi_value_t *__qistd344 = qi_call(state, qi_get(state, "zip"), __qistd345(state));
- qi_old_scope(state);
- return __qistd344;}
- qi_old_scope(state);
- return state->nil;
- }
- inline static qi_list_t *__qistd349(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd350(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "c");
- return list;
- }
- inline static qi_list_t *__qistd356(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "c");
- return list;
- }
- inline static qi_list_t *__qistd355(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_sub(state, qi_call(state, qi_get(state, "ord"), __qistd356(state)), qi_make_number(state, 32));
- return list;
- }
- qi_value_t *__qistd353(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "c", qi_list_index(pargs, 0));
- qi_value_t *__qistd354 = (_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"), __qistd355(state)): qi_get(state, "c"));
- return __qistd354;return state->nil;
- }
- inline static qi_list_t *__qistd352(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_function(state, "<anon>", 1, __qistd353, NULL);
- qi_list_data(list, 1) = qi_get(state, "s");
- return list;
- }
- qi_value_t *__qistd348(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "s", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd349(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd350(state))));}
- qi_old_scope(state);
- qi_value_t *__qistd351 = qi_call(state, qi_get(state, "map"), __qistd352(state));
- return __qistd351;
- return state->nil;
- }
- inline static qi_list_t *__qistd358(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd359(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "c");
- return list;
- }
- inline static qi_list_t *__qistd365(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "c");
- return list;
- }
- inline static qi_list_t *__qistd364(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_add(state, qi_call(state, qi_get(state, "ord"), __qistd365(state)), qi_make_number(state, 32));
- return list;
- }
- qi_value_t *__qistd362(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "c", qi_list_index(pargs, 0));
- qi_value_t *__qistd363 = (_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"), __qistd364(state)): qi_get(state, "c"));
- return __qistd363;return state->nil;
- }
- inline static qi_list_t *__qistd361(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_function(state, "<anon>", 1, __qistd362, NULL);
- qi_list_data(list, 1) = qi_get(state, "s");
- return list;
- }
- qi_value_t *__qistd357(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "s", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd358(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd359(state))));}
- qi_old_scope(state);
- qi_value_t *__qistd360 = qi_call(state, qi_get(state, "map"), __qistd361(state));
- return __qistd360;
- return state->nil;
- }
- inline static qi_list_t *__qistd369(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "p");
- return list;
- }
- inline static qi_list_t *__qistd368(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "p");
- qi_list_data(list, 1) = qi_add(state, qi_call(state, qi_get(state, "get_meta_table"), __qistd369(state)), qi_get(state, "t"));
- return list;
- }
- inline static qi_list_t *__qistd370(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_table(state, NULL);
- qi_list_data(list, 1) = qi_get(state, "t");
- return list;
- }
- qi_value_t *__qistd366(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "p", pargc >= 2? qi_list_index(pargs, 1): state->nil);
- qi_decl(state, "t", qi_list_index(pargs, 0));
- qi_value_t *__qistd367 = (_qi_truthy(state, qi_not_is(state, qi_get(state, "p"), state->nil))? qi_call(state, qi_get(state, "set_meta_table"), __qistd368(state)): qi_call(state, qi_get(state, "set_meta_table"), __qistd370(state)));
- return __qistd367;return state->nil;
- }
- inline static qi_list_t *__qistd373(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "o");
- return list;
- }
- qi_value_t *__qistd371(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "o", qi_list_index(pargs, 0));
- qi_value_t *__qistd372 = qi_call(state, qi_get(state, "has_meta_table"), __qistd373(state));
- return __qistd372;return state->nil;
- }
- qi_value_t *__qistd378(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_value_t *__qistd379 = qi_get(state, "n");
- return __qistd379;return state->nil;
- }
- inline static qi_table_t *__qistd380(qi_state_t *state) {
- qi_table_t *table = qi_table_make();
- qi_table_set(table, "n", qi_get(state, "n"));
- return table;
- }
- qi_value_t *__qistd381(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_value_t *__qistd382 = qi_add(state, qi_add(state, qi_make_string(state, "<class "), qi_get(state, "n")), qi_make_string(state, ">"));
- return __qistd382;return state->nil;
- }
- inline static qi_table_t *__qistd383(qi_state_t *state) {
- qi_table_t *table = qi_table_make();
- qi_table_set(table, "n", qi_get(state, "n"));
- return table;
- }
- qi_value_t *__qistd386(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_value_t *__qistd387 = qi_get(state, "n");
- return __qistd387;return state->nil;
- }
- inline static qi_table_t *__qistd388(qi_state_t *state) {
- qi_table_t *table = qi_table_make();
- qi_table_set(table, "n", qi_get(state, "n"));
- return table;
- }
- inline static qi_table_t *__qistd385(qi_state_t *state) {
- qi_table_t *table = qi_table_make();
- qi_table_set(table, qi_to_string(state, qi_make_string(state, "__type"))->value.string, qi_make_function(state, "<anon>", 1, __qistd386, __qistd388(state)));
- return table;
- }
- inline static qi_list_t *__qistd391(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "t");
- qi_list_data(list, 1) = qi_get(state, "mt");
- return list;
- }
- inline static qi_list_t *__qistd393(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "obj");
- return list;
- }
- inline static qi_list_t *__qistd392(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_index(state, qi_get(state, "mt"), qi_make_string(state, "constructor"));
- qi_list_data(list, 1) = qi_add(state, qi_make_list(state, __qistd393(state)), qi_get(state, "pargs"));
- return list;
- }
- qi_value_t *__qistd384(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "pargs", qi_list_index(pargs, 1));
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_decl(state, "t", qi_make_table(state, NULL));
- qi_decl(state, "mt", qi_make_table(state, __qistd385(state)));
- qi_new_scope(state);
- qi_value_t *__qistd390 = qi_iter(state, qi_get(state, "p"));
- qi_decl(state, "other", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd390), i = 0; i < length; i++) {
- qi_set(state, false, "other", qi_index(state, __qistd390, qi_make_number(state, i)));
- qi_new_scope(state);
- (void)(qi_set(state, false, "t", qi_add(state, qi_get(state, "t"), qi_index(state, qi_get(state, "other"), qi_make_string(state, "t")))));
- (void)(qi_set(state, false, "mt", qi_add(state, qi_get(state, "mt"), qi_index(state, qi_get(state, "other"), qi_make_string(state, "mt")))));
- __continue389:;
- qi_old_scope(state);
- }
- goto __exit389;
- __break389:;
- qi_old_scope(state);
- __exit389:;
- qi_old_scope(state);
- (void)(qi_set(state, false, "t", qi_add(state, qi_get(state, "t"), qi_index(state, qi_get(state, "this"), qi_make_string(state, "t")))));
- (void)(qi_set(state, false, "mt", qi_add(state, qi_get(state, "mt"), qi_index(state, qi_get(state, "this"), qi_make_string(state, "mt")))));
- (void)(qi_index_set(state, false, qi_get(state, "mt"), qi_make_string(state, "super"), qi_index(state, qi_get(state, "this"), qi_make_string(state, "super"))));
- (void)(qi_set(state, false, "obj", qi_call(state, qi_get(state, "set_meta_table"), __qistd391(state))));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_in(state, qi_make_string(state, "constructor"), qi_get(state, "mt")))) {
- (void)(qi_call(state, qi_get(state, "func_call"), __qistd392(state)));}
- qi_old_scope(state);
- qi_value_t *__qistd394 = qi_get(state, "obj");
- return __qistd394;
- return state->nil;
- }
- inline static qi_table_t *__qistd395(qi_state_t *state) {
- qi_table_t *table = qi_table_make();
- qi_table_set(table, "n", qi_get(state, "n"));
- qi_table_set(table, "p", qi_get(state, "p"));
- return table;
- }
- inline static qi_table_t *__qistd377(qi_state_t *state) {
- qi_table_t *table = qi_table_make();
- qi_table_set(table, qi_to_string(state, qi_make_string(state, "t"))->value.string, qi_get(state, "t"));
- qi_table_set(table, qi_to_string(state, qi_make_string(state, "mt"))->value.string, qi_get(state, "mt"));
- qi_table_set(table, qi_to_string(state, qi_make_string(state, "super"))->value.string, qi_get(state, "p"));
- qi_table_set(table, qi_to_string(state, qi_make_string(state, "__type"))->value.string, qi_make_function(state, "<anon>", 1, __qistd378, __qistd380(state)));
- qi_table_set(table, qi_to_string(state, qi_make_string(state, "__str"))->value.string, qi_make_function(state, "<anon>", 1, __qistd381, __qistd383(state)));
- qi_table_set(table, qi_to_string(state, qi_make_string(state, "__call"))->value.string, qi_make_function(state, "<anon>", 2, __qistd384, __qistd395(state)));
- return table;
- }
- inline static qi_list_t *__qistd376(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_add(state, qi_get(state, "st"), qi_make_table(state, __qistd377(state)));
- return list;
- }
- qi_value_t *__qistd374(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "mt", qi_list_index(pargs, 3));
- qi_decl(state, "st", qi_list_index(pargs, 4));
- qi_decl(state, "n", qi_list_index(pargs, 0));
- qi_decl(state, "p", qi_list_index(pargs, 1));
- qi_decl(state, "t", qi_list_index(pargs, 2));
- qi_value_t *__qistd375 = qi_call(state, qi_get(state, "Object"), __qistd376(state));
- return __qistd375;return state->nil;
- }
- inline static qi_list_t *__qistd397(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd398(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd400(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd404(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd405(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_index(state, qi_get(state, "arguments"), qi_set(state, false, "n", qi_add(state, qi_get(state, "n"), state->one)));
- return list;
- }
- qi_value_t *__qistd396(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "s", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd397(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd398(state))));}
- qi_old_scope(state);
- qi_decl(state, "r", state->empty_string);
- qi_decl(state, "n", qi_make_number(state, 1));
- qi_new_scope(state);
- qi_decl(state, "i", qi_make_number(state, 0));
- while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd400(state))))) {
- qi_new_scope(state);
- qi_new_scope(state);
- qi_value_t *__qistd402 = qi_index(state, qi_get(state, "s"), qi_get(state, "i"));
- if (_qi_equals(state, __qistd402, qi_make_string(state, "_"))) goto __qistd403;
- goto __default401;
- __qistd403:;
- qi_new_scope(state);
- if (_qi_truthy(state, qi_and(state, qi_lt(state, qi_add(state, qi_get(state, "i"), qi_make_number(state, 1)), qi_call(state, qi_get(state, "len"), __qistd404(state))), qi_equals(state, qi_index(state, qi_get(state, "s"), qi_add(state, qi_get(state, "i"), qi_make_number(state, 1))), qi_make_string(state, "_"))))) {
- (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_make_string(state, "_"))));
- (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)));
- qi_old_scope(state);
- qi_old_scope(state);
- goto __continue399;
- }
- qi_old_scope(state);
- (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_call(state, qi_get(state, "repr"), __qistd405(state)))));
- goto __break401;
- __default401:;
- (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_index(state, qi_get(state, "s"), qi_get(state, "i")))));
- __break401:;
- qi_old_scope(state);
- __continue399:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit399;
- __break399:;
- qi_old_scope(state);
- __exit399:;
- qi_old_scope(state);
- qi_value_t *__qistd406 = qi_get(state, "r");
- return __qistd406;
- return state->nil;
- }
- inline static qi_list_t *__qistd408(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd409(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd410(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd411(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd414(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd413(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "str_format");
- qi_list_data(list, 1) = qi_add(state, qi_make_list(state, __qistd414(state)), qi_get(state, "l"));
- return list;
- }
- qi_value_t *__qistd407(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "l", qi_list_index(pargs, 1));
- qi_decl(state, "s", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd408(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd409(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd410(state)), qi_make_string(state, "list")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected second argument to be: list, but got: "), qi_call(state, qi_get(state, "type"), __qistd411(state))));}
- qi_old_scope(state);
- qi_value_t *__qistd412 = qi_call(state, qi_get(state, "func_call"), __qistd413(state));
- return __qistd412;
- return state->nil;
- }
- inline static qi_list_t *__qistd416(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd417(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd419(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd423(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd425(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd426(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd427(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_index(state, qi_get(state, "t"), qi_get(state, "k"));
- return list;
- }
- qi_value_t *__qistd415(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "s", qi_list_index(pargs, 0));
- qi_decl(state, "t", qi_list_index(pargs, 1));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd416(state)), qi_make_string(state, "string")))) {
- qi_throw(state, qi_add(state, qi_make_string(state, "expected first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd417(state))));}
- qi_old_scope(state);
- qi_decl(state, "r", state->empty_string);
- qi_decl(state, "n", qi_make_number(state, 1));
- qi_new_scope(state);
- qi_decl(state, "i", qi_make_number(state, 0));
- while (_qi_truthy(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd419(state))))) {
- qi_new_scope(state);
- qi_new_scope(state);
- qi_value_t *__qistd421 = qi_index(state, qi_get(state, "s"), qi_get(state, "i"));
- if (_qi_equals(state, __qistd421, qi_make_string(state, "{"))) goto __qistd422;
- goto __default420;
- __qistd422:;
- qi_new_scope(state);
- if (_qi_truthy(state, qi_and(state, qi_lt(state, qi_add(state, qi_get(state, "i"), qi_make_number(state, 1)), qi_call(state, qi_get(state, "len"), __qistd423(state))), qi_equals(state, qi_index(state, qi_get(state, "s"), qi_add(state, qi_get(state, "i"), qi_make_number(state, 1))), qi_make_string(state, "{"))))) {
- (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_make_string(state, "{"))));
- (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)));
- qi_old_scope(state);
- qi_old_scope(state);
- goto __continue418;
- }
- qi_old_scope(state);
- qi_decl(state, "k", state->empty_string);
- (void)(qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one)));
- qi_new_scope(state);
- while (_qi_truthy(state, qi_and(state, qi_lt(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd425(state))), qi_not_equals(state, qi_index(state, qi_get(state, "s"), qi_get(state, "i")), qi_make_string(state, "}"))))) {
- qi_new_scope(state);
- (void)(qi_set(state, false, "k", qi_add(state, qi_get(state, "k"), qi_index(state, qi_get(state, "s"), qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one))))));__continue424:;
- qi_old_scope(state);
- }
- goto __exit424;
- __break424:;
- qi_old_scope(state);
- __exit424:;
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_or(state, qi_ge(state, qi_get(state, "i"), qi_call(state, qi_get(state, "len"), __qistd426(state))), qi_not_equals(state, qi_index(state, qi_get(state, "s"), qi_get(state, "i")), qi_make_string(state, "}"))))) {
- qi_throw(state, qi_make_string(state, "unmatched { in format specifier"));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not(state, qi_get(state, "k")))) {
- qi_throw(state, qi_make_string(state, "empty format key"));}
- qi_old_scope(state);
- (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_call(state, qi_get(state, "repr"), __qistd427(state)))));
- goto __break420;
- __default420:;
- (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_index(state, qi_get(state, "s"), qi_get(state, "i")))));
- __break420:;
- qi_old_scope(state);
- __continue418:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit418;
- __break418:;
- qi_old_scope(state);
- __exit418:;
- qi_old_scope(state);
- qi_value_t *__qistd428 = qi_get(state, "r");
- return __qistd428;
- return state->nil;
- }
- inline static qi_list_t *__qistd432(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "STDIN");
- return list;
- }
- inline static qi_list_t *__qistd431(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_call(state, qi_get(state, "fgetc"), __qistd432(state));
- return list;
- }
- qi_value_t *__qistd429(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_value_t *__qistd430 = qi_call(state, qi_get(state, "chr"), __qistd431(state));
- return __qistd430;return state->nil;
- }
- inline static qi_list_t *__qistd434(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "STDOUT");
- qi_list_data(list, 1) = qi_get(state, "c");
- return list;
- }
- qi_value_t *__qistd433(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "c", qi_list_index(pargs, 0));
- (void)(qi_call(state, qi_get(state, "fputc"), __qistd434(state)));return state->nil;
- }
- inline static qi_list_t *__qistd437(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "STDIN");
- qi_list_data(list, 1) = qi_make_number(state, 256);
- return list;
- }
- qi_value_t *__qistd435(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_value_t *__qistd436 = qi_call(state, qi_get(state, "fgets"), __qistd437(state));
- return __qistd436;return state->nil;
- }
- inline static qi_list_t *__qistd439(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "arguments");
- return list;
- }
- inline static qi_list_t *__qistd440(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "print");
- qi_list_data(list, 1) = qi_get(state, "arguments");
- return list;
- }
- inline static qi_list_t *__qistd442(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_call(state, qi_get(state, "getline"), NULL);
- qi_list_data(list, 1) = qi_make_string(state, "\n\r");
- return list;
- }
- qi_value_t *__qistd438(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_gt(state, qi_call(state, qi_get(state, "len"), __qistd439(state)), qi_make_number(state, 0)))) {
- (void)(qi_call(state, qi_get(state, "func_call"), __qistd440(state)));}
- qi_old_scope(state);
- qi_value_t *__qistd441 = qi_call(state, qi_get(state, "str_rstrip"), __qistd442(state));
- return __qistd441;
- return state->nil;
- }
- inline static qi_list_t *__qistd445(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "path");
- qi_list_data(list, 1) = qi_get(state, "mode");
- return list;
- }
- qi_value_t *__qistd443(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "mode", pargc >= 2? qi_list_index(pargs, 1): qi_make_string(state, "r"));
- qi_decl(state, "path", qi_list_index(pargs, 0));
- qi_value_t *__qistd444 = qi_call(state, qi_get(state, "fopen"), __qistd445(state));
- return __qistd444;return state->nil;
- }
- qi_value_t *__qistd447(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "msg", pargc >= 2? qi_list_index(pargs, 1): state->nil);
- qi_decl(state, "this", qi_list_index(pargs, 0));
- (void)(qi_index_set(state, false, qi_get(state, "this"), qi_make_string(state, "msg"), qi_get(state, "msg")));
- return state->nil;
- }
- inline static qi_list_t *__qistd450(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "this");
- return list;
- }
- inline static qi_list_t *__qistd451(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "this");
- return list;
- }
- qi_value_t *__qistd448(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_value_t *__qistd449 = (_qi_truthy(state, qi_is(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "msg")), state->nil))? qi_call(state, qi_get(state, "type"), __qistd450(state)): qi_add(state, qi_add(state, qi_call(state, qi_get(state, "type"), __qistd451(state)), qi_make_string(state, ": ")), qi_index(state, qi_get(state, "this"), qi_make_string(state, "msg"))));
- return __qistd449;return state->nil;
- }
- qi_value_t *__qistd446(qi_state_t *state) {
- qi_list_t *supers = qi_list_make_n(0);
- qi_table_t *table = qi_table_make();
- qi_table_t *metatable = qi_table_make();
- qi_table_t *statictable = qi_table_make();
- qi_table_set(metatable, "msg", state->nil);
- qi_table_set(metatable, "constructor", qi_make_function(state, "Error.constructor", 1, __qistd447, NULL));
- qi_table_set(metatable, "__str", qi_make_function(state, "Error.__str", 1, __qistd448, NULL));
- qi_list_t *pargs = qi_list_make_n(5);
- qi_list_data(pargs, 0) = qi_make_string(state, "Error");
- qi_list_data(pargs, 1) = qi_make_list(state, supers);
- qi_list_data(pargs, 2) = qi_make_table(state, table);
- qi_list_data(pargs, 3) = qi_make_table(state, metatable);
- qi_list_data(pargs, 4) = qi_make_table(state, statictable);
- return qi_call(state, qi_get(state, "__class_wrapper"), pargs);
- }
- qi_value_t *__qistd452(qi_state_t *state) {
- qi_list_t *supers = qi_list_make_n(1);
- qi_list_data(supers, 0) = qi_get(state, "Error");
- qi_table_t *table = qi_table_make();
- qi_table_t *metatable = qi_table_make();
- qi_table_t *statictable = qi_table_make();
- qi_list_t *pargs = qi_list_make_n(5);
- qi_list_data(pargs, 0) = qi_make_string(state, "AssertionError");
- qi_list_data(pargs, 1) = qi_make_list(state, supers);
- qi_list_data(pargs, 2) = qi_make_table(state, table);
- qi_list_data(pargs, 3) = qi_make_table(state, metatable);
- qi_list_data(pargs, 4) = qi_make_table(state, statictable);
- return qi_call(state, qi_get(state, "__class_wrapper"), pargs);
- }
- qi_value_t *__qistd453(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "cond", qi_list_index(pargs, 0));
- qi_decl(state, "msg", pargc >= 2? qi_list_index(pargs, 1): qi_call(state, qi_get(state, "AssertionError"), NULL));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not(state, qi_get(state, "cond")))) {
- qi_throw(state, qi_get(state, "msg"));}
- qi_old_scope(state);
- return state->nil;
- }
- inline static qi_list_t *__qistd456(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "v");
- return list;
- }
- qi_value_t *__qistd455(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "v", pargc >= 2? qi_list_index(pargs, 1): state->nil);
- qi_decl(state, "this", qi_list_index(pargs, 0));
- (void)(qi_index_set(state, false, qi_get(state, "this"), qi_make_string(state, "__data__"), qi_make_list(state, NULL)));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_is(state, qi_get(state, "v"), state->nil))) {
- (void)(qi_set(state, false, "v", qi_call(state, qi_get(state, "table"), __qistd456(state))));
- qi_new_scope(state);
- qi_value_t *__qistd458 = qi_iter(state, qi_get(state, "v"));
- qi_decl(state, "k", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd458), i = 0; i < length; i++) {
- qi_set(state, false, "k", qi_index(state, __qistd458, qi_make_number(state, i)));
- qi_new_scope(state);
- (void)(qi_index_set(state, false, qi_get(state, "this"), qi_get(state, "k"), qi_index(state, qi_get(state, "v"), qi_get(state, "k"))));__continue457:;
- qi_old_scope(state);
- }
- goto __exit457;
- __break457:;
- qi_old_scope(state);
- __exit457:;
- qi_old_scope(state);
- }
- qi_old_scope(state);
- return state->nil;
- }
- qi_value_t *__qistd459(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_value_t *__qistd460 = qi_make_string(state, "orderedtable");
- return __qistd460;return state->nil;
- }
- inline static qi_list_t *__qistd463(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "this");
- return list;
- }
- inline static qi_list_t *__qistd466(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "\\");
- qi_list_data(list, 1) = qi_make_string(state, "\\\\");
- return list;
- }
- inline static qi_list_t *__qistd467(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "\"");
- qi_list_data(list, 1) = qi_make_string(state, "\\\"");
- return list;
- }
- inline static qi_list_t *__qistd468(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "v");
- return list;
- }
- inline static qi_list_t *__qistd469(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "tempstack");
- return list;
- }
- inline static qi_value_t *__qistd470(qi_state_t *state) {
- qi_value_t *str = state->empty_string;
- str = qi_add(state, str, qi_make_string(state, "\""));
- str = qi_add(state, str, qi_to_string(state, qi_get(state, "k")));
- str = qi_add(state, str, qi_make_string(state, "\": "));
- str = qi_add(state, str, qi_to_string(state, qi_get(state, "v")));
- return str;
- }
- qi_value_t *__qistd461(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "tempstack", pargc >= 2? qi_list_index(pargs, 1): qi_make_list(state, NULL));
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_in(state, qi_get(state, "this"), qi_get(state, "tempstack")))) {
- qi_value_t *__qistd462 = qi_make_string(state, "OrderedTable({...})");
- qi_old_scope(state);
- return __qistd462;}
- qi_old_scope(state);
- (void)(qi_call(state, qi_index(state, qi_get(state, "tempstack"), qi_make_string(state, "push")), __qistd463(state)));
- qi_decl(state, "buf", qi_make_string(state, "OrderedTable({"));
- qi_decl(state, "f", state->_true);
- qi_new_scope(state);
- qi_value_t *__qistd465 = qi_iter(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")));
- qi_decl(state, "k", state->nil);
- qi_decl(state, "v", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd465), i = 0; i < length; i++) {
- qi_set(state, false, "k", qi_index(state, qi_index(state, __qistd465, qi_make_number(state, i)), qi_make_number(state, 0)));
- qi_set(state, false, "v", qi_index(state, qi_index(state, __qistd465, qi_make_number(state, i)), qi_make_number(state, 1)));
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_get(state, "f"))) {
- (void)(qi_set(state, false, "f", state->_false));} else {
- (void)(qi_set(state, false, "buf", qi_add(state, qi_get(state, "buf"), qi_make_string(state, ", "))));}
- qi_old_scope(state);
- (void)(qi_set(state, false, "k", qi_call(state, qi_index(state, qi_call(state, qi_index(state, qi_get(state, "k"), qi_make_string(state, "replace")), __qistd466(state)), qi_make_string(state, "replace")), __qistd467(state))));
- qi_new_scope(state);
- if (_qi_truthy(state, qi_is(state, qi_call(state, qi_get(state, "type"), __qistd468(state)), qi_make_string(state, "orderedtable")))) {
- (void)(qi_set(state, false, "v", qi_call(state, qi_index(state, qi_get(state, "v"), qi_make_string(state, "stringify")), __qistd469(state))));}
- qi_old_scope(state);
- (void)(qi_set(state, false, "buf", qi_add(state, qi_get(state, "buf"), __qistd470(state))));
- __continue464:;
- qi_old_scope(state);
- }
- goto __exit464;
- __break464:;
- qi_old_scope(state);
- __exit464:;
- qi_old_scope(state);
- (void)(qi_set(state, false, "buf", qi_add(state, qi_get(state, "buf"), qi_make_string(state, "})"))));
- qi_value_t *__qistd471 = qi_get(state, "buf");
- return __qistd471;
- return state->nil;
- }
- inline static qi_list_t *__qistd474(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_make_list(state, NULL);
- return list;
- }
- qi_value_t *__qistd472(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_value_t *__qistd473 = qi_call(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "stringify")), __qistd474(state));
- return __qistd473;
- return state->nil;
- }
- inline static qi_list_t *__qistd478(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "k");
- return list;
- }
- qi_value_t *__qistd475(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_decl_const(state, "keys", qi_make_list(state, NULL));
- qi_new_scope(state);
- qi_value_t *__qistd477 = qi_iter(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")));
- qi_decl(state, "k", state->nil);
- qi_decl(state, "_", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd477), i = 0; i < length; i++) {
- qi_set(state, false, "k", qi_index(state, qi_index(state, __qistd477, qi_make_number(state, i)), qi_make_number(state, 0)));
- qi_set(state, false, "_", qi_index(state, qi_index(state, __qistd477, qi_make_number(state, i)), qi_make_number(state, 1)));
- qi_new_scope(state);
- (void)(qi_call(state, qi_index(state, qi_get(state, "keys"), qi_make_string(state, "push")), __qistd478(state)));__continue476:;
- qi_old_scope(state);
- }
- goto __exit476;
- __break476:;
- qi_old_scope(state);
- __exit476:;
- qi_old_scope(state);
- qi_value_t *__qistd479 = qi_get(state, "keys");
- return __qistd479;
- return state->nil;
- }
- inline static qi_list_t *__qistd483(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "v");
- return list;
- }
- qi_value_t *__qistd480(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_decl_const(state, "values", qi_make_list(state, NULL));
- qi_new_scope(state);
- qi_value_t *__qistd482 = qi_iter(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")));
- qi_decl(state, "_", state->nil);
- qi_decl(state, "v", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd482), i = 0; i < length; i++) {
- qi_set(state, false, "_", qi_index(state, qi_index(state, __qistd482, qi_make_number(state, i)), qi_make_number(state, 0)));
- qi_set(state, false, "v", qi_index(state, qi_index(state, __qistd482, qi_make_number(state, i)), qi_make_number(state, 1)));
- qi_new_scope(state);
- (void)(qi_call(state, qi_index(state, qi_get(state, "values"), qi_make_string(state, "push")), __qistd483(state)));__continue481:;
- qi_old_scope(state);
- }
- goto __exit481;
- __break481:;
- qi_old_scope(state);
- __exit481:;
- qi_old_scope(state);
- qi_value_t *__qistd484 = qi_get(state, "values");
- return __qistd484;
- return state->nil;
- }
- qi_value_t *__qistd485(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "k", qi_list_index(pargs, 1));
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_del(state, qi_get(state, "this"), qi_get(state, "k"));
- return state->nil;
- }
- inline static qi_list_t *__qistd488(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__"));
- return list;
- }
- qi_value_t *__qistd486(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_value_t *__qistd487 = qi_call(state, qi_get(state, "OrderedTable"), __qistd488(state));
- return __qistd487;
- return state->nil;
- }
- inline static qi_list_t *__qistd490(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "k");
- return list;
- }
- qi_value_t *__qistd489(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "d", pargc >= 3? qi_list_index(pargs, 2): state->nil);
- qi_decl(state, "k", qi_list_index(pargs, 1));
- qi_decl(state, "this", qi_list_index(pargs, 0));
- (void)(qi_set(state, false, "k", qi_call(state, qi_get(state, "str"), __qistd490(state))));
- qi_new_scope(state);
- qi_value_t *__qistd492 = qi_iter(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")));
- qi_decl(state, "ok", state->nil);
- qi_decl(state, "v", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd492), i = 0; i < length; i++) {
- qi_set(state, false, "ok", qi_index(state, qi_index(state, __qistd492, qi_make_number(state, i)), qi_make_number(state, 0)));
- qi_set(state, false, "v", qi_index(state, qi_index(state, __qistd492, qi_make_number(state, i)), qi_make_number(state, 1)));
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_get(state, "ok"), qi_get(state, "k")))) {
- qi_value_t *__qistd493 = qi_get(state, "v");
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd493;}
- qi_old_scope(state);
- __continue491:;
- qi_old_scope(state);
- }
- goto __exit491;
- __break491:;
- qi_old_scope(state);
- __exit491:;
- qi_old_scope(state);
- qi_value_t *__qistd494 = qi_get(state, "d");
- return __qistd494;
- return state->nil;
- }
- qi_value_t *__qistd495(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_value_t *__qistd496 = qi_call(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "keys")), NULL);
- return __qistd496;return state->nil;
- }
- inline static qi_list_t *__qistd499(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__"));
- return list;
- }
- qi_value_t *__qistd497(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_value_t *__qistd498 = qi_call(state, qi_get(state, "len"), __qistd499(state));
- return __qistd498;return state->nil;
- }
- inline static qi_list_t *__qistd501(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "k");
- return list;
- }
- qi_value_t *__qistd500(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "k", qi_list_index(pargs, 1));
- qi_decl(state, "this", qi_list_index(pargs, 0));
- (void)(qi_set(state, false, "k", qi_call(state, qi_get(state, "str"), __qistd501(state))));
- qi_new_scope(state);
- qi_value_t *__qistd503 = qi_iter(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")));
- qi_decl(state, "ok", state->nil);
- qi_decl(state, "_", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd503), i = 0; i < length; i++) {
- qi_set(state, false, "ok", qi_index(state, qi_index(state, __qistd503, qi_make_number(state, i)), qi_make_number(state, 0)));
- qi_set(state, false, "_", qi_index(state, qi_index(state, __qistd503, qi_make_number(state, i)), qi_make_number(state, 1)));
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_get(state, "ok"), qi_get(state, "k")))) {
- qi_value_t *__qistd504 = state->_true;
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd504;}
- qi_old_scope(state);
- __continue502:;
- qi_old_scope(state);
- }
- goto __exit502;
- __break502:;
- qi_old_scope(state);
- __exit502:;
- qi_old_scope(state);
- qi_value_t *__qistd505 = state->_false;
- return __qistd505;
- return state->nil;
- }
- inline static qi_list_t *__qistd507(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "k");
- return list;
- }
- inline static qi_list_t *__qistd512(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "this");
- return list;
- }
- inline static qi_list_t *__qistd511(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_call(state, qi_get(state, "len"), __qistd512(state));
- return list;
- }
- inline static qi_list_t *__qistd510(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_call(state, qi_get(state, "range"), __qistd511(state));
- qi_list_data(list, 1) = qi_call(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "keys")), NULL);
- return list;
- }
- qi_value_t *__qistd506(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "k", qi_list_index(pargs, 1));
- qi_decl(state, "this", qi_list_index(pargs, 0));
- (void)(qi_set(state, false, "k", qi_call(state, qi_get(state, "str"), __qistd507(state))));
- qi_new_scope(state);
- qi_value_t *__qistd509 = qi_iter(state, qi_call(state, qi_get(state, "zip"), __qistd510(state)));
- qi_decl(state, "i", state->nil);
- qi_decl(state, "ok", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd509), i = 0; i < length; i++) {
- qi_set(state, false, "i", qi_index(state, qi_index(state, __qistd509, qi_make_number(state, i)), qi_make_number(state, 0)));
- qi_set(state, false, "ok", qi_index(state, qi_index(state, __qistd509, qi_make_number(state, i)), qi_make_number(state, 1)));
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_get(state, "ok"), qi_get(state, "k")))) {
- qi_del(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")), qi_get(state, "i"));
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return state->nil;
- }
- qi_old_scope(state);
- __continue508:;
- qi_old_scope(state);
- }
- goto __exit508;
- __break508:;
- qi_old_scope(state);
- __exit508:;
- qi_old_scope(state);
- qi_throw(state, qi_add(state, qi_make_string(state, "no such key: "), qi_get(state, "k")));
- return state->nil;
- }
- inline static qi_list_t *__qistd514(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "k");
- return list;
- }
- qi_value_t *__qistd513(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "k", qi_list_index(pargs, 1));
- qi_decl(state, "this", qi_list_index(pargs, 0));
- (void)(qi_set(state, false, "k", qi_call(state, qi_get(state, "str"), __qistd514(state))));
- qi_new_scope(state);
- qi_value_t *__qistd516 = qi_iter(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")));
- qi_decl(state, "ok", state->nil);
- qi_decl(state, "v", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd516), i = 0; i < length; i++) {
- qi_set(state, false, "ok", qi_index(state, qi_index(state, __qistd516, qi_make_number(state, i)), qi_make_number(state, 0)));
- qi_set(state, false, "v", qi_index(state, qi_index(state, __qistd516, qi_make_number(state, i)), qi_make_number(state, 1)));
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_get(state, "ok"), qi_get(state, "k")))) {
- qi_value_t *__qistd517 = qi_get(state, "v");
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd517;}
- qi_old_scope(state);
- __continue515:;
- qi_old_scope(state);
- }
- goto __exit515;
- __break515:;
- qi_old_scope(state);
- __exit515:;
- qi_old_scope(state);
- qi_throw(state, qi_add(state, qi_make_string(state, "no such key: "), qi_get(state, "k")));
- return state->nil;
- }
- inline static qi_list_t *__qistd519(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "k");
- return list;
- }
- inline static qi_list_t *__qistd524(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "this");
- return list;
- }
- inline static qi_list_t *__qistd523(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_call(state, qi_get(state, "len"), __qistd524(state));
- return list;
- }
- inline static qi_list_t *__qistd522(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_call(state, qi_get(state, "range"), __qistd523(state));
- qi_list_data(list, 1) = qi_call(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "keys")), NULL);
- return list;
- }
- inline static qi_list_t *__qistd525(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "ok");
- qi_list_data(list, 1) = qi_get(state, "v");
- return list;
- }
- inline static qi_list_t *__qistd527(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "k");
- qi_list_data(list, 1) = qi_get(state, "v");
- return list;
- }
- inline static qi_list_t *__qistd526(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_make_tuple(state, __qistd527(state));
- return list;
- }
- qi_value_t *__qistd518(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "k", qi_list_index(pargs, 1));
- qi_decl(state, "v", qi_list_index(pargs, 2));
- qi_decl(state, "this", qi_list_index(pargs, 0));
- (void)(qi_set(state, false, "k", qi_call(state, qi_get(state, "str"), __qistd519(state))));
- qi_new_scope(state);
- qi_value_t *__qistd521 = qi_iter(state, qi_call(state, qi_get(state, "zip"), __qistd522(state)));
- qi_decl(state, "i", state->nil);
- qi_decl(state, "ok", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd521), i = 0; i < length; i++) {
- qi_set(state, false, "i", qi_index(state, qi_index(state, __qistd521, qi_make_number(state, i)), qi_make_number(state, 0)));
- qi_set(state, false, "ok", qi_index(state, qi_index(state, __qistd521, qi_make_number(state, i)), qi_make_number(state, 1)));
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_get(state, "ok"), qi_get(state, "k")))) {
- (void)(qi_index_set(state, false, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")), qi_get(state, "i"), qi_make_tuple(state, __qistd525(state))));
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return state->nil;
- }
- qi_old_scope(state);
- __continue520:;
- qi_old_scope(state);
- }
- goto __exit520;
- __break520:;
- qi_old_scope(state);
- __exit520:;
- qi_old_scope(state);
- (void)(qi_call(state, qi_index(state, qi_index(state, qi_get(state, "this"), qi_make_string(state, "__data__")), qi_make_string(state, "push")), __qistd526(state)));
- return state->nil;
- }
- qi_value_t *__qistd454(qi_state_t *state) {
- qi_list_t *supers = qi_list_make_n(0);
- qi_table_t *table = qi_table_make();
- qi_table_t *metatable = qi_table_make();
- qi_table_t *statictable = qi_table_make();
- qi_table_set(metatable, "__data__", state->nil);
- qi_table_set(metatable, "constructor", qi_make_function(state, "OrderedTable.constructor", 1, __qistd455, NULL));
- qi_table_set(metatable, "__type", qi_make_function(state, "OrderedTable.__type", 1, __qistd459, NULL));
- qi_table_set(metatable, "stringify", qi_make_function(state, "OrderedTable.stringify", 1, __qistd461, NULL));
- qi_table_set(metatable, "__str", qi_make_function(state, "OrderedTable.__str", 1, __qistd472, NULL));
- qi_table_set(metatable, "keys", qi_make_function(state, "OrderedTable.keys", 1, __qistd475, NULL));
- qi_table_set(metatable, "values", qi_make_function(state, "OrderedTable.values", 1, __qistd480, NULL));
- qi_table_set(metatable, "delete", qi_make_function(state, "OrderedTable.delete", 2, __qistd485, NULL));
- qi_table_set(metatable, "copy", qi_make_function(state, "OrderedTable.copy", 1, __qistd486, NULL));
- qi_table_set(metatable, "get", qi_make_function(state, "OrderedTable.get", 2, __qistd489, NULL));
- qi_table_set(metatable, "__iter", qi_make_function(state, "OrderedTable.__iter", 1, __qistd495, NULL));
- qi_table_set(metatable, "__len", qi_make_function(state, "OrderedTable.__len", 1, __qistd497, NULL));
- qi_table_set(metatable, "__in", qi_make_function(state, "OrderedTable.__in", 2, __qistd500, NULL));
- qi_table_set(metatable, "__del", qi_make_function(state, "OrderedTable.__del", 2, __qistd506, NULL));
- qi_table_set(metatable, "__index", qi_make_function(state, "OrderedTable.__index", 2, __qistd513, NULL));
- qi_table_set(metatable, "__index_set", qi_make_function(state, "OrderedTable.__index_set", 3, __qistd518, NULL));
- qi_list_t *pargs = qi_list_make_n(5);
- qi_list_data(pargs, 0) = qi_make_string(state, "OrderedTable");
- qi_list_data(pargs, 1) = qi_make_list(state, supers);
- qi_list_data(pargs, 2) = qi_make_table(state, table);
- qi_list_data(pargs, 3) = qi_make_table(state, metatable);
- qi_list_data(pargs, 4) = qi_make_table(state, statictable);
- return qi_call(state, qi_get(state, "__class_wrapper"), pargs);
- }
- inline static qi_list_t *__qistd528(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.reverse");
- qi_list_data(list, 1) = qi_get(state, "reverse");
- return list;
- }
- inline static qi_list_t *__qistd529(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.reverse");
- qi_list_data(list, 1) = qi_get(state, "reverse");
- return list;
- }
- inline static qi_list_t *__qistd530(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "bytes.reverse");
- qi_list_data(list, 1) = qi_get(state, "reverse");
- return list;
- }
- inline static qi_list_t *__qistd531(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.remove");
- qi_list_data(list, 1) = qi_get(state, "list_remove");
- return list;
- }
- inline static qi_list_t *__qistd532(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.join");
- qi_list_data(list, 1) = qi_get(state, "list_join");
- return list;
- }
- inline static qi_list_t *__qistd533(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.popAt");
- qi_list_data(list, 1) = qi_get(state, "list_pop_at");
- return list;
- }
- inline static qi_list_t *__qistd534(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.sort");
- qi_list_data(list, 1) = qi_get(state, "list_sort");
- return list;
- }
- inline static qi_list_t *__qistd535(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.sorted");
- qi_list_data(list, 1) = qi_get(state, "list_sorted");
- return list;
- }
- inline static qi_list_t *__qistd536(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.shift");
- qi_list_data(list, 1) = qi_get(state, "list_shift");
- return list;
- }
- inline static qi_list_t *__qistd537(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.unshift");
- qi_list_data(list, 1) = qi_get(state, "list_unshift");
- return list;
- }
- inline static qi_list_t *__qistd538(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.slice");
- qi_list_data(list, 1) = qi_get(state, "slice");
- return list;
- }
- inline static qi_list_t *__qistd539(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.slice");
- qi_list_data(list, 1) = qi_get(state, "slice");
- return list;
- }
- inline static qi_list_t *__qistd540(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "bytes.slice");
- qi_list_data(list, 1) = qi_get(state, "slice");
- return list;
- }
- inline static qi_list_t *__qistd541(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.startsWith");
- qi_list_data(list, 1) = qi_get(state, "str_startswith");
- return list;
- }
- inline static qi_list_t *__qistd542(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.endsWith");
- qi_list_data(list, 1) = qi_get(state, "str_endswith");
- return list;
- }
- inline static qi_list_t *__qistd543(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.split");
- qi_list_data(list, 1) = qi_get(state, "str_split");
- return list;
- }
- inline static qi_list_t *__qistd544(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.replace");
- qi_list_data(list, 1) = qi_get(state, "str_replace");
- return list;
- }
- inline static qi_list_t *__qistd545(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "table.keys");
- qi_list_data(list, 1) = qi_get(state, "table_keys");
- return list;
- }
- inline static qi_list_t *__qistd546(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "table.values");
- qi_list_data(list, 1) = qi_get(state, "table_values");
- return list;
- }
- inline static qi_list_t *__qistd550(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd548(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 1));
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd549 = qi_call(state, qi_get(state, "reduce"), __qistd550(state));
- return __qistd549;return state->nil;
- }
- inline static qi_list_t *__qistd547(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.reduce");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd548, NULL);
- return list;
- }
- inline static qi_list_t *__qistd554(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd552(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 1));
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd553 = qi_call(state, qi_get(state, "reduce"), __qistd554(state));
- return __qistd553;return state->nil;
- }
- inline static qi_list_t *__qistd551(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "tuple.reduce");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd552, NULL);
- return list;
- }
- inline static qi_list_t *__qistd558(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd556(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 1));
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd557 = qi_call(state, qi_get(state, "reduce"), __qistd558(state));
- return __qistd557;return state->nil;
- }
- inline static qi_list_t *__qistd555(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.reduce");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd556, NULL);
- return list;
- }
- inline static qi_list_t *__qistd562(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd560(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 1));
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd561 = qi_call(state, qi_get(state, "reduce"), __qistd562(state));
- return __qistd561;return state->nil;
- }
- inline static qi_list_t *__qistd559(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "bytes.reduce");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd560, NULL);
- return list;
- }
- inline static qi_list_t *__qistd563(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.sum");
- qi_list_data(list, 1) = qi_get(state, "sum");
- return list;
- }
- inline static qi_list_t *__qistd564(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "tuple.sum");
- qi_list_data(list, 1) = qi_get(state, "sum");
- return list;
- }
- inline static qi_list_t *__qistd565(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.product");
- qi_list_data(list, 1) = qi_get(state, "product");
- return list;
- }
- inline static qi_list_t *__qistd566(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "tuple.product");
- qi_list_data(list, 1) = qi_get(state, "product");
- return list;
- }
- inline static qi_list_t *__qistd567(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.all");
- qi_list_data(list, 1) = qi_get(state, "all");
- return list;
- }
- inline static qi_list_t *__qistd568(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "tuple.all");
- qi_list_data(list, 1) = qi_get(state, "all");
- return list;
- }
- inline static qi_list_t *__qistd569(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.any");
- qi_list_data(list, 1) = qi_get(state, "any");
- return list;
- }
- inline static qi_list_t *__qistd570(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "tuple.any");
- qi_list_data(list, 1) = qi_get(state, "any");
- return list;
- }
- inline static qi_list_t *__qistd574(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd572(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 1));
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd573 = qi_call(state, qi_get(state, "map"), __qistd574(state));
- return __qistd573;return state->nil;
- }
- inline static qi_list_t *__qistd571(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.map");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd572, NULL);
- return list;
- }
- inline static qi_list_t *__qistd578(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd576(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 1));
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd577 = qi_call(state, qi_get(state, "map"), __qistd578(state));
- return __qistd577;return state->nil;
- }
- inline static qi_list_t *__qistd575(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "tuple.map");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd576, NULL);
- return list;
- }
- inline static qi_list_t *__qistd582(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd580(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 1));
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd581 = qi_call(state, qi_get(state, "map"), __qistd582(state));
- return __qistd581;return state->nil;
- }
- inline static qi_list_t *__qistd579(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.map");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd580, NULL);
- return list;
- }
- inline static qi_list_t *__qistd586(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd584(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 1));
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd585 = qi_call(state, qi_get(state, "map"), __qistd586(state));
- return __qistd585;return state->nil;
- }
- inline static qi_list_t *__qistd583(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "bytes.map");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd584, NULL);
- return list;
- }
- inline static qi_list_t *__qistd590(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd588(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 1));
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd589 = qi_call(state, qi_get(state, "filter"), __qistd590(state));
- return __qistd589;return state->nil;
- }
- inline static qi_list_t *__qistd587(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "list.filter");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd588, NULL);
- return list;
- }
- inline static qi_list_t *__qistd594(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd592(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 1));
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd593 = qi_call(state, qi_get(state, "filter"), __qistd594(state));
- return __qistd593;return state->nil;
- }
- inline static qi_list_t *__qistd591(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "tuple.filter");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd592, NULL);
- return list;
- }
- inline static qi_list_t *__qistd598(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd596(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 1));
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd597 = qi_call(state, qi_get(state, "filter"), __qistd598(state));
- return __qistd597;return state->nil;
- }
- inline static qi_list_t *__qistd595(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.filter");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd596, NULL);
- return list;
- }
- inline static qi_list_t *__qistd602(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd600(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 1));
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd601 = qi_call(state, qi_get(state, "filter"), __qistd602(state));
- return __qistd601;return state->nil;
- }
- inline static qi_list_t *__qistd599(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "bytes.filter");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd600, NULL);
- return list;
- }
- inline static qi_list_t *__qistd603(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.index");
- qi_list_data(list, 1) = qi_get(state, "str_index");
- return list;
- }
- inline static qi_list_t *__qistd604(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.lstrip");
- qi_list_data(list, 1) = qi_get(state, "str_lstrip");
- return list;
- }
- inline static qi_list_t *__qistd605(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.rstrip");
- qi_list_data(list, 1) = qi_get(state, "str_rstrip");
- return list;
- }
- inline static qi_list_t *__qistd606(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.strip");
- qi_list_data(list, 1) = qi_get(state, "str_strip");
- return list;
- }
- inline static qi_list_t *__qistd607(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.toupper");
- qi_list_data(list, 1) = qi_get(state, "str_toupper");
- return list;
- }
- inline static qi_list_t *__qistd608(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.tolower");
- qi_list_data(list, 1) = qi_get(state, "str_tolower");
- return list;
- }
- inline static qi_list_t *__qistd609(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.format");
- qi_list_data(list, 1) = qi_get(state, "format");
- return list;
- }
- inline static qi_list_t *__qistd610(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.formatl");
- qi_list_data(list, 1) = qi_get(state, "formatl");
- return list;
- }
- inline static qi_list_t *__qistd611(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "string.formatd");
- qi_list_data(list, 1) = qi_get(state, "formatd");
- return list;
- }
- qi_value_t *__qistd613(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- return state->nil;
- }
- inline static qi_list_t *__qistd612(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "file.__enter");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 0, __qistd613, NULL);
- return list;
- }
- inline static qi_list_t *__qistd617(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- return list;
- }
- qi_value_t *__qistd615(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 0));
- qi_value_t *__qistd616 = qi_call(state, qi_get(state, "fclose"), __qistd617(state));
- return __qistd616;return state->nil;
- }
- inline static qi_list_t *__qistd614(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "file.__leave");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 1, __qistd615, NULL);
- return list;
- }
- inline static qi_list_t *__qistd618(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "file.close");
- qi_list_data(list, 1) = qi_get(state, "fclose");
- return list;
- }
- inline static qi_list_t *__qistd619(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "file.flush");
- qi_list_data(list, 1) = qi_get(state, "fflush");
- return list;
- }
- inline static qi_list_t *__qistd620(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "file.seek");
- qi_list_data(list, 1) = qi_get(state, "fseek");
- return list;
- }
- inline static qi_list_t *__qistd621(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "file.getc");
- qi_list_data(list, 1) = qi_get(state, "fgetc");
- return list;
- }
- inline static qi_list_t *__qistd622(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "file.putc");
- qi_list_data(list, 1) = qi_get(state, "fputc");
- return list;
- }
- inline static qi_list_t *__qistd623(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "file.gets");
- qi_list_data(list, 1) = qi_get(state, "fgets");
- return list;
- }
- inline static qi_list_t *__qistd624(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "file.puts");
- qi_list_data(list, 1) = qi_get(state, "fputs");
- return list;
- }
- inline static qi_list_t *__qistd625(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_string(state, "file.tell");
- qi_list_data(list, 1) = qi_get(state, "ftell");
- return list;
- }
- static void qi_init_std(qi_state_t *state) {
- qi_set(state, false, "head", qi_make_function(state, "head", 1, __qistd0, NULL));
- qi_set(state, false, "tail", qi_make_function(state, "tail", 1, __qistd2, NULL));
- qi_set(state, false, "min", qi_make_function(state, "min", 2, __qistd5, NULL));
- qi_set(state, false, "max", qi_make_function(state, "max", 2, __qistd7, NULL));
- qi_set(state, false, "reverse", qi_make_function(state, "reverse", 1, __qistd9, NULL));
- qi_set(state, false, "range", qi_make_function(state, "range", 1, __qistd23, NULL));
- qi_set(state, false, "frewind", qi_make_function(state, "frewind", 1, __qistd38, NULL));
- qi_set(state, false, "file_read", qi_make_function(state, "file_read", 1, __qistd40, NULL));
- qi_set(state, false, "file_write", qi_make_function(state, "file_write", 2, __qistd47, NULL));
- qi_set(state, false, "is_defined", qi_make_function(state, "is_defined", 1, __qistd53, NULL));
- qi_set(state, false, "list_remove", qi_make_function(state, "list_remove", 2, __qistd56, NULL));
- qi_set(state, false, "list_join", qi_make_function(state, "list_join", 1, __qistd63, NULL));
- qi_set(state, false, "list_pop_at", qi_make_function(state, "list_pop_at", 2, __qistd74, NULL));
- qi_set(state, false, "__cmp", qi_make_function(state, "__cmp", 2, __qistd81, NULL));
- qi_set(state, false, "list_sort", qi_make_function(state, "list_sort", 1, __qistd83, NULL));
- qi_set(state, false, "list_sorted", qi_make_function(state, "list_sorted", 1, __qistd95, NULL));
- qi_set(state, false, "list_shift", qi_make_function(state, "list_shift", 1, __qistd99, NULL));
- qi_set(state, false, "list_unshift", qi_make_function(state, "list_unshift", 2, __qistd105, NULL));
- qi_set(state, false, "slice", qi_make_function(state, "slice", 1, __qistd107, NULL));
- qi_set(state, false, "str_startswith", qi_make_function(state, "str_startswith", 2, __qistd138, NULL));
- qi_set(state, false, "str_endswith", qi_make_function(state, "str_endswith", 2, __qistd147, NULL));
- qi_set(state, false, "str_split", qi_make_function(state, "str_split", 1, __qistd157, NULL));
- qi_set(state, false, "str_replace", qi_make_function(state, "str_replace", 3, __qistd173, NULL));
- qi_set(state, false, "table_keys", qi_make_function(state, "table_keys", 1, __qistd186, NULL));
- qi_set(state, false, "table_values", qi_make_function(state, "table_values", 1, __qistd193, NULL));
- qi_set(state, false, "reduce", qi_make_function(state, "reduce", 2, __qistd200, NULL));
- qi_set(state, false, "sum", qi_make_function(state, "sum", 1, __qistd221, NULL));
- qi_set(state, false, "product", qi_make_function(state, "product", 1, __qistd226, NULL));
- qi_set(state, false, "all", qi_make_function(state, "all", 1, __qistd231, NULL));
- qi_set(state, false, "any", qi_make_function(state, "any", 1, __qistd236, NULL));
- qi_set(state, false, "map", qi_make_function(state, "map", 2, __qistd241, NULL));
- qi_set(state, false, "filter", qi_make_function(state, "filter", 2, __qistd263, NULL));
- qi_set(state, false, "str_index", qi_make_function(state, "str_index", 2, __qistd285, NULL));
- qi_set(state, false, "str_lstrip", qi_make_function(state, "str_lstrip", 1, __qistd299, NULL));
- qi_set(state, false, "str_rstrip", qi_make_function(state, "str_rstrip", 1, __qistd309, NULL));
- qi_set(state, false, "str_strip", qi_make_function(state, "str_strip", 1, __qistd320, NULL));
- qi_set(state, false, "zip", qi_make_function(state, "zip", 0, __qistd328, NULL));
- qi_set(state, false, "enumerate", qi_make_function(state, "enumerate", 1, __qistd338, NULL));
- qi_set(state, false, "str_toupper", qi_make_function(state, "str_toupper", 1, __qistd348, NULL));
- qi_set(state, false, "str_tolower", qi_make_function(state, "str_tolower", 1, __qistd357, NULL));
- qi_set(state, false, "Object", qi_make_function(state, "Object", 1, __qistd366, NULL));
- qi_set(state, false, "is_object", qi_make_function(state, "is_object", 1, __qistd371, NULL));
- qi_set(state, false, "__class_wrapper", qi_make_function(state, "__class_wrapper", 5, __qistd374, NULL));
- qi_set(state, false, "format", qi_make_function(state, "format", 1, __qistd396, NULL));
- qi_set(state, false, "formatl", qi_make_function(state, "formatl", 2, __qistd407, NULL));
- qi_set(state, false, "formatd", qi_make_function(state, "formatd", 2, __qistd415, NULL));
- qi_set(state, false, "getch", qi_make_function(state, "getch", 0, __qistd429, NULL));
- qi_set(state, false, "putch", qi_make_function(state, "putch", 1, __qistd433, NULL));
- qi_set(state, false, "getline", qi_make_function(state, "getline", 0, __qistd435, NULL));
- qi_set(state, false, "input", qi_make_function(state, "input", 0, __qistd438, NULL));
- qi_set(state, false, "open", qi_make_function(state, "open", 1, __qistd443, NULL));
- qi_set(state, false, "Error", __qistd446(state));qi_set(state, false, "AssertionError", __qistd452(state));qi_set(state, false, "assert", qi_make_function(state, "assert", 1, __qistd453, NULL));
- qi_set(state, false, "OrderedTable", __qistd454(state));(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd528(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd529(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd530(state)));
- qi_decl_const(state, "SEEK_END", qi_make_number(state, 2));
- qi_decl_const(state, "SEEK_CUR", qi_make_number(state, 1));
- qi_decl_const(state, "SEEK_SET", qi_make_number(state, 0));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd531(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd532(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd533(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd534(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd535(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd536(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd537(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd538(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd539(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd540(state)));
- qi_decl_const(state, "__slice", qi_get(state, "slice"));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd541(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd542(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd543(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd544(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd545(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd546(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd547(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd551(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd555(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd559(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd563(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd564(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd565(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd566(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd567(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd568(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd569(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd570(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd571(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd575(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd579(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd583(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd587(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd591(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd595(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd599(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd603(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd604(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd605(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd606(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd607(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd608(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd609(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd610(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd611(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd612(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd614(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd618(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd619(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd620(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd621(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd622(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd623(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd624(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd625(state)));
- }
|