Something went wrong. Try again.
A prose-themed programming language optimized for minimizing symbols.
Something went wrong. Try again.
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955395639573958395939603961396239633964396539663967396839693970397139723973397439753976397739783979398039813982398339843985398639873988398939903991399239933994399539963997399839994000400140024003400440054006400740084009401040114012401340144015401640174018401940204021402240234024402540264027402840294030403140324033403440354036403740384039404040414042404340444045404640474048404940504051405240534054405540564057405840594060406140624063406440654066406740684069407040714072407340744075407640774078407940804081408240834084408540864087408840894090409140924093409440954096409740984099410041014102410341044105410641074108410941104111411241134114411541164117411841194120412141224123412441254126412741284129413041314132413341344135413641374138413941404141414241434144414541464147414841494150415141524153415441554156415741584159416041614162416341644165416641674168416941704171417241734174417541764177417841794180418141824183418441854186418741884189419041914192419341944195419641974198419942004201420242034204420542064207420842094210421142124213421442154216421742184219422042214222422342244225422642274228422942304231423242334234423542364237423842394240424142424243424442454246424742484249425042514252425342544255425642574258425942604261426242634264426542664267426842694270427142724273427442754276427742784279428042814282428342844285428642874288428942904291429242934294429542964297429842994300430143024303430443054306430743084309431043114312431343144315431643174318431943204321432243234324432543264327432843294330433143324333433443354336433743384339434043414342434343444345434643474348434943504351435243534354435543564357435843594360436143624363436443654366436743684369437043714372437343744375437643774378437943804381438243834384438543864387438843894390439143924393439443954396439743984399440044014402440344044405440644074408440944104411441244134414441544164417441844194420442144224423442444254426442744284429443044314432443344344435443644374438443944404441444244434444444544464447444844494450445144524453445444554456445744584459446044614462446344644465446644674468446944704471447244734474447544764477447844794480448144824483448444854486448744884489449044914492449344944495449644974498449945004501450245034504450545064507450845094510451145124513451445154516451745184519452045214522452345244525452645274528452945304531453245334534453545364537453845394540454145424543454445454546454745484549455045514552455345544555455645574558455945604561456245634564456545664567456845694570457145724573457445754576457745784579458045814582458345844585458645874588458945904591459245934594459545964597459845994600460146024603460446054606460746084609461046114612461346144615461646174618461946204621462246234624462546264627462846294630463146324633463446354636463746384639464046414642464346444645464646474648464946504651465246534654465546564657465846594660466146624663466446654666466746684669467046714672467346744675467646774678467946804681468246834684468546864687468846894690469146924693469446954696469746984699470047014702470347044705470647074708470947104711471247134714471547164717471847194720472147224723472447254726472747284729473047314732473347344735473647374738473947404741474247434744474547464747474847494750475147524753475447554756475747584759476047614762476347644765476647674768476947704771477247734774477547764777477847794780478147824783478447854786478747884789479047914792479347944795479647974798479948004801480248034804480548064807480848094810481148124813481448154816481748184819482048214822482348244825482648274828482948304831483248334834483548364837483848394840484148424843484448454846484748484849485048514852485348544855485648574858485948604861486248634864486548664867486848694870487148724873487448754876487748784879488048814882488348844885488648874888488948904891489248934894489548964897489848994900490149024903490449054906490749084909491049114912491349144915491649174918491949204921492249234924492549264927492849294930493149324933493449354936493749384939494049414942494349444945494649474948494949504951495249534954495549564957495849594960496149624963496449654966496749684969497049714972497349744975497649774978497949804981498249834984498549864987498849894990499149924993499449954996499749984999500050015002500350045005500650075008500950105011501250135014501550165017501850195020502150225023502450255026502750285029503050315032503350345035503650375038503950405041504250435044504550465047504850495050505150525053505450555056505750585059506050615062506350645065506650675068506950705071507250735074507550765077507850795080508150825083508450855086508750885089509050915092509350945095509650975098509951005101510251035104510551065107510851095110511151125113511451155116511751185119512051215122512351245125512651275128512951305131513251335134513551365137513851395140514151425143514451455146514751485149515051515152515351545155515651575158515951605161516251635164516551665167516851695170517151725173517451755176517751785179518051815182518351845185518651875188518951905191519251935194519551965197519851995200520152025203520452055206520752085209521052115212521352145215521652175218521952205221522252235224522552265227522852295230523152325233523452355236523752385239524052415242524352445245524652475248524952505251525252535254525552565257525852595260526152625263526452655266526752685269527052715272527352745275527652775278527952805281528252835284528552865287528852895290529152925293529452955296529752985299530053015302530353045305530653075308530953105311531253135314531553165317531853195320532153225323532453255326532753285329533053315332533353345335533653375338533953405341534253435344534553465347534853495350535153525353535453555356535753585359536053615362536353645365536653675368536953705371537253735374537553765377537853795380538153825383538453855386538753885389539053915392539353945395539653975398539954005401540254035404540554065407540854095410541154125413541454155416541754185419542054215422542354245425542654275428542954305431543254335434543554365437543854395440544154425443544454455446544754485449545054515452545354545455545654575458545954605461546254635464546554665467546854695470547154725473547454755476547754785479548054815482548354845485548654875488548954905491549254935494549554965497549854995500550155025503550455055506550755085509551055115512551355145515551655175518551955205521552255235524552555265527552855295530553155325533553455355536553755385539554055415542554355445545554655475548554955505551555255535554555555565557555855595560556155625563556455655566556755685569557055715572557355745575557655775578557955805581558255835584558555865587558855895590559155925593559455955596559755985599560056015602560356045605560656075608560956105611561256135614561556165617561856195620562156225623562456255626562756285629563056315632563356345635563656375638563956405641564256435644564556465647564856495650565156525653565456555656565756585659566056615662566356645665566656675668566956705671567256735674567556765677567856795680568156825683568456855686568756885689569056915692569356945695569656975698569957005701570257035704570557065707570857095710571157125713571457155716571757185719572057215722572357245725572657275728572957305731573257335734573557365737573857395740574157425743574457455746574757485749575057515752575357545755575657575758575957605761576257635764576557665767576857695770577157725773577457755776577757785779578057815782578357845785578657875788578957905791579257935794579557965797579857995800580158025803580458055806580758085809581058115812581358145815581658175818581958205821582258235824582558265827582858295830583158325833583458355836583758385839584058415842584358445845584658475848584958505851585258535854585558565857585858595860586158625863586458655866586758685869587058715872587358745875587658775878587958805881588258835884588558865887588858895890589158925893589458955896589758985899590059015902590359045905590659075908590959105911591259135914591559165917591859195920592159225923592459255926592759285929593059315932593359345935593659375938593959405941594259435944594559465947594859495950595159525953595459555956595759585959596059615962596359645965596659675968596959705971597259735974597559765977597859795980598159825983598459855986598759885989599059915992599359945995599659975998599960006001600260036004600560066007600860096010601160126013601460156016601760186019602060216022602360246025602660276028602960306031603260336034603560366037603860396040604160426043604460456046604760486049605060516052605360546055605660576058605960606061606260636064606560666067606860696070607160726073607460756076607760786079608060816082608360846085608660876088608960906091609260936094609560966097609860996100610161026103610461056106610761086109611061116112611361146115611661176118611961206121612261236124612561266127612861296130613161326133613461356136613761386139614061416142614361446145614661476148614961506151615261536154615561566157615861596160616161626163616461656166616761686169617061716172617361746175617661776178617961806181618261836184618561866187618861896190619161926193619461956196619761986199620062016202620362046205620662076208620962106211621262136214621562166217621862196220622162226223622462256226622762286229623062316232623362346235623662376238623962406241624262436244624562466247624862496250625162526253625462556256625762586259626062616262626362646265626662676268626962706271627262736274627562766277627862796280628162826283628462856286628762886289629062916292629362946295629662976298629963006301630263036304630563066307630863096310631163126313631463156316631763186319632063216322632363246325632663276328632963306331633263336334633563366337633863396340634163426343634463456346634763486349635063516352635363546355635663576358635963606361636263636364636563666367636863696370637163726373637463756376637763786379638063816382638363846385638663876388638963906391639263936394639563966397639863996400640164026403640464056406640764086409641064116412641364146415641664176418641964206421642264236424642564266427642864296430643164326433643464356436643764386439644064416442644364446445644664476448644964506451645264536454645564566457645864596460646164626463646464656466646764686469647064716472647364746475647664776478647964806481648264836484648564866487648864896490649164926493649464956496649764986499650065016502650365046505650665076508650965106511651265136514651565166517651865196520652165226523652465256526652765286529653065316532653365346535653665376538653965406541654265436544654565466547654865496550655165526553655465556556655765586559656065616562656365646565656665676568656965706571657265736574657565766577657865796580658165826583658465856586658765886589659065916592659365946595659665976598659966006601660266036604660566066607660866096610661166126613661466156616661766186619662066216622662366246625662666276628662966306631663266336634663566366637663866396640664166426643664466456646664766486649665066516652665366546655665666576658665966606661666266636664666566666667666866696670667166726673667466756676667766786679668066816682668366846685668666876688668966906691669266936694669566966697669866996700670167026703670467056706670767086709671067116712671367146715671667176718671967206721672267236724672567266727672867296730673167326733673467356736673767386739674067416742674367446745674667476748674967506751675267536754675567566757675867596760676167626763676467656766676767686769677067716772677367746775677667776778677967806781678267836784678567866787678867896790679167926793679467956796679767986799680068016802680368046805680668076808680968106811681268136814681568166817681868196820682168226823682468256826682768286829683068316832683368346835683668376838683968406841684268436844684568466847684868496850685168526853685468556856685768586859686068616862686368646865686668676868686968706871687268736874687568766877687868796880688168826883688468856886688768886889689068916892689368946895689668976898689969006901690269036904690569066907690869096910691169126913691469156916691769186919692069216922692369246925692669276928692969306931693269336934693569366937693869396940694169426943694469456946694769486949695069516952695369546955695669576958695969606961696269636964696569666967696869696970697169726973697469756976697769786979698069816982698369846985698669876988698969906991699269936994699569966997699869997000700170027003700470057006700770087009701070117012701370147015701670177018701970207021702270237024702570267027702870297030703170327033703470357036703770387039704070417042704370447045704670477048704970507051705270537054705570567057705870597060706170627063706470657066706770687069707070717072707370747075707670777078707970807081708270837084708570867087708870897090709170927093709470957096709770987099710071017102710371047105710671077108710971107111711271137114711571167117711871197120712171227123712471257126712771287129713071317132713371347135713671377138713971407141714271437144714571467147714871497150715171527153715471557156715771587159716071617162716371647165716671677168716971707171717271737174717571767177717871797180718171827183718471857186718771887189719071917192719371947195719671977198719972007201720272037204720572067207720872097210721172127213721472157216721772187219722072217222722372247225722672277228722972307231723272337234723572367237723872397240724172427243724472457246724772487249725072517252725372547255725672577258725972607261726272637264726572667267726872697270727172727273727472757276727772787279728072817282728372847285728672877288728972907291729272937294729572967297729872997300730173027303730473057306730773087309731073117312731373147315731673177318731973207321732273237324732573267327732873297330733173327333733473357336733773387339734073417342734373447345734673477348734973507351735273537354735573567357735873597360736173627363736473657366736773687369737073717372737373747375737673777378737973807381738273837384738573867387738873897390739173927393739473957396739773987399740074017402740374047405740674077408740974107411741274137414741574167417741874197420742174227423742474257426742774287429743074317432743374347435743674377438743974407441744274437444744574467447744874497450745174527453745474557456745774587459746074617462746374647465746674677468746974707471747274737474747574767477747874797480748174827483748474857486748774887489749074917492749374947495749674977498749975007501750275037504750575067507750875097510751175127513751475157516751775187519752075217522752375247525752675277528752975307531753275337534753575367537753875397540754175427543754475457546754775487549755075517552755375547555755675577558755975607561756275637564756575667567756875697570757175727573757475757576757775787579758075817582758375847585758675877588758975907591759275937594759575967597759875997600760176027603760476057606760776087609761076117612761376147615761676177618761976207621762276237624762576267627762876297630763176327633763476357636763776387639764076417642764376447645764676477648764976507651765276537654765576567657765876597660766176627663766476657666766776687669767076717672767376747675767676777678767976807681768276837684768576867687768876897690769176927693769476957696769776987699770077017702770377047705770677077708770977107711771277137714771577167717771877197720772177227723772477257726772777287729773077317732773377347735773677377738773977407741774277437744774577467747774877497750775177527753775477557756775777587759776077617762776377647765776677677768776977707771777277737774777577767777777877797780778177827783778477857786778777887789779077917792779377947795779677977798779978007801780278037804780578067807780878097810781178127813781478157816781778187819782078217822782378247825782678277828782978307831783278337834783578367837783878397840784178427843784478457846784778487849785078517852785378547855785678577858785978607861786278637864786578667867786878697870787178727873787478757876787778787879788078817882788378847885788678877888788978907891789278937894789578967897789878997900790179027903790479057906790779087909791079117912791379147915791679177918791979207921792279237924792579267927792879297930793179327933793479357936793779387939794079417942794379447945794679477948794979507951795279537954795579567957795879597960796179627963796479657966796779687969797079717972797379747975797679777978797979807981798279837984798579867987798879897990799179927993799479957996799779987999800080018002800380048005800680078008800980108011801280138014801580168017801880198020802180228023802480258026802780288029803080318032803380348035803680378038803980408041804280438044804580468047804880498050805180528053805480558056805780588059806080618062806380648065806680678068806980708071807280738074807580768077807880798080808180828083808480858086808780888089809080918092809380948095809680978098809981008101810281038104810581068107810881098110811181128113811481158116811781188119812081218122812381248125812681278128812981308131813281338134813581368137813881398140814181428143814481458146814781488149815081518152815381548155815681578158815981608161816281638164816581668167816881698170817181728173817481758176817781788179818081818182818381848185818681878188818981908191819281938194819581968197819881998200820182028203820482058206820782088209821082118212821382148215821682178218821982208221822282238224822582268227822882298230823182328233823482358236823782388239824082418242824382448245824682478248824982508251825282538254825582568257825882598260826182628263826482658266826782688269827082718272827382748275827682778278827982808281828282838284828582868287828882898290829182928293829482958296829782988299830083018302830383048305830683078308830983108311831283138314831583168317831883198320832183228323832483258326832783288329833083318332833383348335833683378338833983408341834283438344834583468347834883498350835183528353835483558356835783588359836083618362836383648365836683678368836983708371837283738374837583768377837883798380838183828383838483858386838783888389839083918392839383948395839683978398839984008401840284038404840584068407840884098410841184128413841484158416841784188419842084218422842384248425842684278428842984308431843284338434843584368437843884398440844184428443844484458446844784488449845084518452845384548455845684578458845984608461846284638464846584668467846884698470847184728473847484758476847784788479848084818482848384848485848684878488848984908491849284938494849584968497849884998500850185028503850485058506850785088509851085118512851385148515851685178518851985208521852285238524852585268527852885298530853185328533853485358536853785388539854085418542854385448545854685478548854985508551855285538554855585568557855885598560856185628563856485658566856785688569857085718572857385748575857685778578857985808581858285838584858585868587858885898590859185928593859485958596859785988599860086018602860386048605860686078608860986108611861286138614861586168617861886198620862186228623862486258626862786288629863086318632863386348635863686378638863986408641864286438644864586468647864886498650865186528653865486558656865786588659866086618662866386648665866686678668866986708671867286738674867586768677867886798680868186828683868486858686868786888689869086918692869386948695869686978698869987008701870287038704870587068707870887098710871187128713871487158716871787188719872087218722872387248725872687278728872987308731873287338734873587368737873887398740874187428743874487458746874787488749875087518752875387548755875687578758875987608761876287638764876587668767876887698770877187728773877487758776877787788779878087818782878387848785878687878788878987908791879287938794879587968797879887998800880188028803880488058806880788088809881088118812881388148815881688178818881988208821882288238824882588268827882888298830883188328833883488358836883788388839884088418842884388448845884688478848884988508851885288538854885588568857885888598860886188628863886488658866886788688869887088718872887388748875887688778878887988808881888288838884888588868887888888898890889188928893889488958896889788988899890089018902890389048905890689078908890989108911891289138914891589168917891889198920892189228923892489258926892789288929893089318932893389348935893689378938893989408941894289438944894589468947894889498950895189528953895489558956895789588959896089618962896389648965896689678968896989708971897289738974897589768977897889798980898189828983898489858986898789888989899089918992899389948995899689978998899990009001900290039004900590069007900890099010901190129013901490159016901790189019902090219022902390249025902690279028902990309031903290339034903590369037903890399040904190429043904490459046904790489049905090519052905390549055905690579058905990609061906290639064906590669067906890699070907190729073907490759076907790789079908090819082908390849085908690879088908990909091909290939094909590969097909890999100910191029103910491059106910791089109911091119112911391149115911691179118911991209121912291239124912591269127912891299130913191329133913491359136913791389139914091419142914391449145914691479148914991509151915291539154915591569157915891599160916191629163916491659166916791689169917091719172917391749175917691779178917991809181918291839184918591869187918891899190919191929193919491959196919791989199920092019202920392049205920692079208920992109211921292139214921592169217921892199220922192229223922492259226922792289229923092319232923392349235923692379238923992409241924292439244924592469247924892499250925192529253925492559256925792589259926092619262926392649265926692679268926992709271927292739274927592769277927892799280928192829283928492859286928792889289929092919292929392949295929692979298929993009301930293039304930593069307930893099310931193129313931493159316931793189319932093219322932393249325932693279328932993309331933293339334933593369337933893399340934193429343934493459346934793489349935093519352935393549355935693579358935993609361936293639364936593669367936893699370937193729373937493759376937793789379938093819382938393849385938693879388938993909391939293939394939593969397939893999400940194029403940494059406940794089409941094119412941394149415941694179418941994209421942294239424942594269427942894299430943194329433943494359436943794389439944094419442944394449445944694479448944994509451945294539454945594569457945894599460946194629463946494659466946794689469947094719472947394749475947694779478947994809481948294839484948594869487948894899490949194929493949494959496949794989499950095019502950395049505950695079508950995109511951295139514951595169517951895199520952195229523952495259526952795289529953095319532953395349535953695379538953995409541954295439544954595469547954895499550955195529553955495559556955795589559956095619562956395649565956695679568956995709571957295739574957595769577957895799580958195829583958495859586958795889589959095919592959395949595959695979598959996009601960296039604960596069607960896099610961196129613961496159616961796189619962096219622962396249625962696279628962996309631963296339634963596369637963896399640964196429643964496459646964796489649965096519652965396549655965696579658965996609661966296639664966596669667966896699670967196729673967496759676967796789679968096819682968396849685968696879688968996909691969296939694969596969697969896999700970197029703970497059706970797089709971097119712971397149715971697179718971997209721972297239724972597269727972897299730973197329733973497359736973797389739974097419742974397449745974697479748974997509751975297539754975597569757975897599760976197629763976497659766976797689769977097719772977397749775977697779778977997809781978297839784978597869787978897899790979197929793979497959796979797989799980098019802980398049805980698079808980998109811981298139814981598169817981898199820982198229823982498259826982798289829983098319832983398349835983698379838983998409841984298439844984598469847984898499850985198529853985498559856985798589859986098619862986398649865986698679868986998709871987298739874987598769877987898799880988198829883988498859886988798889889989098919892989398949895989698979898989999009901990299039904990599069907990899099910991199129913991499159916991799189919992099219922992399249925992699279928992999309931993299339934993599369937993899399940994199429943994499459946994799489949995099519952995399549955995699579958995999609961996299639964996599669967996899699970997199729973997499759976997799789979998099819982998399849985998699879988998999909991999299939994999599969997999899991000010001100021000310004100051000610007100081000910010100111001210013100141001510016100171001810019100201002110022100231002410025100261002710028100291003010031100321003310034100351003610037100381003910040100411004210043100441004510046100471004810049100501005110052100531005410055100561005710058100591006010061100621006310064100651006610067100681006910070100711007210073100741007510076100771007810079100801008110082100831008410085100861008710088100891009010091100921009310094100951009610097100981009910100101011010210103101041010510106101071010810109101101011110112101131011410115101161011710118101191012010121101221012310124101251012610127101281012910130101311013210133101341013510136101371013810139101401014110142101431014410145101461014710148101491015010151101521015310154101551015610157101581015910160101611016210163101641016510166101671016810169101701017110172101731017410175101761017710178101791018010181101821018310184101851018610187101881018910190101911019210193101941019510196101971019810199102001020110202102031020410205102061020710208102091021010211102121021310214102151021610217102181021910220102211022210223102241022510226102271022810229102301023110232102331023410235102361023710238102391024010241102421024310244102451024610247102481024910250102511025210253102541025510256102571025810259102601026110262102631026410265102661026710268102691027010271102721027310274102751027610277102781027910280102811028210283102841028510286102871028810289102901029110292102931029410295102961029710298102991030010301103021030310304103051030610307103081030910310103111031210313103141031510316103171031810319103201032110322103231032410325103261032710328103291033010331103321033310334103351033610337103381033910340103411034210343103441034510346103471034810349103501035110352103531035410355103561035710358103591036010361103621036310364103651036610367103681036910370103711037210373103741037510376103771037810379103801038110382103831038410385103861038710388103891039010391103921039310394103951039610397103981039910400104011040210403104041040510406104071040810409104101041110412104131041410415104161041710418104191042010421104221042310424104251042610427104281042910430104311043210433104341043510436104371043810439104401044110442104431044410445104461044710448104491045010451104521045310454104551045610457104581045910460104611046210463104641046510466104671046810469104701047110472104731047410475104761047710478104791048010481104821048310484104851048610487104881048910490104911049210493104941049510496104971049810499105001050110502105031050410505105061050710508105091051010511105121051310514105151051610517105181051910520105211052210523105241052510526105271052810529105301053110532105331053410535105361053710538105391054010541105421054310544105451054610547105481054910550105511055210553105541055510556105571055810559105601056110562105631056410565105661056710568105691057010571105721057310574105751057610577105781057910580105811058210583105841058510586105871058810589105901059110592105931059410595105961059710598105991060010601106021060310604106051060610607106081060910610106111061210613106141061510616106171061810619106201062110622106231062410625106261062710628106291063010631106321063310634106351063610637106381063910640106411064210643106441064510646106471064810649106501065110652106531065410655106561065710658106591066010661106621066310664106651066610667106681066910670106711067210673106741067510676106771067810679106801068110682106831068410685106861068710688106891069010691106921069310694106951069610697106981069910700107011070210703107041070510706107071070810709107101071110712107131071410715107161071710718107191072010721107221072310724107251072610727107281072910730107311073210733107341073510736107371073810739107401074110742107431074410745107461074710748107491075010751107521075310754107551075610757107581075910760107611076210763107641076510766107671076810769107701077110772107731077410775107761077710778107791078010781107821078310784107851078610787107881078910790107911079210793107941079510796107971079810799108001080110802108031080410805108061080710808108091081010811108121081310814108151081610817108181081910820108211082210823108241082510826108271082810829108301083110832108331083410835108361083710838108391084010841108421084310844108451084610847108481084910850108511085210853108541085510856108571085810859108601086110862108631086410865108661086710868108691087010871108721087310874108751087610877108781087910880108811088210883108841088510886108871088810889108901089110892108931089410895108961089710898108991090010901109021090310904109051090610907109081090910910109111091210913109141091510916109171091810919109201092110922109231092410925109261092710928109291093010931109321093310934109351093610937109381093910940109411094210943109441094510946109471094810949109501095110952109531095410955109561095710958109591096010961109621096310964109651096610967109681096910970109711097210973109741097510976109771097810979109801098110982109831098410985109861098710988109891099010991109921099310994109951099610997109981099911000110011100211003110041100511006110071100811009110101101111012110131101411015110161101711018110191102011021110221102311024110251102611027110281102911030110311103211033110341103511036110371103811039110401104111042110431104411045110461104711048110491105011051110521105311054110551105611057110581105911060110611106211063110641106511066110671106811069110701107111072110731107411075110761107711078110791108011081110821108311084110851108611087110881108911090110911109211093110941109511096110971109811099111001110111102111031110411105111061110711108111091111011111111121111311114111151111611117111181111911120111211112211123111241112511126111271112811129111301113111132111331113411135111361113711138111391114011141111421114311144111451114611147111481114911150111511115211153111541115511156111571115811159111601116111162111631116411165111661116711168111691117011171111721117311174111751117611177111781117911180111811118211183111841118511186111871118811189111901119111192111931119411195111961119711198111991120011201112021120311204112051120611207112081120911210112111121211213112141121511216112171121811219112201122111222112231122411225112261122711228112291123011231112321123311234112351123611237112381123911240112411124211243112441124511246112471124811249112501125111252112531125411255112561125711258112591126011261112621126311264112651126611267112681126911270112711127211273112741127511276112771127811279112801128111282112831128411285112861128711288112891129011291112921129311294112951129611297112981129911300113011130211303113041130511306113071130811309113101131111312113131131411315113161131711318113191132011321113221132311324113251132611327113281132911330113311133211333113341133511336113371133811339113401134111342113431134411345113461134711348113491135011351113521135311354113551135611357113581135911360113611136211363113641136511366113671136811369113701137111372113731137411375113761137711378113791138011381113821138311384113851138611387113881138911390113911139211393113941139511396113971139811399114001140111402114031140411405114061140711408114091141011411114121141311414114151141611417114181141911420114211142211423114241142511426114271142811429114301143111432114331143411435114361143711438114391144011441114421144311444114451144611447114481144911450114511145211453114541145511456114571145811459114601146111462114631146411465114661146711468114691147011471114721147311474114751147611477114781147911480114811148211483114841148511486114871148811489114901149111492114931149411495114961149711498114991150011501115021150311504115051150611507115081150911510115111151211513115141151511516115171151811519115201152111522115231152411525115261152711528115291153011531115321153311534115351153611537115381153911540115411154211543115441154511546115471154811549115501155111552115531155411555115561155711558115591156011561115621156311564115651156611567115681156911570115711157211573115741157511576115771157811579115801158111582115831158411585115861158711588115891159011591115921159311594115951159611597115981159911600116011160211603116041160511606116071160811609116101161111612116131161411615116161161711618116191162011621116221162311624116251162611627116281162911630116311163211633116341163511636116371163811639116401164111642116431164411645116461164711648116491165011651116521165311654116551165611657116581165911660116611166211663116641166511666116671166811669116701167111672116731167411675116761167711678116791168011681116821168311684116851168611687116881168911690116911169211693116941169511696116971169811699117001170111702117031170411705117061170711708117091171011711117121171311714117151171611717117181171911720117211172211723117241172511726117271172811729117301173111732117331173411735117361173711738117391174011741117421174311744117451174611747117481174911750117511175211753117541175511756117571175811759117601176111762117631176411765117661176711768117691177011771117721177311774117751177611777117781177911780117811178211783117841178511786117871178811789117901179111792117931179411795117961179711798117991180011801118021180311804118051180611807118081180911810118111181211813118141181511816118171181811819118201182111822118231182411825118261182711828118291183011831118321183311834118351183611837118381183911840118411184211843118441184511846118471184811849118501185111852118531185411855118561185711858118591186011861118621186311864118651186611867118681186911870118711187211873118741187511876118771187811879118801188111882118831188411885118861188711888118891189011891118921189311894118951189611897118981189911900119011190211903119041190511906119071190811909119101191111912119131191411915119161191711918119191192011921119221192311924119251192611927119281192911930119311193211933119341193511936119371193811939119401194111942119431194411945119461194711948119491195011951119521195311954119551195611957119581195911960119611196211963119641196511966119671196811969119701197111972119731197411975119761197711978119791198011981119821198311984119851198611987119881198911990119911199211993119941199511996119971199811999120001200112002120031200412005120061200712008120091201012011120121201312014120151201612017120181201912020120211202212023120241202512026120271202812029120301203112032120331203412035120361203712038120391204012041120421204312044120451204612047120481204912050120511205212053120541205512056120571205812059120601206112062120631206412065120661206712068120691207012071120721207312074120751207612077120781207912080120811208212083120841208512086120871208812089120901209112092120931209412095120961209712098120991210012101121021210312104121051210612107121081210912110121111211212113121141211512116121171211812119121201212112122121231212412125121261212712128121291213012131121321213312134121351213612137121381213912140121411214212143121441214512146121471214812149121501215112152121531215412155121561215712158121591216012161121621216312164121651216612167121681216912170121711217212173121741217512176121771217812179121801218112182121831218412185121861218712188121891219012191121921219312194121951219612197121981219912200122011220212203122041220512206122071220812209122101221112212122131221412215122161221712218122191222012221122221222312224122251222612227122281222912230122311223212233122341223512236122371223812239122401224112242122431224412245122461224712248122491225012251122521225312254122551225612257122581225912260122611226212263122641226512266122671226812269122701227112272122731227412275122761227712278122791228012281122821228312284122851228612287122881228912290122911229212293122941229512296122971229812299123001230112302123031230412305123061230712308123091231012311123121231312314123151231612317123181231912320123211232212323123241232512326123271232812329123301233112332123331233412335123361233712338123391234012341123421234312344123451234612347123481234912350123511235212353123541235512356123571235812359123601236112362123631236412365123661236712368123691237012371123721237312374123751237612377123781237912380123811238212383123841238512386123871238812389123901239112392123931239412395123961239712398123991240012401124021240312404124051240612407124081240912410124111241212413124141241512416124171241812419124201242112422124231242412425124261242712428124291243012431124321243312434124351243612437124381243912440124411244212443124441244512446124471244812449124501245112452124531245412455124561245712458124591246012461124621246312464124651246612467124681246912470124711247212473124741247512476124771247812479124801248112482124831248412485124861248712488124891249012491124921249312494124951249612497124981249912500125011250212503125041250512506125071250812509125101251112512125131251412515125161251712518125191252012521125221252312524125251252612527125281252912530125311253212533125341253512536125371253812539125401254112542125431254412545125461254712548125491255012551125521255312554125551255612557125581255912560125611256212563125641256512566125671256812569125701257112572125731257412575125761257712578125791258012581125821258312584125851258612587125881258912590125911259212593125941259512596125971259812599126001260112602126031260412605126061260712608126091261012611126121261312614126151261612617126181261912620126211262212623126241262512626/** * * Tau Prolog. A Prolog interpreter in JavaScript. * * Copyright (C) 2017 - 2019 José Antonio Riaza Valverde * * Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: * * 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. * * 2. 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. * * 3. 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 HOLDER 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. * **/
(function() { // VERSION var version = { major: 0, minor: 3, patch: 2, status: "beta" };
// IO FILE SYSTEM // Virtual file function TauFile(name, type, parent, text) { text = text === undefined ? "" : text; this.name = name; this.type = type; this.parent = parent; this.text = text; this.created = Date.now() / 1000; this.modified = this.created; }
TauFile.prototype.get = function(length, position) { if(position === this.text.length) { return "end_of_stream"; } else if(position > this.text.length) { return "end_of_stream"; } else { return this.text.substring(position, position+length); } };
TauFile.prototype.eof = function(position) { return position === this.text.length; };
TauFile.prototype.put = function(text, position) { if(position === "end_of_stream") { this.text += text; return true; } else if(position === "past_end_of_stream") { return null; } else { this.text = this.text.substring(0, position) + text + this.text.substring(position+text.length); return true; } };
TauFile.prototype.get_byte = function(position) { if(position === "end_of_stream") return -1; var index = Math.floor(position/2); if(this.text.length <= index) return -1; var code = codePointAt(this.text[Math.floor(position/2)], 0); if(position % 2 === 0) return code & 0xff; else return code / 256 >>> 0; };
TauFile.prototype.put_byte = function(byte, position) { var index = position === "end_of_stream" ? this.text.length : Math.floor(position/2); if(this.text.length < index) return null; var code = this.text.length === index ? -1 : codePointAt(this.text[Math.floor(position/2)], 0); if(position % 2 === 0) { code = code / 256 >>> 0; code = ((code & 0xff) << 8) | (byte & 0xff); } else { code = code & 0xff; code = ((byte & 0xff) << 8) | (code & 0xff); } if(this.text.length === index) this.text += fromCodePoint(code); else this.text = this.text.substring(0, index) + fromCodePoint(code) + this.text.substring(index+1); return true; };
TauFile.prototype.flush = function() { return true; };
TauFile.prototype.close = function() { this.modified = Date.now() / 1000; return true; };
TauFile.prototype.size = function() { return this.text.length; };
// Virtual directory function TauDirectory(name, parent) { this.name = name; this.parent = parent; this.files = {}; this.length = 0; this.created = Date.now() / 1000; this.modified = this.created; }
TauDirectory.prototype.lookup = function(file) { if(this.files.hasOwnProperty(file)) return this.files[file]; return null; };
TauDirectory.prototype.push = function(name, file) { if(!this.files.hasOwnProperty(name)) this.length++; this.files[name] = file; this.modified = Date.now() / 1000; };
TauDirectory.prototype.remove = function(name) { if(this.files.hasOwnProperty(name)) { this.length--; delete this.files[name]; this.modified = Date.now() / 1000; } };
TauDirectory.prototype.empty = function() { return this.length === 0; };
TauDirectory.prototype.size = function() { return 4096; };
// Virtual file system for browser tau_file_system = { // Current files files: new TauDirectory("/", "/", null), // Open file open: function(path, type, mode) { var dirs = path.replace(/\/$/, "").split("/"); var dir = tau_file_system.files; var name = dirs[dirs.length-1]; for(var i = 1; i < dirs.length-1; i++) { dir = dir.lookup(dirs[i]); if(!pl.type.is_directory(dir)) return null; } var file = dir.lookup(name); if(file === null) { if(mode === "read") return null; file = new TauFile(name, type, dir); dir.push(name, file); } else if(!pl.type.is_file(file)) { return null; } if(mode === "write") file.text = ""; return file; }, // Get item get: function(path) { var dirs = path.replace(/\/$/, "").split("/"); var file = tau_file_system.files; for(var i = 1; i < dirs.length; i++) if(pl.type.is_directory(file)) file = file.lookup(dirs[i]); else return null; return file; } };
// User input for browser tau_user_input = { buffer: "", get: function( length, _ ) { var text; while( tau_user_input.buffer.length < length ) { text = window.prompt(); if( text.length === 0 ) return "end_of_stream"; if( text ) { tau_user_input.buffer += text; } } text = tau_user_input.buffer.substr( 0, length ); tau_user_input.buffer = tau_user_input.buffer.substr( length ); return text; }, eof: function(_) { return false; } };
// User output for browser tau_user_output = { put: function( text, _ ) { console.log( text ); return true; }, flush: function() { return true; } };
// User error for browser tau_user_error = { put: function( text, _ ) { (console.error || console.log)( text ); return true; }, flush: function() { return true; } };
// Virtual file system for Node.js nodejs_file_system = { // Open file open: function( path, type, mode ) { var fd, fs = require('fs'); if( mode === "read" && !fs.existsSync( path ) ) return null; try { fd = fs.openSync( path, mode[0] ); } catch(ex) { return false; } return { get: function( length, position ) { var buffer = new Buffer( length ); fs.readSync( fd, buffer, 0, length, position ); var end_of_file = true; var text = buffer.toString(); for(var i = 0; i < length && end_of_file; i++) end_of_file = text[i] === "\u0000"; return end_of_file ? "end_of_stream" : buffer.toString(); }, eof: function(position) { var stats = fs.statSync(path) return position === stats["size"]; }, put: function( text, position ) { var buffer = Buffer.from( text ); if( position === "end_of_stream" ) fs.writeSync( fd, buffer ); else if( position === "past_end_of_stream" ) return null; else fs.writeSync( fd, buffer, 0, buffer.length, position ); return true; }, get_byte: function( position ) { try { var buffer = Buffer.alloc(1); var bytesRead = fs.readSync(fd, buffer, 0, 1, position); //var _text = buffer.toString("utf8", 0, bytesRead); var end_of_file = bytesRead < 1; return end_of_file ? "end_of_stream" : buffer.readUInt8(0); } catch(ex) { return "end_of_stream"; } }, put_byte: function(byte, position) { var buffer = Buffer.from([byte]); if(position === "end_of_stream") fs.writeSync(fd, buffer); else if(position === "past_end_of_stream") return null; else fs.writeSync(fd, buffer, 0, buffer.length, position); return true; }, flush: function() { return true; }, close: function() { fs.closeSync( fd ); return true; } }; } };
// User input for Node.js nodejs_user_input = { buffer: "", get: function( length, _ ) { var text; var readlineSync = require('readline-sync'); while( nodejs_user_input.buffer.length < length ) nodejs_user_input.buffer += readlineSync.question("", {keepWhitespace: true}) + "\n"; text = nodejs_user_input.buffer.substr( 0, length ); nodejs_user_input.buffer = nodejs_user_input.buffer.substr( length ); return text; }, eof: function(length) { return false; } };
// User output for Node.js nodejs_user_output = { put: function( text, _ ) { process.stdout.write( text ); return true; }, flush: function() { return true; } };
// User error for Node.js nodejs_user_error = { put: function( text, _ ) { process.stderr.write( text ); return true; }, flush: function() { return true; } }; // COMPATITBILITY var indexOf; if(!Array.prototype.indexOf) { indexOf = function(array, elem) { var len = array.length; for(var i = 0; i < len; i++) { if(elem === array[i]) return i; } return -1; }; } else { indexOf = function(array, elem) { return array.indexOf(elem); }; }
var reduce = function(array, fn) { if(array.length === 0) return undefined; var elem = array[0]; var len = array.length; for(var i = 1; i < len; i++) { elem = fn(elem, array[i]); } return elem; };
var map; if(!Array.prototype.map) { map = function(array, fn) { var a = []; var len = array.length; for(var i = 0; i < len; i++) { a.push( fn(array[i]) ); } return a; }; } else { map = function(array, fn) { return array.map(fn); }; } var filter; if(!Array.prototype.filter) { filter = function(array, fn) { var a = []; var len = array.length; for(var i = 0; i < len; i++) { if(fn(array[i])) a.push( array[i] ); } return a; }; } else { filter = function(array, fn) { return array.filter(fn); }; } var codePointAt; if(!String.prototype.codePointAt) { codePointAt = function(str, i) { return str.charCodeAt(i); }; } else { codePointAt = function(str, i) { return str.codePointAt(i); }; } var fromCodePoint; if(!String.fromCodePoint) { fromCodePoint = function() { return String.fromCharCode.apply(null, arguments); }; } else { fromCodePoint = function() { return String.fromCodePoint.apply(null, arguments); }; }
var stringLength; var regexAstralSymbols = /[\uD800-\uDBFF][\uDC00-\uDFFF]/g; if(Array.from) stringLength = function(str) { return Array.from(str).length; }; else stringLength = function(str) { return str.replace(regexAstralSymbols, '_').length; };
// PARSER
var ERROR = 0; var SUCCESS = 1;
var regex_escape = /(\\a)|(\\b)|(\\d)|(\\e)|(\\f)|(\\n)|(\\r)|(\\s)|(\\t)|(\\v)|\\x([0-9a-fA-F]+)\\|\\([0-7]+)\\|(\\\\)|(\\')|('')|(\\")|(\\`)|(\\.)|(.)/g; var escape_map = {"\\a": 7, "\\b": 8, "\\d": 127, "\\e": 27, "\\f": 12, "\\n": 10, "\\r": 13, "\\s": 32, "\\t": 9, "\\v": 11}; function escape(str) { var stack = []; var _error = false; str.replace(regex_escape, function(match, a, b, d, e, f, n, r, s, t, v, hex, octal, back, single, dsingle, double, backquote, error, char) { switch(true) { case hex !== undefined: stack.push( parseInt(hex, 16) ); return ""; case octal !== undefined: stack.push( parseInt(octal, 8) ); return ""; case back !== undefined: case single !== undefined: case dsingle !== undefined: case double !== undefined: case backquote !== undefined: stack.push( codePointAt(match.substr(1),0) ); return ""; case char !== undefined: stack.push( codePointAt(char,0) ); return ""; case error !== undefined: _error = true; default: stack.push(escape_map[match]); return ""; } }); if(_error) return null; return stack; }
// Escape atoms function escapeAtom(str, quote) { var atom = ''; if( str === "\\" ) return null; if( str.length < 2 ) return str; try { str = str.replace(/((?:\\\\)+)|\\([0-7]+)\\/g, function(match, g1, g2) { return g1 || fromCodePoint(parseInt(g2, 8)); }); str = str.replace(/((?:\\\\)+)|\\x([0-9a-fA-F]+)\\/g, function(match, g1, g2) { return g1 || fromCodePoint(parseInt(g2, 16)); }); str = str.replace(/((?:\\\\)+)|\\u([0-9a-fA-F]{4})/g, function(match, g1, g2) { return g1 || fromCodePoint(parseInt(g2, 16)); }); } catch(error) { return null; } for( var i = 0; i < str.length; i++) { var a = str.charAt(i); var b = str.charAt(i+1); if( a === quote && b === quote ) { i++; atom += quote; } else if( a === '\\' ) { if( ['a','b','f','n','r','t','v',"'",'"','\\','\a','\b','\f','\n','\r','\t','\v'].indexOf(b) !== -1 ) { i += 1; switch( b ) { case 'a': atom += '\a'; break; case 'b': atom += '\b'; break; case 'f': atom += '\f'; break; case 'n': atom += '\n'; break; case 'r': atom += '\r'; break; case 't': atom += '\t'; break; case 'v': atom += '\v'; break; case "'": atom += "'"; break; case '"': atom += '"'; break; case '\\': atom += '\\'; break; } } else { return null; } } else { atom += a; } } return atom; } // Redo escape function redoEscape(str) { var atom = ''; for( var i = 0; i < str.length; i++) { switch( str.charAt(i) ) { case "'": atom += "\\'"; break; case '\\': atom += '\\\\'; break; //case '\a': atom += '\\a'; break; case '\b': atom += '\\b'; break; case '\f': atom += '\\f'; break; case '\n': atom += '\\n'; break; case '\r': atom += '\\r'; break; case '\t': atom += '\\t'; break; case '\v': atom += '\\v'; break; default: atom += str.charAt(i); break; } } return atom; }
// String to num function convertNum(num) { var n = num.substr(2); switch(num.substr(0,2).toLowerCase()) { case "0x": return parseInt(n, 16); case "0b": return parseInt(n, 2); case "0o": return parseInt(n, 8); case "0'": return escape(n)[0]; default: return parseFloat(num); } }
// Is graphic token function is_graphic_token(string) { return /^[#\$\&\*\+\-\.\/\:\<\=\>\?\@\^\~\\]+/.test(string); }
// Regular expressions for tokens var rules = { whitespace: /^\s*(?:(?:%.*)|(?:\/\*(?:\n|\r|.)*?(?:\*\/|$))|(?:\s+))\s*/, variable: /^(?:[A-Z_][a-zA-Z0-9_]*)/, atom: /^(\!|,|;|[a-z][0-9a-zA-Z_]*|[#\$\&\*\+\-\.\/\:\<\=\>\?\@\^\~\\]+|'(?:(?:'')|(?:\\\\)|(?:\\')|[^'])*')/, number: /^(?:0o[0-7]+|0x[0-9a-fA-F]+|0b[01]+|0'(?:''|\\[abdefnrstv\\'"`]|\\x?\d+\\|[^\\])|\d+(?:\.\d+(?:[eE][+-]?\d+)?)?)/, string: /^(?:"([^"]|""|\\")*"|`([^`]|``|\\`)*`)/, l_brace: /^(?:\[)/, r_brace: /^(?:\])/, l_bracket: /^(?:\{)/, r_bracket: /^(?:\})/, bar: /^(?:\|)/, l_paren: /^(?:\()/, r_paren: /^(?:\))/ };
// Replace chars of char_conversion session function replace( thread, text ) { if( thread.get_flag( "char_conversion" ).id === "on" ) { return text.replace(/./g, function(char) { return thread.get_char_conversion( char ); }); } return text; }
// Tokenize strings function Tokenizer(thread) { this.thread = thread; this.text = ""; // Current text to be analized this.tokens = []; // Consumed tokens }
Tokenizer.prototype.set_last_tokens = function(tokens) { return this.tokens = tokens; };
Tokenizer.prototype.new_text = function(text) { this.text = text; this.tokens = []; };
Tokenizer.prototype.get_tokens = function(init) { var text; var len = 0; // Total length respect to text var line = 0; var start = 0; var tokens = []; var last_is_blank;
if(init) { var token = this.tokens[init-1]; len = token.len; text = replace( this.thread, this.text.substr(token.len) ); line = token.line; start = token.start; } else text = this.text;
// If there is nothing to be analized, return null if(/^\s*$/.test(text)) return null;
while(text !== "") { var matches = []; last_is_blank = false;
if(/^\n/.exec(text) !== null) { line++; start = 0; len++; text = text.replace(/\n/, ""); last_is_blank = true; continue; }
for(var rule in rules) { if(rules.hasOwnProperty(rule)) { var matchs = rules[rule].exec( text ); if(matchs) { matches.push({ value: matchs[0], name: rule, matches: matchs }); } } }
// Lexical error if(!matches.length) return this.set_last_tokens( [{ value: text, matches: [], name: "lexical", line: line, start: start }] );
var token = reduce( matches, function(a, b) { return a.value.length >= b.value.length ? a : b; } );
token.start = start; token.line = line;
text = text.replace(token.value, ""); start += token.value.length; len += token.value.length;
var nl = (token.value.match(/\n/g) || []).length; line += nl; if(nl > 0) start = token.value.length - token.value.lastIndexOf("\n") - 1; token.line_count = line; token.line_position = start;
switch(token.name) { case "atom": token.raw = token.value; if(token.value.charAt(0) === "'") { token.value = escapeAtom( token.value.substring(1, token.value.length - 1), "'" ); if( token.value === null ) { token.name = "lexical"; token.value = token.raw; token.error = "unknown_escape_sequence"; } } break; case "number": var substr = token.value.substring(0,2); token.raw = token.value; token.float = substr !== "0x" && substr !== "0'" && token.value.match(/[.eE]/) !== null; token.value = convertNum( token.value ); token.blank = last_is_blank; if(!token.float && pl.flag.bounded.value.indicator === "true/0" && token.value > pl.flag.max_integer.value.value) { token.name = "lexical"; token.value = token.raw; token.error = "int_overflow"; } break; case "string": var del = token.value.charAt(0); token.raw = token.value; token.value = escapeAtom( token.value.substring(1, token.value.length - 1), del ); if( token.value === null ) { token.name = "lexical"; token.value = token.raw; token.error = "unknown_escape_sequence" } break; case "whitespace": var last = tokens[tokens.length-1]; if(last) last.space = true; last_is_blank = true; continue; case "r_bracket": if( tokens.length > 0 && tokens[tokens.length-1].name === "l_bracket" ) { token = tokens.pop(); token.name = "atom"; token.value = "{}"; token.raw = "{}"; token.space = false; } break; case "r_brace": if( tokens.length > 0 && tokens[tokens.length-1].name === "l_brace" ) { token = tokens.pop(); token.name = "atom"; token.value = "[]"; token.raw = "[]"; token.space = false; } break; } token.len = len; tokens.push( token ); last_is_blank = false; }
var t = this.set_last_tokens( tokens ); return t.length === 0 ? null : t; };
// Parse an expression function parseExpr(thread, tokens, start, priority, toplevel) { if(!tokens[start]) return {type: ERROR, value: pl.error.syntax(tokens[start-1], "expression expected", true)}; var error;
if(priority === "0") { var token = tokens[start]; switch(token.name) { case "number": return {type: SUCCESS, len: start+1, value: new pl.type.Num(token.value, token.float)}; case "variable": return {type: SUCCESS, len: start+1, value: new pl.type.Var(token.value)}; case "string": var str; switch( thread.get_flag( "double_quotes" ).id ) { case "atom":; str = new Term( token.value, [] ); break; case "codes": str = new Term( "[]", [] ); for(var i = token.value.length-1; i >= 0; i-- ) str = new Term( ".", [new pl.type.Num( codePointAt(token.value,i), false ), str] ); break; case "chars": str = new Term( "[]", [] ); for(var i = token.value.length-1; i >= 0; i-- ) str = new Term( ".", [new pl.type.Term( token.value.charAt(i), [] ), str] ); break; } return {type: SUCCESS, len: start+1, value: str}; case "l_paren": var expr = parseExpr(thread, tokens, start+1, thread.__get_max_priority(), true); if(expr.type !== SUCCESS) return expr; if(tokens[expr.len] && tokens[expr.len].name === "r_paren") { expr.len++; return expr; } return {type: ERROR, derived: true, value: pl.error.syntax(tokens[expr.len] ? tokens[expr.len] : tokens[expr.len-1], ") or operator expected", !tokens[expr.len])} case "l_bracket": var expr = parseExpr(thread, tokens, start+1, thread.__get_max_priority(), true); if(expr.type !== SUCCESS) return expr; if(tokens[expr.len] && tokens[expr.len].name === "r_bracket") { expr.len++; expr.value = new Term( "{}", [expr.value] ); return expr; } return {type: ERROR, derived: true, value: pl.error.syntax(tokens[expr.len] ? tokens[expr.len] : tokens[expr.len-1], "} or operator expected", !tokens[expr.len])} } // Compound term var result = parseTerm(thread, tokens, start, toplevel); if(result.type === SUCCESS || result.derived) return result; // List result = parseList(thread, tokens, start); if(result.type === SUCCESS || result.derived) return result; // Unexpected return {type: ERROR, derived: false, value: pl.error.syntax(tokens[start], token.error || "unexpected token")}; }
var max_priority = thread.__get_max_priority(); var next_priority = thread.__get_next_priority(priority); var aux_start = start; // Prefix operators if(tokens[start].name === "atom" && tokens[start+1] && (tokens[start].space || tokens[start+1].name !== "l_paren")) { var token = tokens[start++]; var classes = thread.__lookup_operator_classes(priority, token.value); // Associative prefix operator if(classes && classes.indexOf("fy") > -1) { var expr = parseExpr(thread, tokens, start, priority, toplevel); if(expr.type !== ERROR) { if( token.value === "-" && !token.space && pl.type.is_number( expr.value ) ) { return { value: new pl.type.Num(-expr.value.value, expr.value.is_float), len: expr.len, type: SUCCESS }; } else { return { value: new pl.type.Term(token.value, [expr.value]), len: expr.len, type: SUCCESS }; } } else { error = expr; } // Non-associative prefix operator } else if(classes && classes.indexOf("fx") > -1) { var expr = parseExpr(thread, tokens, start, next_priority, toplevel); if(expr.type !== ERROR) { return { value: new pl.type.Term(token.value, [expr.value]), len: expr.len, type: SUCCESS }; } else { error = expr; } } }
start = aux_start; var expr = parseExpr(thread, tokens, start, next_priority, toplevel); if(expr.type === SUCCESS) { start = expr.len; var token = tokens[start]; if(tokens[start] && ( tokens[start].name === "atom" && thread.__lookup_operator_classes(priority, token.value) || tokens[start].name === "bar" && thread.__lookup_operator_classes(priority, "|") ) ) { var next_priority_lt = next_priority; var next_priority_eq = priority; var classes = thread.__lookup_operator_classes(priority, token.value);
if(classes.indexOf("xf") > -1) { return { value: new pl.type.Term(token.value, [expr.value]), len: ++expr.len, type: SUCCESS }; } else if(classes.indexOf("xfx") > -1) { var expr2 = parseExpr(thread, tokens, start + 1, next_priority_lt, toplevel); if(expr2.type === SUCCESS) { return { value: new pl.type.Term(token.value, [expr.value, expr2.value]), len: expr2.len, type: SUCCESS }; } else { expr2.derived = true; return expr2; } } else if(classes.indexOf("xfy") > -1) { var expr2 = parseExpr(thread, tokens, start + 1, next_priority_eq, toplevel); if(expr2.type === SUCCESS) { return { value: new pl.type.Term(token.value, [expr.value, expr2.value]), len: expr2.len, type: SUCCESS }; } else { expr2.derived = true; return expr2; } } else if(expr.type !== ERROR) { while(true) { start = expr.len; var token = tokens[start]; if(token && token.name === "atom" && thread.__lookup_operator_classes(priority, token.value)) { var classes = thread.__lookup_operator_classes(priority, token.value); if( classes.indexOf("yf") > -1 ) { expr = { value: new pl.type.Term(token.value, [expr.value]), len: ++start, type: SUCCESS }; } else if( classes.indexOf("yfx") > -1 ) { var expr2 = parseExpr(thread, tokens, ++start, next_priority_lt, toplevel); if(expr2.type === ERROR) { expr2.derived = true; return expr2; } start = expr2.len; expr = { value: new pl.type.Term(token.value, [expr.value, expr2.value]), len: start, type: SUCCESS }; } else { break; } } else { break; } } } } else { error = {type: ERROR, value: pl.error.syntax(tokens[expr.len-1], "operator expected")}; } return expr; } return expr; }
// Parse a compound term function parseTerm(thread, tokens, start, toplevel) { if(!tokens[start] || (tokens[start].name === "atom" && tokens[start].raw === "." && !toplevel && (tokens[start].space || !tokens[start+1] || tokens[start+1].name !== "l_paren"))) return {type: ERROR, derived: false, value: pl.error.syntax(tokens[start-1], "unfounded token")}; var atom = tokens[start]; var exprs = []; if(tokens[start].name === "atom" && tokens[start].raw !== ",") { start++; if(tokens[start-1].space) return {type: SUCCESS, len: start, value: new pl.type.Term(atom.value, exprs)}; if(tokens[start] && tokens[start].name === "l_paren") { if(tokens[start+1] && tokens[start+1].name === "r_paren") return {type: ERROR, derived: true, value: pl.error.syntax(tokens[start+1], "argument expected")}; var expr = parseExpr(thread, tokens, ++start, "999", true); if(expr.type === ERROR) { if( expr.derived ) return expr; else return {type: ERROR, derived: true, value: pl.error.syntax(tokens[start] ? tokens[start] : tokens[start-1], "argument expected", !tokens[start])}; } exprs.push(expr.value); start = expr.len; while(tokens[start] && tokens[start].name === "atom" && tokens[start].value === ",") { expr = parseExpr(thread, tokens, start+1, "999", true); if(expr.type === ERROR) { if( expr.derived ) return expr; else return {type: ERROR, derived: true, value: pl.error.syntax(tokens[start+1] ? tokens[start+1] : tokens[start], "argument expected", !tokens[start+1])}; } exprs.push(expr.value); start = expr.len; } if(tokens[start] && tokens[start].name === "r_paren") start++; else return {type: ERROR, derived: true, value: pl.error.syntax(tokens[start] ? tokens[start] : tokens[start-1], ", or ) expected", !tokens[start])}; } return {type: SUCCESS, len: start, value: new pl.type.Term(atom.value, exprs)}; } return {type: ERROR, derived: false, value: pl.error.syntax(tokens[start], "term expected")}; }
// Parse a list function parseList(thread, tokens, start) { if(!tokens[start]) return {type: ERROR, derived: false, value: pl.error.syntax(tokens[start-1], "[ expected")}; if(tokens[start] && tokens[start].name === "l_brace") { var expr = parseExpr(thread, tokens, ++start, "999", true); var exprs = [expr.value]; var cons = undefined;
if(expr.type === ERROR) { if(tokens[start] && tokens[start].name === "r_brace") { return {type: SUCCESS, len: start+1, value: new pl.type.Term("[]", [])}; } return {type: ERROR, derived: true, value: pl.error.syntax(tokens[start], "] expected")}; } start = expr.len;
while(tokens[start] && tokens[start].name === "atom" && tokens[start].value === ",") { expr = parseExpr(thread, tokens, start+1, "999", true); if(expr.type === ERROR) { if( expr.derived ) return expr; else return {type: ERROR, derived: true, value: pl.error.syntax(tokens[start+1] ? tokens[start+1] : tokens[start], "argument expected", !tokens[start+1])}; } exprs.push(expr.value); start = expr.len; } var bar = false if(tokens[start] && tokens[start].name === "bar") { bar = true; expr = parseExpr(thread, tokens, start+1, "999", true); if(expr.type === ERROR) { if( expr.derived ) return expr; else return {type: ERROR, derived: true, value: pl.error.syntax(tokens[start+1] ? tokens[start+1] : tokens[start], "argument expected", !tokens[start+1])}; } cons = expr.value; start = expr.len; } if(tokens[start] && tokens[start].name === "r_brace") return {type: SUCCESS, len: start+1, value: arrayToList(exprs, cons) }; else return {type: ERROR, derived: true, value: pl.error.syntax(tokens[start] ? tokens[start] : tokens[start-1], bar ? "] expected" : ", or | or ] expected", !tokens[start])}; } return {type: ERROR, derived: false, value: pl.error.syntax(tokens[start], "list expected")}; }
// Parse a rule function parseRule(thread, tokens, start) { var line = tokens[start].line; var expr = parseExpr(thread, tokens, start, thread.__get_max_priority(), false); var rule = null; var obj; if(expr.type !== ERROR) { start = expr.len; if(tokens[start] && tokens[start].name === "atom" && tokens[start].raw === ".") { start++; if( pl.type.is_term(expr.value) ) { if(expr.value.indicator === ":-/2") { rule = new pl.type.Rule(expr.value.args[0], body_conversion(expr.value.args[1])); obj = { value: rule, len: start, type: SUCCESS }; } else if(expr.value.indicator === "-->/2") { rule = new pl.type.Rule(expr.value.args[0], body_conversion(expr.value.args[1])); rule = rule_to_dcg(rule, thread); rule.body = body_conversion(rule.body); if(!pl.type.is_rule(rule)) return { value: rule, len: start, type: ERROR }; obj = { value: rule, len: start, type: pl.type.is_rule( rule ) ? SUCCESS : ERROR }; } else { rule = new pl.type.Rule(expr.value, null); obj = { value: rule, len: start, type: SUCCESS }; } if( rule ) { var singleton = rule.singleton_variables(); if( singleton.length > 0 ) thread.throw_warning( pl.warning.singleton( singleton, rule.head.indicator, line ) ); } return obj; } else { return { type: ERROR, value: pl.error.syntax(tokens[start], "callable expected") }; } } else { return { type: ERROR, value: pl.error.syntax(tokens[start] ? tokens[start] : tokens[start-1], ". or operator expected") }; } } return expr; }
// Parse a program function parseProgram(thread, string, options) { var opts = {}; options = options ? options : {}; opts.success = options.success ? options.success : function(){}; opts.error = options.error ? options.error : function(){}; opts.from = options.from ? options.from : "$tau-js"; opts.reconsult = options.reconsult !== undefined ? options.reconsult : true; opts.reconsulted = options.reconsulted === undefined ? {} : options.reconsulted; opts.context_module = options.context_module === undefined ? "user" : options.context_module; opts.initialization = options.initialization === undefined ? [] : options.initialization; opts.current_token = options.current_token === undefined ? 0 : options.current_token; opts.tokenizer = options.tokenizer === undefined ? null : options.tokenizer; opts.tokens = options.tokens === undefined ? null : options.tokens; opts.string = string; opts.term_expansion = false; var reconsulted = opts.reconsulted; var tokenizer = opts.tokenizer; var tokens = opts.tokens; if(tokenizer === null) { tokenizer = new Tokenizer(thread); tokenizer.new_text(string); opts.tokenizer = tokenizer; tokens = tokenizer.get_tokens(0); opts.tokens = tokens; } var n = opts.current_token; while(tokens !== null && tokens[n]) { var expr = parseRule(thread, tokens, n); opts.current_token = expr.len; if(expr.type === ERROR) { if(opts.error !== undefined) opts.error(new Term("throw", [expr.value])); return; } else { // Term expansion var context_module = opts.context_module; var term_expansion = thread.session.modules[context_module].rules["term_expansion/2"]; if(term_expansion && term_expansion.length > 0) { opts.term_expansion = true; var n_thread = new Thread(thread.session); var term = expr.value.body ? new Term(":-", [expr.value.head, expr.value.body]) : expr.value.head; thread.session.renamed_variables = {}; term = term.rename(thread.session); n_thread.query(context_module + ":term_expansion(" + term.toString({quoted: true}) + ", X)."); n_thread.answer((function(thread, opts, reconsulted, expr) { return function(answer) { if(answer && !pl.type.is_error(answer) && pl.type.is_term(answer.links['X'])) { var term = answer.links['X']; var rule = term.indicator === ":-/2" ? new Rule(term.args[0], term.args[1]) : new Rule(term, null); parseProgramExpansion(thread, opts, reconsulted, {value: rule, len: expr.len, type: expr.type}); } else { parseProgramExpansion(thread, opts, reconsulted, expr); } } })(thread, opts, reconsulted, expr)); return; } else { opts.term_expansion = false; var async = parseProgramExpansion(thread, opts, reconsulted, expr); if(async) return; n = expr.len; } } } // run goals from initialization/1 directive var callback = opts.success; var nthread = new Thread(thread.session); for(var i = opts.initialization.length-1; i > 0; i--) { var next_callback = (function(init, callback) { return function(answer) { if(answer === null) { nthread.answer(); } else if(pl.type.is_error(answer)) { opts.error(answer); } else { nthread.add_goal(init); nthread.answer(callback); } }; })(opts.initialization[i], callback); callback = next_callback; } if(opts.initialization.length > 0) { nthread.add_goal(opts.initialization[0]); nthread.answer(callback); } else { callback(); } }
function parseGoalExpansion(thread, options, expr) { var n_thread = new Thread( thread.session ); n_thread.__goal_expansion = true; var varterm = thread.next_free_variable(); var varhead = thread.next_free_variable(); var goal = varhead + " = " + expr.value.head + ", goal_expansion(" + expr.value.body.toString({ quoted: true }) + ", " + varterm.toString({ quoted: true }) + ")."; n_thread.query(goal); n_thread.answer(function(answer) { if(answer && !pl.type.is_error(answer) && answer.links[varterm]) { expr.value.head = answer.links[varhead]; expr.value.body = body_conversion(answer.links[varterm]); parseGoalExpansion(thread, options, expr); } else { thread.add_rule(expr.value, options); parseProgram(thread, options.string, options); } }); }
function parseQueryExpansion(thread, term, options) { var n_thread = new Thread(thread.session); n_thread.__goal_expansion = true; var varterm = thread.next_free_variable(); var goal = "goal_expansion(" + term.toString({ quoted: true }) + ", " + varterm.toString({ quoted: true }) + ")."; n_thread.query(goal); var variables = n_thread.head_point().substitution.domain(); n_thread.answer(function(answer) { if(answer && !pl.type.is_error(answer) && answer.links[varterm]) { for(var i = 0; i < variables.length; i++) { if(variables[i] !== varterm.id && answer.links[variables[i]]) { var subs = new Substitution(); subs.links[answer.links[variables[i]]] = variables[i]; answer.links[varterm] = answer.links[varterm].apply( subs ); } } parseQueryExpansion(thread, body_conversion(answer.links[varterm]), options); } else { thread.add_goal(term); options.success(term); parseQuery(thread, options.string, options); } }); }
function parseProgramExpansion(thread, options, reconsulted, expr) { var async = options.term_expansion === true; if(expr.value.body === null && expr.value.head.indicator === "?-/1") { async = true; var n_thread = new Thread(thread.session); n_thread.add_goal(expr.value.head.args[0]); n_thread.answer(function(answer) { if(pl.type.is_error(answer)) { thread.throw_warning(answer.args[0]); } else if(answer === false || answer === null) { thread.throw_warning(pl.warning.failed_goal(expr.value.head.args[0], expr.len)); } parseProgram(thread, options.string, options); }); } else if(expr.value.body === null && expr.value.head.indicator === ":-/1") { var result = thread.run_directive(expr.value.head.args[0], options); async = async || (result === true); if(async) parseProgram(thread, options.string, options); } else { var context_module = options.context_module; var indicator = expr.value.head.indicator; if(expr.value.head.indicator === ":/2") { context_module = expr.value.head.args[0].id; indicator = expr.value.head.args[1].indicator; } if(!reconsulted.hasOwnProperty(context_module)) reconsulted[context_module] = {}; if(options.reconsult !== false && reconsulted[context_module][indicator] !== true && !thread.is_multifile_predicate(indicator)) { var get_module = thread.session.modules[context_module]; if(context_module !== "system" && get_module && get_module.rules[indicator]) get_module.rules[indicator] = filter(get_module.rules[indicator], function(rule) { return rule.dynamic; }); reconsulted[context_module][indicator] = true; } var goal_expansion = thread.session.modules.user.rules["goal_expansion/2"]; if(expr.value.body !== null && goal_expansion && goal_expansion.length > 0) { async = true; thread.session.renamed_variables = {}; var origin = { head: function() { return expr.value.head; }, term: function() { return expr.value.body; }, set: function(h, p){ expr.value.head = h; expr.value.body = p; } }; parseGoalExpansion(thread, options, expr, body_conversion(expr.value.body), origin.set, origin); } else { thread.add_rule(expr.value, options); if(async) parseProgram(thread, options.string, options); } } return async; } // Parse a query function parseQuery(thread, string, options) { var opts = {}; var callback = typeof options === "function" ? options : function(){}; options = options === undefined || typeof options === "function" ? {} : options; opts.success = options.success === undefined ? callback : options.success; opts.error = options.error === undefined ? callback : options.error; opts.tokenizer = options.tokenizer === undefined ? null : options.tokenizer; opts.current_token = options.current_token === undefined ? 0 : options.current_token; opts.string = string; var tokenizer = opts.tokenizer; var n = opts.current_token; if(tokenizer === null) { tokenizer = new Tokenizer(thread); opts.tokenizer = tokenizer; tokenizer.new_text(string); } do { var tokens = tokenizer.get_tokens(n); if(tokens === null) break; var expr = parseExpr(thread, tokens, 0, thread.__get_max_priority(), false); if(expr.type !== ERROR) { var expr_position = expr.len; n = expr.len + 1; opts.current_token = n; if(tokens[expr_position] && tokens[expr_position].name === "atom" && tokens[expr_position].raw === ".") { expr.value = body_conversion(expr.value); // Goal expansion var goal_expansion = thread.session.modules.user.rules["goal_expansion/2"]; if(!thread.__goal_expansion && goal_expansion && goal_expansion.length > 0) { parseQueryExpansion(thread, expr.value, opts); return; } else { thread.add_goal(expr.value); opts.success(expr.value); } } else { var token = tokens[expr_position]; opts.error( new Term("throw", [ pl.error.syntax( token ? token : tokens[expr_position-1], token && token.error ? token.error : ". or operator expected", !token ) ]) ); return; } } else { opts.error(new Term("throw", [expr.value])); return; } } while(true); }
// UTILS
// Rule to DCG function rule_to_dcg(rule, thread) { rule = rule.rename( thread ); var begin = thread.next_free_variable(); var dcg = body_to_dcg( rule.body, begin, thread ); if( dcg.error ) return dcg.value; rule.body = dcg.value; // push-back lists if(rule.head.indicator === ",/2") { var terminals = rule.head.args[1]; rule.head = rule.head.args[0]; var last = thread.next_free_variable(); var pointer = terminals; if(!pl.type.is_list(pointer)) { return pl.error.type("list", pointer, "DCG/0"); } if(pointer.indicator === "[]/0") { terminals = dcg.variable; } else { while(pointer.indicator === "./2" && pl.type.is_list(pointer) && pointer.args[1].indicator !== "[]/0") { pointer = pointer.args[1]; } if(pl.type.is_variable(pointer)) return pl.error.instantiation("DCG/0"); else if(!pl.type.is_list(pointer)) return pl.error.type("list", terminals, "DCG/0"); pointer.args[1] = dcg.variable; } rule.body = new Term(",", [rule.body, new Term("=", [last, terminals])]); rule.head = new Term(rule.head.id, rule.head.args.concat([begin, last])); } else { // replace first assignment var first_assign = rule.body; if(pl.type.is_term(first_assign) && first_assign.indicator === ",/2") first_assign = first_assign.args[0]; if(pl.type.is_term(first_assign) && first_assign.indicator === "=/2" && pl.type.is_variable(first_assign.args[0]) && first_assign.args[0] === begin) { begin = first_assign.args[1]; rule.body = rule.body.replace(null); } // add first and last variables to the head if(rule.head.indicator === ":/2") rule.head = new Term(":", [ new Term(rule.head.args[0].id, []), new Term(rule.head.args[1].id, rule.head.args[1].args.concat([begin, dcg.variable])) ]); else rule.head = new Term(rule.head.id, rule.head.args.concat([begin, dcg.variable])); } return rule; }
// Body to DCG function body_to_dcg(expr, last, thread) { var free; if( pl.type.is_term( expr ) && expr.indicator === "!/0" ) { free = thread.next_free_variable(); return { value: new Term(",", [expr, new Term("=", [last, free])]), variable: free, error: false }; } else if( pl.type.is_term( expr ) && expr.indicator === ":/2" ) { var right = body_to_dcg(expr.args[1], last, thread); if( right.error ) return right; return { value: new Term(":", [expr.args[0], right.value]), variable: right.variable, error: false }; } else if( pl.type.is_term( expr ) && expr.indicator === "\\+/1" ) { var left = body_to_dcg(expr.args[0], last, thread); if( left.error ) return left; return { value: new Term(expr.id, [left.value]), variable: last, error: false }; } else if( pl.type.is_term( expr ) && (expr.indicator === ",/2" || expr.indicator === "->/2") ) { var left = body_to_dcg(expr.args[0], last, thread); if( left.error ) return left; var right = body_to_dcg(expr.args[1], left.variable, thread); if( right.error ) return right; return { value: new Term(expr.id, [left.value, right.value]), variable: right.variable, error: false }; } else if( pl.type.is_term( expr ) && expr.indicator === ";/2" ) { var left = body_to_dcg(expr.args[0], last, thread); if( left.error ) return left; var right = body_to_dcg(expr.args[1], last, thread); if( right.error ) return right; return { value: new Term(",", [new Term(";", [left.value, right.value]), new Term("=", [left.variable, right.variable])]), variable: right.variable, error: false }; } else if( pl.type.is_term( expr ) && expr.indicator === "{}/1" ) { free = thread.next_free_variable(); return { value: new Term(",", [expr.args[0], new Term("=", [last, free])]), variable: free, error: false }; } else if( pl.type.is_empty_list( expr ) ) { return { value: new Term("true", []), variable: last, error: false }; } else if( pl.type.is_list( expr ) ) { free = thread.next_free_variable(); var pointer = expr; var prev; while( pointer.indicator === "./2" ) { prev = pointer; pointer = pointer.args[1]; } if( pl.type.is_variable( pointer ) ) { return { value: pl.error.instantiation("DCG/0"), variable: last, error: true }; } else if( !pl.type.is_empty_list( pointer ) ) { return { value: pl.error.type("list", expr, "DCG/0"), variable: last, error: true }; } else { prev.args[1] = free; return { value: new Term("=", [last, expr]), variable: free, error: false }; } } else if( pl.type.is_callable( expr ) ) { free = thread.next_free_variable(); expr = new Term( expr.id, expr.args.concat([last,free]) ); return { value: expr, variable: free, error: false }; } else { return { value: pl.error.type( "callable", expr, "DCG/0" ), variable: last, error: true }; } } // Body conversion function body_conversion( expr ) { if( pl.type.is_variable( expr ) ) return new Term( "call", [expr] ); else if( pl.type.is_term( expr ) && [",/2", ";/2", "->/2"].indexOf(expr.indicator) !== -1 ) return new Term( expr.id, [body_conversion( expr.args[0] ), body_conversion( expr.args[1] )] ); else if( pl.type.is_term(expr) && expr.indicator === ":/2" ) { var body = body_conversion(expr.args[1]); return new Term(":", [expr.args[0], body]); } return expr; } // List to Prolog list function arrayToList( array, cons ) { var list = cons ? cons : new Term( "[]", [] ); for(var i = array.length-1; i >= 0; i-- ) list = new Term( ".", [array[i], list] ); return list; }
// Array difference function difference(xs, ys) { var zs = []; for(var i = 0; i < xs.length; i++) { if(indexOf(zs, xs[i]) === -1 && indexOf(ys, xs[i]) === -1) zs.push(xs[i]); } return zs; } // Remove element from array function remove( array, element ) { for( var i = array.length - 1; i >= 0; i-- ) { if( array[i] === element ) { array.splice(i, 1); } } } // Remove duplicate elements function nub( array ) { var seen = {}; var unique = []; for( var i = 0; i < array.length; i++ ) { if( !(array[i] in seen) ) { unique.push( array[i] ); seen[array[i]] = true; } } return unique; }
// Retract a rule function retract(thread, point, indicator, rule, get_module) { if(get_module.rules[indicator]) { for(var i = 0; i < get_module.rules[indicator].length; i++) { if(get_module.rules[indicator][i] === rule) { get_module.rules[indicator].splice(i, 1); get_module.update_indices_predicate(indicator); thread.success( point ); break; } } } } // call/n function callN(n) { return function(thread, point, atom) { var closure = atom.args[0], args = atom.args.slice(1, n); var module_atom; if(pl.type.is_term(closure) && closure.indicator === ":/2") { if(!pl.type.is_atom(closure.args[0])) { thread.throw_error(pl.error.type("module", closure.args[0], atom.indicator)); return; } module_atom = closure.args[0]; closure = closure.args[1]; } if(pl.type.is_variable(closure)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_callable(closure)) { thread.throw_error(pl.error.type("callable", closure, atom.indicator)); } else { var goal = body_conversion(new Term(closure.id, closure.args.concat(args))); if(!pl.type.is_callable(goal)) { thread.throw_error(pl.error.type("callable", goal, atom.indicator)); return; } if(module_atom) goal = new Term(":", [module_atom, goal]); thread.prepend([new State(point.goal.replace(goal), point.substitution, point)]); } }; } // String to indicator function str_indicator( str ) { for( var i = str.length - 1; i >= 0; i-- ) if( str.charAt(i) === "/" ) return new Term( "/", [new Term( str.substring(0, i) ), new Num( parseInt(str.substring(i+1)), false )] ); }
// Greatest common divisor function gcd(a, b) { if(b === 0) return a; return Math.abs(gcd(b, a % b)); }
// PROLOG OBJECTS // Variables function Var( id ) { this.id = id; this.ground = false; } // Numbers function Num( value, is_float ) { this.is_float = is_float !== undefined ? is_float : Math.trunc(value) !== value; this.value = this.is_float ? value : Math.trunc(value); this.index = this.value; this.ground = true; } // Terms var term_ref = 0; function Term( id, args, ref ) { term_ref++; this.ref = ref || term_ref; this.id = id; this.args = args || []; this.indicator = id + "/" + this.args.length; this.index = this.indicator; this.ground = true; for(var i = 0; i < this.args.length; i++) { if(this.args[i].hasOwnProperty("ground") && this.args[i].ground === false) { this.ground = false; break; } } }
// Streams var stream_ref = 0; function Stream( stream, mode, alias, type, reposition, eof_action ) { this.id = stream_ref++; this.stream = stream; this.mode = mode; // "read" or "write" or "append" this.alias = alias; this.type = type !== undefined ? type : "text"; // "text" or "binary" this.reposition = reposition !== undefined ? reposition : true; // true or false this.eof_action = eof_action !== undefined ? eof_action : "eof_code"; // "error" or "eof_code" or "reset" this.position = this.mode === "append" ? "end_of_stream" : 0; this.output = this.mode === "write" || this.mode === "append"; this.input = this.mode === "read"; this.line_position = 0; this.line_count = 1; this.char_count = 0; } // Substitutions function Substitution( links, attrs ) { links = links || {}; attrs = attrs || {}; this.links = links; this.attrs = attrs; } // States function State( goal, subs, parent ) { subs = subs || new Substitution(); parent = parent || null; this.goal = goal; this.substitution = subs; this.parent = parent; } // Rules function Rule( head, body, dynamic ) { this.head = head; this.body = body; this.dynamic = dynamic ? dynamic : false; }
// Session function Session( limit ) { limit = typeof limit === "number" && limit > 0 ? limit : null; this.rename = 0; this.modules = {}; this.modules.user = new Module("user", {}, "all", { session: this, dependencies: ["system"] }); this.modules.system = pl.modules.system; this.rules = this.modules.user.rules; this.total_threads = 0; this.renamed_variables = {}; this.public_predicates = this.modules.user.public_predicates; this.multifile_predicates = this.modules.user.multifile_predicates; this.limit = limit; this.streams = { "user_input": new Stream( nodejs_flag ? nodejs_user_input : tau_user_input, "read", "user_input", "text", false, "reset" ), "user_output": new Stream( nodejs_flag ? nodejs_user_output : tau_user_output, "append", "user_output", "text", false, "reset" ), "user_error": new Stream( nodejs_flag ? nodejs_user_error : tau_user_error, "append", "user_error", "text", false, "reset" ), }; this.file_system = nodejs_flag ? nodejs_file_system : tau_file_system; this.standard_input = this.streams["user_input"]; this.standard_output = this.streams["user_output"]; this.standard_error = this.streams["user_error"]; this.current_input = this.streams["user_input"]; this.current_output = this.streams["user_output"]; this.working_directory = "/"; // only for browser this.format_success = function( state ) { return state.substitution; }; this.format_error = function( state ) { return state.goal; }; this.flag = { bounded: pl.flag.bounded.value, max_integer: pl.flag.max_integer.value, min_integer: pl.flag.min_integer.value, integer_rounding_function: pl.flag.integer_rounding_function.value, char_conversion: pl.flag.char_conversion.value, debug: pl.flag.debug.value, max_arity: pl.flag.max_arity.value, unknown: pl.flag.unknown.value, double_quotes: pl.flag.double_quotes.value, occurs_check: pl.flag.occurs_check.value, dialect: pl.flag.dialect.value, version_data: pl.flag.version_data.value, nodejs: pl.flag.nodejs.value, argv: pl.flag.argv.value }; this.__loaded_modules = []; this.__char_conversion = {}; this.__operators = { 1200: { ":-": ["fx", "xfx"], "-->": ["xfx"], "?-": ["fx"] }, 1150: { "meta_predicate": ["fx"] }, 1100: { ";": ["xfy"] }, 1050: { "->": ["xfy"] }, 1000: { ",": ["xfy"] }, 900: { "\\+": ["fy"] }, 700: { "=": ["xfx"], "\\=": ["xfx"], "==": ["xfx"], "\\==": ["xfx"], "@<": ["xfx"], "@=<": ["xfx"], "@>": ["xfx"], "@>=": ["xfx"], "=..": ["xfx"], "is": ["xfx"], "=:=": ["xfx"], "=\\=": ["xfx"], "<": ["xfx"], "=<": ["xfx"], ">": ["xfx"], ">=": ["xfx"] }, 600: { ":": ["xfy"] }, 500: { "+": ["yfx"], "-": ["yfx"], "/\\": ["yfx"], "\\/": ["yfx"] }, 400: { "*": ["yfx"], "/": ["yfx"], "//": ["yfx"], "rem": ["yfx"], "mod": ["yfx"], "<<": ["yfx"], ">>": ["yfx"], "div": ["yfx"] }, 200: { "**": ["xfx"], "^": ["xfy"], "-": ["fy"], "+": ["fy"], "\\": ["fy"] } }; this.thread = new Thread( this ); } // Threads function Thread( session ) { this.epoch = Date.now(); this.session = session; this.session.total_threads++; this.format_success = session.format_success; this.format_error = session.format_error; this.total_steps = 0; this.cpu_time = 0; this.points = []; this.debugger = false; this.debugger_states = []; this.level = new Term("top_level"); this.current_limit = this.session.limit; this.has_limit = this.session.limit !== null; this.warnings = []; this.__calls = []; this.__goal_expansion = false; this.__stacks = {}; } // Modules function Module(id, rules, exports, options) { options = options === undefined ? {} : options; options.public_predicates = options.public_predicates === undefined ? {} : options.public_predicates; options.multifile_predicates = options.multifile_predicates === undefined ? {} : options.multifile_predicates; options.meta_predicates = options.meta_predicates === undefined ? {} : options.meta_predicates; options.session = options.session === undefined ? null : options.session; options.dependencies = options.dependencies === undefined ? [] : options.dependencies; this.id = id; this.rules = rules; this.indexed_clauses = {}; this.non_indexable_clauses = {}; this.public_predicates = options.public_predicates; this.multifile_predicates = options.multifile_predicates; this.meta_predicates = options.meta_predicates; this.src_predicates = {}; this.dependencies = options.dependencies; this.exports = exports; this.is_library = options.session === null; this.modules = {}; if(options.session) { options.session.modules[id] = this; for(var i = 0; i < options.dependencies.length; i++) { var lib = options.dependencies[i]; if(!options.session.modules.hasOwnProperty(lib)) options.session.modules[lib] = pl.modules[lib]; } } else { pl.modules[id] = this; } if(exports !== "all") { for(var i = 0; i < exports.length; i++) { this.public_predicates[exports[i]] = options.public_predicates.hasOwnProperty(exports[i]) && options.public_predicates[exports[i]] === true; } } this.update_indices_clauses(); } // Check if a predicate is exported Module.prototype.exports_predicate = function(indicator) { return this.exports === "all" || indexOf(this.exports, indicator) !== -1; };
// Check if a predicate is public Module.prototype.is_public_predicate = function(indicator) { return !this.public_predicates.hasOwnProperty(indicator) || this.public_predicates[indicator] === true; }; // Check if a predicate is multifile Module.prototype.is_multifile_predicate = function( indicator ) { return this.multifile_predicates.hasOwnProperty(indicator) && this.multifile_predicates[indicator] === true; };
// Check if a predicate is a meta-predicate Module.prototype.is_meta_predicate = function( indicator ) { if(this.meta_predicates.hasOwnProperty(indicator)) return this.meta_predicates[indicator]; return null; };
// Update indices of all predicates Module.prototype.update_indices_clauses = function() { this.indexed_clauses = {}; this.non_indexable_clauses = {}; for(var indicator in this.rules) this.update_indices_predicate(indicator); };
// Update indices of a predicate Module.prototype.update_indices_predicate = function(indicator) { this.indexed_clauses[indicator] = {}; this.non_indexable_clauses[indicator] = []; if(!Array.isArray(this.rules[indicator])) return; for(var i = 0; i < this.rules[indicator].length; i++) { var clause = this.rules[indicator][i]; var index = clause.head.args.length > 0 ? clause.head.args[0].index : undefined; if(index) { if(!this.indexed_clauses.hasOwnProperty(indicator)) this.indexed_clauses[indicator] = {}; if(!this.indexed_clauses[indicator].hasOwnProperty(index)) { this.indexed_clauses[indicator][index] = []; for(var j = 0; j < this.non_indexable_clauses.length; j++) this.indexed_clauses[indicator][index].push(this.non_indexable_clauses[j]); } this.indexed_clauses[indicator][index].push(clause); } else { if(!this.non_indexable_clauses.hasOwnProperty(indicator)) this.non_indexable_clauses[indicator] = []; this.non_indexable_clauses[indicator].push(clause); for(var index in this.indexed_clauses[indicator]) this.indexed_clauses[indicator][index].push(clause); } } };
// UNIFY PROLOG OBJECTS
// Variables Var.prototype.unify = function(obj, occurs_check) { if(occurs_check && indexOf(obj.variables(), this.id) !== -1 && !pl.type.is_variable(obj)) return null; var links = {}; links[this.id] = obj; return new Substitution(links); };
// Numbers Num.prototype.unify = function(obj, occurs_check) { if(pl.type.is_number(obj) && this.value === obj.value && this.is_float === obj.is_float) return new Substitution(); return null; };
// Terms Term.prototype.unify = function(obj, occurs_check) { if(!pl.type.is_term(obj) && obj.unify !== undefined) { return obj.unify(this, occurs_check); } else if(pl.type.is_term(obj) && this.indicator === obj.indicator) { var subs = new Substitution(); for(var i = 0; i < this.args.length; i++) { var mgu = pl.unify(this.args[i].apply(subs), obj.args[i].apply(subs), occurs_check); if(mgu === null) return null; for(var x in mgu.links) subs.links[x] = mgu.links[x]; subs = subs.apply(mgu); } return subs; } return null; };
// Streams Stream.prototype.unify = function(obj, _occurs_check) { if(pl.type.is_stream(obj) && this.id === obj.id) return new Substitution(); return null; };
Stream.prototype.compare = function(obj) { if(this.id < obj.id) return -1; else if(this.id === obj.id) return 0; else return 1; };
// PROLOG OBJECTS TO STRING // Variables Var.prototype.toString = function( options ) { options = options === undefined ? {} : options; if(options.variable_names) { var pointer = options.variable_names; while(pl.type.is_term(pointer) && pointer.indicator === "./2") { var head = pointer.args[0]; if(pl.type.is_term(head) && head.indicator === "=/2" && pl.type.is_variable(head.args[1]) && head.args[1].id === this.id && pl.type.is_atom(head.args[0])) return head.args[0].id; pointer = pointer.args[1]; } } return this.id; }; // Numbers Num.prototype.toString = function( _ ) { var str = this.value.toString(); var e = str.indexOf("e"); if(e !== -1) { if(str.indexOf(".") !== -1) return str; else return str.replace("e", ".0e"); } return this.is_float && indexOf(str, ".") === -1 ? this.value + ".0" : str; }; // Terms Term.prototype.toString = function( options, priority, from ) { options = !options ? {} : options; options.quoted = options.quoted === undefined ? false: options.quoted; options.ignore_ops = options.ignore_ops === undefined ? false : options.ignore_ops; options.numbervars = options.numbervars === undefined ? false : options.numbervars; options.variable_names = options.variable_names === undefined ? false : options.variable_names; priority = priority === undefined ? {priority: 1200, class: "", indicator: ""} : priority; from = from === undefined ? "" : from; var arg_priority = {priority: 999, class: "", indicator: ""}; if( options.numbervars && this.indicator === "$VAR/1" && pl.type.is_integer( this.args[0] ) && this.args[0].value >= 0 ) { var i = this.args[0].value; var number = Math.floor( i/26 ); var letter = i % 26; return "ABCDEFGHIJKLMNOPQRSTUVWXYZ"[letter] + (number !== 0 ? number : ""); } switch( this.indicator ){ case "[]/0": case "{}/0": case "!/0": return this.id; case "{}/1": if( options.ignore_ops === false ) { return "{" + this.args[0].toString( options ) + "}"; } else { return "{}(" + this.args[0].toString( options ) + ")"; } case "./2": if( options.ignore_ops === false ) { var list = "[" + this.args[0].toString( options, arg_priority ); var pointer = this.args[1]; while( pointer.indicator === "./2" ) { list += "," + pointer.args[0].toString( options, arg_priority ); pointer = pointer.args[1]; } if( pointer.indicator !== "[]/0" ) { list += "|" + pointer.toString( options, arg_priority ); } list += "]"; return list; } default: var id = this.id; var operator = options.session ? options.session.lookup_operator( this.id, this.args.length ) : null; if( options.session === undefined || options.ignore_ops || operator === null ) { if( options.quoted && (! /^(!|[a-z][0-9a-zA-Z_]*|[#\$\&\*\+\-\.\/\:\<\=\>\?\@\^\~\\]+)$/.test( id ) && id !== "{}" && id !== "[]" || indexOf([".",",",";"], id) !== -1 || id.substring(0,2) === "/*") ) id = "'" + redoEscape(id) + "'"; if( this.args.length === 0 && is_graphic_token(this.id) && priority.indicator !== "") return "(" + id + ")"; return id + (this.args.length > 0 ? "(" + map( this.args, function(x) { return x.toString(options, arg_priority); } ).join(",") + ")" : ""); } else { var priority_op = parseInt(operator.priority); var priority_arg = parseInt(priority.priority); var cond = priority_op > priority_arg || priority_op === priority_arg && ( operator.class === "xfx" || operator.class === "xfy" && this.indicator !== priority.indicator || operator.class === "yfx" && this.indicator !== priority.indicator || this.indicator === priority.indicator && operator.class === "yfx" && from === "right" || this.indicator === priority.indicator && operator.class === "xfy" && from === "left" || this.indicator === priority.indicator && operator.class === "xf" && from === "left" || this.indicator === priority.indicator && operator.class === "fx" && from === "right"); operator.indicator = this.indicator; var lpar = cond ? "(" : ""; var rpar = cond ? ")" : ""; var space = !(is_graphic_token(this.id) || this.id === "," || this.id === ";") || operator.class.length === 2 || operator.class.length === 3 && pl.type.is_number(this.args[1]) && this.args[1].value < 0 ? " " : ""; if( this.args.length === 0 ) { return lpar + this.id + rpar; } else if( ["fy","fx"].indexOf( operator.class) !== -1 ) { return lpar + id + space + this.args[0].toString( options, operator, "right" ) + rpar; } else if( ["yf","xf"].indexOf( operator.class) !== -1 ) { return lpar + this.args[0].toString( options, operator, "left" ) + space + id + rpar; } else { return lpar + this.args[0].toString( options, operator, "left" ) + space + this.id + space + this.args[1].toString( options, operator, "right" ) + rpar; } } } };
// Streams Stream.prototype.toString = function( _ ) { return "<stream>(" + this.id + ")"; }; // Substitutions Substitution.prototype.toString = function( options ) { var str = "{"; for( var link in this.links ) { if(!this.links.hasOwnProperty(link)) continue; if( str !== "{" ) { str += ", "; } str += link + "/" + this.links[link].toString( options ); } str += "}"; return str; }; // States State.prototype.toString = function( options ) { if( this.goal === null ) { return "<" + this.substitution.toString( options ) + ">"; } else { return "<" + this.goal.toString( options ) + ", " + this.substitution.toString( options ) + ">"; } }; // Rules Rule.prototype.toString = function( options ) { if( !this.body ) { return this.head.toString( options ) + "."; } else { return this.head.toString( options, 1200, "left" ) + " :- " + this.body.toString( options, 1200, "right" ) + "."; } }; // Session Session.prototype.toString = function( options ) { var str = ""; for(var prop in this.modules) { if(this.modules.hasOwnProperty(prop) && this.modules[prop].is_library) str += ":- use_module(library(" + this.modules[prop] + ")).\n"; } str += "\n"; for(var key in this.modules.user.rules) { if(!this.modules.user.rules.hasOwnProperty(key)) continue; for(i = 0; i < this.modules.user.rules[key].length; i++) { str += this.modules.user.rules[key][i].toString(options); str += "\n"; } } return str; }; // CLONE PROLOG OBJECTS // Variables Var.prototype.clone = function() { return new Var( this.id ); }; // Numbers Num.prototype.clone = function() { return new Num( this.value, this.is_float ); }; // Terms Term.prototype.clone = function() { var term = new Term( this.id, map( this.args, function( arg ) { return arg.clone(); } ) ); if(this.definition_module) term.definition_module = this.definition_module; return term; };
// Streams Stream.prototype.clone = function() { return new Stream( this.stream, this.mode, this.alias, this.type, this.reposition, this.eof_action ); }; // Substitutions Substitution.prototype.clone = function() { var links = {}; var attrs = {}; for( var link in this.links ) { if(!this.links.hasOwnProperty(link)) continue; links[link] = this.links[link].clone(); } for( var attr in this.attrs ) { if(!this.attrs.hasOwnProperty(attrs)) continue; attrs[attr] = {}; for( var m in this.attrs[attr] ) { if(!this.attrs[attr].hasOwnProperty(m)) continue; attrs[attr][m] = this.attrs[attr][m].clone(); } } return new Substitution( links, attrs ); }; // States State.prototype.clone = function() { return new State( this.goal.clone(), this.substitution.clone(), this.parent ); }; // Rules Rule.prototype.clone = function() { return new Rule( this.head.clone(), this.body !== null ? this.body.clone() : null ); }; // COMPARE PROLOG OBJECTS // Variables Var.prototype.equals = function( obj ) { return pl.type.is_variable( obj ) && this.id === obj.id; }; // Numbers Num.prototype.equals = function( obj ) { return pl.type.is_number( obj ) && this.value === obj.value && this.is_float === obj.is_float; }; // Terms Term.prototype.equals = function( obj ) { if( !pl.type.is_term( obj ) || this.indicator !== obj.indicator ) { return false; } for( var i = 0; i < this.args.length; i++ ) { if( !this.args[i].equals( obj.args[i] ) ) { return false; } } return true; };
// Streams Stream.prototype.equals = function( obj ) { return pl.type.is_stream( obj ) && this.id === obj.id; }; // Substitutions Substitution.prototype.equals = function( obj ) { var link; if( !pl.type.is_substitution( obj ) ) { return false; } for( link in this.links ) { if(!this.links.hasOwnProperty(link)) continue; if( !obj.links[link] || !this.links[link].equals( obj.links[link] ) ) { return false; } } for( link in obj.links ) { if(!obj.links.hasOwnProperty(link)) continue; if( !this.links[link] ) { return false; } } return true; }; // States State.prototype.equals = function( obj ) { return pl.type.is_state( obj ) && this.goal.equals( obj.goal ) && this.substitution.equals( obj.substitution ) && this.parent === obj.parent; }; // Rules Rule.prototype.equals = function( obj ) { return pl.type.is_rule( obj ) && this.head.equals( obj.head ) && (this.body === null && obj.body === null || this.body !== null && this.body.equals( obj.body )); }; // RENAME VARIABLES OF PROLOG OBJECTS // Variables Var.prototype.rename = function( thread ) { return thread.get_free_variable( this ); }; // Numbers Num.prototype.rename = function( _ ) { return this; }; // Terms Term.prototype.rename = function( thread ) { // ground if(this.ground) return new Term(this.id, this.args); // list if(this.indicator === "./2") { var arr = []; var pointer = this; while(pointer.indicator === "./2" && !pointer.ground) { var app = pointer.args[0].rename(thread); arr.push(app); pointer = pointer.args[1]; } var list = pointer.rename(thread); for(var i = arr.length-1; i >= 0; i--) list = new Term(".", [arr[i], list]); return list; } // compound term var args = []; for(var i = 0; i < this.args.length; i++) { var app = this.args[i].rename(thread); args.push(app); } return new Term(this.id, args); };
// Streams Stream.prototype.rename = function( thread ) { return this; }; // Rules Rule.prototype.rename = function( thread ) { return new Rule( this.head.rename( thread ), this.body !== null ? this.body.rename( thread ) : null ); };
// CHECK IF RENAME
// Variables Var.prototype.is_rename = function(obj, links) { links = links || {}; if(!pl.type.is_variable(obj) || links.hasOwnProperty(this.id) && links[this.id] !== obj.id || links.hasOwnProperty(obj.id) && links[obj.id] !== this.id) return false; links[this.id] = obj.id; links[obj.id] = this.id; return true; }; // Numbers Num.prototype.is_rename = function(obj, _links) { return this.equals(obj); }; // Terms Term.prototype.is_rename = function(obj, links) { links = links || {}; if(!pl.type.is_term(obj) || this.indicator !== obj.indicator) return false; for(var i = 0; i < this.args.length; i++) { if(!pl.is_rename(this.args[i], obj.args[i], links)) return false; } return true; };
// Streams Stream.prototype.is_rename = function(obj, _links) { return this.equals(obj); }; // GET ID OF VARIABLES FROM PROLOG OBJECTS // Variables Var.prototype.variables = function() { return [this.id]; }; // Numbers Num.prototype.variables = function() { return []; }; // Terms Term.prototype.variables = function() { if(this.ground) return []; return [].concat.apply( [], map( this.args, function( arg ) { return arg.variables(); } ) ); };
// Streams Stream.prototype.variables = function() { return []; }; // Rules Rule.prototype.variables = function() { if( this.body === null ) { return this.head.variables(); } else { return this.head.variables().concat( this.body.variables() ); } }; // APPLY SUBSTITUTIONS TO PROLOG OBJECTS // Variables Var.prototype.apply = function( subs ) { if( subs.lookup( this.id ) ) { return subs.lookup( this.id ); } return this; }; // Numbers Num.prototype.apply = function( _ ) { return this; }; // Terms Term.prototype.apply = function( subs ) { // ground atom if(this.ground) return this; // list if(this.indicator === "./2") { var arr = []; var pointer = this; while(pointer.indicator === "./2" && !pointer.ground) { var app = pointer.args[0].apply(subs); arr.push(app); pointer = pointer.args[1]; } var list = pointer.apply(subs); for(var i = arr.length-1; i >= 0; i--) list = new Term(".", [arr[i], list]); return list; } // compound term var args = []; for(var i = 0; i < this.args.length; i++) { var app = this.args[i].apply(subs); args.push(app); } return new Term(this.id, args, this.ref); };
// Streams Stream.prototype.apply = function( _ ) { return this; }; // Rules Rule.prototype.apply = function( subs ) { return new Rule( this.head.apply( subs ), this.body !== null ? this.body.apply( subs ) : null ); }; // Substitutions Substitution.prototype.apply = function( subs ) { var link, links = {}, attr, attrs = {}, m; for( link in this.links ) { if(!this.links.hasOwnProperty(link)) continue; links[link] = this.links[link].apply(subs); } for( attr in this.attrs ) { if(!this.attrs.hasOwnProperty(attr)) continue; attrs[attr] = {}; for( m in this.attrs[attr] ) { if(!this.attrs[attr].hasOwnProperty(m)) continue; attrs[attr][m] = this.attrs[attr][m].apply(subs); } } return new Substitution( links, attrs ); }; // SELECTION FUNCTION // Select term Term.prototype.select = function() { var pointer = this; while(pl.type.is_term(pointer) && pointer.indicator === ",/2") pointer = pointer.args[0]; return pointer; }; // Replace term Term.prototype.replace = function( expr ) { if( this.indicator === ",/2" ) { if( this.args[0].indicator === ",/2" ) { return new Term( ",", [this.args[0].replace( expr ), this.args[1]] ); } else { return expr === null ? this.args[1] : new Term( ",", [expr, this.args[1]] ); } } else { return expr; } };
// Search term Term.prototype.search = function( expr ) { if(this == expr || this.ref === expr.ref) return true; for( var i = 0; i < this.args.length; i++ ) if( pl.type.is_term( this.args[i] ) && this.args[i].search( expr ) ) return true; return false; }; // PROLOG SESSIONS AND THREADS
// Push to a global stack Session.prototype.push_global_stack = function(stack, value) { return this.thread.push_global_stack(stack, value); }; Thread.prototype.push_global_stack = function(stack, value) { if(!this.__stacks.hasOwnProperty(stack)) this.__stacks[stack] = []; this.__stacks[stack].push(value); };
// Pop all from a global stack Session.prototype.flush_global_stack = function(stack, tail) { return this.thread.push_global_stack(stack, tail); }; Thread.prototype.flush_global_stack = function(stack, tail) { var list = tail || new Term("[]", []); if(this.__stacks.hasOwnProperty(stack)) { while(this.__stacks[stack].length > 0) list = new Term(".", [this.__stacks[stack].pop(), list]); delete this.__stacks[stack]; } return list; };
// Set max inferences Session.prototype.setMaxInferences = function(max) { this.limit = typeof max === "number" && max > 0 ? max : null; }; Thread.prototype.setMaxInferences = function(max) { this.session.setMaxInferences(max); this.current_limit = this.session.limit; this.has_limit = this.session.limit !== null; };
// Format answer Session.prototype.format_answer = function(answer, options) { return this.thread.format_answer(answer, options); }; Thread.prototype.format_answer = function(answer, options) { return pl.format_answer(answer, this, options); };
// Get current input Session.prototype.get_current_input = function() { return this.current_input; }; Thread.prototype.get_current_input = function() { return this.session.get_current_input(); };
// Get current output Session.prototype.get_current_output = function() { return this.current_output; }; Thread.prototype.get_current_output = function() { return this.session.get_current_output(); };
// Set current input Session.prototype.set_current_input = function( input ) { this.current_input = input; }; Thread.prototype.set_current_input = function( input ) { return this.session.set_current_input( input ); };
// Set current output Session.prototype.set_current_output = function( output ) { this.current_output = output; }; Thread.prototype.set_current_output = function( output ) { return this.session.set_current_output( output); };
// Get stream by alias Session.prototype.get_stream_by_alias = function( alias ) { return this.streams[alias]; }; Thread.prototype.get_stream_by_alias = function( alias ) { return this.session.get_stream_by_alias( alias ); };
// Open file Session.prototype.file_system_open = function( path, type, mode ) { if(this.get_flag("nodejs").indicator === "false/0") path = this.absolute_file_name(path); return this.file_system.open( path, type, mode ); }; Thread.prototype.file_system_open = function( path, type, mode ) { return this.session.file_system_open( path, type, mode ); };
// Absolute file name Session.prototype.absolute_file_name = function(filename) { var absolute; // node.js if(this.get_flag("nodejs").indicator === "true/0") { var path = require("path"); absolute = filename; for(var prop in process.env) { if(!process.env.hasOwnProperty(prop)) continue; absolute = absolute.replace(new RegExp("\\$" + prop, "g"), process.env[prop]); } return path.resolve(absolute); // browser } else { var cwd = this.working_directory; if(filename[0] === "/") absolute = filename; else absolute = cwd + (cwd[cwd.length-1] === "/" ? filename : "/" + filename); absolute = absolute.replace(/\/\.\//g, "/"); var dirs = absolute.split("/"); var dirs2 = []; for(var i = 0; i < dirs.length; i++) { if(dirs[i] !== "..") { dirs2.push(dirs[i]); } else { if(dirs2.length !== 0) dirs2.pop(); } } absolute = dirs2.join("/").replace(/\/\.$/, "/"); } return absolute; }; Thread.prototype.absolute_file_name = function(path, cwd) { return this.session.absolute_file_name(path, cwd); };
// Get conversion of the char Session.prototype.get_char_conversion = function( char ) { return this.__char_conversion[char] || char; }; Thread.prototype.get_char_conversion = function( char ) { return this.session.get_char_conversion( char ); }; // Parse an expression Session.prototype.parse = function( string ) { return this.thread.parse( string ); }; Thread.prototype.parse = function( string ) { var tokenizer = new Tokenizer( this ); tokenizer.new_text( string ); var tokens = tokenizer.get_tokens(); if( tokens === null ) return false; var expr = parseExpr(this, tokens, 0, this.__get_max_priority(), false); if( expr.len !== tokens.length ) return false; return { value: expr.value, expr: expr, tokens: tokens }; }; // Get flag value Session.prototype.get_flag = function( flag ) { return this.flag[flag]; }; Thread.prototype.get_flag = function( flag ) { return this.session.get_flag( flag ); };
// Add a rule Session.prototype.add_rule = function(rule, options) { return this.thread.add_rule(rule, options); }; Thread.prototype.add_rule = function(rule, options) { options = options ? options : {}; options.from = options.from ? options.from : "$tau-js"; var module_id, get_module; if(pl.type.is_term(rule.head) && rule.head.indicator === ":/2") { if(!pl.type.is_atom(rule.head.args[0])) { this.throw_warning(pl.error.type("module", rule.head.args[0], "top_level/0")); return; } module_id = rule.head.args[0].id; rule.head = rule.head.args[1]; } if(module_id) { get_module = this.session.modules[module_id]; if(!pl.type.is_module(get_module)) { get_module = new Module(module_id, {}, "all", {session: this.session}); this.session.modules[module_id] = get_module; } } else { get_module = this.session.modules[options.context_module]; } get_module.src_predicates[rule.head.indicator] = options.from; if(!get_module.rules.hasOwnProperty(rule.head.indicator)) { get_module.rules[rule.head.indicator] = []; } get_module.rules[rule.head.indicator].push(rule); if(!get_module.public_predicates.hasOwnProperty(rule.head.indicator)) get_module.public_predicates[rule.head.indicator] = false; // update term indexing get_module.update_indices_predicate(rule.head.indicator); return true; };
// Run a directive Session.prototype.run_directive = function(directive, options) { return this.thread.run_directive(directive, options); }; Thread.prototype.run_directive = function(directive, options) { if(pl.type.is_directive(directive)) { if(pl.directive[directive.indicator]) return pl.directive[directive.indicator](this, directive, options); else return pl.directive[directive.id + "/*"](this, directive, options); } return false; }; // Get maximum priority of the operators Session.prototype.__get_max_priority = function() { return "1200"; }; Thread.prototype.__get_max_priority = function() { return this.session.__get_max_priority(); }; // Get next priority of the operators Session.prototype.__get_next_priority = function( priority ) { var max = 0; priority = parseInt( priority ); for( var key in this.__operators ) { if( !this.__operators.hasOwnProperty(key) ) continue; var n = parseInt(key); if( n > max && n < priority ) max = n; } return max.toString(); }; Thread.prototype.__get_next_priority = function( priority ) { return this.session.__get_next_priority( priority ); }; // Get classes of an operator Session.prototype.__lookup_operator_classes = function( priority, operator ) { if( this.__operators.hasOwnProperty( priority ) && this.__operators[priority][operator] instanceof Array ) { return this.__operators[priority][operator] || false; } return false; }; Thread.prototype.__lookup_operator_classes = function( priority, operator ) { return this.session.__lookup_operator_classes( priority, operator ); };
// Get operator Session.prototype.lookup_operator = function( name, arity ) { for(var p in this.__operators) if(this.__operators[p][name]) for(var i = 0; i < this.__operators[p][name].length; i++) if( this.__operators[p][name][i].length === arity+1 ) return {priority: p, class: this.__operators[p][name][i]}; return null; }; Thread.prototype.lookup_operator = function( name, arity ) { return this.session.lookup_operator( name, arity ); }; // Throw a warning Session.prototype.throw_warning = function( warning ) { this.thread.throw_warning( warning ); }; Thread.prototype.throw_warning = function( warning ) { this.warnings.push( warning ); }; // Get warnings Session.prototype.get_warnings = function() { return this.thread.get_warnings(); }; Thread.prototype.get_warnings = function() { return this.warnings; };
// Add a goal Session.prototype.add_goal = function( goal, unique ) { this.thread.add_goal( goal, unique ); }; Thread.prototype.add_goal = function( goal, unique, parent ) { parent = parent ? parent : null; if( unique === true ) this.points = []; var vars = goal.variables(); var links = {}; for( var i = 0; i < vars.length; i++ ) links[vars[i]] = new Var(vars[i]); this.points.push( new State( goal, new Substitution(links), parent ) ); };
// Consult a program from a string Session.prototype.consult = function(program, options) { return this.thread.consult(program, options); }; Thread.prototype.consult = function(program, options) { var string = "", success = false; var opts = {}; var callback = typeof options === "function" ? options : function(){}; options = options === undefined || typeof options === "function" ? {} : options; opts.context_module = options.context_module === undefined ? "user" : options.context_module; opts.text = options.text === undefined ? true : options.text; opts.html = options.html === undefined ? true : options.html; opts.url = options.url === undefined ? true : options.url; opts.file = options.file === undefined ? true : options.file; opts.script = options.script === undefined ? true : options.script; opts.success = options.success === undefined ? callback : options.success; opts.error = options.error === undefined ? callback : options.error; // string if(typeof program === "string") { string = program; // script id if(opts.script && this.get_flag("nodejs").indicator === "false/0" && program != "" && document.getElementById(string)) { var script = document.getElementById(string); var type = script.getAttribute("type"); if(type !== null && type.replace(/ /g, "").toLowerCase() === "text/prolog") { string = script.text; success = true; } } // file (node.js) if(!success && opts.file && this.get_flag("nodejs").indicator === "true/0") { var fs = require("fs"); var thread = this; fs.readFile(program, function(error, data) { if(error) { opts.file = false; thread.consult(program, opts); } else { parseProgram(thread, data.toString(), opts); } }); return; } // http request if(!success && this.get_flag("nodejs").indicator === "false/0" && opts.url && program !== "" && !(/\s/.test(program))) { try { var xhttp = new XMLHttpRequest(); var thread = this; xhttp.onreadystatechange = function() { if(this.readyState == 4) { if(this.status == 200) { string = xhttp.responseText; success = true; parseProgram(thread, string, opts); } else { opts.url = false; thread.consult(program, opts); } } } xhttp.open("GET", program, true); xhttp.send(); return; } catch(ex) { opts.error(ex); return; } } // text if(!success && opts.text) { success = true; } // html } else if(opts.html && program.nodeName) { switch(program.nodeName.toLowerCase()) { case "input": case "textarea": string = program.value; success = true; break; default: string = program.innerHTML; success = true; break; } } else { opts.error(pl.error.existence("source_sink", new Term(string), "top_level/0")); } this.warnings = []; parseProgram(this, string, opts); };
// Query goal from a string (without ?-) Session.prototype.query = function(string, options) { return this.thread.query(string, options); }; Thread.prototype.query = function(string, options) { this.points = []; this.debugger_states = []; this.level = new Term("top_level"); return parseQuery(this, string, options); }; // Get first choice point Session.prototype.head_point = function() { return this.thread.head_point(); }; Thread.prototype.head_point = function() { return this.points[this.points.length-1]; }; // Get free variable Session.prototype.get_free_variable = function( variable ) { return this.thread.get_free_variable( variable ); }; Thread.prototype.get_free_variable = function( variable ) { var variables = []; if( variable.id === "_" || this.session.renamed_variables[variable.id] === undefined ) { this.session.rename++; if( this.current_point ) variables = this.current_point.substitution.domain(); while( indexOf( variables, pl.format_variable( this.session.rename, variable.id ) ) !== -1 ) { this.session.rename++; } if( variable.id === "_" ) { return new Var( pl.format_variable( this.session.rename, variable.id ) ); } else { this.session.renamed_variables[variable.id] = pl.format_variable( this.session.rename, variable.id ); } } return new Var( this.session.renamed_variables[variable.id] ); }; // Get next free variable Session.prototype.next_free_variable = function() { return this.thread.next_free_variable(); }; Thread.prototype.next_free_variable = function() { this.session.rename++; var variables = []; if( this.current_point ) variables = this.current_point.substitution.domain(); while( indexOf( variables, pl.format_variable( this.session.rename ) ) !== -1 ) { this.session.rename++; } return new Var( pl.format_variable( this.session.rename ) ); }; // Check if a predicate is public Session.prototype.is_public_predicate = function(indicator, module_id) { module_id = module_id === undefined ? "user" : module_id; return pl.type.is_module(this.modules[module_id]) && this.modules[module_id].is_public_predicate(indicator); }; Thread.prototype.is_public_predicate = function(indicator, module_id) { return this.session.is_public_predicate(indicator, module_id); }; // Check if a predicate is multifile Session.prototype.is_multifile_predicate = function(indicator, module_id) { module_id = module_id === undefined ? "user" : module_id; return pl.type.is_module(this.modules[module_id]) && this.modules[module_id].is_multifile_predicate(indicator); }; Thread.prototype.is_multifile_predicate = function(indicator, module_id) { return this.session.is_multifile_predicate(indicator, module_id); };
// Check if a predicate is a meta-predicate Session.prototype.is_meta_predicate = function(indicator, module_id) { module_id = module_id === undefined ? "user" : module_id; if(pl.type.is_module(this.modules[module_id])) return this.modules[module_id].is_meta_predicate(indicator); return null; }; Thread.prototype.is_meta_predicate = function(indicator, module_id) { return this.session.is_meta_predicate(indicator, module_id); }; // Insert states at the beginning Session.prototype.prepend = function( states ) { return this.thread.prepend( states ); }; Thread.prototype.prepend = function( states ) { for(var i = states.length-1; i >= 0; i--) this.points.push( states[i] ); }; // Remove the selected term and prepend the current state Session.prototype.success = function( point, parent ) { return this.thread.success( point, parent ); } Thread.prototype.success = function( point, parent ) { var parent = typeof parent === "undefined" ? point : parent; this.prepend( [new State( point.goal.replace( null ), point.substitution, parent ) ] ); }; // Throw error Session.prototype.throw_error = function(error) { return this.thread.throw_error(error); }; Thread.prototype.throw_error = function(error) { if(pl.type.is_variable(error)) error = pl.error.instantiation(this.level.indicator); var state = new State( new Term("throw", [error]), new Substitution(), null ); state.error = true; this.prepend([state]); }; // Get the module of a predicate Session.prototype.lookup_module = function(atom, context_module) { return this.thread.lookup_module(atom, context_module); } Thread.prototype.lookup_module = function(atom, context_module) { var get_module = this.session.modules[context_module]; if(!pl.type.is_module(get_module)) get_module = this.session.modules.user; if(get_module.rules.hasOwnProperty(atom.indicator) && ( get_module.exports_predicate(atom.indicator) || get_module.rules.hasOwnProperty(this.level.indicator) || context_module === get_module.id)) return get_module; get_module.modules.system = pl.modules.system; get_module.modules.user = this.session.modules.user; for(var prop in get_module.modules) { if(!this.session.modules.hasOwnProperty(prop)) continue; var get_module = this.session.modules[prop]; if(get_module.rules.hasOwnProperty(atom.indicator) && ( get_module.exports_predicate(atom.indicator) || get_module.rules.hasOwnProperty(this.level.indicator) || context_module === get_module.id)) return get_module; } return null; };
// Expand a meta-predicate Session.prototype.expand_meta_predicate = function(atom, definition_module, context_module) { return this.thread.expand_meta_predicate(atom, definition_module, context_module); }; Thread.prototype.expand_meta_predicate = function(atom, definition_module, context_module) { var get_module = this.session.modules[definition_module]; if(!get_module) return; var meta = get_module.is_meta_predicate(atom.indicator); if(!meta) return; for(var i = 0; i < meta.args.length; i++) { if(pl.type.is_integer(meta.args[i]) || pl.type.is_atom(meta.args[i]) && indexOf([":"], meta.args[i].id) !== -1) { if(!pl.type.is_term(atom.args[i]) || atom.args[i].indicator !== ":/2") { atom.args[i] = new Term(":", [new Term(context_module), atom.args[i]]); } } else if(pl.type.is_atom(meta.args[i]) && meta.args[i].id === "^") { var pointer_last = atom; var pointer_index = i; var pointer = atom.args[i]; while(pl.type.is_term(pointer) && pointer.indicator === "^/2") { pointer_last = pointer; pointer_index = 1; pointer = pointer.args[1]; } if(!pl.type.is_term(pointer) || pointer.indicator !== ":/2") { pointer_last.args[pointer_index] = new Term(":", [new Term(context_module), pointer]); } } } }; // Resolution step Session.prototype.step = function() { return this.thread.step(); } Thread.prototype.step = function() { if(this.points.length === 0) { return; } var asyn = false; var point = this.points.pop(); this.current_point = point; if(this.debugger) this.debugger_states.push(point); var atom = pl.type.is_term(point.goal) ? point.goal.select() : point.goal; if(pl.type.is_term(atom) && (atom.indicator !== ":/2" || pl.type.is_term(atom.args[1]))) { var context_module = null; var states = []; if(atom !== null) { this.total_steps++; var level = point; while(level.parent !== null && level.parent.goal.search(atom)) level = level.parent; if(level.parent === null) { this.level = new Term("top_level"); } else { this.level = level.parent.goal.select(); if(this.level.indicator === ":/2") this.level = this.level.args[1]; } if(pl.type.is_term(atom) && atom.indicator === ":/2") { context_module = atom.args[0]; atom = atom.args[1]; if(!pl.type.is_atom(context_module)) { this.throw_error(pl.error.type("module", context_module, this.level.indicator)); return; } context_module = context_module.id; } else { if(this.level.definition_module) { context_module = this.level.definition_module; } else { context_module = "user"; } } atom.context_module = context_module; if(atom.indicator === ",/2") { this.prepend([new State( point.goal.replace(new Term(",", [ new Term(":", [new Term(context_module), atom.args[0]]), new Term(":", [new Term(context_module), atom.args[1]])])), point.substitution, point )]); return; } this.__call_indicator = atom.indicator; var get_module = this.lookup_module(atom, context_module); atom.definition_module = pl.type.is_module(get_module) ? get_module.id : "user"; this.expand_meta_predicate(atom, atom.definition_module, context_module); var get_rules = null; if(get_module && atom.args.length > 0 && atom.args[0].index && get_module.indexed_clauses.hasOwnProperty(atom.indicator) && get_module.indexed_clauses[atom.indicator].hasOwnProperty(atom.args[0].index)) get_rules = get_module.indexed_clauses[atom.indicator][atom.args[0].index]; else get_rules = get_module === null ? null : get_module.rules[atom.indicator]; if(get_rules === null) { if(!this.session.modules.user.rules.hasOwnProperty(atom.indicator)) { if(this.get_flag("unknown").id === "error") { this.throw_error( pl.error.existence( "procedure", atom.indicator, this.level.indicator)); } else if(this.get_flag("unknown").id === "warning") { this.throw_warning("unknown procedure " + atom.indicator + " (from " + this.level.indicator + ")"); } } } else if(get_rules instanceof Function) { asyn = get_rules(this, point, atom); } else { // Goal expansion if(this.__goal_expansion && atom.indicator === "goal_expansion/2") get_rules = get_rules.concat(pl.builtin.rules["goal_expansion/2"]); for(var _rule in get_rules) { if(!get_rules.hasOwnProperty(_rule)) continue; var rule = get_rules[_rule]; this.session.renamed_variables = {}; rule = rule.rename( this ); var occurs_check = this.get_flag("occurs_check").indicator === "true/0"; var state = new State(); var mgu = pl.unify( atom, rule.head, occurs_check ); if(mgu !== null) { state.goal = point.goal.replace( rule.body ); if( state.goal !== null ) { state.goal = state.goal.apply(mgu); } state.substitution = point.substitution.apply(mgu); state.parent = point; states.push( state ); } } this.prepend(states); } } } else { var term = pl.type.is_term(atom) && atom.indicator === ":/2" ? atom.args[1] : atom; if(pl.type.is_variable(term)) this.throw_error(pl.error.instantiation(this.level.indicator)); else this.throw_error(pl.error.type("callable", term, this.level.indicator)); } return asyn; }; // Find next computed answer Session.prototype.answer = function(options) { return this.thread.answer(options); }; Thread.prototype.answer = function(options) { var opts = {}; options = options || function() {}; if(typeof options === "function") { opts = { success: options, error: options, fail: options, limit: options }; } else { opts.success = options.success === undefined ? function() {} : options.success; opts.error = options.error === undefined ? function() {} : options.error; opts.fail = options.fail === undefined ? function() {} : options.fail; opts.limit = options.limit === undefined ? function() {} : options.limit; } this.__calls.push(opts); if( this.__calls.length > 1 ) { return; } this.again(); }; // Find all computed answers Session.prototype.answers = function( callback, max, after ) { return this.thread.answers( callback, max, after ); } Thread.prototype.answers = function( callback, max, after ) { var answers = max === undefined ? 1000 : max; var thread = this; if( answers <= 0 ) { if(after) after(); return; } this.answer( function( answer ) { callback( answer ); if( answer !== false ) { setTimeout( function() { thread.answers( callback, answers-1, after ); }, 0 ); } else if(after) { after(); } } ); };
// Again finding next computed answer Session.prototype.again = function(reset_limit) { return this.thread.again(reset_limit); }; Thread.prototype.again = function(reset_limit) { while(this.__calls.length > 0) { this.warnings = []; if(reset_limit !== false) this.current_limit = this.session.limit; while((!this.has_limit || this.current_limit > 0) && this.points.length > 0 && this.head_point().goal !== null && !pl.type.is_error_state(this.head_point())) { if(this.has_limit) this.current_limit--; var t0 = Date.now(); var asyn = this.step(); var t1 = Date.now(); this.cpu_time += t1-t0; if(asyn === true) return; } var call = this.__calls.shift(); // limit of inferences if(this.has_limit && this.current_limit <= 0) { (function(call) { return setTimeout(function() { call.limit(null); }, 0); })(call); // no answer } else if(this.points.length === 0) { (function(call) { return setTimeout(function() { call.fail(false); }, 0); })(call); // error } else if(pl.type.is_error(this.head_point().goal)) { var error = this.format_error(this.points.pop()); this.points = []; (function(error, call) { return setTimeout(function() { call.error(error); }, 0); })(error, call); // computed answer } else { if(this.debugger) this.debugger_states.push(this.head_point()); var answer = this.format_success(this.points.pop()); (function(answer, call) { return setTimeout(function() { call.success(answer); }, 0); })(answer, call); } } }; // Unfolding transformation Session.prototype.unfold = function( rule ) { if(rule.body === null) return false; var head = rule.head; var body = rule.body; var atom = body.select(); var thread = new Thread( this ); var unfolded = []; thread.add_goal( atom ); thread.step(); for( var i = thread.points.length-1; i >= 0; i-- ) { var point = thread.points[i]; var head2 = head.apply( point.substitution ); var body2 = body.replace( point.goal ); if( body2 !== null ) body2 = body2.apply( point.substitution ); unfolded.push( new Rule( head2, body2 ) ); } var rules = this.modules.user.rules[head.indicator]; var index = indexOf( rules, rule ); if( unfolded.length > 0 && index !== -1 ) { rules.splice.apply( rules, [index, 1].concat(unfolded) ); return true; } return false; }; Thread.prototype.unfold = function(rule) { return this.session.unfold(rule); };
// INTERPRET EXPRESSIONS // Variables Var.prototype.interpret = function( thread ) { return pl.error.instantiation( thread.level.indicator ); }; // Numbers Num.prototype.interpret = function( thread ) { return this; }; // Terms Term.prototype.interpret = function( thread ) { if( pl.type.is_unitary_list( this ) ) { return this.args[0].interpret( thread ); } else { return pl.operate( thread, this ); } }; // COMPARE PROLOG OBJECTS // Variables Var.prototype.compare = function( obj ) { if( this.id < obj.id ) { return -1; } else if( this.id > obj.id ) { return 1; } else { return 0; } }; // Numbers Num.prototype.compare = function( obj ) { if( this.value === obj.value && this.is_float === obj.is_float ) { return 0; } else if( this.value < obj.value || this.value === obj.value && this.is_float && !obj.is_float ) { return -1; } else if( this.value > obj.value ) { return 1; } }; // Terms Term.prototype.compare = function( obj ) { if( this.args.length < obj.args.length || this.args.length === obj.args.length && this.id < obj.id ) { return -1; } else if( this.args.length > obj.args.length || this.args.length === obj.args.length && this.id > obj.id ) { return 1; } else { for( var i = 0; i < this.args.length; i++ ) { var arg = pl.compare( this.args[i], obj.args[i] ); if( arg !== 0 ) { return arg; } } return 0; } };
// SUBSTITUTIONS // Lookup variable Substitution.prototype.lookup = function( variable ) { if( this.links[variable] ) { return this.links[variable]; } else { return null; } }; // Filter variables Substitution.prototype.filter = function( predicate ) { var links = {}; for( var id in this.links ) { if(!this.links.hasOwnProperty(id)) continue; var value = this.links[id]; if( predicate( id, value ) ) { links[id] = value; } } return new Substitution( links, this.attrs ); }; // Exclude variables Substitution.prototype.exclude = function( variables ) { var links = {}; for( var variable in this.links ) { if(!this.links.hasOwnProperty(variable)) continue; if( indexOf( variables, variable ) === -1 ) { links[variable] = this.links[variable]; } } return new Substitution( links, this.attrs ); }; // Add link Substitution.prototype.add = function( variable, value ) { this.links[variable] = value; }; // Get domain Substitution.prototype.domain = function( plain ) { var f = plain === true ? function(x){return x;} : function(x){return new Var(x);}; var vars = []; for( var x in this.links ) vars.push( f(x) ); return vars; };
// Get an attribute Substitution.prototype.get_attribute = function( variable, module ) { if( this.attrs[variable] ) return this.attrs[variable][module]; }
// Set an attribute (in a new substitution) Substitution.prototype.set_attribute = function( variable, module, value ) { var subs = new Substitution( this.links ); for( var v in this.attrs ) { if( v === variable ) { subs.attrs[v] = {}; for( var m in this.attrs[v] ) { subs.attrs[v][m] = this.attrs[v][m]; } } else { subs.attrs[v] = this.attrs[v]; } } if( !subs.attrs[variable] ) { subs.attrs[variable] = {}; } subs.attrs[variable][module] = value; return subs; }
// Check if a variables has attributes Substitution.prototype.has_attributes = function( variable ) { return this.attrs[variable] && this.attrs[variable] !== {}; } // GENERATE JAVASCRIPT CODE FROM PROLOG OBJECTS // Variables Var.prototype.compile = function() { return 'new pl.type.Var("' + this.id.toString() + '")'; }; // Numbers Num.prototype.compile = function() { return 'new pl.type.Num(' + this.value.toString() + ', ' + this.is_float.toString() + ')'; }; // Terms Term.prototype.compile = function() { return 'new pl.type.Term("' + this.id.replace(/"/g, '\\"') + '", [' + map( this.args, function( arg ) { return arg.compile(); } ) + '])'; }; // Rules Rule.prototype.compile = function() { return 'new pl.type.Rule(' + this.head.compile() + ', ' + (this.body === null ? 'null' : this.body.compile()) + ')'; }; // Sessions Session.prototype.compile = function() { var str, obj = [], rules; for( var _indicator in this.modules.user.rules ) { if(!this.modules.user.rules.hasOwnProperty(_indicator)) continue; var indicator = this.modules.user.rules[_indicator]; rules = []; str = "\"" + _indicator + "\": ["; for(var i = 0; i < indicator.length; i++) { rules.push(indicator[i].compile()); } str += rules.join(); str += "]"; obj.push( str ); } return "{" + obj.join() + "};"; };
// Module Module.prototype.compile = function() { var length = 0; var dependencies = 0; var str = "var pl;\n"; str += "(function(pl) {\n"; // name str += "\tvar name = \"" + this.id + "\";\n"; // predicates str += "\tvar predicates = function() {\n"; str += "\t\treturn {\n"; for(var prop in this.rules) { if(length > 0) str += ",\n"; str += "\t\t\t\"" + prop + "\": "; if(typeof this.rules[prop] === "function") { str += this.rules[prop]; } else { str += "[\n"; for(var i = 0; i < this.rules[prop].length; i++) { str += "\t\t\t\t" + this.rules[prop][i].compile(); if(i < this.rules[prop].length-1) str += ","; str += "\n"; } str += "\t\t\t]"; } length++; } str += "\n\t\t};\n"; str += "\t};\n"; // exports str += "\tvar exports = ["; for(var i = 0; i < this.exports.length; i++) { if(i > 0) str += ", "; str += "\"" + this.exports[i] + "\""; } str += "];\n"; // options str += "\tvar options = function() {\n"; str += "\t\treturn {\n"; // dependencies str += "\t\t\tdependencies: ["; for(var prop in this.modules) { if(dependencies > 0) str += ", "; str += "\"" + prop + "\""; dependencies++; } str += "]\n"; str += "\t\t};\n"; str += "};\n"; // fixed code str += "\tif(typeof module !== 'undefined') {\n"; str += "\t\tmodule.exports = function(p) {\n"; str += "\t\t\tpl = p;\n"; str += "\t\t\tnew pl.type.Module(name, predicates(), exports, options());\n"; str += "\t\t};\n"; str += "\t} else {\n"; str += "\t\tnew pl.type.Module(name, predicates(), exports, options());\n"; str += "\t}\n"; str += "})(pl);\n"; return str; }; // PROLOG TO JAVASCRIPT Var.prototype.toJavaScript = function() { return this.toString(); }; // Numbers Num.prototype.toJavaScript = function() { return this.value; }; // Terms Term.prototype.toJavaScript = function(options) { // Atom => String if( this.args.length === 0 && this.indicator !== "[]/0" ) { return this.toString(options); } else if( pl.type.is_list( this ) ) { // List => Array var all_obj = true; var arr = []; var obj = {}; var pointer = this; var value; while( pointer.indicator === "./2" ) { value = pointer.args[0].toJavaScript(options); arr.push( value ); all_obj = all_obj && pl.type.is_term(pointer.args[0]) && pointer.args[0].indicator === "-/2" && pl.type.is_atom(pointer.args[0].args[0]); if(all_obj) obj[pointer.args[0].args[0].id] = pointer.args[0].args[1].toJavaScript(options); pointer = pointer.args[1]; } if( pointer.indicator === "[]/0" ) return all_obj && arr.length > 0 ? obj : arr;
} return this.toString(options); }; // RULES // Return singleton variables in the session Rule.prototype.singleton_variables = function(include_named) { include_named = include_named || false; var variables = this.head.variables(); var count = {}; var singleton = []; if(this.body !== null) variables = variables.concat(this.body.variables()); for(var i = 0; i < variables.length; i++) { if(count[variables[i]] === undefined) count[variables[i]] = 0; count[variables[i]]++; } for(var key in count) { if(!count.hasOwnProperty(key)) continue; if(count[key] === 1) { var charcode = codePointAt(key, 1); if(!include_named || key === "_") if(key === "_" || key[0] === "_" && (charcode === 95 || charcode >= 65 && charcode <= 90)) continue; singleton.push(key); } } return singleton; };
// NODEJS
var nodejs_flag = typeof process !== 'undefined' && !process.browser
var nodejs_arguments = nodejs_flag ? arrayToList( map(process.argv.slice(1), function(arg) { return new Term( arg ); })) : new Term("[]", []); // PROLOG
var pl = { // Environment __env: nodejs_flag ? global : window, // Modules modules: {}, // Version version: version, // Parser parser: { tokenizer: Tokenizer, expression: parseExpr }, // Utils utils: { // String to indicator str_indicator: str_indicator, // Code point at codePointAt: codePointAt, // From code point fromCodePoint: fromCodePoint, // Length of string stringLength: stringLength }, // Statistics statistics: { // Number of created terms getCountTerms: function() { return term_ref; } }, // JavaScript to Prolog fromJavaScript: { // Type testing test: { // Boolean boolean: function( obj, tobj ) { return obj === true || obj === false; }, // Number number: function( obj, tobj ) { return typeof obj === "number"; }, // String string: function( obj, tobj ) { return typeof obj === "string"; }, // List list: function( obj, tobj ) { return obj instanceof Array; }, // Variable variable: function( obj, tobj ) { return obj === undefined; },
// Object object: function( obj, tobj ) { tobj = tobj === undefined ? false : tobj; return tobj && !(obj instanceof Array) && typeof obj === "object"; }, // Any any: function( _, tobj ) { return true; } }, // Function conversion conversion: { // Bolean boolean: function( obj, tobj ) { return new Term( obj ? "true" : "false", [] ); }, // Number number: function( obj, tobj ) { return new Num( obj, obj % 1 !== 0 ); }, // String string: function( obj, tobj ) { return new Term( obj, [] ); }, // List list: function( obj, tobj ) { tobj = tobj === undefined ? false : tobj; var arr = []; var elem; for( var i = 0; i < obj.length; i++ ) { elem = pl.fromJavaScript.apply( obj[i], tobj ); if( elem === undefined ) return undefined; arr.push( elem ); } return arrayToList( arr ); }, // Variable variable: function( obj, tobj ) { return new Var( "_" ); },
// Object object: function( obj, tobj ) { tobj = tobj === undefined ? false : tobj; var list = new Term("[]", []); var arr = []; for(var prop in obj) { if(!obj.hasOwnProperty(prop)) continue; arr.push(new Term("-", [ pl.fromJavaScript.apply(prop, tobj), pl.fromJavaScript.apply(obj[prop], tobj) ])); } return arrayToList(arr); }, // Any any: function( obj, tobj ) { return undefined; } }, // Transform object apply: function( obj, tobj ) { tobj = tobj === undefined ? false : tobj; for( var i in pl.fromJavaScript.test ) if( i !== "any" && pl.fromJavaScript.test[i]( obj, tobj ) ) return pl.fromJavaScript.conversion[i]( obj, tobj ); return pl.fromJavaScript.conversion.any( obj, tobj ); } }, // Types type: { // Objects Var: Var, Num: Num, Term: Term, Rule: Rule, State: State, Stream: Stream, Module: Module, Thread: Thread, Session: Session, Substitution: Substitution, File: TauFile, Directory: TauDirectory, // Order order: [Var, Num, Term, Stream], // Compare types compare: function( x, y ) { var ord_x = indexOf( pl.type.order, x.constructor ); var ord_y = indexOf( pl.type.order, y.constructor ); if( ord_x < ord_y ) { return -1; } else if( ord_x > ord_y ) { return 1; } else { if( x.constructor === Num ) if( x.is_float && y.is_float ) return 0; else if( x.is_float ) return -1; else if( y.is_float ) return 1; return 0; } }, // Is a substitution is_substitution: function( obj ) { return obj instanceof Substitution; }, // Is a state is_state: function( obj ) { return obj instanceof State; }, // Is a rule is_rule: function( obj ) { return obj instanceof Rule; }, // Is a variable is_variable: function( obj ) { return obj instanceof Var; },
// Is a stream is_stream: function( obj ) { return obj instanceof Stream; }, // Is an anonymous variable is_anonymous_var: function( obj ) { return obj instanceof Var && obj.id === "_"; }, // Is a callable term is_callable: function( obj ) { return obj instanceof Term && (indexOf([",/2",";/2","->/2"], obj.indicator) === -1 || pl.type.is_callable(obj.args[0]) && pl.type.is_callable(obj.args[1])) || obj instanceof Var; }, // Is a number is_number: function( obj ) { return obj instanceof Num; }, // Is an integer is_integer: function( obj ) { return obj instanceof Num && !obj.is_float; }, // Is a float is_float: function( obj ) { return obj instanceof Num && obj.is_float; }, // Is a term is_term: function( obj ) { return obj instanceof Term; }, // Is an atom is_atom: function( obj ) { return obj instanceof Term && obj.args.length === 0; }, // Is a ground term is_ground: function( obj ) { if( obj instanceof Var ) return false; if( obj instanceof Term ) for( var i = 0; i < obj.args.length; i++ ) if( !pl.type.is_ground( obj.args[i] ) ) return false; return true; }, // Is atomic is_atomic: function( obj ) { return obj instanceof Term && obj.args.length === 0 || obj instanceof Num; }, // Is compound is_compound: function( obj ) { return obj instanceof Term && obj.args.length > 0; }, // Is a list is_list: function( obj ) { return obj instanceof Term && (obj.indicator === "[]/0" || obj.indicator === "./2"); }, // Is an empty list is_empty_list: function( obj ) { return obj instanceof Term && obj.indicator === "[]/0"; }, // Is a non empty list is_non_empty_list: function( obj ) { return obj instanceof Term && obj.indicator === "./2"; }, // Is a fully list is_fully_list: function( obj ) { while( obj instanceof Term && obj.indicator === "./2" ) { obj = obj.args[1]; } return obj instanceof Var || obj instanceof Term && obj.indicator === "[]/0"; }, // Is a instantiated list is_instantiated_list: function( obj ) { while( obj instanceof Term && obj.indicator === "./2" ) { obj = obj.args[1]; } return obj instanceof Term && obj.indicator === "[]/0"; }, // Is an unitary list is_unitary_list: function( obj ) { return obj instanceof Term && obj.indicator === "./2" && obj.args[1] instanceof Term && obj.args[1].indicator === "[]/0"; }, // Is a character is_character: function( obj ) { return obj instanceof Term && obj.args.length === 0 && (obj.id.length === 1 || obj.id.length > 0 && obj.id.length <= 2 && codePointAt( obj.id, 0 ) >= 65536); }, // Is a in_character is_in_character: function( obj ) { return obj instanceof Term && (obj.indicator === "end_of_file/0" || obj.id.length === 1 || obj.id.length > 0 && obj.id.length <= 2 && codePointAt(obj.id, 0) >= 65536); }, // Is a character_code is_character_code: function( obj ) { return obj instanceof Num && !obj.is_float && obj.value >= 0 && obj.value <= 1114111; }, // Is a in_character_code is_in_character_code: function( obj ) { return obj instanceof Num && !obj.is_float && obj.value >= -1 && obj.value <= 1114111; },
// Is a byte is_byte: function( obj ) { return obj instanceof Num && !obj.is_float && obj.value >= 0 && obj.value <= 255; },
// Is a in_byte is_in_byte: function( obj ) { return obj instanceof Num && !obj.is_float && obj.value >= -1 && obj.value <= 255; }, // Is an operator is_operator: function( obj ) { return obj instanceof Term && pl.arithmetic.evaluation[obj.indicator]; }, // Is a directive is_directive: function( obj ) { return obj instanceof Term && (pl.directive[obj.indicator] !== undefined || pl.directive[obj.id + "/*"] !== undefined); }, // Is a built-in predicate is_builtin: function( obj ) { return obj instanceof Term && pl.builtin.rules.hasOwnProperty(obj.indicator) && obj.indicator !== "goal_expansion/2"; }, // Is an error is_error: function( obj ) { return obj instanceof Term && obj.indicator === "throw/1"; },
// Is an error state is_error_state: function( obj ) { return pl.type.is_state( obj ) && obj.error && obj.error === true; }, // Is a predicate indicator is_predicate_indicator: function( obj ) { return obj instanceof Term && obj.indicator === "//2" && obj.args[0] instanceof Term && obj.args[0].args.length === 0 && obj.args[1] instanceof Num && obj.args[1].is_float === false; }, // Is a flag is_flag: function( obj ) { return obj instanceof Term && obj.args.length === 0 && pl.flag[obj.id] !== undefined; }, // Is a valid value for a flag is_value_flag: function( flag, obj ) { if( !pl.type.is_flag( flag ) ) return false; for( var value in pl.flag[flag.id].allowed ) { if(!pl.flag[flag.id].allowed.hasOwnProperty(value)) continue; if( pl.flag[flag.id].allowed[value].equals( obj ) ) return true; } return false; },
// Is a io mode is_io_mode: function( obj ) { return pl.type.is_atom( obj ) && ["read","write","append"].indexOf( obj.id ) !== -1; },
// Is a stream option is_stream_option: function( obj ) { return pl.type.is_term( obj ) && ( obj.indicator === "alias/1" && pl.type.is_atom(obj.args[0]) || obj.indicator === "reposition/1" && pl.type.is_atom(obj.args[0]) && (obj.args[0].id === "true" || obj.args[0].id === "false") || obj.indicator === "type/1" && pl.type.is_atom(obj.args[0]) && (obj.args[0].id === "text" || obj.args[0].id === "binary") || obj.indicator === "eof_action/1" && pl.type.is_atom(obj.args[0]) && (obj.args[0].id === "error" || obj.args[0].id === "eof_code" || obj.args[0].id === "reset") ); },
// Is a stream position is_stream_position: function( obj ) { return pl.type.is_term(obj) && ( obj.indicator === "end_of_stream/0" || obj.indicator === "past_end_of_stream/0" || obj.indicator === "position/3" && pl.type.is_integer(obj.args[0]) && pl.type.is_integer(obj.args[1]) && pl.type.is_integer(obj.args[2]) ) },
// Is a stream property is_stream_property: function( obj ) { return pl.type.is_term( obj ) && ( obj.indicator === "input/0" || obj.indicator === "output/0" || obj.indicator === "alias/1" && (pl.type.is_variable( obj.args[0] ) || pl.type.is_atom( obj.args[0] )) || obj.indicator === "file_name/1" && (pl.type.is_variable( obj.args[0] ) || pl.type.is_atom( obj.args[0] )) || obj.indicator === "reposition/1" && (pl.type.is_variable( obj.args[0] ) || pl.type.is_atom(obj.args[0]) && (obj.args[0].id === "true" || obj.args[0].id === "false")) || obj.indicator === "type/1" && (pl.type.is_variable( obj.args[0] ) || pl.type.is_atom(obj.args[0]) && (obj.args[0].id === "text" || obj.args[0].id === "binary")) || obj.indicator === "mode/1" && (pl.type.is_variable( obj.args[0] ) || pl.type.is_atom(obj.args[0]) && (obj.args[0].id === "read" || obj.args[0].id === "write" || obj.args[0].id === "append")) || obj.indicator === "eof_action/1" && (pl.type.is_variable( obj.args[0] ) || pl.type.is_atom(obj.args[0]) && (obj.args[0].id === "error" || obj.args[0].id === "eof_code" || obj.args[0].id === "reset")) || obj.indicator === "end_of_stream/1" && (pl.type.is_variable( obj.args[0] ) || pl.type.is_atom(obj.args[0]) && (obj.args[0].id === "at" || obj.args[0].id === "past" || obj.args[0].id === "not")) || obj.indicator === "position/1" && (pl.type.is_variable(obj.args[0]) || pl.type.is_term(obj.args[0]) && obj.args[0].indicator === "position/3" && (pl.type.is_variable(obj.args[0].args[0]) || pl.type.is_integer(obj.args[0].args[0])) && (pl.type.is_variable(obj.args[0].args[1]) || pl.type.is_integer(obj.args[0].args[1])) && (pl.type.is_variable(obj.args[0].args[2]) || pl.type.is_integer(obj.args[0].args[2]))) ); },
// Is a streamable term is_streamable: function( obj ) { return obj.__proto__.stream !== undefined; },
// Is a read option is_read_option: function( obj ) { return pl.type.is_term( obj ) && ["variables/1","variable_names/1","singletons/1"].indexOf( obj.indicator ) !== -1; },
// Is a write option is_write_option: function( obj ) { return pl.type.is_term( obj ) && ( obj.indicator === "quoted/1" && pl.type.is_atom(obj.args[0]) && (obj.args[0].id === "true" || obj.args[0].id === "false") || obj.indicator === "ignore_ops/1" && pl.type.is_atom(obj.args[0]) && (obj.args[0].id === "true" || obj.args[0].id === "false") || obj.indicator === "numbervars/1" && pl.type.is_atom(obj.args[0]) && (obj.args[0].id === "true" || obj.args[0].id === "false") || obj.indicator === "variable_names/1" && pl.type.is_fully_list(obj.args[0]) ); },
// Is a close option is_close_option: function( obj ) { return pl.type.is_term( obj ) && obj.indicator === "force/1" && pl.type.is_atom(obj.args[0]) && (obj.args[0].id === "true" || obj.args[0].id === "false"); }, // Is a modifiable flag is_modifiable_flag: function( obj ) { return pl.type.is_flag( obj ) && pl.flag[obj.id].changeable; },
// Is a module is_module: function( obj ) { return obj instanceof Module; },
// Is a virtual file is_file: function( obj ) { return obj instanceof TauFile; },
// Is a virtual directory is_directory: function( obj ) { return obj instanceof TauDirectory; },
// Is a predicate property is_predicate_property: function(obj) { return pl.type.is_term(obj) && ( obj.indicator === "built_in/0" || obj.indicator === "static/0" || obj.indicator === "dynamic/0" || obj.indicator === "native_code/0" || obj.indicator === "multifile/0" || obj.indicator === "meta_predicate/1" ); },
// Is a meta-argument specifier is_meta_argument_specifier: function(obj) { return pl.type.is_integer(obj) && obj.value >= 0 || pl.type.is_atom(obj) && indexOf(["+", "-", "?", "*", "^", ":", "//"], obj.id) !== -1; },
// Is a time property is_time_property: function( obj ) { return pl.type.is_term(obj) && obj.args.length === 1 && (pl.type.is_variable(obj.args[0]) || pl.type.is_integer(obj.args[0])) && indexOf(["year", "month", "day", "hours", "minutes", "seconds", "milliseconds", "weekday"], obj.id) !== -1; }, },
// Arithmetic functions arithmetic: { // Evaluation evaluation: { "e/0": { type_args: null, type_result: true, fn: function( _ ) { return Math.E; } }, "pi/0": { type_args: null, type_result: true, fn: function( _ ) { return Math.PI; } }, "tau/0": { type_args: null, type_result: true, fn: function( _ ) { return 2*Math.PI; } }, "epsilon/0": { type_args: null, type_result: true, fn: function( _ ) { return Number.EPSILON; } }, "+/1": { type_args: null, type_result: null, fn: function( x, _ ) { return x; } }, "-/1": { type_args: null, type_result: null, fn: function( x, _ ) { return -x; } }, "\\/1": { type_args: false, type_result: false, fn: function( x, _ ) { return ~x; } }, "abs/1": { type_args: null, type_result: null, fn: function( x, _ ) { return Math.abs( x ); } }, "sign/1": { type_args: null, type_result: null, fn: function( x, _ ) { return Math.sign( x ); } }, "float_integer_part/1": { type_args: true, type_result: false, fn: function( x, _ ) { return parseInt( x ); } }, "float_fractional_part/1": { type_args: true, type_result: true, fn: function( x, _ ) { return x - parseInt( x ); } }, "float/1": { type_args: null, type_result: true, fn: function( x, _ ) { return parseFloat( x ); } }, "floor/1": { type_args: true, type_result: false, fn: function( x, _ ) { return Math.floor( x ); } }, "truncate/1": { type_args: true, type_result: false, fn: function( x, _ ) { return parseInt( x ); } }, "round/1": { type_args: true, type_result: false, fn: function( x, _ ) { return Math.round( x ); } }, "ceiling/1": { type_args: true, type_result: false, fn: function( x, _ ) { return Math.ceil( x ); } }, "sin/1": { type_args: null, type_result: true, fn: function( x, _ ) { return Math.sin( x ); } }, "cos/1": { type_args: null, type_result: true, fn: function( x, _ ) { return Math.cos( x ); } }, "tan/1": { type_args: null, type_result: true, fn: function( x, _ ) { return Math.tan( x ); } }, "asin/1": { type_args: null, type_result: true, fn: function( x, thread ) { return Math.abs(x) <= 1 ? Math.asin(x) : pl.error.evaluation("undefined", thread.__call_indicator); } }, "acos/1": { type_args: null, type_result: true, fn: function( x, thread ) { return Math.abs(x) <= 1 ? Math.acos(x) : pl.error.evaluation("undefined", thread.__call_indicator); } }, "atan/1": { type_args: null, type_result: true, fn: function( x, _ ) { return Math.atan( x ); } }, "atan2/2": { type_args: null, type_result: true, fn: function( x, y, thread ) { return x === 0 && y === 0 ? pl.error.evaluation("undefined", thread.__call_indicator) : Math.atan2(x, y); } }, "acosh/1": { type_args: null, type_result: true, fn: function( x, thread ) { return x >= 1 ? Math.acosh(x) : pl.error.evaluation("undefined", thread.__call_indicator); } }, "asinh/1": { type_args: null, type_result: true, fn: function( x, _ ) { return Math.asinh( x ); } }, "atanh/1": { type_args: null, type_result: true, fn: function( x, thread ) { return Math.abs(x) < 1 ? Math.atanh(x) : pl.error.evaluation("undefined", thread.__call_indicator); } }, "cosh/1": { type_args: null, type_result: true, fn: function( x, _ ) { return Math.cosh( x ); } }, "sinh/1": { type_args: null, type_result: true, fn: function( x, _ ) { return Math.sinh( x ); } }, "tanh/1": { type_args: null, type_result: true, fn: function( x, _ ) { return Math.tanh( x ); } }, "exp/1": { type_args: null, type_result: true, fn: function( x, _ ) { return Math.exp( x ); } }, "sqrt/1": { type_args: null, type_result: true, fn: function( x, thread ) { return x >= 0 ? Math.sqrt( x ) : pl.error.evaluation( "undefined", thread.__call_indicator ); } }, "log/1": { type_args: null, type_result: true, fn: function( x, thread ) { return x > 0 ? Math.log( x ) : pl.error.evaluation( "undefined", thread.__call_indicator ); } }, "log/2": { type_args: null, type_result: true, fn: function( x, y, thread ) { return x > 0 && y > 0 ? Math.log(y)/Math.log(x) : pl.error.evaluation( "undefined", thread.__call_indicator ); } }, "log10/1": { type_args: null, type_result: true, fn: function( x, thread ) { return x > 0 ? Math.log(x)/Math.log(10) : pl.error.evaluation( "undefined", thread.__call_indicator ); } }, "+/2": { type_args: null, type_result: null, fn: function( x, y, _ ) { return x + y; } }, "-/2": { type_args: null, type_result: null, fn: function( x, y, _ ) { return x - y; } }, "*/2": { type_args: null, type_result: null, fn: function( x, y, _ ) { return x * y; } }, "//2": { type_args: null, type_result: true, fn: function( x, y, thread ) { return y ? x / y : pl.error.evaluation( "zero_divisor", thread.__call_indicator ); } }, "///2": { type_args: false, type_result: false, fn: function( x, y, thread ) { return y ? Math.trunc( x / y ) : pl.error.evaluation( "zero_divisor", thread.__call_indicator ); } }, "div/2": { type_args: false, type_result: false, fn: function( x, y, thread ) { return y ? Math.floor( x / y ) : pl.error.evaluation( "zero_divisor", thread.__call_indicator ); } }, "**/2": { type_args: null, type_result: true, fn: function( x, y, thread ) { return x == 0 && y < 0 ? pl.error.evaluation("zero_divisor", thread.__call_indicator) : Math.pow(x, y); } }, "^/2": { type_args: null, type_result: null, fn: function( x, y, thread ) { return x == 0 && y < 0 ? pl.error.evaluation("zero_divisor", thread.__call_indicator) : Math.pow(x, y); } }, "<</2": { type_args: false, type_result: false, fn: function( x, y, _ ) { return x << y; } }, ">>/2": { type_args: false, type_result: false, fn: function( x, y, _ ) { return x >> y; } }, "/\\/2": { type_args: false, type_result: false, fn: function( x, y, _ ) { return x & y; } }, "\\//2": { type_args: false, type_result: false, fn: function( x, y, _ ) { return x | y; } }, "xor/2": { type_args: false, type_result: false, fn: function( x, y, _ ) { return x ^ y; } }, "rem/2": { type_args: false, type_result: false, fn: function( x, y, thread ) { return y ? x % y : pl.error.evaluation( "zero_divisor", thread.__call_indicator ); } }, "mod/2": { type_args: false, type_result: false, fn: function( x, y, thread ) { return y ? x - Math.floor( x / y ) * y : pl.error.evaluation( "zero_divisor", thread.__call_indicator ); } }, "max/2": { type_args: null, type_result: null, fn: function( x, y, _ ) { return Math.max( x, y ); } }, "min/2": { type_args: null, type_result: null, fn: function( x, y, _ ) { return Math.min( x, y ); } }, "gcd/2": { type_args: false, type_result: false, fn: function( x, y, _ ) { return gcd(x, y); } } } }, // Directives directive: { // dynamic/1 "dynamic/1": function( thread, atom, options ) { var indicators = atom.args[0]; if(!pl.type.is_list(indicators)) indicators = arrayToList([indicators]); var pointer = indicators; while(pl.type.is_term(pointer) && pointer.indicator === "./2") { indicator = pointer.args[0]; if( pl.type.is_variable( indicator ) ) { thread.throw_warning( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_compound( indicator ) || indicator.indicator !== "//2" ) { thread.throw_warning( pl.error.type( "predicate_indicator", indicator, atom.indicator ) ); } else if( pl.type.is_variable( indicator.args[0] ) || pl.type.is_variable( indicator.args[1] ) ) { thread.throw_warning( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom( indicator.args[0] ) ) { thread.throw_warning( pl.error.type( "atom", indicator.args[0], atom.indicator ) ); } else if( !pl.type.is_integer( indicator.args[1] ) ) { thread.throw_warning( pl.error.type( "integer", indicator.args[1], atom.indicator ) ); } else { var key = indicator.args[0].id + "/" + indicator.args[1].value; var get_module = thread.session.modules[options.context_module]; get_module.public_predicates[key] = true; if( !get_module.rules[key] ) get_module.rules[key] = []; } pointer = pointer.args[1]; } if(pl.type.is_variable(pointer)) { thread.throw_warning( pl.error.instantiation( atom.indicator ) ); } else if(!pl.type.is_term(pointer) || pointer.indicator !== "[]/0") { thread.throw_warning( pl.error.type( "predicate_indicator", indicator, atom.indicator ) ); } },
// dynamic/[2..] "dynamic/*": function( thread, atom ) { for(var i = 0; i < atom.args.length; i++) { pl.directive["dynamic/1"](thread, new Term("dynamic", [atom.args[i]])); } }, // multifile/1 "multifile/1": function( thread, atom, options ) { var indicator = atom.args[0]; if( pl.type.is_variable( indicator ) ) { thread.throw_warning( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_compound( indicator ) || indicator.indicator !== "//2" ) { thread.throw_warning( pl.error.type( "predicate_indicator", indicator, atom.indicator ) ); } else if( pl.type.is_variable( indicator.args[0] ) || pl.type.is_variable( indicator.args[1] ) ) { thread.throw_warning( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom( indicator.args[0] ) ) { thread.throw_warning( pl.error.type( "atom", indicator.args[0], atom.indicator ) ); } else if( !pl.type.is_integer( indicator.args[1] ) ) { thread.throw_warning( pl.error.type( "integer", indicator.args[1], atom.indicator ) ); } else { var predicate_indicator = atom.args[0].args[0].id + "/" + atom.args[0].args[1].value; var get_module = thread.session.modules[options.context_module]; get_module.multifile_predicates[predicate_indicator] = true; if(!get_module.rules.hasOwnProperty(predicate_indicator)) { get_module.rules[predicate_indicator] = []; get_module.public_predicates[predicate_indicator] = false; } } },
// meta_predicate/1 "meta_predicate/1": function(thread, atom, options) { var options = options === undefined ? {} : options; var head = atom.args[0]; if( pl.type.is_variable(head) ) { thread.throw_warning(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_callable(head)) { thread.throw_warning(pl.error.type("callable", head, atom.indicator)); } else { for(var i = 0; i < head.args.length; i++) { var arg = head.args[i]; if(!pl.type.is_meta_argument_specifier(arg)) { thread.throw_warning(pl.error.type("meta_argument_specifier", arg, atom.indicator)); return; } } thread.session.modules[options.context_module].meta_predicates[head.indicator] = head; } }, // set_prolog_flag "set_prolog_flag/2": function( thread, atom ) { var flag = atom.args[0], value = atom.args[1]; if( pl.type.is_variable( flag ) || pl.type.is_variable( value ) ) { thread.throw_warning( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom( flag ) ) { thread.throw_warning( pl.error.type( "atom", flag, atom.indicator ) ); } else if( !pl.type.is_flag( flag ) ) { thread.throw_warning( pl.error.domain( "prolog_flag", flag, atom.indicator ) ); } else if( !pl.type.is_modifiable_flag( flag ) ) { thread.throw_warning( pl.error.permission( "modify", "flag", flag, atom.indicator ) ); } else if( !pl.type.is_value_flag( flag, value ) ) { thread.throw_warning( pl.error.domain( "flag_value", new Term( "+", [flag, value] ), atom.indicator ) ); } else { thread.session.flag[flag.id] = value; } },
// module/2 "module/2": function(thread, atom, options) { var options = options === undefined ? {} : options; options.context_module = options.context_module === undefined ? "user" : options.context_module; var module_id = atom.args[0], exports = atom.args[1]; if(pl.type.is_variable(module_id) || pl.type.is_variable(exports)) { thread.throw_warning(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(module_id)) { thread.throw_warning(pl.error.type("atom", module_id, atom.indicator)); } else if(!pl.type.is_list(exports)) { thread.throw_warning(pl.error.type("list", exports, atom.indicator)); } else { if(!pl.type.is_module(thread.session.modules[module_id.indicator])) { var pointer = exports; var indicators = []; while(pl.type.is_term(pointer) && pointer.indicator === "./2") { var predicate = pointer.args[0]; if(!pl.type.is_predicate_indicator(predicate)) { thread.throw_warning(pl.error.type("predicate_indicator", predicate, atom.indicator)); } else { indicators.push(predicate.args[0].id + "/" + predicate.args[1].value); } pointer = pointer.args[1]; } if(pl.type.is_variable(pointer)) { thread.throw_warning(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_empty_list(pointer)) { thread.throw_warning(pl.error.type("list", exports, atom.indicator)); } var new_module = new Module(module_id.id, {}, indicators, { session: thread.session }); thread.session.modules[module_id.id] = new_module; thread.session.modules[options.context_module].modules[module_id.id] = new_module; options.context_module = module_id.id; } else { thread.throw_warning(pl.error.permission("create", "module", module_id, atom.indicator)); } } }, // use_module/1 "use_module/1": function(thread, atom, options) { var options = options === undefined ? {} : options; options.context_module = options.context_module === undefined ? "user" : options.context_module; var module_id = atom.args[0]; if(pl.type.is_variable(module_id)) { thread.throw_warning(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_term(module_id)) { thread.throw_warning(pl.error.type("term", module_id, atom.indicator)); } else { if(module_id.indicator === "library/1") { var name = module_id.args[0].id; var get_module = pl.modules[name]; if(pl.type.is_module(get_module)) { if(!thread.session.modules[options.context_module].modules.hasOwnProperty(name)) { thread.session.modules[name] = get_module; thread.session.modules[options.context_module].modules[name] = get_module; for(var i = 0; i < get_module.dependencies.length; i++) { var term = new Term("use_module", [new Term("library", [new Term(get_module.dependencies[i])])]); pl.directive["use_module/1"](thread, term, { context_module: name }); } } } else { thread.throw_warning(pl.error.existence("module", module_id, atom.indicator)); } } else { var name = module_id.id; thread.consult(name, { context_module: options.context_module, text: false, success: function() { parseProgram(thread, options.string, options); }, error: function() { options.error(pl.error.existence("module", module_id, atom.indicator)); } }); return true; } } }, // char_conversion/2 "char_conversion/2": function(thread, atom, options) { var inchar = atom.args[0], outchar = atom.args[1]; if(pl.type.is_variable(inchar) || pl.type.is_variable(outchar)) { thread.throw_warning(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_character(inchar)) { thread.throw_warning(pl.error.type("character", inchar, atom.indicator)); } else if(!pl.type.is_character(outchar)) { thread.throw_warning(pl.error.type("character", outchar, atom.indicator)); } else { if(inchar.id === outchar.id) { delete thread.session.__char_conversion[inchar.id]; } else { thread.session.__char_conversion[inchar.id] = outchar.id; } options.tokens = options.tokenizer.get_tokens(options.current_token); options.current_token = 0; return true; } }, // op/3 "op/3": function( thread, atom ) { var priority = atom.args[0], type = atom.args[1], operators = atom.args[2]; if(pl.type.is_atom(operators)) operators = new Term(".", [operators, new Term("[]")]); if( pl.type.is_variable( priority ) || pl.type.is_variable( type ) || pl.type.is_variable( operators ) ) { thread.throw_warning( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_integer( priority ) ) { thread.throw_warning( pl.error.type( "integer", priority, atom.indicator ) ); } else if( !pl.type.is_atom( type ) ) { thread.throw_warning( pl.error.type( "atom", type, atom.indicator ) ); } else if( !pl.type.is_list( operators ) ) { thread.throw_warning( pl.error.type( "list", operators, atom.indicator ) ); } else if( pl.type.is_empty_list( operators ) ) { thread.throw_warning( pl.error.permission( "create", "operator", operators, atom.indicator ) ); } else { var pointer = operators; while(pl.type.is_term(pointer) && pointer.indicator === "./2") { var operator = pointer.args[0]; pointer = pointer.args[1]; if( pl.type.is_variable( operator ) ) { thread.throw_warning( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom( operator ) ) { thread.throw_warning( pl.error.type( "atom", operator, atom.indicator ) ); } else if( priority.value < 0 || priority.value > 1200 ) { thread.throw_warning( pl.error.domain( "operator_priority", priority, atom.indicator ) ); } else if( operator.id === "," ) { thread.throw_error( pl.error.permission( "modify", "operator", operator, atom.indicator ) ); } else if( operator.id === "{}" ) { thread.throw_warning( pl.error.permission( "create", "operator", operator, atom.indicator ) ); } else if( operator.id === "[]" ) { thread.throw_warning( pl.error.permission( "create", "operator", operator, atom.indicator ) ); } else if( operator.id === "|" && priority.value !== 0 && (priority.value < 1001 || type.id.length !== 3 ) ) { thread.throw_warning( pl.error.permission( "create", "operator", operator, atom.indicator ) ); } else if( ["fy", "fx", "yf", "xf", "xfx", "yfx", "xfy"].indexOf( type.id ) === -1 ) { thread.throw_warning( pl.error.domain( "operator_specifier", type, atom.indicator ) ); } else { var fix = { prefix: null, infix: null, postfix: null }; for( var p in thread.session.__operators ) { if(!thread.session.__operators.hasOwnProperty(p)) continue; var classes = thread.session.__operators[p][operator.id]; if( classes ) { if( indexOf( classes, "fx" ) !== -1 ) { fix.prefix = { priority: p, type: "fx" }; } if( indexOf( classes, "fy" ) !== -1 ) { fix.prefix = { priority: p, type: "fy" }; } if( indexOf( classes, "xf" ) !== -1 ) { fix.postfix = { priority: p, type: "xf" }; } if( indexOf( classes, "yf" ) !== -1 ) { fix.postfix = { priority: p, type: "yf" }; } if( indexOf( classes, "xfx" ) !== -1 ) { fix.infix = { priority: p, type: "xfx" }; } if( indexOf( classes, "xfy" ) !== -1 ) { fix.infix = { priority: p, type: "xfy" }; } if( indexOf( classes, "yfx" ) !== -1 ) { fix.infix = { priority: p, type: "yfx" }; } } } var current_class; switch( type.id ) { case "fy": case "fx": current_class = "prefix"; break; case "yf": case "xf": current_class = "postfix"; break; default: current_class = "infix"; break; } if(fix.infix && current_class === "postfix" || fix.postfix && current_class === "infix") { thread.throw_warning( pl.error.permission( "create", "operator", operator, atom.indicator ) ); } else { if( fix[current_class] ) { remove( thread.session.__operators[fix[current_class].priority][operator.id], fix[current_class].type ); if( thread.session.__operators[fix[current_class].priority][operator.id].length === 0 ) { delete thread.session.__operators[fix[current_class].priority][operator.id]; } } if( priority.value > 0 ) { if( !thread.session.__operators[priority.value] ) thread.session.__operators[priority.value.toString()] = {}; if( !thread.session.__operators[priority.value][operator.id] ) thread.session.__operators[priority.value][operator.id] = []; thread.session.__operators[priority.value][operator.id].push( type.id ); } } } } if(pl.type.is_variable(pointer)) { thread.throw_warning( pl.error.instantiation( atom.indicator ) ); return; } else if(!pl.type.is_term(pointer) || pointer.indicator !== "[]/0") { thread.throw_warning( pl.error.type( "list", operators, atom.indicator ) ); return; } } },
// initialization/1 "initialization/1": function(thread, atom, options) { var goal = atom.args[0]; options.initialization.push(goal); } }, // Flags flag: { // Bounded numbers bounded: { allowed: [new Term( "true" ), new Term( "false" )], value: new Term( "true" ), changeable: false }, // Maximum integer max_integer: { allowed: [new Num( Number.MAX_SAFE_INTEGER )], value: new Num( Number.MAX_SAFE_INTEGER ), changeable: false }, // Minimum integer min_integer: { allowed: [new Num( Number.MIN_SAFE_INTEGER )], value: new Num( Number.MIN_SAFE_INTEGER ), changeable: false }, // Rounding function integer_rounding_function: { allowed: [new Term( "down" ), new Term( "toward_zero" )], value: new Term( "toward_zero" ), changeable: false }, // Character conversion char_conversion: { allowed: [new Term( "on" ), new Term( "off" )], value: new Term( "on" ), changeable: true }, // Debugger debug: { allowed: [new Term( "on" ), new Term( "off" )], value: new Term( "off" ), changeable: true }, // Maximum arity of predicates max_arity: { allowed: [new Term( "unbounded" )], value: new Term( "unbounded" ), changeable: false }, // Unkwnow predicates behavior unknown: { allowed: [new Term( "error" ), new Term( "fail" ), new Term( "warning" )], value: new Term( "error" ), changeable: true }, // Double quotes behavior double_quotes: { allowed: [new Term( "chars" ), new Term( "codes" ), new Term( "atom" )], value: new Term( "chars" ), changeable: true }, // Occurs check behavior occurs_check: { allowed: [new Term( "false" ), new Term( "true" )], value: new Term( "false" ), changeable: true }, // Dialect dialect: { allowed: [new Term( "tau" )], value: new Term( "tau" ), changeable: false }, // Version version_data: { allowed: [new Term( "tau", [new Num(version.major,false), new Num(version.minor,false), new Num(version.patch,false), new Term(version.status)] )], value: new Term( "tau", [new Num(version.major,false), new Num(version.minor,false), new Num(version.patch,false), new Term(version.status)] ), changeable: false }, // NodeJS nodejs: { allowed: [new Term( "true" ), new Term( "false" )], value: new Term( nodejs_flag ? "true" : "false" ), changeable: false },
// Arguments argv: { allowed: [nodejs_arguments], value: nodejs_arguments, changeble: false } }, // Unify unify: function(t1, t2, occurs_check) { occurs_check = occurs_check === undefined ? false : occurs_check; var left = Array.isArray(t1) ? t1 : [t1]; var right = Array.isArray(t2) ? t2 : [t2]; if(left.length !== right.length) return null; var subs = new Substitution(); while(left.length > 0) { var s = left.pop(); var t = right.pop(); if(pl.type.is_variable(s)) s = s.apply(subs); if(pl.type.is_variable(t)) t = t.apply(subs); // same object if(s == t) continue; // compound terms if(pl.type.is_term(s) && pl.type.is_term(t)) { if(s.indicator !== t.indicator) return null; for(var i = s.args.length-1; i >= 0; i--) { left.push(s.args[i]); right.push(t.args[i]); } // numbers } else if(pl.type.is_number(s) && pl.type.is_number(t)) { if(s.value !== t.value || s.is_float !== t.is_float) return null; // variable - term } else if(pl.type.is_variable(s)) { t = t.apply(subs); // x = x if(pl.type.is_variable(t) && s.id === t.id) continue; // occurs check if(occurs_check === true && indexOf(t.variables(), s.id) !== -1) return null; // anonymous variable if(s.id !== "_") subs.add(s.id, t); // term - variable } else if(pl.type.is_variable(t)) { left.push(t); right.push(s); // user-defined terms } else if(s.unify !== undefined) { var user_subs = s.apply(subs).unify(t.apply(subs), occurs_check); if(user_subs == null) return null; for(var i in user_subs.links) subs.add(i, user_subs.links[i]); } else { return null; } } return subs.apply(subs); },
// Is rename is_rename: function(obj1, obj2, links) { links = links || {}; if(obj1.is_rename && obj2.is_rename) return obj1.is_rename(obj2, links); else if(obj1.equals && obj2.equals) return obj1.equals(obj2); else return false; }, // Compare compare: function( obj1, obj2 ) { var type = pl.type.compare( obj1, obj2 ); return type !== 0 ? type : obj1.compare( obj2 ); }, // Arithmetic comparison arithmetic_compare: function( thread, obj1, obj2 ) { var expr1 = obj1.interpret( thread ); if( !pl.type.is_number( expr1 ) ) { return expr1; } else { var expr2 = obj2.interpret( thread ); if( !pl.type.is_number( expr2 ) ) { return expr2; } else { return expr1.value < expr2.value ? -1 : (expr1.value > expr2.value ? 1 : 0); } } }, // Operate operate: function( thread, obj ) { if( pl.type.is_operator( obj ) ) { var op = pl.type.is_operator( obj ); var args = [], value; var type = false; for( var i = 0; i < obj.args.length; i++ ) { value = obj.args[i].interpret( thread ); if( !pl.type.is_number( value ) ) { return value; } else if( op.type_args !== null && value.is_float !== op.type_args ) { return pl.error.type( op.type_args ? "float" : "integer", value, thread.__call_indicator ); } else { args.push( value.value ); } type = type || value.is_float; } args.push( thread ); value = pl.arithmetic.evaluation[obj.indicator].fn.apply( this, args ); if(obj.indicator === "^/2" && !type && value !== parseInt(value, 10)) return pl.error.type( "float", new Num(args[0],false), thread.__call_indicator ); type = op.type_result === null ? type : op.type_result; if( pl.type.is_term( value ) ) { return value; } else if( value === Number.POSITIVE_INFINITY || value === Number.NEGATIVE_INFINITY ) { return pl.error.evaluation( "float_overflow", thread.__call_indicator ); } else if( type === false && thread.get_flag( "bounded" ).id === "true" && (value > thread.get_flag( "max_integer" ).value || value < thread.get_flag( "min_integer" ).value) ) { return pl.error.evaluation( "int_overflow", thread.__call_indicator ); } else { return new Num( value, type ); } } else { return pl.error.type( "evaluable", str_indicator(obj.indicator), thread.__call_indicator ); } }, // Errors error: { // Existence error existence: function( type, object, indicator ) { if( typeof object === "string" ) object = str_indicator( object ); return new Term( "error", [new Term( "existence_error", [new Term( type ), object] ), str_indicator( indicator )] ); }, // Type error type: function( expected, found, indicator ) { return new Term( "error", [new Term( "type_error", [new Term( expected ), found] ), str_indicator( indicator )] ); }, // Instantation error instantiation: function( indicator ) { return new Term( "error", [new Term( "instantiation_error" ), str_indicator( indicator )] ); }, // Uninstantation error uninstantiation: function( found, indicator ) { return new Term( "error", [new Term( "uninstantiation_error", [new Term( found )] ), str_indicator( indicator )] ); }, // Domain error domain: function( expected, found, indicator ) { return new Term( "error", [new Term( "domain_error", [new Term( expected ), found]), str_indicator( indicator )] ); }, // Representation error representation: function( flag, indicator ) { return new Term( "error", [new Term( "representation_error", [new Term( flag )] ), str_indicator( indicator )] ); }, // Permission error permission: function( operation, type, found, indicator ) { return new Term( "error", [new Term( "permission_error", [new Term( operation ), new Term( type ), found] ), str_indicator( indicator )] ); }, // Evaluation error evaluation: function( error, indicator ) { return new Term( "error", [new Term( "evaluation_error", [new Term( error )] ), str_indicator( indicator )] ); }, // Syntax error syntax: function( token, expected, last ) { token = token || {value: "", line: 0, column: 0, matches: [""], start: 0}; var position = last && token.matches.length > 0 ? token.start + token.matches[0].length : token.start; var found = last ? new Term("token_not_found") : new Term("found", [new Term(token.value.toString())]); var info = new Term( ".", [new Term( "line", [new Num(token.line+1)] ), new Term( ".", [new Term( "column", [new Num(position)] ), new Term( ".", [found, new Term( "[]", [] )] )] )] ); return new Term( "error", [new Term( "syntax_error", [new Term( expected )] ), info] ); }, // Syntax error by predicate syntax_by_predicate: function( expected, indicator ) { return new Term( "error", [new Term( "syntax_error", [new Term( expected ) ] ), str_indicator( indicator )] ); } }, // Warnings warning: { // Singleton variables singleton: function( variables, rule, line ) { var list = new Term( "[]" ); for( var i = variables.length-1; i >= 0; i-- ) list = new Term( ".", [new Var(variables[i]), list] ); return new Term( "warning", [new Term( "singleton_variables", [list, str_indicator(rule)]), new Term(".",[new Term( "line", [ new Num( line, false ) ]), new Term("[]")])] ); }, // Failed goal failed_goal: function( goal, line ) { return new Term( "warning", [new Term( "failed_goal", [goal]), new Term(".",[new Term( "line", [ new Num( line, false ) ]), new Term("[]")])] ); }
}, // Format of renamed variables format_variable: function( id, variable ) { var charcode = variable && variable.length > 0 ? codePointAt(variable, 1) : 0; if(variable === "_" || variable && variable[0] === "_" && (charcode === 95 || charcode >= 65 && charcode <= 90)) return "__" + id; return "_" + id; }, // Format of computed answers format_answer: function( answer, thread, options ) { if( thread instanceof Session ) thread = thread.thread; var options = options ? options : {}; options.session = thread ? thread.session : undefined; if( pl.type.is_error( answer ) ) { return "uncaught exception: " + answer.args[0].toString(options); } else if( answer === false ) { return "false."; } else if( answer === null ) { return "limit exceeded ;"; } else { var i = 0; var str = ""; if( pl.type.is_substitution( answer ) ) { var dom = answer.domain( true ); for( var link in answer.links ){ if( !answer.links.hasOwnProperty(link) ) continue; if( pl.type.is_variable(answer.links[link]) ) { var links = {}; links[answer.links[link].id] = new Var(link); answer = answer.apply( new Substitution(links) ); } } answer = answer.filter( function( id, value ) { return !pl.type.is_variable( value ) || pl.type.is_variable( value ) && answer.has_attributes( id ) || indexOf( dom, value.id ) !== -1 && id !== value.id; } ); } for( var link in answer.links ) { if(!answer.links.hasOwnProperty(link)) continue; if( pl.type.is_variable( answer.links[link] ) && link === answer.links[link].id ) { var attrs = answer.attrs[link]; for( var module in attrs ) { if(!attrs.hasOwnProperty(module)) continue; i++; if( str !== "" ) str += ", "; str += "put_attr(" + link + ", " + module + ", " + attrs[module].toString(options) + ")"; } } else { i++; if( str !== "" ) str += ", "; str += link.toString( options ) + " = " + answer.links[link].toString( options, {priority: "700", class: "xfx", indicator: "=/2"}, "right" ); } } var delimiter = typeof thread === "undefined" || thread.points.length > 0 ? " ;" : "."; if( i === 0 ) { return "true" + delimiter; } else { return str + delimiter; } } }, // Flatten default errors flatten_error: function( error ) { if( !pl.type.is_error( error ) ) return null; error = error.args[0]; var obj = {}; obj.type = error.args[0].id; obj.thrown = obj.type === "syntax_error" ? null : error.args[1].id; obj.expected = null; obj.found = null; obj.representation = null; obj.existence = null; obj.existence_type = null; obj.line = null; obj.column = null; obj.permission_operation = null; obj.permission_type = null; obj.evaluation_type = null; if( obj.type === "type_error" || obj.type === "domain_error" ) { obj.expected = error.args[0].args[0].id; obj.found = error.args[0].args[1].toString(); } else if( obj.type === "syntax_error" ) { if( error.args[1].indicator === "./2" ) { obj.expected = error.args[0].args[0].id; obj.found = error.args[1].args[1].args[1].args[0]; obj.found = obj.found.id === "token_not_found" ? obj.found.id : obj.found.args[0].id; obj.line = error.args[1].args[0].args[0].value; obj.column = error.args[1].args[1].args[0].args[0].value; } else { obj.thrown = error.args[1].id; } } else if( obj.type === "permission_error" ) { obj.found = error.args[0].args[2].toString(); obj.permission_operation = error.args[0].args[0].id; obj.permission_type = error.args[0].args[1].id; } else if( obj.type === "evaluation_error" ) { obj.evaluation_type = error.args[0].args[0].id; } else if( obj.type === "representation_error" ) { obj.representation = error.args[0].args[0].id; } else if( obj.type === "existence_error" ) { obj.existence = error.args[0].args[1].toString(); obj.existence_type = error.args[0].args[0].id; } return obj; }, // Create new session create: function( limit ) { return new pl.type.Session( limit ); } };
// Built-in predicates pl.builtin = new Module("system", {
// TERM AND GOAL EXPANSION
// goal_expansion/2 "goal_expansion/2": [ new Rule(new Term("goal_expansion", [new Term(",", [new Var("X"),new Var("Y")]),new Term(",", [new Var("X_"),new Var("Y_")])]), new Term(";", [new Term(",", [new Term("goal_expansion", [new Var("X"),new Var("X_")]),new Term(";", [new Term("goal_expansion", [new Var("Y"),new Var("Y_")]),new Term("=", [new Var("Y_"),new Var("Y")])])]),new Term(",", [new Term("=", [new Var("X"),new Var("X_")]),new Term("goal_expansion", [new Var("Y"),new Var("Y_")])])])), new Rule(new Term("goal_expansion", [new Term(";", [new Var("X"),new Var("Y")]),new Term(";", [new Var("X_"),new Var("Y_")])]), new Term(";", [new Term(",", [new Term("goal_expansion", [new Var("X"),new Var("X_")]),new Term(";", [new Term("goal_expansion", [new Var("Y"),new Var("Y_")]),new Term("=", [new Var("Y_"),new Var("Y")])])]),new Term(",", [new Term("=", [new Var("X"),new Var("X_")]),new Term("goal_expansion", [new Var("Y"),new Var("Y_")])])])), new Rule(new Term("goal_expansion", [new Term("->", [new Var("X"),new Var("Y")]),new Term("->", [new Var("X_"),new Var("Y_")])]), new Term(";", [new Term(",", [new Term("goal_expansion", [new Var("X"),new Var("X_")]),new Term(";", [new Term("goal_expansion", [new Var("Y"),new Var("Y_")]),new Term("=", [new Var("Y_"),new Var("Y")])])]),new Term(",", [new Term("=", [new Var("X"),new Var("X_")]),new Term("goal_expansion", [new Var("Y"),new Var("Y_")])])])), new Rule(new Term("goal_expansion", [new Term("catch", [new Var("X"),new Var("Y"),new Var("Z")]),new Term("catch", [new Var("X_"),new Var("Y"),new Var("Z_")])]), new Term(";", [new Term(",", [new Term("goal_expansion", [new Var("X"),new Var("X_")]),new Term(";", [new Term("goal_expansion", [new Var("Z"),new Var("Z_")]),new Term("=", [new Var("Z_"),new Var("Z")])])]),new Term(",", [new Term("=", [new Var("X_"),new Var("X")]),new Term("goal_expansion", [new Var("Z"),new Var("Z_")])])])), new Rule(new Term("goal_expansion", [new Term("\\+", [new Var("X")]),new Term("\\+", [new Var("X_")])]), new Term(",", [new Term("nonvar", [new Var("X")]),new Term("goal_expansion", [new Var("X"),new Var("X_")])])), new Rule(new Term("goal_expansion", [new Term("once", [new Var("X")]),new Term("once", [new Var("X_")])]), new Term(",", [new Term("nonvar", [new Var("X")]),new Term("goal_expansion", [new Var("X"),new Var("X_")])])), new Rule(new Term("goal_expansion", [new Term("findall", [new Var("X"),new Var("Y"),new Var("Z")]),new Term("findall", [new Var("X"),new Var("Y_"),new Var("Z")])]), new Term("goal_expansion", [new Var("Y"),new Var("Y_")])), new Rule(new Term("goal_expansion", [new Term("setof", [new Var("X"),new Var("Y"),new Var("Z")]),new Term("findall", [new Var("X"),new Var("Y_"),new Var("Z")])]), new Term("goal_expansion", [new Var("Y"),new Var("Y_")])), new Rule(new Term("goal_expansion", [new Term("bagof", [new Var("X"),new Var("Y"),new Var("Z")]),new Term("findall", [new Var("X"),new Var("Y_"),new Var("Z")])]), new Term("goal_expansion", [new Var("Y"),new Var("Y_")])), new Rule(new Term("goal_expansion", [new Term("call", [new Var("X")]),new Term("call", [new Var("X_")])]), new Term(",", [new Term("nonvar", [new Var("X")]),new Term("goal_expansion", [new Var("X"),new Var("X_")])])), new Rule(new Term("goal_expansion", [new Term("call", [new Var("X"),new Var("A1")]),new Term("call", [new Var("F_")])]), new Term(",", [new Term("=..", [new Var("F"),new Term(".", [new Var("X"),new Term(".", [new Var("A1"),new Term("[]", [])])])]),new Term("goal_expansion", [new Var("F"),new Var("F_")])])), new Rule(new Term("goal_expansion", [new Term("call", [new Var("X"),new Var("A1"),new Var("A2")]),new Term("call", [new Var("F_")])]), new Term(",", [new Term("=..", [new Var("F"),new Term(".", [new Var("X"),new Term(".", [new Var("A1"),new Term(".", [new Var("A2"),new Term("[]", [])])])])]),new Term("goal_expansion", [new Var("F"),new Var("F_")])])), new Rule(new Term("goal_expansion", [new Term("call", [new Var("X"),new Var("A1"),new Var("A2"),new Var("A3")]),new Term("call", [new Var("F_")])]), new Term(",", [new Term("=..", [new Var("F"),new Term(".", [new Var("X"),new Term(".", [new Var("A1"),new Term(".", [new Var("A2"),new Term(".", [new Var("A3"),new Term("[]", [])])])])])]),new Term("goal_expansion", [new Var("F"),new Var("F_")])])), new Rule(new Term("goal_expansion", [new Term("call", [new Var("X"),new Var("A1"),new Var("A2"),new Var("A3"),new Var("A4")]),new Term("call", [new Var("F_")])]), new Term(",", [new Term("=..", [new Var("F"),new Term(".", [new Var("X"),new Term(".", [new Var("A1"),new Term(".", [new Var("A2"),new Term(".", [new Var("A3"),new Term(".", [new Var("A4"),new Term("[]", [])])])])])])]),new Term("goal_expansion", [new Var("F"),new Var("F_")])])), new Rule(new Term("goal_expansion", [new Term("call", [new Var("X"),new Var("A1"),new Var("A2"),new Var("A3"),new Var("A4"),new Var("A5")]),new Term("call", [new Var("F_")])]), new Term(",", [new Term("=..", [new Var("F"),new Term(".", [new Var("X"),new Term(".", [new Var("A1"),new Term(".", [new Var("A2"),new Term(".", [new Var("A3"),new Term(".", [new Var("A4"),new Term(".", [new Var("A5"),new Term("[]", [])])])])])])])]),new Term("goal_expansion", [new Var("F"),new Var("F_")])])), new Rule(new Term("goal_expansion", [new Term("call", [new Var("X"),new Var("A1"),new Var("A2"),new Var("A3"),new Var("A4"),new Var("A5"),new Var("A6")]),new Term("call", [new Var("F_")])]), new Term(",", [new Term("=..", [new Var("F"),new Term(".", [new Var("X"),new Term(".", [new Var("A1"),new Term(".", [new Var("A2"),new Term(".", [new Var("A3"),new Term(".", [new Var("A4"),new Term(".", [new Var("A5"),new Term(".", [new Var("A6"),new Term("[]", [])])])])])])])])]),new Term("goal_expansion", [new Var("F"),new Var("F_")])])), new Rule(new Term("goal_expansion", [new Term("call", [new Var("X"),new Var("A1"),new Var("A2"),new Var("A3"),new Var("A4"),new Var("A5"),new Var("A6"),new Var("A7")]),new Term("call", [new Var("F_")])]), new Term(",", [new Term("=..", [new Var("F"),new Term(".", [new Var("X"),new Term(".", [new Var("A1"),new Term(".", [new Var("A2"),new Term(".", [new Var("A3"),new Term(".", [new Var("A4"),new Term(".", [new Var("A5"),new Term(".", [new Var("A6"),new Term(".", [new Var("A7"),new Term("[]", [])])])])])])])])])]),new Term("goal_expansion", [new Var("F"),new Var("F_")])])) ],
// SYSTEM PREDICATES ($)
// '$push_global_stack'/2 "$push_global_stack/2": function(thread, point, atom) { var stack = atom.args[0], value = atom.args[1]; if(!pl.type.is_variable(stack)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else { thread.push_global_stack(stack.id, value); thread.success(point); } },
// '$flush_global_stack'/3 "$flush_global_stack/3": function(thread, point, atom) { var stack = atom.args[0], list = atom.args[1], tail = atom.args[2]; if(!pl.type.is_variable(stack)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else { var values = thread.flush_global_stack(stack.id, tail); thread.prepend([new State( point.goal.replace(new Term("=", [list, values])), point.substitution, point )]); } },
// '$free_variable_set'/3 "$free_variable_set/3": function(thread, point, atom) { var goal_in = atom.args[0], goal_out = atom.args[1], vars = atom.args[2]; var bv = []; var pointer = goal_in; while(pl.type.is_term(pointer) && pointer.indicator === "^/2") { bv = bv.concat(pointer.args[0].variables()); pointer = pointer.args[1]; } var gv = pointer.variables(); var fv = arrayToList(map(difference(gv, bv), function(v) { return new Var(v); })); thread.prepend([ new State( point.goal.replace(new Term(",", [ new Term("=", [goal_out, pointer]), new Term("=", [vars, fv]) ])), point.substitution, point ) ]); },
// '$member'/2 "$member/2": [ new pl.type.Rule(new pl.type.Term("$member", [new pl.type.Var("X"),new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("_")])]), null), new pl.type.Rule(new pl.type.Term("$member", [new pl.type.Var("X"),new pl.type.Term(".", [new pl.type.Var("_"),new pl.type.Var("Xs")])]), new pl.type.Term("$member", [new pl.type.Var("X"),new pl.type.Var("Xs")])) ],
// '$findall'/4 "$findall/4": [ new pl.type.Rule(new pl.type.Term("$findall", [new pl.type.Var("Template0"),new pl.type.Var("Goal0"),new pl.type.Var("Instances"),new pl.type.Var("Tail")]), new pl.type.Term(";", [new pl.type.Term(",", [new pl.type.Term("copy_term", [new pl.type.Term("-", [new pl.type.Var("Template0"),new pl.type.Var("Goal0")]),new pl.type.Term("-", [new pl.type.Var("Template1"),new pl.type.Var("Goal1")])]),new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("Goal1")]),new pl.type.Term(",", [new pl.type.Term("$push_global_stack", [new pl.type.Var("Var"),new pl.type.Var("Template1")]),new pl.type.Term("false", [])])])]),new pl.type.Term("$flush_global_stack", [new pl.type.Var("Var"),new pl.type.Var("Instances"),new pl.type.Var("Tail")])])) ],
// '$bagof'/3 "$bagof/3": [ new pl.type.Rule(new pl.type.Term("$bagof", [new pl.type.Var("Template"),new pl.type.Var("Goal0"),new pl.type.Var("Answer")]), new pl.type.Term(",", [new pl.type.Term("$free_variable_set", [new pl.type.Term("^", [new pl.type.Var("Template"),new pl.type.Var("Goal0")]),new pl.type.Var("Goal1"),new pl.type.Var("FV")]),new pl.type.Term(",", [new pl.type.Term("findall", [new pl.type.Term("-", [new pl.type.Var("FV"),new pl.type.Var("Template")]),new pl.type.Var("Goal1"),new pl.type.Var("Answers"),new pl.type.Term("[]", [])]),new pl.type.Term(",", [new pl.type.Term("keygroup", [new pl.type.Var("Answers"),new pl.type.Var("KeyGroups")]),new pl.type.Term(",", [new pl.type.Term("keysort", [new pl.type.Var("KeyGroups"),new pl.type.Var("KeySorted")]),new pl.type.Term("$member", [new pl.type.Term("-", [new pl.type.Var("FV"),new pl.type.Var("Answer")]),new pl.type.Var("KeySorted")])])])])])) ],
// '$setof'/3 "$setof/3": [ new pl.type.Rule(new pl.type.Term("$setof", [new pl.type.Var("Template"),new pl.type.Var("Goal0"),new pl.type.Var("Answer")]), new pl.type.Term(",", [new pl.type.Term("$free_variable_set", [new pl.type.Term("^", [new pl.type.Var("Template"),new pl.type.Var("Goal0")]),new pl.type.Var("Goal1"),new pl.type.Var("FV")]),new pl.type.Term(",", [new pl.type.Term("findall", [new pl.type.Term("-", [new pl.type.Var("FV"),new pl.type.Var("Template")]),new pl.type.Var("Goal1"),new pl.type.Var("Answers"),new pl.type.Term("[]", [])]),new pl.type.Term(",", [new pl.type.Term("keygroup", [new pl.type.Var("Answers"),new pl.type.Var("KeyGroups")]),new pl.type.Term(",", [new pl.type.Term("keysort", [new pl.type.Var("KeyGroups"),new pl.type.Var("KeySorted")]),new pl.type.Term(",", [new pl.type.Term("$member", [new pl.type.Term("-", [new pl.type.Var("FV"),new pl.type.Var("Unsorted")]),new pl.type.Var("KeySorted")]),new pl.type.Term("sort", [new pl.type.Var("Unsorted"),new pl.type.Var("Answer")])])])])])])) ],
// ATTRIBUTED VARIABLES //put_attr/3 "put_attr/3": function( thread, point, atom ) { var variable = atom.args[0], module = atom.args[1], value = atom.args[2]; if( !pl.type.is_variable(variable) ) { thread.throw_error( pl.error.type( "variable", variable, atom.indicator ) ); } else if( !pl.type.is_atom(module) ) { thread.throw_error( pl.error.type( "atom", module, atom.indicator ) ); } else { var subs = point.substitution.set_attribute( variable.id, module, value ); thread.prepend( [new State( point.goal.replace(null), subs, point )] ); } },
// get_attr/3 "get_attr/3": function( thread, point, atom ) { var variable = atom.args[0], module = atom.args[1], value = atom.args[2]; if( !pl.type.is_variable(variable) ) { thread.throw_error( pl.error.type( "variable", variable, atom.indicator ) ); } else if( !pl.type.is_atom(module) ) { thread.throw_error( pl.error.type( "atom", module, atom.indicator ) ); } else { var attr = point.substitution.get_attribute( variable.id, module ); if( attr ) { thread.prepend( [new State( point.goal.replace( new Term("=", [value, attr]) ), point.substitution, point )] ); } } },
// INPUT AND OUTPUT // op/3 "op/3": function( thread, point, atom ) { var priority = atom.args[0], type = atom.args[1], operators = atom.args[2]; if(pl.type.is_atom(operators)) operators = new Term(".", [operators, new Term("[]")]); if( pl.type.is_variable( priority ) || pl.type.is_variable( type ) || pl.type.is_variable( operators ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_integer( priority ) ) { thread.throw_error( pl.error.type( "integer", priority, atom.indicator ) ); } else if( !pl.type.is_atom( type ) ) { thread.throw_error( pl.error.type( "atom", type, atom.indicator ) ); } else if( !pl.type.is_list( operators ) ) { thread.throw_error( pl.error.type( "list", operators, atom.indicator ) ); } else if( pl.type.is_empty_list( operators ) ) { thread.throw_error( pl.error.permission( "create", "operator", operators, atom.indicator ) ); } else { var pointer = operators; while(pl.type.is_term(pointer) && pointer.indicator === "./2") { var operator = pointer.args[0]; pointer = pointer.args[1]; if( pl.type.is_variable( operator ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if( !pl.type.is_atom( operator ) ) { thread.throw_error( pl.error.type( "atom", operator, atom.indicator ) ); return; } else if( priority.value < 0 || priority.value > 1200 ) { thread.throw_error( pl.error.domain( "operator_priority", priority, atom.indicator ) ); return; } else if( operator.id === "," ) { thread.throw_error( pl.error.permission( "modify", "operator", operator, atom.indicator ) ); return; } else if( operator.id === "{}" ) { thread.throw_error( pl.error.permission( "create", "operator", operator, atom.indicator ) ); return; } else if( operator.id === "[]" ) { thread.throw_error( pl.error.permission( "create", "operator", operator, atom.indicator ) ); return; } else if( operator.id === "|" && priority.value !== 0 && (priority.value < 1001 || type.id.length !== 3 ) ) { thread.throw_error( pl.error.permission( "create", "operator", operator, atom.indicator ) ); return; } else if( ["fy", "fx", "yf", "xf", "xfx", "yfx", "xfy"].indexOf( type.id ) === -1 ) { thread.throw_error( pl.error.domain( "operator_specifier", type, atom.indicator ) ); return; } else { var fix = { prefix: null, infix: null, postfix: null }; for( var p in thread.session.__operators ) { if(!thread.session.__operators.hasOwnProperty(p)) continue; var classes = thread.session.__operators[p][operator.id]; if( classes ) { if( indexOf( classes, "fx" ) !== -1 ) { fix.prefix = { priority: p, type: "fx" }; } if( indexOf( classes, "fy" ) !== -1 ) { fix.prefix = { priority: p, type: "fy" }; } if( indexOf( classes, "xf" ) !== -1 ) { fix.postfix = { priority: p, type: "xf" }; } if( indexOf( classes, "yf" ) !== -1 ) { fix.postfix = { priority: p, type: "yf" }; } if( indexOf( classes, "xfx" ) !== -1 ) { fix.infix = { priority: p, type: "xfx" }; } if( indexOf( classes, "xfy" ) !== -1 ) { fix.infix = { priority: p, type: "xfy" }; } if( indexOf( classes, "yfx" ) !== -1 ) { fix.infix = { priority: p, type: "yfx" }; } } } var current_class; switch( type.id ) { case "fy": case "fx": current_class = "prefix"; break; case "yf": case "xf": current_class = "postfix"; break; default: current_class = "infix"; break; } if(fix.infix && current_class === "postfix" || fix.postfix && current_class === "infix") { thread.throw_error( pl.error.permission( "create", "operator", operator, atom.indicator ) ); return; } else { if( fix[current_class] ) { remove( thread.session.__operators[fix[current_class].priority][operator.id], fix[current_class].type ); if( thread.session.__operators[fix[current_class].priority][operator.id].length === 0 ) { delete thread.session.__operators[fix[current_class].priority][operator.id]; } } if( priority.value > 0 ) { if( !thread.session.__operators[priority.value] ) thread.session.__operators[priority.value.toString()] = {}; if( !thread.session.__operators[priority.value][operator.id] ) thread.session.__operators[priority.value][operator.id] = []; thread.session.__operators[priority.value][operator.id].push( type.id ); } } } } if(pl.type.is_variable(pointer)) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if(!pl.type.is_term(pointer) || pointer.indicator !== "[]/0") { thread.throw_error( pl.error.type( "list", operators, atom.indicator ) ); return; } else { thread.success(point); } } }, // current_op/3 "current_op/3": function( thread, point, atom ) { var priority = atom.args[0], specifier = atom.args[1], operator = atom.args[2]; var points = []; if( !pl.type.is_variable( priority ) && !pl.type.is_integer( priority ) ) { thread.throw_error( pl.error.type( "integer", priority, atom.indicator ) ); } else if( pl.type.is_integer( priority ) && ( priority.value < 0 || priority.value > 1200 ) ) { thread.throw_error( pl.error.domain( "operator_priority", priority, atom.indicator ) ); } else if( !pl.type.is_variable( specifier ) && !pl.type.is_atom( specifier ) ) { thread.throw_error( pl.error.type( "atom", specifier, atom.indicator ) ); } else if( pl.type.is_atom( specifier ) && indexOf( ["fy", "fx", "yf", "xf", "xfx", "yfx", "xfy"], specifier.id ) === -1 ) { thread.throw_error( pl.error.domain( "operator_specifier", specifier, atom.indicator ) ); } else if( !pl.type.is_variable( operator ) && !pl.type.is_atom( operator ) ) { thread.throw_error( pl.error.type( "atom", operator, atom.indicator ) ); } else { for( var p in thread.session.__operators ) for( var o in thread.session.__operators[p] ) for( var i = 0; i < thread.session.__operators[p][o].length; i++ ) points.push( new State( point.goal.replace( new Term( ",", [ new Term( "=", [new Num( p, false ), priority] ), new Term( ",", [ new Term( "=", [new Term( thread.session.__operators[p][o][i], [] ), specifier] ), new Term( "=", [new Term( o, [] ), operator] ) ] ) ] ) ), point.substitution, point ) ); thread.prepend( points ); } },
// LOGIC AND CONTROL STRUCTURES // ;/2 (disjunction) ";/2": function(thread, point, atom) { var left = atom.args[0], right = atom.args[1]; var context_left = left.args[0]; var free_left = left.indicator === ":/2" ? left.args[1] : left; if(pl.type.is_term( free_left ) && free_left.indicator === "->/2") { var cond = left.indicator === ":/2" ? new Term(":", [context_left, new Term("call", [free_left.args[0]])]) : free_left.args[0]; var then = left.indicator === ":/2" ? new Term(":", [context_left, free_left.args[1]]) : free_left.args[1]; var otherwise = right; var goal_fst = point.goal.replace(new Term( ",", [cond, new Term(",", [new Term("!"), then])] ) ); var goal_snd = point.goal.replace(new Term( ",", [new Term("!"), otherwise])); thread.prepend( [ new State(goal_fst, point.substitution, point), new State(goal_snd, point.substitution, point) ] ); } else { thread.prepend([ new State(point.goal.replace(left), point.substitution, point), new State(point.goal.replace(right), point.substitution, point) ]); } }, // !/0 (cut) "!/0": function( thread, point, atom ) { var parent_cut, last_cut, states = []; parent_cut = point; last_cut = null; while( parent_cut.parent !== null && parent_cut.parent.goal.search( atom ) ) { last_cut = parent_cut; parent_cut = parent_cut.parent; if(parent_cut.goal !== null) { var selected = parent_cut.goal.select(); if(selected && selected.indicator === ":/2") selected = selected.args[1]; if( selected && selected.id === "call" && selected.search(atom) ) { parent_cut = last_cut; break; } } } var setup_call_cleanup = null; for( var i = thread.points.length-1; i >= 0; i-- ) { var state = thread.points[i]; var node = state.parent; while( node !== null && node !== parent_cut.parent ) { node = node.parent; } if( node === null && node !== parent_cut.parent ) states.push( state ); else if(state.setup_call_cleanup_goal) setup_call_cleanup = state.setup_call_cleanup_goal } thread.points = states.reverse(); thread.prepend([new State( point.goal.replace(setup_call_cleanup), point.substitution, point )]); }, // \+ (negation) "\\+/1": function( thread, point, atom ) { var goal = atom.args[0]; if( pl.type.is_variable( goal ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_callable( goal ) ) { thread.throw_error( pl.error.type( "callable", goal, atom.indicator ) ); } else { // TRANSPARENT VERSION OF THE NEGATION /*var neg_thread; if(point.negation_thread) { neg_thread = point.negation_thread; } else { neg_thread = new Thread( thread.session ); neg_thread.add_goal( goal ); point.negation_thread = neg_thread; } neg_thread.answer( function( answer ) { if(answer === false) { thread.success( point ); } else if(pl.type.is_error( answer )) { thread.throw_error( answer.args[0] ); } else if(answer === null) { thread.prepend( [point] ); thread.current_limit = 0; } thread.again( answer !== null ); } ); return true;*/ // '\+'(X) :- call(X), !, fail. // '\+'(_). thread.prepend( [ new State( point.goal.replace( new Term( ",", [new Term( ",", [ new Term( "call", [goal] ), new Term( "!", [] ) ] ), new Term( "fail", [] ) ] ) ), point.substitution, point ), new State( point.goal.replace( null ), point.substitution, point ) ] ); } }, // ->/2 (implication) "->/2": function( thread, point, atom ) { var cond = atom.args[0], then = atom.args[1]; var goal = point.goal.replace(new Term(",", [ new Term("call", [cond]), new Term(",", [new Term("!"), then]) ])); thread.prepend( [new State( goal, point.substitution, point )] ); }, // fail/0 "fail/0": function( _1, _2, _3 ) {}, // false/0 "false/0": function( _1, _2, _3 ) {}, // true/0 "true/0": function( thread, point, _ ) { thread.success( point ); }, // call/1..8 "call/1": callN(1), "call/2": callN(2), "call/3": callN(3), "call/4": callN(4), "call/5": callN(5), "call/6": callN(6), "call/7": callN(7), "call/8": callN(8), // once/1 "once/1": function( thread, point, atom ) { var goal = atom.args[0]; thread.prepend( [new State( point.goal.replace( new Term( ",", [new Term( "call", [goal] ), new Term( "!", [] )] ) ), point.substitution, point )] ); }, // forall/2 "forall/2": function( thread, point, atom ) { var generate = atom.args[0], test = atom.args[1]; thread.prepend( [new State( point.goal.replace( new Term( "\\+", [new Term( ",", [new Term( "call", [generate] ), new Term( "\\+", [new Term( "call", [test] )] )] )] ) ), point.substitution, point )] ); }, // repeat/0 "repeat/0": function( thread, point, _ ) { thread.prepend( [new State( point.goal.replace( null ), point.substitution, point ), point] ); },
// EXCEPTIONS // throw/1 "throw/1": function( thread, point, atom ) { var error = atom.args[0]; if(pl.type.is_variable(error)) { thread.throw_error(pl.error.instantiation(thread.level.indicator)); } else { for(var i = 0; i < thread.points.length; i++) { var state = thread.points[i]; if(state.setup_call_cleanup_catch) { thread.points = [new State( new Term(",", [ new Term("catch", [ state.setup_call_cleanup_catch, new Var("_"), new Term("throw", [error]) ]), new Term("throw", [error]) ]), point.substitution, point )]; return; } } thread.throw_error(error); } }, // catch/3 "catch/3": function(thread, point, atom) { var goal = atom.args[0], catcher = atom.args[1], recover = atom.args[2]; var nthread; if(!point.catch) { nthread = new Thread(thread.session); nthread.debugger = thread.debugger; nthread.format_success = function(state) { return state.substitution; }; nthread.format_error = function(state) { return state.goal; }; nthread.add_goal(goal, true, point); point.catch = nthread; } else { nthread = point.catch; } var callback = function(answer) { if(pl.type.is_error(answer)) { var occurs_check = thread.get_flag("occurs_check").indicator === "true/0"; var state = new State(); var mgu = pl.unify(answer.args[0], catcher, occurs_check); if(mgu !== null) { state.substitution = point.substitution.apply(mgu); state.goal = point.goal.replace(recover).apply(mgu); state.parent = point; thread.prepend([state]); } else { thread.throw_error(answer.args[0]); } } else if(answer !== false && answer !== null) { var state = answer === null ? [] : new State( point.goal.apply(answer).replace(null), point.substitution.apply(answer), point ); thread.prepend([state, point]); } else if(answer === null) { thread.prepend([point]); if(thread.has_limit) thread.current_limit = 0; } thread.again(answer !== null); }; nthread.answer(callback); return true; },
// call_cleanup/2 "call_cleanup/2": function(thread, point, atom) { var call = atom.args[0], cleanup = atom.args[1]; if(pl.type.is_variable(call) || pl.type.is_variable(cleanup)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_callable(call)) { thread.throw_error(pl.error.type("callable", call, atom.indicator)); } else if(!pl.type.is_callable(cleanup)) { thread.throw_error(pl.error.type("callable", cleanup, atom.indicator)); } else { var nthread, callback; if(point.hasOwnProperty("setup_call_cleanup_thread")) { nthread = point.setup_call_cleanup_thread; callback = point.setup_call_cleanup_callback; } else { var goal = new Term("call", [call]); nthread = new Thread(thread.session); nthread.add_goal(goal, true, point); callback = function(answer) { if(answer === null) { var state = new State( point.goal, point.substitution, point ); state.setup_call_cleanup_thread = nthread; state.setup_call_cleanup_callback = callback; thread.prepend([state]); } else if(answer === false) { var cleanup_and_fail = new Term(",", [ new Term("call", [cleanup]), new Term("fail") ]); var state = new State( point.goal.replace(cleanup_and_fail), point.substitution, point ); thread.prepend([state]); } else if(pl.type.is_error(answer)) { var cleanup_and_throw = new Term(",", [ new Term("call", [cleanup]), answer ]); var state = new State( point.goal.replace(cleanup_and_throw), point.substitution, point ); thread.prepend([state]); } else { if(nthread.points.length === 0) { var state = new State( point.goal.replace( new Term("call", [cleanup]) ).apply(answer), point.substitution.apply(answer), point ); thread.prepend([state]); } else { var state1 = new State( point.goal.apply(answer).replace(null), point.substitution.apply(answer), point ); var state2 = new State( point.goal, point.substitution, point ); state2.setup_call_cleanup_thread = nthread; state2.setup_call_cleanup_callback = callback; state2.setup_call_cleanup_goal = cleanup.apply(answer); state2.setup_call_cleanup_catch = cleanup; thread.prepend([state1, state2]); } } thread.again(); } } nthread.answer(callback); return true; } },
// setup_call_cleanup/3 "setup_call_cleanup/3": function(thread, point, atom) { var setup = atom.args[0], call = atom.args[1], cleanup = atom.args[2]; if(pl.type.is_variable(setup) || pl.type.is_variable(call) || pl.type.is_variable(cleanup)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_callable(setup)) { thread.throw_error(pl.error.type("callable", setup, atom.indicator)); } else if(!pl.type.is_callable(call)) { thread.throw_error(pl.error.type("callable", call, atom.indicator)); } else if(!pl.type.is_callable(cleanup)) { thread.throw_error(pl.error.type("callable", cleanup, atom.indicator)); } else { thread.prepend([new State( point.goal.replace(new Term(",", [ new Term("once", [setup]), new Term("call_cleanup", [call, cleanup]) ])), point.substitution, point )]); } }, // UNIFICATION // =/2 (unification) "=/2": function( thread, point, atom ) { var occurs_check = thread.get_flag( "occurs_check" ).indicator === "true/0"; var state = new State(); var mgu = pl.unify( atom.args[0], atom.args[1], occurs_check ); if( mgu !== null ) { state.goal = point.goal.apply( mgu ).replace( null ); state.substitution = point.substitution.apply( mgu ); state.parent = point; thread.prepend( [state] ); } }, // unify_with_occurs_check/2 "unify_with_occurs_check/2": function( thread, point, atom ) { var state = new State(); var mgu = pl.unify( atom.args[0], atom.args[1], true ); if( mgu !== null ) { state.goal = point.goal.apply( mgu ).replace( null ); state.substitution = point.substitution.apply( mgu ); state.parent = point; thread.prepend( [state] ); } }, // \=/2 "\\=/2": function( thread, point, atom ) { var occurs_check = thread.get_flag( "occurs_check" ).indicator === "true/0"; var mgu = pl.unify( atom.args[0], atom.args[1], occurs_check ); if( mgu === null ) { thread.success( point ); } }, // subsumes_term/2 /* subsumes_term(General, Specific) :- \+ \+ ( term_variables(Specific, Vars1), unify_with_occurs_check(General, Specific), term_variables(Vars1, Vars2), Vars1 == Vars2 ). */ "subsumes_term/2": function( thread, point, atom ) { var general = atom.args[0], specific = atom.args[1]; var vars1 = thread.next_free_variable(); var vars2 = thread.next_free_variable(); thread.prepend([new State( point.goal.replace(new Term("\\+", [ new Term("\\+", [ new Term(",", [ new Term("term_variables", [specific, vars1]), new Term(",", [ new Term("unify_with_occurs_check", [general, specific]), new Term(",", [ new Term("term_variables", [vars1, vars2]), new Term("==", [vars1, vars2]) ]) ]) ]) ]) ])), point.substitution, point )]); }, // ALL SOLUTIONS
// findall/3 "findall/3": function(thread, point, atom) { var template = atom.args[0], goal = atom.args[1], instances = atom.args[2]; var tail = new Term("[]", []); thread.prepend([new State( point.goal.replace(new Term("findall", [template, goal, instances, tail])), point.substitution, point )]); },
// findall/4 "findall/4": function(thread, point, atom) { var template = atom.args[0], goal = atom.args[1], instances = atom.args[2], tail = atom.args[3]; var proper_goal = goal; if(pl.type.is_term(goal) && goal.indicator === ":/2") proper_goal = goal.args[1]; if(pl.type.is_variable(proper_goal)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_callable(proper_goal)) { thread.throw_error(pl.error.type("callable", goal, atom.indicator)); } else if(!pl.type.is_variable(instances) && !pl.type.is_list(instances)) { thread.throw_error(pl.error.type("list", instances, atom.indicator)); } else if(!pl.type.is_variable(tail) && !pl.type.is_list(tail)) { thread.throw_error(pl.error.type("list", tail, atom.indicator)); } else { thread.prepend([new State( point.goal.replace(new Term("$findall", [template, goal, instances, tail])), point.substitution, point )]); } }, // bagof/3 "bagof/3": function(thread, point, atom) { var template = atom.args[0], goal = atom.args[1], instances = atom.args[2]; if(pl.type.is_variable(goal)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_callable(goal)) { thread.throw_error(pl.error.type("callable", goal, atom.indicator)); } else if(!pl.type.is_variable(instances) && !pl.type.is_list(instances)) { thread.throw_error( pl.error.type("list", instances, atom.indicator)); } else { thread.prepend([new State( point.goal.replace(new Term("$bagof", [template, goal, instances])), point.substitution, point )]); } },
// setof/3 "setof/3": function(thread, point, atom) { var template = atom.args[0], goal = atom.args[1], instances = atom.args[2]; if(pl.type.is_variable(goal)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_callable(goal)) { thread.throw_error(pl.error.type("callable", goal, atom.indicator)); } else if(!pl.type.is_variable(instances) && !pl.type.is_list(instances)) { thread.throw_error( pl.error.type("list", instances, atom.indicator)); } else { thread.prepend([new State( point.goal.replace(new Term("$setof", [template, goal, instances])), point.substitution, point )]); } }, // TERM CREATION AND DECOMPOSITION // functor/3 "functor/3": function( thread, point, atom ) { var subs; var term = atom.args[0], name = atom.args[1], arity = atom.args[2]; if( pl.type.is_variable( term ) && (pl.type.is_variable( name ) || pl.type.is_variable( arity )) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( arity ) && !pl.type.is_integer( arity ) ) { thread.throw_error( pl.error.type( "integer", atom.args[2], atom.indicator ) ); } else if( !pl.type.is_variable( name ) && !pl.type.is_atomic( name ) ) { thread.throw_error( pl.error.type( "atomic", atom.args[1], atom.indicator ) ); } else if( pl.type.is_variable( term ) && !pl.type.is_atom( name ) && pl.type.is_integer( arity ) && arity.value > 0 ) { thread.throw_error( pl.error.type( "atom", atom.args[1], atom.indicator ) ); } else if( pl.type.is_variable( term ) && pl.type.is_integer( arity ) && arity.value < 0 ) { thread.throw_error( pl.error.domain( "not_less_than_zero", atom.args[2], atom.indicator ) ); } else if( pl.type.is_variable( term ) ) { if( atom.args[2].value >= 0 ) { var args = []; for( var i = 0; i < arity.value; i++ ) args.push( thread.next_free_variable() ); var functor = pl.type.is_number( name ) ? name : new Term( name.id, args ); thread.prepend( [new State( point.goal.replace( new Term( "=", [term, functor] ) ), point.substitution, point )] ); } } else { var id = pl.type.is_number( term ) ? term : new Term( term.id, [] ); var length = pl.type.is_number( term ) ? new Num( 0, false ) : new Num( term.args.length, false ); var goal = new Term( ",", [new Term( "=", [id, name] ), new Term( "=", [length, arity] )] ); thread.prepend( [new State( point.goal.replace( goal ), point.substitution, point )] ); } }, // arg/3 "arg/3": function( thread, point, atom ) { if( pl.type.is_variable( atom.args[0] ) || pl.type.is_variable( atom.args[1] ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_integer( atom.args[0] ) ) { thread.throw_error( pl.error.type( "integer", atom.args[0], atom.indicator ) ); } else if( atom.args[0].value < 0 ) { thread.throw_error( pl.error.domain( "not_less_than_zero", atom.args[0], atom.indicator ) ); } else if( !pl.type.is_compound( atom.args[1] ) ) { thread.throw_error( pl.error.type( "compound", atom.args[1], atom.indicator ) ); } else { var n = atom.args[0].value; if( n > 0 && n <= atom.args[1].args.length ) { var goal = new Term( "=", [atom.args[1].args[n-1], atom.args[2]] ); thread.prepend( [new State( point.goal.replace( goal ), point.substitution, point )] ); } } }, // =../2 (univ) "=../2": function( thread, point, atom ) { var list; if( pl.type.is_variable( atom.args[0] ) && (pl.type.is_variable( atom.args[1] ) || pl.type.is_non_empty_list( atom.args[1] ) && pl.type.is_variable( atom.args[1].args[0] )) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_fully_list( atom.args[1] ) ) { thread.throw_error( pl.error.type( "list", atom.args[1], atom.indicator ) ); } else if( pl.type.is_variable( atom.args[0] ) && pl.type.is_empty_list( atom.args[1] ) ) { thread.throw_error( pl.error.domain( "non_empty_list", atom.args[1], atom.indicator ) ); } else if( !pl.type.is_variable( atom.args[0] ) ) { if( pl.type.is_term( atom.args[0] ) && atom.args[0].args.length > 0 ) { list = new Term( "[]" ); for( var i = atom.args[0].args.length - 1; i >= 0; i-- ) { list = new Term( ".", [atom.args[0].args[i], list] ); } list = new Term( ".", [new Term( atom.args[0].id ), list] ); } else { list = new Term( ".", [atom.args[0], new Term( "[]" )] ); } thread.prepend( [new State( point.goal.replace( new Term( "=", [list, atom.args[1]] ) ), point.substitution, point )] ); } else if( !pl.type.is_variable( atom.args[1] ) ) { var args = []; list = atom.args[1].args[1]; while( list.indicator === "./2" ) { args.push( list.args[0] ); list = list.args[1]; } if( pl.type.is_variable( atom.args[0] ) && pl.type.is_variable( list ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( args.length === 0 && pl.type.is_compound( atom.args[1].args[0] ) ) { thread.throw_error( pl.error.type( "atomic", atom.args[1].args[0], atom.indicator ) ); } else if( args.length > 0 && (pl.type.is_compound( atom.args[1].args[0] ) || pl.type.is_number( atom.args[1].args[0] )) ) { thread.throw_error( pl.error.type( "atom", atom.args[1].args[0], atom.indicator ) ); } else { if( args.length === 0 ) { thread.prepend( [new State( point.goal.replace( new Term( "=", [atom.args[1].args[0], atom.args[0]], point ) ), point.substitution, point )] ); } else { thread.prepend( [new State( point.goal.replace( new Term( "=", [new Term( atom.args[1].args[0].id, args ), atom.args[0]] ) ), point.substitution, point )] ); } } } }, // copy_term/2 "copy_term/2": function( thread, point, atom ) { thread.session.renamed_variables = {}; var renamed = atom.args[0].rename( thread ); thread.prepend( [new State( point.goal.replace( new Term( "=", [renamed, atom.args[1]] ) ), point.substitution, point.parent )] ); }, // term_variables/2 "term_variables/2": function( thread, point, atom ) { var term = atom.args[0], vars = atom.args[1]; if( !pl.type.is_fully_list( vars ) ) { thread.throw_error( pl.error.type( "list", vars, atom.indicator ) ); } else { var list = arrayToList( map( nub( term.variables() ), function(v) { return new Var(v); } ) ); thread.prepend( [new State( point.goal.replace( new Term( "=", [vars, list] ) ), point.substitution, point )] ); } },
// numbervars/3 "numbervars/3": function(thread, point, atom) { var term = atom.args[0], start = atom.args[1], end = atom.args[2]; if(pl.type.is_variable(start)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_integer(start)) { thread.throw_error(pl.error.type("integer", start, atom.indicator)); } else if(!pl.type.is_variable(end) && !pl.type.is_integer(end)) { thread.throw_error(pl.error.type("integer", end, atom.indicator)); } else { var variables = nub(term.variables()); var value = start.value; var unif_body = new Term("true"); for(var i = 0; i < variables.length; i++) { unif_body = new Term(",", [ new Term("=", [ new Var(variables[i]), new Term("$VAR", [new Num(value, false)])]), unif_body]); value++; } var unif_end = new Term("=", [end, new Num(value, false)]); if(pl.type.is_variable(end) || end.value === value) { thread.prepend([new State( point.goal.replace(new Term(",", [unif_body, unif_end])), point.substitution, point )]); } } }, // CLAUSE RETRIEVAL AND INFORMATION // clause/2 "clause/2": function(thread, point, atom) { var head = atom.args[0], body = atom.args[1]; var module_id = "user"; if(pl.type.is_term(head) && head.indicator === ":/2") { if(!pl.type.is_atom(head.args[0])) { thread.throw_error(pl.error.type("module", head.args[0], atom.indicator)); return; } module_id = head.args[0].id; head = head.args[1]; } var get_module = thread.session.modules[module_id]; if(pl.type.is_variable(head)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_callable(head)) { thread.throw_error(pl.error.type("callable", head, atom.indicator)); } else if(!pl.type.is_variable(body) && !pl.type.is_callable(body)) { thread.throw_error(pl.error.type("callable", body, atom.indicator)); } else if(head.indicator === ",/2" || thread.session.modules.system.rules.hasOwnProperty(head.indicator)) { thread.throw_error(pl.error.permission("access", "private_procedure", str_indicator(head.indicator), atom.indicator)); } else if(pl.type.is_module(get_module) && get_module.rules[head.indicator]) { if(get_module.is_public_predicate(head.indicator)) { var states = []; if(typeof get_module.rules[head.indicator] === "function") { thread.throw_error(pl.error.permission("modify", "static_procedure", str_indicator(head.indicator), atom.indicator)); return; } for(var i = 0; i < get_module.rules[head.indicator].length; i++) { var rule = get_module.rules[head.indicator][i]; thread.session.renamed_variables = {}; rule = rule.rename(thread); if(rule.body === null) rule.body = new Term("true"); var goal = new Term(",", [ new Term("=", [rule.head, head]), new Term("=", [rule.body, body]) ]); states.push(new State(point.goal.replace(goal), point.substitution, point)); } thread.prepend(states); } else { thread.throw_error(pl.error.permission("access", "private_procedure", str_indicator(head.indicator), atom.indicator)); } } }, // current_predicate/1 "current_predicate/1": function(thread, point, atom) { var indicator = atom.args[0]; var module_id; if(pl.type.is_term(indicator) && indicator.indicator === ":/2") { if(!pl.type.is_atom(indicator.args[0])) { thread.throw_error(pl.error.type("module", indicator.args[0], atom.indicator)); return; } module_id = indicator.args[0].id; indicator = indicator.args[1]; } else { module_id = "user"; } if(!pl.type.is_variable(indicator) && (!pl.type.is_compound(indicator) || indicator.indicator !== "//2")) { thread.throw_error(pl.error.type( "predicate_indicator", indicator, atom.indicator)); } else if(!pl.type.is_variable( indicator ) && !pl.type.is_variable(indicator.args[0]) && !pl.type.is_atom(indicator.args[0])) { thread.throw_error(pl.error.type( "atom", indicator.args[0], atom.indicator)); } else if(!pl.type.is_variable(indicator) && !pl.type.is_variable(indicator.args[1]) && !pl.type.is_integer(indicator.args[1])) { thread.throw_error(pl.error.type("integer", indicator.args[1], atom.indicator)); } else if(!pl.type.is_variable(indicator) && pl.type.is_integer(indicator.args[1]) && indicator.args[1].value < 0) { thread.throw_error(pl.error.domain("not_less_than_zero", indicator.args[1], atom.indicator)); } else { var states = []; var get_module = thread.session.modules[module_id]; if(pl.type.is_module(get_module)) { for(var prop in get_module.rules) { if(!get_module.rules.hasOwnProperty(prop)) continue; var predicate = str_indicator(prop); var goal = new Term("=", [predicate, indicator]); states.push(new State(point.goal.replace(goal), point.substitution, point)); } thread.prepend(states); } } },
// current_module/1 "current_module/1": function(thread, point, atom) { var module_id = atom.args[0]; if(!pl.type.is_variable(module_id) && !pl.type.is_atom(module_id)) { thread.throw_error(pl.error.type("atom", module_id, atom.indicator)); } else { if(pl.type.is_variable(module_id)) { var states = []; for(var prop in thread.session.modules) { if(!thread.session.modules.hasOwnProperty(prop)) continue; states.push(new State( point.goal.replace(new Term("=", [module_id, new Term(prop)])), point.substitution, point )); } thread.prepend(states); } else { if(thread.session.modules.hasOwnProperty(module_id.id)) thread.success(point); } } },
// predicate_property/2 "predicate_property/2": function(thread, point, atom) { var head = atom.args[0], property = atom.args[1]; var module_id; if(pl.type.is_term(head) && head.indicator === ":/2") { if(!pl.type.is_atom(head.args[0])) { thread.throw_error(pl.error.type("module", head.args[0], atom.indicator)); return; } module_id = head.args[0].id; head = head.args[1]; } if(!pl.type.is_variable(head) && !pl.type.is_callable(head)) { thread.throw_error(pl.error.type("callable", head, atom.indicator)); } else if(!pl.type.is_variable(property) && !pl.type.is_predicate_property(property)) { thread.throw_error(pl.error.domain("predicate_property", property, atom.indicator)); } else { var get_module = module_id ? thread.session.modules[module_id] : thread.session.modules.user; var points = []; // all predicates if(pl.type.is_variable(head)) { // built-in predicates (built_in + static + native_code + meta_predicate?) if(!module_id) { for(var prop in pl.builtin.rules) { if(!pl.builtin.rules.hasOwnProperty(prop)) continue; var indicator = str_indicator(prop); var args = []; for(var i = 0; i < indicator.args[1].value; i++) args.push(thread.next_free_variable()); var unif_head = new Term(indicator.args[0].id, args); var current_properties = [ new Term("static"), new Term("built_in"), new Term("native_code") ]; if(pl.builtin.meta_predicates.hasOwnProperty(prop)) current_properties.push(new Term("meta_predicate", [ pl.builtin.meta_predicates[prop] ])); // all predicates, one property / all properties for(var i = 0; i < current_properties.length; i++) { if(pl.type.is_variable(property) || current_properties[i].indicator === property.indicator) { points.push(new State( point.goal.replace(new Term(",", [ new Term("=", [head, unif_head]), new Term("=", [property, current_properties[i]]) ])), point.substitution, point )); } } } } // user-defined predicates if(pl.type.is_module(get_module)) { for(var prop in get_module.rules) { if(!get_module.rules.hasOwnProperty(prop)) continue; var indicator = str_indicator(prop); var args = []; for(var i = 0; i < indicator.args[1].value; i++) args.push(thread.next_free_variable()); var unif_head = new Term(indicator.args[0].id, args); var current_properties = []; if(thread.is_public_predicate(prop, module_id)) current_properties.push(new Term("dynamic")); else current_properties.push(new Term("static")); if(get_module.rules[prop] instanceof Function) current_properties.push(new Term("native_code")); if(thread.is_multifile_predicate(prop, module_id)) current_properties.push(new Term("multifile")); if(get_module.meta_predicates.hasOwnProperty(prop)) current_properties.push(new Term("meta_predicate", [ get_module.meta_predicates[prop] ])); // all predicates, one property / all properties for(var i = 0; i < current_properties.length; i++) { if(pl.type.is_variable(property) || current_properties[i].indicator === property.indicator) { points.push(new State( point.goal.replace(new Term(",", [ new Term("=", [head, unif_head]), new Term("=", [property, current_properties[i]]) ])), point.substitution, point )); } } } } // one predicate } else { var builtin = !module_id && pl.type.is_builtin(head); var predicate = builtin ? pl.builtin.rules[head.indicator] : get_module.rules[head.indicator]; get_module = builtin ? pl.builtin : get_module; if(predicate) { var current_properties; if(builtin) { current_properties = [ new Term("static"), new Term("built_in"), new Term("native_code") ]; } else { current_properties = []; if(thread.is_public_predicate(head.indicator, module_id)) current_properties.push(new Term("dynamic")); else current_properties.push(new Term("static")); if(predicate instanceof Function) current_properties.push(new Term("native_code")); if(thread.is_multifile_predicate(head.indicator, module_id)) current_properties.push(new Term("multifile")); } if(get_module.meta_predicates.hasOwnProperty(head.indicator)) current_properties.push(new Term("meta_predicate", [ get_module.meta_predicates[head.indicator] ])); var args = []; for(var i = 0; i < head.args.length; i++) args.push(thread.next_free_variable()); var unif_head = new Term(head.id, args); // one predicate, one property / all properties for(var i = 0; i < current_properties.length; i++) { if(pl.type.is_variable(property) || current_properties[i].indicator === property.indicator) { points.push(new State( point.goal.replace(new Term(",", [ new Term("=", [head, unif_head]), new Term("=", [property, current_properties[i]]) ])), point.substitution, point )); } } } } thread.prepend(points); } },
// listing/0 "listing/0": function( thread, point, atom ) { var context_module = atom.context_module ? atom.context_module : "user"; var rules = {}; if(pl.type.is_module(thread.session.modules[context_module])) { rules = thread.session.modules[context_module].rules; } var str = ""; for(var indicator in rules) { if(!rules.hasOwnProperty(indicator)) continue; var predicate = rules[indicator]; str += "% " + indicator + "\n"; if(predicate instanceof Array) { for(var i = 0; i < predicate.length; i++) str += predicate[i].toString( {session: thread.session} ) + "\n"; } else { str += "/*\n" + predicate.toString() + "\n*/"; } str += "\n"; } thread.prepend( [new State( point.goal.replace(new Term("write", [new Term(str, [])])), point.substitution, point )] ); },
// listing/1 "listing/1": function( thread, point, atom ) { var indicator = atom.args[0]; var context_module = "user"; if(indicator.indicator === ":/2") { context_module = indicator.args[0].id; indicator = indicator.args[1]; } if(pl.type.is_variable(indicator)) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if(!pl.type.is_predicate_indicator(indicator)) { thread.throw_error( pl.error.type( "predicate_indicator", indicator, atom.indicator ) ); } else { var rules = {}; if(pl.type.is_module(thread.session.modules[context_module])) { rules = thread.session.modules[context_module].rules; } var str = ""; var str_indicator = indicator.args[0].id + "/" + indicator.args[1].value; if(rules.hasOwnProperty(str_indicator)) { var predicate = rules[str_indicator]; if(predicate instanceof Array) { for(var i = 0; i < predicate.length; i++) str += predicate[i].toString( {session: thread.session} ) + "\n"; } else { str += "/*\n" + predicate.toString() + "\n*/"; } str += "\n"; } thread.prepend( [new State( point.goal.replace(new Term("write", [new Term(str, [])])), point.substitution, point )] ); } },
// LIST OPERATIONS
// sort/2 "sort/2": function( thread, point, atom ) { var list = atom.args[0], expected = atom.args[1]; if( pl.type.is_variable( list ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( expected ) && !pl.type.is_fully_list( expected ) ) { thread.throw_error( pl.error.type( "list", expected, atom.indicator ) ); } else { var arr = []; var pointer = list; while( pointer.indicator === "./2" ) { arr.push( pointer.args[0] ); pointer = pointer.args[1]; } if( pl.type.is_variable( pointer ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_empty_list( pointer ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else { var sorted_arr = arr.sort( pl.compare ); for( var i = sorted_arr.length-1; i > 0; i-- ) { if( sorted_arr[i].equals(sorted_arr[i-1]) ) sorted_arr.splice(i,1); } var sorted_list = new Term( "[]" ); for( var i = sorted_arr.length-1; i >= 0; i-- ) { sorted_list = new Term( ".", [sorted_arr[i], sorted_list] ); } thread.prepend( [new State( point.goal.replace( new Term( "=", [sorted_list, expected] ) ), point.substitution, point )] ); } } },
// keysort/2 "keysort/2": function( thread, point, atom ) { var list = atom.args[0], expected = atom.args[1]; if( pl.type.is_variable( list ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( expected ) && !pl.type.is_fully_list( expected ) ) { thread.throw_error( pl.error.type( "list", expected, atom.indicator ) ); } else { var arr = []; var elem; var pointer = list; while( pointer.indicator === "./2" ) { elem = pointer.args[0]; if( pl.type.is_variable( elem ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if( !pl.type.is_term( elem ) || elem.indicator !== "-/2" ) { thread.throw_error( pl.error.type( "pair", elem, atom.indicator ) ); return; } elem.args[0].pair = elem.args[1]; arr.push( elem.args[0] ); pointer = pointer.args[1]; } if( pl.type.is_variable( pointer ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_empty_list( pointer ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else { if(!pl.type.is_variable(expected)) { var pointer = expected; while(pl.type.is_term(pointer) && pointer.indicator === "./2") { var head = pointer.args[0]; if(!pl.type.is_variable(head) && (!pl.type.is_term(head) || head.indicator !== "-/2")) { thread.throw_error( pl.error.type( "pair", head, atom.indicator ) ); return; } pointer = pointer.args[1]; } if(!pl.type.is_variable(pointer) && !pl.type.is_empty_list(pointer)) { thread.throw_error( pl.error.type( "list", expected, atom.indicator ) ); return; } } var sorted_arr = arr.sort( pl.compare ); var sorted_list = new pl.type.Term( "[]" ); for( var i = sorted_arr.length - 1; i >= 0; i-- ) { sorted_list = new pl.type.Term( ".", [new pl.type.Term( "-", [sorted_arr[i], sorted_arr[i].pair] ), sorted_list] ); delete sorted_arr[i].pair; } thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [sorted_list, expected] ) ), point.substitution, point )] ); } } },
// keygroup "keygroup/2": function(thread, point, atom) { var list = atom.args[0], expected = atom.args[1]; if(pl.type.is_variable(list)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_variable(expected) && !pl.type.is_fully_list(expected)) { thread.throw_error(pl.error.type("list", expected, atom.indicator)); } else { var keys = []; var values = []; var pointer = list while(pl.type.is_term(pointer) && pointer.indicator === "./2") { var elem = pointer.args[0]; if(pl.type.is_variable(elem)) { thread.throw_error(pl.error.instantiation(atom.indicator)); return; } else if(!pl.type.is_term(elem) || elem.indicator !== "-/2") { thread.throw_error(pl.error.type("pair", elem, atom.indicator)); return; } var key = elem.args[0], value = elem.args[1]; var index = -1; for(var i = 0; i < keys.length; i++) { if(pl.compare(key, keys[i]) === 0) { index = i; break; } } if(index === -1) { index = keys.length; keys.push(key); values.push([]); } values[index].push(value); pointer = pointer.args[1]; } if(pl.type.is_variable(pointer)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_empty_list(pointer)) { thread.throw_error(pl.error.type("list", list, atom.indicator)); } else { if(!pl.type.is_variable(expected)) { var pointer = expected; while(pl.type.is_term(pointer) && pointer.indicator === "./2") { var head = pointer.args[0]; if(!pl.type.is_variable(head) && (!pl.type.is_term(head) || head.indicator !== "-/2")) { thread.throw_error(pl.error.type("pair", head, atom.indicator)); return; } pointer = pointer.args[1]; } if(!pl.type.is_variable(pointer) && !pl.type.is_empty_list(pointer)) { thread.throw_error(pl.error.type("list", expected, atom.indicator)); return; } } group = new Term("[]", []); for(var i = keys.length-1; i >= 0; i--) group = new Term(".", [new Term("-", [keys[i], arrayToList(values[i])]), group]); thread.prepend([ new State( point.goal.replace(new pl.type.Term("=", [expected, group])), point.substitution, point ) ]); } } }, // CLAUSE CREATION AND DESTRUCTION // asserta/1 "asserta/1": function(thread, point, atom) { var clause = atom.args[0]; var module_id = "user"; if(pl.type.is_term(clause) && clause.indicator === ":/2") { module_id = clause.args[0].id; clause = clause.args[1]; } if(pl.type.is_variable(clause)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_callable(clause)) { thread.throw_error(pl.error.type("callable", clause, atom.indicator)); } else { var head, body, get_module; if(clause.indicator === ":-/2") { head = clause.args[0]; body = body_conversion(clause.args[1]); } else { head = clause; body = null; } if(pl.type.is_variable(head)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_callable(head)) { thread.throw_error(pl.error.type("callable", head, atom.indicator)); } else if(body !== null && !pl.type.is_callable(body)) { thread.throw_error( pl.error.type("callable", body, atom.indicator)); } else if((!pl.type.is_module(thread.session.modules[module_id]) || thread.is_public_predicate(head.indicator, module_id)) && head.indicator !== ",/2" && !thread.session.modules.system.rules.hasOwnProperty(head.indicator)) { if(!pl.type.is_module(thread.session.modules[module_id])) { get_module = new Module(module_id, {}, "all", {session: thread.session}); thread.session.modules[module_id] = get_module; } else { get_module = thread.session.modules[module_id]; } if(get_module.rules[head.indicator] === undefined) get_module.rules[head.indicator] = []; get_module.public_predicates[head.indicator] = true; get_module.rules[head.indicator] = [new Rule(head, body, true)].concat(get_module.rules[head.indicator]); get_module.update_indices_predicate(head.indicator); thread.success(point); } else { thread.throw_error(pl.error.permission("modify", "static_procedure", str_indicator(head.indicator), atom.indicator)); } } }, // assertz/1 "assertz/1": function(thread, point, atom) { var clause = atom.args[0]; var module_id = "user"; if(pl.type.is_term(clause) && clause.indicator === ":/2") { module_id = clause.args[0].id; clause = clause.args[1]; } if(pl.type.is_variable(clause)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_callable(clause)) { thread.throw_error(pl.error.type("callable", clause, atom.indicator)); } else { var head, body, get_module; if(clause.indicator === ":-/2") { head = clause.args[0]; body = body_conversion(clause.args[1]); } else { head = clause; body = null; } if(pl.type.is_variable(head)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_callable(head)) { thread.throw_error(pl.error.type("callable", head, atom.indicator)); } else if(body !== null && !pl.type.is_callable(body)) { thread.throw_error( pl.error.type("callable", body, atom.indicator)); } else if((!pl.type.is_module(thread.session.modules[module_id]) || thread.is_public_predicate(head.indicator, module_id)) && head.indicator !== ",/2" && !thread.session.modules.system.rules.hasOwnProperty(head.indicator)) { if(!pl.type.is_module(thread.session.modules[module_id])) { get_module = new Module(module_id, {}, "all", {session: thread.session}); thread.session.modules[module_id] = get_module; } else { get_module = thread.session.modules[module_id]; } if(get_module.rules[head.indicator] === undefined) get_module.rules[head.indicator] = []; get_module.public_predicates[head.indicator] = true; get_module.rules[head.indicator].push(new Rule(head, body, true)); get_module.update_indices_predicate(head.indicator); thread.success(point); } else { thread.throw_error(pl.error.permission("modify", "static_procedure", str_indicator(head.indicator), atom.indicator)); } } }, // retract/1 "retract/1": function(thread, point, atom) { var clause = atom.args[0]; if(pl.type.is_variable(clause)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_callable(clause)) { thread.throw_error(pl.error.type("callable", clause, atom.indicator)); } else { var head, body, module_atom, module_id; if(clause.indicator === ":/2") { module_atom = clause.args[0]; clause = clause.args[1]; if(!pl.type.is_atom(module_atom)) { thread.throw_error(pl.error.type("module", module_atom, atom.indicator)); return; } } else { module_atom = new Term("user"); } if(clause.indicator === ":-/2") { head = clause.args[0]; body = clause.args[1]; } else { head = clause; body = new Term("true"); } if(pl.type.is_variable(head)) { thread.throw_error(pl.error.instantiation(atom.indicator)); return; } else if(!pl.type.is_callable(head)) { thread.throw_error(pl.error.type("callable", head, atom.indicator)); return; } module_id = module_atom.id; var get_module = thread.session.modules[module_id]; if(!pl.type.is_module(get_module)) return; if(!point.retract) { if(thread.is_public_predicate(head.indicator, module_id) && head.indicator !== ",/2" && !thread.session.modules.system.rules.hasOwnProperty(head.indicator)) { if(get_module.rules[head.indicator] !== undefined) { var states = []; if(typeof get_module.rules[head.indicator] === "function") { thread.throw_error(pl.error.permission("modify", "static_procedure", str_indicator(head.indicator), atom.indicator)); return; } for(var i = 0; i < get_module.rules[head.indicator].length; i++) { thread.session.renamed_variables = {}; var orule = get_module.rules[head.indicator][i]; var rule = orule.rename(thread); if(rule.body === null) rule.body = new Term("true", []); var occurs_check = thread.get_flag("occurs_check").indicator === "true/0"; var mgu = pl.unify(new Term(",", [head, body]), new Term(",", [rule.head, rule.body]), occurs_check); if(mgu !== null) { var state = new State( point.goal.replace(new Term(",", [ new Term(":", [ module_atom, new Term("retract", [new Term(":-", [head, body])]), ]), new Term(",", [ new Term("=", [head, rule.head]), new Term("=", [body, rule.body]) ]) ])), point.substitution, point); state.retract = orule; states.push(state); } } thread.prepend(states); } } else { thread.throw_error(pl.error.permission("modify", "static_procedure", str_indicator(head.indicator), atom.indicator)); } } else { retract(thread, point, head.indicator, point.retract, get_module); } } }, // retractall/1 "retractall/1": function(thread, point, atom) { var head = atom.args[0]; var context_module = "user"; if(pl.type.is_term(head) && head.indicator === ":/2") { context_module = head.args[0].id; head = head.args[1]; } if(pl.type.is_variable(head)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_callable(head)) { thread.throw_error(pl.error.type("callable", head, atom.indicator)); } else if(!thread.is_public_predicate(head.indicator, context_module) || head.indicator === ",/2" || thread.session.modules.system.rules.hasOwnProperty(head.indicator)) { thread.throw_error(pl.error.permission("modify", "static_procedure", str_indicator(head.indicator), atom.indicator)); } else { thread.prepend([ new State(point.goal.replace(new Term(",", [ new Term(":", [ new Term(context_module), new Term("retract", [new pl.type.Term(":-", [head, new Var("_")])]) ]), new Term("fail", []) ])), point.substitution, point), new State(point.goal.replace(null), point.substitution, point) ]); } },
// abolish/1 "abolish/1": function(thread, point, atom) { var predicate = atom.args[0]; var module_id; if(pl.type.is_term(predicate) && predicate.indicator === ":/2") { if(!pl.type.is_atom(predicate.args[0])) { thread.throw_error(pl.error.type("module", predicate.args[0], atom.indicator)); return; } module_id = predicate.args[0].id; predicate = predicate.args[1]; } else { module_id = "user"; } if(pl.type.is_variable(predicate) || pl.type.is_term(predicate) && predicate.indicator === "//2" && (pl.type.is_variable(predicate.args[0]) || pl.type.is_variable(predicate.args[1]))) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_term(predicate) || predicate.indicator !== "//2") { thread.throw_error(pl.error.type("predicate_indicator", predicate, atom.indicator)); } else if(!pl.type.is_atom(predicate.args[0])) { thread.throw_error(pl.error.type("atom", predicate.args[0], atom.indicator)); } else if(!pl.type.is_integer(predicate.args[1])) { thread.throw_error(pl.error.type("integer", predicate.args[1], atom.indicator)); } else if(predicate.args[1].value < 0) { thread.throw_error(pl.error.domain("not_less_than_zero", predicate.args[1], atom.indicator)); } else if(pl.type.is_number(thread.get_flag("max_arity")) && predicate.args[1].value > thread.get_flag("max_arity").value) { thread.throw_error(pl.error.representation("max_arity", atom.indicator)); } else { var get_module = thread.session.modules[module_id]; if(pl.type.is_module(get_module)) { var indicator = predicate.args[0].id + "/" + predicate.args[1].value; if(thread.is_public_predicate(indicator, module_id) && indicator !== ",/2" && !thread.session.modules.system.rules.hasOwnProperty(indicator)) { delete get_module.rules[indicator]; delete get_module.indexed_clauses[indicator]; delete get_module.non_indexable_clauses[indicator]; delete get_module.public_predicates[indicator]; delete get_module.multifile_predicates[indicator]; thread.success(point); } else { thread.throw_error(pl.error.permission("modify", "static_procedure", atom.args[0], atom.indicator)); } } else { thread.success(point); } } }, // ATOM PROCESSING // atom_length/2 "atom_length/2": function( thread, point, atom ) { if( pl.type.is_variable( atom.args[0] ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom( atom.args[0] ) ) { thread.throw_error( pl.error.type( "atom", atom.args[0], atom.indicator ) ); } else if( !pl.type.is_variable( atom.args[1] ) && !pl.type.is_integer( atom.args[1] ) ) { thread.throw_error( pl.error.type( "integer", atom.args[1], atom.indicator ) ); } else if( pl.type.is_integer( atom.args[1] ) && atom.args[1].value < 0 ) { thread.throw_error( pl.error.domain( "not_less_than_zero", atom.args[1], atom.indicator ) ); } else { var length = new Num( stringLength(atom.args[0].id), false ); thread.prepend( [new State( point.goal.replace( new Term( "=", [length, atom.args[1]] ) ), point.substitution, point )] ); } }, // atom_concat/3 "atom_concat/3": function( thread, point, atom ) { var str, goal, start = atom.args[0], end = atom.args[1], whole = atom.args[2]; if( pl.type.is_variable( whole ) && (pl.type.is_variable( start ) || pl.type.is_variable( end )) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( start ) && !pl.type.is_atom( start ) ) { thread.throw_error( pl.error.type( "atom", start, atom.indicator ) ); } else if( !pl.type.is_variable( end ) && !pl.type.is_atom( end ) ) { thread.throw_error( pl.error.type( "atom", end, atom.indicator ) ); } else if( !pl.type.is_variable( whole ) && !pl.type.is_atom( whole ) ) { thread.throw_error( pl.error.type( "atom", whole, atom.indicator ) ); } else { var v1 = pl.type.is_variable( start ); var v2 = pl.type.is_variable( end ); //var v3 = pl.type.is_variable( whole ); if( !v1 && !v2 ) { goal = new Term( "=", [whole, new Term( start.id + end.id )] ); thread.prepend( [new State( point.goal.replace( goal ), point.substitution, point )] ); } else if( v1 && !v2 ) { str = whole.id.substr( 0, whole.id.length - end.id.length ); if( str + end.id === whole.id ) { goal = new Term( "=", [start, new Term( str )] ); thread.prepend( [new State( point.goal.replace( goal ), point.substitution, point )] ); } } else if( v2 && !v1 ) { str = whole.id.substr( start.id.length ); if( start.id + str === whole.id ) { goal = new Term( "=", [end, new Term( str )] ); thread.prepend( [new State( point.goal.replace( goal ), point.substitution, point )] ); } } else { var states = []; for( var i = 0; i <= whole.id.length; i++ ) { var atom1 = new Term( whole.id.substr( 0, i ) ); var atom2 = new Term( whole.id.substr( i ) ); goal = new Term( ",", [new Term( "=", [atom1, start] ), new Term( "=", [atom2, end] )] ); states.push( new State( point.goal.replace( goal ), point.substitution, point ) ); } thread.prepend( states ); } } }, // sub_atom/5 "sub_atom/5": function( thread, point, atom ) { var i, atom1 = atom.args[0], before = atom.args[1], length = atom.args[2], after = atom.args[3], subatom = atom.args[4]; if( pl.type.is_variable( atom1 ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom( atom1 ) ) { thread.throw_error( pl.error.type( "atom", atom1, atom.indicator ) ); } else if( !pl.type.is_variable( before ) && !pl.type.is_integer( before ) ) { thread.throw_error( pl.error.type( "integer", before, atom.indicator ) ); } else if( !pl.type.is_variable( length ) && !pl.type.is_integer( length ) ) { thread.throw_error( pl.error.type( "integer", length, atom.indicator ) ); } else if( !pl.type.is_variable( after ) && !pl.type.is_integer( after ) ) { thread.throw_error( pl.error.type( "integer", after, atom.indicator ) ); } else if( pl.type.is_integer( before ) && before.value < 0 ) { thread.throw_error( pl.error.domain( "not_less_than_zero", before, atom.indicator ) ); } else if( pl.type.is_integer( length ) && length.value < 0 ) { thread.throw_error( pl.error.domain( "not_less_than_zero", length, atom.indicator ) ); } else if( pl.type.is_integer( after ) && after.value < 0 ) { thread.throw_error( pl.error.domain( "not_less_than_zero", after, atom.indicator ) ); } else if( !pl.type.is_variable( subatom ) && !pl.type.is_atom( subatom ) ) { thread.throw_error( pl.error.type( "atom", subatom, atom.indicator ) ); } else { var bs = [], ls = [], as = []; if( pl.type.is_variable( before ) ) { for( i = 0; i <= atom1.id.length; i++ ) { bs.push( i ); } } else { bs.push( before.value ); } if( pl.type.is_variable( length ) ) { for( i = 0; i <= atom1.id.length; i++ ) { ls.push( i ); } } else { ls.push( length.value ); } if( pl.type.is_variable( after ) ) { for( i = 0; i <= atom1.id.length; i++ ) { as.push( i ); } } else { as.push( after.value ); } var states = []; for( var _i in bs ) { if(!bs.hasOwnProperty(_i)) continue; i = bs[_i]; for( var _j in ls ) { if(!ls.hasOwnProperty(_j)) continue; var j = ls[_j]; var k = atom1.id.length - i - j; if( indexOf( as, k ) !== -1 ) { if( i+j+k === atom1.id.length ) { var str = atom1.id.substr( i, j ); if( atom1.id === atom1.id.substr( 0, i ) + str + atom1.id.substr( i+j, k ) ) { var pl1 = new Term( "=", [new Term( str ), subatom] ); var pl2 = new Term( "=", [before, new Num( i )] ); var pl3 = new Term( "=", [length, new Num( j )] ); var pl4 = new Term( "=", [after, new Num( k )] ); var goal = new Term( ",", [ new Term( ",", [ new Term( ",", [pl2, pl3] ), pl4] ), pl1] ); states.push( new State( point.goal.replace( goal ), point.substitution, point ) ); } } } } } thread.prepend( states ); } }, // atom_chars/2 "atom_chars/2": function( thread, point, atom ) { var atom1 = atom.args[0], list = atom.args[1]; if( pl.type.is_variable( atom1 ) && pl.type.is_variable( list ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( atom1 ) && !pl.type.is_atom( atom1 ) ) { thread.throw_error( pl.error.type( "atom", atom1, atom.indicator ) ); } else { if( !pl.type.is_variable( atom1 ) ) { if(!pl.type.is_variable(list)) { var pointer = list; while(pl.type.is_term(pointer) && pointer.indicator === "./2") { if(!pl.type.is_character(pointer.args[0]) && !pl.type.is_variable(pointer.args[0])) { thread.throw_error(pl.error.type("character", pointer.args[0], atom.indicator)); return; } pointer = pointer.args[1]; } } var list1 = new Term( "[]" ); var unilen = stringLength(atom1.id); for( var i = unilen-1; i >= 0; i-- ) { list1 = new Term( ".", [new Term( atom1.id.charAt( i ) ), list1] ); } thread.prepend( [new State( point.goal.replace( new Term( "=", [list, list1] ) ), point.substitution, point )] ); } else { var pointer = list; var v = pl.type.is_variable( atom1 ); var str = ""; while( pointer.indicator === "./2" ) { if( !pl.type.is_character( pointer.args[0] ) ) { if( pl.type.is_variable( pointer.args[0] ) && v ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if( !pl.type.is_variable( pointer.args[0] ) ) { thread.throw_error( pl.error.type( "character", pointer.args[0], atom.indicator ) ); return; } } else { str += pointer.args[0].id; } pointer = pointer.args[1]; } if( pl.type.is_variable( pointer ) && v ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_empty_list( pointer ) && !pl.type.is_variable( pointer ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else { thread.prepend( [new State( point.goal.replace( new Term( "=", [new Term( str ), atom1] ) ), point.substitution, point )] ); } } } }, // atom_codes/2 "atom_codes/2": function( thread, point, atom ) { var atom1 = atom.args[0], list = atom.args[1]; if( pl.type.is_variable( atom1 ) && pl.type.is_variable( list ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( atom1 ) && !pl.type.is_atom( atom1 ) ) { thread.throw_error( pl.error.type( "atom", atom1, atom.indicator ) ); } else { if( !pl.type.is_variable( atom1 ) ) { if(!pl.type.is_variable(list)) { var pointer = list; while(pl.type.is_term(pointer) && pointer.indicator === "./2") { if(!pl.type.is_character_code(pointer.args[0]) && !pl.type.is_variable(pointer.args[0])) { thread.throw_error(pl.error.type("integer", pointer.args[0], atom.indicator)); return; } pointer = pointer.args[1]; } } var list1 = new Term( "[]" ); var unilen = stringLength(atom1.id); for( var i = unilen-1; i >= 0; i-- ) { list1 = new Term( ".", [new Num( codePointAt(atom1.id,i), false ), list1] ); } thread.prepend( [new State( point.goal.replace( new Term( "=", [list, list1] ) ), point.substitution, point )] ); } else { var pointer = list; var v = pl.type.is_variable( atom1 ); var str = ""; while( pointer.indicator === "./2" ) { if( !pl.type.is_character_code( pointer.args[0] ) ) { if( pl.type.is_variable( pointer.args[0] ) && v ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if( !pl.type.is_variable( pointer.args[0] ) ) { thread.throw_error( pl.error.representation( "character_code", atom.indicator ) ); return; } } else { str += fromCodePoint( pointer.args[0].value ); } pointer = pointer.args[1]; } if( pl.type.is_variable( pointer ) && v ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_empty_list( pointer ) && !pl.type.is_variable( pointer ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else { thread.prepend( [new State( point.goal.replace( new Term( "=", [new Term( str ), atom1] ) ), point.substitution, point )] ); } } } }, // char_code/2 "char_code/2": function( thread, point, atom ) { var char = atom.args[0], code = atom.args[1]; if( pl.type.is_variable( char ) && pl.type.is_variable( code ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( char ) && !pl.type.is_character( char ) ) { thread.throw_error( pl.error.type( "character", char, atom.indicator ) ); } else if( !pl.type.is_variable( code ) && !pl.type.is_integer( code ) ) { thread.throw_error( pl.error.type( "integer", code, atom.indicator ) ); } else if( !pl.type.is_variable( code ) && !pl.type.is_character_code( code ) ) { thread.throw_error( pl.error.representation( "character_code", atom.indicator ) ); } else { if( pl.type.is_variable( code ) ) { var code1 = new Num( codePointAt(char.id,0 ), false ); thread.prepend( [new State( point.goal.replace( new Term( "=", [code1, code] ) ), point.substitution, point )] ); } else { var char1 = new Term( fromCodePoint( code.value ) ); thread.prepend( [new State( point.goal.replace( new Term( "=", [char1, char] ) ), point.substitution, point )] ); } } }, // number_chars/2 "number_chars/2": function( thread, point, atom ) { var str, num = atom.args[0], list = atom.args[1]; if( pl.type.is_variable( num ) && pl.type.is_variable( list ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( num ) && !pl.type.is_number( num ) ) { thread.throw_error( pl.error.type( "number", num, atom.indicator ) ); } else if( !pl.type.is_variable( list ) && !pl.type.is_list( list ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else { var isvar = pl.type.is_variable( num ); if( !pl.type.is_variable( list ) ) { var pointer = list; var total = true; str = ""; while( pointer.indicator === "./2" ) { if( !pl.type.is_character( pointer.args[0] ) ) { if( pl.type.is_variable( pointer.args[0] ) ) { total = false; } else if( !pl.type.is_variable( pointer.args[0] ) ) { thread.throw_error( pl.error.type( "character", pointer.args[0], atom.indicator ) ); return; } } else { str += pointer.args[0].id; } pointer = pointer.args[1]; } total = total && pl.type.is_empty_list( pointer ); if( !pl.type.is_empty_list( pointer ) && !pl.type.is_variable( pointer ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); return; } if( !total && isvar ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if( total ) { if( pl.type.is_variable( pointer ) && isvar ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else { var expr = thread.parse( str ); var num2 = expr.value; if( !pl.type.is_number( num2 ) || expr.tokens[expr.tokens.length-1].space ) { thread.throw_error( pl.error.syntax_by_predicate( "parseable_number", atom.indicator ) ); } else { thread.prepend( [new State( point.goal.replace( new Term( "=", [num, num2] ) ), point.substitution, point )] ); } return; } } } if( !isvar ) { str = num.toString(); var list2 = new Term( "[]" ); for( var i = str.length - 1; i >= 0; i-- ) { list2 = new Term( ".", [ new Term( str.charAt( i ) ), list2 ] ); } thread.prepend( [new State( point.goal.replace( new Term( "=", [list, list2] ) ), point.substitution, point )] ); } } }, // number_codes/2 "number_codes/2": function( thread, point, atom ) { var str, num = atom.args[0], list = atom.args[1]; if( pl.type.is_variable( num ) && pl.type.is_variable( list ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( num ) && !pl.type.is_number( num ) ) { thread.throw_error( pl.error.type( "number", num, atom.indicator ) ); } else if( !pl.type.is_variable( list ) && !pl.type.is_list( list ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else { var isvar = pl.type.is_variable( num ); if( !pl.type.is_variable( list ) ) { var pointer = list; var total = true; str = ""; while( pointer.indicator === "./2" ) { if( !pl.type.is_character_code( pointer.args[0] ) ) { if( pl.type.is_variable( pointer.args[0] ) ) { total = false; } else if( !pl.type.is_variable( pointer.args[0] ) ) { thread.throw_error( pl.error.representation( "character_code", atom.indicator ) ); return; } } else { str += fromCodePoint( pointer.args[0].value ); } pointer = pointer.args[1]; } total = total && pl.type.is_empty_list( pointer ); if( !pl.type.is_empty_list( pointer ) && !pl.type.is_variable( pointer ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); return; } if( !total && isvar ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if( total ) { if( pl.type.is_variable( pointer ) && isvar ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else { var expr = thread.parse( str ); var num2 = expr.value; if( !pl.type.is_number( num2 ) || expr.tokens[expr.tokens.length-1].space ) { thread.throw_error( pl.error.syntax_by_predicate( "parseable_number", atom.indicator ) ); } else { thread.prepend( [new State( point.goal.replace( new Term( "=", [num, num2] ) ), point.substitution, point )] ); } return; } } } if( !isvar ) { str = num.toString(); var list2 = new Term( "[]" ); for( var i = str.length - 1; i >= 0; i-- ) { list2 = new Term( ".", [ new Num( codePointAt(str,i), false ), list2 ] ); } thread.prepend( [new State( point.goal.replace( new Term( "=", [list, list2] ) ), point.substitution, point )] ); } } }, // upcase_atom/2 "upcase_atom/2": function( thread, point, atom ) { var original = atom.args[0], upcase = atom.args[1]; if( pl.type.is_variable( original ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom( original ) ) { thread.throw_error( pl.error.type( "atom", original, atom.indicator ) ); } else if( !pl.type.is_variable( upcase ) && !pl.type.is_atom( upcase ) ) { thread.throw_error( pl.error.type( "atom", upcase, atom.indicator ) ); } else { thread.prepend( [new State( point.goal.replace( new Term( "=", [upcase, new Term( original.id.toUpperCase(), [] )] ) ), point.substitution, point )] ); } }, // downcase_atom/2 "downcase_atom/2": function( thread, point, atom ) { var original = atom.args[0], downcase = atom.args[1]; if( pl.type.is_variable( original ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom( original ) ) { thread.throw_error( pl.error.type( "atom", original, atom.indicator ) ); } else if( !pl.type.is_variable( downcase ) && !pl.type.is_atom( downcase ) ) { thread.throw_error( pl.error.type( "atom", downcase, atom.indicator ) ); } else { thread.prepend( [new State( point.goal.replace( new Term( "=", [downcase, new Term( original.id.toLowerCase(), [] )] ) ), point.substitution, point )] ); } }, // atomic_concat/3 "atomic_concat/3": function( thread, point, atom ) { var atomic1 = atom.args[0], atomic2 = atom.args[1], concat = atom.args[2]; if( pl.type.is_variable( atomic1 ) || pl.type.is_variable( atomic2 ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atomic( atomic1 ) ) { thread.throw_error( pl.error.type( "atomic", atomic1, atom.indicator ) ); } else if( !pl.type.is_atomic( atomic2 ) ) { thread.throw_error( pl.error.type( "atomic", atomic2, atom.indicator ) ); } else if( !pl.type.is_variable( concat ) && !pl.type.is_atom( concat ) ) { thread.throw_error( pl.error.type( "atom", concat, atom.indicator ) ); } else { var id = ""; if( pl.type.is_atom( atomic1 ) ) { id += atomic1.id; } else { id += "" + atomic1.value; } if( pl.type.is_atom( atomic2 ) ) { id += atomic2.id; } else { id += "" + atomic2.value; } var atom = new Term(id, []); thread.prepend( [new State( point.goal.replace( new Term( "=", [atom, concat] ) ), point.substitution, point )] ); } },
// atomic_list_concat/2 "atomic_list_concat/2": function( thread, point, atom ) { var list = atom.args[0], concat = atom.args[1]; thread.prepend( [new State( point.goal.replace( new Term( "atomic_list_concat", [list, new Term( "", [] ), concat] ) ), point.substitution, point )] ); }, // atomic_list_concat/3 "atomic_list_concat/3": function( thread, point, atom ) { var list = atom.args[0], separator = atom.args[1], concat = atom.args[2]; if( pl.type.is_variable( separator ) || pl.type.is_variable( list ) && pl.type.is_variable( concat ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( list ) && !pl.type.is_list( list ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else if( !pl.type.is_variable( concat ) && !pl.type.is_atom( concat ) ) { thread.throw_error( pl.error.type( "atom", concat, atom.indicator ) ); } else { if( !pl.type.is_variable( concat ) ) { var atomic = arrayToList( map( concat.id.split( separator.id ), function( id ) { return new Term( id, [] ); } ) ); thread.prepend( [new State( point.goal.replace( new Term( "=", [atomic, list] ) ), point.substitution, point )] ); } else { var id = ""; var pointer = list; while( pl.type.is_term( pointer ) && pointer.indicator === "./2" ) { if( !pl.type.is_atom( pointer.args[0] ) && !pl.type.is_number( pointer.args[0] ) ) { thread.throw_error( pl.error.type( "atomic", pointer.args[0], atom.indicator ) ); return; } if( id !== "" ) id += separator.id; if( pl.type.is_atom( pointer.args[0] ) ) id += pointer.args[0].id; else id += "" + pointer.args[0].value; pointer = pointer.args[1]; } id = new Term( id, [] ); if( pl.type.is_variable( pointer ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_term( pointer ) || pointer.indicator !== "[]/0" ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else { thread.prepend( [new State( point.goal.replace( new Term( "=", [id, concat] ) ), point.substitution, point )] ); } } } }, // TERM COMPARISON "@=</2": function( thread, point, atom ) { if( pl.compare( atom.args[0], atom.args[1] ) <= 0 ) { thread.success( point ); } }, "==/2": function( thread, point, atom ) { if( pl.compare( atom.args[0], atom.args[1] ) === 0 ) { thread.success( point ); } }, "\\==/2": function( thread, point, atom ) { if( pl.compare( atom.args[0], atom.args[1] ) !== 0 ) { thread.success( point ); } }, "@</2": function( thread, point, atom ) { if( pl.compare( atom.args[0], atom.args[1] ) < 0 ) { thread.success( point ); } }, "@>/2": function( thread, point, atom ) { if( pl.compare( atom.args[0], atom.args[1] ) > 0 ) { thread.success( point ); } }, "@>=/2": function( thread, point, atom ) { if( pl.compare( atom.args[0], atom.args[1] ) >= 0 ) { thread.success( point ); } }, "compare/3": function( thread, point, atom ) { var order = atom.args[0], left = atom.args[1], right = atom.args[2]; if( !pl.type.is_variable( order ) && !pl.type.is_atom( order ) ) { thread.throw_error( pl.error.type( "atom", order, atom.indicator ) ); } else if( pl.type.is_atom( order ) && ["<", ">", "="].indexOf( order.id ) === -1 ) { thread.throw_error( pl.error.domain( "order", order, atom.indicator ) ); } else { var compare = pl.compare( left, right ); compare = compare === 0 ? "=" : (compare === -1 ? "<" : ">"); thread.prepend( [new State( point.goal.replace( new Term( "=", [order, new Term( compare, [] )] ) ), point.substitution, point )] ); } }, // EVALUATION // is/2 "is/2": function( thread, point, atom ) { var op = atom.args[1].interpret( thread ); if( !pl.type.is_number( op ) ) { thread.throw_error( op ); } else { thread.prepend( [new State( point.goal.replace( new Term( "=", [atom.args[0], op], atom.indicator ) ), point.substitution, point )] ); } }, // between/3 "between/3": function( thread, point, atom ) { var lower = atom.args[0], upper = atom.args[1], bet = atom.args[2]; if( pl.type.is_variable( lower ) || pl.type.is_variable( upper ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_integer( lower ) ) { thread.throw_error( pl.error.type( "integer", lower, atom.indicator ) ); } else if( !pl.type.is_integer( upper ) ) { thread.throw_error( pl.error.type( "integer", upper, atom.indicator ) ); } else if( !pl.type.is_variable( bet ) && !pl.type.is_integer( bet ) ) { thread.throw_error( pl.error.type( "integer", bet, atom.indicator ) ); } else { if( pl.type.is_variable( bet ) ) { if( lower.value <= upper.value ) { var states = [new State( point.goal.replace( new Term( "=", [bet, lower] ) ), point.substitution, point )]; states.push( new State( point.goal.replace( new Term( "between", [new Num( lower.value+1, false ), upper, bet] ) ), point.substitution, point ) ); thread.prepend( states ); } } else if( lower.value <= bet.value && upper.value >= bet.value ) { thread.success( point ); } } }, // succ/2 "succ/2": function( thread, point, atom ) { var n = atom.args[0], m = atom.args[1]; if( pl.type.is_variable( n ) && pl.type.is_variable( m ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( n ) && !pl.type.is_integer( n ) ) { thread.throw_error( pl.error.type( "integer", n, atom.indicator ) ); } else if( !pl.type.is_variable( m ) && !pl.type.is_integer( m ) ) { thread.throw_error( pl.error.type( "integer", m, atom.indicator ) ); } else if( !pl.type.is_variable( n ) && n.value < 0 ) { thread.throw_error( pl.error.domain( "not_less_than_zero", n, atom.indicator ) ); } else if( !pl.type.is_variable( m ) && m.value < 0 ) { thread.throw_error( pl.error.domain( "not_less_than_zero", m, atom.indicator ) ); } else { if( pl.type.is_variable( m ) || m.value > 0 ) { if( pl.type.is_variable( n ) ) { thread.prepend( [new State( point.goal.replace( new Term( "=", [n, new Num( m.value-1, false )] ) ), point.substitution, point )] ); } else { thread.prepend( [new State( point.goal.replace( new Term( "=", [m, new Num( n.value+1, false )] ) ), point.substitution, point )] ); } } } }, // =:=/2 "=:=/2": function( thread, point, atom ) { var cmp = pl.arithmetic_compare( thread, atom.args[0], atom.args[1] ); if( pl.type.is_term( cmp ) ) { thread.throw_error( cmp ); } else if( cmp === 0 ) { thread.success( point ); } }, // =\=/2 "=\\=/2": function( thread, point, atom ) { var cmp = pl.arithmetic_compare( thread, atom.args[0], atom.args[1] ); if( pl.type.is_term( cmp ) ) { thread.throw_error( cmp ); } else if( cmp !== 0 ) { thread.success( point ); } }, // </2 "</2": function( thread, point, atom ) { var cmp = pl.arithmetic_compare( thread, atom.args[0], atom.args[1] ); if( pl.type.is_term( cmp ) ) { thread.throw_error( cmp ); } else if( cmp < 0 ) { thread.success( point ); } }, // =</2 "=</2": function( thread, point, atom ) { var cmp = pl.arithmetic_compare( thread, atom.args[0], atom.args[1] ); if( pl.type.is_term( cmp ) ) { thread.throw_error( cmp ); } else if( cmp <= 0 ) { thread.success( point ); } }, // >/2 ">/2": function( thread, point, atom ) { var cmp = pl.arithmetic_compare( thread, atom.args[0], atom.args[1] ); if( pl.type.is_term( cmp ) ) { thread.throw_error( cmp ); } else if( cmp > 0 ) { thread.success( point ); } }, // >=/2 ">=/2": function( thread, point, atom ) { var cmp = pl.arithmetic_compare( thread, atom.args[0], atom.args[1] ); if( pl.type.is_term( cmp ) ) { thread.throw_error( cmp ); } else if( cmp >= 0 ) { thread.success( point ); } }, // TYPE TEST // var/1 "var/1": function( thread, point, atom ) { if( pl.type.is_variable( atom.args[0] ) ) { thread.success( point ); } }, // atom/1 "atom/1": function( thread, point, atom ) { if( pl.type.is_atom( atom.args[0] ) ) { thread.success( point ); } }, // atomic/1 "atomic/1": function( thread, point, atom ) { if( pl.type.is_atomic( atom.args[0] ) ) { thread.success( point ); } }, // compound/1 "compound/1": function( thread, point, atom ) { if( pl.type.is_compound( atom.args[0] ) ) { thread.success( point ); } }, // integer/1 "integer/1": function( thread, point, atom ) { if( pl.type.is_integer( atom.args[0] ) ) { thread.success( point ); } }, // float/1 "float/1": function( thread, point, atom ) { if( pl.type.is_float( atom.args[0] ) ) { thread.success( point ); } }, // number/1 "number/1": function( thread, point, atom ) { if( pl.type.is_number( atom.args[0] ) ) { thread.success( point ); } }, // nonvar/1 "nonvar/1": function( thread, point, atom ) { if( !pl.type.is_variable( atom.args[0] ) ) { thread.success( point ); } }, // ground/1 "ground/1": function( thread, point, atom ) { if( atom.variables().length === 0 ) { thread.success( point ); } }, // acyclic_term/1 "acyclic_term/1": function( thread, point, atom ) { var test = point.substitution.apply( point.substitution ); var variables = atom.args[0].variables(); for( var i = 0; i < variables.length; i++ ) if( point.substitution.links[variables[i]] !== undefined && !point.substitution.links[variables[i]].equals( test.links[variables[i]] ) ) return; thread.success( point ); }, // callable/1 "callable/1": function( thread, point, atom ) { var callable = atom.args[0]; if(pl.type.is_term(callable)) { thread.success( point ); } },
// is_list/1 "is_list/1": function( thread, point, atom ) { var list = atom.args[0]; while( pl.type.is_term( list ) && list.indicator === "./2" ) list = list.args[1]; if( pl.type.is_term( list ) && list.indicator === "[]/0" ) thread.success( point ); },
// STREAM SELECTION AND CONTROL
// current_input/1 "current_input/1": function( thread, point, atom ) { var stream = atom.args[0]; if(!pl.type.is_variable(stream) && (!pl.type.is_stream(stream) || !thread.get_stream_by_alias(stream.alias) && !thread.get_stream_by_alias(stream.id)) && (!pl.type.is_atom(stream) || !thread.get_stream_by_alias(stream.id))) { thread.throw_error( pl.error.domain("stream", stream, atom.indicator) ); } else { if(pl.type.is_atom(stream)) stream = thread.get_stream_by_alias(stream.id); thread.prepend( [new State( point.goal.replace(new Term("=", [stream, thread.get_current_input()])), point.substitution, point) ] ); } },
// current_output/1 "current_output/1": function( thread, point, atom ) { var stream = atom.args[0]; if(!pl.type.is_variable(stream) && (!pl.type.is_stream(stream) || !thread.get_stream_by_alias(stream.alias) && !thread.get_stream_by_alias(stream.id)) && (!pl.type.is_atom(stream) || !thread.get_stream_by_alias(stream.id))) { thread.throw_error( pl.error.domain("stream", stream, atom.indicator) ); } else { if(pl.type.is_atom(stream)) stream = thread.get_stream_by_alias( stream.id ); thread.prepend( [new State( point.goal.replace(new Term("=", [stream, thread.get_current_output()])), point.substitution, point) ] ); } },
// set_input/1 "set_input/1": function( thread, point, atom ) { var input = atom.args[0]; var stream = pl.type.is_stream( input ) ? input : thread.get_stream_by_alias( input.id ); if( pl.type.is_variable( input ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_stream( input ) && !pl.type.is_atom( input ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", input, atom.indicator ) ); } else if( !pl.type.is_stream( stream ) || !thread.get_stream_by_alias(input.alias) && !thread.get_stream_by_alias(input.id) ) { thread.throw_error( pl.error.existence( "stream", input, atom.indicator ) ); } else if( stream.output === true ) { thread.throw_error( pl.error.permission( "input", "stream", input, atom.indicator ) ); } else { thread.set_current_input( stream ); thread.success( point ); } },
// set_output/1 "set_output/1": function( thread, point, atom ) { var output = atom.args[0]; var stream = pl.type.is_stream( output ) ? output : thread.get_stream_by_alias( output.id ); if( pl.type.is_variable( output ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_stream( output ) && !pl.type.is_atom( output ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", output, atom.indicator ) ); } else if( !pl.type.is_stream( stream ) || !thread.get_stream_by_alias(output.alias) && !thread.get_stream_by_alias(output.id) ) { thread.throw_error( pl.error.existence( "stream", output, atom.indicator ) ); } else if( stream.input === true ) { thread.throw_error( pl.error.permission( "output", "stream", output, atom.indicator ) ); } else { thread.set_current_output( stream ); thread.success( point ); } },
// open/3 "open/3": function( thread, point, atom ) { var dest = atom.args[0], mode = atom.args[1], stream = atom.args[2]; thread.prepend( [new State( point.goal.replace(new Term("open", [dest, mode, stream, new Term("[]", [])])), point.substitution, point )] ); },
// open/4 "open/4": function( thread, point, atom ) { var dest = atom.args[0], mode = atom.args[1], stream = atom.args[2], options = atom.args[3]; if( pl.type.is_variable( dest ) || pl.type.is_variable( mode ) || pl.type.is_variable( options ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( mode ) && !pl.type.is_atom( mode ) ) { thread.throw_error( pl.error.type( "atom", mode, atom.indicator ) ); } else if( !pl.type.is_list( options ) ) { thread.throw_error( pl.error.type( "list", options, atom.indicator ) ); } else if( !pl.type.is_variable( stream ) ) { thread.throw_error( pl.error.uninstantiation( stream, atom.indicator ) ); } else if( !pl.type.is_atom( dest ) && !pl.type.is_streamable( dest ) ) { thread.throw_error( pl.error.domain( "source_sink", dest, atom.indicator ) ); } else if( !pl.type.is_io_mode( mode ) ) { thread.throw_error( pl.error.domain( "io_mode", mode, atom.indicator ) ); } else { var obj_options = {}; var pointer = options; var property; while( pl.type.is_term(pointer) && pointer.indicator === "./2" ) { property = pointer.args[0]; if( pl.type.is_variable( property ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if( !pl.type.is_stream_option( property ) ) { thread.throw_error( pl.error.domain( "stream_option", property, atom.indicator ) ); return; } obj_options[property.id] = property.args[0].id; pointer = pointer.args[1]; } if( pointer.indicator !== "[]/0" ) { if( pl.type.is_variable( pointer ) ) thread.throw_error( pl.error.instantiation( atom.indicator ) ); else thread.throw_error( pl.error.type( "list", options, atom.indicator ) ); return; } else { var alias = obj_options["alias"]; if( alias && thread.get_stream_by_alias(alias) ) { thread.throw_error( pl.error.permission( "open", "source_sink", new Term("alias", [new Term(alias, [])]), atom.indicator ) ); return; } if( !obj_options["type"] ) obj_options["type"] = "text"; var file; if( pl.type.is_atom( dest ) ) file = thread.file_system_open( dest.id, obj_options["type"], mode.id ); else file = dest.stream( obj_options["type"], mode.id ); if( file === false ) { thread.throw_error( pl.error.permission( "open", "source_sink", dest, atom.indicator ) ); return; } else if( file === null ) { thread.throw_error( pl.error.existence( "source_sink", dest, atom.indicator ) ); return; } var newstream = new Stream( file, mode.id, obj_options["alias"], obj_options["type"], obj_options["reposition"] === "true", obj_options["eof_action"] ); if( alias ) thread.session.streams[alias] = newstream; else thread.session.streams[newstream.id] = newstream; thread.prepend( [new State( point.goal.replace( new Term( "=", [stream, newstream] ) ), point.substitution, point )] ); } } },
// close/1 "close/1": function( thread, point, atom ) { var stream = atom.args[0]; thread.prepend( [new State( point.goal.replace(new Term("close", [stream, new Term("[]", [])])), point.substitution, point )] ); },
// close/2 "close/2": function( thread, point, atom ) { var stream = atom.args[0], options = atom.args[1]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) || pl.type.is_variable( options ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_list( options ) ) { thread.throw_error( pl.error.type( "list", options, atom.indicator ) ); } else if( !pl.type.is_stream( stream ) && !pl.type.is_atom( stream ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", stream, atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else { // Get options var obj_options = {}; var pointer = options; var property; while( pl.type.is_term(pointer) && pointer.indicator === "./2" ) { property = pointer.args[0]; if( pl.type.is_variable( property ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if( !pl.type.is_close_option( property ) ) { thread.throw_error( pl.error.domain( "close_option", property, atom.indicator ) ); return; } obj_options[property.id] = property.args[0].id === "true"; pointer = pointer.args[1]; } if( pointer.indicator !== "[]/0" ) { if( pl.type.is_variable( pointer ) ) thread.throw_error( pl.error.instantiation( atom.indicator ) ); else thread.throw_error( pl.error.type( "list", options, atom.indicator ) ); return; } else { if(stream2 === thread.session.standard_input || stream2 === thread.session.standard_output || stream2 === thread.session.standard_error) { thread.success( point ); return; } else if( stream2 === thread.session.current_input ) { thread.session.current_input = thread.session.standard_input; } else if( stream2 === thread.session.current_output ) { thread.session.current_output = thread.session.standard_output; } if( stream2.alias !== null && stream2.alias !== undefined ) delete thread.session.streams[stream2.alias]; else delete thread.session.streams[stream2.id]; if( stream2.output ) stream2.stream.flush(); var closed = stream2.stream.close(); stream2.stream = null; if( obj_options.force === true || closed === true ) { thread.success( point ); } } } },
// flush_output/0 "flush_output/0": [ new Rule(new Term("flush_output", []), new Term(",", [new Term("current_output", [new Var("S")]),new Term("flush_output", [new Var("S")])])) ],
// flush_output/1 "flush_output/1": function( thread, point, atom ) { var stream = atom.args[0]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_stream( stream ) && !pl.type.is_atom( stream ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", stream, atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else if( stream2.input === true ) { thread.throw_error( pl.error.permission( "output", "stream", stream, atom.indicator ) ); } else { stream2.stream.flush(); thread.success( point ); } },
// stream_property/2 "stream_property/2": function( thread, point, atom ) { var stream = atom.args[0], property = atom.args[1]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( !pl.type.is_variable( stream ) && !pl.type.is_stream( stream ) ) { thread.throw_error( pl.error.domain( "stream", stream, atom.indicator ) ); } else if( !pl.type.is_variable( stream ) && (!pl.type.is_stream( stream2 ) || stream2.stream === null) ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else if( !pl.type.is_variable( property ) && !pl.type.is_stream_property( property ) ) { thread.throw_error( pl.error.domain( "stream_property", property, atom.indicator ) ); } else { var streams = []; var states = []; var propvar = pl.type.is_variable(property); if( !pl.type.is_variable( stream ) ) streams.push( stream2 ); else for( var key in thread.session.streams ) streams.push( thread.session.streams[key] ); for( var i = 0; i < streams.length; i++ ) { var properties = []; // file_name/1 if( (propvar || property.indicator === "file_name/1") && streams[i].filename ) properties.push( new Term( "file_name", [new Term(streams[i].file_name, [])] ) ); // mode/1 if(propvar || property.indicator === "mode/1") properties.push( new Term( "mode", [new Term(streams[i].mode, [])] ) ); // input/0 or output/0 if(propvar || property.indicator === "input/0" || property.indicator === "output/0") properties.push( new Term( streams[i].input ? "input" : "output", [] ) ); // alias/1 if( (propvar || property.indicator === "alias/1") && streams[i].alias ) properties.push( new Term( "alias", [new Term(streams[i].alias, [])] ) ); // position/1 if(propvar || property.indicator === "position/1") properties.push( new Term( "position", [ new Term("position", [ new Num(streams[i].char_count, false), new Num(streams[i].line_count, false), new Num(streams[i].line_position, false) ]) ] ) ); // end_of_stream/1 if(propvar || property.indicator === "end_of_stream/1") properties.push( new Term( "end_of_stream", [new Term( streams[i].position === "end_of_stream" || streams[i].stream.eof && streams[i].stream.eof(streams[i].position) ? "at" : streams[i].position === "past_end_of_stream" ? "past" : "not", [])] ) ); // eof_action/1 if(propvar || property.indicator === "eof_action/1") properties.push( new Term( "eof_action", [new Term(streams[i].eof_action, [])] ) ); // reposition/1 if(propvar || property.indicator === "reposition/1") properties.push( new Term( "reposition", [new Term(streams[i].reposition ? "true" : "false", [])] ) ); // type/1 if(propvar || property.indicator === "type/1") properties.push( new Term( "type", [new Term(streams[i].type, [])] ) ); for( var j = 0; j < properties.length; j++ ) { states.push( new State( point.goal.replace( new Term( ",", [ new Term("=", [pl.type.is_variable( stream ) ? stream : stream2, streams[i]]), new Term("=", [property, properties[j]])]) ), point.substitution, point ) ); } } thread.prepend( states ); } },
// stream_position_data "stream_position_data/3": function(thread, point, atom) { var field = atom.args[0], position = atom.args[1], value = atom.args[2]; if(pl.type.is_variable(position)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_term(position) || position.indicator !== "position/3") { thread.throw_error(pl.error.domain("stream_position", position, atom.indicator)); } else if(!pl.type.is_variable(field) && !pl.type.is_atom(field)) { thread.throw_error(pl.error.type("atom", field, atom.indicator)); } else if(!pl.type.is_variable(value) && !pl.type.is_integer(value)) { thread.throw_error(pl.error.type("integer", value, atom.indicator)); } else { var fields = ["char_count", "line_count", "line_position"]; var states = []; var data_pos = {char_count: 0, line_count: 1, line_position: 2}; if(pl.type.is_variable(field)) { for(var i = 0; i < fields.length; i++) { states.push(new State(point.goal.replace( new Term(",", [ new Term("=", [new Term(fields[i]), field]), new Term("=", [value, position.args[data_pos[fields[i]]]]) ]) ), point.substitution, point)); } } else if(data_pos.hasOwnProperty(field.id)) { states.push(new State(point.goal.replace( new Term("=", [value, position.args[data_pos[field.id]]]) ), point.substitution, point)); } thread.prepend(states); } },
// at_end_of_stream/0 "at_end_of_stream/0": [ new Rule(new Term("at_end_of_stream", []), new pl.type.Term(",", [new Term("current_input", [new Var("S")]),new Term(",", [new Term("stream_property", [new Var("S"),new Term("end_of_stream", [new Var("E")])]),new Term(",", [new Term("!", []),new Term(";", [new Term("=", [new Var("E"),new Term("at", [])]),new Term("=", [new Var("E"),new Term("past", [])])])])])])) ],
// at_end_of_stream/1 "at_end_of_stream/1": function( thread, point, atom ) { var stream = atom.args[0]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else { var e = thread.next_free_variable(); thread.prepend( [new State( point.goal.replace( new Term(",", [new Term("stream_property", [stream2,new Term("end_of_stream", [e])]), new Term(",", [new Term("!", []),new Term(";", [new Term("=", [e,new Term("at", [])]), new Term("=", [e,new Term("past", [])])])])]) ), point.substitution, point )] ); } },
// set_stream_position/2 "set_stream_position/2": function( thread, point, atom ) { var stream = atom.args[0], position = atom.args[1]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) || pl.type.is_variable( position ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_stream( stream ) && !pl.type.is_atom( stream ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", stream, atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else if( !pl.type.is_stream_position( position ) ) { thread.throw_error( pl.error.domain( "stream_position", position, atom.indicator ) ); } else if( stream2.reposition === false ) { thread.throw_error( pl.error.permission( "reposition", "stream", stream, atom.indicator ) ); } else { if( position.indicator === "position/3" ) { stream2.position = position.args[0].value; stream2.char_count = position.args[0].value; stream2.line_count = position.args[1].value; stream2.line_position = position.args[2].value; } else { stream2.position = position.id; } thread.success( point ); } },
// CHARACTER INPUT OUTPUT // get_char/1 "get_char/1": [ new Rule(new Term("get_char", [new Var("C")]), new Term(",", [new Term("current_input", [new Var("S")]),new Term("get_char", [new Var("S"),new Var("C")])])) ],
// get_char/2 "get_char/2": function( thread, point, atom ) { var stream = atom.args[0], char = atom.args[1]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( char ) && !pl.type.is_in_character( char ) ) { thread.throw_error( pl.error.type( "in_character", char, atom.indicator ) ); } else if( !pl.type.is_stream( stream ) && !pl.type.is_atom( stream ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", stream, atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else if( stream2.output ) { thread.throw_error( pl.error.permission( "input", "stream", stream, atom.indicator ) ); } else if( stream2.type === "binary" ) { thread.throw_error( pl.error.permission( "input", "binary_stream", stream, atom.indicator ) ); } else if( stream2.position === "past_end_of_stream" && stream2.eof_action === "error" ) { thread.throw_error( pl.error.permission( "input", "past_end_of_stream", stream, atom.indicator ) ); } else { var stream_char; if( stream2.position === "end_of_stream" ) { stream_char = "end_of_file"; stream2.position = "past_end_of_stream"; } else if( stream2.position === "past_end_of_stream" ) { stream_char = "end_of_file"; stream2.position = "past_end_of_stream"; } else { stream_char = stream2.stream.get( 1, stream2.position ); if( stream_char === null ) { thread.throw_error( pl.error.representation( "character", atom.indicator ) ); return; } else if(stream_char === "end_of_stream") { stream_char = "end_of_file"; stream2.position = "past_end_of_stream"; } else { stream2.position++; stream2.char_count++; stream2.line_position++; if(stream_char === "\n") { stream2.line_count++; stream2.line_position = 0; } } } thread.prepend( [new State( point.goal.replace( new Term( "=", [new Term(stream_char,[]), char] ) ), point.substitution, point )] ); } },
// get_code/1 "get_code/1": [ new Rule(new Term("get_code", [new Var("C")]), new Term(",", [new Term("current_input", [new Var("S")]),new Term("get_code", [new Var("S"),new Var("C")])])) ],
// get_code/2 "get_code/2": function( thread, point, atom ) { var stream = atom.args[0], code = atom.args[1]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( code ) && !pl.type.is_integer( code ) ) { thread.throw_error( pl.error.type( "integer", code, atom.indicator ) ); } else if( pl.type.is_integer( code ) && !pl.type.is_in_character_code( code ) ) { thread.throw_error( pl.error.representation( "in_character_code", atom.indicator ) ); } else if( !pl.type.is_variable( stream ) && !pl.type.is_stream( stream ) && !pl.type.is_atom( stream ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", stream, atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else if( stream2.output ) { thread.throw_error( pl.error.permission( "input", "stream", stream, atom.indicator ) ); } else if( stream2.type === "binary" ) { thread.throw_error( pl.error.permission( "input", "binary_stream", stream, atom.indicator ) ); } else if( stream2.position === "past_end_of_stream" && stream2.eof_action === "error" ) { thread.throw_error( pl.error.permission( "input", "past_end_of_stream", stream, atom.indicator ) ); } else { var stream_code; if( stream2.position === "end_of_stream" ) { stream_code = -1; stream2.position = "past_end_of_stream"; } else if( stream2.position === "past_end_of_stream" ) { stream_code = -1; stream2.position = "past_end_of_stream"; } else { stream_code = stream2.stream.get( 1, stream2.position ); if( stream_code === null ) { thread.throw_error( pl.error.representation( "character", atom.indicator ) ); return; } else if(stream_code === "end_of_stream") { stream_code = -1; stream2.position = "past_end_of_stream"; } else { stream_code = codePointAt( stream_code, 0 ); stream2.position++; stream2.char_count++; stream2.line_position++; if(stream_code === 10) { stream2.line_count++; stream2.line_position = 0; } } } thread.prepend( [new State( point.goal.replace( new Term( "=", [new Num(stream_code, false), code] ) ), point.substitution, point )] ); } },
// peek_char/1 "peek_char/1": [ new Rule(new Term("peek_char", [new Var("C")]), new Term(",", [new Term("current_input", [new Var("S")]),new Term("peek_char", [new Var("S"),new Var("C")])])) ],
// peek_char/2 "peek_char/2": function( thread, point, atom ) { var stream = atom.args[0], char = atom.args[1]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( char ) && !pl.type.is_in_character( char ) ) { thread.throw_error( pl.error.type( "in_character", char, atom.indicator ) ); } else if( !pl.type.is_stream( stream ) && !pl.type.is_atom( stream ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", stream, atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else if( stream2.output ) { thread.throw_error( pl.error.permission( "input", "stream", stream, atom.indicator ) ); } else if( stream2.type === "binary" ) { thread.throw_error( pl.error.permission( "input", "binary_stream", stream, atom.indicator ) ); } else if( stream2.position === "past_end_of_stream" && stream2.eof_action === "error" ) { thread.throw_error( pl.error.permission( "input", "past_end_of_stream", stream, atom.indicator ) ); } else { var stream_char; if( stream2.position === "end_of_stream" ) { stream_char = "end_of_file"; stream2.position = "past_end_of_stream"; } else if( stream2.position === "past_end_of_stream" ) { stream_char = "end_of_file"; stream2.position = "past_end_of_stream"; } else { stream_char = stream2.stream.get( 1, stream2.position ); if( stream_char === null ) { thread.throw_error( pl.error.representation( "character", atom.indicator ) ); return; } else if(stream_char === "end_of_stream") { stream_char = "end_of_file"; } } thread.prepend( [new State( point.goal.replace( new Term( "=", [new Term(stream_char,[]), char] ) ), point.substitution, point )] ); } },
// peek_code/1 "peek_code/1": [ new Rule(new Term("peek_code", [new Var("C")]), new Term(",", [new Term("current_input", [new Var("S")]),new Term("peek_code", [new Var("S"),new Var("C")])])) ],
// peek_code/2 "peek_code/2": function( thread, point, atom ) { var stream = atom.args[0], code = atom.args[1]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( code ) && !pl.type.is_integer( code ) ) { thread.throw_error( pl.error.type( "integer", code, atom.indicator ) ); } else if( pl.type.is_integer( code ) && !pl.type.is_in_character_code( code ) ) { thread.throw_error( pl.error.representation( "in_character_code", atom.indicator ) ); } else if( !pl.type.is_variable( stream ) && !pl.type.is_stream( stream ) && !pl.type.is_atom( stream ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", stream, atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else if( stream2.output ) { thread.throw_error( pl.error.permission( "input", "stream", stream, atom.indicator ) ); } else if( stream2.type === "binary" ) { thread.throw_error( pl.error.permission( "input", "binary_stream", stream, atom.indicator ) ); } else if( stream2.position === "past_end_of_stream" && stream2.eof_action === "error" ) { thread.throw_error( pl.error.permission( "input", "past_end_of_stream", stream, atom.indicator ) ); } else { var stream_code; if( stream2.position === "end_of_stream" ) { stream_code = -1; stream2.position = "past_end_of_stream"; } else { stream_code = stream2.stream.get( 1, stream2.position ); if( stream_code === null ) { thread.throw_error( pl.error.representation( "character", atom.indicator ) ); return; } else if(stream_code === "end_of_stream") { stream_code = -1; } else { stream_code = codePointAt( stream_code, 0 ); } } thread.prepend( [new State( point.goal.replace( new Term( "=", [new Num(stream_code, false), code] ) ), point.substitution, point )] ); } },
// put_char/1 "put_char/1": [ new Rule(new Term("put_char", [new Var("C")]), new Term(",", [new Term("current_output", [new Var("S")]),new Term("put_char", [new Var("S"),new Var("C")])])) ],
// put_char/2 "put_char/2": function( thread, point, atom ) { var stream = atom.args[0], char = atom.args[1]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) || pl.type.is_variable( char ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_character( char ) ) { thread.throw_error( pl.error.type( "character", char, atom.indicator ) ); } else if( !pl.type.is_variable( stream ) && !pl.type.is_stream( stream ) && !pl.type.is_atom( stream ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", stream, atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else if( stream2.input ) { thread.throw_error( pl.error.permission( "output", "stream", stream, atom.indicator ) ); } else if( stream2.type === "binary" ) { thread.throw_error( pl.error.permission( "output", "binary_stream", stream, atom.indicator ) ); } else { if( stream2.stream.put( char.id, stream2.position ) ) { if(typeof stream2.position === "number") stream2.position++; stream2.char_count++; stream2.line_position++; if(char.id === "\n") { stream2.line_count++; stream2.line_position = 0; } thread.success( point ); } } },
// put_code/1 "put_code/1": [ new Rule(new Term("put_code", [new Var("C")]), new Term(",", [new Term("current_output", [new Var("S")]),new Term("put_code", [new Var("S"),new Var("C")])])) ],
// put_code/2 "put_code/2": function( thread, point, atom ) { var stream = atom.args[0], code = atom.args[1]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) || pl.type.is_variable( code ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_integer( code ) ) { thread.throw_error( pl.error.type( "integer", code, atom.indicator ) ); } else if( !pl.type.is_character_code( code ) ) { thread.throw_error( pl.error.representation( "character_code", atom.indicator ) ); } else if( !pl.type.is_variable( stream ) && !pl.type.is_stream( stream ) && !pl.type.is_atom( stream ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", stream, atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else if( stream2.input ) { thread.throw_error( pl.error.permission( "output", "stream", stream, atom.indicator ) ); } else if( stream2.type === "binary" ) { thread.throw_error( pl.error.permission( "output", "binary_stream", stream, atom.indicator ) ); } else { if( stream2.stream.put( fromCodePoint( code.value ), stream2.position ) ) { if(typeof stream2.position === "number") stream2.position++; stream2.char_count++; stream2.line_position++; if(code.value === 10) { stream2.line_count++; stream2.line_position = 0; } thread.success( point ); } } },
// nl/0 "nl/0": [ new Rule(new Term("nl"), new Term(",", [new Term("current_output", [new Var("S")]),new Term("put_char", [new Var("S"),new Term("\n")])])) ],
// nl/1 "nl/1": function( thread, point, atom ) { var stream = atom.args[0]; thread.prepend( [new State( point.goal.replace( new Term("put_char", [stream, new Term("\n", [])]) ), point.substitution, point )] ); },
// BYTE INPUT/OUTPUT
// get_byte/1 "get_byte/1": [ new Rule(new Term("get_byte", [new Var("B")]), new Term(",", [new Term("current_input", [new Var("S")]),new Term("get_byte", [new Var("S"),new Var("B")])])) ],
// get_byte/2 "get_byte/2": function( thread, point, atom ) { var stream = atom.args[0], byte = atom.args[1]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( byte ) && !pl.type.is_in_byte( byte ) ) { thread.throw_error( pl.error.type( "in_byte", byte, atom.indicator ) ); } else if( !pl.type.is_stream( stream ) && !pl.type.is_atom( stream ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", stream, atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else if( stream2.output ) { thread.throw_error( pl.error.permission( "input", "stream", stream, atom.indicator ) ); } else if( stream2.type === "text" ) { thread.throw_error( pl.error.permission( "input", "text_stream", stream, atom.indicator ) ); } else if( stream2.position === "past_end_of_stream" && stream2.eof_action === "error" ) { thread.throw_error( pl.error.permission( "input", "past_end_of_stream", stream, atom.indicator ) ); } else { var stream_byte; if( stream2.position === "end_of_stream" ) { stream_byte = -1; stream2.position = "past_end_of_stream"; } else { stream_byte = stream2.stream.get_byte( stream2.position ); if( stream_byte === null ) { thread.throw_error( pl.error.representation( "byte", atom.indicator ) ); return; } else if(stream_byte === "end_of_stream") { stream_byte = -1; stream2.position = "past_end_of_stream"; } else { stream2.position++; stream2.char_count++; stream2.line_position++; } } thread.prepend( [new State( point.goal.replace( new Term( "=", [new Num(stream_byte,false), byte] ) ), point.substitution, point )] ); } }, // peek_byte/1 "peek_byte/1": [ new Rule(new Term("peek_byte", [new Var("B")]), new Term(",", [new Term("current_input", [new Var("S")]),new Term("peek_byte", [new Var("S"),new Var("B")])])) ],
// peek_byte/2 "peek_byte/2": function( thread, point, atom ) { var stream = atom.args[0], byte = atom.args[1]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( byte ) && !pl.type.is_in_byte( byte ) ) { thread.throw_error( pl.error.type( "in_byte", byte, atom.indicator ) ); } else if( !pl.type.is_stream( stream ) && !pl.type.is_atom( stream ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", stream, atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else if( stream2.output ) { thread.throw_error( pl.error.permission( "input", "stream", stream, atom.indicator ) ); } else if( stream2.type === "text" ) { thread.throw_error( pl.error.permission( "input", "text_stream", stream, atom.indicator ) ); } else if( stream2.position === "past_end_of_stream" && stream2.eof_action === "error" ) { thread.throw_error( pl.error.permission( "input", "past_end_of_stream", stream, atom.indicator ) ); } else { var stream_byte; if( stream2.position === "end_of_stream" ) { stream_byte = -1; stream2.position = "past_end_of_stream"; } else { stream_byte = stream2.stream.get_byte( stream2.position ); if( stream_byte === null ) { thread.throw_error( pl.error.representation( "byte", atom.indicator ) ); return; } else if(stream_byte === "end_of_stream") { stream_byte = -1; } } thread.prepend( [new State( point.goal.replace( new Term( "=", [new Num(stream_byte,false), byte] ) ), point.substitution, point )] ); } },
// put_byte/1 "put_byte/1": [ new Rule(new Term("put_byte", [new Var("B")]), new Term(",", [new Term("current_output", [new Var("S")]),new Term("put_byte", [new Var("S"),new Var("B")])])) ],
// put_byte/2 "put_byte/2": function( thread, point, atom ) { var stream = atom.args[0], byte = atom.args[1]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) || pl.type.is_variable( byte ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_byte( byte ) ) { thread.throw_error( pl.error.type( "byte", byte, atom.indicator ) ); } else if( !pl.type.is_variable( stream ) && !pl.type.is_stream( stream ) && !pl.type.is_atom( stream ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", stream, atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else if( stream2.input ) { thread.throw_error( pl.error.permission( "output", "stream", stream, atom.indicator ) ); } else if( stream2.type === "text" ) { thread.throw_error( pl.error.permission( "output", "text_stream", stream, atom.indicator ) ); } else { if( stream2.stream.put_byte( byte.value, stream2.position ) ) { if(typeof stream2.position === "number") stream2.position++; stream2.char_count++; stream2.line_position++; thread.success( point ); } } },
// TERM INPUT/OUTPUT
// read/1 "read/1": [ new Rule(new Term("read", [new Var("T")]), new Term(",", [new Term("current_input", [new Var("S")]),new Term("read_term", [new Var("S"),new Var("T"),new Term("[]")])])) ],
// read/2 "read/2": [ new Rule(new Term("read", [new Var("S"), new Var("T")]), new Term("read_term", [new Var("S"),new Var("T"),new Term("[]")])) ],
// read_term/2 "read_term/2": [ new Rule(new Term("read_term", [new Var("T"),new Var("O")]), new Term(",", [new Term("current_input", [new Var("S")]),new Term("read_term", [new Var("S"),new Var("T"),new Var("O")])])) ],
// read_term/3 "read_term/3": function( thread, point, atom ) { var stream = atom.args[0], term = atom.args[1], options = atom.args[2]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) || pl.type.is_variable( options ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_list( options ) ) { thread.throw_error( pl.error.type( "list", options, atom.indicator ) ); } else if( !pl.type.is_stream( stream ) && !pl.type.is_atom( stream ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", stream, atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else if( stream2.output ) { thread.throw_error( pl.error.permission( "input", "stream", stream, atom.indicator ) ); } else if( stream2.type === "binary" ) { thread.throw_error( pl.error.permission( "input", "binary_stream", stream, atom.indicator ) ); } else if( stream2.position === "past_end_of_stream" && stream2.eof_action === "error" ) { thread.throw_error( pl.error.permission( "input", "past_end_of_stream", stream, atom.indicator ) ); } else if( stream2.position === "past_end_of_stream" && stream2.eof_action === "eof_code" ) { expr = { value: new Term("end_of_file", []), type: SUCCESS, len: -1 }; } else { // Get options var obj_options = {}; var pointer = options; var property; while( pl.type.is_term(pointer) && pointer.indicator === "./2" ) { property = pointer.args[0]; if( pl.type.is_variable( property ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if( !pl.type.is_read_option( property ) ) { thread.throw_error( pl.error.domain( "read_option", property, atom.indicator ) ); return; } obj_options[property.id] = property.args[0]; pointer = pointer.args[1]; } if( pointer.indicator !== "[]/0" ) { if( pl.type.is_variable( pointer ) ) thread.throw_error( pl.error.instantiation( atom.indicator ) ); else thread.throw_error( pl.error.type( "list", options, atom.indicator ) ); return; } else { var char, tokenizer, expr; var text = ""; var tokens = []; var last_token = null; var lexical_error = false; // Get term while( last_token === null || lexical_error || last_token.name !== "atom" || last_token.value !== "." || tokens.length > 0 && expr.type === ERROR ) { char = stream2.stream.get( 1, stream2.position ); while(char !== null && char !== "." && char !== "end_of_stream" && char !== "past_end_of_stream") { stream2.position++; text += char; char = stream2.stream.get( 1, stream2.position ); } if( char === null ) { thread.throw_error( pl.error.representation( "character", atom.indicator ) ); return; } else if( char === "end_of_stream" || char === "past_end_of_stream" ) { if(tokens === null || tokens.length === 0) { stream2.position = "past_end_of_stream"; expr = { value: new Term("end_of_file", []), type: SUCCESS, len: -1 }; break; } else if(expr) { thread.throw_error( pl.error.syntax( last_token, "unexpected end of file", false ) ); return; } else { thread.throw_error( pl.error.syntax( last_token, "token not found", true ) ); return; } } else if(char === ".") { stream2.position++; text += char; } tokenizer = new Tokenizer( thread ); tokenizer.new_text( text ); tokens = tokenizer.get_tokens(); num_token = tokens !== null && tokens.length > 1 ? tokens[tokens.length-2] : null; last_token = tokens !== null && tokens.length > 0 ? tokens[tokens.length-1] : null; if(tokens === null) continue; lexical_error = false; for(var i = 0; i < tokens.length && !lexical_error; i++) lexical_error = tokens[i].name === "lexical"; if(lexical_error) continue; expr = parseExpr(thread, tokens, 0, thread.__get_max_priority(), false); if(num_token && num_token.name === "number" && !num_token.float && !num_token.blank && last_token.value === ".") { var next_char = stream2.stream.get(1, stream2.position); if(next_char >= '0' && next_char <= '9') { stream2.position++; text += next_char; last_token = null; continue; } } } if(last_token) { if(last_token.line_position === last_token.len) stream2.line_position += last_token.line_position; else stream2.line_position = last_token.line_position; stream2.line_count += last_token.line_count; stream2.char_count += last_token.len; } // Succeed analyzing term if( expr.type === SUCCESS && (expr.len === -1 || expr.len === tokens.length-1 && last_token.value === "." )) { thread.session.renamed_variables = {}; expr = expr.value.rename( thread ); var eq = new Term( "=", [term, expr] ); // Variables if( obj_options.variables ) { var vars = arrayToList( map( nub( expr.variables() ), function(v) { return new Var(v); } ) ); eq = new Term( ",", [eq, new Term( "=", [obj_options.variables, vars] )] ) } // Variable names if( obj_options.variable_names ) { var vars = nub(expr.variables()); var plvars = []; for(var i = 0; i < vars.length; i++) { var v = vars[i]; for( var prop in thread.session.renamed_variables ) { if( thread.session.renamed_variables.hasOwnProperty( prop ) ) { if( thread.session.renamed_variables[ prop ] === v ) { plvars.push(new Term( "=", [new Term( prop, []), new Var(v)] )); break; } } } } plvars = arrayToList(plvars); eq = new Term( ",", [eq, new Term( "=", [obj_options.variable_names, plvars] )] ); } // Singletons if( obj_options.singletons ) { var vars = nub(new Rule(expr, null).singleton_variables(true)); var plvars = []; for(var i = 0; i < vars.length; i++) { var v = vars[i]; for( var prop in thread.session.renamed_variables ) { if( thread.session.renamed_variables.hasOwnProperty( prop ) ) { if( thread.session.renamed_variables[ prop ] === v ) { plvars.push(new Term( "=", [new Term( prop, []), new Var(v)] )); break; } } } } plvars = arrayToList(plvars); eq = new Term( ",", [eq, new Term( "=", [obj_options.singletons, plvars] )] ); } thread.prepend( [new State( point.goal.replace( eq ), point.substitution, point )] ); // Failed analyzing term } else { if( expr.type === SUCCESS ) thread.throw_error( pl.error.syntax( tokens[expr.len], "unexpected token", false ) ); else thread.throw_error( expr.value ); } } } },
// write/1 "write/1": [ new Rule(new Term("write", [new Var("T")]), new Term(",", [new Term("current_output", [new Var("S")]),new Term("write", [new Var("S"),new Var("T")])])) ], // write/2 "write/2": function( thread, point, atom ) { var stream = atom.args[0], term = atom.args[1]; thread.prepend( [new State( point.goal.replace( new Term("write_term", [stream, term, new Term(".", [new Term("quoted", [new Term("false", [])]), new Term(".", [new Term("ignore_ops", [new Term("false")]), new Term(".", [new Term("numbervars", [new Term("true")]), new Term("[]",[])])])])]) ), point.substitution, point )] ); }, // writeq/1 "writeq/1": [ new Rule(new Term("writeq", [new Var("T")]), new Term(",", [new Term("current_output", [new Var("S")]),new Term("writeq", [new Var("S"),new Var("T")])])) ], // writeq/2 "writeq/2": function( thread, point, atom ) { var stream = atom.args[0], term = atom.args[1]; thread.prepend( [new State( point.goal.replace( new Term("write_term", [stream, term, new Term(".", [new Term("quoted", [new Term("true", [])]), new Term(".", [new Term("ignore_ops", [new Term("false")]), new Term(".", [new Term("numbervars", [new Term("true")]), new Term("[]",[])])])])]) ), point.substitution, point )] ); }, // write_canonical/1 "write_canonical/1": [ new Rule(new Term("write_canonical", [new Var("T")]), new Term(",", [new Term("current_output", [new Var("S")]),new Term("write_canonical", [new Var("S"),new Var("T")])])) ], // write_canonical/2 "write_canonical/2": function( thread, point, atom ) { var stream = atom.args[0], term = atom.args[1]; thread.prepend( [new State( point.goal.replace( new Term("write_term", [stream, term, new Term(".", [new Term("quoted", [new Term("true", [])]), new Term(".", [new Term("ignore_ops", [new Term("true")]), new Term(".", [new Term("numbervars", [new Term("false")]), new Term("[]",[])])])])]) ), point.substitution, point )] ); },
// write_term/2 "write_term/2": [ new Rule(new Term("write_term", [new Var("T"),new Var("O")]), new Term(",", [new Term("current_output", [new Var("S")]),new Term("write_term", [new Var("S"),new Var("T"),new Var("O")])])) ], // write_term/3 "write_term/3": function( thread, point, atom ) { var stream = atom.args[0], term = atom.args[1], options = atom.args[2]; var stream2 = pl.type.is_stream( stream ) ? stream : thread.get_stream_by_alias( stream.id ); if( pl.type.is_variable( stream ) || pl.type.is_variable( options ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_list( options ) ) { thread.throw_error( pl.error.type( "list", options, atom.indicator ) ); } else if( !pl.type.is_stream( stream ) && !pl.type.is_atom( stream ) ) { thread.throw_error( pl.error.domain( "stream_or_alias", stream, atom.indicator ) ); } else if( !pl.type.is_stream( stream2 ) || stream2.stream === null ) { thread.throw_error( pl.error.existence( "stream", stream, atom.indicator ) ); } else if( stream2.input ) { thread.throw_error( pl.error.permission( "output", "stream", stream, atom.indicator ) ); } else if( stream2.type === "binary" ) { thread.throw_error( pl.error.permission( "output", "binary_stream", stream, atom.indicator ) ); } else if( stream2.position === "past_end_of_stream" && stream2.eof_action === "error" ) { thread.throw_error( pl.error.permission( "output", "past_end_of_stream", stream, atom.indicator ) ); } else { // Get options var obj_options = {}; var pointer = options; var property; while( pl.type.is_term(pointer) && pointer.indicator === "./2" ) { property = pointer.args[0]; if( pl.type.is_variable( property ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if( !pl.type.is_write_option( property ) ) { thread.throw_error( pl.error.domain( "write_option", property, atom.indicator ) ); return; } if(property.indicator === "variable_names/1") obj_options[property.id] = property.args[0]; else obj_options[property.id] = property.args[0].id === "true"; pointer = pointer.args[1]; } if( pointer.indicator !== "[]/0" ) { if( pl.type.is_variable( pointer ) ) thread.throw_error( pl.error.instantiation( atom.indicator ) ); else thread.throw_error( pl.error.type( "list", options, atom.indicator ) ); return; } else { obj_options.session = thread.session; var text = term.toString( obj_options ); stream2.stream.put( text, stream2.position ); if( typeof stream2.position === "number" ) stream2.position += text.length; var nl = (text.match(/\n/g) || []).length; stream2.line_count += nl; if(nl > 0) stream2.line_position = text.length - text.lastIndexOf("\n") - 1; else stream2.line_position += text.length; stream2.char_count += text.length; thread.success( point ); } } }, // IMPLEMENTATION DEFINED HOOKS // halt/0 "halt/0": function( thread, point, _ ) { if( thread.get_flag("nodejs").indicator === "true/0" ) process.exit(); thread.points = []; }, // halt/1 "halt/1": function( thread, point, atom ) { var int = atom.args[0]; if( pl.type.is_variable( int ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_integer( int ) ) { thread.throw_error( pl.error.type( "integer", int, atom.indicator ) ); } else { if( thread.get_flag("nodejs").indicator === "true/0" ) process.exit(int.value); thread.points = []; } }, // current_prolog_flag/2 "current_prolog_flag/2": function( thread, point, atom ) { var flag = atom.args[0], value = atom.args[1]; if( !pl.type.is_variable( flag ) && !pl.type.is_atom( flag ) ) { thread.throw_error( pl.error.type( "atom", flag, atom.indicator ) ); } else if( !pl.type.is_variable( flag ) && !pl.type.is_flag( flag ) ) { thread.throw_error( pl.error.domain( "prolog_flag", flag, atom.indicator ) ); } else { var states = []; for( var name in pl.flag ) { if(!pl.flag.hasOwnProperty(name)) continue; var goal = new Term( ",", [new Term( "=", [new Term( name ), flag] ), new Term( "=", [thread.get_flag(name), value] )] ); states.push( new State( point.goal.replace( goal ), point.substitution, point ) ); } thread.prepend( states ); } }, // set_prolog_flag/2 "set_prolog_flag/2": function( thread, point, atom ) { var flag = atom.args[0], value = atom.args[1]; if( pl.type.is_variable( flag ) || pl.type.is_variable( value ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom( flag ) ) { thread.throw_error( pl.error.type( "atom", flag, atom.indicator ) ); } else if( !pl.type.is_flag( flag ) ) { thread.throw_error( pl.error.domain( "prolog_flag", flag, atom.indicator ) ); } else if( !pl.type.is_modifiable_flag( flag ) ) { thread.throw_error( pl.error.permission( "modify", "flag", flag, atom.indicator ) ); } else if( !pl.type.is_value_flag( flag, value ) ) { thread.throw_error( pl.error.domain( "flag_value", new Term( "+", [flag, value] ), atom.indicator ) ); } else { thread.session.flag[flag.id] = value; thread.success( point ); } },
// LOAD PROLOG SOURCE FILES
// consult/1 "consult/1": function(thread, point, atom) { var src = atom.args[0]; var context_module = "user"; if(src.indicator === ":/2") { context_module = src.args[0].id; src = src.args[1]; } if(pl.type.is_variable(src)) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if(!pl.type.is_atom(src)) { thread.throw_error( pl.error.type( "atom", src, atom.indicator ) ); } else { if(thread.consult(src.id, { context_module: context_module, text: false, html: false, success: function() { thread.success(point); thread.again(); }, error: function(err) { thread.throw_error(err); thread.again(); } })); return true; } },
// TIME AND DATES
// get_time/1 "get_time/1": function( thread, point, atom ) { var time = atom.args[0]; if(!pl.type.is_variable(time) && !pl.type.is_number(time)) { thread.throw_error( pl.error.type( "number", time, atom.indicator ) ); } else { var current = new Num(Date.now(), true); thread.prepend( [new State( point.goal.replace( new Term( "=", [time, current] ) ), point.substitution, point )] ); } },
// time_property "time_property/2": function(thread, point, atom) { var time = atom.args[0], property = atom.args[1]; if(pl.type.is_variable(time)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_variable(time) && !pl.type.is_number(time)) { thread.throw_error(pl.error.type("number", time, atom.indicator)); } else if(!pl.type.is_variable(property) && !pl.type.is_time_property(property)) { thread.throw_error(pl.error.domain("time_property", property, atom.indicator)); } else { var props; if(pl.type.is_variable(property)) { props = ["year", "month", "day", "hours", "minutes", "seconds", "milliseconds", "weekday"]; } else { props = [property.id]; } var date = new Date(time.value); var value; var states = []; for(var i = 0; i < props.length; i++) { switch(props[i]) { case "year": value = new Term("year", [new Num(date.getFullYear(), false)]); break; case "month": value = new Term("month", [new Num(date.getMonth(), false)]); break; case "day": value = new Term("day", [new Num(date.getDate(), false)]); break; case "hours": value = new Term("hours", [new Num(date.getHours(), false)]); break; case "minutes": value = new Term("minutes", [new Num(date.getMinutes(), false)]); break; case "seconds": value = new Term("seconds", [new Num(date.getSeconds(), false)]); break; case "milliseconds": value = new Term("milliseconds", [new Num(date.getMilliseconds(), false)]); break; case "weekday": value = new Term("weekday", [new Num(date.getDay(), false)]); break; } states.push(new State( point.goal.replace( new Term( "=", [property, value] ) ), point.substitution, point )); } thread.prepend(states); } },
// time_year/2 "time_year/2": function( thread, point, atom ) { var time = atom.args[0], year = atom.args[1]; if(pl.type.is_variable(time)) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if(!pl.type.is_number(time)) { thread.throw_error( pl.error.type( "number", time, atom.indicator ) ); } else if(!pl.type.is_variable(year) && !pl.type.is_integer(year)) { thread.throw_error( pl.error.type( "integer", year, atom.indicator ) ); } else { var value = new Num(new Date(time.value).getFullYear(), false); thread.prepend( [new State( point.goal.replace( new Term( "=", [year, value] ) ), point.substitution, point )] ); } },
// time_month/2 "time_month/2": function( thread, point, atom ) { var time = atom.args[0], month = atom.args[1]; if(pl.type.is_variable(time)) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if(!pl.type.is_number(time)) { thread.throw_error( pl.error.type( "number", time, atom.indicator ) ); } else if(!pl.type.is_variable(month) && !pl.type.is_integer(month)) { thread.throw_error( pl.error.type( "integer", month, atom.indicator ) ); } else { var value = new Num(new Date(time.value).getMonth(), false); thread.prepend( [new State( point.goal.replace( new Term( "=", [month, value] ) ), point.substitution, point )] ); } },
// GRAMMARS
// phrase/3 "phrase/3": function( thread, point, atom ) { var grbody = atom.args[0], s0 = atom.args[1], s = atom.args[2]; var context_module = "user"; if(grbody.indicator === ":/2") { context_module = grbody.args[0].id; grbody = grbody.args[1]; } if( pl.type.is_variable( grbody ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_callable( grbody ) ) { thread.throw_error( pl.error.type( "callable", grbody, atom.indicator ) ); } else { var goal = body_to_dcg( grbody.clone(), s0, thread ); goal.value = new Term(":", [new Term(context_module), new Term("call", [goal.value])]); if(goal !== null) { thread.prepend( [new State( point.goal.replace( new Term( ",", [goal.value, new Term("=", [goal.variable, s])] ) ), point.substitution, point )] ); } } },
// phrase/2 "phrase/2": function( thread, point, atom ) { var grbody = atom.args[0], s0 = atom.args[1]; thread.prepend( [new State( point.goal.replace( new Term( "phrase", [grbody, s0, new Term("[]", [])] ) ), point.substitution, point )] ); },
// TAU PROLOG INFORMATION
// version/0 "version/0": function( thread, point, atom ) { var msg = "Welcome to Tau Prolog version " + version.major + "." + version.minor + "." + version.patch + "\n"; msg += "Tau Prolog comes with ABSOLUTELY NO WARRANTY. This is free software.\n"; msg += "Please run ?- license. for legal details.\n"; msg += "For online help and background, visit http:/tau-prolog.org"; thread.prepend( [new State( point.goal.replace( new Term( "write", [new Term( msg, [] )] ) ), point.substitution, point )] ); },
// license/0 "license/0": function( thread, point, atom ) { var msg = "Tau Prolog. A Prolog interpreter in JavaScript.\n"; msg += "Copyright (C) 2017 - 2020 José Antonio Riaza Valverde\n\n"; msg += "Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:\n"; msg += "1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.\n"; msg += "2. 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.\n"; msg += "3. 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.\n\n"; msg += "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 HOLDER 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.\n\n"; msg += "You should have received a copy of the BSD 3-Clause License along with this program. If not, see https://opensource.org/licenses/BSD-3-Clause"; thread.prepend( [new State( point.goal.replace( new Term( "write", [new Term( msg, [] )] ) ), point.substitution, point )] ); }
}, "all", { meta_predicates: { // findall(?, 0, -, ?) "$findall/4": new Term("$findall", [new Term("?"), new Num(0, false), new Term("-"), new Term("?")]), // bagof(?, ^, -) "$bagof/4": new Term("$bagof", [new Term("?"), new Term("^"), new Term("-")]), // setof(?, ^, -) "$setof/4": new Term("$setof", [new Term("?"), new Term("^"), new Term("-")]), // (0;0) ";/2": new Term(";", [new Num(0, false), new Num(0, false)]), // (0->0) "->/2": new Term("->", [new Num(0, false), new Num(0, false)]), // (\+0) "\\+/1": new Term("\\+", [new Num(0, false)]), // abolish(:) "abolish/1": new Term("abolish", [new Term(":")]), // asserta(:) "asserta/1": new Term("asserta", [new Term(":")]), // assertz(:) "assertz/1": new Term("assertz", [new Term(":")]), // bagof(?, ^, -) "bagof/3": new Term("bagof", [new Term("?"), new Term("^"), new Term("-")]), // call(0) "call/1": new Term("call", [new Num(0, false)]), // call(1, ?) "call/2": new Term("call", [new Num(1, false), new Term("?")]), // call(2, ?, ?) "call/3": new Term("call", [new Num(2, false), new Term("?"), new Term("?")]), // call(3, ?, ?, ?) "call/4": new Term("call", [new Num(3, false), new Term("?"), new Term("?"), new Term("?")]), // call(4, ?, ?, ?, ?) "call/5": new Term("call", [new Num(4, false), new Term("?"), new Term("?"), new Term("?"), new Term("?")]), // call(5, ?, ?, ?, ?, ?) "call/6": new Term("call", [new Num(5, false), new Term("?"), new Term("?"), new Term("?"), new Term("?"), new Term("?")]), // call(6, ?, ?, ?, ?, ?, ?) "call/7": new Term("call", [new Num(6, false), new Term("?"), new Term("?"), new Term("?"), new Term("?"), new Term("?"), new Term("?")]), // call(7, ?, ?, ?, ?, ?, ?, ?) "call/8": new Term("call", [new Num(6, false), new Term("?"), new Term("?"), new Term("?"), new Term("?"), new Term("?"), new Term("?"), new Term("?")]), // call_cleanup(0, 0) "call_cleanup/2": new Term("call_cleanup", [new Num(0, false), new Num(0, false)]), // catch(0, ?, 0) "catch/3": new Term("catch", [new Num(0, false), new Term("?"), new Num(0, false)]), // consult(:) "consult/1": new Term("consult", [new Term(":")]), // clause(:, ?) "clause/2": new Term("clause", [new Term(":"), new Term("?")]), // current_predicate(?, :) "current_predicate/2": new Term("current_predicate", [new Term("?"), new Term(":")]), // findall(?, 0, -) "findall/3": new Term("findall", [new Term("?"), new Num(0, false), new Term("-")]), // findall(?, 0, -, ?) "findall/4": new Term("findall", [new Term("?"), new Num(0, false), new Term("-"), new Term("?")]), // forall(0, 0) "forall/2": new Term("forall", [new Num(0, false), new Num(0, false)]), // listing(:) "listing/1": new Term("listing", [new Term(":")]), // once(0) "once/1": new Term("once", [new Num(0, false)]), // phrase(:, ?) "phrase/2": new Term("phrase", [new Term(":"),new Term("?")]), // phrase(:, ?, ?) "phrase/3": new Term("phrase", [new Term(":"),new Term("?"), new Term("?")]), // retract(:) "retract/1": new Term("retract", [new Term(":")]), // retractall(:) "retractall/1": new Term("retractall", [new Term(":")]), // setup_call_cleanup(0, 0, 0) "setup_call_cleanup/3": new Term("setup_call_cleanup", [new Num(0, false), new Num(0, false), new Num(0, false)]), // setof(?, ^, -) "setof/3": new Term("setof", [new Term("?"), new Term("^"), new Term("-")]) } });
if( typeof module !== 'undefined' ) { module.exports = pl; } else { window.pl = pl; } })();var pl;(function( pl ) {
var predicates = function() { return { // append/2 "append/2": [ new pl.type.Rule(new pl.type.Term("append", [new pl.type.Var("X"),new pl.type.Var("L")]), new pl.type.Term("foldl", [new pl.type.Term("append", []),new pl.type.Var("X"),new pl.type.Term("[]", []),new pl.type.Var("L")])) ],
// append/3 "append/3": [ new pl.type.Rule(new pl.type.Term("append", [new pl.type.Term("[]", []),new pl.type.Var("X"),new pl.type.Var("X")]), null), new pl.type.Rule(new pl.type.Term("append", [new pl.type.Term(".", [new pl.type.Var("H"),new pl.type.Var("T")]),new pl.type.Var("X"),new pl.type.Term(".", [new pl.type.Var("H"),new pl.type.Var("S")])]), new pl.type.Term("append", [new pl.type.Var("T"),new pl.type.Var("X"),new pl.type.Var("S")])) ], // member/2 "member/2": [ new pl.type.Rule(new pl.type.Term("member", [new pl.type.Var("X"),new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("_")])]), null), new pl.type.Rule(new pl.type.Term("member", [new pl.type.Var("X"),new pl.type.Term(".", [new pl.type.Var("_"),new pl.type.Var("Xs")])]), new pl.type.Term("member", [new pl.type.Var("X"),new pl.type.Var("Xs")])) ], // permutation/2 "permutation/2": [ new pl.type.Rule(new pl.type.Term("permutation", [new pl.type.Term("[]", []),new pl.type.Term("[]", [])]), null), new pl.type.Rule(new pl.type.Term("permutation", [new pl.type.Term(".", [new pl.type.Var("H"),new pl.type.Var("T")]),new pl.type.Var("S")]), new pl.type.Term(",", [new pl.type.Term("permutation", [new pl.type.Var("T"),new pl.type.Var("P")]),new pl.type.Term(",", [new pl.type.Term("append", [new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("P")]),new pl.type.Term("append", [new pl.type.Var("X"),new pl.type.Term(".", [new pl.type.Var("H"),new pl.type.Var("Y")]),new pl.type.Var("S")])])])) ], // maplist/2 "maplist/2": [ new pl.type.Rule(new pl.type.Term("maplist", [new pl.type.Var("_"),new pl.type.Term("[]", [])]), null), new pl.type.Rule(new pl.type.Term("maplist", [new pl.type.Var("P"),new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("Xs")])]), new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("P"),new pl.type.Var("X")]),new pl.type.Term("maplist", [new pl.type.Var("P"),new pl.type.Var("Xs")])])) ], // maplist/3 "maplist/3": [ new pl.type.Rule(new pl.type.Term("maplist", [new pl.type.Var("_"),new pl.type.Term("[]", []),new pl.type.Term("[]", [])]), null), new pl.type.Rule(new pl.type.Term("maplist", [new pl.type.Var("P"),new pl.type.Term(".", [new pl.type.Var("A"),new pl.type.Var("As")]),new pl.type.Term(".", [new pl.type.Var("B"),new pl.type.Var("Bs")])]), new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("P"),new pl.type.Var("A"),new pl.type.Var("B")]),new pl.type.Term("maplist", [new pl.type.Var("P"),new pl.type.Var("As"),new pl.type.Var("Bs")])])) ], // maplist/4 "maplist/4": [ new pl.type.Rule(new pl.type.Term("maplist", [new pl.type.Var("_"),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", [])]), null), new pl.type.Rule(new pl.type.Term("maplist", [new pl.type.Var("P"),new pl.type.Term(".", [new pl.type.Var("A"),new pl.type.Var("As")]),new pl.type.Term(".", [new pl.type.Var("B"),new pl.type.Var("Bs")]),new pl.type.Term(".", [new pl.type.Var("C"),new pl.type.Var("Cs")])]), new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("P"),new pl.type.Var("A"),new pl.type.Var("B"),new pl.type.Var("C")]),new pl.type.Term("maplist", [new pl.type.Var("P"),new pl.type.Var("As"),new pl.type.Var("Bs"),new pl.type.Var("Cs")])])) ], // maplist/5 "maplist/5": [ new pl.type.Rule(new pl.type.Term("maplist", [new pl.type.Var("_"),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", [])]), null), new pl.type.Rule(new pl.type.Term("maplist", [new pl.type.Var("P"),new pl.type.Term(".", [new pl.type.Var("A"),new pl.type.Var("As")]),new pl.type.Term(".", [new pl.type.Var("B"),new pl.type.Var("Bs")]),new pl.type.Term(".", [new pl.type.Var("C"),new pl.type.Var("Cs")]),new pl.type.Term(".", [new pl.type.Var("D"),new pl.type.Var("Ds")])]), new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("P"),new pl.type.Var("A"),new pl.type.Var("B"),new pl.type.Var("C"),new pl.type.Var("D")]),new pl.type.Term("maplist", [new pl.type.Var("P"),new pl.type.Var("As"),new pl.type.Var("Bs"),new pl.type.Var("Cs"),new pl.type.Var("Ds")])])) ], // maplist/6 "maplist/6": [ new pl.type.Rule(new pl.type.Term("maplist", [new pl.type.Var("_"),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", [])]), null), new pl.type.Rule(new pl.type.Term("maplist", [new pl.type.Var("P"),new pl.type.Term(".", [new pl.type.Var("A"),new pl.type.Var("As")]),new pl.type.Term(".", [new pl.type.Var("B"),new pl.type.Var("Bs")]),new pl.type.Term(".", [new pl.type.Var("C"),new pl.type.Var("Cs")]),new pl.type.Term(".", [new pl.type.Var("D"),new pl.type.Var("Ds")]),new pl.type.Term(".", [new pl.type.Var("E"),new pl.type.Var("Es")])]), new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("P"),new pl.type.Var("A"),new pl.type.Var("B"),new pl.type.Var("C"),new pl.type.Var("D"),new pl.type.Var("E")]),new pl.type.Term("maplist", [new pl.type.Var("P"),new pl.type.Var("As"),new pl.type.Var("Bs"),new pl.type.Var("Cs"),new pl.type.Var("Ds"),new pl.type.Var("Es")])])) ], // maplist/7 "maplist/7": [ new pl.type.Rule(new pl.type.Term("maplist", [new pl.type.Var("_"),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", [])]), null), new pl.type.Rule(new pl.type.Term("maplist", [new pl.type.Var("P"),new pl.type.Term(".", [new pl.type.Var("A"),new pl.type.Var("As")]),new pl.type.Term(".", [new pl.type.Var("B"),new pl.type.Var("Bs")]),new pl.type.Term(".", [new pl.type.Var("C"),new pl.type.Var("Cs")]),new pl.type.Term(".", [new pl.type.Var("D"),new pl.type.Var("Ds")]),new pl.type.Term(".", [new pl.type.Var("E"),new pl.type.Var("Es")]),new pl.type.Term(".", [new pl.type.Var("F"),new pl.type.Var("Fs")])]), new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("P"),new pl.type.Var("A"),new pl.type.Var("B"),new pl.type.Var("C"),new pl.type.Var("D"),new pl.type.Var("E"),new pl.type.Var("F")]),new pl.type.Term("maplist", [new pl.type.Var("P"),new pl.type.Var("As"),new pl.type.Var("Bs"),new pl.type.Var("Cs"),new pl.type.Var("Ds"),new pl.type.Var("Es"),new pl.type.Var("Fs")])])) ], // maplist/8 "maplist/8": [ new pl.type.Rule(new pl.type.Term("maplist", [new pl.type.Var("_"),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", [])]), null), new pl.type.Rule(new pl.type.Term("maplist", [new pl.type.Var("P"),new pl.type.Term(".", [new pl.type.Var("A"),new pl.type.Var("As")]),new pl.type.Term(".", [new pl.type.Var("B"),new pl.type.Var("Bs")]),new pl.type.Term(".", [new pl.type.Var("C"),new pl.type.Var("Cs")]),new pl.type.Term(".", [new pl.type.Var("D"),new pl.type.Var("Ds")]),new pl.type.Term(".", [new pl.type.Var("E"),new pl.type.Var("Es")]),new pl.type.Term(".", [new pl.type.Var("F"),new pl.type.Var("Fs")]),new pl.type.Term(".", [new pl.type.Var("G"),new pl.type.Var("Gs")])]), new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("P"),new pl.type.Var("A"),new pl.type.Var("B"),new pl.type.Var("C"),new pl.type.Var("D"),new pl.type.Var("E"),new pl.type.Var("F"),new pl.type.Var("G")]),new pl.type.Term("maplist", [new pl.type.Var("P"),new pl.type.Var("As"),new pl.type.Var("Bs"),new pl.type.Var("Cs"),new pl.type.Var("Ds"),new pl.type.Var("Es"),new pl.type.Var("Fs"),new pl.type.Var("Gs")])])) ], // include/3 "include/3": [ new pl.type.Rule(new pl.type.Term("include", [new pl.type.Var("_"),new pl.type.Term("[]", []),new pl.type.Term("[]", [])]), null), new pl.type.Rule(new pl.type.Term("include", [new pl.type.Var("P"),new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("Xs")]),new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("S")])]), new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("P"),new pl.type.Var("X")]),new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("include", [new pl.type.Var("P"),new pl.type.Var("Xs"),new pl.type.Var("S")])])])), new pl.type.Rule(new pl.type.Term("include", [new pl.type.Var("P"),new pl.type.Term(".", [new pl.type.Var("_"),new pl.type.Var("Xs")]),new pl.type.Var("S")]), new pl.type.Term("include", [new pl.type.Var("P"),new pl.type.Var("Xs"),new pl.type.Var("S")])) ], // exclude/3 "exclude/3": [ new pl.type.Rule(new pl.type.Term("exclude", [new pl.type.Var("_"),new pl.type.Term("[]", []),new pl.type.Term("[]", [])]), null), new pl.type.Rule(new pl.type.Term("exclude", [new pl.type.Var("P"),new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("Xs")]),new pl.type.Var("S")]), new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("P"),new pl.type.Var("X")]),new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("exclude", [new pl.type.Var("P"),new pl.type.Var("Xs"),new pl.type.Var("S")])])])), new pl.type.Rule(new pl.type.Term("exclude", [new pl.type.Var("P"),new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("Xs")]),new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("S")])]), new pl.type.Term("exclude", [new pl.type.Var("P"),new pl.type.Var("Xs"),new pl.type.Var("S")])) ], // foldl/4 "foldl/4": [ new pl.type.Rule(new pl.type.Term("foldl", [new pl.type.Var("_"),new pl.type.Term("[]", []),new pl.type.Var("V"),new pl.type.Var("V")]), null), new pl.type.Rule(new pl.type.Term("foldl", [new pl.type.Var("Goal"),new pl.type.Term(".", [new pl.type.Var("H"),new pl.type.Var("T")]),new pl.type.Var("V0"),new pl.type.Var("V")]), new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("Goal"),new pl.type.Var("H"),new pl.type.Var("V0"),new pl.type.Var("V1")]),new pl.type.Term("foldl", [new pl.type.Var("Goal"),new pl.type.Var("T"),new pl.type.Var("V1"),new pl.type.Var("V")])])) ], // foldl/5 "foldl/5": [ new pl.type.Rule(new pl.type.Term("foldl", [new pl.type.Var("_"),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Var("V"),new pl.type.Var("V")]), null), new pl.type.Rule(new pl.type.Term("foldl", [new pl.type.Var("Goal"),new pl.type.Term(".", [new pl.type.Var("H1"),new pl.type.Var("T1")]),new pl.type.Term(".", [new pl.type.Var("H2"),new pl.type.Var("T2")]),new pl.type.Var("V0"),new pl.type.Var("V")]), new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("Goal"),new pl.type.Var("H1"),new pl.type.Var("H2"),new pl.type.Var("V0"),new pl.type.Var("V1")]),new pl.type.Term("foldl", [new pl.type.Var("Goal"),new pl.type.Var("T1"),new pl.type.Var("T2"),new pl.type.Var("V1"),new pl.type.Var("V")])])) ], // foldl/6 "foldl/6": [ new pl.type.Rule(new pl.type.Term("foldl", [new pl.type.Var("_"),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Var("V"),new pl.type.Var("V")]), null), new pl.type.Rule(new pl.type.Term("foldl", [new pl.type.Var("Goal"),new pl.type.Term(".", [new pl.type.Var("H1"),new pl.type.Var("T1")]),new pl.type.Term(".", [new pl.type.Var("H2"),new pl.type.Var("T2")]),new pl.type.Term(".", [new pl.type.Var("H3"),new pl.type.Var("T3")]),new pl.type.Var("V0"),new pl.type.Var("V")]), new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("Goal"),new pl.type.Var("H1"),new pl.type.Var("H2"),new pl.type.Var("H3"),new pl.type.Var("V0"),new pl.type.Var("V1")]),new pl.type.Term("foldl", [new pl.type.Var("Goal"),new pl.type.Var("T1"),new pl.type.Var("T2"),new pl.type.Var("T3"),new pl.type.Var("V1"),new pl.type.Var("V")])])) ], // foldl/7 "foldl/7": [ new pl.type.Rule(new pl.type.Term("foldl", [new pl.type.Var("_"),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Term("[]", []),new pl.type.Var("V"),new pl.type.Var("V")]), null), new pl.type.Rule(new pl.type.Term("foldl", [new pl.type.Var("Goal"),new pl.type.Term(".", [new pl.type.Var("H1"),new pl.type.Var("T1")]),new pl.type.Term(".", [new pl.type.Var("H2"),new pl.type.Var("T2")]),new pl.type.Term(".", [new pl.type.Var("H3"),new pl.type.Var("T3")]),new pl.type.Term(".", [new pl.type.Var("H4"),new pl.type.Var("T4")]),new pl.type.Var("V0"),new pl.type.Var("V")]), new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("Goal"),new pl.type.Var("H1"),new pl.type.Var("H2"),new pl.type.Var("H3"),new pl.type.Var("H4"),new pl.type.Var("V0"),new pl.type.Var("V1")]),new pl.type.Term("foldl", [new pl.type.Var("Goal"),new pl.type.Var("T1"),new pl.type.Var("T2"),new pl.type.Var("T3"),new pl.type.Var("T4"),new pl.type.Var("V1"),new pl.type.Var("V")])])) ], // select/3 "select/3": [ new pl.type.Rule(new pl.type.Term("select", [new pl.type.Var("E"),new pl.type.Term(".", [new pl.type.Var("E"),new pl.type.Var("Xs")]),new pl.type.Var("Xs")]), null), new pl.type.Rule(new pl.type.Term("select", [new pl.type.Var("E"),new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("Xs")]),new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("Ys")])]), new pl.type.Term("select", [new pl.type.Var("E"),new pl.type.Var("Xs"),new pl.type.Var("Ys")])) ], // sum_list/2 "sum_list/2": [ new pl.type.Rule(new pl.type.Term("sum_list", [new pl.type.Term("[]", []),new pl.type.Num(0, false)]), null), new pl.type.Rule(new pl.type.Term("sum_list", [new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("Xs")]),new pl.type.Var("S")]), new pl.type.Term(",", [new pl.type.Term("sum_list", [new pl.type.Var("Xs"),new pl.type.Var("Y")]),new pl.type.Term("is", [new pl.type.Var("S"),new pl.type.Term("+", [new pl.type.Var("X"),new pl.type.Var("Y")])])])) ], // max_list/2 "max_list/2": [ new pl.type.Rule(new pl.type.Term("max_list", [new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Term("[]", [])]),new pl.type.Var("X")]), null), new pl.type.Rule(new pl.type.Term("max_list", [new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("Xs")]),new pl.type.Var("S")]), new pl.type.Term(",", [new pl.type.Term("max_list", [new pl.type.Var("Xs"),new pl.type.Var("Y")]),new pl.type.Term(";", [new pl.type.Term(",", [new pl.type.Term(">=", [new pl.type.Var("X"),new pl.type.Var("Y")]),new pl.type.Term(",", [new pl.type.Term("=", [new pl.type.Var("S"),new pl.type.Var("X")]),new pl.type.Term("!", [])])]),new pl.type.Term("=", [new pl.type.Var("S"),new pl.type.Var("Y")])])])) ], // min_list/2 "min_list/2": [ new pl.type.Rule(new pl.type.Term("min_list", [new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Term("[]", [])]),new pl.type.Var("X")]), null), new pl.type.Rule(new pl.type.Term("min_list", [new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("Xs")]),new pl.type.Var("S")]), new pl.type.Term(",", [new pl.type.Term("min_list", [new pl.type.Var("Xs"),new pl.type.Var("Y")]),new pl.type.Term(";", [new pl.type.Term(",", [new pl.type.Term("=<", [new pl.type.Var("X"),new pl.type.Var("Y")]),new pl.type.Term(",", [new pl.type.Term("=", [new pl.type.Var("S"),new pl.type.Var("X")]),new pl.type.Term("!", [])])]),new pl.type.Term("=", [new pl.type.Var("S"),new pl.type.Var("Y")])])])) ], // prod_list/2 "prod_list/2": [ new pl.type.Rule(new pl.type.Term("prod_list", [new pl.type.Term("[]", []),new pl.type.Num(1, false)]), null), new pl.type.Rule(new pl.type.Term("prod_list", [new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("Xs")]),new pl.type.Var("S")]), new pl.type.Term(",", [new pl.type.Term("prod_list", [new pl.type.Var("Xs"),new pl.type.Var("Y")]),new pl.type.Term("is", [new pl.type.Var("S"),new pl.type.Term("*", [new pl.type.Var("X"),new pl.type.Var("Y")])])])) ], // last/2 "last/2": [ new pl.type.Rule(new pl.type.Term("last", [new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Term("[]", [])]),new pl.type.Var("X")]), null), new pl.type.Rule(new pl.type.Term("last", [new pl.type.Term(".", [new pl.type.Var("_"),new pl.type.Var("Xs")]),new pl.type.Var("X")]), new pl.type.Term("last", [new pl.type.Var("Xs"),new pl.type.Var("X")])) ], // prefix/2 "prefix/2": [ new pl.type.Rule(new pl.type.Term("prefix", [new pl.type.Var("Part"),new pl.type.Var("Whole")]), new pl.type.Term("append", [new pl.type.Var("Part"),new pl.type.Var("_"),new pl.type.Var("Whole")])) ], // nth0/3 "nth0/3": [ new pl.type.Rule(new pl.type.Term("nth0", [new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z")]), new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("var", [new pl.type.Var("X")]),new pl.type.Term("nth", [new pl.type.Num(0, false),new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z"),new pl.type.Var("_")])]),new pl.type.Term(",", [new pl.type.Term(">=", [new pl.type.Var("X"),new pl.type.Num(0, false)]),new pl.type.Term(",", [new pl.type.Term("nth", [new pl.type.Num(0, false),new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z"),new pl.type.Var("_")]),new pl.type.Term("!", [])])])])) ], // nth1/3 "nth1/3": [ new pl.type.Rule(new pl.type.Term("nth1", [new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z")]), new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("var", [new pl.type.Var("X")]),new pl.type.Term("nth", [new pl.type.Num(1, false),new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z"),new pl.type.Var("_")])]),new pl.type.Term(",", [new pl.type.Term(">", [new pl.type.Var("X"),new pl.type.Num(0, false)]),new pl.type.Term(",", [new pl.type.Term("nth", [new pl.type.Num(1, false),new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z"),new pl.type.Var("_")]),new pl.type.Term("!", [])])])])) ], // nth0/4 "nth0/4": [ new pl.type.Rule(new pl.type.Term("nth0", [new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z"),new pl.type.Var("W")]), new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("var", [new pl.type.Var("X")]),new pl.type.Term("nth", [new pl.type.Num(0, false),new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z"),new pl.type.Var("W")])]),new pl.type.Term(",", [new pl.type.Term(">=", [new pl.type.Var("X"),new pl.type.Num(0, false)]),new pl.type.Term(",", [new pl.type.Term("nth", [new pl.type.Num(0, false),new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z"),new pl.type.Var("W")]),new pl.type.Term("!", [])])])])) ], // nth1/4 "nth1/4": [ new pl.type.Rule(new pl.type.Term("nth1", [new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z"),new pl.type.Var("W")]), new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("var", [new pl.type.Var("X")]),new pl.type.Term("nth", [new pl.type.Num(1, false),new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z"),new pl.type.Var("W")])]),new pl.type.Term(",", [new pl.type.Term(">", [new pl.type.Var("X"),new pl.type.Num(0, false)]),new pl.type.Term(",", [new pl.type.Term("nth", [new pl.type.Num(1, false),new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z"),new pl.type.Var("W")]),new pl.type.Term("!", [])])])])) ], // nth/5 // DO NOT EXPORT "nth/5": [ new pl.type.Rule(new pl.type.Term("nth", [new pl.type.Var("N"),new pl.type.Var("N"),new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("Xs")]),new pl.type.Var("X"),new pl.type.Var("Xs")]), null), new pl.type.Rule(new pl.type.Term("nth", [new pl.type.Var("N"),new pl.type.Var("O"),new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("Xs")]),new pl.type.Var("Y"),new pl.type.Term(".", [new pl.type.Var("X"),new pl.type.Var("Ys")])]), new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("M"),new pl.type.Term("+", [new pl.type.Var("N"),new pl.type.Num(1, false)])]),new pl.type.Term("nth", [new pl.type.Var("M"),new pl.type.Var("O"),new pl.type.Var("Xs"),new pl.type.Var("Y"),new pl.type.Var("Ys")])])) ], // length/2 "length/2": function( thread, point, atom ) { var list = atom.args[0], length = atom.args[1]; if(!pl.type.is_variable(length) && !pl.type.is_integer(length)) { thread.throw_error(pl.error.type("integer", length, atom.indicator)); } else if(pl.type.is_integer(length) && length.value < 0) { thread.throw_error(pl.error.domain("not_less_than_zero", length, atom.indicator)); } else { if(!pl.type.is_variable(length)) { var max_length = 0; var pointer = list; while(pl.type.is_term(pointer) && pointer.indicator == "./2") { max_length++; pointer = pointer.args[1]; } if(!pl.type.is_variable(pointer) && !pl.type.is_empty_list(pointer)) return; if(pl.type.is_integer(length) && max_length > length) return; } var newgoal = new pl.type.Term("length", [list, new pl.type.Num(0, false), length]); if(pl.type.is_integer(length)) newgoal = new pl.type.Term(",", [newgoal, new pl.type.Term("!", [])]); thread.prepend([ new pl.type.State(point.goal.replace(newgoal), point.substitution, point) ]); } }, // length/3 // DO NOT EXPORT "length/3": [ new pl.type.Rule(new pl.type.Term("length", [new pl.type.Term("[]", []),new pl.type.Var("N"),new pl.type.Var("N")]), null), new pl.type.Rule(new pl.type.Term("length", [new pl.type.Term(".", [new pl.type.Var("_"),new pl.type.Var("X")]),new pl.type.Var("A"),new pl.type.Var("N")]), new pl.type.Term(",", [new pl.type.Term("succ", [new pl.type.Var("A"),new pl.type.Var("B")]),new pl.type.Term("length", [new pl.type.Var("X"),new pl.type.Var("B"),new pl.type.Var("N")])])) ], // replicate/3 "replicate/3": function( thread, point, atom ) { var elem = atom.args[0], times = atom.args[1], list = atom.args[2]; if( pl.type.is_variable( times ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_integer( times ) ) { thread.throw_error( pl.error.type( "integer", times, atom.indicator ) ); } else if( times.value < 0 ) { thread.throw_error( pl.error.domain( "not_less_than_zero", times, atom.indicator ) ); } else if( !pl.type.is_variable( list ) && !pl.type.is_list( list ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else { var replicate = new pl.type.Term( "[]" ); for( var i = 0; i < times.value; i++ ) { replicate = new pl.type.Term( ".", [elem, replicate] ); } thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [replicate, list] ) ), point.substitution, point )] ); } }, // msort/2 "msort/2": function( thread, point, atom ) { var list = atom.args[0], expected = atom.args[1]; if( pl.type.is_variable( list ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( expected ) && !pl.type.is_fully_list( expected ) ) { thread.throw_error( pl.error.type( "list", expected, atom.indicator ) ); } else { var arr = []; var pointer = list; while( pointer.indicator === "./2" ) { arr.push( pointer.args[0] ); pointer = pointer.args[1]; } if( pl.type.is_variable( pointer ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_empty_list( pointer ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else { var sorted_arr = arr.sort( pl.compare ); var sorted_list = new pl.type.Term( "[]" ); for( var i = sorted_arr.length - 1; i >= 0; i-- ) { sorted_list = new pl.type.Term( ".", [sorted_arr[i], sorted_list] ); } thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [sorted_list, expected] ) ), point.substitution, point )] ); } } }, // take/3 "take/3": function( thread, point, atom ) { var number = atom.args[0], list = atom.args[1], take = atom.args[2]; if( pl.type.is_variable( list ) || pl.type.is_variable( number ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_list( list ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else if( !pl.type.is_integer( number ) ) { thread.throw_error( pl.error.type( "integer", number, atom.indicator ) ); } else if( !pl.type.is_variable( take ) && !pl.type.is_list( take ) ) { thread.throw_error( pl.error.type( "list", take, atom.indicator ) ); } else { var i = number.value; var arr = []; var pointer = list; while( i > 0 && pointer.indicator === "./2" ) { arr.push( pointer.args[0] ); pointer = pointer.args[1]; i--; } if( i === 0 ) { var new_list = new pl.type.Term( "[]" ); for( var i = arr.length - 1; i >= 0; i-- ) { new_list = new pl.type.Term( ".", [arr[i], new_list] ); } thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [new_list, take] ) ), point.substitution, point )] ); } } }, // drop/3 "drop/3": function( thread, point, atom ) { var number = atom.args[0], list = atom.args[1], drop = atom.args[2]; if( pl.type.is_variable( list ) || pl.type.is_variable( number ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_list( list ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else if( !pl.type.is_integer( number ) ) { thread.throw_error( pl.error.type( "integer", number, atom.indicator ) ); } else if( !pl.type.is_variable( drop ) && !pl.type.is_list( drop ) ) { thread.throw_error( pl.error.type( "list", drop, atom.indicator ) ); } else { var i = number.value; var arr = []; var pointer = list; while( i > 0 && pointer.indicator === "./2" ) { arr.push( pointer.args[0] ); pointer = pointer.args[1]; i--; } if( i === 0 ) thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [pointer, drop] ) ), point.substitution, point )] ); } }, // reverse/2 "reverse/2": function( thread, point, atom ) { var list = atom.args[0], reversed = atom.args[1]; var ins_list = pl.type.is_instantiated_list( list ); var ins_reversed = pl.type.is_instantiated_list( reversed ); if( pl.type.is_variable( list ) && pl.type.is_variable( reversed ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( list ) && !pl.type.is_fully_list( list ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else if( !pl.type.is_variable( reversed ) && !pl.type.is_fully_list( reversed ) ) { thread.throw_error( pl.error.type( "list", reversed, atom.indicator ) ); } else if( !ins_list && !ins_reversed ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else { var pointer = ins_list ? list : reversed; var new_reversed = new pl.type.Term( "[]", [] ); while( pointer.indicator === "./2" ) { new_reversed = new pl.type.Term( ".", [pointer.args[0], new_reversed] ); pointer = pointer.args[1]; } thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [new_reversed, ins_list ? reversed : list] ) ), point.substitution, point )] ); } }, // list_to_set/2 "list_to_set/2": function( thread, point, atom ) { var list = atom.args[0], lset = atom.args[1]; if( pl.type.is_variable( list ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else { var pointer = list; var elems = []; while( pointer.indicator === "./2" ) { elems.push( pointer.args[0] ); pointer = pointer.args[1]; } if( pl.type.is_variable( pointer ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_term( pointer ) || pointer.indicator !== "[]/0" ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else { var arr = [], nub = new pl.type.Term( "[]", [] ); var match; for( var i = 0; i < elems.length; i++ ) { match = false for( var j = 0; j < arr.length && !match; j++ ) { match = pl.compare( elems[i], arr[j] ) === 0; } if( !match ) arr.push( elems[i] ); } for( i = arr.length - 1; i >= 0; i-- ) nub = new pl.type.Term( ".", [arr[i],nub] ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [lset,nub] ) ), point.substitution, point )] ); } } } }; }; var exports = ["append/2", "append/3", "member/2", "permutation/2", "maplist/2", "maplist/3", "maplist/4", "maplist/5", "maplist/6", "maplist/7", "maplist/8", "include/3", "exclude/3", "foldl/4", "foldl/5", "foldl/6", "foldl/7", "sum_list/2", "max_list/2", "min_list/2", "prod_list/2", "last/2", "prefix/2", "nth0/3", "nth1/3", "nth0/4", "nth1/4", "length/2", "replicate/3", "select/3", "msort/2", "take/3", "drop/3", "reverse/2", "list_to_set/2"]; var options = function() { return { meta_predicates: { // exclude(1, +, -) "exclude/3": new pl.type.Term("exclude", [new pl.type.Num(1, false), new pl.type.Term("+"), new pl.type.Term("-")]), // foldl(3, +, +, -) "foldl/4": new pl.type.Term("foldl", [new pl.type.Num(3, false), new pl.type.Term("+"), new pl.type.Term("+"), new pl.type.Term("-")]), // foldl(4, +, +, +, -) "foldl/5": new pl.type.Term("foldl", [new pl.type.Num(4, false), new pl.type.Term("+"), new pl.type.Term("+"), new pl.type.Term("+"), new pl.type.Term("-")]), // foldl(5, +, +, +, +, -) "foldl/6": new pl.type.Term("foldl", [new pl.type.Num(5, false), new pl.type.Term("+"), new pl.type.Term("+"), new pl.type.Term("+"), new pl.type.Term("+"), new pl.type.Term("-")]), // foldl(6, +, +, +, +, +, -) "foldl/7": new pl.type.Term("foldl", [new pl.type.Num(6, false), new pl.type.Term("+"), new pl.type.Term("+"), new pl.type.Term("+"), new pl.type.Term("+"), new pl.type.Term("+"), new pl.type.Term("-")]), // exclude(1, +, -) "include/3": new pl.type.Term("include", [new pl.type.Num(1, false), new pl.type.Term("+"), new pl.type.Term("-")]), // maplist(1, ?) "maplist/2": new pl.type.Term("maplist", [new pl.type.Num(1, false), new pl.type.Term("?")]), // maplist(2, ?, ?) "maplist/3": new pl.type.Term("maplist", [new pl.type.Num(2, false), new pl.type.Term("?"), new pl.type.Term("?")]), // maplist(3, ?, ?, ?) "maplist/4": new pl.type.Term("maplist", [new pl.type.Num(3, false), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?")]), // maplist(4, ?, ?, ?, ?) "maplist/5": new pl.type.Term("maplist", [new pl.type.Num(4, false), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?")]), // maplist(5, ?, ?, ?, ?, ?) "maplist/6": new pl.type.Term("maplist", [new pl.type.Num(5, false), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?")]), // maplist(6, ?, ?, ?, ?, ?, ?) "maplist/7": new pl.type.Term("maplist", [new pl.type.Num(6, false), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?")]), // maplist(7, ?, ?, ?, ?, ?, ?, ?) "maplist/8": new pl.type.Term("maplist", [new pl.type.Num(7, false), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?"), new pl.type.Term("?")]) } }; };
if(typeof module !== 'undefined') { module.exports = function(p) { pl = p; new pl.type.Module("lists", predicates(), exports, options()); }; } else { new pl.type.Module("lists", predicates(), exports, options()); }
})( pl );var pl;(function( pl ) {
var predicates = function() { return {
// get_seed/1 "get_seed/1": function(thread, point, atom) { var seed = atom.args[0]; if(!pl.type.is_variable(seed) && !pl.type.is_integer(seed)) { thread.throw_error(pl.error.type("integer", seed, atom.indicator)); } else { var current_seed = thread.get_random_generator().get_seed(); thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("=", [ new pl.type.Num(current_seed, false), seed ])), point.substitution, point )]); } },
// set_seed/1 "set_seed/1": function(thread, point, atom) { var seed = atom.args[0]; if(pl.type.is_variable(seed)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_integer(seed)) { thread.throw_error(pl.error.type("integer", seed, atom.indicator)); } else { thread.get_random_generator().set_seed(seed.value); thread.success(point); } }, // maybe/0 "maybe/0": function( thread, point, _ ) { if( thread.get_random_generator().next() < 0.5 ) { thread.success( point ); } }, // maybe/1 "maybe/1": function( thread, point, atom ) { var num = atom.args[0]; if( thread.get_random_generator().next() < num.value ) { thread.success( point ); } }, // random/1 "random/1": function( thread, point, atom ) { var rand = atom.args[0]; if( !pl.type.is_variable( rand ) && !pl.type.is_number( rand ) ) { thread.throw_error( pl.error.type( "number", rand, atom.indicator ) ); } else { var gen = thread.get_random_generator().next(); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [rand, new pl.type.Num( gen, true )] ) ), point.substitution, point )] ); } }, // random/3 "random/3": function( thread, point, atom ) { var lower = atom.args[0], upper = atom.args[1], rand = atom.args[2]; if( pl.type.is_variable( lower ) || pl.type.is_variable( upper ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_number( lower ) ) { thread.throw_error( pl.error.type( "number", lower, atom.indicator ) ); } else if( !pl.type.is_number( upper ) ) { thread.throw_error( pl.error.type( "number", upper, atom.indicator ) ); } else if( !pl.type.is_variable( rand ) && !pl.type.is_number( rand ) ) { thread.throw_error( pl.error.type( "number", rand, atom.indicator ) ); } else { if( lower.value < upper.value ) { var float = lower.is_float || upper.is_float; var gen = lower.value + thread.get_random_generator().next() * (upper.value - lower.value); if( !float ) gen = Math.floor( gen ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [rand, new pl.type.Num( gen, float )] ) ), point.substitution, point )] ); } } }, // random_between/3 "random_between/3": function( thread, point, atom ) { var lower = atom.args[0], upper = atom.args[1], rand = atom.args[2]; if( pl.type.is_variable( lower ) || pl.type.is_variable( upper ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_integer( lower ) ) { thread.throw_error( pl.error.type( "integer", lower, atom.indicator ) ); } else if( !pl.type.is_integer( upper ) ) { thread.throw_error( pl.error.type( "integer", upper, atom.indicator ) ); } else if( !pl.type.is_variable( rand ) && !pl.type.is_integer( rand ) ) { thread.throw_error( pl.error.type( "integer", rand, atom.indicator ) ); } else { if( lower.value < upper.value ) { var gen = Math.floor(lower.value + thread.get_random_generator().next() * (upper.value - lower.value + 1)); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [rand, new pl.type.Num( gen, false )] ) ), point.substitution, point )] ); } } }, // random_member/2 "random_member/2": function( thread, point, atom ) { var member = atom.args[0], list = atom.args[1]; if( pl.type.is_variable( list ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else { var array = []; var pointer = list; while( pointer.indicator === "./2" ) { array.push(pointer.args[0]); pointer = pointer.args[1]; } if( array.length > 0 ) { var gen = Math.floor(thread.get_random_generator().next() * array.length); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [member, array[gen]] ) ), point.substitution, point )] ); } } }, // random_permutation/2 "random_permutation/2": function( thread, point, atom ) { var i; var list = atom.args[0], permutation = atom.args[1]; var ins_list = pl.type.is_instantiated_list( list ); var ins_permutation = pl.type.is_instantiated_list( permutation ); if( pl.type.is_variable( list ) && pl.type.is_variable( permutation ) || !ins_list && !ins_permutation ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( list ) && !pl.type.is_fully_list( list ) ) { thread.throw_error( pl.error.type( "list", list, atom.indicator ) ); } else if( !pl.type.is_variable( permutation ) && !pl.type.is_fully_list( permutation ) ) { thread.throw_error( pl.error.type( "list", permutation, atom.indicator ) ); } else { var pointer = ins_list ? list : permutation; var array = []; while( pointer.indicator === "./2" ) { array.push( pointer.args[0] ); pointer = pointer.args[1]; } for( i = 0; i < array.length; i++ ) { var rand = Math.floor( thread.get_random_generator().next() * array.length ); var tmp = array[i]; array[i] = array[rand]; array[rand] = tmp; } var new_list = new pl.type.Term( "[]", [] ); for( i = array.length-1; i >= 0; i-- ) new_list = new pl.type.Term( ".", [array[i], new_list] ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [new_list, ins_list ? permutation : list] ) ), point.substitution, point )] ); } } }; }; var exports = ["get_seed/1", "set_seed/1", "maybe/0", "maybe/1", "random/1", "random/3", "random_between/3", "random_member/2", "random_permutation/2"];
// Mulberry32 random generator var mulberry32 = function(seed) { this.set_seed(seed); };
mulberry32.prototype.next = function() { var t = this.get_seed() + 0x6D2B79F5; this.set_seed(t); t = Math.imul(t ^ t >>> 15, t | 1); t ^= t + Math.imul(t ^ t >>> 7, t | 61); return ((t ^ t >>> 14) >>> 0) / 4294967296; };
mulberry32.prototype.set_seed = function(seed) { this.seed = seed; };
mulberry32.prototype.get_seed = function() { return this.seed; };
// Extend Tau Prolog prototypes var extend = function(pl) { // Get the random generator of the session pl.type.Session.prototype.get_random_generator = function() { if(!this.random_generator) this.random_generator = new mulberry32(Date.now()); return this.random_generator; }; // Get the random generator of the thread pl.type.Thread.prototype.get_random_generator = function() { return this.session.get_random_generator(); }; }; if( typeof module !== 'undefined' ) { module.exports = function( p ) { pl = p; extend(p); new pl.type.Module( "random", predicates(), exports ); }; } else { extend(pl); new pl.type.Module( "random", predicates(), exports ); }
})( pl );var pl;(function( pl ) {
var predicates = function() { return { // time/1 "time/1": [ new pl.type.Rule(new pl.type.Term("time", [new pl.type.Var("Goal")]), new pl.type.Term(",", [new pl.type.Term("get_time", [new pl.type.Var("T0")]),new pl.type.Term(",", [new pl.type.Term("call", [new pl.type.Var("Goal")]),new pl.type.Term(",", [new pl.type.Term("get_time", [new pl.type.Var("T1")]),new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("T"),new pl.type.Term("-", [new pl.type.Var("T1"),new pl.type.Var("T0")])]),new pl.type.Term("write", [new pl.type.Var("T")])])])])])])) ], // statistics/0 "statistics/0": function( thread, point, atom ) { var stats = "% Tau Prolog statistics\n"; for(var x in statistics) stats += "%%% " + x + ": " + statistics[x](thread).toString() + "\n"; thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("write", [new pl.type.Term(stats)])), point.substitution, point )]); }, // statistics/2 "statistics/2": function( thread, point, atom ) { var key = atom.args[0], value = atom.args[1]; if( !pl.type.is_variable( key ) && !pl.type.is_atom( key ) ) { thread.throw_error( pl.error.type( "atom", key, atom.indicator ) ); } else if( !pl.type.is_variable( key ) && statistics[key.id] === undefined ) { thread.throw_error( pl.error.domain( "statistics_key", key, atom.indicator ) ); } else { if( !pl.type.is_variable( key ) ) { var value_ = statistics[key.id]( thread ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [value, value_] ) ), point.substitution, point )] ); } else { var states = []; for( var x in statistics ) { var value_ = statistics[x]( thread ); states.push( new pl.type.State( point.goal.replace( new pl.type.Term( ",", [ new pl.type.Term( "=", [key, new pl.type.Term( x, [] )] ), new pl.type.Term( "=", [value, value_] ) ] ) ), point.substitution, point ) ); } thread.prepend( states ); } } }
}; }; var exports = ["time/1", "statistics/0", "statistics/2"]; var statistics = { // Total number of defined atoms atoms: function( thread ) { return new pl.type.Num( pl.statistics.getCountTerms(), false ); }, // Total number of clauses clauses: function( thread ) { var total = 0; for( var x in thread.session.rules ) if( thread.session.rules[x] instanceof Array ) total += thread.session.rules[x].length; for( var i = 0; i < thread.session.modules.length; i++ ) { var module = pl.module[thread.session.modules[i]]; for( var j = 0; j < module.exports.length; j++ ) { var predicate = module.rules[module.exports[j]]; if( predicate instanceof Array ) total += predicate.length; } } return new pl.type.Num( total, false ); }, // Total cpu time cputime: function( thread ) { return new pl.type.Num( thread.cpu_time, false ); }, // wall time walltime: function( thread ) { return new pl.type.Num( Date.now(), false ); }, // Time stamp when thread was started epoch: function( thread ) { return new pl.type.Num( thread.epoch, false ); }, // Total number of resolution steps inferences: function( thread ) { return new pl.type.Num( thread.total_steps, false ); }, // Total number of defined modules modules: function(thread) { var nb_modules = 0; for(var _module_id in thread.session.modules) nb_modules++; return new pl.type.Num(nb_modules, false); }, // Total number of predicates predicates: function( thread ) { var total = Object.keys( thread.session.rules ).length; for( var i = 0; i < thread.session.modules.length; i++ ) { var module = pl.module[thread.session.modules[i]]; total += module.exports.length; } return new pl.type.Num( total, false ); }, // Total number of threads in current session threads: function( thread ) { return new pl.type.Num( thread.session.total_threads, false ); } };
if( typeof module !== 'undefined' ) { module.exports = function( p ) { pl = p; new pl.type.Module( "statistics", predicates(), exports ); }; } else { new pl.type.Module( "statistics", predicates(), exports ); }
})( pl );var pl;(function( pl ) {
var predicates = function() { return { // EVENTS // bind/4 "bind/4": function( thread, point, atom ) { var elem = atom.args[0], type = atom.args[1], event = atom.args[2], goal = atom.args[3]; if( pl.type.is_variable( elem ) || pl.type.is_variable( type ) && pl.type.is_variable( goal ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( elem ) ) { thread.throw_error( pl.error.type( "HTMLObject", elem, atom.indicator ) ); } else if( !pl.type.is_atom( type ) ) { thread.throw_error( pl.error.type( "atom", type, atom.indicator ) ); } else if( !pl.type.is_variable( event ) && !pl.type.is_dom_event_object( event ) ) { thread.throw_error( pl.error.type( "DOMEventObject", type, atom.indicator ) ); } else if( !pl.type.is_variable( goal ) ) { var thread_ = new pl.type.Thread( thread.session ); var eventObject = new pl.type.DOMEvent( type.id ); var links = {}; if( pl.type.is_variable( event ) ) links[event.id] = eventObject; var subs = new pl.type.Substitution( links ); var handler = function( e ) { eventObject.event = e; thread_.add_goal( goal.apply( subs ) ); thread_.answer( thread.__calls[0] ); }; events.add( elem.object, type.id, handler ); elem.object.tau_events = elem.object.tau_events === undefined ? {} : elem.object.tau_events; if( elem.object.tau_events[type.id] === undefined ) elem.object.tau_events[type.id] = []; elem.object.tau_events[type.id].push( {goal: goal, fn: handler} ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [eventObject, event] ) ), point.substitution, point )] ); } else { var event = elem.object.tau_events ? elem.object.tau_events[type.id] : undefined; if( event !== undefined ) { var states = []; for( var i = 0; i < event.length; i++ ) states.push( new pl.type.State( point.goal.replace( new pl.type.Term( "=", [goal, event[i].goal.rename(thread)] ) ), point.substitution, point ) ); thread.prepend( states ); } } }, // unbind/2 "unbind/2": function( thread, point, atom ) { var elem = atom.args[0], type = atom.args[1]; if( pl.type.is_variable( elem ) || pl.type.is_variable( type ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( elem ) ) { thread.throw_error( pl.error.type( "HTMLObject", elem, atom.indicator ) ); } else if( !pl.type.is_atom( type ) ) { thread.throw_error( pl.error.type( "atom", type, atom.indicator ) ); } else if( !pl.type.is_variable( goal ) ) { if( elem.object.tau_events && elem.object.tau_events[type.id] ) { var event = elem.object.tau_events[type.id]; for( var i = 0; i < event.length; i++ ) { events.remove( elem.object, type.id, event[i].fn ); } delete elem.object.tau_events[type.id]; } thread.success( point ); } }, // unbind/3 "unbind/3": function( thread, point, atom ) { var elem = atom.args[0], type = atom.args[1], goal = atom.args[2]; if( pl.type.is_variable( elem ) || pl.type.is_variable( type ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( elem ) ) { thread.throw_error( pl.error.type( "HTMLObject", elem, atom.indicator ) ); } else if( !pl.type.is_atom( type ) ) { thread.throw_error( pl.error.type( "atom", type, atom.indicator ) ); } else if( !pl.type.is_variable( goal ) && !pl.type.is_term( goal ) ) { thread.throw_error( pl.error.type( "term", goal, atom.indicator ) ); } else if( !pl.type.is_variable( goal ) ) { if( elem.object.tau_events && elem.object.tau_events[type.id] ) { var event = elem.object.tau_events[type.id]; var newevents = []; for( var i = 0; i < event.length; i++ ) { if( pl.unify( event[i].goal, goal ) !== null ) { events.remove( elem.object, type.id, event[i].fn ); } else { newevents.push( event[i] ); } } elem.object.tau_events[type.id] = newevents; } thread.success( point ); } }, // event_property/3 "event_property/3": function( thread, point, atom ) { var event = atom.args[0], prop = atom.args[1], val = atom.args[2] if( pl.type.is_variable( event ) || pl.type.is_variable( prop ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_event_object( event ) ) { thread.throw_error( pl.error.type( "DOMEventObject", event, atom.indicator ) ); } else if( !pl.type.is_atom( prop ) ) { thread.throw_error( pl.error.type( "atom", prop, atom.indicator ) ); } else if( !pl.type.is_variable( val ) && !pl.type.is_atomic( val ) ) { thread.throw_error( pl.error.type( "atomic", val, atom.indicator ) ); } else { if( event.event !== null && event.event[prop.id] ) { var value = event.event[prop.id]; value = isNaN(value) ? new pl.type.Term( value, [] ) : new pl.type.Num( value ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [value, val] ) ), point.substitution, point )] ); } } }, // prevent_default/1 "prevent_default/1": function( thread, point, atom ) { var event = atom.args[0]; if( pl.type.is_variable( event ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_event_object( event ) ) { thread.throw_error( pl.error.type( "eventObject", event, atom.indicator ) ); } else { if( event.event !== null ) { event.event.preventDefault(); thread.success( point ); } } }, // EFFECTS // hide/1 "hide/1": function( thread, point, atom ) { var element = atom.args[0]; if( pl.type.is_variable( element ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( element ) ) { thread.throw_error( pl.error.type( "HTMLObject", element, atom.indicator ) ); } else { var state = document.defaultView.getComputedStyle( element.object, "" ).display; if( state !== undefined && state !== "none" ) element.object.tau_display = state; element.object.style.display = "none"; thread.success( point ); } }, // show/1 "show/1": function( thread, point, atom ) { var element = atom.args[0]; if( pl.type.is_variable( element ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( element ) ) { thread.throw_error( pl.error.type( "HTMLObject", element, atom.indicator ) ); } else { element.object.style.display = element.object.tau_display !== undefined ? element.object.tau_display : "block"; thread.success( point ); } }, // toggle/1 "toggle/1": [ new pl.type.Rule(new pl.type.Term("toggle", [new pl.type.Var("X")]), new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term(",", [new pl.type.Term("style", [new pl.type.Var("X"),new pl.type.Term("display", []),new pl.type.Var("Y")]),new pl.type.Term("=", [new pl.type.Var("Y"),new pl.type.Term("none", [])])]),new pl.type.Term("show", [new pl.type.Var("X")])]),new pl.type.Term("hide", [new pl.type.Var("X")])])) ], // DOM MANIPULATION
// document/1 "document/1": function( session, point, atom) { var doc = atom.args[0]; var newdoc = new pl.type.DOM( document ); session.prepend( [new pl.type.State( point.goal.replace(new pl.type.Term("=", [doc, newdoc])), point.substitution, point )] ); },
// head/1 "head/1": function( session, point, atom) { var head = atom.args[0]; var newhead = new pl.type.DOM( document.head ); session.prepend( [new pl.type.State( point.goal.replace(new pl.type.Term("=", [head, newhead])), point.substitution, point )] ); },
// body/1 "body/1": function( session, point, atom) { var body = atom.args[0]; var newbody = new pl.type.DOM( document.body ); session.prepend( [new pl.type.State( point.goal.replace(new pl.type.Term("=", [body, newbody])), point.substitution, point )] ); }, // get_by_id/2 "get_by_id/2": function( session, point, atom ) { var id = atom.args[0], object = atom.args[1]; if( pl.type.is_variable( id ) ) { session.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom( id ) ) { session.throw_error( pl.error.type( "atom", id, atom.indicator ) ); } else if( !pl.type.is_variable( object ) && !pl.type.is_dom_object( object ) ) { session.throw_error( pl.error.type( "HTMLObject", object, atom.indicator ) ); } else { var element = document.getElementById( id.id ); if( element ) { var html = new pl.type.DOM( element ); session.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [html, object] ) ), point.substitution, point )] ); } } },
// get_by_class/2 "get_by_class/2": [ new pl.type.Rule(new pl.type.Term("get_by_class", [new pl.type.Var("Class"),new pl.type.Var("Html")]), new pl.type.Term(",", [new pl.type.Term("document", [new pl.type.Var("D")]),new pl.type.Term("get_by_class", [new pl.type.Var("D"),new pl.type.Var("Class"),new pl.type.Var("Html")])])) ], // get_by_class/3 "get_by_class/3": function( session, point, atom ) { var parent = atom.args[0], name = atom.args[1], object = atom.args[2]; if( pl.type.is_variable( parent ) ) { session.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( parent ) ) { session.throw_error( pl.error.type( "HTMLObject", parent, atom.indicator ) ); } else if( pl.type.is_variable( name ) ) { session.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom( name ) ) { session.throw_error( pl.error.type( "atom", name, atom.indicator ) ); } else if( !pl.type.is_variable( object ) && !pl.type.is_dom_object( object ) ) { session.throw_error( pl.error.type( "HTMLObject", object, atom.indicator ) ); } else { var elements = parent.object.getElementsByClassName( name.id ); if( elements ) { var states = []; for( var i = 0; i < elements.length; i++ ) { var html = new pl.type.DOM( elements[i] ); states.push( new pl.type.State( point.goal.replace( new pl.type.Term( "=", [html, object] ) ), point.substitution, point ) ); } session.prepend( states ); } } },
// get_by_tag/2 "get_by_tag/2": [ new pl.type.Rule(new pl.type.Term("get_by_tag", [new pl.type.Var("Tag"),new pl.type.Var("Html")]), new pl.type.Term(",", [new pl.type.Term("document", [new pl.type.Var("D")]),new pl.type.Term("get_by_tag", [new pl.type.Var("D"),new pl.type.Var("Tag"),new pl.type.Var("Html")])])) ], // get_by_tag/3 "get_by_tag/3": function( session, point, atom ) { var parent = atom.args[0], tag = atom.args[1], object = atom.args[2]; if( pl.type.is_variable( parent ) ) { session.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( parent ) ) { session.throw_error( pl.error.type( "HTMLObject", parent, atom.indicator ) ); } else if( pl.type.is_variable( tag ) ) { session.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom( tag ) ) { session.throw_error( pl.error.type( "atom", tag, atom.indicator ) ); } else if( !pl.type.is_variable( object ) && !pl.type.is_dom_object( object ) ) { session.throw_error( pl.error.type( "HTMLObject", object, atom.indicator ) ); } else { var elements = parent.object.getElementsByTagName( tag.id ); if( elements ) { var states = []; for( var i = 0; i < elements.length; i++ ) { var html = new pl.type.DOM( elements[i] ); states.push( new pl.type.State( point.goal.replace( new pl.type.Term( "=", [html, object] ) ), point.substitution, point ) ); } session.prepend( states ); } } },
// get_by_name/2 "get_by_name/2": function( session, point, atom ) { var name = atom.args[0], object = atom.args[1]; if( pl.type.is_variable( name ) ) { session.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom( name ) ) { session.throw_error( pl.error.type( "atom", name, atom.indicator ) ); } else if( !pl.type.is_variable( object ) && !pl.type.is_dom_object( object ) ) { session.throw_error( pl.error.type( "HTMLObject", object, atom.indicator ) ); } else { var elements = document.getElementsByName( name.id ); if( elements ) { var states = []; for( var i = 0; i < elements.length; i++ ) { var html = new pl.type.DOM( elements[i] ); states.push( new pl.type.State( point.goal.replace( new pl.type.Term( "=", [html, object] ) ), point.substitution, point ) ); } session.prepend( states ); } } },
// get_style/3 "get_style/3": function( session, point, atom ) { var html = atom.args[0], property = atom.args[1], value = atom.args[2]; if( pl.type.is_variable( html ) || pl.type.is_variable( property ) ) { session.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( html ) ) { session.throw_error( pl.error.type( "HTMLObject", selector, atom.indicator ) ); } else if( !pl.type.is_atom( property ) ) { session.throw_error( pl.error.type( "atom", property, atom.indicator ) ); } else { if( html.object === document ) return; var style = document.defaultView.getComputedStyle( html.object, "" )[property.id] || ""; if( style === '' && html.object.style[property.id] ) style = html.object.style[property.id]; var html_value = styleToProlog( style ); session.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [value, html_value] ) ), point.substitution, point )] ); } },
// set_style/3 "set_style/3": function( session, point, atom ) { var html = atom.args[0], property = atom.args[1], value = atom.args[2]; var styleValue = styleFromProlog( value ); var ground = pl.type.is_ground( value ); if( pl.type.is_variable( html ) || pl.type.is_variable( property ) || !ground ) { session.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( html ) ) { session.throw_error( pl.error.type( "HTMLObject", selector, atom.indicator ) ); } else if( !pl.type.is_atom( property ) ) { session.throw_error( pl.error.type( "atom", property, atom.indicator ) ); } else if( styleValue === false ) { session.throw_error( pl.error.domain( "style_value", value, atom.indicator ) ); } else { if( html.object === document ) return; html.object.style[property.id] = styleValue; session.success( point ); } }, // style/3 "style/3": function( session, point, atom ) { var html = atom.args[0], property = atom.args[1], value = atom.args[2]; var styleValue = styleFromProlog( value ); var ground = pl.type.is_ground( value ); if( pl.type.is_variable( html ) || pl.type.is_variable( property ) ) { session.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( html ) ) { session.throw_error( pl.error.type( "HTMLObject", html, atom.indicator ) ); } else if( !pl.type.is_atom( property ) ) { session.throw_error( pl.error.type( "atom", property, atom.indicator ) ); } else if( !pl.type.is_variable( value ) && ground && styleValue === false ) { session.throw_error( pl.error.domain( "style_value", value, atom.indicator ) ); } else { if( html.object === document ) return; if( !ground ) { var style = document.defaultView.getComputedStyle( html.object, "" )[property.id] || ""; if( style === '' && html.object.style[property.id] ) style = html.object.style[property.id]; var html_value = styleToProlog( style ); session.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [value, html_value] ) ), point.substitution, point )] ); } else { html.object.style[property.id] = styleValue; session.success( point ); } } },
// get_attr/3 "get_attr/3": function( session, point, atom ) { var html = atom.args[0], attr = atom.args[1], value = atom.args[2]; if( pl.type.is_variable( html ) || pl.type.is_variable( attr ) ) { session.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( html ) ) { session.throw_error( pl.error.type( "HTMLObject", selector, atom.indicator ) ); } else if( !pl.type.is_atom( attr ) ) { session.throw_error( pl.error.type( "atom", attr, atom.indicator ) ); } else { if( html.object === document ) return; var html_value = attr.id === "value" ? new pl.type.Term(html.object.value) : styleToProlog(html.object.getAttribute(attr.id)); if( html_value !== null && html_value !== undefined ) session.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [value, html_value] ) ), point.substitution, point )] ); } },
// set_attr/3 "set_attr/3": function( session, point, atom ) { var html = atom.args[0], attr = atom.args[1], value = atom.args[2]; var styleValue = styleFromProlog( value ); var ground = pl.type.is_ground( value ); if( pl.type.is_variable( html ) || pl.type.is_variable( attr ) || !ground ) { session.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( html ) ) { session.throw_error( pl.error.type( "HTMLObject", selector, atom.indicator ) ); } else if( !pl.type.is_atom( attr ) ) { session.throw_error( pl.error.type( "atom", attr, atom.indicator ) ); } else if( styleValue === false ) { session.throw_error( pl.error.domain( "attribute_value", value, atom.indicator ) ); } else { if( html.object === document ) return; if( attr.id === "value" ) { html.object.value = styleValue; } else { html.object.setAttribute( attr.id, styleValue ); } session.success( point ); } }, // attr/3 "attr/3": function( session, point, atom ) { var html = atom.args[0], attr = atom.args[1], value = atom.args[2]; var styleValue = styleFromProlog( value ); var ground = pl.type.is_ground( value ); if( pl.type.is_variable( html ) || pl.type.is_variable( attr ) ) { session.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( html ) ) { session.throw_error( pl.error.type( "HTMLObject", selector, atom.indicator ) ); } else if( !pl.type.is_atom( attr ) ) { session.throw_error( pl.error.type( "atom", attr, atom.indicator ) ); } else if( !pl.type.is_variable( value ) && ground && styleValue === false ) { session.throw_error( pl.error.domain( "attribute_value", value, atom.indicator ) ); } else { if( html.object === document ) return; if( !ground ) { var html_value = attr.id === "value" ? new pl.type.Term(html.object.value) : styleToProlog(html.object.getAttribute(attr.id)); if( html_value !== null && html_value !== undefined ) session.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [value, html_value] ) ), point.substitution, point )] ); } else { if( attr.id === "value" ) { html.object.value = styleValue; } else { html.object.setAttribute( attr.id, styleValue ); } session.success( point ); } } },
// get_html/2 "get_html/2": function( thread, point, atom ) { var html = atom.args[0], value = atom.args[1]; if( pl.type.is_variable( html ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( html ) ) { session.throw_error( pl.error.type( "HTMLObject", html, atom.indicator ) ); } else { if( html.object === document ) return; var inner = new pl.type.Term( html.object.innerHTML ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [inner, value] ) ), point.substitution, point )] ); } },
// set_html/2 "set_html/2": function( thread, point, atom ) { var html = atom.args[0], value = atom.args[1]; if( pl.type.is_variable( html ) || pl.type.is_variable( value ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( html ) ) { session.throw_error( pl.error.type( "HTMLObject", html, atom.indicator ) ); } else { if( html.object === document ) return; if( pl.type.is_atom( value ) ) html.object.innerHTML = value.id; else html.object.innerHTML = value.toString(); thread.success( point ); } }, // html/2 "html/2": function( thread, point, atom ) { var html = atom.args[0], value = atom.args[1]; if( pl.type.is_variable( html ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else { if( html.object === document ) return; if( pl.type.is_variable( value ) ) { var inner = new pl.type.Term( html.object.innerHTML ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [inner, value] ) ), point.substitution, point )] ); } else { if( pl.type.is_atom( value ) ) html.object.innerHTML = value.id; else html.object.innerHTML = value.toString(); thread.success( point ); } } }, // create/2 "create/2": function( thread, point, atom ) { var tag = atom.args[0], element = atom.args[1]; if( pl.type.is_variable( tag ) && pl.type.is_variable( element ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( tag ) && !pl.type.is_atom( tag ) ) { thread.throw_error( pl.error.type( "atom", tag, atom.indicator ) ); } else if( !pl.type.is_variable( element ) && !pl.type.is_dom_object( element ) ) { thread.throw_error( pl.error.type( "HTMLObject", element, atom.indicator ) ); } else if( pl.type.is_variable( element ) ) { var node = new pl.type.DOM( document.createElement( tag.id ) ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [element, node] ) ), point.substitution, point )] ); } else if( pl.type.is_variable( element ) ) { var node = new pl.type.DOM( document.createElement( tag.id.toLowerCase() ) ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [element, node] ) ), point.substitution, point )] ); } else if( pl.type.is_variable( tag ) ) { var type = new pl.type.Term( element.object.nodeName.toLowerCase() ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [type, tag] ) ), point.substitution, point )] ); } }, // parent_of/2 "parent_of/2": function( thread, point, atom ) { var child = atom.args[0], parent = atom.args[1]; if( pl.type.is_variable( parent ) && pl.type.is_variable( child ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( parent ) && !pl.type.is_dom_object( parent ) ) { thread.throw_error( pl.error.type( "HTMLObject", parent, atom.indicator ) ); } else if( !pl.type.is_variable( child ) && !pl.type.is_dom_object( child ) ) { thread.throw_error( pl.error.type( "HTMLObject", child, atom.indicator ) ); } else if( pl.type.is_variable( child ) ) { var children = parent.object.children; var states = []; for( var i = 0; i < children.length; i++ ) { states.push( new pl.type.State( point.goal.replace( new pl.type.Term( "=", [child, new pl.type.DOM( children[i] )] ) ), point.substitution, point ) ); } thread.prepend( states ); } else { if( child.object.parentNode ) { thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [parent, new pl.type.DOM( child.object.parentNode )] ) ), point.substitution, point )] ); } } }, // sibling/2 "sibling/2": function( thread, point, atom ) { var left = atom.args[0], right = atom.args[1]; if( pl.type.is_variable( left ) && pl.type.is_variable( right ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( left ) && !pl.type.is_dom_object( left ) ) { thread.throw_error( pl.error.type( "HTMLObject", left, atom.indicator ) ); } else if( !pl.type.is_variable( right ) && !pl.type.is_dom_object( right ) ) { thread.throw_error( pl.error.type( "HTMLObject", right, atom.indicator ) ); } else { if( pl.type.is_variable( left ) && right.object.previousElementSibling ) { var elem = new pl.type.DOM( right.object.previousElementSibling ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [left, elem] ) ), point.substitution, point )] ); } else if( !pl.type.is_variable( left ) && left.object.nextElementSibling ) { var elem = new pl.type.DOM( left.object.nextElementSibling ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [right, elem] ) ), point.substitution, point )] ); } } }, // remove/1 "remove/1": function( thread, point, atom ) { var element = atom.args[0]; if( pl.type.is_variable( element ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( element ) ) { thread.throw_error( pl.error.type( "HTMLObject", element, atom.indicator ) ); } else { if( element.object.parentNode ) { element.object.parentNode.removeChild( element.object ); thread.success( point ); } } }, // insert_after/2 "insert_after/2": function( thread, point, atom ) { var element = atom.args[0], reference = atom.args[1]; if( pl.type.is_variable( element ) || pl.type.is_variable( reference ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( element ) ) { thread.throw_error( pl.error.type( "HTMLObject", element, atom.indicator ) ); } else if( !pl.type.is_dom_object( reference ) ) { thread.throw_error( pl.error.type( "HTMLObject", reference, atom.indicator ) ); } else { if( reference.object.parentNode ) { reference.object.parentNode.insertBefore(element.object, reference.object.nextSibling); thread.success( point ); } } }, // insert_before/2 "insert_before/2": function( thread, point, atom ) { var element = atom.args[0], reference = atom.args[1]; if( pl.type.is_variable( element ) || pl.type.is_variable( reference ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( element ) ) { thread.throw_error( pl.error.type( "HTMLObject", element, atom.indicator ) ); } else if( !pl.type.is_dom_object( reference ) ) { thread.throw_error( pl.error.type( "HTMLObject", reference, atom.indicator ) ); } else { if( reference.object.parentNode ) { reference.object.parentNode.insertBefore(element.object, reference.object); thread.success( point ); } } }, // prepend_child/2 "prepend_child/2": function( thread, point, atom ) { var parent = atom.args[0], child = atom.args[1]; if( pl.type.is_variable( parent ) || pl.type.is_variable( child ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( parent ) ) { thread.throw_error( pl.error.type( "HTMLObject", parent, atom.indicator ) ); } else if( !pl.type.is_dom_object( child ) ) { thread.throw_error( pl.error.type( "HTMLObject", child, atom.indicator ) ); } else { if( parent.object.firstChild ) parent.object.insertBefore( child.object, parent.object.firstChild ); else parent.object.appendChild( child.object ); thread.success( point ); } }, // append_child/2 "append_child/2": function( thread, point, atom ) { var parent = atom.args[0], child = atom.args[1]; if( pl.type.is_variable( parent ) || pl.type.is_variable( child ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( parent ) ) { thread.throw_error( pl.error.type( "HTMLObject", parent, atom.indicator ) ); } else if( !pl.type.is_dom_object( child ) ) { thread.throw_error( pl.error.type( "HTMLObject", child, atom.indicator ) ); } else { parent.object.appendChild( child.object ); thread.success( point ); } }, // add_class/2 "add_class/2": function( thread, point, atom ) { var element = atom.args[0], name = atom.args[1]; if( pl.type.is_variable( element ) || pl.type.is_variable( name ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( element ) ) { thread.throw_error( pl.error.type( "HTMLObject", element, atom.indicator ) ); } else if( !pl.type.is_atom( name ) ) { thread.throw_error( pl.error.type( "atom", name, atom.indicator ) ); } else { var arr = element.object.className.split(" "); if( arr.indexOf( name.id ) === -1 ) { element.object.className += " " + name.id; } thread.success( point ); } }, // remove_class/2 "remove_class/2": function( thread, point, atom ) { var element = atom.args[0], name = atom.args[1]; if( pl.type.is_variable( element ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( element ) ) { thread.throw_error( pl.error.type( "HTMLObject", element, atom.indicator ) ); } else if( !pl.type.is_atom( name ) && !pl.type.is_variable( name ) ) { thread.throw_error( pl.error.type( "atom", name, atom.indicator ) ); } else { var arr = element.object.className.split(" "); if( pl.type.is_variable( name ) ) { var states = []; for( var i = 0; i < arr.length; i++ ) { states.push( new pl.type.State( point.goal.replace( new pl.type.Term( ",", [ new pl.type.Term( "=", [name, new pl.type.Term( arr[i], [] )] ), new pl.type.Term( "remove_class", [element, name] ) ] ) ), point.substitution, point ) ); } thread.prepend( states ); } else { var newclasses = ""; for( var i = 0; i < arr.length; i++ ) if( arr[i] !== name.id ) newclasses += arr[i] + " "; element.object.className = newclasses; thread.success( point ); } } }, // has_class/2 "hasClass/2": function( thread, point, atom ) { var element = atom.args[0], name = atom.args[1]; if( pl.type.is_variable( element ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_dom_object( element ) ) { thread.throw_error( pl.error.type( "HTMLObject", element, atom.indicator ) ); } else if( !pl.type.is_atom( name ) && !pl.type.is_variable( name ) ) { thread.throw_error( pl.error.type( "atom", name, atom.indicator ) ); } else { var arr = element.object.className.split(" "); if( pl.type.is_variable( name ) ) { var states = []; for( var i = 0; i < arr.length; i++ ) states.push( new pl.type.State( point.goal.replace( new pl.type.Term( "=", [name, new pl.type.Term( arr[i], [] )] ) ), point.substitution, point ) ); thread.prepend( states ); } else { if( arr.indexOf( name.id ) !== -1 ) thread.success( point ); } } } }; }; var exports = ["document/1", "head/1", "body/1", "show/1", "hide/1", "toggle/1", "create/2", "get_by_id/2", "get_by_tag/2", "get_by_tag/3", "get_by_class/2", "get_by_class/3", "get_by_name/2", "attr/3", "set_attr/3", "get_attr/3", "style/3", "set_style/3", "get_style/3", "html/2", "set_html/2", "get_html/2", "parent_of/2", "insert_after/2", "insert_before/2", "append_child/2", "prepend_child/2", "sibling/2", "remove/1", "add_class/2", "remove_class/2", "has_class/2", "bind/4", "unbind/2", "unbind/3", "event_property/3", "prevent_default/1"]; // DOM HTML OBJECTS // Get value of style from Prolog object function styleFromProlog( obj ) { if( obj === undefined || obj === null ) return false; else if( pl.type.is_number( obj ) ) return obj.value; else if( pl.type.is_term( obj ) && obj.args.length === 0 ) return obj.id; else if( pl.type.is_term( obj ) && obj.indicator === "px/1" && pl.type.is_number( obj.args[0] ) ) return obj.args[0].value.toString() + "px"; else if( pl.type.is_term( obj ) && obj.indicator === "%/1" && pl.type.is_number( obj.args[0] ) ) return obj.args[0].value.toString() + "%"; else if( pl.type.is_term( obj ) && obj.indicator === "url/1" && pl.type.is_atom( obj.args[0] ) ) return "url(\"" + obj.args[0].id + "\")"; else if( pl.type.is_term( obj ) && obj.indicator === "rgb/3" && pl.type.is_integer( obj.args[0] ) && pl.type.is_integer( obj.args[1] ) && pl.type.is_integer( obj.args[2] ) ) return obj.toString(); return false; } // Get value of style to Prolog object function styleToProlog( str ) { if( str === undefined || str === null ) return else if( /^-?[0-9]*\.?[0-9]*\s*px\s*$/.test( str ) ) return new pl.type.Term( "px", [new pl.type.Num( parseInt( str ) )] ); else if( /^-?[0-9]*\.?[0-9]*\s*\%\s*$/.test( str ) ) return new pl.type.Term( "%", [new pl.type.Num( parseFloat( str ) )] ); else if( /^url\(["'].*["']\)$/.test( str ) ) return new pl.type.Term( "url", [new pl.type.Term( str.substring(5, str.length-2) )] ); else if( /^rgb\(\s*\d+\s*,\s*\d+\s*,\s*\d+\s*\)\s*$/.test( str ) ) { var rgb = str.replace("rgb","").replace("(","").replace(")","").split(","); return new pl.type.Term( "rgb", [new pl.type.Num(parseInt(rgb[0]), false), new pl.type.Num(parseInt(rgb[1]), false), new pl.type.Num(parseInt(rgb[2]), false)] ); } return new pl.type.Term( str.toString(), [] ); } // Is a DOM object pl.type.is_dom_object = function( obj ) { return obj instanceof pl.type.DOM; };
// Ordering relation pl.type.order.push( pl.type.DOM );
// DOM Prolog object pl.type.DOM = function( object ) { this.object = object; }
// toString pl.type.DOM.prototype.toString = function() { return "<html>(" + (this.object.id !== "" && this.object.id !== undefined ? "#" + this.object.id : this.object.nodeName.toLowerCase().replace("#", "")) + ")"; };
// clone pl.type.DOM.prototype.clone = function() { return new pl.type.DOM( this.object ); };
// equals pl.type.DOM.prototype.equals = function( obj ) { return pl.type.is_dom_object( obj ) && this.object === obj.object; };
// rename pl.type.DOM.prototype.rename = function( _ ) { return this; };
// get variables pl.type.DOM.prototype.variables = function() { return []; };
// apply substitutions pl.type.DOM.prototype.apply = function( _ ) { return this; };
// unify pl.type.DOM.prototype.unify = function(obj, _) { if(pl.type.is_dom_object(obj) && this.object === obj.object) return new pl.type.Substitution(); return null; };
// interpret pl.type.DOM.prototype.interpret = function( indicator ) { return pl.error.instantiation( indicator ); };
// compare pl.type.DOM.prototype.compare = function( obj ) { if( this.object === obj.object ) { return 0; } else if( this.object < obj.object ) { return -1; } else if( this.object > obj.object ) { return 1; } }; // to javascript pl.type.DOM.prototype.toJavaScript = function() { return this.object; }; // from javascript pl.fromJavaScript.test.dom = function( obj ) { return obj instanceof HTMLElement; }; pl.fromJavaScript.conversion.dom = function( obj ) { return new pl.type.DOM( obj ); }; // from javascript (collection) pl.fromJavaScript.test.dom_collection = function( obj ) { return obj instanceof HTMLCollection; }; pl.fromJavaScript.conversion.dom_collection = function( obj ) { var arr = Array.prototype.slice.call( obj, 0 ); return pl.fromJavaScript.apply( arr ); };
// Streamable pl.type.DOM.prototype.stream = function( options, mode ) { if( mode === "write" ) if( this.object instanceof HTMLInputElement ) this.object.value = ""; else this.object.innerHTML = ""; return { object: this.object, get: function( length, position ) { var text; if( this.object instanceof HTMLInputElement ) text = this.object.value; else text = this.object.innerHTML; if( position >= text.length ) return "end_of_stream"; return text.substring( position, position+length ); }, put: function( text, position ) { if( position === "end_of_file" ) { if( this.object instanceof HTMLInputElement ) this.object.value += text; else this.object.innerHTML += text; return true; } else if( position === "past_end_of_file" ) { return null; } else { if( this.object instanceof HTMLInputElement ) this.object.value = this.object.value.substring(0, position) + text + this.object.value.substring(position+text.length); else this.object.innerHTML = this.object.innerHTML.substring(0, position) + text + this.object.innerHTML.substring(position+text.length); return true; } }, get_byte: function( position ) { if( position === "end_of_stream" ) return -1; var index = Math.floor(position/2); var text; if( this.object instanceof HTMLInputElement ) text = this.object.value.substring( position, position+length ); else text = this.object.innerHTML; if( text.length <= index ) return -1; var code = pl.utils.codePointAt( text[Math.floor(position/2)], 0 ); if( position % 2 === 0 ) return code & 0xff; else return code / 256 >>> 0; }, put_byte: function( byte, position ) { var text; if( this.object instanceof HTMLInputElement ) text = this.object.value; else text = this.object.innerHTML; var index = position === "end_of_stream" ? text.length : Math.floor(position/2); if( text.length < index ) return null; var code = text.length === index ? -1 : pl.utils.codePointAt( text[Math.floor(position/2)], 0 ); if( position % 2 === 0 ) { code = code / 256 >>> 0; code = ((code & 0xff) << 8) | (byte & 0xff); } else { code = code & 0xff; code = ((byte & 0xff) << 8) | (code & 0xff); } if( text.length === index ) text += pl.utils.fromCodePoint( code ); else text = text.substring( 0, index ) + pl.utils.fromCodePoint( code ) + text.substring( index+1 ); if( this.object instanceof HTMLInputElement ) this.object.value = text; else this.object.innerHTML = text; return true; }, flush: function() { return true; }, close: function() { return true; } }; }; // DOM EVENT OBJECTS // Is a DOM Event object pl.type.is_dom_event_object = function( obj ) { return obj instanceof pl.type.DOMEvent; };
// Ordering relation pl.type.order.push( pl.type.DOMEvent );
// DOM Event Prolog object pl.type.DOMEvent = function( type, event, epoch ) { this.type = type; this.event = event || null; this.epoch = epoch || (new Date).getTime(); }
// toString pl.type.DOMEvent.prototype.toString = function() { return "<event>(" + this.type.toLowerCase() + ")"; };
// clone pl.type.DOMEvent.prototype.clone = function() { return new pl.type.DOMEvent( this.type, this.event, this.epoch ); };
// equals pl.type.DOMEvent.prototype.equals = function( obj ) { return pl.type.is_dom_event_object( obj ) && this.type === obj.type && this.epoch === obj.epoch; };
// rename pl.type.DOMEvent.prototype.rename = function( _ ) { return this; };
// get variables pl.type.DOMEvent.prototype.variables = function() { return []; };
// apply substitutions pl.type.DOMEvent.prototype.apply = function( _ ) { return this; };
// unify pl.type.DOMEvent.prototype.unify = function(obj, _) { if(pl.type.is_dom_event_object(obj) && this.type === obj.type && this.epoch === obj.epoch) return new pl.type.Substitution(); return null; };
// interpret pl.type.DOMEvent.prototype.interpret = function( indicator ) { return pl.error.instantiation( indicator ); };
// compare pl.type.DOMEvent.prototype.compare = function( obj ) { if( this.epoch === obj.epoch ) { return 0; } else if( this.epoch < obj.epoch ) { return -1; } else if( this.epoch > obj.epoch ) { return 1; } }; // to javascript pl.type.DOMEvent.prototype.toJavaScript = function() { return this.event; }; // from javascript pl.fromJavaScript.test.event = function( obj ) { return obj instanceof Event; }; pl.fromJavaScript.conversion.event = function( obj ) { return new pl.type.DOMEvent( obj.type, obj ); }; // EVENT HANDLING var events = (function() {
var tau_fn_event = {};
var add = function(element, evt, fn) {
if(element.addEventListener !== undefined) { element.addEventListener(evt, fn); return true; }
else if(element.attachEvent !== undefined) { element.attachEvent("on" + evt, fn); return true; }
var prop = element["on" + evt]; var fns = []; if(prop) { if(prop.tau_fn_event === tau_fn_event) { if(prop.fns.indexOf(fn) === -1 ) prop.fns.push(fn); return true; } else { fns.push(prop); } }
fns.push(fn); element["on" + evt] = function(e) { for(var i = 0; i < fns.length; i++) fns[i].call(element, e, element); }; element["on" + evt].fns = fns; element["on" + evt].tau_fn_event = tau_fn_event; return true; };
var remove = function(element, evt, fn) {
if(element.removeEventListener) { element.removeEventListener(evt, fn); return true; }
else if(element.detachEvent) { element.detachEvent("on" + evt, fn); return true; }
else if(element["on" + evt]) { var f = element["on" + evt]; if(f === fn) element["on" + evt] = undefined; else if(f.tau_fn_event === tau_fn_event) { for(var i = 0; i < f.fns.length; i++) { if(f.fns[i] === fn) { f.fns.splice(i, 1); break; } } return true; } else return false; }
return true; };
return { add: add, remove: remove }; })();
if( typeof module !== 'undefined' ) { module.exports = function( p ) { pl = p; new pl.type.Module( "dom", predicates(), exports ); }; } else { new pl.type.Module( "dom", predicates(), exports ); }
})( pl );var pl;(function( pl ) {
var predicates = function() { return { // global/1 "global/1": function( thread, point, atom ) { thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [atom.args[0], pl.fromJavaScript.apply(pl.__env)] ) ), point.substitution, point )] ); }, // apply/3: "apply/3": [ new pl.type.Rule(new pl.type.Term("apply", [new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z")]), new pl.type.Term(",", [new pl.type.Term("global", [new pl.type.Var("G")]),new pl.type.Term("apply", [new pl.type.Var("G"),new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z")])])) ], // apply/4 "apply/4": function( thread, point, atom ) { var context = atom.args[0], name = atom.args[1], args = atom.args[2], result = atom.args[3]; if( pl.type.is_variable( context ) || pl.type.is_variable( name ) || pl.type.is_variable( args ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom( name ) && (!pl.type.is_js_object( name ) || typeof name.value !== "function") ) { thread.throw_error( pl.error.type( "atom_or_JSValueFUNCTION", name, atom.indicator ) ); } else if( !pl.type.is_list( args ) ) { thread.throw_error( pl.error.type( "list", args, atom.indicator ) ); } var ctx = context.toJavaScript(); var fn = pl.type.is_atom( name ) ? ctx[name.id] : name.toJavaScript(); if( typeof fn === "function" ) { var pointer = args; var pltojs; var arr = []; while( pointer.indicator === "./2" ) { pltojs = pointer.args[0].toJavaScript(); if( pltojs === undefined ) { thread.throw_error( pl.error.domain( "javascript_object", pointer.args[0], atom.indicator ) ); return undefined; } arr.push( pltojs ); pointer = pointer.args[1]; } if( pl.type.is_variable( pointer ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if( pointer.indicator !== "[]/0" ) { thread.throw_error( pl.error.type( "list", args, atom.indicator ) ); return } var value; try { value = fn.apply( ctx, arr ); } catch( e ) { thread.throw_error( pl.error.javascript( e.toString(), atom.indicator ) ); return; } value = pl.fromJavaScript.apply( value ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [value, result] ) ), point.substitution, point )] ); } },
// prop/2 (deprecated) "prop/2": [ new pl.type.Rule(new pl.type.Term("prop", [new pl.type.Var("X"),new pl.type.Var("Y")]), new pl.type.Term("get_prop", [new pl.type.Var("X"),new pl.type.Var("Y")])) ],
// prop/3 (deprecated) "prop/3": [ new pl.type.Rule(new pl.type.Term("prop", [new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z")]), new pl.type.Term("get_prop", [new pl.type.Var("X"),new pl.type.Var("Y"),new pl.type.Var("Z")])) ], // get_prop/2 "get_prop/2": [ new pl.type.Rule(new pl.type.Term("get_prop", [new pl.type.Var("X"),new pl.type.Var("Y")]), new pl.type.Term(",", [new pl.type.Term("global", [new pl.type.Var("G")]),new pl.type.Term("get_prop", [new pl.type.Var("G"),new pl.type.Var("X"),new pl.type.Var("Y")])])) ], // get_prop/3 "get_prop/3": function( thread, point, atom ) { var context = atom.args[0], name = atom.args[1], result = atom.args[2]; if( pl.type.is_variable( context ) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable( name ) && !pl.type.is_atom( name ) ) { thread.throw_error( pl.error.type( "atom", name, atom.indicator ) ); } else { if( pl.type.is_atom( name ) ) { var fn = context.toJavaScript()[name.id]; if( fn !== undefined ) { fn = pl.fromJavaScript.apply( fn ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term( "=", [fn, result] ) ), point.substitution, point )] ); } } else { var fn = context.toJavaScript(); var states = []; for( var x in fn ) { if( fn.hasOwnProperty( x ) ) { var fn_ = pl.fromJavaScript.apply( fn[x] ); states.push( new pl.type.State( point.goal.replace( new pl.type.Term( ",", [ new pl.type.Term( "=", [fn_, result] ), new pl.type.Term( "=", [new pl.type.Term(x, []), name] ) ]) ), point.substitution, point ) ); } } thread.prepend( states ); } } },
// set_prop/2: "set_prop/2": [ new pl.type.Rule(new pl.type.Term("set_prop", [new pl.type.Var("X"),new pl.type.Var("Y")]), new pl.type.Term(",", [new pl.type.Term("global", [new pl.type.Var("G")]),new pl.type.Term("set_prop", [new pl.type.Var("G"),new pl.type.Var("X"),new pl.type.Var("Y")])])) ],
// set_prop/3 "set_prop/3": function(thread, point, atom) { var context = atom.args[0], key = atom.args[1], value = atom.args[2]; if(pl.type.is_variable(context) || pl.type.is_variable(key)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(key)) { thread.throw_error(pl.error.type("atom", key, atom.indicator)); } else { var obj = context.toJavaScript(); if(obj !== undefined) { obj[key.id] = value.toJavaScript(); thread.success(point); } } },
// new/3 "new/3": function(thread, point, atom) { var obj = atom.args[0], args = atom.args[1], instance = atom.args[2]; if(pl.type.is_variable(obj) || pl.type.is_variable(args)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_js_object(obj)) { thread.throw_error(pl.error.type("JsValueOBJECT", args, atom.indicator)); } else if(!pl.type.is_list(args)) { thread.throw_error(pl.error.type("list", args, atom.indicator)); } else { var arr_args = []; var pointer = args; while(pl.type.is_term(pointer) && pointer.indicator === "./2") { arr_args.push(pointer.args[0].toJavaScript()); pointer = pointer.args[1]; } if(!pl.type.is_term(pointer) || pointer.indicator !== "[]/0") { thread.throw_error(pl.error.type("list", args, atom.indicator)); return; } try { var result = pl.fromJavaScript.apply( new (Function.prototype.bind.apply(obj.value, [null].concat(arr_args))) ); thread.prepend([ new pl.type.State( point.goal.replace(new pl.type.Term("=", [instance, result])), point.substitution, point ) ]); } catch(error) { thread.throw_error(pl.error.javascript(error.toString(), atom.indicator)); } } },
// json_prolog/2 "json_prolog/2": function( thread, point, atom ) { var json = atom.args[0], prolog = atom.args[1]; if( pl.type.is_variable(json) && pl.type.is_variable(prolog) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable(json) && (!pl.type.is_js_object(json) || typeof(json.value) !== "object")) { thread.throw_error( pl.error.type( "JsValueOBJECT", json, atom.indicator ) ); } else if( !pl.type.is_variable(prolog) && !pl.type.is_list(prolog) ) { thread.throw_error( pl.error.type( "list", prolog, atom.indicator ) ); } else { if(pl.type.is_variable(prolog)) { var list = pl.fromJavaScript.apply(json.value, true); thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("=", [prolog, list])), point.substitution, point )]); } else { var obj = new pl.type.JSValue(prolog.toJavaScript()); thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("=", [json, obj])), point.substitution, point )]); } } },
// json_atom/2 "json_atom/2": function( thread, point, atom ) { var json = atom.args[0], prolog = atom.args[1]; if( pl.type.is_variable(json) && pl.type.is_variable(prolog) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_variable(json) && (!pl.type.is_js_object(json) || typeof(json.value) !== "object")) { thread.throw_error( pl.error.type( "JsValueOBJECT", json, atom.indicator ) ); } else if( !pl.type.is_variable(prolog) && !pl.type.is_atom(prolog) ) { thread.throw_error( pl.error.type( "atom", prolog, atom.indicator ) ); } else { if(pl.type.is_variable(prolog)) { try { var jatom = new pl.type.Term(JSON.stringify(json.value), []); thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("=", [prolog, jatom])), point.substitution, point )]); } catch(ex) {} } else { try { var obj = pl.fromJavaScript.apply(JSON.parse(prolog.id)); thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("=", [json, obj])), point.substitution, point )]); } catch(ex) {} } } },
// ajax/3 "ajax/3": [ new pl.type.Rule(new pl.type.Term("ajax", [new pl.type.Var("Method"),new pl.type.Var("URL"),new pl.type.Var("Response")]), new pl.type.Term("ajax", [new pl.type.Var("Method"),new pl.type.Var("URL"),new pl.type.Var("Response"),new pl.type.Term("[]", [])])) ],
// ajax/4 "ajax/4": function( thread, point, atom ) { var method = atom.args[0], url = atom.args[1], value = atom.args[2], options = atom.args[3]; if(pl.type.is_variable(url) || pl.type.is_variable(method) || pl.type.is_variable(options)) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if(!pl.type.is_atom(url)) { thread.throw_error( pl.error.type( "atom", url, atom.indicator ) ); } else if(!pl.type.is_atom(method)) { thread.throw_error( pl.error.type( "atom", method, atom.indicator ) ); } else if(!pl.type.is_list(options)) { thread.throw_error( pl.error.type( "list", options, atom.indicator ) ); } else if(["connect", "delete", "get", "head", "options", "patch", "post", "put", "trace"].indexOf(method.id) === -1) { thread.throw_error( pl.error.domain( "http_method", method, atom.indicator ) ); } else { var pointer = options; var opt_type = null; var opt_timeout = 0; var opt_credentials = "false"; var opt_async = "true"; var opt_mime = null; var opt_headers = []; var opt_body = new FormData(); var opt_user = null; var opt_password = null; // Options while(pl.type.is_term(pointer) && pointer.indicator === "./2") { var option = pointer.args[0]; if(!pl.type.is_term(option) || option.args.length !== 1) { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } var prop = option.args[0]; // type/1 if(option.indicator === "type/1") { if(!pl.type.is_atom(prop) || prop.id !== "text" && prop.id !== "json" && prop.id !== "document") { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } opt_type = prop.id; // user/1 } else if(option.indicator === "user/1") { if(!pl.type.is_atom(prop)) { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } opt_user = prop.id; // password/1 } else if(option.indicator === "password/1") { if(!pl.type.is_atom(prop)) { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } opt_password = prop.id; // timeout/1 } else if(option.indicator === "timeout/1") { if(!pl.type.is_integer(prop) || prop.value < 0) { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } opt_timeout = prop.value; // async/1 } else if(option.indicator === "async/1") { if(!pl.type.is_atom(prop) || prop.id !== "true" && prop.id !== "false") { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } opt_async = prop.id; // credentials/1 } else if(option.indicator === "credentials/1") { if(!pl.type.is_atom(prop) || prop.id !== "true" && prop.id !== "false") { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } opt_credentials = prop.id; // mime/1 } else if(option.indicator === "mime/1") { if(!pl.type.is_atom(prop)) { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } opt_mime = prop.id; // headers/1 } else if(option.indicator === "headers/1") { if(!pl.type.is_list(prop)) { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } var hpointer = prop; while(pl.type.is_term(hpointer) && hpointer.indicator === "./2") { var header = hpointer.args[0]; if(!pl.type.is_term(header) || header.indicator !== "-/2" || !pl.type.is_atom(header.args[0]) || !pl.type.is_atom(header.args[1])) { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } opt_headers.push({header: header.args[0].id, value: header.args[1].id}); hpointer = hpointer.args[1]; } if(pl.type.is_variable(hpointer)) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if(!pl.type.is_term(hpointer) || hpointer.indicator !== "[]/0") { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } // body/1 } else if(option.indicator === "body/1") { if(!pl.type.is_list(prop) && (pl.type.is_dom_object === undefined || !pl.type.is_dom_object(prop)) && !pl.type.is_atom(prop)) { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } if(pl.type.is_list(prop)) { var hpointer = prop; while(pl.type.is_term(hpointer) && hpointer.indicator === "./2") { var body = hpointer.args[0]; if(!pl.type.is_term(body) || body.indicator !== "-/2" || !pl.type.is_atom(body.args[0]) || !pl.type.is_atom(body.args[1])) { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } opt_body.append(body.args[0].id, body.args[1].id); hpointer = hpointer.args[1]; } if(pl.type.is_variable(hpointer)) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if(!pl.type.is_term(hpointer) || hpointer.indicator !== "[]/0") { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } } else if(pl.type.is_atom(prop)) { opt_body = prop.id; } else { opt_body = prop.value; } // otherwise } else { thread.throw_error( pl.error.domain( "ajax_option", option, atom.indicator ) ); return; } pointer = pointer.args[1]; } if(pl.type.is_variable(pointer)) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if(!pl.type.is_term(pointer) || pointer.indicator !== "[]/0") { thread.throw_error( pl.error.type( "list", options, atom.indicator ) ); return; } // Request var xhttp = new XMLHttpRequest(); if(opt_mime !== null) xhttp.overrideMimeType(opt_mime); var fn = function() { if(this.readyState == 4) { if(this.status == 200) { // Get response var data = null; var content_type = this.getResponseHeader("Content-Type"); if(this.responseType === "json" && this.response) { data = pl.fromJavaScript.apply(this.response); } else if(this.responseType === "" && content_type.indexOf("application/json") !== -1) { try { data = pl.fromJavaScript.apply(JSON.parse(this.responseText)); } catch(e) {} } if(data === null) { if((this.responseType === "document" || this.responseType === "" && content_type.indexOf("text/html") !== -1 || this.responseType === "" && content_type.indexOf("application/xml") !== -1) && this.responseXML !== null && pl.type.DOM !== undefined) { data = new pl.type.DOM( this.responseXML ); } else if(this.responseType === "" || this.responseType === "text") { data = new pl.type.Term(this.responseText, []); } } // Add answer if(data !== null) thread.prepend( [ new pl.type.State( point.goal.replace(new pl.type.Term("=", [value, data])), point.substitution, point ) ] ); } if(opt_async === "true") thread.again(); } }; xhttp.onreadystatechange = fn; xhttp.open(method.id.toUpperCase(), url.id, opt_async === "true", opt_user, opt_password); if(opt_type !== null && opt_async === "true") xhttp.responseType = opt_type; xhttp.withCredentials = opt_credentials === "true"; if(opt_async === "true") xhttp.timeout = opt_timeout; for(var i = 0; i < opt_headers.length; i++) xhttp.setRequestHeader(opt_headers[i].header, opt_headers[i].value); xhttp.send(opt_body); if(opt_async === "true") return true; else fn.apply(xhttp); } }
}; }; var exports = ["global/1", "apply/3", "apply/4", "prop/2", "prop/3", "get_prop/2", "get_prop/3", "set_prop/2", "set_prop/3", "new/3", "json_prolog/2", "json_atom/2", "ajax/3", "ajax/4"];
// JS OBJECTS function define_properties() {
// Is a JS object pl.type.is_js_object = function( obj ) { return obj instanceof pl.type.JSValue; };
// Ordering relation pl.type.order.push( pl.type.JSValue );
// JSValue Prolog object pl.type.JSValue = function( value ) { this.value = value; }
// toString pl.type.JSValue.prototype.toString = function() { return "<javascript>(" + (typeof this.value).toLowerCase() + ")"; };
// clone pl.type.JSValue.prototype.clone = function() { return new pl.type.JSValue( this.value ); };
// equals pl.type.JSValue.prototype.equals = function( obj ) { return pl.type.is_js_object( obj ) && this.value === obj.value; };
// rename pl.type.JSValue.prototype.rename = function( _ ) { return this; };
// get variables pl.type.JSValue.prototype.variables = function() { return []; };
// apply substitutions pl.type.JSValue.prototype.apply = function( _ ) { return this; };
// unify pl.type.JSValue.prototype.unify = function(obj, occurs_check) { if(pl.type.is_js_object(obj) && this.value === obj.value) return new pl.type.Substitution(); if(pl.type.is_term(obj) && obj.indicator === "{}/1") { var left = [], right = []; var pointer = obj.args[0]; var props = []; while(pl.type.is_term(pointer) && pointer.indicator === ",/2") { props.push(pointer.args[0]); pointer = pointer.args[1]; } props.push(pointer); for(var i = 0; i < props.length; i++) { var bind = props[i]; if(!pl.type.is_term(bind) || bind.indicator !== ":/2") return null; var name = bind.args[0]; if(!pl.type.is_atom(name) || !this.value.hasOwnProperty(name.id)) return null; var value = pl.fromJavaScript.apply(this.value[name.id]); right.push(bind.args[1]); left.push(value); } return pl.unify(left, right, occurs_check); } return null; };
// interpret pl.type.JSValue.prototype.interpret = function( indicator ) { return pl.error.instantiation( indicator ); };
// compare pl.type.JSValue.prototype.compare = function( obj ) { if( this.value === obj.value ) { return 0; } else if( this.value < obj.value ) { return -1; } else if( this.value > obj.value ) { return 1; } };
// to javascript pl.type.JSValue.prototype.toJavaScript = function() { return this.value; };
// from javascript pl.fromJavaScript.conversion.any = function( obj ) { return new pl.type.JSValue( obj ); };
// JavaScript error pl.error.javascript = function( error, indicator ) { return new pl.type.Term( "error", [new pl.type.Term( "javascript_error", [new pl.type.Term( error )] ), pl.utils.str_indicator( indicator )] ); }; }
if( typeof module !== 'undefined' ) { module.exports = function( p ) { pl = p; define_properties(); new pl.type.Module( "js", predicates(), exports ); }; } else { define_properties(); new pl.type.Module( "js", predicates(), exports ); }
})( pl );var pl;(function( pl ) {
var predicates = function() { return { // OPERATING SYSTEM INTERACTION
// sleep/1 "sleep/1": function( thread, point, atom ) { var time = atom.args[0]; if( pl.type.is_variable( time ) ) { thread.throw_error( pl.error.instantiation( thread.level ) ); } else if( !pl.type.is_integer( time ) ) { thread.throw_error( pl.error.type( "integer", time, thread.level ) ); } else { setTimeout( function() { thread.success( point ); thread.again(); }, time.value ); return true; } },
// shell/1 "shell/1": function( thread, point, atom ) { var command = atom.args[0]; thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term("shell", [command, new pl.type.Num(0, false)]) ), point.substitution, point )] ); },
// shell/2 "shell/2": function( thread, point, atom ) { var command = atom.args[0], status = atom.args[1]; if( pl.type.is_variable(command) ) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); } else if( !pl.type.is_atom(command) ) { thread.throw_error( pl.error.type( "atom", command, atom.indicator ) ); } else if( !pl.type.is_variable(status) && !pl.type.is_integer(status) ) { thread.throw_error( pl.error.type( "integer", status, atom.indicator ) ); } else { if(thread.get_flag("nodejs").indicator === "true/0") { const { exec } = require('child_process'); exec( command.id, function() {} ).on( 'exit', function(code) { thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term("=", [status, new pl.type.Num(code, false)]) ), point.substitution, point )] ); thread.again(); } ); return true; } else { try { eval( command.id ); thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term("=", [status, new pl.type.Num(0, false)]) ), point.substitution, point )] ); } catch( error ) { thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term("=", [status, new pl.type.Num(1, false)]) ), point.substitution, point )] ); } } } },
// directory_files/2 "directory_files/2": function(thread, point, atom) { var path = atom.args[0], entries = atom.args[1]; if(pl.type.is_variable(path)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(path)) { thread.throw_error(pl.error.type("atom", path, atom.indicator)); } else if(!pl.type.is_variable(entries) && !pl.type.is_list(entries)) { thread.throw_error(pl.error.type("list", entries, atom.indicator)); } else { var absolute = thread.absolute_file_name(path.id); if(thread.get_flag("nodejs").indicator === "true/0") { var fs = require('fs'); fs.readdir(absolute, function(error, items) { if(error) { thread.throw_error(pl.error.existence("directory", path, atom.indicator)); } else { var listing = new pl.type.Term("[]", []); for(var i = items.length-1; i >= 0; i--) listing = new pl.type.Term(".", [new pl.type.Term(items[i], []), listing]); thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("=", [entries, listing])), point.substitution, point )]); } thread.again(); }); return true; } else { var file = thread.session.file_system.get(absolute); if(pl.type.is_directory(file)) { var items = []; for(var prop in file.files) items.push(prop); var listing = new pl.type.Term("[]", []); for(var i = items.length-1; i >= 0; i--) listing = new pl.type.Term(".", [new pl.type.Term(items[i], []), listing]); thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("=", [entries, listing])), point.substitution, point )]); } else { thread.throw_error(pl.error.existence("directory", path, atom.indicator)); } } } },
// working_directory/2 "working_directory/2": function(thread, point, atom) { var oldcwd = atom.args[0], newcwd = atom.args[1]; if(pl.type.is_variable(newcwd) && (!pl.type.is_variable(oldcwd) || oldcwd.id !== newcwd.id)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_variable(oldcwd) && !pl.type.is_atom(oldcwd)) { thread.throw_error(pl.error.type("atom", oldcwd, atom.indicator)); } else if(!pl.type.is_variable(newcwd) && !pl.type.is_atom(newcwd)) { thread.throw_error(pl.error.type("atom", newcwd, atom.indicator)); } else { var wd; if(thread.get_flag("nodejs").indicator === "true/0") { wd = process.cwd(); if(!pl.type.is_variable(newcwd)) try { process.chdir(thread.absolute_file_name(newcwd.id)); } catch(ex) { thread.throw_error(pl.error.existence("directory", newcwd, atom.indicator)); return; } } else { wd = thread.session.working_directory; if(!pl.type.is_variable(newcwd)) { thread.session.working_directory = thread.absolute_file_name(newcwd.id); } } thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("=", [oldcwd, new pl.type.Term(wd, [])])), point.substitution, point )]); } },
// delete_file/1 "delete_file/1": function(thread, point, atom) { var path = atom.args[0]; if(pl.type.is_variable(path)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(path)) { thread.throw_error(pl.error.type("atom", path, atom.indicator)); } else { var absolute = thread.absolute_file_name(path.id); if(thread.get_flag("nodejs").indicator === "true/0") { var fs = require('fs'); fs.stat(absolute, function(error, stat) { if(!error && stat.isFile()) { fs.unlink(absolute, function(error) { if(error) thread.throw_error(pl.error.permission("delete", "source_sink", path, atom.indicator)); else thread.success(point); thread.again(); }); } else { thread.throw_error(pl.error.existence("source_sink", path, atom.indicator)); thread.again(); } }); return true; } else { var file = thread.session.file_system.get(absolute); if(pl.type.is_file(file)) { file.parent.remove(file.name); thread.success(point); } else { thread.throw_error(pl.error.existence("source_sink", path, atom.indicator)); } } } },
// delete_directory/1 "delete_directory/1": function(thread, point, atom) { var path = atom.args[0]; if(pl.type.is_variable(path)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(path)) { thread.throw_error(pl.error.type("atom", path, atom.indicator)); } else { var absolute = thread.absolute_file_name(path.id); if(thread.get_flag("nodejs").indicator === "true/0") { var fs = require('fs'); fs.stat(absolute, function(error, stat) { if(!error && stat.isDirectory()) { fs.rmdir(absolute, function(error) { if(error) thread.throw_error(pl.error.permission("delete", "directory", path, atom.indicator)); else thread.success(point); thread.again(); }); } else { thread.throw_error(pl.error.existence("directory", path, atom.indicator)); thread.again(); } }); return true; } else { var file = thread.session.file_system.get(absolute); if(pl.type.is_directory(file)) { if(file !== thread.session.file_system.files && file.empty()) { file.parent.remove(file.name); thread.success(point); } else { thread.throw_error(pl.error.permission("delete", "directory", path, atom.indicator)); } } else { thread.throw_error(pl.error.existence("directory", path, atom.indicator)); } } } },
// make_directory/1 "make_directory/1": function(thread, point, atom) { var path = atom.args[0]; if(pl.type.is_variable(path)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(path)) { thread.throw_error(pl.error.type("atom", path, atom.indicator)); } else { var absolute = thread.absolute_file_name(path.id); if(thread.get_flag("nodejs").indicator === "true/0") { var fs = require('fs'); fs.stat(absolute, function(error, stat) { if(!error && (stat.isDirectory() || stat.isFile())) { thread.throw_error(pl.error.permission("create", "directory", path, atom.indicator)); thread.again(); } else { fs.mkdir(absolute, function(error) { if(error) thread.throw_error(pl.error.existence("directory", path, atom.indicator)); else thread.success(point); thread.again(); }); } }); return true; } else { var dirs = absolute.replace(/\/$/, "").split("/"); var dir = thread.session.file_system.files; var name = dirs[dirs.length-1]; for(var i = 1; i < dirs.length-1; i++) { dir = dir.lookup(dirs[i]); if(!pl.type.is_directory(dir)) { thread.throw_error(pl.error.existence("directory", path, atom.indicator)); return; } } if(dir.lookup(name)) { thread.throw_error(pl.error.permission("create", "directory", path, atom.indicator)); } else { dir.push(name, new pl.type.Directory(name, dir)); thread.success(point); } } } },
// copy_file/2 "copy_file/2": function(thread, point, atom) { var old_path = atom.args[0], new_path = atom.args[1]; if(pl.type.is_variable(old_path) || pl.type.is_variable(new_path)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(old_path)) { thread.throw_error(pl.error.type("atom", old_path, atom.indicator)); } else if(!pl.type.is_atom(new_path)) { thread.throw_error(pl.error.type("atom", new_path, atom.indicator)); } else { var old_absolute = thread.absolute_file_name(old_path.id); var new_absolute = thread.absolute_file_name(new_path.id); if(thread.get_flag("nodejs").indicator === "true/0") { var fs = require('fs'); fs.stat(old_absolute, function(error, stat) { if(error || !stat.isFile()) { thread.throw_error(pl.error.existence("source_sink", old_path, atom.indicator)); thread.again(); } else { fs.copyFile(old_absolute, new_absolute, function(error) { if(error) thread.throw_error(pl.error.existence("source_sink", new_path, atom.indicator)); else thread.success(point); thread.again(); }); } }); return true; } else { var old_file = thread.file_system_open(old_absolute, "text", "read"); if(old_file) { var new_file = thread.file_system_open(new_absolute, "text", "write"); if(new_file) { new_file.text = old_file.text; thread.success(point); } else { thread.throw_error(pl.error.existence("source_sink", new_path, atom.indicator)); } } else { thread.throw_error(pl.error.existence("source_sink", old_path, atom.indicator)); } } } },
// rename_file/2 "rename_file/2": function(thread, point, atom) { var old_path = atom.args[0], new_path = atom.args[1]; if(pl.type.is_variable(old_path) || pl.type.is_variable(new_path)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(old_path)) { thread.throw_error(pl.error.type("atom", old_path, atom.indicator)); } else if(!pl.type.is_atom(new_path)) { thread.throw_error(pl.error.type("atom", new_path, atom.indicator)); } else { var old_absolute = thread.absolute_file_name(old_path.id); var new_absolute = thread.absolute_file_name(new_path.id); if(thread.get_flag("nodejs").indicator === "true/0") { var fs = require('fs'); fs.stat(old_absolute, function(error, stat) { if(error || !stat.isFile()) { thread.throw_error(pl.error.existence("source_sink", old_path, atom.indicator)); thread.again(); } else { fs.rename(old_absolute, new_absolute, function(error) { if(error) thread.throw_error(pl.error.existence("source_sink", new_path, atom.indicator)); else thread.success(point); thread.again(); }); } }); return true; } else { var old_file = thread.file_system_open(old_absolute, "text", "read"); if(old_file) { var new_file = thread.file_system_open(new_absolute, "text", "write"); if(new_file) { new_file.text = old_file.text; var dirs = old_absolute.replace(/\/$/, "").split("/"); var dir = thread.session.file_system.files; var name = dirs[dirs.length-1]; for(var i = 1; i < dirs.length-1; i++) dir = dir.lookup(dirs[i]); dir.remove(name); thread.success(point); } else { thread.throw_error(pl.error.existence("source_sink", new_path, atom.indicator)); } } else { thread.throw_error(pl.error.existence("source_sink", old_path, atom.indicator)); } } } }, // exists_file/1 "exists_file/1": function(thread, point, atom) { var path = atom.args[0]; if(pl.type.is_variable(path)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(path)) { thread.throw_error(pl.error.type("atom", path, atom.indicator)); } else { var absolute = thread.absolute_file_name(path.id); if(thread.get_flag("nodejs").indicator === "true/0") { var fs = require('fs'); fs.stat(absolute, function(error, stat) { if(!error && stat.isFile()) thread.success(point); thread.again(); }); return true; } else { var file = thread.session.file_system.get(absolute); if(pl.type.is_file(file)) thread.success(point); } } },
// exists_directory/1 "exists_directory/1": function(thread, point, atom) { var path = atom.args[0]; if(pl.type.is_variable(path)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(path)) { thread.throw_error(pl.error.type("atom", path, atom.indicator)); } else { var absolute = thread.absolute_file_name(path.id); if(thread.get_flag("nodejs").indicator === "true/0") { var fs = require('fs'); fs.stat(absolute, function(error, stat) { if(!error && stat.isDirectory()) thread.success(point); thread.again(); }); return true; } else { var file = thread.session.file_system.get(absolute); if(pl.type.is_directory(file)) thread.success(point); } } },
// same_file/2 "same_file/2": function(thread, point, atom) { var fst_path = atom.args[0], snd_path = atom.args[1]; if(pl.type.is_variable(fst_path) || pl.type.is_variable(snd_path)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(fst_path)) { thread.throw_error(pl.error.type("atom", fst_path, atom.indicator)); } else if(!pl.type.is_atom(snd_path)) { thread.throw_error(pl.error.type("atom", snd_path, atom.indicator)); } else { if(fst_path.id === snd_path.id) { thread.success(point); } else { var fst_absolute = thread.absolute_file_name(fst_path.id); var snd_absolute = thread.absolute_file_name(snd_path.id); if(thread.get_flag("nodejs").indicator === "true/0") { var fs = require('fs'); fs.stat(fst_absolute, function(error, fst_stat) { if(!error) fs.stat(snd_absolute, function(error, snd_stat) { if(!error && fst_stat.dev === snd_stat.dev && fst_stat.ino === snd_stat.ino) thread.success(point); thread.again(); }); else thread.again(); }); return true; } else { var fst_file = thread.session.file_system.get(fst_absolute); var snd_file = thread.session.file_system.get(snd_absolute); if(fst_file && snd_file && fst_file === snd_file) thread.success(point); } } } },
// absolute_file_name/2 "absolute_file_name/2": function(thread, point, atom) { var filename = atom.args[0], absolute = atom.args[1]; if(pl.type.is_variable(filename)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(filename)) { thread.throw_error(pl.error.type("atom", filename, atom.indicator)); } else if(!pl.type.is_variable(absolute) && !pl.type.is_atom(absolute)) { thread.throw_error(pl.error.type("atom", absolute, atom.indicator)); } else { var absolute_filename = thread.absolute_file_name(filename.id); thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("=", [ absolute, new pl.type.Term(absolute_filename, [])])), point.substitution, point )]); } },
// is_absolute_file_name/1 "is_absolute_file_name/1": function(thread, point, atom) { var filename = atom.args[0]; if(pl.type.is_variable(filename)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(filename)) { thread.throw_error(pl.error.type("atom", filename, atom.indicator)); } else { if(thread.get_flag("nodejs").indicator === "true/0") { var path = require('path'); var expand = filename.id; for(var prop in process.env) { if(!process.env.hasOwnProperty(prop)) continue; expand = expand.replace(new RegExp("\\$" + prop, "g"), process.env[prop]); } if(path.isAbsolute(expand)) thread.success(point); } else { if(filename.id.length > 0 && filename.id[0] === "/") thread.success(point); } } },
// size_file/2 "size_file/2": function(thread, point, atom) { var path = atom.args[0], size = atom.args[1]; if(pl.type.is_variable(path)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(path)) { thread.throw_error(pl.error.type("atom", path, atom.indicator)); } else if(!pl.type.is_variable(size) && !pl.type.is_integer(size)) { thread.throw_error(pl.error.type("integer", size, atom.indicator)); } else { var absolute = thread.absolute_file_name(path.id); if(thread.get_flag("nodejs").indicator === "true/0") { var fs = require('fs'); fs.stat(absolute, function(error, stat) { if(!error) { var filesize = stat.size; thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("=", [size, new pl.type.Num(filesize, false)])), point.substitution, point )]); } else { thread.throw_error(pl.error.existence("source_sink", path, atom.indicator)); } thread.again(); }); return true; } else { var file = thread.session.file_system.get(absolute); if(pl.type.is_file(file) || pl.type.is_directory(file)) { var filesize = file.size(); thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("=", [size, new pl.type.Num(filesize, false)])), point.substitution, point )]); } else { thread.throw_error(pl.error.existence("source_sink", path, atom.indicator)); } } } },
// time_file/2 "time_file/2": function(thread, point, atom) { var path = atom.args[0], time = atom.args[1]; if(pl.type.is_variable(path)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(path)) { thread.throw_error(pl.error.type("atom", path, atom.indicator)); } else if(!pl.type.is_variable(time) && !pl.type.is_number(time)) { thread.throw_error(pl.error.type("number", time, atom.indicator)); } else { var absolute = thread.absolute_file_name(path.id); if(thread.get_flag("nodejs").indicator === "true/0") { var fs = require('fs'); fs.stat(absolute, function(error, stat) { if(!error) { var mtime = stat.mtime / 1000; thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("=", [time, new pl.type.Num(mtime)])), point.substitution, point )]); } else { thread.throw_error(pl.error.existence("source_sink", path, atom.indicator)); } thread.again(); }); return true; } else { var file = thread.session.file_system.get(absolute); if(pl.type.is_file(file) || pl.type.is_directory(file)) { var mtime = file.modified; thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("=", [time, new pl.type.Num(mtime)])), point.substitution, point )]); } else { thread.throw_error(pl.error.existence("source_sink", path, atom.indicator)); } } } }, // file_permission/2 "file_permission/2": function(thread, point, atom) { var path = atom.args[0]; var permission = atom.args[1]; if(pl.type.is_variable(path) || pl.type.is_variable(permission)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(path)) { thread.throw_error(pl.error.type("atom", path, atom.indicator)); } else if(!pl.type.is_atom(permission)) { thread.throw_error(pl.error.type("atom", permission, atom.indicator)); } else { var absolute = thread.absolute_file_name(path.id); if(thread.get_flag("nodejs").indicator === "true/0") { var fs = require('fs'); if(permission.indicator === "read/0") { fs.access(absolute, fs.constants.R_OK, function(error, stat) { if(!error) thread.success(point); thread.again(); }); return true; } else if(permission.indicator === "write/0") { fs.access(absolute, fs.constants.W_OK, function(error, stat) { if(!error) thread.success(point); thread.again(); }); return true; } else if(permission.indicator === "execute/0") { fs.access(absolute, fs.constants.X_OK, function(error, stat) { if(!error) thread.success(point); thread.again(); }); return true; } else { thread.throw_error(pl.error.domain( "file_permission", permission, atom.indicator )); } } else { var file = thread.session.file_system.get(absolute); if(pl.type.is_file(file)) thread.success(point); } } },
// getenv/2 "getenv/2": function(thread, point, atom) { var name = atom.args[0], value = atom.args[1]; if(!pl.type.is_variable(name) && !pl.type.is_atom(name)) { thread.throw_error(pl.error.type("atom", name, atom.indicator)); } else if(!pl.type.is_variable(value) && !pl.type.is_atom(value)) { thread.throw_error(pl.error.type("atom", value, atom.indicator)); } else { if(thread.get_flag("nodejs").indicator === "true/0") { var points = []; if(pl.type.is_variable(name)) { for(var prop in process.env) { if(!process.env.hasOwnProperty(prop)) continue; var getname = new pl.type.Term(prop, []); var getvalue = new pl.type.Term(process.env[prop], []); points.push(new pl.type.State( point.goal.replace(new pl.type.Term(",", [ new pl.type.Term("=", [name, getname]), new pl.type.Term("=", [value, getvalue]) ])), point.substitution, point )); } } else { var getvalue = process.env[name.id] ? new pl.type.Term(process.env[name.id].toString(), []) : null; if(getvalue !== null) { points.push(new pl.type.State( point.goal.replace(new pl.type.Term("=", [value, getvalue])), point.substitution, point )); } } thread.prepend(points); } } },
// setenv/2 "setenv/2": function(thread, point, atom) { var name = atom.args[0], value = atom.args[1]; if(pl.type.is_variable(name) || pl.type.is_variable(value)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(name) && !pl.type.is_integer(name)) { thread.throw_error(pl.error.type("atom_or_integer", name, atom.indicator)); } else if(!pl.type.is_atom(value) && !pl.type.is_integer(value)) { thread.throw_error(pl.error.type("atom_or_integer", value, atom.indicator)); } else { if(thread.get_flag("nodejs").indicator === "true/0") { var getname = pl.type.is_atom(name) ? name.id : name.value.toString(); var getvalue = pl.type.is_atom(value) ? value.id : value.value.toString(); process.env[getname] = getvalue; thread.success(point); } } },
// unsetenv/1 "unsetenv/1": function(thread, point, atom) { var name = atom.args[0]; if(pl.type.is_variable(name)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else if(!pl.type.is_atom(name) && !pl.type.is_integer(name)) { thread.throw_error(pl.error.type("atom_or_integer", name, atom.indicator)); } else { if(thread.get_flag("nodejs").indicator === "true/0") { var getname = pl.type.is_atom(name) ? name.id : name.value.toString(); delete process.env[getname]; thread.success(point); } } },
// pid/1 "pid/1": function(thread, point, atom) { var pid = atom.args[0]; if(!pl.type.is_variable(pid) && !pl.type.is_integer(pid)) { thread.throw_error(pl.error.type("integer", pid, atom.indicator)); } else { var points = []; if(thread.get_flag("nodejs").indicator === "true/0") { var process = require('process'); points.push(new pl.type.State( point.goal.replace( new pl.type.Term("=", [pid, new pl.type.Num(process.pid, false)]) ), point.substitution, point )); } else { points.push(new pl.type.State( point.goal.replace( new pl.type.Term("=", [pid, new pl.type.Num(0, false)]) ), point.substitution, point )); } thread.prepend(points); } } }; }; var exports = ["sleep/1", "shell/1", "shell/2", "directory_files/2", "working_directory/2", "delete_file/1", "delete_directory/1", "rename_file/2", "copy_file/2", "make_directory/1", "exists_file/1", "exists_directory/1", "same_file/2", "absolute_file_name/2", "is_absolute_file_name/1", "size_file/2", "file_permission/2", "time_file/2", "getenv/2", "setenv/2", "unsetenv/1", "pid/1"];
if( typeof module !== 'undefined' ) { module.exports = function( p ) { pl = p; new pl.type.Module( "os", predicates(), exports ); }; } else { new pl.type.Module( "os", predicates(), exports ); }
})( pl );var pl;(function(pl) { var name = "charsio"; var predicates = function() { return { // write_to_chars/2 "write_to_chars/2": function(thread, point, atom) { var term = atom.args[0], chars = atom.args[1]; thread.prepend([new pl.type.State( point.goal.replace( new pl.type.Term("write_term_to_chars", [term, new pl.type.Term(".", [new pl.type.Term("quoted", [new pl.type.Term("false", [])]), new pl.type.Term(".", [new pl.type.Term("ignore_ops", [new pl.type.Term("false")]), new pl.type.Term(".", [new pl.type.Term("numbervars", [new pl.type.Term("true")]), new pl.type.Term("[]",[])])])]), chars]) ), point.substitution, point )]); },
// writeq_to_chars/2 "writeq_to_chars/2": function(thread, point, atom) { var term = atom.args[0], chars = atom.args[1]; thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("write_term_to_chars", [term, new pl.type.Term(".", [new pl.type.Term("quoted", [new pl.type.Term("true", [])]), new pl.type.Term(".", [new pl.type.Term("ignore_ops", [new pl.type.Term("false")]), new pl.type.Term(".", [new pl.type.Term("numbervars", [new pl.type.Term("true")]), new pl.type.Term("[]",[])])])]), chars]) ), point.substitution, point )]); },
// write_canonical_to_chars/2 "write_canonical_to_chars/2": function(thread, point, atom) { var term = atom.args[0], chars = atom.args[1]; thread.prepend( [new pl.type.State( point.goal.replace( new pl.type.Term("write_term_to_chars", [term, new pl.type.Term(".", [new pl.type.Term("quoted", [new pl.type.Term("true", [])]), new pl.type.Term(".", [new pl.type.Term("ignore_ops", [new pl.type.Term("true")]), new pl.type.Term(".", [new pl.type.Term("numbervars", [new pl.type.Term("false")]), new pl.type.Term("[]",[])])])]), chars]) ), point.substitution, point )]); },
// write_term_to_chars/3 "write_term_to_chars/3": function(thread, point, atom) { var term = atom.args[0], options = atom.args[1], chars = atom.args[2]; if(!pl.type.is_variable(chars) && !pl.type.is_list(chars)) { thread.throw_error(pl.error.type("list", chars, atom.indicator)); } else if(pl.type.is_variable(options)) { thread.throw_error(pl.error.instantiation(atom.indicator)); } else { // check chars if(!pl.type.is_variable(chars)) { var pointer = chars; while(pl.type.is_term(pointer) && pointer.indicator === "./2") { var char = pointer.args[0]; if(!pl.type.is_character(char)) { thread.throw_error(pl.error.type("character", char, atom.indicator)); return; } pointer = pointer.args[1]; } if(!pl.type.is_variable(pointer) && !pl.type.is_empty_list(pointer)) { thread.throw_error(pl.error.type("list", chars, atom.indicator)); return; } } // get options var obj_options = {}; var pointer = options; var property; while(pl.type.is_term(pointer) && pointer.indicator === "./2") { property = pointer.args[0]; if(pl.type.is_variable(property)) { thread.throw_error( pl.error.instantiation( atom.indicator ) ); return; } else if(!pl.type.is_write_option(property)) { thread.throw_error( pl.error.domain("write_option", property, atom.indicator)); return; } obj_options[property.id] = property.args[0].id === "true"; pointer = pointer.args[1]; } if(pointer.indicator !== "[]/0") { if(pl.type.is_variable(pointer)) thread.throw_error(pl.error.instantiation(atom.indicator)); else thread.throw_error(pl.error.type("list", options, atom.indicator)); return; } else { obj_options.session = thread.session; var text = term.toString( obj_options ); var list = new pl.type.Term("[]", []); for(var i = pl.utils.stringLength(text)-1; i >= 0; i--) list = new pl.type.Term(".", [new pl.type.Term(pl.utils.fromCodePoint(pl.utils.codePointAt(text, i)), []), list]); thread.prepend([new pl.type.State( point.goal.replace(new pl.type.Term("=", [chars, list])), point.substitution, point )]); } } } }; }; var exports = ["write_to_chars/2", "writeq_to_chars/2", "write_canonical_to_chars/2", "write_term_to_chars/3"]; if(typeof module !== 'undefined') { module.exports = function(p) { pl = p; new pl.type.Module(name, predicates(), exports); }; } else { new pl.type.Module(name, predicates(), exports); }})(pl);var pl;(function(pl) { var name = "format"; var predicates = function() { return { "format_/4": [ new pl.type.Rule(new pl.type.Term("format_", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32320"),new pl.type.Var("_32322")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("is_list", [new pl.type.Var("_32316")]),new pl.type.Term("true", [])]),new pl.type.Term("throw", [new pl.type.Term("error", [new pl.type.Term("type_error", [new pl.type.Term("list", []),new pl.type.Var("_32316")]),new pl.type.Term("//", [new pl.type.Term("format_", []),new pl.type.Num(2, false)])])])]),new pl.type.Term(",", [new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("is_list", [new pl.type.Var("_32317")]),new pl.type.Term("true", [])]),new pl.type.Term("throw", [new pl.type.Term("error", [new pl.type.Term("type_error", [new pl.type.Term("list", []),new pl.type.Var("_32317")]),new pl.type.Term("//", [new pl.type.Term("format_", []),new pl.type.Num(2, false)])])])]),new pl.type.Term(",", [new pl.type.Term("unique_variable_names", [new pl.type.Var("_32317"),new pl.type.Var("_32318")]),new pl.type.Term("phrase", [new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Num(0, false),new pl.type.Term("[]", []),new pl.type.Var("_32318")]),new pl.type.Var("_32319")])])])]),new pl.type.Term("=", [new pl.type.Var("_32320"),new pl.type.Var("_32321")])]),new pl.type.Term("format_cells", [new pl.type.Var("_32319"),new pl.type.Var("_32321"),new pl.type.Var("_32322")])])) ], "format_cells/3": [ new pl.type.Rule(new pl.type.Term("format_cells", [new pl.type.Term("[]", []),new pl.type.Var("_32323"),new pl.type.Var("_32323")]), new pl.type.Term("true", [])), new pl.type.Rule(new pl.type.Term("format_cells", [new pl.type.Term(".", [new pl.type.Var("_32324"),new pl.type.Var("_32319")]),new pl.type.Var("_32325"),new pl.type.Var("_32327")]), new pl.type.Term(",", [new pl.type.Term("format_cell", [new pl.type.Var("_32324"),new pl.type.Var("_32325"),new pl.type.Var("_32326")]),new pl.type.Term("format_cells", [new pl.type.Var("_32319"),new pl.type.Var("_32326"),new pl.type.Var("_32327")])])) ], "format_cell/3": [ new pl.type.Rule(new pl.type.Term("format_cell", [new pl.type.Term("newline", []),new pl.type.Term(".", [new pl.type.Term("\n", []),new pl.type.Var("_32329")]),new pl.type.Var("_32329")]), null), new pl.type.Rule(new pl.type.Term("format_cell", [new pl.type.Term("cell", [new pl.type.Var("_32330"),new pl.type.Var("_32331"),new pl.type.Var("_32332")]),new pl.type.Var("_32341"),new pl.type.Var("_32343")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("phrase", [new pl.type.Term("elements_gluevars", [new pl.type.Var("_32332"),new pl.type.Num(0, false),new pl.type.Var("_32333")]),new pl.type.Var("_32334")]),new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("=", [new pl.type.Var("_32334"),new pl.type.Term("[]", [])]),new pl.type.Term("true", [])]),new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("_32335"),new pl.type.Term("-", [new pl.type.Term("-", [new pl.type.Var("_32331"),new pl.type.Var("_32330")]),new pl.type.Var("_32333")])]),new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("=<", [new pl.type.Var("_32335"),new pl.type.Num(0, false)]),new pl.type.Term("maplist", [new pl.type.Term("=", [new pl.type.Num(0, false)]),new pl.type.Var("_32334")])]),new pl.type.Term(",", [new pl.type.Term("length", [new pl.type.Var("_32334"),new pl.type.Var("_32336")]),new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("_32337"),new pl.type.Term("//", [new pl.type.Var("_32335"),new pl.type.Var("_32336")])]),new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("_32338"),new pl.type.Term("-", [new pl.type.Var("_32335"),new pl.type.Term("*", [new pl.type.Var("_32337"),new pl.type.Var("_32336")])])]),new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("=:=", [new pl.type.Var("_32338"),new pl.type.Num(0, false)]),new pl.type.Term("maplist", [new pl.type.Term("=", [new pl.type.Var("_32337")]),new pl.type.Var("_32334")])]),new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("_32339"),new pl.type.Term("+", [new pl.type.Var("_32337"),new pl.type.Var("_32338")])]),new pl.type.Term(",", [new pl.type.Term("reverse", [new pl.type.Var("_32334"),new pl.type.Term(".", [new pl.type.Var("_32339"),new pl.type.Var("_32340")])]),new pl.type.Term("maplist", [new pl.type.Term("=", [new pl.type.Var("_32337")]),new pl.type.Var("_32340")])])])])])])])])])])]),new pl.type.Term("=", [new pl.type.Var("_32341"),new pl.type.Var("_32342")])]),new pl.type.Term("format_elements", [new pl.type.Var("_32332"),new pl.type.Var("_32342"),new pl.type.Var("_32343")])])) ], "format_elements/3": [ new pl.type.Rule(new pl.type.Term("format_elements", [new pl.type.Term("[]", []),new pl.type.Var("_32344"),new pl.type.Var("_32344")]), new pl.type.Term("true", [])), new pl.type.Rule(new pl.type.Term("format_elements", [new pl.type.Term(".", [new pl.type.Var("_32345"),new pl.type.Var("_32332")]),new pl.type.Var("_32346"),new pl.type.Var("_32348")]), new pl.type.Term(",", [new pl.type.Term("format_element", [new pl.type.Var("_32345"),new pl.type.Var("_32346"),new pl.type.Var("_32347")]),new pl.type.Term("format_elements", [new pl.type.Var("_32332"),new pl.type.Var("_32347"),new pl.type.Var("_32348")])])) ], "format_element/3": [ new pl.type.Rule(new pl.type.Term("format_element", [new pl.type.Term("chars", [new pl.type.Var("_32349")]),new pl.type.Var("_32350"),new pl.type.Var("_32351")]), new pl.type.Term("seq", [new pl.type.Var("_32349"),new pl.type.Var("_32350"),new pl.type.Var("_32351")])), new pl.type.Rule(new pl.type.Term("format_element", [new pl.type.Term("glue", [new pl.type.Var("_32352"),new pl.type.Var("_32353")]),new pl.type.Var("_32355"),new pl.type.Var("_32357")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("length", [new pl.type.Var("_32354"),new pl.type.Var("_32353")]),new pl.type.Term("maplist", [new pl.type.Term("=", [new pl.type.Var("_32352")]),new pl.type.Var("_32354")])]),new pl.type.Term("=", [new pl.type.Var("_32355"),new pl.type.Var("_32356")])]),new pl.type.Term("seq", [new pl.type.Var("_32354"),new pl.type.Var("_32356"),new pl.type.Var("_32357")])])) ], "elements_gluevars/5": [ new pl.type.Rule(new pl.type.Term("elements_gluevars", [new pl.type.Term("[]", []),new pl.type.Var("_32358"),new pl.type.Var("_32358"),new pl.type.Var("_32359"),new pl.type.Var("_32359")]), new pl.type.Term("true", [])), new pl.type.Rule(new pl.type.Term("elements_gluevars", [new pl.type.Term(".", [new pl.type.Var("_32345"),new pl.type.Var("_32332")]),new pl.type.Var("_32360"),new pl.type.Var("_32358"),new pl.type.Var("_32362"),new pl.type.Var("_32364")]), new pl.type.Term(",", [new pl.type.Term("element_gluevar", [new pl.type.Var("_32345"),new pl.type.Var("_32360"),new pl.type.Var("_32361"),new pl.type.Var("_32362"),new pl.type.Var("_32363")]),new pl.type.Term("elements_gluevars", [new pl.type.Var("_32332"),new pl.type.Var("_32361"),new pl.type.Var("_32358"),new pl.type.Var("_32363"),new pl.type.Var("_32364")])])) ], "element_gluevar/5": [ new pl.type.Rule(new pl.type.Term("element_gluevar", [new pl.type.Term("chars", [new pl.type.Var("_32349")]),new pl.type.Var("_32360"),new pl.type.Var("_32358"),new pl.type.Var("_32366"),new pl.type.Var("_32367")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("length", [new pl.type.Var("_32349"),new pl.type.Var("_32365")]),new pl.type.Term("is", [new pl.type.Var("_32358"),new pl.type.Term("+", [new pl.type.Var("_32360"),new pl.type.Var("_32365")])])]),new pl.type.Term("=", [new pl.type.Var("_32366"),new pl.type.Var("_32367")])])), new pl.type.Rule(new pl.type.Term("element_gluevar", [new pl.type.Term("glue", [new pl.type.Var("__32368"),new pl.type.Var("_32369")]),new pl.type.Var("_32358"),new pl.type.Var("_32358"),new pl.type.Term(".", [new pl.type.Var("_32369"),new pl.type.Var("_32371")]),new pl.type.Var("_32371")]), null) ], "cells/7": [ new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term("[]", []),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("__32373"),new pl.type.Var("_32374"),new pl.type.Var("_32378")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32374"),new pl.type.Var("_32375")])]),new pl.type.Term(",", [new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term(",", [new pl.type.Term("==", [new pl.type.Var("_32317"),new pl.type.Term("[]", [])]),new pl.type.Term("=", [new pl.type.Var("_32375"),new pl.type.Var("_32376")])]),new pl.type.Term("cell", [new pl.type.Var("_32372"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32376"),new pl.type.Var("_32377")])]),new pl.type.Term(",", [new pl.type.Term("throw", [new pl.type.Term("error", [new pl.type.Term("domain_error", [new pl.type.Term("empty_list", []),new pl.type.Var("_32317")]),new pl.type.Term("//", [new pl.type.Term("cells", []),new pl.type.Num(5, false)])])]),new pl.type.Term("=", [new pl.type.Var("_32375"),new pl.type.Var("_32378")])])]),new pl.type.Term("=", [new pl.type.Var("_32377"),new pl.type.Var("_32378")])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Var("_32316")])]),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32379"),new pl.type.Var("_32381")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32379"),new pl.type.Var("_32380")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term(".", [new pl.type.Term("chars", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term("[]", [])])]),new pl.type.Var("_32332")]),new pl.type.Var("_32318"),new pl.type.Var("_32380"),new pl.type.Var("_32381")])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("w", []),new pl.type.Var("_32316")])]),new pl.type.Term(".", [new pl.type.Var("_32382"),new pl.type.Var("_32317")]),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32384"),new pl.type.Var("_32387")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32384"),new pl.type.Var("_32385")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("write_term_to_chars", [new pl.type.Var("_32382"),new pl.type.Term(".", [new pl.type.Term("numbervars", [new pl.type.Term("true", [])]),new pl.type.Term(".", [new pl.type.Term("variable_names", [new pl.type.Var("_32318")]),new pl.type.Term("[]", [])])]),new pl.type.Var("_32383")]),new pl.type.Term("=", [new pl.type.Var("_32385"),new pl.type.Var("_32386")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term(".", [new pl.type.Term("chars", [new pl.type.Var("_32383")]),new pl.type.Var("_32332")]),new pl.type.Var("_32318"),new pl.type.Var("_32386"),new pl.type.Var("_32387")])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("q", []),new pl.type.Var("_32316")])]),new pl.type.Term(".", [new pl.type.Var("_32382"),new pl.type.Var("_32317")]),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32388"),new pl.type.Var("_32391")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32388"),new pl.type.Var("_32389")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("write_term_to_chars", [new pl.type.Var("_32382"),new pl.type.Term(".", [new pl.type.Term("quoted", [new pl.type.Term("true", [])]),new pl.type.Term(".", [new pl.type.Term("numbervars", [new pl.type.Term("true", [])]),new pl.type.Term(".", [new pl.type.Term("variable_names", [new pl.type.Var("_32318")]),new pl.type.Term("[]", [])])])]),new pl.type.Var("_32383")]),new pl.type.Term("=", [new pl.type.Var("_32389"),new pl.type.Var("_32390")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term(".", [new pl.type.Term("chars", [new pl.type.Var("_32383")]),new pl.type.Var("_32332")]),new pl.type.Var("_32318"),new pl.type.Var("_32390"),new pl.type.Var("_32391")])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("a", []),new pl.type.Var("_32316")])]),new pl.type.Term(".", [new pl.type.Var("_32382"),new pl.type.Var("_32317")]),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32392"),new pl.type.Var("_32395")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32392"),new pl.type.Var("_32393")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("atom_chars", [new pl.type.Var("_32382"),new pl.type.Var("_32383")]),new pl.type.Term("=", [new pl.type.Var("_32393"),new pl.type.Var("_32394")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term(".", [new pl.type.Term("chars", [new pl.type.Var("_32383")]),new pl.type.Var("_32332")]),new pl.type.Var("_32318"),new pl.type.Var("_32394"),new pl.type.Var("_32395")])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Var("_32396")]),new pl.type.Var("_32397"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32404"),new pl.type.Var("_32411")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("numeric_argument", [new pl.type.Var("_32396"),new pl.type.Var("_32353"),new pl.type.Term(".", [new pl.type.Term("d", []),new pl.type.Var("_32316")]),new pl.type.Var("_32397"),new pl.type.Term(".", [new pl.type.Var("_32398"),new pl.type.Var("_32317")])]),new pl.type.Term("=", [new pl.type.Var("_32404"),new pl.type.Var("_32405")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32405"),new pl.type.Var("_32406")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("_32382"),new pl.type.Var("_32398")]),new pl.type.Term(",", [new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("integer", [new pl.type.Var("_32382")]),new pl.type.Term("true", [])]),new pl.type.Term("throw", [new pl.type.Term("error", [new pl.type.Term("type_error", [new pl.type.Term("integer", []),new pl.type.Var("_32382")]),new pl.type.Term("//", [new pl.type.Term("cells", []),new pl.type.Num(5, false)])])])]),new pl.type.Term("number_chars", [new pl.type.Var("_32382"),new pl.type.Var("_32399")])])]),new pl.type.Term("=", [new pl.type.Var("_32406"),new pl.type.Var("_32407")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term(",", [new pl.type.Term("=:=", [new pl.type.Var("_32353"),new pl.type.Num(0, false)]),new pl.type.Term("=", [new pl.type.Var("_32407"),new pl.type.Var("_32408")])]),new pl.type.Term(",", [new pl.type.Term("=", [new pl.type.Var("_32349"),new pl.type.Var("_32399")]),new pl.type.Term("=", [new pl.type.Var("_32408"),new pl.type.Var("_32409")])])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("length", [new pl.type.Var("_32399"),new pl.type.Var("_32365")]),new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("=<", [new pl.type.Var("_32365"),new pl.type.Var("_32353")]),new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("_32338"),new pl.type.Term("-", [new pl.type.Var("_32353"),new pl.type.Var("_32365")])]),new pl.type.Term(",", [new pl.type.Term("length", [new pl.type.Var("_32400"),new pl.type.Var("_32338")]),new pl.type.Term(",", [new pl.type.Term("maplist", [new pl.type.Term("=", [new pl.type.Term("0", [])]),new pl.type.Var("_32400")]),new pl.type.Term("phrase", [new pl.type.Term(",", [new pl.type.Term(".", [new pl.type.Term("0", []),new pl.type.Term(".", [new pl.type.Term(".", []),new pl.type.Term("[]", [])])]),new pl.type.Term(",", [new pl.type.Term("seq", [new pl.type.Var("_32400")]),new pl.type.Term("seq", [new pl.type.Var("_32399")])])]),new pl.type.Var("_32349")])])])])]),new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("_32401"),new pl.type.Term("-", [new pl.type.Var("_32365"),new pl.type.Var("_32353")])]),new pl.type.Term(",", [new pl.type.Term("length", [new pl.type.Var("_32402"),new pl.type.Var("_32401")]),new pl.type.Term(",", [new pl.type.Term("append", [new pl.type.Var("_32402"),new pl.type.Var("_32403"),new pl.type.Var("_32399")]),new pl.type.Term("phrase", [new pl.type.Term(",", [new pl.type.Term("seq", [new pl.type.Var("_32402")]),new pl.type.Term(",", [new pl.type.Term(".", [new pl.type.Term(".", []),new pl.type.Term("[]", [])]),new pl.type.Term("seq", [new pl.type.Var("_32403")])])]),new pl.type.Var("_32349")])])])])])]),new pl.type.Term("=", [new pl.type.Var("_32407"),new pl.type.Var("_32410")])])]),new pl.type.Term("=", [new pl.type.Var("_32409"),new pl.type.Var("_32410")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term(".", [new pl.type.Term("chars", [new pl.type.Var("_32349")]),new pl.type.Var("_32332")]),new pl.type.Var("_32318"),new pl.type.Var("_32410"),new pl.type.Var("_32411")])])])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Var("_32396")]),new pl.type.Var("_32397"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32417"),new pl.type.Var("_32421")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("numeric_argument", [new pl.type.Var("_32396"),new pl.type.Var("_32353"),new pl.type.Term(".", [new pl.type.Term("D", []),new pl.type.Var("_32316")]),new pl.type.Var("_32397"),new pl.type.Term(".", [new pl.type.Var("_32382"),new pl.type.Var("_32317")])]),new pl.type.Term("=", [new pl.type.Var("_32417"),new pl.type.Var("_32418")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32418"),new pl.type.Var("_32419")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("number_chars", [new pl.type.Var("_32353"),new pl.type.Var("_32412")]),new pl.type.Term(",", [new pl.type.Term("phrase", [new pl.type.Term(",", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term("[]", [])]),new pl.type.Term(",", [new pl.type.Term("seq", [new pl.type.Var("_32412")]),new pl.type.Term(".", [new pl.type.Term("d", []),new pl.type.Term("[]", [])])])]),new pl.type.Var("_32413")]),new pl.type.Term(",", [new pl.type.Term("phrase", [new pl.type.Term("format_", [new pl.type.Var("_32413"),new pl.type.Term(".", [new pl.type.Var("_32382"),new pl.type.Term("[]", [])])]),new pl.type.Var("_32399")]),new pl.type.Term(",", [new pl.type.Term("phrase", [new pl.type.Term("upto_what", [new pl.type.Var("_32414"),new pl.type.Term(".", [])]),new pl.type.Var("_32399"),new pl.type.Var("_32403")]),new pl.type.Term(",", [new pl.type.Term("reverse", [new pl.type.Var("_32414"),new pl.type.Var("_32415")]),new pl.type.Term(",", [new pl.type.Term("phrase", [new pl.type.Term("groups_of_three", [new pl.type.Var("_32415")]),new pl.type.Var("_32416")]),new pl.type.Term(",", [new pl.type.Term("reverse", [new pl.type.Var("_32416"),new pl.type.Var("_32402")]),new pl.type.Term("append", [new pl.type.Var("_32402"),new pl.type.Var("_32403"),new pl.type.Var("_32349")])])])])])])])]),new pl.type.Term("=", [new pl.type.Var("_32419"),new pl.type.Var("_32420")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term(".", [new pl.type.Term("chars", [new pl.type.Var("_32349")]),new pl.type.Var("_32332")]),new pl.type.Var("_32318"),new pl.type.Var("_32420"),new pl.type.Var("_32421")])])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("i", []),new pl.type.Var("_32316")])]),new pl.type.Term(".", [new pl.type.Var("__32422"),new pl.type.Var("_32317")]),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32423"),new pl.type.Var("_32425")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32423"),new pl.type.Var("_32424")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32424"),new pl.type.Var("_32425")])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("n", []),new pl.type.Var("_32316")])]),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32426"),new pl.type.Var("_32430")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32426"),new pl.type.Var("_32427")])]),new pl.type.Term(",", [new pl.type.Term("cell", [new pl.type.Var("_32372"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32427"),new pl.type.Var("_32428")]),new pl.type.Term(",", [new pl.type.Term("n_newlines", [new pl.type.Num(1, false),new pl.type.Var("_32428"),new pl.type.Var("_32429")]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Num(0, false),new pl.type.Term("[]", []),new pl.type.Var("_32318"),new pl.type.Var("_32429"),new pl.type.Var("_32430")])])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Var("_32396")]),new pl.type.Var("_32397"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32431"),new pl.type.Var("_32436")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("numeric_argument", [new pl.type.Var("_32396"),new pl.type.Var("_32353"),new pl.type.Term(".", [new pl.type.Term("n", []),new pl.type.Var("_32316")]),new pl.type.Var("_32397"),new pl.type.Var("_32317")]),new pl.type.Term("=", [new pl.type.Var("_32431"),new pl.type.Var("_32432")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32432"),new pl.type.Var("_32433")])]),new pl.type.Term(",", [new pl.type.Term("cell", [new pl.type.Var("_32372"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32433"),new pl.type.Var("_32434")]),new pl.type.Term(",", [new pl.type.Term("n_newlines", [new pl.type.Var("_32353"),new pl.type.Var("_32434"),new pl.type.Var("_32435")]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Num(0, false),new pl.type.Term("[]", []),new pl.type.Var("_32318"),new pl.type.Var("_32435"),new pl.type.Var("_32436")])])])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("s", []),new pl.type.Var("_32316")])]),new pl.type.Term(".", [new pl.type.Var("_32382"),new pl.type.Var("_32317")]),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32437"),new pl.type.Var("_32439")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32437"),new pl.type.Var("_32438")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term(".", [new pl.type.Term("chars", [new pl.type.Var("_32382")]),new pl.type.Var("_32332")]),new pl.type.Var("_32318"),new pl.type.Var("_32438"),new pl.type.Var("_32439")])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("f", []),new pl.type.Var("_32316")])]),new pl.type.Term(".", [new pl.type.Var("_32382"),new pl.type.Var("_32317")]),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32440"),new pl.type.Var("_32443")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32440"),new pl.type.Var("_32441")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("format_number_chars", [new pl.type.Var("_32382"),new pl.type.Var("_32383")]),new pl.type.Term("=", [new pl.type.Var("_32441"),new pl.type.Var("_32442")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term(".", [new pl.type.Term("chars", [new pl.type.Var("_32383")]),new pl.type.Var("_32332")]),new pl.type.Var("_32318"),new pl.type.Var("_32442"),new pl.type.Var("_32443")])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Var("_32396")]),new pl.type.Var("_32397"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32445"),new pl.type.Var("_32449")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("numeric_argument", [new pl.type.Var("_32396"),new pl.type.Var("_32353"),new pl.type.Term(".", [new pl.type.Term("f", []),new pl.type.Var("_32316")]),new pl.type.Var("_32397"),new pl.type.Term(".", [new pl.type.Var("_32382"),new pl.type.Var("_32317")])]),new pl.type.Term("=", [new pl.type.Var("_32445"),new pl.type.Var("_32446")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32446"),new pl.type.Var("_32447")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("format_number_chars", [new pl.type.Var("_32382"),new pl.type.Var("_32399")]),new pl.type.Term(",", [new pl.type.Term("phrase", [new pl.type.Term("upto_what", [new pl.type.Var("_32402"),new pl.type.Term(".", [])]),new pl.type.Var("_32399"),new pl.type.Var("_32349")]),new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("=:=", [new pl.type.Var("_32353"),new pl.type.Num(0, false)]),new pl.type.Term("=", [new pl.type.Var("_32383"),new pl.type.Var("_32402")])]),new pl.type.Term(",", [new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("=", [new pl.type.Var("_32349"),new pl.type.Term(".", [new pl.type.Term(".", []),new pl.type.Var("_32340")])]),new pl.type.Term(",", [new pl.type.Term("length", [new pl.type.Var("_32340"),new pl.type.Var("_32365")]),new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("<", [new pl.type.Var("_32353"),new pl.type.Var("_32365")]),new pl.type.Term(",", [new pl.type.Term("length", [new pl.type.Var("_32403"),new pl.type.Var("_32353")]),new pl.type.Term("append", [new pl.type.Var("_32403"),new pl.type.Var("__32444"),new pl.type.Var("_32340")])])]),new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("=:=", [new pl.type.Var("_32353"),new pl.type.Var("_32365")]),new pl.type.Term("=", [new pl.type.Var("_32403"),new pl.type.Var("_32340")])]),new pl.type.Term(",", [new pl.type.Term(">", [new pl.type.Var("_32353"),new pl.type.Var("_32365")]),new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("_32338"),new pl.type.Term("-", [new pl.type.Var("_32353"),new pl.type.Var("_32365")])]),new pl.type.Term(",", [new pl.type.Term("length", [new pl.type.Var("_32400"),new pl.type.Var("_32338")]),new pl.type.Term(",", [new pl.type.Term("maplist", [new pl.type.Term("=", [new pl.type.Term("0", [])]),new pl.type.Var("_32400")]),new pl.type.Term("append", [new pl.type.Var("_32340"),new pl.type.Var("_32400"),new pl.type.Var("_32403")])])])])])])])])]),new pl.type.Term(",", [new pl.type.Term("length", [new pl.type.Var("_32403"),new pl.type.Var("_32353")]),new pl.type.Term("maplist", [new pl.type.Term("=", [new pl.type.Term("0", [])]),new pl.type.Var("_32403")])])]),new pl.type.Term("append", [new pl.type.Var("_32402"),new pl.type.Term(".", [new pl.type.Term(".", []),new pl.type.Var("_32403")]),new pl.type.Var("_32383")])])])])]),new pl.type.Term("=", [new pl.type.Var("_32447"),new pl.type.Var("_32448")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term(".", [new pl.type.Term("chars", [new pl.type.Var("_32383")]),new pl.type.Var("_32332")]),new pl.type.Var("_32318"),new pl.type.Var("_32448"),new pl.type.Var("_32449")])])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("r", []),new pl.type.Var("_32316")])]),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32450"),new pl.type.Var("_32452")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32450"),new pl.type.Var("_32451")])]),new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("8", []),new pl.type.Term(".", [new pl.type.Term("r", []),new pl.type.Var("_32316")])])]),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32451"),new pl.type.Var("_32452")])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Var("_32396")]),new pl.type.Var("_32397"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32453"),new pl.type.Var("_32457")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("numeric_argument", [new pl.type.Var("_32396"),new pl.type.Var("_32353"),new pl.type.Term(".", [new pl.type.Term("r", []),new pl.type.Var("_32316")]),new pl.type.Var("_32397"),new pl.type.Term(".", [new pl.type.Var("_32382"),new pl.type.Var("_32317")])]),new pl.type.Term("=", [new pl.type.Var("_32453"),new pl.type.Var("_32454")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32454"),new pl.type.Var("_32455")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("integer_to_radix", [new pl.type.Var("_32382"),new pl.type.Var("_32353"),new pl.type.Term("lowercase", []),new pl.type.Var("_32349")]),new pl.type.Term("=", [new pl.type.Var("_32455"),new pl.type.Var("_32456")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term(".", [new pl.type.Term("chars", [new pl.type.Var("_32349")]),new pl.type.Var("_32332")]),new pl.type.Var("_32318"),new pl.type.Var("_32456"),new pl.type.Var("_32457")])])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("R", []),new pl.type.Var("_32316")])]),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32458"),new pl.type.Var("_32460")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32458"),new pl.type.Var("_32459")])]),new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("8", []),new pl.type.Term(".", [new pl.type.Term("R", []),new pl.type.Var("_32316")])])]),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32459"),new pl.type.Var("_32460")])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Var("_32396")]),new pl.type.Var("_32397"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32461"),new pl.type.Var("_32465")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("numeric_argument", [new pl.type.Var("_32396"),new pl.type.Var("_32353"),new pl.type.Term(".", [new pl.type.Term("R", []),new pl.type.Var("_32316")]),new pl.type.Var("_32397"),new pl.type.Term(".", [new pl.type.Var("_32382"),new pl.type.Var("_32317")])]),new pl.type.Term("=", [new pl.type.Var("_32461"),new pl.type.Var("_32462")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32462"),new pl.type.Var("_32463")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("integer_to_radix", [new pl.type.Var("_32382"),new pl.type.Var("_32353"),new pl.type.Term("uppercase", []),new pl.type.Var("_32349")]),new pl.type.Term("=", [new pl.type.Var("_32463"),new pl.type.Var("_32464")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term(".", [new pl.type.Term("chars", [new pl.type.Var("_32349")]),new pl.type.Var("_32332")]),new pl.type.Var("_32318"),new pl.type.Var("_32464"),new pl.type.Var("_32465")])])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("`", []),new pl.type.Term(".", [new pl.type.Var("_32466"),new pl.type.Term(".", [new pl.type.Term("t", []),new pl.type.Var("_32316")])])])]),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32468"),new pl.type.Var("_32470")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32468"),new pl.type.Var("_32469")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term(".", [new pl.type.Term("glue", [new pl.type.Var("_32466"),new pl.type.Var("__32467")]),new pl.type.Var("_32332")]),new pl.type.Var("_32318"),new pl.type.Var("_32469"),new pl.type.Var("_32470")])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("t", []),new pl.type.Var("_32316")])]),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32472"),new pl.type.Var("_32474")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32472"),new pl.type.Var("_32473")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term(".", [new pl.type.Term("glue", [new pl.type.Term(" ", []),new pl.type.Var("__32471")]),new pl.type.Var("_32332")]),new pl.type.Var("_32318"),new pl.type.Var("_32473"),new pl.type.Var("_32474")])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("|", []),new pl.type.Var("_32316")])]),new pl.type.Var("_32317"),new pl.type.Var("_32475"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32478"),new pl.type.Var("_32482")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32478"),new pl.type.Var("_32479")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("phrase", [new pl.type.Term("elements_gluevars", [new pl.type.Var("_32332"),new pl.type.Num(0, false),new pl.type.Var("_32476")]),new pl.type.Var("__32477")]),new pl.type.Term("is", [new pl.type.Var("_32372"),new pl.type.Term("+", [new pl.type.Var("_32475"),new pl.type.Var("_32476")])])]),new pl.type.Term("=", [new pl.type.Var("_32479"),new pl.type.Var("_32480")])]),new pl.type.Term(",", [new pl.type.Term("cell", [new pl.type.Var("_32475"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32480"),new pl.type.Var("_32481")]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term("[]", []),new pl.type.Var("_32318"),new pl.type.Var("_32481"),new pl.type.Var("_32482")])])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Var("_32396")]),new pl.type.Var("_32397"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32483"),new pl.type.Var("_32487")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("numeric_argument", [new pl.type.Var("_32396"),new pl.type.Var("_32353"),new pl.type.Term(".", [new pl.type.Term("|", []),new pl.type.Var("_32316")]),new pl.type.Var("_32397"),new pl.type.Var("_32317")]),new pl.type.Term("=", [new pl.type.Var("_32483"),new pl.type.Var("_32484")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32484"),new pl.type.Var("_32485")])]),new pl.type.Term(",", [new pl.type.Term("cell", [new pl.type.Var("_32372"),new pl.type.Var("_32353"),new pl.type.Var("_32332"),new pl.type.Var("_32485"),new pl.type.Var("_32486")]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32353"),new pl.type.Term("[]", []),new pl.type.Var("_32318"),new pl.type.Var("_32486"),new pl.type.Var("_32487")])])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Var("_32396")]),new pl.type.Var("_32397"),new pl.type.Var("_32475"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32488"),new pl.type.Var("_32493")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("numeric_argument", [new pl.type.Var("_32396"),new pl.type.Var("_32353"),new pl.type.Term(".", [new pl.type.Term("+", []),new pl.type.Var("_32316")]),new pl.type.Var("_32397"),new pl.type.Var("_32317")]),new pl.type.Term("=", [new pl.type.Var("_32488"),new pl.type.Var("_32489")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32489"),new pl.type.Var("_32490")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("_32372"),new pl.type.Term("+", [new pl.type.Var("_32475"),new pl.type.Var("_32353")])]),new pl.type.Term("=", [new pl.type.Var("_32490"),new pl.type.Var("_32491")])]),new pl.type.Term(",", [new pl.type.Term("cell", [new pl.type.Var("_32475"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32491"),new pl.type.Var("_32492")]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term("[]", []),new pl.type.Var("_32318"),new pl.type.Var("_32492"),new pl.type.Var("_32493")])])])])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Var("_32349")]),new pl.type.Var("_32317"),new pl.type.Var("__32494"),new pl.type.Var("__32495"),new pl.type.Var("__32496"),new pl.type.Var("_32497"),new pl.type.Var("_32500")]), new pl.type.Term(",", [new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term(",", [new pl.type.Term("==", [new pl.type.Var("_32317"),new pl.type.Term("[]", [])]),new pl.type.Term("=", [new pl.type.Var("_32497"),new pl.type.Var("_32498")])]),new pl.type.Term(",", [new pl.type.Term("throw", [new pl.type.Term("error", [new pl.type.Term("domain_error", [new pl.type.Term("non_empty_list", []),new pl.type.Term("[]", [])]),new pl.type.Term("//", [new pl.type.Term("cells", []),new pl.type.Num(5, false)])])]),new pl.type.Term("=", [new pl.type.Var("_32498"),new pl.type.Var("_32499")])])]),new pl.type.Term(",", [new pl.type.Term("throw", [new pl.type.Term("error", [new pl.type.Term("domain_error", [new pl.type.Term("format_string", []),new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Var("_32349")])]),new pl.type.Term("//", [new pl.type.Term("cells", []),new pl.type.Num(5, false)])])]),new pl.type.Term("=", [new pl.type.Var("_32497"),new pl.type.Var("_32500")])])]),new pl.type.Term("=", [new pl.type.Var("_32499"),new pl.type.Var("_32500")])])), new pl.type.Rule(new pl.type.Term("cells", [new pl.type.Var("_32396"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Var("_32332"),new pl.type.Var("_32318"),new pl.type.Var("_32504"),new pl.type.Var("_32506")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("phrase", [new pl.type.Term("upto_what", [new pl.type.Var("_32501"),new pl.type.Term("~", [])]),new pl.type.Var("_32396"),new pl.type.Var("_32316")]),new pl.type.Term("=", [new pl.type.Var("_32501"),new pl.type.Term(".", [new pl.type.Var("__32502"),new pl.type.Var("__32503")])])]),new pl.type.Term("=", [new pl.type.Var("_32504"),new pl.type.Var("_32505")])]),new pl.type.Term("cells", [new pl.type.Var("_32316"),new pl.type.Var("_32317"),new pl.type.Var("_32372"),new pl.type.Term(".", [new pl.type.Term("chars", [new pl.type.Var("_32501")]),new pl.type.Var("_32332")]),new pl.type.Var("_32318"),new pl.type.Var("_32505"),new pl.type.Var("_32506")])])) ], "format_number_chars/2": [ new pl.type.Rule(new pl.type.Term("format_number_chars", [new pl.type.Var("N0"),new pl.type.Var("Chars")]), new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("N"),new pl.type.Var("N0")]),new pl.type.Term("number_chars", [new pl.type.Var("N"),new pl.type.Var("Chars")])])) ], "n_newlines/3": [ new pl.type.Rule(new pl.type.Term("n_newlines", [new pl.type.Num(0, false),new pl.type.Var("_32507"),new pl.type.Var("_32508")]), new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32507"),new pl.type.Var("_32508")])])), new pl.type.Rule(new pl.type.Term("n_newlines", [new pl.type.Var("_32360"),new pl.type.Var("_32509"),new pl.type.Var("_32512")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term(">", [new pl.type.Var("_32360"),new pl.type.Num(0, false)]),new pl.type.Term("is", [new pl.type.Var("_32358"),new pl.type.Term("-", [new pl.type.Var("_32360"),new pl.type.Num(1, false)])])]),new pl.type.Term("=", [new pl.type.Var("_32509"),new pl.type.Var("_32510")])]),new pl.type.Term(",", [new pl.type.Term("=", [new pl.type.Var("_32510"),new pl.type.Term(".", [new pl.type.Term("newline", []),new pl.type.Var("_32511")])]),new pl.type.Term("n_newlines", [new pl.type.Var("_32358"),new pl.type.Var("_32511"),new pl.type.Var("_32512")])])])) ], "upto_what/4": [ new pl.type.Rule(new pl.type.Term("upto_what", [new pl.type.Term("[]", []),new pl.type.Var("_32513"),new pl.type.Var("_32514"),new pl.type.Var("_32517")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("=", [new pl.type.Var("_32514"),new pl.type.Term(".", [new pl.type.Var("_32513"),new pl.type.Var("_32515")])]),new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32515"),new pl.type.Var("_32516")])])]),new pl.type.Term("=", [new pl.type.Var("_32517"),new pl.type.Term(".", [new pl.type.Var("_32513"),new pl.type.Var("_32516")])])])), new pl.type.Rule(new pl.type.Term("upto_what", [new pl.type.Term(".", [new pl.type.Var("_32518"),new pl.type.Var("_32349")]),new pl.type.Var("_32513"),new pl.type.Term(".", [new pl.type.Var("_32518"),new pl.type.Var("_32520")]),new pl.type.Var("_32522")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32520"),new pl.type.Var("_32521")])]),new pl.type.Term("upto_what", [new pl.type.Var("_32349"),new pl.type.Var("_32513"),new pl.type.Var("_32521"),new pl.type.Var("_32522")])])), new pl.type.Rule(new pl.type.Term("upto_what", [new pl.type.Term("[]", []),new pl.type.Var("__32523"),new pl.type.Var("_32524"),new pl.type.Var("_32524")]), new pl.type.Term("true", [])) ], "groups_of_three/3": [ new pl.type.Rule(new pl.type.Term("groups_of_three", [new pl.type.Term(".", [new pl.type.Var("_32525"),new pl.type.Term(".", [new pl.type.Var("_32526"),new pl.type.Term(".", [new pl.type.Var("_32518"),new pl.type.Term(".", [new pl.type.Var("_32527"),new pl.type.Var("_32528")])])])]),new pl.type.Var("_32529"),new pl.type.Var("_32533")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32529"),new pl.type.Var("_32530")])]),new pl.type.Term(",", [new pl.type.Term("=", [new pl.type.Var("_32530"),new pl.type.Term(".", [new pl.type.Var("_32525"),new pl.type.Term(".", [new pl.type.Var("_32526"),new pl.type.Term(".", [new pl.type.Var("_32518"),new pl.type.Var("_32531")])])])]),new pl.type.Term(",", [new pl.type.Term("=", [new pl.type.Var("_32531"),new pl.type.Term(".", [new pl.type.Term(",", []),new pl.type.Var("_32532")])]),new pl.type.Term("groups_of_three", [new pl.type.Term(".", [new pl.type.Var("_32527"),new pl.type.Var("_32528")]),new pl.type.Var("_32532"),new pl.type.Var("_32533")])])])])), new pl.type.Rule(new pl.type.Term("groups_of_three", [new pl.type.Var("_32354"),new pl.type.Var("_32534"),new pl.type.Var("_32535")]), new pl.type.Term("seq", [new pl.type.Var("_32354"),new pl.type.Var("_32534"),new pl.type.Var("_32535")])) ], "cell/5": [ new pl.type.Rule(new pl.type.Term("cell", [new pl.type.Var("_32330"),new pl.type.Var("_32331"),new pl.type.Var("_32536"),new pl.type.Var("_32537"),new pl.type.Var("_32540")]), new pl.type.Term(",", [new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term(",", [new pl.type.Term("==", [new pl.type.Var("_32536"),new pl.type.Term("[]", [])]),new pl.type.Term("=", [new pl.type.Var("_32537"),new pl.type.Var("_32538")])]),new pl.type.Term("true", [])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("reverse", [new pl.type.Var("_32536"),new pl.type.Var("_32332")]),new pl.type.Term("=", [new pl.type.Var("_32537"),new pl.type.Var("_32539")])]),new pl.type.Term("=", [new pl.type.Var("_32539"),new pl.type.Term(".", [new pl.type.Term("cell", [new pl.type.Var("_32330"),new pl.type.Var("_32331"),new pl.type.Var("_32332")]),new pl.type.Var("_32540")])])])]),new pl.type.Term("=", [new pl.type.Var("_32538"),new pl.type.Var("_32540")])])) ], "numeric_argument/5": [ new pl.type.Rule(new pl.type.Term("numeric_argument", [new pl.type.Var("Ds"),new pl.type.Var("Num"),new pl.type.Var("Rest"),new pl.type.Var("Args0"),new pl.type.Var("Args")]), new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("=", [new pl.type.Var("Ds"),new pl.type.Term(".", [new pl.type.Term("*", []),new pl.type.Var("Rest")])]),new pl.type.Term("=", [new pl.type.Var("Args0"),new pl.type.Term(".", [new pl.type.Var("Num"),new pl.type.Var("Args")])])]),new pl.type.Term(",", [new pl.type.Term("phrase", [new pl.type.Term("numeric_argument_", [new pl.type.Var("Ds"),new pl.type.Var("Rest")]),new pl.type.Var("Ns")]),new pl.type.Term(",", [new pl.type.Term("foldl", [new pl.type.Term("plus_times10", []),new pl.type.Var("Ns"),new pl.type.Num(0, false),new pl.type.Var("Num")]),new pl.type.Term("=", [new pl.type.Var("Args0"),new pl.type.Var("Args")])])])])) ], "numeric_argument_/4": [ new pl.type.Rule(new pl.type.Term("numeric_argument_", [new pl.type.Term(".", [new pl.type.Var("_32527"),new pl.type.Var("_32403")]),new pl.type.Var("_32340"),new pl.type.Var("_32541"),new pl.type.Var("_32546")]), new pl.type.Term(",", [new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term(",", [new pl.type.Term("member", [new pl.type.Var("_32527"),new pl.type.Term(".", [new pl.type.Term("0", []),new pl.type.Term(".", [new pl.type.Term("1", []),new pl.type.Term(".", [new pl.type.Term("2", []),new pl.type.Term(".", [new pl.type.Term("3", []),new pl.type.Term(".", [new pl.type.Term("4", []),new pl.type.Term(".", [new pl.type.Term("5", []),new pl.type.Term(".", [new pl.type.Term("6", []),new pl.type.Term(".", [new pl.type.Term("7", []),new pl.type.Term(".", [new pl.type.Term("8", []),new pl.type.Term(".", [new pl.type.Term("9", []),new pl.type.Term("[]", [])])])])])])])])])])])]),new pl.type.Term("=", [new pl.type.Var("_32541"),new pl.type.Var("_32542")])]),new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("number_chars", [new pl.type.Var("_32358"),new pl.type.Term(".", [new pl.type.Var("_32527"),new pl.type.Term("[]", [])])]),new pl.type.Term("=", [new pl.type.Var("_32542"),new pl.type.Var("_32543")])]),new pl.type.Term(",", [new pl.type.Term("=", [new pl.type.Var("_32543"),new pl.type.Term(".", [new pl.type.Var("_32358"),new pl.type.Var("_32544")])]),new pl.type.Term("numeric_argument_", [new pl.type.Var("_32403"),new pl.type.Var("_32340"),new pl.type.Var("_32544"),new pl.type.Var("_32545")])])])]),new pl.type.Term(",", [new pl.type.Term("=", [new pl.type.Var("_32340"),new pl.type.Term(".", [new pl.type.Var("_32527"),new pl.type.Var("_32403")])]),new pl.type.Term("=", [new pl.type.Var("_32541"),new pl.type.Var("_32546")])])]),new pl.type.Term("=", [new pl.type.Var("_32545"),new pl.type.Var("_32546")])])) ], "plus_times10/3": [ new pl.type.Rule(new pl.type.Term("plus_times10", [new pl.type.Var("D"),new pl.type.Var("N0"),new pl.type.Var("N")]), new pl.type.Term("is", [new pl.type.Var("N"),new pl.type.Term("+", [new pl.type.Var("D"),new pl.type.Term("*", [new pl.type.Var("N0"),new pl.type.Num(10, false)])])])) ], "radix_error/4": [ new pl.type.Rule(new pl.type.Term("radix_error", [new pl.type.Term("lowercase", []),new pl.type.Var("_32547"),new pl.type.Var("_32548"),new pl.type.Var("_32549")]), new pl.type.Term("format_", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("d", []),new pl.type.Term(".", [new pl.type.Term("r", []),new pl.type.Term("[]", [])])])])])]),new pl.type.Term(".", [new pl.type.Var("_32547"),new pl.type.Term("[]", [])]),new pl.type.Var("_32548"),new pl.type.Var("_32549")])), new pl.type.Rule(new pl.type.Term("radix_error", [new pl.type.Term("uppercase", []),new pl.type.Var("_32547"),new pl.type.Var("_32550"),new pl.type.Var("_32551")]), new pl.type.Term("format_", [new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("~", []),new pl.type.Term(".", [new pl.type.Term("d", []),new pl.type.Term(".", [new pl.type.Term("R", []),new pl.type.Term("[]", [])])])])])]),new pl.type.Term(".", [new pl.type.Var("_32547"),new pl.type.Term("[]", [])]),new pl.type.Var("_32550"),new pl.type.Var("_32551")])) ], "integer_to_radix/4": [ new pl.type.Rule(new pl.type.Term("integer_to_radix", [new pl.type.Var("I0"),new pl.type.Var("R"),new pl.type.Var("Which"),new pl.type.Var("Cs")]), new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("I"),new pl.type.Var("I0")]),new pl.type.Term(",", [new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("integer", [new pl.type.Var("I")]),new pl.type.Term("true", [])]),new pl.type.Term("throw", [new pl.type.Term("error", [new pl.type.Term("type_error", [new pl.type.Term("integer", []),new pl.type.Var("I")]),new pl.type.Term("/", [new pl.type.Term("integer_to_radix", []),new pl.type.Num(4, false)])])])]),new pl.type.Term(",", [new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("integer", [new pl.type.Var("R")]),new pl.type.Term("true", [])]),new pl.type.Term("throw", [new pl.type.Term("error", [new pl.type.Term("type_error", [new pl.type.Term("integer", []),new pl.type.Var("R")]),new pl.type.Term("/", [new pl.type.Term("integer_to_radix", []),new pl.type.Num(4, false)])])])]),new pl.type.Term(",", [new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("\\+", [new pl.type.Term("between", [new pl.type.Num(2, false),new pl.type.Num(36, false),new pl.type.Var("R")])]),new pl.type.Term(",", [new pl.type.Term("phrase", [new pl.type.Term("radix_error", [new pl.type.Var("Which"),new pl.type.Var("R")]),new pl.type.Var("Es")]),new pl.type.Term("throw", [new pl.type.Term("error", [new pl.type.Term("domain_error", [new pl.type.Term("format_string", []),new pl.type.Var("Es")]),new pl.type.Term("/", [new pl.type.Term("integer_to_radix", []),new pl.type.Num(4, false)])])])])]),new pl.type.Term("true", [])]),new pl.type.Term(",", [new pl.type.Term("digits", [new pl.type.Var("Which"),new pl.type.Var("Ds")]),new pl.type.Term(",", [new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("<", [new pl.type.Var("I"),new pl.type.Num(0, false)]),new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("Pos"),new pl.type.Term("abs", [new pl.type.Var("I")])]),new pl.type.Term("phrase", [new pl.type.Term("integer_to_radix_", [new pl.type.Var("Pos"),new pl.type.Var("R"),new pl.type.Var("Ds")]),new pl.type.Var("Cs0"),new pl.type.Term(".", [new pl.type.Term("-", []),new pl.type.Term("[]", [])])])])]),new pl.type.Term(";", [new pl.type.Term("->", [new pl.type.Term("=:=", [new pl.type.Var("I"),new pl.type.Num(0, false)]),new pl.type.Term("=", [new pl.type.Var("Cs0"),new pl.type.Term(".", [new pl.type.Term("0", []),new pl.type.Term("[]", [])])])]),new pl.type.Term("phrase", [new pl.type.Term("integer_to_radix_", [new pl.type.Var("I"),new pl.type.Var("R"),new pl.type.Var("Ds")]),new pl.type.Var("Cs0")])])]),new pl.type.Term("reverse", [new pl.type.Var("Cs0"),new pl.type.Var("Cs")])])])])])])])) ], "integer_to_radix_/5": [ new pl.type.Rule(new pl.type.Term("integer_to_radix_", [new pl.type.Num(0, false),new pl.type.Var("__32552"),new pl.type.Var("__32553"),new pl.type.Var("_32554"),new pl.type.Var("_32555")]), new pl.type.Term(",", [new pl.type.Term("!", []),new pl.type.Term("=", [new pl.type.Var("_32554"),new pl.type.Var("_32555")])])), new pl.type.Rule(new pl.type.Term("integer_to_radix_", [new pl.type.Var("_32556"),new pl.type.Var("_32547"),new pl.type.Var("_32403"),new pl.type.Var("_32559"),new pl.type.Var("_32562")]), new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term(",", [new pl.type.Term("is", [new pl.type.Var("_32557"),new pl.type.Term("mod", [new pl.type.Var("_32556"),new pl.type.Var("_32547")])]),new pl.type.Term(",", [new pl.type.Term("nth0", [new pl.type.Var("_32557"),new pl.type.Var("_32403"),new pl.type.Var("_32527")]),new pl.type.Term("is", [new pl.type.Var("_32558"),new pl.type.Term("//", [new pl.type.Var("_32556"),new pl.type.Var("_32547")])])])]),new pl.type.Term("=", [new pl.type.Var("_32559"),new pl.type.Var("_32560")])]),new pl.type.Term(",", [new pl.type.Term("=", [new pl.type.Var("_32560"),new pl.type.Term(".", [new pl.type.Var("_32527"),new pl.type.Var("_32561")])]),new pl.type.Term("integer_to_radix_", [new pl.type.Var("_32558"),new pl.type.Var("_32547"),new pl.type.Var("_32403"),new pl.type.Var("_32561"),new pl.type.Var("_32562")])])])) ], "digits/2": [ new pl.type.Rule(new pl.type.Term("digits", [new pl.type.Term("lowercase", []),new pl.type.Term(".", [new pl.type.Term("0", []),new pl.type.Term(".", [new pl.type.Term("1", []),new pl.type.Term(".", [new pl.type.Term("2", []),new pl.type.Term(".", [new pl.type.Term("3", []),new pl.type.Term(".", [new pl.type.Term("4", []),new pl.type.Term(".", [new pl.type.Term("5", []),new pl.type.Term(".", [new pl.type.Term("6", []),new pl.type.Term(".", [new pl.type.Term("7", []),new pl.type.Term(".", [new pl.type.Term("8", []),new pl.type.Term(".", [new pl.type.Term("9", []),new pl.type.Term(".", [new pl.type.Term("a", []),new pl.type.Term(".", [new pl.type.Term("b", []),new pl.type.Term(".", [new pl.type.Term("c", []),new pl.type.Term(".", [new pl.type.Term("d", []),new pl.type.Term(".", [new pl.type.Term("e", []),new pl.type.Term(".", [new pl.type.Term("f", []),new pl.type.Term(".", [new pl.type.Term("g", []),new pl.type.Term(".", [new pl.type.Term("h", []),new pl.type.Term(".", [new pl.type.Term("i", []),new pl.type.Term(".", [new pl.type.Term("j", []),new pl.type.Term(".", [new pl.type.Term("k", []),new pl.type.Term(".", [new pl.type.Term("l", []),new pl.type.Term(".", [new pl.type.Term("m", []),new pl.type.Term(".", [new pl.type.Term("n", []),new pl.type.Term(".", [new pl.type.Term("o", []),new pl.type.Term(".", [new pl.type.Term("p", []),new pl.type.Term(".", [new pl.type.Term("q", []),new pl.type.Term(".", [new pl.type.Term("r", []),new pl.type.Term(".", [new pl.type.Term("s", []),new pl.type.Term(".", [new pl.type.Term("t", []),new pl.type.Term(".", [new pl.type.Term("u", []),new pl.type.Term(".", [new pl.type.Term("v", []),new pl.type.Term(".", [new pl.type.Term("w", []),new pl.type.Term(".", [new pl.type.Term("x", []),new pl.type.Term(".", [new pl.type.Term("y", []),new pl.type.Term(".", [new pl.type.Term("z", []),new pl.type.Term("[]", [])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]), null), new pl.type.Rule(new pl.type.Term("digits", [new pl.type.Term("uppercase", []),new pl.type.Term(".", [new pl.type.Term("0", []),new pl.type.Term(".", [new pl.type.Term("1", []),new pl.type.Term(".", [new pl.type.Term("2", []),new pl.type.Term(".", [new pl.type.Term("3", []),new pl.type.Term(".", [new pl.type.Term("4", []),new pl.type.Term(".", [new pl.type.Term("5", []),new pl.type.Term(".", [new pl.type.Term("6", []),new pl.type.Term(".", [new pl.type.Term("7", []),new pl.type.Term(".", [new pl.type.Term("8", []),new pl.type.Term(".", [new pl.type.Term("9", []),new pl.type.Term(".", [new pl.type.Term("A", []),new pl.type.Term(".", [new pl.type.Term("B", []),new pl.type.Term(".", [new pl.type.Term("C", []),new pl.type.Term(".", [new pl.type.Term("D", []),new pl.type.Term(".", [new pl.type.Term("E", []),new pl.type.Term(".", [new pl.type.Term("F", []),new pl.type.Term(".", [new pl.type.Term("G", []),new pl.type.Term(".", [new pl.type.Term("H", []),new pl.type.Term(".", [new pl.type.Term("I", []),new pl.type.Term(".", [new pl.type.Term("J", []),new pl.type.Term(".", [new pl.type.Term("K", []),new pl.type.Term(".", [new pl.type.Term("L", []),new pl.type.Term(".", [new pl.type.Term("M", []),new pl.type.Term(".", [new pl.type.Term("N", []),new pl.type.Term(".", [new pl.type.Term("O", []),new pl.type.Term(".", [new pl.type.Term("P", []),new pl.type.Term(".", [new pl.type.Term("Q", []),new pl.type.Term(".", [new pl.type.Term("R", []),new pl.type.Term(".", [new pl.type.Term("S", []),new pl.type.Term(".", [new pl.type.Term("T", []),new pl.type.Term(".", [new pl.type.Term("U", []),new pl.type.Term(".", [new pl.type.Term("V", []),new pl.type.Term(".", [new pl.type.Term("W", []),new pl.type.Term(".", [new pl.type.Term("X", []),new pl.type.Term(".", [new pl.type.Term("Y", []),new pl.type.Term(".", [new pl.type.Term("Z", []),new pl.type.Term("[]", [])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])])]), null) ], "format/2": [ new pl.type.Rule(new pl.type.Term("format", [new pl.type.Var("Fs"),new pl.type.Var("Args")]), new pl.type.Term(",", [new pl.type.Term("phrase", [new pl.type.Term("format_", [new pl.type.Var("Fs"),new pl.type.Var("Args")]),new pl.type.Var("Cs")]),new pl.type.Term("maplist", [new pl.type.Term("write", []),new pl.type.Var("Cs")])])) ], "format/3": [ new pl.type.Rule(new pl.type.Term("format", [new pl.type.Var("Stream"),new pl.type.Var("Fs"),new pl.type.Var("Args")]), new pl.type.Term(",", [new pl.type.Term("phrase", [new pl.type.Term("format_", [new pl.type.Var("Fs"),new pl.type.Var("Args")]),new pl.type.Var("Cs")]),new pl.type.Term("maplist", [new pl.type.Term("write", [new pl.type.Var("Stream")]),new pl.type.Var("Cs")])])) ], "unique_variable_names/2": [ new pl.type.Rule(new pl.type.Term("unique_variable_names", [new pl.type.Var("Term"),new pl.type.Var("VNs")]), new pl.type.Term(",", [new pl.type.Term("term_variables", [new pl.type.Var("Term"),new pl.type.Var("Vs")]),new pl.type.Term("foldl", [new pl.type.Term("var_name", []),new pl.type.Var("Vs"),new pl.type.Var("VNs"),new pl.type.Num(0, false),new pl.type.Var("_")])])) ], "seq/3": [ new pl.type.Rule(new pl.type.Term("seq", [new pl.type.Term("[]", []),new pl.type.Var("_32563"),new pl.type.Var("_32563")]), new pl.type.Term("true", [])), new pl.type.Rule(new pl.type.Term("seq", [new pl.type.Term(".", [new pl.type.Var("_32345"),new pl.type.Var("_32332")]),new pl.type.Term(".", [new pl.type.Var("_32345"),new pl.type.Var("_32565")]),new pl.type.Var("_32566")]), new pl.type.Term("seq", [new pl.type.Var("_32332"),new pl.type.Var("_32565"),new pl.type.Var("_32566")])) ] }; }; var exports = ["format_/4", "format/2", "format/3"]; var options = function() { return { dependencies: ["lists", "charsio"] }; }; if(typeof module !== 'undefined') { module.exports = function(p) { pl = p; new pl.type.Module(name, predicates(), exports, options()); }; } else { new pl.type.Module(name, predicates(), exports, options()); }})(pl);var pl;(function(pl) {
// Extend Tau Prolog prototypes var extend = function(pl) {
// Consult a program from a string pl.type.Session.prototype.promiseConsult = function(program, options) { return this.thread.promiseConsult(program, options); };
pl.type.Thread.prototype.promiseConsult = function(program, options) { var thread = this; return new Promise(function(resolve, reject) { var opts = {}; options = options === undefined ? {} : options; opts.context_module = options.context_module; opts.text = options.text; opts.html = options.html; opts.url = options.url; opts.file = options.file; opts.script = options.script; opts.success = resolve; opts.error = reject; thread.consult(program, opts); }); };
// Query goal from a string (without ?-) pl.type.Session.prototype.promiseQuery = function(string) { return this.thread.promiseQuery(string); };
pl.type.Thread.prototype.promiseQuery = function(string) { var thread = this; return new Promise(function(resolve, reject) { thread.query(string, { success: resolve, error: reject }); }); };
// Find next computed answer pl.type.Session.prototype.promiseAnswer = function() { return this.thread.promiseAnswer(); };
pl.type.Thread.prototype.promiseAnswer = function() { var thread = this; return new Promise(function(resolve, reject) { thread.answer({ success: resolve, fail: resolve, error: reject, limit: reject }); }); };
// Find all computed answers (asynchronous generator function) pl.type.Session.prototype.promiseAnswers = function() { return this.thread.promiseAnswers(); }; pl.type.Thread.prototype.promiseAnswers = async function*() { while(true) { var answer = await this.promiseAnswer(); if(answer !== false) yield answer; else return; } };
}
if(typeof module !== 'undefined') { module.exports = function(p) { pl = p; extend(pl); }; } else { extend(pl); }
})(pl);