1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955395639573958395939603961396239633964396539663967396839693970397139723973397439753976397739783979398039813982398339843985398639873988398939903991399239933994399539963997399839994000400140024003400440054006400740084009401040114012401340144015401640174018401940204021402240234024402540264027402840294030403140324033403440354036403740384039404040414042404340444045404640474048404940504051405240534054405540564057405840594060406140624063406440654066406740684069407040714072407340744075407640774078407940804081408240834084408540864087408840894090409140924093409440954096409740984099410041014102410341044105410641074108410941104111411241134114411541164117411841194120412141224123412441254126412741284129413041314132413341344135413641374138413941404141414241434144414541464147414841494150415141524153415441554156415741584159416041614162416341644165416641674168416941704171417241734174417541764177417841794180418141824183418441854186418741884189419041914192419341944195419641974198419942004201420242034204420542064207420842094210421142124213421442154216421742184219422042214222422342244225422642274228422942304231423242334234423542364237423842394240424142424243424442454246424742484249425042514252425342544255425642574258425942604261426242634264426542664267426842694270427142724273427442754276427742784279428042814282428342844285428642874288428942904291429242934294429542964297429842994300430143024303430443054306430743084309431043114312431343144315431643174318431943204321432243234324432543264327432843294330433143324333433443354336433743384339434043414342434343444345434643474348434943504351435243534354435543564357435843594360436143624363436443654366436743684369437043714372437343744375437643774378437943804381438243834384438543864387438843894390439143924393439443954396439743984399440044014402440344044405440644074408440944104411441244134414441544164417441844194420442144224423442444254426442744284429443044314432443344344435443644374438443944404441444244434444444544464447444844494450445144524453445444554456445744584459446044614462 |
- /*
- * Copyright (C) 2007-2008, Jeff Thompson
- *
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions are met:
- *
- * * Redistributions of source code must retain the above copyright
- * notice, this list of conditions and the following disclaimer.
- * * Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- * * Neither the name of the copyright holder nor the names of its contributors
- * may be used to endorse or promote products derived from this software
- * without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
- using System;
- using System.Collections.Generic;
- namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
- {
- public class Parser
- {
- public static IEnumerable<bool> formatError(object Output, object Format, object Arguments)
- {
- // Debug: Simple implementation for now.
- YP.write(Format);
- YP.write(Arguments);
- YP.nl();
- yield return false;
- }
- // disable warning: don't see how we can code this differently short
- // of rewriting the whole thing
- #pragma warning disable 0168, 0219
- // Debug: Hand-modify this central predicate to do tail recursion.
- public static IEnumerable<bool> read_tokens(object arg1, object arg2, object arg3)
- {
- bool repeat = true;
- while (repeat)
- {
- repeat = false;
- {
- object C1 = arg1;
- object Dict = arg2;
- object Tokens = arg3;
- Variable C2 = new Variable();
- if (YP.lessThanOrEqual(C1, new ListPair(32, Atom.NIL)))
- {
- if (YP.greaterThanOrEqual(C1, 0))
- {
- foreach (bool l4 in YP.get_code(C2))
- {
- #if false
- foreach (bool l5 in read_tokens(C2, Dict, Tokens))
- {
- yield return false;
- }
- #endif
- arg1 = YP.getValue(C2);
- arg2 = YP.getValue(Dict);
- arg3 = YP.getValue(Tokens);
- repeat = true;
- }
- }
- goto cutIf1;
- }
- if (YP.greaterThanOrEqual(C1, new ListPair(97, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C1, new ListPair(122, Atom.NIL)))
- {
- foreach (bool l4 in read_identifier(C1, Dict, Tokens))
- {
- yield return false;
- }
- goto cutIf2;
- }
- }
- if (YP.greaterThanOrEqual(C1, new ListPair(65, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C1, new ListPair(90, Atom.NIL)))
- {
- foreach (bool l4 in read_variable(C1, Dict, Tokens))
- {
- yield return false;
- }
- goto cutIf3;
- }
- }
- if (YP.greaterThanOrEqual(C1, new ListPair(48, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C1, new ListPair(57, Atom.NIL)))
- {
- foreach (bool l4 in read_number(C1, Dict, Tokens))
- {
- yield return false;
- }
- goto cutIf4;
- }
- }
- if (YP.lessThan(C1, 127))
- {
- foreach (bool l3 in read_special(C1, Dict, Tokens))
- {
- yield return false;
- }
- goto cutIf5;
- }
- if (YP.lessThanOrEqual(C1, 160))
- {
- foreach (bool l3 in YP.get_code(C2))
- {
- #if false
- foreach (bool l4 in read_tokens(C2, Dict, Tokens))
- {
- yield return false;
- }
- #endif
- arg1 = YP.getValue(C2);
- arg2 = YP.getValue(Dict);
- arg3 = YP.getValue(Tokens);
- repeat = true;
- }
- goto cutIf6;
- }
- if (YP.greaterThanOrEqual(C1, 223))
- {
- if (YP.notEqual(C1, 247))
- {
- foreach (bool l4 in read_identifier(C1, Dict, Tokens))
- {
- yield return false;
- }
- goto cutIf7;
- }
- }
- if (YP.greaterThanOrEqual(C1, 192))
- {
- if (YP.notEqual(C1, 215))
- {
- foreach (bool l4 in read_variable(C1, Dict, Tokens))
- {
- yield return false;
- }
- goto cutIf8;
- }
- }
- if (YP.notEqual(C1, 170))
- {
- if (YP.notEqual(C1, 186))
- {
- foreach (bool l4 in read_symbol(C1, Dict, Tokens))
- {
- yield return false;
- }
- goto cutIf9;
- }
- }
- foreach (bool l2 in read_identifier(C1, Dict, Tokens))
- {
- yield return false;
- }
- cutIf9:
- cutIf8:
- cutIf7:
- cutIf6:
- cutIf5:
- cutIf4:
- cutIf3:
- cutIf2:
- cutIf1:
- { }
- }
- }
- }
- // Compiler output follows.
- class YPInnerClass { }
- // static Type getDeclaringClass() { return typeof(YPInnerClass).DeclaringType; }
- public static IEnumerable<bool> parseInput(object TermList)
- {
- {
- Variable TermAndVariables = new Variable();
- FindallAnswers findallAnswers1 = new FindallAnswers(TermAndVariables);
- foreach (bool l2 in parseInputHelper(TermAndVariables))
- {
- findallAnswers1.add();
- }
- foreach (bool l2 in findallAnswers1.result(TermList))
- {
- yield return false;
- }
- }
- }
- public static IEnumerable<bool> parseInputHelper(object arg1)
- {
- {
- Variable Term = new Variable();
- Variable Variables = new Variable();
- Variable Answer = new Variable();
- Variable x4 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor2(@"f", Term, Variables)))
- {
- foreach (bool l3 in YP.repeat())
- {
- foreach (bool l4 in portable_read3(Answer, Variables, x4))
- {
- foreach (bool l5 in remove_pos(Answer, Term))
- {
- if (YP.termEqual(Term, Atom.a(@"end_of_file")))
- {
- yield break;
- // unreachable code:
- // goto cutIf1;
- }
- yield return false;
- // cutIf1:
- { }
- }
- }
- }
- }
- }
- }
- public static IEnumerable<bool> clear_errors()
- {
- {
- yield return false;
- }
- }
- public static IEnumerable<bool> remove_pos(object arg1, object arg2)
- {
- {
- Variable X = new Variable();
- foreach (bool l2 in YP.unify(arg1, X))
- {
- foreach (bool l3 in YP.unify(arg2, X))
- {
- if (YP.var(X))
- {
- yield return true;
- yield break;
- }
- }
- }
- }
- {
- object X = arg2;
- Variable _Pos = new Variable();
- Variable _Name = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor3(@"$VAR", _Pos, _Name, X)))
- {
- if (YP.var(X))
- {
- yield return true;
- yield break;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, Atom.NIL))
- {
- foreach (bool l3 in YP.unify(arg2, Atom.NIL))
- {
- yield return true;
- yield break;
- }
- }
- }
- {
- Variable H = new Variable();
- Variable T = new Variable();
- Variable NH = new Variable();
- Variable NT = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(H, T)))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(NH, NT)))
- {
- foreach (bool l4 in remove_pos(H, NH))
- {
- foreach (bool l5 in remove_pos(T, NT))
- {
- yield return false;
- }
- }
- yield break;
- }
- }
- }
- {
- Variable A = new Variable();
- Variable B = new Variable();
- Variable NA = new Variable();
- Variable NB = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor2(@",", A, B)))
- {
- foreach (bool l3 in YP.unify(arg2, new Functor2(@",", NA, NB)))
- {
- foreach (bool l4 in remove_pos(A, NA))
- {
- foreach (bool l5 in remove_pos(B, NB))
- {
- yield return false;
- }
- }
- yield break;
- }
- }
- }
- {
- Variable Atom_1 = new Variable();
- Variable _F = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom_1))
- {
- foreach (bool l3 in YP.unify(arg2, Atom_1))
- {
- foreach (bool l4 in YP.functor(Atom_1, _F, 0))
- {
- yield return false;
- }
- }
- }
- }
- {
- object Term = arg1;
- object NewTerm = arg2;
- Variable Func = new Variable();
- Variable _Pos = new Variable();
- Variable Args = new Variable();
- Variable NArgs = new Variable();
- if (YP.nonvar(Term))
- {
- foreach (bool l3 in YP.univ(Term, new ListPair(Func, new ListPair(_Pos, Args))))
- {
- foreach (bool l4 in remove_pos(Args, NArgs))
- {
- foreach (bool l5 in YP.univ(NewTerm, new ListPair(Func, NArgs)))
- {
- yield return false;
- }
- }
- }
- }
- }
- }
- public static IEnumerable<bool> portable_read_position(object Term, object PosTerm, object Syntax)
- {
- {
- foreach (bool l2 in portable_read(PosTerm, Syntax))
- {
- foreach (bool l3 in remove_pos(PosTerm, Term))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> portable_read(object Answer, object Syntax)
- {
- {
- Variable Tokens = new Variable();
- Variable ParseTokens = new Variable();
- foreach (bool l2 in read_tokens1(Tokens))
- {
- foreach (bool l3 in remove_comments(Tokens, ParseTokens, Syntax))
- {
- foreach (bool l4 in parse2(ParseTokens, Answer))
- {
- yield return false;
- }
- }
- }
- }
- }
- public static IEnumerable<bool> portable_read3(object Answer, object Variables, object Syntax)
- {
- {
- Variable Tokens = new Variable();
- Variable ParseTokens = new Variable();
- foreach (bool l2 in read_tokens2(Tokens, Variables))
- {
- foreach (bool l3 in remove_comments(Tokens, ParseTokens, Syntax))
- {
- foreach (bool l4 in parse2(ParseTokens, Answer))
- {
- yield return false;
- }
- }
- }
- }
- }
- public static IEnumerable<bool> remove_comments(object arg1, object arg2, object arg3)
- {
- {
- foreach (bool l2 in YP.unify(arg1, Atom.NIL))
- {
- foreach (bool l3 in YP.unify(arg2, Atom.NIL))
- {
- foreach (bool l4 in YP.unify(arg3, Atom.NIL))
- {
- yield return false;
- }
- }
- }
- }
- {
- object Ys = arg2;
- Variable S = new Variable();
- Variable E = new Variable();
- Variable Xs = new Variable();
- Variable Zs = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"comment", S, E), Xs)))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"comment", S, E), Zs)))
- {
- foreach (bool l4 in remove_comments(Xs, Ys, Zs))
- {
- yield return false;
- }
- yield break;
- }
- }
- }
- {
- Variable Pos = new Variable();
- Variable Xs = new Variable();
- Variable Ys = new Variable();
- Variable Pos2 = new Variable();
- Variable Zs = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"/", Atom.a(@"["), Pos), Xs)))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"["), Ys)))
- {
- foreach (bool l4 in YP.unify(arg3, new ListPair(new Functor2(@"list", Pos, Pos2), Zs)))
- {
- foreach (bool l5 in YP.unify(Pos2, YP.add(Pos, 1)))
- {
- foreach (bool l6 in remove_comments(Xs, Ys, Zs))
- {
- yield return false;
- }
- }
- yield break;
- }
- }
- }
- }
- {
- Variable Pos = new Variable();
- Variable Xs = new Variable();
- Variable Ys = new Variable();
- Variable Pos2 = new Variable();
- Variable Zs = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"/", Atom.a(@"]"), Pos), Xs)))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"]"), Ys)))
- {
- foreach (bool l4 in YP.unify(arg3, new ListPair(new Functor2(@"list", Pos, Pos2), Zs)))
- {
- foreach (bool l5 in YP.unify(Pos2, YP.add(Pos, 1)))
- {
- foreach (bool l6 in remove_comments(Xs, Ys, Zs))
- {
- yield return false;
- }
- }
- yield break;
- }
- }
- }
- }
- {
- object Zs = arg3;
- Variable Token = new Variable();
- Variable Xs = new Variable();
- Variable Ys = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(Token, Xs)))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(Token, Ys)))
- {
- foreach (bool l4 in remove_comments(Xs, Ys, Zs))
- {
- yield return false;
- }
- }
- }
- }
- }
- public static IEnumerable<bool> expect(object Token, object arg2, object arg3)
- {
- {
- object Rest = arg3;
- foreach (bool l2 in YP.unify(arg2, new ListPair(Token, Rest)))
- {
- yield return true;
- yield break;
- }
- }
- {
- object S0 = arg2;
- object x3 = arg3;
- foreach (bool l2 in syntax_error(new ListPair(Token, new ListPair(Atom.a(@"or"), new ListPair(Atom.a(@"operator"), new ListPair(Atom.a(@"expected"), Atom.NIL)))), S0))
- {
- yield return false;
- }
- }
- }
- public static IEnumerable<bool> parse2(object Tokens, object Answer)
- {
- {
- Variable Term = new Variable();
- Variable LeftOver = new Variable();
- foreach (bool l2 in clear_errors())
- {
- foreach (bool l3 in parse(Tokens, 1200, Term, LeftOver))
- {
- foreach (bool l4 in all_read(LeftOver))
- {
- foreach (bool l5 in YP.unify(Answer, Term))
- {
- yield return false;
- }
- yield break;
- }
- }
- foreach (bool l3 in syntax_error(Tokens))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> all_read(object arg1)
- {
- {
- foreach (bool l2 in YP.unify(arg1, Atom.NIL))
- {
- yield return false;
- }
- }
- {
- Variable Token = new Variable();
- Variable S = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(Token, S)))
- {
- foreach (bool l3 in syntax_error(new ListPair(Atom.a(@"operator"), new ListPair(Atom.a(@"expected"), new ListPair(Atom.a(@"after"), new ListPair(Atom.a(@"expression"), Atom.NIL)))), new ListPair(Token, S)))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> parse(object arg1, object arg2, object arg3, object arg4)
- {
- {
- object x1 = arg2;
- object x2 = arg3;
- object x3 = arg4;
- foreach (bool l2 in YP.unify(arg1, Atom.NIL))
- {
- foreach (bool l3 in syntax_error(new ListPair(Atom.a(@"expression"), new ListPair(Atom.a(@"expected"), Atom.NIL)), Atom.NIL))
- {
- yield return false;
- }
- }
- }
- {
- object Precedence = arg2;
- object Term = arg3;
- object LeftOver = arg4;
- Variable Token = new Variable();
- Variable RestTokens = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(Token, RestTokens)))
- {
- foreach (bool l3 in parse5(Token, RestTokens, Precedence, Term, LeftOver))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> parse5(object arg1, object arg2, object arg3, object arg4, object arg5)
- {
- {
- object S0 = arg2;
- object x2 = arg3;
- object x3 = arg4;
- object x4 = arg5;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"}")))
- {
- foreach (bool l3 in cannot_start(Atom.a(@"}"), S0))
- {
- yield return false;
- }
- }
- }
- {
- object S0 = arg2;
- object x2 = arg3;
- object x3 = arg4;
- object x4 = arg5;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))
- {
- foreach (bool l3 in cannot_start(Atom.a(@"]"), S0))
- {
- yield return false;
- }
- }
- }
- {
- object S0 = arg2;
- object x2 = arg3;
- object x3 = arg4;
- object x4 = arg5;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@")")))
- {
- foreach (bool l3 in cannot_start(Atom.a(@")"), S0))
- {
- yield return false;
- }
- }
- }
- {
- object S0 = arg2;
- object x2 = arg3;
- object x3 = arg4;
- object x4 = arg5;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))
- {
- foreach (bool l3 in cannot_start(Atom.a(@","), S0))
- {
- yield return false;
- }
- }
- }
- {
- object S0 = arg2;
- object x2 = arg3;
- object x3 = arg4;
- object x4 = arg5;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))
- {
- foreach (bool l3 in cannot_start(Atom.a(@"|"), S0))
- {
- yield return false;
- }
- }
- }
- {
- object S0 = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable Chars = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor1(@"string", Chars)))
- {
- foreach (bool l3 in exprtl0(S0, Chars, Precedence, Answer, S))
- {
- yield return false;
- }
- }
- }
- {
- object S0 = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable Number = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor1(@"number", Number)))
- {
- foreach (bool l3 in exprtl0(S0, Number, Precedence, Answer, S))
- {
- yield return false;
- }
- }
- }
- {
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable S1 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"]"), S1)))
- {
- foreach (bool l4 in read_atom(new Functor2(@"/", Atom.NIL, 0), S1, Precedence, Answer, S))
- {
- yield return false;
- }
- yield break;
- }
- }
- }
- {
- object S1 = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable Arg1 = new Variable();
- Variable S2 = new Variable();
- Variable RestArgs = new Variable();
- Variable S3 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))
- {
- foreach (bool l3 in parse(S1, 999, Arg1, S2))
- {
- foreach (bool l4 in read_list(S2, RestArgs, S3))
- {
- foreach (bool l5 in exprtl0(S3, new ListPair(Arg1, RestArgs), Precedence, Answer, S))
- {
- yield return false;
- }
- yield break;
- }
- }
- }
- }
- {
- object S1 = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable Term = new Variable();
- Variable S2 = new Variable();
- Variable S3 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"(")))
- {
- foreach (bool l3 in parse(S1, 1200, Term, S2))
- {
- foreach (bool l4 in expect(Atom.a(@")"), S2, S3))
- {
- foreach (bool l5 in exprtl0(S3, Term, Precedence, Answer, S))
- {
- yield return false;
- }
- yield break;
- }
- }
- }
- }
- {
- object S1 = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable Term = new Variable();
- Variable S2 = new Variable();
- Variable S3 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@" (")))
- {
- foreach (bool l3 in parse(S1, 1200, Term, S2))
- {
- foreach (bool l4 in expect(Atom.a(@")"), S2, S3))
- {
- foreach (bool l5 in exprtl0(S3, Term, Precedence, Answer, S))
- {
- yield return false;
- }
- yield break;
- }
- }
- }
- }
- {
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable _Pos = new Variable();
- Variable S1 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Atom.a(@"{"), _Pos)))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"}"), S1)))
- {
- foreach (bool l4 in read_atom(Atom.a(@"{}"), S1, Precedence, Answer, S))
- {
- yield return false;
- }
- yield break;
- }
- }
- }
- {
- object S1 = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable Pos = new Variable();
- Variable Term = new Variable();
- Variable S2 = new Variable();
- Variable S3 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Atom.a(@"{"), Pos)))
- {
- foreach (bool l3 in parse(S1, 1200, Term, S2))
- {
- foreach (bool l4 in expect(Atom.a(@"}"), S2, S3))
- {
- foreach (bool l5 in exprtl0(S3, new Functor2(@"{}", Pos, Term), Precedence, Answer, S))
- {
- yield return false;
- }
- yield break;
- }
- }
- }
- }
- {
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable Variable_1 = new Variable();
- Variable Name = new Variable();
- Variable Pos = new Variable();
- Variable S1 = new Variable();
- Variable Arg1 = new Variable();
- Variable S2 = new Variable();
- Variable RestArgs = new Variable();
- Variable S3 = new Variable();
- Variable Term = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor3(@"var", Variable_1, Name, Pos)))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"("), S1)))
- {
- foreach (bool l4 in parse(S1, 999, Arg1, S2))
- {
- foreach (bool l5 in read_args(S2, RestArgs, S3))
- {
- foreach (bool l6 in YP.univ(Term, new ListPair(Atom.a(@"call"), new ListPair(new Functor3(@"$VAR", Pos, Name, Variable_1), new ListPair(Arg1, RestArgs)))))
- {
- foreach (bool l7 in exprtl0(S3, Term, Precedence, Answer, S))
- {
- yield return false;
- }
- }
- yield break;
- }
- }
- yield break;
- }
- }
- }
- {
- object S0 = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable Variable_1 = new Variable();
- Variable Name = new Variable();
- Variable Pos = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor3(@"var", Variable_1, Name, Pos)))
- {
- foreach (bool l3 in exprtl0(S0, new Functor3(@"$VAR", Pos, Name, Variable_1), Precedence, Answer, S))
- {
- yield return false;
- }
- }
- }
- {
- object S0 = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable Atom_1 = new Variable();
- Variable P = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor2(@"atom", Atom_1, P)))
- {
- foreach (bool l3 in read_atom(new Functor2(@"/", Atom_1, P), S0, Precedence, Answer, S))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> read_atom(object arg1, object arg2, object Precedence, object Answer, object S)
- {
- {
- Variable _Pos = new Variable();
- Variable Number = new Variable();
- Variable S1 = new Variable();
- Variable Negative = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Atom.a(@"-"), _Pos)))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(new Functor1(@"number", Number), S1)))
- {
- foreach (bool l4 in YP.unify(Negative, YP.negate(Number)))
- {
- foreach (bool l5 in exprtl0(S1, Negative, Precedence, Answer, S))
- {
- yield return false;
- }
- }
- yield break;
- }
- }
- }
- {
- Variable Functor_1 = new Variable();
- Variable Pos = new Variable();
- Variable S1 = new Variable();
- Variable Arg1 = new Variable();
- Variable S2 = new Variable();
- Variable RestArgs = new Variable();
- Variable S3 = new Variable();
- Variable Term = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Functor_1, Pos)))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"("), S1)))
- {
- foreach (bool l4 in parse(S1, 999, Arg1, S2))
- {
- foreach (bool l5 in read_args(S2, RestArgs, S3))
- {
- foreach (bool l6 in YP.univ(Term, new ListPair(Functor_1, new ListPair(Pos, new ListPair(Arg1, RestArgs)))))
- {
- foreach (bool l7 in exprtl0(S3, Term, Precedence, Answer, S))
- {
- yield return false;
- }
- }
- yield break;
- }
- }
- yield break;
- }
- }
- }
- {
- object S0 = arg2;
- Variable Op = new Variable();
- Variable Pos = new Variable();
- Variable Oprec = new Variable();
- Variable Aprec = new Variable();
- Variable Flag = new Variable();
- Variable Term = new Variable();
- Variable Arg = new Variable();
- Variable S1 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Op, Pos)))
- {
- foreach (bool l3 in prefixop(Op, Oprec, Aprec))
- {
- foreach (bool l4 in possible_right_operand(S0, Flag))
- {
- if (YP.lessThan(Flag, 0))
- {
- foreach (bool l6 in YP.univ(Term, new ListPair(Op, new ListPair(Pos, Atom.NIL))))
- {
- foreach (bool l7 in exprtl0(S0, Term, Precedence, Answer, S))
- {
- yield return false;
- }
- }
- goto cutIf1;
- }
- if (YP.greaterThan(Oprec, Precedence))
- {
- foreach (bool l6 in syntax_error(new ListPair(Atom.a(@"prefix"), new ListPair(Atom.a(@"operator"), new ListPair(Op, new ListPair(Atom.a(@"in"), new ListPair(Atom.a(@"context"), new ListPair(Atom.a(@"with"), new ListPair(Atom.a(@"precedence"), new ListPair(Precedence, Atom.NIL)))))))), S0))
- {
- yield return false;
- }
- goto cutIf2;
- }
- if (YP.greaterThan(Flag, 0))
- {
- foreach (bool l6 in parse(S0, Aprec, Arg, S1))
- {
- foreach (bool l7 in YP.univ(Term, new ListPair(Op, new ListPair(Pos, new ListPair(Arg, Atom.NIL)))))
- {
- foreach (bool l8 in exprtl(S1, Oprec, Term, Precedence, Answer, S))
- {
- yield return false;
- }
- }
- yield break;
- }
- goto cutIf3;
- }
- foreach (bool l5 in peepop(S0, S1))
- {
- foreach (bool l6 in prefix_is_atom(S1, Oprec))
- {
- foreach (bool l7 in exprtl(S1, Oprec, new Functor2(@"/", Op, Pos), Precedence, Answer, S))
- {
- yield return false;
- }
- }
- }
- foreach (bool l5 in parse(S0, Aprec, Arg, S1))
- {
- foreach (bool l6 in YP.univ(Term, new ListPair(Op, new ListPair(Pos, new ListPair(Arg, Atom.NIL)))))
- {
- foreach (bool l7 in exprtl(S1, Oprec, Term, Precedence, Answer, S))
- {
- yield return false;
- }
- }
- yield break;
- }
- cutIf3:
- cutIf2:
- cutIf1:
- { }
- }
- yield break;
- }
- }
- }
- {
- object S0 = arg2;
- Variable Atom_1 = new Variable();
- Variable Pos = new Variable();
- Variable Term = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Atom_1, Pos)))
- {
- foreach (bool l3 in YP.univ(Term, new ListPair(Atom_1, new ListPair(Pos, Atom.NIL))))
- {
- foreach (bool l4 in exprtl0(S0, Term, Precedence, Answer, S))
- {
- yield return false;
- }
- }
- }
- }
- }
- public static IEnumerable<bool> cannot_start(object Token, object S0)
- {
- {
- foreach (bool l2 in syntax_error(new ListPair(Token, new ListPair(Atom.a(@"cannot"), new ListPair(Atom.a(@"start"), new ListPair(Atom.a(@"an"), new ListPair(Atom.a(@"expression"), Atom.NIL))))), S0))
- {
- yield return false;
- }
- }
- }
- public static IEnumerable<bool> read_args(object arg1, object arg2, object arg3)
- {
- {
- object S = arg3;
- Variable S1 = new Variable();
- Variable Term = new Variable();
- Variable Rest = new Variable();
- Variable S2 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@","), S1)))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(Term, Rest)))
- {
- foreach (bool l4 in parse(S1, 999, Term, S2))
- {
- foreach (bool l5 in read_args(S2, Rest, S))
- {
- yield return false;
- }
- yield break;
- }
- yield break;
- }
- }
- }
- {
- object S = arg3;
- foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@")"), S)))
- {
- foreach (bool l3 in YP.unify(arg2, Atom.NIL))
- {
- yield return true;
- yield break;
- }
- }
- }
- {
- object S = arg1;
- object x2 = arg2;
- object x3 = arg3;
- foreach (bool l2 in syntax_error(new ListPair(Atom.a(@", or )"), new ListPair(Atom.a(@"expected"), new ListPair(Atom.a(@"in"), new ListPair(Atom.a(@"arguments"), Atom.NIL)))), S))
- {
- yield return false;
- }
- }
- }
- public static IEnumerable<bool> read_list(object arg1, object arg2, object arg3)
- {
- {
- object x1 = arg2;
- object x2 = arg3;
- foreach (bool l2 in YP.unify(arg1, Atom.NIL))
- {
- foreach (bool l3 in syntax_error(new ListPair(Atom.a(@", | or ]"), new ListPair(Atom.a(@"expected"), new ListPair(Atom.a(@"in"), new ListPair(Atom.a(@"list"), Atom.NIL)))), Atom.NIL))
- {
- yield return false;
- }
- }
- }
- {
- object Rest = arg2;
- object S = arg3;
- Variable Token = new Variable();
- Variable S1 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(Token, S1)))
- {
- foreach (bool l3 in read_list4(Token, S1, Rest, S))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> read_list4(object arg1, object arg2, object arg3, object arg4)
- {
- {
- object S1 = arg2;
- object S = arg4;
- Variable Term = new Variable();
- Variable Rest = new Variable();
- Variable S2 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(Term, Rest)))
- {
- foreach (bool l4 in parse(S1, 999, Term, S2))
- {
- foreach (bool l5 in read_list(S2, Rest, S))
- {
- yield return false;
- }
- yield break;
- }
- yield break;
- }
- }
- }
- {
- object S1 = arg2;
- object Rest = arg3;
- object S = arg4;
- Variable S2 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))
- {
- foreach (bool l3 in parse(S1, 999, Rest, S2))
- {
- foreach (bool l4 in expect(Atom.a(@"]"), S2, S))
- {
- yield return false;
- }
- yield break;
- }
- yield break;
- }
- }
- {
- Variable S1 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))
- {
- foreach (bool l3 in YP.unify(arg2, S1))
- {
- foreach (bool l4 in YP.unify(arg3, Atom.NIL))
- {
- foreach (bool l5 in YP.unify(arg4, S1))
- {
- yield return true;
- yield break;
- }
- }
- }
- }
- }
- {
- object Token = arg1;
- object S1 = arg2;
- object x3 = arg3;
- object x4 = arg4;
- foreach (bool l2 in syntax_error(new ListPair(Atom.a(@", | or ]"), new ListPair(Atom.a(@"expected"), new ListPair(Atom.a(@"in"), new ListPair(Atom.a(@"list"), Atom.NIL)))), new ListPair(Token, S1)))
- {
- yield return false;
- }
- }
- }
- public static IEnumerable<bool> possible_right_operand(object arg1, object arg2)
- {
- {
- foreach (bool l2 in YP.unify(arg1, Atom.NIL))
- {
- foreach (bool l3 in YP.unify(arg2, -1))
- {
- yield return false;
- }
- }
- }
- {
- object Flag = arg2;
- Variable H = new Variable();
- Variable T = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(H, T)))
- {
- foreach (bool l3 in possible_right_operand3(H, Flag, T))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> possible_right_operand3(object arg1, object arg2, object arg3)
- {
- {
- object x4 = arg3;
- Variable x1 = new Variable();
- Variable x2 = new Variable();
- Variable x3 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor3(@"var", x1, x2, x3)))
- {
- foreach (bool l3 in YP.unify(arg2, 1))
- {
- yield return false;
- }
- }
- }
- {
- object x2 = arg3;
- Variable x1 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor1(@"number", x1)))
- {
- foreach (bool l3 in YP.unify(arg2, 1))
- {
- yield return false;
- }
- }
- }
- {
- object x2 = arg3;
- Variable x1 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor1(@"string", x1)))
- {
- foreach (bool l3 in YP.unify(arg2, 1))
- {
- yield return false;
- }
- }
- }
- {
- object x1 = arg3;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@" (")))
- {
- foreach (bool l3 in YP.unify(arg2, 1))
- {
- yield return false;
- }
- }
- }
- {
- object x1 = arg3;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"(")))
- {
- foreach (bool l3 in YP.unify(arg2, 0))
- {
- yield return false;
- }
- }
- }
- {
- object x1 = arg3;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@")")))
- {
- foreach (bool l3 in YP.unify(arg2, -1))
- {
- yield return false;
- }
- }
- }
- {
- Variable x1 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))
- {
- foreach (bool l3 in YP.unify(arg2, 0))
- {
- foreach (bool l4 in YP.unify(arg3, new ListPair(Atom.a(@"]"), x1)))
- {
- yield return true;
- yield break;
- }
- }
- }
- }
- {
- object x1 = arg3;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))
- {
- foreach (bool l3 in YP.unify(arg2, 1))
- {
- yield return false;
- }
- }
- }
- {
- object x1 = arg3;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))
- {
- foreach (bool l3 in YP.unify(arg2, -1))
- {
- yield return false;
- }
- }
- }
- {
- Variable x1 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"{")))
- {
- foreach (bool l3 in YP.unify(arg2, 0))
- {
- foreach (bool l4 in YP.unify(arg3, new ListPair(Atom.a(@"}"), x1)))
- {
- yield return true;
- yield break;
- }
- }
- }
- }
- {
- object x1 = arg3;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"{")))
- {
- foreach (bool l3 in YP.unify(arg2, 1))
- {
- yield return false;
- }
- }
- }
- {
- object x1 = arg3;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"}")))
- {
- foreach (bool l3 in YP.unify(arg2, -1))
- {
- yield return false;
- }
- }
- }
- {
- object x1 = arg3;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))
- {
- foreach (bool l3 in YP.unify(arg2, -1))
- {
- yield return false;
- }
- }
- }
- {
- object x1 = arg3;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))
- {
- foreach (bool l3 in YP.unify(arg2, -1))
- {
- yield return false;
- }
- }
- }
- {
- object x3 = arg3;
- Variable x1 = new Variable();
- Variable x2 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor2(@"atom", x1, x2)))
- {
- foreach (bool l3 in YP.unify(arg2, 0))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> peepop(object arg1, object arg2)
- {
- {
- Variable F = new Variable();
- Variable Pos = new Variable();
- Variable S1 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", F, Pos), new ListPair(Atom.a(@"("), S1))))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(new Functor2(@"atom", F, Pos), new ListPair(Atom.a(@"("), S1))))
- {
- yield return true;
- yield break;
- }
- }
- }
- {
- Variable F = new Variable();
- Variable Pos = new Variable();
- Variable S1 = new Variable();
- Variable L = new Variable();
- Variable P = new Variable();
- Variable R = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", F, Pos), S1)))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { new Functor2(@"/", F, Pos), L, P, R }), S1)))
- {
- foreach (bool l4 in infixop(F, L, P, R))
- {
- yield return false;
- }
- }
- }
- }
- {
- Variable F = new Variable();
- Variable Pos = new Variable();
- Variable S1 = new Variable();
- Variable L = new Variable();
- Variable P = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", F, Pos), S1)))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L, P), S1)))
- {
- foreach (bool l4 in postfixop(F, L, P))
- {
- yield return false;
- }
- }
- }
- }
- {
- Variable S0 = new Variable();
- foreach (bool l2 in YP.unify(arg1, S0))
- {
- foreach (bool l3 in YP.unify(arg2, S0))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> prefix_is_atom(object arg1, object arg2)
- {
- {
- object Precedence = arg2;
- Variable Token = new Variable();
- Variable x2 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(Token, x2)))
- {
- foreach (bool l3 in prefix_is_atom(Token, Precedence))
- {
- yield return false;
- }
- }
- }
- {
- object P = arg2;
- Variable x1 = new Variable();
- Variable L = new Variable();
- Variable x3 = new Variable();
- Variable x4 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { x1, L, x3, x4 })))
- {
- if (YP.greaterThanOrEqual(L, P))
- {
- yield return false;
- }
- }
- }
- {
- object P = arg2;
- Variable x1 = new Variable();
- Variable L = new Variable();
- Variable x3 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor3(Atom.a(@"postfixop", Atom.a(@"")), x1, L, x3)))
- {
- if (YP.greaterThanOrEqual(L, P))
- {
- yield return false;
- }
- }
- }
- {
- object x1 = arg2;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@")")))
- {
- yield return false;
- }
- }
- {
- object x1 = arg2;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))
- {
- yield return false;
- }
- }
- {
- object x1 = arg2;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"}")))
- {
- yield return false;
- }
- }
- {
- object P = arg2;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))
- {
- if (YP.greaterThanOrEqual(1100, P))
- {
- yield return false;
- }
- }
- }
- {
- object P = arg2;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))
- {
- if (YP.greaterThanOrEqual(1000, P))
- {
- yield return false;
- }
- }
- }
- {
- object x1 = arg2;
- foreach (bool l2 in YP.unify(arg1, Atom.NIL))
- {
- yield return false;
- }
- }
- }
- public static IEnumerable<bool> exprtl0(object arg1, object arg2, object arg3, object arg4, object arg5)
- {
- {
- object x2 = arg3;
- Variable Term = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.NIL))
- {
- foreach (bool l3 in YP.unify(arg2, Term))
- {
- foreach (bool l4 in YP.unify(arg4, Term))
- {
- foreach (bool l5 in YP.unify(arg5, Atom.NIL))
- {
- yield return false;
- }
- }
- }
- }
- }
- {
- object Term = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable Token = new Variable();
- Variable S1 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(Token, S1)))
- {
- foreach (bool l3 in exprtl0_6(Token, Term, Precedence, Answer, S, S1))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> exprtl0_6(object arg1, object arg2, object arg3, object arg4, object arg5, object arg6)
- {
- {
- object x2 = arg3;
- object S1 = arg6;
- Variable Term = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"}")))
- {
- foreach (bool l3 in YP.unify(arg2, Term))
- {
- foreach (bool l4 in YP.unify(arg4, Term))
- {
- foreach (bool l5 in YP.unify(arg5, new ListPair(Atom.a(@"}"), S1)))
- {
- yield return false;
- }
- }
- }
- }
- }
- {
- object x2 = arg3;
- object S1 = arg6;
- Variable Term = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))
- {
- foreach (bool l3 in YP.unify(arg2, Term))
- {
- foreach (bool l4 in YP.unify(arg4, Term))
- {
- foreach (bool l5 in YP.unify(arg5, new ListPair(Atom.a(@"]"), S1)))
- {
- yield return false;
- }
- }
- }
- }
- }
- {
- object x2 = arg3;
- object S1 = arg6;
- Variable Term = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@")")))
- {
- foreach (bool l3 in YP.unify(arg2, Term))
- {
- foreach (bool l4 in YP.unify(arg4, Term))
- {
- foreach (bool l5 in YP.unify(arg5, new ListPair(Atom.a(@")"), S1)))
- {
- yield return false;
- }
- }
- }
- }
- }
- {
- object Term = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- object S1 = arg6;
- Variable Next = new Variable();
- Variable S2 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))
- {
- if (YP.greaterThanOrEqual(Precedence, 1000))
- {
- foreach (bool l4 in parse(S1, 1000, Next, S2))
- {
- foreach (bool l5 in exprtl(S2, 1000, new Functor2(@",", Term, Next), Precedence, Answer, S))
- {
- yield return false;
- }
- yield break;
- }
- goto cutIf1;
- }
- foreach (bool l3 in YP.unify(Answer, Term))
- {
- foreach (bool l4 in YP.unify(S, new ListPair(Atom.a(@","), S1)))
- {
- yield return false;
- }
- }
- cutIf1:
- { }
- }
- }
- {
- object Term = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- object S1 = arg6;
- Variable Next = new Variable();
- Variable S2 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))
- {
- if (YP.greaterThanOrEqual(Precedence, 1100))
- {
- foreach (bool l4 in parse(S1, 1100, Next, S2))
- {
- foreach (bool l5 in exprtl(S2, 1100, new Functor2(@";", Term, Next), Precedence, Answer, S))
- {
- yield return false;
- }
- yield break;
- }
- goto cutIf2;
- }
- foreach (bool l3 in YP.unify(Answer, Term))
- {
- foreach (bool l4 in YP.unify(S, new ListPair(Atom.a(@"|"), S1)))
- {
- yield return false;
- }
- }
- cutIf2:
- { }
- }
- }
- {
- object x2 = arg2;
- object x3 = arg3;
- object x4 = arg4;
- object x5 = arg5;
- object S1 = arg6;
- Variable S = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor1(@"string", S)))
- {
- foreach (bool l3 in cannot_follow(Atom.a(@"chars"), new Functor1(@"string", S), S1))
- {
- yield return false;
- }
- }
- }
- {
- object x2 = arg2;
- object x3 = arg3;
- object x4 = arg4;
- object x5 = arg5;
- object S1 = arg6;
- Variable N = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor1(@"number", N)))
- {
- foreach (bool l3 in cannot_follow(Atom.a(@"number"), new Functor1(@"number", N), S1))
- {
- yield return false;
- }
- }
- }
- {
- object Term = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable S1 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"{")))
- {
- foreach (bool l3 in YP.unify(arg6, new ListPair(Atom.a(@"}"), S1)))
- {
- foreach (bool l4 in exprtl0_atom(Atom.a(@"{}"), Term, Precedence, Answer, S, S1))
- {
- yield return false;
- }
- yield break;
- }
- }
- }
- {
- object x1 = arg2;
- object x2 = arg3;
- object x3 = arg4;
- object x4 = arg5;
- object S1 = arg6;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"{")))
- {
- foreach (bool l3 in cannot_follow(Atom.a(@"brace"), Atom.a(@"{"), S1))
- {
- yield return false;
- }
- }
- }
- {
- object Term = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable S1 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))
- {
- foreach (bool l3 in YP.unify(arg6, new ListPair(Atom.a(@"]"), S1)))
- {
- foreach (bool l4 in exprtl0_atom(Atom.NIL, Term, Precedence, Answer, S, S1))
- {
- yield return false;
- }
- yield break;
- }
- }
- }
- {
- object x1 = arg2;
- object x2 = arg3;
- object x3 = arg4;
- object x4 = arg5;
- object S1 = arg6;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))
- {
- foreach (bool l3 in cannot_follow(Atom.a(@"bracket"), Atom.a(@"["), S1))
- {
- yield return false;
- }
- }
- }
- {
- object x1 = arg2;
- object x2 = arg3;
- object x3 = arg4;
- object x4 = arg5;
- object S1 = arg6;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"(")))
- {
- foreach (bool l3 in cannot_follow(Atom.a(@"parenthesis"), Atom.a(@"("), S1))
- {
- yield return false;
- }
- }
- }
- {
- object x1 = arg2;
- object x2 = arg3;
- object x3 = arg4;
- object x4 = arg5;
- object S1 = arg6;
- foreach (bool l2 in YP.unify(arg1, Atom.a(@" (")))
- {
- foreach (bool l3 in cannot_follow(Atom.a(@"parenthesis"), Atom.a(@"("), S1))
- {
- yield return false;
- }
- }
- }
- {
- object x4 = arg2;
- object x5 = arg3;
- object x6 = arg4;
- object x7 = arg5;
- object S1 = arg6;
- Variable A = new Variable();
- Variable B = new Variable();
- Variable P = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor3(@"var", A, B, P)))
- {
- foreach (bool l3 in cannot_follow(Atom.a(@"variable"), new Functor3(@"var", A, B, P), S1))
- {
- yield return false;
- }
- }
- }
- {
- object Term = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- object S1 = arg6;
- Variable F = new Variable();
- Variable P = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor2(@"atom", F, P)))
- {
- foreach (bool l3 in exprtl0_atom(new Functor2(@"/", F, P), Term, Precedence, Answer, S, S1))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> exprtl0_atom(object arg1, object arg2, object arg3, object arg4, object arg5, object S1)
- {
- {
- object Term = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable F = new Variable();
- Variable Pos = new Variable();
- Variable L1 = new Variable();
- Variable O1 = new Variable();
- Variable R1 = new Variable();
- Variable L2 = new Variable();
- Variable O2 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", F, Pos)))
- {
- foreach (bool l3 in ambigop(F, Precedence, L1, O1, R1, L2, O2))
- {
- foreach (bool l4 in prefix_is_atom(S1, Precedence))
- {
- foreach (bool l5 in exprtl(new ListPair(new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L2, O2), S1), 0, Term, Precedence, Answer, S))
- {
- yield return false;
- }
- yield break;
- }
- foreach (bool l4 in exprtl(new ListPair(new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { new Functor2(@"/", F, Pos), L1, O1, R1 }), S1), 0, Term, Precedence, Answer, S))
- {
- yield return false;
- }
- foreach (bool l4 in exprtl(new ListPair(new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L2, O2), S1), 0, Term, Precedence, Answer, S))
- {
- yield return false;
- }
- yield break;
- }
- }
- }
- {
- object Term = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable F = new Variable();
- Variable Pos = new Variable();
- Variable L1 = new Variable();
- Variable O1 = new Variable();
- Variable R1 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", F, Pos)))
- {
- foreach (bool l3 in infixop(F, L1, O1, R1))
- {
- foreach (bool l4 in exprtl(new ListPair(new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { new Functor2(@"/", F, Pos), L1, O1, R1 }), S1), 0, Term, Precedence, Answer, S))
- {
- yield return false;
- }
- yield break;
- }
- }
- }
- {
- object Term = arg2;
- object Precedence = arg3;
- object Answer = arg4;
- object S = arg5;
- Variable F = new Variable();
- Variable Pos = new Variable();
- Variable L2 = new Variable();
- Variable O2 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", F, Pos)))
- {
- foreach (bool l3 in postfixop(F, L2, O2))
- {
- foreach (bool l4 in exprtl(new ListPair(new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L2, O2), S1), 0, Term, Precedence, Answer, S))
- {
- yield return false;
- }
- yield break;
- }
- }
- }
- {
- object X = arg1;
- object x2 = arg2;
- object x3 = arg3;
- object x4 = arg4;
- object x5 = arg5;
- Variable x7 = new Variable();
- foreach (bool l2 in syntax_error(new ListPair(new Functor2(@"-", Atom.a(@"non"), Atom.a(@"operator")), new ListPair(X, new ListPair(Atom.a(@"follows"), new ListPair(Atom.a(@"expression"), Atom.NIL)))), new ListPair(new Functor2(@"atom", X, x7), S1)))
- {
- yield return false;
- }
- yield break;
- }
- }
- public static IEnumerable<bool> cannot_follow(object Type, object Token, object Tokens)
- {
- {
- foreach (bool l2 in syntax_error(new ListPair(Type, new ListPair(Atom.a(@"follows"), new ListPair(Atom.a(@"expression"), Atom.NIL))), new ListPair(Token, Tokens)))
- {
- yield return false;
- }
- }
- }
- public static IEnumerable<bool> exprtl(object arg1, object arg2, object arg3, object arg4, object arg5, object arg6)
- {
- {
- object x1 = arg2;
- object x3 = arg4;
- Variable Term = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.NIL))
- {
- foreach (bool l3 in YP.unify(arg3, Term))
- {
- foreach (bool l4 in YP.unify(arg5, Term))
- {
- foreach (bool l5 in YP.unify(arg6, Atom.NIL))
- {
- yield return false;
- }
- }
- }
- }
- }
- {
- object C = arg2;
- object Term = arg3;
- object Precedence = arg4;
- object Answer = arg5;
- object S = arg6;
- Variable Token = new Variable();
- Variable Tokens = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(Token, Tokens)))
- {
- foreach (bool l3 in exprtl_7(Token, C, Term, Precedence, Answer, S, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> exprtl_7(object arg1, object arg2, object arg3, object arg4, object arg5, object arg6, object arg7)
- {
- {
- object C = arg2;
- object Term = arg3;
- object Precedence = arg4;
- object Answer = arg5;
- object S = arg6;
- object S1 = arg7;
- Variable F = new Variable();
- Variable Pos = new Variable();
- Variable L = new Variable();
- Variable O = new Variable();
- Variable R = new Variable();
- Variable Other = new Variable();
- Variable S2 = new Variable();
- Variable Expr = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { new Functor2(@"/", F, Pos), L, O, R })))
- {
- if (YP.greaterThanOrEqual(Precedence, O))
- {
- if (YP.lessThanOrEqual(C, L))
- {
- foreach (bool l5 in parse(S1, R, Other, S2))
- {
- foreach (bool l6 in YP.univ(Expr, new ListPair(F, new ListPair(Pos, new ListPair(Term, new ListPair(Other, Atom.NIL))))))
- {
- foreach (bool l7 in exprtl(S2, O, Expr, Precedence, Answer, S))
- {
- yield return false;
- }
- }
- }
- yield break;
- }
- }
- }
- }
- {
- object C = arg2;
- object Term = arg3;
- object Precedence = arg4;
- object Answer = arg5;
- object S = arg6;
- object S1 = arg7;
- Variable F = new Variable();
- Variable Pos = new Variable();
- Variable L = new Variable();
- Variable O = new Variable();
- Variable Expr = new Variable();
- Variable S2 = new Variable();
- foreach (bool l2 in YP.unify(arg1, new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L, O)))
- {
- if (YP.greaterThanOrEqual(Precedence, O))
- {
- if (YP.lessThanOrEqual(C, L))
- {
- foreach (bool l5 in YP.univ(Expr, new ListPair(F, new ListPair(Pos, new ListPair(Term, Atom.NIL)))))
- {
- foreach (bool l6 in peepop(S1, S2))
- {
- foreach (bool l7 in exprtl(S2, O, Expr, Precedence, Answer, S))
- {
- yield return false;
- }
- }
- }
- yield break;
- }
- }
- }
- }
- {
- object C = arg2;
- object Term = arg3;
- object Precedence = arg4;
- object Answer = arg5;
- object S = arg6;
- object S1 = arg7;
- Variable Next = new Variable();
- Variable S2 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))
- {
- if (YP.greaterThanOrEqual(Precedence, 1000))
- {
- if (YP.lessThan(C, 1000))
- {
- foreach (bool l5 in parse(S1, 1000, Next, S2))
- {
- foreach (bool l6 in exprtl(S2, 1000, new Functor2(@",", Term, Next), Precedence, Answer, S))
- {
- yield return false;
- }
- }
- yield break;
- }
- }
- }
- }
- {
- object C = arg2;
- object Term = arg3;
- object Precedence = arg4;
- object Answer = arg5;
- object S = arg6;
- object S1 = arg7;
- Variable Next = new Variable();
- Variable S2 = new Variable();
- foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))
- {
- if (YP.greaterThanOrEqual(Precedence, 1100))
- {
- if (YP.lessThan(C, 1100))
- {
- foreach (bool l5 in parse(S1, 1100, Next, S2))
- {
- foreach (bool l6 in exprtl(S2, 1100, new Functor2(@";", Term, Next), Precedence, Answer, S))
- {
- yield return false;
- }
- }
- yield break;
- }
- }
- }
- }
- {
- object Token = arg1;
- object x2 = arg2;
- object x4 = arg4;
- object Tokens = arg7;
- Variable Term = new Variable();
- foreach (bool l2 in YP.unify(arg3, Term))
- {
- foreach (bool l3 in YP.unify(arg5, Term))
- {
- foreach (bool l4 in YP.unify(arg6, new ListPair(Token, Tokens)))
- {
- yield return false;
- }
- }
- }
- }
- }
- public static IEnumerable<bool> syntax_error(object _Message, object _List)
- {
- {
- yield break;
- }
- }
- public static IEnumerable<bool> syntax_error(object _List)
- {
- {
- yield break;
- }
- }
- public static IEnumerable<bool> prefixop(object F, object O, object Q)
- {
- {
- foreach (bool l2 in YP.current_op(O, Atom.a(@"fx"), F))
- {
- foreach (bool l3 in YP.unify(Q, YP.subtract(O, 1)))
- {
- yield return false;
- }
- goto cutIf1;
- }
- foreach (bool l2 in YP.current_op(O, Atom.a(@"fy"), F))
- {
- foreach (bool l3 in YP.unify(Q, O))
- {
- yield return false;
- }
- goto cutIf2;
- }
- cutIf2:
- cutIf1:
- { }
- }
- }
- public static IEnumerable<bool> postfixop(object F, object P, object O)
- {
- {
- foreach (bool l2 in YP.current_op(O, Atom.a(@"xf"), F))
- {
- foreach (bool l3 in YP.unify(P, YP.subtract(O, 1)))
- {
- yield return false;
- }
- goto cutIf1;
- }
- foreach (bool l2 in YP.current_op(O, Atom.a(@"yf"), F))
- {
- foreach (bool l3 in YP.unify(P, O))
- {
- yield return false;
- }
- goto cutIf2;
- }
- cutIf2:
- cutIf1:
- { }
- }
- }
- public static IEnumerable<bool> infixop(object F, object P, object O, object Q)
- {
- {
- foreach (bool l2 in YP.current_op(O, Atom.a(@"xfy"), F))
- {
- foreach (bool l3 in YP.unify(P, YP.subtract(O, 1)))
- {
- foreach (bool l4 in YP.unify(Q, O))
- {
- yield return false;
- }
- }
- goto cutIf1;
- }
- foreach (bool l2 in YP.current_op(O, Atom.a(@"xfx"), F))
- {
- foreach (bool l3 in YP.unify(P, YP.subtract(O, 1)))
- {
- foreach (bool l4 in YP.unify(Q, P))
- {
- yield return false;
- }
- }
- goto cutIf2;
- }
- foreach (bool l2 in YP.current_op(O, Atom.a(@"yfx"), F))
- {
- foreach (bool l3 in YP.unify(Q, YP.subtract(O, 1)))
- {
- foreach (bool l4 in YP.unify(P, O))
- {
- yield return false;
- }
- }
- goto cutIf3;
- }
- cutIf3:
- cutIf2:
- cutIf1:
- { }
- }
- }
- public static IEnumerable<bool> ambigop(object F, object Precedence, object L1, object O1, object R1, object L2, object O2)
- {
- {
- foreach (bool l2 in postfixop(F, L2, O2))
- {
- if (YP.lessThanOrEqual(O2, Precedence))
- {
- foreach (bool l4 in infixop(F, L1, O1, R1))
- {
- if (YP.lessThanOrEqual(O1, Precedence))
- {
- yield return false;
- }
- }
- }
- }
- }
- }
- public static IEnumerable<bool> read_tokens1(object arg1)
- {
- {
- object TokenList = arg1;
- Variable C1 = new Variable();
- Variable _X = new Variable();
- Variable ListOfTokens = new Variable();
- foreach (bool l2 in YP.get_code(C1))
- {
- foreach (bool l3 in read_tokens(C1, _X, ListOfTokens))
- {
- foreach (bool l4 in YP.unify(TokenList, ListOfTokens))
- {
- yield return false;
- }
- yield break;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", Atom.a(@"end_of_file"), 0), Atom.NIL)))
- {
- yield return false;
- }
- }
- }
- public static IEnumerable<bool> read_tokens2(object arg1, object arg2)
- {
- {
- object TokenList = arg1;
- object Dictionary = arg2;
- Variable C1 = new Variable();
- Variable Dict = new Variable();
- Variable ListOfTokens = new Variable();
- foreach (bool l2 in YP.get_code(C1))
- {
- foreach (bool l3 in read_tokens(C1, Dict, ListOfTokens))
- {
- foreach (bool l4 in terminate_list(Dict))
- {
- foreach (bool l5 in YP.unify(Dictionary, Dict))
- {
- foreach (bool l6 in YP.unify(TokenList, ListOfTokens))
- {
- yield return false;
- }
- }
- yield break;
- }
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", Atom.a(@"end_of_file"), 0), Atom.NIL)))
- {
- foreach (bool l3 in YP.unify(arg2, Atom.NIL))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> terminate_list(object arg1)
- {
- {
- foreach (bool l2 in YP.unify(arg1, Atom.NIL))
- {
- yield return false;
- }
- }
- {
- Variable x1 = new Variable();
- Variable Tail = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(x1, Tail)))
- {
- foreach (bool l3 in terminate_list(Tail))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> read_special(object arg1, object Dict, object arg3)
- {
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 95))
- {
- foreach (bool l3 in read_variable(95, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 247))
- {
- foreach (bool l3 in read_symbol(247, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 215))
- {
- foreach (bool l3 in read_symbol(215, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- Variable StartPos = new Variable();
- Variable EndPos = new Variable();
- Variable Tokens = new Variable();
- Variable Ch = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 37))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"comment", StartPos, EndPos), Tokens)))
- {
- foreach (bool l4 in get_current_position(StartPos))
- {
- foreach (bool l5 in YP.repeat())
- {
- foreach (bool l6 in YP.get_code(Ch))
- {
- if (YP.lessThan(Ch, new ListPair(32, Atom.NIL)))
- {
- if (YP.notEqual(Ch, 9))
- {
- if (YP.termNotEqual(Ch, -1))
- {
- foreach (bool l10 in get_current_position(EndPos))
- {
- foreach (bool l11 in YP.get_code(NextCh))
- {
- foreach (bool l12 in read_tokens(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- yield break;
- }
- }
- }
- }
- }
- }
- }
- }
- {
- object T = arg3;
- Variable C2 = new Variable();
- Variable StartPos = new Variable();
- Variable EndPos = new Variable();
- Variable Tokens = new Variable();
- Variable StartPos1 = new Variable();
- Variable NextCh = new Variable();
- Variable Chars = new Variable();
- foreach (bool l2 in YP.unify(arg1, 47))
- {
- foreach (bool l3 in YP.get_code(C2))
- {
- if (YP.equal(C2, new ListPair(42, Atom.NIL)))
- {
- foreach (bool l5 in YP.unify(T, new ListPair(new Functor2(@"comment", StartPos, EndPos), Tokens)))
- {
- foreach (bool l6 in get_current_position(StartPos1))
- {
- foreach (bool l7 in YP.unify(StartPos, YP.subtract(StartPos1, 1)))
- {
- foreach (bool l8 in read_solidus(32, NextCh))
- {
- foreach (bool l9 in get_current_position(EndPos))
- {
- foreach (bool l10 in read_tokens(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- }
- }
- goto cutIf1;
- }
- foreach (bool l4 in YP.unify(T, Tokens))
- {
- foreach (bool l5 in rest_symbol(C2, Chars, NextCh))
- {
- foreach (bool l6 in read_after_atom4(NextCh, Dict, Tokens, new ListPair(47, Chars)))
- {
- yield return false;
- }
- }
- }
- cutIf1:
- { }
- }
- }
- }
- {
- Variable Pos = new Variable();
- Variable Tokens = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 33))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"atom", Atom.a(@"!"), Pos), Tokens)))
- {
- foreach (bool l4 in get_current_position(Pos))
- {
- foreach (bool l5 in YP.get_code(NextCh))
- {
- foreach (bool l6 in read_after_atom(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- }
- }
- {
- Variable Tokens = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 40))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@" ("), Tokens)))
- {
- foreach (bool l4 in YP.get_code(NextCh))
- {
- foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- }
- {
- Variable Tokens = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 41))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@")"), Tokens)))
- {
- foreach (bool l4 in YP.get_code(NextCh))
- {
- foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- }
- {
- Variable Tokens = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 44))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@","), Tokens)))
- {
- foreach (bool l4 in YP.get_code(NextCh))
- {
- foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- }
- {
- Variable Pos = new Variable();
- Variable Tokens = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 59))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"atom", Atom.a(@";"), Pos), Tokens)))
- {
- foreach (bool l4 in get_current_position(Pos))
- {
- foreach (bool l5 in YP.get_code(NextCh))
- {
- foreach (bool l6 in read_after_atom(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- }
- }
- {
- Variable Pos = new Variable();
- Variable Tokens = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 91))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"/", Atom.a(@"["), Pos), Tokens)))
- {
- foreach (bool l4 in get_current_position(Pos))
- {
- foreach (bool l5 in YP.get_code(NextCh))
- {
- foreach (bool l6 in read_tokens(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- }
- }
- {
- Variable Pos = new Variable();
- Variable Tokens = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 93))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"/", Atom.a(@"]"), Pos), Tokens)))
- {
- foreach (bool l4 in get_current_position(Pos))
- {
- foreach (bool l5 in YP.get_code(NextCh))
- {
- foreach (bool l6 in read_after_atom(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- }
- }
- {
- Variable Pos = new Variable();
- Variable Tokens = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 123))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"/", Atom.a(@"{"), Pos), Tokens)))
- {
- foreach (bool l4 in get_current_position(Pos))
- {
- foreach (bool l5 in YP.get_code(NextCh))
- {
- foreach (bool l6 in read_tokens(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- }
- }
- {
- Variable Tokens = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 124))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"|"), Tokens)))
- {
- foreach (bool l4 in YP.get_code(NextCh))
- {
- foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- }
- {
- Variable Tokens = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 125))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"}"), Tokens)))
- {
- foreach (bool l4 in YP.get_code(NextCh))
- {
- foreach (bool l5 in read_after_atom(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- }
- {
- object Tokens = arg3;
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 46))
- {
- foreach (bool l3 in YP.get_code(NextCh))
- {
- foreach (bool l4 in read_fullstop(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- {
- Variable Chars = new Variable();
- Variable Tokens = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 34))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor1(@"string", Chars), Tokens)))
- {
- foreach (bool l4 in read_string(Chars, 34, NextCh))
- {
- foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- }
- {
- object Tokens = arg3;
- Variable Chars = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 39))
- {
- foreach (bool l3 in read_string(Chars, 39, NextCh))
- {
- foreach (bool l4 in read_after_atom4(NextCh, Dict, Tokens, Chars))
- {
- yield return false;
- }
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 35))
- {
- foreach (bool l3 in read_symbol(35, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 36))
- {
- foreach (bool l3 in read_symbol(36, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 38))
- {
- foreach (bool l3 in read_symbol(38, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 42))
- {
- foreach (bool l3 in read_symbol(42, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 43))
- {
- foreach (bool l3 in read_symbol(43, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 45))
- {
- foreach (bool l3 in read_symbol(45, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 58))
- {
- foreach (bool l3 in read_symbol(58, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 60))
- {
- foreach (bool l3 in read_symbol(60, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 61))
- {
- foreach (bool l3 in read_symbol(61, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 62))
- {
- foreach (bool l3 in read_symbol(62, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 63))
- {
- foreach (bool l3 in read_symbol(63, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 64))
- {
- foreach (bool l3 in read_symbol(64, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 92))
- {
- foreach (bool l3 in read_symbol(92, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 94))
- {
- foreach (bool l3 in read_symbol(94, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 96))
- {
- foreach (bool l3 in read_symbol(96, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- {
- object Tokens = arg3;
- foreach (bool l2 in YP.unify(arg1, 126))
- {
- foreach (bool l3 in read_symbol(126, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> read_symbol(object C1, object Dict, object Tokens)
- {
- {
- Variable C2 = new Variable();
- Variable Chars = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.get_code(C2))
- {
- foreach (bool l3 in rest_symbol(C2, Chars, NextCh))
- {
- foreach (bool l4 in read_after_atom4(NextCh, Dict, Tokens, new ListPair(C1, Chars)))
- {
- yield return false;
- }
- }
- }
- }
- }
- public static IEnumerable<bool> rest_symbol(object arg1, object arg2, object arg3)
- {
- {
- object C2 = arg1;
- object LastCh = arg3;
- Variable Chars = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg2, new ListPair(C2, Chars)))
- {
- if (YP.greaterThan(C2, 160))
- {
- if (YP.lessThan(C2, 192))
- {
- if (YP.notEqual(C2, 186))
- {
- if (YP.notEqual(C2, 170))
- {
- foreach (bool l7 in YP.get_code(NextCh))
- {
- foreach (bool l8 in rest_symbol(NextCh, Chars, LastCh))
- {
- yield return false;
- }
- }
- yield break;
- }
- }
- }
- goto cutIf1;
- }
- foreach (bool l3 in symbol_char(C2))
- {
- foreach (bool l4 in YP.get_code(NextCh))
- {
- foreach (bool l5 in rest_symbol(NextCh, Chars, LastCh))
- {
- yield return false;
- }
- }
- yield break;
- }
- cutIf1:
- { }
- }
- }
- {
- Variable C2 = new Variable();
- foreach (bool l2 in YP.unify(arg1, C2))
- {
- foreach (bool l3 in YP.unify(arg2, Atom.NIL))
- {
- foreach (bool l4 in YP.unify(arg3, C2))
- {
- yield return false;
- }
- }
- }
- }
- }
- public static IEnumerable<bool> symbol_char(object arg1)
- {
- {
- foreach (bool l2 in YP.unify(arg1, 35))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 36))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 38))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 42))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 43))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 45))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 46))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 47))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 58))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 60))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 61))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 62))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 63))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 64))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 92))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 94))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 96))
- {
- yield return false;
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 126))
- {
- yield return false;
- }
- }
- }
- public static IEnumerable<bool> get_current_position(object Pos)
- {
- {
- foreach (bool l2 in YP.unify(Pos, 0))
- {
- yield return false;
- }
- }
- }
- public static IEnumerable<bool> read_after_atom4(object Ch, object Dict, object arg3, object Chars)
- {
- {
- Variable Atom_1 = new Variable();
- Variable Pos = new Variable();
- Variable Tokens = new Variable();
- foreach (bool l2 in YP.unify(arg3, new ListPair(new Functor2(@"atom", Atom_1, Pos), Tokens)))
- {
- foreach (bool l3 in YP.unify(Pos, 0))
- {
- foreach (bool l4 in YP.atom_codes(Atom_1, Chars))
- {
- foreach (bool l5 in read_after_atom(Ch, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- }
- }
- public static IEnumerable<bool> read_after_atom(object arg1, object Dict, object arg3)
- {
- {
- Variable Tokens = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, 40))
- {
- foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"("), Tokens)))
- {
- foreach (bool l4 in YP.get_code(NextCh))
- {
- foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- yield break;
- }
- }
- }
- {
- object Ch = arg1;
- object Tokens = arg3;
- foreach (bool l2 in read_tokens(Ch, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- public static IEnumerable<bool> read_string(object Chars, object Quote, object NextCh)
- {
- {
- Variable Ch = new Variable();
- Variable Char = new Variable();
- Variable Next = new Variable();
- foreach (bool l2 in YP.get_code(Ch))
- {
- foreach (bool l3 in read_char(Ch, Quote, Char, Next))
- {
- foreach (bool l4 in rest_string5(Char, Next, Chars, Quote, NextCh))
- {
- yield return false;
- }
- }
- }
- }
- }
- public static IEnumerable<bool> rest_string5(object arg1, object arg2, object arg3, object arg4, object arg5)
- {
- {
- object _X = arg4;
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg1, -1))
- {
- foreach (bool l3 in YP.unify(arg2, NextCh))
- {
- foreach (bool l4 in YP.unify(arg3, Atom.NIL))
- {
- foreach (bool l5 in YP.unify(arg5, NextCh))
- {
- yield return true;
- yield break;
- }
- }
- }
- }
- }
- {
- object Char = arg1;
- object Next = arg2;
- object Quote = arg4;
- object NextCh = arg5;
- Variable Chars = new Variable();
- Variable Char2 = new Variable();
- Variable Next2 = new Variable();
- foreach (bool l2 in YP.unify(arg3, new ListPair(Char, Chars)))
- {
- foreach (bool l3 in read_char(Next, Quote, Char2, Next2))
- {
- foreach (bool l4 in rest_string5(Char2, Next2, Chars, Quote, NextCh))
- {
- yield return false;
- }
- }
- }
- }
- }
- public static IEnumerable<bool> escape_char(object arg1, object arg2)
- {
- {
- foreach (bool l2 in YP.unify(arg1, 110))
- {
- foreach (bool l3 in YP.unify(arg2, 10))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 78))
- {
- foreach (bool l3 in YP.unify(arg2, 10))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 116))
- {
- foreach (bool l3 in YP.unify(arg2, 9))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 84))
- {
- foreach (bool l3 in YP.unify(arg2, 9))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 114))
- {
- foreach (bool l3 in YP.unify(arg2, 13))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 82))
- {
- foreach (bool l3 in YP.unify(arg2, 13))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 118))
- {
- foreach (bool l3 in YP.unify(arg2, 11))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 86))
- {
- foreach (bool l3 in YP.unify(arg2, 11))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 98))
- {
- foreach (bool l3 in YP.unify(arg2, 8))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 66))
- {
- foreach (bool l3 in YP.unify(arg2, 8))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 102))
- {
- foreach (bool l3 in YP.unify(arg2, 12))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 70))
- {
- foreach (bool l3 in YP.unify(arg2, 12))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 101))
- {
- foreach (bool l3 in YP.unify(arg2, 27))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 69))
- {
- foreach (bool l3 in YP.unify(arg2, 27))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 100))
- {
- foreach (bool l3 in YP.unify(arg2, 127))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 68))
- {
- foreach (bool l3 in YP.unify(arg2, 127))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 115))
- {
- foreach (bool l3 in YP.unify(arg2, 32))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 83))
- {
- foreach (bool l3 in YP.unify(arg2, 32))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 122))
- {
- foreach (bool l3 in YP.unify(arg2, -1))
- {
- yield return false;
- }
- }
- }
- {
- foreach (bool l2 in YP.unify(arg1, 90))
- {
- foreach (bool l3 in YP.unify(arg2, -1))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> read_variable(object C1, object Dict, object arg3)
- {
- {
- Variable Var = new Variable();
- Variable Name = new Variable();
- Variable StartPos = new Variable();
- Variable Tokens = new Variable();
- Variable Chars = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in YP.unify(arg3, new ListPair(new Functor3(@"var", Var, Name, StartPos), Tokens)))
- {
- foreach (bool l3 in get_current_position(StartPos))
- {
- foreach (bool l4 in read_name(C1, Chars, NextCh))
- {
- foreach (bool l5 in YP.atom_codes(Name, Chars))
- {
- if (YP.termEqual(Name, Atom.a(@"_")))
- {
- foreach (bool l7 in read_after_atom(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- goto cutIf1;
- }
- foreach (bool l6 in read_lookup(Dict, Name, Var))
- {
- foreach (bool l7 in read_after_atom(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- cutIf1:
- { }
- }
- }
- }
- }
- }
- }
- public static IEnumerable<bool> read_lookup(object arg1, object Name, object Var)
- {
- {
- Variable N = new Variable();
- Variable V = new Variable();
- Variable L = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"=", N, V), L)))
- {
- foreach (bool l3 in YP.unify(N, Name))
- {
- foreach (bool l4 in YP.unify(V, Var))
- {
- yield return false;
- }
- goto cutIf1;
- }
- foreach (bool l3 in read_lookup(L, Name, Var))
- {
- yield return false;
- }
- cutIf1:
- { }
- }
- }
- }
- public static IEnumerable<bool> read_solidus(object Ch, object LastCh)
- {
- {
- Variable NextCh = new Variable();
- if (YP.equal(Ch, 42))
- {
- foreach (bool l3 in YP.get_code(NextCh))
- {
- if (YP.equal(NextCh, 47))
- {
- foreach (bool l5 in YP.get_code(LastCh))
- {
- yield return false;
- }
- goto cutIf2;
- }
- foreach (bool l4 in read_solidus(NextCh, LastCh))
- {
- yield return false;
- }
- cutIf2:
- { }
- }
- goto cutIf1;
- }
- if (YP.notEqual(Ch, -1))
- {
- foreach (bool l3 in YP.get_code(NextCh))
- {
- foreach (bool l4 in read_solidus(NextCh, LastCh))
- {
- yield return false;
- }
- }
- goto cutIf3;
- }
- foreach (bool l2 in YP.unify(LastCh, Ch))
- {
- foreach (bool l3 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** end of file in /*comment~n"), Atom.NIL))
- {
- yield return false;
- }
- }
- cutIf3:
- cutIf1:
- { }
- }
- }
- public static IEnumerable<bool> read_identifier(object C1, object Dict, object Tokens)
- {
- {
- Variable Chars = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in read_name(C1, Chars, NextCh))
- {
- foreach (bool l3 in read_after_atom4(NextCh, Dict, Tokens, Chars))
- {
- yield return false;
- }
- }
- }
- }
- public static IEnumerable<bool> read_name(object C1, object arg2, object LastCh)
- {
- {
- Variable Chars = new Variable();
- Variable C2 = new Variable();
- foreach (bool l2 in YP.unify(arg2, new ListPair(C1, Chars)))
- {
- foreach (bool l3 in YP.get_code(C2))
- {
- if (YP.greaterThanOrEqual(C2, new ListPair(97, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C2, new ListPair(122, Atom.NIL)))
- {
- foreach (bool l6 in read_name(C2, Chars, LastCh))
- {
- yield return false;
- }
- goto cutIf2;
- }
- if (YP.lessThan(C2, 192))
- {
- if (YP.notEqual(YP.bitwiseOr(C2, 16), 186))
- {
- foreach (bool l7 in YP.unify(Chars, Atom.NIL))
- {
- foreach (bool l8 in YP.unify(LastCh, C2))
- {
- yield return false;
- }
- }
- goto cutIf3;
- }
- }
- if (YP.equal(YP.bitwiseOr(C2, 32), 247))
- {
- foreach (bool l6 in YP.unify(Chars, Atom.NIL))
- {
- foreach (bool l7 in YP.unify(LastCh, C2))
- {
- yield return false;
- }
- }
- goto cutIf4;
- }
- foreach (bool l5 in read_name(C2, Chars, LastCh))
- {
- yield return false;
- }
- cutIf4:
- cutIf3:
- cutIf2:
- goto cutIf1;
- }
- if (YP.greaterThanOrEqual(C2, new ListPair(65, Atom.NIL)))
- {
- if (YP.greaterThan(C2, new ListPair(90, Atom.NIL)))
- {
- if (YP.notEqual(C2, new ListPair(95, Atom.NIL)))
- {
- foreach (bool l7 in YP.unify(Chars, Atom.NIL))
- {
- foreach (bool l8 in YP.unify(LastCh, C2))
- {
- yield return false;
- }
- }
- goto cutIf6;
- }
- }
- foreach (bool l5 in read_name(C2, Chars, LastCh))
- {
- yield return false;
- }
- cutIf6:
- goto cutIf5;
- }
- if (YP.greaterThanOrEqual(C2, new ListPair(48, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C2, new ListPair(57, Atom.NIL)))
- {
- foreach (bool l6 in read_name(C2, Chars, LastCh))
- {
- yield return false;
- }
- goto cutIf7;
- }
- }
- foreach (bool l4 in YP.unify(Chars, Atom.NIL))
- {
- foreach (bool l5 in YP.unify(LastCh, C2))
- {
- yield return false;
- }
- }
- cutIf7:
- cutIf5:
- cutIf1:
- { }
- }
- }
- }
- }
- public static IEnumerable<bool> read_fullstop(object Ch, object Dict, object Tokens)
- {
- {
- Variable Number = new Variable();
- Variable Tokens1 = new Variable();
- Variable Chars = new Variable();
- Variable NextCh = new Variable();
- if (YP.lessThanOrEqual(Ch, new ListPair(57, Atom.NIL)))
- {
- if (YP.greaterThanOrEqual(Ch, new ListPair(48, Atom.NIL)))
- {
- foreach (bool l4 in YP.unify(Tokens, new ListPair(new Functor1(@"number", Number), Tokens1)))
- {
- foreach (bool l5 in read_float(Number, Dict, Tokens1, new ListPair(48, Atom.NIL), Ch))
- {
- yield return false;
- }
- }
- goto cutIf1;
- }
- }
- if (YP.greaterThan(Ch, new ListPair(32, Atom.NIL)))
- {
- foreach (bool l3 in rest_symbol(Ch, Chars, NextCh))
- {
- foreach (bool l4 in read_after_atom4(NextCh, Dict, Tokens, new ListPair(46, Chars)))
- {
- yield return false;
- }
- }
- goto cutIf2;
- }
- if (YP.greaterThanOrEqual(Ch, 0))
- {
- foreach (bool l3 in YP.unify(Tokens, Atom.NIL))
- {
- yield return false;
- }
- goto cutIf3;
- }
- foreach (bool l2 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** end of file just after full stop~n"), Atom.NIL))
- {
- }
- cutIf3:
- cutIf2:
- cutIf1:
- { }
- }
- }
- public static IEnumerable<bool> read_float(object Number, object Dict, object Tokens, object Digits, object Digit)
- {
- {
- Variable Chars = new Variable();
- Variable Rest = new Variable();
- Variable NextCh = new Variable();
- foreach (bool l2 in prepend(Digits, Chars, Rest))
- {
- foreach (bool l3 in read_float(Digit, Rest, NextCh, Chars))
- {
- foreach (bool l4 in YP.number_codes(Number, Chars))
- {
- foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- }
- }
- public static IEnumerable<bool> prepend(object arg1, object arg2, object arg3)
- {
- {
- object X = arg3;
- foreach (bool l2 in YP.unify(arg1, Atom.NIL))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(46, X)))
- {
- yield return false;
- }
- }
- }
- {
- object Y = arg3;
- Variable C = new Variable();
- Variable Cs = new Variable();
- Variable X = new Variable();
- foreach (bool l2 in YP.unify(arg1, new ListPair(C, Cs)))
- {
- foreach (bool l3 in YP.unify(arg2, new ListPair(C, X)))
- {
- foreach (bool l4 in prepend(Cs, X, Y))
- {
- yield return false;
- }
- }
- }
- }
- }
- public static IEnumerable<bool> read_float(object C1, object arg2, object NextCh, object Total)
- {
- {
- Variable Chars = new Variable();
- Variable C2 = new Variable();
- Variable C3 = new Variable();
- Variable C4 = new Variable();
- Variable More = new Variable();
- foreach (bool l2 in YP.unify(arg2, new ListPair(C1, Chars)))
- {
- foreach (bool l3 in YP.get_code(C2))
- {
- if (YP.greaterThanOrEqual(C2, new ListPair(48, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C2, new ListPair(57, Atom.NIL)))
- {
- foreach (bool l6 in read_float(C2, Chars, NextCh, Total))
- {
- yield return false;
- }
- goto cutIf1;
- }
- }
- if (YP.equal(YP.bitwiseOr(C2, 32), new ListPair(101, Atom.NIL)))
- {
- foreach (bool l5 in YP.get_code(C3))
- {
- if (YP.equal(C3, new ListPair(45, Atom.NIL)))
- {
- foreach (bool l7 in YP.get_code(C4))
- {
- foreach (bool l8 in YP.unify(Chars, new ListPair(C2, new ListPair(45, More))))
- {
- if (YP.greaterThanOrEqual(C4, new ListPair(48, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C4, new ListPair(57, Atom.NIL)))
- {
- foreach (bool l11 in read_exponent(C4, More, NextCh))
- {
- yield return false;
- }
- goto cutIf4;
- }
- }
- foreach (bool l9 in YP.unify(More, Atom.NIL))
- {
- foreach (bool l10 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** Missing exponent in ~s~n"), new ListPair(Total, Atom.NIL)))
- {
- }
- }
- foreach (bool l9 in YP.unify(More, new ListPair(48, Atom.NIL)))
- {
- foreach (bool l10 in YP.unify(NextCh, C4))
- {
- yield return false;
- }
- }
- cutIf4:
- { }
- }
- }
- goto cutIf3;
- }
- if (YP.equal(C3, new ListPair(43, Atom.NIL)))
- {
- foreach (bool l7 in YP.get_code(C4))
- {
- foreach (bool l8 in YP.unify(Chars, new ListPair(C2, More)))
- {
- if (YP.greaterThanOrEqual(C4, new ListPair(48, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C4, new ListPair(57, Atom.NIL)))
- {
- foreach (bool l11 in read_exponent(C4, More, NextCh))
- {
- yield return false;
- }
- goto cutIf6;
- }
- }
- foreach (bool l9 in YP.unify(More, Atom.NIL))
- {
- foreach (bool l10 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** Missing exponent in ~s~n"), new ListPair(Total, Atom.NIL)))
- {
- }
- }
- foreach (bool l9 in YP.unify(More, new ListPair(48, Atom.NIL)))
- {
- foreach (bool l10 in YP.unify(NextCh, C4))
- {
- yield return false;
- }
- }
- cutIf6:
- { }
- }
- }
- goto cutIf5;
- }
- foreach (bool l6 in YP.unify(C4, C3))
- {
- foreach (bool l7 in YP.unify(Chars, new ListPair(C2, More)))
- {
- if (YP.greaterThanOrEqual(C4, new ListPair(48, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C4, new ListPair(57, Atom.NIL)))
- {
- foreach (bool l10 in read_exponent(C4, More, NextCh))
- {
- yield return false;
- }
- goto cutIf7;
- }
- }
- foreach (bool l8 in YP.unify(More, Atom.NIL))
- {
- foreach (bool l9 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** Missing exponent in ~s~n"), new ListPair(Total, Atom.NIL)))
- {
- }
- }
- foreach (bool l8 in YP.unify(More, new ListPair(48, Atom.NIL)))
- {
- foreach (bool l9 in YP.unify(NextCh, C4))
- {
- yield return false;
- }
- }
- cutIf7:
- { }
- }
- }
- cutIf5:
- cutIf3:
- { }
- }
- goto cutIf2;
- }
- foreach (bool l4 in YP.unify(Chars, Atom.NIL))
- {
- foreach (bool l5 in YP.unify(NextCh, C2))
- {
- yield return false;
- }
- }
- cutIf2:
- cutIf1:
- { }
- }
- }
- }
- }
- public static IEnumerable<bool> read_exponent(object C1, object arg2, object NextCh)
- {
- {
- Variable Chars = new Variable();
- Variable C2 = new Variable();
- foreach (bool l2 in YP.unify(arg2, new ListPair(C1, Chars)))
- {
- foreach (bool l3 in YP.get_code(C2))
- {
- if (YP.greaterThanOrEqual(C2, new ListPair(48, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C2, new ListPair(57, Atom.NIL)))
- {
- foreach (bool l6 in read_exponent(C2, Chars, NextCh))
- {
- yield return false;
- }
- goto cutIf1;
- }
- }
- foreach (bool l4 in YP.unify(Chars, Atom.NIL))
- {
- foreach (bool l5 in YP.unify(NextCh, C2))
- {
- yield return false;
- }
- }
- cutIf1:
- { }
- }
- }
- }
- }
- public static IEnumerable<bool> read_number(object C1, object Dict, object arg3)
- {
- {
- Variable Number = new Variable();
- Variable Tokens = new Variable();
- Variable C2 = new Variable();
- Variable N = new Variable();
- Variable C = new Variable();
- Variable C3 = new Variable();
- Variable Digits = new Variable();
- foreach (bool l2 in YP.unify(arg3, new ListPair(new Functor1(@"number", Number), Tokens)))
- {
- foreach (bool l3 in read_number4(C1, C2, 0, N))
- {
- if (YP.equal(C2, 39))
- {
- if (YP.greaterThanOrEqual(N, 2))
- {
- if (YP.lessThanOrEqual(N, 36))
- {
- foreach (bool l7 in read_based(N, 0, Number, C))
- {
- foreach (bool l8 in read_tokens(C, Dict, Tokens))
- {
- yield return false;
- }
- }
- goto cutIf2;
- }
- }
- if (YP.equal(N, 0))
- {
- foreach (bool l6 in YP.get_code(C3))
- {
- foreach (bool l7 in read_char(C3, -1, Number, C))
- {
- foreach (bool l8 in read_tokens(C, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- goto cutIf3;
- }
- foreach (bool l5 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** ~d' read as ~d '~n"), new ListPair(N, new ListPair(N, Atom.NIL))))
- {
- foreach (bool l6 in YP.unify(Number, N))
- {
- foreach (bool l7 in YP.unify(C, C2))
- {
- foreach (bool l8 in read_tokens(C, Dict, Tokens))
- {
- yield return false;
- }
- }
- }
- }
- cutIf3:
- cutIf2:
- goto cutIf1;
- }
- if (YP.equal(C2, 46))
- {
- foreach (bool l5 in YP.get_code(C3))
- {
- if (YP.greaterThanOrEqual(C3, new ListPair(48, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C3, new ListPair(57, Atom.NIL)))
- {
- foreach (bool l8 in YP.number_codes(N, Digits))
- {
- foreach (bool l9 in read_float(Number, Dict, Tokens, Digits, C3))
- {
- yield return false;
- }
- }
- goto cutIf5;
- }
- }
- foreach (bool l6 in YP.unify(Number, N))
- {
- foreach (bool l7 in read_fullstop(C3, Dict, Tokens))
- {
- yield return false;
- }
- }
- cutIf5:
- { }
- }
- goto cutIf4;
- }
- foreach (bool l4 in YP.unify(Number, N))
- {
- foreach (bool l5 in read_tokens(C2, Dict, Tokens))
- {
- yield return false;
- }
- }
- cutIf4:
- cutIf1:
- { }
- }
- }
- }
- }
- public static IEnumerable<bool> read_number4(object C0, object C, object N0, object N)
- {
- {
- Variable N1 = new Variable();
- Variable C1 = new Variable();
- if (YP.greaterThanOrEqual(C0, new ListPair(48, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C0, new ListPair(57, Atom.NIL)))
- {
- foreach (bool l4 in YP.unify(N1, YP.add(YP.subtract(YP.multiply(N0, 10), new ListPair(48, Atom.NIL)), C0)))
- {
- foreach (bool l5 in YP.get_code(C1))
- {
- foreach (bool l6 in read_number4(C1, C, N1, N))
- {
- yield return false;
- }
- }
- }
- goto cutIf1;
- }
- }
- if (YP.equal(C0, 95))
- {
- foreach (bool l3 in YP.get_code(C1))
- {
- foreach (bool l4 in read_number4(C1, C, N0, N))
- {
- yield return false;
- }
- }
- goto cutIf2;
- }
- foreach (bool l2 in YP.unify(C, C0))
- {
- foreach (bool l3 in YP.unify(N, N0))
- {
- yield return false;
- }
- }
- cutIf2:
- cutIf1:
- { }
- }
- }
- public static IEnumerable<bool> read_based(object Base, object N0, object N, object C)
- {
- {
- Variable C1 = new Variable();
- Variable Digit = new Variable();
- Variable N1 = new Variable();
- foreach (bool l2 in YP.get_code(C1))
- {
- if (YP.greaterThanOrEqual(C1, new ListPair(48, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C1, new ListPair(57, Atom.NIL)))
- {
- foreach (bool l5 in YP.unify(Digit, YP.subtract(C1, new ListPair(48, Atom.NIL))))
- {
- if (YP.lessThan(Digit, Base))
- {
- foreach (bool l7 in YP.unify(N1, YP.add(YP.multiply(N0, Base), Digit)))
- {
- foreach (bool l8 in read_based(Base, N1, N, C))
- {
- yield return false;
- }
- }
- goto cutIf2;
- }
- if (YP.equal(C1, new ListPair(95, Atom.NIL)))
- {
- foreach (bool l7 in read_based(Base, N0, N, C))
- {
- yield return false;
- }
- goto cutIf3;
- }
- foreach (bool l6 in YP.unify(N, N0))
- {
- foreach (bool l7 in YP.unify(C, C1))
- {
- yield return false;
- }
- }
- cutIf3:
- cutIf2:
- { }
- }
- goto cutIf1;
- }
- }
- if (YP.greaterThanOrEqual(C1, new ListPair(65, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C1, new ListPair(90, Atom.NIL)))
- {
- foreach (bool l5 in YP.unify(Digit, YP.subtract(C1, YP.subtract(new ListPair(65, Atom.NIL), 10))))
- {
- if (YP.lessThan(Digit, Base))
- {
- foreach (bool l7 in YP.unify(N1, YP.add(YP.multiply(N0, Base), Digit)))
- {
- foreach (bool l8 in read_based(Base, N1, N, C))
- {
- yield return false;
- }
- }
- goto cutIf5;
- }
- if (YP.equal(C1, new ListPair(95, Atom.NIL)))
- {
- foreach (bool l7 in read_based(Base, N0, N, C))
- {
- yield return false;
- }
- goto cutIf6;
- }
- foreach (bool l6 in YP.unify(N, N0))
- {
- foreach (bool l7 in YP.unify(C, C1))
- {
- yield return false;
- }
- }
- cutIf6:
- cutIf5:
- { }
- }
- goto cutIf4;
- }
- }
- if (YP.greaterThanOrEqual(C1, new ListPair(97, Atom.NIL)))
- {
- if (YP.lessThanOrEqual(C1, new ListPair(122, Atom.NIL)))
- {
- foreach (bool l5 in YP.unify(Digit, YP.subtract(C1, YP.subtract(new ListPair(97, Atom.NIL), 10))))
- {
- if (YP.lessThan(Digit, Base))
- {
- foreach (bool l7 in YP.unify(N1, YP.add(YP.multiply(N0, Base), Digit)))
- {
- foreach (bool l8 in read_based(Base, N1, N, C))
- {
- yield return false;
- }
- }
- goto cutIf8;
- }
- if (YP.equal(C1, new ListPair(95, Atom.NIL)))
- {
- foreach (bool l7 in read_based(Base, N0, N, C))
- {
- yield return false;
- }
- goto cutIf9;
- }
- foreach (bool l6 in YP.unify(N, N0))
- {
- foreach (bool l7 in YP.unify(C, C1))
- {
- yield return false;
- }
- }
- cutIf9:
- cutIf8:
- { }
- }
- goto cutIf7;
- }
- }
- foreach (bool l3 in YP.unify(Digit, 99))
- {
- if (YP.lessThan(Digit, Base))
- {
- foreach (bool l5 in YP.unify(N1, YP.add(YP.multiply(N0, Base), Digit)))
- {
- foreach (bool l6 in read_based(Base, N1, N, C))
- {
- yield return false;
- }
- }
- goto cutIf10;
- }
- if (YP.equal(C1, new ListPair(95, Atom.NIL)))
- {
- foreach (bool l5 in read_based(Base, N0, N, C))
- {
- yield return false;
- }
- goto cutIf11;
- }
- foreach (bool l4 in YP.unify(N, N0))
- {
- foreach (bool l5 in YP.unify(C, C1))
- {
- yield return false;
- }
- }
- cutIf11:
- cutIf10:
- { }
- }
- cutIf7:
- cutIf4:
- cutIf1:
- { }
- }
- }
- }
- public static IEnumerable<bool> read_char(object Char, object Quote, object Result, object Next)
- {
- {
- Variable C1 = new Variable();
- Variable C2 = new Variable();
- Variable C3 = new Variable();
- Variable Ch = new Variable();
- if (YP.equal(Char, 92))
- {
- foreach (bool l3 in YP.get_code(C1))
- {
- if (YP.lessThan(C1, 0))
- {
- foreach (bool l5 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** end of file in ~cquoted~c~n"), new ListPair(Quote, new ListPair(Quote, Atom.NIL))))
- {
- foreach (bool l6 in YP.unify(Result, -1))
- {
- foreach (bool l7 in YP.unify(Next, C1))
- {
- yield return false;
- }
- }
- }
- goto cutIf2;
- }
- if (YP.lessThanOrEqual(C1, new ListPair(32, Atom.NIL)))
- {
- foreach (bool l5 in YP.get_code(C2))
- {
- foreach (bool l6 in read_char(C2, Quote, Result, Next))
- {
- yield return false;
- }
- }
- goto cutIf3;
- }
- if (YP.equal(YP.bitwiseOr(C1, 32), new ListPair(99, Atom.NIL)))
- {
- foreach (bool l5 in YP.get_code(C2))
- {
- foreach (bool l6 in read_char(C2, Quote, Result, Next))
- {
- yield return false;
- }
- }
- goto cutIf4;
- }
- if (YP.lessThanOrEqual(C1, new ListPair(55, Atom.NIL)))
- {
- if (YP.greaterThanOrEqual(C1, new ListPair(48, Atom.NIL)))
- {
- foreach (bool l6 in YP.get_code(C2))
- {
- if (YP.lessThanOrEqual(C2, new ListPair(55, Atom.NIL)))
- {
- if (YP.greaterThanOrEqual(C2, new ListPair(48, Atom.NIL)))
- {
- foreach (bool l9 in YP.get_code(C3))
- {
- if (YP.lessThanOrEqual(C3, new ListPair(55, Atom.NIL)))
- {
- if (YP.greaterThanOrEqual(C3, new ListPair(48, Atom.NIL)))
- {
- foreach (bool l12 in YP.get_code(Next))
- {
- foreach (bool l13 in YP.unify(Result, YP.subtract(YP.add(YP.multiply(YP.add(YP.multiply(C1, 8), C2), 8), C3), YP.multiply(73, new ListPair(48, Atom.NIL)))))
- {
- yield return false;
- }
- }
- goto cutIf7;
- }
- }
- foreach (bool l10 in YP.unify(Next, C3))
- {
- foreach (bool l11 in YP.unify(Result, YP.subtract(YP.add(YP.multiply(C1, 8), C2), YP.multiply(9, new ListPair(48, Atom.NIL)))))
- {
- yield return false;
- }
- }
- cutIf7:
- { }
- }
- goto cutIf6;
- }
- }
- foreach (bool l7 in YP.unify(Next, C2))
- {
- foreach (bool l8 in YP.unify(Result, YP.subtract(C1, new ListPair(48, Atom.NIL))))
- {
- yield return false;
- }
- }
- cutIf6:
- { }
- }
- goto cutIf5;
- }
- }
- if (YP.equal(C1, new ListPair(94, Atom.NIL)))
- {
- foreach (bool l5 in YP.get_code(C2))
- {
- if (YP.lessThan(C2, 0))
- {
- foreach (bool l7 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** end of file in ~c..~c^..~c~n"), new ListPair(Quote, new ListPair(92, new ListPair(Quote, Atom.NIL)))))
- {
- foreach (bool l8 in YP.unify(Result, -1))
- {
- foreach (bool l9 in YP.unify(Next, C2))
- {
- yield return false;
- }
- }
- }
- goto cutIf9;
- }
- if (YP.equal(C2, new ListPair(63, Atom.NIL)))
- {
- foreach (bool l7 in YP.unify(Result, 127))
- {
- foreach (bool l8 in YP.get_code(Next))
- {
- yield return false;
- }
- }
- goto cutIf10;
- }
- foreach (bool l6 in YP.unify(Result, YP.bitwiseAnd(C2, 31)))
- {
- foreach (bool l7 in YP.get_code(Next))
- {
- yield return false;
- }
- }
- cutIf10:
- cutIf9:
- { }
- }
- goto cutIf8;
- }
- foreach (bool l4 in escape_char(C1, Result))
- {
- foreach (bool l5 in YP.get_code(Next))
- {
- yield return false;
- }
- goto cutIf11;
- }
- foreach (bool l4 in YP.unify(Result, C1))
- {
- foreach (bool l5 in YP.get_code(Next))
- {
- yield return false;
- }
- }
- cutIf11:
- cutIf8:
- cutIf5:
- cutIf4:
- cutIf3:
- cutIf2:
- { }
- }
- goto cutIf1;
- }
- if (YP.equal(Char, Quote))
- {
- foreach (bool l3 in YP.get_code(Ch))
- {
- if (YP.equal(Ch, Quote))
- {
- foreach (bool l5 in YP.unify(Result, Quote))
- {
- foreach (bool l6 in YP.get_code(Next))
- {
- yield return false;
- }
- }
- goto cutIf13;
- }
- foreach (bool l4 in YP.unify(Result, -1))
- {
- foreach (bool l5 in YP.unify(Next, Ch))
- {
- yield return false;
- }
- }
- cutIf13:
- { }
- }
- goto cutIf12;
- }
- if (YP.lessThan(Char, new ListPair(32, Atom.NIL)))
- {
- if (YP.notEqual(Char, 9))
- {
- if (YP.notEqual(Char, 10))
- {
- if (YP.notEqual(Char, 13))
- {
- foreach (bool l6 in YP.unify(Result, -1))
- {
- foreach (bool l7 in YP.unify(Next, Char))
- {
- foreach (bool l8 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** Strange character ~d ends ~ctoken~c~n"), new ListPair(Char, new ListPair(Quote, new ListPair(Quote, Atom.NIL)))))
- {
- yield return false;
- }
- }
- }
- goto cutIf14;
- }
- }
- }
- }
- foreach (bool l2 in YP.unify(Result, Char))
- {
- foreach (bool l3 in YP.get_code(Next))
- {
- yield return false;
- }
- }
- cutIf14:
- cutIf12:
- cutIf1:
- { }
- }
- }
- #pragma warning restore 0168
- }
- }
|