12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480548154825483548454855486548754885489549054915492549354945495549654975498549955005501550255035504550555065507550855095510551155125513551455155516551755185519552055215522552355245525552655275528552955305531553255335534553555365537553855395540554155425543554455455546554755485549555055515552555355545555555655575558555955605561556255635564556555665567556855695570557155725573557455755576557755785579558055815582558355845585558655875588558955905591559255935594559555965597559855995600560156025603560456055606560756085609561056115612561356145615561656175618561956205621562256235624562556265627562856295630563156325633563456355636563756385639564056415642564356445645564656475648564956505651565256535654565556565657565856595660566156625663566456655666566756685669567056715672567356745675567656775678567956805681568256835684568556865687568856895690569156925693569456955696569756985699570057015702570357045705570657075708570957105711571257135714571557165717571857195720572157225723572457255726572757285729573057315732573357345735573657375738573957405741574257435744574557465747574857495750575157525753575457555756575757585759576057615762576357645765576657675768576957705771577257735774577557765777577857795780578157825783578457855786578757885789579057915792579357945795579657975798579958005801580258035804580558065807580858095810581158125813581458155816581758185819582058215822582358245825582658275828582958305831583258335834583558365837583858395840584158425843584458455846584758485849585058515852585358545855585658575858585958605861586258635864586558665867586858695870587158725873587458755876587758785879588058815882588358845885588658875888588958905891589258935894589558965897589858995900590159025903590459055906590759085909591059115912591359145915591659175918591959205921592259235924592559265927592859295930593159325933593459355936593759385939594059415942594359445945594659475948594959505951595259535954595559565957595859595960596159625963596459655966596759685969597059715972597359745975597659775978597959805981598259835984598559865987598859895990599159925993599459955996599759985999600060016002600360046005600660076008600960106011601260136014601560166017601860196020602160226023602460256026602760286029603060316032603360346035603660376038603960406041604260436044604560466047604860496050605160526053605460556056605760586059606060616062606360646065606660676068606960706071607260736074607560766077607860796080608160826083608460856086608760886089609060916092609360946095609660976098609961006101610261036104610561066107610861096110611161126113611461156116611761186119612061216122612361246125612661276128612961306131613261336134613561366137613861396140614161426143614461456146614761486149615061516152615361546155615661576158615961606161616261636164616561666167616861696170617161726173617461756176617761786179618061816182618361846185618661876188618961906191619261936194619561966197619861996200620162026203620462056206620762086209621062116212621362146215621662176218621962206221622262236224622562266227622862296230623162326233623462356236623762386239624062416242624362446245624662476248624962506251625262536254625562566257625862596260626162626263626462656266626762686269627062716272627362746275627662776278627962806281628262836284628562866287628862896290629162926293629462956296629762986299630063016302630363046305630663076308630963106311631263136314631563166317631863196320632163226323632463256326632763286329633063316332633363346335633663376338633963406341634263436344634563466347634863496350635163526353635463556356635763586359636063616362636363646365636663676368636963706371637263736374637563766377637863796380638163826383638463856386638763886389639063916392639363946395639663976398639964006401640264036404640564066407640864096410641164126413641464156416641764186419642064216422642364246425642664276428642964306431643264336434643564366437643864396440644164426443644464456446644764486449645064516452645364546455645664576458645964606461646264636464646564666467646864696470647164726473647464756476647764786479648064816482648364846485648664876488648964906491649264936494649564966497649864996500650165026503650465056506650765086509651065116512651365146515651665176518651965206521652265236524652565266527652865296530653165326533653465356536653765386539654065416542654365446545654665476548654965506551655265536554655565566557655865596560656165626563656465656566656765686569657065716572657365746575657665776578657965806581658265836584658565866587658865896590659165926593659465956596659765986599660066016602660366046605660666076608660966106611661266136614661566166617661866196620662166226623662466256626662766286629663066316632663366346635663666376638663966406641664266436644664566466647664866496650665166526653665466556656665766586659666066616662666366646665666666676668666966706671667266736674667566766677667866796680668166826683668466856686668766886689669066916692669366946695669666976698669967006701670267036704670567066707670867096710671167126713671467156716671767186719672067216722672367246725672667276728672967306731673267336734673567366737673867396740674167426743674467456746674767486749675067516752675367546755675667576758675967606761676267636764676567666767676867696770677167726773677467756776677767786779678067816782678367846785678667876788678967906791679267936794679567966797679867996800680168026803680468056806680768086809681068116812681368146815681668176818681968206821682268236824682568266827682868296830683168326833683468356836683768386839684068416842684368446845684668476848684968506851685268536854685568566857685868596860686168626863686468656866686768686869687068716872687368746875687668776878687968806881688268836884688568866887688868896890689168926893689468956896689768986899690069016902690369046905690669076908690969106911691269136914691569166917691869196920692169226923692469256926692769286929693069316932693369346935693669376938693969406941694269436944694569466947694869496950695169526953695469556956695769586959696069616962696369646965696669676968696969706971697269736974697569766977697869796980698169826983698469856986698769886989699069916992699369946995699669976998699970007001700270037004700570067007700870097010701170127013701470157016701770187019702070217022702370247025702670277028702970307031703270337034703570367037703870397040704170427043704470457046704770487049705070517052705370547055705670577058705970607061706270637064706570667067706870697070707170727073707470757076707770787079708070817082708370847085708670877088708970907091709270937094709570967097709870997100710171027103710471057106710771087109711071117112711371147115711671177118711971207121712271237124712571267127712871297130713171327133713471357136713771387139714071417142714371447145714671477148714971507151715271537154715571567157715871597160716171627163716471657166716771687169717071717172717371747175717671777178717971807181718271837184718571867187718871897190719171927193719471957196719771987199720072017202720372047205720672077208720972107211721272137214721572167217721872197220722172227223722472257226722772287229723072317232723372347235723672377238723972407241724272437244724572467247724872497250725172527253725472557256725772587259726072617262726372647265726672677268726972707271727272737274727572767277727872797280728172827283728472857286728772887289729072917292729372947295729672977298729973007301730273037304730573067307730873097310731173127313731473157316731773187319732073217322732373247325732673277328732973307331733273337334733573367337733873397340734173427343734473457346734773487349735073517352735373547355735673577358735973607361736273637364736573667367736873697370737173727373737473757376737773787379738073817382738373847385738673877388738973907391739273937394739573967397739873997400740174027403740474057406740774087409741074117412741374147415741674177418741974207421742274237424742574267427742874297430743174327433743474357436743774387439744074417442744374447445744674477448744974507451745274537454745574567457745874597460746174627463746474657466746774687469747074717472747374747475747674777478747974807481748274837484748574867487748874897490749174927493749474957496749774987499750075017502750375047505750675077508750975107511751275137514751575167517751875197520752175227523752475257526752775287529753075317532753375347535753675377538753975407541754275437544754575467547754875497550755175527553755475557556755775587559756075617562756375647565756675677568756975707571757275737574757575767577757875797580758175827583758475857586758775887589759075917592759375947595759675977598759976007601760276037604760576067607760876097610761176127613761476157616761776187619762076217622762376247625762676277628762976307631763276337634763576367637763876397640764176427643764476457646764776487649765076517652765376547655765676577658765976607661766276637664766576667667766876697670767176727673767476757676767776787679768076817682768376847685768676877688768976907691769276937694769576967697769876997700770177027703770477057706770777087709771077117712771377147715771677177718771977207721772277237724772577267727772877297730773177327733773477357736773777387739774077417742774377447745774677477748774977507751775277537754775577567757775877597760776177627763776477657766776777687769777077717772777377747775777677777778777977807781778277837784778577867787778877897790779177927793779477957796779777987799780078017802780378047805780678077808780978107811781278137814781578167817781878197820782178227823782478257826782778287829783078317832783378347835783678377838783978407841784278437844784578467847784878497850785178527853785478557856785778587859786078617862786378647865786678677868786978707871787278737874787578767877787878797880788178827883788478857886788778887889789078917892789378947895789678977898789979007901790279037904790579067907790879097910791179127913791479157916791779187919792079217922792379247925792679277928792979307931793279337934793579367937793879397940794179427943794479457946794779487949795079517952795379547955795679577958795979607961796279637964796579667967796879697970797179727973797479757976797779787979798079817982798379847985798679877988798979907991799279937994799579967997799879998000800180028003800480058006800780088009801080118012801380148015801680178018801980208021802280238024802580268027802880298030803180328033803480358036803780388039804080418042804380448045804680478048804980508051805280538054805580568057805880598060806180628063806480658066806780688069807080718072807380748075807680778078807980808081808280838084808580868087808880898090809180928093809480958096809780988099810081018102810381048105810681078108810981108111811281138114811581168117811881198120812181228123812481258126812781288129813081318132813381348135813681378138813981408141814281438144814581468147814881498150815181528153815481558156815781588159816081618162816381648165816681678168816981708171817281738174817581768177817881798180818181828183818481858186818781888189819081918192819381948195819681978198819982008201820282038204820582068207820882098210821182128213821482158216821782188219822082218222822382248225822682278228822982308231823282338234823582368237823882398240824182428243824482458246824782488249825082518252825382548255825682578258825982608261826282638264826582668267826882698270827182728273827482758276827782788279828082818282828382848285828682878288828982908291829282938294829582968297829882998300830183028303830483058306830783088309831083118312831383148315831683178318831983208321832283238324832583268327832883298330833183328333833483358336833783388339834083418342834383448345834683478348834983508351835283538354835583568357835883598360836183628363836483658366836783688369837083718372837383748375837683778378837983808381838283838384838583868387838883898390839183928393839483958396839783988399840084018402840384048405840684078408840984108411841284138414841584168417841884198420842184228423842484258426842784288429843084318432843384348435843684378438843984408441844284438444844584468447844884498450845184528453845484558456845784588459846084618462846384648465846684678468846984708471847284738474847584768477847884798480848184828483848484858486848784888489849084918492849384948495849684978498849985008501850285038504850585068507850885098510851185128513851485158516851785188519852085218522852385248525852685278528852985308531853285338534853585368537853885398540854185428543854485458546854785488549855085518552855385548555855685578558855985608561856285638564856585668567856885698570857185728573857485758576857785788579858085818582858385848585858685878588858985908591859285938594859585968597859885998600860186028603860486058606860786088609861086118612861386148615861686178618861986208621862286238624862586268627862886298630863186328633863486358636863786388639864086418642864386448645864686478648864986508651865286538654865586568657865886598660866186628663866486658666866786688669867086718672867386748675867686778678867986808681868286838684868586868687868886898690869186928693869486958696869786988699870087018702870387048705870687078708870987108711871287138714871587168717871887198720872187228723872487258726872787288729873087318732873387348735873687378738873987408741874287438744874587468747874887498750875187528753875487558756875787588759876087618762876387648765876687678768876987708771877287738774877587768777877887798780878187828783878487858786878787888789879087918792879387948795879687978798879988008801880288038804880588068807880888098810881188128813881488158816881788188819882088218822882388248825882688278828882988308831883288338834883588368837883888398840884188428843884488458846884788488849885088518852885388548855885688578858885988608861886288638864886588668867886888698870887188728873887488758876887788788879888088818882888388848885888688878888888988908891889288938894889588968897889888998900890189028903890489058906890789088909891089118912891389148915891689178918891989208921892289238924892589268927892889298930893189328933893489358936893789388939894089418942894389448945894689478948894989508951895289538954895589568957895889598960896189628963896489658966896789688969897089718972897389748975897689778978897989808981898289838984898589868987898889898990899189928993899489958996899789988999900090019002900390049005900690079008900990109011901290139014901590169017901890199020902190229023902490259026902790289029903090319032903390349035903690379038903990409041904290439044904590469047904890499050905190529053905490559056905790589059906090619062906390649065906690679068906990709071907290739074907590769077907890799080908190829083908490859086908790889089909090919092909390949095909690979098909991009101910291039104910591069107910891099110911191129113911491159116911791189119912091219122912391249125912691279128912991309131913291339134913591369137913891399140914191429143914491459146914791489149915091519152915391549155915691579158915991609161916291639164916591669167916891699170917191729173917491759176917791789179918091819182918391849185918691879188918991909191919291939194919591969197919891999200920192029203920492059206920792089209921092119212921392149215921692179218921992209221922292239224922592269227922892299230923192329233923492359236923792389239924092419242924392449245924692479248924992509251925292539254925592569257925892599260926192629263926492659266926792689269927092719272927392749275927692779278927992809281928292839284928592869287928892899290929192929293929492959296929792989299930093019302930393049305930693079308930993109311931293139314931593169317931893199320932193229323932493259326932793289329933093319332933393349335933693379338933993409341934293439344934593469347934893499350935193529353935493559356935793589359936093619362936393649365936693679368936993709371937293739374937593769377937893799380938193829383938493859386938793889389939093919392939393949395939693979398939994009401940294039404940594069407940894099410941194129413941494159416941794189419942094219422942394249425942694279428942994309431943294339434943594369437943894399440944194429443944494459446944794489449945094519452945394549455945694579458945994609461946294639464946594669467946894699470947194729473947494759476947794789479948094819482948394849485948694879488948994909491949294939494949594969497949894999500950195029503950495059506950795089509951095119512951395149515951695179518951995209521952295239524952595269527952895299530953195329533953495359536953795389539954095419542954395449545954695479548954995509551955295539554955595569557955895599560956195629563956495659566956795689569957095719572957395749575957695779578957995809581958295839584958595869587958895899590959195929593959495959596959795989599960096019602960396049605960696079608960996109611961296139614961596169617961896199620962196229623962496259626962796289629963096319632963396349635963696379638963996409641964296439644964596469647964896499650965196529653965496559656965796589659966096619662966396649665966696679668966996709671967296739674967596769677967896799680968196829683968496859686968796889689969096919692969396949695969696979698969997009701970297039704970597069707970897099710971197129713971497159716971797189719972097219722972397249725972697279728972997309731973297339734973597369737973897399740974197429743974497459746974797489749975097519752975397549755975697579758975997609761976297639764976597669767976897699770977197729773977497759776977797789779978097819782978397849785978697879788978997909791979297939794979597969797979897999800980198029803980498059806980798089809981098119812981398149815981698179818981998209821982298239824982598269827982898299830983198329833983498359836983798389839984098419842984398449845984698479848984998509851985298539854985598569857985898599860986198629863986498659866986798689869987098719872987398749875987698779878987998809881988298839884988598869887988898899890989198929893989498959896989798989899990099019902990399049905990699079908990999109911991299139914991599169917991899199920992199229923992499259926992799289929993099319932993399349935993699379938993999409941994299439944994599469947994899499950995199529953995499559956995799589959996099619962996399649965996699679968996999709971997299739974997599769977997899799980998199829983998499859986998799889989999099919992999399949995999699979998999910000100011000210003100041000510006100071000810009100101001110012100131001410015100161001710018100191002010021100221002310024100251002610027100281002910030100311003210033100341003510036100371003810039100401004110042100431004410045100461004710048100491005010051100521005310054100551005610057100581005910060100611006210063100641006510066100671006810069100701007110072100731007410075100761007710078100791008010081100821008310084100851008610087100881008910090100911009210093100941009510096100971009810099101001010110102101031010410105101061010710108101091011010111101121011310114101151011610117101181011910120101211012210123101241012510126101271012810129101301013110132101331013410135101361013710138101391014010141101421014310144101451014610147101481014910150101511015210153101541015510156101571015810159101601016110162101631016410165101661016710168101691017010171101721017310174101751017610177101781017910180101811018210183101841018510186101871018810189101901019110192101931019410195101961019710198101991020010201102021020310204102051020610207102081020910210102111021210213102141021510216102171021810219102201022110222102231022410225102261022710228102291023010231102321023310234102351023610237102381023910240102411024210243102441024510246102471024810249102501025110252102531025410255102561025710258102591026010261102621026310264102651026610267102681026910270102711027210273102741027510276102771027810279102801028110282102831028410285102861028710288102891029010291102921029310294102951029610297102981029910300103011030210303103041030510306103071030810309103101031110312103131031410315103161031710318103191032010321103221032310324103251032610327103281032910330103311033210333103341033510336103371033810339103401034110342103431034410345103461034710348103491035010351103521035310354103551035610357103581035910360103611036210363103641036510366103671036810369103701037110372103731037410375103761037710378103791038010381103821038310384103851038610387103881038910390103911039210393103941039510396103971039810399104001040110402104031040410405104061040710408104091041010411104121041310414104151041610417104181041910420104211042210423104241042510426104271042810429104301043110432104331043410435104361043710438104391044010441104421044310444104451044610447104481044910450104511045210453104541045510456104571045810459104601046110462104631046410465104661046710468104691047010471104721047310474104751047610477104781047910480104811048210483104841048510486104871048810489104901049110492104931049410495104961049710498104991050010501105021050310504105051050610507105081050910510105111051210513105141051510516105171051810519105201052110522105231052410525105261052710528105291053010531105321053310534105351053610537105381053910540105411054210543105441054510546105471054810549105501055110552105531055410555105561055710558105591056010561105621056310564105651056610567105681056910570105711057210573105741057510576105771057810579105801058110582105831058410585105861058710588105891059010591105921059310594105951059610597105981059910600106011060210603106041060510606106071060810609106101061110612106131061410615106161061710618106191062010621106221062310624106251062610627106281062910630106311063210633106341063510636106371063810639106401064110642106431064410645106461064710648106491065010651106521065310654106551065610657106581065910660106611066210663106641066510666106671066810669106701067110672106731067410675106761067710678106791068010681106821068310684106851068610687106881068910690106911069210693106941069510696106971069810699107001070110702107031070410705107061070710708107091071010711107121071310714107151071610717107181071910720107211072210723107241072510726107271072810729107301073110732107331073410735107361073710738107391074010741107421074310744107451074610747107481074910750107511075210753107541075510756107571075810759107601076110762107631076410765107661076710768107691077010771107721077310774107751077610777107781077910780107811078210783107841078510786107871078810789107901079110792107931079410795107961079710798107991080010801108021080310804108051080610807108081080910810108111081210813108141081510816108171081810819108201082110822108231082410825108261082710828108291083010831108321083310834108351083610837108381083910840108411084210843108441084510846108471084810849108501085110852108531085410855108561085710858108591086010861108621086310864108651086610867108681086910870108711087210873108741087510876108771087810879108801088110882108831088410885108861088710888108891089010891108921089310894108951089610897108981089910900109011090210903109041090510906109071090810909109101091110912109131091410915109161091710918109191092010921109221092310924109251092610927109281092910930109311093210933109341093510936109371093810939109401094110942109431094410945109461094710948109491095010951109521095310954109551095610957109581095910960109611096210963109641096510966109671096810969109701097110972109731097410975109761097710978109791098010981109821098310984109851098610987109881098910990109911099210993109941099510996109971099810999110001100111002110031100411005110061100711008110091101011011110121101311014110151101611017110181101911020110211102211023110241102511026110271102811029110301103111032110331103411035110361103711038110391104011041110421104311044110451104611047110481104911050110511105211053110541105511056110571105811059110601106111062110631106411065110661106711068110691107011071110721107311074110751107611077110781107911080110811108211083110841108511086110871108811089110901109111092110931109411095110961109711098110991110011101111021110311104111051110611107111081110911110111111111211113111141111511116111171111811119111201112111122111231112411125111261112711128111291113011131111321113311134111351113611137111381113911140111411114211143111441114511146111471114811149111501115111152111531115411155111561115711158111591116011161111621116311164111651116611167111681116911170111711117211173111741117511176111771117811179111801118111182111831118411185111861118711188111891119011191111921119311194111951119611197111981119911200112011120211203112041120511206112071120811209112101121111212112131121411215112161121711218112191122011221112221122311224112251122611227112281122911230112311123211233112341123511236112371123811239112401124111242112431124411245112461124711248112491125011251112521125311254112551125611257112581125911260112611126211263112641126511266112671126811269112701127111272112731127411275112761127711278112791128011281112821128311284112851128611287112881128911290112911129211293112941129511296112971129811299113001130111302113031130411305113061130711308113091131011311113121131311314113151131611317113181131911320113211132211323113241132511326113271132811329113301133111332113331133411335113361133711338113391134011341113421134311344113451134611347113481134911350113511135211353113541135511356113571135811359113601136111362113631136411365113661136711368113691137011371113721137311374113751137611377113781137911380113811138211383113841138511386113871138811389113901139111392113931139411395113961139711398113991140011401114021140311404114051140611407114081140911410114111141211413114141141511416114171141811419114201142111422114231142411425114261142711428114291143011431114321143311434114351143611437114381143911440114411144211443114441144511446114471144811449114501145111452114531145411455114561145711458114591146011461114621146311464114651146611467114681146911470114711147211473114741147511476114771147811479114801148111482114831148411485114861148711488114891149011491114921149311494114951149611497114981149911500115011150211503115041150511506115071150811509115101151111512115131151411515115161151711518115191152011521115221152311524115251152611527115281152911530115311153211533115341153511536115371153811539115401154111542115431154411545115461154711548115491155011551115521155311554115551155611557115581155911560115611156211563115641156511566115671156811569115701157111572115731157411575115761157711578115791158011581115821158311584115851158611587115881158911590115911159211593115941159511596115971159811599116001160111602116031160411605116061160711608116091161011611116121161311614116151161611617116181161911620116211162211623116241162511626116271162811629116301163111632116331163411635116361163711638116391164011641116421164311644116451164611647116481164911650116511165211653116541165511656116571165811659116601166111662116631166411665116661166711668116691167011671116721167311674116751167611677116781167911680116811168211683116841168511686116871168811689116901169111692116931169411695116961169711698116991170011701117021170311704117051170611707117081170911710117111171211713117141171511716117171171811719117201172111722117231172411725117261172711728117291173011731117321173311734117351173611737117381173911740117411174211743117441174511746117471174811749117501175111752117531175411755117561175711758117591176011761117621176311764117651176611767117681176911770117711177211773117741177511776117771177811779117801178111782117831178411785117861178711788117891179011791117921179311794117951179611797117981179911800118011180211803118041180511806118071180811809118101181111812118131181411815118161181711818118191182011821118221182311824118251182611827118281182911830118311183211833118341183511836118371183811839118401184111842118431184411845118461184711848118491185011851118521185311854118551185611857118581185911860118611186211863118641186511866118671186811869118701187111872118731187411875118761187711878118791188011881118821188311884118851188611887118881188911890118911189211893118941189511896118971189811899119001190111902119031190411905119061190711908119091191011911119121191311914119151191611917119181191911920119211192211923119241192511926119271192811929119301193111932119331193411935119361193711938119391194011941119421194311944119451194611947119481194911950119511195211953119541195511956119571195811959119601196111962119631196411965119661196711968119691197011971119721197311974119751197611977119781197911980119811198211983119841198511986119871198811989119901199111992119931199411995119961199711998119991200012001120021200312004120051200612007120081200912010120111201212013120141201512016120171201812019120201202112022120231202412025120261202712028120291203012031120321203312034120351203612037120381203912040120411204212043120441204512046120471204812049120501205112052120531205412055120561205712058120591206012061120621206312064120651206612067120681206912070120711207212073120741207512076120771207812079120801208112082120831208412085120861208712088120891209012091120921209312094120951209612097120981209912100121011210212103121041210512106121071210812109121101211112112121131211412115121161211712118121191212012121121221212312124121251212612127121281212912130121311213212133121341213512136121371213812139121401214112142121431214412145121461214712148121491215012151121521215312154121551215612157121581215912160121611216212163121641216512166121671216812169121701217112172121731217412175121761217712178121791218012181121821218312184121851218612187121881218912190121911219212193121941219512196121971219812199122001220112202122031220412205122061220712208122091221012211122121221312214122151221612217122181221912220122211222212223122241222512226122271222812229122301223112232122331223412235122361223712238122391224012241122421224312244122451224612247122481224912250122511225212253122541225512256122571225812259122601226112262122631226412265122661226712268122691227012271122721227312274122751227612277122781227912280122811228212283122841228512286122871228812289122901229112292122931229412295122961229712298122991230012301123021230312304123051230612307123081230912310123111231212313123141231512316123171231812319123201232112322123231232412325123261232712328123291233012331123321233312334123351233612337123381233912340123411234212343123441234512346123471234812349123501235112352123531235412355123561235712358123591236012361123621236312364123651236612367123681236912370123711237212373123741237512376123771237812379123801238112382123831238412385123861238712388123891239012391123921239312394123951239612397123981239912400124011240212403124041240512406124071240812409124101241112412124131241412415124161241712418124191242012421124221242312424124251242612427124281242912430124311243212433124341243512436124371243812439124401244112442124431244412445124461244712448124491245012451124521245312454124551245612457124581245912460124611246212463124641246512466124671246812469124701247112472124731247412475124761247712478124791248012481124821248312484124851248612487124881248912490124911249212493124941249512496124971249812499125001250112502125031250412505125061250712508125091251012511125121251312514125151251612517125181251912520125211252212523125241252512526125271252812529125301253112532125331253412535125361253712538125391254012541125421254312544125451254612547125481254912550125511255212553125541255512556125571255812559125601256112562125631256412565125661256712568125691257012571125721257312574125751257612577125781257912580125811258212583125841258512586125871258812589125901259112592125931259412595125961259712598125991260012601126021260312604126051260612607126081260912610126111261212613126141261512616126171261812619126201262112622126231262412625126261262712628126291263012631126321263312634126351263612637126381263912640126411264212643126441264512646126471264812649126501265112652126531265412655126561265712658126591266012661126621266312664126651266612667126681266912670126711267212673126741267512676126771267812679126801268112682126831268412685126861268712688126891269012691126921269312694126951269612697126981269912700127011270212703127041270512706127071270812709127101271112712127131271412715127161271712718127191272012721127221272312724127251272612727127281272912730127311273212733127341273512736127371273812739127401274112742127431274412745127461274712748127491275012751127521275312754127551275612757127581275912760127611276212763127641276512766127671276812769127701277112772127731277412775127761277712778127791278012781127821278312784127851278612787127881278912790127911279212793127941279512796127971279812799128001280112802128031280412805128061280712808128091281012811128121281312814128151281612817128181281912820128211282212823128241282512826128271282812829128301283112832128331283412835128361283712838128391284012841128421284312844128451284612847128481284912850128511285212853128541285512856128571285812859128601286112862128631286412865128661286712868128691287012871128721287312874128751287612877128781287912880128811288212883128841288512886128871288812889128901289112892128931289412895128961289712898128991290012901129021290312904129051290612907129081290912910129111291212913129141291512916129171291812919129201292112922129231292412925129261292712928129291293012931129321293312934129351293612937129381293912940129411294212943129441294512946129471294812949129501295112952129531295412955129561295712958129591296012961129621296312964129651296612967129681296912970129711297212973129741297512976129771297812979129801298112982129831298412985129861298712988129891299012991129921299312994129951299612997129981299913000130011300213003130041300513006130071300813009130101301113012130131301413015130161301713018130191302013021130221302313024130251302613027130281302913030130311303213033130341303513036130371303813039130401304113042130431304413045130461304713048130491305013051130521305313054130551305613057130581305913060130611306213063130641306513066130671306813069130701307113072130731307413075130761307713078130791308013081130821308313084130851308613087130881308913090130911309213093130941309513096130971309813099131001310113102131031310413105131061310713108131091311013111131121311313114131151311613117131181311913120131211312213123131241312513126131271312813129131301313113132131331313413135131361313713138131391314013141131421314313144131451314613147131481314913150131511315213153131541315513156131571315813159131601316113162131631316413165131661316713168131691317013171131721317313174131751317613177131781317913180131811318213183131841318513186131871318813189131901319113192131931319413195131961319713198131991320013201132021320313204132051320613207132081320913210132111321213213132141321513216132171321813219132201322113222132231322413225132261322713228132291323013231132321323313234132351323613237132381323913240132411324213243132441324513246132471324813249132501325113252132531325413255132561325713258132591326013261132621326313264132651326613267132681326913270132711327213273132741327513276132771327813279132801328113282132831328413285132861328713288132891329013291132921329313294132951329613297132981329913300133011330213303133041330513306133071330813309133101331113312133131331413315133161331713318133191332013321133221332313324133251332613327133281332913330133311333213333133341333513336133371333813339133401334113342133431334413345133461334713348133491335013351133521335313354133551335613357133581335913360133611336213363133641336513366133671336813369133701337113372133731337413375133761337713378133791338013381133821338313384133851338613387133881338913390133911339213393133941339513396133971339813399134001340113402134031340413405134061340713408134091341013411134121341313414134151341613417134181341913420134211342213423134241342513426134271342813429134301343113432134331343413435134361343713438134391344013441134421344313444134451344613447134481344913450134511345213453134541345513456134571345813459134601346113462134631346413465134661346713468134691347013471134721347313474134751347613477134781347913480134811348213483134841348513486134871348813489134901349113492134931349413495134961349713498134991350013501135021350313504135051350613507135081350913510135111351213513135141351513516135171351813519135201352113522135231352413525135261352713528135291353013531135321353313534135351353613537135381353913540135411354213543135441354513546135471354813549135501355113552135531355413555135561355713558135591356013561135621356313564135651356613567135681356913570135711357213573135741357513576135771357813579135801358113582135831358413585135861358713588135891359013591135921359313594135951359613597135981359913600136011360213603136041360513606136071360813609136101361113612136131361413615136161361713618136191362013621136221362313624136251362613627136281362913630136311363213633136341363513636136371363813639136401364113642136431364413645136461364713648136491365013651136521365313654136551365613657136581365913660136611366213663136641366513666136671366813669136701367113672136731367413675136761367713678136791368013681136821368313684136851368613687136881368913690136911369213693136941369513696136971369813699137001370113702137031370413705137061370713708137091371013711137121371313714137151371613717137181371913720137211372213723137241372513726137271372813729137301373113732137331373413735137361373713738137391374013741137421374313744137451374613747137481374913750137511375213753137541375513756137571375813759137601376113762137631376413765137661376713768137691377013771137721377313774137751377613777137781377913780137811378213783137841378513786137871378813789137901379113792137931379413795137961379713798137991380013801138021380313804138051380613807138081380913810138111381213813138141381513816138171381813819138201382113822138231382413825138261382713828138291383013831138321383313834138351383613837138381383913840138411384213843138441384513846138471384813849138501385113852138531385413855138561385713858138591386013861138621386313864138651386613867138681386913870138711387213873138741387513876138771387813879138801388113882138831388413885138861388713888138891389013891138921389313894138951389613897138981389913900139011390213903139041390513906139071390813909139101391113912139131391413915139161391713918139191392013921139221392313924139251392613927139281392913930139311393213933139341393513936139371393813939139401394113942139431394413945139461394713948139491395013951139521395313954139551395613957139581395913960139611396213963139641396513966139671396813969139701397113972139731397413975139761397713978139791398013981139821398313984139851398613987139881398913990139911399213993139941399513996139971399813999140001400114002140031400414005140061400714008140091401014011140121401314014140151401614017140181401914020140211402214023140241402514026140271402814029140301403114032140331403414035140361403714038140391404014041140421404314044140451404614047140481404914050140511405214053140541405514056140571405814059140601406114062140631406414065140661406714068140691407014071140721407314074140751407614077140781407914080140811408214083140841408514086140871408814089140901409114092140931409414095140961409714098140991410014101141021410314104141051410614107141081410914110141111411214113141141411514116141171411814119141201412114122141231412414125141261412714128141291413014131141321413314134141351413614137141381413914140141411414214143141441414514146141471414814149141501415114152141531415414155141561415714158141591416014161141621416314164141651416614167141681416914170141711417214173141741417514176141771417814179141801418114182141831418414185141861418714188141891419014191141921419314194141951419614197141981419914200142011420214203142041420514206142071420814209142101421114212142131421414215142161421714218142191422014221142221422314224142251422614227142281422914230142311423214233142341423514236142371423814239142401424114242142431424414245142461424714248142491425014251142521425314254142551425614257142581425914260142611426214263142641426514266142671426814269142701427114272142731427414275142761427714278142791428014281142821428314284142851428614287142881428914290142911429214293142941429514296142971429814299143001430114302143031430414305143061430714308143091431014311143121431314314143151431614317143181431914320143211432214323143241432514326143271432814329143301433114332143331433414335143361433714338143391434014341143421434314344143451434614347143481434914350143511435214353143541435514356143571435814359143601436114362143631436414365143661436714368143691437014371143721437314374143751437614377143781437914380143811438214383143841438514386143871438814389143901439114392143931439414395143961439714398143991440014401144021440314404144051440614407144081440914410144111441214413144141441514416144171441814419144201442114422144231442414425144261442714428144291443014431144321443314434144351443614437144381443914440144411444214443144441444514446144471444814449144501445114452144531445414455144561445714458144591446014461144621446314464144651446614467144681446914470144711447214473144741447514476144771447814479144801448114482144831448414485144861448714488144891449014491144921449314494144951449614497144981449914500145011450214503145041450514506145071450814509145101451114512145131451414515145161451714518145191452014521145221452314524145251452614527145281452914530145311453214533145341453514536145371453814539145401454114542145431454414545145461454714548145491455014551145521455314554145551455614557145581455914560145611456214563145641456514566145671456814569145701457114572145731457414575145761457714578145791458014581145821458314584145851458614587145881458914590145911459214593145941459514596145971459814599146001460114602146031460414605146061460714608146091461014611146121461314614146151461614617146181461914620146211462214623146241462514626146271462814629146301463114632146331463414635146361463714638146391464014641146421464314644146451464614647146481464914650146511465214653146541465514656146571465814659146601466114662146631466414665146661466714668146691467014671146721467314674146751467614677146781467914680146811468214683146841468514686146871468814689146901469114692146931469414695146961469714698146991470014701147021470314704147051470614707147081470914710147111471214713147141471514716147171471814719147201472114722147231472414725147261472714728147291473014731147321473314734147351473614737147381473914740147411474214743147441474514746147471474814749147501475114752147531475414755147561475714758147591476014761147621476314764147651476614767147681476914770147711477214773147741477514776147771477814779147801478114782147831478414785147861478714788147891479014791147921479314794147951479614797147981479914800148011480214803148041480514806148071480814809148101481114812148131481414815148161481714818148191482014821148221482314824148251482614827148281482914830148311483214833148341483514836148371483814839148401484114842148431484414845148461484714848148491485014851148521485314854148551485614857148581485914860148611486214863148641486514866148671486814869148701487114872148731487414875148761487714878148791488014881148821488314884148851488614887148881488914890148911489214893148941489514896148971489814899149001490114902149031490414905149061490714908149091491014911149121491314914149151491614917149181491914920149211492214923149241492514926149271492814929149301493114932149331493414935149361493714938149391494014941149421494314944149451494614947149481494914950149511495214953149541495514956149571495814959149601496114962149631496414965149661496714968149691497014971149721497314974149751497614977149781497914980149811498214983149841498514986149871498814989149901499114992149931499414995149961499714998149991500015001150021500315004150051500615007150081500915010150111501215013150141501515016150171501815019150201502115022150231502415025150261502715028150291503015031150321503315034150351503615037150381503915040150411504215043150441504515046150471504815049150501505115052150531505415055150561505715058150591506015061150621506315064150651506615067150681506915070150711507215073150741507515076150771507815079150801508115082150831508415085150861508715088150891509015091150921509315094150951509615097150981509915100151011510215103151041510515106151071510815109151101511115112151131511415115151161511715118151191512015121151221512315124151251512615127151281512915130151311513215133151341513515136151371513815139151401514115142151431514415145151461514715148151491515015151151521515315154151551515615157151581515915160151611516215163151641516515166151671516815169151701517115172151731517415175151761517715178151791518015181151821518315184151851518615187151881518915190151911519215193151941519515196151971519815199152001520115202152031520415205152061520715208152091521015211152121521315214152151521615217152181521915220152211522215223152241522515226152271522815229152301523115232152331523415235152361523715238152391524015241152421524315244152451524615247152481524915250152511525215253152541525515256152571525815259152601526115262152631526415265152661526715268152691527015271152721527315274152751527615277152781527915280152811528215283152841528515286152871528815289152901529115292152931529415295152961529715298152991530015301153021530315304153051530615307153081530915310153111531215313153141531515316153171531815319153201532115322153231532415325153261532715328153291533015331153321533315334153351533615337153381533915340153411534215343153441534515346153471534815349153501535115352153531535415355153561535715358153591536015361153621536315364153651536615367153681536915370153711537215373153741537515376153771537815379153801538115382153831538415385153861538715388153891539015391153921539315394153951539615397153981539915400154011540215403154041540515406154071540815409154101541115412154131541415415154161541715418154191542015421154221542315424154251542615427154281542915430154311543215433154341543515436154371543815439154401544115442154431544415445154461544715448154491545015451154521545315454154551545615457154581545915460154611546215463154641546515466154671546815469154701547115472154731547415475154761547715478154791548015481154821548315484154851548615487154881548915490154911549215493154941549515496154971549815499155001550115502155031550415505155061550715508155091551015511155121551315514155151551615517155181551915520155211552215523155241552515526155271552815529155301553115532155331553415535155361553715538155391554015541155421554315544155451554615547155481554915550155511555215553155541555515556155571555815559155601556115562155631556415565155661556715568155691557015571155721557315574155751557615577155781557915580155811558215583155841558515586155871558815589155901559115592155931559415595155961559715598155991560015601156021560315604156051560615607156081560915610156111561215613156141561515616156171561815619156201562115622156231562415625156261562715628156291563015631156321563315634156351563615637156381563915640156411564215643156441564515646156471564815649156501565115652156531565415655156561565715658156591566015661156621566315664156651566615667156681566915670156711567215673156741567515676156771567815679156801568115682156831568415685156861568715688156891569015691156921569315694156951569615697156981569915700157011570215703157041570515706157071570815709157101571115712157131571415715157161571715718157191572015721157221572315724157251572615727157281572915730157311573215733157341573515736157371573815739157401574115742157431574415745157461574715748157491575015751157521575315754157551575615757157581575915760157611576215763157641576515766157671576815769157701577115772157731577415775157761577715778157791578015781157821578315784157851578615787157881578915790157911579215793157941579515796157971579815799158001580115802158031580415805158061580715808158091581015811158121581315814158151581615817158181581915820158211582215823158241582515826158271582815829158301583115832158331583415835158361583715838158391584015841158421584315844158451584615847158481584915850158511585215853158541585515856158571585815859158601586115862158631586415865158661586715868158691587015871158721587315874158751587615877158781587915880158811588215883158841588515886158871588815889158901589115892158931589415895158961589715898158991590015901159021590315904159051590615907159081590915910159111591215913159141591515916159171591815919159201592115922159231592415925159261592715928159291593015931159321593315934159351593615937159381593915940159411594215943159441594515946159471594815949159501595115952159531595415955159561595715958159591596015961159621596315964159651596615967159681596915970159711597215973159741597515976159771597815979159801598115982159831598415985159861598715988159891599015991159921599315994159951599615997159981599916000160011600216003160041600516006160071600816009160101601116012160131601416015160161601716018160191602016021160221602316024160251602616027160281602916030160311603216033160341603516036160371603816039160401604116042160431604416045160461604716048160491605016051160521605316054160551605616057160581605916060160611606216063160641606516066160671606816069160701607116072160731607416075160761607716078160791608016081160821608316084160851608616087160881608916090160911609216093160941609516096160971609816099161001610116102161031610416105161061610716108161091611016111161121611316114161151611616117161181611916120161211612216123161241612516126161271612816129161301613116132161331613416135161361613716138161391614016141161421614316144161451614616147161481614916150161511615216153161541615516156161571615816159161601616116162161631616416165161661616716168161691617016171161721617316174161751617616177161781617916180161811618216183161841618516186161871618816189161901619116192161931619416195161961619716198161991620016201162021620316204162051620616207162081620916210162111621216213162141621516216162171621816219162201622116222162231622416225162261622716228162291623016231162321623316234162351623616237162381623916240162411624216243162441624516246162471624816249162501625116252162531625416255162561625716258162591626016261162621626316264162651626616267162681626916270162711627216273162741627516276162771627816279162801628116282162831628416285162861628716288162891629016291162921629316294162951629616297162981629916300163011630216303163041630516306163071630816309163101631116312163131631416315163161631716318163191632016321163221632316324163251632616327163281632916330163311633216333163341633516336163371633816339163401634116342163431634416345163461634716348163491635016351163521635316354163551635616357163581635916360163611636216363163641636516366163671636816369163701637116372163731637416375163761637716378163791638016381163821638316384163851638616387163881638916390163911639216393163941639516396163971639816399164001640116402164031640416405164061640716408164091641016411164121641316414164151641616417164181641916420164211642216423164241642516426164271642816429164301643116432164331643416435164361643716438164391644016441164421644316444164451644616447164481644916450164511645216453164541645516456164571645816459164601646116462164631646416465164661646716468164691647016471164721647316474164751647616477164781647916480164811648216483164841648516486164871648816489164901649116492164931649416495164961649716498164991650016501165021650316504165051650616507165081650916510165111651216513165141651516516165171651816519165201652116522165231652416525165261652716528165291653016531165321653316534165351653616537165381653916540165411654216543165441654516546165471654816549165501655116552165531655416555165561655716558165591656016561165621656316564165651656616567165681656916570165711657216573165741657516576165771657816579165801658116582165831658416585165861658716588165891659016591165921659316594165951659616597165981659916600166011660216603166041660516606166071660816609166101661116612166131661416615166161661716618166191662016621166221662316624166251662616627166281662916630166311663216633166341663516636166371663816639166401664116642166431664416645166461664716648166491665016651166521665316654166551665616657166581665916660166611666216663166641666516666166671666816669166701667116672166731667416675166761667716678166791668016681166821668316684166851668616687166881668916690166911669216693166941669516696166971669816699167001670116702167031670416705167061670716708167091671016711167121671316714167151671616717167181671916720167211672216723167241672516726167271672816729167301673116732167331673416735167361673716738167391674016741167421674316744167451674616747167481674916750167511675216753167541675516756167571675816759167601676116762167631676416765167661676716768167691677016771167721677316774167751677616777167781677916780167811678216783167841678516786167871678816789167901679116792167931679416795167961679716798167991680016801168021680316804168051680616807168081680916810168111681216813168141681516816168171681816819168201682116822168231682416825168261682716828168291683016831168321683316834168351683616837168381683916840168411684216843168441684516846168471684816849168501685116852168531685416855168561685716858168591686016861168621686316864168651686616867168681686916870168711687216873168741687516876168771687816879168801688116882168831688416885168861688716888168891689016891168921689316894168951689616897168981689916900169011690216903169041690516906169071690816909169101691116912169131691416915169161691716918169191692016921169221692316924169251692616927169281692916930169311693216933169341693516936169371693816939169401694116942169431694416945169461694716948169491695016951169521695316954169551695616957169581695916960169611696216963169641696516966169671696816969169701697116972169731697416975169761697716978169791698016981169821698316984169851698616987169881698916990169911699216993169941699516996169971699816999170001700117002170031700417005170061700717008170091701017011170121701317014170151701617017170181701917020170211702217023170241702517026170271702817029170301703117032170331703417035170361703717038170391704017041170421704317044170451704617047170481704917050170511705217053170541705517056170571705817059170601706117062170631706417065170661706717068170691707017071170721707317074170751707617077170781707917080170811708217083170841708517086170871708817089170901709117092170931709417095170961709717098170991710017101171021710317104171051710617107171081710917110171111711217113171141711517116171171711817119171201712117122171231712417125171261712717128171291713017131171321713317134171351713617137171381713917140171411714217143171441714517146171471714817149171501715117152171531715417155171561715717158171591716017161171621716317164171651716617167171681716917170171711717217173171741717517176171771717817179171801718117182171831718417185171861718717188171891719017191171921719317194171951719617197171981719917200172011720217203172041720517206172071720817209172101721117212172131721417215172161721717218172191722017221172221722317224172251722617227172281722917230172311723217233172341723517236172371723817239172401724117242172431724417245172461724717248172491725017251172521725317254172551725617257172581725917260172611726217263172641726517266172671726817269172701727117272172731727417275172761727717278172791728017281172821728317284172851728617287172881728917290172911729217293172941729517296172971729817299173001730117302173031730417305173061730717308173091731017311173121731317314173151731617317173181731917320173211732217323173241732517326173271732817329173301733117332173331733417335173361733717338173391734017341173421734317344173451734617347173481734917350173511735217353173541735517356173571735817359173601736117362173631736417365173661736717368173691737017371173721737317374173751737617377173781737917380173811738217383173841738517386173871738817389173901739117392173931739417395173961739717398173991740017401174021740317404174051740617407174081740917410174111741217413174141741517416174171741817419174201742117422174231742417425174261742717428174291743017431174321743317434174351743617437174381743917440174411744217443174441744517446174471744817449174501745117452174531745417455174561745717458174591746017461174621746317464174651746617467174681746917470174711747217473174741747517476174771747817479174801748117482174831748417485174861748717488174891749017491174921749317494174951749617497174981749917500175011750217503175041750517506175071750817509175101751117512175131751417515175161751717518175191752017521175221752317524175251752617527175281752917530175311753217533175341753517536175371753817539175401754117542175431754417545175461754717548175491755017551175521755317554175551755617557175581755917560175611756217563175641756517566175671756817569175701757117572175731757417575175761757717578175791758017581175821758317584175851758617587175881758917590175911759217593175941759517596175971759817599176001760117602176031760417605176061760717608176091761017611176121761317614176151761617617176181761917620176211762217623176241762517626176271762817629176301763117632176331763417635176361763717638176391764017641176421764317644176451764617647176481764917650176511765217653176541765517656176571765817659176601766117662176631766417665176661766717668176691767017671176721767317674176751767617677176781767917680176811768217683176841768517686176871768817689176901769117692176931769417695176961769717698176991770017701177021770317704177051770617707177081770917710177111771217713177141771517716177171771817719177201772117722177231772417725177261772717728177291773017731177321773317734177351773617737177381773917740177411774217743177441774517746177471774817749177501775117752177531775417755177561775717758177591776017761177621776317764177651776617767177681776917770177711777217773177741777517776177771777817779177801778117782177831778417785177861778717788177891779017791177921779317794177951779617797177981779917800178011780217803178041780517806178071780817809178101781117812178131781417815178161781717818178191782017821178221782317824178251782617827178281782917830178311783217833178341783517836178371783817839178401784117842178431784417845178461784717848178491785017851178521785317854178551785617857178581785917860178611786217863178641786517866178671786817869178701787117872178731787417875178761787717878178791788017881178821788317884178851788617887178881788917890178911789217893178941789517896178971789817899179001790117902179031790417905179061790717908179091791017911179121791317914179151791617917179181791917920179211792217923179241792517926179271792817929179301793117932179331793417935179361793717938179391794017941179421794317944179451794617947179481794917950179511795217953179541795517956179571795817959179601796117962179631796417965179661796717968179691797017971179721797317974179751797617977179781797917980179811798217983179841798517986179871798817989179901799117992179931799417995179961799717998179991800018001180021800318004180051800618007180081800918010180111801218013180141801518016180171801818019180201802118022180231802418025180261802718028180291803018031180321803318034180351803618037180381803918040180411804218043180441804518046180471804818049180501805118052180531805418055180561805718058180591806018061180621806318064180651806618067180681806918070180711807218073180741807518076180771807818079180801808118082180831808418085 |
- /* ====================================================================
- |
- | Amber Smalltalk
- | http://amber-lang.net
- |
- ======================================================================
- ======================================================================
- |
- | Copyright (c) 2010-2011
- | Nicolas Petton <petton.nicolas@gmail.com>
- |
- | Amber is released under the MIT license
- |
- | Permission is hereby granted, free of charge, to any person obtaining
- | a copy of this software and associated documentation files (the
- | 'Software'), to deal in the Software without restriction, including
- | without limitation the rights to use, copy, modify, merge, publish,
- | distribute, sublicense, and/or sell copies of the Software, and to
- | permit persons to whom the Software is furnished to do so, subject to
- | the following conditions:
- |
- | The above copyright notice and this permission notice shall be
- | included in all copies or substantial portions of the Software.
- |
- | THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
- | EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
- | MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
- | IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
- | CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
- | TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
- | SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
- |
- ==================================================================== */
- /* Make that console is defined */
- if (typeof console === "undefined") {
- this.console = {
- log: function() {},
- warn: function() {},
- info: function() {},
- debug: function() {},
- error: function() {}
- };
- }
- /* Smalltalk constructors definition */
- function SmalltalkObject(){};
- function SmalltalkBehavior(){};
- function SmalltalkClass(){};
- function SmalltalkPackage(){};
- function SmalltalkMetaclass(){
- this.meta = true;
- };
- function SmalltalkMethod(){};
- function SmalltalkNil(){};
- function SmalltalkSymbol(string){
- this.value = string;
- };
- function Smalltalk(){
- var st = this;
- /* This is the current call context object. While it is publicly available,
- Use smalltalk.getThisContext() instead which will answer a safe copy of
- the current context */
- st.thisContext = undefined;
- /* List of all reserved words in JavaScript. They may not be used as variables
- in Smalltalk. */
- st.reservedWords = ['break', 'case', 'catch', 'char', 'class', 'continue', 'debugger',
- 'default', 'delete', 'do', 'else', 'finally', 'for', 'function',
- 'if', 'in', 'instanceof', 'new', 'private', 'protected',
- 'public', 'return', 'static', 'switch', 'this', 'throw',
- 'try', 'typeof', 'var', 'void', 'while', 'with', 'yield'];
- /* The symbol table ensures symbol unicity */
- symbolTable = {};
- st.symbolFor = function(string) {
- if(symbolTable[string] === undefined) {
- symbolTable[string] = new SmalltalkSymbol(string);
- };
- return symbolTable[string];
- };
- /* Unique ID number generator */
- oid = 0;
- st.nextId = function() {
- oid += 1;
- return oid;
- };
- /* We hold all Packages in a separate Object */
- st.packages = {};
- /* Smalltalk package creation. To add a Package, use smalltalk.addPackage() */
- function pkg(spec) {
- var that = new SmalltalkPackage();
- that.pkgName = spec.pkgName;
- that.properties = spec.properties || {};
- return that;
- };
- /* Smalltalk class creation. A class is an instance of an automatically
- created metaclass object. Newly created classes (not their metaclass)
- should be added to the smalltalk object, see smalltalk.addClass().
- Superclass linking is *not* handled here, see smalltalk.init() */
- function klass(spec) {
- var spec = spec || {};
- var that;
- if(spec.meta) {
- that = new SmalltalkMetaclass();
- } else {
- that = new (klass({meta: true})).fn;
- that.klass.instanceClass = that;
- that.className = spec.className;
- that.klass.className = that.className + ' class';
- }
- that.fn = spec.fn || function(){};
- that.superclass = spec.superclass;
- that.iVarNames = spec.iVarNames || [];
- if(that.superclass) {
- that.klass.superclass = that.superclass.klass;
- }
- that.pkg = spec.pkg;
- that.fn.prototype.methods = {};
- that.fn.prototype.inheritedMethods = {};
- that.fn.prototype.klass = that;
- return that;
- };
- /* Smalltalk method object. To add a method to a class,
- use smalltalk.addMethod() */
- st.method = function(spec) {
- var that = new SmalltalkMethod();
- that.selector = spec.selector;
- that.jsSelector = spec.jsSelector;
- that.args = spec.args || {};
- that.category = spec.category;
- that.source = spec.source;
- that.messageSends = spec.messageSends || [];
- that.referencedClasses = spec.referencedClasses || [];
- that.fn = spec.fn;
- return that
- };
- /* Initialize a class in its class hierarchy. Handle both class and
- metaclasses. */
- st.init = function(klass) {
- var subclasses = st.subclasses(klass);
- var methods;
- if(klass.superclass && klass.superclass !== nil) {
- methods = st.methods(klass.superclass);
- //Methods linking
- for(var i in methods) {
- if(!klass.fn.prototype.methods[i]) {
- klass.fn.prototype.inheritedMethods[i] = methods[i];
- klass.fn.prototype[methods[i].jsSelector] = methods[i].fn;
- }
- }
- }
- for(var i=0;i<subclasses.length;i++) {
- st.init(subclasses[i]);
- }
- if(klass.klass && !klass.meta) {
- st.init(klass.klass);
- }
- };
- /* Answer all registered Packages as Array */
- st.packages.all = function() {
- var packages = [];
- for(var i in st.packages) {
- if (!st.packages.hasOwnProperty(i) || typeof(st.packages[i]) === "function") continue;
- packages.push(st.packages[i]);
- }
- return packages
- };
- /* Answer all registered Smalltalk classes */
- st.classes = function() {
- var classes = [];
- for(var i in st) {
- if(i.search(/^[A-Z]/g) != -1) {
- classes.push(st[i]);
- }
- }
- return classes
- };
- /* Answer all methods (included inherited ones) of klass. */
- st.methods = function(klass) {
- var methods = {};
- for(var i in klass.fn.prototype.methods) {
- methods[i] = klass.fn.prototype.methods[i]
- }
- for(var i in klass.fn.prototype.inheritedMethods) {
- methods[i] = klass.fn.prototype.inheritedMethods[i]
- }
- return methods;
- }
- /* Answer the direct subclasses of klass. */
- st.subclasses = function(klass) {
- var subclasses = [];
- var classes = st.classes();
- for(var i in classes) {
- if(classes[i].fn) {
- //Metaclasses
- if(classes[i].klass && classes[i].klass.superclass === klass) {
- subclasses.push(classes[i].klass);
- }
- //Classes
- if(classes[i].superclass === klass) {
- subclasses.push(classes[i]);
- }
- }
- }
- return subclasses;
- };
- /* Create a new class wrapping a JavaScript constructor, and add it to the
- global smalltalk object. Package is lazily created if it does not exist with given name. */
- st.mapClassName = function(className, pkgName, fn, superclass) {
- var pkg = st.addPackage(pkgName);
- st[className] = klass({
- className: className,
- superclass: superclass,
- pkg: pkg,
- fn: fn
- });
- };
- /* Add a package to the smalltalk.packages object, creating a new one if needed.
- If pkgName is null or empty we return nil, which is an allowed package for a class.
- If package already exists we still update the properties of it. */
- st.addPackage = function(pkgName, properties) {
- if(!pkgName) {return nil;}
- if(!(st.packages[pkgName])) {
- st.packages[pkgName] = pkg({
- pkgName: pkgName,
- properties: properties
- });
- } else {
- if(properties) {
- st.packages[pkgName].properties = properties;
- }
- }
- return st.packages[pkgName];
- };
- /* Add a class to the smalltalk object, creating a new one if needed.
- Package is lazily created if it does not exist with given name.*/
- st.addClass = function(className, superclass, iVarNames, pkgName) {
- var pkg = st.addPackage(pkgName);
- if(st[className]) {
- st[className].superclass = superclass;
- st[className].iVarNames = iVarNames;
- st[className].pkg = pkg || st[className].pkg;
- } else {
- st[className] = klass({
- className: className,
- superclass: superclass,
- pkg: pkg,
- iVarNames: iVarNames
- });
- }
- };
- /* Add a method to a class */
- st.addMethod = function(jsSelector, method, klass) {
- klass.fn.prototype[jsSelector] = method.fn;
- klass.fn.prototype.methods[method.selector] = method;
- method.methodClass = klass;
- method.jsSelector = jsSelector;
- };
- /* Handles Smalltalk message send. Automatically converts undefined to the nil object.
- If the receiver does not understand the selector, call its #doesNotUnderstand: method */
- sendWithoutContext = function(receiver, selector, args, klass) {
- if(receiver === undefined || receiver === null) {
- receiver = nil;
- }
- if(!klass && receiver.klass && receiver[selector]) {
- return receiver[selector].apply(receiver, args);
- } else if(klass && klass.fn.prototype[selector]) {
- return klass.fn.prototype[selector].apply(receiver, args)
- }
- return messageNotUnderstood(receiver, selector, args);
- };
- /* Handles unhandled errors during message sends */
- sendWithContext = function(receiver, selector, args, klass) {
- if(st.thisContext) {
- return withContextSend(receiver, selector, args, klass);
- } else {
- try {return withContextSend(receiver, selector, args, klass)}
- catch(error) {
- // Reset the context stack in any case
- st.thisContext = undefined;
- if(error.smalltalkError) {
- handleError(error);
- } else {
- throw(error);
- }
- }
- }
- };
- /* Same as sendWithoutContext but creates a methodContext. */
- withContextSend = function(receiver, selector, args, klass) {
- var call, context;
- if(receiver === undefined || receiver === null) {
- receiver = nil;
- }
- if(!klass && receiver.klass && receiver[selector]) {
- context = pushContext(receiver, selector, args);
- call = receiver[selector].apply(receiver, args);
- popContext(context);
- return call;
- } else if(klass && klass.fn.prototype[selector]) {
- context = pushContext(receiver, selector, args);
- call = klass.fn.prototype[selector].apply(receiver, args);
- popContext(context);
- return call;
- }
- return messageNotUnderstood(receiver, selector, args);
- };
- /* Handles Smalltalk errors. Triggers the registered ErrorHandler
- (See the Smalltalk class ErrorHandler and its subclasses */
- function handleError(error) {
- st.thisContext = undefined;
- smalltalk.ErrorHandler._current()._handleError_(error);
- }
- /* Handles #dnu: *and* JavaScript method calls.
- if the receiver has no klass, we consider it a JS object (outside of the
- Amber system). Else assume that the receiver understands #doesNotUnderstand: */
- function messageNotUnderstood(receiver, selector, args) {
- /* Handles JS method calls. */
- if(receiver.klass === undefined || receiver.allowJavaScriptCalls) {
- return callJavaScriptMethod(receiver, selector, args);
- }
- /* Handles not understood messages. Also see the Amber counter-part
- Object>>doesNotUnderstand: */
- return receiver._doesNotUnderstand_(
- st.Message._new()
- ._selector_(st.convertSelector(selector))
- ._arguments_(args)
- );
- };
- /* Call a method of a JS object, or answer a property if it exists.
- Else try wrapping a JSObjectProxy around the receiver.
- Converts keyword-based selectors by using the first
- keyword only, but keeping all message arguments.
- Example:
- "self do: aBlock with: anObject" -> "self.do(aBlock, anObject)" */
- function callJavaScriptMethod(receiver, selector, args) {
- var jsSelector = selector._asJavaScriptSelector();
- var jsProperty = receiver[jsSelector];
- if(typeof jsProperty === "function") {
- return jsProperty.apply(receiver, args);
- } else if(jsProperty !== undefined) {
- if(args[0]) {
- receiver[jsSelector] = args[0];
- return nil;
- } else {
- return jsProperty
- }
- }
- return st.send(st.JSObjectProxy._on_(receiver), selector, args);
- };
- /* Reuse old contexts stored in oldContexts */
- st.oldContexts = [];
- /* Handle thisContext pseudo variable */
- st.getThisContext = function() {
- if(st.thisContext) {
- return st.thisContext.copy();
- } else {
- return undefined;
- }
- }
- pushContext = function(receiver, selector, temps) {
- if(st.thisContext) {
- return st.thisContext = st.thisContext.newContext(receiver, selector, temps);
- } else {
- return st.thisContext = new SmalltalkMethodContext(receiver, selector, temps);
- }
- };
- popContext = function(context) {
- if(context) {
- context.removeYourself();
- }
- };
- /* Convert a string to a valid smalltalk selector.
- if you modify the following functions, also change String>>asSelector
- accordingly */
- st.convertSelector = function(selector) {
- if(selector.match(/__/)) {
- return convertBinarySelector(selector);
- } else {
- return convertKeywordSelector(selector);
- }
- };
- function convertKeywordSelector(selector) {
- return selector.replace(/^_/, '').replace(/_/g, ':');
- };
- function convertBinarySelector(selector) {
- return selector
- .replace(/^_/, '')
- .replace(/_plus/, '+')
- .replace(/_minus/, '-')
- .replace(/_star/, '*')
- .replace(/_slash/, '/')
- .replace(/_gt/, '>')
- .replace(/_lt/, '<')
- .replace(/_eq/, '=')
- .replace(/_comma/, ',')
- .replace(/_at/, '@')
- };
- /* Converts a JavaScript object to valid Smalltalk Object */
- st.readJSObject = function(js) {
- var object = js;
- var readObject = (js.constructor === Object);
- var readArray = (js.constructor === Array);
- if(readObject) {
- object = smalltalk.Dictionary._new();
- }
- for(var i in js) {
- if(readObject) {
- object._at_put_(i, st.readJSObject(js[i]));
- }
- if(readArray) {
- object[i] = st.readJSObject(js[i]);
- }
- }
- return object;
- };
- /* Toggle deployment mode (no context will be handled during message send */
- st.setDeploymentMode = function() {
- st.send = sendWithoutContext;
- };
- st.setDevelopmentMode = function() {
- st.send = sendWithContext;
- }
- /* Set development mode by default */
- st.setDevelopmentMode();
- }
- function SmalltalkMethodContext(receiver, selector, temps, home) {
- var that = this;
- that.receiver = receiver;
- that.selector = selector;
- that.temps = temps || {};
- that.homeContext = home;
- that.copy = function() {
- var home = that.homeContext;
- if(home) {home = home.copy()}
- return new SmalltalkMethodContext(
- that.receiver,
- that.selector,
- that.temps,
- home
- );
- }
- that.newContext = function(receiver, selector, temps) {
- var c = smalltalk.oldContexts.pop();
- if(c) {
- c.homeContext = that;
- c.receiver = receiver;
- c.selector = selector;
- c.temps = temps || {};
- } else {
- c = new SmalltalkMethodContext(receiver, selector, temps, that);
- }
- return c;
- }
- that.removeYourself = function() {
- smalltalk.thisContext = that.homeContext;
- that.homeContext = undefined;
- smalltalk.oldContexts.push(that);
- }
- }
- /* Global Smalltalk objects. */
- var nil = new SmalltalkNil();
- var smalltalk = new Smalltalk();
- if(this.jQuery) {
- this.jQuery.allowJavaScriptCalls = true;
- }
- /****************************************************************************************/
- /* Base classes mapping. If you edit this part, do not forget to set the superclass of the
- object metaclass to Class after the definition of Object */
- smalltalk.mapClassName("Object", "Kernel", SmalltalkObject);
- smalltalk.mapClassName("Smalltalk", "Kernel", Smalltalk, smalltalk.Object);
- smalltalk.mapClassName("Package", "Kernel", SmalltalkPackage, smalltalk.Object);
- smalltalk.mapClassName("Behavior", "Kernel", SmalltalkBehavior, smalltalk.Object);
- smalltalk.mapClassName("Class", "Kernel", SmalltalkClass, smalltalk.Behavior);
- smalltalk.mapClassName("Metaclass", "Kernel", SmalltalkMetaclass, smalltalk.Behavior);
- smalltalk.mapClassName("CompiledMethod", "Kernel", SmalltalkMethod, smalltalk.Object);
- smalltalk.Object.klass.superclass = smalltalk.Class;
- smalltalk.mapClassName("Number", "Kernel", Number, smalltalk.Object);
- smalltalk.mapClassName("BlockClosure", "Kernel", Function, smalltalk.Object);
- smalltalk.mapClassName("Boolean", "Kernel", Boolean, smalltalk.Object);
- smalltalk.mapClassName("Date", "Kernel", Date, smalltalk.Object);
- smalltalk.mapClassName("UndefinedObject", "Kernel", SmalltalkNil, smalltalk.Object);
- smalltalk.mapClassName("Collection", "Kernel", null, smalltalk.Object);
- smalltalk.mapClassName("SequenceableCollection", "Kernel", null, smalltalk.Collection);
- smalltalk.mapClassName("CharacterArray", "Kernel", null, smalltalk.SequenceableCollection);
- smalltalk.mapClassName("String", "Kernel", String, smalltalk.CharacterArray);
- smalltalk.mapClassName("Symbol", "Kernel", SmalltalkSymbol, smalltalk.CharacterArray);
- smalltalk.mapClassName("Array", "Kernel", Array, smalltalk.SequenceableCollection);
- smalltalk.mapClassName("RegularExpression", "Kernel", RegExp, smalltalk.String);
- smalltalk.mapClassName("Error", "Kernel", Error, smalltalk.Object);
- smalltalk.mapClassName("MethodContext", "Kernel", SmalltalkMethodContext, smalltalk.Object);
- smalltalk.addPackage('Kernel-Objects', {});
- smalltalk.addClass('Object', smalltalk.nil, [], 'Kernel-Objects');
- smalltalk.Object.comment=unescape('*Object%20is%20the%20root%20of%20the%20Smalltalk%20class%20system*.%20All%20classes%20in%20the%20system%20are%20subclasses%20of%20Object.%0A%0AObject%20provides%20default%20behavior%20common%20to%20all%20normal%20objects%2C%20such%20as%3A%20%0A%0A-%20access%0A-%20copying%0A-%20comparison%0A-%20error%20handling%0A-%20message%20sending%0A-%20reflection%0A%0AAlso%20utility%20messages%20that%20all%20objects%20should%20respond%20to%20are%20defined%20here.%0A%0AObject%20has%20no%20instance%20variable.%0A%0A%23%23Access%0A%0AInstance%20variables%20can%20be%20accessed%20with%20%60%23instVarAt%3A%60%20and%20%60%23instVarAt%3Aput%3A%60.%20%60Object%20%3E%3E%20instanceVariableNames%60%20answers%20a%20collection%20of%20all%20instance%20variable%20names.%0AAccessing%20JavaScript%20properties%20of%20an%20object%20is%20done%20through%20%60%23basicAt%3A%60%2C%20%60%23basicAt%3Aput%3A%60%20and%20%60basicDelete%3A%60.%0A%0A%23%23Copying%0A%0ACopying%20an%20object%20is%20handled%20by%20%60%23copy%60%20and%20%60%23deepCopy%60.%20The%20first%20one%20performs%20a%20shallow%20copy%20of%20the%20receiver%2C%20while%20the%20second%20one%20performs%20a%20deep%20copy.%0AThe%20hook%20method%20%60%23postCopy%60%20can%20be%20overriden%20in%20subclasses%20to%20copy%20fields%20as%20necessary%20to%20complete%20the%20full%20copy.%20It%20will%20be%20sent%20by%20the%20copy%20of%20the%20receiver.%0A%0A%23%23Comparison%0A%0AObjects%20understand%20equality%20%20%60%23%3D%60%20and%20identity%20%60%23%3D%3D%60%20comparison.%0A%0A%23%23Error%20handling%0A%0A-%20%60%23halt%60%20is%20the%20typical%20message%20to%20use%20for%20inserting%20breakpoints%20during%20debugging.%0A-%20%60%23error%3A%60%20throws%20a%20generic%20error%20exception%0A-%20%60%23doesNotUnderstand%3A%60%20handles%20the%20fact%20that%20there%20was%20an%20attempt%20to%20send%20the%20given%20message%20to%20the%20receiver%20but%20the%20receiver%20does%20not%20understand%20this%20message.%0A%20%20Overriding%20this%20message%20can%20be%20useful%20to%20implement%20proxies%20for%20example.')
- smalltalk.addMethod(
- unescape('__eq'),
- smalltalk.method({
- selector: unescape('%3D'),
- category: 'comparing',
- fn: function (anObject){
- var self=this;
- return smalltalk.send(self, "__eq_eq", [anObject]);
- return self;},
- args: ["anObject"],
- source: unescape('%3D%20anObject%0A%09%5Eself%20%3D%3D%20anObject'),
- messageSends: [unescape("%3D%3D")],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_%7E_eq'),
- smalltalk.method({
- selector: unescape('%7E%3D'),
- category: 'comparing',
- fn: function (anObject){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "__eq", [anObject]), "__eq", [false]);
- return self;},
- args: ["anObject"],
- source: unescape('%7E%3D%20anObject%0A%09%5E%28self%20%3D%20anObject%29%20%3D%20false'),
- messageSends: [unescape("%3D")],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_initialize'),
- smalltalk.method({
- selector: unescape('initialize'),
- category: 'initialization',
- fn: function (){
- var self=this;
- return self;},
- args: [],
- source: unescape('initialize'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_yourself'),
- smalltalk.method({
- selector: unescape('yourself'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self;
- return self;},
- args: [],
- source: unescape('yourself%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_class'),
- smalltalk.method({
- selector: unescape('class'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.klass;
- return self;},
- args: [],
- source: unescape('class%0A%09%3Creturn%20self.klass%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_size'),
- smalltalk.method({
- selector: unescape('size'),
- category: 'accessing',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_error_", ["Object not indexable"]);
- return self;},
- args: [],
- source: unescape('size%0A%09self%20error%3A%20%27Object%20not%20indexable%27'),
- messageSends: ["error:"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_copy'),
- smalltalk.method({
- selector: unescape('copy'),
- category: 'copying',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_shallowCopy", []), "_postCopy", []);
- return self;},
- args: [],
- source: unescape('copy%0A%09%5Eself%20shallowCopy%20postCopy'),
- messageSends: ["postCopy", "shallowCopy"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_shallowCopy'),
- smalltalk.method({
- selector: unescape('shallowCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- var copy = self.klass._new();
- for(var i in self) {
- if(/^@.+/.test(i)) {
- copy[i] = self[i];
- }
- }
- return copy;
- ;
- return self;},
- args: [],
- source: unescape('shallowCopy%0A%09%3C%0A%09%20%20%20%20var%20copy%20%3D%20self.klass._new%28%29%3B%0A%09%20%20%20%20for%28var%20i%20in%20self%29%20%7B%0A%09%09if%28/%5E@.+/.test%28i%29%29%20%7B%0A%09%09%20%20%20%20copy%5Bi%5D%20%3D%20self%5Bi%5D%3B%0A%09%09%7D%0A%09%20%20%20%20%7D%0A%09%20%20%20%20return%20copy%3B%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_deepCopy'),
- smalltalk.method({
- selector: unescape('deepCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
-
- var copy = self.klass._new();
- for(var i in self) {
- if(/^@.+/.test(i)) {
- copy[i] = self[i]._deepCopy();
- }
- }
- return copy;
- ;
- return self;},
- args: [],
- source: unescape('deepCopy%0A%09%3C%20%20%20%20%0A%09%20%20%20%20var%20copy%20%3D%20self.klass._new%28%29%3B%0A%09%20%20%20%20for%28var%20i%20in%20self%29%20%7B%0A%09%09if%28/%5E@.+/.test%28i%29%29%20%7B%0A%09%09%20%20%20%20copy%5Bi%5D%20%3D%20self%5Bi%5D._deepCopy%28%29%3B%0A%09%09%7D%0A%09%20%20%20%20%7D%0A%09%20%20%20%20return%20copy%3B%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_postCopy'),
- smalltalk.method({
- selector: unescape('postCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- return self;},
- args: [],
- source: unescape('postCopy'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('__minus_gt'),
- smalltalk.method({
- selector: unescape('-%3E'),
- category: 'converting',
- fn: function (anObject){
- var self=this;
- return smalltalk.send((smalltalk.Association || Association), "_key_value_", [self, anObject]);
- return self;},
- args: ["anObject"],
- source: unescape('-%3E%20anObject%0A%09%5EAssociation%20key%3A%20self%20value%3A%20anObject'),
- messageSends: ["key:value:"],
- referencedClasses: ["Association"]
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_asString'),
- smalltalk.method({
- selector: unescape('asString'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_printString", []);
- return self;},
- args: [],
- source: unescape('asString%0A%09%5Eself%20printString'),
- messageSends: ["printString"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_asJavascript'),
- smalltalk.method({
- selector: unescape('asJavascript'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_asString", []);
- return self;},
- args: [],
- source: unescape('asJavascript%0A%09%5Eself%20asString'),
- messageSends: ["asString"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_perform_'),
- smalltalk.method({
- selector: unescape('perform%3A'),
- category: 'message handling',
- fn: function (aSymbol){
- var self=this;
- return smalltalk.send(self, "_perform_withArguments_", [aSymbol, []]);
- return self;},
- args: ["aSymbol"],
- source: unescape('perform%3A%20aSymbol%0A%09%5Eself%20perform%3A%20aSymbol%20withArguments%3A%20%23%28%29'),
- messageSends: ["perform:withArguments:"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_perform_withArguments_'),
- smalltalk.method({
- selector: unescape('perform%3AwithArguments%3A'),
- category: 'message handling',
- fn: function (aSymbol, aCollection){
- var self=this;
- return smalltalk.send(self, "_basicPerform_withArguments_", [smalltalk.send(aSymbol, "_asSelector", []), aCollection]);
- return self;},
- args: ["aSymbol", "aCollection"],
- source: unescape('perform%3A%20aSymbol%20withArguments%3A%20aCollection%0A%09%5Eself%20basicPerform%3A%20aSymbol%20asSelector%20withArguments%3A%20aCollection'),
- messageSends: ["basicPerform:withArguments:", "asSelector"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_instVarAt_'),
- smalltalk.method({
- selector: unescape('instVarAt%3A'),
- category: 'accessing',
- fn: function (aSymbol){
- var self=this;
- var varname=nil;
- (varname=smalltalk.send(aSymbol, "_asString", []));
- return self['@'+varname];
- return self;},
- args: ["aSymbol"],
- source: unescape('instVarAt%3A%20aSymbol%0A%09%7C%20varname%20%7C%0A%09varname%20%3A%3D%20aSymbol%20asString.%0A%09%3Creturn%20self%5B%27@%27+varname%5D%3E'),
- messageSends: ["asString"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_instVarAt_put_'),
- smalltalk.method({
- selector: unescape('instVarAt%3Aput%3A'),
- category: 'accessing',
- fn: function (aSymbol, anObject){
- var self=this;
- var varname=nil;
- (varname=smalltalk.send(aSymbol, "_asString", []));
- self['@' + varname] = anObject;
- return self;},
- args: ["aSymbol", "anObject"],
- source: unescape('instVarAt%3A%20aSymbol%20put%3A%20anObject%0A%09%7C%20varname%20%7C%0A%09varname%20%3A%3D%20aSymbol%20asString.%0A%09%3Cself%5B%27@%27%20+%20varname%5D%20%3D%20anObject%3E'),
- messageSends: ["asString"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_basicAt_'),
- smalltalk.method({
- selector: unescape('basicAt%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- return self[aString];
- return self;},
- args: ["aString"],
- source: unescape('basicAt%3A%20aString%0A%09%3Creturn%20self%5BaString%5D%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_basicAt_put_'),
- smalltalk.method({
- selector: unescape('basicAt%3Aput%3A'),
- category: 'accessing',
- fn: function (aString, anObject){
- var self=this;
- return self[aString] = anObject;
- return self;},
- args: ["aString", "anObject"],
- source: unescape('basicAt%3A%20aString%20put%3A%20anObject%0A%09%3Creturn%20self%5BaString%5D%20%3D%20anObject%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_error_'),
- smalltalk.method({
- selector: unescape('error%3A'),
- category: 'error handling',
- fn: function (aString){
- var self=this;
- smalltalk.send((smalltalk.Error || Error), "_signal_", [aString]);
- return self;},
- args: ["aString"],
- source: unescape('error%3A%20aString%0A%09Error%20signal%3A%20aString'),
- messageSends: ["signal:"],
- referencedClasses: ["Error"]
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_subclassResponsibility'),
- smalltalk.method({
- selector: unescape('subclassResponsibility'),
- category: 'error handling',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_error_", ["This method is a responsibility of a subclass"]);
- return self;},
- args: [],
- source: unescape('subclassResponsibility%0A%09self%20error%3A%20%27This%20method%20is%20a%20responsibility%20of%20a%20subclass%27'),
- messageSends: ["error:"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_shouldNotImplement'),
- smalltalk.method({
- selector: unescape('shouldNotImplement'),
- category: 'error handling',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_error_", [smalltalk.send("This method should not be implemented in ", "__comma", [smalltalk.send(smalltalk.send(self, "_class", []), "_name", [])])]);
- return self;},
- args: [],
- source: unescape('shouldNotImplement%0A%09self%20error%3A%20%27This%20method%20should%20not%20be%20implemented%20in%20%27%2C%20self%20class%20name'),
- messageSends: ["error:", unescape("%2C"), "name", "class"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_try_catch_'),
- smalltalk.method({
- selector: unescape('try%3Acatch%3A'),
- category: 'error handling',
- fn: function (aBlock, anotherBlock){
- var self=this;
- try{result = aBlock()} catch(e) {result = anotherBlock(e)};
- return result;;
- return self;},
- args: ["aBlock", "anotherBlock"],
- source: unescape('try%3A%20aBlock%20catch%3A%20anotherBlock%0A%09%3Ctry%7Bresult%20%3D%20aBlock%28%29%7D%20catch%28e%29%20%7Bresult%20%3D%20anotherBlock%28e%29%7D%3B%0A%09return%20result%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return smalltalk.send("a ", "__comma", [smalltalk.send(smalltalk.send(self, "_class", []), "_name", [])]);
- return self;},
- args: [],
- source: unescape('printString%0A%09%5E%27a%20%27%2C%20self%20class%20name'),
- messageSends: [unescape("%2C"), "name", "class"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_printNl'),
- smalltalk.method({
- selector: unescape('printNl'),
- category: 'printing',
- fn: function (){
- var self=this;
- console.log(self);
- return self;},
- args: [],
- source: unescape('printNl%0A%09%3Cconsole.log%28self%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_isKindOf_'),
- smalltalk.method({
- selector: unescape('isKindOf%3A'),
- category: 'testing',
- fn: function (aClass){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_isMemberOf_", [aClass])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return true;})() : (function(){return smalltalk.send(smalltalk.send(self, "_class", []), "_inheritsFrom_", [aClass]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return true;}), (function(){return smalltalk.send(smalltalk.send(self, "_class", []), "_inheritsFrom_", [aClass]);})]));
- return self;},
- args: ["aClass"],
- source: unescape('isKindOf%3A%20aClass%0A%09%5E%28self%20isMemberOf%3A%20aClass%29%0A%09%20%20%20%20ifTrue%3A%20%5Btrue%5D%0A%09%20%20%20%20ifFalse%3A%20%5Bself%20class%20inheritsFrom%3A%20aClass%5D'),
- messageSends: ["ifTrue:ifFalse:", "isMemberOf:", "inheritsFrom:", "class"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_isMemberOf_'),
- smalltalk.method({
- selector: unescape('isMemberOf%3A'),
- category: 'testing',
- fn: function (aClass){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_class", []), "__eq", [aClass]);
- return self;},
- args: ["aClass"],
- source: unescape('isMemberOf%3A%20aClass%0A%09%5Eself%20class%20%3D%20aClass'),
- messageSends: [unescape("%3D"), "class"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_ifNil_'),
- smalltalk.method({
- selector: unescape('ifNil%3A'),
- category: 'testing',
- fn: function (aBlock){
- var self=this;
- return self;
- return self;},
- args: ["aBlock"],
- source: unescape('ifNil%3A%20aBlock%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_ifNil_ifNotNil_'),
- smalltalk.method({
- selector: unescape('ifNil%3AifNotNil%3A'),
- category: 'testing',
- fn: function (aBlock, anotherBlock){
- var self=this;
- return smalltalk.send(anotherBlock, "_value", []);
- return self;},
- args: ["aBlock", "anotherBlock"],
- source: unescape('ifNil%3A%20aBlock%20ifNotNil%3A%20anotherBlock%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%5EanotherBlock%20value'),
- messageSends: ["value"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_ifNotNil_'),
- smalltalk.method({
- selector: unescape('ifNotNil%3A'),
- category: 'testing',
- fn: function (aBlock){
- var self=this;
- return smalltalk.send(aBlock, "_value", []);
- return self;},
- args: ["aBlock"],
- source: unescape('ifNotNil%3A%20aBlock%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%5EaBlock%20value'),
- messageSends: ["value"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_ifNotNil_ifNil_'),
- smalltalk.method({
- selector: unescape('ifNotNil%3AifNil%3A'),
- category: 'testing',
- fn: function (aBlock, anotherBlock){
- var self=this;
- return smalltalk.send(aBlock, "_value", []);
- return self;},
- args: ["aBlock", "anotherBlock"],
- source: unescape('ifNotNil%3A%20aBlock%20ifNil%3A%20anotherBlock%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%5EaBlock%20value'),
- messageSends: ["value"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_isNil'),
- smalltalk.method({
- selector: unescape('isNil'),
- category: 'testing',
- fn: function (){
- var self=this;
- return false;
- return self;},
- args: [],
- source: unescape('isNil%0A%09%5Efalse'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_notNil'),
- smalltalk.method({
- selector: unescape('notNil'),
- category: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_isNil", []), "_not", []);
- return self;},
- args: [],
- source: unescape('notNil%0A%09%5Eself%20isNil%20not'),
- messageSends: ["not", "isNil"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_isClass'),
- smalltalk.method({
- selector: unescape('isClass'),
- category: 'testing',
- fn: function (){
- var self=this;
- return false;
- return self;},
- args: [],
- source: unescape('isClass%0A%09%5Efalse'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_isMetaclass'),
- smalltalk.method({
- selector: unescape('isMetaclass'),
- category: 'testing',
- fn: function (){
- var self=this;
- return false;
- return self;},
- args: [],
- source: unescape('isMetaclass%0A%09%5Efalse'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_isNumber'),
- smalltalk.method({
- selector: unescape('isNumber'),
- category: 'testing',
- fn: function (){
- var self=this;
- return false;
- return self;},
- args: [],
- source: unescape('isNumber%0A%09%5Efalse'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_isString'),
- smalltalk.method({
- selector: unescape('isString'),
- category: 'testing',
- fn: function (){
- var self=this;
- return false;
- return self;},
- args: [],
- source: unescape('isString%0A%09%5Efalse'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_isParseFailure'),
- smalltalk.method({
- selector: unescape('isParseFailure'),
- category: 'testing',
- fn: function (){
- var self=this;
- return false;
- return self;},
- args: [],
- source: unescape('isParseFailure%0A%09%5Efalse'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_basicPerform_'),
- smalltalk.method({
- selector: unescape('basicPerform%3A'),
- category: 'message handling',
- fn: function (aSymbol){
- var self=this;
- return smalltalk.send(self, "_basicPerform_withArguments_", [aSymbol, []]);
- return self;},
- args: ["aSymbol"],
- source: unescape('basicPerform%3A%20aSymbol%20%0A%09%5Eself%20basicPerform%3A%20aSymbol%20withArguments%3A%20%23%28%29'),
- messageSends: ["basicPerform:withArguments:"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_basicPerform_withArguments_'),
- smalltalk.method({
- selector: unescape('basicPerform%3AwithArguments%3A'),
- category: 'message handling',
- fn: function (aSymbol, aCollection){
- var self=this;
- return self[aSymbol].apply(self, aCollection);;
- return self;},
- args: ["aSymbol", "aCollection"],
- source: unescape('basicPerform%3A%20aSymbol%20withArguments%3A%20aCollection%0A%09%3Creturn%20self%5BaSymbol%5D.apply%28self%2C%20aCollection%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_basicDelete_'),
- smalltalk.method({
- selector: unescape('basicDelete%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- delete self[aString]; return aString;
- return self;},
- args: ["aString"],
- source: unescape('basicDelete%3A%20aString%0A%20%20%20%20%3Cdelete%20self%5BaString%5D%3B%20return%20aString%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_doesNotUnderstand_'),
- smalltalk.method({
- selector: unescape('doesNotUnderstand%3A'),
- category: 'error handling',
- fn: function (aMessage){
- var self=this;
- (function($rec){smalltalk.send($rec, "_receiver_", [self]);smalltalk.send($rec, "_message_", [aMessage]);return smalltalk.send($rec, "_signal", []);})(smalltalk.send((smalltalk.MessageNotUnderstood || MessageNotUnderstood), "_new", []));
- return self;},
- args: ["aMessage"],
- source: unescape('doesNotUnderstand%3A%20aMessage%0A%09MessageNotUnderstood%20new%0A%09%09receiver%3A%20self%3B%0A%09%09message%3A%20aMessage%3B%0A%09%09signal'),
- messageSends: ["receiver:", "message:", "signal", "new"],
- referencedClasses: ["MessageNotUnderstood"]
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_asJSON'),
- smalltalk.method({
- selector: unescape('asJSON'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.JSON || JSON), "_parse_", [smalltalk.send(self, "_asJSONString", [])]);
- return self;},
- args: [],
- source: unescape('asJSON%0A%09%5EJSON%20parse%3A%20self%20asJSONString'),
- messageSends: ["parse:", "asJSONString"],
- referencedClasses: ["JSON"]
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_halt'),
- smalltalk.method({
- selector: unescape('halt'),
- category: 'error handling',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_error_", ["Halt encountered"]);
- return self;},
- args: [],
- source: unescape('halt%0A%09self%20error%3A%20%27Halt%20encountered%27'),
- messageSends: ["error:"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_log_block_'),
- smalltalk.method({
- selector: unescape('log%3Ablock%3A'),
- category: 'printing',
- fn: function (aString, aBlock){
- var self=this;
- var result=nil;
- smalltalk.send((typeof console == 'undefined' ? nil : console), "_log_", [smalltalk.send(smalltalk.send(aString, "__comma", [" time: "]), "__comma", [smalltalk.send(smalltalk.send((smalltalk.Date || Date), "_millisecondsToRun_", [(function(){return (result=smalltalk.send(aBlock, "_value", []));})]), "_printString", [])])]);
- return result;
- return self;},
- args: ["aString", "aBlock"],
- source: unescape('log%3A%20aString%20block%3A%20aBlock%0A%0A%09%7C%20result%20%7C%0A%09console%20log%3A%20%20aString%2C%20%20%27%20time%3A%20%27%2C%20%28Date%20millisecondsToRun%3A%20%5Bresult%20%3A%3D%20aBlock%20value%5D%29%20printString.%0A%09%5Eresult'),
- messageSends: ["log:", unescape("%2C"), "printString", "millisecondsToRun:", "value"],
- referencedClasses: ["Date"]
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('__eq_eq'),
- smalltalk.method({
- selector: unescape('%3D%3D'),
- category: 'comparing',
- fn: function (anObject){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_identityHash", []), "__eq", [smalltalk.send(anObject, "_identityHash", [])]);
- return self;},
- args: ["anObject"],
- source: unescape('%3D%3D%20anObject%0A%09%5Eself%20identityHash%20%3D%20anObject%20identityHash'),
- messageSends: [unescape("%3D"), "identityHash"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_%7E%7E'),
- smalltalk.method({
- selector: unescape('%7E%7E'),
- category: 'comparing',
- fn: function (anObject){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "__eq_eq", [anObject]), "__eq", [false]);
- return self;},
- args: ["anObject"],
- source: unescape('%7E%7E%20anObject%0A%09%5E%28self%20%3D%3D%20anObject%29%20%3D%20false'),
- messageSends: [unescape("%3D"), unescape("%3D%3D")],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_deprecatedAPI'),
- smalltalk.method({
- selector: unescape('deprecatedAPI'),
- category: 'error handling',
- fn: function (){
- var self=this;
- smalltalk.send((typeof console == 'undefined' ? nil : console), "_warn_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.getThisContext()), "_home", []), "_asString", []), "__comma", [unescape("%20is%20deprecated%21%20%28in%20")]), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.getThisContext()), "_home", []), "_home", []), "_asString", [])]), "__comma", [unescape("%29")])]);
- return self;},
- args: [],
- source: unescape('deprecatedAPI%0A%09%22Just%20a%20simple%20way%20to%20deprecate%20methods.%0A%09%23deprecatedAPI%20is%20in%20the%20%27error%20handling%27%20protocol%20even%20if%20it%20doesn%27t%20throw%20an%20error%2C%0A%09but%20it%20could%20in%20the%20future.%22%0A%09console%20warn%3A%20thisContext%20home%20asString%2C%20%27%20is%20deprecated%21%20%28in%20%27%2C%20thisContext%20home%20home%20asString%2C%20%27%29%27'),
- messageSends: ["warn:", unescape("%2C"), "asString", "home"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_storeString'),
- smalltalk.method({
- selector: unescape('storeString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(s){return smalltalk.send(self, "_storeOn_", [s]);})]);
- return self;},
- args: [],
- source: unescape('storeString%0A%09%22Answer%20a%20String%20representation%20of%20the%20receiver%20from%20which%20the%20receiver%20%0A%09can%20be%20reconstructed.%22%0A%0A%09%5E%20String%20streamContents%3A%20%5B%3As%20%7C%20self%20storeOn%3A%20s%5D'),
- messageSends: ["streamContents:", "storeOn:"],
- referencedClasses: ["String"]
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_storeOn_'),
- smalltalk.method({
- selector: unescape('storeOn%3A'),
- category: 'printing',
- fn: function (aStream){
- var self=this;
- smalltalk.send(aStream, "_nextPutAll_", [smalltalk.send(self, "_printString", [])]);
- return self;},
- args: ["aStream"],
- source: unescape('storeOn%3A%20aStream%0A%09aStream%20nextPutAll%3A%20self%20printString'),
- messageSends: ["nextPutAll:", "printString"],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_asJSONString'),
- smalltalk.method({
- selector: unescape('asJSONString'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.JSON || JSON), "_stringify_", [self]);
- return self;},
- args: [],
- source: unescape('asJSONString%0A%09%5EJSON%20stringify%3A%20self'),
- messageSends: ["stringify:"],
- referencedClasses: ["JSON"]
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_identityHash'),
- smalltalk.method({
- selector: unescape('identityHash'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.identityHash || (self.identityHash = smalltalk.nextId());;
- return self;},
- args: [],
- source: unescape('identityHash%0A%09%3Creturn%20self.identityHash%20%7C%7C%20%28self.identityHash%20%3D%20smalltalk.nextId%28%29%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_isSymbol'),
- smalltalk.method({
- selector: unescape('isSymbol'),
- category: 'testing',
- fn: function (){
- var self=this;
- return false;
- return self;},
- args: [],
- source: unescape('isSymbol%0A%09%5Efalse'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object);
- smalltalk.addMethod(
- unescape('_initialize'),
- smalltalk.method({
- selector: unescape('initialize'),
- category: 'initialization',
- fn: function (){
- var self=this;
- return self;},
- args: [],
- source: unescape('initialize%0A%09%22no%20op%22'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Object.klass);
- smalltalk.addClass('Smalltalk', smalltalk.Object, [], 'Kernel-Objects');
- smalltalk.Smalltalk.comment=unescape('Smalltalk%20has%20only%20one%20instance%2C%20accessed%20with%20%60Smalltalk%20current%60.%20%0AIt%20represents%20the%20global%20JavaScript%20variable%20%60smalltalk%60%20declared%20in%20%60js/boot.js%60.%0A%0AThe%20%60smalltalk%60%20object%20holds%20all%20class%20and%20packages%20defined%20in%20the%20system.%0A%0A%23%23%20Classes%0A%0AClasses%20can%20be%20accessed%20using%20the%20following%20methods%3A%0A%0A-%20%60%23classes%60%20answers%20the%20full%20list%20of%20Smalltalk%20classes%20in%20the%20system%0A-%20%60%23at%3A%60%20answers%20a%20specific%20class%20of%20%60nil%60%0A%0A%23%23%20Packages%0A%0APackages%20can%20be%20accessed%20using%20the%20following%20methods%3A%0A%0A-%20%60%23packages%60%20answers%20the%20full%20list%20of%20packages%0A-%20%60%23packageAt%3A%60%20answers%20a%20specific%20class%20of%20%60nil%60%0A%0A__note%3A__%20classes%20and%20packages%20are%20accessed%20using%20strings%2C%20not%20symbols%0A%0A%23%23%20Parsing%0A%0AThe%20%60%23parse%3A%60%20method%20is%20used%20to%20parse%20Smalltalk%20source%20code.%20%0AIt%20requires%20the%20%60Compiler%60%20package%20and%20the%20%60js/parser.js%60%20parser%20file%20in%20order%20to%20work')
- smalltalk.addMethod(
- unescape('_classes'),
- smalltalk.method({
- selector: unescape('classes'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.classes();
- return self;},
- args: [],
- source: unescape('classes%0A%09%3Creturn%20self.classes%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_at_'),
- smalltalk.method({
- selector: unescape('at%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- return self[aString];
- return self;},
- args: ["aString"],
- source: unescape('at%3A%20aString%0A%09%3Creturn%20self%5BaString%5D%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_removeClass_'),
- smalltalk.method({
- selector: unescape('removeClass%3A'),
- category: 'classes',
- fn: function (aClass){
- var self=this;
- ((($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_error_", [smalltalk.send(smalltalk.send(aClass, "_asString", []), "__comma", [unescape("%20is%20a%20Metaclass%20and%20cannot%20be%20removed%21")])]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self, "_error_", [smalltalk.send(smalltalk.send(aClass, "_asString", []), "__comma", [unescape("%20is%20a%20Metaclass%20and%20cannot%20be%20removed%21")])]);})]));
- smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_methodDictionary", []), "_values", []), "_do_", [(function(each){return smalltalk.send(aClass, "_removeCompiledMethod_", [each]);})]);
- smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_methodDictionary", []), "_values", []), "_do_", [(function(each){return smalltalk.send(smalltalk.send(aClass, "_class", []), "_removeCompiledMethod_", [each]);})]);
- smalltalk.send(self, "_basicDelete_", [smalltalk.send(aClass, "_name", [])]);
- return self;},
- args: ["aClass"],
- source: unescape('removeClass%3A%20aClass%0A%09aClass%20isMetaclass%20ifTrue%3A%20%5Bself%20error%3A%20aClass%20asString%2C%20%27%20is%20a%20Metaclass%20and%20cannot%20be%20removed%21%27%5D.%0A%09aClass%20methodDictionary%20values%20do%3A%20%5B%3Aeach%20%7C%0A%09%09aClass%20removeCompiledMethod%3A%20each%5D.%0A%09aClass%20class%20methodDictionary%20values%20do%3A%20%5B%3Aeach%20%7C%0A%09%09aClass%20class%20removeCompiledMethod%3A%20each%5D.%0A%09self%20basicDelete%3A%20aClass%20name'),
- messageSends: ["ifTrue:", "isMetaclass", "error:", unescape("%2C"), "asString", "do:", "values", "methodDictionary", "removeCompiledMethod:", "class", "basicDelete:", "name"],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_basicParse_'),
- smalltalk.method({
- selector: unescape('basicParse%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- return smalltalk.parser.parse(aString);
- return self;},
- args: ["aString"],
- source: unescape('basicParse%3A%20aString%0A%09%3Creturn%20smalltalk.parser.parse%28aString%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_parse_'),
- smalltalk.method({
- selector: unescape('parse%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- var result=nil;
- smalltalk.send(self, "_try_catch_", [(function(){return (result=smalltalk.send(self, "_basicParse_", [aString]));}), (function(ex){return smalltalk.send(smalltalk.send(self, "_parseError_parsing_", [ex, aString]), "_signal", []);})]);
- return result;
- return self;},
- args: ["aString"],
- source: unescape('parse%3A%20aString%0A%09%7C%20result%20%7C%20%0A%09self%20try%3A%20%5Bresult%20%3A%3D%20self%20basicParse%3A%20aString%5D%20catch%3A%20%5B%3Aex%20%7C%20%28self%20parseError%3A%20ex%20parsing%3A%20aString%29%20signal%5D.%0A%09%5Eresult'),
- messageSends: ["try:catch:", "basicParse:", "signal", "parseError:parsing:"],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_parseError_parsing_'),
- smalltalk.method({
- selector: unescape('parseError%3Aparsing%3A'),
- category: 'accessing',
- fn: function (anException, aString){
- var self=this;
- var row=nil;
- var col=nil;
- var message=nil;
- var lines=nil;
- var badLine=nil;
- var code=nil;
- row = anException.line;
- col = anException.column;
- message = anException.message;;
- (lines=smalltalk.send(aString, "_lines", []));
- (badLine=smalltalk.send(lines, "_at_", [row]));
- (badLine=smalltalk.send(smalltalk.send(smalltalk.send(badLine, "_copyFrom_to_", [(1), ((($receiver = col).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)]))]), "__comma", [unescape("%20%3D%3D%3D%3E")]), "__comma", [smalltalk.send(badLine, "_copyFrom_to_", [col, smalltalk.send(badLine, "_size", [])])]));
- smalltalk.send(lines, "_at_put_", [row, badLine]);
- (code=smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(s){return smalltalk.send(lines, "_withIndexDo_", [(function(l, i){return smalltalk.send(s, "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(i, "_asString", []), "__comma", [": "]), "__comma", [l]), "__comma", [smalltalk.send((smalltalk.String || String), "_lf", [])])]);})]);})]));
- return smalltalk.send(smalltalk.send((smalltalk.Error || Error), "_new", []), "_messageText_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send("Parse error on line ", "__comma", [row]), "__comma", [" column "]), "__comma", [col]), "__comma", [" : "]), "__comma", [message]), "__comma", [unescape("%20Below%20is%20code%20with%20line%20numbers%20and%20%3D%3D%3D%3E%20marker%20inserted%3A")]), "__comma", [smalltalk.send((smalltalk.String || String), "_lf", [])]), "__comma", [code])]);
- return self;},
- args: ["anException", "aString"],
- source: unescape('parseError%3A%20anException%20parsing%3A%20aString%0A%09%7C%20row%20col%20message%20lines%20badLine%20code%20%7C%0A%09%3Crow%20%3D%20anException.line%3B%0A%09col%20%3D%20anException.column%3B%0A%09message%20%3D%20anException.message%3B%3E.%0A%09lines%20%3A%3D%20aString%20lines.%0A%09badLine%20%3A%3D%20lines%20at%3A%20row.%0A%09badLine%20%3A%3D%20%28badLine%20copyFrom%3A%201%20to%3A%20col%20-%201%29%2C%20%27%20%3D%3D%3D%3E%27%2C%20%28badLine%20copyFrom%3A%20%20col%20to%3A%20badLine%20size%29.%0A%09lines%20at%3A%20row%20put%3A%20badLine.%0A%09code%20%3A%3D%20String%20streamContents%3A%20%5B%3As%20%7C%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20lines%20withIndexDo%3A%20%5B%3Al%20%3Ai%20%7C%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20s%20nextPutAll%3A%20i%20asString%2C%20%27%3A%20%27%2C%20l%2C%20String%20lf%5D%5D.%0A%09%5E%20Error%20new%20messageText%3A%20%28%27Parse%20error%20on%20line%20%27%20%2C%20row%20%2C%20%27%20column%20%27%20%2C%20col%20%2C%20%27%20%3A%20%27%20%2C%20message%20%2C%20%27%20Below%20is%20code%20with%20line%20numbers%20and%20%3D%3D%3D%3E%20marker%20inserted%3A%27%20%2C%20String%20lf%2C%20code%29'),
- messageSends: ["lines", "at:", unescape("%2C"), "copyFrom:to:", unescape("-"), "size", "at:put:", "streamContents:", "withIndexDo:", "nextPutAll:", "asString", "lf", "messageText:", "new"],
- referencedClasses: ["String", "Error"]
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_packages'),
- smalltalk.method({
- selector: unescape('packages'),
- category: 'packages',
- fn: function (){
- var self=this;
- return self.packages.all();
- return self;},
- args: [],
- source: unescape('packages%0A%09%22Return%20all%20Package%20instances%20in%20the%20system.%22%0A%0A%09%3Creturn%20self.packages.all%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_packageAt_'),
- smalltalk.method({
- selector: unescape('packageAt%3A'),
- category: 'packages',
- fn: function (packageName){
- var self=this;
- return self.packages[packageName];
- return self;},
- args: ["packageName"],
- source: unescape('packageAt%3A%20packageName%0A%20%20%20%20%20%20%20%3Creturn%20self.packages%5BpackageName%5D%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_packageAt_ifAbsent_'),
- smalltalk.method({
- selector: unescape('packageAt%3AifAbsent%3A'),
- category: 'packages',
- fn: function (packageName, aBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_packageAt_", [packageName]), "_ifNil_", [aBlock]);
- return self;},
- args: ["packageName", "aBlock"],
- source: unescape('packageAt%3A%20packageName%20ifAbsent%3A%20aBlock%0A%20%20%20%20%20%20%20%5E%28self%20packageAt%3A%20packageName%29%20ifNil%3A%20aBlock'),
- messageSends: ["ifNil:", "packageAt:"],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_createPackage_'),
- smalltalk.method({
- selector: unescape('createPackage%3A'),
- category: 'private',
- fn: function (packageName){
- var self=this;
- return smalltalk.addPackage(packageName, nil);
- return self;},
- args: ["packageName"],
- source: unescape('createPackage%3A%20packageName%0A%09%22Create%20and%20bind%20a%20new%20package%20with%20given%20name%20and%20return%20it.%22%0A%0A%20%20%20%20%20%20%3Creturn%20smalltalk.addPackage%28packageName%2C%20nil%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_deletePackage_'),
- smalltalk.method({
- selector: unescape('deletePackage%3A'),
- category: 'private',
- fn: function (packageName){
- var self=this;
- delete smalltalk.packages[packageName];
- return self;},
- args: ["packageName"],
- source: unescape('deletePackage%3A%20packageName%0A%09%22Deletes%20a%20package%20by%20deleting%20its%20binding%2C%20but%20does%20not%20check%20if%20it%20contains%20classes%20etc.%0A%09To%20remove%20a%20package%2C%20use%20%23removePackage%20instead.%22%0A%0A%20%20%20%20%20%20%20%3Cdelete%20smalltalk.packages%5BpackageName%5D%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_removePackage_'),
- smalltalk.method({
- selector: unescape('removePackage%3A'),
- category: 'packages',
- fn: function (packageName){
- var self=this;
- var pkg=nil;
- (pkg=smalltalk.send(self, "_packageAt_ifAbsent_", [packageName, (function(){return smalltalk.send(self, "_error_", [smalltalk.send("Missing package: ", "__comma", [packageName])]);})]));
- smalltalk.send(smalltalk.send(pkg, "_classes", []), "_do_", [(function(each){return smalltalk.send(self, "_removeClass_", [each]);})]);
- smalltalk.send(self, "_deletePackage_", [packageName]);
- return self;},
- args: ["packageName"],
- source: unescape('removePackage%3A%20packageName%0A%09%22Removes%20a%20package%20and%20all%20its%20classes.%22%0A%0A%09%7C%20pkg%20%7C%0A%09pkg%20%3A%3D%20self%20packageAt%3A%20packageName%20ifAbsent%3A%20%5Bself%20error%3A%20%27Missing%20package%3A%20%27%2C%20packageName%5D.%0A%09pkg%20classes%20do%3A%20%5B%3Aeach%20%7C%0A%20%20%20%20%20%20%20%20%09self%20removeClass%3A%20each%5D.%0A%09self%20deletePackage%3A%20packageName'),
- messageSends: ["packageAt:ifAbsent:", "error:", unescape("%2C"), "do:", "classes", "removeClass:", "deletePackage:"],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_renamePackage_to_'),
- smalltalk.method({
- selector: unescape('renamePackage%3Ato%3A'),
- category: 'packages',
- fn: function (packageName, newName){
- var self=this;
- var pkg=nil;
- (pkg=smalltalk.send(self, "_packageAt_ifAbsent_", [packageName, (function(){return smalltalk.send(self, "_error_", [smalltalk.send("Missing package: ", "__comma", [packageName])]);})]));
- (($receiver = smalltalk.send(self, "_packageAt_", [newName])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(self, "_error_", [smalltalk.send("Already exists a package called: ", "__comma", [newName])]);})() : nil;
- smalltalk.packages[newName] = smalltalk.packages[packageName];
- smalltalk.send(pkg, "_name_", [newName]);
- smalltalk.send(self, "_deletePackage_", [packageName]);
- return self;},
- args: ["packageName", "newName"],
- source: unescape('renamePackage%3A%20packageName%20to%3A%20newName%0A%09%22Rename%20a%20package.%22%0A%0A%09%7C%20pkg%20%7C%0A%09pkg%20%3A%3D%20self%20packageAt%3A%20packageName%20ifAbsent%3A%20%5Bself%20error%3A%20%27Missing%20package%3A%20%27%2C%20packageName%5D.%0A%09%28self%20packageAt%3A%20newName%29%20ifNotNil%3A%20%5Bself%20error%3A%20%27Already%20exists%20a%20package%20called%3A%20%27%2C%20newName%5D.%0A%09%3Csmalltalk.packages%5BnewName%5D%20%3D%20smalltalk.packages%5BpackageName%5D%3E.%0A%09pkg%20name%3A%20newName.%0A%09self%20deletePackage%3A%20packageName.'),
- messageSends: ["packageAt:ifAbsent:", "error:", unescape("%2C"), "ifNotNil:", "packageAt:", "name:", "deletePackage:"],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_reservedWords'),
- smalltalk.method({
- selector: unescape('reservedWords'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.reservedWords;
- return self;},
- args: [],
- source: unescape('reservedWords%0A%09%22JavaScript%20reserved%20words%22%0A%09%3Creturn%20self.reservedWords%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_createPackage_properties_'),
- smalltalk.method({
- selector: unescape('createPackage%3Aproperties%3A'),
- category: 'private',
- fn: function (packageName, aDict){
- var self=this;
- var object=nil;
- object = {};;
- smalltalk.send(aDict, "_keysAndValuesDo_", [(function(key, value){return object[key] = value;})]);
- return smalltalk.addPackage(packageName, object);
- return self;},
- args: ["packageName", "aDict"],
- source: unescape('createPackage%3A%20packageName%20properties%3A%20aDict%0A%09%22Create%20and%20bind%20a%20new%20package%20with%20given%20name%20and%20return%20it.%22%0A%0A%09%7C%20object%20%7C%0A%09%3Cobject%20%3D%20%7B%7D%3B%3E.%0A%09aDict%20keysAndValuesDo%3A%20%5B%3Akey%20%3Avalue%20%7C%0A%09%09%3Cobject%5Bkey%5D%20%3D%20value%3E.%0A%09%5D.%0A%20%20%20%20%20%20%20%3Creturn%20smalltalk.addPackage%28packageName%2C%20object%29%3E'),
- messageSends: ["keysAndValuesDo:"],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.addMethod(
- unescape('_readJSObject_'),
- smalltalk.method({
- selector: unescape('readJSObject%3A'),
- category: 'accessing',
- fn: function (anObject){
- var self=this;
- return self.readJSObject(anObject);
- return self;},
- args: ["anObject"],
- source: unescape('readJSObject%3A%20anObject%0A%09%3Creturn%20self.readJSObject%28anObject%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Smalltalk);
- smalltalk.Smalltalk.klass.iVarNames = ['current'];
- smalltalk.addMethod(
- unescape('_current'),
- smalltalk.method({
- selector: unescape('current'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk;
- return self;},
- args: [],
- source: unescape('current%0A%09%3Creturn%20smalltalk%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Smalltalk.klass);
- smalltalk.addClass('Package', smalltalk.Object, ['commitPathJs', 'commitPathSt'], 'Kernel-Objects');
- smalltalk.Package.comment=unescape('A%20Package%20is%20similar%20to%20a%20%22class%20category%22%20typically%20found%20in%20other%20Smalltalks%20like%20Pharo%20or%20Squeak.%20Amber%20does%20not%20have%20class%20categories%20anymore%2C%20it%20had%20in%20the%20beginning%20but%20now%20each%20class%20in%20the%20system%20knows%20which%20package%20it%20belongs%20to.%0A%0AA%20Package%20has%20a%20name%2C%20an%20Array%20of%20%22requires%22%2C%20a%20comment%20and%20a%20Dictionary%20with%20other%20optional%20key%20value%20attributes.%20A%20Package%20can%20also%20be%20queried%20for%20its%20classes%2C%20but%20it%20will%20then%20resort%20to%20a%20reverse%20scan%20of%20all%20classes%20to%20find%20them.%0APackages%20are%20manipulated%20through%20%22Smalltalk%20current%22%2C%20like%20for%20example%20finding%20one%20based%20on%20a%20name%3A%0A%0A%09Smalltalk%20current%20packageAt%3A%20%27Kernel%27%0A%0A...but%20you%20can%20also%20use%3A%0A%0A%09Package%20named%3A%20%27Kernel%27%0A%0AA%20Package%20differs%20slightly%20from%20a%20Monticello%20package%20which%20can%20span%20multiple%20class%20categories%20using%20a%20naming%20convention%20based%20on%20hyphenation.%20But%20just%20as%20in%20Monticello%20a%20Package%20supports%20%22class%20extensions%22%20so%20a%20Package%0Acan%20define%20behaviors%20in%20foreign%20classes%20using%20a%20naming%20convention%20for%20method%20categories%20where%20the%20category%20starts%20with%20an%20asterisk%20and%20then%20the%20name%20of%20the%20owning%20package%20follows.%20This%20can%20easily%20be%20seen%20in%20for%20example%20class%0AString%20where%20the%20method%20category%20%22*IDE%22%20defines%20%23inspectOn%3A%20which%20thus%20is%20a%20method%20belonging%20to%20the%20IDE%20package.%0A%0AYou%20can%20fetch%20a%20package%20from%20the%20server%3A%0A%0A%09Package%20fetch%3A%20%27Additional-Examples%27')
- smalltalk.addMethod(
- unescape('_name'),
- smalltalk.method({
- selector: unescape('name'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.pkgName;
- return self;},
- args: [],
- source: unescape('name%0A%09%3Creturn%20self.pkgName%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_name_'),
- smalltalk.method({
- selector: unescape('name%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- self.pkgName = aString;
- return self;},
- args: ["aString"],
- source: unescape('name%3A%20aString%0A%09%3Cself.pkgName%20%3D%20aString%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_classes'),
- smalltalk.method({
- selector: unescape('classes'),
- category: 'classes',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "_select_", [(function(c){return smalltalk.send(smalltalk.send(c, "_package", []), "__eq_eq", [self]);})]);
- return self;},
- args: [],
- source: unescape('classes%0A%09%22We%20need%20to%20do%20a%20reverse%20scan.%22%0A%09%5ESmalltalk%20current%20classes%20select%3A%20%5B%3Ac%20%7C%20c%20package%20%3D%3D%20self%5D'),
- messageSends: ["select:", "classes", "current", unescape("%3D%3D"), "package"],
- referencedClasses: ["Smalltalk"]
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_name", []);
- return self;},
- args: [],
- source: unescape('printString%0A%09%5Eself%20name'),
- messageSends: ["name"],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_dependencies'),
- smalltalk.method({
- selector: unescape('dependencies'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_propertyAt_ifAbsent_", ["dependencies", (function(){return [];})]);
- return self;},
- args: [],
- source: unescape('dependencies%0A%09%5Eself%20propertyAt%3A%20%27dependencies%27%20ifAbsent%3A%20%5B%23%28%29%5D'),
- messageSends: ["propertyAt:ifAbsent:"],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_dependencies_'),
- smalltalk.method({
- selector: unescape('dependencies%3A'),
- category: 'accessing',
- fn: function (anArray){
- var self=this;
- return smalltalk.send(self, "_propertyAt_put_", ["dependencies", anArray]);
- return self;},
- args: ["anArray"],
- source: unescape('dependencies%3A%20anArray%0A%09%5Eself%20propertyAt%3A%20%27dependencies%27%20put%3A%20anArray'),
- messageSends: ["propertyAt:put:"],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_properties'),
- smalltalk.method({
- selector: unescape('properties'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_readJSObject_", [smalltalk.send(self, "_basicAt_", ["properties"])]);
- return self;},
- args: [],
- source: unescape('properties%0A%09%5ESmalltalk%20current%20readJSObject%3A%20%28self%20basicAt%3A%20%27properties%27%29'),
- messageSends: ["readJSObject:", "current", "basicAt:"],
- referencedClasses: ["Smalltalk"]
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_propertiesAsJSON'),
- smalltalk.method({
- selector: unescape('propertiesAsJSON'),
- category: 'private',
- fn: function (){
- var self=this;
- return JSON.stringify(self.properties);
- return self;},
- args: [],
- source: unescape('propertiesAsJSON%0A%09%3Creturn%20JSON.stringify%28self.properties%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_properties_'),
- smalltalk.method({
- selector: unescape('properties%3A'),
- category: 'accessing',
- fn: function (aDict){
- var self=this;
- var object=nil;
- object = {};;
- smalltalk.send(aDict, "_keysAndValuesDo_", [(function(key, value){return object[key] = value;})]);
- return self.properties = object;
- return self;},
- args: ["aDict"],
- source: unescape('properties%3A%20aDict%0A%09%22We%20store%20it%20as%20a%20javascript%20object.%22%0A%09%0A%09%7C%20object%20%7C%0A%09%3Cobject%20%3D%20%7B%7D%3B%3E.%0A%09aDict%20keysAndValuesDo%3A%20%5B%3Akey%20%3Avalue%20%7C%0A%09%09%3Cobject%5Bkey%5D%20%3D%20value%3E.%0A%09%5D.%0A%09%3Creturn%20self.properties%20%3D%20object%3E'),
- messageSends: ["keysAndValuesDo:"],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_jsProperties'),
- smalltalk.method({
- selector: unescape('jsProperties'),
- category: 'private',
- fn: function (){
- var self=this;
- return self.properties;
- return self;},
- args: [],
- source: unescape('jsProperties%0A%09%3Creturn%20self.properties%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_jsProperties_'),
- smalltalk.method({
- selector: unescape('jsProperties%3A'),
- category: 'private',
- fn: function (aJSObject){
- var self=this;
- return self.properties = aJSObject;
- return self;},
- args: ["aJSObject"],
- source: unescape('jsProperties%3A%20aJSObject%0A%09%3Creturn%20self.properties%20%3D%20aJSObject%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_propertyAt_'),
- smalltalk.method({
- selector: unescape('propertyAt%3A'),
- category: 'properties',
- fn: function (key){
- var self=this;
- return self.properties[key];
- return self;},
- args: ["key"],
- source: unescape('propertyAt%3A%20key%0A%0A%09%3Creturn%20self.properties%5Bkey%5D%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_propertyAt_put_'),
- smalltalk.method({
- selector: unescape('propertyAt%3Aput%3A'),
- category: 'properties',
- fn: function (key, value){
- var self=this;
- return self.properties[key] = value;
- return self;},
- args: ["key", "value"],
- source: unescape('propertyAt%3A%20key%20put%3A%20value%0A%0A%09%3Creturn%20self.properties%5Bkey%5D%20%3D%20value%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_propertyAt_ifAbsent_'),
- smalltalk.method({
- selector: unescape('propertyAt%3AifAbsent%3A'),
- category: 'properties',
- fn: function (key, block){
- var self=this;
- return (($receiver = smalltalk.send(self, "_propertyAt_", [key])) == nil || $receiver == undefined) ? (function(){return smalltalk.send(block, "_value", []);})() : $receiver;
- return self;},
- args: ["key", "block"],
- source: unescape('propertyAt%3A%20key%20ifAbsent%3A%20block%0A%0A%09%5E%28self%20propertyAt%3A%20key%29%20ifNil%3A%20%5Bblock%20value%5D'),
- messageSends: ["ifNil:", "propertyAt:", "value"],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_commitPathJs'),
- smalltalk.method({
- selector: unescape('commitPathJs'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = self['@commitPathJs']) == nil || $receiver == undefined) ? (function(){return smalltalk.send(smalltalk.send(self, "_class", []), "_defaultCommitPathJs", []);})() : $receiver;
- return self;},
- args: [],
- source: unescape('commitPathJs%0A%09%5E%20commitPathJs%20ifNil%3A%20%5Bself%20class%20defaultCommitPathJs%5D'),
- messageSends: ["ifNil:", "defaultCommitPathJs", "class"],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_commitPathJs_'),
- smalltalk.method({
- selector: unescape('commitPathJs%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- (self['@commitPathJs']=aString);
- return self;},
- args: ["aString"],
- source: unescape('commitPathJs%3A%20aString%0A%09commitPathJs%A0%3A%3D%20aString'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_commitPathSt'),
- smalltalk.method({
- selector: unescape('commitPathSt'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = self['@commitPathSt']) == nil || $receiver == undefined) ? (function(){return smalltalk.send(smalltalk.send(self, "_class", []), "_defaultCommitPathSt", []);})() : $receiver;
- return self;},
- args: [],
- source: unescape('commitPathSt%0A%09%5E%20commitPathSt%20ifNil%3A%20%5Bself%20class%20defaultCommitPathSt%5D'),
- messageSends: ["ifNil:", "defaultCommitPathSt", "class"],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.addMethod(
- unescape('_commitPathSt_'),
- smalltalk.method({
- selector: unescape('commitPathSt%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- (self['@commitPathSt']=aString);
- return self;},
- args: ["aString"],
- source: unescape('commitPathSt%3A%20aString%0A%09commitPathSt%A0%3A%3D%20aString'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Package);
- smalltalk.Package.klass.iVarNames = ['defaultCommitPathJs','defaultCommitPathSt'];
- smalltalk.addMethod(
- unescape('_named_'),
- smalltalk.method({
- selector: unescape('named%3A'),
- category: 'not yet classified',
- fn: function (aPackageName){
- var self=this;
- return smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_packageAt_", [aPackageName]);
- return self;},
- args: ["aPackageName"],
- source: unescape('named%3A%20aPackageName%0A%0A%09%5ESmalltalk%20current%20packageAt%3A%20aPackageName'),
- messageSends: ["packageAt:", "current"],
- referencedClasses: ["Smalltalk"]
- }),
- smalltalk.Package.klass);
- smalltalk.addMethod(
- unescape('_named_ifAbsent_'),
- smalltalk.method({
- selector: unescape('named%3AifAbsent%3A'),
- category: 'not yet classified',
- fn: function (aPackageName, aBlock){
- var self=this;
- return smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_packageAt_ifAbsent_", [aPackageName, aBlock]);
- return self;},
- args: ["aPackageName", "aBlock"],
- source: unescape('named%3A%20aPackageName%20ifAbsent%3A%20aBlock%0A%0A%09%5ESmalltalk%20current%20packageAt%3A%20aPackageName%20ifAbsent%3A%20aBlock'),
- messageSends: ["packageAt:ifAbsent:", "current"],
- referencedClasses: ["Smalltalk"]
- }),
- smalltalk.Package.klass);
- smalltalk.addMethod(
- unescape('_defaultCommitPathJs'),
- smalltalk.method({
- selector: unescape('defaultCommitPathJs'),
- category: 'commit paths',
- fn: function (){
- var self=this;
- return (($receiver = self['@defaultCommitPathJs']) == nil || $receiver == undefined) ? (function(){return (self['@defaultCommitPathJs']="js");})() : $receiver;
- return self;},
- args: [],
- source: unescape('defaultCommitPathJs%0A%09%5E%20defaultCommitPathJs%20ifNil%3A%20%5B%20defaultCommitPathJs%20%3A%3D%20%27js%27%5D'),
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- smalltalk.Package.klass);
- smalltalk.addMethod(
- unescape('_defaultCommitPathJs_'),
- smalltalk.method({
- selector: unescape('defaultCommitPathJs%3A'),
- category: 'commit paths',
- fn: function (aString){
- var self=this;
- (self['@defaultCommitPathJs']=aString);
- return self;},
- args: ["aString"],
- source: unescape('defaultCommitPathJs%3A%20aString%0A%09defaultCommitPathJs%20%3A%3D%20aString'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Package.klass);
- smalltalk.addMethod(
- unescape('_defaultCommitPathSt'),
- smalltalk.method({
- selector: unescape('defaultCommitPathSt'),
- category: 'commit paths',
- fn: function (){
- var self=this;
- return (($receiver = self['@defaultCommitPathSt']) == nil || $receiver == undefined) ? (function(){return (self['@defaultCommitPathSt']="st");})() : $receiver;
- return self;},
- args: [],
- source: unescape('defaultCommitPathSt%0A%09%5E%20defaultCommitPathSt%20ifNil%3A%20%5B%20defaultCommitPathSt%20%3A%3D%20%27st%27%5D'),
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- smalltalk.Package.klass);
- smalltalk.addMethod(
- unescape('_defaultCommitPathSt_'),
- smalltalk.method({
- selector: unescape('defaultCommitPathSt%3A'),
- category: 'commit paths',
- fn: function (aString){
- var self=this;
- (self['@defaultCommitPathSt']=aString);
- return self;},
- args: ["aString"],
- source: unescape('defaultCommitPathSt%3A%20aString%0A%09defaultCommitPathSt%20%3A%3D%20aString'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Package.klass);
- smalltalk.addMethod(
- unescape('_resetCommitPaths'),
- smalltalk.method({
- selector: unescape('resetCommitPaths'),
- category: 'commit paths',
- fn: function (){
- var self=this;
- (self['@defaultCommitPathJs']=nil);
- (self['@defaultCommitPathSt']=nil);
- return self;},
- args: [],
- source: unescape('resetCommitPaths%0A%20%20%20%20%20%20%20%20defaultCommitPathJs%20%3A%3D%20nil.%0A%20%20%20%20%20%20%20%20defaultCommitPathSt%20%3A%3D%20nil.'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Package.klass);
- smalltalk.addMethod(
- unescape('_fetch_prefix_'),
- smalltalk.method({
- selector: unescape('fetch%3Aprefix%3A'),
- category: 'loading-storing',
- fn: function (aPackageName, aPrefix){
- var self=this;
- smalltalk.send((typeof jQuery == 'undefined' ? nil : jQuery), "_getScript_onSuccess_", [smalltalk.send(smalltalk.send(aPrefix, "__comma", [aPackageName]), "__comma", [".js"]), (function(){return smalltalk.send((smalltalk.Package || Package), "_init_", [aPackageName]);})]);
- return self;},
- args: ["aPackageName", "aPrefix"],
- source: unescape('fetch%3A%20aPackageName%20prefix%3A%20aPrefix%0A%09jQuery%20getScript%3A%20%28aPrefix%20%2C%20aPackageName%20%2C%20%27.js%27%29%20onSuccess%3A%20%5B%20Package%20init%3A%20aPackageName%20%5D'),
- messageSends: ["getScript:onSuccess:", unescape("%2C"), "init:"],
- referencedClasses: ["Package"]
- }),
- smalltalk.Package.klass);
- smalltalk.addMethod(
- unescape('_fetch_'),
- smalltalk.method({
- selector: unescape('fetch%3A'),
- category: 'loading-storing',
- fn: function (aPackageName){
- var self=this;
- smalltalk.send(self, "_fetch_prefix_", [aPackageName, smalltalk.send(smalltalk.send(self, "_defaultCommitPathJs", []), "__comma", [unescape("/")])]);
- return self;},
- args: ["aPackageName"],
- source: unescape('fetch%3A%20aPackageName%0A%09self%20fetch%3A%20aPackageName%20prefix%3A%20self%20defaultCommitPathJs%2C%20%27/%27'),
- messageSends: ["fetch:prefix:", unescape("%2C"), "defaultCommitPathJs"],
- referencedClasses: []
- }),
- smalltalk.Package.klass);
- smalltalk.addMethod(
- unescape('_commitToLocalStorage_'),
- smalltalk.method({
- selector: unescape('commitToLocalStorage%3A'),
- category: 'loading-storing',
- fn: function (aPackageName){
- var self=this;
- var key=nil;
- var sourceCode=nil;
- (key=smalltalk.send("smalltalk.packages.", "__comma", [aPackageName]));
- (sourceCode=smalltalk.send(smalltalk.send((smalltalk.Exporter || Exporter), "_new", []), "_exportPackage_", [aPackageName]));
- localStorage[key] = escape(sourceCode);
- return self;},
- args: ["aPackageName"],
- source: unescape('commitToLocalStorage%3A%20aPackageName%0A%09%7C%20key%20sourceCode%20%7C%0A%09key%20%3A%3D%20%27smalltalk.packages.%27%20%2C%20aPackageName.%0A%09sourceCode%20%3A%3D%20Exporter%20new%20exportPackage%3A%20aPackageName.%0A%09%3ClocalStorage%5Bkey%5D%20%3D%20escape%28sourceCode%29%3E'),
- messageSends: [unescape("%2C"), "exportPackage:", "new"],
- referencedClasses: ["Exporter"]
- }),
- smalltalk.Package.klass);
- smalltalk.addMethod(
- unescape('_init_'),
- smalltalk.method({
- selector: unescape('init%3A'),
- category: 'loading-storing',
- fn: function (aPackageName){
- var self=this;
- (function($rec){smalltalk.send($rec, "_do_", [(function(each){return smalltalk.init(each);})]);return smalltalk.send($rec, "_do_", [(function(each){return smalltalk.send(each, "_initialize", []);})]);})(smalltalk.send(smalltalk.send((typeof smalltalk == 'undefined' ? nil : smalltalk), "_classes", []), "_select_", [(function(each){return each.pkg.pkgName == aPackageName;})]));
- return self;},
- args: ["aPackageName"],
- source: unescape('init%3A%20aPackageName%0A%09%28smalltalk%20classes%20select%3A%20%5B%20%3Aeach%20%7C%20%3Ceach.pkg.pkgName%20%3D%3D%20aPackageName%3E%20%5D%29%0A%09%09do%3A%20%5B%20%3Aeach%20%7C%20%3Csmalltalk.init%28each%29%3E%20%5D%3B%0A%09%09do%3A%20%5B%20%3Aeach%20%7C%20each%20initialize%20%5D'),
- messageSends: ["do:", "initialize", "select:", "classes"],
- referencedClasses: []
- }),
- smalltalk.Package.klass);
- smalltalk.addClass('Number', smalltalk.Object, [], 'Kernel-Objects');
- smalltalk.Number.comment=unescape('Number%20holds%20the%20most%20general%20methods%20for%20dealing%20with%20numbers.%20%20%0ANumber%20is%20directly%20mapped%20to%20JavaScript%20Number.%0A%0AMost%20arithmetic%20methods%20like%20%60%23+%60%20%60%23/%60%20%60%23-%60%20%60%23max%3A%60%20are%20directly%20inlined%20into%20javascript.%20%0A%0A%23%23Enumerating%0AA%20Number%20can%20be%20used%20to%20evaluate%20a%20Block%20a%20fixed%20number%20of%20times%3A%0A%0A%095%20timesRepeat%3A%20%5BTranscript%20show%3A%20%27This%20will%20be%20printed%205%20times%27%3B%20cr%5D.%0A%09%0A%091%20to%3A%205%20do%3A%20%5B%3AaNumber%7C%20Transcript%20show%3A%20aNumber%20asString%3B%20cr%5D.%0A%09%0A%091%20to%3A%2010%20by%3A%202%20do%3A%20%5B%3AaNumber%7C%20Transcript%20show%3A%20aNumber%20asString%3B%20cr%5D.')
- smalltalk.addMethod(
- unescape('__eq'),
- smalltalk.method({
- selector: unescape('%3D'),
- category: 'comparing',
- fn: function (aNumber){
- var self=this;
- try{((($receiver = smalltalk.send(aNumber, "_isNumber", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]));
- return Number(self) == aNumber;
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '__eq'){return e.fn()} throw(e)}},
- args: ["aNumber"],
- source: unescape('%3D%20aNumber%0A%09aNumber%20isNumber%20ifFalse%3A%20%5B%5Efalse%5D.%20%0A%09%3Creturn%20Number%28self%29%20%3D%3D%20aNumber%3E'),
- messageSends: ["ifFalse:", "isNumber"],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('__gt'),
- smalltalk.method({
- selector: unescape('%3E'),
- category: 'comparing',
- fn: function (aNumber){
- var self=this;
- return self > aNumber;
- return self;},
- args: ["aNumber"],
- source: unescape('%3E%20aNumber%0A%09%22Inlined%20in%20the%20Compiler%22%0A%09%3Creturn%20self%20%3E%3E%20aNumber%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('__lt'),
- smalltalk.method({
- selector: unescape('%3C'),
- category: 'comparing',
- fn: function (aNumber){
- var self=this;
- return self < aNumber;
- return self;},
- args: ["aNumber"],
- source: unescape('%3C%20aNumber%0A%09%22Inlined%20in%20the%20Compiler%22%0A%09%3Creturn%20self%20%3C%20aNumber%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('__gt_eq'),
- smalltalk.method({
- selector: unescape('%3E%3D'),
- category: 'comparing',
- fn: function (aNumber){
- var self=this;
- return self >= aNumber;
- return self;},
- args: ["aNumber"],
- source: unescape('%3E%3D%20aNumber%0A%09%22Inlined%20in%20the%20Compiler%22%0A%09%3Creturn%20self%20%3E%3E%3D%20aNumber%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('__lt_eq'),
- smalltalk.method({
- selector: unescape('%3C%3D'),
- category: 'comparing',
- fn: function (aNumber){
- var self=this;
- return self <= aNumber;
- return self;},
- args: ["aNumber"],
- source: unescape('%3C%3D%20aNumber%0A%09%22Inlined%20in%20the%20Compiler%22%0A%09%3Creturn%20self%20%3C%3D%20aNumber%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('__plus'),
- smalltalk.method({
- selector: unescape('+'),
- category: 'arithmetic',
- fn: function (aNumber){
- var self=this;
- return self + aNumber;
- return self;},
- args: ["aNumber"],
- source: unescape('+%20aNumber%0A%09%22Inlined%20in%20the%20Compiler%22%0A%09%3Creturn%20self%20+%20aNumber%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('__minus'),
- smalltalk.method({
- selector: unescape('-'),
- category: 'arithmetic',
- fn: function (aNumber){
- var self=this;
- return self - aNumber;
- return self;},
- args: ["aNumber"],
- source: unescape('-%20aNumber%0A%09%22Inlined%20in%20the%20Compiler%22%0A%09%3Creturn%20self%20-%20aNumber%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('__star'),
- smalltalk.method({
- selector: unescape('*'),
- category: 'arithmetic',
- fn: function (aNumber){
- var self=this;
- return self * aNumber;
- return self;},
- args: ["aNumber"],
- source: unescape('*%20aNumber%0A%09%22Inlined%20in%20the%20Compiler%22%0A%09%3Creturn%20self%20*%20aNumber%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('__slash'),
- smalltalk.method({
- selector: unescape('/'),
- category: 'arithmetic',
- fn: function (aNumber){
- var self=this;
- return self / aNumber;
- return self;},
- args: ["aNumber"],
- source: unescape('/%20aNumber%0A%09%22Inlined%20in%20the%20Compiler%22%0A%09%3Creturn%20self%20/%20aNumber%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_max_'),
- smalltalk.method({
- selector: unescape('max%3A'),
- category: 'arithmetic',
- fn: function (aNumber){
- var self=this;
- return Math.max(self, aNumber);;
- return self;},
- args: ["aNumber"],
- source: unescape('max%3A%20aNumber%0A%09%3Creturn%20Math.max%28self%2C%20aNumber%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_min_'),
- smalltalk.method({
- selector: unescape('min%3A'),
- category: 'arithmetic',
- fn: function (aNumber){
- var self=this;
- return Math.min(self, aNumber);;
- return self;},
- args: ["aNumber"],
- source: unescape('min%3A%20aNumber%0A%09%3Creturn%20Math.min%28self%2C%20aNumber%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_rounded'),
- smalltalk.method({
- selector: unescape('rounded'),
- category: 'converting',
- fn: function (){
- var self=this;
- return Math.round(self);;
- return self;},
- args: [],
- source: unescape('rounded%0A%09%3Creturn%20Math.round%28self%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_truncated'),
- smalltalk.method({
- selector: unescape('truncated'),
- category: 'converting',
- fn: function (){
- var self=this;
- var result=nil;
- ((($receiver = self >= (0)).klass === smalltalk.Boolean) ? ($receiver ? (function(){return result = Math.floor(self);;})() : (function(){return result = (Math.floor(self * (-1)) * (-1));;})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return result = Math.floor(self);;}), (function(){return result = (Math.floor(self * (-1)) * (-1));;})]));
- return result;
- return self;},
- args: [],
- source: unescape('truncated%0A%7Cresult%7C%0A%0A%20%20%20%20self%20%3E%3D%200%20%0A%20%20%20%20%20%20%20%20ifTrue%3A%20%5B%3Cresult%20%3D%20Math.floor%28self%29%3B%3E%5D%0A%20%20%20%20%20%20%20%20ifFalse%3A%20%5B%3Cresult%20%3D%20%28Math.floor%28self%20*%20%28-1%29%29%20*%20%28-1%29%29%3B%3E%5D.%0A%0A%20%20%20%20%5E%20result'),
- messageSends: ["ifTrue:ifFalse:", unescape("%3E%3D")],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_to_'),
- smalltalk.method({
- selector: unescape('to%3A'),
- category: 'converting',
- fn: function (aNumber){
- var self=this;
- var array=nil;
- var first=nil;
- var last=nil;
- var count=nil;
- (first=smalltalk.send(self, "_truncated", []));
- (last=((($receiver = smalltalk.send(aNumber, "_truncated", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));
- (count=(1));
- (array=smalltalk.send((smalltalk.Array || Array), "_new", []));
- smalltalk.send(((($receiver = last).klass === smalltalk.Number) ? $receiver -first : smalltalk.send($receiver, "__minus", [first])), "_timesRepeat_", [(function(){smalltalk.send(array, "_at_put_", [count, first]);(count=((($receiver = count).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));return (first=((($receiver = first).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));})]);
- return array;
- return self;},
- args: ["aNumber"],
- source: unescape('to%3A%20aNumber%0A%09%7C%20array%20first%20last%20count%20%7C%0A%09first%20%3A%3D%20self%20truncated.%0A%09last%20%3A%3D%20aNumber%20truncated%20+%201.%0A%09count%20%3A%3D%201.%0A%09array%20%3A%3D%20Array%20new.%0A%09%28last%20-%20first%29%20timesRepeat%3A%20%5B%0A%09%20%20%20%20array%20at%3A%20count%20put%3A%20first.%0A%09%20%20%20%20count%20%3A%3D%20count%20+%201.%0A%09%20%20%20%20first%20%3A%3D%20first%20+%201%5D.%0A%09%5Earray'),
- messageSends: ["truncated", unescape("+"), "new", "timesRepeat:", unescape("-"), "at:put:"],
- referencedClasses: ["Array"]
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_timesRepeat_'),
- smalltalk.method({
- selector: unescape('timesRepeat%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- var integer=nil;
- var count=nil;
- (integer=smalltalk.send(self, "_truncated", []));
- (count=(1));
- (function(){while(!(function(){return ((($receiver = count).klass === smalltalk.Number) ? $receiver >self : smalltalk.send($receiver, "__gt", [self]));})()) {(function(){smalltalk.send(aBlock, "_value", []);return (count=((($receiver = count).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));})()}})();
- return self;},
- args: ["aBlock"],
- source: unescape('timesRepeat%3A%20aBlock%0A%09%7C%20integer%20count%20%7C%0A%09integer%20%3A%3D%20self%20truncated.%0A%09count%20%3A%3D%201.%0A%09%5Bcount%20%3E%20self%5D%20whileFalse%3A%20%5B%0A%09%20%20%20%20aBlock%20value.%0A%09%20%20%20%20count%20%3A%3D%20count%20+%201%5D'),
- messageSends: ["truncated", "whileFalse:", unescape("%3E"), "value", unescape("+")],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_to_do_'),
- smalltalk.method({
- selector: unescape('to%3Ado%3A'),
- category: 'enumerating',
- fn: function (stop, aBlock){
- var self=this;
- var nextValue=nil;
- (nextValue=self);
- (function(){while((function(){return ((($receiver = nextValue).klass === smalltalk.Number) ? $receiver <=stop : smalltalk.send($receiver, "__lt_eq", [stop]));})()) {(function(){smalltalk.send(aBlock, "_value_", [nextValue]);return (nextValue=((($receiver = nextValue).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));})()}})();
- return self;},
- args: ["stop", "aBlock"],
- source: unescape('to%3A%20stop%20do%3A%20aBlock%0A%09%22Evaluate%20aBlock%20for%20each%20number%20from%20self%20to%20aNumber.%22%0A%09%7C%20nextValue%20%7C%0A%09nextValue%20%3A%3D%20self.%0A%09%5BnextValue%20%3C%3D%20stop%5D%0A%09%09whileTrue%3A%20%0A%09%09%09%5BaBlock%20value%3A%20nextValue.%0A%09%09%09nextValue%20%3A%3D%20nextValue%20+%201%5D'),
- messageSends: ["whileTrue:", unescape("%3C%3D"), "value:", unescape("+")],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_asString'),
- smalltalk.method({
- selector: unescape('asString'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_printString", []);
- return self;},
- args: [],
- source: unescape('asString%0A%09%5Eself%20printString'),
- messageSends: ["printString"],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_asJavascript'),
- smalltalk.method({
- selector: unescape('asJavascript'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(unescape("%28"), "__comma", [smalltalk.send(self, "_printString", [])]), "__comma", [unescape("%29")]);
- return self;},
- args: [],
- source: unescape('asJavascript%0A%09%5E%27%28%27%2C%20self%20printString%2C%20%27%29%27'),
- messageSends: [unescape("%2C"), "printString"],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return String(self);
- return self;},
- args: [],
- source: unescape('printString%0A%09%3Creturn%20String%28self%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_isNumber'),
- smalltalk.method({
- selector: unescape('isNumber'),
- category: 'testing',
- fn: function (){
- var self=this;
- return true;
- return self;},
- args: [],
- source: unescape('isNumber%0A%09%5Etrue'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_atRandom'),
- smalltalk.method({
- selector: unescape('atRandom'),
- category: 'converting',
- fn: function (){
- var self=this;
- return ((($receiver = smalltalk.send(((($receiver = smalltalk.send(smalltalk.send((smalltalk.Random || Random), "_new", []), "_next", [])).klass === smalltalk.Number) ? $receiver *self : smalltalk.send($receiver, "__star", [self])), "_truncated", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]));
- return self;},
- args: [],
- source: unescape('atRandom%0A%20%20%20%20%5E%28Random%20new%20next%20*%20self%29%20truncated%20+%201'),
- messageSends: [unescape("+"), "truncated", unescape("*"), "next", "new"],
- referencedClasses: ["Random"]
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('__at'),
- smalltalk.method({
- selector: unescape('@'),
- category: 'converting',
- fn: function (aNumber){
- var self=this;
- return smalltalk.send((smalltalk.Point || Point), "_x_y_", [self, aNumber]);
- return self;},
- args: ["aNumber"],
- source: unescape('@%20aNumber%0A%09%5EPoint%20x%3A%20self%20y%3A%20aNumber'),
- messageSends: ["x:y:"],
- referencedClasses: ["Point"]
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_asPoint'),
- smalltalk.method({
- selector: unescape('asPoint'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.Point || Point), "_x_y_", [self, self]);
- return self;},
- args: [],
- source: unescape('asPoint%0A%09%5EPoint%20x%3A%20self%20y%3A%20self'),
- messageSends: ["x:y:"],
- referencedClasses: ["Point"]
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_clearInterval'),
- smalltalk.method({
- selector: unescape('clearInterval'),
- category: 'timeouts/intervals',
- fn: function (){
- var self=this;
- clearInterval(Number(self));
- return self;},
- args: [],
- source: unescape('clearInterval%0A%09%3CclearInterval%28Number%28self%29%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_clearTimeout'),
- smalltalk.method({
- selector: unescape('clearTimeout'),
- category: 'timeouts/intervals',
- fn: function (){
- var self=this;
- clearTimeout(Number(self));
- return self;},
- args: [],
- source: unescape('clearTimeout%0A%09%3CclearTimeout%28Number%28self%29%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_even'),
- smalltalk.method({
- selector: unescape('even'),
- category: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.send((0), "__eq", [smalltalk.send(self, "_\\\\", [(2)])]);
- return self;},
- args: [],
- source: unescape('even%0A%09%5E%200%20%3D%20%28self%20%5C%5C%202%29'),
- messageSends: [unescape("%3D"), unescape("%5C%5C%5C%5C")],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_odd'),
- smalltalk.method({
- selector: unescape('odd'),
- category: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_even", []), "_not", []);
- return self;},
- args: [],
- source: unescape('odd%0A%09%5E%20self%20even%20not'),
- messageSends: ["not", "even"],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_negated'),
- smalltalk.method({
- selector: unescape('negated'),
- category: 'arithmetic',
- fn: function (){
- var self=this;
- return (0) - self;
- return self;},
- args: [],
- source: unescape('negated%0A%09%5E0%20-%20self'),
- messageSends: [unescape("-")],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_printShowingDecimalPlaces_'),
- smalltalk.method({
- selector: unescape('printShowingDecimalPlaces%3A'),
- category: 'printing',
- fn: function (placesDesired){
- var self=this;
- return self.toFixed(placesDesired);
- return self;},
- args: ["placesDesired"],
- source: unescape('printShowingDecimalPlaces%3A%20placesDesired%0A%09%3Creturn%20self.toFixed%28placesDesired%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_%5C'),
- smalltalk.method({
- selector: unescape('%5C'),
- category: '',
- fn: function (aNumber){
- var self=this;
- return self % aNumber;
- return self;},
- args: ["aNumber"],
- source: unescape(''),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_to_by_'),
- smalltalk.method({
- selector: unescape('to%3Aby%3A'),
- category: 'converting',
- fn: function (stop, step){
- var self=this;
- var array=nil;
- var value=nil;
- var pos=nil;
- (value=self);
- (array=smalltalk.send((smalltalk.Array || Array), "_new", []));
- (pos=(1));
- ((($receiver = smalltalk.send(step, "__eq", [(0)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_error_", [unescape("step%20must%20be%20non-zero")]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self, "_error_", [unescape("step%20must%20be%20non-zero")]);})]));
- ((($receiver = ((($receiver = step).klass === smalltalk.Number) ? $receiver <(0) : smalltalk.send($receiver, "__lt", [(0)]))).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (function(){while((function(){return ((($receiver = value).klass === smalltalk.Number) ? $receiver >=stop : smalltalk.send($receiver, "__gt_eq", [stop]));})()) {(function(){smalltalk.send(array, "_at_put_", [pos, value]);(pos=((($receiver = pos).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));return (value=((($receiver = value).klass === smalltalk.Number) ? $receiver +step : smalltalk.send($receiver, "__plus", [step])));})()}})();})() : (function(){return (function(){while((function(){return ((($receiver = value).klass === smalltalk.Number) ? $receiver <=stop : smalltalk.send($receiver, "__lt_eq", [stop]));})()) {(function(){smalltalk.send(array, "_at_put_", [pos, value]);(pos=((($receiver = pos).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));return (value=((($receiver = value).klass === smalltalk.Number) ? $receiver +step : smalltalk.send($receiver, "__plus", [step])));})()}})();})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return (function(){while((function(){return ((($receiver = value).klass === smalltalk.Number) ? $receiver >=stop : smalltalk.send($receiver, "__gt_eq", [stop]));})()) {(function(){smalltalk.send(array, "_at_put_", [pos, value]);(pos=((($receiver = pos).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));return (value=((($receiver = value).klass === smalltalk.Number) ? $receiver +step : smalltalk.send($receiver, "__plus", [step])));})()}})();}), (function(){return (function(){while((function(){return ((($receiver = value).klass === smalltalk.Number) ? $receiver <=stop : smalltalk.send($receiver, "__lt_eq", [stop]));})()) {(function(){smalltalk.send(array, "_at_put_", [pos, value]);(pos=((($receiver = pos).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));return (value=((($receiver = value).klass === smalltalk.Number) ? $receiver +step : smalltalk.send($receiver, "__plus", [step])));})()}})();})]));
- return array;
- return self;},
- args: ["stop", "step"],
- source: unescape('to%3A%20stop%20by%3A%20step%0A%09%7C%20array%20value%20pos%20%7C%0A%09value%20%3A%3D%20self.%0A%09array%20%3A%3D%20Array%20new.%0A%09pos%20%3A%3D%201.%0A%09step%20%3D%200%20ifTrue%3A%20%5Bself%20error%3A%20%27step%20must%20be%20non-zero%27%5D.%0A%09step%20%3C%200%0A%09%09ifTrue%3A%20%5B%5B%20value%20%3E%3D%20stop%20%5D%20whileTrue%3A%20%5B%0A%09%20%20%20%20%09%09%09array%20at%3A%20pos%20put%3A%20value.%0A%09%20%20%20%20%09%09%09pos%20%3A%3D%20pos%20+%201.%0A%09%20%20%20%20%09%09%09value%20%3A%3D%20value%20+%20step%5D%5D%0A%09%09ifFalse%3A%20%5B%5B%20value%20%3C%3D%20stop%20%5D%20whileTrue%3A%20%5B%0A%09%20%20%20%20%09%09%09array%20at%3A%20pos%20put%3A%20value.%0A%09%20%20%09%09%09pos%20%3A%3D%20pos%20+%201.%0A%09%20%20%20%20%09%09%09value%20%3A%3D%20value%20+%20step%5D%5D.%0A%09%5Earray'),
- messageSends: ["new", "ifTrue:", unescape("%3D"), "error:", "ifTrue:ifFalse:", unescape("%3C"), "whileTrue:", unescape("%3E%3D"), "at:put:", unescape("+"), unescape("%3C%3D")],
- referencedClasses: ["Array"]
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_to_by_do_'),
- smalltalk.method({
- selector: unescape('to%3Aby%3Ado%3A'),
- category: 'enumerating',
- fn: function (stop, step, aBlock){
- var self=this;
- var value=nil;
- (value=self);
- ((($receiver = smalltalk.send(step, "__eq", [(0)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_error_", [unescape("step%20must%20be%20non-zero")]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self, "_error_", [unescape("step%20must%20be%20non-zero")]);})]));
- ((($receiver = ((($receiver = step).klass === smalltalk.Number) ? $receiver <(0) : smalltalk.send($receiver, "__lt", [(0)]))).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (function(){while((function(){return ((($receiver = value).klass === smalltalk.Number) ? $receiver >=stop : smalltalk.send($receiver, "__gt_eq", [stop]));})()) {(function(){smalltalk.send(aBlock, "_value_", [value]);return (value=((($receiver = value).klass === smalltalk.Number) ? $receiver +step : smalltalk.send($receiver, "__plus", [step])));})()}})();})() : (function(){return (function(){while((function(){return ((($receiver = value).klass === smalltalk.Number) ? $receiver <=stop : smalltalk.send($receiver, "__lt_eq", [stop]));})()) {(function(){smalltalk.send(aBlock, "_value_", [value]);return (value=((($receiver = value).klass === smalltalk.Number) ? $receiver +step : smalltalk.send($receiver, "__plus", [step])));})()}})();})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return (function(){while((function(){return ((($receiver = value).klass === smalltalk.Number) ? $receiver >=stop : smalltalk.send($receiver, "__gt_eq", [stop]));})()) {(function(){smalltalk.send(aBlock, "_value_", [value]);return (value=((($receiver = value).klass === smalltalk.Number) ? $receiver +step : smalltalk.send($receiver, "__plus", [step])));})()}})();}), (function(){return (function(){while((function(){return ((($receiver = value).klass === smalltalk.Number) ? $receiver <=stop : smalltalk.send($receiver, "__lt_eq", [stop]));})()) {(function(){smalltalk.send(aBlock, "_value_", [value]);return (value=((($receiver = value).klass === smalltalk.Number) ? $receiver +step : smalltalk.send($receiver, "__plus", [step])));})()}})();})]));
- return self;},
- args: ["stop", "step", "aBlock"],
- source: unescape('to%3A%20stop%20by%3A%20step%20do%3A%20aBlock%0A%09%7C%20value%20%7C%0A%09value%20%3A%3D%20self.%0A%09step%20%3D%200%20ifTrue%3A%20%5Bself%20error%3A%20%27step%20must%20be%20non-zero%27%5D.%0A%09step%20%3C%200%0A%09%09ifTrue%3A%20%5B%5B%20value%20%3E%3D%20stop%20%5D%20whileTrue%3A%20%5B%0A%09%20%20%20%20%09%09%09aBlock%20value%3A%20value.%0A%09%20%20%20%20%09%09%09value%20%3A%3D%20value%20+%20step%5D%5D%0A%09%09ifFalse%3A%20%5B%5B%20value%20%3C%3D%20stop%20%5D%20whileTrue%3A%20%5B%0A%09%20%20%20%20%09%09%09aBlock%20value%3A%20value.%0A%09%20%20%20%20%09%09%09value%20%3A%3D%20value%20+%20step%5D%5D'),
- messageSends: ["ifTrue:", unescape("%3D"), "error:", "ifTrue:ifFalse:", unescape("%3C"), "whileTrue:", unescape("%3E%3D"), "value:", unescape("+"), unescape("%3C%3D")],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_deepCopy'),
- smalltalk.method({
- selector: unescape('deepCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_copy", []);
- return self;},
- args: [],
- source: unescape('deepCopy%0A%09%5Eself%20copy'),
- messageSends: ["copy"],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_copy'),
- smalltalk.method({
- selector: unescape('copy'),
- category: 'copying',
- fn: function (){
- var self=this;
- return self;
- return self;},
- args: [],
- source: unescape('copy%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_%5C%5C'),
- smalltalk.method({
- selector: unescape('%5C%5C'),
- category: 'arithmetic',
- fn: function (aNumber){
- var self=this;
- return self % aNumber;
- return self;},
- args: ["aNumber"],
- source: unescape('%5C%5C%20aNumber%0A%09%3Creturn%20self%20%25%20aNumber%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_sqrt'),
- smalltalk.method({
- selector: unescape('sqrt'),
- category: 'arithmetic',
- fn: function (){
- var self=this;
- return Math.sqrt(self);
- return self;},
- args: [],
- source: unescape('sqrt%0A%09%3Creturn%20Math.sqrt%28self%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_squared'),
- smalltalk.method({
- selector: unescape('squared'),
- category: 'arithmetic',
- fn: function (){
- var self=this;
- return self * self;
- return self;},
- args: [],
- source: unescape('squared%0A%09%5Eself%20*%20self'),
- messageSends: [unescape("*")],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_identityHash'),
- smalltalk.method({
- selector: unescape('identityHash'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asString", []), "__comma", ["n"]);
- return self;},
- args: [],
- source: unescape('identityHash%0A%09%5Eself%20asString%2C%20%27n%27'),
- messageSends: [unescape("%2C"), "asString"],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_negative'),
- smalltalk.method({
- selector: unescape('negative'),
- category: 'testing',
- fn: function (){
- var self=this;
- return self < (0);
- return self;},
- args: [],
- source: unescape('negative%0A%09%22Answer%20whether%20the%20receiver%20is%20mathematically%20negative.%22%0A%0A%09%5E%20self%20%3C%200'),
- messageSends: [unescape("%3C")],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_positive'),
- smalltalk.method({
- selector: unescape('positive'),
- category: 'testing',
- fn: function (){
- var self=this;
- return self >= (0);
- return self;},
- args: [],
- source: unescape('positive%0A%09%22Answer%20whether%20the%20receiver%20is%20positive%20or%20equal%20to%200.%20%28ST-80%20protocol%29.%22%0A%0A%09%5E%20self%20%3E%3D%200'),
- messageSends: [unescape("%3E%3D")],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_isZero'),
- smalltalk.method({
- selector: unescape('isZero'),
- category: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "__eq", [(0)]);
- return self;},
- args: [],
- source: unescape('isZero%0A%09%5Eself%20%3D%200'),
- messageSends: [unescape("%3D")],
- referencedClasses: []
- }),
- smalltalk.Number);
- smalltalk.addMethod(
- unescape('_pi'),
- smalltalk.method({
- selector: unescape('pi'),
- category: 'instance creation',
- fn: function (){
- var self=this;
- return Math.PI;
- return self;},
- args: [],
- source: unescape('pi%0A%09%3Creturn%20Math.PI%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Number.klass);
- smalltalk.addClass('Boolean', smalltalk.Object, [], 'Kernel-Objects');
- smalltalk.Boolean.comment=unescape('Boolean%20wraps%20the%20JavaScript%20%60Boolean%28%29%60%20constructor.%20The%20%60true%60%20and%20%60false%60%20objects%20are%20the%20JavaScript%20boolean%20objects.%0A%0ABoolean%20defines%20the%20protocol%20for%20logic%20testing%20operations%20and%20conditional%20control%20structures%20for%20the%20logical%20values.%0ABoolean%20instances%20are%20weither%20%60true%60%20or%20%60false%60.')
- smalltalk.addMethod(
- unescape('__eq'),
- smalltalk.method({
- selector: unescape('%3D'),
- category: 'comparing',
- fn: function (aBoolean){
- var self=this;
- try{((($receiver = smalltalk.send(smalltalk.send(aBoolean, "_class", []), "__eq", [smalltalk.send(self, "_class", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]));
- return Boolean(self == true) == aBoolean;
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '__eq'){return e.fn()} throw(e)}},
- args: ["aBoolean"],
- source: unescape('%3D%20aBoolean%0A%09aBoolean%20class%20%3D%20self%20class%20ifFalse%3A%20%5B%5Efalse%5D.%0A%09%3Creturn%20Boolean%28self%20%3D%3D%20true%29%20%3D%3D%20aBoolean%3E'),
- messageSends: ["ifFalse:", unescape("%3D"), "class"],
- referencedClasses: []
- }),
- smalltalk.Boolean);
- smalltalk.addMethod(
- unescape('_shallowCopy'),
- smalltalk.method({
- selector: unescape('shallowCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- return self;
- return self;},
- args: [],
- source: unescape('shallowCopy%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Boolean);
- smalltalk.addMethod(
- unescape('_deepCopy'),
- smalltalk.method({
- selector: unescape('deepCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- return self;
- return self;},
- args: [],
- source: unescape('deepCopy%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Boolean);
- smalltalk.addMethod(
- unescape('_ifTrue_'),
- smalltalk.method({
- selector: unescape('ifTrue%3A'),
- category: 'controlling',
- fn: function (aBlock){
- var self=this;
- return smalltalk.send(self, "_ifTrue_ifFalse_", [aBlock, (function(){return nil;})]);
- return self;},
- args: ["aBlock"],
- source: unescape('ifTrue%3A%20aBlock%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%5Eself%20ifTrue%3A%20aBlock%20ifFalse%3A%20%5B%5D'),
- messageSends: ["ifTrue:ifFalse:"],
- referencedClasses: []
- }),
- smalltalk.Boolean);
- smalltalk.addMethod(
- unescape('_ifFalse_'),
- smalltalk.method({
- selector: unescape('ifFalse%3A'),
- category: 'controlling',
- fn: function (aBlock){
- var self=this;
- return smalltalk.send(self, "_ifTrue_ifFalse_", [(function(){return nil;}), aBlock]);
- return self;},
- args: ["aBlock"],
- source: unescape('ifFalse%3A%20aBlock%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%5Eself%20ifTrue%3A%20%5B%5D%20ifFalse%3A%20aBlock'),
- messageSends: ["ifTrue:ifFalse:"],
- referencedClasses: []
- }),
- smalltalk.Boolean);
- smalltalk.addMethod(
- unescape('_ifFalse_ifTrue_'),
- smalltalk.method({
- selector: unescape('ifFalse%3AifTrue%3A'),
- category: 'controlling',
- fn: function (aBlock, anotherBlock){
- var self=this;
- return smalltalk.send(self, "_ifTrue_ifFalse_", [anotherBlock, aBlock]);
- return self;},
- args: ["aBlock", "anotherBlock"],
- source: unescape('ifFalse%3A%20aBlock%20ifTrue%3A%20anotherBlock%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%5Eself%20ifTrue%3A%20anotherBlock%20ifFalse%3A%20aBlock'),
- messageSends: ["ifTrue:ifFalse:"],
- referencedClasses: []
- }),
- smalltalk.Boolean);
- smalltalk.addMethod(
- unescape('_ifTrue_ifFalse_'),
- smalltalk.method({
- selector: unescape('ifTrue%3AifFalse%3A'),
- category: 'controlling',
- fn: function (aBlock, anotherBlock){
- var self=this;
- if(self == true) {
- return aBlock();
- } else {
- return anotherBlock();
- }
- ;
- return self;},
- args: ["aBlock", "anotherBlock"],
- source: unescape('ifTrue%3A%20aBlock%20ifFalse%3A%20anotherBlock%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%3C%0A%09%20%20%20%20if%28self%20%3D%3D%20true%29%20%7B%0A%09%09return%20aBlock%28%29%3B%0A%09%20%20%20%20%7D%20else%20%7B%0A%09%09return%20anotherBlock%28%29%3B%0A%09%20%20%20%20%7D%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Boolean);
- smalltalk.addMethod(
- unescape('_and_'),
- smalltalk.method({
- selector: unescape('and%3A'),
- category: 'controlling',
- fn: function (aBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "__eq", [true]), "_ifTrue_ifFalse_", [aBlock, (function(){return false;})]);
- return self;},
- args: ["aBlock"],
- source: unescape('and%3A%20aBlock%0A%09%5Eself%20%3D%20true%0A%09%20%20%20%20ifTrue%3A%20aBlock%0A%09%20%20%20%20ifFalse%3A%20%5Bfalse%5D'),
- messageSends: ["ifTrue:ifFalse:", unescape("%3D")],
- referencedClasses: []
- }),
- smalltalk.Boolean);
- smalltalk.addMethod(
- unescape('_or_'),
- smalltalk.method({
- selector: unescape('or%3A'),
- category: 'controlling',
- fn: function (aBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "__eq", [true]), "_ifTrue_ifFalse_", [(function(){return true;}), aBlock]);
- return self;},
- args: ["aBlock"],
- source: unescape('or%3A%20aBlock%0A%09%5Eself%20%3D%20true%0A%09%20%20%20%20ifTrue%3A%20%5Btrue%5D%0A%09%20%20%20%20ifFalse%3A%20aBlock'),
- messageSends: ["ifTrue:ifFalse:", unescape("%3D")],
- referencedClasses: []
- }),
- smalltalk.Boolean);
- smalltalk.addMethod(
- unescape('_not'),
- smalltalk.method({
- selector: unescape('not'),
- category: 'controlling',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "__eq", [false]);
- return self;},
- args: [],
- source: unescape('not%0A%09%5Eself%20%3D%20false'),
- messageSends: [unescape("%3D")],
- referencedClasses: []
- }),
- smalltalk.Boolean);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return self.toString();
- return self;},
- args: [],
- source: unescape('printString%0A%09%3Creturn%20self.toString%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Boolean);
- smalltalk.addMethod(
- unescape('_%26'),
- smalltalk.method({
- selector: unescape('%26'),
- category: 'controlling',
- fn: function (aBoolean){
- var self=this;
- if(self == true) {
- return aBoolean;
- } else {
- return false;
- }
- ;
- return self;},
- args: ["aBoolean"],
- source: unescape('%26%20aBoolean%0A%09%3C%0A%09%20%20%20%20if%28self%20%3D%3D%20true%29%20%7B%0A%09%09return%20aBoolean%3B%0A%09%20%20%20%20%7D%20else%20%7B%0A%09%09return%20false%3B%0A%09%20%20%20%20%7D%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Boolean);
- smalltalk.addMethod(
- unescape('_%7C'),
- smalltalk.method({
- selector: unescape('%7C'),
- category: 'controlling',
- fn: function (aBoolean){
- var self=this;
- if(self == true) {
- return true;
- } else {
- return aBoolean;
- }
- ;
- return self;},
- args: ["aBoolean"],
- source: unescape('%7C%20aBoolean%0A%09%3C%0A%09%20%20%20%20if%28self%20%3D%3D%20true%29%20%7B%0A%09%09return%20true%3B%0A%09%20%20%20%20%7D%20else%20%7B%0A%09%09return%20aBoolean%3B%0A%09%20%20%20%20%7D%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Boolean);
- smalltalk.addClass('Date', smalltalk.Object, [], 'Kernel-Objects');
- smalltalk.Date.comment=unescape('The%20Date%20class%20is%20used%20to%20work%20with%20dates%20and%20times.%20Therefore%20%60Date%20today%60%20and%20%60Date%20now%60%20are%20both%20valid%20in%0AAmber%20and%20answer%20the%20same%20date%20object.%0A%0ADate%20wraps%20the%20%60Date%28%29%60%20JavaScript%20constructor%2C%20and%20Smalltalk%20date%20objects%20are%20JavaScript%20date%20objects.')
- smalltalk.addMethod(
- unescape('_year'),
- smalltalk.method({
- selector: unescape('year'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.getFullYear();
- return self;},
- args: [],
- source: unescape('year%0A%09%3Creturn%20self.getFullYear%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_month'),
- smalltalk.method({
- selector: unescape('month'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.getMonth() + 1;
- return self;},
- args: [],
- source: unescape('month%0A%09%3Creturn%20self.getMonth%28%29%20+%201%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_month_'),
- smalltalk.method({
- selector: unescape('month%3A'),
- category: 'accessing',
- fn: function (aNumber){
- var self=this;
- self.setMonth(aNumber - 1);
- return self;},
- args: ["aNumber"],
- source: unescape('month%3A%20aNumber%0A%09%3Cself.setMonth%28aNumber%20-%201%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_day'),
- smalltalk.method({
- selector: unescape('day'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_dayOfWeek", []);
- return self;},
- args: [],
- source: unescape('day%0A%09%5Eself%20dayOfWeek'),
- messageSends: ["dayOfWeek"],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_dayOfWeek'),
- smalltalk.method({
- selector: unescape('dayOfWeek'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.getDay() + 1;
- return self;},
- args: [],
- source: unescape('dayOfWeek%0A%09%3Creturn%20self.getDay%28%29%20+%201%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_dayOfWeek_'),
- smalltalk.method({
- selector: unescape('dayOfWeek%3A'),
- category: 'accessing',
- fn: function (aNumber){
- var self=this;
- return self.setDay(aNumber - 1);
- return self;},
- args: ["aNumber"],
- source: unescape('dayOfWeek%3A%20aNumber%0A%09%3Creturn%20self.setDay%28aNumber%20-%201%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_day_'),
- smalltalk.method({
- selector: unescape('day%3A'),
- category: 'accessing',
- fn: function (aNumber){
- var self=this;
- smalltalk.send(self, "_day_", [aNumber]);
- return self;},
- args: ["aNumber"],
- source: unescape('day%3A%20aNumber%0A%09self%20day%3A%20aNumber'),
- messageSends: ["day:"],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_year_'),
- smalltalk.method({
- selector: unescape('year%3A'),
- category: 'accessing',
- fn: function (aNumber){
- var self=this;
- self.setFullYear(aNumber);
- return self;},
- args: ["aNumber"],
- source: unescape('year%3A%20aNumber%0A%09%3Cself.setFullYear%28aNumber%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_dayOfMonth'),
- smalltalk.method({
- selector: unescape('dayOfMonth'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.getDate();
- return self;},
- args: [],
- source: unescape('dayOfMonth%0A%09%3Creturn%20self.getDate%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_dayOfMonth_'),
- smalltalk.method({
- selector: unescape('dayOfMonth%3A'),
- category: 'accessing',
- fn: function (aNumber){
- var self=this;
- self.setDate(aNumber);
- return self;},
- args: ["aNumber"],
- source: unescape('dayOfMonth%3A%20aNumber%0A%09%3Cself.setDate%28aNumber%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_asString'),
- smalltalk.method({
- selector: unescape('asString'),
- category: 'converting',
- fn: function (){
- var self=this;
- return self.toString();
- return self;},
- args: [],
- source: unescape('asString%0A%09%3Creturn%20self.toString%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_asString", []);
- return self;},
- args: [],
- source: unescape('printString%0A%09%5Eself%20asString'),
- messageSends: ["asString"],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_asMilliseconds'),
- smalltalk.method({
- selector: unescape('asMilliseconds'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_time", []);
- return self;},
- args: [],
- source: unescape('asMilliseconds%0A%09%5Eself%20time'),
- messageSends: ["time"],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_time'),
- smalltalk.method({
- selector: unescape('time'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.getTime();
- return self;},
- args: [],
- source: unescape('time%0A%09%3Creturn%20self.getTime%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_time_'),
- smalltalk.method({
- selector: unescape('time%3A'),
- category: 'accessing',
- fn: function (aNumber){
- var self=this;
- self.setTime(aNumber);
- return self;},
- args: ["aNumber"],
- source: unescape('time%3A%20aNumber%0A%09%3Cself.setTime%28aNumber%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_asDateString'),
- smalltalk.method({
- selector: unescape('asDateString'),
- category: 'converting',
- fn: function (){
- var self=this;
- return self.toDateString();
- return self;},
- args: [],
- source: unescape('asDateString%0A%09%3Creturn%20self.toDateString%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_asTimeString'),
- smalltalk.method({
- selector: unescape('asTimeString'),
- category: 'converting',
- fn: function (){
- var self=this;
- return self.toTimeString();
- return self;},
- args: [],
- source: unescape('asTimeString%0A%09%3Creturn%20self.toTimeString%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_asLocaleString'),
- smalltalk.method({
- selector: unescape('asLocaleString'),
- category: 'converting',
- fn: function (){
- var self=this;
- return self.toLocaleString();
- return self;},
- args: [],
- source: unescape('asLocaleString%0A%09%3Creturn%20self.toLocaleString%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_asNumber'),
- smalltalk.method({
- selector: unescape('asNumber'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_asMilliseconds", []);
- return self;},
- args: [],
- source: unescape('asNumber%0A%09%5Eself%20asMilliseconds'),
- messageSends: ["asMilliseconds"],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_hours_'),
- smalltalk.method({
- selector: unescape('hours%3A'),
- category: 'accessing',
- fn: function (aNumber){
- var self=this;
- self.setHours(aNumber);
- return self;},
- args: ["aNumber"],
- source: unescape('hours%3A%20aNumber%0A%09%3Cself.setHours%28aNumber%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_minutes_'),
- smalltalk.method({
- selector: unescape('minutes%3A'),
- category: 'accessing',
- fn: function (aNumber){
- var self=this;
- self.setMinutes(aNumber);
- return self;},
- args: ["aNumber"],
- source: unescape('minutes%3A%20aNumber%0A%09%3Cself.setMinutes%28aNumber%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_seconds_'),
- smalltalk.method({
- selector: unescape('seconds%3A'),
- category: 'accessing',
- fn: function (aNumber){
- var self=this;
- self.setSeconds(aNumber);
- return self;},
- args: ["aNumber"],
- source: unescape('seconds%3A%20aNumber%0A%09%3Cself.setSeconds%28aNumber%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_milliseconds_'),
- smalltalk.method({
- selector: unescape('milliseconds%3A'),
- category: 'accessing',
- fn: function (aNumber){
- var self=this;
- self.setMilliseconds(aNumber);
- return self;},
- args: ["aNumber"],
- source: unescape('milliseconds%3A%20aNumber%0A%09%3Cself.setMilliseconds%28aNumber%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_hours'),
- smalltalk.method({
- selector: unescape('hours'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.getHours();
- return self;},
- args: [],
- source: unescape('hours%0A%09%3Creturn%20self.getHours%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_minutes'),
- smalltalk.method({
- selector: unescape('minutes'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.getMinutes();
- return self;},
- args: [],
- source: unescape('minutes%0A%09%3Creturn%20self.getMinutes%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_seconds'),
- smalltalk.method({
- selector: unescape('seconds'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.getSeconds();
- return self;},
- args: [],
- source: unescape('seconds%0A%09%3Creturn%20self.getSeconds%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_milliseconds'),
- smalltalk.method({
- selector: unescape('milliseconds'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.getMilliseconds();
- return self;},
- args: [],
- source: unescape('milliseconds%0A%09%3Creturn%20self.getMilliseconds%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('__lt'),
- smalltalk.method({
- selector: unescape('%3C'),
- category: 'comparing',
- fn: function (aDate){
- var self=this;
- return self < aDate;
- return self;},
- args: ["aDate"],
- source: unescape('%3C%20aDate%0A%09%3Creturn%20self%20%3C%20aDate%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('__gt'),
- smalltalk.method({
- selector: unescape('%3E'),
- category: 'comparing',
- fn: function (aDate){
- var self=this;
- return self > aDate;
- return self;},
- args: ["aDate"],
- source: unescape('%3E%20aDate%0A%09%3Creturn%20self%20%3E%3E%20aDate%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('__lt_eq'),
- smalltalk.method({
- selector: unescape('%3C%3D'),
- category: 'comparing',
- fn: function (aDate){
- var self=this;
- return self <= aDate;
- return self;},
- args: ["aDate"],
- source: unescape('%3C%3D%20aDate%0A%09%3Creturn%20self%20%3C%3D%20aDate%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('__gt_eq'),
- smalltalk.method({
- selector: unescape('%3E%3D'),
- category: 'comparing',
- fn: function (aDate){
- var self=this;
- return self >= aDate;
- return self;},
- args: ["aDate"],
- source: unescape('%3E%3D%20aDate%0A%09%3Creturn%20self%20%3E%3E%3D%20aDate%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('__minus'),
- smalltalk.method({
- selector: unescape('-'),
- category: 'arithmetic',
- fn: function (aDate){
- var self=this;
- return self - aDate;
- return self;},
- args: ["aDate"],
- source: unescape('-%20aDate%0A%09%3Creturn%20self%20-%20aDate%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('__plus'),
- smalltalk.method({
- selector: unescape('+'),
- category: 'arithmetic',
- fn: function (aDate){
- var self=this;
- return self + aDate;
- return self;},
- args: ["aDate"],
- source: unescape('+%20aDate%0A%09%3Creturn%20self%20+%20aDate%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date);
- smalltalk.addMethod(
- unescape('_new_'),
- smalltalk.method({
- selector: unescape('new%3A'),
- category: 'instance creation',
- fn: function (anObject){
- var self=this;
- return new Date(anObject);
- return self;},
- args: ["anObject"],
- source: unescape('new%3A%20anObject%0A%09%3Creturn%20new%20Date%28anObject%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Date.klass);
- smalltalk.addMethod(
- unescape('_fromString_'),
- smalltalk.method({
- selector: unescape('fromString%3A'),
- category: 'instance creation',
- fn: function (aString){
- var self=this;
- return smalltalk.send(self, "_new_", [aString]);
- return self;},
- args: ["aString"],
- source: unescape('fromString%3A%20aString%0A%09%22Example%3A%20Date%20fromString%28%272011/04/15%2000%3A00%3A00%27%29%22%0A%09%5Eself%20new%3A%20aString'),
- messageSends: ["new:"],
- referencedClasses: []
- }),
- smalltalk.Date.klass);
- smalltalk.addMethod(
- unescape('_fromSeconds_'),
- smalltalk.method({
- selector: unescape('fromSeconds%3A'),
- category: 'instance creation',
- fn: function (aNumber){
- var self=this;
- return smalltalk.send(self, "_fromMilliseconds_", [((($receiver = aNumber).klass === smalltalk.Number) ? $receiver *(1000) : smalltalk.send($receiver, "__star", [(1000)]))]);
- return self;},
- args: ["aNumber"],
- source: unescape('fromSeconds%3A%20aNumber%0A%09%5Eself%20fromMilliseconds%3A%20aNumber%20*%201000'),
- messageSends: ["fromMilliseconds:", unescape("*")],
- referencedClasses: []
- }),
- smalltalk.Date.klass);
- smalltalk.addMethod(
- unescape('_fromMilliseconds_'),
- smalltalk.method({
- selector: unescape('fromMilliseconds%3A'),
- category: 'instance creation',
- fn: function (aNumber){
- var self=this;
- return smalltalk.send(self, "_new_", [aNumber]);
- return self;},
- args: ["aNumber"],
- source: unescape('fromMilliseconds%3A%20aNumber%0A%09%5Eself%20new%3A%20aNumber'),
- messageSends: ["new:"],
- referencedClasses: []
- }),
- smalltalk.Date.klass);
- smalltalk.addMethod(
- unescape('_today'),
- smalltalk.method({
- selector: unescape('today'),
- category: 'instance creation',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_new", []);
- return self;},
- args: [],
- source: unescape('today%0A%09%5Eself%20new'),
- messageSends: ["new"],
- referencedClasses: []
- }),
- smalltalk.Date.klass);
- smalltalk.addMethod(
- unescape('_now'),
- smalltalk.method({
- selector: unescape('now'),
- category: 'instance creation',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_today", []);
- return self;},
- args: [],
- source: unescape('now%0A%09%5Eself%20today'),
- messageSends: ["today"],
- referencedClasses: []
- }),
- smalltalk.Date.klass);
- smalltalk.addMethod(
- unescape('_millisecondsToRun_'),
- smalltalk.method({
- selector: unescape('millisecondsToRun%3A'),
- category: 'instance creation',
- fn: function (aBlock){
- var self=this;
- var t=nil;
- (t=smalltalk.send((smalltalk.Date || Date), "_now", []));
- smalltalk.send(aBlock, "_value", []);
- return ((($receiver = smalltalk.send((smalltalk.Date || Date), "_now", [])).klass === smalltalk.Number) ? $receiver -t : smalltalk.send($receiver, "__minus", [t]));
- return self;},
- args: ["aBlock"],
- source: unescape('millisecondsToRun%3A%20aBlock%0A%09%7C%20t%20%7C%0A%09t%20%3A%3D%20Date%20now.%0A%09aBlock%20value.%0A%09%5EDate%20now%20-%20t'),
- messageSends: ["now", "value", unescape("-")],
- referencedClasses: ["Date"]
- }),
- smalltalk.Date.klass);
- smalltalk.addClass('UndefinedObject', smalltalk.Object, [], 'Kernel-Objects');
- smalltalk.UndefinedObject.comment=unescape('UndefinedObject%20describes%20the%20behavior%20of%20its%20sole%20instance%2C%20%60nil%60.%20%60nil%60%20represents%20a%20prior%20value%20for%20variables%20that%20have%20not%20been%20initialized%2C%20or%20for%20results%20which%20are%20meaningless.%0A%0A%60nil%60%20is%20the%20Smalltalk%20representation%20of%20the%20%60undefined%60%20JavaScript%20object.')
- smalltalk.addMethod(
- unescape('_subclass_instanceVariableNames_'),
- smalltalk.method({
- selector: unescape('subclass%3AinstanceVariableNames%3A'),
- category: 'class creation',
- fn: function (aString, anotherString){
- var self=this;
- return smalltalk.send(self, "_subclass_instanceVariableNames_package_", [aString, anotherString, nil]);
- return self;},
- args: ["aString", "anotherString"],
- source: unescape('subclass%3A%20aString%20instanceVariableNames%3A%20anotherString%0A%09%5Eself%20subclass%3A%20aString%20instanceVariableNames%3A%20anotherString%20package%3A%20nil'),
- messageSends: ["subclass:instanceVariableNames:package:"],
- referencedClasses: []
- }),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- unescape('_subclass_instanceVariableNames_category_'),
- smalltalk.method({
- selector: unescape('subclass%3AinstanceVariableNames%3Acategory%3A'),
- category: 'class creation',
- fn: function (aString, aString2, aString3){
- var self=this;
- smalltalk.send(self, "_deprecatedAPI", []);
- return smalltalk.send(self, "_subclass_instanceVariableNames_package_", [aString, aString2, aString3]);
- return self;},
- args: ["aString", "aString2", "aString3"],
- source: unescape('subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20category%3A%20aString3%0A%09%22Kept%20for%20compatibility.%22%0A%09self%20deprecatedAPI.%0A%09%5Eself%20subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20package%3A%20aString3'),
- messageSends: ["deprecatedAPI", "subclass:instanceVariableNames:package:"],
- referencedClasses: []
- }),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- unescape('_shallowCopy'),
- smalltalk.method({
- selector: unescape('shallowCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- return self;
- return self;},
- args: [],
- source: unescape('shallowCopy%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- unescape('_deepCopy'),
- smalltalk.method({
- selector: unescape('deepCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- return self;
- return self;},
- args: [],
- source: unescape('deepCopy%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- unescape('_ifNil_'),
- smalltalk.method({
- selector: unescape('ifNil%3A'),
- category: 'testing',
- fn: function (aBlock){
- var self=this;
- return smalltalk.send(self, "_ifNil_ifNotNil_", [aBlock, (function(){return nil;})]);
- return self;},
- args: ["aBlock"],
- source: unescape('ifNil%3A%20aBlock%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%5Eself%20ifNil%3A%20aBlock%20ifNotNil%3A%20%5B%5D'),
- messageSends: ["ifNil:ifNotNil:"],
- referencedClasses: []
- }),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- unescape('_ifNotNil_'),
- smalltalk.method({
- selector: unescape('ifNotNil%3A'),
- category: 'testing',
- fn: function (aBlock){
- var self=this;
- return self;
- return self;},
- args: ["aBlock"],
- source: unescape('ifNotNil%3A%20aBlock%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- unescape('_ifNil_ifNotNil_'),
- smalltalk.method({
- selector: unescape('ifNil%3AifNotNil%3A'),
- category: 'testing',
- fn: function (aBlock, anotherBlock){
- var self=this;
- return smalltalk.send(aBlock, "_value", []);
- return self;},
- args: ["aBlock", "anotherBlock"],
- source: unescape('ifNil%3A%20aBlock%20ifNotNil%3A%20anotherBlock%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%5EaBlock%20value'),
- messageSends: ["value"],
- referencedClasses: []
- }),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- unescape('_ifNotNil_ifNil_'),
- smalltalk.method({
- selector: unescape('ifNotNil%3AifNil%3A'),
- category: 'testing',
- fn: function (aBlock, anotherBlock){
- var self=this;
- return smalltalk.send(anotherBlock, "_value", []);
- return self;},
- args: ["aBlock", "anotherBlock"],
- source: unescape('ifNotNil%3A%20aBlock%20ifNil%3A%20anotherBlock%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%5EanotherBlock%20value'),
- messageSends: ["value"],
- referencedClasses: []
- }),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- unescape('_isNil'),
- smalltalk.method({
- selector: unescape('isNil'),
- category: 'testing',
- fn: function (){
- var self=this;
- return true;
- return self;},
- args: [],
- source: unescape('isNil%0A%09%5Etrue'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- unescape('_notNil'),
- smalltalk.method({
- selector: unescape('notNil'),
- category: 'testing',
- fn: function (){
- var self=this;
- return false;
- return self;},
- args: [],
- source: unescape('notNil%0A%09%5Efalse'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return "nil";
- return self;},
- args: [],
- source: unescape('printString%0A%20%20%20%20%5E%27nil%27'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- unescape('_subclass_instanceVariableNames_package_'),
- smalltalk.method({
- selector: unescape('subclass%3AinstanceVariableNames%3Apackage%3A'),
- category: 'class creation',
- fn: function (aString, aString2, aString3){
- var self=this;
- return smalltalk.send(smalltalk.send((smalltalk.ClassBuilder || ClassBuilder), "_new", []), "_superclass_subclass_instanceVariableNames_package_", [self, aString, aString2, aString3]);
- return self;},
- args: ["aString", "aString2", "aString3"],
- source: unescape('subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20package%3A%20aString3%0A%09%5EClassBuilder%20new%0A%09%20%20%20%20superclass%3A%20self%20subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20package%3A%20aString3'),
- messageSends: ["superclass:subclass:instanceVariableNames:package:", "new"],
- referencedClasses: ["ClassBuilder"]
- }),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- unescape('_new'),
- smalltalk.method({
- selector: unescape('new'),
- category: 'instance creation',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_error_", ["You cannot create new instances of UndefinedObject. Use nil"]);
- return self;},
- args: [],
- source: unescape('new%0A%09%20%20%20%20self%20error%3A%20%27You%20cannot%20create%20new%20instances%20of%20UndefinedObject.%20Use%20nil%27'),
- messageSends: ["error:"],
- referencedClasses: []
- }),
- smalltalk.UndefinedObject.klass);
- smalltalk.addClass('Random', smalltalk.Object, [], 'Kernel-Objects');
- smalltalk.Random.comment=unescape('%60Random%60%20is%20a%20random%20number%20generator%20and%20is%20implemented%20as%20a%20trivial%20wrapper%20around%20javascript%20%60Math.random%28%29%60%20and%20is%20used%20like%20this%3A%0A%0A%09Random%20new%20next%0A%0AThis%20will%20return%20a%20float%20x%20where%20x%20%3C%201%20and%20x%20%3E%200.%20If%20you%20want%20a%20random%20integer%20from%201%20to%2010%20you%20can%20use%20%60%23atRandom%60%0A%0A%0910%20atRandom%0A%0A...and%20if%20you%20want%20a%20random%20number%20in%20a%20specific%20interval%20this%20also%20works%3A%0A%0A%09%283%20to%3A%207%29%20atRandom%0A%0A...but%20be%20aware%20that%20%60%23to%3A%60%20does%20not%20create%20an%20Interval%20as%20in%20other%20Smalltalk%20implementations%20but%20in%20fact%20an%20%60Array%60%20of%20numbers%2C%20so%20it%27s%20better%20to%20use%3A%0A%0A%095%20atRandom%20+%202%0A%0ASince%20%60%23atRandom%60%20is%20implemented%20in%20%60SequencableCollection%60%20you%20can%20easy%20pick%20an%20element%20at%20random%3A%0A%0A%09%23%28%27a%27%20%27b%27%20%27c%27%29%20atRandom%0A%0A...or%20perhaps%20a%20letter%20from%20a%20%60String%60%3A%0A%0A%09%27abc%27%20atRandom%0A%0ASince%20Amber%20does%20not%20have%20Characters%20this%20will%20return%20a%20%60String%60%20of%20length%201%20like%20for%20example%20%60%27b%27%60.')
- smalltalk.addMethod(
- unescape('_next'),
- smalltalk.method({
- selector: unescape('next'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return Math.random();
- return self;},
- args: [],
- source: unescape('next%0A%09%3Creturn%20Math.random%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Random);
- smalltalk.addMethod(
- unescape('_next_'),
- smalltalk.method({
- selector: unescape('next%3A'),
- category: 'accessing',
- fn: function (anInteger){
- var self=this;
- return smalltalk.send(smalltalk.send((1), "_to_", [anInteger]), "_collect_", [(function(each){return smalltalk.send(self, "_next", []);})]);
- return self;},
- args: ["anInteger"],
- source: unescape('next%3A%20anInteger%0A%20%20%20%20%5E%281%20to%3A%20anInteger%29%20collect%3A%20%5B%3Aeach%20%7C%20self%20next%5D'),
- messageSends: ["collect:", "to:", "next"],
- referencedClasses: []
- }),
- smalltalk.Random);
- smalltalk.addClass('Point', smalltalk.Object, ['x', 'y'], 'Kernel-Objects');
- smalltalk.Point.comment=unescape('A%20%60Point%60%20represents%20an%20x-y%20pair%20of%20numbers%20usually%20designating%20a%20geometric%20coordinate.%0APoints%20are%20traditionally%20created%20using%20the%20binary%20%60%23@%60%20message%20to%20a%20number%3A%0A%0A%09100@120%0A%0APoints%20can%20then%20be%20arithmetically%20manipulated%3A%0A%0A%09100@100%20+%20%2810@10%29%0A%0A...or%20for%20example%3A%0A%0A%09%28100@100%29%20*%202%0A%0A**NOTE%3A**%20Creating%20a%20Point%20with%20a%20negative%20y-value%20will%20need%20a%20space%20after%20%60@%60%20in%20order%20to%20avoid%20a%20parsing%20error%3A%0A%0A%09100@%20-100%20%22but%20100@-100%20would%20not%20parse%22%0A%0AAmber%20does%20not%20have%20much%20behavior%20in%20this%20class%20out-of-the-box.')
- smalltalk.addMethod(
- unescape('_x'),
- smalltalk.method({
- selector: unescape('x'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@x'];
- return self;},
- args: [],
- source: unescape('x%0A%09%5Ex'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Point);
- smalltalk.addMethod(
- unescape('_y'),
- smalltalk.method({
- selector: unescape('y'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@y'];
- return self;},
- args: [],
- source: unescape('y%0A%09%5Ey'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Point);
- smalltalk.addMethod(
- unescape('_y_'),
- smalltalk.method({
- selector: unescape('y%3A'),
- category: 'accessing',
- fn: function (aNumber){
- var self=this;
- (self['@y']=aNumber);
- return self;},
- args: ["aNumber"],
- source: unescape('y%3A%20aNumber%0A%09y%20%3A%3D%20aNumber'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Point);
- smalltalk.addMethod(
- unescape('_x_'),
- smalltalk.method({
- selector: unescape('x%3A'),
- category: 'accessing',
- fn: function (aNumber){
- var self=this;
- (self['@x']=aNumber);
- return self;},
- args: ["aNumber"],
- source: unescape('x%3A%20aNumber%0A%09x%20%3A%3D%20aNumber'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Point);
- smalltalk.addMethod(
- unescape('__star'),
- smalltalk.method({
- selector: unescape('*'),
- category: 'arithmetic',
- fn: function (aPoint){
- var self=this;
- return smalltalk.send((smalltalk.Point || Point), "_x_y_", [((($receiver = smalltalk.send(self, "_x", [])).klass === smalltalk.Number) ? $receiver *smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_x", []) : smalltalk.send($receiver, "__star", [smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_x", [])])), ((($receiver = smalltalk.send(self, "_y", [])).klass === smalltalk.Number) ? $receiver *smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_y", []) : smalltalk.send($receiver, "__star", [smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_y", [])]))]);
- return self;},
- args: ["aPoint"],
- source: unescape('*%20aPoint%0A%09%5EPoint%20x%3A%20self%20x%20*%20aPoint%20asPoint%20x%20y%3A%20self%20y%20*%20aPoint%20asPoint%20y'),
- messageSends: ["x:y:", unescape("*"), "x", "asPoint", "y"],
- referencedClasses: ["Point"]
- }),
- smalltalk.Point);
- smalltalk.addMethod(
- unescape('__plus'),
- smalltalk.method({
- selector: unescape('+'),
- category: 'arithmetic',
- fn: function (aPoint){
- var self=this;
- return smalltalk.send((smalltalk.Point || Point), "_x_y_", [((($receiver = smalltalk.send(self, "_x", [])).klass === smalltalk.Number) ? $receiver +smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_x", []) : smalltalk.send($receiver, "__plus", [smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_x", [])])), ((($receiver = smalltalk.send(self, "_y", [])).klass === smalltalk.Number) ? $receiver +smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_y", []) : smalltalk.send($receiver, "__plus", [smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_y", [])]))]);
- return self;},
- args: ["aPoint"],
- source: unescape('+%20aPoint%0A%09%5EPoint%20x%3A%20self%20x%20+%20aPoint%20asPoint%20x%20y%3A%20self%20y%20+%20aPoint%20asPoint%20y'),
- messageSends: ["x:y:", unescape("+"), "x", "asPoint", "y"],
- referencedClasses: ["Point"]
- }),
- smalltalk.Point);
- smalltalk.addMethod(
- unescape('__minus'),
- smalltalk.method({
- selector: unescape('-'),
- category: 'arithmetic',
- fn: function (aPoint){
- var self=this;
- return smalltalk.send((smalltalk.Point || Point), "_x_y_", [((($receiver = smalltalk.send(self, "_x", [])).klass === smalltalk.Number) ? $receiver -smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_x", []) : smalltalk.send($receiver, "__minus", [smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_x", [])])), ((($receiver = smalltalk.send(self, "_y", [])).klass === smalltalk.Number) ? $receiver -smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_y", []) : smalltalk.send($receiver, "__minus", [smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_y", [])]))]);
- return self;},
- args: ["aPoint"],
- source: unescape('-%20aPoint%0A%09%5EPoint%20x%3A%20self%20x%20-%20aPoint%20asPoint%20x%20y%3A%20self%20y%20-%20aPoint%20asPoint%20y'),
- messageSends: ["x:y:", unescape("-"), "x", "asPoint", "y"],
- referencedClasses: ["Point"]
- }),
- smalltalk.Point);
- smalltalk.addMethod(
- unescape('__slash'),
- smalltalk.method({
- selector: unescape('/'),
- category: 'arithmetic',
- fn: function (aPoint){
- var self=this;
- return smalltalk.send((smalltalk.Point || Point), "_x_y_", [((($receiver = smalltalk.send(self, "_x", [])).klass === smalltalk.Number) ? $receiver /smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_x", []) : smalltalk.send($receiver, "__slash", [smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_x", [])])), ((($receiver = smalltalk.send(self, "_y", [])).klass === smalltalk.Number) ? $receiver /smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_y", []) : smalltalk.send($receiver, "__slash", [smalltalk.send(smalltalk.send(aPoint, "_asPoint", []), "_y", [])]))]);
- return self;},
- args: ["aPoint"],
- source: unescape('/%20aPoint%0A%09%5EPoint%20x%3A%20self%20x%20/%20aPoint%20asPoint%20x%20y%3A%20self%20y%20/%20aPoint%20asPoint%20y'),
- messageSends: ["x:y:", unescape("/"), "x", "asPoint", "y"],
- referencedClasses: ["Point"]
- }),
- smalltalk.Point);
- smalltalk.addMethod(
- unescape('_asPoint'),
- smalltalk.method({
- selector: unescape('asPoint'),
- category: 'converting',
- fn: function (){
- var self=this;
- return self;
- return self;},
- args: [],
- source: unescape('asPoint%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Point);
- smalltalk.addMethod(
- unescape('__eq'),
- smalltalk.method({
- selector: unescape('%3D'),
- category: 'arithmetic',
- fn: function (aPoint){
- var self=this;
- return smalltalk.send(smalltalk.send(smalltalk.send(aPoint, "_class", []), "__eq", [smalltalk.send(self, "_class", [])]), "_and_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(aPoint, "_x", []), "__eq", [smalltalk.send(self, "_x", [])]), "_&", [smalltalk.send(smalltalk.send(aPoint, "_y", []), "__eq", [smalltalk.send(self, "_y", [])])]);})]);
- return self;},
- args: ["aPoint"],
- source: unescape('%3D%20aPoint%0A%09%5EaPoint%20class%20%3D%20self%20class%20and%3A%20%5B%0A%09%09%28aPoint%20x%20%3D%20self%20x%29%20%26%20%28aPoint%20y%20%3D%20self%20y%29%5D'),
- messageSends: ["and:", unescape("%3D"), "class", unescape("%26"), "x", "y"],
- referencedClasses: []
- }),
- smalltalk.Point);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(stream){smalltalk.send(stream, "_nextPutAll_", [smalltalk.send(smalltalk.send(self['@x'], "_printString", []), "__comma", [unescape("@")])]);((($receiver = smalltalk.send(smalltalk.send(self['@y'], "_notNil", []), "_and_", [(function(){return smalltalk.send(self['@y'], "_negative", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(stream, "_space", []);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(stream, "_space", []);})]));return smalltalk.send(stream, "_nextPutAll_", [smalltalk.send(self['@y'], "_printString", [])]);})]);
- return self;},
- args: [],
- source: unescape('printString%0A%09%22Print%20receiver%20in%20classic%20x@y%20notation.%22%0A%0A%09%5EString%20streamContents%3A%20%5B%3Astream%20%7C%0A%09%09stream%20nextPutAll%3A%20x%20printString%2C%20%27@%27.%0A%09%09%28y%20notNil%20and%3A%20%5By%20negative%5D%29%0A%09%09%09ifTrue%3A%20%5B%0A%09%09%09%09%22Avoid%20ambiguous%20@-%20construct%22%0A%09%09%09%09stream%20space%5D.%0A%09%09stream%20nextPutAll%3A%20y%20printString%5D'),
- messageSends: ["streamContents:", "nextPutAll:", unescape("%2C"), "printString", "ifTrue:", "and:", "notNil", "negative", "space"],
- referencedClasses: ["String"]
- }),
- smalltalk.Point);
- smalltalk.addMethod(
- unescape('_x_y_'),
- smalltalk.method({
- selector: unescape('x%3Ay%3A'),
- category: 'instance creation',
- fn: function (aNumber, anotherNumber){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_x_", [aNumber]);smalltalk.send($rec, "_y_", [anotherNumber]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;},
- args: ["aNumber", "anotherNumber"],
- source: unescape('x%3A%20aNumber%20y%3A%20anotherNumber%0A%09%5Eself%20new%0A%09%09x%3A%20aNumber%3B%0A%09%09y%3A%20anotherNumber%3B%0A%09%09yourself'),
- messageSends: ["x:", "y:", "yourself", "new"],
- referencedClasses: []
- }),
- smalltalk.Point.klass);
- smalltalk.addClass('JSObjectProxy', smalltalk.Object, ['jsObject'], 'Kernel-Objects');
- smalltalk.JSObjectProxy.comment=unescape('JSObjectProxy%20handles%20sending%20messages%20to%20JavaScript%20object%2C%20therefore%20accessing%20JavaScript%20objects%20from%20Amber%20is%20transparent.%0AJSOjbectProxy%20makes%20intensive%20use%20of%20%60%23doesNotUnderstand%3A%60.%0A%0A%23%23%20Examples%0A%0AJSObjectProxy%20objects%20are%20instanciated%20by%20Amber%20when%20a%20Smalltalk%20message%20is%20sent%20to%20a%20JavaScript%20object.%0A%0A%20%20%20%20window%20alert%3A%20%27hello%20world%27.%0A%20%20%20%20window%20inspect.%0A%20%20%20%20%28window%20jQuery%3A%20%27body%27%29%20append%3A%20%27hello%20world%27%0A%0ASmalltalk%20messages%20sends%20are%20converted%20to%20JavaScript%20function%20calls%20or%20object%20property%20access%20_%28in%20this%20order%29_.%20If%20n%20one%20of%20them%20match%2C%20a%20%60MessageNotUnderstood%60%20error%20will%20be%20thrown.%20%0A%0A%23%23%20Message%20conversion%20rules%0A%0A-%20%60someUser%20name%60%20becomes%20%20%60someUser.name%60%0A-%20%60someUser%20name%3A%20%27John%27%60%20becomes%20%60someUser%20name%20%3D%20%22John%22%60%0A-%20%60console%20log%3A%20%27hello%20world%27%60%20becomes%20%60console.log%28%27hello%20world%27%29%60%0A-%20%60%28window%20jQuery%3A%20%27foo%27%29%20css%3A%20%27background%27%20color%3A%20%27red%27%60%20becomes%20%60window.jQuery%28%27foo%27%29.css%28%27background%27%2C%20%27red%27%29%60%0A%0A__Note%3A__%20For%20keyword-based%20messages%2C%20only%20the%20first%20keyword%20is%20kept%3A%20%60window%20foo%3A%201%20bar%3A%202%60%20is%20equivalent%20to%20%60window%20foo%3A%201%20baz%3A%202%60.')
- smalltalk.addMethod(
- unescape('_jsObject_'),
- smalltalk.method({
- selector: unescape('jsObject%3A'),
- category: 'accessing',
- fn: function (aJSObject){
- var self=this;
- (self['@jsObject']=aJSObject);
- return self;},
- args: ["aJSObject"],
- source: unescape('jsObject%3A%20aJSObject%0A%09jsObject%20%3A%3D%20aJSObject'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.JSObjectProxy);
- smalltalk.addMethod(
- unescape('_jsObject'),
- smalltalk.method({
- selector: unescape('jsObject'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@jsObject'];
- return self;},
- args: [],
- source: unescape('jsObject%0A%09%5EjsObject'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.JSObjectProxy);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'proxy',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_jsObject", []), "_toString", []);
- return self;},
- args: [],
- source: unescape('printString%0A%09%5Eself%20jsObject%20toString'),
- messageSends: ["toString", "jsObject"],
- referencedClasses: []
- }),
- smalltalk.JSObjectProxy);
- smalltalk.addMethod(
- unescape('_inspectOn_'),
- smalltalk.method({
- selector: unescape('inspectOn%3A'),
- category: 'proxy',
- fn: function (anInspector){
- var self=this;
- var variables=nil;
- (variables=smalltalk.send((smalltalk.Dictionary || Dictionary), "_new", []));
- smalltalk.send(variables, "_at_put_", [unescape("%23self"), smalltalk.send(self, "_jsObject", [])]);
- smalltalk.send(anInspector, "_setLabel_", [smalltalk.send(self, "_printString", [])]);
- for(var i in self['@jsObject']) {
- variables._at_put_(i, self['@jsObject'][i]);
- };
- smalltalk.send(anInspector, "_setVariables_", [variables]);
- return self;},
- args: ["anInspector"],
- source: unescape('inspectOn%3A%20anInspector%0A%09%7C%20variables%20%7C%0A%09variables%20%3A%3D%20Dictionary%20new.%0A%09variables%20at%3A%20%27%23self%27%20put%3A%20self%20jsObject.%0A%09anInspector%20setLabel%3A%20self%20printString.%0A%09%3Cfor%28var%20i%20in%20self%5B%27@jsObject%27%5D%29%20%7B%0A%09%09variables._at_put_%28i%2C%20self%5B%27@jsObject%27%5D%5Bi%5D%29%3B%0A%09%7D%3E.%0A%09anInspector%20setVariables%3A%20variables'),
- messageSends: ["new", "at:put:", "jsObject", "setLabel:", "printString", "setVariables:"],
- referencedClasses: ["Dictionary"]
- }),
- smalltalk.JSObjectProxy);
- smalltalk.addMethod(
- unescape('_doesNotUnderstand_'),
- smalltalk.method({
- selector: unescape('doesNotUnderstand%3A'),
- category: 'proxy',
- fn: function (aMessage){
- var self=this;
- var obj=nil;
- var selector=nil;
- var jsSelector=nil;
- var arguments=nil;
- (obj=smalltalk.send(self, "_jsObject", []));
- (selector=smalltalk.send(aMessage, "_selector", []));
- (jsSelector=smalltalk.send(selector, "_asJavaScriptSelector", []));
- (arguments=smalltalk.send(aMessage, "_arguments", []));
- if(obj[jsSelector] != undefined) {return smalltalk.send(obj, jsSelector, arguments)};
- smalltalk.send(self, "_doesNotUnderstand_", [aMessage], smalltalk.Object);
- return self;},
- args: ["aMessage"],
- source: unescape('doesNotUnderstand%3A%20aMessage%0A%09%7C%20obj%20selector%20jsSelector%20arguments%20%7C%0A%09obj%20%3A%3D%20self%20jsObject.%0A%09selector%20%3A%3D%20aMessage%20selector.%0A%09jsSelector%20%3A%3D%20selector%20asJavaScriptSelector.%0A%09arguments%20%3A%3D%20aMessage%20arguments.%0A%09%3Cif%28obj%5BjsSelector%5D%20%21%3D%20undefined%29%20%7Breturn%20smalltalk.send%28obj%2C%20jsSelector%2C%20arguments%29%7D%3E.%0A%09super%20doesNotUnderstand%3A%20aMessage'),
- messageSends: ["jsObject", "selector", "asJavaScriptSelector", "arguments", "doesNotUnderstand:"],
- referencedClasses: []
- }),
- smalltalk.JSObjectProxy);
- smalltalk.addMethod(
- unescape('_at_'),
- smalltalk.method({
- selector: unescape('at%3A'),
- category: 'accessing',
- fn: function (aSymbol){
- var self=this;
- var attr=nil;
- (attr=smalltalk.send(aSymbol, "_asString", []));
- return self['@jsObject'][attr];
- return self;},
- args: ["aSymbol"],
- source: unescape('at%3A%20aSymbol%0A%09%7C%20attr%20%7C%0A%09attr%20%3A%3D%20aSymbol%20asString.%0A%09%3Creturn%20self%5B%27@jsObject%27%5D%5Battr%5D%3E'),
- messageSends: ["asString"],
- referencedClasses: []
- }),
- smalltalk.JSObjectProxy);
- smalltalk.addMethod(
- unescape('_at_put_'),
- smalltalk.method({
- selector: unescape('at%3Aput%3A'),
- category: 'accessing',
- fn: function (aSymbol, anObject){
- var self=this;
- var attr=nil;
- (attr=smalltalk.send(aSymbol, "_asString", []));
- self['@jsObject'][attr] = anObject;
- return self;},
- args: ["aSymbol", "anObject"],
- source: unescape('at%3A%20aSymbol%20put%3A%20anObject%0A%09%7C%20attr%20%7C%0A%09attr%20%3A%3D%20aSymbol%20asString.%0A%09%3Cself%5B%27@jsObject%27%5D%5Battr%5D%20%3D%20anObject%3E'),
- messageSends: ["asString"],
- referencedClasses: []
- }),
- smalltalk.JSObjectProxy);
- smalltalk.addMethod(
- unescape('_on_'),
- smalltalk.method({
- selector: unescape('on%3A'),
- category: 'instance creation',
- fn: function (aJSObject){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_jsObject_", [aJSObject]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;},
- args: ["aJSObject"],
- source: unescape('on%3A%20aJSObject%0A%09%5Eself%20new%0A%09%09jsObject%3A%20aJSObject%3B%0A%09%09yourself'),
- messageSends: ["jsObject:", "yourself", "new"],
- referencedClasses: []
- }),
- smalltalk.JSObjectProxy.klass);
- smalltalk.addPackage('Kernel-Classes', {});
- smalltalk.addClass('Behavior', smalltalk.Object, [], 'Kernel-Classes');
- smalltalk.Behavior.comment=unescape('Behavior%20is%20the%20superclass%20of%20all%20class%20objects.%20%0A%0AIt%20defines%20the%20protocol%20for%20creating%20instances%20of%20a%20class%20with%20%60%23basicNew%60%20and%20%60%23new%60%20%28see%20%60boot.js%60%20for%20class%20constructors%20details%29.%0AInstances%20know%20about%20the%20subclass/superclass%20relationships%20between%20classes%2C%20contain%20the%20description%20that%20instances%20are%20created%20from%2C%20%0Aand%20hold%20the%20method%20dictionary%20that%27s%20associated%20with%20each%20class.%0A%0ABehavior%20also%20%20provides%20methods%20for%20compiling%20methods%2C%20examining%20the%20method%20dictionary%2C%20and%20iterating%20over%20the%20class%20hierarchy.')
- smalltalk.addMethod(
- unescape('_new'),
- smalltalk.method({
- selector: unescape('new'),
- category: 'instance creation',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_basicNew", []), "_initialize", []);
- return self;},
- args: [],
- source: unescape('new%0A%09%5Eself%20basicNew%20initialize'),
- messageSends: ["initialize", "basicNew"],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_basicNew'),
- smalltalk.method({
- selector: unescape('basicNew'),
- category: 'instance creation',
- fn: function (){
- var self=this;
- return new self.fn();
- return self;},
- args: [],
- source: unescape('basicNew%0A%09%3Creturn%20new%20self.fn%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_name'),
- smalltalk.method({
- selector: unescape('name'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.className || nil;
- return self;},
- args: [],
- source: unescape('name%0A%09%3Creturn%20self.className%20%7C%7C%20nil%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_superclass'),
- smalltalk.method({
- selector: unescape('superclass'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.superclass || nil;
- return self;},
- args: [],
- source: unescape('superclass%0A%09%3Creturn%20self.superclass%20%7C%7C%20nil%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_subclasses'),
- smalltalk.method({
- selector: unescape('subclasses'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.subclasses(self);
- return self;},
- args: [],
- source: unescape('subclasses%0A%09%3Creturn%20smalltalk.subclasses%28self%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_allSubclasses'),
- smalltalk.method({
- selector: unescape('allSubclasses'),
- category: 'accessing',
- fn: function (){
- var self=this;
- var result=nil;
- (result=smalltalk.send(self, "_subclasses", []));
- smalltalk.send(smalltalk.send(self, "_subclasses", []), "_do_", [(function(each){return smalltalk.send(result, "_addAll_", [smalltalk.send(each, "_allSubclasses", [])]);})]);
- return result;
- return self;},
- args: [],
- source: unescape('allSubclasses%0A%09%7C%20result%20%7C%0A%09result%20%3A%3D%20self%20subclasses.%0A%09self%20subclasses%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20result%20addAll%3A%20each%20allSubclasses%5D.%0A%09%5Eresult'),
- messageSends: ["subclasses", "do:", "addAll:", "allSubclasses"],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_withAllSubclasses'),
- smalltalk.method({
- selector: unescape('withAllSubclasses'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_addAll_", [smalltalk.send(self, "_allSubclasses", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.Array || Array), "_with_", [self]));
- return self;},
- args: [],
- source: unescape('withAllSubclasses%0A%09%5E%28Array%20with%3A%20self%29%20addAll%3A%20self%20allSubclasses%3B%20yourself'),
- messageSends: ["addAll:", "allSubclasses", "yourself", "with:"],
- referencedClasses: ["Array"]
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_prototype'),
- smalltalk.method({
- selector: unescape('prototype'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.fn.prototype;
- return self;},
- args: [],
- source: unescape('prototype%0A%09%3Creturn%20self.fn.prototype%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_methodDictionary'),
- smalltalk.method({
- selector: unescape('methodDictionary'),
- category: 'accessing',
- fn: function (){
- var self=this;
- var dict = smalltalk.HashedCollection._new();
- var methods = self.fn.prototype.methods;
- for(var i in methods) {
- if(methods[i].selector) {
- dict._at_put_(methods[i].selector, methods[i]);
- }
- };
- return dict;
- return self;},
- args: [],
- source: unescape('methodDictionary%0A%09%3Cvar%20dict%20%3D%20smalltalk.HashedCollection._new%28%29%3B%0A%09var%20methods%20%3D%20self.fn.prototype.methods%3B%0A%09for%28var%20i%20in%20methods%29%20%7B%0A%09%09if%28methods%5Bi%5D.selector%29%20%7B%0A%09%09%09dict._at_put_%28methods%5Bi%5D.selector%2C%20methods%5Bi%5D%29%3B%0A%09%09%7D%0A%09%7D%3B%0A%09return%20dict%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_methodsFor_'),
- smalltalk.method({
- selector: unescape('methodsFor%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_class_category_", [self, aString]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.ClassCategoryReader || ClassCategoryReader), "_new", []));
- return self;},
- args: ["aString"],
- source: unescape('methodsFor%3A%20aString%0A%09%5EClassCategoryReader%20new%0A%09%20%20%20%20class%3A%20self%20category%3A%20aString%3B%0A%09%20%20%20%20yourself'),
- messageSends: ["class:category:", "yourself", "new"],
- referencedClasses: ["ClassCategoryReader"]
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_addCompiledMethod_'),
- smalltalk.method({
- selector: unescape('addCompiledMethod%3A'),
- category: 'compiling',
- fn: function (aMethod){
- var self=this;
- smalltalk.addMethod(aMethod.selector._asSelector(), aMethod, self);
- return self;},
- args: ["aMethod"],
- source: unescape('addCompiledMethod%3A%20aMethod%0A%09%3Csmalltalk.addMethod%28aMethod.selector._asSelector%28%29%2C%20aMethod%2C%20self%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_instanceVariableNames'),
- smalltalk.method({
- selector: unescape('instanceVariableNames'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.iVarNames;
- return self;},
- args: [],
- source: unescape('instanceVariableNames%0A%09%3Creturn%20self.iVarNames%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_comment'),
- smalltalk.method({
- selector: unescape('comment'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = smalltalk.send(self, "_basicAt_", ["comment"])) == nil || $receiver == undefined) ? (function(){return "";})() : $receiver;
- return self;},
- args: [],
- source: unescape('comment%0A%20%20%20%20%5E%28self%20basicAt%3A%20%27comment%27%29%20ifNil%3A%20%5B%27%27%5D'),
- messageSends: ["ifNil:", "basicAt:"],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_comment_'),
- smalltalk.method({
- selector: unescape('comment%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- smalltalk.send(self, "_basicAt_put_", ["comment", aString]);
- return self;},
- args: ["aString"],
- source: unescape('comment%3A%20aString%0A%20%20%20%20self%20basicAt%3A%20%27comment%27%20put%3A%20aString'),
- messageSends: ["basicAt:put:"],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_commentStamp'),
- smalltalk.method({
- selector: unescape('commentStamp'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_class_", [self]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.ClassCommentReader || ClassCommentReader), "_new", []));
- return self;},
- args: [],
- source: unescape('commentStamp%0A%20%20%20%20%5EClassCommentReader%20new%0A%09class%3A%20self%3B%0A%09yourself'),
- messageSends: ["class:", "yourself", "new"],
- referencedClasses: ["ClassCommentReader"]
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_removeCompiledMethod_'),
- smalltalk.method({
- selector: unescape('removeCompiledMethod%3A'),
- category: 'compiling',
- fn: function (aMethod){
- var self=this;
- delete self.fn.prototype[aMethod.selector._asSelector()];
- delete self.fn.prototype.methods[aMethod.selector];
- smalltalk.init(self);;
- return self;},
- args: ["aMethod"],
- source: unescape('removeCompiledMethod%3A%20aMethod%0A%09%3Cdelete%20self.fn.prototype%5BaMethod.selector._asSelector%28%29%5D%3B%0A%09delete%20self.fn.prototype.methods%5BaMethod.selector%5D%3B%0A%09smalltalk.init%28self%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_inheritsFrom_'),
- smalltalk.method({
- selector: unescape('inheritsFrom%3A'),
- category: 'testing',
- fn: function (aClass){
- var self=this;
- return smalltalk.send(smalltalk.send(aClass, "_allSubclasses", []), "_includes_", [self]);
- return self;},
- args: ["aClass"],
- source: unescape('inheritsFrom%3A%20aClass%0A%09%5EaClass%20allSubclasses%20includes%3A%20self'),
- messageSends: ["includes:", "allSubclasses"],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_protocols'),
- smalltalk.method({
- selector: unescape('protocols'),
- category: 'accessing',
- fn: function (){
- var self=this;
- var protocols=nil;
- (protocols=smalltalk.send((smalltalk.Array || Array), "_new", []));
- smalltalk.send(smalltalk.send(self, "_methodDictionary", []), "_do_", [(function(each){return ((($receiver = smalltalk.send(protocols, "_includes_", [smalltalk.send(each, "_category", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(protocols, "_add_", [smalltalk.send(each, "_category", [])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(protocols, "_add_", [smalltalk.send(each, "_category", [])]);})]));})]);
- return smalltalk.send(protocols, "_sort", []);
- return self;},
- args: [],
- source: unescape('protocols%0A%20%20%20%20%7C%20protocols%20%7C%0A%20%20%20%20protocols%20%3A%3D%20Array%20new.%0A%20%20%20%20self%20methodDictionary%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20%28protocols%20includes%3A%20each%20category%29%20ifFalse%3A%20%5B%0A%09%09protocols%20add%3A%20each%20category%5D%5D.%0A%20%20%20%20%5Eprotocols%20sort'),
- messageSends: ["new", "do:", "methodDictionary", "ifFalse:", "includes:", "category", "add:", "sort"],
- referencedClasses: ["Array"]
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_protocolsDo_'),
- smalltalk.method({
- selector: unescape('protocolsDo%3A'),
- category: 'accessing',
- fn: function (aBlock){
- var self=this;
- var methodsByCategory=nil;
- (methodsByCategory=smalltalk.send((smalltalk.HashedCollection || HashedCollection), "_new", []));
- smalltalk.send(smalltalk.send(smalltalk.send(self, "_methodDictionary", []), "_values", []), "_do_", [(function(m){return smalltalk.send(smalltalk.send(methodsByCategory, "_at_ifAbsentPut_", [smalltalk.send(m, "_category", []), (function(){return smalltalk.send((smalltalk.Array || Array), "_new", []);})]), "_add_", [m]);})]);
- smalltalk.send(smalltalk.send(self, "_protocols", []), "_do_", [(function(category){return smalltalk.send(aBlock, "_value_value_", [category, smalltalk.send(methodsByCategory, "_at_", [category])]);})]);
- return self;},
- args: ["aBlock"],
- source: unescape('protocolsDo%3A%20aBlock%0A%09%22Execute%20aBlock%20for%20each%20method%20category%20with%0A%09its%20collection%20of%20methods%20in%20the%20sort%20order%20of%20category%20name.%22%0A%0A%09%7C%20methodsByCategory%20%7C%0A%09methodsByCategory%20%3A%3D%20HashedCollection%20new.%0A%09self%20methodDictionary%20values%20do%3A%20%5B%3Am%20%7C%0A%09%09%28methodsByCategory%20at%3A%20m%20category%20ifAbsentPut%3A%20%5BArray%20new%5D%29%0A%20%09%09%09add%3A%20m%5D.%20%0A%09self%20protocols%20do%3A%20%5B%3Acategory%20%7C%0A%09%09aBlock%20value%3A%20category%20value%3A%20%28methodsByCategory%20at%3A%20category%29%5D'),
- messageSends: ["new", "do:", "values", "methodDictionary", "add:", "at:ifAbsentPut:", "category", "protocols", "value:value:", "at:"],
- referencedClasses: ["HashedCollection", "Array"]
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_allInstanceVariableNames'),
- smalltalk.method({
- selector: unescape('allInstanceVariableNames'),
- category: 'accessing',
- fn: function (){
- var self=this;
- var result=nil;
- (result=smalltalk.send(smalltalk.send(self, "_instanceVariableNames", []), "_copy", []));
- (($receiver = smalltalk.send(self, "_superclass", [])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(result, "_addAll_", [smalltalk.send(smalltalk.send(self, "_superclass", []), "_allInstanceVariableNames", [])]);})() : nil;
- return result;
- return self;},
- args: [],
- source: unescape('allInstanceVariableNames%0A%09%7C%20result%20%7C%0A%09result%20%3A%3D%20self%20instanceVariableNames%20copy.%0A%09self%20superclass%20ifNotNil%3A%20%5B%0A%09%20%20%20%20result%20addAll%3A%20self%20superclass%20allInstanceVariableNames%5D.%0A%09%5Eresult'),
- messageSends: ["copy", "instanceVariableNames", "ifNotNil:", "superclass", "addAll:", "allInstanceVariableNames"],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_methodAt_'),
- smalltalk.method({
- selector: unescape('methodAt%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- return smalltalk.methods(self)[aString];
- return self;},
- args: ["aString"],
- source: unescape('methodAt%3A%20aString%0A%09%3Creturn%20smalltalk.methods%28self%29%5BaString%5D%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_methodsFor_stamp_'),
- smalltalk.method({
- selector: unescape('methodsFor%3Astamp%3A'),
- category: 'accessing',
- fn: function (aString, aStamp){
- var self=this;
- return smalltalk.send(self, "_methodsFor_", [aString]);
- return self;},
- args: ["aString", "aStamp"],
- source: unescape('methodsFor%3A%20aString%20stamp%3A%20aStamp%0A%09%22Added%20for%20compatibility%2C%20right%20now%20ignores%20stamp.%22%0A%09%5Eself%20methodsFor%3A%20aString'),
- messageSends: ["methodsFor:"],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_commentStamp_prior_'),
- smalltalk.method({
- selector: unescape('commentStamp%3Aprior%3A'),
- category: 'accessing',
- fn: function (aStamp, prior){
- var self=this;
- return smalltalk.send(self, "_commentStamp", []);
- return self;},
- args: ["aStamp", "prior"],
- source: unescape('commentStamp%3A%20aStamp%20prior%3A%20prior%0A%20%20%20%20%20%20%20%20%5Eself%20commentStamp'),
- messageSends: ["commentStamp"],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_compile_'),
- smalltalk.method({
- selector: unescape('compile%3A'),
- category: 'compiling',
- fn: function (aString){
- var self=this;
- smalltalk.send(self, "_compile_category_", [aString, ""]);
- return self;},
- args: ["aString"],
- source: unescape('compile%3A%20aString%0A%09self%20compile%3A%20aString%20category%3A%20%27%27'),
- messageSends: ["compile:category:"],
- referencedClasses: []
- }),
- smalltalk.Behavior);
- smalltalk.addMethod(
- unescape('_compile_category_'),
- smalltalk.method({
- selector: unescape('compile%3Acategory%3A'),
- category: 'compiling',
- fn: function (aString, anotherString){
- var self=this;
- var method=nil;
- (method=smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler), "_new", []), "_load_forClass_", [aString, self]));
- smalltalk.send(method, "_category_", [anotherString]);
- smalltalk.send(self, "_addCompiledMethod_", [method]);
- return self;},
- args: ["aString", "anotherString"],
- source: unescape('compile%3A%20aString%20category%3A%20anotherString%0A%09%7C%20method%20%7C%0A%09method%20%3A%3D%20Compiler%20new%20load%3A%20aString%20forClass%3A%20self.%0A%09method%20category%3A%20anotherString.%0A%09self%20addCompiledMethod%3A%20method'),
- messageSends: ["load:forClass:", "new", "category:", "addCompiledMethod:"],
- referencedClasses: ["Compiler"]
- }),
- smalltalk.Behavior);
- smalltalk.addClass('Class', smalltalk.Behavior, [], 'Kernel-Classes');
- smalltalk.Class.comment=unescape('Class%20is%20__the__%20class%20object.%20%0A%0AInstances%20are%20the%20classes%20of%20the%20system.%0AClass%20creation%20is%20done%20throught%20a%20%60ClassBuilder%60')
- smalltalk.addMethod(
- unescape('_category'),
- smalltalk.method({
- selector: unescape('category'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = smalltalk.send(self, "_package", [])) == nil || $receiver == undefined) ? (function(){return "Unclassified";})() : (function(){return smalltalk.send(smalltalk.send(self, "_package", []), "_name", []);})();
- return self;},
- args: [],
- source: unescape('category%0A%09%5Eself%20package%20ifNil%3A%20%5B%27Unclassified%27%5D%20ifNotNil%3A%20%5Bself%20package%20name%5D'),
- messageSends: ["ifNil:ifNotNil:", "package", "name"],
- referencedClasses: []
- }),
- smalltalk.Class);
- smalltalk.addMethod(
- unescape('_subclass_instanceVariableNames_'),
- smalltalk.method({
- selector: unescape('subclass%3AinstanceVariableNames%3A'),
- category: 'class creation',
- fn: function (aString, anotherString){
- var self=this;
- return smalltalk.send(self, "_subclass_instanceVariableNames_package_", [aString, anotherString, nil]);
- return self;},
- args: ["aString", "anotherString"],
- source: unescape('subclass%3A%20aString%20instanceVariableNames%3A%20anotherString%0A%09%22Kept%20for%20compatibility.%22%0A%09%5Eself%20subclass%3A%20aString%20instanceVariableNames%3A%20anotherString%20package%3A%20nil'),
- messageSends: ["subclass:instanceVariableNames:package:"],
- referencedClasses: []
- }),
- smalltalk.Class);
- smalltalk.addMethod(
- unescape('_subclass_instanceVariableNames_category_'),
- smalltalk.method({
- selector: unescape('subclass%3AinstanceVariableNames%3Acategory%3A'),
- category: 'class creation',
- fn: function (aString, aString2, aString3){
- var self=this;
- smalltalk.send(self, "_deprecatedAPI", []);
- return smalltalk.send(self, "_subclass_instanceVariableNames_package_", [aString, aString2, aString3]);
- return self;},
- args: ["aString", "aString2", "aString3"],
- source: unescape('subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20category%3A%20aString3%0A%09%22Kept%20for%20compatibility.%22%0A%09self%20deprecatedAPI.%0A%09%5Eself%20subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20package%3A%20aString3'),
- messageSends: ["deprecatedAPI", "subclass:instanceVariableNames:package:"],
- referencedClasses: []
- }),
- smalltalk.Class);
- smalltalk.addMethod(
- unescape('_isClass'),
- smalltalk.method({
- selector: unescape('isClass'),
- category: 'testing',
- fn: function (){
- var self=this;
- return true;
- return self;},
- args: [],
- source: unescape('isClass%0A%09%5Etrue'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Class);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_name", []);
- return self;},
- args: [],
- source: unescape('printString%0A%09%5Eself%20name'),
- messageSends: ["name"],
- referencedClasses: []
- }),
- smalltalk.Class);
- smalltalk.addMethod(
- unescape('_rename_'),
- smalltalk.method({
- selector: unescape('rename%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- smalltalk[aString] = self;
- delete smalltalk[self.className];
- self.className = aString;
- ;
- return self;},
- args: ["aString"],
- source: unescape('rename%3A%20aString%0A%09%3C%0A%09%09smalltalk%5BaString%5D%20%3D%20self%3B%0A%09%09delete%20smalltalk%5Bself.className%5D%3B%0A%09%09self.className%20%3D%20aString%3B%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Class);
- smalltalk.addMethod(
- unescape('_subclass_instanceVariableNames_classVariableNames_poolDictionaries_category_'),
- smalltalk.method({
- selector: unescape('subclass%3AinstanceVariableNames%3AclassVariableNames%3ApoolDictionaries%3Acategory%3A'),
- category: 'class creation',
- fn: function (aString, aString2, classVars, pools, aString3){
- var self=this;
- return smalltalk.send(self, "_subclass_instanceVariableNames_package_", [aString, aString2, aString3]);
- return self;},
- args: ["aString", "aString2", "classVars", "pools", "aString3"],
- source: unescape('subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20classVariableNames%3A%20classVars%20poolDictionaries%3A%20pools%20category%3A%20aString3%0A%09%22Just%20ignore%20class%20variables%20and%20pools.%20Added%20for%20compatibility.%22%0A%09%5Eself%20subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20package%3A%20aString3'),
- messageSends: ["subclass:instanceVariableNames:package:"],
- referencedClasses: []
- }),
- smalltalk.Class);
- smalltalk.addMethod(
- unescape('_package'),
- smalltalk.method({
- selector: unescape('package'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.pkg;
- return self;},
- args: [],
- source: unescape('package%0A%09%3Creturn%20self.pkg%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Class);
- smalltalk.addMethod(
- unescape('_package_'),
- smalltalk.method({
- selector: unescape('package%3A'),
- category: 'accessing',
- fn: function (aPackage){
- var self=this;
- self.pkg = aPackage;
- return self;},
- args: ["aPackage"],
- source: unescape('package%3A%20aPackage%0A%09%3Cself.pkg%20%3D%20aPackage%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Class);
- smalltalk.addMethod(
- unescape('_subclass_instanceVariableNames_package_'),
- smalltalk.method({
- selector: unescape('subclass%3AinstanceVariableNames%3Apackage%3A'),
- category: 'class creation',
- fn: function (aString, aString2, aString3){
- var self=this;
- return smalltalk.send(smalltalk.send((smalltalk.ClassBuilder || ClassBuilder), "_new", []), "_superclass_subclass_instanceVariableNames_package_", [self, smalltalk.send(aString, "_asString", []), aString2, aString3]);
- return self;},
- args: ["aString", "aString2", "aString3"],
- source: unescape('subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20package%3A%20aString3%0A%09%5EClassBuilder%20new%0A%09%20%20%20%20superclass%3A%20self%20subclass%3A%20aString%20asString%20instanceVariableNames%3A%20aString2%20package%3A%20aString3'),
- messageSends: ["superclass:subclass:instanceVariableNames:package:", "new", "asString"],
- referencedClasses: ["ClassBuilder"]
- }),
- smalltalk.Class);
- smalltalk.addClass('Metaclass', smalltalk.Behavior, [], 'Kernel-Classes');
- smalltalk.Metaclass.comment=unescape('Metaclass%20is%20the%20root%20of%20the%20class%20hierarchy.%0A%0AMetaclass%20instances%20are%20metaclasses%2C%20one%20for%20each%20real%20class.%20%0AMetaclass%20instances%20have%20a%20single%20instance%2C%20which%20they%20hold%20onto%2C%20which%20is%20the%20class%20that%20they%20are%20the%20metaclass%20of.')
- smalltalk.addMethod(
- unescape('_instanceClass'),
- smalltalk.method({
- selector: unescape('instanceClass'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.instanceClass;
- return self;},
- args: [],
- source: unescape('instanceClass%0A%09%3Creturn%20self.instanceClass%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Metaclass);
- smalltalk.addMethod(
- unescape('_instanceVariableNames_'),
- smalltalk.method({
- selector: unescape('instanceVariableNames%3A'),
- category: 'accessing',
- fn: function (aCollection){
- var self=this;
- smalltalk.send(smalltalk.send((smalltalk.ClassBuilder || ClassBuilder), "_new", []), "_class_instanceVariableNames_", [self, aCollection]);
- return self;},
- args: ["aCollection"],
- source: unescape('instanceVariableNames%3A%20aCollection%0A%09ClassBuilder%20new%0A%09%20%20%20%20class%3A%20self%20instanceVariableNames%3A%20aCollection'),
- messageSends: ["class:instanceVariableNames:", "new"],
- referencedClasses: ["ClassBuilder"]
- }),
- smalltalk.Metaclass);
- smalltalk.addMethod(
- unescape('_isMetaclass'),
- smalltalk.method({
- selector: unescape('isMetaclass'),
- category: 'testing',
- fn: function (){
- var self=this;
- return true;
- return self;},
- args: [],
- source: unescape('isMetaclass%0A%09%5Etrue'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Metaclass);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(smalltalk.send(self, "_instanceClass", []), "_name", []), "__comma", [" class"]);
- return self;},
- args: [],
- source: unescape('printString%0A%09%5Eself%20instanceClass%20name%2C%20%27%20class%27'),
- messageSends: [unescape("%2C"), "name", "instanceClass"],
- referencedClasses: []
- }),
- smalltalk.Metaclass);
- smalltalk.addClass('ClassBuilder', smalltalk.Object, [], 'Kernel-Classes');
- smalltalk.ClassBuilder.comment=unescape('ClassBuilder%20is%20responsible%20for%20compiling%20new%20classes%20or%20modifying%20existing%20classes%20in%20the%20system.%0A%0ARather%20than%20using%20ClassBuilder%20directly%20to%20compile%20a%20class%2C%20use%20%60Class%20%3E%3E%20subclass%3AinstanceVariableNames%3Apackage%3A%60.')
- smalltalk.addMethod(
- unescape('_superclass_subclass_'),
- smalltalk.method({
- selector: unescape('superclass%3Asubclass%3A'),
- category: 'class creation',
- fn: function (aClass, aString){
- var self=this;
- return smalltalk.send(self, "_superclass_subclass_instanceVariableNames_package_", [aClass, aString, "", nil]);
- return self;},
- args: ["aClass", "aString"],
- source: unescape('superclass%3A%20aClass%20subclass%3A%20aString%0A%09%5Eself%20superclass%3A%20aClass%20subclass%3A%20aString%20instanceVariableNames%3A%20%27%27%20package%3A%20nil'),
- messageSends: ["superclass:subclass:instanceVariableNames:package:"],
- referencedClasses: []
- }),
- smalltalk.ClassBuilder);
- smalltalk.addMethod(
- unescape('_class_instanceVariableNames_'),
- smalltalk.method({
- selector: unescape('class%3AinstanceVariableNames%3A'),
- category: 'class creation',
- fn: function (aClass, aString){
- var self=this;
- ((($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_error_", [smalltalk.send(smalltalk.send(aClass, "_name", []), "__comma", [" is not a metaclass"])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_error_", [smalltalk.send(smalltalk.send(aClass, "_name", []), "__comma", [" is not a metaclass"])]);})]));
- smalltalk.send(aClass, "_basicAt_put_", ["iVarNames", smalltalk.send(self, "_instanceVariableNamesFor_", [aString])]);
- smalltalk.send(self, "_setupClass_", [aClass]);
- return self;},
- args: ["aClass", "aString"],
- source: unescape('class%3A%20aClass%20instanceVariableNames%3A%20aString%0A%09aClass%20isMetaclass%20ifFalse%3A%20%5Bself%20error%3A%20aClass%20name%2C%20%27%20is%20not%20a%20metaclass%27%5D.%0A%09aClass%20basicAt%3A%20%27iVarNames%27%20put%3A%20%28self%20instanceVariableNamesFor%3A%20aString%29.%0A%09self%20setupClass%3A%20aClass'),
- messageSends: ["ifFalse:", "isMetaclass", "error:", unescape("%2C"), "name", "basicAt:put:", "instanceVariableNamesFor:", "setupClass:"],
- referencedClasses: []
- }),
- smalltalk.ClassBuilder);
- smalltalk.addMethod(
- unescape('_instanceVariableNamesFor_'),
- smalltalk.method({
- selector: unescape('instanceVariableNamesFor%3A'),
- category: 'private',
- fn: function (aString){
- var self=this;
- return smalltalk.send(smalltalk.send(aString, "_tokenize_", [" "]), "_reject_", [(function(each){return smalltalk.send(each, "_isEmpty", []);})]);
- return self;},
- args: ["aString"],
- source: unescape('instanceVariableNamesFor%3A%20aString%0A%09%5E%28aString%20tokenize%3A%20%27%20%27%29%20reject%3A%20%5B%3Aeach%20%7C%20each%20isEmpty%5D'),
- messageSends: ["reject:", "tokenize:", "isEmpty"],
- referencedClasses: []
- }),
- smalltalk.ClassBuilder);
- smalltalk.addMethod(
- unescape('_addSubclassOf_named_instanceVariableNames_'),
- smalltalk.method({
- selector: unescape('addSubclassOf%3Anamed%3AinstanceVariableNames%3A'),
- category: 'private',
- fn: function (aClass, aString, aCollection){
- var self=this;
- smalltalk.addClass(aString, aClass, aCollection);
- return smalltalk[aString];
- return self;},
- args: ["aClass", "aString", "aCollection"],
- source: unescape('addSubclassOf%3A%20aClass%20named%3A%20aString%20instanceVariableNames%3A%20aCollection%0A%09%3Csmalltalk.addClass%28aString%2C%20aClass%2C%20aCollection%29%3B%0A%09%20%20%20%20return%20smalltalk%5BaString%5D%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ClassBuilder);
- smalltalk.addMethod(
- unescape('_setupClass_'),
- smalltalk.method({
- selector: unescape('setupClass%3A'),
- category: 'private',
- fn: function (aClass){
- var self=this;
- smalltalk.init(aClass);;
- return self;},
- args: ["aClass"],
- source: unescape('setupClass%3A%20aClass%0A%09%3Csmalltalk.init%28aClass%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ClassBuilder);
- smalltalk.addMethod(
- unescape('_superclass_subclass_instanceVariableNames_package_'),
- smalltalk.method({
- selector: unescape('superclass%3Asubclass%3AinstanceVariableNames%3Apackage%3A'),
- category: 'class creation',
- fn: function (aClass, aString, aString2, aString3){
- var self=this;
- var newClass=nil;
- (newClass=smalltalk.send(self, "_addSubclassOf_named_instanceVariableNames_package_", [aClass, aString, smalltalk.send(self, "_instanceVariableNamesFor_", [aString2]), (($receiver = aString3) == nil || $receiver == undefined) ? (function(){return "unclassified";})() : $receiver]));
- smalltalk.send(self, "_setupClass_", [newClass]);
- return newClass;
- return self;},
- args: ["aClass", "aString", "aString2", "aString3"],
- source: unescape('superclass%3A%20aClass%20subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20package%3A%20aString3%0A%09%7C%20newClass%20%7C%0A%09newClass%20%3A%3D%20self%20addSubclassOf%3A%20aClass%0A%09%09%09%09named%3A%20aString%20instanceVariableNames%3A%20%28self%20instanceVariableNamesFor%3A%20aString2%29%0A%09%09%09%09package%3A%20%28aString3%20ifNil%3A%20%5B%27unclassified%27%5D%29.%0A%09self%20setupClass%3A%20newClass.%0A%09%5EnewClass'),
- messageSends: ["addSubclassOf:named:instanceVariableNames:package:", "instanceVariableNamesFor:", "ifNil:", "setupClass:"],
- referencedClasses: []
- }),
- smalltalk.ClassBuilder);
- smalltalk.addMethod(
- unescape('_addSubclassOf_named_instanceVariableNames_package_'),
- smalltalk.method({
- selector: unescape('addSubclassOf%3Anamed%3AinstanceVariableNames%3Apackage%3A'),
- category: 'private',
- fn: function (aClass, aString, aCollection, packageName){
- var self=this;
- smalltalk.addClass(aString, aClass, aCollection, packageName);
- return smalltalk[aString];
- return self;},
- args: ["aClass", "aString", "aCollection", "packageName"],
- source: unescape('addSubclassOf%3A%20aClass%20named%3A%20aString%20instanceVariableNames%3A%20aCollection%20package%3A%20packageName%0A%09%3Csmalltalk.addClass%28aString%2C%20aClass%2C%20aCollection%2C%20packageName%29%3B%0A%09%20%20%20%20return%20smalltalk%5BaString%5D%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ClassBuilder);
- smalltalk.addMethod(
- unescape('_copyClass_named_'),
- smalltalk.method({
- selector: unescape('copyClass%3Anamed%3A'),
- category: 'private',
- fn: function (aClass, aString){
- var self=this;
- var newClass=nil;
- (newClass=smalltalk.send(self, "_addSubclassOf_named_instanceVariableNames_package_", [smalltalk.send(aClass, "_superclass", []), aString, smalltalk.send(aClass, "_instanceVariableNames", []), smalltalk.send(smalltalk.send(aClass, "_package", []), "_name", [])]));
- smalltalk.send(self, "_setupClass_", [newClass]);
- smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_methodDictionary", []), "_values", []), "_do_", [(function(each){smalltalk.send(newClass, "_addCompiledMethod_", [smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler), "_new", []), "_load_forClass_", [smalltalk.send(each, "_source", []), newClass])]);return smalltalk.send(smalltalk.send(smalltalk.send(newClass, "_methodDictionary", []), "_at_", [smalltalk.send(each, "_selector", [])]), "_category_", [smalltalk.send(each, "_category", [])]);})]);
- smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_methodDictionary", []), "_values", []), "_do_", [(function(each){smalltalk.send(smalltalk.send(newClass, "_class", []), "_addCompiledMethod_", [smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler), "_new", []), "_load_forClass_", [smalltalk.send(each, "_source", []), smalltalk.send(newClass, "_class", [])])]);return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(newClass, "_class", []), "_methodDictionary", []), "_at_", [smalltalk.send(each, "_selector", [])]), "_category_", [smalltalk.send(each, "_category", [])]);})]);
- smalltalk.send(self, "_setupClass_", [newClass]);
- return newClass;
- return self;},
- args: ["aClass", "aString"],
- source: unescape('copyClass%3A%20aClass%20named%3A%20aString%0A%09%7C%20newClass%20%7C%0A%0A%09newClass%20%3A%3D%20self%20%0A%09%09addSubclassOf%3A%20aClass%20superclass%0A%09%09named%3A%20aString%20%0A%09%09instanceVariableNames%3A%20aClass%20instanceVariableNames%20%0A%09%09package%3A%20aClass%20package%20name.%0A%0A%09self%20setupClass%3A%20newClass.%0A%0A%09aClass%20methodDictionary%20values%20do%3A%20%5B%3Aeach%20%7C%0A%09%09newClass%20addCompiledMethod%3A%20%28Compiler%20new%20load%3A%20each%20source%20forClass%3A%20newClass%29.%0A%09%09%28newClass%20methodDictionary%20at%3A%20each%20selector%29%20category%3A%20each%20category%5D.%0A%0A%09aClass%20class%20methodDictionary%20values%20do%3A%20%5B%3Aeach%20%7C%0A%09%09newClass%20class%20addCompiledMethod%3A%20%28Compiler%20new%20load%3A%20each%20source%20forClass%3A%20newClass%20class%29.%0A%09%09%28newClass%20class%20methodDictionary%20at%3A%20each%20selector%29%20category%3A%20each%20category%5D.%0A%0A%09self%20setupClass%3A%20newClass.%0A%09%5EnewClass'),
- messageSends: ["addSubclassOf:named:instanceVariableNames:package:", "superclass", "instanceVariableNames", "name", "package", "setupClass:", "do:", "values", "methodDictionary", "addCompiledMethod:", "load:forClass:", "new", "source", "category:", "at:", "selector", "category", "class"],
- referencedClasses: ["Compiler"]
- }),
- smalltalk.ClassBuilder);
- smalltalk.addClass('ClassCategoryReader', smalltalk.Object, ['class', 'category', 'chunkParser'], 'Kernel-Classes');
- smalltalk.ClassCategoryReader.comment=unescape('ClassCategoryReader%20represents%20a%20mechanism%20for%20retrieving%20class%20descriptions%20stored%20on%20a%20file.')
- smalltalk.addMethod(
- unescape('_initialize'),
- smalltalk.method({
- selector: unescape('initialize'),
- category: 'initialization',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_initialize", [], smalltalk.Object);
- (self['@chunkParser']=smalltalk.send((smalltalk.ChunkParser || ChunkParser), "_new", []));
- return self;},
- args: [],
- source: unescape('initialize%0A%09super%20initialize.%0A%09chunkParser%20%3A%3D%20ChunkParser%20new.'),
- messageSends: ["initialize", "new"],
- referencedClasses: ["ChunkParser"]
- }),
- smalltalk.ClassCategoryReader);
- smalltalk.addMethod(
- unescape('_class_category_'),
- smalltalk.method({
- selector: unescape('class%3Acategory%3A'),
- category: 'accessing',
- fn: function (aClass, aString){
- var self=this;
- (self['@class']=aClass);
- (self['@category']=aString);
- return self;},
- args: ["aClass", "aString"],
- source: unescape('class%3A%20aClass%20category%3A%20aString%0A%09class%20%3A%3D%20aClass.%0A%09category%20%3A%3D%20aString'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ClassCategoryReader);
- smalltalk.addMethod(
- unescape('_scanFrom_'),
- smalltalk.method({
- selector: unescape('scanFrom%3A'),
- category: 'fileIn',
- fn: function (aChunkParser){
- var self=this;
- var chunk=nil;
- (function(){while(!(function(){(chunk=smalltalk.send(aChunkParser, "_nextChunk", []));return smalltalk.send(chunk, "_isEmpty", []);})()) {(function(){return smalltalk.send(self, "_compileMethod_", [chunk]);})()}})();
- return self;},
- args: ["aChunkParser"],
- source: unescape('scanFrom%3A%20aChunkParser%0A%09%7C%20chunk%20%7C%0A%09%5Bchunk%20%3A%3D%20aChunkParser%20nextChunk.%0A%09chunk%20isEmpty%5D%20whileFalse%3A%20%5B%0A%09%20%20%20%20self%20compileMethod%3A%20chunk%5D'),
- messageSends: ["whileFalse:", "nextChunk", "isEmpty", "compileMethod:"],
- referencedClasses: []
- }),
- smalltalk.ClassCategoryReader);
- smalltalk.addMethod(
- unescape('_compileMethod_'),
- smalltalk.method({
- selector: unescape('compileMethod%3A'),
- category: 'private',
- fn: function (aString){
- var self=this;
- var method=nil;
- (method=smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler), "_new", []), "_load_forClass_", [aString, self['@class']]));
- smalltalk.send(method, "_category_", [self['@category']]);
- smalltalk.send(self['@class'], "_addCompiledMethod_", [method]);
- return self;},
- args: ["aString"],
- source: unescape('compileMethod%3A%20aString%0A%09%7C%20method%20%7C%0A%09method%20%3A%3D%20Compiler%20new%20load%3A%20aString%20forClass%3A%20class.%0A%09method%20category%3A%20category.%0A%09class%20addCompiledMethod%3A%20method'),
- messageSends: ["load:forClass:", "new", "category:", "addCompiledMethod:"],
- referencedClasses: ["Compiler"]
- }),
- smalltalk.ClassCategoryReader);
- smalltalk.addClass('ClassCommentReader', smalltalk.Object, ['class', 'chunkParser'], 'Kernel-Classes');
- smalltalk.ClassCommentReader.comment=unescape('ClassCommentReader%20represents%20a%20mechanism%20for%20retrieving%20class%20descriptions%20stored%20on%20a%20file.%0ASee%20%60ClassCategoryReader%60%20too.')
- smalltalk.addMethod(
- unescape('_class_'),
- smalltalk.method({
- selector: unescape('class%3A'),
- category: 'accessing',
- fn: function (aClass){
- var self=this;
- (self['@class']=aClass);
- return self;},
- args: ["aClass"],
- source: unescape('class%3A%20aClass%0A%09class%20%3A%3D%20aClass'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ClassCommentReader);
- smalltalk.addMethod(
- unescape('_scanFrom_'),
- smalltalk.method({
- selector: unescape('scanFrom%3A'),
- category: 'fileIn',
- fn: function (aChunkParser){
- var self=this;
- var chunk=nil;
- (chunk=smalltalk.send(aChunkParser, "_nextChunk", []));
- ((($receiver = smalltalk.send(chunk, "_isEmpty", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_setComment_", [chunk]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_setComment_", [chunk]);})]));
- return self;},
- args: ["aChunkParser"],
- source: unescape('scanFrom%3A%20aChunkParser%0A%09%7C%20chunk%20%7C%0A%09chunk%20%3A%3D%20aChunkParser%20nextChunk.%0A%09chunk%20isEmpty%20ifFalse%3A%20%5B%0A%09%20%20%20%20self%20setComment%3A%20chunk%5D.'),
- messageSends: ["nextChunk", "ifFalse:", "isEmpty", "setComment:"],
- referencedClasses: []
- }),
- smalltalk.ClassCommentReader);
- smalltalk.addMethod(
- unescape('_initialize'),
- smalltalk.method({
- selector: unescape('initialize'),
- category: 'initialization',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_initialize", [], smalltalk.Object);
- (self['@chunkParser']=smalltalk.send((smalltalk.ChunkParser || ChunkParser), "_new", []));
- return self;},
- args: [],
- source: unescape('initialize%0A%09super%20initialize.%0A%09chunkParser%20%3A%3D%20ChunkParser%20new.'),
- messageSends: ["initialize", "new"],
- referencedClasses: ["ChunkParser"]
- }),
- smalltalk.ClassCommentReader);
- smalltalk.addMethod(
- unescape('_setComment_'),
- smalltalk.method({
- selector: unescape('setComment%3A'),
- category: 'private',
- fn: function (aString){
- var self=this;
- smalltalk.send(self['@class'], "_comment_", [aString]);
- return self;},
- args: ["aString"],
- source: unescape('setComment%3A%20aString%0A%20%20%20%20class%20comment%3A%20aString'),
- messageSends: ["comment:"],
- referencedClasses: []
- }),
- smalltalk.ClassCommentReader);
- smalltalk.addPackage('Kernel-Methods', {});
- smalltalk.addClass('CompiledMethod', smalltalk.Object, [], 'Kernel-Methods');
- smalltalk.addMethod(
- unescape('_source'),
- smalltalk.method({
- selector: unescape('source'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = smalltalk.send(self, "_basicAt_", ["source"])) == nil || $receiver == undefined) ? (function(){return "";})() : $receiver;
- return self;},
- args: [],
- source: unescape('source%0A%09%5E%28self%20basicAt%3A%20%27source%27%29%20ifNil%3A%20%5B%27%27%5D'),
- messageSends: ["ifNil:", "basicAt:"],
- referencedClasses: []
- }),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- unescape('_source_'),
- smalltalk.method({
- selector: unescape('source%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- smalltalk.send(self, "_basicAt_put_", ["source", aString]);
- return self;},
- args: ["aString"],
- source: unescape('source%3A%20aString%0A%09self%20basicAt%3A%20%27source%27%20put%3A%20aString'),
- messageSends: ["basicAt:put:"],
- referencedClasses: []
- }),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- unescape('_category'),
- smalltalk.method({
- selector: unescape('category'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = smalltalk.send(self, "_basicAt_", ["category"])) == nil || $receiver == undefined) ? (function(){return "";})() : $receiver;
- return self;},
- args: [],
- source: unescape('category%0A%09%5E%28self%20basicAt%3A%20%27category%27%29%20ifNil%3A%20%5B%27%27%5D'),
- messageSends: ["ifNil:", "basicAt:"],
- referencedClasses: []
- }),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- unescape('_category_'),
- smalltalk.method({
- selector: unescape('category%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- smalltalk.send(self, "_basicAt_put_", ["category", aString]);
- return self;},
- args: ["aString"],
- source: unescape('category%3A%20aString%0A%09self%20basicAt%3A%20%27category%27%20put%3A%20aString'),
- messageSends: ["basicAt:put:"],
- referencedClasses: []
- }),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- unescape('_selector'),
- smalltalk.method({
- selector: unescape('selector'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_basicAt_", ["selector"]);
- return self;},
- args: [],
- source: unescape('selector%0A%09%5Eself%20basicAt%3A%20%27selector%27'),
- messageSends: ["basicAt:"],
- referencedClasses: []
- }),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- unescape('_selector_'),
- smalltalk.method({
- selector: unescape('selector%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- smalltalk.send(self, "_basicAt_put_", ["selector", aString]);
- return self;},
- args: ["aString"],
- source: unescape('selector%3A%20aString%0A%09self%20basicAt%3A%20%27selector%27%20put%3A%20aString'),
- messageSends: ["basicAt:put:"],
- referencedClasses: []
- }),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- unescape('_fn'),
- smalltalk.method({
- selector: unescape('fn'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_basicAt_", ["fn"]);
- return self;},
- args: [],
- source: unescape('fn%0A%09%5Eself%20basicAt%3A%20%27fn%27'),
- messageSends: ["basicAt:"],
- referencedClasses: []
- }),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- unescape('_fn_'),
- smalltalk.method({
- selector: unescape('fn%3A'),
- category: 'accessing',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(self, "_basicAt_put_", ["fn", aBlock]);
- return self;},
- args: ["aBlock"],
- source: unescape('fn%3A%20aBlock%0A%09self%20basicAt%3A%20%27fn%27%20put%3A%20aBlock'),
- messageSends: ["basicAt:put:"],
- referencedClasses: []
- }),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- unescape('_messageSends'),
- smalltalk.method({
- selector: unescape('messageSends'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_basicAt_", ["messageSends"]);
- return self;},
- args: [],
- source: unescape('messageSends%0A%09%5Eself%20basicAt%3A%20%27messageSends%27'),
- messageSends: ["basicAt:"],
- referencedClasses: []
- }),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- unescape('_methodClass'),
- smalltalk.method({
- selector: unescape('methodClass'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_basicAt_", ["methodClass"]);
- return self;},
- args: [],
- source: unescape('methodClass%0A%09%5Eself%20basicAt%3A%20%27methodClass%27'),
- messageSends: ["basicAt:"],
- referencedClasses: []
- }),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- unescape('_referencedClasses'),
- smalltalk.method({
- selector: unescape('referencedClasses'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_basicAt_", ["referencedClasses"]);
- return self;},
- args: [],
- source: unescape('referencedClasses%0A%09%5Eself%20basicAt%3A%20%27referencedClasses%27'),
- messageSends: ["basicAt:"],
- referencedClasses: []
- }),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- unescape('_arguments'),
- smalltalk.method({
- selector: unescape('arguments'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.args || [];
- return self;},
- args: [],
- source: unescape('arguments%0A%09%3Creturn%20self.args%20%7C%7C%20%5B%5D%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.CompiledMethod);
- smalltalk.addClass('BlockClosure', smalltalk.Object, [], 'Kernel-Methods');
- smalltalk.BlockClosure.comment=unescape('A%20BlockClosure%20is%20a%20lexical%20closure.%0AThe%20JavaScript%20representation%20is%20a%20function.%0A%0AA%20BlockClosure%20is%20evaluated%20with%20the%20%23value*%20methods%20in%20the%20%27evaluating%27%20protocol.')
- smalltalk.addMethod(
- unescape('_compiledSource'),
- smalltalk.method({
- selector: unescape('compiledSource'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.toString();
- return self;},
- args: [],
- source: unescape('compiledSource%0A%09%3Creturn%20self.toString%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_whileTrue_'),
- smalltalk.method({
- selector: unescape('whileTrue%3A'),
- category: 'controlling',
- fn: function (aBlock){
- var self=this;
- while(self()) {aBlock()};
- return self;},
- args: ["aBlock"],
- source: unescape('whileTrue%3A%20aBlock%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%3Cwhile%28self%28%29%29%20%7BaBlock%28%29%7D%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_whileFalse_'),
- smalltalk.method({
- selector: unescape('whileFalse%3A'),
- category: 'controlling',
- fn: function (aBlock){
- var self=this;
- while(!self()) {aBlock()};
- return self;},
- args: ["aBlock"],
- source: unescape('whileFalse%3A%20aBlock%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%3Cwhile%28%21self%28%29%29%20%7BaBlock%28%29%7D%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_value'),
- smalltalk.method({
- selector: unescape('value'),
- category: 'evaluating',
- fn: function (){
- var self=this;
- return self();;
- return self;},
- args: [],
- source: unescape('value%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%3Creturn%20self%28%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_value_'),
- smalltalk.method({
- selector: unescape('value%3A'),
- category: 'evaluating',
- fn: function (anArg){
- var self=this;
- return self(anArg);;
- return self;},
- args: ["anArg"],
- source: unescape('value%3A%20anArg%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%3Creturn%20self%28anArg%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_value_value_'),
- smalltalk.method({
- selector: unescape('value%3Avalue%3A'),
- category: 'evaluating',
- fn: function (firstArg, secondArg){
- var self=this;
- return self(firstArg, secondArg);;
- return self;},
- args: ["firstArg", "secondArg"],
- source: unescape('value%3A%20firstArg%20value%3A%20secondArg%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%3Creturn%20self%28firstArg%2C%20secondArg%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_value_value_value_'),
- smalltalk.method({
- selector: unescape('value%3Avalue%3Avalue%3A'),
- category: 'evaluating',
- fn: function (firstArg, secondArg, thirdArg){
- var self=this;
- return self(firstArg, secondArg, thirdArg);;
- return self;},
- args: ["firstArg", "secondArg", "thirdArg"],
- source: unescape('value%3A%20firstArg%20value%3A%20secondArg%20value%3A%20thirdArg%0A%09%22inlined%20in%20the%20Compiler%22%0A%09%3Creturn%20self%28firstArg%2C%20secondArg%2C%20thirdArg%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_valueWithPossibleArguments_'),
- smalltalk.method({
- selector: unescape('valueWithPossibleArguments%3A'),
- category: 'evaluating',
- fn: function (aCollection){
- var self=this;
- return self.apply(null, aCollection);;
- return self;},
- args: ["aCollection"],
- source: unescape('valueWithPossibleArguments%3A%20aCollection%0A%09%3Creturn%20self.apply%28null%2C%20aCollection%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_on_do_'),
- smalltalk.method({
- selector: unescape('on%3Ado%3A'),
- category: 'error handling',
- fn: function (anErrorClass, aBlock){
- var self=this;
- return smalltalk.send(self, "_try_catch_", [self, (function(error){return ((($receiver = smalltalk.send(error, "_isKindOf_", [anErrorClass])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(aBlock, "_value_", [error]);})() : (function(){return smalltalk.send(error, "_signal", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(aBlock, "_value_", [error]);}), (function(){return smalltalk.send(error, "_signal", []);})]));})]);
- return self;},
- args: ["anErrorClass", "aBlock"],
- source: unescape('on%3A%20anErrorClass%20do%3A%20aBlock%0A%09%5Eself%20try%3A%20self%20catch%3A%20%5B%3Aerror%20%7C%0A%09%20%20%20%20%28error%20isKindOf%3A%20anErrorClass%29%20%0A%09%20%20%20%20%20ifTrue%3A%20%5BaBlock%20value%3A%20error%5D%0A%09%20%20%20%20%20ifFalse%3A%20%5Berror%20signal%5D%5D'),
- messageSends: ["try:catch:", "ifTrue:ifFalse:", "isKindOf:", "value:", "signal"],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_valueWithTimeout_'),
- smalltalk.method({
- selector: unescape('valueWithTimeout%3A'),
- category: 'timeout/interval',
- fn: function (aNumber){
- var self=this;
- return setTimeout(self, aNumber);
- return self;},
- args: ["aNumber"],
- source: unescape('valueWithTimeout%3A%20aNumber%0A%09%3Creturn%20setTimeout%28self%2C%20aNumber%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_valueWithInterval_'),
- smalltalk.method({
- selector: unescape('valueWithInterval%3A'),
- category: 'timeout/interval',
- fn: function (aNumber){
- var self=this;
- return setInterval(self, aNumber);
- return self;},
- args: ["aNumber"],
- source: unescape('valueWithInterval%3A%20aNumber%0A%09%3Creturn%20setInterval%28self%2C%20aNumber%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_whileFalse'),
- smalltalk.method({
- selector: unescape('whileFalse'),
- category: 'controlling',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_whileFalse_", [(function(){return nil;})]);
- return self;},
- args: [],
- source: unescape('whileFalse%0A%09%22inlined%20in%20the%20Compiler%22%0A%09self%20whileFalse%3A%20%5B%5D'),
- messageSends: ["whileFalse:"],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_whileTrue'),
- smalltalk.method({
- selector: unescape('whileTrue'),
- category: 'controlling',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_whileTrue_", [(function(){return nil;})]);
- return self;},
- args: [],
- source: unescape('whileTrue%0A%09%22inlined%20in%20the%20Compiler%22%0A%09self%20whileTrue%3A%20%5B%5D'),
- messageSends: ["whileTrue:"],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_new'),
- smalltalk.method({
- selector: unescape('new'),
- category: 'evaluating',
- fn: function (){
- var self=this;
- return new self();
- return self;},
- args: [],
- source: unescape('new%0A%09%22Use%20the%20receiver%20as%20a%20JS%20constructor.%20%0A%09*Do%20not*%20use%20this%20method%20to%20instanciate%20Smalltalk%20objects%21%22%0A%09%3Creturn%20new%20self%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_applyTo_arguments_'),
- smalltalk.method({
- selector: unescape('applyTo%3Aarguments%3A'),
- category: 'evaluating',
- fn: function (anObject, aCollection){
- var self=this;
- return self.apply(anObject, aCollection);
- return self;},
- args: ["anObject", "aCollection"],
- source: unescape('applyTo%3A%20anObject%20arguments%3A%20aCollection%0A%09%3Creturn%20self.apply%28anObject%2C%20aCollection%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_timeToRun'),
- smalltalk.method({
- selector: unescape('timeToRun'),
- category: 'evaluating',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.Date || Date), "_millisecondsToRun_", [self]);
- return self;},
- args: [],
- source: unescape('timeToRun%0A%09%22Answer%20the%20number%20of%20milliseconds%20taken%20to%20execute%20this%20block.%22%0A%0A%09%5E%20Date%20millisecondsToRun%3A%20self'),
- messageSends: ["millisecondsToRun:"],
- referencedClasses: ["Date"]
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_numArgs'),
- smalltalk.method({
- selector: unescape('numArgs'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.length;
- return self;},
- args: [],
- source: unescape('numArgs%0A%09%3Creturn%20self.length%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_ensure_'),
- smalltalk.method({
- selector: unescape('ensure%3A'),
- category: 'evaluating',
- fn: function (aBlock){
- var self=this;
- var success=nil;
- (success=false);
- return smalltalk.send((function(){smalltalk.send(self, "_value", []);(success=true);return smalltalk.send(aBlock, "_value", []);}), "_on_do_", [(smalltalk.Error || Error), (function(ex){((($receiver = success).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(aBlock, "_value", []);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(aBlock, "_value", []);})]));return smalltalk.send(ex, "_signal", []);})]);
- return self;},
- args: ["aBlock"],
- source: unescape('ensure%3A%20aBlock%0A%09%7C%20success%20%7C%0A%09success%20%3A%3D%20false.%0A%09%5E%5Bself%20value.%20success%20%3A%3D%20true.%20aBlock%20value%5D%0A%09%09on%3A%20Error%0A%09%09do%3A%20%5B%3Aex%20%7C%0A%09%09%09success%20ifFalse%3A%20%5BaBlock%20value%5D.%0A%09%09%09ex%20signal%5D'),
- messageSends: ["on:do:", "value", "ifFalse:", "signal"],
- referencedClasses: ["Error"]
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_newValue_'),
- smalltalk.method({
- selector: unescape('newValue%3A'),
- category: 'evaluating',
- fn: function (anObject){
- var self=this;
- return new self(anObject);
- return self;},
- args: ["anObject"],
- source: unescape('newValue%3A%20anObject%0A%09%22Use%20the%20receiver%20as%20a%20JS%20constructor.%20%0A%09*Do%20not*%20use%20this%20method%20to%20instanciate%20Smalltalk%20objects%21%22%0A%09%3Creturn%20new%20self%28anObject%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_newValue_value_'),
- smalltalk.method({
- selector: unescape('newValue%3Avalue%3A'),
- category: 'evaluating',
- fn: function (anObject, anObject2){
- var self=this;
- return new self(anObject, anObject2);
- return self;},
- args: ["anObject", "anObject2"],
- source: unescape('newValue%3A%20%20anObject%20value%3A%20anObject2%0A%09%22Use%20the%20receiver%20as%20a%20JS%20constructor.%20%0A%09*Do%20not*%20use%20this%20method%20to%20instanciate%20Smalltalk%20objects%21%22%0A%09%3Creturn%20new%20self%28anObject%2C%20anObject2%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- unescape('_newValue_value_value_'),
- smalltalk.method({
- selector: unescape('newValue%3Avalue%3Avalue%3A'),
- category: 'evaluating',
- fn: function (anObject, anObject2, anObject3){
- var self=this;
- return new self(anObject, anObject2);
- return self;},
- args: ["anObject", "anObject2", "anObject3"],
- source: unescape('newValue%3A%20%20anObject%20value%3A%20anObject2%20value%3A%20anObject3%0A%09%22Use%20the%20receiver%20as%20a%20JS%20constructor.%20%0A%09*Do%20not*%20use%20this%20method%20to%20instanciate%20Smalltalk%20objects%21%22%0A%09%3Creturn%20new%20self%28anObject%2C%20anObject2%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockClosure);
- smalltalk.addClass('MethodContext', smalltalk.Object, [], 'Kernel-Methods');
- smalltalk.addMethod(
- unescape('_receiver'),
- smalltalk.method({
- selector: unescape('receiver'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.receiver;
- return self;},
- args: [],
- source: unescape('receiver%0A%09%3Creturn%20self.receiver%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.MethodContext);
- smalltalk.addMethod(
- unescape('_selector'),
- smalltalk.method({
- selector: unescape('selector'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.convertSelector(self.selector);
- return self;},
- args: [],
- source: unescape('selector%0A%09%3Creturn%20smalltalk.convertSelector%28self.selector%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.MethodContext);
- smalltalk.addMethod(
- unescape('_home'),
- smalltalk.method({
- selector: unescape('home'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.homeContext;
- return self;},
- args: [],
- source: unescape('home%0A%09%3Creturn%20self.homeContext%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.MethodContext);
- smalltalk.addMethod(
- unescape('_temps'),
- smalltalk.method({
- selector: unescape('temps'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.temps;
- return self;},
- args: [],
- source: unescape('temps%0A%09%3Creturn%20self.temps%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.MethodContext);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_printString", [], smalltalk.Object), "__comma", [unescape("%28")]), "__comma", [smalltalk.send(self, "_asString", [])]), "__comma", [unescape("%29")]);
- return self;},
- args: [],
- source: unescape('printString%0A%09%5Esuper%20printString%2C%20%27%28%27%2C%20self%20asString%2C%20%27%29%27'),
- messageSends: [unescape("%2C"), "printString", "asString"],
- referencedClasses: []
- }),
- smalltalk.MethodContext);
- smalltalk.addMethod(
- unescape('_asString'),
- smalltalk.method({
- selector: unescape('asString'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_receiver", []), "_class", []), "_printString", []), "__comma", [unescape("%20%3E%3E%20")]), "__comma", [smalltalk.send(self, "_selector", [])]);
- return self;},
- args: [],
- source: unescape('asString%0A%09%5Eself%20receiver%20class%20printString%2C%20%27%20%3E%3E%20%27%2C%20self%20selector'),
- messageSends: [unescape("%2C"), "printString", "class", "receiver", "selector"],
- referencedClasses: []
- }),
- smalltalk.MethodContext);
- smalltalk.addClass('Message', smalltalk.Object, ['selector', 'arguments'], 'Kernel-Methods');
- smalltalk.addMethod(
- unescape('_selector'),
- smalltalk.method({
- selector: unescape('selector'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@selector'];
- return self;},
- args: [],
- source: unescape('selector%0A%09%5Eselector'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Message);
- smalltalk.addMethod(
- unescape('_selector_'),
- smalltalk.method({
- selector: unescape('selector%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- (self['@selector']=aString);
- return self;},
- args: ["aString"],
- source: unescape('selector%3A%20aString%0A%09selector%20%3A%3D%20aString'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Message);
- smalltalk.addMethod(
- unescape('_arguments_'),
- smalltalk.method({
- selector: unescape('arguments%3A'),
- category: 'accessing',
- fn: function (anArray){
- var self=this;
- (self['@arguments']=anArray);
- return self;},
- args: ["anArray"],
- source: unescape('arguments%3A%20anArray%0A%09arguments%20%3A%3D%20anArray'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Message);
- smalltalk.addMethod(
- unescape('_arguments'),
- smalltalk.method({
- selector: unescape('arguments'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@arguments'];
- return self;},
- args: [],
- source: unescape('arguments%0A%09%5Earguments'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Message);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(aStream){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_printString", [], smalltalk.Object)]);smalltalk.send($rec, "_nextPutAll_", [unescape("%28")]);smalltalk.send($rec, "_nextPutAll_", [self['@selector']]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%29")]);})(aStream);})]);
- return self;},
- args: [],
- source: unescape('printString%0A%09%5E%20String%20streamContents%3A%20%5B%3AaStream%7C%20%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09%09%09aStream%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09%09%09%09nextPutAll%3A%20super%20printString%3B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09%09%09%09nextPutAll%3A%20%27%28%27%3B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09%09%09%09nextPutAll%3A%20selector%3B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09%09%09%09nextPutAll%3A%20%27%29%27%20%09%09%09%09%5D'),
- messageSends: ["streamContents:", "nextPutAll:", "printString"],
- referencedClasses: ["String"]
- }),
- smalltalk.Message);
- smalltalk.addMethod(
- unescape('_selector_arguments_'),
- smalltalk.method({
- selector: unescape('selector%3Aarguments%3A'),
- category: 'instance creation',
- fn: function (aString, anArray){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_selector_", [aString]);smalltalk.send($rec, "_arguments_", [anArray]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;},
- args: ["aString", "anArray"],
- source: unescape('selector%3A%20aString%20arguments%3A%20anArray%0A%09%5Eself%20new%0A%09%09selector%3A%20aString%3B%0A%09%09arguments%3A%20anArray%3B%0A%09%09yourself'),
- messageSends: ["selector:", "arguments:", "yourself", "new"],
- referencedClasses: []
- }),
- smalltalk.Message.klass);
- smalltalk.addPackage('Kernel-Collections', {});
- smalltalk.addClass('Collection', smalltalk.Object, [], 'Kernel-Collections');
- smalltalk.addMethod(
- unescape('_size'),
- smalltalk.method({
- selector: unescape('size'),
- category: 'accessing',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_subclassResponsibility", []);
- return self;},
- args: [],
- source: unescape('size%0A%09self%20subclassResponsibility'),
- messageSends: ["subclassResponsibility"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_readStream'),
- smalltalk.method({
- selector: unescape('readStream'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_stream", []);
- return self;},
- args: [],
- source: unescape('readStream%0A%09%5Eself%20stream'),
- messageSends: ["stream"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_writeStream'),
- smalltalk.method({
- selector: unescape('writeStream'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_stream", []);
- return self;},
- args: [],
- source: unescape('writeStream%0A%09%5Eself%20stream'),
- messageSends: ["stream"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_stream'),
- smalltalk.method({
- selector: unescape('stream'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_streamClass", []), "_on_", [self]);
- return self;},
- args: [],
- source: unescape('stream%0A%09%5Eself%20streamClass%20on%3A%20self'),
- messageSends: ["on:", "streamClass"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_streamClass'),
- smalltalk.method({
- selector: unescape('streamClass'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_class", []), "_streamClass", []);
- return self;},
- args: [],
- source: unescape('streamClass%0A%09%5Eself%20class%20streamClass'),
- messageSends: ["streamClass", "class"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_add_'),
- smalltalk.method({
- selector: unescape('add%3A'),
- category: 'adding/removing',
- fn: function (anObject){
- var self=this;
- smalltalk.send(self, "_subclassResponsibility", []);
- return self;},
- args: ["anObject"],
- source: unescape('add%3A%20anObject%0A%09self%20subclassResponsibility'),
- messageSends: ["subclassResponsibility"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_addAll_'),
- smalltalk.method({
- selector: unescape('addAll%3A'),
- category: 'adding/removing',
- fn: function (aCollection){
- var self=this;
- smalltalk.send(aCollection, "_do_", [(function(each){return smalltalk.send(self, "_add_", [each]);})]);
- return aCollection;
- return self;},
- args: ["aCollection"],
- source: unescape('addAll%3A%20aCollection%0A%09aCollection%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20self%20add%3A%20each%5D.%0A%09%5EaCollection'),
- messageSends: ["do:", "add:"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('__comma'),
- smalltalk.method({
- selector: unescape('%2C'),
- category: 'copying',
- fn: function (aCollection){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_addAll_", [aCollection]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_copy", []));
- return self;},
- args: ["aCollection"],
- source: unescape('%2C%20aCollection%0A%09%5Eself%20copy%20%0A%09%20%20%20%20addAll%3A%20aCollection%3B%20%0A%09%20%20%20%20yourself'),
- messageSends: ["addAll:", "yourself", "copy"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_copyWith_'),
- smalltalk.method({
- selector: unescape('copyWith%3A'),
- category: 'copying',
- fn: function (anObject){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_add_", [anObject]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_copy", []));
- return self;},
- args: ["anObject"],
- source: unescape('copyWith%3A%20anObject%0A%09%5Eself%20copy%20add%3A%20anObject%3B%20yourself'),
- messageSends: ["add:", "yourself", "copy"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_copyWithAll_'),
- smalltalk.method({
- selector: unescape('copyWithAll%3A'),
- category: 'copying',
- fn: function (aCollection){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_addAll_", [aCollection]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_copy", []));
- return self;},
- args: ["aCollection"],
- source: unescape('copyWithAll%3A%20aCollection%0A%09%5Eself%20copy%20addAll%3A%20aCollection%3B%20yourself'),
- messageSends: ["addAll:", "yourself", "copy"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_asArray'),
- smalltalk.method({
- selector: unescape('asArray'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.Array || Array), "_withAll_", [self]);
- return self;},
- args: [],
- source: unescape('asArray%0A%09%5EArray%20withAll%3A%20self'),
- messageSends: ["withAll:"],
- referencedClasses: ["Array"]
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_do_'),
- smalltalk.method({
- selector: unescape('do%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- for(var i=0;i<self.length;i++){aBlock(self[i]);};
- return self;},
- args: ["aBlock"],
- source: unescape('do%3A%20aBlock%0A%09%3Cfor%28var%20i%3D0%3Bi%3Cself.length%3Bi++%29%7BaBlock%28self%5Bi%5D%29%3B%7D%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_collect_'),
- smalltalk.method({
- selector: unescape('collect%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- var newCollection=nil;
- (newCollection=smalltalk.send(smalltalk.send(self, "_class", []), "_new", []));
- smalltalk.send(self, "_do_", [(function(each){return smalltalk.send(newCollection, "_add_", [smalltalk.send(aBlock, "_value_", [each])]);})]);
- return newCollection;
- return self;},
- args: ["aBlock"],
- source: unescape('collect%3A%20aBlock%0A%09%7C%20newCollection%20%7C%0A%09newCollection%20%3A%3D%20self%20class%20new.%0A%09self%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20newCollection%20add%3A%20%28aBlock%20value%3A%20each%29%5D.%0A%09%5EnewCollection'),
- messageSends: ["new", "class", "do:", "add:", "value:"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_detect_'),
- smalltalk.method({
- selector: unescape('detect%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- return smalltalk.send(self, "_detect_ifNone_", [aBlock, (function(){return smalltalk.send(self, "_errorNotFound", []);})]);
- return self;},
- args: ["aBlock"],
- source: unescape('detect%3A%20aBlock%0A%09%5Eself%20detect%3A%20aBlock%20ifNone%3A%20%5Bself%20errorNotFound%5D'),
- messageSends: ["detect:ifNone:", "errorNotFound"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_detect_ifNone_'),
- smalltalk.method({
- selector: unescape('detect%3AifNone%3A'),
- category: 'enumerating',
- fn: function (aBlock, anotherBlock){
- var self=this;
- for(var i = 0; i < self.length; i++)
- if(aBlock(self[i]))
- return self[i];
- return anotherBlock();
- ;
- return self;},
- args: ["aBlock", "anotherBlock"],
- source: unescape('detect%3A%20aBlock%20ifNone%3A%20anotherBlock%0A%09%3C%0A%09%09for%28var%20i%20%3D%200%3B%20i%20%3C%20self.length%3B%20i++%29%0A%09%09%09if%28aBlock%28self%5Bi%5D%29%29%0A%09%09%09%09return%20self%5Bi%5D%3B%0A%09%09return%20anotherBlock%28%29%3B%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_do_separatedBy_'),
- smalltalk.method({
- selector: unescape('do%3AseparatedBy%3A'),
- category: 'enumerating',
- fn: function (aBlock, anotherBlock){
- var self=this;
- var first=nil;
- (first=true);
- smalltalk.send(self, "_do_", [(function(each){((($receiver = first).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (first=false);})() : (function(){return smalltalk.send(anotherBlock, "_value", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return (first=false);}), (function(){return smalltalk.send(anotherBlock, "_value", []);})]));return smalltalk.send(aBlock, "_value_", [each]);})]);
- return self;},
- args: ["aBlock", "anotherBlock"],
- source: unescape('do%3A%20aBlock%20separatedBy%3A%20anotherBlock%0A%09%7C%20first%20%7C%0A%09first%20%3A%3D%20true.%0A%09self%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20first%0A%09%09ifTrue%3A%20%5Bfirst%20%3A%3D%20false%5D%0A%09%09ifFalse%3A%20%5BanotherBlock%20value%5D.%0A%09%20%20%20%20aBlock%20value%3A%20each%5D'),
- messageSends: ["do:", "ifTrue:ifFalse:", "value", "value:"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_inject_into_'),
- smalltalk.method({
- selector: unescape('inject%3Ainto%3A'),
- category: 'enumerating',
- fn: function (anObject, aBlock){
- var self=this;
- var result=nil;
- (result=anObject);
- smalltalk.send(self, "_do_", [(function(each){return (result=smalltalk.send(aBlock, "_value_value_", [result, each]));})]);
- return result;
- return self;},
- args: ["anObject", "aBlock"],
- source: unescape('inject%3A%20anObject%20into%3A%20aBlock%0A%09%7C%20result%20%7C%0A%09result%20%3A%3D%20anObject.%0A%09self%20do%3A%20%5B%3Aeach%20%7C%20%0A%09%20%20%20%20result%20%3A%3D%20aBlock%20value%3A%20result%20value%3A%20each%5D.%0A%09%5Eresult'),
- messageSends: ["do:", "value:value:"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_reject_'),
- smalltalk.method({
- selector: unescape('reject%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- return smalltalk.send(self, "_select_", [(function(each){return smalltalk.send(smalltalk.send(aBlock, "_value_", [each]), "__eq", [false]);})]);
- return self;},
- args: ["aBlock"],
- source: unescape('reject%3A%20aBlock%0A%09%5Eself%20select%3A%20%5B%3Aeach%20%7C%20%28aBlock%20value%3A%20each%29%20%3D%20false%5D'),
- messageSends: ["select:", unescape("%3D"), "value:"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_select_'),
- smalltalk.method({
- selector: unescape('select%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- var stream=nil;
- (stream=smalltalk.send(smalltalk.send(smalltalk.send(self, "_class", []), "_new", []), "_writeStream", []));
- smalltalk.send(self, "_do_", [(function(each){return ((($receiver = smalltalk.send(aBlock, "_value_", [each])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(stream, "_nextPut_", [each]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(stream, "_nextPut_", [each]);})]));})]);
- return smalltalk.send(stream, "_contents", []);
- return self;},
- args: ["aBlock"],
- source: unescape('select%3A%20aBlock%0A%09%7C%20stream%20%7C%0A%09stream%20%3A%3D%20self%20class%20new%20writeStream.%0A%09self%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20%28aBlock%20value%3A%20each%29%20ifTrue%3A%20%5B%0A%09%09stream%20nextPut%3A%20each%5D%5D.%0A%09%5Estream%20contents'),
- messageSends: ["writeStream", "new", "class", "do:", "ifTrue:", "value:", "nextPut:", "contents"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_errorNotFound'),
- smalltalk.method({
- selector: unescape('errorNotFound'),
- category: 'error handling',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_error_", ["Object is not in the collection"]);
- return self;},
- args: [],
- source: unescape('errorNotFound%0A%09self%20error%3A%20%27Object%20is%20not%20in%20the%20collection%27'),
- messageSends: ["error:"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_includes_'),
- smalltalk.method({
- selector: unescape('includes%3A'),
- category: 'testing',
- fn: function (anObject){
- var self=this;
- var i = self.length;
- while (i--) {
- if (smalltalk.send(self[i], "__eq", [anObject])) {return true;}
- }
- return false
- ;
- return self;},
- args: ["anObject"],
- source: unescape('includes%3A%20anObject%0A%09%3C%0A%09%09var%20i%20%3D%20self.length%3B%0A%09%09while%20%28i--%29%20%7B%0A%09%09%09if%20%28smalltalk.send%28self%5Bi%5D%2C%20%22__eq%22%2C%20%5BanObject%5D%29%29%20%7Breturn%20true%3B%7D%09%0A%09%09%7D%0A%09%09return%20false%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_notEmpty'),
- smalltalk.method({
- selector: unescape('notEmpty'),
- category: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_isEmpty", []), "_not", []);
- return self;},
- args: [],
- source: unescape('notEmpty%0A%09%5Eself%20isEmpty%20not'),
- messageSends: ["not", "isEmpty"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_isEmpty'),
- smalltalk.method({
- selector: unescape('isEmpty'),
- category: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_size", []), "__eq", [(0)]);
- return self;},
- args: [],
- source: unescape('isEmpty%0A%09%5Eself%20size%20%3D%200'),
- messageSends: [unescape("%3D"), "size"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_remove_'),
- smalltalk.method({
- selector: unescape('remove%3A'),
- category: 'adding/removing',
- fn: function (anObject){
- var self=this;
- return smalltalk.send(self, "_remove_ifAbsent_", [anObject, (function(){return smalltalk.send(self, "_errorNotFound", []);})]);
- return self;},
- args: ["anObject"],
- source: unescape('remove%3A%20anObject%0A%20%20%20%20%5Eself%20remove%3A%20anObject%20ifAbsent%3A%20%5Bself%20errorNotFound%5D'),
- messageSends: ["remove:ifAbsent:", "errorNotFound"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_asSet'),
- smalltalk.method({
- selector: unescape('asSet'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.Set || Set), "_withAll_", [self]);
- return self;},
- args: [],
- source: unescape('asSet%0A%09%5ESet%20withAll%3A%20self'),
- messageSends: ["withAll:"],
- referencedClasses: ["Set"]
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_ifNotEmpty_'),
- smalltalk.method({
- selector: unescape('ifNotEmpty%3A'),
- category: 'testing',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_notEmpty", []), "_ifTrue_", [aBlock]);
- return self;},
- args: ["aBlock"],
- source: unescape('ifNotEmpty%3A%20aBlock%0A%09self%20notEmpty%20ifTrue%3A%20aBlock.'),
- messageSends: ["ifTrue:", "notEmpty"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_ifEmpty_'),
- smalltalk.method({
- selector: unescape('ifEmpty%3A'),
- category: 'testing',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_isEmpty", []), "_ifTrue_", [aBlock]);
- return self;},
- args: ["aBlock"],
- source: unescape('ifEmpty%3A%20aBlock%0A%09self%20isEmpty%20ifTrue%3A%20aBlock.'),
- messageSends: ["ifTrue:", "isEmpty"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_copyWithoutAll_'),
- smalltalk.method({
- selector: unescape('copyWithoutAll%3A'),
- category: 'copying',
- fn: function (aCollection){
- var self=this;
- return smalltalk.send(self, "_reject_", [(function(each){return smalltalk.send(aCollection, "_includes_", [each]);})]);
- return self;},
- args: ["aCollection"],
- source: unescape('copyWithoutAll%3A%20aCollection%0A%09%22Answer%20a%20copy%20of%20the%20receiver%20that%20does%20not%20contain%20any%20elements%20%0A%09equal%20to%20those%20in%20aCollection.%22%0A%0A%09%5E%20self%20reject%3A%20%5B%3Aeach%20%7C%20aCollection%20includes%3A%20each%5D'),
- messageSends: ["reject:", "includes:"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_remove_ifAbsent_'),
- smalltalk.method({
- selector: unescape('remove%3AifAbsent%3A'),
- category: 'adding/removing',
- fn: function (anObject, aBlock){
- var self=this;
- smalltalk.send(self, "_subclassResponsibility", []);
- return self;},
- args: ["anObject", "aBlock"],
- source: unescape('remove%3A%20anObject%20ifAbsent%3A%20aBlock%0A%20%20%20%20self%20subclassResponsibility'),
- messageSends: ["subclassResponsibility"],
- referencedClasses: []
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_asJSONString'),
- smalltalk.method({
- selector: unescape('asJSONString'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.JSON || JSON), "_stringify_", [smalltalk.send(self, "_collect_", [(function(each){return smalltalk.send(each, "_asJSONString", []);})])]);
- return self;},
- args: [],
- source: unescape('asJSONString%0A%09%5EJSON%20stringify%3A%20%28self%20collect%3A%20%5B%3Aeach%20%7C%20each%20asJSONString%5D%29'),
- messageSends: ["stringify:", "collect:", "asJSONString"],
- referencedClasses: ["JSON"]
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_asOrderedCollection'),
- smalltalk.method({
- selector: unescape('asOrderedCollection'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.OrderedCollection || OrderedCollection), "_withAll_", [self]);
- return self;},
- args: [],
- source: unescape('asOrderedCollection%0A%09%5EOrderedCollection%20withAll%3A%20self'),
- messageSends: ["withAll:"],
- referencedClasses: ["OrderedCollection"]
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- unescape('_streamClass'),
- smalltalk.method({
- selector: unescape('streamClass'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (smalltalk.Stream || Stream);
- return self;},
- args: [],
- source: unescape('streamClass%0A%09%20%20%20%20%5EStream'),
- messageSends: [],
- referencedClasses: ["Stream"]
- }),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- unescape('_with_'),
- smalltalk.method({
- selector: unescape('with%3A'),
- category: 'instance creation',
- fn: function (anObject){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_add_", [anObject]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;},
- args: ["anObject"],
- source: unescape('with%3A%20anObject%0A%09%20%20%20%20%5Eself%20new%0A%09%09add%3A%20anObject%3B%0A%09%09yourself'),
- messageSends: ["add:", "yourself", "new"],
- referencedClasses: []
- }),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- unescape('_with_with_'),
- smalltalk.method({
- selector: unescape('with%3Awith%3A'),
- category: 'instance creation',
- fn: function (anObject, anotherObject){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_add_", [anObject]);smalltalk.send($rec, "_add_", [anotherObject]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;},
- args: ["anObject", "anotherObject"],
- source: unescape('with%3A%20anObject%20with%3A%20anotherObject%0A%09%20%20%20%20%5Eself%20new%0A%09%09add%3A%20anObject%3B%0A%09%09add%3A%20anotherObject%3B%0A%09%09yourself'),
- messageSends: ["add:", "yourself", "new"],
- referencedClasses: []
- }),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- unescape('_with_with_with_'),
- smalltalk.method({
- selector: unescape('with%3Awith%3Awith%3A'),
- category: 'instance creation',
- fn: function (firstObject, secondObject, thirdObject){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_add_", [firstObject]);smalltalk.send($rec, "_add_", [secondObject]);smalltalk.send($rec, "_add_", [thirdObject]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;},
- args: ["firstObject", "secondObject", "thirdObject"],
- source: unescape('with%3A%20firstObject%20with%3A%20secondObject%20with%3A%20thirdObject%0A%09%20%20%20%20%5Eself%20new%0A%09%09add%3A%20firstObject%3B%0A%09%09add%3A%20secondObject%3B%0A%09%09add%3A%20thirdObject%3B%0A%09%09yourself'),
- messageSends: ["add:", "yourself", "new"],
- referencedClasses: []
- }),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- unescape('_withAll_'),
- smalltalk.method({
- selector: unescape('withAll%3A'),
- category: 'instance creation',
- fn: function (aCollection){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_addAll_", [aCollection]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;},
- args: ["aCollection"],
- source: unescape('withAll%3A%20aCollection%0A%09%20%20%20%20%5Eself%20new%0A%09%09addAll%3A%20aCollection%3B%0A%09%09yourself'),
- messageSends: ["addAll:", "yourself", "new"],
- referencedClasses: []
- }),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- unescape('_new_'),
- smalltalk.method({
- selector: unescape('new%3A'),
- category: 'instance creation',
- fn: function (anInteger){
- var self=this;
- return smalltalk.send(self, "_new", []);
- return self;},
- args: ["anInteger"],
- source: unescape('new%3A%20anInteger%0A%09%5Eself%20new'),
- messageSends: ["new"],
- referencedClasses: []
- }),
- smalltalk.Collection.klass);
- smalltalk.addClass('SequenceableCollection', smalltalk.Collection, [], 'Kernel-Collections');
- smalltalk.addMethod(
- unescape('_at_'),
- smalltalk.method({
- selector: unescape('at%3A'),
- category: 'accessing',
- fn: function (anIndex){
- var self=this;
- return smalltalk.send(self, "_at_ifAbsent_", [anIndex, (function(){return smalltalk.send(self, "_errorNotFound", []);})]);
- return self;},
- args: ["anIndex"],
- source: unescape('at%3A%20anIndex%0A%09%5Eself%20at%3A%20anIndex%20ifAbsent%3A%20%5B%0A%09%20%20%20%20self%20errorNotFound%5D'),
- messageSends: ["at:ifAbsent:", "errorNotFound"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_at_ifAbsent_'),
- smalltalk.method({
- selector: unescape('at%3AifAbsent%3A'),
- category: 'accessing',
- fn: function (anIndex, aBlock){
- var self=this;
- smalltalk.send(self, "_subclassResponsibility", []);
- return self;},
- args: ["anIndex", "aBlock"],
- source: unescape('at%3A%20anIndex%20ifAbsent%3A%20aBlock%0A%09self%20subclassResponsibility'),
- messageSends: ["subclassResponsibility"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_at_put_'),
- smalltalk.method({
- selector: unescape('at%3Aput%3A'),
- category: 'accessing',
- fn: function (anIndex, anObject){
- var self=this;
- smalltalk.send(self, "_subclassResponsibility", []);
- return self;},
- args: ["anIndex", "anObject"],
- source: unescape('at%3A%20anIndex%20put%3A%20anObject%0A%09self%20subclassResponsibility'),
- messageSends: ["subclassResponsibility"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_copyFrom_to_'),
- smalltalk.method({
- selector: unescape('copyFrom%3Ato%3A'),
- category: 'copying',
- fn: function (anIndex, anotherIndex){
- var self=this;
- var range=nil;
- var newCollection=nil;
- (range=smalltalk.send(anIndex, "_to_", [anotherIndex]));
- (newCollection=smalltalk.send(smalltalk.send(self, "_class", []), "_new_", [smalltalk.send(range, "_size", [])]));
- smalltalk.send(range, "_do_", [(function(each){return smalltalk.send(newCollection, "_at_put_", [each, smalltalk.send(self, "_at_", [each])]);})]);
- return newCollection;
- return self;},
- args: ["anIndex", "anotherIndex"],
- source: unescape('copyFrom%3A%20anIndex%20to%3A%20anotherIndex%0A%09%7C%20range%20newCollection%20%7C%0A%09range%20%3A%3D%20anIndex%20to%3A%20anotherIndex.%0A%09newCollection%20%3A%3D%20self%20class%20new%3A%20range%20size.%0A%09range%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20newCollection%20at%3A%20each%20put%3A%20%28self%20at%3A%20each%29%5D.%0A%09%5EnewCollection'),
- messageSends: ["to:", "new:", "class", "size", "do:", "at:put:", "at:"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_first'),
- smalltalk.method({
- selector: unescape('first'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_at_", [(1)]);
- return self;},
- args: [],
- source: unescape('first%0A%09%5Eself%20at%3A%201'),
- messageSends: ["at:"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_fourth'),
- smalltalk.method({
- selector: unescape('fourth'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_at_", [(4)]);
- return self;},
- args: [],
- source: unescape('fourth%0A%09%5Eself%20at%3A%204'),
- messageSends: ["at:"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_last'),
- smalltalk.method({
- selector: unescape('last'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_at_", [smalltalk.send(self, "_size", [])]);
- return self;},
- args: [],
- source: unescape('last%0A%09%5Eself%20at%3A%20self%20size'),
- messageSends: ["at:", "size"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_second'),
- smalltalk.method({
- selector: unescape('second'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_at_", [(2)]);
- return self;},
- args: [],
- source: unescape('second%0A%09%5Eself%20at%3A%202'),
- messageSends: ["at:"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_third'),
- smalltalk.method({
- selector: unescape('third'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_at_", [(3)]);
- return self;},
- args: [],
- source: unescape('third%0A%09%5Eself%20at%3A%203'),
- messageSends: ["at:"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_removeLast'),
- smalltalk.method({
- selector: unescape('removeLast'),
- category: 'adding',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_remove_", [smalltalk.send(self, "_last", [])]);
- return self;},
- args: [],
- source: unescape('removeLast%0A%09self%20remove%3A%20self%20last'),
- messageSends: ["remove:", "last"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_addLast_'),
- smalltalk.method({
- selector: unescape('addLast%3A'),
- category: 'adding',
- fn: function (anObject){
- var self=this;
- smalltalk.send(self, "_add_", [anObject]);
- return self;},
- args: ["anObject"],
- source: unescape('addLast%3A%20anObject%0A%09self%20add%3A%20anObject'),
- messageSends: ["add:"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_withIndexDo_'),
- smalltalk.method({
- selector: unescape('withIndexDo%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- for(var i=0;i<self.length;i++){aBlock(self[i], i+1);};
- return self;},
- args: ["aBlock"],
- source: unescape('withIndexDo%3A%20aBlock%0A%09%3Cfor%28var%20i%3D0%3Bi%3Cself.length%3Bi++%29%7BaBlock%28self%5Bi%5D%2C%20i+1%29%3B%7D%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_allButFirst'),
- smalltalk.method({
- selector: unescape('allButFirst'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_copyFrom_to_", [(2), smalltalk.send(self, "_size", [])]);
- return self;},
- args: [],
- source: unescape('allButFirst%0A%09%5Eself%20copyFrom%3A%202%20to%3A%20self%20size'),
- messageSends: ["copyFrom:to:", "size"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_allButLast'),
- smalltalk.method({
- selector: unescape('allButLast'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_copyFrom_to_", [(1), ((($receiver = smalltalk.send(self, "_size", [])).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)]))]);
- return self;},
- args: [],
- source: unescape('allButLast%0A%09%5Eself%20copyFrom%3A%201%20to%3A%20self%20size%20-%201'),
- messageSends: ["copyFrom:to:", unescape("-"), "size"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_indexOf_'),
- smalltalk.method({
- selector: unescape('indexOf%3A'),
- category: 'accessing',
- fn: function (anObject){
- var self=this;
- return smalltalk.send(self, "_indexOf_ifAbsent_", [anObject, (function(){return smalltalk.send(self, "_errorNotFound", []);})]);
- return self;},
- args: ["anObject"],
- source: unescape('indexOf%3A%20anObject%0A%09%5Eself%20indexOf%3A%20anObject%20ifAbsent%3A%20%5Bself%20errorNotFound%5D'),
- messageSends: ["indexOf:ifAbsent:", "errorNotFound"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_indexOf_ifAbsent_'),
- smalltalk.method({
- selector: unescape('indexOf%3AifAbsent%3A'),
- category: 'accessing',
- fn: function (anObject, aBlock){
- var self=this;
- for(var i=0;i<self.length;i++){
- if(self[i].__eq(anObject)) {return i+1}
- }
- return aBlock();
- ;
- return self;},
- args: ["anObject", "aBlock"],
- source: unescape('indexOf%3A%20anObject%20ifAbsent%3A%20aBlock%0A%09%3C%0A%09%09for%28var%20i%3D0%3Bi%3Cself.length%3Bi++%29%7B%0A%09%09%09if%28self%5Bi%5D.__eq%28anObject%29%29%20%7Breturn%20i+1%7D%0A%09%09%7D%0A%09%09return%20aBlock%28%29%3B%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_indexOf_startingAt_ifAbsent_'),
- smalltalk.method({
- selector: unescape('indexOf%3AstartingAt%3AifAbsent%3A'),
- category: 'accessing',
- fn: function (anObject, start, aBlock){
- var self=this;
- for(var i=start-1;i<self.length;i++){
- if(self[i].__eq(anObject)) {return i+1}
- }
- return aBlock();
- ;
- return self;},
- args: ["anObject", "start", "aBlock"],
- source: unescape('indexOf%3A%20anObject%20startingAt%3A%20start%20ifAbsent%3A%20aBlock%0A%09%3C%0A%09%09for%28var%20i%3Dstart-1%3Bi%3Cself.length%3Bi++%29%7B%0A%09%09%09if%28self%5Bi%5D.__eq%28anObject%29%29%20%7Breturn%20i+1%7D%0A%09%09%7D%0A%09%09return%20aBlock%28%29%3B%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_indexOf_startingAt_'),
- smalltalk.method({
- selector: unescape('indexOf%3AstartingAt%3A'),
- category: 'accessing',
- fn: function (anObject, start){
- var self=this;
- return smalltalk.send(self, "_indexOf_startingAt_ifAbsent_", [anObject, start, (function(){return (0);})]);
- return self;},
- args: ["anObject", "start"],
- source: unescape('indexOf%3A%20anObject%20startingAt%3A%20start%0A%09%22Answer%20the%20index%20of%20the%20first%20occurence%20of%20anElement%20after%20start%0A%09within%20the%20receiver.%20If%20the%20receiver%20does%20not%20contain%20anElement%2C%20%0A%09answer%200.%22%0A%09%5Eself%20indexOf%3A%20anObject%20startingAt%3A%20start%20ifAbsent%3A%20%5B0%5D'),
- messageSends: ["indexOf:startingAt:ifAbsent:"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_reversed'),
- smalltalk.method({
- selector: unescape('reversed'),
- category: 'converting',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_subclassResponsibility", []);
- return self;},
- args: [],
- source: unescape('reversed%0A%09self%20subclassResponsibility'),
- messageSends: ["subclassResponsibility"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_atRandom'),
- smalltalk.method({
- selector: unescape('atRandom'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_at_", [smalltalk.send(smalltalk.send(self, "_size", []), "_atRandom", [])]);
- return self;},
- args: [],
- source: unescape('atRandom%0A%09%5E%20self%20at%3A%20self%20size%20atRandom'),
- messageSends: ["at:", "atRandom", "size"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('__eq'),
- smalltalk.method({
- selector: unescape('%3D'),
- category: 'comparing',
- fn: function (aCollection){
- var self=this;
- try{((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(self, "_class", []), "__eq", [smalltalk.send(aCollection, "_class", [])]), "_and_", [(function(){return smalltalk.send(smalltalk.send(self, "_size", []), "__eq", [smalltalk.send(aCollection, "_size", [])]);})])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]));
- smalltalk.send(self, "_withIndexDo_", [(function(each, i){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_at_", [i]), "__eq", [each])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]));})]);
- (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return true}})})();
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '__eq'){return e.fn()} throw(e)}},
- args: ["aCollection"],
- source: unescape('%3D%20aCollection%0A%09%28self%20class%20%3D%20aCollection%20class%20and%3A%20%5B%0A%09%09self%20size%20%3D%20aCollection%20size%5D%29%20ifFalse%3A%20%5B%5Efalse%5D.%0A%09self%20withIndexDo%3A%20%5B%3Aeach%20%3Ai%20%7C%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%28aCollection%20at%3A%20i%29%20%3D%20each%20ifFalse%3A%20%5B%5Efalse%5D%5D.%0A%09%5Etrue'),
- messageSends: ["ifFalse:", "and:", unescape("%3D"), "class", "size", "withIndexDo:", "at:"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_shallowCopy'),
- smalltalk.method({
- selector: unescape('shallowCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- var newCollection=nil;
- (newCollection=smalltalk.send(smalltalk.send(self, "_class", []), "_new_", [smalltalk.send(self, "_size", [])]));
- smalltalk.send(self, "_withIndexDo_", [(function(each, index){return smalltalk.send(newCollection, "_at_put_", [index, each]);})]);
- return newCollection;
- return self;},
- args: [],
- source: unescape('shallowCopy%0A%09%7C%20newCollection%20%7C%0A%09newCollection%20%3A%3D%20self%20class%20new%3A%20self%20size.%0A%09self%20withIndexDo%3A%20%5B%20%3Aeach%20%3Aindex%20%7C%20%0A%09%09newCollection%20at%3A%20index%20put%3A%20each%5D.%0A%09%5EnewCollection'),
- messageSends: ["new:", "class", "size", "withIndexDo:", "at:put:"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_deepCopy'),
- smalltalk.method({
- selector: unescape('deepCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- var newCollection=nil;
- (newCollection=smalltalk.send(smalltalk.send(self, "_class", []), "_new_", [smalltalk.send(self, "_size", [])]));
- smalltalk.send(self, "_withIndexDo_", [(function(each, index){return smalltalk.send(newCollection, "_at_put_", [index, smalltalk.send(each, "_deepCopy", [])]);})]);
- return newCollection;
- return self;},
- args: [],
- source: unescape('deepCopy%0A%09%7C%20newCollection%20%7C%0A%09newCollection%20%3A%3D%20self%20class%20new%3A%20self%20size.%0A%09self%20withIndexDo%3A%20%5B%3Aeach%20%3Aindex%20%7C%20%0A%09%09newCollection%20at%3A%20index%20put%3A%20each%20deepCopy%5D.%0A%09%5EnewCollection'),
- messageSends: ["new:", "class", "size", "withIndexDo:", "at:put:", "deepCopy"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- var str=nil;
- (str=smalltalk.send("", "_writeStream", []));
- smalltalk.send(str, "_nextPutAll_", [smalltalk.send(smalltalk.send(self, "_printString", [], smalltalk.Collection), "__comma", [unescape("%20%28")])]);
- smalltalk.send(self, "_do_separatedBy_", [(function(each){return smalltalk.send(str, "_nextPutAll_", [smalltalk.send(each, "_printString", [])]);}), (function(){return smalltalk.send(str, "_nextPutAll_", [" "]);})]);
- smalltalk.send(str, "_nextPutAll_", [unescape("%29")]);
- return smalltalk.send(str, "_contents", []);
- return self;},
- args: [],
- source: unescape('printString%0A%09%7C%20str%20%7C%0A%09str%20%3A%3D%20%27%27%20writeStream.%0A%09str%20nextPutAll%3A%20super%20printString%2C%20%27%20%28%27.%0A%09self%20%0A%09%09do%3A%20%5B%3Aeach%20%7C%20str%20nextPutAll%3A%20each%20printString%5D%0A%09%09separatedBy%3A%20%5Bstr%20nextPutAll%3A%20%27%20%27%5D.%0A%09str%20nextPutAll%3A%20%27%29%27.%0A%09%5Estr%20contents'),
- messageSends: ["writeStream", "nextPutAll:", unescape("%2C"), "printString", "do:separatedBy:", "contents"],
- referencedClasses: []
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addClass('CharacterArray', smalltalk.SequenceableCollection, [], 'Kernel-Collections');
- smalltalk.addMethod(
- unescape('_at_put_'),
- smalltalk.method({
- selector: unescape('at%3Aput%3A'),
- category: 'accessing',
- fn: function (anIndex, anObject){
- var self=this;
- smalltalk.send(self, "_errorReadOnly", []);
- return self;},
- args: ["anIndex", "anObject"],
- source: unescape('at%3A%20anIndex%20put%3A%20anObject%0A%09self%20errorReadOnly'),
- messageSends: ["errorReadOnly"],
- referencedClasses: []
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- unescape('_add_'),
- smalltalk.method({
- selector: unescape('add%3A'),
- category: 'adding',
- fn: function (anObject){
- var self=this;
- smalltalk.send(self, "_errorReadOnly", []);
- return self;},
- args: ["anObject"],
- source: unescape('add%3A%20anObject%0A%09self%20errorReadOnly'),
- messageSends: ["errorReadOnly"],
- referencedClasses: []
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- unescape('__comma'),
- smalltalk.method({
- selector: unescape('%2C'),
- category: 'copying',
- fn: function (aString){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asString", []), "__comma", [smalltalk.send(aString, "_asString", [])]);
- return self;},
- args: ["aString"],
- source: unescape('%2C%20aString%0A%09%5Eself%20asString%2C%20aString%20asString'),
- messageSends: [unescape("%2C"), "asString"],
- referencedClasses: []
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- unescape('_asString'),
- smalltalk.method({
- selector: unescape('asString'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_subclassResponsibility", []);
- return self;},
- args: [],
- source: unescape('asString%0A%09%5Eself%20subclassResponsibility'),
- messageSends: ["subclassResponsibility"],
- referencedClasses: []
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- unescape('_asNumber'),
- smalltalk.method({
- selector: unescape('asNumber'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asString", []), "_asNumber", []);
- return self;},
- args: [],
- source: unescape('asNumber%0A%09%5Eself%20asString%20asNumber'),
- messageSends: ["asNumber", "asString"],
- referencedClasses: []
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- unescape('_errorReadOnly'),
- smalltalk.method({
- selector: unescape('errorReadOnly'),
- category: 'error handling',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_error_", [unescape("Object%20is%20read-only")]);
- return self;},
- args: [],
- source: unescape('errorReadOnly%0A%09self%20error%3A%20%27Object%20is%20read-only%27'),
- messageSends: ["error:"],
- referencedClasses: []
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asString", []), "_printString", []);
- return self;},
- args: [],
- source: unescape('printString%0A%09%5Eself%20asString%20printString'),
- messageSends: ["printString", "asString"],
- referencedClasses: []
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- unescape('_remove_'),
- smalltalk.method({
- selector: unescape('remove%3A'),
- category: 'adding',
- fn: function (anObject){
- var self=this;
- smalltalk.send(self, "_errorReadOnly", []);
- return self;},
- args: ["anObject"],
- source: unescape('remove%3A%20anObject%0A%09self%20errorReadOnly'),
- messageSends: ["errorReadOnly"],
- referencedClasses: []
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- unescape('_asUppercase'),
- smalltalk.method({
- selector: unescape('asUppercase'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_class", []), "_fromString_", [smalltalk.send(smalltalk.send(self, "_asString", []), "_asUppercase", [])]);
- return self;},
- args: [],
- source: unescape('asUppercase%0A%09%5Eself%20class%20fromString%3A%20self%20asString%20asUppercase'),
- messageSends: ["fromString:", "class", "asUppercase", "asString"],
- referencedClasses: []
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- unescape('_asSymbol'),
- smalltalk.method({
- selector: unescape('asSymbol'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_subclassResponsibility", []);
- return self;},
- args: [],
- source: unescape('asSymbol%0A%09%5Eself%20subclassResponsibility'),
- messageSends: ["subclassResponsibility"],
- referencedClasses: []
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- unescape('_asLowercase'),
- smalltalk.method({
- selector: unescape('asLowercase'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_class", []), "_fromString_", [smalltalk.send(smalltalk.send(self, "_asString", []), "_asLowercase", [])]);
- return self;},
- args: [],
- source: unescape('asLowercase%0A%09%5Eself%20class%20fromString%3A%20self%20asString%20asLowercase'),
- messageSends: ["fromString:", "class", "asLowercase", "asString"],
- referencedClasses: []
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- unescape('_fromString_'),
- smalltalk.method({
- selector: unescape('fromString%3A'),
- category: 'instance creation',
- fn: function (aString){
- var self=this;
- smalltalk.send(self, "_subclassResponsibility", []);
- return self;},
- args: ["aString"],
- source: unescape('fromString%3A%20aString%0A%09self%20subclassResponsibility'),
- messageSends: ["subclassResponsibility"],
- referencedClasses: []
- }),
- smalltalk.CharacterArray.klass);
- smalltalk.addClass('String', smalltalk.CharacterArray, [], 'Kernel-Collections');
- smalltalk.addMethod(
- unescape('__eq'),
- smalltalk.method({
- selector: unescape('%3D'),
- category: 'comparing',
- fn: function (aString){
- var self=this;
- try{((($receiver = smalltalk.send(smalltalk.send(aString, "_class", []), "__eq", [smalltalk.send(self, "_class", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]));
- return String(self) === String(aString);
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '__eq'){return e.fn()} throw(e)}},
- args: ["aString"],
- source: unescape('%3D%20aString%0A%09aString%20class%20%3D%20self%20class%20ifFalse%3A%20%5B%5Efalse%5D.%0A%09%3Creturn%20String%28self%29%20%3D%3D%3D%20String%28aString%29%3E'),
- messageSends: ["ifFalse:", unescape("%3D"), "class"],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_size'),
- smalltalk.method({
- selector: unescape('size'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.length;
- return self;},
- args: [],
- source: unescape('size%0A%09%3Creturn%20self.length%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_at_ifAbsent_'),
- smalltalk.method({
- selector: unescape('at%3AifAbsent%3A'),
- category: 'accessing',
- fn: function (anIndex, aBlock){
- var self=this;
- return self[anIndex - 1] || aBlock();
- return self;},
- args: ["anIndex", "aBlock"],
- source: unescape('at%3A%20anIndex%20ifAbsent%3A%20aBlock%0A%09%3Creturn%20self%5BanIndex%20-%201%5D%20%7C%7C%20aBlock%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_escaped'),
- smalltalk.method({
- selector: unescape('escaped'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return escape(self);
- return self;},
- args: [],
- source: unescape('escaped%0A%09%3Creturn%20escape%28self%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_unescaped'),
- smalltalk.method({
- selector: unescape('unescaped'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return unescape(self);
- return self;},
- args: [],
- source: unescape('unescaped%0A%09%3Creturn%20unescape%28self%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('__comma'),
- smalltalk.method({
- selector: unescape('%2C'),
- category: 'copying',
- fn: function (aString){
- var self=this;
- return self + aString;
- return self;},
- args: ["aString"],
- source: unescape('%2C%20aString%0A%09%3Creturn%20self%20+%20aString%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_copyFrom_to_'),
- smalltalk.method({
- selector: unescape('copyFrom%3Ato%3A'),
- category: 'copying',
- fn: function (anIndex, anotherIndex){
- var self=this;
- return self.substring(anIndex - 1, anotherIndex);
- return self;},
- args: ["anIndex", "anotherIndex"],
- source: unescape('copyFrom%3A%20anIndex%20to%3A%20anotherIndex%0A%09%3Creturn%20self.substring%28anIndex%20-%201%2C%20anotherIndex%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_shallowCopy'),
- smalltalk.method({
- selector: unescape('shallowCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_class", []), "_fromString_", [self]);
- return self;},
- args: [],
- source: unescape('shallowCopy%0A%09%5Eself%20class%20fromString%3A%20self'),
- messageSends: ["fromString:", "class"],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_deepCopy'),
- smalltalk.method({
- selector: unescape('deepCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_shallowCopy", []);
- return self;},
- args: [],
- source: unescape('deepCopy%0A%09%5Eself%20shallowCopy'),
- messageSends: ["shallowCopy"],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_asSelector'),
- smalltalk.method({
- selector: unescape('asSelector'),
- category: 'converting',
- fn: function (){
- var self=this;
- var selector=nil;
- (selector=smalltalk.send("_", "__comma", [self]));
- (selector=smalltalk.send(selector, "_replace_with_", [":", "_"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%5B+%5D"), "_plus"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("-"), "_minus"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%5B*%5D"), "_star"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%5B/%5D"), "_slash"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%3E"), "_gt"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%3C"), "_lt"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%3D"), "_eq"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%2C"), "_comma"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%5B@%5D"), "_at"]));
- return selector;
- return self;},
- args: [],
- source: unescape('asSelector%0A%09%22If%20you%20change%20this%20method%2C%20change%20smalltalk.convertSelector%20too%20%28see%20js/boot.js%20file%29%22%0A%0A%09%7C%20selector%20%7C%0A%09selector%20%3A%3D%20%27_%27%2C%20self.%0A%09selector%20%3A%3D%20selector%20replace%3A%20%27%3A%27%20with%3A%20%27_%27.%0A%09selector%20%3A%3D%20selector%20replace%3A%20%27%5B+%5D%27%20with%3A%20%27_plus%27.%0A%09selector%20%3A%3D%20selector%20replace%3A%20%27-%27%20with%3A%20%27_minus%27.%0A%09selector%20%3A%3D%20selector%20replace%3A%20%27%5B*%5D%27%20with%3A%20%27_star%27.%0A%09selector%20%3A%3D%20selector%20replace%3A%20%27%5B/%5D%27%20with%3A%20%27_slash%27.%0A%09selector%20%3A%3D%20selector%20replace%3A%20%27%3E%27%20with%3A%20%27_gt%27.%0A%09selector%20%3A%3D%20selector%20replace%3A%20%27%3C%27%20with%3A%20%27_lt%27.%0A%09selector%20%3A%3D%20selector%20replace%3A%20%27%3D%27%20with%3A%20%27_eq%27.%0A%09selector%20%3A%3D%20selector%20replace%3A%20%27%2C%27%20with%3A%20%27_comma%27.%0A%09selector%20%3A%3D%20selector%20replace%3A%20%27%5B@%5D%27%20with%3A%20%27_at%27.%0A%09%5Eselector'),
- messageSends: [unescape("%2C"), "replace:with:"],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_asJavascript'),
- smalltalk.method({
- selector: unescape('asJavascript'),
- category: 'converting',
- fn: function (){
- var self=this;
- if(self.search(/^[a-zA-Z0-9_:.$ ]*$/) == -1)
- return "unescape(\"" + escape(self) + "\")";
- else
- return "\"" + self + "\"";
- ;
- return self;},
- args: [],
- source: unescape('asJavascript%0A%09%3C%0A%09%09if%28self.search%28/%5E%5Ba-zA-Z0-9_%3A.%24%20%5D*%24/%29%20%3D%3D%20-1%29%0A%09%09%09return%20%22unescape%28%5C%22%22%20+%20escape%28self%29%20+%20%22%5C%22%29%22%3B%0A%09%09else%0A%09%09%09return%20%22%5C%22%22%20+%20self%20+%20%22%5C%22%22%3B%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_replace_with_'),
- smalltalk.method({
- selector: unescape('replace%3Awith%3A'),
- category: 'regular expressions',
- fn: function (aString, anotherString){
- var self=this;
- return smalltalk.send(self, "_replaceRegexp_with_", [smalltalk.send((smalltalk.RegularExpression || RegularExpression), "_fromString_flag_", [aString, "g"]), anotherString]);
- return self;},
- args: ["aString", "anotherString"],
- source: unescape('replace%3A%20aString%20with%3A%20anotherString%0A%09%5Eself%20replaceRegexp%3A%20%28RegularExpression%20fromString%3A%20aString%20flag%3A%20%27g%27%29%20with%3A%20anotherString'),
- messageSends: ["replaceRegexp:with:", "fromString:flag:"],
- referencedClasses: ["RegularExpression"]
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_replaceRegexp_with_'),
- smalltalk.method({
- selector: unescape('replaceRegexp%3Awith%3A'),
- category: 'regular expressions',
- fn: function (aRegexp, aString){
- var self=this;
- return self.replace(aRegexp, aString);
- return self;},
- args: ["aRegexp", "aString"],
- source: unescape('replaceRegexp%3A%20aRegexp%20with%3A%20aString%0A%09%3Creturn%20self.replace%28aRegexp%2C%20aString%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_tokenize_'),
- smalltalk.method({
- selector: unescape('tokenize%3A'),
- category: 'converting',
- fn: function (aString){
- var self=this;
- return self.split(aString);
- return self;},
- args: ["aString"],
- source: unescape('tokenize%3A%20aString%0A%09%3Creturn%20self.split%28aString%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_match_'),
- smalltalk.method({
- selector: unescape('match%3A'),
- category: 'regular expressions',
- fn: function (aRegexp){
- var self=this;
- return self.search(aRegexp) != -1;
- return self;},
- args: ["aRegexp"],
- source: unescape('match%3A%20aRegexp%0A%09%3Creturn%20self.search%28aRegexp%29%20%21%3D%20-1%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_asString'),
- smalltalk.method({
- selector: unescape('asString'),
- category: 'converting',
- fn: function (){
- var self=this;
- return self;
- return self;},
- args: [],
- source: unescape('asString%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_asNumber'),
- smalltalk.method({
- selector: unescape('asNumber'),
- category: 'converting',
- fn: function (){
- var self=this;
- return Number(self);
- return self;},
- args: [],
- source: unescape('asNumber%0A%09%3Creturn%20Number%28self%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [self]), "__comma", [unescape("%27")]);
- return self;},
- args: [],
- source: unescape('printString%0A%09%5E%27%27%27%27%2C%20self%2C%20%27%27%27%27'),
- messageSends: [unescape("%2C")],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_printNl'),
- smalltalk.method({
- selector: unescape('printNl'),
- category: 'printing',
- fn: function (){
- var self=this;
- console.log(self);
- return self;},
- args: [],
- source: unescape('printNl%0A%09%3Cconsole.log%28self%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_isString'),
- smalltalk.method({
- selector: unescape('isString'),
- category: 'testing',
- fn: function (){
- var self=this;
- return true;
- return self;},
- args: [],
- source: unescape('isString%0A%09%5Etrue'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('__gt'),
- smalltalk.method({
- selector: unescape('%3E'),
- category: 'comparing',
- fn: function (aString){
- var self=this;
- return String(self) > aString._asString();
- return self;},
- args: ["aString"],
- source: unescape('%3E%20aString%0A%09%3Creturn%20String%28self%29%20%3E%3E%20aString._asString%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('__lt'),
- smalltalk.method({
- selector: unescape('%3C'),
- category: 'comparing',
- fn: function (aString){
- var self=this;
- return String(self) < aString._asString();
- return self;},
- args: ["aString"],
- source: unescape('%3C%20aString%0A%09%3Creturn%20String%28self%29%20%3C%20aString._asString%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('__gt_eq'),
- smalltalk.method({
- selector: unescape('%3E%3D'),
- category: 'comparing',
- fn: function (aString){
- var self=this;
- return String(self) >= aString._asString();
- return self;},
- args: ["aString"],
- source: unescape('%3E%3D%20aString%0A%09%3Creturn%20String%28self%29%20%3E%3E%3D%20aString._asString%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('__lt_eq'),
- smalltalk.method({
- selector: unescape('%3C%3D'),
- category: 'comparing',
- fn: function (aString){
- var self=this;
- return String(self) <= aString._asString();
- return self;},
- args: ["aString"],
- source: unescape('%3C%3D%20aString%0A%09%3Creturn%20String%28self%29%20%3C%3D%20aString._asString%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_trimLeft_'),
- smalltalk.method({
- selector: unescape('trimLeft%3A'),
- category: 'regular expressions',
- fn: function (separators){
- var self=this;
- return smalltalk.send(self, "_replaceRegexp_with_", [smalltalk.send((smalltalk.RegularExpression || RegularExpression), "_fromString_flag_", [smalltalk.send(smalltalk.send(unescape("%5E%5B"), "__comma", [separators]), "__comma", [unescape("%5D+")]), "g"]), ""]);
- return self;},
- args: ["separators"],
- source: unescape('trimLeft%3A%20separators%0A%0A%09%5Eself%20replaceRegexp%3A%20%28RegularExpression%20fromString%3A%20%27%5E%5B%27%2C%20separators%2C%20%27%5D+%27%20flag%3A%20%27g%27%29%20with%3A%20%27%27'),
- messageSends: ["replaceRegexp:with:", "fromString:flag:", unescape("%2C")],
- referencedClasses: ["RegularExpression"]
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_trimRight_'),
- smalltalk.method({
- selector: unescape('trimRight%3A'),
- category: 'regular expressions',
- fn: function (separators){
- var self=this;
- return smalltalk.send(self, "_replaceRegexp_with_", [smalltalk.send((smalltalk.RegularExpression || RegularExpression), "_fromString_flag_", [smalltalk.send(smalltalk.send(unescape("%5B"), "__comma", [separators]), "__comma", [unescape("%5D+%24")]), "g"]), ""]);
- return self;},
- args: ["separators"],
- source: unescape('trimRight%3A%20separators%0A%0A%09%5Eself%20replaceRegexp%3A%20%28RegularExpression%20fromString%3A%20%27%5B%27%2C%20separators%2C%20%27%5D+%24%27%20flag%3A%20%27g%27%29%20with%3A%20%27%27'),
- messageSends: ["replaceRegexp:with:", "fromString:flag:", unescape("%2C")],
- referencedClasses: ["RegularExpression"]
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_trimLeft'),
- smalltalk.method({
- selector: unescape('trimLeft'),
- category: 'regular expressions',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_trimLeft_", [unescape("%5Cs")]);
- return self;},
- args: [],
- source: unescape('trimLeft%0A%09%5Eself%20trimLeft%3A%20%27%5Cs%27'),
- messageSends: ["trimLeft:"],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_trimRight'),
- smalltalk.method({
- selector: unescape('trimRight'),
- category: 'regular expressions',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_trimRight_", [unescape("%5Cs")]);
- return self;},
- args: [],
- source: unescape('trimRight%0A%09%5Eself%20trimRight%3A%20%27%5Cs%27'),
- messageSends: ["trimRight:"],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_trimBoth'),
- smalltalk.method({
- selector: unescape('trimBoth'),
- category: 'regular expressions',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_trimBoth_", [unescape("%5Cs")]);
- return self;},
- args: [],
- source: unescape('trimBoth%0A%09%5Eself%20trimBoth%3A%20%27%5Cs%27'),
- messageSends: ["trimBoth:"],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_trimBoth_'),
- smalltalk.method({
- selector: unescape('trimBoth%3A'),
- category: 'regular expressions',
- fn: function (separators){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_trimLeft_", [separators]), "_trimRight_", [separators]);
- return self;},
- args: ["separators"],
- source: unescape('trimBoth%3A%20separators%0A%0A%09%5E%28self%20trimLeft%3A%20separators%29%20trimRight%3A%20separators'),
- messageSends: ["trimRight:", "trimLeft:"],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_asLowercase'),
- smalltalk.method({
- selector: unescape('asLowercase'),
- category: 'converting',
- fn: function (){
- var self=this;
- return self.toLowerCase();
- return self;},
- args: [],
- source: unescape('asLowercase%0A%09%3Creturn%20self.toLowerCase%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_asUppercase'),
- smalltalk.method({
- selector: unescape('asUppercase'),
- category: 'converting',
- fn: function (){
- var self=this;
- return self.toUpperCase();
- return self;},
- args: [],
- source: unescape('asUppercase%0A%09%3Creturn%20self.toUpperCase%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_join_'),
- smalltalk.method({
- selector: unescape('join%3A'),
- category: 'split join',
- fn: function (aCollection){
- var self=this;
- return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(stream){return smalltalk.send(aCollection, "_do_separatedBy_", [(function(each){return smalltalk.send(stream, "_nextPutAll_", [smalltalk.send(each, "_asString", [])]);}), (function(){return smalltalk.send(stream, "_nextPutAll_", [self]);})]);})]);
- return self;},
- args: ["aCollection"],
- source: unescape('join%3A%20aCollection%20%0A%09%5E%20String%0A%09%09streamContents%3A%20%5B%3Astream%20%7C%20aCollection%0A%09%09%09%09do%3A%20%5B%3Aeach%20%7C%20stream%20nextPutAll%3A%20each%20asString%5D%20%0A%09%09%09%09separatedBy%3A%20%5Bstream%20nextPutAll%3A%20self%5D%5D'),
- messageSends: ["streamContents:", "do:separatedBy:", "nextPutAll:", "asString"],
- referencedClasses: ["String"]
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_includesSubString_'),
- smalltalk.method({
- selector: unescape('includesSubString%3A'),
- category: 'testing',
- fn: function (subString){
- var self=this;
- return self.indexOf(subString) != -1 ;
- return self;},
- args: ["subString"],
- source: unescape('includesSubString%3A%20subString%0A%09%3C%20return%20self.indexOf%28subString%29%20%21%3D%20-1%20%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_asciiValue'),
- smalltalk.method({
- selector: unescape('asciiValue'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.charCodeAt(0);;
- return self;},
- args: [],
- source: unescape('asciiValue%0A%09%3Creturn%20self.charCodeAt%280%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_lineIndicesDo_'),
- smalltalk.method({
- selector: unescape('lineIndicesDo%3A'),
- category: 'split join',
- fn: function (aBlock){
- var self=this;
- try{var cr=nil;
- var lf=nil;
- var start=nil;
- var sz=nil;
- var nextLF=nil;
- var nextCR=nil;
- (start=(1));
- (sz=smalltalk.send(self, "_size", []));
- (cr=smalltalk.send((smalltalk.String || String), "_cr", []));
- (nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, (1)]));
- (lf=smalltalk.send((smalltalk.String || String), "_lf", []));
- (nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, (1)]));
- (function(){while((function(){return ((($receiver = start).klass === smalltalk.Number) ? $receiver <=sz : smalltalk.send($receiver, "__lt_eq", [sz]));})()) {(function(){((($receiver = smalltalk.send(smalltalk.send(nextLF, "__eq", [(0)]), "_and_", [(function(){return smalltalk.send(nextCR, "__eq", [(0)]);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(aBlock, "_value_value_value_", [start, sz, sz]);return (function(){throw({name: 'stReturn', selector: '_lineIndicesDo_', fn: function(){return self}})})();})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(aBlock, "_value_value_value_", [start, sz, sz]);return (function(){throw({name: 'stReturn', selector: '_lineIndicesDo_', fn: function(){return self}})})();})]));return ((($receiver = smalltalk.send(smalltalk.send(nextCR, "__eq", [(0)]), "_or_", [(function(){return smalltalk.send((0) < nextLF, "_and_", [(function(){return ((($receiver = nextLF).klass === smalltalk.Number) ? $receiver <nextCR : smalltalk.send($receiver, "__lt", [nextCR]));})]);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextLF).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextLF]);(start=(1) + nextLF);return (nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, start]));})() : (function(){return ((($receiver = smalltalk.send((1) + nextCR, "__eq", [nextLF])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextLF]);(start=(1) + nextLF);(nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));return (nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, start]));})() : (function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextCR]);(start=(1) + nextCR);return (nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextLF]);(start=(1) + nextLF);(nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));return (nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, start]));}), (function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextCR]);(start=(1) + nextCR);return (nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));})]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextLF).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextLF]);(start=(1) + nextLF);return (nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, start]));}), (function(){return ((($receiver = smalltalk.send((1) + nextCR, "__eq", [nextLF])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextLF]);(start=(1) + nextLF);(nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));return (nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, start]));})() : (function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextCR]);(start=(1) + nextCR);return (nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextLF]);(start=(1) + nextLF);(nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));return (nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, start]));}), (function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextCR]);(start=(1) + nextCR);return (nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));})]));})]));})()}})();
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '_lineIndicesDo_'){return e.fn()} throw(e)}},
- args: ["aBlock"],
- source: unescape('lineIndicesDo%3A%20aBlock%0A%09%22execute%20aBlock%20with%203%20arguments%20for%20each%20line%3A%0A%09-%20start%20index%20of%20line%0A%09-%20end%20index%20of%20line%20without%20line%20delimiter%0A%09-%20end%20index%20of%20line%20including%20line%20delimiter%28s%29%20CR%2C%20LF%20or%20CRLF%22%0A%09%0A%09%7C%20cr%20lf%20start%20sz%20nextLF%20nextCR%20%7C%0A%09start%20%3A%3D%201.%0A%09sz%20%3A%3D%20self%20size.%0A%09cr%20%3A%3D%20String%20cr.%0A%09nextCR%20%3A%3D%20self%20indexOf%3A%20cr%20startingAt%3A%201.%0A%09lf%20%3A%3D%20String%20lf.%0A%09nextLF%20%3A%3D%20self%20indexOf%3A%20lf%20startingAt%3A%201.%0A%09%5B%20start%20%3C%3D%20sz%20%5D%20whileTrue%3A%20%5B%0A%09%09%28nextLF%20%3D%200%20and%3A%20%5B%20nextCR%20%3D%200%20%5D%29%0A%09%09%09ifTrue%3A%20%5B%20%22No%20more%20CR%2C%20nor%20LF%2C%20the%20string%20is%20over%22%0A%09%09%09%09%09aBlock%20value%3A%20start%20value%3A%20sz%20value%3A%20sz.%0A%09%09%09%09%09%5Eself%20%5D.%0A%09%09%28nextCR%20%3D%200%20or%3A%20%5B%200%20%3C%20nextLF%20and%3A%20%5B%20nextLF%20%3C%20nextCR%20%5D%20%5D%29%0A%09%09%09ifTrue%3A%20%5B%20%22Found%20a%20LF%22%0A%09%09%09%09%09aBlock%20value%3A%20start%20value%3A%20nextLF%20-%201%20value%3A%20nextLF.%0A%09%09%09%09%09start%20%3A%3D%201%20+%20nextLF.%0A%09%09%09%09%09nextLF%20%3A%3D%20self%20indexOf%3A%20lf%20startingAt%3A%20start%20%5D%0A%09%09%09ifFalse%3A%20%5B%201%20+%20nextCR%20%3D%20nextLF%0A%09%09%09%09ifTrue%3A%20%5B%20%22Found%20a%20CR-LF%20pair%22%0A%09%09%09%09%09aBlock%20value%3A%20start%20value%3A%20nextCR%20-%201%20value%3A%20nextLF.%0A%09%09%09%09%09start%20%3A%3D%201%20+%20nextLF.%0A%09%09%09%09%09nextCR%20%3A%3D%20self%20indexOf%3A%20cr%20startingAt%3A%20start.%0A%09%09%09%09%09nextLF%20%3A%3D%20self%20indexOf%3A%20lf%20startingAt%3A%20start%20%5D%0A%09%09%09%09ifFalse%3A%20%5B%20%22Found%20a%20CR%22%0A%09%09%09%09%09aBlock%20value%3A%20start%20value%3A%20nextCR%20-%201%20value%3A%20nextCR.%0A%09%09%09%09%09start%20%3A%3D%201%20+%20nextCR.%0A%09%09%09%09%09nextCR%20%3A%3D%20self%20indexOf%3A%20cr%20startingAt%3A%20start%20%5D%5D%5D'),
- messageSends: ["size", "cr", "indexOf:startingAt:", "lf", "whileTrue:", unescape("%3C%3D"), "ifTrue:", "and:", unescape("%3D"), "value:value:value:", "ifTrue:ifFalse:", "or:", unescape("%3C"), unescape("-"), unescape("+")],
- referencedClasses: ["String"]
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_linesDo_'),
- smalltalk.method({
- selector: unescape('linesDo%3A'),
- category: 'split join',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(self, "_lineIndicesDo_", [(function(start, endWithoutDelimiters, end){return smalltalk.send(aBlock, "_value_", [smalltalk.send(self, "_copyFrom_to_", [start, endWithoutDelimiters])]);})]);
- return self;},
- args: ["aBlock"],
- source: unescape('linesDo%3A%20aBlock%0A%09%22Execute%20aBlock%20with%20each%20line%20in%20this%20string.%20The%20terminating%20line%0A%09delimiters%20CR%2C%20LF%20or%20CRLF%20pairs%20are%20not%20included%20in%20what%20is%20passed%20to%20aBlock%22%0A%0A%09self%20lineIndicesDo%3A%20%5B%3Astart%20%3AendWithoutDelimiters%20%3Aend%20%7C%0A%09%09aBlock%20value%3A%20%28self%20copyFrom%3A%20start%20to%3A%20endWithoutDelimiters%29%5D'),
- messageSends: ["lineIndicesDo:", "value:", "copyFrom:to:"],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_lines'),
- smalltalk.method({
- selector: unescape('lines'),
- category: 'split join',
- fn: function (){
- var self=this;
- var lines=nil;
- (lines=smalltalk.send((smalltalk.Array || Array), "_new", []));
- smalltalk.send(self, "_linesDo_", [(function(aLine){return smalltalk.send(lines, "_add_", [aLine]);})]);
- return lines;
- return self;},
- args: [],
- source: unescape('lines%0A%09%22Answer%20an%20array%20of%20lines%20composing%20this%20receiver%20without%20the%20line%20ending%20delimiters.%22%0A%0A%09%7C%20lines%20%7C%0A%09lines%20%3A%3D%20Array%20new.%0A%09self%20linesDo%3A%20%5B%3AaLine%20%7C%20lines%20add%3A%20aLine%5D.%0A%09%5Elines'),
- messageSends: ["new", "linesDo:", "add:"],
- referencedClasses: ["Array"]
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_lineNumber_'),
- smalltalk.method({
- selector: unescape('lineNumber%3A'),
- category: 'split join',
- fn: function (anIndex){
- var self=this;
- try{var lineCount=nil;
- (lineCount=(0));
- smalltalk.send(self, "_lineIndicesDo_", [(function(start, endWithoutDelimiters, end){return ((($receiver = smalltalk.send((lineCount=((($receiver = lineCount).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]))), "__eq", [anIndex])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '_lineNumber_', fn: function(){return smalltalk.send(self, "_copyFrom_to_", [start, endWithoutDelimiters])}})})();})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return (function(){throw({name: 'stReturn', selector: '_lineNumber_', fn: function(){return smalltalk.send(self, "_copyFrom_to_", [start, endWithoutDelimiters])}})})();})]));})]);
- (function(){throw({name: 'stReturn', selector: '_lineNumber_', fn: function(){return nil}})})();
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '_lineNumber_'){return e.fn()} throw(e)}},
- args: ["anIndex"],
- source: unescape('lineNumber%3A%20anIndex%0A%09%22Answer%20a%20string%20containing%20the%20characters%20in%20the%20given%20line%20number.%22%0A%0A%09%7C%20lineCount%20%7C%0A%09lineCount%20%3A%3D%200.%0A%09self%20lineIndicesDo%3A%20%5B%3Astart%20%3AendWithoutDelimiters%20%3Aend%20%7C%0A%09%09%28lineCount%20%3A%3D%20lineCount%20+%201%29%20%3D%20anIndex%20ifTrue%3A%20%5B%5Eself%20copyFrom%3A%20start%20to%3A%20endWithoutDelimiters%5D%5D.%0A%09%5Enil'),
- messageSends: ["lineIndicesDo:", "ifTrue:", unescape("%3D"), unescape("+"), "copyFrom:to:"],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_reversed'),
- smalltalk.method({
- selector: unescape('reversed'),
- category: 'converting',
- fn: function (){
- var self=this;
- return self.split("").reverse().join("");
- return self;},
- args: [],
- source: unescape('reversed%0A%09%3Creturn%20self.split%28%22%22%29.reverse%28%29.join%28%22%22%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_asJavaScriptSelector'),
- smalltalk.method({
- selector: unescape('asJavaScriptSelector'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(smalltalk.send(self, "_asSelector", []), "_replace_with_", [unescape("%5E_"), ""]), "_replace_with_", [unescape("_.*"), ""]);
- return self;},
- args: [],
- source: unescape('asJavaScriptSelector%0A%09%5E%28self%20asSelector%20replace%3A%20%27%5E_%27%20with%3A%20%27%27%29%20replace%3A%20%27_.*%27%20with%3A%20%27%27.'),
- messageSends: ["replace:with:", "asSelector"],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_asJSONString'),
- smalltalk.method({
- selector: unescape('asJSONString'),
- category: 'converting',
- fn: function (){
- var self=this;
- return self;
- return self;},
- args: [],
- source: unescape('asJSONString%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_asSymbol'),
- smalltalk.method({
- selector: unescape('asSymbol'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.Symbol || Symbol), "_lookup_", [self]);
- return self;},
- args: [],
- source: unescape('asSymbol%0A%09%5ESymbol%20lookup%3A%20self'),
- messageSends: ["lookup:"],
- referencedClasses: ["Symbol"]
- }),
- smalltalk.String);
- smalltalk.addMethod(
- unescape('_streamClass'),
- smalltalk.method({
- selector: unescape('streamClass'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (smalltalk.StringStream || StringStream);
- return self;},
- args: [],
- source: unescape('streamClass%0A%09%20%20%20%20%5EStringStream'),
- messageSends: [],
- referencedClasses: ["StringStream"]
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- unescape('_fromString_'),
- smalltalk.method({
- selector: unescape('fromString%3A'),
- category: 'instance creation',
- fn: function (aString){
- var self=this;
- return new self.fn(aString);
- return self;},
- args: ["aString"],
- source: unescape('fromString%3A%20aString%0A%09%20%20%20%20%3Creturn%20new%20self.fn%28aString%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- unescape('_cr'),
- smalltalk.method({
- selector: unescape('cr'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return '\r';
- return self;},
- args: [],
- source: unescape('cr%0A%09%3Creturn%20%27%5Cr%27%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- unescape('_lf'),
- smalltalk.method({
- selector: unescape('lf'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return '\n';
- return self;},
- args: [],
- source: unescape('lf%0A%09%3Creturn%20%27%5Cn%27%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- unescape('_space'),
- smalltalk.method({
- selector: unescape('space'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return ' ';
- return self;},
- args: [],
- source: unescape('space%0A%09%3Creturn%20%27%20%27%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- unescape('_tab'),
- smalltalk.method({
- selector: unescape('tab'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return '\t';
- return self;},
- args: [],
- source: unescape('tab%0A%09%3Creturn%20%27%5Ct%27%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- unescape('_crlf'),
- smalltalk.method({
- selector: unescape('crlf'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return '\r\n';
- return self;},
- args: [],
- source: unescape('crlf%0A%09%3Creturn%20%27%5Cr%5Cn%27%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- unescape('_streamContents_'),
- smalltalk.method({
- selector: unescape('streamContents%3A'),
- category: 'instance creation',
- fn: function (blockWithArg){
- var self=this;
- var stream=nil;
- (stream=smalltalk.send(smalltalk.send(self, "_streamClass", []), "_on_", [smalltalk.send((smalltalk.String || String), "_new", [])]));
- smalltalk.send(blockWithArg, "_value_", [stream]);
- return smalltalk.send(stream, "_contents", []);
- return self;},
- args: ["blockWithArg"],
- source: unescape('streamContents%3A%20blockWithArg%0A%09%7Cstream%7C%0A%09stream%20%3A%3D%20%28self%20streamClass%20on%3A%20String%20new%29.%0A%09blockWithArg%20value%3A%20stream.%0A%09%5E%20stream%20contents'),
- messageSends: ["on:", "streamClass", "new", "value:", "contents"],
- referencedClasses: ["String"]
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- unescape('_value_'),
- smalltalk.method({
- selector: unescape('value%3A'),
- category: 'instance creation',
- fn: function (aUTFCharCode){
- var self=this;
- return String.fromCharCode(aUTFCharCode);;
- return self;},
- args: ["aUTFCharCode"],
- source: unescape('value%3A%20aUTFCharCode%0A%0A%09%3Creturn%20String.fromCharCode%28aUTFCharCode%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.String.klass);
- smalltalk.addClass('Symbol', smalltalk.CharacterArray, [], 'Kernel-Collections');
- smalltalk.addMethod(
- unescape('_at_ifAbsent_'),
- smalltalk.method({
- selector: unescape('at%3AifAbsent%3A'),
- category: 'accessing',
- fn: function (anIndex, aBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asString", []), "_at_ifAbsent_", [anIndex, aBlock]);
- return self;},
- args: ["anIndex", "aBlock"],
- source: unescape('at%3A%20anIndex%20ifAbsent%3A%20aBlock%0A%09%5Eself%20asString%20at%3A%20anIndex%20ifAbsent%3A%20aBlock'),
- messageSends: ["at:ifAbsent:", "asString"],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('_asString'),
- smalltalk.method({
- selector: unescape('asString'),
- category: 'converting',
- fn: function (){
- var self=this;
- return self.value;
- return self;},
- args: [],
- source: unescape('asString%0A%09%3Creturn%20self.value%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return smalltalk.send(unescape("%23"), "__comma", [smalltalk.send(self, "_asString", [])]);
- return self;},
- args: [],
- source: unescape('printString%0A%09%5E%27%23%27%2C%20self%20asString'),
- messageSends: [unescape("%2C"), "asString"],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('_size'),
- smalltalk.method({
- selector: unescape('size'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asString", []), "_size", []);
- return self;},
- args: [],
- source: unescape('size%0A%09%5Eself%20asString%20size'),
- messageSends: ["size", "asString"],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('_asSymbol'),
- smalltalk.method({
- selector: unescape('asSymbol'),
- category: 'converting',
- fn: function (){
- var self=this;
- return self;
- return self;},
- args: [],
- source: unescape('asSymbol%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('_copyFrom_to_'),
- smalltalk.method({
- selector: unescape('copyFrom%3Ato%3A'),
- category: 'copying',
- fn: function (anIndex, anotherIndex){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_class", []), "_fromString_", [smalltalk.send(smalltalk.send(self, "_asString", []), "_copyFrom_to_", [anIndex, anotherIndex])]);
- return self;},
- args: ["anIndex", "anotherIndex"],
- source: unescape('copyFrom%3A%20anIndex%20to%3A%20anotherIndex%0A%09%5Eself%20class%20fromString%3A%20%28self%20asString%20copyFrom%3A%20anIndex%20to%3A%20anotherIndex%29'),
- messageSends: ["fromString:", "class", "copyFrom:to:", "asString"],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('_deepCopy'),
- smalltalk.method({
- selector: unescape('deepCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- return self;
- return self;},
- args: [],
- source: unescape('deepCopy%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('__lt'),
- smalltalk.method({
- selector: unescape('%3C'),
- category: 'comparing',
- fn: function (aSymbol){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_asString", [])).klass === smalltalk.Number) ? $receiver <smalltalk.send(aSymbol, "_asString", []) : smalltalk.send($receiver, "__lt", [smalltalk.send(aSymbol, "_asString", [])]));
- return self;},
- args: ["aSymbol"],
- source: unescape('%3C%20aSymbol%0A%09%5Eself%20asString%20%3C%20aSymbol%20asString'),
- messageSends: [unescape("%3C"), "asString"],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('__lt_eq'),
- smalltalk.method({
- selector: unescape('%3C%3D'),
- category: 'comparing',
- fn: function (aSymbol){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_asString", [])).klass === smalltalk.Number) ? $receiver <=smalltalk.send(aSymbol, "_asString", []) : smalltalk.send($receiver, "__lt_eq", [smalltalk.send(aSymbol, "_asString", [])]));
- return self;},
- args: ["aSymbol"],
- source: unescape('%3C%3D%20aSymbol%0A%09%5Eself%20asString%20%3C%3D%20aSymbol%20asString'),
- messageSends: [unescape("%3C%3D"), "asString"],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('__gt_eq'),
- smalltalk.method({
- selector: unescape('%3E%3D'),
- category: 'comparing',
- fn: function (aSymbol){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_asString", [])).klass === smalltalk.Number) ? $receiver >=smalltalk.send(aSymbol, "_asString", []) : smalltalk.send($receiver, "__gt_eq", [smalltalk.send(aSymbol, "_asString", [])]));
- return self;},
- args: ["aSymbol"],
- source: unescape('%3E%3D%20aSymbol%0A%09%5Eself%20asString%20%3E%3D%20aSymbol%20asString'),
- messageSends: [unescape("%3E%3D"), "asString"],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('__eq'),
- smalltalk.method({
- selector: unescape('%3D'),
- category: 'comparing',
- fn: function (aSymbol){
- var self=this;
- try{((($receiver = smalltalk.send(smalltalk.send(aSymbol, "_class", []), "__eq", [smalltalk.send(self, "_class", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]));
- (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return smalltalk.send(smalltalk.send(self, "_asString", []), "__eq", [smalltalk.send(aSymbol, "_asString", [])])}})})();
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '__eq'){return e.fn()} throw(e)}},
- args: ["aSymbol"],
- source: unescape('%3D%20aSymbol%0A%09aSymbol%20class%20%3D%20self%20class%20ifFalse%3A%20%5B%5Efalse%5D.%0A%09%5Eself%20asString%20%3D%20aSymbol%20asString'),
- messageSends: ["ifFalse:", unescape("%3D"), "class", "asString"],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('_isSymbol'),
- smalltalk.method({
- selector: unescape('isSymbol'),
- category: 'printing',
- fn: function (){
- var self=this;
- return true;
- return self;},
- args: [],
- source: unescape('isSymbol%0A%09%5Etrue'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('_asJavascript'),
- smalltalk.method({
- selector: unescape('asJavascript'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(unescape("smalltalk.symbolFor%28%22"), "__comma", [smalltalk.send(self, "_asString", [])]), "__comma", [unescape("%22%29")]);
- return self;},
- args: [],
- source: unescape('asJavascript%0A%09%5E%27smalltalk.symbolFor%28%22%27%2C%20self%20asString%2C%20%27%22%29%27'),
- messageSends: [unescape("%2C"), "asString"],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('__gt'),
- smalltalk.method({
- selector: unescape('%3E'),
- category: 'comparing',
- fn: function (aSymbol){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_asString", [])).klass === smalltalk.Number) ? $receiver >smalltalk.send(aSymbol, "_asString", []) : smalltalk.send($receiver, "__gt", [smalltalk.send(aSymbol, "_asString", [])]));
- return self;},
- args: ["aSymbol"],
- source: unescape('%3E%20aSymbol%0A%09%5Eself%20asString%20%3E%20aSymbol%20asString'),
- messageSends: [unescape("%3E"), "asString"],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('_shallowCopy'),
- smalltalk.method({
- selector: unescape('shallowCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- return self;
- return self;},
- args: [],
- source: unescape('shallowCopy%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('_asSelector'),
- smalltalk.method({
- selector: unescape('asSelector'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asString", []), "_asSelector", []);
- return self;},
- args: [],
- source: unescape('asSelector%0A%09%5Eself%20asString%20asSelector'),
- messageSends: ["asSelector", "asString"],
- referencedClasses: []
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- unescape('_lookup_'),
- smalltalk.method({
- selector: unescape('lookup%3A'),
- category: 'instance creation',
- fn: function (aString){
- var self=this;
- return smalltalk.symbolFor(aString);;
- return self;},
- args: ["aString"],
- source: unescape('lookup%3A%20aString%0A%09%3Creturn%20smalltalk.symbolFor%28aString%29%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Symbol.klass);
- smalltalk.addMethod(
- unescape('_basicNew'),
- smalltalk.method({
- selector: unescape('basicNew'),
- category: 'instance creation',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_shouldNotImplement", []);
- return self;},
- args: [],
- source: unescape('basicNew%0A%09self%20shouldNotImplement'),
- messageSends: ["shouldNotImplement"],
- referencedClasses: []
- }),
- smalltalk.Symbol.klass);
- smalltalk.addMethod(
- unescape('_fromString_'),
- smalltalk.method({
- selector: unescape('fromString%3A'),
- category: 'instance creation',
- fn: function (aString){
- var self=this;
- return smalltalk.send(self, "_lookup_", [aString]);
- return self;},
- args: ["aString"],
- source: unescape('fromString%3A%20aString%0A%09%5Eself%20lookup%3A%20aString'),
- messageSends: ["lookup:"],
- referencedClasses: []
- }),
- smalltalk.Symbol.klass);
- smalltalk.addClass('Array', smalltalk.SequenceableCollection, [], 'Kernel-Collections');
- smalltalk.addMethod(
- unescape('_size'),
- smalltalk.method({
- selector: unescape('size'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.length;
- return self;},
- args: [],
- source: unescape('size%0A%09%3Creturn%20self.length%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- unescape('_at_put_'),
- smalltalk.method({
- selector: unescape('at%3Aput%3A'),
- category: 'accessing',
- fn: function (anIndex, anObject){
- var self=this;
- return self[anIndex - 1] = anObject;
- return self;},
- args: ["anIndex", "anObject"],
- source: unescape('at%3A%20anIndex%20put%3A%20anObject%0A%09%3Creturn%20self%5BanIndex%20-%201%5D%20%3D%20anObject%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- unescape('_at_ifAbsent_'),
- smalltalk.method({
- selector: unescape('at%3AifAbsent%3A'),
- category: 'accessing',
- fn: function (anIndex, aBlock){
- var self=this;
- var value = self[anIndex - 1];
- if(value === undefined) {
- return aBlock();
- } else {
- return value;
- }
- ;
- return self;},
- args: ["anIndex", "aBlock"],
- source: unescape('at%3A%20anIndex%20ifAbsent%3A%20aBlock%0A%09%3C%0A%09%20%20%20%20var%20value%20%3D%20self%5BanIndex%20-%201%5D%3B%0A%09%20%20%20%20if%28value%20%3D%3D%3D%20undefined%29%20%7B%0A%09%09return%20aBlock%28%29%3B%0A%09%20%20%20%20%7D%20else%20%7B%0A%09%09return%20value%3B%0A%09%20%20%20%20%7D%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- unescape('_add_'),
- smalltalk.method({
- selector: unescape('add%3A'),
- category: 'adding/removing',
- fn: function (anObject){
- var self=this;
- self.push(anObject); return anObject;;
- return self;},
- args: ["anObject"],
- source: unescape('add%3A%20anObject%0A%09%3Cself.push%28anObject%29%3B%20return%20anObject%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- unescape('_join_'),
- smalltalk.method({
- selector: unescape('join%3A'),
- category: 'enumerating',
- fn: function (aString){
- var self=this;
- return self.join(aString);
- return self;},
- args: ["aString"],
- source: unescape('join%3A%20aString%0A%09%3Creturn%20self.join%28aString%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- unescape('_asJavascript'),
- smalltalk.method({
- selector: unescape('asJavascript'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(unescape("%5B"), "__comma", [smalltalk.send(smalltalk.send(self, "_collect_", [(function(each){return smalltalk.send(each, "_asJavascript", []);})]), "_join_", [unescape("%2C%20")])]), "__comma", [unescape("%5D")]);
- return self;},
- args: [],
- source: unescape('asJavascript%0A%09%5E%27%5B%27%2C%20%28%28self%20collect%3A%20%5B%3Aeach%20%7C%20each%20asJavascript%5D%29%20join%3A%20%27%2C%20%27%29%2C%20%20%27%5D%27'),
- messageSends: [unescape("%2C"), "join:", "collect:", "asJavascript"],
- referencedClasses: []
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- unescape('_sort'),
- smalltalk.method({
- selector: unescape('sort'),
- category: 'enumerating',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_basicPerform_", ["sort"]);
- return self;},
- args: [],
- source: unescape('sort%0A%20%20%20%20%5Eself%20basicPerform%3A%20%27sort%27'),
- messageSends: ["basicPerform:"],
- referencedClasses: []
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- unescape('_sort_'),
- smalltalk.method({
- selector: unescape('sort%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- return self.sort(function(a, b) {
- if(aBlock(a,b)) {return -1} else {return 1}
- })
- ;
- return self;},
- args: ["aBlock"],
- source: unescape('sort%3A%20aBlock%0A%09%3C%0A%09%09return%20self.sort%28function%28a%2C%20b%29%20%7B%0A%09%09%09if%28aBlock%28a%2Cb%29%29%20%7Breturn%20-1%7D%20else%20%7Breturn%201%7D%0A%09%09%7D%29%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- unescape('_remove_'),
- smalltalk.method({
- selector: unescape('remove%3A'),
- category: 'adding/removing',
- fn: function (anObject){
- var self=this;
- for(var i=0;i<self.length;i++) {
- if(self[i] == anObject) {
- self.splice(i,1);
- break;
- }
- }
- ;
- return self;},
- args: ["anObject"],
- source: unescape('remove%3A%20anObject%0A%09%3C%0A%09%09for%28var%20i%3D0%3Bi%3Cself.length%3Bi++%29%20%7B%0A%09%09%09if%28self%5Bi%5D%20%3D%3D%20anObject%29%20%7B%0A%09%09%09%09self.splice%28i%2C1%29%3B%0A%09%09%09%09break%3B%0A%09%09%09%7D%0A%09%09%7D%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- unescape('_sorted'),
- smalltalk.method({
- selector: unescape('sorted'),
- category: 'enumerating',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_copy", []), "_sort", []);
- return self;},
- args: [],
- source: unescape('sorted%0A%09%5Eself%20copy%20sort'),
- messageSends: ["sort", "copy"],
- referencedClasses: []
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- unescape('_sorted_'),
- smalltalk.method({
- selector: unescape('sorted%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_copy", []), "_sort_", [aBlock]);
- return self;},
- args: ["aBlock"],
- source: unescape('sorted%3A%20aBlock%0A%09%5Eself%20copy%20sort%3A%20aBlock'),
- messageSends: ["sort:", "copy"],
- referencedClasses: []
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- unescape('_removeFrom_to_'),
- smalltalk.method({
- selector: unescape('removeFrom%3Ato%3A'),
- category: 'adding/removing',
- fn: function (aNumber, anotherNumber){
- var self=this;
- self.splice(aNumber - 1,anotherNumber - 1);
- return self;},
- args: ["aNumber", "anotherNumber"],
- source: unescape('removeFrom%3A%20aNumber%20to%3A%20anotherNumber%0A%09%3Cself.splice%28aNumber%20-%201%2CanotherNumber%20-%201%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- unescape('_reversed'),
- smalltalk.method({
- selector: unescape('reversed'),
- category: 'converting',
- fn: function (){
- var self=this;
- return self._copy().reverse();
- return self;},
- args: [],
- source: unescape('reversed%0A%09%3Creturn%20self._copy%28%29.reverse%28%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- unescape('_new_'),
- smalltalk.method({
- selector: unescape('new%3A'),
- category: 'instance creation',
- fn: function (anInteger){
- var self=this;
- return new Array(anInteger);
- return self;},
- args: ["anInteger"],
- source: unescape('new%3A%20anInteger%0A%09%3Creturn%20new%20Array%28anInteger%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Array.klass);
- smalltalk.addMethod(
- unescape('_with_'),
- smalltalk.method({
- selector: unescape('with%3A'),
- category: 'instance creation',
- fn: function (anObject){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_at_put_", [(1), anObject]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new_", [(1)]));
- return self;},
- args: ["anObject"],
- source: unescape('with%3A%20anObject%0A%09%20%20%20%20%5E%28self%20new%3A%201%29%0A%09%09at%3A%201%20put%3A%20anObject%3B%0A%09%09yourself'),
- messageSends: ["at:put:", "yourself", "new:"],
- referencedClasses: []
- }),
- smalltalk.Array.klass);
- smalltalk.addMethod(
- unescape('_with_with_'),
- smalltalk.method({
- selector: unescape('with%3Awith%3A'),
- category: 'instance creation',
- fn: function (anObject, anObject2){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_at_put_", [(1), anObject]);smalltalk.send($rec, "_at_put_", [(2), anObject2]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new_", [(2)]));
- return self;},
- args: ["anObject", "anObject2"],
- source: unescape('with%3A%20anObject%20with%3A%20anObject2%0A%09%20%20%20%20%5E%28self%20new%3A%202%29%0A%09%09at%3A%201%20put%3A%20anObject%3B%0A%09%09at%3A%202%20put%3A%20anObject2%3B%0A%09%09yourself'),
- messageSends: ["at:put:", "yourself", "new:"],
- referencedClasses: []
- }),
- smalltalk.Array.klass);
- smalltalk.addMethod(
- unescape('_with_with_with_'),
- smalltalk.method({
- selector: unescape('with%3Awith%3Awith%3A'),
- category: 'instance creation',
- fn: function (anObject, anObject2, anObject3){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_at_put_", [(1), anObject]);smalltalk.send($rec, "_at_put_", [(2), anObject2]);smalltalk.send($rec, "_at_put_", [(3), anObject3]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new_", [(3)]));
- return self;},
- args: ["anObject", "anObject2", "anObject3"],
- source: unescape('with%3A%20anObject%20with%3A%20anObject2%20with%3A%20anObject3%0A%09%20%20%20%20%5E%28self%20new%3A%203%29%0A%09%09at%3A%201%20put%3A%20anObject%3B%0A%09%09at%3A%202%20put%3A%20anObject2%3B%0A%09%09at%3A%203%20put%3A%20anObject3%3B%0A%09%09yourself'),
- messageSends: ["at:put:", "yourself", "new:"],
- referencedClasses: []
- }),
- smalltalk.Array.klass);
- smalltalk.addMethod(
- unescape('_withAll_'),
- smalltalk.method({
- selector: unescape('withAll%3A'),
- category: 'instance creation',
- fn: function (aCollection){
- var self=this;
- var instance=nil;
- (instance=smalltalk.send(self, "_new_", [smalltalk.send(aCollection, "_size", [])]));
- smalltalk.send(aCollection, "_withIndexDo_", [(function(index, each){return smalltalk.send(instance, "_at_put_", [index, each]);})]);
- return instance;
- return self;},
- args: ["aCollection"],
- source: unescape('withAll%3A%20aCollection%0A%09%7C%20instance%20%7C%0A%09instance%20%3A%3D%20self%20new%3A%20aCollection%20size.%0A%09aCollection%20withIndexDo%3A%20%5B%3Aindex%20%3Aeach%20%7C%0A%09%09instance%20at%3A%20index%20put%3A%20each%5D.%0A%09%5Einstance'),
- messageSends: ["new:", "size", "withIndexDo:", "at:put:"],
- referencedClasses: []
- }),
- smalltalk.Array.klass);
- smalltalk.addClass('RegularExpression', smalltalk.Object, [], 'Kernel-Collections');
- smalltalk.addMethod(
- unescape('_compile_'),
- smalltalk.method({
- selector: unescape('compile%3A'),
- category: 'evaluating',
- fn: function (aString){
- var self=this;
- return self.compile(aString);
- return self;},
- args: ["aString"],
- source: unescape('compile%3A%20aString%0A%09%3Creturn%20self.compile%28aString%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.RegularExpression);
- smalltalk.addMethod(
- unescape('_exec_'),
- smalltalk.method({
- selector: unescape('exec%3A'),
- category: 'evaluating',
- fn: function (aString){
- var self=this;
- return self.exec(aString) || nil;
- return self;},
- args: ["aString"],
- source: unescape('exec%3A%20aString%0A%09%3Creturn%20self.exec%28aString%29%20%7C%7C%20nil%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.RegularExpression);
- smalltalk.addMethod(
- unescape('_test_'),
- smalltalk.method({
- selector: unescape('test%3A'),
- category: 'evaluating',
- fn: function (aString){
- var self=this;
- return self.test(aString);
- return self;},
- args: ["aString"],
- source: unescape('test%3A%20aString%0A%09%3Creturn%20self.test%28aString%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.RegularExpression);
- smalltalk.addMethod(
- unescape('_fromString_flag_'),
- smalltalk.method({
- selector: unescape('fromString%3Aflag%3A'),
- category: 'instance creation',
- fn: function (aString, anotherString){
- var self=this;
- return new RegExp(aString, anotherString);
- return self;},
- args: ["aString", "anotherString"],
- source: unescape('fromString%3A%20aString%20flag%3A%20anotherString%0A%09%3Creturn%20new%20RegExp%28aString%2C%20anotherString%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.RegularExpression.klass);
- smalltalk.addMethod(
- unescape('_fromString_'),
- smalltalk.method({
- selector: unescape('fromString%3A'),
- category: 'instance creation',
- fn: function (aString){
- var self=this;
- return smalltalk.send(self, "_fromString_flag_", [aString, ""]);
- return self;},
- args: ["aString"],
- source: unescape('fromString%3A%20aString%0A%09%20%20%20%20%5Eself%20fromString%3A%20aString%20flag%3A%20%27%27'),
- messageSends: ["fromString:flag:"],
- referencedClasses: []
- }),
- smalltalk.RegularExpression.klass);
- smalltalk.addClass('Association', smalltalk.Object, ['key', 'value'], 'Kernel-Collections');
- smalltalk.addMethod(
- unescape('__eq'),
- smalltalk.method({
- selector: unescape('%3D'),
- category: 'comparing',
- fn: function (anAssociation){
- var self=this;
- return smalltalk.send(smalltalk.send(smalltalk.send(self, "_class", []), "__eq", [smalltalk.send(anAssociation, "_class", [])]), "_and_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(self, "_key", []), "__eq", [smalltalk.send(anAssociation, "_key", [])]), "_and_", [(function(){return smalltalk.send(smalltalk.send(self, "_value", []), "__eq", [smalltalk.send(anAssociation, "_value", [])]);})]);})]);
- return self;},
- args: ["anAssociation"],
- source: unescape('%3D%20anAssociation%0A%09%5Eself%20class%20%3D%20anAssociation%20class%20and%3A%20%5B%0A%09%20%20%20%20self%20key%20%3D%20anAssociation%20key%20and%3A%20%5B%0A%09%09self%20value%20%3D%20anAssociation%20value%5D%5D'),
- messageSends: ["and:", unescape("%3D"), "class", "key", "value"],
- referencedClasses: []
- }),
- smalltalk.Association);
- smalltalk.addMethod(
- unescape('_key_'),
- smalltalk.method({
- selector: unescape('key%3A'),
- category: 'accessing',
- fn: function (aKey){
- var self=this;
- (self['@key']=aKey);
- return self;},
- args: ["aKey"],
- source: unescape('key%3A%20aKey%0A%09key%20%3A%3D%20aKey'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Association);
- smalltalk.addMethod(
- unescape('_key'),
- smalltalk.method({
- selector: unescape('key'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@key'];
- return self;},
- args: [],
- source: unescape('key%0A%09%5Ekey'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Association);
- smalltalk.addMethod(
- unescape('_value_'),
- smalltalk.method({
- selector: unescape('value%3A'),
- category: 'accessing',
- fn: function (aValue){
- var self=this;
- (self['@value']=aValue);
- return self;},
- args: ["aValue"],
- source: unescape('value%3A%20aValue%0A%09value%20%3A%3D%20aValue'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Association);
- smalltalk.addMethod(
- unescape('_value'),
- smalltalk.method({
- selector: unescape('value'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@value'];
- return self;},
- args: [],
- source: unescape('value%0A%09%5Evalue'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Association);
- smalltalk.addMethod(
- unescape('_storeOn_'),
- smalltalk.method({
- selector: unescape('storeOn%3A'),
- category: 'comparing',
- fn: function (aStream){
- var self=this;
- smalltalk.send(self['@key'], "_storeOn_", [aStream]);
- smalltalk.send(aStream, "_nextPutAll_", [unescape("-%3E")]);
- smalltalk.send(self['@value'], "_storeOn_", [aStream]);
- return self;},
- args: ["aStream"],
- source: unescape('storeOn%3A%20aStream%0A%09%22Store%20in%20the%20format%20%28key-%3Evalue%29%22%0A%0A%09%22aStream%20nextPutAll%3A%20%27%28%27.%22%0A%09key%20storeOn%3A%20aStream.%0A%09aStream%20nextPutAll%3A%20%27-%3E%27.%0A%09value%20storeOn%3A%20aStream.%0A%09%22aStream%20nextPutAll%3A%20%27%29%27%22'),
- messageSends: ["storeOn:", "nextPutAll:"],
- referencedClasses: []
- }),
- smalltalk.Association);
- smalltalk.addMethod(
- unescape('_key_value_'),
- smalltalk.method({
- selector: unescape('key%3Avalue%3A'),
- category: 'instance creation',
- fn: function (aKey, aValue){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_key_", [aKey]);smalltalk.send($rec, "_value_", [aValue]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;},
- args: ["aKey", "aValue"],
- source: unescape('key%3A%20aKey%20value%3A%20aValue%0A%09%20%20%20%20%5Eself%20new%0A%09%09key%3A%20aKey%3B%0A%09%09value%3A%20aValue%3B%0A%09%09yourself'),
- messageSends: ["key:", "value:", "yourself", "new"],
- referencedClasses: []
- }),
- smalltalk.Association.klass);
- smalltalk.addClass('Stream', smalltalk.Object, ['collection', 'position', 'streamSize'], 'Kernel-Collections');
- smalltalk.addMethod(
- unescape('_collection'),
- smalltalk.method({
- selector: unescape('collection'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@collection'];
- return self;},
- args: [],
- source: unescape('collection%0A%09%5Ecollection'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_setCollection_'),
- smalltalk.method({
- selector: unescape('setCollection%3A'),
- category: 'accessing',
- fn: function (aCollection){
- var self=this;
- (self['@collection']=aCollection);
- return self;},
- args: ["aCollection"],
- source: unescape('setCollection%3A%20aCollection%0A%09collection%20%3A%3D%20aCollection'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_position'),
- smalltalk.method({
- selector: unescape('position'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = self['@position']) == nil || $receiver == undefined) ? (function(){return (self['@position']=(0));})() : $receiver;
- return self;},
- args: [],
- source: unescape('position%0A%09%5Eposition%20ifNil%3A%20%5Bposition%20%3A%3D%200%5D'),
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_position_'),
- smalltalk.method({
- selector: unescape('position%3A'),
- category: 'accessing',
- fn: function (anInteger){
- var self=this;
- (self['@position']=anInteger);
- return self;},
- args: ["anInteger"],
- source: unescape('position%3A%20anInteger%0A%09position%20%3A%3D%20anInteger'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_streamSize'),
- smalltalk.method({
- selector: unescape('streamSize'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@streamSize'];
- return self;},
- args: [],
- source: unescape('streamSize%0A%09%5EstreamSize'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_setStreamSize_'),
- smalltalk.method({
- selector: unescape('setStreamSize%3A'),
- category: 'accessing',
- fn: function (anInteger){
- var self=this;
- (self['@streamSize']=anInteger);
- return self;},
- args: ["anInteger"],
- source: unescape('setStreamSize%3A%20anInteger%0A%09streamSize%20%3A%3D%20anInteger'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_contents'),
- smalltalk.method({
- selector: unescape('contents'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_collection", []), "_copyFrom_to_", [(1), smalltalk.send(self, "_streamSize", [])]);
- return self;},
- args: [],
- source: unescape('contents%0A%09%5Eself%20collection%0A%09%20%20%20%20copyFrom%3A%201%20%0A%09%20%20%20%20to%3A%20self%20streamSize'),
- messageSends: ["copyFrom:to:", "collection", "streamSize"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_size'),
- smalltalk.method({
- selector: unescape('size'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_streamSize", []);
- return self;},
- args: [],
- source: unescape('size%0A%09%5Eself%20streamSize'),
- messageSends: ["streamSize"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_reset'),
- smalltalk.method({
- selector: unescape('reset'),
- category: 'actions',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_position_", [(0)]);
- return self;},
- args: [],
- source: unescape('reset%0A%09self%20position%3A%200'),
- messageSends: ["position:"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_close'),
- smalltalk.method({
- selector: unescape('close'),
- category: 'actions',
- fn: function (){
- var self=this;
- return self;},
- args: [],
- source: unescape('close'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_flush'),
- smalltalk.method({
- selector: unescape('flush'),
- category: 'actions',
- fn: function (){
- var self=this;
- return self;},
- args: [],
- source: unescape('flush'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_resetContents'),
- smalltalk.method({
- selector: unescape('resetContents'),
- category: 'actions',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_reset", []);
- smalltalk.send(self, "_setStreamSize_", [(0)]);
- return self;},
- args: [],
- source: unescape('resetContents%0A%09self%20reset.%0A%09self%20setStreamSize%3A%200'),
- messageSends: ["reset", "setStreamSize:"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_do_'),
- smalltalk.method({
- selector: unescape('do%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- (function(){while(!(function(){return smalltalk.send(self, "_atEnd", []);})()) {(function(){return smalltalk.send(aBlock, "_value_", [smalltalk.send(self, "_next", [])]);})()}})();
- return self;},
- args: ["aBlock"],
- source: unescape('do%3A%20aBlock%0A%09%5Bself%20atEnd%5D%20whileFalse%3A%20%5BaBlock%20value%3A%20self%20next%5D'),
- messageSends: ["whileFalse:", "atEnd", "value:", "next"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_setToEnd'),
- smalltalk.method({
- selector: unescape('setToEnd'),
- category: 'positioning',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_position_", [smalltalk.send(self, "_size", [])]);
- return self;},
- args: [],
- source: unescape('setToEnd%0A%09self%20position%3A%20self%20size'),
- messageSends: ["position:", "size"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_skip_'),
- smalltalk.method({
- selector: unescape('skip%3A'),
- category: 'positioning',
- fn: function (anInteger){
- var self=this;
- smalltalk.send(self, "_position_", [smalltalk.send(((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +anInteger : smalltalk.send($receiver, "__plus", [anInteger])), "_min_max_", [smalltalk.send(self, "_size", []), (0)])]);
- return self;},
- args: ["anInteger"],
- source: unescape('skip%3A%20anInteger%0A%09self%20position%3A%20%28%28self%20position%20+%20anInteger%29%20min%3A%20self%20size%20max%3A%200%29'),
- messageSends: ["position:", "min:max:", unescape("+"), "position", "size"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_next'),
- smalltalk.method({
- selector: unescape('next'),
- category: 'reading',
- fn: function (){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_atEnd", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return nil;})() : (function(){smalltalk.send(self, "_position_", [((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]))]);return smalltalk.send(self['@collection'], "_at_", [smalltalk.send(self, "_position", [])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return nil;}), (function(){smalltalk.send(self, "_position_", [((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]))]);return smalltalk.send(self['@collection'], "_at_", [smalltalk.send(self, "_position", [])]);})]));
- return self;},
- args: [],
- source: unescape('next%0A%09%5Eself%20atEnd%20%0A%09%09ifTrue%3A%20%5Bnil%5D%0A%09%09ifFalse%3A%20%5B%0A%09%09%09self%20position%3A%20self%20position%20+%201.%20%0A%09%09%09collection%20at%3A%20self%20position%5D'),
- messageSends: ["ifTrue:ifFalse:", "atEnd", "position:", unescape("+"), "position", "at:"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_next_'),
- smalltalk.method({
- selector: unescape('next%3A'),
- category: 'reading',
- fn: function (anInteger){
- var self=this;
- var tempCollection=nil;
- (tempCollection=smalltalk.send(smalltalk.send(smalltalk.send(self, "_collection", []), "_class", []), "_new", []));
- smalltalk.send(anInteger, "_timesRepeat_", [(function(){return ((($receiver = smalltalk.send(self, "_atEnd", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(tempCollection, "_add_", [smalltalk.send(self, "_next", [])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(tempCollection, "_add_", [smalltalk.send(self, "_next", [])]);})]));})]);
- return tempCollection;
- return self;},
- args: ["anInteger"],
- source: unescape('next%3A%20anInteger%0A%09%7C%20tempCollection%20%7C%0A%09tempCollection%20%3A%3D%20self%20collection%20class%20new.%0A%09anInteger%20timesRepeat%3A%20%5B%0A%09%20%20%20%20self%20atEnd%20ifFalse%3A%20%5B%0A%09%09tempCollection%20add%3A%20self%20next%5D%5D.%0A%09%5EtempCollection'),
- messageSends: ["new", "class", "collection", "timesRepeat:", "ifFalse:", "atEnd", "add:", "next"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_nextPut_'),
- smalltalk.method({
- selector: unescape('nextPut%3A'),
- category: 'writing',
- fn: function (anObject){
- var self=this;
- smalltalk.send(self, "_position_", [((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]))]);
- smalltalk.send(smalltalk.send(self, "_collection", []), "_at_put_", [smalltalk.send(self, "_position", []), anObject]);
- smalltalk.send(self, "_setStreamSize_", [smalltalk.send(smalltalk.send(self, "_streamSize", []), "_max_", [smalltalk.send(self, "_position", [])])]);
- return self;},
- args: ["anObject"],
- source: unescape('nextPut%3A%20anObject%0A%09self%20position%3A%20self%20position%20+%201.%0A%09self%20collection%20at%3A%20self%20position%20put%3A%20anObject.%0A%09self%20setStreamSize%3A%20%28self%20streamSize%20max%3A%20self%20position%29'),
- messageSends: ["position:", unescape("+"), "position", "at:put:", "collection", "setStreamSize:", "max:", "streamSize"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_nextPutAll_'),
- smalltalk.method({
- selector: unescape('nextPutAll%3A'),
- category: 'writing',
- fn: function (aCollection){
- var self=this;
- smalltalk.send(aCollection, "_do_", [(function(each){return smalltalk.send(self, "_nextPut_", [each]);})]);
- return self;},
- args: ["aCollection"],
- source: unescape('nextPutAll%3A%20aCollection%0A%09aCollection%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20self%20nextPut%3A%20each%5D'),
- messageSends: ["do:", "nextPut:"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_peek'),
- smalltalk.method({
- selector: unescape('peek'),
- category: 'reading',
- fn: function (){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_atEnd", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(smalltalk.send(self, "_collection", []), "_at_", [((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]))]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(self, "_collection", []), "_at_", [((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]))]);})]));
- return self;},
- args: [],
- source: unescape('peek%0A%09%5Eself%20atEnd%20ifFalse%3A%20%5B%0A%09%20%20%20%20self%20collection%20at%3A%20self%20position%20+%201%5D'),
- messageSends: ["ifFalse:", "atEnd", "at:", "collection", unescape("+"), "position"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_atEnd'),
- smalltalk.method({
- selector: unescape('atEnd'),
- category: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_position", []), "__eq", [smalltalk.send(self, "_size", [])]);
- return self;},
- args: [],
- source: unescape('atEnd%0A%09%5Eself%20position%20%3D%20self%20size'),
- messageSends: [unescape("%3D"), "position", "size"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_atStart'),
- smalltalk.method({
- selector: unescape('atStart'),
- category: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_position", []), "__eq", [(0)]);
- return self;},
- args: [],
- source: unescape('atStart%0A%09%5Eself%20position%20%3D%200'),
- messageSends: [unescape("%3D"), "position"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_isEmpty'),
- smalltalk.method({
- selector: unescape('isEmpty'),
- category: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_size", []), "__eq", [(0)]);
- return self;},
- args: [],
- source: unescape('isEmpty%0A%09%5Eself%20size%20%3D%200'),
- messageSends: [unescape("%3D"), "size"],
- referencedClasses: []
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- unescape('_on_'),
- smalltalk.method({
- selector: unescape('on%3A'),
- category: 'instance creation',
- fn: function (aCollection){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_setCollection_", [aCollection]);smalltalk.send($rec, "_setStreamSize_", [smalltalk.send(aCollection, "_size", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;},
- args: ["aCollection"],
- source: unescape('on%3A%20aCollection%0A%09%20%20%20%20%5Eself%20new%20%0A%09%09setCollection%3A%20aCollection%3B%0A%09%09setStreamSize%3A%20aCollection%20size%3B%0A%09%09yourself'),
- messageSends: ["setCollection:", "setStreamSize:", "size", "yourself", "new"],
- referencedClasses: []
- }),
- smalltalk.Stream.klass);
- smalltalk.addClass('StringStream', smalltalk.Stream, [], 'Kernel-Collections');
- smalltalk.addMethod(
- unescape('_next_'),
- smalltalk.method({
- selector: unescape('next%3A'),
- category: 'reading',
- fn: function (anInteger){
- var self=this;
- var tempCollection=nil;
- (tempCollection=smalltalk.send(smalltalk.send(smalltalk.send(self, "_collection", []), "_class", []), "_new", []));
- smalltalk.send(anInteger, "_timesRepeat_", [(function(){return ((($receiver = smalltalk.send(self, "_atEnd", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (tempCollection=smalltalk.send(tempCollection, "__comma", [smalltalk.send(self, "_next", [])]));})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (tempCollection=smalltalk.send(tempCollection, "__comma", [smalltalk.send(self, "_next", [])]));})]));})]);
- return tempCollection;
- return self;},
- args: ["anInteger"],
- source: unescape('next%3A%20anInteger%0A%09%7C%20tempCollection%20%7C%0A%09tempCollection%20%3A%3D%20self%20collection%20class%20new.%0A%09anInteger%20timesRepeat%3A%20%5B%0A%09%20%20%20%20self%20atEnd%20ifFalse%3A%20%5B%0A%09%09tempCollection%20%3A%3D%20tempCollection%2C%20self%20next%5D%5D.%0A%09%5EtempCollection'),
- messageSends: ["new", "class", "collection", "timesRepeat:", "ifFalse:", "atEnd", unescape("%2C"), "next"],
- referencedClasses: []
- }),
- smalltalk.StringStream);
- smalltalk.addMethod(
- unescape('_nextPut_'),
- smalltalk.method({
- selector: unescape('nextPut%3A'),
- category: 'writing',
- fn: function (aString){
- var self=this;
- smalltalk.send(self, "_nextPutAll_", [aString]);
- return self;},
- args: ["aString"],
- source: unescape('nextPut%3A%20aString%0A%09self%20nextPutAll%3A%20aString'),
- messageSends: ["nextPutAll:"],
- referencedClasses: []
- }),
- smalltalk.StringStream);
- smalltalk.addMethod(
- unescape('_nextPutAll_'),
- smalltalk.method({
- selector: unescape('nextPutAll%3A'),
- category: 'writing',
- fn: function (aString){
- var self=this;
- smalltalk.send(self, "_setCollection_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_collection", []), "_copyFrom_to_", [(1), smalltalk.send(self, "_position", [])]), "__comma", [aString]), "__comma", [smalltalk.send(smalltalk.send(self, "_collection", []), "_copyFrom_to_", [((($receiver = ((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]))).klass === smalltalk.Number) ? $receiver +smalltalk.send(aString, "_size", []) : smalltalk.send($receiver, "__plus", [smalltalk.send(aString, "_size", [])])), smalltalk.send(smalltalk.send(self, "_collection", []), "_size", [])])])]);
- smalltalk.send(self, "_position_", [((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +smalltalk.send(aString, "_size", []) : smalltalk.send($receiver, "__plus", [smalltalk.send(aString, "_size", [])]))]);
- smalltalk.send(self, "_setStreamSize_", [smalltalk.send(smalltalk.send(self, "_streamSize", []), "_max_", [smalltalk.send(self, "_position", [])])]);
- return self;},
- args: ["aString"],
- source: unescape('nextPutAll%3A%20aString%0A%09self%20setCollection%3A%20%0A%09%20%20%20%20%28self%20collection%20copyFrom%3A%201%20to%3A%20self%20position%29%2C%0A%09%20%20%20%20aString%2C%0A%09%20%20%20%20%28self%20collection%20copyFrom%3A%20%28self%20position%20+%201%20+%20aString%20size%29%20to%3A%20self%20collection%20size%29.%0A%09self%20position%3A%20self%20position%20+%20aString%20size.%0A%09self%20setStreamSize%3A%20%28self%20streamSize%20max%3A%20self%20position%29'),
- messageSends: ["setCollection:", unescape("%2C"), "copyFrom:to:", "collection", "position", unescape("+"), "size", "position:", "setStreamSize:", "max:", "streamSize"],
- referencedClasses: []
- }),
- smalltalk.StringStream);
- smalltalk.addMethod(
- unescape('_cr'),
- smalltalk.method({
- selector: unescape('cr'),
- category: 'writing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_nextPutAll_", [smalltalk.send((smalltalk.String || String), "_cr", [])]);
- return self;},
- args: [],
- source: unescape('cr%0A%09%5Eself%20nextPutAll%3A%20String%20cr'),
- messageSends: ["nextPutAll:", "cr"],
- referencedClasses: ["String"]
- }),
- smalltalk.StringStream);
- smalltalk.addMethod(
- unescape('_crlf'),
- smalltalk.method({
- selector: unescape('crlf'),
- category: 'writing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_nextPutAll_", [smalltalk.send((smalltalk.String || String), "_crlf", [])]);
- return self;},
- args: [],
- source: unescape('crlf%0A%09%5Eself%20nextPutAll%3A%20String%20crlf'),
- messageSends: ["nextPutAll:", "crlf"],
- referencedClasses: ["String"]
- }),
- smalltalk.StringStream);
- smalltalk.addMethod(
- unescape('_lf'),
- smalltalk.method({
- selector: unescape('lf'),
- category: 'writing',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_nextPutAll_", [smalltalk.send((smalltalk.String || String), "_lf", [])]);
- return self;},
- args: [],
- source: unescape('lf%0A%09%5Eself%20nextPutAll%3A%20String%20lf'),
- messageSends: ["nextPutAll:", "lf"],
- referencedClasses: ["String"]
- }),
- smalltalk.StringStream);
- smalltalk.addMethod(
- unescape('_space'),
- smalltalk.method({
- selector: unescape('space'),
- category: 'writing',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_nextPut_", [" "]);
- return self;},
- args: [],
- source: unescape('space%0A%09self%20nextPut%3A%20%27%20%27'),
- messageSends: ["nextPut:"],
- referencedClasses: []
- }),
- smalltalk.StringStream);
- smalltalk.addClass('Set', smalltalk.Collection, ['elements'], 'Kernel-Collections');
- smalltalk.addMethod(
- unescape('_add_'),
- smalltalk.method({
- selector: unescape('add%3A'),
- category: 'adding/removing',
- fn: function (anObject){
- var self=this;
- var found;
- for(var i in self['@elements']) {
- if(anObject == self['@elements'][i]) {
- found = true;
- break;
- }
- }
- if(!found) {self['@elements'].push(anObject)}
- ;
- return self;},
- args: ["anObject"],
- source: unescape('add%3A%20anObject%0A%09%3C%0A%09%09var%20found%3B%0A%09%09for%28var%20i%20in%20self%5B%27@elements%27%5D%29%20%7B%0A%09%09%09if%28anObject%20%3D%3D%20self%5B%27@elements%27%5D%5Bi%5D%29%20%7B%0A%09%09%09%09found%20%3D%20true%3B%0A%09%09%09%09break%3B%0A%09%09%09%7D%0A%09%09%7D%0A%09%09if%28%21found%29%20%7Bself%5B%27@elements%27%5D.push%28anObject%29%7D%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- unescape('_remove_'),
- smalltalk.method({
- selector: unescape('remove%3A'),
- category: 'adding/removing',
- fn: function (anObject){
- var self=this;
- smalltalk.send(self['@elements'], "_remove_", [anObject]);
- return self;},
- args: ["anObject"],
- source: unescape('remove%3A%20anObject%0A%09elements%20remove%3A%20anObject'),
- messageSends: ["remove:"],
- referencedClasses: []
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- unescape('_initialize'),
- smalltalk.method({
- selector: unescape('initialize'),
- category: 'initialization',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_initialize", [], smalltalk.Collection);
- (self['@elements']=[]);
- return self;},
- args: [],
- source: unescape('initialize%0A%09super%20initialize.%0A%09elements%20%3A%3D%20%23%28%29'),
- messageSends: ["initialize"],
- referencedClasses: []
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- unescape('_size'),
- smalltalk.method({
- selector: unescape('size'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@elements'], "_size", []);
- return self;},
- args: [],
- source: unescape('size%0A%09%5Eelements%20size'),
- messageSends: ["size"],
- referencedClasses: []
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- unescape('_asArray'),
- smalltalk.method({
- selector: unescape('asArray'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@elements'], "_copy", []);
- return self;},
- args: [],
- source: unescape('asArray%0A%09%5Eelements%20copy'),
- messageSends: ["copy"],
- referencedClasses: []
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- unescape('_detect_ifNone_'),
- smalltalk.method({
- selector: unescape('detect%3AifNone%3A'),
- category: 'enumerating',
- fn: function (aBlock, anotherBlock){
- var self=this;
- return smalltalk.send(self['@elements'], "_detect_ifNone_", [aBlock, anotherBlock]);
- return self;},
- args: ["aBlock", "anotherBlock"],
- source: unescape('detect%3A%20aBlock%20ifNone%3A%20anotherBlock%0A%09%5Eelements%20detect%3A%20aBlock%20ifNone%3A%20anotherBlock'),
- messageSends: ["detect:ifNone:"],
- referencedClasses: []
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- unescape('_do_'),
- smalltalk.method({
- selector: unescape('do%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(self['@elements'], "_do_", [aBlock]);
- return self;},
- args: ["aBlock"],
- source: unescape('do%3A%20aBlock%0A%09elements%20do%3A%20aBlock'),
- messageSends: ["do:"],
- referencedClasses: []
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- unescape('_includes_'),
- smalltalk.method({
- selector: unescape('includes%3A'),
- category: 'testing',
- fn: function (anObject){
- var self=this;
- return smalltalk.send(self['@elements'], "_includes_", [anObject]);
- return self;},
- args: ["anObject"],
- source: unescape('includes%3A%20anObject%0A%09%5Eelements%20includes%3A%20anObject'),
- messageSends: ["includes:"],
- referencedClasses: []
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- unescape('__eq'),
- smalltalk.method({
- selector: unescape('%3D'),
- category: 'comparing',
- fn: function (aCollection){
- var self=this;
- return smalltalk.send(smalltalk.send(smalltalk.send(self, "_class", []), "__eq", [smalltalk.send(aCollection, "_class", [])]), "_and_", [(function(){return smalltalk.send(self['@elements'], "__eq", [smalltalk.send(aCollection, "_asArray", [])]);})]);
- return self;},
- args: ["aCollection"],
- source: unescape('%3D%20aCollection%0A%09%5Eself%20class%20%3D%20aCollection%20class%20and%3A%20%5B%0A%09%09elements%20%3D%20aCollection%20asArray%5D'),
- messageSends: ["and:", unescape("%3D"), "class", "asArray"],
- referencedClasses: []
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- unescape('_select_'),
- smalltalk.method({
- selector: unescape('select%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- var collection=nil;
- (collection=smalltalk.send(smalltalk.send(self, "_class", []), "_new", []));
- smalltalk.send(self, "_do_", [(function(each){return ((($receiver = smalltalk.send(aBlock, "_value_", [each])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(collection, "_add_", [each]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(collection, "_add_", [each]);})]));})]);
- return collection;
- return self;},
- args: ["aBlock"],
- source: unescape('select%3A%20aBlock%0A%09%7C%20collection%20%7C%0A%09collection%20%3A%3D%20self%20class%20new.%20%0A%09self%20do%3A%20%5B%3Aeach%20%7C%0A%09%09%28aBlock%20value%3A%20each%29%20ifTrue%3A%20%5B%0A%09%09%09collection%20add%3A%20each%5D%5D.%0A%09%5Ecollection'),
- messageSends: ["new", "class", "do:", "ifTrue:", "value:", "add:"],
- referencedClasses: []
- }),
- smalltalk.Set);
- smalltalk.addClass('HashedCollection', smalltalk.Collection, [], 'Kernel-Collections');
- smalltalk.HashedCollection.comment=unescape('A%20HashedCollection%20is%20a%20traditional%20JavaScript%20object%2C%20or%20a%20Smalltalk%20Dictionary.%0A%0AUnlike%20a%20Dictionary%2C%20it%20can%20only%20have%20strings%20as%20keys.')
- smalltalk.addMethod(
- unescape('_size'),
- smalltalk.method({
- selector: unescape('size'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_keys", []), "_size", []);
- return self;},
- args: [],
- source: unescape('size%0A%09%5Eself%20keys%20size'),
- messageSends: ["size", "keys"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_associations'),
- smalltalk.method({
- selector: unescape('associations'),
- category: 'accessing',
- fn: function (){
- var self=this;
- var associations=nil;
- (associations=[]);
- smalltalk.send(smalltalk.send(self, "_keys", []), "_do_", [(function(each){return smalltalk.send(associations, "_add_", [smalltalk.send((smalltalk.Association || Association), "_key_value_", [each, smalltalk.send(self, "_at_", [each])])]);})]);
- return associations;
- return self;},
- args: [],
- source: unescape('associations%0A%09%7C%20associations%20%7C%0A%09associations%20%3A%3D%20%23%28%29.%0A%09self%20keys%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20associations%20add%3A%20%28Association%20key%3A%20each%20value%3A%20%28self%20at%3A%20each%29%29%5D.%0A%09%5Eassociations'),
- messageSends: ["do:", "keys", "add:", "key:value:", "at:"],
- referencedClasses: ["Association"]
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_keys'),
- smalltalk.method({
- selector: unescape('keys'),
- category: 'accessing',
- fn: function (){
- var self=this;
- var keys = [];
- for(var i in self) {
- if(self.hasOwnProperty(i)) {
- keys.push(i);
- }
- };
- return keys;
- ;
- return self;},
- args: [],
- source: unescape('keys%0A%09%3C%0A%09%09var%20keys%20%3D%20%5B%5D%3B%0A%09%09for%28var%20i%20in%20self%29%20%7B%0A%09%09%09if%28self.hasOwnProperty%28i%29%29%20%7B%0A%09%09%09%09keys.push%28i%29%3B%0A%09%09%09%7D%0A%09%09%7D%3B%0A%09%09return%20keys%3B%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_values'),
- smalltalk.method({
- selector: unescape('values'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_keys", []), "_collect_", [(function(each){return smalltalk.send(self, "_at_", [each]);})]);
- return self;},
- args: [],
- source: unescape('values%0A%09%5Eself%20keys%20collect%3A%20%5B%3Aeach%20%7C%20self%20at%3A%20each%5D'),
- messageSends: ["collect:", "keys", "at:"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_at_put_'),
- smalltalk.method({
- selector: unescape('at%3Aput%3A'),
- category: 'accessing',
- fn: function (aKey, aValue){
- var self=this;
- return smalltalk.send(self, "_basicAt_put_", [aKey, aValue]);
- return self;},
- args: ["aKey", "aValue"],
- source: unescape('at%3A%20aKey%20put%3A%20aValue%0A%09%5Eself%20basicAt%3A%20aKey%20put%3A%20aValue'),
- messageSends: ["basicAt:put:"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_at_ifAbsent_'),
- smalltalk.method({
- selector: unescape('at%3AifAbsent%3A'),
- category: 'accessing',
- fn: function (aKey, aBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_includesKey_", [aKey]), "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_basicAt_", [aKey]);}), aBlock]);
- return self;},
- args: ["aKey", "aBlock"],
- source: unescape('at%3A%20aKey%20ifAbsent%3A%20aBlock%0A%09%5E%28self%20includesKey%3A%20aKey%29%0A%09%09ifTrue%3A%20%5Bself%20basicAt%3A%20aKey%5D%0A%09%09ifFalse%3A%20aBlock'),
- messageSends: ["ifTrue:ifFalse:", "includesKey:", "basicAt:"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_at_ifAbsentPut_'),
- smalltalk.method({
- selector: unescape('at%3AifAbsentPut%3A'),
- category: 'accessing',
- fn: function (aKey, aBlock){
- var self=this;
- return smalltalk.send(self, "_at_ifAbsent_", [aKey, (function(){return smalltalk.send(self, "_at_put_", [aKey, smalltalk.send(aBlock, "_value", [])]);})]);
- return self;},
- args: ["aKey", "aBlock"],
- source: unescape('at%3A%20aKey%20ifAbsentPut%3A%20aBlock%0A%09%5Eself%20at%3A%20aKey%20ifAbsent%3A%20%5B%0A%09%20%20%20%20self%20at%3A%20aKey%20put%3A%20aBlock%20value%5D'),
- messageSends: ["at:ifAbsent:", "at:put:", "value"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_at_ifPresent_'),
- smalltalk.method({
- selector: unescape('at%3AifPresent%3A'),
- category: 'accessing',
- fn: function (aKey, aBlock){
- var self=this;
- return (($receiver = smalltalk.send(self, "_basicAt_", [aKey])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(aBlock, "_value_", [smalltalk.send(self, "_at_", [aKey])]);})() : nil;
- return self;},
- args: ["aKey", "aBlock"],
- source: unescape('at%3A%20aKey%20ifPresent%3A%20aBlock%0A%09%5E%28self%20basicAt%3A%20aKey%29%20ifNotNil%3A%20%5BaBlock%20value%3A%20%28self%20at%3A%20aKey%29%5D'),
- messageSends: ["ifNotNil:", "basicAt:", "value:", "at:"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_at_ifPresent_ifAbsent_'),
- smalltalk.method({
- selector: unescape('at%3AifPresent%3AifAbsent%3A'),
- category: 'accessing',
- fn: function (aKey, aBlock, anotherBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_basicAt_", [aKey]), "_ifNil_ifNotNil_", [anotherBlock, (function(){return smalltalk.send(aBlock, "_value_", [smalltalk.send(self, "_at_", [aKey])]);})]);
- return self;},
- args: ["aKey", "aBlock", "anotherBlock"],
- source: unescape('at%3A%20aKey%20ifPresent%3A%20aBlock%20ifAbsent%3A%20anotherBlock%0A%09%5E%28self%20basicAt%3A%20aKey%29%0A%09%20%20%20%20ifNil%3A%20anotherBlock%0A%09%20%20%20%20ifNotNil%3A%20%5BaBlock%20value%3A%20%28self%20at%3A%20aKey%29%5D'),
- messageSends: ["ifNil:ifNotNil:", "basicAt:", "value:", "at:"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_at_'),
- smalltalk.method({
- selector: unescape('at%3A'),
- category: 'accessing',
- fn: function (aKey){
- var self=this;
- return smalltalk.send(self, "_at_ifAbsent_", [aKey, (function(){return smalltalk.send(self, "_errorNotFound", []);})]);
- return self;},
- args: ["aKey"],
- source: unescape('at%3A%20aKey%0A%09%5Eself%20at%3A%20aKey%20ifAbsent%3A%20%5Bself%20errorNotFound%5D'),
- messageSends: ["at:ifAbsent:", "errorNotFound"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_add_'),
- smalltalk.method({
- selector: unescape('add%3A'),
- category: 'adding/removing',
- fn: function (anAssociation){
- var self=this;
- smalltalk.send(self, "_at_put_", [smalltalk.send(anAssociation, "_key", []), smalltalk.send(anAssociation, "_value", [])]);
- return self;},
- args: ["anAssociation"],
- source: unescape('add%3A%20anAssociation%0A%09self%20at%3A%20anAssociation%20key%20put%3A%20anAssociation%20value'),
- messageSends: ["at:put:", "key", "value"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_addAll_'),
- smalltalk.method({
- selector: unescape('addAll%3A'),
- category: 'adding/removing',
- fn: function (aHashedCollection){
- var self=this;
- smalltalk.send(self, "_addAll_", [smalltalk.send(aHashedCollection, "_associations", [])], smalltalk.Collection);
- return aHashedCollection;
- return self;},
- args: ["aHashedCollection"],
- source: unescape('addAll%3A%20aHashedCollection%0A%09super%20addAll%3A%20aHashedCollection%20associations.%0A%09%5EaHashedCollection'),
- messageSends: ["addAll:", "associations"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_removeKey_'),
- smalltalk.method({
- selector: unescape('removeKey%3A'),
- category: 'adding/removing',
- fn: function (aKey){
- var self=this;
- smalltalk.send(self, "_remove_", [aKey]);
- return self;},
- args: ["aKey"],
- source: unescape('removeKey%3A%20aKey%0A%20%20%20%20self%20remove%3A%20aKey'),
- messageSends: ["remove:"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_remove_ifAbsent_'),
- smalltalk.method({
- selector: unescape('remove%3AifAbsent%3A'),
- category: 'adding/removing',
- fn: function (aKey, aBlock){
- var self=this;
- return smalltalk.send(self, "_removeKey_ifAbsent_", [aKey, aBlock]);
- return self;},
- args: ["aKey", "aBlock"],
- source: unescape('remove%3A%20aKey%20ifAbsent%3A%20aBlock%0A%20%20%20%20%5Eself%20removeKey%3A%20aKey%20ifAbsent%3A%20aBlock'),
- messageSends: ["removeKey:ifAbsent:"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_removeKey_ifAbsent_'),
- smalltalk.method({
- selector: unescape('removeKey%3AifAbsent%3A'),
- category: 'adding/removing',
- fn: function (aKey, aBlock){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_includesKey_", [aKey])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(aBlock, "_value", []);})() : (function(){return smalltalk.send(self, "_basicDelete_", [aKey]);})()) : smalltalk.send($receiver, "_ifFalse_ifTrue_", [(function(){return smalltalk.send(aBlock, "_value", []);}), (function(){return smalltalk.send(self, "_basicDelete_", [aKey]);})]));
- return self;},
- args: ["aKey", "aBlock"],
- source: unescape('removeKey%3A%20aKey%20ifAbsent%3A%20aBlock%0A%09%5E%28self%20includesKey%3A%20aKey%29%20%0A%09%09ifFalse%3A%20%5BaBlock%20value%5D%0A%09%09ifTrue%3A%20%5Bself%20basicDelete%3A%20aKey%5D'),
- messageSends: ["ifFalse:ifTrue:", "includesKey:", "value", "basicDelete:"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('__eq'),
- smalltalk.method({
- selector: unescape('%3D'),
- category: 'comparing',
- fn: function (aHashedCollection){
- var self=this;
- try{((($receiver = smalltalk.send(smalltalk.send(self, "_class", []), "__eq", [smalltalk.send(aHashedCollection, "_class", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]));
- ((($receiver = smalltalk.send(smalltalk.send(self, "_size", []), "__eq", [smalltalk.send(aHashedCollection, "_size", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]));
- (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return smalltalk.send(smalltalk.send(self, "_associations", []), "__eq", [smalltalk.send(aHashedCollection, "_associations", [])])}})})();
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '__eq'){return e.fn()} throw(e)}},
- args: ["aHashedCollection"],
- source: unescape('%3D%20aHashedCollection%0A%09self%20class%20%3D%20aHashedCollection%20class%20ifFalse%3A%20%5B%5Efalse%5D.%0A%09self%20size%20%3D%20aHashedCollection%20size%20ifFalse%3A%20%5B%5Efalse%5D.%0A%09%5Eself%20associations%20%3D%20aHashedCollection%20associations'),
- messageSends: ["ifFalse:", unescape("%3D"), "class", "size", "associations"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_shallowCopy'),
- smalltalk.method({
- selector: unescape('shallowCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- var copy=nil;
- (copy=smalltalk.send(smalltalk.send(self, "_class", []), "_new", []));
- smalltalk.send(self, "_associationsDo_", [(function(each){return smalltalk.send(copy, "_at_put_", [smalltalk.send(each, "_key", []), smalltalk.send(each, "_value", [])]);})]);
- return copy;
- return self;},
- args: [],
- source: unescape('shallowCopy%0A%09%7C%20copy%20%7C%0A%09copy%20%3A%3D%20self%20class%20new.%0A%09self%20associationsDo%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20copy%20at%3A%20each%20key%20%20put%3A%20each%20value%5D.%0A%09%5Ecopy'),
- messageSends: ["new", "class", "associationsDo:", "at:put:", "key", "value"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('__comma'),
- smalltalk.method({
- selector: unescape('%2C'),
- category: 'copying',
- fn: function (aCollection){
- var self=this;
- smalltalk.send(self, "_shouldNotImplement", []);
- return self;},
- args: ["aCollection"],
- source: unescape('%2C%20aCollection%0A%09self%20shouldNotImplement'),
- messageSends: ["shouldNotImplement"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_copyFrom_to_'),
- smalltalk.method({
- selector: unescape('copyFrom%3Ato%3A'),
- category: 'copying',
- fn: function (anIndex, anotherIndex){
- var self=this;
- smalltalk.send(self, "_shouldNotImplement", []);
- return self;},
- args: ["anIndex", "anotherIndex"],
- source: unescape('copyFrom%3A%20anIndex%20to%3A%20anotherIndex%0A%09self%20shouldNotImplement'),
- messageSends: ["shouldNotImplement"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_deepCopy'),
- smalltalk.method({
- selector: unescape('deepCopy'),
- category: 'copying',
- fn: function (){
- var self=this;
- var copy=nil;
- (copy=smalltalk.send(smalltalk.send(self, "_class", []), "_new", []));
- smalltalk.send(self, "_associationsDo_", [(function(each){return smalltalk.send(copy, "_at_put_", [smalltalk.send(each, "_key", []), smalltalk.send(smalltalk.send(each, "_value", []), "_deepCopy", [])]);})]);
- return copy;
- return self;},
- args: [],
- source: unescape('deepCopy%0A%09%7C%20copy%20%7C%0A%09copy%20%3A%3D%20self%20class%20new.%0A%09self%20associationsDo%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20copy%20at%3A%20each%20key%20%20put%3A%20each%20value%20deepCopy%5D.%0A%09%5Ecopy'),
- messageSends: ["new", "class", "associationsDo:", "at:put:", "key", "deepCopy", "value"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_associationsDo_'),
- smalltalk.method({
- selector: unescape('associationsDo%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_associations", []), "_do_", [aBlock]);
- return self;},
- args: ["aBlock"],
- source: unescape('associationsDo%3A%20aBlock%0A%09self%20associations%20do%3A%20aBlock'),
- messageSends: ["do:", "associations"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_keysAndValuesDo_'),
- smalltalk.method({
- selector: unescape('keysAndValuesDo%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(self, "_associationsDo_", [(function(each){return smalltalk.send(aBlock, "_value_value_", [smalltalk.send(each, "_key", []), smalltalk.send(each, "_value", [])]);})]);
- return self;},
- args: ["aBlock"],
- source: unescape('keysAndValuesDo%3A%20aBlock%0A%09self%20associationsDo%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20aBlock%20value%3A%20each%20key%20value%3A%20each%20value%5D'),
- messageSends: ["associationsDo:", "value:value:", "key", "value"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_do_'),
- smalltalk.method({
- selector: unescape('do%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_values", []), "_do_", [aBlock]);
- return self;},
- args: ["aBlock"],
- source: unescape('do%3A%20aBlock%0A%09self%20values%20do%3A%20aBlock'),
- messageSends: ["do:", "values"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_select_'),
- smalltalk.method({
- selector: unescape('select%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- var newDict=nil;
- (newDict=smalltalk.send(smalltalk.send(self, "_class", []), "_new", []));
- smalltalk.send(self, "_keysAndValuesDo_", [(function(key, value){return ((($receiver = smalltalk.send(aBlock, "_value_", [value])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(newDict, "_at_put_", [key, value]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(newDict, "_at_put_", [key, value]);})]));})]);
- return newDict;
- return self;},
- args: ["aBlock"],
- source: unescape('select%3A%20aBlock%0A%09%7C%20newDict%20%7C%0A%09newDict%20%3A%3D%20self%20class%20new.%0A%09self%20keysAndValuesDo%3A%20%5B%3Akey%20%3Avalue%20%7C%0A%09%20%20%20%20%28aBlock%20value%3A%20value%29%20ifTrue%3A%20%5BnewDict%20at%3A%20key%20put%3A%20value%5D%5D.%0A%09%5EnewDict'),
- messageSends: ["new", "class", "keysAndValuesDo:", "ifTrue:", "value:", "at:put:"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_collect_'),
- smalltalk.method({
- selector: unescape('collect%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- var newDict=nil;
- (newDict=smalltalk.send(smalltalk.send(self, "_class", []), "_new", []));
- smalltalk.send(self, "_keysAndValuesDo_", [(function(key, value){return smalltalk.send(newDict, "_at_put_", [key, smalltalk.send(aBlock, "_value_", [value])]);})]);
- return newDict;
- return self;},
- args: ["aBlock"],
- source: unescape('collect%3A%20aBlock%0A%09%7C%20newDict%20%7C%0A%09newDict%20%3A%3D%20self%20class%20new.%0A%09self%20keysAndValuesDo%3A%20%5B%3Akey%20%3Avalue%20%7C%0A%09%20%20%20%20newDict%20at%3A%20key%20put%3A%20%28aBlock%20value%3A%20value%29%5D.%0A%09%5EnewDict'),
- messageSends: ["new", "class", "keysAndValuesDo:", "at:put:", "value:"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_detect_ifNone_'),
- smalltalk.method({
- selector: unescape('detect%3AifNone%3A'),
- category: 'enumerating',
- fn: function (aBlock, anotherBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_values", []), "_detect_ifNone_", [aBlock, anotherBlock]);
- return self;},
- args: ["aBlock", "anotherBlock"],
- source: unescape('detect%3A%20aBlock%20ifNone%3A%20anotherBlock%0A%09%5Eself%20values%20detect%3A%20aBlock%20ifNone%3A%20anotherBlock'),
- messageSends: ["detect:ifNone:", "values"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_includes_'),
- smalltalk.method({
- selector: unescape('includes%3A'),
- category: 'enumerating',
- fn: function (anObject){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_values", []), "_includes_", [anObject]);
- return self;},
- args: ["anObject"],
- source: unescape('includes%3A%20anObject%0A%09%5Eself%20values%20includes%3A%20anObject'),
- messageSends: ["includes:", "values"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_printString'),
- smalltalk.method({
- selector: unescape('printString'),
- category: 'printing',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(aStream){(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_printString", [], smalltalk.Collection)]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%28")]);})(aStream);smalltalk.send(smalltalk.send(self, "_associations", []), "_do_separatedBy_", [(function(anAssociation){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(anAssociation, "_key", []), "_printString", [])]);smalltalk.send($rec, "_nextPutAll_", [unescape("%20-%3E%20")]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(anAssociation, "_value", []), "_printString", [])]);})(aStream);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [unescape("%20%2C%20")]);})]);return smalltalk.send(aStream, "_nextPutAll_", [unescape("%29")]);})]);
- return self;},
- args: [],
- source: unescape('printString%0A%09%5EString%20streamContents%3A%20%5B%3AaStream%7C%20%20%0A%09%09aStream%20%0A%09%09%09nextPutAll%3A%20super%20printString%3B%0A%09%09%09nextPutAll%3A%20%27%28%27.%0A%09%09%09%09self%20associations%20%0A%09%09%09%09%09do%3A%20%5B%3AanAssociation%7C%20%20%0A%09%09%09%09%09%09aStream%20%0A%09%09%09%09%09%09%09nextPutAll%3A%20anAssociation%20key%20printString%3B%0A%09%09%09%09%09%09%09%09nextPutAll%3A%20%27%20-%3E%20%27%3B%0A%09%09%09%09%09%09%09%09nextPutAll%3A%20anAssociation%20value%20printString%5D%0A%09%09%09%09%09%09%09separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%20%2C%20%27%5D.%0A%09%09%09%09%09%09aStream%20nextPutAll%3A%20%27%29%27%5D'),
- messageSends: ["streamContents:", "nextPutAll:", "printString", "do:separatedBy:", "associations", "key", "value"],
- referencedClasses: ["String"]
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_storeOn_'),
- smalltalk.method({
- selector: unescape('storeOn%3A'),
- category: 'printing',
- fn: function (aStream){
- var self=this;
- smalltalk.send(aStream, "_nextPutAll_", [unescape("%23%7B")]);
- smalltalk.send(smalltalk.send(self, "_associations", []), "_do_separatedBy_", [(function(each){return smalltalk.send(each, "_storeOn_", [aStream]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [". "]);})]);
- smalltalk.send(aStream, "_nextPutAll_", [unescape("%7D")]);
- return self;},
- args: ["aStream"],
- source: unescape('storeOn%3A%20aStream%0A%09aStream%20nextPutAll%3A%20%27%23%7B%27.%0A%09self%20associations%0A%09%09do%3A%20%5B%3Aeach%20%7C%20each%20storeOn%3A%20aStream%5D%0A%09%09separatedBy%3A%20%5B%20aStream%20nextPutAll%3A%20%27.%20%27%5D.%0A%09aStream%20nextPutAll%3A%20%27%7D%27'),
- messageSends: ["nextPutAll:", "do:separatedBy:", "associations", "storeOn:"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_includesKey_'),
- smalltalk.method({
- selector: unescape('includesKey%3A'),
- category: 'testing',
- fn: function (aKey){
- var self=this;
- return self.hasOwnProperty(aKey);
- return self;},
- args: ["aKey"],
- source: unescape('includesKey%3A%20aKey%0A%09%3Creturn%20self.hasOwnProperty%28aKey%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_asDictionary'),
- smalltalk.method({
- selector: unescape('asDictionary'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.Dictionary || Dictionary), "_fromPairs_", [smalltalk.send(self, "_associations", [])]);
- return self;},
- args: [],
- source: unescape('asDictionary%0A%09%5EDictionary%20fromPairs%3A%20self%20associations'),
- messageSends: ["fromPairs:", "associations"],
- referencedClasses: ["Dictionary"]
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- unescape('_fromPairs_'),
- smalltalk.method({
- selector: unescape('fromPairs%3A'),
- category: 'instance creation',
- fn: function (aCollection){
- var self=this;
- var dict=nil;
- (dict=smalltalk.send(self, "_new", []));
- smalltalk.send(aCollection, "_do_", [(function(each){return smalltalk.send(dict, "_add_", [each]);})]);
- return dict;
- return self;},
- args: ["aCollection"],
- source: unescape('fromPairs%3A%20aCollection%0A%09%7C%20dict%20%7C%0A%09dict%20%3A%3D%20self%20new.%0A%09aCollection%20do%3A%20%5B%3Aeach%20%7C%20dict%20add%3A%20each%5D.%0A%09%5Edict'),
- messageSends: ["new", "do:", "add:"],
- referencedClasses: []
- }),
- smalltalk.HashedCollection.klass);
- smalltalk.addClass('Dictionary', smalltalk.HashedCollection, ['keys', 'values'], 'Kernel-Collections');
- smalltalk.addMethod(
- unescape('_at_ifAbsent_'),
- smalltalk.method({
- selector: unescape('at%3AifAbsent%3A'),
- category: 'accessing',
- fn: function (aKey, aBlock){
- var self=this;
- var index;
- for(var i=0;i<self['@keys'].length;i++){
- if(self['@keys'][i].__eq(aKey)) {index = i;}
- };
- if(typeof index === 'undefined') {
- return aBlock();
- } else {
- return self['@values'][index];
- }
- ;
- return self;},
- args: ["aKey", "aBlock"],
- source: unescape('at%3A%20aKey%20ifAbsent%3A%20aBlock%0A%09%3C%0A%09%09var%20index%3B%0A%09%09for%28var%20i%3D0%3Bi%3Cself%5B%27@keys%27%5D.length%3Bi++%29%7B%0A%09%09%09if%28self%5B%27@keys%27%5D%5Bi%5D.__eq%28aKey%29%29%20%7Bindex%20%3D%20i%3B%7D%0A%09%09%7D%3B%0A%09%09if%28typeof%20index%20%3D%3D%3D%20%27undefined%27%29%20%7B%0A%09%09%09return%20aBlock%28%29%3B%0A%09%09%7D%20else%20%7B%0A%09%09%09return%20self%5B%27@values%27%5D%5Bindex%5D%3B%0A%09%09%7D%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- unescape('_keys'),
- smalltalk.method({
- selector: unescape('keys'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@keys'], "_copy", []);
- return self;},
- args: [],
- source: unescape('keys%0A%09%5Ekeys%20copy'),
- messageSends: ["copy"],
- referencedClasses: []
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- unescape('_values'),
- smalltalk.method({
- selector: unescape('values'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@values'], "_copy", []);
- return self;},
- args: [],
- source: unescape('values%0A%09%5Evalues%20copy'),
- messageSends: ["copy"],
- referencedClasses: []
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- unescape('_at_put_'),
- smalltalk.method({
- selector: unescape('at%3Aput%3A'),
- category: 'accessing',
- fn: function (aKey, aValue){
- var self=this;
- var index = self['@keys'].indexOf(aKey);
- if(index === -1) {
- self['@values'].push(aValue);
- self['@keys'].push(aKey);
- } else {
- self['@values'][index] = aValue;
- };
- return aValue;
- ;
- return self;},
- args: ["aKey", "aValue"],
- source: unescape('at%3A%20aKey%20put%3A%20aValue%0A%09%3C%0A%09%09var%20index%20%3D%20self%5B%27@keys%27%5D.indexOf%28aKey%29%3B%0A%09%09if%28index%20%3D%3D%3D%20-1%29%20%7B%0A%09%09%09self%5B%27@values%27%5D.push%28aValue%29%3B%0A%09%09%09self%5B%27@keys%27%5D.push%28aKey%29%3B%0A%09%09%7D%20else%20%7B%0A%09%09%09self%5B%27@values%27%5D%5Bindex%5D%20%3D%20aValue%3B%0A%09%09%7D%3B%0A%0A%09%09return%20aValue%3B%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- unescape('_removeKey_ifAbsent_'),
- smalltalk.method({
- selector: unescape('removeKey%3AifAbsent%3A'),
- category: 'adding/removing',
- fn: function (aKey, aBlock){
- var self=this;
- var index = self['@keys'].indexOf(aKey);
- if(index === -1) {
- return aBlock()
- } else {
- self['@keys'].splice(i, 1);
- self['@values'].splice(i, 1);
- return aKey
- };
- ;
- return self;},
- args: ["aKey", "aBlock"],
- source: unescape('removeKey%3A%20aKey%20ifAbsent%3A%20aBlock%0A%09%3C%0A%09%09var%20index%20%3D%20self%5B%27@keys%27%5D.indexOf%28aKey%29%3B%0A%09%09if%28index%20%3D%3D%3D%20-1%29%20%7B%0A%09%09%09return%20aBlock%28%29%0A%09%09%7D%20else%20%7B%0A%09%09%09self%5B%27@keys%27%5D.splice%28i%2C%201%29%3B%0A%09%09%09self%5B%27@values%27%5D.splice%28i%2C%201%29%3B%0A%09%09%09return%20aKey%0A%09%09%7D%3B%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- unescape('_initialize'),
- smalltalk.method({
- selector: unescape('initialize'),
- category: 'initialization',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_initialize", [], smalltalk.HashedCollection);
- (self['@keys']=[]);
- (self['@values']=[]);
- return self;},
- args: [],
- source: unescape('initialize%0A%09super%20initialize.%0A%09keys%20%3A%3D%20%23%28%29.%0A%09values%20%3A%3D%20%23%28%29'),
- messageSends: ["initialize"],
- referencedClasses: []
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- unescape('_includesKey_'),
- smalltalk.method({
- selector: unescape('includesKey%3A'),
- category: 'testing',
- fn: function (aKey){
- var self=this;
- return smalltalk.send(self['@keys'], "_includes_", [aKey]);
- return self;},
- args: ["aKey"],
- source: unescape('includesKey%3A%20aKey%0A%09%5Ekeys%20includes%3A%20aKey'),
- messageSends: ["includes:"],
- referencedClasses: []
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- unescape('_asHashedCollection'),
- smalltalk.method({
- selector: unescape('asHashedCollection'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.HashedCollection || HashedCollection), "_fromPairs_", [smalltalk.send(self, "_associations", [])]);
- return self;},
- args: [],
- source: unescape('asHashedCollection%0A%09%5EHashedCollection%20fromPairs%3A%20self%20associations'),
- messageSends: ["fromPairs:", "associations"],
- referencedClasses: ["HashedCollection"]
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- unescape('_asJSONString'),
- smalltalk.method({
- selector: unescape('asJSONString'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asHashedCollection", []), "_asJSONString", []);
- return self;},
- args: [],
- source: unescape('asJSONString%0A%09%5Eself%20asHashedCollection%20asJSONString'),
- messageSends: ["asJSONString", "asHashedCollection"],
- referencedClasses: []
- }),
- smalltalk.Dictionary);
- smalltalk.addClass('OrderedCollection', smalltalk.SequenceableCollection, ['elements'], 'Kernel-Collections');
- smalltalk.addMethod(
- unescape('_size'),
- smalltalk.method({
- selector: unescape('size'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@elements'], "_size", []);
- return self;},
- args: [],
- source: unescape('size%0A%09%5Eelements%20size'),
- messageSends: ["size"],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_at_put_'),
- smalltalk.method({
- selector: unescape('at%3Aput%3A'),
- category: 'accessing',
- fn: function (anIndex, anObject){
- var self=this;
- return self['@elements'][anIndex - 1] = anObject;
- return self;},
- args: ["anIndex", "anObject"],
- source: unescape('at%3A%20anIndex%20put%3A%20anObject%0A%09%3Creturn%20self%5B%27@elements%27%5D%5BanIndex%20-%201%5D%20%3D%20anObject%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_at_ifAbsent_'),
- smalltalk.method({
- selector: unescape('at%3AifAbsent%3A'),
- category: 'accessing',
- fn: function (anIndex, aBlock){
- var self=this;
- return smalltalk.send(self['@elements'], "_at_ifAbsent_", [anIndex, aBlock]);
- return self;},
- args: ["anIndex", "aBlock"],
- source: unescape('at%3A%20anIndex%20ifAbsent%3A%20aBlock%0A%09%5Eelements%20at%3A%20anIndex%20ifAbsent%3A%20aBlock'),
- messageSends: ["at:ifAbsent:"],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_add_'),
- smalltalk.method({
- selector: unescape('add%3A'),
- category: 'adding/removing',
- fn: function (anObject){
- var self=this;
- self['@elements'].push(anObject); return anObject;;
- return self;},
- args: ["anObject"],
- source: unescape('add%3A%20anObject%0A%09%3Cself%5B%27@elements%27%5D.push%28anObject%29%3B%20return%20anObject%3B%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_join_'),
- smalltalk.method({
- selector: unescape('join%3A'),
- category: 'enumerating',
- fn: function (aString){
- var self=this;
- return smalltalk.send(self['@elements'], "_join_", [aString]);
- return self;},
- args: ["aString"],
- source: unescape('join%3A%20aString%0A%09%5Eelements%20join%3A%20aString'),
- messageSends: ["join:"],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_sort'),
- smalltalk.method({
- selector: unescape('sort'),
- category: 'enumerating',
- fn: function (){
- var self=this;
- smalltalk.send(self['@elements'], "_sort", []);
- return self;
- return self;},
- args: [],
- source: unescape('sort%0A%20%09elements%20sort.%0A%09%5Eself'),
- messageSends: ["sort"],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_sort_'),
- smalltalk.method({
- selector: unescape('sort%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(self['@elements'], "_sort_", [aBlock]);
- return self;
- return self;},
- args: ["aBlock"],
- source: unescape('sort%3A%20aBlock%0A%09elements%20sort%3A%20aBlock.%0A%09%5Eself'),
- messageSends: ["sort:"],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_remove_'),
- smalltalk.method({
- selector: unescape('remove%3A'),
- category: 'adding/removing',
- fn: function (anObject){
- var self=this;
- for(var i=0;i<self['@elements'].length;i++) {
- if(self['@elements'][i] == anObject) {
- self['@elements'].splice(i,1);
- break;
- }
- }
- ;
- return self;},
- args: ["anObject"],
- source: unescape('remove%3A%20anObject%0A%09%3C%0A%09%09for%28var%20i%3D0%3Bi%3Cself%5B%27@elements%27%5D.length%3Bi++%29%20%7B%0A%09%09%09if%28self%5B%27@elements%27%5D%5Bi%5D%20%3D%3D%20anObject%29%20%7B%0A%09%09%09%09self%5B%27@elements%27%5D.splice%28i%2C1%29%3B%0A%09%09%09%09break%3B%0A%09%09%09%7D%0A%09%09%7D%0A%09%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_sorted'),
- smalltalk.method({
- selector: unescape('sorted'),
- category: 'enumerating',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_copy", []), "_sort", []);
- return self;},
- args: [],
- source: unescape('sorted%0A%09%5Eself%20copy%20sort'),
- messageSends: ["sort", "copy"],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_sorted_'),
- smalltalk.method({
- selector: unescape('sorted%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_copy", []), "_sort_", [aBlock]);
- return self;},
- args: ["aBlock"],
- source: unescape('sorted%3A%20aBlock%0A%09%5Eself%20copy%20sort%3A%20aBlock'),
- messageSends: ["sort:", "copy"],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_removeFrom_to_'),
- smalltalk.method({
- selector: unescape('removeFrom%3Ato%3A'),
- category: 'adding/removing',
- fn: function (aNumber, anotherNumber){
- var self=this;
- self['@elements'].splice(aNumber - 1,anotherNumber - 1);
- return self;},
- args: ["aNumber", "anotherNumber"],
- source: unescape('removeFrom%3A%20aNumber%20to%3A%20anotherNumber%0A%09%3Cself%5B%27@elements%27%5D.splice%28aNumber%20-%201%2CanotherNumber%20-%201%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_reversed'),
- smalltalk.method({
- selector: unescape('reversed'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(smalltalk.send(self, "_asArray", []), "_reversed", []), "_asOrderedCollection", []);
- return self;},
- args: [],
- source: unescape('reversed%0A%09%5Eself%20asArray%20reversed%20asOrderedCollection'),
- messageSends: ["asOrderedCollection", "reversed", "asArray"],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_initialize'),
- smalltalk.method({
- selector: unescape('initialize'),
- category: 'initialization',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_initialize", [], smalltalk.SequenceableCollection);
- (self['@elements']=[]);
- return self;},
- args: [],
- source: unescape('initialize%0A%09super%20initialize.%0A%09elements%20%3A%3D%20%23%28%29'),
- messageSends: ["initialize"],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_withIndexDo_'),
- smalltalk.method({
- selector: unescape('withIndexDo%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(self['@elements'], "_withIndexDo_", [aBlock]);
- return self;},
- args: ["aBlock"],
- source: unescape('withIndexDo%3A%20aBlock%0A%09elements%20withIndexDo%3A%20aBlock'),
- messageSends: ["withIndexDo:"],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_detect_ifNone_'),
- smalltalk.method({
- selector: unescape('detect%3AifNone%3A'),
- category: 'enumerating',
- fn: function (aBlock, anotherBlock){
- var self=this;
- return smalltalk.send(self['@elements'], "_detect_ifNone_", [aBlock, anotherBlock]);
- return self;},
- args: ["aBlock", "anotherBlock"],
- source: unescape('detect%3A%20aBlock%20ifNone%3A%20anotherBlock%0A%09%5Eelements%20detect%3A%20aBlock%20ifNone%3A%20anotherBlock'),
- messageSends: ["detect:ifNone:"],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_do_'),
- smalltalk.method({
- selector: unescape('do%3A'),
- category: 'enumerating',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(self['@elements'], "_do_", [aBlock]);
- return self;},
- args: ["aBlock"],
- source: unescape('do%3A%20aBlock%0A%09elements%20do%3A%20aBlock'),
- messageSends: ["do:"],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_asOrderedCollection'),
- smalltalk.method({
- selector: unescape('asOrderedCollection'),
- category: 'converting',
- fn: function (){
- var self=this;
- return self;
- return self;},
- args: [],
- source: unescape('asOrderedCollection%0A%09%5Eself'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- unescape('_asArray'),
- smalltalk.method({
- selector: unescape('asArray'),
- category: 'converting',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@elements'], "_copy", []);
- return self;},
- args: [],
- source: unescape('asArray%0A%09%5Eelements%20copy'),
- messageSends: ["copy"],
- referencedClasses: []
- }),
- smalltalk.OrderedCollection);
- smalltalk.addPackage('Kernel-Exceptions', {});
- smalltalk.addClass('Error', smalltalk.Object, ['messageText'], 'Kernel-Exceptions');
- smalltalk.addMethod(
- unescape('_messageText'),
- smalltalk.method({
- selector: unescape('messageText'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@messageText'];
- return self;},
- args: [],
- source: unescape('messageText%0A%09%5EmessageText'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Error);
- smalltalk.addMethod(
- unescape('_messageText_'),
- smalltalk.method({
- selector: unescape('messageText%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- (self['@messageText']=aString);
- return self;},
- args: ["aString"],
- source: unescape('messageText%3A%20aString%0A%09messageText%20%3A%3D%20aString'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Error);
- smalltalk.addMethod(
- unescape('_signal'),
- smalltalk.method({
- selector: unescape('signal'),
- category: 'signaling',
- fn: function (){
- var self=this;
- self.context = smalltalk.getThisContext(); self.smalltalkError = true; throw(self);
- return self;},
- args: [],
- source: unescape('signal%0A%09%3Cself.context%20%3D%20smalltalk.getThisContext%28%29%3B%20self.smalltalkError%20%3D%20true%3B%20throw%28self%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Error);
- smalltalk.addMethod(
- unescape('_context'),
- smalltalk.method({
- selector: unescape('context'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.context;
- return self;},
- args: [],
- source: unescape('context%0A%09%3Creturn%20self.context%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Error);
- smalltalk.addMethod(
- unescape('_jsStack'),
- smalltalk.method({
- selector: unescape('jsStack'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self.stack;
- return self;},
- args: [],
- source: unescape('jsStack%0A%09%3Creturn%20self.stack%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Error);
- smalltalk.addMethod(
- unescape('_isSmalltalkError'),
- smalltalk.method({
- selector: unescape('isSmalltalkError'),
- category: 'testing',
- fn: function (){
- var self=this;
- return self.smalltalkError === true;
- return self;},
- args: [],
- source: unescape('isSmalltalkError%0A%09%3Creturn%20self.smalltalkError%20%3D%3D%3D%20true%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Error);
- smalltalk.addMethod(
- unescape('_signal_'),
- smalltalk.method({
- selector: unescape('signal%3A'),
- category: 'instance creation',
- fn: function (aString){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_messageText_", [aString]);return smalltalk.send($rec, "_signal", []);})(smalltalk.send(self, "_new", []));
- return self;},
- args: ["aString"],
- source: unescape('signal%3A%20aString%0A%09%20%20%20%20%5Eself%20new%0A%09%09messageText%3A%20aString%3B%0A%09%09signal'),
- messageSends: ["messageText:", "signal", "new"],
- referencedClasses: []
- }),
- smalltalk.Error.klass);
- smalltalk.addClass('MessageNotUnderstood', smalltalk.Error, ['message', 'receiver'], 'Kernel-Exceptions');
- smalltalk.addMethod(
- unescape('_message'),
- smalltalk.method({
- selector: unescape('message'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@message'];
- return self;},
- args: [],
- source: unescape('message%0A%09%5Emessage'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.MessageNotUnderstood);
- smalltalk.addMethod(
- unescape('_message_'),
- smalltalk.method({
- selector: unescape('message%3A'),
- category: 'accessing',
- fn: function (aMessage){
- var self=this;
- (self['@message']=aMessage);
- return self;},
- args: ["aMessage"],
- source: unescape('message%3A%20aMessage%0A%09message%20%3A%3D%20aMessage'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.MessageNotUnderstood);
- smalltalk.addMethod(
- unescape('_receiver'),
- smalltalk.method({
- selector: unescape('receiver'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@receiver'];
- return self;},
- args: [],
- source: unescape('receiver%0A%09%5Ereceiver'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.MessageNotUnderstood);
- smalltalk.addMethod(
- unescape('_receiver_'),
- smalltalk.method({
- selector: unescape('receiver%3A'),
- category: 'accessing',
- fn: function (anObject){
- var self=this;
- (self['@receiver']=anObject);
- return self;},
- args: ["anObject"],
- source: unescape('receiver%3A%20anObject%0A%09receiver%20%3A%3D%20anObject'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.MessageNotUnderstood);
- smalltalk.addMethod(
- unescape('_messageText'),
- smalltalk.method({
- selector: unescape('messageText'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_receiver", []), "_asString", []), "__comma", [unescape("%20does%20not%20understand%20%23")]), "__comma", [smalltalk.send(smalltalk.send(self, "_message", []), "_selector", [])]);
- return self;},
- args: [],
- source: unescape('messageText%0A%09%5Eself%20receiver%20asString%2C%20%27%20does%20not%20understand%20%23%27%2C%20self%20message%20selector'),
- messageSends: [unescape("%2C"), "asString", "receiver", "selector", "message"],
- referencedClasses: []
- }),
- smalltalk.MessageNotUnderstood);
- smalltalk.addClass('ErrorHandler', smalltalk.Object, [], 'Kernel-Exceptions');
- smalltalk.addMethod(
- unescape('_handleError_'),
- smalltalk.method({
- selector: unescape('handleError%3A'),
- category: 'error handling',
- fn: function (anError){
- var self=this;
- (($receiver = smalltalk.send(anError, "_context", [])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(self, "_logErrorContext_", [smalltalk.send(anError, "_context", [])]);})() : nil;
- smalltalk.send(self, "_logError_", [anError]);
- return self;},
- args: ["anError"],
- source: unescape('handleError%3A%20anError%0A%09anError%20context%20ifNotNil%3A%20%5Bself%20logErrorContext%3A%20anError%20context%5D.%0A%09self%20logError%3A%20anError'),
- messageSends: ["ifNotNil:", "context", "logErrorContext:", "logError:"],
- referencedClasses: []
- }),
- smalltalk.ErrorHandler);
- smalltalk.addMethod(
- unescape('_logContext_'),
- smalltalk.method({
- selector: unescape('logContext%3A'),
- category: 'private',
- fn: function (aContext){
- var self=this;
- (($receiver = smalltalk.send(aContext, "_home", [])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(self, "_logContext_", [smalltalk.send(aContext, "_home", [])]);})() : nil;
- smalltalk.send(self, "_log_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aContext, "_receiver", []), "_asString", []), "__comma", [unescape("%3E%3E")]), "__comma", [smalltalk.send(aContext, "_selector", [])])]);
- return self;},
- args: ["aContext"],
- source: unescape('logContext%3A%20aContext%0A%09aContext%20home%20ifNotNil%3A%20%5B%0A%09%09self%20logContext%3A%20aContext%20home%5D.%0A%09self%20log%3A%20aContext%20receiver%20asString%2C%20%27%3E%3E%27%2C%20aContext%20selector'),
- messageSends: ["ifNotNil:", "home", "logContext:", "log:", unescape("%2C"), "asString", "receiver", "selector"],
- referencedClasses: []
- }),
- smalltalk.ErrorHandler);
- smalltalk.addMethod(
- unescape('_logErrorContext_'),
- smalltalk.method({
- selector: unescape('logErrorContext%3A'),
- category: 'private',
- fn: function (aContext){
- var self=this;
- (($receiver = aContext) != nil && $receiver != undefined) ? (function(){return (($receiver = smalltalk.send(aContext, "_home", [])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(self, "_logContext_", [smalltalk.send(aContext, "_home", [])]);})() : nil;})() : nil;
- return self;},
- args: ["aContext"],
- source: unescape('logErrorContext%3A%20aContext%0A%09aContext%20ifNotNil%3A%20%5B%0A%09%09aContext%20home%20ifNotNil%3A%20%5B%0A%09%09%09self%20logContext%3A%20aContext%20home%5D%5D'),
- messageSends: ["ifNotNil:", "home", "logContext:"],
- referencedClasses: []
- }),
- smalltalk.ErrorHandler);
- smalltalk.addMethod(
- unescape('_logError_'),
- smalltalk.method({
- selector: unescape('logError%3A'),
- category: 'private',
- fn: function (anError){
- var self=this;
- smalltalk.send(self, "_log_", [smalltalk.send(anError, "_messageText", [])]);
- return self;},
- args: ["anError"],
- source: unescape('logError%3A%20anError%0A%09self%20log%3A%20anError%20messageText'),
- messageSends: ["log:", "messageText"],
- referencedClasses: []
- }),
- smalltalk.ErrorHandler);
- smalltalk.addMethod(
- unescape('_log_'),
- smalltalk.method({
- selector: unescape('log%3A'),
- category: 'private',
- fn: function (aString){
- var self=this;
- smalltalk.send((typeof console == 'undefined' ? nil : console), "_log_", [aString]);
- return self;},
- args: ["aString"],
- source: unescape('log%3A%20aString%0A%09console%20log%3A%20aString'),
- messageSends: ["log:"],
- referencedClasses: []
- }),
- smalltalk.ErrorHandler);
- smalltalk.ErrorHandler.klass.iVarNames = ['current'];
- smalltalk.addMethod(
- unescape('_current'),
- smalltalk.method({
- selector: unescape('current'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = self['@current']) == nil || $receiver == undefined) ? (function(){return (self['@current']=smalltalk.send(self, "_new", []));})() : $receiver;
- return self;},
- args: [],
- source: unescape('current%0A%09%5Ecurrent%20ifNil%3A%20%5Bcurrent%20%3A%3D%20self%20new%5D'),
- messageSends: ["ifNil:", "new"],
- referencedClasses: []
- }),
- smalltalk.ErrorHandler.klass);
- smalltalk.addMethod(
- unescape('_initialize'),
- smalltalk.method({
- selector: unescape('initialize'),
- category: 'initialization',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_register", []);
- return self;},
- args: [],
- source: unescape('initialize%0A%09self%20register'),
- messageSends: ["register"],
- referencedClasses: []
- }),
- smalltalk.ErrorHandler.klass);
- smalltalk.addMethod(
- unescape('_register'),
- smalltalk.method({
- selector: unescape('register'),
- category: 'initialization',
- fn: function (){
- var self=this;
- smalltalk.send((smalltalk.ErrorHandler || ErrorHandler), "_setCurrent_", [smalltalk.send(self, "_new", [])]);
- return self;},
- args: [],
- source: unescape('register%0A%09ErrorHandler%20setCurrent%3A%20self%20new'),
- messageSends: ["setCurrent:", "new"],
- referencedClasses: ["ErrorHandler"]
- }),
- smalltalk.ErrorHandler.klass);
- smalltalk.addMethod(
- unescape('_setCurrent_'),
- smalltalk.method({
- selector: unescape('setCurrent%3A'),
- category: 'accessing',
- fn: function (anHandler){
- var self=this;
- (self['@current']=anHandler);
- return self;},
- args: ["anHandler"],
- source: unescape('setCurrent%3A%20anHandler%0A%09current%20%3A%3D%20anHandler'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ErrorHandler.klass);
- smalltalk.addPackage('Kernel-Transcript', {});
- smalltalk.addClass('Transcript', smalltalk.Object, ['textarea'], 'Kernel-Transcript');
- smalltalk.Transcript.klass.iVarNames = ['current'];
- smalltalk.addMethod(
- unescape('_open'),
- smalltalk.method({
- selector: unescape('open'),
- category: 'instance creation',
- fn: function (){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_current", []), "_open", []);
- return self;},
- args: [],
- source: unescape('open%0A%20%20%20%20self%20current%20open'),
- messageSends: ["open", "current"],
- referencedClasses: []
- }),
- smalltalk.Transcript.klass);
- smalltalk.addMethod(
- unescape('_new'),
- smalltalk.method({
- selector: unescape('new'),
- category: 'instance creation',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_shouldNotImplement", []);
- return self;},
- args: [],
- source: unescape('new%0A%20%20%20%20self%20shouldNotImplement'),
- messageSends: ["shouldNotImplement"],
- referencedClasses: []
- }),
- smalltalk.Transcript.klass);
- smalltalk.addMethod(
- unescape('_current'),
- smalltalk.method({
- selector: unescape('current'),
- category: 'instance creation',
- fn: function (){
- var self=this;
- return self['@current'];
- return self;},
- args: [],
- source: unescape('current%0A%20%20%20%20%5Ecurrent'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Transcript.klass);
- smalltalk.addMethod(
- unescape('_show_'),
- smalltalk.method({
- selector: unescape('show%3A'),
- category: 'printing',
- fn: function (anObject){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_current", []), "_show_", [anObject]);
- return self;},
- args: ["anObject"],
- source: unescape('show%3A%20anObject%0A%20%20%20%20self%20current%20show%3A%20anObject'),
- messageSends: ["show:", "current"],
- referencedClasses: []
- }),
- smalltalk.Transcript.klass);
- smalltalk.addMethod(
- unescape('_cr'),
- smalltalk.method({
- selector: unescape('cr'),
- category: 'printing',
- fn: function (){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_current", []), "_show_", [smalltalk.send((smalltalk.String || String), "_cr", [])]);
- return self;},
- args: [],
- source: unescape('cr%0A%20%20%20%20self%20current%20show%3A%20String%20cr'),
- messageSends: ["show:", "current", "cr"],
- referencedClasses: ["String"]
- }),
- smalltalk.Transcript.klass);
- smalltalk.addMethod(
- unescape('_clear'),
- smalltalk.method({
- selector: unescape('clear'),
- category: 'printing',
- fn: function (){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_current", []), "_clear", []);
- return self;},
- args: [],
- source: unescape('clear%0A%20%20%20%20self%20current%20clear'),
- messageSends: ["clear", "current"],
- referencedClasses: []
- }),
- smalltalk.Transcript.klass);
- smalltalk.addMethod(
- unescape('_register_'),
- smalltalk.method({
- selector: unescape('register%3A'),
- category: 'instance creation',
- fn: function (aTranscript){
- var self=this;
- (self['@current']=aTranscript);
- return self;},
- args: ["aTranscript"],
- source: unescape('register%3A%20aTranscript%0A%09current%20%3A%3D%20aTranscript'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Transcript.klass);
- smalltalk.addClass('ConsoleTranscript', smalltalk.Object, ['textarea'], 'Kernel-Transcript');
- smalltalk.addMethod(
- unescape('_clear'),
- smalltalk.method({
- selector: unescape('clear'),
- category: 'printing',
- fn: function (){
- var self=this;
- return self;},
- args: [],
- source: unescape('clear%0A%09%22no%20op%22'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ConsoleTranscript);
- smalltalk.addMethod(
- unescape('_cr'),
- smalltalk.method({
- selector: unescape('cr'),
- category: 'printing',
- fn: function (){
- var self=this;
- return self;},
- args: [],
- source: unescape('cr%0A%09%22no%20op%22'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ConsoleTranscript);
- smalltalk.addMethod(
- unescape('_show_'),
- smalltalk.method({
- selector: unescape('show%3A'),
- category: 'printing',
- fn: function (anObject){
- var self=this;
- var string=nil;
- (string=smalltalk.send(anObject, "_asString", []));
- console.log(String(string));
- return self;},
- args: ["anObject"],
- source: unescape('show%3A%20anObject%0A%09%7C%20string%20%7C%0A%09string%20%3A%3D%20anObject%20asString.%0A%09%3Cconsole.log%28String%28string%29%29%3E'),
- messageSends: ["asString"],
- referencedClasses: []
- }),
- smalltalk.ConsoleTranscript);
- smalltalk.addMethod(
- unescape('_open'),
- smalltalk.method({
- selector: unescape('open'),
- category: 'actions',
- fn: function (){
- var self=this;
- return self;},
- args: [],
- source: unescape('open'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ConsoleTranscript);
- smalltalk.addMethod(
- unescape('_initialize'),
- smalltalk.method({
- selector: unescape('initialize'),
- category: 'initialization',
- fn: function (){
- var self=this;
- smalltalk.send((smalltalk.Transcript || Transcript), "_register_", [smalltalk.send(self, "_new", [])]);
- return self;},
- args: [],
- source: unescape('initialize%0A%09Transcript%20register%3A%20self%20new'),
- messageSends: ["register:", "new"],
- referencedClasses: ["Transcript"]
- }),
- smalltalk.ConsoleTranscript.klass);
- smalltalk.addPackage('Compiler', {});
- smalltalk.addClass('ChunkParser', smalltalk.Object, ['stream'], 'Compiler');
- smalltalk.addMethod(
- unescape('_stream_'),
- smalltalk.method({
- selector: unescape('stream%3A'),
- category: 'accessing',
- fn: function (aStream){
- var self=this;
- (self['@stream']=aStream);
- return self;},
- args: ["aStream"],
- source: unescape('stream%3A%20aStream%0A%09stream%20%3A%3D%20aStream'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ChunkParser);
- smalltalk.addMethod(
- unescape('_nextChunk'),
- smalltalk.method({
- selector: unescape('nextChunk'),
- category: 'reading',
- fn: function (){
- var self=this;
- try{var char_=nil;
- var result=nil;
- var chunk=nil;
- (result=smalltalk.send("", "_writeStream", []));
- (function(){while((function(){(char_=smalltalk.send(self['@stream'], "_next", []));return smalltalk.send(char_, "_notNil", []);})()) {(function(){((($receiver = smalltalk.send(char_, "__eq", [unescape("%21")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(self['@stream'], "_peek", []), "__eq", [unescape("%21")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_next", []);})() : (function(){return (function(){throw({name: 'stReturn', selector: '_nextChunk', fn: function(){return smalltalk.send(smalltalk.send(result, "_contents", []), "_trimBoth", [])}})})();})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_next", []);}), (function(){return (function(){throw({name: 'stReturn', selector: '_nextChunk', fn: function(){return smalltalk.send(smalltalk.send(result, "_contents", []), "_trimBoth", [])}})})();})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(self['@stream'], "_peek", []), "__eq", [unescape("%21")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_next", []);})() : (function(){return (function(){throw({name: 'stReturn', selector: '_nextChunk', fn: function(){return smalltalk.send(smalltalk.send(result, "_contents", []), "_trimBoth", [])}})})();})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_next", []);}), (function(){return (function(){throw({name: 'stReturn', selector: '_nextChunk', fn: function(){return smalltalk.send(smalltalk.send(result, "_contents", []), "_trimBoth", [])}})})();})]));})]));return smalltalk.send(result, "_nextPut_", [char_]);})()}})();
- (function(){throw({name: 'stReturn', selector: '_nextChunk', fn: function(){return nil}})})();
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '_nextChunk'){return e.fn()} throw(e)}},
- args: [],
- source: unescape('nextChunk%0A%09%22The%20chunk%20format%20%28Smalltalk%20Interchange%20Format%20or%20Fileout%20format%29%0A%09is%20a%20trivial%20format%20but%20can%20be%20a%20bit%20tricky%20to%20understand%3A%0A%09%09-%20Uses%20the%20exclamation%20mark%20as%20delimiter%20of%20chunks.%0A%09%09-%20Inside%20a%20chunk%20a%20normal%20exclamation%20mark%20must%20be%20doubled.%0A%09%09-%20A%20non%20empty%20chunk%20must%20be%20a%20valid%20Smalltalk%20expression.%0A%09%09-%20A%20chunk%20on%20top%20level%20with%20a%20preceding%20empty%20chunk%20is%20an%20instruction%20chunk%3A%0A%09%09%09-%20The%20object%20created%20by%20the%20expression%20then%20takes%20over%20reading%20chunks.%0A%0A%09This%20metod%20returns%20next%20chunk%20as%20a%20String%20%28trimmed%29%2C%20empty%20String%20%28all%20whitespace%29%20or%20nil.%22%0A%0A%09%7C%20char%20result%20chunk%20%7C%0A%09result%20%3A%3D%20%27%27%20writeStream.%0A%20%20%20%20%20%20%20%20%5Bchar%20%3A%3D%20stream%20next.%0A%20%20%20%20%20%20%20%20char%20notNil%5D%20whileTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20char%20%3D%20%27%21%27%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20peek%20%3D%20%27%21%27%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ifTrue%3A%20%5Bstream%20next%20%22skipping%20the%20escape%20double%22%5D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ifFalse%3A%20%5B%5Eresult%20contents%20trimBoth%20%20%22chunk%20end%20marker%20found%22%5D%5D.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20result%20nextPut%3A%20char%5D.%0A%09%5Enil%20%22a%20chunk%20needs%20to%20end%20with%20%21%22'),
- messageSends: ["writeStream", "whileTrue:", "next", "notNil", "ifTrue:", unescape("%3D"), "ifTrue:ifFalse:", "peek", "trimBoth", "contents", "nextPut:"],
- referencedClasses: []
- }),
- smalltalk.ChunkParser);
- smalltalk.addMethod(
- unescape('_on_'),
- smalltalk.method({
- selector: unescape('on%3A'),
- category: 'not yet classified',
- fn: function (aStream){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_new", []), "_stream_", [aStream]);
- return self;},
- args: ["aStream"],
- source: unescape('on%3A%20aStream%0A%09%5Eself%20new%20stream%3A%20aStream'),
- messageSends: ["stream:", "new"],
- referencedClasses: []
- }),
- smalltalk.ChunkParser.klass);
- smalltalk.addClass('Importer', smalltalk.Object, [], 'Compiler');
- smalltalk.addMethod(
- unescape('_import_'),
- smalltalk.method({
- selector: unescape('import%3A'),
- category: 'fileIn',
- fn: function (aStream){
- var self=this;
- var chunk=nil;
- var result=nil;
- var parser=nil;
- var lastEmpty=nil;
- (parser=smalltalk.send((smalltalk.ChunkParser || ChunkParser), "_on_", [aStream]));
- (lastEmpty=false);
- (function(){while(!(function(){(chunk=smalltalk.send(parser, "_nextChunk", []));return smalltalk.send(chunk, "_isNil", []);})()) {(function(){return ((($receiver = smalltalk.send(chunk, "_isEmpty", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (lastEmpty=true);})() : (function(){(result=smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler), "_new", []), "_loadExpression_", [chunk]));return ((($receiver = lastEmpty).klass === smalltalk.Boolean) ? ($receiver ? (function(){(lastEmpty=false);return smalltalk.send(result, "_scanFrom_", [parser]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){(lastEmpty=false);return smalltalk.send(result, "_scanFrom_", [parser]);})]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return (lastEmpty=true);}), (function(){(result=smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler), "_new", []), "_loadExpression_", [chunk]));return ((($receiver = lastEmpty).klass === smalltalk.Boolean) ? ($receiver ? (function(){(lastEmpty=false);return smalltalk.send(result, "_scanFrom_", [parser]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){(lastEmpty=false);return smalltalk.send(result, "_scanFrom_", [parser]);})]));})]));})()}})();
- return self;},
- args: ["aStream"],
- source: unescape('import%3A%20aStream%0A%20%20%20%20%7C%20chunk%20result%20parser%20lastEmpty%20%7C%0A%20%20%20%20parser%20%3A%3D%20ChunkParser%20on%3A%20aStream.%0A%20%20%20%20lastEmpty%20%3A%3D%20false.%0A%20%20%20%20%5Bchunk%20%3A%3D%20parser%20nextChunk.%0A%20%20%20%20%20chunk%20isNil%5D%20whileFalse%3A%20%5B%0A%20%20%20%20%20%20%20%20chunk%20isEmpty%0A%20%20%20%20%20%20%20%09%09ifTrue%3A%20%5BlastEmpty%20%3A%3D%20true%5D%0A%20%20%20%20%20%20%20%09%09ifFalse%3A%20%5B%0A%20%20%20%20%20%20%20%20%09%09result%20%3A%3D%20Compiler%20new%20loadExpression%3A%20chunk.%0A%20%20%20%20%20%20%20%20%09%09lastEmpty%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%09%09%09ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09lastEmpty%20%3A%3D%20false.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09result%20scanFrom%3A%20parser%5D%5D%5D'),
- messageSends: ["on:", "whileFalse:", "nextChunk", "isNil", "ifTrue:ifFalse:", "isEmpty", "loadExpression:", "new", "ifTrue:", "scanFrom:"],
- referencedClasses: ["ChunkParser", "Compiler"]
- }),
- smalltalk.Importer);
- smalltalk.addClass('Exporter', smalltalk.Object, [], 'Compiler');
- smalltalk.addMethod(
- unescape('_exportDefinitionOf_on_'),
- smalltalk.method({
- selector: unescape('exportDefinitionOf%3Aon%3A'),
- category: 'private',
- fn: function (aClass, aStream){
- var self=this;
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.addClass%28")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])]), "__comma", [unescape("%27%2C%20")])]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("smalltalk.", "__comma", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_superclass", [])])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%2C%20%5B")]);})(aStream);
- smalltalk.send(smalltalk.send(aClass, "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [each]), "__comma", [unescape("%27")])]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [unescape("%2C%20")]);})]);
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%5D%2C%20%27")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(aClass, "_category", []), "__comma", [unescape("%27")])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%29%3B")]);})(aStream);
- ((($receiver = smalltalk.send(smalltalk.send(aClass, "_comment", []), "_notEmpty", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (function($rec){smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", ["smalltalk."]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_classNameFor_", [aClass])]);smalltalk.send($rec, "_nextPutAll_", [unescape(".comment%3D")]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("unescape%28%27"), "__comma", [smalltalk.send(smalltalk.send(aClass, "_comment", []), "_escaped", [])]), "__comma", [unescape("%27%29")])]);})(aStream);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return (function($rec){smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", ["smalltalk."]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_classNameFor_", [aClass])]);smalltalk.send($rec, "_nextPutAll_", [unescape(".comment%3D")]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("unescape%28%27"), "__comma", [smalltalk.send(smalltalk.send(aClass, "_comment", []), "_escaped", [])]), "__comma", [unescape("%27%29")])]);})(aStream);})]));
- smalltalk.send(aStream, "_lf", []);
- return self;},
- args: ["aClass", "aStream"],
- source: unescape('exportDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%09aStream%20%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.addClass%28%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%27%27%27%2C%20%28self%20classNameFor%3A%20aClass%29%2C%20%27%27%27%2C%20%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.%27%2C%20%28self%20classNameFor%3A%20aClass%20superclass%29%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%2C%20%5B%27.%0A%09aClass%20instanceVariableNames%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20%27%27%27%27%2C%20each%2C%20%27%27%27%27%5D%0A%09%20%20%20%20separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%09aStream%09%0A%09%20%20%20%20nextPutAll%3A%20%27%5D%2C%20%27%27%27%3B%0A%09%20%20%20%20nextPutAll%3A%20aClass%20category%2C%20%27%27%27%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%29%3B%27.%0A%09aClass%20comment%20notEmpty%20ifTrue%3A%20%5B%0A%09%20%20%20%20aStream%20%0A%09%20%20%20%20%09lf%3B%0A%09%09nextPutAll%3A%20%27smalltalk.%27%3B%0A%09%09nextPutAll%3A%20%28self%20classNameFor%3A%20aClass%29%3B%0A%09%09nextPutAll%3A%20%27.comment%3D%27%3B%0A%09%09nextPutAll%3A%20%27unescape%28%27%27%27%2C%20aClass%20comment%20escaped%2C%20%27%27%27%29%27%5D.%0A%09aStream%20lf'),
- messageSends: ["nextPutAll:", unescape("%2C"), "classNameFor:", "superclass", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "notEmpty", "comment", "lf", "escaped"],
- referencedClasses: []
- }),
- smalltalk.Exporter);
- smalltalk.addMethod(
- unescape('_exportMetaDefinitionOf_on_'),
- smalltalk.method({
- selector: unescape('exportMetaDefinitionOf%3Aon%3A'),
- category: 'private',
- fn: function (aClass, aStream){
- var self=this;
- ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_isEmpty", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("smalltalk.", "__comma", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_class", [])])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape(".iVarNames%20%3D%20%5B")]);})(aStream);smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [each]), "__comma", [unescape("%27")])]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [unescape("%2C")]);})]);return smalltalk.send(aStream, "_nextPutAll_", [smalltalk.send(unescape("%5D%3B"), "__comma", [smalltalk.send((smalltalk.String || String), "_lf", [])])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("smalltalk.", "__comma", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_class", [])])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape(".iVarNames%20%3D%20%5B")]);})(aStream);smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [each]), "__comma", [unescape("%27")])]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [unescape("%2C")]);})]);return smalltalk.send(aStream, "_nextPutAll_", [smalltalk.send(unescape("%5D%3B"), "__comma", [smalltalk.send((smalltalk.String || String), "_lf", [])])]);})]));
- return self;},
- args: ["aClass", "aStream"],
- source: unescape('exportMetaDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%09aClass%20class%20instanceVariableNames%20isEmpty%20ifFalse%3A%20%5B%0A%09%20%20%20%20aStream%20%0A%09%09nextPutAll%3A%20%27smalltalk.%27%2C%20%28self%20classNameFor%3A%20aClass%20class%29%3B%0A%09%09nextPutAll%3A%20%27.iVarNames%20%3D%20%5B%27.%0A%09%20%20%20%20aClass%20class%20instanceVariableNames%0A%09%09do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20%27%27%27%27%2C%20each%2C%20%27%27%27%27%5D%0A%09%09separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%2C%27%5D.%0A%09%20%20%20%20aStream%20nextPutAll%3A%20%27%5D%3B%27%2C%20String%20lf%5D'),
- messageSends: ["ifFalse:", "isEmpty", "instanceVariableNames", "class", "nextPutAll:", unescape("%2C"), "classNameFor:", "do:separatedBy:", "lf"],
- referencedClasses: ["String"]
- }),
- smalltalk.Exporter);
- smalltalk.addMethod(
- unescape('_exportMethodsOf_on_'),
- smalltalk.method({
- selector: unescape('exportMethodsOf%3Aon%3A'),
- category: 'private',
- fn: function (aClass, aStream){
- var self=this;
- smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_methodDictionary", []), "_values", []), "_do_", [(function(each){return ((($receiver = smalltalk.send(smalltalk.send(each, "_category", []), "_match_", [unescape("%5E%5C*")])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_exportMethod_of_on_", [each, aClass, aStream]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_exportMethod_of_on_", [each, aClass, aStream]);})]));})]);
- smalltalk.send(aStream, "_lf", []);
- return self;},
- args: ["aClass", "aStream"],
- source: unescape('exportMethodsOf%3A%20aClass%20on%3A%20aStream%0A%09aClass%20methodDictionary%20values%20do%3A%20%5B%3Aeach%20%7C%0A%09%09%28each%20category%20match%3A%20%27%5E%5C*%27%29%20ifFalse%3A%20%5B%0A%09%09%09self%20exportMethod%3A%20each%20of%3A%20aClass%20on%3A%20aStream%5D%5D.%0A%09aStream%20lf'),
- messageSends: ["do:", "values", "methodDictionary", "ifFalse:", "match:", "category", "exportMethod:of:on:", "lf"],
- referencedClasses: []
- }),
- smalltalk.Exporter);
- smalltalk.addMethod(
- unescape('_classNameFor_'),
- smalltalk.method({
- selector: unescape('classNameFor%3A'),
- category: 'private',
- fn: function (aClass){
- var self=this;
- return ((($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [".klass"]);})() : (function(){return ((($receiver = smalltalk.send(aClass, "_isNil", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "nil";})() : (function(){return smalltalk.send(aClass, "_name", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [".klass"]);}), (function(){return ((($receiver = smalltalk.send(aClass, "_isNil", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "nil";})() : (function(){return smalltalk.send(aClass, "_name", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]));})]));
- return self;},
- args: ["aClass"],
- source: unescape('classNameFor%3A%20aClass%0A%09%5EaClass%20isMetaclass%0A%09%20%20%20%20ifTrue%3A%20%5BaClass%20instanceClass%20name%2C%20%27.klass%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09aClass%20isNil%0A%09%09%20%20%20%20ifTrue%3A%20%5B%27nil%27%5D%0A%09%09%20%20%20%20ifFalse%3A%20%5BaClass%20name%5D%5D'),
- messageSends: ["ifTrue:ifFalse:", "isMetaclass", unescape("%2C"), "name", "instanceClass", "isNil"],
- referencedClasses: []
- }),
- smalltalk.Exporter);
- smalltalk.addMethod(
- unescape('_exportMethod_of_on_'),
- smalltalk.method({
- selector: unescape('exportMethod%3Aof%3Aon%3A'),
- category: 'private',
- fn: function (aMethod, aClass, aStream){
- var self=this;
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.addMethod%28")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("unescape%28%27"), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send(aMethod, "_selector", []), "_asSelector", []), "_escaped", [])]), "__comma", [unescape("%27%29%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.method%28%7B")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("selector%3A%20unescape%28%27"), "__comma", [smalltalk.send(smalltalk.send(aMethod, "_selector", []), "_escaped", [])]), "__comma", [unescape("%27%29%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("category%3A%20%27"), "__comma", [smalltalk.send(aMethod, "_category", [])]), "__comma", [unescape("%27%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("fn: ", "__comma", [smalltalk.send(smalltalk.send(aMethod, "_fn", []), "_compiledSource", [])]), "__comma", [unescape("%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("args: ", "__comma", [smalltalk.send(smalltalk.send(aMethod, "_arguments", []), "_asJavascript", [])]), "__comma", [unescape("%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("source%3A%20unescape%28%27"), "__comma", [smalltalk.send(smalltalk.send(aMethod, "_source", []), "_escaped", [])]), "__comma", [unescape("%27%29%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("messageSends: ", "__comma", [smalltalk.send(smalltalk.send(aMethod, "_messageSends", []), "_asJavascript", [])]), "__comma", [unescape("%2C")])]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("referencedClasses: ", "__comma", [smalltalk.send(smalltalk.send(aMethod, "_referencedClasses", []), "_asJavascript", [])])]);})(aStream);
- (function($rec){smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [unescape("%7D%29%2C")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("smalltalk.", "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])])]);smalltalk.send($rec, "_nextPutAll_", [unescape("%29%3B")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);
- return self;},
- args: ["aMethod", "aClass", "aStream"],
- source: unescape('exportMethod%3A%20aMethod%20of%3A%20aClass%20on%3A%20aStream%0A%09aStream%20%0A%09%09nextPutAll%3A%20%27smalltalk.addMethod%28%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27unescape%28%27%27%27%2C%20aMethod%20selector%20asSelector%20escaped%2C%20%27%27%27%29%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27smalltalk.method%28%7B%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27selector%3A%20unescape%28%27%27%27%2C%20aMethod%20selector%20escaped%2C%20%27%27%27%29%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27category%3A%20%27%27%27%2C%20aMethod%20category%2C%20%27%27%27%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27fn%3A%20%27%2C%20aMethod%20fn%20compiledSource%2C%20%27%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27args%3A%20%27%2C%20aMethod%20arguments%20asJavascript%2C%20%27%2C%27%3B%20lf%3B%0A%09%09nextPutAll%3A%20%27source%3A%20unescape%28%27%27%27%2C%20aMethod%20source%20escaped%2C%20%27%27%27%29%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27messageSends%3A%20%27%2C%20aMethod%20messageSends%20asJavascript%2C%20%27%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27referencedClasses%3A%20%27%2C%20aMethod%20referencedClasses%20asJavascript.%0A%09aStream%0A%09%09lf%3B%0A%09%09nextPutAll%3A%20%27%7D%29%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27smalltalk.%27%2C%20%28self%20classNameFor%3A%20aClass%29%3B%0A%09%09nextPutAll%3A%20%27%29%3B%27%3Blf%3Blf'),
- messageSends: ["nextPutAll:", "lf", unescape("%2C"), "escaped", "asSelector", "selector", "category", "compiledSource", "fn", "asJavascript", "arguments", "source", "messageSends", "referencedClasses", "classNameFor:"],
- referencedClasses: []
- }),
- smalltalk.Exporter);
- smalltalk.addMethod(
- unescape('_exportPackage_'),
- smalltalk.method({
- selector: unescape('exportPackage%3A'),
- category: 'fileOut',
- fn: function (packageName){
- var self=this;
- var package=nil;
- return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(stream){(package=smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_packageAt_", [packageName]));smalltalk.send(self, "_exportPackageDefinitionOf_on_", [package, stream]);smalltalk.send(smalltalk.send(package, "_classes", []), "_do_", [(function(each){return smalltalk.send(stream, "_nextPutAll_", [smalltalk.send(self, "_exportClass_", [each])]);})]);return smalltalk.send(self, "_exportPackageExtensionsOf_on_", [package, stream]);})]);
- return self;},
- args: ["packageName"],
- source: unescape('exportPackage%3A%20packageName%0A%09%22Export%20a%20given%20package%20by%20name.%22%0A%0A%09%7C%20package%20%7C%0A%09%5EString%20streamContents%3A%20%5B%3Astream%20%7C%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20package%20%3A%3D%20Smalltalk%20current%20packageAt%3A%20packageName.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20exportPackageDefinitionOf%3A%20package%20on%3A%20stream.%0A%09%20%20%20%20%09package%20classes%20do%3A%20%5B%3Aeach%20%7C%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%28self%20exportClass%3A%20each%29%5D.%0A%09%09self%20exportPackageExtensionsOf%3A%20package%20on%3A%20stream%5D'),
- messageSends: ["streamContents:", "packageAt:", "current", "exportPackageDefinitionOf:on:", "do:", "classes", "nextPutAll:", "exportClass:", "exportPackageExtensionsOf:on:"],
- referencedClasses: ["String", "Smalltalk"]
- }),
- smalltalk.Exporter);
- smalltalk.addMethod(
- unescape('_exportAll'),
- smalltalk.method({
- selector: unescape('exportAll'),
- category: 'fileOut',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(stream){return smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_packages", []), "_do_", [(function(pkg){return smalltalk.send(stream, "_nextPutAll_", [smalltalk.send(self, "_exportPackage_", [smalltalk.send(pkg, "_name", [])])]);})]);})]);
- return self;},
- args: [],
- source: unescape('exportAll%0A%20%20%20%20%22Export%20all%20packages%20in%20the%20system.%22%0A%0A%20%20%20%20%5EString%20streamContents%3A%20%5B%3Astream%20%7C%0A%20%20%20%20%09Smalltalk%20current%20packages%20do%3A%20%5B%3Apkg%20%7C%0A%09%09stream%20nextPutAll%3A%20%28self%20exportPackage%3A%20pkg%20name%29%5D%5D'),
- messageSends: ["streamContents:", "do:", "packages", "current", "nextPutAll:", "exportPackage:", "name"],
- referencedClasses: ["String", "Smalltalk"]
- }),
- smalltalk.Exporter);
- smalltalk.addMethod(
- unescape('_exportClass_'),
- smalltalk.method({
- selector: unescape('exportClass%3A'),
- category: 'fileOut',
- fn: function (aClass){
- var self=this;
- return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(stream){smalltalk.send(self, "_exportDefinitionOf_on_", [aClass, stream]);smalltalk.send(self, "_exportMethodsOf_on_", [aClass, stream]);smalltalk.send(self, "_exportMetaDefinitionOf_on_", [aClass, stream]);return smalltalk.send(self, "_exportMethodsOf_on_", [smalltalk.send(aClass, "_class", []), stream]);})]);
- return self;},
- args: ["aClass"],
- source: unescape('exportClass%3A%20aClass%0A%09%22Export%20a%20single%20class.%20Subclasses%20override%20these%20methods.%22%0A%0A%09%5EString%20streamContents%3A%20%5B%3Astream%20%7C%0A%09%09self%20exportDefinitionOf%3A%20aClass%20on%3A%20stream.%0A%09%09self%20exportMethodsOf%3A%20aClass%20on%3A%20stream.%0A%09%09self%20exportMetaDefinitionOf%3A%20aClass%20on%3A%20stream.%0A%09%09self%20exportMethodsOf%3A%20aClass%20class%20on%3A%20stream%5D'),
- messageSends: ["streamContents:", "exportDefinitionOf:on:", "exportMethodsOf:on:", "exportMetaDefinitionOf:on:", "class"],
- referencedClasses: ["String"]
- }),
- smalltalk.Exporter);
- smalltalk.addMethod(
- unescape('_exportPackageExtensionsOf_on_'),
- smalltalk.method({
- selector: unescape('exportPackageExtensionsOf%3Aon%3A'),
- category: 'private',
- fn: function (package, aStream){
- var self=this;
- var name=nil;
- (name=smalltalk.send(package, "_name", []));
- smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "_collect_", [(function(each){return smalltalk.send(each, "_class", []);})])]), "_do_", [(function(each){return smalltalk.send(smalltalk.send(smalltalk.send(each, "_methodDictionary", []), "_values", []), "_do_", [(function(method){return ((($receiver = smalltalk.send(smalltalk.send(method, "_category", []), "__eq", [smalltalk.send(unescape("*"), "__comma", [name])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_exportMethod_of_on_", [method, each, aStream]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self, "_exportMethod_of_on_", [method, each, aStream]);})]));})]);})]);
- return self;},
- args: ["package", "aStream"],
- source: unescape('exportPackageExtensionsOf%3A%20package%20on%3A%20aStream%0A%09%7C%20name%20%7C%0A%09name%20%3A%3D%20package%20name.%0A%09Smalltalk%20current%20classes%2C%20%28Smalltalk%20current%20classes%20collect%3A%20%5B%3Aeach%20%7C%20each%20class%5D%29%20do%3A%20%5B%3Aeach%20%7C%0A%09%09each%20methodDictionary%20values%20do%3A%20%5B%3Amethod%20%7C%0A%09%09%09method%20category%20%3D%20%28%27*%27%2C%20name%29%20ifTrue%3A%20%5B%0A%09%09%09%09self%20exportMethod%3A%20method%20of%3A%20each%20on%3A%20aStream%5D%5D%5D'),
- messageSends: ["name", "do:", unescape("%2C"), "classes", "current", "collect:", "class", "values", "methodDictionary", "ifTrue:", unescape("%3D"), "category", "exportMethod:of:on:"],
- referencedClasses: ["Smalltalk"]
- }),
- smalltalk.Exporter);
- smalltalk.addMethod(
- unescape('_exportPackageDefinitionOf_on_'),
- smalltalk.method({
- selector: unescape('exportPackageDefinitionOf%3Aon%3A'),
- category: 'private',
- fn: function (package, aStream){
- var self=this;
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.addPackage%28")]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [smalltalk.send(package, "_name", [])]), "__comma", [unescape("%27%2C%20")]), "__comma", [smalltalk.send(package, "_propertiesAsJSON", [])]), "__comma", [unescape("%29%3B")])]);})(aStream);
- smalltalk.send(aStream, "_lf", []);
- return self;},
- args: ["package", "aStream"],
- source: unescape('exportPackageDefinitionOf%3A%20package%20on%3A%20aStream%0A%09aStream%20%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.addPackage%28%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%27%27%27%2C%20package%20name%2C%20%27%27%27%2C%20%27%2C%20package%20propertiesAsJSON%20%2C%20%27%29%3B%27.%0A%09aStream%20lf'),
- messageSends: ["nextPutAll:", unescape("%2C"), "name", "propertiesAsJSON", "lf"],
- referencedClasses: []
- }),
- smalltalk.Exporter);
- smalltalk.addClass('ChunkExporter', smalltalk.Exporter, [], 'Compiler');
- smalltalk.addMethod(
- unescape('_exportDefinitionOf_on_'),
- smalltalk.method({
- selector: unescape('exportDefinitionOf%3Aon%3A'),
- category: 'not yet classified',
- fn: function (aClass, aStream){
- var self=this;
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_superclass", [])])]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(unescape("%20subclass%3A%20%23"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])])]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("%09instanceVariableNames%3A%20%27")]);})(aStream);
- smalltalk.send(smalltalk.send(aClass, "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [each]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [" "]);})]);
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%27")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%09category%3A%20%27"), "__comma", [smalltalk.send(aClass, "_category", [])]), "__comma", [unescape("%27%21")])]);return smalltalk.send($rec, "_lf", []);})(aStream);
- ((($receiver = smalltalk.send(smalltalk.send(aClass, "_comment", []), "_notEmpty", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%21"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])]), "__comma", [unescape("%20commentStamp%21")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(self, "_chunkEscape_", [smalltalk.send(aClass, "_comment", [])]), "__comma", [unescape("%21")])]);return smalltalk.send($rec, "_lf", []);})(aStream);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%21"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])]), "__comma", [unescape("%20commentStamp%21")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(self, "_chunkEscape_", [smalltalk.send(aClass, "_comment", [])]), "__comma", [unescape("%21")])]);return smalltalk.send($rec, "_lf", []);})(aStream);})]));
- smalltalk.send(aStream, "_lf", []);
- return self;},
- args: ["aClass", "aStream"],
- source: unescape('exportDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%09%22Chunk%20format.%22%0A%0A%09aStream%20%0A%09%20%20%20%20nextPutAll%3A%20%28self%20classNameFor%3A%20aClass%20superclass%29%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%20subclass%3A%20%23%27%2C%20%28self%20classNameFor%3A%20aClass%29%3B%20lf%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%09instanceVariableNames%3A%20%27%27%27.%0A%09aClass%20instanceVariableNames%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20each%5D%0A%09%20%20%20%20separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%20%27%5D.%0A%09aStream%09%0A%09%20%20%20%20nextPutAll%3A%20%27%27%27%27%3B%20lf%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%09category%3A%20%27%27%27%2C%20aClass%20category%2C%20%27%27%27%21%27%3B%20lf.%0A%20%09aClass%20comment%20notEmpty%20ifTrue%3A%20%5B%0A%09%20%20%20%20aStream%20%0A%09%09nextPutAll%3A%20%27%21%27%2C%20%28self%20classNameFor%3A%20aClass%29%2C%20%27%20commentStamp%21%27%3Blf%3B%0A%09%09nextPutAll%3A%20%28self%20chunkEscape%3A%20aClass%20comment%29%2C%20%27%21%27%3Blf%5D.%0A%09aStream%20lf'),
- messageSends: ["nextPutAll:", "classNameFor:", "superclass", unescape("%2C"), "lf", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "notEmpty", "comment", "chunkEscape:"],
- referencedClasses: []
- }),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- unescape('_exportMethod_of_on_'),
- smalltalk.method({
- selector: unescape('exportMethod%3Aof%3Aon%3A'),
- category: 'not yet classified',
- fn: function (aMethod, aClass, aStream){
- var self=this;
- (function($rec){smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_chunkEscape_", [smalltalk.send(aMethod, "_source", [])])]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("%21")]);})(aStream);
- return self;},
- args: ["aMethod", "aClass", "aStream"],
- source: unescape('exportMethod%3A%20aMethod%20of%3A%20aClass%20on%3A%20aStream%0A%09aStream%20%0A%09%09lf%3B%20lf%3B%20nextPutAll%3A%20%28self%20chunkEscape%3A%20aMethod%20source%29%3B%20lf%3B%0A%09%09nextPutAll%3A%20%27%21%27'),
- messageSends: ["lf", "nextPutAll:", "chunkEscape:", "source"],
- referencedClasses: []
- }),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- unescape('_exportMethodsOf_on_'),
- smalltalk.method({
- selector: unescape('exportMethodsOf%3Aon%3A'),
- category: 'not yet classified',
- fn: function (aClass, aStream){
- var self=this;
- smalltalk.send(aClass, "_protocolsDo_", [(function(category, methods){return ((($receiver = smalltalk.send(category, "_match_", [unescape("%5E%5C*")])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_exportMethods_category_of_on_", [methods, category, aClass, aStream]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_exportMethods_category_of_on_", [methods, category, aClass, aStream]);})]));})]);
- return self;},
- args: ["aClass", "aStream"],
- source: unescape('exportMethodsOf%3A%20aClass%20on%3A%20aStream%0A%0A%20%20%20aClass%20protocolsDo%3A%20%5B%3Acategory%20%3Amethods%20%7C%0A%09%28category%20match%3A%20%27%5E%5C*%27%29%20ifFalse%3A%20%5B%20%0A%09%09self%0A%09%09%09exportMethods%3A%20methods%0A%09%09%09category%3A%20category%0A%09%09%09of%3A%20aClass%0A%09%09%09on%3A%20aStream%5D%5D'),
- messageSends: ["protocolsDo:", "ifFalse:", "match:", "exportMethods:category:of:on:"],
- referencedClasses: []
- }),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- unescape('_exportMetaDefinitionOf_on_'),
- smalltalk.method({
- selector: unescape('exportMetaDefinitionOf%3Aon%3A'),
- category: 'not yet classified',
- fn: function (aClass, aStream){
- var self=this;
- ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_isEmpty", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_class", [])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%20instanceVariableNames%3A%20%27")]);})(aStream);smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [each]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [" "]);})]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%27%21")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_class", [])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%20instanceVariableNames%3A%20%27")]);})(aStream);smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [each]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [" "]);})]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%27%21")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);})]));
- return self;},
- args: ["aClass", "aStream"],
- source: unescape('exportMetaDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%0A%09aClass%20class%20instanceVariableNames%20isEmpty%20ifFalse%3A%20%5B%0A%09%09aStream%20%0A%09%09%20%20%20%20nextPutAll%3A%20%28self%20classNameFor%3A%20aClass%20class%29%3B%0A%09%09%20%20%20%20nextPutAll%3A%20%27%20instanceVariableNames%3A%20%27%27%27.%0A%09%09aClass%20class%20instanceVariableNames%20%0A%09%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20each%5D%0A%09%09%20%20%20%20separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%20%27%5D.%0A%09%09aStream%09%0A%09%09%20%20%20%20nextPutAll%3A%20%27%27%27%21%27%3B%20lf%3B%20lf%5D'),
- messageSends: ["ifFalse:", "isEmpty", "instanceVariableNames", "class", "nextPutAll:", "classNameFor:", "do:separatedBy:", "lf"],
- referencedClasses: []
- }),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- unescape('_classNameFor_'),
- smalltalk.method({
- selector: unescape('classNameFor%3A'),
- category: 'not yet classified',
- fn: function (aClass){
- var self=this;
- return ((($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [" class"]);})() : (function(){return ((($receiver = smalltalk.send(aClass, "_isNil", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "nil";})() : (function(){return smalltalk.send(aClass, "_name", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [" class"]);}), (function(){return ((($receiver = smalltalk.send(aClass, "_isNil", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "nil";})() : (function(){return smalltalk.send(aClass, "_name", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]));})]));
- return self;},
- args: ["aClass"],
- source: unescape('classNameFor%3A%20aClass%0A%09%5EaClass%20isMetaclass%0A%09%20%20%20%20ifTrue%3A%20%5BaClass%20instanceClass%20name%2C%20%27%20class%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09aClass%20isNil%0A%09%09%20%20%20%20ifTrue%3A%20%5B%27nil%27%5D%0A%09%09%20%20%20%20ifFalse%3A%20%5BaClass%20name%5D%5D'),
- messageSends: ["ifTrue:ifFalse:", "isMetaclass", unescape("%2C"), "name", "instanceClass", "isNil"],
- referencedClasses: []
- }),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- unescape('_chunkEscape_'),
- smalltalk.method({
- selector: unescape('chunkEscape%3A'),
- category: 'not yet classified',
- fn: function (aString){
- var self=this;
- return smalltalk.send(smalltalk.send(aString, "_replace_with_", [unescape("%21"), unescape("%21%21")]), "_trimBoth", []);
- return self;},
- args: ["aString"],
- source: unescape('chunkEscape%3A%20aString%0A%09%22Replace%20all%20occurrences%20of%20%21%20with%20%21%21%20and%20trim%20at%20both%20ends.%22%0A%0A%09%5E%28aString%20replace%3A%20%27%21%27%20with%3A%20%27%21%21%27%29%20trimBoth'),
- messageSends: ["trimBoth", "replace:with:"],
- referencedClasses: []
- }),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- unescape('_exportMethods_category_of_on_'),
- smalltalk.method({
- selector: unescape('exportMethods%3Acategory%3Aof%3Aon%3A'),
- category: 'not yet classified',
- fn: function (methods, category, aClass, aStream){
- var self=this;
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(unescape("%21"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])])]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%20methodsFor%3A%20%27"), "__comma", [category]), "__comma", [unescape("%27%21")])]);})(aStream);
- smalltalk.send(methods, "_do_", [(function(each){return smalltalk.send(self, "_exportMethod_of_on_", [each, aClass, aStream]);})]);
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%20%21")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);
- return self;},
- args: ["methods", "category", "aClass", "aStream"],
- source: unescape('exportMethods%3A%20methods%20category%3A%20category%20of%3A%20aClass%20on%3A%20aStream%0A%0A%09aStream%0A%09%09nextPutAll%3A%20%27%21%27%2C%20%28self%20classNameFor%3A%20aClass%29%3B%0A%09%09nextPutAll%3A%20%27%20methodsFor%3A%20%27%27%27%2C%20category%2C%20%27%27%27%21%27.%0A%20%20%20%20%09methods%20do%3A%20%5B%3Aeach%20%7C%0A%09%09self%20exportMethod%3A%20each%20of%3A%20aClass%20on%3A%20aStream%5D.%0A%09aStream%20nextPutAll%3A%20%27%20%21%27%3B%20lf%3B%20lf'),
- messageSends: ["nextPutAll:", unescape("%2C"), "classNameFor:", "do:", "exportMethod:of:on:", "lf"],
- referencedClasses: []
- }),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- unescape('_exportPackageExtensionsOf_on_'),
- smalltalk.method({
- selector: unescape('exportPackageExtensionsOf%3Aon%3A'),
- category: 'not yet classified',
- fn: function (package, aStream){
- var self=this;
- var name=nil;
- (name=smalltalk.send(package, "_name", []));
- smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "_collect_", [(function(each){return smalltalk.send(each, "_class", []);})])]), "_do_", [(function(each){return smalltalk.send(each, "_protocolsDo_", [(function(category, methods){return ((($receiver = smalltalk.send(category, "__eq", [smalltalk.send(unescape("*"), "__comma", [name])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_exportMethods_category_of_on_", [methods, category, each, aStream]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self, "_exportMethods_category_of_on_", [methods, category, each, aStream]);})]));})]);})]);
- return self;},
- args: ["package", "aStream"],
- source: unescape('exportPackageExtensionsOf%3A%20package%20on%3A%20aStream%0A%09%22We%20need%20to%20override%20this%20one%20too%20since%20we%20need%20to%20group%0A%09all%20methods%20in%20a%20given%20protocol%20under%20a%20leading%20methodsFor%3A%20chunk%0A%09for%20that%20class.%22%0A%0A%09%7C%20name%20%7C%0A%09name%20%3A%3D%20package%20name.%0A%09Smalltalk%20current%20classes%2C%20%28Smalltalk%20current%20classes%20collect%3A%20%5B%3Aeach%20%7C%20each%20class%5D%29%20do%3A%20%5B%3Aeach%20%7C%0A%09%09each%20protocolsDo%3A%20%5B%3Acategory%20%3Amethods%20%7C%0A%09%09%09category%20%3D%20%28%27*%27%2C%20name%29%20ifTrue%3A%20%5B%0A%09%09%09%09self%20exportMethods%3A%20methods%20category%3A%20category%20of%3A%20each%20on%3A%20aStream%5D%5D%5D'),
- messageSends: ["name", "do:", unescape("%2C"), "classes", "current", "collect:", "class", "protocolsDo:", "ifTrue:", unescape("%3D"), "exportMethods:category:of:on:"],
- referencedClasses: ["Smalltalk"]
- }),
- smalltalk.ChunkExporter);
- smalltalk.addMethod(
- unescape('_exportPackageDefinitionOf_on_'),
- smalltalk.method({
- selector: unescape('exportPackageDefinitionOf%3Aon%3A'),
- category: 'not yet classified',
- fn: function (package, aStream){
- var self=this;
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("Smalltalk%20current%20createPackage%3A%20%27"), "__comma", [smalltalk.send(package, "_name", [])]), "__comma", [unescape("%27%20properties%3A%20")]), "__comma", [smalltalk.send(smalltalk.send(package, "_properties", []), "_storeString", [])]), "__comma", [unescape("%21")])]);return smalltalk.send($rec, "_lf", []);})(aStream);
- return self;},
- args: ["package", "aStream"],
- source: unescape('exportPackageDefinitionOf%3A%20package%20on%3A%20aStream%0A%09%22Chunk%20format.%22%0A%0A%09aStream%20%0A%09%20%20%20%20nextPutAll%3A%20%27Smalltalk%20current%20createPackage%3A%20%27%27%27%2C%20package%20name%2C%0A%09%09%27%27%27%20properties%3A%20%27%2C%20package%20properties%20storeString%2C%20%27%21%27%3B%20lf.'),
- messageSends: ["nextPutAll:", unescape("%2C"), "name", "storeString", "properties", "lf"],
- referencedClasses: []
- }),
- smalltalk.ChunkExporter);
- smalltalk.addClass('StrippedExporter', smalltalk.Exporter, [], 'Compiler');
- smalltalk.addMethod(
- unescape('_exportDefinitionOf_on_'),
- smalltalk.method({
- selector: unescape('exportDefinitionOf%3Aon%3A'),
- category: 'private',
- fn: function (aClass, aStream){
- var self=this;
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.addClass%28")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])]), "__comma", [unescape("%27%2C%20")])]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("smalltalk.", "__comma", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_superclass", [])])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%2C%20%5B")]);})(aStream);
- smalltalk.send(smalltalk.send(aClass, "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [each]), "__comma", [unescape("%27")])]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [unescape("%2C%20")]);})]);
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%5D%2C%20%27")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(aClass, "_category", []), "__comma", [unescape("%27")])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%29%3B")]);})(aStream);
- smalltalk.send(aStream, "_lf", []);
- return self;},
- args: ["aClass", "aStream"],
- source: unescape('exportDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%09aStream%20%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.addClass%28%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%27%27%27%2C%20%28self%20classNameFor%3A%20aClass%29%2C%20%27%27%27%2C%20%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.%27%2C%20%28self%20classNameFor%3A%20aClass%20superclass%29%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%2C%20%5B%27.%0A%09aClass%20instanceVariableNames%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20%27%27%27%27%2C%20each%2C%20%27%27%27%27%5D%0A%09%20%20%20%20separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%09aStream%09%0A%09%20%20%20%20nextPutAll%3A%20%27%5D%2C%20%27%27%27%3B%0A%09%20%20%20%20nextPutAll%3A%20aClass%20category%2C%20%27%27%27%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%29%3B%27.%0A%09aStream%20lf'),
- messageSends: ["nextPutAll:", unescape("%2C"), "classNameFor:", "superclass", "do:separatedBy:", "instanceVariableNames", "category", "lf"],
- referencedClasses: []
- }),
- smalltalk.StrippedExporter);
- smalltalk.addMethod(
- unescape('_exportMethod_of_on_'),
- smalltalk.method({
- selector: unescape('exportMethod%3Aof%3Aon%3A'),
- category: 'private',
- fn: function (aMethod, aClass, aStream){
- var self=this;
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.addMethod%28")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("unescape%28%27"), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send(aMethod, "_selector", []), "_asSelector", []), "_escaped", [])]), "__comma", [unescape("%27%29%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.method%28%7B")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("selector%3A%20unescape%28%27"), "__comma", [smalltalk.send(smalltalk.send(aMethod, "_selector", []), "_escaped", [])]), "__comma", [unescape("%27%29%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("fn: ", "__comma", [smalltalk.send(smalltalk.send(aMethod, "_fn", []), "_compiledSource", [])])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [unescape("%7D%29%2C")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("smalltalk.", "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])])]);smalltalk.send($rec, "_nextPutAll_", [unescape("%29%3B")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);
- return self;},
- args: ["aMethod", "aClass", "aStream"],
- source: unescape('exportMethod%3A%20aMethod%20of%3A%20aClass%20on%3A%20aStream%0A%09aStream%20%0A%09%09nextPutAll%3A%20%27smalltalk.addMethod%28%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27unescape%28%27%27%27%2C%20aMethod%20selector%20asSelector%20escaped%2C%20%27%27%27%29%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27smalltalk.method%28%7B%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27selector%3A%20unescape%28%27%27%27%2C%20aMethod%20selector%20escaped%2C%20%27%27%27%29%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27fn%3A%20%27%2C%20aMethod%20fn%20compiledSource%3Blf%3B%0A%09%09nextPutAll%3A%20%27%7D%29%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27smalltalk.%27%2C%20%28self%20classNameFor%3A%20aClass%29%3B%0A%09%09nextPutAll%3A%20%27%29%3B%27%3Blf%3Blf'),
- messageSends: ["nextPutAll:", "lf", unescape("%2C"), "escaped", "asSelector", "selector", "compiledSource", "fn", "classNameFor:"],
- referencedClasses: []
- }),
- smalltalk.StrippedExporter);
- smalltalk.addClass('Node', smalltalk.Object, ['nodes'], 'Compiler');
- smalltalk.addMethod(
- unescape('_nodes'),
- smalltalk.method({
- selector: unescape('nodes'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = self['@nodes']) == nil || $receiver == undefined) ? (function(){return (self['@nodes']=smalltalk.send((smalltalk.Array || Array), "_new", []));})() : $receiver;
- return self;},
- args: [],
- source: unescape('nodes%0A%09%5Enodes%20ifNil%3A%20%5Bnodes%20%3A%3D%20Array%20new%5D'),
- messageSends: ["ifNil:", "new"],
- referencedClasses: ["Array"]
- }),
- smalltalk.Node);
- smalltalk.addMethod(
- unescape('_nodes_'),
- smalltalk.method({
- selector: unescape('nodes%3A'),
- category: 'building',
- fn: function (aCollection){
- var self=this;
- (self['@nodes']=aCollection);
- return self;},
- args: ["aCollection"],
- source: unescape('nodes%3A%20aCollection%0A%09nodes%20%3A%3D%20aCollection'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Node);
- smalltalk.addMethod(
- unescape('_addNode_'),
- smalltalk.method({
- selector: unescape('addNode%3A'),
- category: 'accessing',
- fn: function (aNode){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_nodes", []), "_add_", [aNode]);
- return self;},
- args: ["aNode"],
- source: unescape('addNode%3A%20aNode%0A%09self%20nodes%20add%3A%20aNode'),
- messageSends: ["add:", "nodes"],
- referencedClasses: []
- }),
- smalltalk.Node);
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitNode%3A%20self'),
- messageSends: ["visitNode:"],
- referencedClasses: []
- }),
- smalltalk.Node);
- smalltalk.addMethod(
- unescape('_isValueNode'),
- smalltalk.method({
- selector: unescape('isValueNode'),
- category: 'testing',
- fn: function (){
- var self=this;
- return false;
- return self;},
- args: [],
- source: unescape('isValueNode%0A%09%5Efalse'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Node);
- smalltalk.addMethod(
- unescape('_isBlockNode'),
- smalltalk.method({
- selector: unescape('isBlockNode'),
- category: 'testing',
- fn: function (){
- var self=this;
- return false;
- return self;},
- args: [],
- source: unescape('isBlockNode%0A%09%5Efalse'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Node);
- smalltalk.addMethod(
- unescape('_isBlockSequenceNode'),
- smalltalk.method({
- selector: unescape('isBlockSequenceNode'),
- category: 'testing',
- fn: function (){
- var self=this;
- return false;
- return self;},
- args: [],
- source: unescape('isBlockSequenceNode%0A%09%5Efalse'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Node);
- smalltalk.addClass('MethodNode', smalltalk.Node, ['selector', 'arguments', 'source'], 'Compiler');
- smalltalk.addMethod(
- unescape('_selector'),
- smalltalk.method({
- selector: unescape('selector'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@selector'];
- return self;},
- args: [],
- source: unescape('selector%0A%09%5Eselector'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.MethodNode);
- smalltalk.addMethod(
- unescape('_selector_'),
- smalltalk.method({
- selector: unescape('selector%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- (self['@selector']=aString);
- return self;},
- args: ["aString"],
- source: unescape('selector%3A%20aString%0A%09selector%20%3A%3D%20aString'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.MethodNode);
- smalltalk.addMethod(
- unescape('_arguments'),
- smalltalk.method({
- selector: unescape('arguments'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = self['@arguments']) == nil || $receiver == undefined) ? (function(){return [];})() : $receiver;
- return self;},
- args: [],
- source: unescape('arguments%0A%09%5Earguments%20ifNil%3A%20%5B%23%28%29%5D'),
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- smalltalk.MethodNode);
- smalltalk.addMethod(
- unescape('_arguments_'),
- smalltalk.method({
- selector: unescape('arguments%3A'),
- category: 'accessing',
- fn: function (aCollection){
- var self=this;
- (self['@arguments']=aCollection);
- return self;},
- args: ["aCollection"],
- source: unescape('arguments%3A%20aCollection%0A%09arguments%20%3A%3D%20aCollection'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.MethodNode);
- smalltalk.addMethod(
- unescape('_source'),
- smalltalk.method({
- selector: unescape('source'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@source'];
- return self;},
- args: [],
- source: unescape('source%0A%09%5Esource'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.MethodNode);
- smalltalk.addMethod(
- unescape('_source_'),
- smalltalk.method({
- selector: unescape('source%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- (self['@source']=aString);
- return self;},
- args: ["aString"],
- source: unescape('source%3A%20aString%0A%09source%20%3A%3D%20aString'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.MethodNode);
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitMethodNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitMethodNode%3A%20self'),
- messageSends: ["visitMethodNode:"],
- referencedClasses: []
- }),
- smalltalk.MethodNode);
- smalltalk.addClass('SendNode', smalltalk.Node, ['selector', 'arguments', 'receiver'], 'Compiler');
- smalltalk.addMethod(
- unescape('_selector'),
- smalltalk.method({
- selector: unescape('selector'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@selector'];
- return self;},
- args: [],
- source: unescape('selector%0A%09%5Eselector'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.SendNode);
- smalltalk.addMethod(
- unescape('_selector_'),
- smalltalk.method({
- selector: unescape('selector%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- (self['@selector']=aString);
- return self;},
- args: ["aString"],
- source: unescape('selector%3A%20aString%0A%09selector%20%3A%3D%20aString'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.SendNode);
- smalltalk.addMethod(
- unescape('_arguments'),
- smalltalk.method({
- selector: unescape('arguments'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = self['@arguments']) == nil || $receiver == undefined) ? (function(){return (self['@arguments']=[]);})() : $receiver;
- return self;},
- args: [],
- source: unescape('arguments%0A%09%5Earguments%20ifNil%3A%20%5Barguments%20%3A%3D%20%23%28%29%5D'),
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- smalltalk.SendNode);
- smalltalk.addMethod(
- unescape('_arguments_'),
- smalltalk.method({
- selector: unescape('arguments%3A'),
- category: 'accessing',
- fn: function (aCollection){
- var self=this;
- (self['@arguments']=aCollection);
- return self;},
- args: ["aCollection"],
- source: unescape('arguments%3A%20aCollection%0A%09arguments%20%3A%3D%20aCollection'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.SendNode);
- smalltalk.addMethod(
- unescape('_receiver'),
- smalltalk.method({
- selector: unescape('receiver'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@receiver'];
- return self;},
- args: [],
- source: unescape('receiver%0A%09%5Ereceiver'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.SendNode);
- smalltalk.addMethod(
- unescape('_receiver_'),
- smalltalk.method({
- selector: unescape('receiver%3A'),
- category: 'accessing',
- fn: function (aNode){
- var self=this;
- (self['@receiver']=aNode);
- return self;},
- args: ["aNode"],
- source: unescape('receiver%3A%20aNode%0A%09receiver%20%3A%3D%20aNode'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.SendNode);
- smalltalk.addMethod(
- unescape('_valueForReceiver_'),
- smalltalk.method({
- selector: unescape('valueForReceiver%3A'),
- category: 'accessing',
- fn: function (anObject){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_receiver_", [(($receiver = smalltalk.send(self, "_receiver", [])) == nil || $receiver == undefined) ? (function(){return anObject;})() : (function(){return smalltalk.send(smalltalk.send(self, "_receiver", []), "_valueForReceiver_", [anObject]);})()]);smalltalk.send($rec, "_selector_", [smalltalk.send(self, "_selector", [])]);smalltalk.send($rec, "_arguments_", [smalltalk.send(self, "_arguments", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.SendNode || SendNode), "_new", []));
- return self;},
- args: ["anObject"],
- source: unescape('valueForReceiver%3A%20anObject%0A%09%5ESendNode%20new%0A%09%20%20%20%20receiver%3A%20%28self%20receiver%20%0A%09%09ifNil%3A%20%5BanObject%5D%0A%09%09ifNotNil%3A%20%5Bself%20receiver%20valueForReceiver%3A%20anObject%5D%29%3B%0A%09%20%20%20%20selector%3A%20self%20selector%3B%0A%09%20%20%20%20arguments%3A%20self%20arguments%3B%0A%09%20%20%20%20yourself'),
- messageSends: ["receiver:", "ifNil:ifNotNil:", "receiver", "valueForReceiver:", "selector:", "selector", "arguments:", "arguments", "yourself", "new"],
- referencedClasses: ["SendNode"]
- }),
- smalltalk.SendNode);
- smalltalk.addMethod(
- unescape('_cascadeNodeWithMessages_'),
- smalltalk.method({
- selector: unescape('cascadeNodeWithMessages%3A'),
- category: 'accessing',
- fn: function (aCollection){
- var self=this;
- var first=nil;
- (first=(function($rec){smalltalk.send($rec, "_selector_", [smalltalk.send(self, "_selector", [])]);smalltalk.send($rec, "_arguments_", [smalltalk.send(self, "_arguments", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.SendNode || SendNode), "_new", [])));
- return (function($rec){smalltalk.send($rec, "_receiver_", [smalltalk.send(self, "_receiver", [])]);smalltalk.send($rec, "_nodes_", [smalltalk.send(smalltalk.send((smalltalk.Array || Array), "_with_", [first]), "__comma", [aCollection])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.CascadeNode || CascadeNode), "_new", []));
- return self;},
- args: ["aCollection"],
- source: unescape('cascadeNodeWithMessages%3A%20aCollection%0A%09%7C%20first%20%7C%0A%09first%20%3A%3D%20SendNode%20new%0A%09%20%20%20%20selector%3A%20self%20selector%3B%0A%09%20%20%20%20arguments%3A%20self%20arguments%3B%0A%09%20%20%20%20yourself.%0A%09%5ECascadeNode%20new%0A%09%20%20%20%20receiver%3A%20self%20receiver%3B%0A%09%20%20%20%20nodes%3A%20%28Array%20with%3A%20first%29%2C%20aCollection%3B%0A%09%20%20%20%20yourself'),
- messageSends: ["selector:", "selector", "arguments:", "arguments", "yourself", "new", "receiver:", "receiver", "nodes:", unescape("%2C"), "with:"],
- referencedClasses: ["SendNode", "Array", "CascadeNode"]
- }),
- smalltalk.SendNode);
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitSendNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitSendNode%3A%20self'),
- messageSends: ["visitSendNode:"],
- referencedClasses: []
- }),
- smalltalk.SendNode);
- smalltalk.addClass('CascadeNode', smalltalk.Node, ['receiver'], 'Compiler');
- smalltalk.addMethod(
- unescape('_receiver'),
- smalltalk.method({
- selector: unescape('receiver'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@receiver'];
- return self;},
- args: [],
- source: unescape('receiver%0A%09%5Ereceiver'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.CascadeNode);
- smalltalk.addMethod(
- unescape('_receiver_'),
- smalltalk.method({
- selector: unescape('receiver%3A'),
- category: 'accessing',
- fn: function (aNode){
- var self=this;
- (self['@receiver']=aNode);
- return self;},
- args: ["aNode"],
- source: unescape('receiver%3A%20aNode%0A%09receiver%20%3A%3D%20aNode'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.CascadeNode);
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitCascadeNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitCascadeNode%3A%20self'),
- messageSends: ["visitCascadeNode:"],
- referencedClasses: []
- }),
- smalltalk.CascadeNode);
- smalltalk.addClass('AssignmentNode', smalltalk.Node, ['left', 'right'], 'Compiler');
- smalltalk.addMethod(
- unescape('_left'),
- smalltalk.method({
- selector: unescape('left'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@left'];
- return self;},
- args: [],
- source: unescape('left%0A%09%5Eleft'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.AssignmentNode);
- smalltalk.addMethod(
- unescape('_left_'),
- smalltalk.method({
- selector: unescape('left%3A'),
- category: 'accessing',
- fn: function (aNode){
- var self=this;
- (self['@left']=aNode);
- smalltalk.send(self['@left'], "_assigned_", [true]);
- return self;},
- args: ["aNode"],
- source: unescape('left%3A%20aNode%0A%09left%20%3A%3D%20aNode.%0A%09left%20assigned%3A%20true'),
- messageSends: ["assigned:"],
- referencedClasses: []
- }),
- smalltalk.AssignmentNode);
- smalltalk.addMethod(
- unescape('_right'),
- smalltalk.method({
- selector: unescape('right'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@right'];
- return self;},
- args: [],
- source: unescape('right%0A%09%5Eright'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.AssignmentNode);
- smalltalk.addMethod(
- unescape('_right_'),
- smalltalk.method({
- selector: unescape('right%3A'),
- category: 'accessing',
- fn: function (aNode){
- var self=this;
- (self['@right']=aNode);
- return self;},
- args: ["aNode"],
- source: unescape('right%3A%20aNode%0A%09right%20%3A%3D%20aNode'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.AssignmentNode);
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitAssignmentNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitAssignmentNode%3A%20self'),
- messageSends: ["visitAssignmentNode:"],
- referencedClasses: []
- }),
- smalltalk.AssignmentNode);
- smalltalk.addClass('BlockNode', smalltalk.Node, ['parameters', 'inlined'], 'Compiler');
- smalltalk.addMethod(
- unescape('_parameters'),
- smalltalk.method({
- selector: unescape('parameters'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = self['@parameters']) == nil || $receiver == undefined) ? (function(){return (self['@parameters']=smalltalk.send((smalltalk.Array || Array), "_new", []));})() : $receiver;
- return self;},
- args: [],
- source: unescape('parameters%0A%09%5Eparameters%20ifNil%3A%20%5Bparameters%20%3A%3D%20Array%20new%5D'),
- messageSends: ["ifNil:", "new"],
- referencedClasses: ["Array"]
- }),
- smalltalk.BlockNode);
- smalltalk.addMethod(
- unescape('_parameters_'),
- smalltalk.method({
- selector: unescape('parameters%3A'),
- category: 'accessing',
- fn: function (aCollection){
- var self=this;
- (self['@parameters']=aCollection);
- return self;},
- args: ["aCollection"],
- source: unescape('parameters%3A%20aCollection%0A%09parameters%20%3A%3D%20aCollection'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockNode);
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitBlockNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitBlockNode%3A%20self'),
- messageSends: ["visitBlockNode:"],
- referencedClasses: []
- }),
- smalltalk.BlockNode);
- smalltalk.addMethod(
- unescape('_isBlockNode'),
- smalltalk.method({
- selector: unescape('isBlockNode'),
- category: 'testing',
- fn: function (){
- var self=this;
- return true;
- return self;},
- args: [],
- source: unescape('isBlockNode%0A%09%5Etrue'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockNode);
- smalltalk.addMethod(
- unescape('_inlined'),
- smalltalk.method({
- selector: unescape('inlined'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = self['@inlined']) == nil || $receiver == undefined) ? (function(){return false;})() : $receiver;
- return self;},
- args: [],
- source: unescape('inlined%0A%09%5Einlined%20ifNil%3A%20%5Bfalse%5D'),
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- smalltalk.BlockNode);
- smalltalk.addMethod(
- unescape('_inlined_'),
- smalltalk.method({
- selector: unescape('inlined%3A'),
- category: 'accessing',
- fn: function (aBoolean){
- var self=this;
- (self['@inlined']=aBoolean);
- return self;},
- args: ["aBoolean"],
- source: unescape('inlined%3A%20aBoolean%0A%09inlined%20%3A%3D%20aBoolean'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockNode);
- smalltalk.addClass('SequenceNode', smalltalk.Node, ['temps'], 'Compiler');
- smalltalk.addMethod(
- unescape('_temps'),
- smalltalk.method({
- selector: unescape('temps'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = self['@temps']) == nil || $receiver == undefined) ? (function(){return [];})() : $receiver;
- return self;},
- args: [],
- source: unescape('temps%0A%09%5Etemps%20ifNil%3A%20%5B%23%28%29%5D'),
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- smalltalk.SequenceNode);
- smalltalk.addMethod(
- unescape('_temps_'),
- smalltalk.method({
- selector: unescape('temps%3A'),
- category: 'accessing',
- fn: function (aCollection){
- var self=this;
- (self['@temps']=aCollection);
- return self;},
- args: ["aCollection"],
- source: unescape('temps%3A%20aCollection%0A%09temps%20%3A%3D%20aCollection'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.SequenceNode);
- smalltalk.addMethod(
- unescape('_asBlockSequenceNode'),
- smalltalk.method({
- selector: unescape('asBlockSequenceNode'),
- category: 'testing',
- fn: function (){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_nodes_", [smalltalk.send(self, "_nodes", [])]);smalltalk.send($rec, "_temps_", [smalltalk.send(self, "_temps", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.BlockSequenceNode || BlockSequenceNode), "_new", []));
- return self;},
- args: [],
- source: unescape('asBlockSequenceNode%0A%09%5EBlockSequenceNode%20new%0A%09%20%20%20%20nodes%3A%20self%20nodes%3B%0A%09%20%20%20%20temps%3A%20self%20temps%3B%0A%09%20%20%20%20yourself'),
- messageSends: ["nodes:", "nodes", "temps:", "temps", "yourself", "new"],
- referencedClasses: ["BlockSequenceNode"]
- }),
- smalltalk.SequenceNode);
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitSequenceNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitSequenceNode%3A%20self'),
- messageSends: ["visitSequenceNode:"],
- referencedClasses: []
- }),
- smalltalk.SequenceNode);
- smalltalk.addClass('BlockSequenceNode', smalltalk.SequenceNode, [], 'Compiler');
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitBlockSequenceNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitBlockSequenceNode%3A%20self'),
- messageSends: ["visitBlockSequenceNode:"],
- referencedClasses: []
- }),
- smalltalk.BlockSequenceNode);
- smalltalk.addMethod(
- unescape('_isBlockSequenceNode'),
- smalltalk.method({
- selector: unescape('isBlockSequenceNode'),
- category: 'testing',
- fn: function (){
- var self=this;
- return true;
- return self;},
- args: [],
- source: unescape('isBlockSequenceNode%0A%09%5Etrue'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.BlockSequenceNode);
- smalltalk.addClass('ReturnNode', smalltalk.Node, [], 'Compiler');
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitReturnNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitReturnNode%3A%20self'),
- messageSends: ["visitReturnNode:"],
- referencedClasses: []
- }),
- smalltalk.ReturnNode);
- smalltalk.addClass('ValueNode', smalltalk.Node, ['value'], 'Compiler');
- smalltalk.addMethod(
- unescape('_value'),
- smalltalk.method({
- selector: unescape('value'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@value'];
- return self;},
- args: [],
- source: unescape('value%0A%09%5Evalue'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ValueNode);
- smalltalk.addMethod(
- unescape('_value_'),
- smalltalk.method({
- selector: unescape('value%3A'),
- category: 'accessing',
- fn: function (anObject){
- var self=this;
- (self['@value']=anObject);
- return self;},
- args: ["anObject"],
- source: unescape('value%3A%20anObject%0A%09value%20%3A%3D%20anObject'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ValueNode);
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitValueNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitValueNode%3A%20self'),
- messageSends: ["visitValueNode:"],
- referencedClasses: []
- }),
- smalltalk.ValueNode);
- smalltalk.addMethod(
- unescape('_isValueNode'),
- smalltalk.method({
- selector: unescape('isValueNode'),
- category: 'testing',
- fn: function (){
- var self=this;
- return true;
- return self;},
- args: [],
- source: unescape('isValueNode%0A%09%5Etrue'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ValueNode);
- smalltalk.addClass('VariableNode', smalltalk.ValueNode, ['assigned'], 'Compiler');
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitVariableNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitVariableNode%3A%20self'),
- messageSends: ["visitVariableNode:"],
- referencedClasses: []
- }),
- smalltalk.VariableNode);
- smalltalk.addMethod(
- unescape('_assigned'),
- smalltalk.method({
- selector: unescape('assigned'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = self['@assigned']) == nil || $receiver == undefined) ? (function(){return false;})() : $receiver;
- return self;},
- args: [],
- source: unescape('assigned%0A%09%5Eassigned%20ifNil%3A%20%5Bfalse%5D'),
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- smalltalk.VariableNode);
- smalltalk.addMethod(
- unescape('_assigned_'),
- smalltalk.method({
- selector: unescape('assigned%3A'),
- category: 'accessing',
- fn: function (aBoolean){
- var self=this;
- (self['@assigned']=aBoolean);
- return self;},
- args: ["aBoolean"],
- source: unescape('assigned%3A%20aBoolean%0A%09assigned%20%3A%3D%20aBoolean'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.VariableNode);
- smalltalk.addClass('ClassReferenceNode', smalltalk.VariableNode, [], 'Compiler');
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitClassReferenceNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitClassReferenceNode%3A%20self'),
- messageSends: ["visitClassReferenceNode:"],
- referencedClasses: []
- }),
- smalltalk.ClassReferenceNode);
- smalltalk.addClass('JSStatementNode', smalltalk.Node, ['source'], 'Compiler');
- smalltalk.addMethod(
- unescape('_source'),
- smalltalk.method({
- selector: unescape('source'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = self['@source']) == nil || $receiver == undefined) ? (function(){return "";})() : $receiver;
- return self;},
- args: [],
- source: unescape('source%0A%09%5Esource%20ifNil%3A%20%5B%27%27%5D'),
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- smalltalk.JSStatementNode);
- smalltalk.addMethod(
- unescape('_source_'),
- smalltalk.method({
- selector: unescape('source%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- (self['@source']=aString);
- return self;},
- args: ["aString"],
- source: unescape('source%3A%20aString%0A%09source%20%3A%3D%20aString'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.JSStatementNode);
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitJSStatementNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitJSStatementNode%3A%20self'),
- messageSends: ["visitJSStatementNode:"],
- referencedClasses: []
- }),
- smalltalk.JSStatementNode);
- smalltalk.addClass('NodeVisitor', smalltalk.Object, [], 'Compiler');
- smalltalk.addMethod(
- unescape('_visit_'),
- smalltalk.method({
- selector: unescape('visit%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(aNode, "_accept_", [self]);
- return self;},
- args: ["aNode"],
- source: unescape('visit%3A%20aNode%0A%09aNode%20accept%3A%20self'),
- messageSends: ["accept:"],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitNode_'),
- smalltalk.method({
- selector: unescape('visitNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- return self;},
- args: ["aNode"],
- source: unescape('visitNode%3A%20aNode'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitMethodNode_'),
- smalltalk.method({
- selector: unescape('visitMethodNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;},
- args: ["aNode"],
- source: unescape('visitMethodNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
- messageSends: ["visitNode:"],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitSequenceNode_'),
- smalltalk.method({
- selector: unescape('visitSequenceNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;},
- args: ["aNode"],
- source: unescape('visitSequenceNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
- messageSends: ["visitNode:"],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitBlockSequenceNode_'),
- smalltalk.method({
- selector: unescape('visitBlockSequenceNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self, "_visitSequenceNode_", [aNode]);
- return self;},
- args: ["aNode"],
- source: unescape('visitBlockSequenceNode%3A%20aNode%0A%09self%20visitSequenceNode%3A%20aNode'),
- messageSends: ["visitSequenceNode:"],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitBlockNode_'),
- smalltalk.method({
- selector: unescape('visitBlockNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;},
- args: ["aNode"],
- source: unescape('visitBlockNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
- messageSends: ["visitNode:"],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitReturnNode_'),
- smalltalk.method({
- selector: unescape('visitReturnNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;},
- args: ["aNode"],
- source: unescape('visitReturnNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
- messageSends: ["visitNode:"],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitSendNode_'),
- smalltalk.method({
- selector: unescape('visitSendNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;},
- args: ["aNode"],
- source: unescape('visitSendNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
- messageSends: ["visitNode:"],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitCascadeNode_'),
- smalltalk.method({
- selector: unescape('visitCascadeNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;},
- args: ["aNode"],
- source: unescape('visitCascadeNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
- messageSends: ["visitNode:"],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitValueNode_'),
- smalltalk.method({
- selector: unescape('visitValueNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;},
- args: ["aNode"],
- source: unescape('visitValueNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
- messageSends: ["visitNode:"],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitVariableNode_'),
- smalltalk.method({
- selector: unescape('visitVariableNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- return self;},
- args: ["aNode"],
- source: unescape('visitVariableNode%3A%20aNode'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitAssignmentNode_'),
- smalltalk.method({
- selector: unescape('visitAssignmentNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;},
- args: ["aNode"],
- source: unescape('visitAssignmentNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
- messageSends: ["visitNode:"],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitClassReferenceNode_'),
- smalltalk.method({
- selector: unescape('visitClassReferenceNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- (function($rec){smalltalk.send($rec, "_nextPutAll_", ["smalltalk."]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(aNode, "_value", [])]);})(self);
- return self;},
- args: ["aNode"],
- source: unescape('visitClassReferenceNode%3A%20aNode%0A%09self%20%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.%27%3B%0A%09%20%20%20%20nextPutAll%3A%20aNode%20value'),
- messageSends: ["nextPutAll:", "value"],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitJSStatementNode_'),
- smalltalk.method({
- selector: unescape('visitJSStatementNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("function%28%29%7B")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(aNode, "_source", [])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%7D%29%28%29")]);})(self);
- return self;},
- args: ["aNode"],
- source: unescape('visitJSStatementNode%3A%20aNode%0A%09self%20%0A%09%20%20%20%20nextPutAll%3A%20%27function%28%29%7B%27%3B%0A%09%20%20%20%20nextPutAll%3A%20aNode%20source%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%7D%29%28%29%27'),
- messageSends: ["nextPutAll:", "source"],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitDynamicArrayNode_'),
- smalltalk.method({
- selector: unescape('visitDynamicArrayNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;},
- args: ["aNode"],
- source: unescape('visitDynamicArrayNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
- messageSends: ["visitNode:"],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addMethod(
- unescape('_visitDynamicDictionaryNode_'),
- smalltalk.method({
- selector: unescape('visitDynamicDictionaryNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self, "_visitNode_", [aNode]);
- return self;},
- args: ["aNode"],
- source: unescape('visitDynamicDictionaryNode%3A%20aNode%0A%09self%20visitNode%3A%20aNode'),
- messageSends: ["visitNode:"],
- referencedClasses: []
- }),
- smalltalk.NodeVisitor);
- smalltalk.addClass('Compiler', smalltalk.NodeVisitor, ['stream', 'nestedBlocks', 'earlyReturn', 'currentClass', 'currentSelector', 'unknownVariables', 'tempVariables', 'messageSends', 'referencedClasses', 'classReferenced', 'source', 'argVariables'], 'Compiler');
- smalltalk.addMethod(
- unescape('_initialize'),
- smalltalk.method({
- selector: unescape('initialize'),
- category: 'initialization',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_initialize", [], smalltalk.NodeVisitor);
- (self['@stream']=smalltalk.send("", "_writeStream", []));
- (self['@unknownVariables']=[]);
- (self['@tempVariables']=[]);
- (self['@argVariables']=[]);
- (self['@messageSends']=[]);
- (self['@classReferenced']=[]);
- return self;},
- args: [],
- source: unescape('initialize%0A%09super%20initialize.%0A%09stream%20%3A%3D%20%27%27%20writeStream.%20%0A%09unknownVariables%20%3A%3D%20%23%28%29.%0A%09tempVariables%20%3A%3D%20%23%28%29.%0A%09argVariables%20%3A%3D%20%23%28%29.%0A%09messageSends%20%3A%3D%20%23%28%29.%0A%09classReferenced%20%3A%3D%20%23%28%29'),
- messageSends: ["initialize", "writeStream"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_parser'),
- smalltalk.method({
- selector: unescape('parser'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.SmalltalkParser || SmalltalkParser), "_new", []);
- return self;},
- args: [],
- source: unescape('parser%0A%09%5ESmalltalkParser%20new'),
- messageSends: ["new"],
- referencedClasses: ["SmalltalkParser"]
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_currentClass'),
- smalltalk.method({
- selector: unescape('currentClass'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return self['@currentClass'];
- return self;},
- args: [],
- source: unescape('currentClass%0A%09%5EcurrentClass'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_currentClass_'),
- smalltalk.method({
- selector: unescape('currentClass%3A'),
- category: 'accessing',
- fn: function (aClass){
- var self=this;
- (self['@currentClass']=aClass);
- return self;},
- args: ["aClass"],
- source: unescape('currentClass%3A%20aClass%0A%09currentClass%20%3A%3D%20aClass'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_loadExpression_'),
- smalltalk.method({
- selector: unescape('loadExpression%3A'),
- category: 'compiling',
- fn: function (aString){
- var self=this;
- var result=nil;
- smalltalk.send((smalltalk.DoIt || DoIt), "_addCompiledMethod_", [smalltalk.send(self, "_eval_", [smalltalk.send(self, "_compileExpression_", [aString])])]);
- (result=smalltalk.send(smalltalk.send((smalltalk.DoIt || DoIt), "_new", []), "_doIt", []));
- smalltalk.send((smalltalk.DoIt || DoIt), "_removeCompiledMethod_", [smalltalk.send(smalltalk.send((smalltalk.DoIt || DoIt), "_methodDictionary", []), "_at_", ["doIt"])]);
- return result;
- return self;},
- args: ["aString"],
- source: unescape('loadExpression%3A%20aString%0A%09%7C%20result%20%7C%0A%09DoIt%20addCompiledMethod%3A%20%28self%20eval%3A%20%28self%20compileExpression%3A%20aString%29%29.%0A%09result%20%3A%3D%20DoIt%20new%20doIt.%0A%09DoIt%20removeCompiledMethod%3A%20%28DoIt%20methodDictionary%20at%3A%20%27doIt%27%29.%0A%09%5Eresult'),
- messageSends: ["addCompiledMethod:", "eval:", "compileExpression:", "doIt", "new", "removeCompiledMethod:", "at:", "methodDictionary"],
- referencedClasses: ["DoIt"]
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_load_forClass_'),
- smalltalk.method({
- selector: unescape('load%3AforClass%3A'),
- category: 'compiling',
- fn: function (aString, aClass){
- var self=this;
- var compiled=nil;
- (compiled=smalltalk.send(self, "_eval_", [smalltalk.send(self, "_compile_forClass_", [aString, aClass])]));
- smalltalk.send(self, "_setupClass_", [aClass]);
- return compiled;
- return self;},
- args: ["aString", "aClass"],
- source: unescape('load%3A%20aString%20forClass%3A%20aClass%0A%09%7C%20compiled%20%7C%0A%09compiled%20%3A%3D%20self%20eval%3A%20%28self%20compile%3A%20aString%20forClass%3A%20aClass%29.%0A%09self%20setupClass%3A%20aClass.%0A%09%5Ecompiled'),
- messageSends: ["eval:", "compile:forClass:", "setupClass:"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_compile_forClass_'),
- smalltalk.method({
- selector: unescape('compile%3AforClass%3A'),
- category: 'compiling',
- fn: function (aString, aClass){
- var self=this;
- smalltalk.send(self, "_currentClass_", [aClass]);
- smalltalk.send(self, "_source_", [aString]);
- return smalltalk.send(self, "_compile_", [aString]);
- return self;},
- args: ["aString", "aClass"],
- source: unescape('compile%3A%20aString%20forClass%3A%20aClass%0A%09self%20currentClass%3A%20aClass.%0A%09self%20source%3A%20aString.%0A%09%5Eself%20compile%3A%20aString'),
- messageSends: ["currentClass:", "source:", "compile:"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_compileExpression_'),
- smalltalk.method({
- selector: unescape('compileExpression%3A'),
- category: 'compiling',
- fn: function (aString){
- var self=this;
- smalltalk.send(self, "_currentClass_", [(smalltalk.DoIt || DoIt)]);
- smalltalk.send(self, "_source_", [smalltalk.send(smalltalk.send(unescape("doIt%20%5E%5B"), "__comma", [aString]), "__comma", [unescape("%5D%20value")])]);
- return smalltalk.send(self, "_compileNode_", [smalltalk.send(self, "_parse_", [smalltalk.send(self, "_source", [])])]);
- return self;},
- args: ["aString"],
- source: unescape('compileExpression%3A%20aString%0A%09self%20currentClass%3A%20DoIt.%0A%09self%20source%3A%20%27doIt%20%5E%5B%27%2C%20aString%2C%20%27%5D%20value%27.%0A%09%5Eself%20compileNode%3A%20%28self%20parse%3A%20self%20source%29'),
- messageSends: ["currentClass:", "source:", unescape("%2C"), "compileNode:", "parse:", "source"],
- referencedClasses: ["DoIt"]
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_eval_'),
- smalltalk.method({
- selector: unescape('eval%3A'),
- category: 'compiling',
- fn: function (aString){
- var self=this;
- return eval(aString);
- return self;},
- args: ["aString"],
- source: unescape('eval%3A%20aString%0A%09%3Creturn%20eval%28aString%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_compile_'),
- smalltalk.method({
- selector: unescape('compile%3A'),
- category: 'compiling',
- fn: function (aString){
- var self=this;
- return smalltalk.send(self, "_compileNode_", [smalltalk.send(self, "_parse_", [aString])]);
- return self;},
- args: ["aString"],
- source: unescape('compile%3A%20aString%0A%09%5Eself%20compileNode%3A%20%28self%20parse%3A%20aString%29'),
- messageSends: ["compileNode:", "parse:"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_compileNode_'),
- smalltalk.method({
- selector: unescape('compileNode%3A'),
- category: 'compiling',
- fn: function (aNode){
- var self=this;
- (self['@stream']=smalltalk.send("", "_writeStream", []));
- smalltalk.send(self, "_visit_", [aNode]);
- return smalltalk.send(self['@stream'], "_contents", []);
- return self;},
- args: ["aNode"],
- source: unescape('compileNode%3A%20aNode%0A%09stream%20%3A%3D%20%27%27%20writeStream.%0A%09self%20visit%3A%20aNode.%0A%09%5Estream%20contents'),
- messageSends: ["writeStream", "visit:", "contents"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visit_'),
- smalltalk.method({
- selector: unescape('visit%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(aNode, "_accept_", [self]);
- return self;},
- args: ["aNode"],
- source: unescape('visit%3A%20aNode%0A%09aNode%20accept%3A%20self'),
- messageSends: ["accept:"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitMethodNode_'),
- smalltalk.method({
- selector: unescape('visitMethodNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- var str=nil;
- var currentSelector=nil;
- (self['@currentSelector']=smalltalk.send(smalltalk.send(aNode, "_selector", []), "_asSelector", []));
- (self['@nestedBlocks']=(0));
- (self['@earlyReturn']=false);
- (self['@messageSends']=[]);
- (self['@referencedClasses']=[]);
- (self['@unknownVariables']=[]);
- (self['@tempVariables']=[]);
- (self['@argVariables']=[]);
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.method%28%7B")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("selector%3A%20%22"), "__comma", [smalltalk.send(aNode, "_selector", [])]), "__comma", [unescape("%22%2C")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("source%3A%20unescape%28%22"), "__comma", [smalltalk.send(smalltalk.send(self, "_source", []), "_escaped", [])]), "__comma", [unescape("%22%29%2C")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("fn%3A%20function%28")]);
- smalltalk.send(smalltalk.send(aNode, "_arguments", []), "_do_separatedBy_", [(function(each){smalltalk.send(self['@argVariables'], "_add_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [each]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C%20")]);})]);
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%29%7B")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [unescape("var%20self%3Dthis%3B")]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);
- (str=self['@stream']);
- (self['@stream']=smalltalk.send("", "_writeStream", []));
- smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){return smalltalk.send(self, "_visit_", [each]);})]);
- ((($receiver = self['@earlyReturn']).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(str, "_nextPutAll_", [unescape("try%7B")]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(str, "_nextPutAll_", [unescape("try%7B")]);})]));
- smalltalk.send(str, "_nextPutAll_", [smalltalk.send(self['@stream'], "_contents", [])]);
- (self['@stream']=str);
- (function($rec){smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("return%20self%3B")]);})(self['@stream']);
- ((($receiver = self['@earlyReturn']).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (function($rec){smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%7D%20catch%28e%29%20%7Bif%28e.name%20%3D%3D%3D%20%27stReturn%27%20%26%26%20e.selector%20%3D%3D%3D%20"), "__comma", [smalltalk.send(self['@currentSelector'], "_printString", [])]), "__comma", [unescape("%29%7Breturn%20e.fn%28%29%7D%20throw%28e%29%7D")])]);})(self['@stream']);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return (function($rec){smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%7D%20catch%28e%29%20%7Bif%28e.name%20%3D%3D%3D%20%27stReturn%27%20%26%26%20e.selector%20%3D%3D%3D%20"), "__comma", [smalltalk.send(self['@currentSelector'], "_printString", [])]), "__comma", [unescape("%29%7Breturn%20e.fn%28%29%7D%20throw%28e%29%7D")])]);})(self['@stream']);})]));
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D")]);
- (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%2C"), "__comma", [smalltalk.send((smalltalk.String || String), "_lf", [])]), "__comma", ["messageSends: "])]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(self['@messageSends'], "_asJavascript", []), "__comma", [unescape("%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("args: ", "__comma", [smalltalk.send(self['@argVariables'], "_asJavascript", [])]), "__comma", [unescape("%2C")])]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("referencedClasses%3A%20%5B")]);})(self['@stream']);
- smalltalk.send(self['@referencedClasses'], "_do_separatedBy_", [(function(each){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(each, "_printString", [])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C")]);})]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%5D")]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%29")]);
- return self;},
- args: ["aNode"],
- source: unescape('visitMethodNode%3A%20aNode%0A%09%7C%20str%20currentSelector%20%7C%20%0A%09currentSelector%20%3A%3D%20aNode%20selector%20asSelector.%0A%09nestedBlocks%20%3A%3D%200.%0A%09earlyReturn%20%3A%3D%20false.%0A%09messageSends%20%3A%3D%20%23%28%29.%0A%09referencedClasses%20%3A%3D%20%23%28%29.%0A%09unknownVariables%20%3A%3D%20%23%28%29.%0A%09tempVariables%20%3A%3D%20%23%28%29.%0A%09argVariables%20%3A%3D%20%23%28%29.%0A%09stream%20%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.method%28%7B%27%3B%20lf%3B%0A%09%20%20%20%20nextPutAll%3A%20%27selector%3A%20%22%27%2C%20aNode%20selector%2C%20%27%22%2C%27%3B%20lf.%0A%09stream%20nextPutAll%3A%20%27source%3A%20unescape%28%22%27%2C%20self%20source%20escaped%2C%20%27%22%29%2C%27%3Blf.%0A%09stream%20nextPutAll%3A%20%27fn%3A%20function%28%27.%0A%09aNode%20arguments%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20%0A%09%09argVariables%20add%3A%20each.%0A%09%09stream%20nextPutAll%3A%20each%5D%0A%09%20%20%20%20separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%09stream%20%0A%09%20%20%20%20nextPutAll%3A%20%27%29%7B%27%3B%20lf%3B%0A%09%20%20%20%20nextPutAll%3A%20%27var%20self%3Dthis%3B%27%3B%20lf.%0A%09str%20%3A%3D%20stream.%0A%09stream%20%3A%3D%20%27%27%20writeStream.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20self%20visit%3A%20each%5D.%0A%09earlyReturn%20ifTrue%3A%20%5B%0A%09%20%20%20%20str%20nextPutAll%3A%20%27try%7B%27%5D.%0A%09str%20nextPutAll%3A%20stream%20contents.%0A%09stream%20%3A%3D%20str.%0A%09stream%20%0A%09%20%20%20%20lf%3B%20%0A%09%20%20%20%20nextPutAll%3A%20%27return%20self%3B%27.%0A%09earlyReturn%20ifTrue%3A%20%5B%0A%09%20%20%20%20stream%20lf%3B%20nextPutAll%3A%20%27%7D%20catch%28e%29%20%7Bif%28e.name%20%3D%3D%3D%20%27%27stReturn%27%27%20%26%26%20e.selector%20%3D%3D%3D%20%27%2C%20currentSelector%20printString%2C%20%27%29%7Breturn%20e.fn%28%29%7D%20throw%28e%29%7D%27%5D.%0A%09stream%20nextPutAll%3A%20%27%7D%27.%0A%09stream%20%0A%09%09nextPutAll%3A%20%27%2C%27%2C%20String%20lf%2C%20%27messageSends%3A%20%27%3B%0A%09%09nextPutAll%3A%20messageSends%20asJavascript%2C%20%27%2C%27%3B%20lf%3B%0A%20%20%20%20%20%20%20%20%20%20%09nextPutAll%3A%20%27args%3A%20%27%2C%20argVariables%20asJavascript%2C%20%27%2C%27%3B%20lf%3B%0A%09%09nextPutAll%3A%20%27referencedClasses%3A%20%5B%27.%0A%09referencedClasses%20%0A%09%09do%3A%20%5B%3Aeach%20%7C%20stream%20nextPutAll%3A%20each%20printString%5D%0A%09%09separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%27%5D.%0A%09stream%20nextPutAll%3A%20%27%5D%27.%0A%09stream%20nextPutAll%3A%20%27%7D%29%27'),
- messageSends: ["asSelector", "selector", "nextPutAll:", "lf", unescape("%2C"), "escaped", "source", "do:separatedBy:", "arguments", "add:", "writeStream", "do:", "nodes", "visit:", "ifTrue:", "contents", "printString", "asJavascript"],
- referencedClasses: ["String"]
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitBlockNode_'),
- smalltalk.method({
- selector: unescape('visitBlockNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28")]);
- smalltalk.send(smalltalk.send(aNode, "_parameters", []), "_do_separatedBy_", [(function(each){smalltalk.send(self['@tempVariables'], "_add_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [each]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C%20")]);})]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%7B")]);
- smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){return smalltalk.send(self, "_visit_", [each]);})]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%29")]);
- return self;},
- args: ["aNode"],
- source: unescape('visitBlockNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20%27%28function%28%27.%0A%09aNode%20parameters%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%0A%09%09tempVariables%20add%3A%20each.%0A%09%09stream%20nextPutAll%3A%20each%5D%0A%09%20%20%20%20separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%09stream%20nextPutAll%3A%20%27%29%7B%27.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%20self%20visit%3A%20each%5D.%0A%09stream%20nextPutAll%3A%20%27%7D%29%27'),
- messageSends: ["nextPutAll:", "do:separatedBy:", "parameters", "add:", "do:", "nodes", "visit:"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitSequenceNode_'),
- smalltalk.method({
- selector: unescape('visitSequenceNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(smalltalk.send(aNode, "_temps", []), "_do_", [(function(each){var temp=nil;
- (temp=smalltalk.send(self, "_safeVariableNameFor_", [each]));smalltalk.send(self['@tempVariables'], "_add_", [temp]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("var ", "__comma", [temp]), "__comma", [unescape("%3Dnil%3B")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);})]);
- smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_separatedBy_", [(function(each){smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);}), (function(){return smalltalk.send(self['@stream'], "_lf", []);})]);
- return self;},
- args: ["aNode"],
- source: unescape('visitSequenceNode%3A%20aNode%0A%09aNode%20temps%20do%3A%20%5B%3Aeach%20%7C%7C%20temp%20%7C%0A%20%20%20%20%20%20%20%20%20%20%20%20temp%20%3A%3D%20self%20safeVariableNameFor%3A%20each.%0A%09%20%20%20%20tempVariables%20add%3A%20temp.%0A%09%20%20%20%20stream%20nextPutAll%3A%20%27var%20%27%2C%20temp%2C%20%27%3Dnil%3B%27%3B%20lf%5D.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20self%20visit%3A%20each.%0A%09%20%20%20%20stream%20nextPutAll%3A%20%27%3B%27%5D%0A%09%20%20%20%20separatedBy%3A%20%5Bstream%20lf%5D'),
- messageSends: ["do:", "temps", "safeVariableNameFor:", "add:", "nextPutAll:", unescape("%2C"), "lf", "do:separatedBy:", "nodes", "visit:"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitBlockSequenceNode_'),
- smalltalk.method({
- selector: unescape('visitBlockSequenceNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- var index=nil;
- (self['@nestedBlocks']=((($receiver = self['@nestedBlocks']).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));
- ((($receiver = smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_isEmpty", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("return%20nil%3B")]);})() : (function(){smalltalk.send(smalltalk.send(aNode, "_temps", []), "_do_", [(function(each){var temp=nil;
- (temp=smalltalk.send(self, "_safeVariableNameFor_", [each]));smalltalk.send(self['@tempVariables'], "_add_", [temp]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("var ", "__comma", [temp]), "__comma", [unescape("%3Dnil%3B")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);})]);(index=(0));return smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){(index=((($receiver = index).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));((($receiver = smalltalk.send(index, "__eq", [smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_size", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})]));smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);})]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("return%20nil%3B")]);}), (function(){smalltalk.send(smalltalk.send(aNode, "_temps", []), "_do_", [(function(each){var temp=nil;
- (temp=smalltalk.send(self, "_safeVariableNameFor_", [each]));smalltalk.send(self['@tempVariables'], "_add_", [temp]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("var ", "__comma", [temp]), "__comma", [unescape("%3Dnil%3B")])]);return smalltalk.send($rec, "_lf", []);})(self['@stream']);})]);(index=(0));return smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){(index=((($receiver = index).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));((($receiver = smalltalk.send(index, "__eq", [smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_size", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})]));smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);})]);})]));
- (self['@nestedBlocks']=((($receiver = self['@nestedBlocks']).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])));
- return self;},
- args: ["aNode"],
- source: unescape('visitBlockSequenceNode%3A%20aNode%0A%09%7C%20index%20%7C%0A%09nestedBlocks%20%3A%3D%20nestedBlocks%20+%201.%0A%09aNode%20nodes%20isEmpty%0A%09%20%20%20%20ifTrue%3A%20%5B%0A%09%09stream%20nextPutAll%3A%20%27return%20nil%3B%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09aNode%20temps%20do%3A%20%5B%3Aeach%20%7C%20%7C%20temp%20%7C%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20temp%20%3A%3D%20self%20safeVariableNameFor%3A%20each.%0A%09%09%20%20%20%20tempVariables%20add%3A%20temp.%0A%09%09%20%20%20%20stream%20nextPutAll%3A%20%27var%20%27%2C%20temp%2C%20%27%3Dnil%3B%27%3B%20lf%5D.%0A%09%09index%20%3A%3D%200.%0A%09%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%09%20%20%20%20index%20%3A%3D%20index%20+%201.%0A%09%09%20%20%20%20index%20%3D%20aNode%20nodes%20size%20ifTrue%3A%20%5B%0A%09%09%09stream%20nextPutAll%3A%20%27return%20%27%5D.%0A%09%09%20%20%20%20self%20visit%3A%20each.%0A%09%09%20%20%20%20stream%20nextPutAll%3A%20%27%3B%27%5D%5D.%0A%09nestedBlocks%20%3A%3D%20nestedBlocks%20-%201'),
- messageSends: [unescape("+"), "ifTrue:ifFalse:", "isEmpty", "nodes", "nextPutAll:", "do:", "temps", "safeVariableNameFor:", "add:", unescape("%2C"), "lf", "ifTrue:", unescape("%3D"), "size", "visit:", unescape("-")],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitReturnNode_'),
- smalltalk.method({
- selector: unescape('visitReturnNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- ((($receiver = ((($receiver = self['@nestedBlocks']).klass === smalltalk.Number) ? $receiver >(0) : smalltalk.send($receiver, "__gt", [(0)]))).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (self['@earlyReturn']=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return (self['@earlyReturn']=true);})]));
- ((($receiver = self['@earlyReturn']).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%28function%28%29%7Bthrow%28")]);smalltalk.send($rec, "_nextPutAll_", [unescape("%7Bname%3A%20%27stReturn%27%2C%20selector%3A%20")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self['@currentSelector'], "_printString", [])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%2C%20fn%3A%20function%28%29%7Breturn%20")]);})(self['@stream']);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%28function%28%29%7Bthrow%28")]);smalltalk.send($rec, "_nextPutAll_", [unescape("%7Bname%3A%20%27stReturn%27%2C%20selector%3A%20")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self['@currentSelector'], "_printString", [])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%2C%20fn%3A%20function%28%29%7Breturn%20")]);})(self['@stream']);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})]));
- smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){return smalltalk.send(self, "_visit_", [each]);})]);
- ((($receiver = self['@earlyReturn']).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%7D%29%7D%29%28%29")]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%7D%29%7D%29%28%29")]);})]));
- return self;},
- args: ["aNode"],
- source: unescape('visitReturnNode%3A%20aNode%0A%09nestedBlocks%20%3E%200%20ifTrue%3A%20%5B%0A%09%20%20%20%20earlyReturn%20%3A%3D%20true%5D.%0A%09earlyReturn%0A%09%20%20%20%20ifTrue%3A%20%5B%0A%09%09stream%0A%09%09%20%20%20%20nextPutAll%3A%20%27%28function%28%29%7Bthrow%28%27%3B%0A%09%09%20%20%20%20nextPutAll%3A%20%27%7Bname%3A%20%27%27stReturn%27%27%2C%20selector%3A%20%27%3B%0A%09%09%20%20%20%20nextPutAll%3A%20currentSelector%20printString%3B%0A%09%09%20%20%20%20nextPutAll%3A%20%27%2C%20fn%3A%20function%28%29%7Breturn%20%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5Bstream%20nextPutAll%3A%20%27return%20%27%5D.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20self%20visit%3A%20each%5D.%0A%09earlyReturn%20ifTrue%3A%20%5B%0A%09%20%20%20%20stream%20nextPutAll%3A%20%27%7D%7D%29%7D%29%28%29%27%5D'),
- messageSends: ["ifTrue:", unescape("%3E"), "ifTrue:ifFalse:", "nextPutAll:", "printString", "do:", "nodes", "visit:"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitSendNode_'),
- smalltalk.method({
- selector: unescape('visitSendNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- var str=nil;
- var receiver=nil;
- var superSend=nil;
- var inlined=nil;
- (str=self['@stream']);
- ((($receiver = smalltalk.send(self['@messageSends'], "_includes_", [smalltalk.send(aNode, "_selector", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self['@messageSends'], "_add_", [smalltalk.send(aNode, "_selector", [])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self['@messageSends'], "_add_", [smalltalk.send(aNode, "_selector", [])]);})]));
- (self['@stream']=smalltalk.send("", "_writeStream", []));
- smalltalk.send(self, "_visit_", [smalltalk.send(aNode, "_receiver", [])]);
- (superSend=smalltalk.send(smalltalk.send(self['@stream'], "_contents", []), "__eq", ["super"]));
- (receiver=((($receiver = superSend).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "self";})() : (function(){return smalltalk.send(self['@stream'], "_contents", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "self";}), (function(){return smalltalk.send(self['@stream'], "_contents", []);})])));
- (self['@stream']=str);
- ((($receiver = smalltalk.send(self, "_performOptimizations", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_inlineLiteral_receiverNode_argumentNodes_", [smalltalk.send(aNode, "_selector", []), smalltalk.send(aNode, "_receiver", []), smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return ((($receiver = smalltalk.send(self, "_inline_receiver_argumentNodes_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return ((($receiver = smalltalk.send(self, "_inline_receiver_argumentNodes_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));})]));})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return ((($receiver = smalltalk.send(self, "_inlineLiteral_receiverNode_argumentNodes_", [smalltalk.send(aNode, "_selector", []), smalltalk.send(aNode, "_receiver", []), smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return ((($receiver = smalltalk.send(self, "_inline_receiver_argumentNodes_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return ((($receiver = smalltalk.send(self, "_inline_receiver_argumentNodes_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(" : ", "__comma", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), "$receiver", smalltalk.send(aNode, "_arguments", []), superSend])]), "__comma", [unescape("%29")])]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));})]));}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(self, "_send_to_arguments_superSend_", [smalltalk.send(aNode, "_selector", []), receiver, smalltalk.send(aNode, "_arguments", []), superSend])]);})]));
- return self;},
- args: ["aNode"],
- source: unescape('visitSendNode%3A%20aNode%0A%20%20%20%20%20%20%20%20%7C%20str%20receiver%20superSend%20inlined%20%7C%0A%20%20%20%20%20%20%20%20str%20%3A%3D%20stream.%0A%20%20%20%20%20%20%20%20%28messageSends%20includes%3A%20aNode%20selector%29%20ifFalse%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20messageSends%20add%3A%20aNode%20selector%5D.%0A%20%20%20%20%20%20%20%20stream%20%3A%3D%20%27%27%20writeStream.%0A%20%20%20%20%20%20%20%20self%20visit%3A%20aNode%20receiver.%0A%20%20%20%20%20%20%20%20superSend%20%3A%3D%20stream%20contents%20%3D%20%27super%27.%0A%20%20%20%20%20%20%20%20receiver%20%3A%3D%20superSend%20ifTrue%3A%20%5B%27self%27%5D%20ifFalse%3A%20%5Bstream%20contents%5D.%0A%20%20%20%20%20%20%20%20stream%20%3A%3D%20str.%0A%09%0A%09self%20performOptimizations%20%0A%09%09ifTrue%3A%20%5B%0A%09%09%09%28self%20inlineLiteral%3A%20aNode%20selector%20receiverNode%3A%20aNode%20receiver%20argumentNodes%3A%20aNode%20arguments%29%20ifFalse%3A%20%5B%0A%09%09%09%09%28self%20inline%3A%20aNode%20selector%20receiver%3A%20receiver%20argumentNodes%3A%20aNode%20arguments%29%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09%09ifTrue%3A%20%5Bstream%20nextPutAll%3A%20%27%20%3A%20%27%2C%20%28self%20send%3A%20aNode%20selector%20to%3A%20%27%24receiver%27%20arguments%3A%20aNode%20arguments%20superSend%3A%20superSend%29%2C%20%27%29%27%5D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09%09ifFalse%3A%20%5Bstream%20nextPutAll%3A%20%28self%20send%3A%20aNode%20selector%20to%3A%20receiver%20arguments%3A%20aNode%20arguments%20superSend%3A%20superSend%29%5D%5D%5D%0A%09%09ifFalse%3A%20%5Bstream%20nextPutAll%3A%20%28self%20send%3A%20aNode%20selector%20to%3A%20receiver%20arguments%3A%20aNode%20arguments%20superSend%3A%20superSend%29%5D'),
- messageSends: ["ifFalse:", "includes:", "selector", "add:", "writeStream", "visit:", "receiver", unescape("%3D"), "contents", "ifTrue:ifFalse:", "performOptimizations", "inlineLiteral:receiverNode:argumentNodes:", "arguments", "inline:receiver:argumentNodes:", "nextPutAll:", unescape("%2C"), "send:to:arguments:superSend:"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitCascadeNode_'),
- smalltalk.method({
- selector: unescape('visitCascadeNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- var index=nil;
- (index=(0));
- ((($receiver = smalltalk.send(self['@tempVariables'], "_includes_", ["$rec"])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self['@tempVariables'], "_add_", ["$rec"]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self['@tempVariables'], "_add_", ["$rec"]);})]));
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%24rec%29%7B")]);
- smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_", [(function(each){(index=((($receiver = index).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));((($receiver = smalltalk.send(index, "__eq", [smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_size", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", ["return "]);})]));smalltalk.send(each, "_receiver_", [smalltalk.send(smalltalk.send((smalltalk.VariableNode || VariableNode), "_new", []), "_value_", ["$rec"])]);smalltalk.send(self, "_visit_", [each]);return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3B")]);})]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%7D%29%28")]);
- smalltalk.send(self, "_visit_", [smalltalk.send(aNode, "_receiver", [])]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29")]);
- return self;},
- args: ["aNode"],
- source: unescape('visitCascadeNode%3A%20aNode%0A%09%7C%20index%20%7C%0A%09index%20%3A%3D%200.%0A%09%28tempVariables%20includes%3A%20%27%24rec%27%29%20ifFalse%3A%20%5B%0A%09%09tempVariables%20add%3A%20%27%24rec%27%5D.%0A%09stream%20nextPutAll%3A%20%27%28function%28%24rec%29%7B%27.%0A%09aNode%20nodes%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20index%20%3A%3D%20index%20+%201.%0A%09%20%20%20%20index%20%3D%20aNode%20nodes%20size%20ifTrue%3A%20%5B%0A%09%09stream%20nextPutAll%3A%20%27return%20%27%5D.%0A%09%20%20%20%20each%20receiver%3A%20%28VariableNode%20new%20value%3A%20%27%24rec%27%29.%0A%09%20%20%20%20self%20visit%3A%20each.%0A%09%20%20%20%20stream%20nextPutAll%3A%20%27%3B%27%5D.%0A%09stream%20nextPutAll%3A%20%27%7D%29%28%27.%0A%09self%20visit%3A%20aNode%20receiver.%0A%09stream%20nextPutAll%3A%20%27%29%27'),
- messageSends: ["ifFalse:", "includes:", "add:", "nextPutAll:", "do:", "nodes", unescape("+"), "ifTrue:", unescape("%3D"), "size", "receiver:", "value:", "new", "visit:", "receiver"],
- referencedClasses: ["VariableNode"]
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitValueNode_'),
- smalltalk.method({
- selector: unescape('visitValueNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(aNode, "_value", []), "_asJavascript", [])]);
- return self;},
- args: ["aNode"],
- source: unescape('visitValueNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20aNode%20value%20asJavascript'),
- messageSends: ["nextPutAll:", "asJavascript", "value"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitAssignmentNode_'),
- smalltalk.method({
- selector: unescape('visitAssignmentNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28")]);
- smalltalk.send(self, "_visit_", [smalltalk.send(aNode, "_left", [])]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%3D")]);
- smalltalk.send(self, "_visit_", [smalltalk.send(aNode, "_right", [])]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29")]);
- return self;},
- args: ["aNode"],
- source: unescape('visitAssignmentNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20%27%28%27.%0A%09self%20visit%3A%20aNode%20left.%0A%09stream%20nextPutAll%3A%20%27%3D%27.%0A%09self%20visit%3A%20aNode%20right.%0A%09stream%20nextPutAll%3A%20%27%29%27'),
- messageSends: ["nextPutAll:", "visit:", "left", "right"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitClassReferenceNode_'),
- smalltalk.method({
- selector: unescape('visitClassReferenceNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- ((($receiver = smalltalk.send(self['@referencedClasses'], "_includes_", [smalltalk.send(aNode, "_value", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self['@referencedClasses'], "_add_", [smalltalk.send(aNode, "_value", [])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self['@referencedClasses'], "_add_", [smalltalk.send(aNode, "_value", [])]);})]));
- smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28smalltalk."), "__comma", [smalltalk.send(aNode, "_value", [])]), "__comma", [unescape("%20%7C%7C%20")]), "__comma", [smalltalk.send(aNode, "_value", [])]), "__comma", [unescape("%29")])]);
- return self;},
- args: ["aNode"],
- source: unescape('visitClassReferenceNode%3A%20aNode%0A%09%28referencedClasses%20includes%3A%20aNode%20value%29%20ifFalse%3A%20%5B%0A%09%09referencedClasses%20add%3A%20aNode%20value%5D.%0A%09stream%20nextPutAll%3A%20%27%28smalltalk.%27%2C%20aNode%20value%2C%20%27%20%7C%7C%20%27%2C%20aNode%20value%2C%20%27%29%27'),
- messageSends: ["ifFalse:", "includes:", "value", "add:", "nextPutAll:", unescape("%2C")],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitVariableNode_'),
- smalltalk.method({
- selector: unescape('visitVariableNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- var varName=nil;
- ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(self, "_currentClass", []), "_allInstanceVariableNames", []), "_includes_", [smalltalk.send(aNode, "_value", [])])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("self%5B%27@"), "__comma", [smalltalk.send(aNode, "_value", [])]), "__comma", [unescape("%27%5D")])]);})() : (function(){(varName=smalltalk.send(self, "_safeVariableNameFor_", [smalltalk.send(aNode, "_value", [])]));return ((($receiver = smalltalk.send(smalltalk.send(self, "_knownVariables", []), "_includes_", [varName])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){smalltalk.send(self['@unknownVariables'], "_add_", [smalltalk.send(aNode, "_value", [])]);return ((($receiver = smalltalk.send(aNode, "_assigned", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})]));})() : (function(){return ((($receiver = smalltalk.send(smalltalk.send(aNode, "_value", []), "__eq", ["thisContext"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})]));})()) : smalltalk.send($receiver, "_ifFalse_ifTrue_", [(function(){smalltalk.send(self['@unknownVariables'], "_add_", [smalltalk.send(aNode, "_value", [])]);return ((($receiver = smalltalk.send(aNode, "_assigned", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})]));}), (function(){return ((($receiver = smalltalk.send(smalltalk.send(aNode, "_value", []), "__eq", ["thisContext"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})]));})]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("self%5B%27@"), "__comma", [smalltalk.send(aNode, "_value", [])]), "__comma", [unescape("%27%5D")])]);}), (function(){(varName=smalltalk.send(self, "_safeVariableNameFor_", [smalltalk.send(aNode, "_value", [])]));return ((($receiver = smalltalk.send(smalltalk.send(self, "_knownVariables", []), "_includes_", [varName])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){smalltalk.send(self['@unknownVariables'], "_add_", [smalltalk.send(aNode, "_value", [])]);return ((($receiver = smalltalk.send(aNode, "_assigned", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})]));})() : (function(){return ((($receiver = smalltalk.send(smalltalk.send(aNode, "_value", []), "__eq", ["thisContext"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})]));})()) : smalltalk.send($receiver, "_ifFalse_ifTrue_", [(function(){smalltalk.send(self['@unknownVariables'], "_add_", [smalltalk.send(aNode, "_value", [])]);return ((($receiver = smalltalk.send(aNode, "_assigned", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28typeof%20"), "__comma", [varName]), "__comma", [unescape("%20%3D%3D%20%27undefined%27%20%3F%20nil%20%3A%20")]), "__comma", [varName]), "__comma", [unescape("%29")])]);})]));}), (function(){return ((($receiver = smalltalk.send(smalltalk.send(aNode, "_value", []), "__eq", ["thisContext"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);})() : (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28smalltalk.getThisContext%28%29%29")]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [varName]);})]));})]));})]));
- return self;},
- args: ["aNode"],
- source: unescape('visitVariableNode%3A%20aNode%0A%09%7C%20varName%20%7C%0A%09%28self%20currentClass%20allInstanceVariableNames%20includes%3A%20aNode%20value%29%20%0A%09%09ifTrue%3A%20%5Bstream%20nextPutAll%3A%20%27self%5B%27%27@%27%2C%20aNode%20value%2C%20%27%27%27%5D%27%5D%0A%09%09ifFalse%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09varName%20%3A%3D%20self%20safeVariableNameFor%3A%20aNode%20value.%0A%09%09%09%28self%20knownVariables%20includes%3A%20varName%29%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09ifFalse%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09unknownVariables%20add%3A%20aNode%20value.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09aNode%20assigned%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09ifTrue%3A%20%5Bstream%20nextPutAll%3A%20varName%5D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09ifFalse%3A%20%5Bstream%20nextPutAll%3A%20%27%28typeof%20%27%2C%20varName%2C%20%27%20%3D%3D%20%27%27undefined%27%27%20%3F%20nil%20%3A%20%27%2C%20varName%2C%20%27%29%27%5D%5D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09aNode%20value%20%3D%20%27thisContext%27%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09ifTrue%3A%20%5Bstream%20nextPutAll%3A%20%27%28smalltalk.getThisContext%28%29%29%27%5D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09%09%09ifFalse%3A%20%5Bstream%20nextPutAll%3A%20varName%5D%5D%5D'),
- messageSends: ["ifTrue:ifFalse:", "includes:", "allInstanceVariableNames", "currentClass", "value", "nextPutAll:", unescape("%2C"), "safeVariableNameFor:", "ifFalse:ifTrue:", "knownVariables", "add:", "assigned", unescape("%3D")],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitJSStatementNode_'),
- smalltalk.method({
- selector: unescape('visitJSStatementNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(aNode, "_source", []), "_replace_with_", [unescape("%3E%3E"), unescape("%3E")])]);
- return self;},
- args: ["aNode"],
- source: unescape('visitJSStatementNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20%28aNode%20source%20replace%3A%20%27%3E%3E%27%20with%3A%20%27%3E%27%29'),
- messageSends: ["nextPutAll:", "replace:with:", "source"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_parse_'),
- smalltalk.method({
- selector: unescape('parse%3A'),
- category: 'compiling',
- fn: function (aString){
- var self=this;
- return smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_parse_", [aString]);
- return self;},
- args: ["aString"],
- source: unescape('parse%3A%20aString%0A%20%20%20%20%5ESmalltalk%20current%20parse%3A%20aString'),
- messageSends: ["parse:", "current"],
- referencedClasses: ["Smalltalk"]
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_parseExpression_'),
- smalltalk.method({
- selector: unescape('parseExpression%3A'),
- category: 'compiling',
- fn: function (aString){
- var self=this;
- return smalltalk.send(self, "_parse_", [smalltalk.send(smalltalk.send(unescape("doIt%20%5E%5B"), "__comma", [aString]), "__comma", [unescape("%5D%20value")])]);
- return self;},
- args: ["aString"],
- source: unescape('parseExpression%3A%20aString%0A%20%20%20%20%5Eself%20parse%3A%20%27doIt%20%5E%5B%27%2C%20aString%2C%20%27%5D%20value%27'),
- messageSends: ["parse:", unescape("%2C")],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_unknownVariables'),
- smalltalk.method({
- selector: unescape('unknownVariables'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@unknownVariables'], "_copy", []);
- return self;},
- args: [],
- source: unescape('unknownVariables%0A%09%5EunknownVariables%20copy'),
- messageSends: ["copy"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_pseudoVariables'),
- smalltalk.method({
- selector: unescape('pseudoVariables'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return ["self", "super", "true", "false", "nil", "thisContext"];
- return self;},
- args: [],
- source: unescape('pseudoVariables%0A%09%5E%23%28%27self%27%20%27super%27%20%27true%27%20%27false%27%20%27nil%27%20%27thisContext%27%29'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_tempVariables'),
- smalltalk.method({
- selector: unescape('tempVariables'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@tempVariables'], "_copy", []);
- return self;},
- args: [],
- source: unescape('tempVariables%0A%09%5EtempVariables%20copy'),
- messageSends: ["copy"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_knownVariables'),
- smalltalk.method({
- selector: unescape('knownVariables'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_addAll_", [smalltalk.send(self, "_tempVariables", [])]);smalltalk.send($rec, "_addAll_", [smalltalk.send(self, "_argVariables", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_pseudoVariables", []));
- return self;},
- args: [],
- source: unescape('knownVariables%0A%09%5Eself%20pseudoVariables%20%0A%09%09addAll%3A%20self%20tempVariables%3B%0A%09%09addAll%3A%20self%20argVariables%3B%0A%09%09yourself'),
- messageSends: ["addAll:", "tempVariables", "argVariables", "yourself", "pseudoVariables"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_recompile_'),
- smalltalk.method({
- selector: unescape('recompile%3A'),
- category: 'compiling',
- fn: function (aClass){
- var self=this;
- smalltalk.send(smalltalk.send(aClass, "_methodDictionary", []), "_do_", [(function(each){var method=nil;
- (method=smalltalk.send(self, "_load_forClass_", [smalltalk.send(each, "_source", []), aClass]));smalltalk.send(method, "_category_", [smalltalk.send(each, "_category", [])]);return smalltalk.send(aClass, "_addCompiledMethod_", [method]);})]);
- ((($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_recompile_", [smalltalk.send(aClass, "_class", [])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_recompile_", [smalltalk.send(aClass, "_class", [])]);})]));
- return self;},
- args: ["aClass"],
- source: unescape('recompile%3A%20aClass%0A%09aClass%20methodDictionary%20do%3A%20%5B%3Aeach%20%7C%7C%20method%20%7C%0A%09%09method%20%3A%3D%20self%20load%3A%20each%20source%20forClass%3A%20aClass.%0A%09%09method%20category%3A%20each%20category.%0A%09%09aClass%20addCompiledMethod%3A%20method%5D.%0A%09aClass%20isMetaclass%20ifFalse%3A%20%5Bself%20recompile%3A%20aClass%20class%5D'),
- messageSends: ["do:", "methodDictionary", "load:forClass:", "source", "category:", "category", "addCompiledMethod:", "ifFalse:", "isMetaclass", "recompile:", "class"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_recompileAll'),
- smalltalk.method({
- selector: unescape('recompileAll'),
- category: 'compiling',
- fn: function (){
- var self=this;
- smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "_do_", [(function(each){(function($rec){smalltalk.send($rec, "_show_", [each]);return smalltalk.send($rec, "_cr", []);})((smalltalk.Transcript || Transcript));return smalltalk.send((function(){return smalltalk.send(self, "_recompile_", [each]);}), "_valueWithTimeout_", [(100)]);})]);
- return self;},
- args: [],
- source: unescape('recompileAll%0A%09Smalltalk%20current%20classes%20do%3A%20%5B%3Aeach%20%7C%0A%09%09Transcript%20show%3A%20each%3B%20cr.%0A%09%09%5Bself%20recompile%3A%20each%5D%20valueWithTimeout%3A%20100%5D'),
- messageSends: ["do:", "classes", "current", "show:", "cr", "valueWithTimeout:", "recompile:"],
- referencedClasses: ["Smalltalk", "Transcript"]
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_classNameFor_'),
- smalltalk.method({
- selector: unescape('classNameFor%3A'),
- category: 'accessing',
- fn: function (aClass){
- var self=this;
- return ((($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [".klass"]);})() : (function(){return ((($receiver = smalltalk.send(aClass, "_isNil", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "nil";})() : (function(){return smalltalk.send(aClass, "_name", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [".klass"]);}), (function(){return ((($receiver = smalltalk.send(aClass, "_isNil", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "nil";})() : (function(){return smalltalk.send(aClass, "_name", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]));})]));
- return self;},
- args: ["aClass"],
- source: unescape('classNameFor%3A%20aClass%0A%09%5EaClass%20isMetaclass%0A%09%20%20%20%20ifTrue%3A%20%5BaClass%20instanceClass%20name%2C%20%27.klass%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09aClass%20isNil%0A%09%09%20%20%20%20ifTrue%3A%20%5B%27nil%27%5D%0A%09%09%20%20%20%20ifFalse%3A%20%5BaClass%20name%5D%5D'),
- messageSends: ["ifTrue:ifFalse:", "isMetaclass", unescape("%2C"), "name", "instanceClass", "isNil"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitFailure_'),
- smalltalk.method({
- selector: unescape('visitFailure%3A'),
- category: 'visiting',
- fn: function (aFailure){
- var self=this;
- smalltalk.send(self, "_error_", [smalltalk.send(aFailure, "_asString", [])]);
- return self;},
- args: ["aFailure"],
- source: unescape('visitFailure%3A%20aFailure%0A%09self%20error%3A%20aFailure%20asString'),
- messageSends: ["error:", "asString"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_setupClass_'),
- smalltalk.method({
- selector: unescape('setupClass%3A'),
- category: 'compiling',
- fn: function (aClass){
- var self=this;
- smalltalk.init(aClass);
- return self;},
- args: ["aClass"],
- source: unescape('setupClass%3A%20aClass%0A%09%3Csmalltalk.init%28aClass%29%3E'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_send_to_arguments_superSend_'),
- smalltalk.method({
- selector: unescape('send%3Ato%3Aarguments%3AsuperSend%3A'),
- category: 'visiting',
- fn: function (aSelector, aReceiver, aCollection, aBoolean){
- var self=this;
- return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(str){var tmp=nil;
- (tmp=self['@stream']);smalltalk.send(str, "_nextPutAll_", [unescape("smalltalk.send%28")]);smalltalk.send(str, "_nextPutAll_", [aReceiver]);smalltalk.send(str, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%2C%20%22"), "__comma", [smalltalk.send(aSelector, "_asSelector", [])]), "__comma", [unescape("%22%2C%20%5B")])]);(self['@stream']=str);smalltalk.send(aCollection, "_do_separatedBy_", [(function(each){return smalltalk.send(self, "_visit_", [each]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C%20")]);})]);(self['@stream']=tmp);smalltalk.send(str, "_nextPutAll_", [unescape("%5D")]);((($receiver = aBoolean).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(str, "_nextPutAll_", [smalltalk.send(unescape("%2C%20smalltalk."), "__comma", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(smalltalk.send(self, "_currentClass", []), "_superclass", [])])])]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(str, "_nextPutAll_", [smalltalk.send(unescape("%2C%20smalltalk."), "__comma", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(smalltalk.send(self, "_currentClass", []), "_superclass", [])])])]);})]));return smalltalk.send(str, "_nextPutAll_", [unescape("%29")]);})]);
- return self;},
- args: ["aSelector", "aReceiver", "aCollection", "aBoolean"],
- source: unescape('send%3A%20aSelector%20to%3A%20aReceiver%20arguments%3A%20aCollection%20superSend%3A%20aBoolean%0A%09%5EString%20streamContents%3A%20%5B%3Astr%20%7C%7C%20tmp%20%7C%0A%20%20%20%20%20%20%20%20%09tmp%20%3A%3D%20stream.%0A%09%09str%20nextPutAll%3A%20%27smalltalk.send%28%27.%0A%09%09str%20nextPutAll%3A%20aReceiver.%0A%09%09str%20nextPutAll%3A%20%27%2C%20%22%27%2C%20aSelector%20asSelector%2C%20%27%22%2C%20%5B%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20%3A%3D%20str.%0A%09%09aCollection%0A%09%20%20%20%20%09%09do%3A%20%5B%3Aeach%20%7C%20self%20visit%3A%20each%5D%0A%09%20%20%20%20%09%09separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20%3A%3D%20tmp.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20str%20nextPutAll%3A%20%27%5D%27.%0A%09%09aBoolean%20ifTrue%3A%20%5B%0A%09%09%09str%20nextPutAll%3A%20%27%2C%20smalltalk.%27%2C%20%28self%20classNameFor%3A%20self%20currentClass%20superclass%29%5D.%0A%09%09str%20nextPutAll%3A%20%27%29%27%5D'),
- messageSends: ["streamContents:", "nextPutAll:", unescape("%2C"), "asSelector", "do:separatedBy:", "visit:", "ifTrue:", "classNameFor:", "superclass", "currentClass"],
- referencedClasses: ["String"]
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_checkClass_for_'),
- smalltalk.method({
- selector: unescape('checkClass%3Afor%3A'),
- category: 'optimizations',
- fn: function (aClassName, receiver){
- var self=this;
- smalltalk.send(self['@stream'], "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28%28%28%24receiver%20%3D%20"), "__comma", [receiver]), "__comma", [unescape("%29.klass%20%3D%3D%3D%20smalltalk.")]), "__comma", [aClassName]), "__comma", [unescape("%29%20%3F%20")])]);
- return self;},
- args: ["aClassName", "receiver"],
- source: unescape('checkClass%3A%20aClassName%20for%3A%20receiver%0A%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%28%28%28%24receiver%20%3D%20%27%2C%20receiver%2C%20%27%29.klass%20%3D%3D%3D%20smalltalk.%27%2C%20aClassName%2C%20%27%29%20%3F%20%27'),
- messageSends: ["nextPutAll:", unescape("%2C")],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_inlineLiteral_receiverNode_argumentNodes_'),
- smalltalk.method({
- selector: unescape('inlineLiteral%3AreceiverNode%3AargumentNodes%3A'),
- category: 'optimizations',
- fn: function (aSelector, anObject, aCollection){
- var self=this;
- var inlined=nil;
- (inlined=false);
- ((($receiver = smalltalk.send(aSelector, "__eq", ["whileTrue:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(anObject, "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(anObject, "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", ["whileFalse:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(anObject, "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(anObject, "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%7D%7D%29%28%29")]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", ["whileTrue"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(anObject, "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(anObject, "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", ["whileFalse"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(anObject, "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(anObject, "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28function%28%29%7Bwhile%28%21")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29%20%7B%7D%7D%29%28%29")]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("+")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20+%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20+%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20+%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20+%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("-")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20-%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20-%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20-%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20-%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("*")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20*%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20*%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20*%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20*%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("/")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20/%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20/%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20/%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20/%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3C")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3C%3D")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3C%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3E")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3E%3D")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(self, "_isNode_ofClass_", [anObject, (smalltalk.Number || Number)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%20%3E%3D%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", ["ifNil:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20%24receiver")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20%24receiver")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20%24receiver")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20%24receiver")]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", ["ifNotNil:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil")]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", ["ifNil:ifNotNil:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", ["ifNotNil:ifNil:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%28%24receiver%20%3D%20")]);smalltalk.send(self, "_visit_", [anObject]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29")]);return (inlined=true);})]));})]));
- return inlined;
- return self;},
- args: ["aSelector", "anObject", "aCollection"],
- source: unescape('inlineLiteral%3A%20aSelector%20receiverNode%3A%20anObject%20argumentNodes%3A%20aCollection%0A%20%20%20%20%20%20%20%20%7C%20inlined%20%7C%0A%20%20%20%20%20%20%20%20inlined%20%3A%3D%20false.%0A%20%0A%09%22--%20BlockClosures%20--%22%0A%0A%09%28aSelector%20%3D%20%27whileTrue%3A%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28anObject%20isBlockNode%20and%3A%20%5BaCollection%20first%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28function%28%29%7Bwhile%28%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%29%20%7B%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%7D%7D%29%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27whileFalse%3A%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28anObject%20isBlockNode%20and%3A%20%5BaCollection%20first%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28function%28%29%7Bwhile%28%21%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%29%20%7B%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%7D%7D%29%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27whileTrue%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09anObject%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28function%28%29%7Bwhile%28%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%29%20%7B%7D%7D%29%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27whileFalse%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09anObject%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28function%28%29%7Bwhile%28%21%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%29%20%7B%7D%7D%29%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%22--%20Numbers%20--%22%0A%0A%09%28aSelector%20%3D%20%27+%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20+%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27-%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20-%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27*%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20*%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27/%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20/%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27%3C%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20%3C%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27%3C%3D%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20%3C%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27%3E%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20%3E%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27%3E%3D%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%28self%20isNode%3A%20anObject%20ofClass%3A%20Number%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%20%3E%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%20%20%20%0A%09%22--%20UndefinedObject%20--%22%0A%0A%09%28aSelector%20%3D%20%27ifNil%3A%27%29%20ifTrue%3A%20%5B%0A%09%09aCollection%20first%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%28%24receiver%20%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20%24receiver%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifNotNil%3A%27%29%20ifTrue%3A%20%5B%0A%09%09aCollection%20first%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%28%24receiver%20%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%29%20%21%3D%20nil%20%26%26%20%24receiver%20%21%3D%20undefined%29%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20nil%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifNil%3AifNotNil%3A%27%29%20ifTrue%3A%20%5B%0A%09%09%28aCollection%20first%20isBlockNode%20and%3A%20%5BaCollection%20second%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%28%24receiver%20%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20second.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifNotNil%3AifNil%3A%27%29%20ifTrue%3A%20%5B%0A%09%09%28aCollection%20first%20isBlockNode%20and%3A%20%5BaCollection%20second%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%28%24receiver%20%3D%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20anObject.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%29%20%3D%3D%20nil%20%7C%7C%20%24receiver%20%3D%3D%20undefined%29%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20second.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%5Einlined'),
- messageSends: ["ifTrue:", unescape("%3D"), "and:", "isBlockNode", "first", "nextPutAll:", "visit:", "isNode:ofClass:", "second"],
- referencedClasses: ["Number"]
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_isNode_ofClass_'),
- smalltalk.method({
- selector: unescape('isNode%3AofClass%3A'),
- category: 'optimizations',
- fn: function (aNode, aClass){
- var self=this;
- return smalltalk.send(smalltalk.send(aNode, "_isValueNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aNode, "_value", []), "_class", []), "__eq", [aClass]), "_or_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(aNode, "_value", []), "__eq", ["self"]), "_and_", [(function(){return smalltalk.send(smalltalk.send(self, "_currentClass", []), "__eq", [aClass]);})]);})]);})]);
- return self;},
- args: ["aNode", "aClass"],
- source: unescape('isNode%3A%20aNode%20ofClass%3A%20aClass%0A%09%5EaNode%20isValueNode%20and%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09aNode%20value%20class%20%3D%20aClass%20or%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%09%09aNode%20value%20%3D%20%27self%27%20and%3A%20%5Bself%20currentClass%20%3D%20aClass%5D%5D%5D'),
- messageSends: ["and:", "isValueNode", "or:", unescape("%3D"), "class", "value", "currentClass"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_inline_receiver_argumentNodes_'),
- smalltalk.method({
- selector: unescape('inline%3Areceiver%3AargumentNodes%3A'),
- category: 'optimizations',
- fn: function (aSelector, receiver, aCollection){
- var self=this;
- var inlined=nil;
- (inlined=false);
- ((($receiver = smalltalk.send(aSelector, "__eq", ["ifFalse:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", ["ifTrue:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20nil%29")]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", ["ifTrue:ifFalse:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", ["ifFalse:ifTrue:"])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})]));})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(aCollection, "_first", []), "_isBlockNode", []), "_and_", [(function(){return smalltalk.send(smalltalk.send(aCollection, "_second", []), "_isBlockNode", []);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Boolean", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%21%20%24receiver%20%3F%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%20%3A%20")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_second", [])]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%28%29%29")]);return (inlined=true);})]));})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3C")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3C")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3C")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3C%3D")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3C%3D")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3C%3D")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3E")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3E")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3E")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("%3E%3D")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3E%3D")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20%3E%3D")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("+")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20+")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20+")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("-")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20-")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20-")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("*")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20*")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20*")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
- ((($receiver = smalltalk.send(aSelector, "__eq", [unescape("/")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20/")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(self, "_checkClass_for_", ["Number", receiver]);smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%24receiver%20/")]);smalltalk.send(self, "_visit_", [smalltalk.send(aCollection, "_first", [])]);return (inlined=true);})]));
- return inlined;
- return self;},
- args: ["aSelector", "receiver", "aCollection"],
- source: unescape('inline%3A%20aSelector%20receiver%3A%20receiver%20argumentNodes%3A%20aCollection%0A%20%20%20%20%20%20%20%20%7C%20inlined%20%7C%0A%20%20%20%20%20%20%20%20inlined%20%3A%3D%20false.%0A%0A%09%22--%20Booleans%20--%22%0A%0A%09%28aSelector%20%3D%20%27ifFalse%3A%27%29%20ifTrue%3A%20%5B%0A%09%09aCollection%20first%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20checkClass%3A%20%27Boolean%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%21%20%24receiver%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20nil%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifTrue%3A%27%29%20ifTrue%3A%20%5B%0A%09%09aCollection%20first%20isBlockNode%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20checkClass%3A%20%27Boolean%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%24receiver%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20nil%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifTrue%3AifFalse%3A%27%29%20ifTrue%3A%20%5B%0A%09%09%28aCollection%20first%20isBlockNode%20and%3A%20%5BaCollection%20second%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20checkClass%3A%20%27Boolean%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%24receiver%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20aCollection%20second.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%28aSelector%20%3D%20%27ifFalse%3AifTrue%3A%27%29%20ifTrue%3A%20%5B%0A%09%09%28aCollection%20first%20isBlockNode%20and%3A%20%5BaCollection%20second%20isBlockNode%5D%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20checkClass%3A%20%27Boolean%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09stream%20nextPutAll%3A%20%27%28%21%20%24receiver%20%3F%20%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%20%3A%20%27.%0A%20%20%20%20%20%20%20%20%20%20%09%09self%20visit%3A%20aCollection%20second.%0A%20%20%20%20%20%20%20%20%20%20%09%09stream%20nextPutAll%3A%20%27%28%29%29%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09inlined%20%3A%3D%20true%5D%5D.%0A%0A%09%22--%20Numbers%20--%22%0A%0A%09%28aSelector%20%3D%20%27%3C%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20%3C%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%09%28aSelector%20%3D%20%27%3C%3D%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20%3C%3D%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%09%28aSelector%20%3D%20%27%3E%27%29%20ifTrue%3A%20%5B%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20%3E%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%09%28aSelector%20%3D%20%27%3E%3D%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20%3E%3D%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%20%20%20%20%20%20%20%20%28aSelector%20%3D%20%27+%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20+%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%20%20%20%20%20%20%20%20%28aSelector%20%3D%20%27-%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20-%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%20%20%20%20%20%20%20%20%28aSelector%20%3D%20%27*%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20*%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%20%20%20%20%20%20%20%20%28aSelector%20%3D%20%27/%27%29%20ifTrue%3A%20%5B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20checkClass%3A%20%27Number%27%20for%3A%20receiver.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20stream%20nextPutAll%3A%20%27%24receiver%20/%27.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20self%20visit%3A%20aCollection%20first.%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20inlined%20%3A%3D%20true%5D.%0A%0A%20%20%20%20%20%20%20%20%5Einlined'),
- messageSends: ["ifTrue:", unescape("%3D"), "isBlockNode", "first", "checkClass:for:", "nextPutAll:", "visit:", "and:", "second"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_performOptimizations'),
- smalltalk.method({
- selector: unescape('performOptimizations'),
- category: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_class", []), "_performOptimizations", []);
- return self;},
- args: [],
- source: unescape('performOptimizations%0A%09%5Eself%20class%20performOptimizations'),
- messageSends: ["performOptimizations", "class"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_source'),
- smalltalk.method({
- selector: unescape('source'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = self['@source']) == nil || $receiver == undefined) ? (function(){return "";})() : $receiver;
- return self;},
- args: [],
- source: unescape('source%0A%09%5Esource%20ifNil%3A%20%5B%27%27%5D'),
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_source_'),
- smalltalk.method({
- selector: unescape('source%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- (self['@source']=aString);
- return self;},
- args: ["aString"],
- source: unescape('source%3A%20aString%0A%09source%20%3A%3D%20aString'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitDynamicArrayNode_'),
- smalltalk.method({
- selector: unescape('visitDynamicArrayNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%5B")]);
- smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_separatedBy_", [(function(each){return smalltalk.send(self, "_visit_", [each]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C")]);})]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%5D")]);
- return self;},
- args: ["aNode"],
- source: unescape('visitDynamicArrayNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20%27%5B%27.%0A%09aNode%20nodes%20%0A%09%09do%3A%20%5B%3Aeach%20%7C%20self%20visit%3A%20each%5D%0A%09%09separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%27%5D.%0A%09stream%20nextPutAll%3A%20%27%5D%27'),
- messageSends: ["nextPutAll:", "do:separatedBy:", "nodes", "visit:"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_visitDynamicDictionaryNode_'),
- smalltalk.method({
- selector: unescape('visitDynamicDictionaryNode%3A'),
- category: 'visiting',
- fn: function (aNode){
- var self=this;
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("smalltalk.HashedCollection._fromPairs_%28%5B")]);
- smalltalk.send(smalltalk.send(aNode, "_nodes", []), "_do_separatedBy_", [(function(each){return smalltalk.send(self, "_visit_", [each]);}), (function(){return smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%2C")]);})]);
- smalltalk.send(self['@stream'], "_nextPutAll_", [unescape("%5D%29")]);
- return self;},
- args: ["aNode"],
- source: unescape('visitDynamicDictionaryNode%3A%20aNode%0A%09stream%20nextPutAll%3A%20%27smalltalk.HashedCollection._fromPairs_%28%5B%27.%0A%09%09aNode%20nodes%20%0A%09%09%09do%3A%20%5B%3Aeach%20%7C%20self%20visit%3A%20each%5D%0A%09%09%09separatedBy%3A%20%5Bstream%20nextPutAll%3A%20%27%2C%27%5D.%0A%09%09stream%20nextPutAll%3A%20%27%5D%29%27'),
- messageSends: ["nextPutAll:", "do:separatedBy:", "nodes", "visit:"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_argVariables'),
- smalltalk.method({
- selector: unescape('argVariables'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@argVariables'], "_copy", []);
- return self;},
- args: [],
- source: unescape('argVariables%0A%09%5EargVariables%20copy'),
- messageSends: ["copy"],
- referencedClasses: []
- }),
- smalltalk.Compiler);
- smalltalk.addMethod(
- unescape('_safeVariableNameFor_'),
- smalltalk.method({
- selector: unescape('safeVariableNameFor%3A'),
- category: 'accessing',
- fn: function (aString){
- var self=this;
- return ((($receiver = smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_reservedWords", []), "_includes_", [aString])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(aString, "__comma", ["_"]);})() : (function(){return aString;})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(aString, "__comma", ["_"]);}), (function(){return aString;})]));
- return self;},
- args: ["aString"],
- source: unescape('safeVariableNameFor%3A%20aString%0A%09%5E%28Smalltalk%20current%20reservedWords%20includes%3A%20aString%29%0A%09%09ifTrue%3A%20%5BaString%2C%20%27_%27%5D%0A%09%09ifFalse%3A%20%5BaString%5D'),
- messageSends: ["ifTrue:ifFalse:", "includes:", "reservedWords", "current", unescape("%2C")],
- referencedClasses: ["Smalltalk"]
- }),
- smalltalk.Compiler);
- smalltalk.Compiler.klass.iVarNames = ['performOptimizations'];
- smalltalk.addMethod(
- unescape('_recompile_'),
- smalltalk.method({
- selector: unescape('recompile%3A'),
- category: 'compiling',
- fn: function (aClass){
- var self=this;
- smalltalk.send(smalltalk.send(aClass, "_methodDictionary", []), "_do_", [(function(each){var method=nil;
- (method=smalltalk.send(smalltalk.send(self, "_new", []), "_load_forClass_", [smalltalk.send(each, "_source", []), aClass]));smalltalk.send(method, "_category_", [smalltalk.send(each, "_category", [])]);return smalltalk.send(aClass, "_addCompiledMethod_", [method]);})]);
- ((($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_recompile_", [smalltalk.send(aClass, "_class", [])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_recompile_", [smalltalk.send(aClass, "_class", [])]);})]));
- return self;},
- args: ["aClass"],
- source: unescape('recompile%3A%20aClass%0A%09aClass%20methodDictionary%20do%3A%20%5B%3Aeach%20%7C%7C%20method%20%7C%0A%09%09method%20%3A%3D%20self%20new%20load%3A%20each%20source%20forClass%3A%20aClass.%0A%09%09method%20category%3A%20each%20category.%0A%09%09aClass%20addCompiledMethod%3A%20method%5D.%0A%09aClass%20isMetaclass%20ifFalse%3A%20%5Bself%20recompile%3A%20aClass%20class%5D'),
- messageSends: ["do:", "methodDictionary", "load:forClass:", "new", "source", "category:", "category", "addCompiledMethod:", "ifFalse:", "isMetaclass", "recompile:", "class"],
- referencedClasses: []
- }),
- smalltalk.Compiler.klass);
- smalltalk.addMethod(
- unescape('_recompileAll'),
- smalltalk.method({
- selector: unescape('recompileAll'),
- category: 'compiling',
- fn: function (){
- var self=this;
- smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "_do_", [(function(each){return smalltalk.send(self, "_recompile_", [each]);})]);
- return self;},
- args: [],
- source: unescape('recompileAll%0A%09Smalltalk%20current%20classes%20do%3A%20%5B%3Aeach%20%7C%0A%09%09self%20recompile%3A%20each%5D'),
- messageSends: ["do:", "classes", "current", "recompile:"],
- referencedClasses: ["Smalltalk"]
- }),
- smalltalk.Compiler.klass);
- smalltalk.addMethod(
- unescape('_performOptimizations'),
- smalltalk.method({
- selector: unescape('performOptimizations'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return (($receiver = self['@performOptimizations']) == nil || $receiver == undefined) ? (function(){return true;})() : $receiver;
- return self;},
- args: [],
- source: unescape('performOptimizations%0A%09%5EperformOptimizations%20ifNil%3A%20%5Btrue%5D'),
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- smalltalk.Compiler.klass);
- smalltalk.addMethod(
- unescape('_performOptimizations_'),
- smalltalk.method({
- selector: unescape('performOptimizations%3A'),
- category: 'accessing',
- fn: function (aBoolean){
- var self=this;
- (self['@performOptimizations']=aBoolean);
- return self;},
- args: ["aBoolean"],
- source: unescape('performOptimizations%3A%20aBoolean%0A%09performOptimizations%20%3A%3D%20aBoolean'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Compiler.klass);
- smalltalk.addClass('DoIt', smalltalk.Object, [], 'Compiler');
- smalltalk.addClass('DynamicArrayNode', smalltalk.Node, [], 'Compiler');
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitDynamicArrayNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitDynamicArrayNode%3A%20self'),
- messageSends: ["visitDynamicArrayNode:"],
- referencedClasses: []
- }),
- smalltalk.DynamicArrayNode);
- smalltalk.addClass('DynamicDictionaryNode', smalltalk.Node, [], 'Compiler');
- smalltalk.addMethod(
- unescape('_accept_'),
- smalltalk.method({
- selector: unescape('accept%3A'),
- category: 'visiting',
- fn: function (aVisitor){
- var self=this;
- smalltalk.send(aVisitor, "_visitDynamicDictionaryNode_", [self]);
- return self;},
- args: ["aVisitor"],
- source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitDynamicDictionaryNode%3A%20self'),
- messageSends: ["visitDynamicDictionaryNode:"],
- referencedClasses: []
- }),
- smalltalk.DynamicDictionaryNode);
- smalltalk.parser = (function(){
- /* Generated by PEG.js 0.6.2 (http://pegjs.majda.cz/). */
-
- var result = {
- /*
- * Parses the input with a generated parser. If the parsing is successfull,
- * returns a value explicitly or implicitly specified by the grammar from
- * which the parser was generated (see |PEG.buildParser|). If the parsing is
- * unsuccessful, throws |PEG.parser.SyntaxError| describing the error.
- */
- parse: function(input, startRule) {
- var parseFunctions = {
- "assignment": parse_assignment,
- "binaryMessage": parse_binaryMessage,
- "binaryPattern": parse_binaryPattern,
- "binarySelector": parse_binarySelector,
- "binarySend": parse_binarySend,
- "binaryTail": parse_binaryTail,
- "block": parse_block,
- "blockParamList": parse_blockParamList,
- "cascade": parse_cascade,
- "className": parse_className,
- "classReference": parse_classReference,
- "comments": parse_comments,
- "dynamicArray": parse_dynamicArray,
- "dynamicDictionary": parse_dynamicDictionary,
- "expression": parse_expression,
- "expressionList": parse_expressionList,
- "expressions": parse_expressions,
- "float": parse_float,
- "identifier": parse_identifier,
- "integer": parse_integer,
- "jsStatement": parse_jsStatement,
- "keyword": parse_keyword,
- "keywordMessage": parse_keywordMessage,
- "keywordPair": parse_keywordPair,
- "keywordPattern": parse_keywordPattern,
- "keywordSend": parse_keywordSend,
- "literal": parse_literal,
- "literalArray": parse_literalArray,
- "message": parse_message,
- "method": parse_method,
- "number": parse_number,
- "operand": parse_operand,
- "pseudoVariable": parse_pseudoVariable,
- "reference": parse_reference,
- "ret": parse_ret,
- "separator": parse_separator,
- "sequence": parse_sequence,
- "statements": parse_statements,
- "string": parse_string,
- "subexpression": parse_subexpression,
- "symbol": parse_symbol,
- "temps": parse_temps,
- "unaryMessage": parse_unaryMessage,
- "unaryPattern": parse_unaryPattern,
- "unarySend": parse_unarySend,
- "unaryTail": parse_unaryTail,
- "variable": parse_variable,
- "ws": parse_ws
- };
-
- if (startRule !== undefined) {
- if (parseFunctions[startRule] === undefined) {
- throw new Error("Invalid rule name: " + quote(startRule) + ".");
- }
- } else {
- startRule = "method";
- }
-
- var pos = 0;
- var reportMatchFailures = true;
- var rightmostMatchFailuresPos = 0;
- var rightmostMatchFailuresExpected = [];
- var cache = {};
-
- function padLeft(input, padding, length) {
- var result = input;
-
- var padLength = length - input.length;
- for (var i = 0; i < padLength; i++) {
- result = padding + result;
- }
-
- return result;
- }
-
- function escape(ch) {
- var charCode = ch.charCodeAt(0);
-
- if (charCode <= 0xFF) {
- var escapeChar = 'x';
- var length = 2;
- } else {
- var escapeChar = 'u';
- var length = 4;
- }
-
- return '\\' + escapeChar + padLeft(charCode.toString(16).toUpperCase(), '0', length);
- }
-
- function quote(s) {
- /*
- * ECMA-262, 5th ed., 7.8.4: All characters may appear literally in a
- * string literal except for the closing quote character, backslash,
- * carriage return, line separator, paragraph separator, and line feed.
- * Any character may appear in the form of an escape sequence.
- */
- return '"' + s
- .replace(/\\/g, '\\\\') // backslash
- .replace(/"/g, '\\"') // closing quote character
- .replace(/\r/g, '\\r') // carriage return
- .replace(/\n/g, '\\n') // line feed
- .replace(/[\x80-\uFFFF]/g, escape) // non-ASCII characters
- + '"';
- }
-
- function matchFailed(failure) {
- if (pos < rightmostMatchFailuresPos) {
- return;
- }
-
- if (pos > rightmostMatchFailuresPos) {
- rightmostMatchFailuresPos = pos;
- rightmostMatchFailuresExpected = [];
- }
-
- rightmostMatchFailuresExpected.push(failure);
- }
-
- function parse_separator() {
- var cacheKey = 'separator@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- if (input.substr(pos).match(/^[ \xA0\uFEFF\n\r\u2028\u2029]/) !== null) {
- var result1 = input.charAt(pos);
- pos++;
- } else {
- var result1 = null;
- if (reportMatchFailures) {
- matchFailed("[ \\xA0\\uFEFF\\n\\r\\u2028\\u2029]");
- }
- }
- if (result1 !== null) {
- var result0 = [];
- while (result1 !== null) {
- result0.push(result1);
- if (input.substr(pos).match(/^[ \xA0\uFEFF\n\r\u2028\u2029]/) !== null) {
- var result1 = input.charAt(pos);
- pos++;
- } else {
- var result1 = null;
- if (reportMatchFailures) {
- matchFailed("[ \\xA0\\uFEFF\\n\\r\\u2028\\u2029]");
- }
- }
- }
- } else {
- var result0 = null;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_comments() {
- var cacheKey = 'comments@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- if (input.substr(pos).match(/^["]/) !== null) {
- var result2 = input.charAt(pos);
- pos++;
- } else {
- var result2 = null;
- if (reportMatchFailures) {
- matchFailed("[\"]");
- }
- }
- if (result2 !== null) {
- var result3 = [];
- if (input.substr(pos).match(/^[^"]/) !== null) {
- var result5 = input.charAt(pos);
- pos++;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("[^\"]");
- }
- }
- while (result5 !== null) {
- result3.push(result5);
- if (input.substr(pos).match(/^[^"]/) !== null) {
- var result5 = input.charAt(pos);
- pos++;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("[^\"]");
- }
- }
- }
- if (result3 !== null) {
- if (input.substr(pos).match(/^["]/) !== null) {
- var result4 = input.charAt(pos);
- pos++;
- } else {
- var result4 = null;
- if (reportMatchFailures) {
- matchFailed("[\"]");
- }
- }
- if (result4 !== null) {
- var result1 = [result2, result3, result4];
- } else {
- var result1 = null;
- pos = savedPos0;
- }
- } else {
- var result1 = null;
- pos = savedPos0;
- }
- } else {
- var result1 = null;
- pos = savedPos0;
- }
- if (result1 !== null) {
- var result0 = [];
- while (result1 !== null) {
- result0.push(result1);
- var savedPos0 = pos;
- if (input.substr(pos).match(/^["]/) !== null) {
- var result2 = input.charAt(pos);
- pos++;
- } else {
- var result2 = null;
- if (reportMatchFailures) {
- matchFailed("[\"]");
- }
- }
- if (result2 !== null) {
- var result3 = [];
- if (input.substr(pos).match(/^[^"]/) !== null) {
- var result5 = input.charAt(pos);
- pos++;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("[^\"]");
- }
- }
- while (result5 !== null) {
- result3.push(result5);
- if (input.substr(pos).match(/^[^"]/) !== null) {
- var result5 = input.charAt(pos);
- pos++;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("[^\"]");
- }
- }
- }
- if (result3 !== null) {
- if (input.substr(pos).match(/^["]/) !== null) {
- var result4 = input.charAt(pos);
- pos++;
- } else {
- var result4 = null;
- if (reportMatchFailures) {
- matchFailed("[\"]");
- }
- }
- if (result4 !== null) {
- var result1 = [result2, result3, result4];
- } else {
- var result1 = null;
- pos = savedPos0;
- }
- } else {
- var result1 = null;
- pos = savedPos0;
- }
- } else {
- var result1 = null;
- pos = savedPos0;
- }
- }
- } else {
- var result0 = null;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_ws() {
- var cacheKey = 'ws@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var result0 = [];
- var result3 = parse_separator();
- if (result3 !== null) {
- var result1 = result3;
- } else {
- var result2 = parse_comments();
- if (result2 !== null) {
- var result1 = result2;
- } else {
- var result1 = null;;
- };
- }
- while (result1 !== null) {
- result0.push(result1);
- var result3 = parse_separator();
- if (result3 !== null) {
- var result1 = result3;
- } else {
- var result2 = parse_comments();
- if (result2 !== null) {
- var result1 = result2;
- } else {
- var result1 = null;;
- };
- }
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_identifier() {
- var cacheKey = 'identifier@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- if (input.substr(pos).match(/^[a-z]/) !== null) {
- var result3 = input.charAt(pos);
- pos++;
- } else {
- var result3 = null;
- if (reportMatchFailures) {
- matchFailed("[a-z]");
- }
- }
- if (result3 !== null) {
- var result4 = [];
- if (input.substr(pos).match(/^[a-zA-Z0-9]/) !== null) {
- var result5 = input.charAt(pos);
- pos++;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("[a-zA-Z0-9]");
- }
- }
- while (result5 !== null) {
- result4.push(result5);
- if (input.substr(pos).match(/^[a-zA-Z0-9]/) !== null) {
- var result5 = input.charAt(pos);
- pos++;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("[a-zA-Z0-9]");
- }
- }
- }
- if (result4 !== null) {
- var result1 = [result3, result4];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(first, others) {return first + others.join("")})(result1[0], result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_keyword() {
- var cacheKey = 'keyword@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_identifier();
- if (result3 !== null) {
- if (input.substr(pos).match(/^[:]/) !== null) {
- var result4 = input.charAt(pos);
- pos++;
- } else {
- var result4 = null;
- if (reportMatchFailures) {
- matchFailed("[:]");
- }
- }
- if (result4 !== null) {
- var result1 = [result3, result4];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(first, last) {return first + last})(result1[0], result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_className() {
- var cacheKey = 'className@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- if (input.substr(pos).match(/^[A-Z]/) !== null) {
- var result3 = input.charAt(pos);
- pos++;
- } else {
- var result3 = null;
- if (reportMatchFailures) {
- matchFailed("[A-Z]");
- }
- }
- if (result3 !== null) {
- var result4 = [];
- if (input.substr(pos).match(/^[a-zA-Z0-9]/) !== null) {
- var result5 = input.charAt(pos);
- pos++;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("[a-zA-Z0-9]");
- }
- }
- while (result5 !== null) {
- result4.push(result5);
- if (input.substr(pos).match(/^[a-zA-Z0-9]/) !== null) {
- var result5 = input.charAt(pos);
- pos++;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("[a-zA-Z0-9]");
- }
- }
- }
- if (result4 !== null) {
- var result1 = [result3, result4];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(first, others) {return first + others.join("")})(result1[0], result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_string() {
- var cacheKey = 'string@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- if (input.substr(pos).match(/^[']/) !== null) {
- var result3 = input.charAt(pos);
- pos++;
- } else {
- var result3 = null;
- if (reportMatchFailures) {
- matchFailed("[']");
- }
- }
- if (result3 !== null) {
- var result4 = [];
- var savedPos2 = pos;
- if (input.substr(pos, 2) === "''") {
- var result9 = "''";
- pos += 2;
- } else {
- var result9 = null;
- if (reportMatchFailures) {
- matchFailed("\"''\"");
- }
- }
- var result10 = result9 !== null
- ? (function() {return "'"})()
- : null;
- if (result10 !== null) {
- var result8 = result10;
- } else {
- var result8 = null;
- pos = savedPos2;
- }
- if (result8 !== null) {
- var result6 = result8;
- } else {
- if (input.substr(pos).match(/^[^']/) !== null) {
- var result7 = input.charAt(pos);
- pos++;
- } else {
- var result7 = null;
- if (reportMatchFailures) {
- matchFailed("[^']");
- }
- }
- if (result7 !== null) {
- var result6 = result7;
- } else {
- var result6 = null;;
- };
- }
- while (result6 !== null) {
- result4.push(result6);
- var savedPos2 = pos;
- if (input.substr(pos, 2) === "''") {
- var result9 = "''";
- pos += 2;
- } else {
- var result9 = null;
- if (reportMatchFailures) {
- matchFailed("\"''\"");
- }
- }
- var result10 = result9 !== null
- ? (function() {return "'"})()
- : null;
- if (result10 !== null) {
- var result8 = result10;
- } else {
- var result8 = null;
- pos = savedPos2;
- }
- if (result8 !== null) {
- var result6 = result8;
- } else {
- if (input.substr(pos).match(/^[^']/) !== null) {
- var result7 = input.charAt(pos);
- pos++;
- } else {
- var result7 = null;
- if (reportMatchFailures) {
- matchFailed("[^']");
- }
- }
- if (result7 !== null) {
- var result6 = result7;
- } else {
- var result6 = null;;
- };
- }
- }
- if (result4 !== null) {
- if (input.substr(pos).match(/^[']/) !== null) {
- var result5 = input.charAt(pos);
- pos++;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("[']");
- }
- }
- if (result5 !== null) {
- var result1 = [result3, result4, result5];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(val) {
- return smalltalk.ValueNode._new()
- ._value_(val.join("").replace(/\"/ig, '"'))
- })(result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_symbol() {
- var cacheKey = 'symbol@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- if (input.substr(pos, 1) === "#") {
- var result3 = "#";
- pos += 1;
- } else {
- var result3 = null;
- if (reportMatchFailures) {
- matchFailed("\"#\"");
- }
- }
- if (result3 !== null) {
- var result4 = [];
- if (input.substr(pos).match(/^[a-zA-Z0-9]/) !== null) {
- var result5 = input.charAt(pos);
- pos++;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("[a-zA-Z0-9]");
- }
- }
- while (result5 !== null) {
- result4.push(result5);
- if (input.substr(pos).match(/^[a-zA-Z0-9]/) !== null) {
- var result5 = input.charAt(pos);
- pos++;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("[a-zA-Z0-9]");
- }
- }
- }
- if (result4 !== null) {
- var result1 = [result3, result4];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(val) {
- return smalltalk.ValueNode._new()
- ._value_(smalltalk.symbolFor(val.join("").replace(/\"/ig, '"')))
- })(result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_number() {
- var cacheKey = 'number@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var result4 = parse_float();
- if (result4 !== null) {
- var result1 = result4;
- } else {
- var result3 = parse_integer();
- if (result3 !== null) {
- var result1 = result3;
- } else {
- var result1 = null;;
- };
- }
- var result2 = result1 !== null
- ? (function(n) {
- return smalltalk.ValueNode._new()
- ._value_(n)
- })(result1)
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_float() {
- var cacheKey = 'float@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- if (input.substr(pos).match(/^[\-]/) !== null) {
- var result7 = input.charAt(pos);
- pos++;
- } else {
- var result7 = null;
- if (reportMatchFailures) {
- matchFailed("[\\-]");
- }
- }
- var result3 = result7 !== null ? result7 : '';
- if (result3 !== null) {
- var result4 = parse_integer();
- if (result4 !== null) {
- if (input.substr(pos, 1) === ".") {
- var result5 = ".";
- pos += 1;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("\".\"");
- }
- }
- if (result5 !== null) {
- var result6 = parse_integer();
- if (result6 !== null) {
- var result1 = [result3, result4, result5, result6];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(neg, int, dec) {return parseFloat((neg+int+"."+dec), 10)})(result1[0], result1[1], result1[3])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_integer() {
- var cacheKey = 'integer@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- if (input.substr(pos).match(/^[\-]/) !== null) {
- var result6 = input.charAt(pos);
- pos++;
- } else {
- var result6 = null;
- if (reportMatchFailures) {
- matchFailed("[\\-]");
- }
- }
- var result3 = result6 !== null ? result6 : '';
- if (result3 !== null) {
- if (input.substr(pos).match(/^[0-9]/) !== null) {
- var result5 = input.charAt(pos);
- pos++;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("[0-9]");
- }
- }
- if (result5 !== null) {
- var result4 = [];
- while (result5 !== null) {
- result4.push(result5);
- if (input.substr(pos).match(/^[0-9]/) !== null) {
- var result5 = input.charAt(pos);
- pos++;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("[0-9]");
- }
- }
- }
- } else {
- var result4 = null;
- }
- if (result4 !== null) {
- var result1 = [result3, result4];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(neg, digits) {return (parseInt(neg+digits.join(""), 10))})(result1[0], result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_literalArray() {
- var cacheKey = 'literalArray@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- if (input.substr(pos, 2) === "#(") {
- var result3 = "#(";
- pos += 2;
- } else {
- var result3 = null;
- if (reportMatchFailures) {
- matchFailed("\"#(\"");
- }
- }
- if (result3 !== null) {
- var result4 = parse_ws();
- if (result4 !== null) {
- var result5 = [];
- var savedPos2 = pos;
- var savedPos3 = pos;
- var result11 = parse_literal();
- if (result11 !== null) {
- var result12 = parse_ws();
- if (result12 !== null) {
- var result9 = [result11, result12];
- } else {
- var result9 = null;
- pos = savedPos3;
- }
- } else {
- var result9 = null;
- pos = savedPos3;
- }
- var result10 = result9 !== null
- ? (function(lit) {return lit._value()})(result9[0])
- : null;
- if (result10 !== null) {
- var result8 = result10;
- } else {
- var result8 = null;
- pos = savedPos2;
- }
- while (result8 !== null) {
- result5.push(result8);
- var savedPos2 = pos;
- var savedPos3 = pos;
- var result11 = parse_literal();
- if (result11 !== null) {
- var result12 = parse_ws();
- if (result12 !== null) {
- var result9 = [result11, result12];
- } else {
- var result9 = null;
- pos = savedPos3;
- }
- } else {
- var result9 = null;
- pos = savedPos3;
- }
- var result10 = result9 !== null
- ? (function(lit) {return lit._value()})(result9[0])
- : null;
- if (result10 !== null) {
- var result8 = result10;
- } else {
- var result8 = null;
- pos = savedPos2;
- }
- }
- if (result5 !== null) {
- var result6 = parse_ws();
- if (result6 !== null) {
- if (input.substr(pos, 1) === ")") {
- var result7 = ")";
- pos += 1;
- } else {
- var result7 = null;
- if (reportMatchFailures) {
- matchFailed("\")\"");
- }
- }
- if (result7 !== null) {
- var result1 = [result3, result4, result5, result6, result7];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(lits) {
- return smalltalk.ValueNode._new()
- ._value_(lits)
- })(result1[2])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_dynamicArray() {
- var cacheKey = 'dynamicArray@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- if (input.substr(pos, 1) === "{") {
- var result3 = "{";
- pos += 1;
- } else {
- var result3 = null;
- if (reportMatchFailures) {
- matchFailed("\"{\"");
- }
- }
- if (result3 !== null) {
- var result4 = parse_ws();
- if (result4 !== null) {
- var result8 = parse_expressions();
- var result5 = result8 !== null ? result8 : '';
- if (result5 !== null) {
- var result6 = parse_ws();
- if (result6 !== null) {
- if (input.substr(pos, 1) === "}") {
- var result7 = "}";
- pos += 1;
- } else {
- var result7 = null;
- if (reportMatchFailures) {
- matchFailed("\"}\"");
- }
- }
- if (result7 !== null) {
- var result1 = [result3, result4, result5, result6, result7];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(expressions) {
- return smalltalk.DynamicArrayNode._new()
- ._nodes_(expressions)
- })(result1[2])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_dynamicDictionary() {
- var cacheKey = 'dynamicDictionary@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- if (input.substr(pos, 2) === "#{") {
- var result3 = "#{";
- pos += 2;
- } else {
- var result3 = null;
- if (reportMatchFailures) {
- matchFailed("\"#{\"");
- }
- }
- if (result3 !== null) {
- var result4 = parse_ws();
- if (result4 !== null) {
- var result8 = parse_expressions();
- var result5 = result8 !== null ? result8 : '';
- if (result5 !== null) {
- var result6 = parse_ws();
- if (result6 !== null) {
- if (input.substr(pos, 1) === "}") {
- var result7 = "}";
- pos += 1;
- } else {
- var result7 = null;
- if (reportMatchFailures) {
- matchFailed("\"}\"");
- }
- }
- if (result7 !== null) {
- var result1 = [result3, result4, result5, result6, result7];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(expressions) {
- return smalltalk.DynamicDictionaryNode._new()
- ._nodes_(expressions)
- })(result1[2])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_pseudoVariable() {
- var cacheKey = 'pseudoVariable@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos3 = pos;
- if (input.substr(pos, 4) === "true") {
- var result10 = "true";
- pos += 4;
- } else {
- var result10 = null;
- if (reportMatchFailures) {
- matchFailed("\"true\"");
- }
- }
- var result11 = result10 !== null
- ? (function() {return true})()
- : null;
- if (result11 !== null) {
- var result9 = result11;
- } else {
- var result9 = null;
- pos = savedPos3;
- }
- if (result9 !== null) {
- var result1 = result9;
- } else {
- var savedPos2 = pos;
- if (input.substr(pos, 5) === "false") {
- var result7 = "false";
- pos += 5;
- } else {
- var result7 = null;
- if (reportMatchFailures) {
- matchFailed("\"false\"");
- }
- }
- var result8 = result7 !== null
- ? (function() {return false})()
- : null;
- if (result8 !== null) {
- var result6 = result8;
- } else {
- var result6 = null;
- pos = savedPos2;
- }
- if (result6 !== null) {
- var result1 = result6;
- } else {
- var savedPos1 = pos;
- if (input.substr(pos, 3) === "nil") {
- var result4 = "nil";
- pos += 3;
- } else {
- var result4 = null;
- if (reportMatchFailures) {
- matchFailed("\"nil\"");
- }
- }
- var result5 = result4 !== null
- ? (function() {return nil})()
- : null;
- if (result5 !== null) {
- var result3 = result5;
- } else {
- var result3 = null;
- pos = savedPos1;
- }
- if (result3 !== null) {
- var result1 = result3;
- } else {
- var result1 = null;;
- };
- };
- }
- var result2 = result1 !== null
- ? (function(val) {
- return smalltalk.ValueNode._new()._value_(val)
- })(result1)
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_literal() {
- var cacheKey = 'literal@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var result8 = parse_pseudoVariable();
- if (result8 !== null) {
- var result0 = result8;
- } else {
- var result7 = parse_number();
- if (result7 !== null) {
- var result0 = result7;
- } else {
- var result6 = parse_literalArray();
- if (result6 !== null) {
- var result0 = result6;
- } else {
- var result5 = parse_dynamicDictionary();
- if (result5 !== null) {
- var result0 = result5;
- } else {
- var result4 = parse_dynamicArray();
- if (result4 !== null) {
- var result0 = result4;
- } else {
- var result3 = parse_string();
- if (result3 !== null) {
- var result0 = result3;
- } else {
- var result2 = parse_symbol();
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result1 = parse_block();
- if (result1 !== null) {
- var result0 = result1;
- } else {
- var result0 = null;;
- };
- };
- };
- };
- };
- };
- };
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_variable() {
- var cacheKey = 'variable@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var result1 = parse_identifier();
- var result2 = result1 !== null
- ? (function(identifier) {
- return smalltalk.VariableNode._new()
- ._value_(identifier)
- })(result1)
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_classReference() {
- var cacheKey = 'classReference@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var result1 = parse_className();
- var result2 = result1 !== null
- ? (function(className) {
- return smalltalk.ClassReferenceNode._new()
- ._value_(className)
- })(result1)
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_reference() {
- var cacheKey = 'reference@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var result2 = parse_variable();
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result1 = parse_classReference();
- if (result1 !== null) {
- var result0 = result1;
- } else {
- var result0 = null;;
- };
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_keywordPair() {
- var cacheKey = 'keywordPair@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_keyword();
- if (result3 !== null) {
- var result4 = parse_ws();
- if (result4 !== null) {
- var result5 = parse_binarySend();
- if (result5 !== null) {
- var result6 = parse_ws();
- if (result6 !== null) {
- var result1 = [result3, result4, result5, result6];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(key, arg) {return {key:key, arg: arg}})(result1[0], result1[2])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_binarySelector() {
- var cacheKey = 'binarySelector@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- if (input.substr(pos).match(/^[\\+*\/=><,@%~|&\-]/) !== null) {
- var result3 = input.charAt(pos);
- pos++;
- } else {
- var result3 = null;
- if (reportMatchFailures) {
- matchFailed("[\\\\+*\\/=><,@%~|&\\-]");
- }
- }
- if (result3 !== null) {
- var result1 = [];
- while (result3 !== null) {
- result1.push(result3);
- if (input.substr(pos).match(/^[\\+*\/=><,@%~|&\-]/) !== null) {
- var result3 = input.charAt(pos);
- pos++;
- } else {
- var result3 = null;
- if (reportMatchFailures) {
- matchFailed("[\\\\+*\\/=><,@%~|&\\-]");
- }
- }
- }
- } else {
- var result1 = null;
- }
- var result2 = result1 !== null
- ? (function(bin) {return bin.join("").replace(/\\/g, '\\\\')})(result1)
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_keywordPattern() {
- var cacheKey = 'keywordPattern@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var savedPos2 = pos;
- var result6 = parse_ws();
- if (result6 !== null) {
- var result7 = parse_keyword();
- if (result7 !== null) {
- var result8 = parse_ws();
- if (result8 !== null) {
- var result9 = parse_identifier();
- if (result9 !== null) {
- var result4 = [result6, result7, result8, result9];
- } else {
- var result4 = null;
- pos = savedPos2;
- }
- } else {
- var result4 = null;
- pos = savedPos2;
- }
- } else {
- var result4 = null;
- pos = savedPos2;
- }
- } else {
- var result4 = null;
- pos = savedPos2;
- }
- var result5 = result4 !== null
- ? (function(key, arg) {return {key:key, arg: arg}})(result4[1], result4[3])
- : null;
- if (result5 !== null) {
- var result3 = result5;
- } else {
- var result3 = null;
- pos = savedPos1;
- }
- if (result3 !== null) {
- var result1 = [];
- while (result3 !== null) {
- result1.push(result3);
- var savedPos1 = pos;
- var savedPos2 = pos;
- var result6 = parse_ws();
- if (result6 !== null) {
- var result7 = parse_keyword();
- if (result7 !== null) {
- var result8 = parse_ws();
- if (result8 !== null) {
- var result9 = parse_identifier();
- if (result9 !== null) {
- var result4 = [result6, result7, result8, result9];
- } else {
- var result4 = null;
- pos = savedPos2;
- }
- } else {
- var result4 = null;
- pos = savedPos2;
- }
- } else {
- var result4 = null;
- pos = savedPos2;
- }
- } else {
- var result4 = null;
- pos = savedPos2;
- }
- var result5 = result4 !== null
- ? (function(key, arg) {return {key:key, arg: arg}})(result4[1], result4[3])
- : null;
- if (result5 !== null) {
- var result3 = result5;
- } else {
- var result3 = null;
- pos = savedPos1;
- }
- }
- } else {
- var result1 = null;
- }
- var result2 = result1 !== null
- ? (function(pairs) {
- var keywords = [];
- var params = [];
- for(var i=0;i<pairs.length;i++){
- keywords.push(pairs[i].key);
- }
- for(var i=0;i<pairs.length;i++){
- params.push(pairs[i].arg);
- }
- return [keywords.join(""), params]
- })(result1)
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_binaryPattern() {
- var cacheKey = 'binaryPattern@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_ws();
- if (result3 !== null) {
- var result4 = parse_binarySelector();
- if (result4 !== null) {
- var result5 = parse_ws();
- if (result5 !== null) {
- var result6 = parse_identifier();
- if (result6 !== null) {
- var result1 = [result3, result4, result5, result6];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(selector, arg) {return [selector, [arg]]})(result1[1], result1[3])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_unaryPattern() {
- var cacheKey = 'unaryPattern@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_ws();
- if (result3 !== null) {
- var result4 = parse_identifier();
- if (result4 !== null) {
- var result1 = [result3, result4];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(selector) {return [selector, []]})(result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_expression() {
- var cacheKey = 'expression@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var result5 = parse_assignment();
- if (result5 !== null) {
- var result0 = result5;
- } else {
- var result4 = parse_cascade();
- if (result4 !== null) {
- var result0 = result4;
- } else {
- var result3 = parse_keywordSend();
- if (result3 !== null) {
- var result0 = result3;
- } else {
- var result2 = parse_binarySend();
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result1 = parse_jsStatement();
- if (result1 !== null) {
- var result0 = result1;
- } else {
- var result0 = null;;
- };
- };
- };
- };
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_expressionList() {
- var cacheKey = 'expressionList@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_ws();
- if (result3 !== null) {
- if (input.substr(pos, 1) === ".") {
- var result4 = ".";
- pos += 1;
- } else {
- var result4 = null;
- if (reportMatchFailures) {
- matchFailed("\".\"");
- }
- }
- if (result4 !== null) {
- var result5 = parse_ws();
- if (result5 !== null) {
- var result6 = parse_expression();
- if (result6 !== null) {
- var result1 = [result3, result4, result5, result6];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(expression) {return expression})(result1[3])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_expressions() {
- var cacheKey = 'expressions@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_expression();
- if (result3 !== null) {
- var result4 = [];
- var result5 = parse_expressionList();
- while (result5 !== null) {
- result4.push(result5);
- var result5 = parse_expressionList();
- }
- if (result4 !== null) {
- var result1 = [result3, result4];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(first, others) {
- var result = [first];
- for(var i=0;i<others.length;i++) {
- result.push(others[i]);
- }
- return result;
- })(result1[0], result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_assignment() {
- var cacheKey = 'assignment@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_variable();
- if (result3 !== null) {
- var result4 = parse_ws();
- if (result4 !== null) {
- if (input.substr(pos, 2) === ":=") {
- var result5 = ":=";
- pos += 2;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("\":=\"");
- }
- }
- if (result5 !== null) {
- var result6 = parse_ws();
- if (result6 !== null) {
- var result7 = parse_expression();
- if (result7 !== null) {
- var result1 = [result3, result4, result5, result6, result7];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(variable, expression) {
- return smalltalk.AssignmentNode._new()
- ._left_(variable)
- ._right_(expression)
- })(result1[0], result1[4])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_ret() {
- var cacheKey = 'ret@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- if (input.substr(pos, 1) === "^") {
- var result3 = "^";
- pos += 1;
- } else {
- var result3 = null;
- if (reportMatchFailures) {
- matchFailed("\"^\"");
- }
- }
- if (result3 !== null) {
- var result4 = parse_ws();
- if (result4 !== null) {
- var result5 = parse_expression();
- if (result5 !== null) {
- var result6 = parse_ws();
- if (result6 !== null) {
- if (input.substr(pos, 1) === ".") {
- var result8 = ".";
- pos += 1;
- } else {
- var result8 = null;
- if (reportMatchFailures) {
- matchFailed("\".\"");
- }
- }
- var result7 = result8 !== null ? result8 : '';
- if (result7 !== null) {
- var result1 = [result3, result4, result5, result6, result7];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(expression) {
- return smalltalk.ReturnNode._new()
- ._nodes_([expression])
- })(result1[2])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_temps() {
- var cacheKey = 'temps@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- if (input.substr(pos, 1) === "|") {
- var result3 = "|";
- pos += 1;
- } else {
- var result3 = null;
- if (reportMatchFailures) {
- matchFailed("\"|\"");
- }
- }
- if (result3 !== null) {
- var result4 = [];
- var savedPos2 = pos;
- var savedPos3 = pos;
- var result9 = parse_ws();
- if (result9 !== null) {
- var result10 = parse_identifier();
- if (result10 !== null) {
- var result11 = parse_ws();
- if (result11 !== null) {
- var result7 = [result9, result10, result11];
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- var result8 = result7 !== null
- ? (function(variable) {return variable})(result7[1])
- : null;
- if (result8 !== null) {
- var result6 = result8;
- } else {
- var result6 = null;
- pos = savedPos2;
- }
- while (result6 !== null) {
- result4.push(result6);
- var savedPos2 = pos;
- var savedPos3 = pos;
- var result9 = parse_ws();
- if (result9 !== null) {
- var result10 = parse_identifier();
- if (result10 !== null) {
- var result11 = parse_ws();
- if (result11 !== null) {
- var result7 = [result9, result10, result11];
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- var result8 = result7 !== null
- ? (function(variable) {return variable})(result7[1])
- : null;
- if (result8 !== null) {
- var result6 = result8;
- } else {
- var result6 = null;
- pos = savedPos2;
- }
- }
- if (result4 !== null) {
- if (input.substr(pos, 1) === "|") {
- var result5 = "|";
- pos += 1;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("\"|\"");
- }
- }
- if (result5 !== null) {
- var result1 = [result3, result4, result5];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(vars) {return vars})(result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_blockParamList() {
- var cacheKey = 'blockParamList@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var savedPos2 = pos;
- var savedPos3 = pos;
- var result9 = parse_ws();
- if (result9 !== null) {
- if (input.substr(pos, 1) === ":") {
- var result10 = ":";
- pos += 1;
- } else {
- var result10 = null;
- if (reportMatchFailures) {
- matchFailed("\":\"");
- }
- }
- if (result10 !== null) {
- var result11 = parse_ws();
- if (result11 !== null) {
- var result12 = parse_identifier();
- if (result12 !== null) {
- var result7 = [result9, result10, result11, result12];
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- var result8 = result7 !== null
- ? (function(param) {return param})(result7[3])
- : null;
- if (result8 !== null) {
- var result6 = result8;
- } else {
- var result6 = null;
- pos = savedPos2;
- }
- if (result6 !== null) {
- var result3 = [];
- while (result6 !== null) {
- result3.push(result6);
- var savedPos2 = pos;
- var savedPos3 = pos;
- var result9 = parse_ws();
- if (result9 !== null) {
- if (input.substr(pos, 1) === ":") {
- var result10 = ":";
- pos += 1;
- } else {
- var result10 = null;
- if (reportMatchFailures) {
- matchFailed("\":\"");
- }
- }
- if (result10 !== null) {
- var result11 = parse_ws();
- if (result11 !== null) {
- var result12 = parse_identifier();
- if (result12 !== null) {
- var result7 = [result9, result10, result11, result12];
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- var result8 = result7 !== null
- ? (function(param) {return param})(result7[3])
- : null;
- if (result8 !== null) {
- var result6 = result8;
- } else {
- var result6 = null;
- pos = savedPos2;
- }
- }
- } else {
- var result3 = null;
- }
- if (result3 !== null) {
- var result4 = parse_ws();
- if (result4 !== null) {
- if (input.substr(pos, 1) === "|") {
- var result5 = "|";
- pos += 1;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("\"|\"");
- }
- }
- if (result5 !== null) {
- var result1 = [result3, result4, result5];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(params) {return params})(result1[0])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_subexpression() {
- var cacheKey = 'subexpression@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- if (input.substr(pos, 1) === "(") {
- var result3 = "(";
- pos += 1;
- } else {
- var result3 = null;
- if (reportMatchFailures) {
- matchFailed("\"(\"");
- }
- }
- if (result3 !== null) {
- var result4 = parse_ws();
- if (result4 !== null) {
- var result5 = parse_expression();
- if (result5 !== null) {
- var result6 = parse_ws();
- if (result6 !== null) {
- if (input.substr(pos, 1) === ")") {
- var result7 = ")";
- pos += 1;
- } else {
- var result7 = null;
- if (reportMatchFailures) {
- matchFailed("\")\"");
- }
- }
- if (result7 !== null) {
- var result1 = [result3, result4, result5, result6, result7];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(expression) {return expression})(result1[2])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_statements() {
- var cacheKey = 'statements@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos4 = pos;
- var savedPos5 = pos;
- var result22 = parse_ret();
- if (result22 !== null) {
- var result23 = [];
- if (input.substr(pos).match(/^[.]/) !== null) {
- var result24 = input.charAt(pos);
- pos++;
- } else {
- var result24 = null;
- if (reportMatchFailures) {
- matchFailed("[.]");
- }
- }
- while (result24 !== null) {
- result23.push(result24);
- if (input.substr(pos).match(/^[.]/) !== null) {
- var result24 = input.charAt(pos);
- pos++;
- } else {
- var result24 = null;
- if (reportMatchFailures) {
- matchFailed("[.]");
- }
- }
- }
- if (result23 !== null) {
- var result20 = [result22, result23];
- } else {
- var result20 = null;
- pos = savedPos5;
- }
- } else {
- var result20 = null;
- pos = savedPos5;
- }
- var result21 = result20 !== null
- ? (function(ret) {return [ret]})(result20[0])
- : null;
- if (result21 !== null) {
- var result19 = result21;
- } else {
- var result19 = null;
- pos = savedPos4;
- }
- if (result19 !== null) {
- var result0 = result19;
- } else {
- var savedPos2 = pos;
- var savedPos3 = pos;
- var result11 = parse_expressions();
- if (result11 !== null) {
- var result12 = parse_ws();
- if (result12 !== null) {
- if (input.substr(pos).match(/^[.]/) !== null) {
- var result18 = input.charAt(pos);
- pos++;
- } else {
- var result18 = null;
- if (reportMatchFailures) {
- matchFailed("[.]");
- }
- }
- if (result18 !== null) {
- var result13 = [];
- while (result18 !== null) {
- result13.push(result18);
- if (input.substr(pos).match(/^[.]/) !== null) {
- var result18 = input.charAt(pos);
- pos++;
- } else {
- var result18 = null;
- if (reportMatchFailures) {
- matchFailed("[.]");
- }
- }
- }
- } else {
- var result13 = null;
- }
- if (result13 !== null) {
- var result14 = parse_ws();
- if (result14 !== null) {
- var result15 = parse_ret();
- if (result15 !== null) {
- var result16 = [];
- if (input.substr(pos).match(/^[.]/) !== null) {
- var result17 = input.charAt(pos);
- pos++;
- } else {
- var result17 = null;
- if (reportMatchFailures) {
- matchFailed("[.]");
- }
- }
- while (result17 !== null) {
- result16.push(result17);
- if (input.substr(pos).match(/^[.]/) !== null) {
- var result17 = input.charAt(pos);
- pos++;
- } else {
- var result17 = null;
- if (reportMatchFailures) {
- matchFailed("[.]");
- }
- }
- }
- if (result16 !== null) {
- var result9 = [result11, result12, result13, result14, result15, result16];
- } else {
- var result9 = null;
- pos = savedPos3;
- }
- } else {
- var result9 = null;
- pos = savedPos3;
- }
- } else {
- var result9 = null;
- pos = savedPos3;
- }
- } else {
- var result9 = null;
- pos = savedPos3;
- }
- } else {
- var result9 = null;
- pos = savedPos3;
- }
- } else {
- var result9 = null;
- pos = savedPos3;
- }
- var result10 = result9 !== null
- ? (function(exps, ret) {
- var expressions = exps;
- expressions.push(ret);
- return expressions
- })(result9[0], result9[4])
- : null;
- if (result10 !== null) {
- var result8 = result10;
- } else {
- var result8 = null;
- pos = savedPos2;
- }
- if (result8 !== null) {
- var result0 = result8;
- } else {
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result7 = parse_expressions();
- var result4 = result7 !== null ? result7 : '';
- if (result4 !== null) {
- var result5 = [];
- if (input.substr(pos).match(/^[.]/) !== null) {
- var result6 = input.charAt(pos);
- pos++;
- } else {
- var result6 = null;
- if (reportMatchFailures) {
- matchFailed("[.]");
- }
- }
- while (result6 !== null) {
- result5.push(result6);
- if (input.substr(pos).match(/^[.]/) !== null) {
- var result6 = input.charAt(pos);
- pos++;
- } else {
- var result6 = null;
- if (reportMatchFailures) {
- matchFailed("[.]");
- }
- }
- }
- if (result5 !== null) {
- var result2 = [result4, result5];
- } else {
- var result2 = null;
- pos = savedPos1;
- }
- } else {
- var result2 = null;
- pos = savedPos1;
- }
- var result3 = result2 !== null
- ? (function(expressions) {
- return expressions || []
- })(result2[0])
- : null;
- if (result3 !== null) {
- var result1 = result3;
- } else {
- var result1 = null;
- pos = savedPos0;
- }
- if (result1 !== null) {
- var result0 = result1;
- } else {
- var result0 = null;;
- };
- };
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_sequence() {
- var cacheKey = 'sequence@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result8 = parse_temps();
- var result3 = result8 !== null ? result8 : '';
- if (result3 !== null) {
- var result4 = parse_ws();
- if (result4 !== null) {
- var result7 = parse_statements();
- var result5 = result7 !== null ? result7 : '';
- if (result5 !== null) {
- var result6 = parse_ws();
- if (result6 !== null) {
- var result1 = [result3, result4, result5, result6];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(temps, statements) {
- return smalltalk.SequenceNode._new()
- ._temps_(temps || [])
- ._nodes_(statements || [])
- })(result1[0], result1[2])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_block() {
- var cacheKey = 'block@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- if (input.substr(pos, 1) === "[") {
- var result3 = "[";
- pos += 1;
- } else {
- var result3 = null;
- if (reportMatchFailures) {
- matchFailed("\"[\"");
- }
- }
- if (result3 !== null) {
- var result4 = parse_ws();
- if (result4 !== null) {
- var result11 = parse_blockParamList();
- var result5 = result11 !== null ? result11 : '';
- if (result5 !== null) {
- var result6 = parse_ws();
- if (result6 !== null) {
- var result10 = parse_sequence();
- var result7 = result10 !== null ? result10 : '';
- if (result7 !== null) {
- var result8 = parse_ws();
- if (result8 !== null) {
- if (input.substr(pos, 1) === "]") {
- var result9 = "]";
- pos += 1;
- } else {
- var result9 = null;
- if (reportMatchFailures) {
- matchFailed("\"]\"");
- }
- }
- if (result9 !== null) {
- var result1 = [result3, result4, result5, result6, result7, result8, result9];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(params, sequence) {
- return smalltalk.BlockNode._new()
- ._parameters_(params || [])
- ._nodes_([sequence._asBlockSequenceNode()])
- })(result1[2], result1[4])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_operand() {
- var cacheKey = 'operand@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var result3 = parse_literal();
- if (result3 !== null) {
- var result0 = result3;
- } else {
- var result2 = parse_reference();
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result1 = parse_subexpression();
- if (result1 !== null) {
- var result0 = result1;
- } else {
- var result0 = null;;
- };
- };
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_unaryMessage() {
- var cacheKey = 'unaryMessage@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_ws();
- if (result3 !== null) {
- var result4 = parse_identifier();
- if (result4 !== null) {
- var savedPos2 = pos;
- var savedReportMatchFailuresVar0 = reportMatchFailures;
- reportMatchFailures = false;
- if (input.substr(pos).match(/^[:]/) !== null) {
- var result6 = input.charAt(pos);
- pos++;
- } else {
- var result6 = null;
- if (reportMatchFailures) {
- matchFailed("[:]");
- }
- }
- reportMatchFailures = savedReportMatchFailuresVar0;
- if (result6 === null) {
- var result5 = '';
- } else {
- var result5 = null;
- pos = savedPos2;
- }
- if (result5 !== null) {
- var result1 = [result3, result4, result5];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(selector) {
- return smalltalk.SendNode._new()
- ._selector_(selector)
- })(result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_unaryTail() {
- var cacheKey = 'unaryTail@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_unaryMessage();
- if (result3 !== null) {
- var result4 = parse_ws();
- if (result4 !== null) {
- var result7 = parse_unaryTail();
- var result5 = result7 !== null ? result7 : '';
- if (result5 !== null) {
- var result6 = parse_ws();
- if (result6 !== null) {
- var result1 = [result3, result4, result5, result6];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(message, tail) {
- if(tail) {
- return tail._valueForReceiver_(message);
- }
- else {
- return message;
- }
- })(result1[0], result1[2])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_unarySend() {
- var cacheKey = 'unarySend@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_operand();
- if (result3 !== null) {
- var result4 = parse_ws();
- if (result4 !== null) {
- var result6 = parse_unaryTail();
- var result5 = result6 !== null ? result6 : '';
- if (result5 !== null) {
- var result1 = [result3, result4, result5];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(receiver, tail) {
- if(tail) {
- return tail._valueForReceiver_(receiver);
- }
- else {
- return receiver;
- }
- })(result1[0], result1[2])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_binaryMessage() {
- var cacheKey = 'binaryMessage@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_ws();
- if (result3 !== null) {
- var result4 = parse_binarySelector();
- if (result4 !== null) {
- var result5 = parse_ws();
- if (result5 !== null) {
- var result8 = parse_unarySend();
- if (result8 !== null) {
- var result6 = result8;
- } else {
- var result7 = parse_operand();
- if (result7 !== null) {
- var result6 = result7;
- } else {
- var result6 = null;;
- };
- }
- if (result6 !== null) {
- var result1 = [result3, result4, result5, result6];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(selector, arg) {
- return smalltalk.SendNode._new()
- ._selector_(selector)
- ._arguments_([arg])
- })(result1[1], result1[3])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_binaryTail() {
- var cacheKey = 'binaryTail@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_binaryMessage();
- if (result3 !== null) {
- var result5 = parse_binaryTail();
- var result4 = result5 !== null ? result5 : '';
- if (result4 !== null) {
- var result1 = [result3, result4];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(message, tail) {
- if(tail) {
- return tail._valueForReceiver_(message);
- }
- else {
- return message;
- }
- })(result1[0], result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_binarySend() {
- var cacheKey = 'binarySend@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_unarySend();
- if (result3 !== null) {
- var result5 = parse_binaryTail();
- var result4 = result5 !== null ? result5 : '';
- if (result4 !== null) {
- var result1 = [result3, result4];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(receiver, tail) {
- if(tail) {
- return tail._valueForReceiver_(receiver);
- }
- else {
- return receiver;
- }
- })(result1[0], result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_keywordMessage() {
- var cacheKey = 'keywordMessage@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_ws();
- if (result3 !== null) {
- var savedPos2 = pos;
- var savedPos3 = pos;
- var result8 = parse_keywordPair();
- if (result8 !== null) {
- var result9 = parse_ws();
- if (result9 !== null) {
- var result6 = [result8, result9];
- } else {
- var result6 = null;
- pos = savedPos3;
- }
- } else {
- var result6 = null;
- pos = savedPos3;
- }
- var result7 = result6 !== null
- ? (function(pair) {return pair})(result6[0])
- : null;
- if (result7 !== null) {
- var result5 = result7;
- } else {
- var result5 = null;
- pos = savedPos2;
- }
- if (result5 !== null) {
- var result4 = [];
- while (result5 !== null) {
- result4.push(result5);
- var savedPos2 = pos;
- var savedPos3 = pos;
- var result8 = parse_keywordPair();
- if (result8 !== null) {
- var result9 = parse_ws();
- if (result9 !== null) {
- var result6 = [result8, result9];
- } else {
- var result6 = null;
- pos = savedPos3;
- }
- } else {
- var result6 = null;
- pos = savedPos3;
- }
- var result7 = result6 !== null
- ? (function(pair) {return pair})(result6[0])
- : null;
- if (result7 !== null) {
- var result5 = result7;
- } else {
- var result5 = null;
- pos = savedPos2;
- }
- }
- } else {
- var result4 = null;
- }
- if (result4 !== null) {
- var result1 = [result3, result4];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(pairs) {
- var selector = [];
- var args = [];
- for(var i=0;i<pairs.length;i++) {
- selector.push(pairs[i].key);
- args.push(pairs[i].arg);
- }
- return smalltalk.SendNode._new()
- ._selector_(selector.join(""))
- ._arguments_(args)
- })(result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_keywordSend() {
- var cacheKey = 'keywordSend@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_binarySend();
- if (result3 !== null) {
- var result4 = parse_keywordMessage();
- if (result4 !== null) {
- var result1 = [result3, result4];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(receiver, tail) {
- return tail._valueForReceiver_(receiver);
- })(result1[0], result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_message() {
- var cacheKey = 'message@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var result3 = parse_binaryMessage();
- if (result3 !== null) {
- var result0 = result3;
- } else {
- var result2 = parse_unaryMessage();
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result1 = parse_keywordMessage();
- if (result1 !== null) {
- var result0 = result1;
- } else {
- var result0 = null;;
- };
- };
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_cascade() {
- var cacheKey = 'cascade@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_ws();
- if (result3 !== null) {
- var result15 = parse_keywordSend();
- if (result15 !== null) {
- var result4 = result15;
- } else {
- var result14 = parse_binarySend();
- if (result14 !== null) {
- var result4 = result14;
- } else {
- var result4 = null;;
- };
- }
- if (result4 !== null) {
- var savedPos2 = pos;
- var savedPos3 = pos;
- var result9 = parse_ws();
- if (result9 !== null) {
- if (input.substr(pos, 1) === ";") {
- var result10 = ";";
- pos += 1;
- } else {
- var result10 = null;
- if (reportMatchFailures) {
- matchFailed("\";\"");
- }
- }
- if (result10 !== null) {
- var result11 = parse_ws();
- if (result11 !== null) {
- var result12 = parse_message();
- if (result12 !== null) {
- var result13 = parse_ws();
- if (result13 !== null) {
- var result7 = [result9, result10, result11, result12, result13];
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- var result8 = result7 !== null
- ? (function(mess) {return mess})(result7[3])
- : null;
- if (result8 !== null) {
- var result6 = result8;
- } else {
- var result6 = null;
- pos = savedPos2;
- }
- if (result6 !== null) {
- var result5 = [];
- while (result6 !== null) {
- result5.push(result6);
- var savedPos2 = pos;
- var savedPos3 = pos;
- var result9 = parse_ws();
- if (result9 !== null) {
- if (input.substr(pos, 1) === ";") {
- var result10 = ";";
- pos += 1;
- } else {
- var result10 = null;
- if (reportMatchFailures) {
- matchFailed("\";\"");
- }
- }
- if (result10 !== null) {
- var result11 = parse_ws();
- if (result11 !== null) {
- var result12 = parse_message();
- if (result12 !== null) {
- var result13 = parse_ws();
- if (result13 !== null) {
- var result7 = [result9, result10, result11, result12, result13];
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- } else {
- var result7 = null;
- pos = savedPos3;
- }
- var result8 = result7 !== null
- ? (function(mess) {return mess})(result7[3])
- : null;
- if (result8 !== null) {
- var result6 = result8;
- } else {
- var result6 = null;
- pos = savedPos2;
- }
- }
- } else {
- var result5 = null;
- }
- if (result5 !== null) {
- var result1 = [result3, result4, result5];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(send, messages) {
- var cascade = [];
- cascade.push(send);
- for(var i=0;i<messages.length;i++) {
- cascade.push(messages[i]);
- }
- return smalltalk.CascadeNode._new()
- ._receiver_(send._receiver())
- ._nodes_(cascade)
- })(result1[1], result1[2])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_jsStatement() {
- var cacheKey = 'jsStatement@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- if (input.substr(pos, 1) === "<") {
- var result3 = "<";
- pos += 1;
- } else {
- var result3 = null;
- if (reportMatchFailures) {
- matchFailed("\"<\"");
- }
- }
- if (result3 !== null) {
- var result4 = [];
- var savedPos2 = pos;
- if (input.substr(pos, 2) === ">>") {
- var result9 = ">>";
- pos += 2;
- } else {
- var result9 = null;
- if (reportMatchFailures) {
- matchFailed("\">>\"");
- }
- }
- var result10 = result9 !== null
- ? (function() {return ">"})()
- : null;
- if (result10 !== null) {
- var result8 = result10;
- } else {
- var result8 = null;
- pos = savedPos2;
- }
- if (result8 !== null) {
- var result6 = result8;
- } else {
- if (input.substr(pos).match(/^[^>]/) !== null) {
- var result7 = input.charAt(pos);
- pos++;
- } else {
- var result7 = null;
- if (reportMatchFailures) {
- matchFailed("[^>]");
- }
- }
- if (result7 !== null) {
- var result6 = result7;
- } else {
- var result6 = null;;
- };
- }
- while (result6 !== null) {
- result4.push(result6);
- var savedPos2 = pos;
- if (input.substr(pos, 2) === ">>") {
- var result9 = ">>";
- pos += 2;
- } else {
- var result9 = null;
- if (reportMatchFailures) {
- matchFailed("\">>\"");
- }
- }
- var result10 = result9 !== null
- ? (function() {return ">"})()
- : null;
- if (result10 !== null) {
- var result8 = result10;
- } else {
- var result8 = null;
- pos = savedPos2;
- }
- if (result8 !== null) {
- var result6 = result8;
- } else {
- if (input.substr(pos).match(/^[^>]/) !== null) {
- var result7 = input.charAt(pos);
- pos++;
- } else {
- var result7 = null;
- if (reportMatchFailures) {
- matchFailed("[^>]");
- }
- }
- if (result7 !== null) {
- var result6 = result7;
- } else {
- var result6 = null;;
- };
- }
- }
- if (result4 !== null) {
- if (input.substr(pos, 1) === ">") {
- var result5 = ">";
- pos += 1;
- } else {
- var result5 = null;
- if (reportMatchFailures) {
- matchFailed("\">\"");
- }
- }
- if (result5 !== null) {
- var result1 = [result3, result4, result5];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(val) {
- return smalltalk.JSStatementNode._new()
- ._source_(val.join(""))
- })(result1[1])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function parse_method() {
- var cacheKey = 'method@' + pos;
- var cachedResult = cache[cacheKey];
- if (cachedResult) {
- pos = cachedResult.nextPos;
- return cachedResult.result;
- }
-
-
- var savedPos0 = pos;
- var savedPos1 = pos;
- var result3 = parse_ws();
- if (result3 !== null) {
- var result11 = parse_keywordPattern();
- if (result11 !== null) {
- var result4 = result11;
- } else {
- var result10 = parse_binaryPattern();
- if (result10 !== null) {
- var result4 = result10;
- } else {
- var result9 = parse_unaryPattern();
- if (result9 !== null) {
- var result4 = result9;
- } else {
- var result4 = null;;
- };
- };
- }
- if (result4 !== null) {
- var result5 = parse_ws();
- if (result5 !== null) {
- var result8 = parse_sequence();
- var result6 = result8 !== null ? result8 : '';
- if (result6 !== null) {
- var result7 = parse_ws();
- if (result7 !== null) {
- var result1 = [result3, result4, result5, result6, result7];
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- } else {
- var result1 = null;
- pos = savedPos1;
- }
- var result2 = result1 !== null
- ? (function(pattern, sequence) {
- return smalltalk.MethodNode._new()
- ._selector_(pattern[0])
- ._arguments_(pattern[1])
- ._nodes_([sequence])
- })(result1[1], result1[3])
- : null;
- if (result2 !== null) {
- var result0 = result2;
- } else {
- var result0 = null;
- pos = savedPos0;
- }
-
-
-
- cache[cacheKey] = {
- nextPos: pos,
- result: result0
- };
- return result0;
- }
-
- function buildErrorMessage() {
- function buildExpected(failuresExpected) {
- failuresExpected.sort();
-
- var lastFailure = null;
- var failuresExpectedUnique = [];
- for (var i = 0; i < failuresExpected.length; i++) {
- if (failuresExpected[i] !== lastFailure) {
- failuresExpectedUnique.push(failuresExpected[i]);
- lastFailure = failuresExpected[i];
- }
- }
-
- switch (failuresExpectedUnique.length) {
- case 0:
- return 'end of input';
- case 1:
- return failuresExpectedUnique[0];
- default:
- return failuresExpectedUnique.slice(0, failuresExpectedUnique.length - 1).join(', ')
- + ' or '
- + failuresExpectedUnique[failuresExpectedUnique.length - 1];
- }
- }
-
- var expected = buildExpected(rightmostMatchFailuresExpected);
- var actualPos = Math.max(pos, rightmostMatchFailuresPos);
- var actual = actualPos < input.length
- ? quote(input.charAt(actualPos))
- : 'end of input';
-
- return 'Expected ' + expected + ' but ' + actual + ' found.';
- }
-
- function computeErrorPosition() {
- /*
- * The first idea was to use |String.split| to break the input up to the
- * error position along newlines and derive the line and column from
- * there. However IE's |split| implementation is so broken that it was
- * enough to prevent it.
- */
-
- var line = 1;
- var column = 1;
- var seenCR = false;
-
- for (var i = 0; i < rightmostMatchFailuresPos; i++) {
- var ch = input.charAt(i);
- if (ch === '\n') {
- if (!seenCR) { line++; }
- column = 1;
- seenCR = false;
- } else if (ch === '\r' | ch === '\u2028' || ch === '\u2029') {
- line++;
- column = 1;
- seenCR = true;
- } else {
- column++;
- seenCR = false;
- }
- }
-
- return { line: line, column: column };
- }
-
-
-
- var result = parseFunctions[startRule]();
-
- /*
- * The parser is now in one of the following three states:
- *
- * 1. The parser successfully parsed the whole input.
- *
- * - |result !== null|
- * - |pos === input.length|
- * - |rightmostMatchFailuresExpected| may or may not contain something
- *
- * 2. The parser successfully parsed only a part of the input.
- *
- * - |result !== null|
- * - |pos < input.length|
- * - |rightmostMatchFailuresExpected| may or may not contain something
- *
- * 3. The parser did not successfully parse any part of the input.
- *
- * - |result === null|
- * - |pos === 0|
- * - |rightmostMatchFailuresExpected| contains at least one failure
- *
- * All code following this comment (including called functions) must
- * handle these states.
- */
- if (result === null || pos !== input.length) {
- var errorPosition = computeErrorPosition();
- throw new this.SyntaxError(
- buildErrorMessage(),
- errorPosition.line,
- errorPosition.column
- );
- }
-
- return result;
- },
-
- /* Returns the parser source code. */
- toSource: function() { return this._source; }
- };
-
- /* Thrown when a parser encounters a syntax error. */
-
- result.SyntaxError = function(message, line, column) {
- this.name = 'SyntaxError';
- this.message = message;
- this.line = line;
- this.column = column;
- };
-
- result.SyntaxError.prototype = Error.prototype;
-
- return result;
- })();
- smalltalk.addPackage('REPL', {});
- smalltalk.addClass('Repl', smalltalk.Object, ['readline', 'interface', 'util'], 'REPL');
- smalltalk.addMethod(
- unescape('_prompt'),
- smalltalk.method({
- selector: unescape('prompt'),
- category: 'accessing',
- fn: function (){
- var self=this;
- return unescape("amber%20%3E%3E%20");
- return self;},
- args: [],
- source: unescape('prompt%0A%09%5E%27amber%20%3E%3E%20%27'),
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Repl);
- smalltalk.addMethod(
- unescape('_createInterface'),
- smalltalk.method({
- selector: unescape('createInterface'),
- category: 'actions',
- fn: function (){
- var self=this;
- (self['@interface']=smalltalk.send(self['@readline'], "_createInterface_stdout_", [smalltalk.send((typeof process == 'undefined' ? nil : process), "_stdin", []), smalltalk.send((typeof process == 'undefined' ? nil : process), "_stdout", [])]));
- smalltalk.send(self['@interface'], "_on_do_", ["line", (function(buffer){return smalltalk.send(self, "_eval_", [buffer]);})]);
- smalltalk.send(self['@interface'], "_on_do_", ["close", (function(){return smalltalk.send(self, "_close", []);})]);
- smalltalk.send(self, "_setPrompt", []);
- smalltalk.send(self['@interface'], "_prompt", []);
- return self;},
- args: [],
- source: unescape('createInterface%0A%09%22No%20completion%20for%20now%22%0A%09interface%20%3A%3D%20readline%20createInterface%3A%20process%20stdin%20stdout%3A%20process%20stdout.%0A%09interface%20on%3A%20%27line%27%20do%3A%20%5B%3Abuffer%20%20%7C%20self%20eval%3A%20buffer%5D.%0A%09interface%20on%3A%20%27close%27%20do%3A%20%5Bself%20close%5D.%0A%09self%20setPrompt.%0A%09interface%20prompt'),
- messageSends: ["createInterface:stdout:", "stdin", "stdout", "on:do:", "eval:", "close", "setPrompt", "prompt"],
- referencedClasses: []
- }),
- smalltalk.Repl);
- smalltalk.addMethod(
- unescape('_setPrompt'),
- smalltalk.method({
- selector: unescape('setPrompt'),
- category: 'actions',
- fn: function (){
- var self=this;
- smalltalk.send(self['@interface'], "_setPrompt_", [smalltalk.send(self, "_prompt", [])]);
- return self;},
- args: [],
- source: unescape('setPrompt%0A%09interface%20setPrompt%3A%20self%20prompt'),
- messageSends: ["setPrompt:", "prompt"],
- referencedClasses: []
- }),
- smalltalk.Repl);
- smalltalk.addMethod(
- unescape('_close'),
- smalltalk.method({
- selector: unescape('close'),
- category: 'actions',
- fn: function (){
- var self=this;
- smalltalk.send(smalltalk.send((typeof process == 'undefined' ? nil : process), "_stdin", []), "_destroy", []);
- return self;},
- args: [],
- source: unescape('close%0A%09process%20stdin%20destroy'),
- messageSends: ["destroy", "stdin"],
- referencedClasses: []
- }),
- smalltalk.Repl);
- smalltalk.addMethod(
- unescape('_eval_'),
- smalltalk.method({
- selector: unescape('eval%3A'),
- category: 'actions',
- fn: function (buffer){
- var self=this;
- var result=nil;
- ((($receiver = smalltalk.send(buffer, "_isEmpty", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_try_catch_", [(function(){(result=smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler), "_new", []), "_loadExpression_", [buffer]));return smalltalk.send((smalltalk.Transcript || Transcript), "_show_", [result]);}), (function(e){return ((($receiver = smalltalk.send(e, "_isSmalltalkError", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send((smalltalk.ErrorHandler || ErrorHandler), "_new", []), "_handleError_", [e]);})() : (function(){return smalltalk.send(smalltalk.send((typeof process == 'undefined' ? nil : process), "_stdout", []), "_write_", [smalltalk.send(e, "_jsStack", [])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send((smalltalk.ErrorHandler || ErrorHandler), "_new", []), "_handleError_", [e]);}), (function(){return smalltalk.send(smalltalk.send((typeof process == 'undefined' ? nil : process), "_stdout", []), "_write_", [smalltalk.send(e, "_jsStack", [])]);})]));})]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_try_catch_", [(function(){(result=smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler), "_new", []), "_loadExpression_", [buffer]));return smalltalk.send((smalltalk.Transcript || Transcript), "_show_", [result]);}), (function(e){return ((($receiver = smalltalk.send(e, "_isSmalltalkError", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send((smalltalk.ErrorHandler || ErrorHandler), "_new", []), "_handleError_", [e]);})() : (function(){return smalltalk.send(smalltalk.send((typeof process == 'undefined' ? nil : process), "_stdout", []), "_write_", [smalltalk.send(e, "_jsStack", [])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send((smalltalk.ErrorHandler || ErrorHandler), "_new", []), "_handleError_", [e]);}), (function(){return smalltalk.send(smalltalk.send((typeof process == 'undefined' ? nil : process), "_stdout", []), "_write_", [smalltalk.send(e, "_jsStack", [])]);})]));})]);})]));
- smalltalk.send(self['@interface'], "_prompt", []);
- return self;},
- args: ["buffer"],
- source: unescape('eval%3A%20buffer%0A%09%7C%20result%20%7C%0A%09buffer%20isEmpty%20ifFalse%3A%20%5B%0A%09%09self%20try%3A%20%5B%0A%09%09%09result%20%3A%3D%20Compiler%20new%20loadExpression%3A%20buffer.%0A%09%09%09Transcript%20show%3A%20result%5D%0A%09%09catch%3A%20%5B%3Ae%20%7C%0A%09%09%09e%20isSmalltalkError%0A%09%09%09%20%20%20%20ifTrue%3A%20%5BErrorHandler%20new%20handleError%3A%20e%5D%0A%09%09%09%20%20%20%20ifFalse%3A%20%5Bprocess%20stdout%20write%3A%20e%20jsStack%5D%5D%5D.%0A%09interface%20prompt'),
- messageSends: ["ifFalse:", "isEmpty", "try:catch:", "loadExpression:", "new", "show:", "ifTrue:ifFalse:", "isSmalltalkError", "handleError:", "write:", "stdout", "jsStack", "prompt"],
- referencedClasses: ["Compiler", "Transcript", "ErrorHandler"]
- }),
- smalltalk.Repl);
- smalltalk.addMethod(
- unescape('_initialize'),
- smalltalk.method({
- selector: unescape('initialize'),
- category: 'initialization',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_initialize", [], smalltalk.Object);
- (self['@readline']=smalltalk.send((typeof require == 'undefined' ? nil : require), "_value_", ["readline"]));
- (self['@util']=smalltalk.send((typeof require == 'undefined' ? nil : require), "_value_", ["util"]));
- return self;},
- args: [],
- source: unescape('initialize%0A%09super%20initialize.%0A%09readline%20%3A%3D%20require%20value%3A%20%27readline%27.%0A%09util%20%3A%3D%20require%20value%3A%20%27util%27'),
- messageSends: ["initialize", "value:"],
- referencedClasses: []
- }),
- smalltalk.Repl);
- smalltalk.addMethod(
- unescape('_main'),
- smalltalk.method({
- selector: unescape('main'),
- category: 'not yet classified',
- fn: function (){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_new", []), "_createInterface", []);
- return self;},
- args: [],
- source: unescape('main%0A%09self%20new%20createInterface'),
- messageSends: ["createInterface", "new"],
- referencedClasses: []
- }),
- smalltalk.Repl.klass);
- smalltalk.init(smalltalk.Object);
- smalltalk.classes()._do_(function(each) {each._initialize()});
- /* Similar to jQuery(document).ready() */
- if(this.smalltalkReady) {
- this.smalltalkReady();
- }smalltalk.Repl._main()
|