Axxord.js 46 KB

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