12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106 |
- smalltalk.addPackage('Kernel-Collections');
- smalltalk.addClass('Association', smalltalk.Object, ['key', 'value'], 'Kernel-Collections');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "=",
- fn: function (anAssociation){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(_st(self)._class()).__eq(_st(anAssociation)._class()))._and_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(_st(self)._key()).__eq(_st(anAssociation)._key()))._and_((function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(_st(self)._value()).__eq(_st(anAssociation)._value());
- }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"=",{anAssociation:anAssociation},smalltalk.Association)})},
- messageSends: ["and:", "=", "value", "key", "class"]}),
- smalltalk.Association);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "key",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self["@key"];
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.Association)})},
- messageSends: []}),
- smalltalk.Association);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "key:",
- fn: function (aKey){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@key"]=aKey;
- return self}, function($ctx1) {$ctx1.fill(self,"key:",{aKey:aKey},smalltalk.Association)})},
- messageSends: []}),
- smalltalk.Association);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "printOn:",
- fn: function (aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(_st(self)._key())._printOn_(aStream);
- _st(aStream)._nextPutAll_(" -> ");
- _st(_st(self)._value())._printOn_(aStream);
- return self}, function($ctx1) {$ctx1.fill(self,"printOn:",{aStream:aStream},smalltalk.Association)})},
- messageSends: ["printOn:", "key", "nextPutAll:", "value"]}),
- smalltalk.Association);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "value",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self["@value"];
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"value",{},smalltalk.Association)})},
- messageSends: []}),
- smalltalk.Association);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "value:",
- fn: function (aValue){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@value"]=aValue;
- return self}, function($ctx1) {$ctx1.fill(self,"value:",{aValue:aValue},smalltalk.Association)})},
- messageSends: []}),
- smalltalk.Association);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "key:value:",
- fn: function (aKey,aValue){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=_st(self)._new();
- _st($2)._key_(aKey);
- _st($2)._value_(aValue);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"key:value:",{aKey:aKey,aValue:aValue},smalltalk.Association.klass)})},
- messageSends: ["key:", "new", "value:", "yourself"]}),
- smalltalk.Association.klass);
- smalltalk.addClass('Collection', smalltalk.Object, [], 'Kernel-Collections');
- smalltalk.addMethod(
- smalltalk.method({
- selector: ",",
- fn: function (aCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=_st(self)._copy();
- _st($2)._addAll_(aCollection);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,",",{aCollection:aCollection},smalltalk.Collection)})},
- messageSends: ["addAll:", "copy", "yourself"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "add:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._subclassResponsibility();
- return self}, function($ctx1) {$ctx1.fill(self,"add:",{anObject:anObject},smalltalk.Collection)})},
- messageSends: ["subclassResponsibility"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "addAll:",
- fn: function (aCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- _st(aCollection)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(self)._add_(each);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- $1=aCollection;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"addAll:",{aCollection:aCollection},smalltalk.Collection)})},
- messageSends: ["do:", "add:"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asArray",
- fn: function (){
- var self=this;
- function $Array(){return smalltalk.Array||(typeof Array=="undefined"?nil:Array)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st($Array())._withAll_(self);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asArray",{},smalltalk.Collection)})},
- messageSends: ["withAll:"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asJSON",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._asArray())._collect_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(each)._asJSON();
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asJSON",{},smalltalk.Collection)})},
- messageSends: ["collect:", "asJSON", "asArray"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asOrderedCollection",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._asArray();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asOrderedCollection",{},smalltalk.Collection)})},
- messageSends: ["asArray"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asSet",
- fn: function (){
- var self=this;
- function $Set(){return smalltalk.Set||(typeof Set=="undefined"?nil:Set)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st($Set())._withAll_(self);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asSet",{},smalltalk.Collection)})},
- messageSends: ["withAll:"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "collect:",
- fn: function (aBlock){
- var self=this;
- var stream;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- stream=_st(_st(_st(self)._class())._new())._writeStream();
- _st(self)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(stream)._nextPut_(_st(aBlock)._value_(each));
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- $1=_st(stream)._contents();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"collect:",{aBlock:aBlock,stream:stream},smalltalk.Collection)})},
- messageSends: ["writeStream", "new", "class", "do:", "nextPut:", "value:", "contents"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "copyWith:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=_st(self)._copy();
- _st($2)._add_(anObject);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"copyWith:",{anObject:anObject},smalltalk.Collection)})},
- messageSends: ["add:", "copy", "yourself"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "copyWithAll:",
- fn: function (aCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=_st(self)._copy();
- _st($2)._addAll_(aCollection);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"copyWithAll:",{aCollection:aCollection},smalltalk.Collection)})},
- messageSends: ["addAll:", "copy", "yourself"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "copyWithoutAll:",
- fn: function (aCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._reject_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(aCollection)._includes_(each);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"copyWithoutAll:",{aCollection:aCollection},smalltalk.Collection)})},
- messageSends: ["reject:", "includes:"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "detect:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._detect_ifNone_(aBlock,(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self)._errorNotFound();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"detect:",{aBlock:aBlock},smalltalk.Collection)})},
- messageSends: ["detect:ifNone:", "errorNotFound"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "detect:ifNone:",
- fn: function (aBlock,anotherBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._subclassResponsibility();
- return self}, function($ctx1) {$ctx1.fill(self,"detect:ifNone:",{aBlock:aBlock,anotherBlock:anotherBlock},smalltalk.Collection)})},
- messageSends: ["subclassResponsibility"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "do:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._subclassResponsibility();
- return self}, function($ctx1) {$ctx1.fill(self,"do:",{aBlock:aBlock},smalltalk.Collection)})},
- messageSends: ["subclassResponsibility"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "do:separatedBy:",
- fn: function (aBlock,anotherBlock){
- var self=this;
- var actionBeforeElement;
- return smalltalk.withContext(function($ctx1) {
- actionBeforeElement=(function(){
- return smalltalk.withContext(function($ctx2) {
- actionBeforeElement=anotherBlock;
- return actionBeforeElement;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})});
- _st(self)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- _st(actionBeforeElement)._value();
- return _st(aBlock)._value_(each);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"do:separatedBy:",{aBlock:aBlock,anotherBlock:anotherBlock,actionBeforeElement:actionBeforeElement},smalltalk.Collection)})},
- messageSends: ["do:", "value", "value:"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "errorNotFound",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._error_("Object is not in the collection");
- return self}, function($ctx1) {$ctx1.fill(self,"errorNotFound",{},smalltalk.Collection)})},
- messageSends: ["error:"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "ifEmpty:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $2=_st(self)._isEmpty();
- if(smalltalk.assert($2)){
- $1=_st(aBlock)._value();
- } else {
- $1=self;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"ifEmpty:",{aBlock:aBlock},smalltalk.Collection)})},
- messageSends: ["ifTrue:ifFalse:", "value", "isEmpty"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "ifNotEmpty:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._notEmpty();
- _st($1)._ifTrue_(aBlock);
- return self}, function($ctx1) {$ctx1.fill(self,"ifNotEmpty:",{aBlock:aBlock},smalltalk.Collection)})},
- messageSends: ["ifTrue:", "notEmpty"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "includes:",
- fn: function (anObject){
- var self=this;
- var sentinel;
- function $Object(){return smalltalk.Object||(typeof Object=="undefined"?nil:Object)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- sentinel=_st($Object())._new();
- $1=_st(_st(self)._detect_ifNone_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(each).__eq(anObject);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),(function(){
- return smalltalk.withContext(function($ctx2) {
- return sentinel;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))).__tild_eq(sentinel);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"includes:",{anObject:anObject,sentinel:sentinel},smalltalk.Collection)})},
- messageSends: ["new", "~=", "detect:ifNone:", "="]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "inject:into:",
- fn: function (anObject,aBlock){
- var self=this;
- var result;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- result=anObject;
- _st(self)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- result=_st(aBlock)._value_value_(result,each);
- return result;
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- $1=result;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"inject:into:",{anObject:anObject,aBlock:aBlock,result:result},smalltalk.Collection)})},
- messageSends: ["do:", "value:value:"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "intersection:",
- fn: function (aCollection){
- var self=this;
- var set,outputSet;
- function $Set(){return smalltalk.Set||(typeof Set=="undefined"?nil:Set)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- set=_st(self)._asSet();
- outputSet=_st($Set())._new();
- _st(aCollection)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(_st(set)._includes_(each))._and_((function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(_st(outputSet)._includes_(each))._not();
- }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
- if(smalltalk.assert($1)){
- return _st(outputSet)._add_(each);
- };
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- $2=_st(_st(self)._class())._withAll_(_st(outputSet)._asArray());
- return $2;
- }, function($ctx1) {$ctx1.fill(self,"intersection:",{aCollection:aCollection,set:set,outputSet:outputSet},smalltalk.Collection)})},
- messageSends: ["asSet", "new", "do:", "ifTrue:", "add:", "and:", "not", "includes:", "withAll:", "asArray", "class"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "isEmpty",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._size()).__eq((0));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"isEmpty",{},smalltalk.Collection)})},
- messageSends: ["=", "size"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "notEmpty",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._isEmpty())._not();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"notEmpty",{},smalltalk.Collection)})},
- messageSends: ["not", "isEmpty"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "occurrencesOf:",
- fn: function (anObject){
- var self=this;
- var tally;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- tally=(0);
- _st(self)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(anObject).__eq(each);
- if(smalltalk.assert($1)){
- tally=_st(tally).__plus((1));
- return tally;
- };
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- $2=tally;
- return $2;
- }, function($ctx1) {$ctx1.fill(self,"occurrencesOf:",{anObject:anObject,tally:tally},smalltalk.Collection)})},
- messageSends: ["do:", "ifTrue:", "+", "="]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "putOn:",
- fn: function (aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(each)._putOn_(aStream);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"putOn:",{aStream:aStream},smalltalk.Collection)})},
- messageSends: ["do:", "putOn:"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "reject:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._select_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(aBlock)._value_(each)).__eq(false);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"reject:",{aBlock:aBlock},smalltalk.Collection)})},
- messageSends: ["select:", "=", "value:"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "remove:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._remove_ifAbsent_(anObject,(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self)._errorNotFound();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"remove:",{anObject:anObject},smalltalk.Collection)})},
- messageSends: ["remove:ifAbsent:", "errorNotFound"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "remove:ifAbsent:",
- fn: function (anObject,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._subclassResponsibility();
- return self}, function($ctx1) {$ctx1.fill(self,"remove:ifAbsent:",{anObject:anObject,aBlock:aBlock},smalltalk.Collection)})},
- messageSends: ["subclassResponsibility"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "select:",
- fn: function (aBlock){
- var self=this;
- var stream;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- stream=_st(_st(_st(self)._class())._new())._writeStream();
- _st(self)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(aBlock)._value_(each);
- if(smalltalk.assert($1)){
- return _st(stream)._nextPut_(each);
- };
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- $2=_st(stream)._contents();
- return $2;
- }, function($ctx1) {$ctx1.fill(self,"select:",{aBlock:aBlock,stream:stream},smalltalk.Collection)})},
- messageSends: ["writeStream", "new", "class", "do:", "ifTrue:", "nextPut:", "value:", "contents"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "size",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._subclassResponsibility();
- return self}, function($ctx1) {$ctx1.fill(self,"size",{},smalltalk.Collection)})},
- messageSends: ["subclassResponsibility"]}),
- smalltalk.Collection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "new:",
- fn: function (anInteger){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._new();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"new:",{anInteger:anInteger},smalltalk.Collection.klass)})},
- messageSends: ["new"]}),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "with:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=_st(self)._new();
- _st($2)._add_(anObject);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"with:",{anObject:anObject},smalltalk.Collection.klass)})},
- messageSends: ["add:", "new", "yourself"]}),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "with:with:",
- fn: function (anObject,anotherObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=_st(self)._new();
- _st($2)._add_(anObject);
- _st($2)._add_(anotherObject);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"with:with:",{anObject:anObject,anotherObject:anotherObject},smalltalk.Collection.klass)})},
- messageSends: ["add:", "new", "yourself"]}),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "with:with:with:",
- fn: function (firstObject,secondObject,thirdObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=_st(self)._new();
- _st($2)._add_(firstObject);
- _st($2)._add_(secondObject);
- _st($2)._add_(thirdObject);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"with:with:with:",{firstObject:firstObject,secondObject:secondObject,thirdObject:thirdObject},smalltalk.Collection.klass)})},
- messageSends: ["add:", "new", "yourself"]}),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "withAll:",
- fn: function (aCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=_st(self)._new();
- _st($2)._addAll_(aCollection);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"withAll:",{aCollection:aCollection},smalltalk.Collection.klass)})},
- messageSends: ["addAll:", "new", "yourself"]}),
- smalltalk.Collection.klass);
- smalltalk.addClass('IndexableCollection', smalltalk.Collection, [], 'Kernel-Collections');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:",
- fn: function (anIndex){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._at_ifAbsent_(anIndex,(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self)._errorNotFound();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"at:",{anIndex:anIndex},smalltalk.IndexableCollection)})},
- messageSends: ["at:ifAbsent:", "errorNotFound"]}),
- smalltalk.IndexableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:ifAbsent:",
- fn: function (anIndex,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._subclassReponsibility();
- return self}, function($ctx1) {$ctx1.fill(self,"at:ifAbsent:",{anIndex:anIndex,aBlock:aBlock},smalltalk.IndexableCollection)})},
- messageSends: ["subclassReponsibility"]}),
- smalltalk.IndexableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:ifPresent:",
- fn: function (anIndex,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._at_ifPresent_ifAbsent_(anIndex,aBlock,(function(){
- return smalltalk.withContext(function($ctx2) {
- return nil;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"at:ifPresent:",{anIndex:anIndex,aBlock:aBlock},smalltalk.IndexableCollection)})},
- messageSends: ["at:ifPresent:ifAbsent:"]}),
- smalltalk.IndexableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:ifPresent:ifAbsent:",
- fn: function (anIndex,aBlock,anotherBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._subclassReponsibility();
- return self}, function($ctx1) {$ctx1.fill(self,"at:ifPresent:ifAbsent:",{anIndex:anIndex,aBlock:aBlock,anotherBlock:anotherBlock},smalltalk.IndexableCollection)})},
- messageSends: ["subclassReponsibility"]}),
- smalltalk.IndexableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:put:",
- fn: function (anIndex,anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._subclassReponsibility();
- return self}, function($ctx1) {$ctx1.fill(self,"at:put:",{anIndex:anIndex,anObject:anObject},smalltalk.IndexableCollection)})},
- messageSends: ["subclassReponsibility"]}),
- smalltalk.IndexableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "indexOf:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._indexOf_ifAbsent_(anObject,(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self)._errorNotFound();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"indexOf:",{anObject:anObject},smalltalk.IndexableCollection)})},
- messageSends: ["indexOf:ifAbsent:", "errorNotFound"]}),
- smalltalk.IndexableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "indexOf:ifAbsent:",
- fn: function (anObject,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._subclassResponsibility();
- return self}, function($ctx1) {$ctx1.fill(self,"indexOf:ifAbsent:",{anObject:anObject,aBlock:aBlock},smalltalk.IndexableCollection)})},
- messageSends: ["subclassResponsibility"]}),
- smalltalk.IndexableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "with:do:",
- fn: function (anotherCollection,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._withIndexDo_((function(each,index){
- return smalltalk.withContext(function($ctx2) {
- return _st(aBlock)._value_value_(each,_st(anotherCollection)._at_(index));
- }, function($ctx2) {$ctx2.fillBlock({each:each,index:index},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"with:do:",{anotherCollection:anotherCollection,aBlock:aBlock},smalltalk.IndexableCollection)})},
- messageSends: ["withIndexDo:", "value:value:", "at:"]}),
- smalltalk.IndexableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "withIndexDo:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._subclassReponsibility();
- return self}, function($ctx1) {$ctx1.fill(self,"withIndexDo:",{aBlock:aBlock},smalltalk.IndexableCollection)})},
- messageSends: ["subclassReponsibility"]}),
- smalltalk.IndexableCollection);
- smalltalk.addClass('HashedCollection', smalltalk.IndexableCollection, [], 'Kernel-Collections');
- smalltalk.addMethod(
- smalltalk.method({
- selector: ",",
- fn: function (aCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._shouldNotImplement();
- return self}, function($ctx1) {$ctx1.fill(self,",",{aCollection:aCollection},smalltalk.HashedCollection)})},
- messageSends: ["shouldNotImplement"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "=",
- fn: function (aHashedCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3;
- $1=_st(_st(self)._class()).__eq(_st(aHashedCollection)._class());
- if(! smalltalk.assert($1)){
- return false;
- };
- $2=_st(_st(self)._size()).__eq(_st(aHashedCollection)._size());
- if(! smalltalk.assert($2)){
- return false;
- };
- $3=_st(_st(self)._associations()).__eq(_st(aHashedCollection)._associations());
- return $3;
- }, function($ctx1) {$ctx1.fill(self,"=",{aHashedCollection:aHashedCollection},smalltalk.HashedCollection)})},
- messageSends: ["ifFalse:", "=", "class", "size", "associations"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "add:",
- fn: function (anAssociation){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._at_put_(_st(anAssociation)._key(),_st(anAssociation)._value());
- return self}, function($ctx1) {$ctx1.fill(self,"add:",{anAssociation:anAssociation},smalltalk.HashedCollection)})},
- messageSends: ["at:put:", "key", "value"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "addAll:",
- fn: function (aHashedCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- smalltalk.IndexableCollection.fn.prototype._addAll_.apply(_st(self), [_st(aHashedCollection)._associations()]);
- $1=aHashedCollection;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"addAll:",{aHashedCollection:aHashedCollection},smalltalk.HashedCollection)})},
- messageSends: ["addAll:", "associations"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asDictionary",
- fn: function (){
- var self=this;
- function $Dictionary(){return smalltalk.Dictionary||(typeof Dictionary=="undefined"?nil:Dictionary)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st($Dictionary())._fromPairs_(_st(self)._associations());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asDictionary",{},smalltalk.HashedCollection)})},
- messageSends: ["fromPairs:", "associations"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asJSON",
- fn: function (){
- var self=this;
- var c;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- c=_st(_st(self)._class())._new();
- _st(self)._keysAndValuesDo_((function(key,value){
- return smalltalk.withContext(function($ctx2) {
- return _st(c)._at_put_(key,_st(value)._asJSON());
- }, function($ctx2) {$ctx2.fillBlock({key:key,value:value},$ctx1)})}));
- $1=c;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asJSON",{c:c},smalltalk.HashedCollection)})},
- messageSends: ["new", "class", "keysAndValuesDo:", "at:put:", "asJSON"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "associations",
- fn: function (){
- var self=this;
- var associations;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- associations=[];
- _st(self)._associationsDo_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(associations)._add_(each);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- $1=associations;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"associations",{associations:associations},smalltalk.HashedCollection)})},
- messageSends: ["associationsDo:", "add:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "associationsDo:",
- fn: function (aBlock){
- var self=this;
- function $Association(){return smalltalk.Association||(typeof Association=="undefined"?nil:Association)}
- return smalltalk.withContext(function($ctx1) {
- _st(self)._keysAndValuesDo_((function(key,value){
- return smalltalk.withContext(function($ctx2) {
- return _st(aBlock)._value_(_st($Association())._key_value_(key,value));
- }, function($ctx2) {$ctx2.fillBlock({key:key,value:value},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"associationsDo:",{aBlock:aBlock},smalltalk.HashedCollection)})},
- messageSends: ["keysAndValuesDo:", "value:", "key:value:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:ifAbsent:",
- fn: function (aKey,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $2=_st(self)._includesKey_(aKey);
- $1=_st($2)._ifTrue_ifFalse_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self)._basicAt_(aKey);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),aBlock);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"at:ifAbsent:",{aKey:aKey,aBlock:aBlock},smalltalk.HashedCollection)})},
- messageSends: ["ifTrue:ifFalse:", "basicAt:", "includesKey:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:ifAbsentPut:",
- fn: function (aKey,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._at_ifAbsent_(aKey,(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self)._at_put_(aKey,_st(aBlock)._value());
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"at:ifAbsentPut:",{aKey:aKey,aBlock:aBlock},smalltalk.HashedCollection)})},
- messageSends: ["at:ifAbsent:", "at:put:", "value"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:ifPresent:ifAbsent:",
- fn: function (aKey,aBlock,anotherBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $2=_st(self)._includesKey_(aKey);
- $1=_st($2)._ifTrue_ifFalse_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(aBlock)._value_(_st(self)._at_(aKey));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),anotherBlock);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"at:ifPresent:ifAbsent:",{aKey:aKey,aBlock:aBlock,anotherBlock:anotherBlock},smalltalk.HashedCollection)})},
- messageSends: ["ifTrue:ifFalse:", "value:", "at:", "includesKey:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:put:",
- fn: function (aKey,aValue){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._basicAt_put_(aKey,aValue);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"at:put:",{aKey:aKey,aValue:aValue},smalltalk.HashedCollection)})},
- messageSends: ["basicAt:put:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "collect:",
- fn: function (aBlock){
- var self=this;
- var newDict;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- newDict=_st(_st(self)._class())._new();
- _st(self)._keysAndValuesDo_((function(key,value){
- return smalltalk.withContext(function($ctx2) {
- return _st(newDict)._at_put_(key,_st(aBlock)._value_(value));
- }, function($ctx2) {$ctx2.fillBlock({key:key,value:value},$ctx1)})}));
- $1=newDict;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"collect:",{aBlock:aBlock,newDict:newDict},smalltalk.HashedCollection)})},
- messageSends: ["new", "class", "keysAndValuesDo:", "at:put:", "value:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "deepCopy",
- fn: function (){
- var self=this;
- var copy;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- copy=_st(_st(self)._class())._new();
- _st(self)._keysAndValuesDo_((function(key,value){
- return smalltalk.withContext(function($ctx2) {
- return _st(copy)._at_put_(key,_st(value)._deepCopy());
- }, function($ctx2) {$ctx2.fillBlock({key:key,value:value},$ctx1)})}));
- $1=copy;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"deepCopy",{copy:copy},smalltalk.HashedCollection)})},
- messageSends: ["new", "class", "keysAndValuesDo:", "at:put:", "deepCopy"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "detect:ifNone:",
- fn: function (aBlock,anotherBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._values())._detect_ifNone_(aBlock,anotherBlock);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"detect:ifNone:",{aBlock:aBlock,anotherBlock:anotherBlock},smalltalk.HashedCollection)})},
- messageSends: ["detect:ifNone:", "values"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "do:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._valuesDo_(aBlock);
- return self}, function($ctx1) {$ctx1.fill(self,"do:",{aBlock:aBlock},smalltalk.HashedCollection)})},
- messageSends: ["valuesDo:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "includes:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._values())._includes_(anObject);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"includes:",{anObject:anObject},smalltalk.HashedCollection)})},
- messageSends: ["includes:", "values"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "includesKey:",
- fn: function (aKey){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.hasOwnProperty(aKey);
- return self}, function($ctx1) {$ctx1.fill(self,"includesKey:",{aKey:aKey},smalltalk.HashedCollection)})},
- messageSends: []}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "indexOf:ifAbsent:",
- fn: function (anObject,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._keys())._detect_ifNone_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(self)._at_(each)).__eq(anObject);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),aBlock);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"indexOf:ifAbsent:",{anObject:anObject,aBlock:aBlock},smalltalk.HashedCollection)})},
- messageSends: ["detect:ifNone:", "=", "at:", "keys"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "keys",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- if ('function'===typeof Object.keys) return Object.keys(self);
- var keys = [];
- for(var i in self) {
- if(self.hasOwnProperty(i)) {
- keys.push(i);
- }
- };
- return keys;
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"keys",{},smalltalk.HashedCollection)})},
- messageSends: []}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "keysAndValuesDo:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._keysDo_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(aBlock)._value_value_(each,_st(self)._at_(each));
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"keysAndValuesDo:",{aBlock:aBlock},smalltalk.HashedCollection)})},
- messageSends: ["keysDo:", "value:value:", "at:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "keysDo:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(_st(self)._keys())._do_(aBlock);
- return self}, function($ctx1) {$ctx1.fill(self,"keysDo:",{aBlock:aBlock},smalltalk.HashedCollection)})},
- messageSends: ["do:", "keys"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "printOn:",
- fn: function (aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- smalltalk.IndexableCollection.fn.prototype._printOn_.apply(_st(self), [aStream]);
- _st(aStream)._nextPutAll_(" (");
- _st(_st(self)._associations())._do_separatedBy_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(each)._printOn_(aStream);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(aStream)._nextPutAll_(" , ");
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- _st(aStream)._nextPutAll_(")");
- return self}, function($ctx1) {$ctx1.fill(self,"printOn:",{aStream:aStream},smalltalk.HashedCollection)})},
- messageSends: ["printOn:", "nextPutAll:", "do:separatedBy:", "associations"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "remove:ifAbsent:",
- fn: function (aKey,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._removeKey_ifAbsent_(aKey,aBlock);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"remove:ifAbsent:",{aKey:aKey,aBlock:aBlock},smalltalk.HashedCollection)})},
- messageSends: ["removeKey:ifAbsent:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeKey:",
- fn: function (aKey){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._remove_(aKey);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"removeKey:",{aKey:aKey},smalltalk.HashedCollection)})},
- messageSends: ["remove:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeKey:ifAbsent:",
- fn: function (aKey,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $2=_st(self)._includesKey_(aKey);
- if(smalltalk.assert($2)){
- $1=_st(self)._basicDelete_(aKey);
- } else {
- $1=_st(aBlock)._value();
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"removeKey:ifAbsent:",{aKey:aKey,aBlock:aBlock},smalltalk.HashedCollection)})},
- messageSends: ["ifFalse:ifTrue:", "value", "basicDelete:", "includesKey:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "select:",
- fn: function (aBlock){
- var self=this;
- var newDict;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- newDict=_st(_st(self)._class())._new();
- _st(self)._keysAndValuesDo_((function(key,value){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(aBlock)._value_(value);
- if(smalltalk.assert($1)){
- return _st(newDict)._at_put_(key,value);
- };
- }, function($ctx2) {$ctx2.fillBlock({key:key,value:value},$ctx1)})}));
- $2=newDict;
- return $2;
- }, function($ctx1) {$ctx1.fill(self,"select:",{aBlock:aBlock,newDict:newDict},smalltalk.HashedCollection)})},
- messageSends: ["new", "class", "keysAndValuesDo:", "ifTrue:", "at:put:", "value:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "shallowCopy",
- fn: function (){
- var self=this;
- var copy;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- copy=_st(_st(self)._class())._new();
- _st(self)._keysAndValuesDo_((function(key,value){
- return smalltalk.withContext(function($ctx2) {
- return _st(copy)._at_put_(key,value);
- }, function($ctx2) {$ctx2.fillBlock({key:key,value:value},$ctx1)})}));
- $1=copy;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"shallowCopy",{copy:copy},smalltalk.HashedCollection)})},
- messageSends: ["new", "class", "keysAndValuesDo:", "at:put:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "size",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._keys())._size();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"size",{},smalltalk.HashedCollection)})},
- messageSends: ["size", "keys"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "values",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._keys())._collect_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(self)._at_(each);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"values",{},smalltalk.HashedCollection)})},
- messageSends: ["collect:", "at:", "keys"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "valuesDo:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._keysAndValuesDo_((function(key,value){
- return smalltalk.withContext(function($ctx2) {
- return _st(aBlock)._value_(value);
- }, function($ctx2) {$ctx2.fillBlock({key:key,value:value},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"valuesDo:",{aBlock:aBlock},smalltalk.HashedCollection)})},
- messageSends: ["keysAndValuesDo:", "value:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "withIndexDo:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._keysAndValuesDo_((function(key,value){
- return smalltalk.withContext(function($ctx2) {
- return _st(aBlock)._value_value_(value,key);
- }, function($ctx2) {$ctx2.fillBlock({key:key,value:value},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"withIndexDo:",{aBlock:aBlock},smalltalk.HashedCollection)})},
- messageSends: ["keysAndValuesDo:", "value:value:"]}),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "fromPairs:",
- fn: function (aCollection){
- var self=this;
- var dict;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- dict=_st(self)._new();
- _st(aCollection)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(dict)._add_(each);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- $1=dict;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"fromPairs:",{aCollection:aCollection,dict:dict},smalltalk.HashedCollection.klass)})},
- messageSends: ["new", "do:", "add:"]}),
- smalltalk.HashedCollection.klass);
- smalltalk.addClass('Dictionary', smalltalk.HashedCollection, ['keys', 'values'], 'Kernel-Collections');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asHashedCollection",
- fn: function (){
- var self=this;
- function $HashedCollection(){return smalltalk.HashedCollection||(typeof HashedCollection=="undefined"?nil:HashedCollection)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st($HashedCollection())._fromPairs_(_st(self)._associations());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asHashedCollection",{},smalltalk.Dictionary)})},
- messageSends: ["fromPairs:", "associations"]}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asJSON",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._asHashedCollection())._asJSON();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asJSON",{},smalltalk.Dictionary)})},
- messageSends: ["asJSON", "asHashedCollection"]}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:ifAbsent:",
- fn: function (aKey,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var index = self._positionOfKey_(aKey);
- return index >=0 ? self['@values'][index] : aBlock();
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"at:ifAbsent:",{aKey:aKey,aBlock:aBlock},smalltalk.Dictionary)})},
- messageSends: []}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:put:",
- fn: function (aKey,aValue){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var index = self._positionOfKey_(aKey);
- if(index === -1) {
- var keys = self['@keys'];
- index = keys.length;
- keys.push(aKey);
- }
- return self['@values'][index] = aValue;
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"at:put:",{aKey:aKey,aValue:aValue},smalltalk.Dictionary)})},
- messageSends: []}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "includesKey:",
- fn: function (aKey){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self._positionOfKey_(aKey) >= 0; ;
- return self}, function($ctx1) {$ctx1.fill(self,"includesKey:",{aKey:aKey},smalltalk.Dictionary)})},
- messageSends: []}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "indexOf:ifAbsent:",
- fn: function (anObject,aBlock){
- var self=this;
- var index;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- index=_st(self["@values"])._indexOf_ifAbsent_(anObject,(function(){
- return smalltalk.withContext(function($ctx2) {
- return (0);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- $2=_st(index).__eq((0));
- if(smalltalk.assert($2)){
- $1=_st(aBlock)._value();
- } else {
- $1=_st(self["@keys"])._at_(index);
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"indexOf:ifAbsent:",{anObject:anObject,aBlock:aBlock,index:index},smalltalk.Dictionary)})},
- messageSends: ["indexOf:ifAbsent:", "ifTrue:ifFalse:", "value", "at:", "="]}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "initialize",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- smalltalk.HashedCollection.fn.prototype._initialize.apply(_st(self), []);
- self["@keys"]=[];
- self["@values"]=[];
- return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.Dictionary)})},
- messageSends: ["initialize"]}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "keys",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self["@keys"])._copy();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"keys",{},smalltalk.Dictionary)})},
- messageSends: ["copy"]}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "keysAndValuesDo:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self["@keys"])._with_do_(self["@values"],aBlock);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"keysAndValuesDo:",{aBlock:aBlock},smalltalk.Dictionary)})},
- messageSends: ["with:do:"]}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "keysDo:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self["@keys"])._do_(aBlock);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"keysDo:",{aBlock:aBlock},smalltalk.Dictionary)})},
- messageSends: ["do:"]}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "positionOfKey:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var keys = self['@keys'];
- for(var i=0;i<keys.length;i++){
- if(keys[i].__eq(anObject)) { return i;}
- }
- return -1;
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"positionOfKey:",{anObject:anObject},smalltalk.Dictionary)})},
- messageSends: []}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeKey:ifAbsent:",
- fn: function (aKey,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var index = self._positionOfKey_(aKey);
- if(index === -1) {
- return aBlock()
- } else {
- var keys = self['@keys'], values = self['@values'];
- var value = values[index], l = keys.length;
- keys[index] = keys[l-1];
- keys.pop();
- values[index] = values[l-1];
- values.pop();
- return value;
- }
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"removeKey:ifAbsent:",{aKey:aKey,aBlock:aBlock},smalltalk.Dictionary)})},
- messageSends: []}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "values",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self["@values"])._copy();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"values",{},smalltalk.Dictionary)})},
- messageSends: ["copy"]}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "valuesDo:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self["@values"])._do_(aBlock);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"valuesDo:",{aBlock:aBlock},smalltalk.Dictionary)})},
- messageSends: ["do:"]}),
- smalltalk.Dictionary);
- smalltalk.addClass('SequenceableCollection', smalltalk.IndexableCollection, [], 'Kernel-Collections');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "=",
- fn: function (aCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- var $early={};
- try {
- $1=_st(_st(_st(self)._class()).__eq(_st(aCollection)._class()))._and_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(self)._size()).__eq(_st(aCollection)._size());
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- if(! smalltalk.assert($1)){
- return false;
- };
- _st(self)._withIndexDo_((function(each,i){
- return smalltalk.withContext(function($ctx2) {
- $2=_st(_st(aCollection)._at_(i)).__eq(each);
- if(! smalltalk.assert($2)){
- throw $early=[false];
- };
- }, function($ctx2) {$ctx2.fillBlock({each:each,i:i},$ctx1)})}));
- return true;
- }
- catch(e) {if(e===$early)return e[0]; throw e}
- }, function($ctx1) {$ctx1.fill(self,"=",{aCollection:aCollection},smalltalk.SequenceableCollection)})},
- messageSends: ["ifFalse:", "and:", "=", "size", "class", "withIndexDo:", "at:"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "addLast:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._add_(anObject);
- return self}, function($ctx1) {$ctx1.fill(self,"addLast:",{anObject:anObject},smalltalk.SequenceableCollection)})},
- messageSends: ["add:"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "allButFirst",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._copyFrom_to_((2),_st(self)._size());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"allButFirst",{},smalltalk.SequenceableCollection)})},
- messageSends: ["copyFrom:to:", "size"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "allButLast",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._copyFrom_to_((1),_st(_st(self)._size()).__minus((1)));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"allButLast",{},smalltalk.SequenceableCollection)})},
- messageSends: ["copyFrom:to:", "-", "size"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "atRandom",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._at_(_st(_st(self)._size())._atRandom());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"atRandom",{},smalltalk.SequenceableCollection)})},
- messageSends: ["at:", "atRandom", "size"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "copyFrom:to:",
- fn: function (anIndex,anotherIndex){
- var self=this;
- var range,newCollection;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- range=_st(anIndex)._to_(anotherIndex);
- newCollection=_st(_st(self)._class())._new_(_st(range)._size());
- _st(range)._withIndexDo_((function(each,i){
- return smalltalk.withContext(function($ctx2) {
- return _st(newCollection)._at_put_(i,_st(self)._at_(each));
- }, function($ctx2) {$ctx2.fillBlock({each:each,i:i},$ctx1)})}));
- $1=newCollection;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"copyFrom:to:",{anIndex:anIndex,anotherIndex:anotherIndex,range:range,newCollection:newCollection},smalltalk.SequenceableCollection)})},
- messageSends: ["to:", "new:", "size", "class", "withIndexDo:", "at:put:", "at:"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "deepCopy",
- fn: function (){
- var self=this;
- var newCollection;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- newCollection=_st(_st(self)._class())._new_(_st(self)._size());
- _st(self)._withIndexDo_((function(each,index){
- return smalltalk.withContext(function($ctx2) {
- return _st(newCollection)._at_put_(index,_st(each)._deepCopy());
- }, function($ctx2) {$ctx2.fillBlock({each:each,index:index},$ctx1)})}));
- $1=newCollection;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"deepCopy",{newCollection:newCollection},smalltalk.SequenceableCollection)})},
- messageSends: ["new:", "size", "class", "withIndexDo:", "at:put:", "deepCopy"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "detect:ifNone:",
- fn: function (aBlock,anotherBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- for(var i = 0; i < self.length; i++)
- if(aBlock(self[i]))
- return self[i];
- return anotherBlock();
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"detect:ifNone:",{aBlock:aBlock,anotherBlock:anotherBlock},smalltalk.SequenceableCollection)})},
- messageSends: []}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "do:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- for(var i=0;i<self.length;i++){aBlock(self[i]);};
- return self}, function($ctx1) {$ctx1.fill(self,"do:",{aBlock:aBlock},smalltalk.SequenceableCollection)})},
- messageSends: []}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "first",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._at_((1));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"first",{},smalltalk.SequenceableCollection)})},
- messageSends: ["at:"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "first:",
- fn: function (n){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._copyFrom_to_((1),n);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"first:",{n:n},smalltalk.SequenceableCollection)})},
- messageSends: ["copyFrom:to:"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "fourth",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._at_((4));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"fourth",{},smalltalk.SequenceableCollection)})},
- messageSends: ["at:"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "includes:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._indexOf_ifAbsent_(anObject,(function(){
- return smalltalk.withContext(function($ctx2) {
- return nil;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})))._notNil();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"includes:",{anObject:anObject},smalltalk.SequenceableCollection)})},
- messageSends: ["notNil", "indexOf:ifAbsent:"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "indexOf:ifAbsent:",
- fn: function (anObject,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- for(var i=0;i<self.length;i++) {
- if(self[i].__eq(anObject)) {return i+1}
- };
- return aBlock();
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"indexOf:ifAbsent:",{anObject:anObject,aBlock:aBlock},smalltalk.SequenceableCollection)})},
- messageSends: []}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "indexOf:startingAt:",
- fn: function (anObject,start){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._indexOf_startingAt_ifAbsent_(anObject,start,(function(){
- return smalltalk.withContext(function($ctx2) {
- return (0);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"indexOf:startingAt:",{anObject:anObject,start:start},smalltalk.SequenceableCollection)})},
- messageSends: ["indexOf:startingAt:ifAbsent:"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "indexOf:startingAt:ifAbsent:",
- fn: function (anObject,start,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- for(var i=start-1;i<self.length;i++){
- if(self[i].__eq(anObject)) {return i+1}
- }
- return aBlock();
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"indexOf:startingAt:ifAbsent:",{anObject:anObject,start:start,aBlock:aBlock},smalltalk.SequenceableCollection)})},
- messageSends: []}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "last",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._at_(_st(self)._size());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"last",{},smalltalk.SequenceableCollection)})},
- messageSends: ["at:", "size"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "newStream",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._streamClass())._on_(self);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"newStream",{},smalltalk.SequenceableCollection)})},
- messageSends: ["on:", "streamClass"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "readStream",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._stream();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"readStream",{},smalltalk.SequenceableCollection)})},
- messageSends: ["stream"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeLast",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._remove_(_st(self)._last());
- return self}, function($ctx1) {$ctx1.fill(self,"removeLast",{},smalltalk.SequenceableCollection)})},
- messageSends: ["remove:", "last"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "reversed",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._subclassResponsibility();
- return self}, function($ctx1) {$ctx1.fill(self,"reversed",{},smalltalk.SequenceableCollection)})},
- messageSends: ["subclassResponsibility"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "second",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._at_((2));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"second",{},smalltalk.SequenceableCollection)})},
- messageSends: ["at:"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "shallowCopy",
- fn: function (){
- var self=this;
- var newCollection;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- newCollection=_st(_st(self)._class())._new_(_st(self)._size());
- _st(self)._withIndexDo_((function(each,index){
- return smalltalk.withContext(function($ctx2) {
- return _st(newCollection)._at_put_(index,each);
- }, function($ctx2) {$ctx2.fillBlock({each:each,index:index},$ctx1)})}));
- $1=newCollection;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"shallowCopy",{newCollection:newCollection},smalltalk.SequenceableCollection)})},
- messageSends: ["new:", "size", "class", "withIndexDo:", "at:put:"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "stream",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._newStream();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"stream",{},smalltalk.SequenceableCollection)})},
- messageSends: ["newStream"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "streamClass",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._class())._streamClass();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"streamClass",{},smalltalk.SequenceableCollection)})},
- messageSends: ["streamClass", "class"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "third",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._at_((3));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"third",{},smalltalk.SequenceableCollection)})},
- messageSends: ["at:"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "with:do:",
- fn: function (anotherCollection,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- for(var i=0;i<self.length;i++){aBlock(self[i], anotherCollection[i]);};
- return self}, function($ctx1) {$ctx1.fill(self,"with:do:",{anotherCollection:anotherCollection,aBlock:aBlock},smalltalk.SequenceableCollection)})},
- messageSends: []}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "withIndexDo:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- for(var i=0;i<self.length;i++){aBlock(self[i], i+1);};
- return self}, function($ctx1) {$ctx1.fill(self,"withIndexDo:",{aBlock:aBlock},smalltalk.SequenceableCollection)})},
- messageSends: []}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "writeStream",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._stream();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"writeStream",{},smalltalk.SequenceableCollection)})},
- messageSends: ["stream"]}),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "streamClass",
- fn: function (){
- var self=this;
- function $Stream(){return smalltalk.Stream||(typeof Stream=="undefined"?nil:Stream)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=$Stream();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"streamClass",{},smalltalk.SequenceableCollection.klass)})},
- messageSends: []}),
- smalltalk.SequenceableCollection.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "streamContents:",
- fn: function (aBlock){
- var self=this;
- var stream;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- stream=_st(_st(self)._streamClass())._on_(_st(self)._new());
- _st(aBlock)._value_(stream);
- $1=_st(stream)._contents();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"streamContents:",{aBlock:aBlock,stream:stream},smalltalk.SequenceableCollection.klass)})},
- messageSends: ["on:", "new", "streamClass", "value:", "contents"]}),
- smalltalk.SequenceableCollection.klass);
- smalltalk.addClass('Array', smalltalk.SequenceableCollection, [], 'Kernel-Collections');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "add:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self.push(anObject); return anObject;;
- return self}, function($ctx1) {$ctx1.fill(self,"add:",{anObject:anObject},smalltalk.Array)})},
- messageSends: []}),
- smalltalk.Array);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asJavascript",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st("[").__comma(_st(_st(self)._collect_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(each)._asJavascript();
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})))._join_(", "))).__comma("]");
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asJavascript",{},smalltalk.Array)})},
- messageSends: [",", "join:", "collect:", "asJavascript"]}),
- smalltalk.Array);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:ifAbsent:",
- fn: function (anIndex,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- if((anIndex < 1) || (self.length < anIndex)) {return aBlock()};
- return self[anIndex - 1];
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"at:ifAbsent:",{anIndex:anIndex,aBlock:aBlock},smalltalk.Array)})},
- messageSends: []}),
- smalltalk.Array);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:put:",
- fn: function (anIndex,anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self[anIndex - 1] = anObject;
- return self}, function($ctx1) {$ctx1.fill(self,"at:put:",{anIndex:anIndex,anObject:anObject},smalltalk.Array)})},
- messageSends: []}),
- smalltalk.Array);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "join:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.join(aString);
- return self}, function($ctx1) {$ctx1.fill(self,"join:",{aString:aString},smalltalk.Array)})},
- messageSends: []}),
- smalltalk.Array);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "printOn:",
- fn: function (aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- smalltalk.SequenceableCollection.fn.prototype._printOn_.apply(_st(self), [aStream]);
- _st(aStream)._nextPutAll_(" (");
- _st(self)._do_separatedBy_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(each)._printOn_(aStream);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(aStream)._nextPutAll_(" ");
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- _st(aStream)._nextPutAll_(")");
- return self}, function($ctx1) {$ctx1.fill(self,"printOn:",{aStream:aStream},smalltalk.Array)})},
- messageSends: ["printOn:", "nextPutAll:", "do:separatedBy:"]}),
- smalltalk.Array);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "remove:ifAbsent:",
- fn: function (anObject,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- for(var i=0;i<self.length;i++) {
- if(self[i] == anObject) {
- self.splice(i,1);
- return self;
- }
- };
- aBlock._value();
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"remove:ifAbsent:",{anObject:anObject,aBlock:aBlock},smalltalk.Array)})},
- messageSends: []}),
- smalltalk.Array);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeFrom:to:",
- fn: function (aNumber,anotherNumber){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self.splice(aNumber - 1,anotherNumber - 1);
- return self}, function($ctx1) {$ctx1.fill(self,"removeFrom:to:",{aNumber:aNumber,anotherNumber:anotherNumber},smalltalk.Array)})},
- messageSends: []}),
- smalltalk.Array);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "reversed",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self._copy().reverse();
- return self}, function($ctx1) {$ctx1.fill(self,"reversed",{},smalltalk.Array)})},
- messageSends: []}),
- smalltalk.Array);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "size",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.length;
- return self}, function($ctx1) {$ctx1.fill(self,"size",{},smalltalk.Array)})},
- messageSends: []}),
- smalltalk.Array);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "sort",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._basicPerform_("sort");
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"sort",{},smalltalk.Array)})},
- messageSends: ["basicPerform:"]}),
- smalltalk.Array);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "sort:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.sort(function(a, b) {
- if(aBlock(a,b)) {return -1} else {return 1}
- })
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"sort:",{aBlock:aBlock},smalltalk.Array)})},
- messageSends: []}),
- smalltalk.Array);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "sorted",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._copy())._sort();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"sorted",{},smalltalk.Array)})},
- messageSends: ["sort", "copy"]}),
- smalltalk.Array);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "sorted:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._copy())._sort_(aBlock);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"sorted:",{aBlock:aBlock},smalltalk.Array)})},
- messageSends: ["sort:", "copy"]}),
- smalltalk.Array);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "new:",
- fn: function (anInteger){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return new Array(anInteger);
- return self}, function($ctx1) {$ctx1.fill(self,"new:",{anInteger:anInteger},smalltalk.Array.klass)})},
- messageSends: []}),
- smalltalk.Array.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "with:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=_st(self)._new_((1));
- _st($2)._at_put_((1),anObject);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"with:",{anObject:anObject},smalltalk.Array.klass)})},
- messageSends: ["at:put:", "new:", "yourself"]}),
- smalltalk.Array.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "with:with:",
- fn: function (anObject,anObject2){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=_st(self)._new_((2));
- _st($2)._at_put_((1),anObject);
- _st($2)._at_put_((2),anObject2);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"with:with:",{anObject:anObject,anObject2:anObject2},smalltalk.Array.klass)})},
- messageSends: ["at:put:", "new:", "yourself"]}),
- smalltalk.Array.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "with:with:with:",
- fn: function (anObject,anObject2,anObject3){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=_st(self)._new_((3));
- _st($2)._at_put_((1),anObject);
- _st($2)._at_put_((2),anObject2);
- _st($2)._at_put_((3),anObject3);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"with:with:with:",{anObject:anObject,anObject2:anObject2,anObject3:anObject3},smalltalk.Array.klass)})},
- messageSends: ["at:put:", "new:", "yourself"]}),
- smalltalk.Array.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "withAll:",
- fn: function (aCollection){
- var self=this;
- var instance,index;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- index=(1);
- instance=_st(self)._new_(_st(aCollection)._size());
- _st(aCollection)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- _st(instance)._at_put_(index,each);
- index=_st(index).__plus((1));
- return index;
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- $1=instance;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"withAll:",{aCollection:aCollection,instance:instance,index:index},smalltalk.Array.klass)})},
- messageSends: ["new:", "size", "do:", "at:put:", "+"]}),
- smalltalk.Array.klass);
- smalltalk.addClass('CharacterArray', smalltalk.SequenceableCollection, [], 'Kernel-Collections');
- smalltalk.addMethod(
- smalltalk.method({
- selector: ",",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._asString()).__comma(_st(aString)._asString());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,",",{aString:aString},smalltalk.CharacterArray)})},
- messageSends: [",", "asString"]}),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "add:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._errorReadOnly();
- return self}, function($ctx1) {$ctx1.fill(self,"add:",{anObject:anObject},smalltalk.CharacterArray)})},
- messageSends: ["errorReadOnly"]}),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asLowercase",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._class())._fromString_(_st(_st(self)._asString())._asLowercase());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asLowercase",{},smalltalk.CharacterArray)})},
- messageSends: ["fromString:", "asLowercase", "asString", "class"]}),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asNumber",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._asString())._asNumber();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asNumber",{},smalltalk.CharacterArray)})},
- messageSends: ["asNumber", "asString"]}),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asString",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._subclassResponsibility();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asString",{},smalltalk.CharacterArray)})},
- messageSends: ["subclassResponsibility"]}),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asSymbol",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._asString();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asSymbol",{},smalltalk.CharacterArray)})},
- messageSends: ["asString"]}),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asUppercase",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._class())._fromString_(_st(_st(self)._asString())._asUppercase());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asUppercase",{},smalltalk.CharacterArray)})},
- messageSends: ["fromString:", "asUppercase", "asString", "class"]}),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:put:",
- fn: function (anIndex,anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._errorReadOnly();
- return self}, function($ctx1) {$ctx1.fill(self,"at:put:",{anIndex:anIndex,anObject:anObject},smalltalk.CharacterArray)})},
- messageSends: ["errorReadOnly"]}),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "errorReadOnly",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._error_("Object is read-only");
- return self}, function($ctx1) {$ctx1.fill(self,"errorReadOnly",{},smalltalk.CharacterArray)})},
- messageSends: ["error:"]}),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "printOn:",
- fn: function (aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(_st(self)._asString())._printOn_(aStream);
- return self}, function($ctx1) {$ctx1.fill(self,"printOn:",{aStream:aStream},smalltalk.CharacterArray)})},
- messageSends: ["printOn:", "asString"]}),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "putOn:",
- fn: function (aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(aStream)._nextPutString_(self);
- return self}, function($ctx1) {$ctx1.fill(self,"putOn:",{aStream:aStream},smalltalk.CharacterArray)})},
- messageSends: ["nextPutString:"]}),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "remove:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._errorReadOnly();
- return self}, function($ctx1) {$ctx1.fill(self,"remove:",{anObject:anObject},smalltalk.CharacterArray)})},
- messageSends: ["errorReadOnly"]}),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "fromString:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._subclassResponsibility();
- return self}, function($ctx1) {$ctx1.fill(self,"fromString:",{aString:aString},smalltalk.CharacterArray.klass)})},
- messageSends: ["subclassResponsibility"]}),
- smalltalk.CharacterArray.klass);
- smalltalk.addClass('String', smalltalk.CharacterArray, [], 'Kernel-Collections');
- smalltalk.addMethod(
- smalltalk.method({
- selector: ",",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self + aString;
- return self}, function($ctx1) {$ctx1.fill(self,",",{aString:aString},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "<",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return String(self) < aString._asString();
- return self}, function($ctx1) {$ctx1.fill(self,"<",{aString:aString},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "<=",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return String(self) <= aString._asString();
- return self}, function($ctx1) {$ctx1.fill(self,"<=",{aString:aString},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "=",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- if(typeof aString === 'undefined') { return false }
- if(!aString._isString || ! aString._isString()) {
- return false;
- }
- return String(self) === String(aString)
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"=",{aString:aString},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "==",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self).__eq(aString);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"==",{aString:aString},smalltalk.String)})},
- messageSends: ["="]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: ">",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return String(self) > aString._asString();
- return self}, function($ctx1) {$ctx1.fill(self,">",{aString:aString},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: ">=",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return String(self) >= aString._asString();
- return self}, function($ctx1) {$ctx1.fill(self,">=",{aString:aString},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asJSON",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asJSON",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asJavascript",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- if(self.search(/^[a-zA-Z0-9_:.$ ]*$/) == -1)
- return "\"" + self.replace(/[\x00-\x1f"\\\x7f-\x9f]/g, function(ch){var c=ch.charCodeAt(0);return "\\x"+("0"+c.toString(16)).slice(-2)}) + "\"";
- else
- return "\"" + self + "\"";
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"asJavascript",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asLowercase",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.toLowerCase();
- return self}, function($ctx1) {$ctx1.fill(self,"asLowercase",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asNumber",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return Number(self);
- return self}, function($ctx1) {$ctx1.fill(self,"asNumber",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asRegexp",
- fn: function (){
- var self=this;
- function $RegularExpression(){return smalltalk.RegularExpression||(typeof RegularExpression=="undefined"?nil:RegularExpression)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st($RegularExpression())._fromString_(self);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asRegexp",{},smalltalk.String)})},
- messageSends: ["fromString:"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asSelector",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return smalltalk.selector(self);
- return self}, function($ctx1) {$ctx1.fill(self,"asSelector",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asString",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asString",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asSymbol",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asSymbol",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asUppercase",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.toUpperCase();
- return self}, function($ctx1) {$ctx1.fill(self,"asUppercase",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asciiValue",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.charCodeAt(0);;
- return self}, function($ctx1) {$ctx1.fill(self,"asciiValue",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "at:ifAbsent:",
- fn: function (anIndex,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return String(self).charAt(anIndex - 1) || aBlock();
- return self}, function($ctx1) {$ctx1.fill(self,"at:ifAbsent:",{anIndex:anIndex,aBlock:aBlock},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "charCodeAt:",
- fn: function (anInteger){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.charCodeAt(anInteger - 1) ;
- return self}, function($ctx1) {$ctx1.fill(self,"charCodeAt:",{anInteger:anInteger},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "copyFrom:to:",
- fn: function (anIndex,anotherIndex){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.substring(anIndex - 1, anotherIndex);
- return self}, function($ctx1) {$ctx1.fill(self,"copyFrom:to:",{anIndex:anIndex,anotherIndex:anotherIndex},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "crlfSanitized",
- fn: function (){
- var self=this;
- function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._lines())._join_(_st($String())._lf());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"crlfSanitized",{},smalltalk.String)})},
- messageSends: ["join:", "lf", "lines"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "deepCopy",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._shallowCopy();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"deepCopy",{},smalltalk.String)})},
- messageSends: ["shallowCopy"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "do:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- for(var i=0;i<self.length;i++){aBlock(self.charAt(i));};
- return self}, function($ctx1) {$ctx1.fill(self,"do:",{aBlock:aBlock},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "escaped",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return escape(self);
- return self}, function($ctx1) {$ctx1.fill(self,"escaped",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "includesSubString:",
- fn: function (subString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.indexOf(subString) != -1 ;
- return self}, function($ctx1) {$ctx1.fill(self,"includesSubString:",{subString:subString},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "isImmutable",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return true;
- }, function($ctx1) {$ctx1.fill(self,"isImmutable",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "isString",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return true;
- }, function($ctx1) {$ctx1.fill(self,"isString",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "isVowel",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(_st(self)._size()).__eq((1)))._and_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st("aeiou")._includes_(_st(self)._asLowercase());
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"isVowel",{},smalltalk.String)})},
- messageSends: ["and:", "includes:", "asLowercase", "=", "size"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "join:",
- fn: function (aCollection){
- var self=this;
- function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st($String())._streamContents_((function(stream){
- return smalltalk.withContext(function($ctx2) {
- return _st(aCollection)._do_separatedBy_((function(each){
- return smalltalk.withContext(function($ctx3) {
- return _st(stream)._nextPutAll_(_st(each)._asString());
- }, function($ctx3) {$ctx3.fillBlock({each:each},$ctx1)})}),(function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(stream)._nextPutAll_(self);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
- }, function($ctx2) {$ctx2.fillBlock({stream:stream},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"join:",{aCollection:aCollection},smalltalk.String)})},
- messageSends: ["streamContents:", "do:separatedBy:", "nextPutAll:", "asString"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "lineIndicesDo:",
- fn: function (aBlock){
- var self=this;
- var cr,lf,start,sz,nextLF,nextCR;
- function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4;
- var $early={};
- try {
- start=(1);
- sz=_st(self)._size();
- cr=_st($String())._cr();
- nextCR=_st(self)._indexOf_startingAt_(cr,(1));
- lf=_st($String())._lf();
- nextLF=_st(self)._indexOf_startingAt_(lf,(1));
- _st((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(start).__lt_eq(sz);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(_st(nextLF).__eq((0)))._and_((function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(nextCR).__eq((0));
- }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
- if(smalltalk.assert($1)){
- _st(aBlock)._value_value_value_(start,sz,sz);
- $2=self;
- throw $early=[$2];
- };
- $3=_st(_st(nextCR).__eq((0)))._or_((function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(_st((0)).__lt(nextLF))._and_((function(){
- return smalltalk.withContext(function($ctx4) {
- return _st(nextLF).__lt(nextCR);
- }, function($ctx4) {$ctx4.fillBlock({},$ctx1)})}));
- }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
- if(smalltalk.assert($3)){
- _st(aBlock)._value_value_value_(start,_st(nextLF).__minus((1)),nextLF);
- start=_st((1)).__plus(nextLF);
- start;
- nextLF=_st(self)._indexOf_startingAt_(lf,start);
- return nextLF;
- } else {
- $4=_st(_st((1)).__plus(nextCR)).__eq(nextLF);
- if(smalltalk.assert($4)){
- _st(aBlock)._value_value_value_(start,_st(nextCR).__minus((1)),nextLF);
- start=_st((1)).__plus(nextLF);
- start;
- nextCR=_st(self)._indexOf_startingAt_(cr,start);
- nextCR;
- nextLF=_st(self)._indexOf_startingAt_(lf,start);
- return nextLF;
- } else {
- _st(aBlock)._value_value_value_(start,_st(nextCR).__minus((1)),nextCR);
- start=_st((1)).__plus(nextCR);
- start;
- nextCR=_st(self)._indexOf_startingAt_(cr,start);
- return nextCR;
- };
- };
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return self}
- catch(e) {if(e===$early)return e[0]; throw e}
- }, function($ctx1) {$ctx1.fill(self,"lineIndicesDo:",{aBlock:aBlock,cr:cr,lf:lf,start:start,sz:sz,nextLF:nextLF,nextCR:nextCR},smalltalk.String)})},
- messageSends: ["size", "cr", "indexOf:startingAt:", "lf", "whileTrue:", "ifTrue:", "value:value:value:", "and:", "=", "ifTrue:ifFalse:", "-", "+", "or:", "<", "<="]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "lineNumber:",
- fn: function (anIndex){
- var self=this;
- var lineCount;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- var $early={};
- try {
- lineCount=(0);
- _st(self)._lineIndicesDo_((function(start,endWithoutDelimiters,end){
- return smalltalk.withContext(function($ctx2) {
- lineCount=_st(lineCount).__plus((1));
- $1=_st(lineCount).__eq(anIndex);
- if(smalltalk.assert($1)){
- $2=_st(self)._copyFrom_to_(start,endWithoutDelimiters);
- throw $early=[$2];
- };
- }, function($ctx2) {$ctx2.fillBlock({start:start,endWithoutDelimiters:endWithoutDelimiters,end:end},$ctx1)})}));
- return nil;
- }
- catch(e) {if(e===$early)return e[0]; throw e}
- }, function($ctx1) {$ctx1.fill(self,"lineNumber:",{anIndex:anIndex,lineCount:lineCount},smalltalk.String)})},
- messageSends: ["lineIndicesDo:", "ifTrue:", "copyFrom:to:", "=", "+"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "lines",
- fn: function (){
- var self=this;
- var lines;
- function $Array(){return smalltalk.Array||(typeof Array=="undefined"?nil:Array)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- lines=_st($Array())._new();
- _st(self)._linesDo_((function(aLine){
- return smalltalk.withContext(function($ctx2) {
- return _st(lines)._add_(aLine);
- }, function($ctx2) {$ctx2.fillBlock({aLine:aLine},$ctx1)})}));
- $1=lines;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"lines",{lines:lines},smalltalk.String)})},
- messageSends: ["new", "linesDo:", "add:"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "linesDo:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._lineIndicesDo_((function(start,endWithoutDelimiters,end){
- return smalltalk.withContext(function($ctx2) {
- return _st(aBlock)._value_(_st(self)._copyFrom_to_(start,endWithoutDelimiters));
- }, function($ctx2) {$ctx2.fillBlock({start:start,endWithoutDelimiters:endWithoutDelimiters,end:end},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"linesDo:",{aBlock:aBlock},smalltalk.String)})},
- messageSends: ["lineIndicesDo:", "value:", "copyFrom:to:"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "match:",
- fn: function (aRegexp){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.search(aRegexp) != -1;
- return self}, function($ctx1) {$ctx1.fill(self,"match:",{aRegexp:aRegexp},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "matchesOf:",
- fn: function (aRegularExpression){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.match(aRegularExpression);
- return self}, function($ctx1) {$ctx1.fill(self,"matchesOf:",{aRegularExpression:aRegularExpression},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "printNl",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- console.log(self);
- return self}, function($ctx1) {$ctx1.fill(self,"printNl",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "printOn:",
- fn: function (aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=aStream;
- _st($1)._nextPutAll_("'");
- _st($1)._nextPutAll_(self);
- $2=_st($1)._nextPutAll_("'");
- return self}, function($ctx1) {$ctx1.fill(self,"printOn:",{aStream:aStream},smalltalk.String)})},
- messageSends: ["nextPutAll:"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "replace:with:",
- fn: function (aString,anotherString){
- var self=this;
- function $RegularExpression(){return smalltalk.RegularExpression||(typeof RegularExpression=="undefined"?nil:RegularExpression)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._replaceRegexp_with_(_st($RegularExpression())._fromString_flag_(aString,"g"),anotherString);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"replace:with:",{aString:aString,anotherString:anotherString},smalltalk.String)})},
- messageSends: ["replaceRegexp:with:", "fromString:flag:"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "replaceRegexp:with:",
- fn: function (aRegexp,aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.replace(aRegexp, aString);
- return self}, function($ctx1) {$ctx1.fill(self,"replaceRegexp:with:",{aRegexp:aRegexp,aString:aString},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "reversed",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.split("").reverse().join("");
- return self}, function($ctx1) {$ctx1.fill(self,"reversed",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "shallowCopy",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._class())._fromString_(self);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"shallowCopy",{},smalltalk.String)})},
- messageSends: ["fromString:", "class"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "size",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.length;
- return self}, function($ctx1) {$ctx1.fill(self,"size",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "subStrings:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._tokenize_(aString);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"subStrings:",{aString:aString},smalltalk.String)})},
- messageSends: ["tokenize:"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tokenize:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.split(aString);
- return self}, function($ctx1) {$ctx1.fill(self,"tokenize:",{aString:aString},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "trimBoth",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._trimBoth_("\x5cs");
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"trimBoth",{},smalltalk.String)})},
- messageSends: ["trimBoth:"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "trimBoth:",
- fn: function (separators){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._trimLeft_(separators))._trimRight_(separators);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"trimBoth:",{separators:separators},smalltalk.String)})},
- messageSends: ["trimRight:", "trimLeft:"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "trimLeft",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._trimLeft_("\x5cs");
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"trimLeft",{},smalltalk.String)})},
- messageSends: ["trimLeft:"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "trimLeft:",
- fn: function (separators){
- var self=this;
- function $RegularExpression(){return smalltalk.RegularExpression||(typeof RegularExpression=="undefined"?nil:RegularExpression)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._replaceRegexp_with_(_st($RegularExpression())._fromString_flag_(_st(_st("^[").__comma(separators)).__comma("]+"),"g"),"");
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"trimLeft:",{separators:separators},smalltalk.String)})},
- messageSends: ["replaceRegexp:with:", "fromString:flag:", ","]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "trimRight",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._trimRight_("\x5cs");
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"trimRight",{},smalltalk.String)})},
- messageSends: ["trimRight:"]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "trimRight:",
- fn: function (separators){
- var self=this;
- function $RegularExpression(){return smalltalk.RegularExpression||(typeof RegularExpression=="undefined"?nil:RegularExpression)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._replaceRegexp_with_(_st($RegularExpression())._fromString_flag_(_st(_st("[").__comma(separators)).__comma("]+$"),"g"),"");
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"trimRight:",{separators:separators},smalltalk.String)})},
- messageSends: ["replaceRegexp:with:", "fromString:flag:", ","]}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "unescaped",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return unescape(self);
- return self}, function($ctx1) {$ctx1.fill(self,"unescaped",{},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "withIndexDo:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- for(var i=0;i<self.length;i++){aBlock(self.charAt(i), i+1);};
- return self}, function($ctx1) {$ctx1.fill(self,"withIndexDo:",{aBlock:aBlock},smalltalk.String)})},
- messageSends: []}),
- smalltalk.String);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cr",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return '\r';
- return self}, function($ctx1) {$ctx1.fill(self,"cr",{},smalltalk.String.klass)})},
- messageSends: []}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "crlf",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return '\r\n';
- return self}, function($ctx1) {$ctx1.fill(self,"crlf",{},smalltalk.String.klass)})},
- messageSends: []}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "fromCharCode:",
- fn: function (anInteger){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return String.fromCharCode(anInteger);
- return self}, function($ctx1) {$ctx1.fill(self,"fromCharCode:",{anInteger:anInteger},smalltalk.String.klass)})},
- messageSends: []}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "fromString:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return String(aString);
- return self}, function($ctx1) {$ctx1.fill(self,"fromString:",{aString:aString},smalltalk.String.klass)})},
- messageSends: []}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "lf",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return '\n';
- return self}, function($ctx1) {$ctx1.fill(self,"lf",{},smalltalk.String.klass)})},
- messageSends: []}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "random",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return (Math.random()*(22/32)+(10/32)).toString(32).slice(2);;
- return self}, function($ctx1) {$ctx1.fill(self,"random",{},smalltalk.String.klass)})},
- messageSends: []}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "randomNotIn:",
- fn: function (aString){
- var self=this;
- var result;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- _st((function(){
- return smalltalk.withContext(function($ctx2) {
- result=_st(self)._random();
- result;
- return _st(aString)._includesSubString_(result);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue();
- $1=result;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"randomNotIn:",{aString:aString,result:result},smalltalk.String.klass)})},
- messageSends: ["whileTrue", "random", "includesSubString:"]}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "space",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return ' ';
- return self}, function($ctx1) {$ctx1.fill(self,"space",{},smalltalk.String.klass)})},
- messageSends: []}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "streamClass",
- fn: function (){
- var self=this;
- function $StringStream(){return smalltalk.StringStream||(typeof StringStream=="undefined"?nil:StringStream)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=$StringStream();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"streamClass",{},smalltalk.String.klass)})},
- messageSends: []}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tab",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return '\t';
- return self}, function($ctx1) {$ctx1.fill(self,"tab",{},smalltalk.String.klass)})},
- messageSends: []}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "value:",
- fn: function (aUTFCharCode){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return String.fromCharCode(aUTFCharCode);;
- return self}, function($ctx1) {$ctx1.fill(self,"value:",{aUTFCharCode:aUTFCharCode},smalltalk.String.klass)})},
- messageSends: []}),
- smalltalk.String.klass);
- smalltalk.addClass('Set', smalltalk.Collection, ['elements'], 'Kernel-Collections');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "=",
- fn: function (aCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3;
- var $early={};
- try {
- $1=_st(_st(self)._class()).__eq(_st(aCollection)._class());
- if(! smalltalk.assert($1)){
- return false;
- };
- $2=_st(_st(self)._size()).__eq(_st(aCollection)._size());
- if(! smalltalk.assert($2)){
- return false;
- };
- _st(self)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- $3=_st(aCollection)._includes_(each);
- if(! smalltalk.assert($3)){
- throw $early=[false];
- };
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return true;
- }
- catch(e) {if(e===$early)return e[0]; throw e}
- }, function($ctx1) {$ctx1.fill(self,"=",{aCollection:aCollection},smalltalk.Set)})},
- messageSends: ["ifFalse:", "=", "class", "size", "do:", "includes:"]}),
- smalltalk.Set);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "add:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var found;
- for(var i=0; i < self['@elements'].length; i++) {
- if(anObject == self['@elements'][i]) {
- found = true;
- break;
- }
- }
- if(!found) {self['@elements'].push(anObject)}
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"add:",{anObject:anObject},smalltalk.Set)})},
- messageSends: []}),
- smalltalk.Set);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "asArray",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self["@elements"])._copy();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"asArray",{},smalltalk.Set)})},
- messageSends: ["copy"]}),
- smalltalk.Set);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "collect:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._class())._withAll_(_st(self["@elements"])._collect_(aBlock));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"collect:",{aBlock:aBlock},smalltalk.Set)})},
- messageSends: ["withAll:", "collect:", "class"]}),
- smalltalk.Set);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "detect:ifNone:",
- fn: function (aBlock,anotherBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self["@elements"])._detect_ifNone_(aBlock,anotherBlock);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"detect:ifNone:",{aBlock:aBlock,anotherBlock:anotherBlock},smalltalk.Set)})},
- messageSends: ["detect:ifNone:"]}),
- smalltalk.Set);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "do:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self["@elements"])._do_(aBlock);
- return self}, function($ctx1) {$ctx1.fill(self,"do:",{aBlock:aBlock},smalltalk.Set)})},
- messageSends: ["do:"]}),
- smalltalk.Set);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "includes:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self["@elements"])._includes_(anObject);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"includes:",{anObject:anObject},smalltalk.Set)})},
- messageSends: ["includes:"]}),
- smalltalk.Set);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "initialize",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- smalltalk.Collection.fn.prototype._initialize.apply(_st(self), []);
- self["@elements"]=[];
- return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.Set)})},
- messageSends: ["initialize"]}),
- smalltalk.Set);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "printOn:",
- fn: function (aStream){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- smalltalk.Collection.fn.prototype._printOn_.apply(_st(self), [aStream]);
- _st(aStream)._nextPutAll_(" (");
- _st(self)._do_separatedBy_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(each)._printOn_(aStream);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}),(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(aStream)._nextPutAll_(" ");
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- _st(aStream)._nextPutAll_(")");
- return self}, function($ctx1) {$ctx1.fill(self,"printOn:",{aStream:aStream},smalltalk.Set)})},
- messageSends: ["printOn:", "nextPutAll:", "do:separatedBy:"]}),
- smalltalk.Set);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "remove:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self["@elements"])._remove_(anObject);
- return self}, function($ctx1) {$ctx1.fill(self,"remove:",{anObject:anObject},smalltalk.Set)})},
- messageSends: ["remove:"]}),
- smalltalk.Set);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "select:",
- fn: function (aBlock){
- var self=this;
- var collection;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- collection=_st(_st(self)._class())._new();
- _st(self)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(aBlock)._value_(each);
- if(smalltalk.assert($1)){
- return _st(collection)._add_(each);
- };
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- $2=collection;
- return $2;
- }, function($ctx1) {$ctx1.fill(self,"select:",{aBlock:aBlock,collection:collection},smalltalk.Set)})},
- messageSends: ["new", "class", "do:", "ifTrue:", "add:", "value:"]}),
- smalltalk.Set);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "size",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self["@elements"])._size();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"size",{},smalltalk.Set)})},
- messageSends: ["size"]}),
- smalltalk.Set);
- smalltalk.addClass('Queue', smalltalk.Object, ['read', 'readIndex', 'write'], 'Kernel-Collections');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "initialize",
- fn: function (){
- var self=this;
- function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
- return smalltalk.withContext(function($ctx1) {
- smalltalk.Object.fn.prototype._initialize.apply(_st(self), []);
- self["@read"]=_st($OrderedCollection())._new();
- self["@write"]=_st($OrderedCollection())._new();
- self["@readIndex"]=(1);
- return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.Queue)})},
- messageSends: ["initialize", "new"]}),
- smalltalk.Queue);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "next",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._nextIfAbsent_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self)._error_("Cannot read from empty Queue.");
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"next",{},smalltalk.Queue)})},
- messageSends: ["nextIfAbsent:", "error:"]}),
- smalltalk.Queue);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "nextIfAbsent:",
- fn: function (aBlock){
- var self=this;
- var result;
- function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4;
- var $early={};
- try {
- result=_st(self["@read"])._at_ifAbsent_(self["@readIndex"],(function(){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(self["@write"])._isEmpty();
- if(smalltalk.assert($1)){
- $2=_st(self["@readIndex"]).__gt((1));
- if(smalltalk.assert($2)){
- self["@read"]=[];
- self["@read"];
- self["@readIndex"]=(1);
- self["@readIndex"];
- };
- $3=_st(aBlock)._value();
- throw $early=[$3];
- };
- self["@read"]=self["@write"];
- self["@read"];
- self["@readIndex"]=(1);
- self["@readIndex"];
- self["@write"]=_st($OrderedCollection())._new();
- self["@write"];
- return _st(self["@read"])._first();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- _st(self["@read"])._at_put_(self["@readIndex"],nil);
- self["@readIndex"]=_st(self["@readIndex"]).__plus((1));
- $4=result;
- return $4;
- }
- catch(e) {if(e===$early)return e[0]; throw e}
- }, function($ctx1) {$ctx1.fill(self,"nextIfAbsent:",{aBlock:aBlock,result:result},smalltalk.Queue)})},
- messageSends: ["at:ifAbsent:", "ifTrue:", ">", "value", "isEmpty", "new", "first", "at:put:", "+"]}),
- smalltalk.Queue);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "nextPut:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self["@write"])._add_(anObject);
- return self}, function($ctx1) {$ctx1.fill(self,"nextPut:",{anObject:anObject},smalltalk.Queue)})},
- messageSends: ["add:"]}),
- smalltalk.Queue);
- smalltalk.addClass('RegularExpression', smalltalk.Object, [], 'Kernel-Collections');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "compile:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.compile(aString);
- return self}, function($ctx1) {$ctx1.fill(self,"compile:",{aString:aString},smalltalk.RegularExpression)})},
- messageSends: []}),
- smalltalk.RegularExpression);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "exec:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.exec(aString) || nil;
- return self}, function($ctx1) {$ctx1.fill(self,"exec:",{aString:aString},smalltalk.RegularExpression)})},
- messageSends: []}),
- smalltalk.RegularExpression);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "test:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self.test(aString);
- return self}, function($ctx1) {$ctx1.fill(self,"test:",{aString:aString},smalltalk.RegularExpression)})},
- messageSends: []}),
- smalltalk.RegularExpression);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "fromString:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._fromString_flag_(aString,"");
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"fromString:",{aString:aString},smalltalk.RegularExpression.klass)})},
- messageSends: ["fromString:flag:"]}),
- smalltalk.RegularExpression.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "fromString:flag:",
- fn: function (aString,anotherString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return new RegExp(aString, anotherString);
- return self}, function($ctx1) {$ctx1.fill(self,"fromString:flag:",{aString:aString,anotherString:anotherString},smalltalk.RegularExpression.klass)})},
- messageSends: []}),
- smalltalk.RegularExpression.klass);
- smalltalk.addClass('Stream', smalltalk.Object, ['collection', 'position', 'streamSize'], 'Kernel-Collections');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "<<",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._write_(anObject);
- return self}, function($ctx1) {$ctx1.fill(self,"<<",{anObject:anObject},smalltalk.Stream)})},
- messageSends: ["write:"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "atEnd",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._position()).__eq(_st(self)._size());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"atEnd",{},smalltalk.Stream)})},
- messageSends: ["=", "size", "position"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "atStart",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._position()).__eq((0));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"atStart",{},smalltalk.Stream)})},
- messageSends: ["=", "position"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "close",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self}, function($ctx1) {$ctx1.fill(self,"close",{},smalltalk.Stream)})},
- messageSends: []}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "collection",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self["@collection"];
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"collection",{},smalltalk.Stream)})},
- messageSends: []}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "contents",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._collection())._copyFrom_to_((1),_st(self)._streamSize());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"contents",{},smalltalk.Stream)})},
- messageSends: ["copyFrom:to:", "streamSize", "collection"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "do:",
- fn: function (aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self)._atEnd();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileFalse_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(aBlock)._value_(_st(self)._next());
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"do:",{aBlock:aBlock},smalltalk.Stream)})},
- messageSends: ["whileFalse:", "value:", "next", "atEnd"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "flush",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return self}, function($ctx1) {$ctx1.fill(self,"flush",{},smalltalk.Stream)})},
- messageSends: []}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "isEmpty",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self)._size()).__eq((0));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"isEmpty",{},smalltalk.Stream)})},
- messageSends: ["=", "size"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "next",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $2=_st(self)._atEnd();
- if(smalltalk.assert($2)){
- $1=nil;
- } else {
- _st(self)._position_(_st(_st(self)._position()).__plus((1)));
- $1=_st(self["@collection"])._at_(_st(self)._position());
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"next",{},smalltalk.Stream)})},
- messageSends: ["ifTrue:ifFalse:", "position:", "+", "position", "at:", "atEnd"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "next:",
- fn: function (anInteger){
- var self=this;
- var tempCollection;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- tempCollection=_st(_st(_st(self)._collection())._class())._new();
- _st(anInteger)._timesRepeat_((function(){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(self)._atEnd();
- if(! smalltalk.assert($1)){
- return _st(tempCollection)._add_(_st(self)._next());
- };
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- $2=tempCollection;
- return $2;
- }, function($ctx1) {$ctx1.fill(self,"next:",{anInteger:anInteger,tempCollection:tempCollection},smalltalk.Stream)})},
- messageSends: ["new", "class", "collection", "timesRepeat:", "ifFalse:", "add:", "next", "atEnd"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "nextPut:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._position_(_st(_st(self)._position()).__plus((1)));
- _st(_st(self)._collection())._at_put_(_st(self)._position(),anObject);
- _st(self)._setStreamSize_(_st(_st(self)._streamSize())._max_(_st(self)._position()));
- return self}, function($ctx1) {$ctx1.fill(self,"nextPut:",{anObject:anObject},smalltalk.Stream)})},
- messageSends: ["position:", "+", "position", "at:put:", "collection", "setStreamSize:", "max:", "streamSize"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "nextPutAll:",
- fn: function (aCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(aCollection)._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(self)._nextPut_(each);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"nextPutAll:",{aCollection:aCollection},smalltalk.Stream)})},
- messageSends: ["do:", "nextPut:"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "nextPutString:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._nextPut_(aString);
- return self}, function($ctx1) {$ctx1.fill(self,"nextPutString:",{aString:aString},smalltalk.Stream)})},
- messageSends: ["nextPut:"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "peek",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $2=_st(self)._atEnd();
- if(! smalltalk.assert($2)){
- $1=_st(_st(self)._collection())._at_(_st(_st(self)._position()).__plus((1)));
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"peek",{},smalltalk.Stream)})},
- messageSends: ["ifFalse:", "at:", "+", "position", "collection", "atEnd"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "position",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $2=self["@position"];
- if(($receiver = $2) == nil || $receiver == undefined){
- self["@position"]=(0);
- $1=self["@position"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"position",{},smalltalk.Stream)})},
- messageSends: ["ifNil:"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "position:",
- fn: function (anInteger){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@position"]=anInteger;
- return self}, function($ctx1) {$ctx1.fill(self,"position:",{anInteger:anInteger},smalltalk.Stream)})},
- messageSends: []}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "reset",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._position_((0));
- return self}, function($ctx1) {$ctx1.fill(self,"reset",{},smalltalk.Stream)})},
- messageSends: ["position:"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "resetContents",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._reset();
- _st(self)._setStreamSize_((0));
- return self}, function($ctx1) {$ctx1.fill(self,"resetContents",{},smalltalk.Stream)})},
- messageSends: ["reset", "setStreamSize:"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setCollection:",
- fn: function (aCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@collection"]=aCollection;
- return self}, function($ctx1) {$ctx1.fill(self,"setCollection:",{aCollection:aCollection},smalltalk.Stream)})},
- messageSends: []}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setStreamSize:",
- fn: function (anInteger){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@streamSize"]=anInteger;
- return self}, function($ctx1) {$ctx1.fill(self,"setStreamSize:",{anInteger:anInteger},smalltalk.Stream)})},
- messageSends: []}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setToEnd",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._position_(_st(self)._size());
- return self}, function($ctx1) {$ctx1.fill(self,"setToEnd",{},smalltalk.Stream)})},
- messageSends: ["position:", "size"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "size",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._streamSize();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"size",{},smalltalk.Stream)})},
- messageSends: ["streamSize"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "skip:",
- fn: function (anInteger){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._position_(_st(_st(_st(self)._position()).__plus(anInteger))._min_max_(_st(self)._size(),(0)));
- return self}, function($ctx1) {$ctx1.fill(self,"skip:",{anInteger:anInteger},smalltalk.Stream)})},
- messageSends: ["position:", "min:max:", "size", "+", "position"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "streamSize",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self["@streamSize"];
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"streamSize",{},smalltalk.Stream)})},
- messageSends: []}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "write:",
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(anObject)._putOn_(self);
- return self}, function($ctx1) {$ctx1.fill(self,"write:",{anObject:anObject},smalltalk.Stream)})},
- messageSends: ["putOn:"]}),
- smalltalk.Stream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "on:",
- fn: function (aCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=_st(self)._new();
- _st($2)._setCollection_(aCollection);
- _st($2)._setStreamSize_(_st(aCollection)._size());
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"on:",{aCollection:aCollection},smalltalk.Stream.klass)})},
- messageSends: ["setCollection:", "new", "setStreamSize:", "size", "yourself"]}),
- smalltalk.Stream.klass);
- smalltalk.addClass('StringStream', smalltalk.Stream, [], 'Kernel-Collections');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cr",
- fn: function (){
- var self=this;
- function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._nextPutAll_(_st($String())._cr());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"cr",{},smalltalk.StringStream)})},
- messageSends: ["nextPutAll:", "cr"]}),
- smalltalk.StringStream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "crlf",
- fn: function (){
- var self=this;
- function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._nextPutAll_(_st($String())._crlf());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"crlf",{},smalltalk.StringStream)})},
- messageSends: ["nextPutAll:", "crlf"]}),
- smalltalk.StringStream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "lf",
- fn: function (){
- var self=this;
- function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._nextPutAll_(_st($String())._lf());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"lf",{},smalltalk.StringStream)})},
- messageSends: ["nextPutAll:", "lf"]}),
- smalltalk.StringStream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "next:",
- fn: function (anInteger){
- var self=this;
- var tempCollection;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- tempCollection=_st(_st(_st(self)._collection())._class())._new();
- _st(anInteger)._timesRepeat_((function(){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(self)._atEnd();
- if(! smalltalk.assert($1)){
- tempCollection=_st(tempCollection).__comma(_st(self)._next());
- return tempCollection;
- };
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- $2=tempCollection;
- return $2;
- }, function($ctx1) {$ctx1.fill(self,"next:",{anInteger:anInteger,tempCollection:tempCollection},smalltalk.StringStream)})},
- messageSends: ["new", "class", "collection", "timesRepeat:", "ifFalse:", ",", "next", "atEnd"]}),
- smalltalk.StringStream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "nextPut:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._nextPutAll_(aString);
- return self}, function($ctx1) {$ctx1.fill(self,"nextPut:",{aString:aString},smalltalk.StringStream)})},
- messageSends: ["nextPutAll:"]}),
- smalltalk.StringStream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "nextPutAll:",
- fn: function (aString){
- var self=this;
- var pre,post;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._atEnd();
- if(smalltalk.assert($1)){
- _st(self)._setCollection_(_st(_st(self)._collection()).__comma(aString));
- } else {
- pre=_st(_st(self)._collection())._copyFrom_to_((1),_st(self)._position());
- pre;
- post=_st(_st(self)._collection())._copyFrom_to_(_st(_st(_st(self)._position()).__plus((1))).__plus(_st(aString)._size()),_st(_st(self)._collection())._size());
- post;
- _st(self)._setCollection_(_st(_st(pre).__comma(aString)).__comma(post));
- };
- _st(self)._position_(_st(_st(self)._position()).__plus(_st(aString)._size()));
- _st(self)._setStreamSize_(_st(_st(self)._streamSize())._max_(_st(self)._position()));
- return self}, function($ctx1) {$ctx1.fill(self,"nextPutAll:",{aString:aString,pre:pre,post:post},smalltalk.StringStream)})},
- messageSends: ["ifTrue:ifFalse:", "setCollection:", ",", "collection", "copyFrom:to:", "position", "+", "size", "atEnd", "position:", "setStreamSize:", "max:", "streamSize"]}),
- smalltalk.StringStream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "nextPutString:",
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._nextPutAll_(aString);
- return self}, function($ctx1) {$ctx1.fill(self,"nextPutString:",{aString:aString},smalltalk.StringStream)})},
- messageSends: ["nextPutAll:"]}),
- smalltalk.StringStream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "space",
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self)._nextPut_(" ");
- return self}, function($ctx1) {$ctx1.fill(self,"space",{},smalltalk.StringStream)})},
- messageSends: ["nextPut:"]}),
- smalltalk.StringStream);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tab",
- fn: function (){
- var self=this;
- function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self)._nextPutAll_(_st($String())._tab());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"tab",{},smalltalk.StringStream)})},
- messageSends: ["nextPutAll:", "tab"]}),
- smalltalk.StringStream);
|