Axxord.js 46 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361
  1. define(["amber/boot", "amber_core/Kernel-Collections", "amber_core/Kernel-Exceptions", "amber_core/Kernel-Objects"], function($boot){"use strict";
  2. if(!$boot.nilAsReceiver)$boot.nilAsReceiver=$boot.nil;
  3. if(!("nilAsValue" in $boot))$boot.nilAsValue=$boot.nilAsReceiver;
  4. var $core=$boot.api,nil=$boot.nilAsValue,$nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals;
  5. if(!$boot.nilAsClass)$boot.nilAsClass=$boot.dnu;
  6. $core.addPackage("Axxord");
  7. $core.packages["Axxord"].innerEval = function (expr) { return eval(expr); };
  8. $core.packages["Axxord"].transport = {"type":"amd","amdNamespace":"axxord"};
  9. $core.addClass("Axes", $globals.Object, [], "Axxord");
  10. $core.addMethod(
  11. $core.method({
  12. selector: "parse:",
  13. protocol: "parsing",
  14. fn: function (message){
  15. var self=this,$self=this;
  16. var result,stack,anArray;
  17. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  18. return $core.withContext(function($ctx1) {
  19. //>>excludeEnd("ctx");
  20. var $1,$2,$3,$5,$4,$6,$7,$8,$9,$10,$11;
  21. anArray=$recv(message)._tokenize_(" ");
  22. result=[];
  23. stack=[result];
  24. $recv(anArray)._do_((function(each){
  25. var asNum,inner,close;
  26. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  27. return $core.withContext(function($ctx2) {
  28. //>>excludeEnd("ctx");
  29. close=(0);
  30. close;
  31. inner=each;
  32. inner;
  33. $recv((function(){
  34. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  35. return $core.withContext(function($ctx3) {
  36. //>>excludeEnd("ctx");
  37. $1=$recv(inner)._notEmpty();
  38. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  39. $ctx3.sendIdx["notEmpty"]=1;
  40. //>>excludeEnd("ctx");
  41. return $recv($1)._and_((function(){
  42. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  43. return $core.withContext(function($ctx4) {
  44. //>>excludeEnd("ctx");
  45. $2=$recv(inner)._first();
  46. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  47. $ctx4.sendIdx["first"]=1;
  48. //>>excludeEnd("ctx");
  49. return $recv($2).__eq("(");
  50. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  51. $ctx4.sendIdx["="]=1;
  52. //>>excludeEnd("ctx");
  53. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  54. }, function($ctx4) {$ctx4.fillBlock({},$ctx3,3)});
  55. //>>excludeEnd("ctx");
  56. }));
  57. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  58. $ctx3.sendIdx["and:"]=1;
  59. //>>excludeEnd("ctx");
  60. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  61. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
  62. //>>excludeEnd("ctx");
  63. }))._whileTrue_((function(){
  64. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  65. return $core.withContext(function($ctx3) {
  66. //>>excludeEnd("ctx");
  67. inner=$recv(inner)._allButFirst();
  68. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  69. $ctx3.sendIdx["allButFirst"]=1;
  70. //>>excludeEnd("ctx");
  71. inner;
  72. $3=stack;
  73. $5=$recv(stack)._last();
  74. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  75. $ctx3.sendIdx["last"]=1;
  76. //>>excludeEnd("ctx");
  77. $4=$recv($5)._add_([]);
  78. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  79. $ctx3.sendIdx["add:"]=2;
  80. //>>excludeEnd("ctx");
  81. return $recv($3)._add_($4);
  82. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  83. $ctx3.sendIdx["add:"]=1;
  84. //>>excludeEnd("ctx");
  85. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  86. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)});
  87. //>>excludeEnd("ctx");
  88. }));
  89. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  90. $ctx2.sendIdx["whileTrue:"]=1;
  91. //>>excludeEnd("ctx");
  92. $recv((function(){
  93. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  94. return $core.withContext(function($ctx3) {
  95. //>>excludeEnd("ctx");
  96. $6=$recv(inner)._notEmpty();
  97. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  98. $ctx3.sendIdx["notEmpty"]=2;
  99. //>>excludeEnd("ctx");
  100. return $recv($6)._and_((function(){
  101. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  102. return $core.withContext(function($ctx4) {
  103. //>>excludeEnd("ctx");
  104. $7=$recv(inner)._last();
  105. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  106. $ctx4.sendIdx["last"]=2;
  107. //>>excludeEnd("ctx");
  108. return $recv($7).__eq(")");
  109. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  110. $ctx4.sendIdx["="]=2;
  111. //>>excludeEnd("ctx");
  112. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  113. }, function($ctx4) {$ctx4.fillBlock({},$ctx3,6)});
  114. //>>excludeEnd("ctx");
  115. }));
  116. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  117. $ctx3.sendIdx["and:"]=2;
  118. //>>excludeEnd("ctx");
  119. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  120. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,5)});
  121. //>>excludeEnd("ctx");
  122. }))._whileTrue_((function(){
  123. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  124. return $core.withContext(function($ctx3) {
  125. //>>excludeEnd("ctx");
  126. inner=$recv(inner)._allButLast();
  127. inner;
  128. close=$recv(close).__plus((1));
  129. return close;
  130. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  131. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,7)});
  132. //>>excludeEnd("ctx");
  133. }));
  134. $8=$recv($recv(inner)._notEmpty())._and_((function(){
  135. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  136. return $core.withContext(function($ctx3) {
  137. //>>excludeEnd("ctx");
  138. return $recv($recv(inner)._first()).__eq("~");
  139. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  140. $ctx3.sendIdx["="]=3;
  141. //>>excludeEnd("ctx");
  142. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  143. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,8)});
  144. //>>excludeEnd("ctx");
  145. }));
  146. if($core.assert($8)){
  147. inner=[$recv(inner)._allButFirst()];
  148. inner;
  149. }
  150. $9=$recv(inner)._isString();
  151. if($core.assert($9)){
  152. asNum=$recv($recv(inner)._ifEmpty_((function(){
  153. return "NaN";
  154. })))._asNumber();
  155. } else {
  156. asNum=inner;
  157. }
  158. asNum;
  159. $10=$recv(asNum).__eq(asNum);
  160. if($core.assert($10)){
  161. $11=$recv(stack)._last();
  162. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  163. $ctx2.sendIdx["last"]=3;
  164. //>>excludeEnd("ctx");
  165. $recv($11)._add_(asNum);
  166. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  167. $ctx2.sendIdx["add:"]=3;
  168. //>>excludeEnd("ctx");
  169. } else {
  170. $recv(inner)._ifNotEmpty_((function(){
  171. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  172. return $core.withContext(function($ctx3) {
  173. //>>excludeEnd("ctx");
  174. return $recv($recv(stack)._last())._add_(inner);
  175. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  176. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,15)});
  177. //>>excludeEnd("ctx");
  178. }));
  179. }
  180. return $recv(close)._timesRepeat_((function(){
  181. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  182. return $core.withContext(function($ctx3) {
  183. //>>excludeEnd("ctx");
  184. return $recv(stack)._removeLast();
  185. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  186. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,16)});
  187. //>>excludeEnd("ctx");
  188. }));
  189. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  190. }, function($ctx2) {$ctx2.fillBlock({each:each,asNum:asNum,inner:inner,close:close},$ctx1,1)});
  191. //>>excludeEnd("ctx");
  192. }));
  193. return result;
  194. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  195. }, function($ctx1) {$ctx1.fill(self,"parse:",{message:message,result:result,stack:stack,anArray:anArray},$globals.Axes.a$cls)});
  196. //>>excludeEnd("ctx");
  197. },
  198. //>>excludeStart("ide", pragmas.excludeIdeData);
  199. args: ["message"],
  200. source: "parse: message\x0a\x09| result stack anArray |\x0a\x09anArray := message tokenize: ' '.\x0a\x09result := #().\x0a\x09stack := { result }.\x0a\x09anArray do: [ :each |\x0a\x09\x09| asNum inner close |\x0a\x09\x09close := 0.\x0a\x09\x09inner := each.\x0a\x09\x09[ inner notEmpty and: [ inner first = '(' ]] whileTrue: [ inner := inner allButFirst. stack add: (stack last add: #()) ].\x0a\x09\x09[ inner notEmpty and: [ inner last = ')' ]] whileTrue: [ inner := inner allButLast. close := close + 1 ].\x0a\x09\x09(inner notEmpty and: [ inner first = '~' ]) ifTrue: [ inner := { inner allButFirst } ].\x0a\x09\x09asNum := inner isString ifTrue: [ (inner ifEmpty: [ 'NaN' ]) asNumber ] ifFalse: [ inner ].\x0a\x09\x09asNum = asNum ifTrue: [ stack last add: asNum ] ifFalse: [\x0a\x09\x09\x09inner ifNotEmpty: [ stack last add: inner ] ].\x0a\x09\x09close timesRepeat: [ stack removeLast ] ].\x0a\x09^ result",
  201. referencedClasses: [],
  202. //>>excludeEnd("ide");
  203. messageSends: ["tokenize:", "do:", "whileTrue:", "and:", "notEmpty", "=", "first", "allButFirst", "add:", "last", "allButLast", "+", "ifTrue:", "ifTrue:ifFalse:", "isString", "asNumber", "ifEmpty:", "ifNotEmpty:", "timesRepeat:", "removeLast"]
  204. }),
  205. $globals.Axes.a$cls);
  206. $core.addClass("Axon", $globals.Object, ["factory"], "Axxord");
  207. //>>excludeStart("ide", pragmas.excludeIdeData);
  208. $globals.Axon.comment="I represent a pub-sub based on a key (called 'aspect').\x0aI manage aspect-block subscriptions (called 'interests') as well as run blocks of dirtied interests.\x0aThe interest objects are responsible of decision if the change of an aspect is relevant for them.\x0aInterest object must be subclasses of `AxonInterest`.\x0a\x0aMy subclasses must provide implementation for:\x0a\x0a - add:\x0a - do:\x0a - clean";
  209. //>>excludeEnd("ide");
  210. $core.addMethod(
  211. $core.method({
  212. selector: "addInterest:",
  213. protocol: "action",
  214. fn: function (anInterest){
  215. var self=this,$self=this;
  216. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  217. return $core.withContext(function($ctx1) {
  218. //>>excludeEnd("ctx");
  219. var $1;
  220. $recv(anInterest)._flag();
  221. $1=$recv(anInterest)._yourself();
  222. $self._add_($1);
  223. $self._dirty_(true);
  224. return self;
  225. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  226. }, function($ctx1) {$ctx1.fill(self,"addInterest:",{anInterest:anInterest},$globals.Axon)});
  227. //>>excludeEnd("ctx");
  228. },
  229. //>>excludeStart("ide", pragmas.excludeIdeData);
  230. args: ["anInterest"],
  231. source: "addInterest: anInterest\x0a\x09self\x0a\x09\x09add: (anInterest flag; yourself);\x0a\x09\x09dirty: true",
  232. referencedClasses: [],
  233. //>>excludeEnd("ide");
  234. messageSends: ["add:", "flag", "yourself", "dirty:"]
  235. }),
  236. $globals.Axon);
  237. $core.addMethod(
  238. $core.method({
  239. selector: "changed:",
  240. protocol: "action",
  241. fn: function (anAspect){
  242. var self=this,$self=this;
  243. var needsToRun;
  244. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  245. return $core.withContext(function($ctx1) {
  246. //>>excludeEnd("ctx");
  247. var $1;
  248. needsToRun=false;
  249. $self._do_((function(each){
  250. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  251. return $core.withContext(function($ctx2) {
  252. //>>excludeEnd("ctx");
  253. $1=$recv(each)._accepts_(anAspect);
  254. if($core.assert($1)){
  255. $recv(each)._flag();
  256. needsToRun=true;
  257. return needsToRun;
  258. }
  259. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  260. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  261. //>>excludeEnd("ctx");
  262. }));
  263. $self._dirty_(needsToRun);
  264. return self;
  265. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  266. }, function($ctx1) {$ctx1.fill(self,"changed:",{anAspect:anAspect,needsToRun:needsToRun},$globals.Axon)});
  267. //>>excludeEnd("ctx");
  268. },
  269. //>>excludeStart("ide", pragmas.excludeIdeData);
  270. args: ["anAspect"],
  271. source: "changed: anAspect\x0a\x09| needsToRun |\x0a\x09needsToRun := false.\x0a\x09self do: [ :each |\x0a\x09\x09(each accepts: anAspect) ifTrue: [\x0a\x09\x09\x09each flag.\x0a\x09\x09\x09needsToRun := true ]].\x0a\x09self dirty: needsToRun",
  272. referencedClasses: [],
  273. //>>excludeEnd("ide");
  274. messageSends: ["do:", "ifTrue:", "accepts:", "flag", "dirty:"]
  275. }),
  276. $globals.Axon);
  277. $core.addMethod(
  278. $core.method({
  279. selector: "changedAll",
  280. protocol: "action",
  281. fn: function (){
  282. var self=this,$self=this;
  283. var needsToRun;
  284. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  285. return $core.withContext(function($ctx1) {
  286. //>>excludeEnd("ctx");
  287. needsToRun=false;
  288. $self._do_((function(each){
  289. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  290. return $core.withContext(function($ctx2) {
  291. //>>excludeEnd("ctx");
  292. $recv(each)._flag();
  293. needsToRun=true;
  294. return needsToRun;
  295. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  296. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  297. //>>excludeEnd("ctx");
  298. }));
  299. $self._dirty_(needsToRun);
  300. return self;
  301. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  302. }, function($ctx1) {$ctx1.fill(self,"changedAll",{needsToRun:needsToRun},$globals.Axon)});
  303. //>>excludeEnd("ctx");
  304. },
  305. //>>excludeStart("ide", pragmas.excludeIdeData);
  306. args: [],
  307. source: "changedAll\x0a\x09| needsToRun |\x0a\x09needsToRun := false.\x0a\x09self do: [ :each |\x0a\x09\x09each flag.\x0a\x09\x09needsToRun := true ].\x0a\x09self dirty: needsToRun",
  308. referencedClasses: [],
  309. //>>excludeEnd("ide");
  310. messageSends: ["do:", "flag", "dirty:"]
  311. }),
  312. $globals.Axon);
  313. $core.addMethod(
  314. $core.method({
  315. selector: "dirty:",
  316. protocol: "action",
  317. fn: function (aBoolean){
  318. var self=this,$self=this;
  319. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  320. return $core.withContext(function($ctx1) {
  321. //>>excludeEnd("ctx");
  322. if($core.assert(aBoolean)){
  323. $recv((function(){
  324. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  325. return $core.withContext(function($ctx2) {
  326. //>>excludeEnd("ctx");
  327. return $self._run();
  328. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  329. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  330. //>>excludeEnd("ctx");
  331. }))._fork();
  332. }
  333. return self;
  334. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  335. }, function($ctx1) {$ctx1.fill(self,"dirty:",{aBoolean:aBoolean},$globals.Axon)});
  336. //>>excludeEnd("ctx");
  337. },
  338. //>>excludeStart("ide", pragmas.excludeIdeData);
  339. args: ["aBoolean"],
  340. source: "dirty: aBoolean\x0a\x09aBoolean ifTrue: [[ self run ] fork]",
  341. referencedClasses: [],
  342. //>>excludeEnd("ide");
  343. messageSends: ["ifTrue:", "fork", "run"]
  344. }),
  345. $globals.Axon);
  346. $core.addMethod(
  347. $core.method({
  348. selector: "registerIn:",
  349. protocol: "injecting",
  350. fn: function (anObject){
  351. var self=this,$self=this;
  352. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  353. return $core.withContext(function($ctx1) {
  354. //>>excludeEnd("ctx");
  355. anObject.$axon$=self;
  356. return self;
  357. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  358. }, function($ctx1) {$ctx1.fill(self,"registerIn:",{anObject:anObject},$globals.Axon)});
  359. //>>excludeEnd("ctx");
  360. },
  361. //>>excludeStart("ide", pragmas.excludeIdeData);
  362. args: ["anObject"],
  363. source: "registerIn: anObject\x0a<inlineJS: 'anObject.$axon$=self'>",
  364. referencedClasses: [],
  365. //>>excludeEnd("ide");
  366. messageSends: []
  367. }),
  368. $globals.Axon);
  369. $core.addMethod(
  370. $core.method({
  371. selector: "run",
  372. protocol: "action",
  373. fn: function (){
  374. var self=this,$self=this;
  375. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  376. return $core.withContext(function($ctx1) {
  377. //>>excludeEnd("ctx");
  378. var $1,$2,$3;
  379. $recv((function(){
  380. var needsClean;
  381. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  382. return $core.withContext(function($ctx2) {
  383. //>>excludeEnd("ctx");
  384. needsClean=false;
  385. needsClean;
  386. $self._do_((function(each){
  387. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  388. return $core.withContext(function($ctx3) {
  389. //>>excludeEnd("ctx");
  390. $1=$recv(each)._isFlagged();
  391. if($core.assert($1)){
  392. $recv(each)._run();
  393. }
  394. $2=$recv(each)._isEnabled();
  395. if(!$core.assert($2)){
  396. needsClean=true;
  397. return needsClean;
  398. }
  399. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  400. }, function($ctx3) {$ctx3.fillBlock({each:each},$ctx2,2)});
  401. //>>excludeEnd("ctx");
  402. }));
  403. $3=needsClean;
  404. if($core.assert($3)){
  405. return $self._clean();
  406. }
  407. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  408. }, function($ctx2) {$ctx2.fillBlock({needsClean:needsClean},$ctx1,1)});
  409. //>>excludeEnd("ctx");
  410. }))._on_do_($globals.Error,(function(){
  411. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  412. return $core.withContext(function($ctx2) {
  413. //>>excludeEnd("ctx");
  414. return $self._dirty_(true);
  415. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  416. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,6)});
  417. //>>excludeEnd("ctx");
  418. }));
  419. return self;
  420. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  421. }, function($ctx1) {$ctx1.fill(self,"run",{},$globals.Axon)});
  422. //>>excludeEnd("ctx");
  423. },
  424. //>>excludeStart("ide", pragmas.excludeIdeData);
  425. args: [],
  426. source: "run\x0a\x09[\x0a\x09\x09| needsClean |\x0a\x09 needsClean := false.\x0a\x09\x09self do: [ :each |\x0a\x09\x09\x09each isFlagged ifTrue: [ each run ].\x0a\x09 each isEnabled ifFalse: [ needsClean := true ]\x0a\x09\x09].\x0a \x09needsClean ifTrue: [ self clean ]\x0a\x09] on: Error do: [ self dirty: true ]",
  427. referencedClasses: ["Error"],
  428. //>>excludeEnd("ide");
  429. messageSends: ["on:do:", "do:", "ifTrue:", "isFlagged", "run", "ifFalse:", "isEnabled", "clean", "dirty:"]
  430. }),
  431. $globals.Axon);
  432. $core.addClass("DumbAxon", $globals.Axon, [], "Axxord");
  433. //>>excludeStart("ide", pragmas.excludeIdeData);
  434. $globals.DumbAxon.comment="I am an axon that does nothing.";
  435. //>>excludeEnd("ide");
  436. $core.addMethod(
  437. $core.method({
  438. selector: "add:",
  439. protocol: "as yet unclassified",
  440. fn: function (anInterest){
  441. var self=this,$self=this;
  442. return self;
  443. },
  444. //>>excludeStart("ide", pragmas.excludeIdeData);
  445. args: ["anInterest"],
  446. source: "add: anInterest\x0a\x09\x22pass\x22",
  447. referencedClasses: [],
  448. //>>excludeEnd("ide");
  449. messageSends: []
  450. }),
  451. $globals.DumbAxon);
  452. $core.addMethod(
  453. $core.method({
  454. selector: "clean",
  455. protocol: "as yet unclassified",
  456. fn: function (){
  457. var self=this,$self=this;
  458. return self;
  459. },
  460. //>>excludeStart("ide", pragmas.excludeIdeData);
  461. args: [],
  462. source: "clean\x0a\x09\x22pass\x22",
  463. referencedClasses: [],
  464. //>>excludeEnd("ide");
  465. messageSends: []
  466. }),
  467. $globals.DumbAxon);
  468. $core.addMethod(
  469. $core.method({
  470. selector: "do:",
  471. protocol: "as yet unclassified",
  472. fn: function (aBlock){
  473. var self=this,$self=this;
  474. return self;
  475. },
  476. //>>excludeStart("ide", pragmas.excludeIdeData);
  477. args: ["aBlock"],
  478. source: "do: aBlock\x0a\x09\x22pass\x22",
  479. referencedClasses: [],
  480. //>>excludeEnd("ide");
  481. messageSends: []
  482. }),
  483. $globals.DumbAxon);
  484. $core.addClass("SimpleAxon", $globals.Axon, ["queue"], "Axxord");
  485. $core.addMethod(
  486. $core.method({
  487. selector: "add:",
  488. protocol: "accessing",
  489. fn: function (aSubscription){
  490. var self=this,$self=this;
  491. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  492. return $core.withContext(function($ctx1) {
  493. //>>excludeEnd("ctx");
  494. $recv($self["@queue"])._add_(aSubscription);
  495. return self;
  496. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  497. }, function($ctx1) {$ctx1.fill(self,"add:",{aSubscription:aSubscription},$globals.SimpleAxon)});
  498. //>>excludeEnd("ctx");
  499. },
  500. //>>excludeStart("ide", pragmas.excludeIdeData);
  501. args: ["aSubscription"],
  502. source: "add: aSubscription\x0a\x09queue add: aSubscription.",
  503. referencedClasses: [],
  504. //>>excludeEnd("ide");
  505. messageSends: ["add:"]
  506. }),
  507. $globals.SimpleAxon);
  508. $core.addMethod(
  509. $core.method({
  510. selector: "clean",
  511. protocol: "bookkeeping",
  512. fn: function (){
  513. var self=this,$self=this;
  514. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  515. return $core.withContext(function($ctx1) {
  516. //>>excludeEnd("ctx");
  517. $self["@queue"]=$recv($self["@queue"])._select_((function(each){
  518. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  519. return $core.withContext(function($ctx2) {
  520. //>>excludeEnd("ctx");
  521. return $recv(each)._isEnabled();
  522. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  523. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  524. //>>excludeEnd("ctx");
  525. }));
  526. return self;
  527. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  528. }, function($ctx1) {$ctx1.fill(self,"clean",{},$globals.SimpleAxon)});
  529. //>>excludeEnd("ctx");
  530. },
  531. //>>excludeStart("ide", pragmas.excludeIdeData);
  532. args: [],
  533. source: "clean\x0a\x09queue := queue select: [ :each | each isEnabled ]",
  534. referencedClasses: [],
  535. //>>excludeEnd("ide");
  536. messageSends: ["select:", "isEnabled"]
  537. }),
  538. $globals.SimpleAxon);
  539. $core.addMethod(
  540. $core.method({
  541. selector: "do:",
  542. protocol: "enumeration",
  543. fn: function (aBlock){
  544. var self=this,$self=this;
  545. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  546. return $core.withContext(function($ctx1) {
  547. //>>excludeEnd("ctx");
  548. $recv($self["@queue"])._do_(aBlock);
  549. return self;
  550. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  551. }, function($ctx1) {$ctx1.fill(self,"do:",{aBlock:aBlock},$globals.SimpleAxon)});
  552. //>>excludeEnd("ctx");
  553. },
  554. //>>excludeStart("ide", pragmas.excludeIdeData);
  555. args: ["aBlock"],
  556. source: "do: aBlock\x0a\x09queue do: aBlock",
  557. referencedClasses: [],
  558. //>>excludeEnd("ide");
  559. messageSends: ["do:"]
  560. }),
  561. $globals.SimpleAxon);
  562. $core.addMethod(
  563. $core.method({
  564. selector: "initialize",
  565. protocol: "initialization",
  566. fn: function (){
  567. var self=this,$self=this;
  568. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  569. return $core.withContext(function($ctx1) {
  570. //>>excludeEnd("ctx");
  571. (
  572. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  573. $ctx1.supercall = true,
  574. //>>excludeEnd("ctx");
  575. ($globals.SimpleAxon.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, []));
  576. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  577. $ctx1.supercall = false;
  578. //>>excludeEnd("ctx");;
  579. $self["@queue"]=$recv($globals.OrderedCollection)._new();
  580. return self;
  581. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  582. }, function($ctx1) {$ctx1.fill(self,"initialize",{},$globals.SimpleAxon)});
  583. //>>excludeEnd("ctx");
  584. },
  585. //>>excludeStart("ide", pragmas.excludeIdeData);
  586. args: [],
  587. source: "initialize\x0a super initialize.\x0a\x09queue := OrderedCollection new",
  588. referencedClasses: ["OrderedCollection"],
  589. //>>excludeEnd("ide");
  590. messageSends: ["initialize", "new"]
  591. }),
  592. $globals.SimpleAxon);
  593. $core.addClass("AxonInterest", $globals.Object, ["aspect", "actionBlock", "flagged"], "Axxord");
  594. $core.addMethod(
  595. $core.method({
  596. selector: "accepts:",
  597. protocol: "testing",
  598. fn: function (anAspect){
  599. var self=this,$self=this;
  600. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  601. return $core.withContext(function($ctx1) {
  602. //>>excludeEnd("ctx");
  603. $self._subclassResponsibility();
  604. return self;
  605. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  606. }, function($ctx1) {$ctx1.fill(self,"accepts:",{anAspect:anAspect},$globals.AxonInterest)});
  607. //>>excludeEnd("ctx");
  608. },
  609. //>>excludeStart("ide", pragmas.excludeIdeData);
  610. args: ["anAspect"],
  611. source: "accepts: anAspect\x0a \x22Should return true if change for anAspect is relevant for this AxonInterest\x22\x0a self subclassResponsibility",
  612. referencedClasses: [],
  613. //>>excludeEnd("ide");
  614. messageSends: ["subclassResponsibility"]
  615. }),
  616. $globals.AxonInterest);
  617. $core.addMethod(
  618. $core.method({
  619. selector: "aspect:block:",
  620. protocol: "accessing",
  621. fn: function (anAspect,aBlock){
  622. var self=this,$self=this;
  623. $self["@aspect"]=anAspect;
  624. $self["@actionBlock"]=aBlock;
  625. return self;
  626. },
  627. //>>excludeStart("ide", pragmas.excludeIdeData);
  628. args: ["anAspect", "aBlock"],
  629. source: "aspect: anAspect block: aBlock\x0a\x09aspect := anAspect.\x0a actionBlock := aBlock",
  630. referencedClasses: [],
  631. //>>excludeEnd("ide");
  632. messageSends: []
  633. }),
  634. $globals.AxonInterest);
  635. $core.addMethod(
  636. $core.method({
  637. selector: "flag",
  638. protocol: "accessing",
  639. fn: function (){
  640. var self=this,$self=this;
  641. $self["@flagged"]=true;
  642. return self;
  643. },
  644. //>>excludeStart("ide", pragmas.excludeIdeData);
  645. args: [],
  646. source: "flag\x0a\x09flagged := true",
  647. referencedClasses: [],
  648. //>>excludeEnd("ide");
  649. messageSends: []
  650. }),
  651. $globals.AxonInterest);
  652. $core.addMethod(
  653. $core.method({
  654. selector: "initialize",
  655. protocol: "initialization",
  656. fn: function (){
  657. var self=this,$self=this;
  658. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  659. return $core.withContext(function($ctx1) {
  660. //>>excludeEnd("ctx");
  661. (
  662. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  663. $ctx1.supercall = true,
  664. //>>excludeEnd("ctx");
  665. ($globals.AxonInterest.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, []));
  666. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  667. $ctx1.supercall = false;
  668. //>>excludeEnd("ctx");;
  669. $self["@aspect"]=nil;
  670. $self["@actionBlock"]=nil;
  671. $self["@flagged"]=false;
  672. return self;
  673. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  674. }, function($ctx1) {$ctx1.fill(self,"initialize",{},$globals.AxonInterest)});
  675. //>>excludeEnd("ctx");
  676. },
  677. //>>excludeStart("ide", pragmas.excludeIdeData);
  678. args: [],
  679. source: "initialize\x0a\x09super initialize.\x0a aspect := nil.\x0a actionBlock := nil.\x0a flagged := false.",
  680. referencedClasses: [],
  681. //>>excludeEnd("ide");
  682. messageSends: ["initialize"]
  683. }),
  684. $globals.AxonInterest);
  685. $core.addMethod(
  686. $core.method({
  687. selector: "isEnabled",
  688. protocol: "testing",
  689. fn: function (){
  690. var self=this,$self=this;
  691. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  692. return $core.withContext(function($ctx1) {
  693. //>>excludeEnd("ctx");
  694. return $recv($self["@actionBlock"])._notNil();
  695. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  696. }, function($ctx1) {$ctx1.fill(self,"isEnabled",{},$globals.AxonInterest)});
  697. //>>excludeEnd("ctx");
  698. },
  699. //>>excludeStart("ide", pragmas.excludeIdeData);
  700. args: [],
  701. source: "isEnabled\x0a\x09^actionBlock notNil",
  702. referencedClasses: [],
  703. //>>excludeEnd("ide");
  704. messageSends: ["notNil"]
  705. }),
  706. $globals.AxonInterest);
  707. $core.addMethod(
  708. $core.method({
  709. selector: "isFlagged",
  710. protocol: "testing",
  711. fn: function (){
  712. var self=this,$self=this;
  713. return $self["@flagged"];
  714. },
  715. //>>excludeStart("ide", pragmas.excludeIdeData);
  716. args: [],
  717. source: "isFlagged\x0a\x09^flagged",
  718. referencedClasses: [],
  719. //>>excludeEnd("ide");
  720. messageSends: []
  721. }),
  722. $globals.AxonInterest);
  723. $core.addMethod(
  724. $core.method({
  725. selector: "run",
  726. protocol: "action",
  727. fn: function (){
  728. var self=this,$self=this;
  729. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  730. return $core.withContext(function($ctx1) {
  731. //>>excludeEnd("ctx");
  732. $recv((function(){
  733. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  734. return $core.withContext(function($ctx2) {
  735. //>>excludeEnd("ctx");
  736. $self["@flagged"]=false;
  737. $self["@flagged"];
  738. return $recv($self["@actionBlock"])._value();
  739. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  740. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  741. //>>excludeEnd("ctx");
  742. }))._on_do_($globals.AxonOff,(function(){
  743. $self["@actionBlock"]=nil;
  744. return $self["@actionBlock"];
  745. }));
  746. return self;
  747. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  748. }, function($ctx1) {$ctx1.fill(self,"run",{},$globals.AxonInterest)});
  749. //>>excludeEnd("ctx");
  750. },
  751. //>>excludeStart("ide", pragmas.excludeIdeData);
  752. args: [],
  753. source: "run\x0a\x09[ flagged := false. actionBlock value ]\x0a on: AxonOff do: [ actionBlock := nil ]",
  754. referencedClasses: ["AxonOff"],
  755. //>>excludeEnd("ide");
  756. messageSends: ["on:do:", "value"]
  757. }),
  758. $globals.AxonInterest);
  759. $core.addClass("InterestedInEqual", $globals.AxonInterest, [], "Axxord");
  760. $core.addMethod(
  761. $core.method({
  762. selector: "accepts:",
  763. protocol: "testing",
  764. fn: function (anAspect){
  765. var self=this,$self=this;
  766. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  767. return $core.withContext(function($ctx1) {
  768. //>>excludeEnd("ctx");
  769. return $recv(anAspect).__eq($self["@aspect"]);
  770. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  771. }, function($ctx1) {$ctx1.fill(self,"accepts:",{anAspect:anAspect},$globals.InterestedInEqual)});
  772. //>>excludeEnd("ctx");
  773. },
  774. //>>excludeStart("ide", pragmas.excludeIdeData);
  775. args: ["anAspect"],
  776. source: "accepts: anAspect\x0a ^ anAspect = aspect",
  777. referencedClasses: [],
  778. //>>excludeEnd("ide");
  779. messageSends: ["="]
  780. }),
  781. $globals.InterestedInEqual);
  782. $core.addClass("AxonOff", $globals.Error, [], "Axxord");
  783. //>>excludeStart("ide", pragmas.excludeIdeData);
  784. $globals.AxonOff.comment="Signal me from the subscription block to unsubscribe it.";
  785. //>>excludeEnd("ide");
  786. $core.addMethod(
  787. $core.method({
  788. selector: "asAxisIn:ifAbsent:",
  789. protocol: "*Axxord",
  790. fn: function (anObject,aBlock){
  791. var self=this,$self=this;
  792. var receiver,selector,result;
  793. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  794. return $core.withContext(function($ctx1) {
  795. //>>excludeEnd("ctx");
  796. var $5,$4,$3,$2,$1;
  797. var $early={};
  798. try {
  799. selector=$self._first();
  800. receiver=$recv(anObject)._yourself();
  801. $recv((function(){
  802. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  803. return $core.withContext(function($ctx2) {
  804. //>>excludeEnd("ctx");
  805. result=$recv(receiver)._perform_(selector);
  806. return result;
  807. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  808. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  809. //>>excludeEnd("ctx");
  810. }))._on_do_($globals.MessageNotUnderstood,(function(mnu){
  811. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  812. return $core.withContext(function($ctx2) {
  813. //>>excludeEnd("ctx");
  814. $5=$recv(mnu)._message();
  815. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  816. $ctx2.sendIdx["message"]=1;
  817. //>>excludeEnd("ctx");
  818. $4=$recv($5)._selector();
  819. $3=$recv($4).__eq(selector);
  820. $2=$recv($3)._and_((function(){
  821. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  822. return $core.withContext(function($ctx3) {
  823. //>>excludeEnd("ctx");
  824. return $recv($recv(mnu)._receiver()).__eq_eq(receiver);
  825. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  826. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)});
  827. //>>excludeEnd("ctx");
  828. }));
  829. $1=$recv($2)._and_((function(){
  830. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  831. return $core.withContext(function($ctx3) {
  832. //>>excludeEnd("ctx");
  833. return $recv($recv($recv(mnu)._message())._arguments())._isEmpty();
  834. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  835. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)});
  836. //>>excludeEnd("ctx");
  837. }));
  838. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  839. $ctx2.sendIdx["and:"]=1;
  840. //>>excludeEnd("ctx");
  841. if(!$core.assert($1)){
  842. $recv(mnu)._resignal();
  843. }
  844. throw $early=[$recv(aBlock)._value()];
  845. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  846. }, function($ctx2) {$ctx2.fillBlock({mnu:mnu},$ctx1,2)});
  847. //>>excludeEnd("ctx");
  848. }));
  849. return result;
  850. }
  851. catch(e) {if(e===$early)return e[0]; throw e}
  852. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  853. }, function($ctx1) {$ctx1.fill(self,"asAxisIn:ifAbsent:",{anObject:anObject,aBlock:aBlock,receiver:receiver,selector:selector,result:result},$globals.Array)});
  854. //>>excludeEnd("ctx");
  855. },
  856. //>>excludeStart("ide", pragmas.excludeIdeData);
  857. args: ["anObject", "aBlock"],
  858. source: "asAxisIn: anObject ifAbsent: aBlock\x0a\x09| receiver selector result |\x0a\x09selector := self first.\x0a\x09receiver := anObject yourself. \x22JSObjectProxy hack\x22\x0a\x09\x0a\x09[ result := receiver perform: selector ]\x0a\x09on: MessageNotUnderstood do: [ :mnu |\x0a\x09\x09((mnu message selector = selector\x0a\x09\x09\x09and: [ mnu receiver == receiver ])\x0a\x09\x09\x09and: [ mnu message arguments isEmpty ])\x0a\x09\x09\x09ifFalse: [ mnu resignal ].\x0a\x09\x09^ aBlock value ].\x0a\x09^ result",
  859. referencedClasses: ["MessageNotUnderstood"],
  860. //>>excludeEnd("ide");
  861. messageSends: ["first", "yourself", "on:do:", "perform:", "ifFalse:", "and:", "=", "selector", "message", "==", "receiver", "isEmpty", "arguments", "resignal", "value"]
  862. }),
  863. $globals.Array);
  864. $core.addMethod(
  865. $core.method({
  866. selector: "asAxisIn:ifAbsent:put:",
  867. protocol: "*Axxord",
  868. fn: function (anObject,aBlock,anotherObject){
  869. var self=this,$self=this;
  870. var receiver,selector,arguments_,result;
  871. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  872. return $core.withContext(function($ctx1) {
  873. //>>excludeEnd("ctx");
  874. var $5,$4,$3,$2,$1;
  875. var $early={};
  876. try {
  877. selector=$recv($self._first())._asMutator();
  878. receiver=$recv(anObject)._yourself();
  879. arguments_=[anotherObject];
  880. $recv((function(){
  881. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  882. return $core.withContext(function($ctx2) {
  883. //>>excludeEnd("ctx");
  884. result=$recv(receiver)._perform_withArguments_(selector,arguments_);
  885. return result;
  886. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  887. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  888. //>>excludeEnd("ctx");
  889. }))._on_do_($globals.MessageNotUnderstood,(function(mnu){
  890. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  891. return $core.withContext(function($ctx2) {
  892. //>>excludeEnd("ctx");
  893. $5=$recv(mnu)._message();
  894. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  895. $ctx2.sendIdx["message"]=1;
  896. //>>excludeEnd("ctx");
  897. $4=$recv($5)._selector();
  898. $3=$recv($4).__eq(selector);
  899. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  900. $ctx2.sendIdx["="]=1;
  901. //>>excludeEnd("ctx");
  902. $2=$recv($3)._and_((function(){
  903. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  904. return $core.withContext(function($ctx3) {
  905. //>>excludeEnd("ctx");
  906. return $recv($recv(mnu)._receiver()).__eq_eq(receiver);
  907. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  908. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)});
  909. //>>excludeEnd("ctx");
  910. }));
  911. $1=$recv($2)._and_((function(){
  912. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  913. return $core.withContext(function($ctx3) {
  914. //>>excludeEnd("ctx");
  915. return $recv($recv($recv(mnu)._message())._arguments()).__eq(arguments_);
  916. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  917. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)});
  918. //>>excludeEnd("ctx");
  919. }));
  920. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  921. $ctx2.sendIdx["and:"]=1;
  922. //>>excludeEnd("ctx");
  923. if(!$core.assert($1)){
  924. $recv(mnu)._resignal();
  925. }
  926. throw $early=[$recv(aBlock)._value()];
  927. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  928. }, function($ctx2) {$ctx2.fillBlock({mnu:mnu},$ctx1,2)});
  929. //>>excludeEnd("ctx");
  930. }));
  931. return result;
  932. }
  933. catch(e) {if(e===$early)return e[0]; throw e}
  934. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  935. }, function($ctx1) {$ctx1.fill(self,"asAxisIn:ifAbsent:put:",{anObject:anObject,aBlock:aBlock,anotherObject:anotherObject,receiver:receiver,selector:selector,arguments_:arguments_,result:result},$globals.Array)});
  936. //>>excludeEnd("ctx");
  937. },
  938. //>>excludeStart("ide", pragmas.excludeIdeData);
  939. args: ["anObject", "aBlock", "anotherObject"],
  940. source: "asAxisIn: anObject ifAbsent: aBlock put: anotherObject\x0a\x09| receiver selector arguments result |\x0a\x09selector := self first asMutator.\x0a\x09receiver := anObject yourself. \x22JSObjectProxy hack\x22\x0a\x09arguments := { anotherObject }.\x0a\x09\x0a\x09[ result := receiver perform: selector withArguments: arguments ]\x0a\x09on: MessageNotUnderstood do: [ :mnu |\x0a\x09\x09((mnu message selector = selector\x0a\x09\x09\x09and: [ mnu receiver == receiver ])\x0a\x09\x09\x09and: [ mnu message arguments = arguments ])\x0a\x09\x09\x09ifFalse: [ mnu resignal ].\x0a\x09\x09^ aBlock value ].\x0a\x09^ result",
  941. referencedClasses: ["MessageNotUnderstood"],
  942. //>>excludeEnd("ide");
  943. messageSends: ["asMutator", "first", "yourself", "on:do:", "perform:withArguments:", "ifFalse:", "and:", "=", "selector", "message", "==", "receiver", "arguments", "resignal", "value"]
  944. }),
  945. $globals.Array);
  946. $core.addMethod(
  947. $core.method({
  948. selector: "asAxisIn:ifAbsent:",
  949. protocol: "*Axxord",
  950. fn: function (anObject,aBlock){
  951. var self=this,$self=this;
  952. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  953. return $core.withContext(function($ctx1) {
  954. //>>excludeEnd("ctx");
  955. var $1;
  956. var $early={};
  957. try {
  958. $1=$recv(anObject)._respondsTo_("at:ifAbsent:");
  959. $recv($1)._ifTrue_ifFalse_((function(){
  960. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  961. return $core.withContext(function($ctx2) {
  962. //>>excludeEnd("ctx");
  963. throw $early=[$recv(anObject)._at_ifAbsent_(self,aBlock)];
  964. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  965. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  966. //>>excludeEnd("ctx");
  967. }),aBlock);
  968. return self;
  969. }
  970. catch(e) {if(e===$early)return e[0]; throw e}
  971. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  972. }, function($ctx1) {$ctx1.fill(self,"asAxisIn:ifAbsent:",{anObject:anObject,aBlock:aBlock},$globals.Number)});
  973. //>>excludeEnd("ctx");
  974. },
  975. //>>excludeStart("ide", pragmas.excludeIdeData);
  976. args: ["anObject", "aBlock"],
  977. source: "asAxisIn: anObject ifAbsent: aBlock\x0a\x09(anObject respondsTo: #at:ifAbsent:)\x0a\x09\x09ifTrue: [ ^ anObject at: self ifAbsent: aBlock ]\x0a\x09\x09ifFalse: aBlock",
  978. referencedClasses: [],
  979. //>>excludeEnd("ide");
  980. messageSends: ["ifTrue:ifFalse:", "respondsTo:", "at:ifAbsent:"]
  981. }),
  982. $globals.Number);
  983. $core.addMethod(
  984. $core.method({
  985. selector: "asAxisIn:ifAbsent:put:",
  986. protocol: "*Axxord",
  987. fn: function (anObject,aBlock,anotherObject){
  988. var self=this,$self=this;
  989. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  990. return $core.withContext(function($ctx1) {
  991. //>>excludeEnd("ctx");
  992. var $1;
  993. var $early={};
  994. try {
  995. $1=$recv(anObject)._respondsTo_("at:put:");
  996. $recv($1)._ifTrue_ifFalse_((function(){
  997. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  998. return $core.withContext(function($ctx2) {
  999. //>>excludeEnd("ctx");
  1000. throw $early=[$recv(anObject)._at_put_(self,anotherObject)];
  1001. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1002. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1003. //>>excludeEnd("ctx");
  1004. }),aBlock);
  1005. return self;
  1006. }
  1007. catch(e) {if(e===$early)return e[0]; throw e}
  1008. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1009. }, function($ctx1) {$ctx1.fill(self,"asAxisIn:ifAbsent:put:",{anObject:anObject,aBlock:aBlock,anotherObject:anotherObject},$globals.Number)});
  1010. //>>excludeEnd("ctx");
  1011. },
  1012. //>>excludeStart("ide", pragmas.excludeIdeData);
  1013. args: ["anObject", "aBlock", "anotherObject"],
  1014. source: "asAxisIn: anObject ifAbsent: aBlock put: anotherObject\x0a\x09(anObject respondsTo: #at:put:)\x0a\x09\x09ifTrue: [ ^ anObject at: self put: anotherObject ]\x0a\x09\x09ifFalse: aBlock",
  1015. referencedClasses: [],
  1016. //>>excludeEnd("ide");
  1017. messageSends: ["ifTrue:ifFalse:", "respondsTo:", "at:put:"]
  1018. }),
  1019. $globals.Number);
  1020. $core.addMethod(
  1021. $core.method({
  1022. selector: "asAxisIn:ifAbsent:",
  1023. protocol: "*Axxord",
  1024. fn: function (anObject,aBlock){
  1025. var self=this,$self=this;
  1026. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1027. return $core.withContext(function($ctx1) {
  1028. //>>excludeEnd("ctx");
  1029. return $recv(aBlock)._value();
  1030. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1031. }, function($ctx1) {$ctx1.fill(self,"asAxisIn:ifAbsent:",{anObject:anObject,aBlock:aBlock},$globals.Object)});
  1032. //>>excludeEnd("ctx");
  1033. },
  1034. //>>excludeStart("ide", pragmas.excludeIdeData);
  1035. args: ["anObject", "aBlock"],
  1036. source: "asAxisIn: anObject ifAbsent: aBlock\x0a\x09^ aBlock value",
  1037. referencedClasses: [],
  1038. //>>excludeEnd("ide");
  1039. messageSends: ["value"]
  1040. }),
  1041. $globals.Object);
  1042. $core.addMethod(
  1043. $core.method({
  1044. selector: "asAxisIn:ifAbsent:put:",
  1045. protocol: "*Axxord",
  1046. fn: function (anObject,aBlock,anotherObject){
  1047. var self=this,$self=this;
  1048. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1049. return $core.withContext(function($ctx1) {
  1050. //>>excludeEnd("ctx");
  1051. return $recv(aBlock)._value();
  1052. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1053. }, function($ctx1) {$ctx1.fill(self,"asAxisIn:ifAbsent:put:",{anObject:anObject,aBlock:aBlock,anotherObject:anotherObject},$globals.Object)});
  1054. //>>excludeEnd("ctx");
  1055. },
  1056. //>>excludeStart("ide", pragmas.excludeIdeData);
  1057. args: ["anObject", "aBlock", "anotherObject"],
  1058. source: "asAxisIn: anObject ifAbsent: aBlock put: anotherObject\x0a\x09^ aBlock value",
  1059. referencedClasses: [],
  1060. //>>excludeEnd("ide");
  1061. messageSends: ["value"]
  1062. }),
  1063. $globals.Object);
  1064. $core.addMethod(
  1065. $core.method({
  1066. selector: "atAxes:ifAbsent:",
  1067. protocol: "*Axxord",
  1068. fn: function (aCollection,aBlock){
  1069. var self=this,$self=this;
  1070. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1071. return $core.withContext(function($ctx1) {
  1072. //>>excludeEnd("ctx");
  1073. var $early={};
  1074. try {
  1075. return $recv(aCollection)._inject_into_(self,(function(soFar,segment){
  1076. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1077. return $core.withContext(function($ctx2) {
  1078. //>>excludeEnd("ctx");
  1079. return $recv(segment)._asAxisIn_ifAbsent_(soFar,(function(){
  1080. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1081. return $core.withContext(function($ctx3) {
  1082. //>>excludeEnd("ctx");
  1083. throw $early=[$recv(aBlock)._value()];
  1084. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1085. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
  1086. //>>excludeEnd("ctx");
  1087. }));
  1088. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1089. }, function($ctx2) {$ctx2.fillBlock({soFar:soFar,segment:segment},$ctx1,1)});
  1090. //>>excludeEnd("ctx");
  1091. }));
  1092. }
  1093. catch(e) {if(e===$early)return e[0]; throw e}
  1094. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1095. }, function($ctx1) {$ctx1.fill(self,"atAxes:ifAbsent:",{aCollection:aCollection,aBlock:aBlock},$globals.Object)});
  1096. //>>excludeEnd("ctx");
  1097. },
  1098. //>>excludeStart("ide", pragmas.excludeIdeData);
  1099. args: ["aCollection", "aBlock"],
  1100. source: "atAxes: aCollection ifAbsent: aBlock\x0a\x09^ aCollection inject: self into: [ :soFar :segment |\x0a\x09\x09segment asAxisIn: soFar ifAbsent: [ ^ aBlock value ]]",
  1101. referencedClasses: [],
  1102. //>>excludeEnd("ide");
  1103. messageSends: ["inject:into:", "asAxisIn:ifAbsent:", "value"]
  1104. }),
  1105. $globals.Object);
  1106. $core.addMethod(
  1107. $core.method({
  1108. selector: "atAxes:ifAbsent:put:",
  1109. protocol: "*Axxord",
  1110. fn: function (aCollection,aBlock,value){
  1111. var self=this,$self=this;
  1112. var penultimate;
  1113. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1114. return $core.withContext(function($ctx1) {
  1115. //>>excludeEnd("ctx");
  1116. penultimate=$self._atAxes_ifAbsent_($recv(aCollection)._allButLast(),aBlock);
  1117. return $recv($recv(aCollection)._last())._asAxisIn_ifAbsent_put_(penultimate,aBlock,value);
  1118. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1119. }, function($ctx1) {$ctx1.fill(self,"atAxes:ifAbsent:put:",{aCollection:aCollection,aBlock:aBlock,value:value,penultimate:penultimate},$globals.Object)});
  1120. //>>excludeEnd("ctx");
  1121. },
  1122. //>>excludeStart("ide", pragmas.excludeIdeData);
  1123. args: ["aCollection", "aBlock", "value"],
  1124. source: "atAxes: aCollection ifAbsent: aBlock put: value\x0a\x09| penultimate |\x0a\x09penultimate := self atAxes: aCollection allButLast ifAbsent: aBlock.\x0a\x09^ aCollection last asAxisIn: penultimate ifAbsent: aBlock put: value",
  1125. referencedClasses: [],
  1126. //>>excludeEnd("ide");
  1127. messageSends: ["atAxes:ifAbsent:", "allButLast", "asAxisIn:ifAbsent:put:", "last"]
  1128. }),
  1129. $globals.Object);
  1130. $core.addMethod(
  1131. $core.method({
  1132. selector: "axes:consume:",
  1133. protocol: "*Axxord",
  1134. fn: function (aCollection,aBlock){
  1135. var self=this,$self=this;
  1136. var value;
  1137. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1138. return $core.withContext(function($ctx1) {
  1139. //>>excludeEnd("ctx");
  1140. var $early={};
  1141. try {
  1142. value=$self._atAxes_ifAbsent_(aCollection,(function(){
  1143. throw $early=[self];
  1144. }));
  1145. return $recv(aBlock)._value_(value);
  1146. }
  1147. catch(e) {if(e===$early)return e[0]; throw e}
  1148. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1149. }, function($ctx1) {$ctx1.fill(self,"axes:consume:",{aCollection:aCollection,aBlock:aBlock,value:value},$globals.Object)});
  1150. //>>excludeEnd("ctx");
  1151. },
  1152. //>>excludeStart("ide", pragmas.excludeIdeData);
  1153. args: ["aCollection", "aBlock"],
  1154. source: "axes: aCollection consume: aBlock\x0a\x09| value |\x0a\x09value := self atAxes: aCollection ifAbsent: [ ^self ].\x0a\x09^ aBlock value: value",
  1155. referencedClasses: [],
  1156. //>>excludeEnd("ide");
  1157. messageSends: ["atAxes:ifAbsent:", "value:"]
  1158. }),
  1159. $globals.Object);
  1160. $core.addMethod(
  1161. $core.method({
  1162. selector: "axes:transform:",
  1163. protocol: "*Axxord",
  1164. fn: function (aCollection,aBlock){
  1165. var self=this,$self=this;
  1166. var value;
  1167. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1168. return $core.withContext(function($ctx1) {
  1169. //>>excludeEnd("ctx");
  1170. var $1,$receiver;
  1171. var $early={};
  1172. try {
  1173. $recv(aCollection)._last();
  1174. value=$self._atAxes_ifAbsent_(aCollection,(function(){
  1175. throw $early=[self];
  1176. }));
  1177. value=$recv(aBlock)._value_(value);
  1178. value=$self._atAxes_ifAbsent_put_(aCollection,(function(){
  1179. throw $early=[self];
  1180. }),value);
  1181. $1=$self._registeredAxon();
  1182. if(($receiver = $1) == null || $receiver.a$nil){
  1183. $1;
  1184. } else {
  1185. var axon;
  1186. axon=$receiver;
  1187. $recv(axon)._changed_(aCollection);
  1188. }
  1189. return self;
  1190. }
  1191. catch(e) {if(e===$early)return e[0]; throw e}
  1192. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1193. }, function($ctx1) {$ctx1.fill(self,"axes:transform:",{aCollection:aCollection,aBlock:aBlock,value:value},$globals.Object)});
  1194. //>>excludeEnd("ctx");
  1195. },
  1196. //>>excludeStart("ide", pragmas.excludeIdeData);
  1197. args: ["aCollection", "aBlock"],
  1198. source: "axes: aCollection transform: aBlock\x0a\x09| value |\x0a\x09aCollection last. \x22raise if empty\x22\x0a\x09value := self atAxes: aCollection ifAbsent: [ ^self ].\x0a\x09value := aBlock value: value.\x0a\x09value := self atAxes: aCollection ifAbsent: [ ^self ] put: value.\x0a\x09self registeredAxon ifNotNil: [:axon | axon changed: aCollection]",
  1199. referencedClasses: [],
  1200. //>>excludeEnd("ide");
  1201. messageSends: ["last", "atAxes:ifAbsent:", "value:", "atAxes:ifAbsent:put:", "ifNotNil:", "registeredAxon", "changed:"]
  1202. }),
  1203. $globals.Object);
  1204. $core.addMethod(
  1205. $core.method({
  1206. selector: "registeredAxon",
  1207. protocol: "*Axxord",
  1208. fn: function (){
  1209. var self=this,$self=this;
  1210. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1211. return $core.withContext(function($ctx1) {
  1212. //>>excludeEnd("ctx");
  1213. return self.$axon$;
  1214. return self;
  1215. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1216. }, function($ctx1) {$ctx1.fill(self,"registeredAxon",{},$globals.Object)});
  1217. //>>excludeEnd("ctx");
  1218. },
  1219. //>>excludeStart("ide", pragmas.excludeIdeData);
  1220. args: [],
  1221. source: "registeredAxon\x0a<inlineJS: 'return self.$axon$'>",
  1222. referencedClasses: [],
  1223. //>>excludeEnd("ide");
  1224. messageSends: []
  1225. }),
  1226. $globals.Object);
  1227. $core.addMethod(
  1228. $core.method({
  1229. selector: "asAxisIn:ifAbsent:",
  1230. protocol: "*Axxord",
  1231. fn: function (anObject,aBlock){
  1232. var self=this,$self=this;
  1233. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1234. return $core.withContext(function($ctx1) {
  1235. //>>excludeEnd("ctx");
  1236. var $1;
  1237. var $early={};
  1238. try {
  1239. $1=$recv(anObject)._respondsTo_("at:ifAbsent:");
  1240. $recv($1)._ifTrue_ifFalse_((function(){
  1241. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1242. return $core.withContext(function($ctx2) {
  1243. //>>excludeEnd("ctx");
  1244. throw $early=[$recv(anObject)._at_ifAbsent_(self,aBlock)];
  1245. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1246. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1247. //>>excludeEnd("ctx");
  1248. }),aBlock);
  1249. return self;
  1250. }
  1251. catch(e) {if(e===$early)return e[0]; throw e}
  1252. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1253. }, function($ctx1) {$ctx1.fill(self,"asAxisIn:ifAbsent:",{anObject:anObject,aBlock:aBlock},$globals.String)});
  1254. //>>excludeEnd("ctx");
  1255. },
  1256. //>>excludeStart("ide", pragmas.excludeIdeData);
  1257. args: ["anObject", "aBlock"],
  1258. source: "asAxisIn: anObject ifAbsent: aBlock\x0a\x09(anObject respondsTo: #at:ifAbsent:)\x0a\x09\x09ifTrue: [ ^ anObject at: self ifAbsent: aBlock ]\x0a\x09\x09ifFalse: aBlock",
  1259. referencedClasses: [],
  1260. //>>excludeEnd("ide");
  1261. messageSends: ["ifTrue:ifFalse:", "respondsTo:", "at:ifAbsent:"]
  1262. }),
  1263. $globals.String);
  1264. $core.addMethod(
  1265. $core.method({
  1266. selector: "asAxisIn:ifAbsent:put:",
  1267. protocol: "*Axxord",
  1268. fn: function (anObject,aBlock,anotherObject){
  1269. var self=this,$self=this;
  1270. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1271. return $core.withContext(function($ctx1) {
  1272. //>>excludeEnd("ctx");
  1273. var $1;
  1274. var $early={};
  1275. try {
  1276. $1=$recv(anObject)._respondsTo_("at:put:");
  1277. $recv($1)._ifTrue_ifFalse_((function(){
  1278. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1279. return $core.withContext(function($ctx2) {
  1280. //>>excludeEnd("ctx");
  1281. throw $early=[$recv(anObject)._at_put_(self,anotherObject)];
  1282. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1283. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1284. //>>excludeEnd("ctx");
  1285. }),aBlock);
  1286. return self;
  1287. }
  1288. catch(e) {if(e===$early)return e[0]; throw e}
  1289. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1290. }, function($ctx1) {$ctx1.fill(self,"asAxisIn:ifAbsent:put:",{anObject:anObject,aBlock:aBlock,anotherObject:anotherObject},$globals.String)});
  1291. //>>excludeEnd("ctx");
  1292. },
  1293. //>>excludeStart("ide", pragmas.excludeIdeData);
  1294. args: ["anObject", "aBlock", "anotherObject"],
  1295. source: "asAxisIn: anObject ifAbsent: aBlock put: anotherObject\x0a\x09(anObject respondsTo: #at:put:)\x0a\x09\x09ifTrue: [ ^ anObject at: self put: anotherObject ]\x0a\x09\x09ifFalse: aBlock",
  1296. referencedClasses: [],
  1297. //>>excludeEnd("ide");
  1298. messageSends: ["ifTrue:ifFalse:", "respondsTo:", "at:put:"]
  1299. }),
  1300. $globals.String);
  1301. });