123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273 |
- smalltalk.addPackage('Kernel-Collections', {});
- smalltalk.addClass('Collection', smalltalk.Object, [], 'Kernel-Collections');
- smalltalk.addMethod(
- '_size',
- smalltalk.method({
- selector: 'size',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_subclassResponsibility", []);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_readStream',
- smalltalk.method({
- selector: 'readStream',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_stream", []);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_writeStream',
- smalltalk.method({
- selector: 'writeStream',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_stream", []);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_stream',
- smalltalk.method({
- selector: 'stream',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_streamClass", []), "_on_", [self]);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_streamClass',
- smalltalk.method({
- selector: 'streamClass',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_class", []), "_streamClass", []);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_add_',
- smalltalk.method({
- selector: 'add:',
- fn: function (anObject){
- var self=this;
- smalltalk.send(self, "_subclassResponsibility", []);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_addAll_',
- smalltalk.method({
- selector: 'addAll:',
- fn: function (aCollection){
- var self=this;
- smalltalk.send(aCollection, "_do_", [(function(each){return smalltalk.send(self, "_add_", [each]);})]);
- return aCollection;
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '__comma',
- smalltalk.method({
- selector: ',',
- fn: function (aCollection){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_addAll_", [aCollection]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_copy", []));
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_copyWith_',
- smalltalk.method({
- selector: 'copyWith:',
- fn: function (anObject){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_add_", [anObject]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_copy", []));
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_copyWithAll_',
- smalltalk.method({
- selector: 'copyWithAll:',
- fn: function (aCollection){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_addAll_", [aCollection]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_copy", []));
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_asArray',
- smalltalk.method({
- selector: 'asArray',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.Array || Array), "_withAll_", [self]);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_do_',
- smalltalk.method({
- selector: 'do:',
- fn: function (aBlock){
- var self=this;
- for(var i=0;i<self.length;i++){aBlock(self[i]);};
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_collect_',
- smalltalk.method({
- selector: 'collect:',
- fn: function (aBlock){
- var self=this;
- var newCollection=nil;
- (newCollection=smalltalk.send(smalltalk.send(self, "_class", []), "_new", []));
- smalltalk.send(self, "_do_", [(function(each){return smalltalk.send(newCollection, "_add_", [smalltalk.send(aBlock, "_value_", [each])]);})]);
- return newCollection;
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_detect_',
- smalltalk.method({
- selector: 'detect:',
- fn: function (aBlock){
- var self=this;
- return smalltalk.send(self, "_detect_ifNone_", [aBlock, (function(){return smalltalk.send(self, "_errorNotFound", []);})]);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_detect_ifNone_',
- smalltalk.method({
- selector: 'detect:ifNone:',
- fn: function (aBlock, anotherBlock){
- var self=this;
- for(var i = 0; i < self.length; i++)
- if(aBlock(self[i]))
- return self[i];
- return anotherBlock();
- ;
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_do_separatedBy_',
- smalltalk.method({
- selector: 'do:separatedBy:',
- fn: function (aBlock, anotherBlock){
- var self=this;
- var first=nil;
- (first=true);
- smalltalk.send(self, "_do_", [(function(each){((($receiver = first).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (first=false);})() : (function(){return smalltalk.send(anotherBlock, "_value", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return (first=false);}), (function(){return smalltalk.send(anotherBlock, "_value", []);})]));return smalltalk.send(aBlock, "_value_", [each]);})]);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_inject_into_',
- smalltalk.method({
- selector: 'inject:into:',
- fn: function (anObject, aBlock){
- var self=this;
- var result=nil;
- (result=anObject);
- smalltalk.send(self, "_do_", [(function(each){return (result=smalltalk.send(aBlock, "_value_value_", [result, each]));})]);
- return result;
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_reject_',
- smalltalk.method({
- selector: 'reject:',
- fn: function (aBlock){
- var self=this;
- return smalltalk.send(self, "_select_", [(function(each){return smalltalk.send(smalltalk.send(aBlock, "_value_", [each]), "__eq", [false]);})]);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_select_',
- smalltalk.method({
- selector: 'select:',
- fn: function (aBlock){
- var self=this;
- var stream=nil;
- (stream=smalltalk.send(smalltalk.send(smalltalk.send(self, "_class", []), "_new", []), "_writeStream", []));
- smalltalk.send(self, "_do_", [(function(each){return ((($receiver = smalltalk.send(aBlock, "_value_", [each])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(stream, "_nextPut_", [each]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(stream, "_nextPut_", [each]);})]));})]);
- return smalltalk.send(stream, "_contents", []);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_errorNotFound',
- smalltalk.method({
- selector: 'errorNotFound',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_error_", ["Object is not in the collection"]);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_includes_',
- smalltalk.method({
- selector: 'includes:',
- fn: function (anObject){
- var self=this;
- var i = self.length;
- while (i--) {
- if (smalltalk.send(self[i], "__eq", [anObject])) {return true;}
- }
- return false
- ;
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_notEmpty',
- smalltalk.method({
- selector: 'notEmpty',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_isEmpty", []), "_not", []);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_isEmpty',
- smalltalk.method({
- selector: 'isEmpty',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_size", []), "__eq", [(0)]);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_remove_',
- smalltalk.method({
- selector: 'remove:',
- fn: function (anObject){
- var self=this;
- return smalltalk.send(self, "_remove_ifAbsent_", [anObject, (function(){return smalltalk.send(self, "_errorNotFound", []);})]);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_asSet',
- smalltalk.method({
- selector: 'asSet',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.Set || Set), "_withAll_", [self]);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_ifNotEmpty_',
- smalltalk.method({
- selector: 'ifNotEmpty:',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_notEmpty", []), "_ifTrue_", [aBlock]);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_ifEmpty_',
- smalltalk.method({
- selector: 'ifEmpty:',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_isEmpty", []), "_ifTrue_", [aBlock]);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_copyWithoutAll_',
- smalltalk.method({
- selector: 'copyWithoutAll:',
- fn: function (aCollection){
- var self=this;
- return smalltalk.send(self, "_reject_", [(function(each){return smalltalk.send(aCollection, "_includes_", [each]);})]);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_remove_ifAbsent_',
- smalltalk.method({
- selector: 'remove:ifAbsent:',
- fn: function (anObject, aBlock){
- var self=this;
- smalltalk.send(self, "_subclassResponsibility", []);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_asJSONString',
- smalltalk.method({
- selector: 'asJSONString',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.JSON || JSON), "_stringify_", [smalltalk.send(self, "_collect_", [(function(each){return smalltalk.send(each, "_asJSONString", []);})])]);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_asOrderedCollection',
- smalltalk.method({
- selector: 'asOrderedCollection',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.OrderedCollection || OrderedCollection), "_withAll_", [self]);
- return self;}
- }),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_streamClass',
- smalltalk.method({
- selector: 'streamClass',
- fn: function (){
- var self=this;
- return (smalltalk.Stream || Stream);
- return self;}
- }),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- '_with_',
- smalltalk.method({
- selector: 'with:',
- fn: function (anObject){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_add_", [anObject]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;}
- }),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- '_with_with_',
- smalltalk.method({
- selector: 'with:with:',
- fn: function (anObject, anotherObject){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_add_", [anObject]);smalltalk.send($rec, "_add_", [anotherObject]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;}
- }),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- '_with_with_with_',
- smalltalk.method({
- selector: 'with:with:with:',
- fn: function (firstObject, secondObject, thirdObject){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_add_", [firstObject]);smalltalk.send($rec, "_add_", [secondObject]);smalltalk.send($rec, "_add_", [thirdObject]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;}
- }),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- '_withAll_',
- smalltalk.method({
- selector: 'withAll:',
- fn: function (aCollection){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_addAll_", [aCollection]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;}
- }),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- '_new_',
- smalltalk.method({
- selector: 'new:',
- fn: function (anInteger){
- var self=this;
- return smalltalk.send(self, "_new", []);
- return self;}
- }),
- smalltalk.Collection.klass);
- smalltalk.addClass('SequenceableCollection', smalltalk.Collection, [], 'Kernel-Collections');
- smalltalk.addMethod(
- '_at_',
- smalltalk.method({
- selector: 'at:',
- fn: function (anIndex){
- var self=this;
- return smalltalk.send(self, "_at_ifAbsent_", [anIndex, (function(){return smalltalk.send(self, "_errorNotFound", []);})]);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_at_ifAbsent_',
- smalltalk.method({
- selector: 'at:ifAbsent:',
- fn: function (anIndex, aBlock){
- var self=this;
- smalltalk.send(self, "_subclassResponsibility", []);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_at_put_',
- smalltalk.method({
- selector: 'at:put:',
- fn: function (anIndex, anObject){
- var self=this;
- smalltalk.send(self, "_subclassResponsibility", []);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_copyFrom_to_',
- smalltalk.method({
- selector: 'copyFrom:to:',
- fn: function (anIndex, anotherIndex){
- var self=this;
- var range=nil;
- var newCollection=nil;
- (range=smalltalk.send(anIndex, "_to_", [anotherIndex]));
- (newCollection=smalltalk.send(smalltalk.send(self, "_class", []), "_new_", [smalltalk.send(range, "_size", [])]));
- smalltalk.send(range, "_do_", [(function(each){return smalltalk.send(newCollection, "_at_put_", [each, smalltalk.send(self, "_at_", [each])]);})]);
- return newCollection;
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_first',
- smalltalk.method({
- selector: 'first',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_at_", [(1)]);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_fourth',
- smalltalk.method({
- selector: 'fourth',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_at_", [(4)]);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_last',
- smalltalk.method({
- selector: 'last',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_at_", [smalltalk.send(self, "_size", [])]);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_second',
- smalltalk.method({
- selector: 'second',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_at_", [(2)]);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_third',
- smalltalk.method({
- selector: 'third',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_at_", [(3)]);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_removeLast',
- smalltalk.method({
- selector: 'removeLast',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_remove_", [smalltalk.send(self, "_last", [])]);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_addLast_',
- smalltalk.method({
- selector: 'addLast:',
- fn: function (anObject){
- var self=this;
- smalltalk.send(self, "_add_", [anObject]);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_withIndexDo_',
- smalltalk.method({
- selector: 'withIndexDo:',
- fn: function (aBlock){
- var self=this;
- for(var i=0;i<self.length;i++){aBlock(self[i], i+1);};
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_allButFirst',
- smalltalk.method({
- selector: 'allButFirst',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_copyFrom_to_", [(2), smalltalk.send(self, "_size", [])]);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_allButLast',
- smalltalk.method({
- selector: 'allButLast',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_copyFrom_to_", [(1), ((($receiver = smalltalk.send(self, "_size", [])).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)]))]);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_indexOf_',
- smalltalk.method({
- selector: 'indexOf:',
- fn: function (anObject){
- var self=this;
- return smalltalk.send(self, "_indexOf_ifAbsent_", [anObject, (function(){return smalltalk.send(self, "_errorNotFound", []);})]);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_indexOf_ifAbsent_',
- smalltalk.method({
- selector: 'indexOf:ifAbsent:',
- fn: function (anObject, aBlock){
- var self=this;
- for(var i=0;i<self.length;i++){
- if(self[i].__eq(anObject)) {return i+1}
- }
- return aBlock();
- ;
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_indexOf_startingAt_ifAbsent_',
- smalltalk.method({
- selector: 'indexOf:startingAt:ifAbsent:',
- fn: function (anObject, start, aBlock){
- var self=this;
- for(var i=start-1;i<self.length;i++){
- if(self[i].__eq(anObject)) {return i+1}
- }
- return aBlock();
- ;
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_indexOf_startingAt_',
- smalltalk.method({
- selector: 'indexOf:startingAt:',
- fn: function (anObject, start){
- var self=this;
- return smalltalk.send(self, "_indexOf_startingAt_ifAbsent_", [anObject, start, (function(){return (0);})]);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_reversed',
- smalltalk.method({
- selector: 'reversed',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_subclassResponsibility", []);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_atRandom',
- smalltalk.method({
- selector: 'atRandom',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_at_", [smalltalk.send(smalltalk.send(self, "_size", []), "_atRandom", [])]);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '__eq',
- smalltalk.method({
- selector: '=',
- fn: function (aCollection){
- var self=this;
- try{((($receiver = smalltalk.send(smalltalk.send(smalltalk.send(self, "_class", []), "__eq", [smalltalk.send(aCollection, "_class", [])]), "_and_", [(function(){return smalltalk.send(smalltalk.send(self, "_size", []), "__eq", [smalltalk.send(aCollection, "_size", [])]);})])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]));
- smalltalk.send(self, "_withIndexDo_", [(function(each, i){return ((($receiver = smalltalk.send(smalltalk.send(aCollection, "_at_", [i]), "__eq", [each])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]));})]);
- (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return true}})})();
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '__eq'){return e.fn()} throw(e)}}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_shallowCopy',
- smalltalk.method({
- selector: 'shallowCopy',
- fn: function (){
- var self=this;
- var newCollection=nil;
- (newCollection=smalltalk.send(smalltalk.send(self, "_class", []), "_new_", [smalltalk.send(self, "_size", [])]));
- smalltalk.send(self, "_withIndexDo_", [(function(each, index){return smalltalk.send(newCollection, "_at_put_", [index, each]);})]);
- return newCollection;
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_deepCopy',
- smalltalk.method({
- selector: 'deepCopy',
- fn: function (){
- var self=this;
- var newCollection=nil;
- (newCollection=smalltalk.send(smalltalk.send(self, "_class", []), "_new_", [smalltalk.send(self, "_size", [])]));
- smalltalk.send(self, "_withIndexDo_", [(function(each, index){return smalltalk.send(newCollection, "_at_put_", [index, smalltalk.send(each, "_deepCopy", [])]);})]);
- return newCollection;
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addMethod(
- '_printString',
- smalltalk.method({
- selector: 'printString',
- fn: function (){
- var self=this;
- var str=nil;
- (str=smalltalk.send("", "_writeStream", []));
- smalltalk.send(str, "_nextPutAll_", [smalltalk.send(smalltalk.send(self, "_printString", [], smalltalk.Collection), "__comma", [unescape("%20%28")])]);
- smalltalk.send(self, "_do_separatedBy_", [(function(each){return smalltalk.send(str, "_nextPutAll_", [smalltalk.send(each, "_printString", [])]);}), (function(){return smalltalk.send(str, "_nextPutAll_", [" "]);})]);
- smalltalk.send(str, "_nextPutAll_", [unescape("%29")]);
- return smalltalk.send(str, "_contents", []);
- return self;}
- }),
- smalltalk.SequenceableCollection);
- smalltalk.addClass('CharacterArray', smalltalk.SequenceableCollection, [], 'Kernel-Collections');
- smalltalk.addMethod(
- '_at_put_',
- smalltalk.method({
- selector: 'at:put:',
- fn: function (anIndex, anObject){
- var self=this;
- smalltalk.send(self, "_errorReadOnly", []);
- return self;}
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- '_add_',
- smalltalk.method({
- selector: 'add:',
- fn: function (anObject){
- var self=this;
- smalltalk.send(self, "_errorReadOnly", []);
- return self;}
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- '__comma',
- smalltalk.method({
- selector: ',',
- fn: function (aString){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asString", []), "__comma", [smalltalk.send(aString, "_asString", [])]);
- return self;}
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- '_asString',
- smalltalk.method({
- selector: 'asString',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_subclassResponsibility", []);
- return self;}
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- '_asNumber',
- smalltalk.method({
- selector: 'asNumber',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asString", []), "_asNumber", []);
- return self;}
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- '_errorReadOnly',
- smalltalk.method({
- selector: 'errorReadOnly',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_error_", [unescape("Object%20is%20read-only")]);
- return self;}
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- '_printString',
- smalltalk.method({
- selector: 'printString',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asString", []), "_printString", []);
- return self;}
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- '_remove_',
- smalltalk.method({
- selector: 'remove:',
- fn: function (anObject){
- var self=this;
- smalltalk.send(self, "_errorReadOnly", []);
- return self;}
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- '_asUppercase',
- smalltalk.method({
- selector: 'asUppercase',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_class", []), "_fromString_", [smalltalk.send(smalltalk.send(self, "_asString", []), "_asUppercase", [])]);
- return self;}
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- '_asSymbol',
- smalltalk.method({
- selector: 'asSymbol',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_subclassResponsibility", []);
- return self;}
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- '_asLowercase',
- smalltalk.method({
- selector: 'asLowercase',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_class", []), "_fromString_", [smalltalk.send(smalltalk.send(self, "_asString", []), "_asLowercase", [])]);
- return self;}
- }),
- smalltalk.CharacterArray);
- smalltalk.addMethod(
- '_fromString_',
- smalltalk.method({
- selector: 'fromString:',
- fn: function (aString){
- var self=this;
- smalltalk.send(self, "_subclassResponsibility", []);
- return self;}
- }),
- smalltalk.CharacterArray.klass);
- smalltalk.addClass('String', smalltalk.CharacterArray, [], 'Kernel-Collections');
- smalltalk.addMethod(
- '__eq',
- smalltalk.method({
- selector: '=',
- fn: function (aString){
- var self=this;
- try{((($receiver = smalltalk.send(smalltalk.send(aString, "_class", []), "__eq", [smalltalk.send(self, "_class", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]));
- return String(self) === String(aString);
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '__eq'){return e.fn()} throw(e)}}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_size',
- smalltalk.method({
- selector: 'size',
- fn: function (){
- var self=this;
- return self.length;
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_at_ifAbsent_',
- smalltalk.method({
- selector: 'at:ifAbsent:',
- fn: function (anIndex, aBlock){
- var self=this;
- return self[anIndex - 1] || aBlock();
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_escaped',
- smalltalk.method({
- selector: 'escaped',
- fn: function (){
- var self=this;
- return escape(self);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_unescaped',
- smalltalk.method({
- selector: 'unescaped',
- fn: function (){
- var self=this;
- return unescape(self);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '__comma',
- smalltalk.method({
- selector: ',',
- fn: function (aString){
- var self=this;
- return self + aString;
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_copyFrom_to_',
- smalltalk.method({
- selector: 'copyFrom:to:',
- fn: function (anIndex, anotherIndex){
- var self=this;
- return self.substring(anIndex - 1, anotherIndex);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_shallowCopy',
- smalltalk.method({
- selector: 'shallowCopy',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_class", []), "_fromString_", [self]);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_deepCopy',
- smalltalk.method({
- selector: 'deepCopy',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_shallowCopy", []);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_asSelector',
- smalltalk.method({
- selector: 'asSelector',
- fn: function (){
- var self=this;
- var selector=nil;
- (selector=smalltalk.send("_", "__comma", [self]));
- (selector=smalltalk.send(selector, "_replace_with_", [":", "_"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%5B+%5D"), "_plus"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("-"), "_minus"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%5B*%5D"), "_star"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%5B/%5D"), "_slash"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%3E"), "_gt"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%3C"), "_lt"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%3D"), "_eq"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%2C"), "_comma"]));
- (selector=smalltalk.send(selector, "_replace_with_", [unescape("%5B@%5D"), "_at"]));
- return selector;
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_asJavascript',
- smalltalk.method({
- selector: 'asJavascript',
- fn: function (){
- var self=this;
- if(self.search(/^[a-zA-Z0-9_:.$ ]*$/) == -1)
- return "unescape(\"" + escape(self) + "\")";
- else
- return "\"" + self + "\"";
- ;
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_replace_with_',
- smalltalk.method({
- selector: 'replace:with:',
- fn: function (aString, anotherString){
- var self=this;
- return smalltalk.send(self, "_replaceRegexp_with_", [smalltalk.send((smalltalk.RegularExpression || RegularExpression), "_fromString_flag_", [aString, "g"]), anotherString]);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_replaceRegexp_with_',
- smalltalk.method({
- selector: 'replaceRegexp:with:',
- fn: function (aRegexp, aString){
- var self=this;
- return self.replace(aRegexp, aString);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_tokenize_',
- smalltalk.method({
- selector: 'tokenize:',
- fn: function (aString){
- var self=this;
- return self.split(aString);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_match_',
- smalltalk.method({
- selector: 'match:',
- fn: function (aRegexp){
- var self=this;
- return self.search(aRegexp) != -1;
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_asString',
- smalltalk.method({
- selector: 'asString',
- fn: function (){
- var self=this;
- return self;
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_asNumber',
- smalltalk.method({
- selector: 'asNumber',
- fn: function (){
- var self=this;
- return Number(self);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_printString',
- smalltalk.method({
- selector: 'printString',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [self]), "__comma", [unescape("%27")]);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_printNl',
- smalltalk.method({
- selector: 'printNl',
- fn: function (){
- var self=this;
- console.log(self);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_isString',
- smalltalk.method({
- selector: 'isString',
- fn: function (){
- var self=this;
- return true;
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '__gt',
- smalltalk.method({
- selector: '>',
- fn: function (aString){
- var self=this;
- return String(self) > aString._asString();
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '__lt',
- smalltalk.method({
- selector: '<',
- fn: function (aString){
- var self=this;
- return String(self) < aString._asString();
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '__gt_eq',
- smalltalk.method({
- selector: '>=',
- fn: function (aString){
- var self=this;
- return String(self) >= aString._asString();
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '__lt_eq',
- smalltalk.method({
- selector: '<=',
- fn: function (aString){
- var self=this;
- return String(self) <= aString._asString();
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_trimLeft_',
- smalltalk.method({
- selector: 'trimLeft:',
- fn: function (separators){
- var self=this;
- return smalltalk.send(self, "_replaceRegexp_with_", [smalltalk.send((smalltalk.RegularExpression || RegularExpression), "_fromString_flag_", [smalltalk.send(smalltalk.send(unescape("%5E%5B"), "__comma", [separators]), "__comma", [unescape("%5D+")]), "g"]), ""]);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_trimRight_',
- smalltalk.method({
- selector: 'trimRight:',
- fn: function (separators){
- var self=this;
- return smalltalk.send(self, "_replaceRegexp_with_", [smalltalk.send((smalltalk.RegularExpression || RegularExpression), "_fromString_flag_", [smalltalk.send(smalltalk.send(unescape("%5B"), "__comma", [separators]), "__comma", [unescape("%5D+%24")]), "g"]), ""]);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_trimLeft',
- smalltalk.method({
- selector: 'trimLeft',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_trimLeft_", [unescape("%5Cs")]);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_trimRight',
- smalltalk.method({
- selector: 'trimRight',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_trimRight_", [unescape("%5Cs")]);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_trimBoth',
- smalltalk.method({
- selector: 'trimBoth',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_trimBoth_", [unescape("%5Cs")]);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_trimBoth_',
- smalltalk.method({
- selector: 'trimBoth:',
- fn: function (separators){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_trimLeft_", [separators]), "_trimRight_", [separators]);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_asLowercase',
- smalltalk.method({
- selector: 'asLowercase',
- fn: function (){
- var self=this;
- return self.toLowerCase();
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_asUppercase',
- smalltalk.method({
- selector: 'asUppercase',
- fn: function (){
- var self=this;
- return self.toUpperCase();
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_join_',
- smalltalk.method({
- selector: 'join:',
- fn: function (aCollection){
- var self=this;
- return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(stream){return smalltalk.send(aCollection, "_do_separatedBy_", [(function(each){return smalltalk.send(stream, "_nextPutAll_", [smalltalk.send(each, "_asString", [])]);}), (function(){return smalltalk.send(stream, "_nextPutAll_", [self]);})]);})]);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_includesSubString_',
- smalltalk.method({
- selector: 'includesSubString:',
- fn: function (subString){
- var self=this;
- return self.indexOf(subString) != -1 ;
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_asciiValue',
- smalltalk.method({
- selector: 'asciiValue',
- fn: function (){
- var self=this;
- return self.charCodeAt(0);;
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_lineIndicesDo_',
- smalltalk.method({
- selector: 'lineIndicesDo:',
- fn: function (aBlock){
- var self=this;
- try{var cr=nil;
- var lf=nil;
- var start=nil;
- var sz=nil;
- var nextLF=nil;
- var nextCR=nil;
- (start=(1));
- (sz=smalltalk.send(self, "_size", []));
- (cr=smalltalk.send((smalltalk.String || String), "_cr", []));
- (nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, (1)]));
- (lf=smalltalk.send((smalltalk.String || String), "_lf", []));
- (nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, (1)]));
- (function(){while((function(){return ((($receiver = start).klass === smalltalk.Number) ? $receiver <=sz : smalltalk.send($receiver, "__lt_eq", [sz]));})()) {(function(){((($receiver = smalltalk.send(smalltalk.send(nextLF, "__eq", [(0)]), "_and_", [(function(){return smalltalk.send(nextCR, "__eq", [(0)]);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(aBlock, "_value_value_value_", [start, sz, sz]);return (function(){throw({name: 'stReturn', selector: '_lineIndicesDo_', fn: function(){return self}})})();})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(aBlock, "_value_value_value_", [start, sz, sz]);return (function(){throw({name: 'stReturn', selector: '_lineIndicesDo_', fn: function(){return self}})})();})]));return ((($receiver = smalltalk.send(smalltalk.send(nextCR, "__eq", [(0)]), "_or_", [(function(){return smalltalk.send((0) < nextLF, "_and_", [(function(){return ((($receiver = nextLF).klass === smalltalk.Number) ? $receiver <nextCR : smalltalk.send($receiver, "__lt", [nextCR]));})]);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextLF).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextLF]);(start=(1) + nextLF);return (nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, start]));})() : (function(){return ((($receiver = smalltalk.send((1) + nextCR, "__eq", [nextLF])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextLF]);(start=(1) + nextLF);(nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));return (nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, start]));})() : (function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextCR]);(start=(1) + nextCR);return (nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextLF]);(start=(1) + nextLF);(nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));return (nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, start]));}), (function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextCR]);(start=(1) + nextCR);return (nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));})]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextLF).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextLF]);(start=(1) + nextLF);return (nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, start]));}), (function(){return ((($receiver = smalltalk.send((1) + nextCR, "__eq", [nextLF])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextLF]);(start=(1) + nextLF);(nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));return (nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, start]));})() : (function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextCR]);(start=(1) + nextCR);return (nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextLF]);(start=(1) + nextLF);(nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));return (nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, start]));}), (function(){smalltalk.send(aBlock, "_value_value_value_", [start, ((($receiver = nextCR).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])), nextCR]);(start=(1) + nextCR);return (nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, start]));})]));})]));})()}})();
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '_lineIndicesDo_'){return e.fn()} throw(e)}}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_linesDo_',
- smalltalk.method({
- selector: 'linesDo:',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(self, "_lineIndicesDo_", [(function(start, endWithoutDelimiters, end){return smalltalk.send(aBlock, "_value_", [smalltalk.send(self, "_copyFrom_to_", [start, endWithoutDelimiters])]);})]);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_lines',
- smalltalk.method({
- selector: 'lines',
- fn: function (){
- var self=this;
- var lines=nil;
- (lines=smalltalk.send((smalltalk.Array || Array), "_new", []));
- smalltalk.send(self, "_linesDo_", [(function(aLine){return smalltalk.send(lines, "_add_", [aLine]);})]);
- return lines;
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_lineNumber_',
- smalltalk.method({
- selector: 'lineNumber:',
- fn: function (anIndex){
- var self=this;
- try{var lineCount=nil;
- (lineCount=(0));
- smalltalk.send(self, "_lineIndicesDo_", [(function(start, endWithoutDelimiters, end){return ((($receiver = smalltalk.send((lineCount=((($receiver = lineCount).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]))), "__eq", [anIndex])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '_lineNumber_', fn: function(){return smalltalk.send(self, "_copyFrom_to_", [start, endWithoutDelimiters])}})})();})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return (function(){throw({name: 'stReturn', selector: '_lineNumber_', fn: function(){return smalltalk.send(self, "_copyFrom_to_", [start, endWithoutDelimiters])}})})();})]));})]);
- (function(){throw({name: 'stReturn', selector: '_lineNumber_', fn: function(){return nil}})})();
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '_lineNumber_'){return e.fn()} throw(e)}}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_reversed',
- smalltalk.method({
- selector: 'reversed',
- fn: function (){
- var self=this;
- return self.split("").reverse().join("");
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_asJavaScriptSelector',
- smalltalk.method({
- selector: 'asJavaScriptSelector',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(smalltalk.send(self, "_asSelector", []), "_replace_with_", [unescape("%5E_"), ""]), "_replace_with_", [unescape("_.*"), ""]);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_asJSONString',
- smalltalk.method({
- selector: 'asJSONString',
- fn: function (){
- var self=this;
- return self;
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_asSymbol',
- smalltalk.method({
- selector: 'asSymbol',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.Symbol || Symbol), "_lookup_", [self]);
- return self;}
- }),
- smalltalk.String);
- smalltalk.addMethod(
- '_streamClass',
- smalltalk.method({
- selector: 'streamClass',
- fn: function (){
- var self=this;
- return (smalltalk.StringStream || StringStream);
- return self;}
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- '_fromString_',
- smalltalk.method({
- selector: 'fromString:',
- fn: function (aString){
- var self=this;
- return new self.fn(aString);
- return self;}
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- '_cr',
- smalltalk.method({
- selector: 'cr',
- fn: function (){
- var self=this;
- return '\r';
- return self;}
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- '_lf',
- smalltalk.method({
- selector: 'lf',
- fn: function (){
- var self=this;
- return '\n';
- return self;}
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- '_space',
- smalltalk.method({
- selector: 'space',
- fn: function (){
- var self=this;
- return ' ';
- return self;}
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- '_tab',
- smalltalk.method({
- selector: 'tab',
- fn: function (){
- var self=this;
- return '\t';
- return self;}
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- '_crlf',
- smalltalk.method({
- selector: 'crlf',
- fn: function (){
- var self=this;
- return '\r\n';
- return self;}
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- '_streamContents_',
- smalltalk.method({
- selector: 'streamContents:',
- fn: function (blockWithArg){
- var self=this;
- var stream=nil;
- (stream=smalltalk.send(smalltalk.send(self, "_streamClass", []), "_on_", [smalltalk.send((smalltalk.String || String), "_new", [])]));
- smalltalk.send(blockWithArg, "_value_", [stream]);
- return smalltalk.send(stream, "_contents", []);
- return self;}
- }),
- smalltalk.String.klass);
- smalltalk.addMethod(
- '_value_',
- smalltalk.method({
- selector: 'value:',
- fn: function (aUTFCharCode){
- var self=this;
- return String.fromCharCode(aUTFCharCode);;
- return self;}
- }),
- smalltalk.String.klass);
- smalltalk.addClass('Symbol', smalltalk.CharacterArray, [], 'Kernel-Collections');
- smalltalk.addMethod(
- '_at_ifAbsent_',
- smalltalk.method({
- selector: 'at:ifAbsent:',
- fn: function (anIndex, aBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asString", []), "_at_ifAbsent_", [anIndex, aBlock]);
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '_asString',
- smalltalk.method({
- selector: 'asString',
- fn: function (){
- var self=this;
- return self.value;
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '_printString',
- smalltalk.method({
- selector: 'printString',
- fn: function (){
- var self=this;
- return smalltalk.send(unescape("%23"), "__comma", [smalltalk.send(self, "_asString", [])]);
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '_size',
- smalltalk.method({
- selector: 'size',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asString", []), "_size", []);
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '_asSymbol',
- smalltalk.method({
- selector: 'asSymbol',
- fn: function (){
- var self=this;
- return self;
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '_copyFrom_to_',
- smalltalk.method({
- selector: 'copyFrom:to:',
- fn: function (anIndex, anotherIndex){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_class", []), "_fromString_", [smalltalk.send(smalltalk.send(self, "_asString", []), "_copyFrom_to_", [anIndex, anotherIndex])]);
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '_deepCopy',
- smalltalk.method({
- selector: 'deepCopy',
- fn: function (){
- var self=this;
- return self;
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '__lt',
- smalltalk.method({
- selector: '<',
- fn: function (aSymbol){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_asString", [])).klass === smalltalk.Number) ? $receiver <smalltalk.send(aSymbol, "_asString", []) : smalltalk.send($receiver, "__lt", [smalltalk.send(aSymbol, "_asString", [])]));
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '__lt_eq',
- smalltalk.method({
- selector: '<=',
- fn: function (aSymbol){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_asString", [])).klass === smalltalk.Number) ? $receiver <=smalltalk.send(aSymbol, "_asString", []) : smalltalk.send($receiver, "__lt_eq", [smalltalk.send(aSymbol, "_asString", [])]));
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '__gt_eq',
- smalltalk.method({
- selector: '>=',
- fn: function (aSymbol){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_asString", [])).klass === smalltalk.Number) ? $receiver >=smalltalk.send(aSymbol, "_asString", []) : smalltalk.send($receiver, "__gt_eq", [smalltalk.send(aSymbol, "_asString", [])]));
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '__eq',
- smalltalk.method({
- selector: '=',
- fn: function (aSymbol){
- var self=this;
- try{((($receiver = smalltalk.send(smalltalk.send(aSymbol, "_class", []), "__eq", [smalltalk.send(self, "_class", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]));
- (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return smalltalk.send(smalltalk.send(self, "_asString", []), "__eq", [smalltalk.send(aSymbol, "_asString", [])])}})})();
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '__eq'){return e.fn()} throw(e)}}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '_isSymbol',
- smalltalk.method({
- selector: 'isSymbol',
- fn: function (){
- var self=this;
- return true;
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '_asJavascript',
- smalltalk.method({
- selector: 'asJavascript',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(unescape("smalltalk.symbolFor%28%22"), "__comma", [smalltalk.send(self, "_asString", [])]), "__comma", [unescape("%22%29")]);
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '__gt',
- smalltalk.method({
- selector: '>',
- fn: function (aSymbol){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_asString", [])).klass === smalltalk.Number) ? $receiver >smalltalk.send(aSymbol, "_asString", []) : smalltalk.send($receiver, "__gt", [smalltalk.send(aSymbol, "_asString", [])]));
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '_shallowCopy',
- smalltalk.method({
- selector: 'shallowCopy',
- fn: function (){
- var self=this;
- return self;
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '_asSelector',
- smalltalk.method({
- selector: 'asSelector',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asString", []), "_asSelector", []);
- return self;}
- }),
- smalltalk.Symbol);
- smalltalk.addMethod(
- '_lookup_',
- smalltalk.method({
- selector: 'lookup:',
- fn: function (aString){
- var self=this;
- return smalltalk.symbolFor(aString);;
- return self;}
- }),
- smalltalk.Symbol.klass);
- smalltalk.addMethod(
- '_basicNew',
- smalltalk.method({
- selector: 'basicNew',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_shouldNotImplement", []);
- return self;}
- }),
- smalltalk.Symbol.klass);
- smalltalk.addMethod(
- '_fromString_',
- smalltalk.method({
- selector: 'fromString:',
- fn: function (aString){
- var self=this;
- return smalltalk.send(self, "_lookup_", [aString]);
- return self;}
- }),
- smalltalk.Symbol.klass);
- smalltalk.addClass('Array', smalltalk.SequenceableCollection, [], 'Kernel-Collections');
- smalltalk.addMethod(
- '_size',
- smalltalk.method({
- selector: 'size',
- fn: function (){
- var self=this;
- return self.length;
- return self;}
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- '_at_put_',
- smalltalk.method({
- selector: 'at:put:',
- fn: function (anIndex, anObject){
- var self=this;
- return self[anIndex - 1] = anObject;
- return self;}
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- '_at_ifAbsent_',
- smalltalk.method({
- selector: 'at:ifAbsent:',
- fn: function (anIndex, aBlock){
- var self=this;
- var value = self[anIndex - 1];
- if(value === undefined) {
- return aBlock();
- } else {
- return value;
- }
- ;
- return self;}
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- '_add_',
- smalltalk.method({
- selector: 'add:',
- fn: function (anObject){
- var self=this;
- self.push(anObject); return anObject;;
- return self;}
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- '_join_',
- smalltalk.method({
- selector: 'join:',
- fn: function (aString){
- var self=this;
- return self.join(aString);
- return self;}
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- '_asJavascript',
- smalltalk.method({
- selector: 'asJavascript',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(unescape("%5B"), "__comma", [smalltalk.send(smalltalk.send(self, "_collect_", [(function(each){return smalltalk.send(each, "_asJavascript", []);})]), "_join_", [unescape("%2C%20")])]), "__comma", [unescape("%5D")]);
- return self;}
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- '_sort',
- smalltalk.method({
- selector: 'sort',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_basicPerform_", ["sort"]);
- return self;}
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- '_sort_',
- smalltalk.method({
- selector: 'sort:',
- fn: function (aBlock){
- var self=this;
- return self.sort(function(a, b) {
- if(aBlock(a,b)) {return -1} else {return 1}
- })
- ;
- return self;}
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- '_remove_',
- smalltalk.method({
- selector: 'remove:',
- fn: function (anObject){
- var self=this;
- for(var i=0;i<self.length;i++) {
- if(self[i] == anObject) {
- self.splice(i,1);
- break;
- }
- }
- ;
- return self;}
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- '_sorted',
- smalltalk.method({
- selector: 'sorted',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_copy", []), "_sort", []);
- return self;}
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- '_sorted_',
- smalltalk.method({
- selector: 'sorted:',
- fn: function (aBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_copy", []), "_sort_", [aBlock]);
- return self;}
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- '_removeFrom_to_',
- smalltalk.method({
- selector: 'removeFrom:to:',
- fn: function (aNumber, anotherNumber){
- var self=this;
- self.splice(aNumber - 1,anotherNumber - 1);
- return self;}
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- '_reversed',
- smalltalk.method({
- selector: 'reversed',
- fn: function (){
- var self=this;
- return self._copy().reverse();
- return self;}
- }),
- smalltalk.Array);
- smalltalk.addMethod(
- '_new_',
- smalltalk.method({
- selector: 'new:',
- fn: function (anInteger){
- var self=this;
- return new Array(anInteger);
- return self;}
- }),
- smalltalk.Array.klass);
- smalltalk.addMethod(
- '_with_',
- smalltalk.method({
- selector: 'with:',
- fn: function (anObject){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_at_put_", [(1), anObject]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new_", [(1)]));
- return self;}
- }),
- smalltalk.Array.klass);
- smalltalk.addMethod(
- '_with_with_',
- smalltalk.method({
- selector: 'with:with:',
- fn: function (anObject, anObject2){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_at_put_", [(1), anObject]);smalltalk.send($rec, "_at_put_", [(2), anObject2]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new_", [(2)]));
- return self;}
- }),
- smalltalk.Array.klass);
- smalltalk.addMethod(
- '_with_with_with_',
- smalltalk.method({
- selector: 'with:with:with:',
- fn: function (anObject, anObject2, anObject3){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_at_put_", [(1), anObject]);smalltalk.send($rec, "_at_put_", [(2), anObject2]);smalltalk.send($rec, "_at_put_", [(3), anObject3]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new_", [(3)]));
- return self;}
- }),
- smalltalk.Array.klass);
- smalltalk.addMethod(
- '_withAll_',
- smalltalk.method({
- selector: 'withAll:',
- fn: function (aCollection){
- var self=this;
- var instance=nil;
- (instance=smalltalk.send(self, "_new_", [smalltalk.send(aCollection, "_size", [])]));
- smalltalk.send(aCollection, "_withIndexDo_", [(function(index, each){return smalltalk.send(instance, "_at_put_", [index, each]);})]);
- return instance;
- return self;}
- }),
- smalltalk.Array.klass);
- smalltalk.addClass('RegularExpression', smalltalk.Object, [], 'Kernel-Collections');
- smalltalk.addMethod(
- '_compile_',
- smalltalk.method({
- selector: 'compile:',
- fn: function (aString){
- var self=this;
- return self.compile(aString);
- return self;}
- }),
- smalltalk.RegularExpression);
- smalltalk.addMethod(
- '_exec_',
- smalltalk.method({
- selector: 'exec:',
- fn: function (aString){
- var self=this;
- return self.exec(aString) || nil;
- return self;}
- }),
- smalltalk.RegularExpression);
- smalltalk.addMethod(
- '_test_',
- smalltalk.method({
- selector: 'test:',
- fn: function (aString){
- var self=this;
- return self.test(aString);
- return self;}
- }),
- smalltalk.RegularExpression);
- smalltalk.addMethod(
- '_fromString_flag_',
- smalltalk.method({
- selector: 'fromString:flag:',
- fn: function (aString, anotherString){
- var self=this;
- return new RegExp(aString, anotherString);
- return self;}
- }),
- smalltalk.RegularExpression.klass);
- smalltalk.addMethod(
- '_fromString_',
- smalltalk.method({
- selector: 'fromString:',
- fn: function (aString){
- var self=this;
- return smalltalk.send(self, "_fromString_flag_", [aString, ""]);
- return self;}
- }),
- smalltalk.RegularExpression.klass);
- smalltalk.addClass('Association', smalltalk.Object, ['key', 'value'], 'Kernel-Collections');
- smalltalk.addMethod(
- '__eq',
- smalltalk.method({
- selector: '=',
- fn: function (anAssociation){
- var self=this;
- return smalltalk.send(smalltalk.send(smalltalk.send(self, "_class", []), "__eq", [smalltalk.send(anAssociation, "_class", [])]), "_and_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(self, "_key", []), "__eq", [smalltalk.send(anAssociation, "_key", [])]), "_and_", [(function(){return smalltalk.send(smalltalk.send(self, "_value", []), "__eq", [smalltalk.send(anAssociation, "_value", [])]);})]);})]);
- return self;}
- }),
- smalltalk.Association);
- smalltalk.addMethod(
- '_key_',
- smalltalk.method({
- selector: 'key:',
- fn: function (aKey){
- var self=this;
- (self['@key']=aKey);
- return self;}
- }),
- smalltalk.Association);
- smalltalk.addMethod(
- '_key',
- smalltalk.method({
- selector: 'key',
- fn: function (){
- var self=this;
- return self['@key'];
- return self;}
- }),
- smalltalk.Association);
- smalltalk.addMethod(
- '_value_',
- smalltalk.method({
- selector: 'value:',
- fn: function (aValue){
- var self=this;
- (self['@value']=aValue);
- return self;}
- }),
- smalltalk.Association);
- smalltalk.addMethod(
- '_value',
- smalltalk.method({
- selector: 'value',
- fn: function (){
- var self=this;
- return self['@value'];
- return self;}
- }),
- smalltalk.Association);
- smalltalk.addMethod(
- '_storeOn_',
- smalltalk.method({
- selector: 'storeOn:',
- fn: function (aStream){
- var self=this;
- smalltalk.send(self['@key'], "_storeOn_", [aStream]);
- smalltalk.send(aStream, "_nextPutAll_", [unescape("-%3E")]);
- smalltalk.send(self['@value'], "_storeOn_", [aStream]);
- return self;}
- }),
- smalltalk.Association);
- smalltalk.addMethod(
- '_key_value_',
- smalltalk.method({
- selector: 'key:value:',
- fn: function (aKey, aValue){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_key_", [aKey]);smalltalk.send($rec, "_value_", [aValue]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;}
- }),
- smalltalk.Association.klass);
- smalltalk.addClass('Stream', smalltalk.Object, ['collection', 'position', 'streamSize'], 'Kernel-Collections');
- smalltalk.addMethod(
- '_collection',
- smalltalk.method({
- selector: 'collection',
- fn: function (){
- var self=this;
- return self['@collection'];
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_setCollection_',
- smalltalk.method({
- selector: 'setCollection:',
- fn: function (aCollection){
- var self=this;
- (self['@collection']=aCollection);
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_position',
- smalltalk.method({
- selector: 'position',
- fn: function (){
- var self=this;
- return (($receiver = self['@position']) == nil || $receiver == undefined) ? (function(){return (self['@position']=(0));})() : $receiver;
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_position_',
- smalltalk.method({
- selector: 'position:',
- fn: function (anInteger){
- var self=this;
- (self['@position']=anInteger);
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_streamSize',
- smalltalk.method({
- selector: 'streamSize',
- fn: function (){
- var self=this;
- return self['@streamSize'];
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_setStreamSize_',
- smalltalk.method({
- selector: 'setStreamSize:',
- fn: function (anInteger){
- var self=this;
- (self['@streamSize']=anInteger);
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_contents',
- smalltalk.method({
- selector: 'contents',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_collection", []), "_copyFrom_to_", [(1), smalltalk.send(self, "_streamSize", [])]);
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_size',
- smalltalk.method({
- selector: 'size',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_streamSize", []);
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_reset',
- smalltalk.method({
- selector: 'reset',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_position_", [(0)]);
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_close',
- smalltalk.method({
- selector: 'close',
- fn: function (){
- var self=this;
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_flush',
- smalltalk.method({
- selector: 'flush',
- fn: function (){
- var self=this;
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_resetContents',
- smalltalk.method({
- selector: 'resetContents',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_reset", []);
- smalltalk.send(self, "_setStreamSize_", [(0)]);
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_do_',
- smalltalk.method({
- selector: 'do:',
- fn: function (aBlock){
- var self=this;
- (function(){while(!(function(){return smalltalk.send(self, "_atEnd", []);})()) {(function(){return smalltalk.send(aBlock, "_value_", [smalltalk.send(self, "_next", [])]);})()}})();
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_setToEnd',
- smalltalk.method({
- selector: 'setToEnd',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_position_", [smalltalk.send(self, "_size", [])]);
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_skip_',
- smalltalk.method({
- selector: 'skip:',
- fn: function (anInteger){
- var self=this;
- smalltalk.send(self, "_position_", [smalltalk.send(((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +anInteger : smalltalk.send($receiver, "__plus", [anInteger])), "_min_max_", [smalltalk.send(self, "_size", []), (0)])]);
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_next',
- smalltalk.method({
- selector: 'next',
- fn: function (){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_atEnd", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return nil;})() : (function(){smalltalk.send(self, "_position_", [((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]))]);return smalltalk.send(self['@collection'], "_at_", [smalltalk.send(self, "_position", [])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return nil;}), (function(){smalltalk.send(self, "_position_", [((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]))]);return smalltalk.send(self['@collection'], "_at_", [smalltalk.send(self, "_position", [])]);})]));
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_next_',
- smalltalk.method({
- selector: 'next:',
- fn: function (anInteger){
- var self=this;
- var tempCollection=nil;
- (tempCollection=smalltalk.send(smalltalk.send(smalltalk.send(self, "_collection", []), "_class", []), "_new", []));
- smalltalk.send(anInteger, "_timesRepeat_", [(function(){return ((($receiver = smalltalk.send(self, "_atEnd", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(tempCollection, "_add_", [smalltalk.send(self, "_next", [])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(tempCollection, "_add_", [smalltalk.send(self, "_next", [])]);})]));})]);
- return tempCollection;
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_nextPut_',
- smalltalk.method({
- selector: 'nextPut:',
- fn: function (anObject){
- var self=this;
- smalltalk.send(self, "_position_", [((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]))]);
- smalltalk.send(smalltalk.send(self, "_collection", []), "_at_put_", [smalltalk.send(self, "_position", []), anObject]);
- smalltalk.send(self, "_setStreamSize_", [smalltalk.send(smalltalk.send(self, "_streamSize", []), "_max_", [smalltalk.send(self, "_position", [])])]);
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_nextPutAll_',
- smalltalk.method({
- selector: 'nextPutAll:',
- fn: function (aCollection){
- var self=this;
- smalltalk.send(aCollection, "_do_", [(function(each){return smalltalk.send(self, "_nextPut_", [each]);})]);
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_peek',
- smalltalk.method({
- selector: 'peek',
- fn: function (){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_atEnd", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(smalltalk.send(self, "_collection", []), "_at_", [((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]))]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(self, "_collection", []), "_at_", [((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]))]);})]));
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_atEnd',
- smalltalk.method({
- selector: 'atEnd',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_position", []), "__eq", [smalltalk.send(self, "_size", [])]);
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_atStart',
- smalltalk.method({
- selector: 'atStart',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_position", []), "__eq", [(0)]);
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_isEmpty',
- smalltalk.method({
- selector: 'isEmpty',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_size", []), "__eq", [(0)]);
- return self;}
- }),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_on_',
- smalltalk.method({
- selector: 'on:',
- fn: function (aCollection){
- var self=this;
- return (function($rec){smalltalk.send($rec, "_setCollection_", [aCollection]);smalltalk.send($rec, "_setStreamSize_", [smalltalk.send(aCollection, "_size", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
- return self;}
- }),
- smalltalk.Stream.klass);
- smalltalk.addClass('StringStream', smalltalk.Stream, [], 'Kernel-Collections');
- smalltalk.addMethod(
- '_next_',
- smalltalk.method({
- selector: 'next:',
- fn: function (anInteger){
- var self=this;
- var tempCollection=nil;
- (tempCollection=smalltalk.send(smalltalk.send(smalltalk.send(self, "_collection", []), "_class", []), "_new", []));
- smalltalk.send(anInteger, "_timesRepeat_", [(function(){return ((($receiver = smalltalk.send(self, "_atEnd", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (tempCollection=smalltalk.send(tempCollection, "__comma", [smalltalk.send(self, "_next", [])]));})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (tempCollection=smalltalk.send(tempCollection, "__comma", [smalltalk.send(self, "_next", [])]));})]));})]);
- return tempCollection;
- return self;}
- }),
- smalltalk.StringStream);
- smalltalk.addMethod(
- '_nextPut_',
- smalltalk.method({
- selector: 'nextPut:',
- fn: function (aString){
- var self=this;
- smalltalk.send(self, "_nextPutAll_", [aString]);
- return self;}
- }),
- smalltalk.StringStream);
- smalltalk.addMethod(
- '_nextPutAll_',
- smalltalk.method({
- selector: 'nextPutAll:',
- fn: function (aString){
- var self=this;
- smalltalk.send(self, "_setCollection_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_collection", []), "_copyFrom_to_", [(1), smalltalk.send(self, "_position", [])]), "__comma", [aString]), "__comma", [smalltalk.send(smalltalk.send(self, "_collection", []), "_copyFrom_to_", [((($receiver = ((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]))).klass === smalltalk.Number) ? $receiver +smalltalk.send(aString, "_size", []) : smalltalk.send($receiver, "__plus", [smalltalk.send(aString, "_size", [])])), smalltalk.send(smalltalk.send(self, "_collection", []), "_size", [])])])]);
- smalltalk.send(self, "_position_", [((($receiver = smalltalk.send(self, "_position", [])).klass === smalltalk.Number) ? $receiver +smalltalk.send(aString, "_size", []) : smalltalk.send($receiver, "__plus", [smalltalk.send(aString, "_size", [])]))]);
- smalltalk.send(self, "_setStreamSize_", [smalltalk.send(smalltalk.send(self, "_streamSize", []), "_max_", [smalltalk.send(self, "_position", [])])]);
- return self;}
- }),
- smalltalk.StringStream);
- smalltalk.addMethod(
- '_cr',
- smalltalk.method({
- selector: 'cr',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_nextPutAll_", [smalltalk.send((smalltalk.String || String), "_cr", [])]);
- return self;}
- }),
- smalltalk.StringStream);
- smalltalk.addMethod(
- '_crlf',
- smalltalk.method({
- selector: 'crlf',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_nextPutAll_", [smalltalk.send((smalltalk.String || String), "_crlf", [])]);
- return self;}
- }),
- smalltalk.StringStream);
- smalltalk.addMethod(
- '_lf',
- smalltalk.method({
- selector: 'lf',
- fn: function (){
- var self=this;
- return smalltalk.send(self, "_nextPutAll_", [smalltalk.send((smalltalk.String || String), "_lf", [])]);
- return self;}
- }),
- smalltalk.StringStream);
- smalltalk.addMethod(
- '_space',
- smalltalk.method({
- selector: 'space',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_nextPut_", [" "]);
- return self;}
- }),
- smalltalk.StringStream);
- smalltalk.addClass('Set', smalltalk.Collection, ['elements'], 'Kernel-Collections');
- smalltalk.addMethod(
- '_add_',
- smalltalk.method({
- selector: 'add:',
- fn: function (anObject){
- var self=this;
- var found;
- for(var i in self['@elements']) {
- if(anObject == self['@elements'][i]) {
- found = true;
- break;
- }
- }
- if(!found) {self['@elements'].push(anObject)}
- ;
- return self;}
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- '_remove_',
- smalltalk.method({
- selector: 'remove:',
- fn: function (anObject){
- var self=this;
- smalltalk.send(self['@elements'], "_remove_", [anObject]);
- return self;}
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- '_initialize',
- smalltalk.method({
- selector: 'initialize',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_initialize", [], smalltalk.Collection);
- (self['@elements']=[]);
- return self;}
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- '_size',
- smalltalk.method({
- selector: 'size',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@elements'], "_size", []);
- return self;}
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- '_asArray',
- smalltalk.method({
- selector: 'asArray',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@elements'], "_copy", []);
- return self;}
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- '_detect_ifNone_',
- smalltalk.method({
- selector: 'detect:ifNone:',
- fn: function (aBlock, anotherBlock){
- var self=this;
- return smalltalk.send(self['@elements'], "_detect_ifNone_", [aBlock, anotherBlock]);
- return self;}
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- '_do_',
- smalltalk.method({
- selector: 'do:',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(self['@elements'], "_do_", [aBlock]);
- return self;}
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- '_includes_',
- smalltalk.method({
- selector: 'includes:',
- fn: function (anObject){
- var self=this;
- return smalltalk.send(self['@elements'], "_includes_", [anObject]);
- return self;}
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- '__eq',
- smalltalk.method({
- selector: '=',
- fn: function (aCollection){
- var self=this;
- return smalltalk.send(smalltalk.send(smalltalk.send(self, "_class", []), "__eq", [smalltalk.send(aCollection, "_class", [])]), "_and_", [(function(){return smalltalk.send(self['@elements'], "__eq", [smalltalk.send(aCollection, "_asArray", [])]);})]);
- return self;}
- }),
- smalltalk.Set);
- smalltalk.addMethod(
- '_select_',
- smalltalk.method({
- selector: 'select:',
- fn: function (aBlock){
- var self=this;
- var collection=nil;
- (collection=smalltalk.send(smalltalk.send(self, "_class", []), "_new", []));
- smalltalk.send(self, "_do_", [(function(each){return ((($receiver = smalltalk.send(aBlock, "_value_", [each])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(collection, "_add_", [each]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(collection, "_add_", [each]);})]));})]);
- return collection;
- return self;}
- }),
- smalltalk.Set);
- smalltalk.addClass('HashedCollection', smalltalk.Collection, [], 'Kernel-Collections');
- smalltalk.addMethod(
- '_size',
- smalltalk.method({
- selector: 'size',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_keys", []), "_size", []);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_associations',
- smalltalk.method({
- selector: 'associations',
- fn: function (){
- var self=this;
- var associations=nil;
- (associations=[]);
- smalltalk.send(smalltalk.send(self, "_keys", []), "_do_", [(function(each){return smalltalk.send(associations, "_add_", [smalltalk.send((smalltalk.Association || Association), "_key_value_", [each, smalltalk.send(self, "_at_", [each])])]);})]);
- return associations;
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_keys',
- smalltalk.method({
- selector: 'keys',
- fn: function (){
- var self=this;
- var keys = [];
- for(var i in self) {
- if(self.hasOwnProperty(i)) {
- keys.push(i);
- }
- };
- return keys;
- ;
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_values',
- smalltalk.method({
- selector: 'values',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_keys", []), "_collect_", [(function(each){return smalltalk.send(self, "_at_", [each]);})]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_at_put_',
- smalltalk.method({
- selector: 'at:put:',
- fn: function (aKey, aValue){
- var self=this;
- return smalltalk.send(self, "_basicAt_put_", [aKey, aValue]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_at_ifAbsent_',
- smalltalk.method({
- selector: 'at:ifAbsent:',
- fn: function (aKey, aBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_includesKey_", [aKey]), "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_basicAt_", [aKey]);}), aBlock]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_at_ifAbsentPut_',
- smalltalk.method({
- selector: 'at:ifAbsentPut:',
- fn: function (aKey, aBlock){
- var self=this;
- return smalltalk.send(self, "_at_ifAbsent_", [aKey, (function(){return smalltalk.send(self, "_at_put_", [aKey, smalltalk.send(aBlock, "_value", [])]);})]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_at_ifPresent_',
- smalltalk.method({
- selector: 'at:ifPresent:',
- fn: function (aKey, aBlock){
- var self=this;
- return (($receiver = smalltalk.send(self, "_basicAt_", [aKey])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(aBlock, "_value_", [smalltalk.send(self, "_at_", [aKey])]);})() : nil;
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_at_ifPresent_ifAbsent_',
- smalltalk.method({
- selector: 'at:ifPresent:ifAbsent:',
- fn: function (aKey, aBlock, anotherBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_basicAt_", [aKey]), "_ifNil_ifNotNil_", [anotherBlock, (function(){return smalltalk.send(aBlock, "_value_", [smalltalk.send(self, "_at_", [aKey])]);})]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_at_',
- smalltalk.method({
- selector: 'at:',
- fn: function (aKey){
- var self=this;
- return smalltalk.send(self, "_at_ifAbsent_", [aKey, (function(){return smalltalk.send(self, "_errorNotFound", []);})]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_add_',
- smalltalk.method({
- selector: 'add:',
- fn: function (anAssociation){
- var self=this;
- smalltalk.send(self, "_at_put_", [smalltalk.send(anAssociation, "_key", []), smalltalk.send(anAssociation, "_value", [])]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_addAll_',
- smalltalk.method({
- selector: 'addAll:',
- fn: function (aHashedCollection){
- var self=this;
- smalltalk.send(self, "_addAll_", [smalltalk.send(aHashedCollection, "_associations", [])], smalltalk.Collection);
- return aHashedCollection;
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_removeKey_',
- smalltalk.method({
- selector: 'removeKey:',
- fn: function (aKey){
- var self=this;
- smalltalk.send(self, "_remove_", [aKey]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_remove_ifAbsent_',
- smalltalk.method({
- selector: 'remove:ifAbsent:',
- fn: function (aKey, aBlock){
- var self=this;
- return smalltalk.send(self, "_removeKey_ifAbsent_", [aKey, aBlock]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_removeKey_ifAbsent_',
- smalltalk.method({
- selector: 'removeKey:ifAbsent:',
- fn: function (aKey, aBlock){
- var self=this;
- return ((($receiver = smalltalk.send(self, "_includesKey_", [aKey])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(aBlock, "_value", []);})() : (function(){return smalltalk.send(self, "_basicDelete_", [aKey]);})()) : smalltalk.send($receiver, "_ifFalse_ifTrue_", [(function(){return smalltalk.send(aBlock, "_value", []);}), (function(){return smalltalk.send(self, "_basicDelete_", [aKey]);})]));
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '__eq',
- smalltalk.method({
- selector: '=',
- fn: function (aHashedCollection){
- var self=this;
- try{((($receiver = smalltalk.send(smalltalk.send(self, "_class", []), "__eq", [smalltalk.send(aHashedCollection, "_class", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]));
- ((($receiver = smalltalk.send(smalltalk.send(self, "_size", []), "__eq", [smalltalk.send(aHashedCollection, "_size", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]));
- (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return smalltalk.send(smalltalk.send(self, "_associations", []), "__eq", [smalltalk.send(aHashedCollection, "_associations", [])])}})})();
- return self;
- } catch(e) {if(e.name === 'stReturn' && e.selector === '__eq'){return e.fn()} throw(e)}}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_shallowCopy',
- smalltalk.method({
- selector: 'shallowCopy',
- fn: function (){
- var self=this;
- var copy=nil;
- (copy=smalltalk.send(smalltalk.send(self, "_class", []), "_new", []));
- smalltalk.send(self, "_associationsDo_", [(function(each){return smalltalk.send(copy, "_at_put_", [smalltalk.send(each, "_key", []), smalltalk.send(each, "_value", [])]);})]);
- return copy;
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '__comma',
- smalltalk.method({
- selector: ',',
- fn: function (aCollection){
- var self=this;
- smalltalk.send(self, "_shouldNotImplement", []);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_copyFrom_to_',
- smalltalk.method({
- selector: 'copyFrom:to:',
- fn: function (anIndex, anotherIndex){
- var self=this;
- smalltalk.send(self, "_shouldNotImplement", []);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_deepCopy',
- smalltalk.method({
- selector: 'deepCopy',
- fn: function (){
- var self=this;
- var copy=nil;
- (copy=smalltalk.send(smalltalk.send(self, "_class", []), "_new", []));
- smalltalk.send(self, "_associationsDo_", [(function(each){return smalltalk.send(copy, "_at_put_", [smalltalk.send(each, "_key", []), smalltalk.send(smalltalk.send(each, "_value", []), "_deepCopy", [])]);})]);
- return copy;
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_associationsDo_',
- smalltalk.method({
- selector: 'associationsDo:',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_associations", []), "_do_", [aBlock]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_keysAndValuesDo_',
- smalltalk.method({
- selector: 'keysAndValuesDo:',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(self, "_associationsDo_", [(function(each){return smalltalk.send(aBlock, "_value_value_", [smalltalk.send(each, "_key", []), smalltalk.send(each, "_value", [])]);})]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_do_',
- smalltalk.method({
- selector: 'do:',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_values", []), "_do_", [aBlock]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_select_',
- smalltalk.method({
- selector: 'select:',
- fn: function (aBlock){
- var self=this;
- var newDict=nil;
- (newDict=smalltalk.send(smalltalk.send(self, "_class", []), "_new", []));
- smalltalk.send(self, "_keysAndValuesDo_", [(function(key, value){return ((($receiver = smalltalk.send(aBlock, "_value_", [value])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(newDict, "_at_put_", [key, value]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(newDict, "_at_put_", [key, value]);})]));})]);
- return newDict;
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_collect_',
- smalltalk.method({
- selector: 'collect:',
- fn: function (aBlock){
- var self=this;
- var newDict=nil;
- (newDict=smalltalk.send(smalltalk.send(self, "_class", []), "_new", []));
- smalltalk.send(self, "_keysAndValuesDo_", [(function(key, value){return smalltalk.send(newDict, "_at_put_", [key, smalltalk.send(aBlock, "_value_", [value])]);})]);
- return newDict;
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_detect_ifNone_',
- smalltalk.method({
- selector: 'detect:ifNone:',
- fn: function (aBlock, anotherBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_values", []), "_detect_ifNone_", [aBlock, anotherBlock]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_includes_',
- smalltalk.method({
- selector: 'includes:',
- fn: function (anObject){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_values", []), "_includes_", [anObject]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_printString',
- smalltalk.method({
- selector: 'printString',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(aStream){(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_printString", [], smalltalk.Collection)]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%28")]);})(aStream);smalltalk.send(smalltalk.send(self, "_associations", []), "_do_separatedBy_", [(function(anAssociation){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(anAssociation, "_key", []), "_printString", [])]);smalltalk.send($rec, "_nextPutAll_", [unescape("%20-%3E%20")]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(anAssociation, "_value", []), "_printString", [])]);})(aStream);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [unescape("%20%2C%20")]);})]);return smalltalk.send(aStream, "_nextPutAll_", [unescape("%29")]);})]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_storeOn_',
- smalltalk.method({
- selector: 'storeOn:',
- fn: function (aStream){
- var self=this;
- smalltalk.send(aStream, "_nextPutAll_", [unescape("%23%7B")]);
- smalltalk.send(smalltalk.send(self, "_associations", []), "_do_separatedBy_", [(function(each){return smalltalk.send(each, "_storeOn_", [aStream]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [". "]);})]);
- smalltalk.send(aStream, "_nextPutAll_", [unescape("%7D")]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_includesKey_',
- smalltalk.method({
- selector: 'includesKey:',
- fn: function (aKey){
- var self=this;
- return self.hasOwnProperty(aKey);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_asDictionary',
- smalltalk.method({
- selector: 'asDictionary',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.Dictionary || Dictionary), "_fromPairs_", [smalltalk.send(self, "_associations", [])]);
- return self;}
- }),
- smalltalk.HashedCollection);
- smalltalk.addMethod(
- '_fromPairs_',
- smalltalk.method({
- selector: 'fromPairs:',
- fn: function (aCollection){
- var self=this;
- var dict=nil;
- (dict=smalltalk.send(self, "_new", []));
- smalltalk.send(aCollection, "_do_", [(function(each){return smalltalk.send(dict, "_add_", [each]);})]);
- return dict;
- return self;}
- }),
- smalltalk.HashedCollection.klass);
- smalltalk.addClass('Dictionary', smalltalk.HashedCollection, ['keys', 'values'], 'Kernel-Collections');
- smalltalk.addMethod(
- '_at_ifAbsent_',
- smalltalk.method({
- selector: 'at:ifAbsent:',
- fn: function (aKey, aBlock){
- var self=this;
- var index;
- for(var i=0;i<self['@keys'].length;i++){
- if(self['@keys'][i].__eq(aKey)) {index = i;}
- };
- if(typeof index === 'undefined') {
- return aBlock();
- } else {
- return self['@values'][index];
- }
- ;
- return self;}
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_keys',
- smalltalk.method({
- selector: 'keys',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@keys'], "_copy", []);
- return self;}
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_values',
- smalltalk.method({
- selector: 'values',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@values'], "_copy", []);
- return self;}
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_at_put_',
- smalltalk.method({
- selector: 'at:put:',
- fn: function (aKey, aValue){
- var self=this;
- var index = self['@keys'].indexOf(aKey);
- if(index === -1) {
- self['@values'].push(aValue);
- self['@keys'].push(aKey);
- } else {
- self['@values'][index] = aValue;
- };
- return aValue;
- ;
- return self;}
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_removeKey_ifAbsent_',
- smalltalk.method({
- selector: 'removeKey:ifAbsent:',
- fn: function (aKey, aBlock){
- var self=this;
- var index = self['@keys'].indexOf(aKey);
- if(index === -1) {
- return aBlock()
- } else {
- self['@keys'].splice(i, 1);
- self['@values'].splice(i, 1);
- return aKey
- };
- ;
- return self;}
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_initialize',
- smalltalk.method({
- selector: 'initialize',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_initialize", [], smalltalk.HashedCollection);
- (self['@keys']=[]);
- (self['@values']=[]);
- return self;}
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_includesKey_',
- smalltalk.method({
- selector: 'includesKey:',
- fn: function (aKey){
- var self=this;
- return smalltalk.send(self['@keys'], "_includes_", [aKey]);
- return self;}
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_asHashedCollection',
- smalltalk.method({
- selector: 'asHashedCollection',
- fn: function (){
- var self=this;
- return smalltalk.send((smalltalk.HashedCollection || HashedCollection), "_fromPairs_", [smalltalk.send(self, "_associations", [])]);
- return self;}
- }),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_asJSONString',
- smalltalk.method({
- selector: 'asJSONString',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_asHashedCollection", []), "_asJSONString", []);
- return self;}
- }),
- smalltalk.Dictionary);
- smalltalk.addClass('OrderedCollection', smalltalk.SequenceableCollection, ['elements'], 'Kernel-Collections');
- smalltalk.addMethod(
- '_size',
- smalltalk.method({
- selector: 'size',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@elements'], "_size", []);
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_at_put_',
- smalltalk.method({
- selector: 'at:put:',
- fn: function (anIndex, anObject){
- var self=this;
- return self['@elements'][anIndex - 1] = anObject;
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_at_ifAbsent_',
- smalltalk.method({
- selector: 'at:ifAbsent:',
- fn: function (anIndex, aBlock){
- var self=this;
- return smalltalk.send(self['@elements'], "_at_ifAbsent_", [anIndex, aBlock]);
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_add_',
- smalltalk.method({
- selector: 'add:',
- fn: function (anObject){
- var self=this;
- self['@elements'].push(anObject); return anObject;;
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_join_',
- smalltalk.method({
- selector: 'join:',
- fn: function (aString){
- var self=this;
- return smalltalk.send(self['@elements'], "_join_", [aString]);
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_sort',
- smalltalk.method({
- selector: 'sort',
- fn: function (){
- var self=this;
- smalltalk.send(self['@elements'], "_sort", []);
- return self;
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_sort_',
- smalltalk.method({
- selector: 'sort:',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(self['@elements'], "_sort_", [aBlock]);
- return self;
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_remove_',
- smalltalk.method({
- selector: 'remove:',
- fn: function (anObject){
- var self=this;
- for(var i=0;i<self['@elements'].length;i++) {
- if(self['@elements'][i] == anObject) {
- self['@elements'].splice(i,1);
- break;
- }
- }
- ;
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_sorted',
- smalltalk.method({
- selector: 'sorted',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_copy", []), "_sort", []);
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_sorted_',
- smalltalk.method({
- selector: 'sorted:',
- fn: function (aBlock){
- var self=this;
- return smalltalk.send(smalltalk.send(self, "_copy", []), "_sort_", [aBlock]);
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_removeFrom_to_',
- smalltalk.method({
- selector: 'removeFrom:to:',
- fn: function (aNumber, anotherNumber){
- var self=this;
- self['@elements'].splice(aNumber - 1,anotherNumber - 1);
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_reversed',
- smalltalk.method({
- selector: 'reversed',
- fn: function (){
- var self=this;
- return smalltalk.send(smalltalk.send(smalltalk.send(self, "_asArray", []), "_reversed", []), "_asOrderedCollection", []);
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_initialize',
- smalltalk.method({
- selector: 'initialize',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_initialize", [], smalltalk.SequenceableCollection);
- (self['@elements']=[]);
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_withIndexDo_',
- smalltalk.method({
- selector: 'withIndexDo:',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(self['@elements'], "_withIndexDo_", [aBlock]);
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_detect_ifNone_',
- smalltalk.method({
- selector: 'detect:ifNone:',
- fn: function (aBlock, anotherBlock){
- var self=this;
- return smalltalk.send(self['@elements'], "_detect_ifNone_", [aBlock, anotherBlock]);
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_do_',
- smalltalk.method({
- selector: 'do:',
- fn: function (aBlock){
- var self=this;
- smalltalk.send(self['@elements'], "_do_", [aBlock]);
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_asOrderedCollection',
- smalltalk.method({
- selector: 'asOrderedCollection',
- fn: function (){
- var self=this;
- return self;
- return self;}
- }),
- smalltalk.OrderedCollection);
- smalltalk.addMethod(
- '_asArray',
- smalltalk.method({
- selector: 'asArray',
- fn: function (){
- var self=this;
- return smalltalk.send(self['@elements'], "_copy", []);
- return self;}
- }),
- smalltalk.OrderedCollection);
|