12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329 |
- 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 argument 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 *__qistd82(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 *__qistd83 = qi_gt(state, qi_get(state, "x"), qi_get(state, "y"));
- return __qistd83;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 *__qistd81(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "cmp", pargc >= 2? qi_list_index(pargs, 1): qi_make_function(state, "<anon>", 2, __qistd82, NULL));
- 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_call(state, qi_get(state, "cmp"), __qistd93(state)))) {
- 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;
- }
- qi_value_t *__qistd96(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 *__qistd97 = qi_gt(state, qi_get(state, "x"), qi_get(state, "y"));
- return __qistd97;return state->nil;
- }
- inline static qi_list_t *__qistd98(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 *__qistd100(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_make_function(state, "<anon>", 2, __qistd96, NULL));
- qi_decl(state, "l", qi_list_index(pargs, 0));
- (void)(qi_set(state, false, "l", qi_call(state, qi_get(state, "list_copy"), __qistd98(state))));
- qi_value_t *__qistd99 = qi_call(state, qi_get(state, "list_sort"), __qistd100(state));
- return __qistd99;
- return state->nil;
- }
- 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(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd104(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 *__qistd105(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 *__qistd101(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"), __qistd102(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"), __qistd103(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_call(state, qi_get(state, "is_empty"), __qistd104(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"), __qistd105(state)));
- qi_value_t *__qistd106 = qi_get(state, "a");
- return __qistd106;
- return state->nil;
- }
- inline static qi_list_t *__qistd108(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 *__qistd107(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"), __qistd108(state)));
- return state->nil;
- }
- inline static qi_list_t *__qistd110(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd111(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 *__qistd112(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 *__qistd113(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 *__qistd114(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 *__qistd115(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 *__qistd116(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd118(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd119(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 *__qistd120(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 *__qistd121(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 *__qistd122(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 *__qistd123(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 *__qistd124(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 *__qistd125(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__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 *__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 *__qistd129(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 *__qistd130(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd132(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "r");
- return list;
- }
- inline static qi_list_t *__qistd133(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- return list;
- }
- inline static qi_list_t *__qistd135(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 *__qistd136(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 *__qistd138(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 *__qistd109(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"), __qistd110(state)), qi_make_tuple(state, __qistd111(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"), __qistd112(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"), __qistd113(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"), __qistd114(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"), __qistd115(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"), __qistd116(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"), __qistd118(state))))) {
- qi_new_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd119(state)));__continue117:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit117;
- __break117:;
- qi_old_scope(state);
- __exit117:;
- qi_old_scope(state);
- } else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd120(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"), __qistd121(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"), __qistd122(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd123(state)), qi_make_string(state, "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"), __qistd124(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"), __qistd125(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"), __qistd126(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"), __qistd128(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"), __qistd129(state)));__continue127:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit127;
- __break127:;
- qi_old_scope(state);
- __exit127:;
- 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"), __qistd130(state)), qi_make_string(state, "string")))) {
- qi_value_t *__qistd131 = qi_call(state, qi_get(state, "list_join"), __qistd132(state));
- qi_old_scope(state);
- return __qistd131;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd133(state)), qi_make_string(state, "bytes")))) {
- qi_value_t *__qistd134 = qi_call(state, qi_get(state, "bytes"), __qistd135(state));
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd134;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd136(state)), qi_make_string(state, "ustr")))) {
- qi_value_t *__qistd137 = qi_call(state, qi_get(state, "ustr"), __qistd138(state));
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd137;}
- qi_old_scope(state);
- }
- qi_old_scope(state);
- }
- qi_old_scope(state);
- qi_value_t *__qistd139 = qi_get(state, "r");
- return __qistd139;
- return state->nil;
- }
- 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, "s");
- return list;
- }
- inline static qi_list_t *__qistd143(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 *__qistd144(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 *__qistd148(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 *__qistd147(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"), __qistd148(state)), qi_make_number(state, 1));
- return list;
- }
- qi_value_t *__qistd140(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"), __qistd141(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"), __qistd142(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_lt(state, qi_call(state, qi_get(state, "len"), __qistd143(state)), qi_call(state, qi_get(state, "len"), __qistd144(state))))) {
- qi_value_t *__qistd145 = state->_false;
- qi_old_scope(state);
- return __qistd145;}
- qi_old_scope(state);
- qi_value_t *__qistd146 = qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd147(state)), qi_get(state, "p"));
- return __qistd146;
- return state->nil;
- }
- 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, "s");
- return list;
- }
- inline static qi_list_t *__qistd152(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 *__qistd153(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 *__qistd157(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 *__qistd158(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 *__qistd156(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"), __qistd157(state)), qi_call(state, qi_get(state, "len"), __qistd158(state)));
- return list;
- }
- qi_value_t *__qistd149(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"), __qistd150(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"), __qistd151(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_lt(state, qi_call(state, qi_get(state, "len"), __qistd152(state)), qi_call(state, qi_get(state, "len"), __qistd153(state))))) {
- qi_value_t *__qistd154 = state->_false;
- qi_old_scope(state);
- return __qistd154;}
- qi_old_scope(state);
- qi_value_t *__qistd155 = qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd156(state)), qi_get(state, "p"));
- return __qistd155;
- return state->nil;
- }
- 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, "arguments");
- 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, "s");
- 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 *__qistd165(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 *__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, "s");
- 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 *__qistd169(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"), __qistd170(state))), qi_make_number(state, 1));
- 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;
- }
- inline static qi_list_t *__qistd172(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 *__qistd173(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 *__qistd159(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"), __qistd160(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 *__qistd161 = qi_call(state, qi_get(state, "list"), __qistd162(state));
- qi_old_scope(state);
- return __qistd161;}
- qi_old_scope(state);
- 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 first argument to be:!string, but got: "), qi_call(state, qi_get(state, "type"), __qistd164(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"), __qistd165(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"), __qistd166(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"), __qistd168(state))))) {
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd169(state)), qi_get(state, "d")))) {
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd171(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"), __qistd172(state)), qi_make_number(state, 1)))));
- qi_old_scope(state);
- goto __continue167;
- }
- 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")))));
- __continue167:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit167;
- __break167:;
- qi_old_scope(state);
- __exit167:;
- 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"), __qistd173(state)));}
- qi_old_scope(state);
- qi_value_t *__qistd174 = qi_get(state, "r");
- return __qistd174;
- return state->nil;
- }
- 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, "s");
- 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, "s");
- 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, "w");
- 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, "w");
- return list;
- }
- inline static qi_list_t *__qistd180(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, "b");
- 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, "s");
- return list;
- }
- inline static qi_list_t *__qistd185(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 *__qistd184(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"), __qistd185(state))), qi_make_number(state, 1));
- return list;
- }
- inline static qi_list_t *__qistd186(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "w");
- return list;
- }
- qi_value_t *__qistd175(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"), __qistd176(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"), __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 second argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd179(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd180(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"), __qistd181(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"), __qistd183(state))))) {
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd184(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"), __qistd186(state)), qi_make_number(state, 1)))));
- qi_old_scope(state);
- goto __continue182;
- }
- 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")))));
- __continue182:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit182;
- __break182:;
- qi_old_scope(state);
- __exit182:;
- qi_old_scope(state);
- qi_value_t *__qistd187 = qi_get(state, "r");
- return __qistd187;
- return state->nil;
- }
- inline static qi_list_t *__qistd189(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "t");
- return list;
- }
- inline static qi_list_t *__qistd190(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "t");
- return list;
- }
- inline static qi_list_t *__qistd193(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 *__qistd188(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"), __qistd189(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"), __qistd190(state))));}
- qi_old_scope(state);
- qi_decl(state, "r", qi_make_list(state, NULL));
- qi_new_scope(state);
- qi_value_t *__qistd192 = qi_iter(state, qi_get(state, "t"));
- qi_decl(state, "k", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd192), i = 0; i < length; i++) {
- qi_set(state, false, "k", qi_index(state, __qistd192, qi_make_number(state, i)));
- qi_new_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd193(state)));__continue191:;
- qi_old_scope(state);
- }
- goto __exit191;
- __break191:;
- qi_old_scope(state);
- __exit191:;
- qi_old_scope(state);
- qi_value_t *__qistd194 = qi_get(state, "r");
- return __qistd194;
- return state->nil;
- }
- inline static qi_list_t *__qistd196(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "t");
- return list;
- }
- inline static qi_list_t *__qistd197(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "t");
- return list;
- }
- inline static qi_list_t *__qistd200(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 *__qistd195(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"), __qistd196(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"), __qistd197(state))));}
- qi_old_scope(state);
- qi_decl(state, "r", qi_make_list(state, NULL));
- qi_new_scope(state);
- qi_value_t *__qistd199 = qi_iter(state, qi_get(state, "t"));
- qi_decl(state, "k", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd199), i = 0; i < length; i++) {
- qi_set(state, false, "k", qi_index(state, __qistd199, qi_make_number(state, i)));
- qi_new_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd200(state)));__continue198:;
- qi_old_scope(state);
- }
- goto __exit198;
- __break198:;
- qi_old_scope(state);
- __exit198:;
- qi_old_scope(state);
- qi_value_t *__qistd201 = qi_get(state, "r");
- return __qistd201;
- return state->nil;
- }
- 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, "f");
- return list;
- }
- inline static qi_list_t *__qistd204(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- 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(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 *__qistd207(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 *__qistd208(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 *__qistd211(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 *__qistd212(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 *__qistd213(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 *__qistd215(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 *__qistd216(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 *__qistd218(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 *__qistd219(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 *__qistd221(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 *__qistd202(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"), __qistd203(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"), __qistd204(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd205(state)), qi_make_tuple(state, __qistd206(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"), __qistd207(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd208(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 *__qistd210 = qi_iter(state, qi_call(state, qi_get(state, "slice"), __qistd211(state)));
- qi_decl(state, "x", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd210), i = 0; i < length; i++) {
- qi_set(state, false, "x", qi_index(state, __qistd210, qi_make_number(state, i)));
- qi_new_scope(state);
- (void)(qi_set(state, false, "r", qi_call(state, qi_get(state, "f"), __qistd212(state))));__continue209:;
- qi_old_scope(state);
- }
- goto __exit209;
- __break209:;
- qi_old_scope(state);
- __exit209:;
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd213(state)), qi_make_string(state, "tuple")))) {
- qi_value_t *__qistd214 = qi_call(state, qi_get(state, "tuple"), __qistd215(state));
- qi_old_scope(state);
- return __qistd214;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd216(state)), qi_make_string(state, "string")))) {
- qi_value_t *__qistd217 = qi_call(state, qi_get(state, "list_join"), __qistd218(state));
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd217;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd219(state)), qi_make_string(state, "bytes")))) {
- qi_value_t *__qistd220 = qi_call(state, qi_get(state, "bytes"), __qistd221(state));
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd220;}
- qi_old_scope(state);
- }
- qi_old_scope(state);
- }
- qi_old_scope(state);
- qi_value_t *__qistd222 = qi_get(state, "r");
- return __qistd222;
- return state->nil;
- }
- qi_value_t *__qistd226(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 *__qistd227 = qi_add(state, qi_get(state, "x"), qi_get(state, "y"));
- return __qistd227;return state->nil;
- }
- inline static qi_list_t *__qistd225(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_function(state, "<anon>", 2, __qistd226, NULL);
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd223(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd224 = qi_call(state, qi_get(state, "reduce"), __qistd225(state));
- return __qistd224;return state->nil;
- }
- qi_value_t *__qistd231(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 *__qistd232 = qi_mul(state, qi_get(state, "x"), qi_get(state, "y"));
- return __qistd232;return state->nil;
- }
- inline static qi_list_t *__qistd230(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_function(state, "<anon>", 2, __qistd231, NULL);
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd228(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "xs", qi_list_index(pargs, 0));
- qi_value_t *__qistd229 = qi_call(state, qi_get(state, "reduce"), __qistd230(state));
- return __qistd229;return state->nil;
- }
- qi_value_t *__qistd236(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 *__qistd237 = qi_and(state, qi_get(state, "x"), qi_get(state, "y"));
- return __qistd237;return state->nil;
- }
- inline static qi_list_t *__qistd235(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_function(state, "<anon>", 2, __qistd236, NULL);
- qi_list_data(list, 1) = qi_get(state, "l");
- return list;
- }
- qi_value_t *__qistd233(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "l", qi_list_index(pargs, 0));
- qi_value_t *__qistd234 = qi_call(state, qi_get(state, "reduce"), __qistd235(state));
- return __qistd234;return state->nil;
- }
- qi_value_t *__qistd241(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 *__qistd242 = qi_or(state, qi_get(state, "x"), qi_get(state, "y"));
- return __qistd242;return state->nil;
- }
- inline static qi_list_t *__qistd240(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_make_function(state, "<anon>", 2, __qistd241, NULL);
- qi_list_data(list, 1) = qi_get(state, "l");
- return list;
- }
- qi_value_t *__qistd238(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "l", qi_list_index(pargs, 0));
- qi_value_t *__qistd239 = qi_call(state, qi_get(state, "reduce"), __qistd240(state));
- return __qistd239;return state->nil;
- }
- 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, "f");
- return list;
- }
- inline static qi_list_t *__qistd245(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "f");
- 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(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 *__qistd248(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 *__qistd249(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 *__qistd254(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 *__qistd253(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "r");
- qi_list_data(list, 1) = qi_call(state, qi_get(state, "f"), __qistd254(state));
- 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, "xs");
- return list;
- }
- inline static qi_list_t *__qistd257(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 *__qistd258(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 *__qistd260(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 *__qistd261(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 *__qistd263(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 *__qistd243(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"), __qistd244(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"), __qistd245(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd246(state)), qi_make_tuple(state, __qistd247(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"), __qistd248(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd249(state)), qi_make_number(state, 0)))) {
- qi_value_t *__qistd250 = qi_get(state, "xs");
- qi_old_scope(state);
- return __qistd250;}
- qi_old_scope(state);
- qi_decl(state, "r", qi_make_list(state, NULL));
- qi_new_scope(state);
- qi_value_t *__qistd252 = qi_iter(state, qi_get(state, "xs"));
- qi_decl(state, "x", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd252), i = 0; i < length; i++) {
- qi_set(state, false, "x", qi_index(state, __qistd252, qi_make_number(state, i)));
- qi_new_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd253(state)));__continue251:;
- qi_old_scope(state);
- }
- goto __exit251;
- __break251:;
- qi_old_scope(state);
- __exit251:;
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd255(state)), qi_make_string(state, "tuple")))) {
- qi_value_t *__qistd256 = qi_call(state, qi_get(state, "tuple"), __qistd257(state));
- qi_old_scope(state);
- return __qistd256;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd258(state)), qi_make_string(state, "string")))) {
- qi_value_t *__qistd259 = qi_call(state, qi_get(state, "list_join"), __qistd260(state));
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd259;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd261(state)), qi_make_string(state, "bytes")))) {
- qi_value_t *__qistd262 = qi_call(state, qi_get(state, "bytes"), __qistd263(state));
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd262;}
- qi_old_scope(state);
- }
- qi_old_scope(state);
- }
- qi_old_scope(state);
- qi_value_t *__qistd264 = qi_get(state, "r");
- return __qistd264;
- return state->nil;
- }
- 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, "f");
- return list;
- }
- inline static qi_list_t *__qistd267(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 *__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(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 *__qistd270(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 *__qistd271(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 *__qistd275(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 *__qistd276(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 *__qistd277(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 *__qistd279(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 *__qistd280(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 *__qistd282(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 *__qistd283(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 *__qistd285(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 *__qistd265(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"), __qistd266(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"), __qistd267(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_in(state, qi_call(state, qi_get(state, "type"), __qistd268(state)), qi_make_tuple(state, __qistd269(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"), __qistd270(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "len"), __qistd271(state)), qi_make_number(state, 0)))) {
- qi_value_t *__qistd272 = qi_get(state, "xs");
- qi_old_scope(state);
- return __qistd272;}
- qi_old_scope(state);
- qi_decl(state, "r", qi_make_list(state, NULL));
- qi_new_scope(state);
- qi_value_t *__qistd274 = qi_iter(state, qi_get(state, "xs"));
- qi_decl(state, "x", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd274), i = 0; i < length; i++) {
- qi_set(state, false, "x", qi_index(state, __qistd274, qi_make_number(state, i)));
- qi_new_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_call(state, qi_get(state, "f"), __qistd275(state)))) {
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd276(state)));}
- qi_old_scope(state);
- __continue273:;
- qi_old_scope(state);
- }
- goto __exit273;
- __break273:;
- qi_old_scope(state);
- __exit273:;
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd277(state)), qi_make_string(state, "tuple")))) {
- qi_value_t *__qistd278 = qi_call(state, qi_get(state, "tuple"), __qistd279(state));
- qi_old_scope(state);
- return __qistd278;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd280(state)), qi_make_string(state, "string")))) {
- qi_value_t *__qistd281 = qi_call(state, qi_get(state, "list_join"), __qistd282(state));
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd281;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "type"), __qistd283(state)), qi_make_string(state, "bytes")))) {
- qi_value_t *__qistd284 = qi_call(state, qi_get(state, "bytes"), __qistd285(state));
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd284;}
- qi_old_scope(state);
- }
- qi_old_scope(state);
- }
- qi_old_scope(state);
- qi_value_t *__qistd286 = qi_get(state, "r");
- return __qistd286;
- return state->nil;
- }
- 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, "s");
- 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, "s");
- return list;
- }
- inline static qi_list_t *__qistd291(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_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, "w");
- return list;
- }
- inline static qi_list_t *__qistd294(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 *__qistd295(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 *__qistd298(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 *__qistd297(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"), __qistd298(state))), qi_make_number(state, 1));
- return list;
- }
- qi_value_t *__qistd287(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 *__qistd288 = qi_negate(state, qi_make_number(state, 1));
- qi_old_scope(state);
- return __qistd288;}
- 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 first argument to be: string, but got: "), qi_call(state, qi_get(state, "type"), __qistd290(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd291(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"), __qistd292(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"), __qistd294(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"), __qistd295(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 *__qistd296 = qi_get(state, "i");
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd296;} else {
- qi_new_scope(state);
- if (_qi_truthy(state, qi_equals(state, qi_call(state, qi_get(state, "slice"), __qistd297(state)), qi_get(state, "w")))) {
- qi_value_t *__qistd299 = qi_get(state, "i");
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- qi_old_scope(state);
- return __qistd299;}
- qi_old_scope(state);
- }
- qi_old_scope(state);
- __continue293:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit293;
- __break293:;
- qi_old_scope(state);
- __exit293:;
- qi_old_scope(state);
- qi_value_t *__qistd300 = qi_negate(state, qi_make_number(state, 1));
- return __qistd300;
- return state->nil;
- }
- 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, "s");
- 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, "s");
- return list;
- }
- inline static qi_list_t *__qistd304(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 *__qistd305(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 *__qistd308(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 *__qistd310(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 *__qistd301(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"), __qistd302(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"), __qistd303(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd304(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"), __qistd305(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 *__qistd306 = qi_get(state, "s");
- qi_old_scope(state);
- return __qistd306;}
- qi_old_scope(state);
- qi_new_scope(state);
- qi_decl(state, "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"), __qistd308(state)))))) {
- qi_new_scope(state);
- __continue307:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit307;
- __break307:;
- qi_old_scope(state);
- __exit307:;
- qi_old_scope(state);
- qi_value_t *__qistd309 = qi_call(state, qi_get(state, "slice"), __qistd310(state));
- return __qistd309;
- return state->nil;
- }
- 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, "s");
- 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, "s");
- return list;
- }
- inline static qi_list_t *__qistd314(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 *__qistd315(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 *__qistd318(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 *__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 *__qistd320(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"), __qistd321(state)), qi_get(state, "k")), qi_make_number(state, 1));
- return list;
- }
- qi_value_t *__qistd311(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"), __qistd312(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"), __qistd313(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd314(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"), __qistd315(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 *__qistd316 = qi_get(state, "s");
- qi_old_scope(state);
- return __qistd316;}
- qi_old_scope(state);
- 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"), __qistd318(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)));__continue317:;
- qi_set(state, false, "k", qi_add(state, qi_get(state, "k"), state->one));
- qi_old_scope(state);
- }
- goto __exit317;
- __break317:;
- qi_old_scope(state);
- __exit317:;
- qi_old_scope(state);
- qi_value_t *__qistd319 = qi_call(state, qi_get(state, "slice"), __qistd320(state));
- return __qistd319;
- return state->nil;
- }
- 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, "s");
- 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, "s");
- return list;
- }
- inline static qi_list_t *__qistd325(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 *__qistd326(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 *__qistd329(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 *__qistd328(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"), __qistd329(state));
- qi_list_data(list, 1) = qi_get(state, "cs");
- return list;
- }
- qi_value_t *__qistd322(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"), __qistd323(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"), __qistd324(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd325(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"), __qistd326(state))));}
- qi_old_scope(state);
- qi_value_t *__qistd327 = qi_call(state, qi_get(state, "str_lstrip"), __qistd328(state));
- return __qistd327;
- return state->nil;
- }
- inline static qi_list_t *__qistd331(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 *__qistd332(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 *__qistd333(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 *__qistd334(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 *__qistd330(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, "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"), __qistd331(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"), __qistd332(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd333(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"), __qistd334(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_in(state, qi_get(state, "k"), qi_get(state, "t")))) {
- qi_value_t *__qistd335 = qi_get(state, "d");
- qi_old_scope(state);
- return __qistd335;}
- qi_old_scope(state);
- qi_value_t *__qistd336 = qi_index(state, qi_get(state, "t"), qi_get(state, "k"));
- return __qistd336;
- return state->nil;
- }
- inline static qi_list_t *__qistd339(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 *__qistd340(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 *__qistd344(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 *__qistd345(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "r");
- qi_list_data(list, 1) = qi_get(state, "t");
- return list;
- }
- qi_value_t *__qistd337(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 *__qistd338 = qi_make_list(state, NULL);
- qi_old_scope(state);
- return __qistd338;}
- qi_old_scope(state);
- qi_decl(state, "l", qi_call(state, qi_get(state, "map"), __qistd339(state)));
- (void)(qi_set(state, false, "l", qi_call(state, qi_get(state, "reduce"), __qistd340(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 *__qistd343 = qi_iter(state, qi_get(state, "arguments"));
- qi_decl(state, "xs", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd343), i = 0; i < length; i++) {
- qi_set(state, false, "xs", qi_index(state, __qistd343, qi_make_number(state, i)));
- qi_new_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd344(state)));__continue342:;
- qi_old_scope(state);
- }
- goto __exit342;
- __break342:;
- qi_old_scope(state);
- __exit342:;
- qi_old_scope(state);
- (void)(qi_call(state, qi_get(state, "list_push"), __qistd345(state)));
- __continue341:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit341;
- __break341:;
- qi_old_scope(state);
- __exit341:;
- qi_old_scope(state);
- qi_value_t *__qistd346 = qi_get(state, "r");
- return __qistd346;
- return state->nil;
- }
- inline static qi_list_t *__qistd348(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 *__qistd351(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 *__qistd352(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 *__qistd350(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"), __qistd351(state));
- qi_list_data(list, 1) = qi_call(state, qi_get(state, "table_values"), __qistd352(state));
- 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, "l");
- 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_call(state, qi_get(state, "len"), __qistd356(state));
- return list;
- }
- inline static qi_list_t *__qistd354(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"), __qistd355(state));
- qi_list_data(list, 1) = qi_get(state, "l");
- return list;
- }
- qi_value_t *__qistd347(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"), __qistd348(state)), qi_make_string(state, "table")))) {
- qi_value_t *__qistd349 = qi_call(state, qi_get(state, "zip"), __qistd350(state));
- qi_old_scope(state);
- return __qistd349;} else {
- qi_value_t *__qistd353 = qi_call(state, qi_get(state, "zip"), __qistd354(state));
- qi_old_scope(state);
- return __qistd353;}
- qi_old_scope(state);
- 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_sub(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 *__qistd367(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 *__qistd368(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 *__qistd374(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 *__qistd373(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"), __qistd374(state)), qi_make_number(state, 32));
- return list;
- }
- qi_value_t *__qistd371(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "c", qi_list_index(pargs, 0));
- qi_value_t *__qistd372 = (_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"), __qistd373(state)): qi_get(state, "c"));
- return __qistd372;return state->nil;
- }
- 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_function(state, "<anon>", 1, __qistd371, NULL);
- qi_list_data(list, 1) = qi_get(state, "s");
- return list;
- }
- qi_value_t *__qistd366(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"), __qistd367(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"), __qistd368(state))));}
- qi_old_scope(state);
- qi_value_t *__qistd369 = qi_call(state, qi_get(state, "map"), __qistd370(state));
- return __qistd369;
- return state->nil;
- }
- inline static qi_list_t *__qistd378(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 *__qistd377(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"), __qistd378(state)), qi_get(state, "t"));
- return list;
- }
- inline static qi_list_t *__qistd379(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 *__qistd375(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 *__qistd376 = (_qi_truthy(state, qi_not_is(state, qi_get(state, "p"), state->nil))? qi_call(state, qi_get(state, "set_meta_table"), __qistd377(state)): qi_call(state, qi_get(state, "set_meta_table"), __qistd379(state)));
- return __qistd376;return state->nil;
- }
- inline static qi_list_t *__qistd382(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "o");
- return list;
- }
- qi_value_t *__qistd380(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "o", qi_list_index(pargs, 0));
- qi_value_t *__qistd381 = qi_call(state, qi_get(state, "has_meta_table"), __qistd382(state));
- return __qistd381;return state->nil;
- }
- qi_value_t *__qistd387(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_value_t *__qistd388 = qi_get(state, "n");
- return __qistd388;return state->nil;
- }
- inline static qi_table_t *__qistd389(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 *__qistd390(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_value_t *__qistd391 = qi_add(state, qi_add(state, qi_make_string(state, "<class "), qi_get(state, "n")), qi_make_string(state, ">"));
- return __qistd391;return state->nil;
- }
- inline static qi_table_t *__qistd392(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 *__qistd395(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_value_t *__qistd396 = qi_get(state, "n");
- return __qistd396;return state->nil;
- }
- inline static qi_table_t *__qistd397(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 *__qistd394(qi_state_t *state) {
- qi_table_t *table = qi_table_make();
- qi_table_set(table, "__type", qi_make_function(state, "<anon>", 1, __qistd395, __qistd397(state)));
- return table;
- }
- inline static qi_list_t *__qistd400(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 *__qistd402(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 *__qistd401(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, __qistd402(state)), qi_get(state, "pargs"));
- return list;
- }
- qi_value_t *__qistd393(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, __qistd394(state)));
- qi_new_scope(state);
- qi_value_t *__qistd399 = qi_iter(state, qi_get(state, "p"));
- qi_decl(state, "other", state->nil);
- for (qi_size_t length = _qi_length(state, __qistd399), i = 0; i < length; i++) {
- qi_set(state, false, "other", qi_index(state, __qistd399, 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")))));
- __continue398:;
- qi_old_scope(state);
- }
- goto __exit398;
- __break398:;
- qi_old_scope(state);
- __exit398:;
- 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"), __qistd400(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"), __qistd401(state)));}
- qi_old_scope(state);
- qi_value_t *__qistd403 = qi_get(state, "obj");
- return __qistd403;
- return state->nil;
- }
- inline static qi_table_t *__qistd404(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 *__qistd386(qi_state_t *state) {
- qi_table_t *table = qi_table_make();
- qi_table_set(table, "__type", qi_make_function(state, "<anon>", 1, __qistd387, __qistd389(state)));
- qi_table_set(table, "mt", qi_get(state, "mt"));
- qi_table_set(table, "super", qi_get(state, "p"));
- qi_table_set(table, "t", qi_get(state, "t"));
- qi_table_set(table, "__str", qi_make_function(state, "<anon>", 1, __qistd390, __qistd392(state)));
- qi_table_set(table, "__call", qi_make_function(state, "<anon>", 2, __qistd393, __qistd404(state)));
- return table;
- }
- inline static qi_list_t *__qistd385(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, __qistd386(state)));
- return list;
- }
- qi_value_t *__qistd383(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 *__qistd384 = qi_call(state, qi_get(state, "Object"), __qistd385(state));
- return __qistd384;return state->nil;
- }
- inline static qi_list_t *__qistd406(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 *__qistd407(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd409(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd413(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 *__qistd414(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 *__qistd405(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"), __qistd406(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"), __qistd407(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"), __qistd409(state))))) {
- qi_new_scope(state);
- qi_new_scope(state);
- qi_value_t *__qistd411 = qi_index(state, qi_get(state, "s"), qi_get(state, "i"));
- if (_qi_equals(state, __qistd411, qi_make_string(state, "_"))) goto __qistd412;
- goto __default410;
- __qistd412:;
- 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"), __qistd413(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 __continue408;
- }
- qi_old_scope(state);
- (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_call(state, qi_get(state, "repr"), __qistd414(state)))));
- goto __break410;
- __default410:;
- (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_index(state, qi_get(state, "s"), qi_get(state, "i")))));
- __break410:;
- qi_old_scope(state);
- __continue408:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit408;
- __break408:;
- qi_old_scope(state);
- __exit408:;
- qi_old_scope(state);
- qi_value_t *__qistd415 = qi_get(state, "r");
- return __qistd415;
- return state->nil;
- }
- 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 *__qistd418(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, "l");
- return list;
- }
- inline static qi_list_t *__qistd420(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "l");
- 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 *__qistd422(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, __qistd423(state)), qi_get(state, "l"));
- return list;
- }
- qi_value_t *__qistd416(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"), __qistd417(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"), __qistd418(state))));}
- qi_old_scope(state);
- qi_new_scope(state);
- if (_qi_truthy(state, qi_not_equals(state, qi_call(state, qi_get(state, "type"), __qistd419(state)), qi_make_string(state, "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"), __qistd420(state))));}
- qi_old_scope(state);
- qi_value_t *__qistd421 = qi_call(state, qi_get(state, "func_call"), __qistd422(state));
- return __qistd421;
- return state->nil;
- }
- 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 *__qistd428(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 *__qistd432(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd434(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "s");
- return list;
- }
- inline static qi_list_t *__qistd435(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 *__qistd436(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 *__qistd424(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"), __qistd425(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"), __qistd426(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"), __qistd428(state))))) {
- qi_new_scope(state);
- qi_new_scope(state);
- qi_value_t *__qistd430 = qi_index(state, qi_get(state, "s"), qi_get(state, "i"));
- if (_qi_equals(state, __qistd430, qi_make_string(state, "{"))) goto __qistd431;
- goto __default429;
- __qistd431:;
- 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"), __qistd432(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 __continue427;
- }
- 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"), __qistd434(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))))));__continue433:;
- qi_old_scope(state);
- }
- goto __exit433;
- __break433:;
- qi_old_scope(state);
- __exit433:;
- 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"), __qistd435(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"), __qistd436(state)))));
- goto __break429;
- __default429:;
- (void)(qi_set(state, false, "r", qi_add(state, qi_get(state, "r"), qi_index(state, qi_get(state, "s"), qi_get(state, "i")))));
- __break429:;
- qi_old_scope(state);
- __continue427:;
- qi_set(state, false, "i", qi_add(state, qi_get(state, "i"), state->one));
- qi_old_scope(state);
- }
- goto __exit427;
- __break427:;
- qi_old_scope(state);
- __exit427:;
- qi_old_scope(state);
- qi_value_t *__qistd437 = qi_get(state, "r");
- return __qistd437;
- return state->nil;
- }
- inline static qi_list_t *__qistd441(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 *__qistd440(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"), __qistd441(state));
- return list;
- }
- qi_value_t *__qistd438(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_value_t *__qistd439 = qi_call(state, qi_get(state, "chr"), __qistd440(state));
- return __qistd439;return state->nil;
- }
- inline static qi_list_t *__qistd443(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "STDOUT");
- qi_list_data(list, 1) = qi_get(state, "c");
- return list;
- }
- qi_value_t *__qistd442(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"), __qistd443(state)));return state->nil;
- }
- inline static qi_list_t *__qistd446(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 *__qistd444(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_value_t *__qistd445 = qi_call(state, qi_get(state, "fgets"), __qistd446(state));
- return __qistd445;return state->nil;
- }
- inline static qi_list_t *__qistd448(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 *__qistd449(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 *__qistd451(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 *__qistd447(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"), __qistd448(state)), qi_make_number(state, 0)))) {
- (void)(qi_call(state, qi_get(state, "func_call"), __qistd449(state)));}
- qi_old_scope(state);
- qi_value_t *__qistd450 = qi_call(state, qi_get(state, "str_rstrip"), __qistd451(state));
- return __qistd450;
- return state->nil;
- }
- inline static qi_list_t *__qistd454(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "path");
- qi_list_data(list, 1) = qi_get(state, "mode");
- return list;
- }
- qi_value_t *__qistd452(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 *__qistd453 = qi_call(state, qi_get(state, "fopen"), __qistd454(state));
- return __qistd453;return state->nil;
- }
- qi_value_t *__qistd455(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_make_string(state, "assertion failed"));
- 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;
- }
- qi_value_t *__qistd457(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "msg", qi_list_index(pargs, 1));
- qi_decl(state, "this", qi_list_index(pargs, 0));
- (void)(qi_index_set(state, false, qi_get(state, "this"), qi_make_string(state, "msg"), qi_get(state, "msg")));
- return state->nil;
- }
- inline static qi_list_t *__qistd460(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(1);
- qi_list_data(list, 0) = qi_get(state, "this");
- return list;
- }
- qi_value_t *__qistd458(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "this", qi_list_index(pargs, 0));
- qi_value_t *__qistd459 = qi_add(state, qi_add(state, qi_call(state, qi_get(state, "type"), __qistd460(state)), qi_make_string(state, ": ")), qi_index(state, qi_get(state, "this"), qi_make_string(state, "msg")));
- return __qistd459;return state->nil;
- }
- qi_value_t *__qistd456(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", 2, __qistd457, NULL));
- qi_table_set(metatable, "__str", qi_make_function(state, "Error.__str", 1, __qistd458, 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);
- }
- inline static qi_list_t *__qistd461(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 *__qistd462(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 *__qistd463(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 *__qistd464(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 *__qistd465(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 *__qistd466(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 *__qistd467(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 *__qistd468(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 *__qistd469(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 *__qistd470(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 *__qistd471(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 *__qistd472(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 *__qistd473(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 *__qistd474(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 *__qistd475(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 *__qistd476(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 *__qistd477(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 *__qistd478(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 *__qistd479(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 *__qistd483(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 *__qistd481(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 *__qistd482 = qi_call(state, qi_get(state, "reduce"), __qistd483(state));
- return __qistd482;return state->nil;
- }
- inline static qi_list_t *__qistd480(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, __qistd481, NULL);
- return list;
- }
- inline static qi_list_t *__qistd487(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 *__qistd485(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 *__qistd486 = qi_call(state, qi_get(state, "reduce"), __qistd487(state));
- return __qistd486;return state->nil;
- }
- inline static qi_list_t *__qistd484(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, __qistd485, NULL);
- return list;
- }
- inline static qi_list_t *__qistd491(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 *__qistd489(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 *__qistd490 = qi_call(state, qi_get(state, "reduce"), __qistd491(state));
- return __qistd490;return state->nil;
- }
- inline static qi_list_t *__qistd488(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, __qistd489, NULL);
- return list;
- }
- inline static qi_list_t *__qistd495(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 *__qistd493(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 *__qistd494 = qi_call(state, qi_get(state, "reduce"), __qistd495(state));
- return __qistd494;return state->nil;
- }
- inline static qi_list_t *__qistd492(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, __qistd493, NULL);
- return list;
- }
- inline static qi_list_t *__qistd496(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 *__qistd497(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 *__qistd498(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 *__qistd499(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 *__qistd500(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 *__qistd501(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 *__qistd502(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 *__qistd503(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 *__qistd507(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 *__qistd505(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 *__qistd506 = qi_call(state, qi_get(state, "map"), __qistd507(state));
- return __qistd506;return state->nil;
- }
- inline static qi_list_t *__qistd504(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, __qistd505, NULL);
- return list;
- }
- inline static qi_list_t *__qistd511(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 *__qistd509(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 *__qistd510 = qi_call(state, qi_get(state, "map"), __qistd511(state));
- return __qistd510;return state->nil;
- }
- inline static qi_list_t *__qistd508(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, __qistd509, NULL);
- return list;
- }
- inline static qi_list_t *__qistd515(qi_state_t *state) {
- qi_list_t *list = qi_list_make_n(2);
- qi_list_data(list, 0) = qi_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd513(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 *__qistd514 = qi_call(state, qi_get(state, "map"), __qistd515(state));
- return __qistd514;return state->nil;
- }
- inline static qi_list_t *__qistd512(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, __qistd513, NULL);
- return list;
- }
- inline static qi_list_t *__qistd519(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 *__qistd517(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 *__qistd518 = qi_call(state, qi_get(state, "map"), __qistd519(state));
- return __qistd518;return state->nil;
- }
- inline static qi_list_t *__qistd516(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, __qistd517, NULL);
- return list;
- }
- inline static qi_list_t *__qistd523(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 *__qistd521(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 *__qistd522 = qi_call(state, qi_get(state, "filter"), __qistd523(state));
- return __qistd522;return state->nil;
- }
- inline static qi_list_t *__qistd520(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, __qistd521, NULL);
- 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, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd525(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 *__qistd526 = qi_call(state, qi_get(state, "filter"), __qistd527(state));
- return __qistd526;return state->nil;
- }
- inline static qi_list_t *__qistd524(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, __qistd525, NULL);
- 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_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd529(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 *__qistd530 = qi_call(state, qi_get(state, "filter"), __qistd531(state));
- return __qistd530;return state->nil;
- }
- 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, "string.filter");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd529, NULL);
- 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_get(state, "f");
- qi_list_data(list, 1) = qi_get(state, "xs");
- return list;
- }
- qi_value_t *__qistd533(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 *__qistd534 = qi_call(state, qi_get(state, "filter"), __qistd535(state));
- return __qistd534;return state->nil;
- }
- 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, "bytes.filter");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 2, __qistd533, NULL);
- 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, "string.index");
- qi_list_data(list, 1) = qi_get(state, "str_index");
- 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, "string.lstrip");
- qi_list_data(list, 1) = qi_get(state, "str_lstrip");
- 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, "string.rstrip");
- qi_list_data(list, 1) = qi_get(state, "str_rstrip");
- 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.strip");
- qi_list_data(list, 1) = qi_get(state, "str_strip");
- 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, "table.get");
- qi_list_data(list, 1) = qi_get(state, "table_get");
- 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.toupper");
- qi_list_data(list, 1) = qi_get(state, "str_toupper");
- 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.tolower");
- qi_list_data(list, 1) = qi_get(state, "str_tolower");
- 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.format");
- qi_list_data(list, 1) = qi_get(state, "format");
- 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.formatl");
- qi_list_data(list, 1) = qi_get(state, "formatl");
- 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, "string.formatd");
- qi_list_data(list, 1) = qi_get(state, "formatd");
- return list;
- }
- qi_value_t *__qistd547(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- return state->nil;
- }
- 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, "file.__enter");
- qi_list_data(list, 1) = qi_make_function(state, "<anon>", 0, __qistd547, NULL);
- return list;
- }
- inline static qi_list_t *__qistd551(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 *__qistd549(qi_state_t *state, qi_size_t pargc, qi_list_t *pargs) {
- qi_decl(state, "f", qi_list_index(pargs, 0));
- qi_value_t *__qistd550 = qi_call(state, qi_get(state, "fclose"), __qistd551(state));
- return __qistd550;return state->nil;
- }
- inline static qi_list_t *__qistd548(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, __qistd549, NULL);
- 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, "list_sort", qi_make_function(state, "list_sort", 1, __qistd81, 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, __qistd101, NULL));
- qi_set(state, false, "list_unshift", qi_make_function(state, "list_unshift", 2, __qistd107, NULL));
- qi_set(state, false, "slice", qi_make_function(state, "slice", 1, __qistd109, NULL));
- qi_set(state, false, "str_startswith", qi_make_function(state, "str_startswith", 2, __qistd140, NULL));
- qi_set(state, false, "str_endswith", qi_make_function(state, "str_endswith", 2, __qistd149, NULL));
- qi_set(state, false, "str_split", qi_make_function(state, "str_split", 1, __qistd159, NULL));
- qi_set(state, false, "str_replace", qi_make_function(state, "str_replace", 3, __qistd175, NULL));
- qi_set(state, false, "table_keys", qi_make_function(state, "table_keys", 1, __qistd188, NULL));
- qi_set(state, false, "table_values", qi_make_function(state, "table_values", 1, __qistd195, NULL));
- qi_set(state, false, "reduce", qi_make_function(state, "reduce", 2, __qistd202, NULL));
- qi_set(state, false, "sum", qi_make_function(state, "sum", 1, __qistd223, NULL));
- qi_set(state, false, "product", qi_make_function(state, "product", 1, __qistd228, NULL));
- qi_set(state, false, "all", qi_make_function(state, "all", 1, __qistd233, NULL));
- qi_set(state, false, "any", qi_make_function(state, "any", 1, __qistd238, NULL));
- qi_set(state, false, "map", qi_make_function(state, "map", 2, __qistd243, NULL));
- qi_set(state, false, "filter", qi_make_function(state, "filter", 2, __qistd265, NULL));
- qi_set(state, false, "str_index", qi_make_function(state, "str_index", 2, __qistd287, NULL));
- qi_set(state, false, "str_lstrip", qi_make_function(state, "str_lstrip", 1, __qistd301, NULL));
- qi_set(state, false, "str_rstrip", qi_make_function(state, "str_rstrip", 1, __qistd311, NULL));
- qi_set(state, false, "str_strip", qi_make_function(state, "str_strip", 1, __qistd322, NULL));
- qi_set(state, false, "table_get", qi_make_function(state, "table_get", 2, __qistd330, NULL));
- qi_set(state, false, "zip", qi_make_function(state, "zip", 0, __qistd337, NULL));
- qi_set(state, false, "enumerate", qi_make_function(state, "enumerate", 1, __qistd347, NULL));
- qi_set(state, false, "str_toupper", qi_make_function(state, "str_toupper", 1, __qistd357, NULL));
- qi_set(state, false, "str_tolower", qi_make_function(state, "str_tolower", 1, __qistd366, NULL));
- qi_set(state, false, "Object", qi_make_function(state, "Object", 1, __qistd375, NULL));
- qi_set(state, false, "is_object", qi_make_function(state, "is_object", 1, __qistd380, NULL));
- qi_set(state, false, "__class_wrapper", qi_make_function(state, "__class_wrapper", 5, __qistd383, NULL));
- qi_set(state, false, "format", qi_make_function(state, "format", 1, __qistd405, NULL));
- qi_set(state, false, "formatl", qi_make_function(state, "formatl", 2, __qistd416, NULL));
- qi_set(state, false, "formatd", qi_make_function(state, "formatd", 2, __qistd424, NULL));
- qi_set(state, false, "getch", qi_make_function(state, "getch", 0, __qistd438, NULL));
- qi_set(state, false, "putch", qi_make_function(state, "putch", 1, __qistd442, NULL));
- qi_set(state, false, "getline", qi_make_function(state, "getline", 0, __qistd444, NULL));
- qi_set(state, false, "input", qi_make_function(state, "input", 0, __qistd447, NULL));
- qi_set(state, false, "open", qi_make_function(state, "open", 1, __qistd452, NULL));
- qi_set(state, false, "assert", qi_make_function(state, "assert", 1, __qistd455, NULL));
- qi_set(state, false, "Error", __qistd456(state));(void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd461(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd462(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd463(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"), __qistd464(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd465(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd466(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd467(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd468(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd469(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd470(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd471(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd472(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd473(state)));
- qi_decl_const(state, "__slice", qi_get(state, "slice"));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd474(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd475(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd476(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd477(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd478(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd479(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd480(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd484(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd488(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd492(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd496(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd497(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd498(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd499(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd500(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd501(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd502(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd503(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd504(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd508(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd512(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd516(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd520(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd524(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd528(state)));
- (void)(qi_call(state, qi_get(state, "set_pseudomethod"), __qistd532(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)));
- (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"), __qistd548(state)));
- }
|